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

sfmrs_98lo3.F

#include "pdf/pilot.h"
      subroutine sfmrs_98lo3(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)/
     +     .01533,    .00682,   3.82482,   1.04177,    .00000,
     +     .00000,    .54126,   1.06235,
     +     .01551,    .00686,   6.49464,   1.04966,    .00003,
     +     .00000,    .55369,   1.07017,
     +     .01578,    .00691,  11.52070,   1.07950,    .03363,
     +     .00000,    .59018,   1.09989,
     +     .01598,    .00696,  16.05415,   1.11744,    .08765,
     +     .00000,    .63290,   1.13773,
     +     .01619,    .00701,  21.47815,   1.17970,    .15513,
     +     .00000,    .70017,   1.19989,
     +     .01638,    .00705,  27.07859,   1.24525,    .23167,
     +     .00000,    .76998,   1.26535,
     +     .01656,    .00709,  32.97137,   1.32575,    .31608,
     +     .00000,    .85453,   1.34575,
     +     .01674,    .00714,  40.02710,   1.42741,    .42461,
     +     .00000,    .96044,   1.44731 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .01691,    .00718,  46.86293,   1.53028,    .53533,
     +     .00000,   1.06697,   1.55009,
     +     .01707,    .00723,  53.94938,   1.64555,    .65484,
     +     .00000,   1.18573,   1.66525,
     +     .01719,    .00726,  60.02959,   1.74700,    .76117,
     +     .00000,   1.28993,   1.76663,
     +     .01747,    .00734,  74.15377,   1.99686,   1.02171,
     +     .00043,   1.54556,   2.01631,
     +     .01770,    .00740,  87.71672,   2.24975,   1.28804,
     +     .22598,   1.80335,   2.26906,
     +     .01796,    .00748, 104.31261,   2.57683,   1.63276,
     +     .65558,   2.13580,   2.59595,
     +     .01824,    .00757, 123.11718,   2.97196,   2.03917,
     +    1.05843,   2.53643,   2.99089,
     +     .01849,    .00765, 141.78433,   3.37845,   2.45925,
     +    1.49436,   2.94781,   3.39720 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .01874,    .00773, 162.29823,   3.83886,   2.93823,
     +    1.99962,   3.41305,   3.85743,
     +     .01896,    .00780, 180.41515,   4.26082,   3.37412,
     +    2.44947,   3.83896,   4.27923,
     +     .01921,    .00789, 203.72588,   4.82128,   3.95161,
     +    3.04486,   4.40414,   4.83950,
     +     .01944,    .00797, 225.90144,   5.36721,   4.51776,
     +    3.63514,   4.95415,   5.38526,
     +     .01965,    .00805, 246.94786,   5.90401,   5.06758,
     +    4.19622,   5.49465,   5.92191,
     +     .01992,    .00814, 275.34183,   6.64433,   5.82943,
     +    4.98095,   6.23958,   6.66202,
     +     .02018,    .00824, 303.69211,   7.40309,   6.61103,
     +    5.78717,   7.00258,   7.42059,
     +     .02042,    .00833, 331.06958,   8.15927,   7.38358,
     +    6.57487,   7.76268,   8.17659 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .02066,    .00842, 360.08072,   8.97523,   8.22142,
     +    7.43594,   8.58247,   8.99236,
     +     .02089,    .00852, 389.31223,   9.81923,   9.08354,
     +    8.31573,   9.43017,   9.83618,
     +     .02112,    .00861, 418.20016,  10.66907,   9.95295,
     +    9.20540,  10.28346,  10.68585,
     +     .02133,    .00869, 446.22760,  11.51068,  10.81192,
     +   10.08181,  11.12827,  11.52730,
     +     .02155,    .00878, 475.36163,  12.40063,  11.72065,
     +   11.00997,  12.02139,  12.41709,
     +     .02176,    .00887, 504.71277,  13.31439,  12.65171,
     +   11.95843,  12.93823,  13.33069,
     +     .02196,    .00895, 533.58722,  14.22675,  13.58241,
     +   12.90830,  13.85347,  14.24291,
     +     .02216,    .00904, 561.23547,  15.11630,  14.48689,
     +   13.82771,  14.74572,  15.13231 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .02235,    .00912, 590.35858,  16.06343,  15.45300,
     +   14.81407,  15.69553,  16.07930,
     +     .02255,    .00920, 618.93628,  17.01118,  16.41469,
     +   15.78969,  16.64590,  17.02691,
     +     .02273,    .00929, 647.27740,  17.96089,  17.38068,
     +   16.77283,  17.59807,  17.97648,
     +     .02291,    .00936, 674.55219,  18.88732,  18.32208,
     +   17.72995,  18.52681,  18.90278,
     +     .02309,    .00944, 702.42944,  19.84722,  19.29596,
     +   18.71830,  19.48903,  19.86256 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .01892,    .00830,   3.76676,    .87670,    .00000,
     +     .00000,    .45335,    .88849,
     +     .01914,    .00837,   6.11509,    .88699,    .00003,
     +     .00000,    .46721,    .89873,
     +     .01949,    .00846,  10.39534,    .91683,    .03034,
     +     .00000,    .50231,    .92850,
     +     .01974,    .00853,  14.15784,    .95150,    .07838,
     +     .00000,    .54075,    .96310,
     +     .02000,    .00861,  18.57940,   1.00553,    .13693,
     +     .00000,    .59873,   1.01707,
     +     .02024,    .00869,  23.07161,   1.06153,    .20218,
     +     .00000,    .65808,   1.07300,
     +     .02046,    .00875,  27.73746,   1.12894,    .27309,
     +     .00000,    .72867,   1.14034,
     +     .02070,    .00883,  33.25460,   1.21303,    .36315,
     +     .00000,    .81612,   1.22437 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .02091,    .00890,  38.54031,   1.29731,    .45397,
     +     .00000,    .90327,   1.30859,
     +     .02111,    .00896,  43.96573,   1.39075,    .55102,
     +     .00000,    .99945,   1.40196,
     +     .02127,    .00902,  48.58296,   1.47244,    .63667,
     +     .00000,   1.08330,   1.48360,
     +     .02161,    .00913,  59.18499,   1.67163,    .84426,
     +     .00037,   1.28703,   1.68269,
     +     .02191,    .00924,  69.22492,   1.87102,   1.05378,
     +     .17642,   1.49026,   1.88198,
     +     .02225,    .00936,  81.34620,   2.12611,   1.32175,
     +     .50967,   1.74957,   2.13696,
     +     .02260,    .00949,  94.90487,   2.43061,   1.63374,
     +     .81709,   2.05838,   2.44133,
     +     .02292,    .00961, 108.20579,   2.74059,   1.95269,
     +    1.14637,   2.37219,   2.75121 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .02325,    .00973, 122.66561,   3.08833,   2.31274,
     +    1.52435,   2.72373,   3.09884,
     +     .02352,    .00983, 135.31071,   3.40420,   2.63743,
     +    1.85766,   3.04270,   3.41461,
     +     .02385,    .00996, 151.42639,   3.82014,   3.06382,
     +    2.29498,   3.46232,   3.83043,
     +     .02415,    .01008, 166.61813,   4.22190,   3.47836,
     +    2.72517,   3.86729,   4.23209,
     +     .02442,    .01019, 180.90945,   4.61383,   3.87772,
     +    3.13052,   4.26211,   4.62393,
     +     .02476,    .01033, 200.02777,   5.15014,   4.42686,
     +    3.69343,   4.80202,   5.16011,
     +     .02509,    .01046, 218.94470,   5.69524,   4.98563,
     +    4.26719,   5.35044,   5.70509,
     +     .02540,    .01059, 237.04790,   6.23413,   5.53345,
     +    4.82301,   5.89239,   6.24387 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .02571,    .01073, 256.08987,   6.81157,   6.12363,
     +    5.42694,   6.47284,   6.82120,
     +     .02601,    .01086, 275.11990,   7.40455,   6.72652,
     +    6.03939,   7.06872,   7.41408,
     +     .02630,    .01098, 293.79529,   7.99777,   7.33072,
     +    6.65507,   7.66463,   8.00720,
     +     .02657,    .01110, 311.78915,   8.58163,   7.92401,
     +    7.25786,   8.25099,   8.59096,
     +     .02685,    .01123, 330.37619,   9.19546,   8.54818,
     +    7.89282,   8.86730,   9.20469,
     +     .02712,    .01135, 348.97989,   9.82209,   9.18403,
     +    8.53794,   9.49634,   9.83123,
     +     .02738,    .01147, 367.17776,  10.44448,   9.81645,
     +    9.18096,  10.12098,  10.45353,
     +     .02763,    .01158, 384.49509,  11.04811,  10.42777,
     +    9.79994,  10.72672,  11.05708 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .02789,    .01170, 402.65543,  11.68797,  11.07811,
     +   10.46162,  11.36869,  11.69686,
     +     .02814,    .01181, 420.35617,  12.32485,  11.72188,
     +   11.11218,  12.00761,  12.33365,
     +     .02838,    .01192, 437.83783,  12.96041,  12.36607,
     +   11.76554,  12.64510,  12.96914,
     +     .02860,    .01203, 454.57648,  13.57769,  12.99116,
     +   12.39886,  13.26419,  13.58634,
     +     .02884,    .01214, 471.59869,  14.21454,  13.63504,
     +   13.05001,  13.90285,  14.22311 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .02335,    .01012,   3.70879,    .73710,    .00000,
     +     .00000,    .37983,    .74284,
     +     .02363,    .01021,   5.75677,    .74881,    .00003,
     +     .00000,    .39435,    .75452,
     +     .02406,    .01037,   9.37810,    .77793,    .02736,
     +     .00000,    .42760,    .78358,
     +     .02438,    .01048,  12.48273,    .80943,    .07006,
     +     .00000,    .46207,    .81503,
     +     .02471,    .01060,  16.06774,    .85627,    .12081,
     +     .00000,    .51201,    .86183,
     +     .02500,    .01071,  19.65195,    .90408,    .17637,
     +     .00000,    .56246,    .90960,
     +     .02529,    .01081,  23.32715,    .96048,    .23585,
     +     .00000,    .62135,    .96595,
     +     .02559,    .01093,  27.61873,   1.02996,    .31045,
     +     .00000,    .69346,   1.03539 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .02585,    .01103,  31.68451,   1.09889,    .38481,
     +     .00000,    .76465,   1.10427,
     +     .02611,    .01113,  35.81625,   1.17446,    .46345,
     +     .00000,    .84237,   1.17980,
     +     .02631,    .01121,  39.30379,   1.24007,    .53229,
     +     .00000,    .90967,   1.24538,
     +     .02675,    .01138,  47.21823,   1.39840,    .69730,
     +     .00033,   1.07155,   1.40364,
     +     .02713,    .01154,  54.60760,   1.55505,    .86172,
     +     .13764,   1.23122,   1.56024,
     +     .02756,    .01171,  63.40700,   1.75323,   1.06947,
     +     .39601,   1.43269,   1.75835,
     +     .02801,    .01190,  73.12212,   1.98686,   1.30828,
     +     .63041,   1.66969,   1.99191,
     +     .02842,    .01207,  82.53810,   2.22217,   1.54970,
     +     .87888,   1.90800,   2.22715 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .02884,    .01225,  92.66283,   2.48356,   1.81948,
     +    1.16133,   2.17235,   2.48848,
     +     .02919,    .01240, 101.42827,   2.71884,   2.06051,
     +    1.40796,   2.41005,   2.72371,
     +     .02961,    .01259, 112.49094,   3.02592,   2.37423,
     +    1.72869,   2.72001,   3.03072,
     +     .02999,    .01275, 122.82294,   3.32004,   2.67667,
     +    2.04168,   3.01663,   3.32479,
     +     .03034,    .01291, 132.45436,   3.60464,   2.96563,
     +    2.33396,   3.30348,   3.60933,
     +     .03078,    .01311, 145.22800,   3.99101,   3.35989,
     +    2.73693,   3.69266,   3.99564,
     +     .03120,    .01330, 157.75087,   4.38041,   3.75774,
     +    3.14434,   4.08465,   4.38497,
     +     .03159,    .01348, 169.62244,   4.76223,   4.14457,
     +    3.53556,   4.46885,   4.76673 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .03199,    .01367, 182.01605,   5.16849,   4.55850,
     +    3.95804,   4.87745,   5.17293,
     +     .03238,    .01385, 194.29724,   5.58261,   4.97822,
     +    4.38319,   5.29383,   5.58700,
     +     .03275,    .01402, 206.26282,   5.99420,   5.39617,
     +    4.80799,   5.70752,   5.99853,
     +     .03310,    .01419, 217.70959,   6.39674,   5.80403,
     +    5.22128,   6.11201,   6.40103,
     +     .03346,    .01436, 229.45668,   6.81749,   6.23068,
     +    5.65425,   6.53469,   6.82172,
     +     .03381,    .01453, 241.13463,   7.24449,   6.66277,
     +    6.09153,   6.96356,   7.24867,
     +     .03415,    .01469, 252.49120,   7.66635,   7.09033,
     +    6.52528,   7.38718,   7.67049,
     +     .03446,    .01485, 263.22784,   8.07329,   7.50137,
     +    6.94044,   7.79575,   8.07739 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .03479,    .01500, 274.43741,   8.50276,   7.93688,
     +    7.38265,   8.22686,   8.50681,
     +     .03511,    .01516, 285.28430,   8.92785,   8.36547,
     +    7.81469,   8.65354,   8.93186,
     +     .03541,    .01531, 295.95221,   9.35032,   8.79273,
     +    8.24712,   9.07751,   9.35429,
     +     .03571,    .01546, 306.11252,   9.75881,   9.20546,
     +    8.66443,   9.48741,   9.76274,
     +     .03600,    .01561, 316.39001,  10.17840,   9.62874,
     +    9.09154,   9.90841,  10.18229 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .02641,    .01136,   3.67464,    .66565,    .00000,
     +     .00000,    .34256,    .66891,
     +     .02673,    .01149,   5.55619,    .67785,    .00002,
     +     .00000,    .35720,    .68107,
     +     .02722,    .01168,   8.82843,    .70628,    .02574,
     +     .00000,    .38922,    .70946,
     +     .02758,    .01182,  11.59412,    .73598,    .06559,
     +     .00000,    .42150,    .73912,
     +     .02797,    .01198,  14.75583,    .77904,    .11224,
     +     .00000,    .46725,    .78215,
     +     .02830,    .01211,  17.88737,    .82261,    .16277,
     +     .00000,    .51311,    .82569,
     +     .02863,    .01224,  21.07447,    .87339,    .21639,
     +     .00000,    .56606,    .87643,
     +     .02897,    .01239,  24.76887,    .93548,    .28314,
     +     .00000,    .63044,    .93849 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .02928,    .01251,  28.24594,    .99670,    .34922,
     +     .00000,    .69361,    .99968,
     +     .02957,    .01264,  31.75870,   1.06336,    .41868,
     +     .00000,    .76214,   1.06631,
     +     .02981,    .01274,  34.70948,   1.12100,    .47918,
     +     .00000,    .82124,   1.12392,
     +     .03031,    .01296,  41.35928,   1.25920,    .62326,
     +     .00030,    .96252,   1.26207,
     +     .03075,    .01315,  47.51574,   1.39498,    .76573,
     +     .11899,   1.10090,   1.39781,
     +     .03124,    .01336,  54.78694,   1.56558,    .94447,
     +     .34150,   1.27437,   1.56837,
     +     .03176,    .01360,  62.75267,   1.76520,   1.14837,
     +     .54139,   1.47691,   1.76794,
     +     .03224,    .01381,  70.41783,   1.96497,   1.35314,
     +     .75199,   1.67926,   1.96766 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .03272,    .01403,  78.60638,   2.18559,   1.58060,
     +     .98999,   1.90245,   2.18824,
     +     .03312,    .01421,  85.65311,   2.38309,   1.78269,
     +    1.19660,   2.10203,   2.38570,
     +     .03361,    .01444,  94.49472,   2.63950,   2.04434,
     +    1.46386,   2.36094,   2.64207,
     +     .03405,    .01465, 102.70686,   2.88387,   2.29532,
     +    1.72344,   2.60746,   2.88640,
     +     .03445,    .01484, 110.32007,   3.11918,   2.53394,
     +    1.96455,   2.84472,   3.12167,
     +     .03496,    .01508, 120.36529,   3.43715,   2.85801,
     +    2.29553,   3.16511,   3.43960,
     +     .03545,    .01531, 130.15887,   3.75599,   3.18342,
     +    2.62854,   3.48620,   3.75840,
     +     .03590,    .01553, 139.39001,   4.06712,   3.49825,
     +    2.94664,   3.79938,   4.06949 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .03636,    .01575, 148.98409,   4.39678,   3.83379,
     +    3.28890,   4.13106,   4.39912,
     +     .03681,    .01598, 158.44194,   4.73135,   4.17252,
     +    3.63173,   4.46758,   4.73365,
     +     .03724,    .01619, 167.61710,   5.06259,   4.50855,
     +    3.97304,   4.80063,   5.06486,
     +     .03765,    .01639, 176.35620,   5.38533,   4.83524,
     +    4.30385,   5.12505,   5.38757,
     +     .03806,    .01659, 185.28952,   5.72150,   5.17582,
     +    4.64927,   5.46289,   5.72371,
     +     .03846,    .01680, 194.13322,   6.06148,   5.51954,
     +    4.99689,   5.80448,   6.06366,
     +     .03885,    .01699, 202.70367,   6.39631,   5.85864,
     +    5.34070,   6.14083,   6.39846,
     +     .03922,    .01718, 210.77374,   6.71825,   6.18355,
     +    5.66864,   6.46418,   6.72038 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .03959,    .01736, 219.17712,   7.05713,   6.52697,
     +    6.01722,   6.80448,   7.05924,
     +     .03996,    .01755, 227.27155,   7.39144,   6.86376,
     +    6.35647,   7.14016,   7.39353,
     +     .04032,    .01773, 235.21315,   7.72289,   7.19875,
     +    6.69535,   7.47290,   7.72495,
     +     .04065,    .01791, 242.75183,   8.04251,   7.52148,
     +    7.02150,   7.79373,   8.04454,
     +     .04100,    .01808, 250.35229,   8.36994,   7.85158,
     +    7.35441,   8.12239,   8.37196 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .02882,    .01235,   3.65016,    .61905,    .00000,
     +     .00000,    .31841,    .62097,
     +     .02918,    .01249,   5.41761,    .63145,    .00002,
     +     .00000,    .33303,    .63334,
     +     .02971,    .01272,   8.45714,    .65931,    .02465,
     +     .00000,    .36414,    .66116,
     +     .03011,    .01288,  11.00086,    .68776,    .06258,
     +     .00000,    .39493,    .68958,
     +     .03053,    .01307,  13.88844,    .72832,    .10650,
     +     .00000,    .43792,    .73010,
     +     .03090,    .01322,  16.72957,    .76909,    .15372,
     +     .00000,    .48076,    .77085,
     +     .03126,    .01338,  19.60587,    .81621,    .20351,
     +     .00000,    .52985,    .81794,
     +     .03164,    .01355,  22.92260,    .87352,    .26516,
     +     .00000,    .58922,    .87522 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .03198,    .01369,  26.02967,    .92977,    .32590,
     +     .00000,    .64723,    .93145,
     +     .03230,    .01384,  29.15546,    .99071,    .38945,
     +     .00000,    .70986,    .99237,
     +     .03256,    .01396,  31.77217,   1.04324,    .44463,
     +     .00000,    .76372,   1.04488,
     +     .03312,    .01421,  37.63966,   1.16862,    .57540,
     +     .00029,    .89188,   1.17022,
     +     .03361,    .01443,  43.03900,   1.29118,    .70400,
     +     .10727,   1.01679,   1.29275,
     +     .03415,    .01468,  49.37828,   1.44441,    .86450,
     +     .30734,   1.17261,   1.44594,
     +     .03473,    .01495,  56.28437,   1.62273,   1.04662,
     +     .48580,   1.35356,   1.62422,
     +     .03525,    .01520,  62.89569,   1.80035,   1.22864,
     +     .67299,   1.53352,   1.80182 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .03579,    .01545,  69.92533,   1.99570,   1.42996,
     +     .88367,   1.73118,   1.99713,
     +     .03623,    .01566,  75.94859,   2.16988,   1.60812,
     +    1.06579,   1.90725,   2.17128,
     +     .03677,    .01593,  83.47417,   2.39518,   1.83790,
     +    1.30048,   2.13479,   2.39655,
     +     .03726,    .01616,  90.43631,   2.60911,   2.05754,
     +    1.52764,   2.35067,   2.61046,
     +     .03770,    .01638,  96.86484,   2.81440,   2.26561,
     +    1.73783,   2.55771,   2.81572,
     +     .03827,    .01666, 105.31554,   3.09087,   2.54726,
     +    2.02547,   2.83637,   3.09216,
     +     .03881,    .01692, 113.52155,   3.36711,   2.82909,
     +    2.31387,   3.11463,   3.36838,
     +     .03931,    .01718, 121.22409,   3.63571,   3.10076,
     +    2.58830,   3.38509,   3.63696 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .03982,    .01743, 129.20363,   3.91948,   3.38949,
     +    2.88280,   3.67068,   3.92070,
     +     .04032,    .01768, 137.04033,   4.20656,   3.68002,
     +    3.17681,   3.95951,   4.20776,
     +     .04080,    .01793, 144.61890,   4.48999,   3.96746,
     +    3.46876,   4.24457,   4.49117,
     +     .04125,    .01816, 151.81448,   4.76541,   4.24616,
     +    3.75095,   4.52151,   4.76657,
     +     .04170,    .01839, 159.14885,   5.05158,   4.53601,
     +    4.04490,   4.80919,   5.05273,
     +     .04215,    .01862, 166.38780,   5.34026,   4.82779,
     +    4.33996,   5.09932,   5.34139,
     +     .04258,    .01884, 173.38519,   5.62393,   5.11501,
     +    4.63119,   5.38435,   5.62504,
     +     .04299,    .01905, 179.95418,   5.89604,   5.38956,
     +    4.90827,   5.65774,   5.89714 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .04340,    .01927, 186.78185,   6.18195,   5.67926,
     +    5.20235,   5.94492,   6.18303,
     +     .04381,    .01948, 193.33636,   6.46331,   5.96264,
     +    5.48776,   6.22752,   6.46438,
     +     .04420,    .01968, 199.75565,   6.74179,   6.24405,
     +    5.77245,   6.50716,   6.74285,
     +     .04458,    .01988, 205.83473,   7.00980,   6.51464,
     +    6.04591,   6.77627,   7.01085,
     +     .04496,    .02008, 211.94839,   7.28386,   6.79087,
     +    6.32448,   7.05142,   7.28489 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .03084,    .01317,   3.63092,    .58508,    .00000,
     +     .00000,    .30090,    .58618,
     +     .03123,    .01334,   5.31209,    .59758,    .00002,
     +     .00000,    .31546,    .59865,
     +     .03180,    .01359,   8.17921,    .62495,    .02383,
     +     .00000,    .34583,    .62598,
     +     .03223,    .01378,  10.56060,    .65246,    .06032,
     +     .00000,    .37550,    .65346,
     +     .03269,    .01398,  13.24936,    .69115,    .10223,
     +     .00000,    .41645,    .69213,
     +     .03309,    .01416,  15.88131,    .72987,    .14703,
     +     .00000,    .45709,    .73082,
     +     .03347,    .01434,  18.53496,    .77433,    .19401,
     +     .00000,    .50336,    .77526,
     +     .03389,    .01452,  21.58254,    .82816,    .25196,
     +     .00000,    .55910,    .82907 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .03425,    .01469,  24.42711,    .88081,    .30883,
     +     .00000,    .61339,    .88170,
     +     .03460,    .01485,  27.27947,    .93764,    .36813,
     +     .00000,    .67178,    .93850,
     +     .03488,    .01498,  29.66087,    .98650,    .41946,
     +     .00000,    .72186,    .98735,
     +     .03548,    .01527,  34.97985,   1.10269,    .54070,
     +     .00028,    .84063,   1.10351,
     +     .03601,    .01552,  39.85119,   1.21581,    .65942,
     +     .09895,    .95593,   1.21661,
     +     .03660,    .01580,  45.54391,   1.35670,    .80699,
     +     .28313,   1.09920,   1.35747,
     +     .03722,    .01610,  51.71860,   1.51994,    .97373,
     +     .44652,   1.26488,   1.52068,
     +     .03779,    .01637,  57.60577,   1.68196,   1.13975,
     +     .61731,   1.42906,   1.68268 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .03837,    .01666,  63.84251,   1.85956,   1.32276,
     +     .80890,   1.60879,   1.86025,
     +     .03885,    .01689,  69.16811,   2.01742,   1.48422,
     +     .97398,   1.76840,   2.01810,
     +     .03944,    .01719,  75.80003,   2.22101,   1.69184,
     +    1.18607,   1.97406,   2.22167,
     +     .03996,    .01745,  81.91624,   2.41379,   1.88974,
     +    1.39082,   2.16864,   2.41443,
     +     .04044,    .01769,  87.54590,   2.59827,   2.07669,
     +    1.57969,   2.35474,   2.59889,
     +     .04106,    .01800,  94.92479,   2.84607,   2.32911,
     +    1.83752,   2.60456,   2.84667,
     +     .04164,    .01830, 102.06748,   3.09297,   2.58098,
     +    2.09534,   2.85332,   3.09355,
     +     .04219,    .01858, 108.74973,   3.33238,   2.82309,
     +    2.33993,   3.09444,   3.33295 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .04274,    .01886, 115.65474,   3.58472,   3.07983,
     +    2.60187,   3.34847,   3.58527,
     +     .04328,    .01914, 122.41576,   3.83937,   3.33752,
     +    2.86268,   3.60474,   3.83991,
     +     .04379,    .01941, 128.93799,   4.09024,   3.59194,
     +    3.12114,   3.85711,   4.09077,
     +     .04428,    .01966, 135.11490,   4.33351,   3.83809,
     +    3.37042,   4.10178,   4.33403,
     +     .04477,    .01992, 141.39679,   4.58578,   4.09360,
     +    3.62961,   4.35544,   4.58629,
     +     .04526,    .02017, 147.58199,   4.83975,   4.35030,
     +    3.88925,   4.61076,   4.84026,
     +     .04572,    .02042, 153.54874,   5.08888,   4.60257,
     +    4.14510,   4.86115,   5.08938,
     +     .04616,    .02065, 159.13672,   5.32743,   4.84324,
     +    4.38803,   5.10087,   5.32792 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .04661,    .02089, 164.93646,   5.57770,   5.09687,
     +    4.64557,   5.35232,   5.57819,
     +     .04705,    .02112, 170.48869,   5.82353,   5.34445,
     +    4.89496,   5.59928,   5.82401,
     +     .04748,    .02135, 175.91905,   6.06650,   5.59001,
     +    5.14344,   5.84333,   6.06698,
     +     .04788,    .02156, 181.05157,   6.30000,   5.82577,
     +    5.38176,   6.07784,   6.30047,
     +     .04829,    .02178, 186.20313,   6.53839,   6.06609,
     +    5.62415,   6.31725,   6.53886 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .03809,    .01616,   3.56895,    .49072,    .00000,
     +     .00000,    .25270,    .49032,
     +     .03857,    .01640,   4.99408,    .50322,    .00002,
     +     .00000,    .26683,    .50281,
     +     .03930,    .01676,   7.36745,    .52886,    .02141,
     +     .00000,    .29485,    .52843,
     +     .03985,    .01703,   9.29438,    .55351,    .05374,
     +     .00000,    .32121,    .55306,
     +     .04042,    .01732,  11.43460,    .58688,    .08990,
     +     .00000,    .35636,    .58642,
     +     .04093,    .01758,  13.49646,    .61980,    .12782,
     +     .00000,    .39080,    .61932,
     +     .04142,    .01782,  15.54910,    .65682,    .16698,
     +     .00000,    .42925,    .65633,
     +     .04194,    .01809,  17.87669,    .70105,    .21465,
     +     .00000,    .47498,    .70055 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .04240,    .01833,  20.02466,    .74382,    .26086,
     +     .00000,    .51904,    .74331,
     +     .04285,    .01856,  22.15641,    .78939,    .30852,
     +     .00000,    .56585,    .78888,
     +     .04321,    .01874,  23.92123,    .82828,    .34943,
     +     .00000,    .60570,    .82776,
     +     .04398,    .01914,  27.81435,    .91966,    .44493,
     +     .00024,    .69911,    .91913,
     +     .04464,    .01949,  31.32617,   1.00748,    .53720,
     +     .07685,    .78864,   1.00695,
     +     .04540,    .01989,  35.36919,   1.11549,    .65044,
     +     .21896,    .89854,   1.11495,
     +     .04619,    .02031,  39.69390,   1.23892,    .77668,
     +     .34286,   1.02389,   1.23838,
     +     .04692,    .02070,  43.76435,   1.36002,    .90090,
     +     .47098,   1.14668,   1.35947 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .04766,    .02109,  48.02629,   1.49136,   1.03639,
     +     .61323,   1.27971,   1.49082,
     +     .04827,    .02142,  51.62602,   1.60698,   1.15475,
     +     .73452,   1.39669,   1.60644,
     +     .04903,    .02183,  56.06120,   1.75468,   1.30551,
     +     .88888,   1.54602,   1.75414,
     +     .04969,    .02219,  60.11106,   1.89329,   1.44795,
     +    1.03666,   1.68605,   1.89276,
     +     .05031,    .02252,  63.80042,   2.02478,   1.58133,
     +    1.17164,   1.81882,   2.02425,
     +     .05110,    .02295,  68.59129,   2.19995,   1.75994,
     +    1.35451,   1.99557,   2.19943,
     +     .05184,    .02336,  73.18208,   2.37293,   1.93661,
     +    1.53579,   2.17002,   2.37242,
     +     .05254,    .02374,  77.43040,   2.53920,   2.10490,
     +    1.70612,   2.33764,   2.53870 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .05325,    .02413,  81.78507,   2.71317,   2.28212,
     +    1.88736,   2.51293,   2.71268,
     +     .05394,    .02451,  86.00712,   2.88736,   2.45857,
     +    2.06629,   2.68839,   2.88688,
     +     .05460,    .02488,  90.04762,   3.05778,   2.63160,
     +    2.24247,   2.86000,   3.05731,
     +     .05522,    .02522,  93.84268,   3.22193,   2.79789,
     +    2.41121,   3.02525,   3.22148,
     +     .05585,    .02557,  97.67391,   3.39112,   2.96946,
     +    2.58563,   3.19552,   3.39068,
     +     .05647,    .02592, 101.41618,   3.56037,   3.14074,
     +    2.75922,   3.36583,   3.55995,
     +     .05707,    .02625, 105.00274,   3.72548,   3.30814,
     +    2.92938,   3.53193,   3.72506,
     +     .05763,    .02657, 108.33491,   3.88264,   3.46689,
     +    3.08992,   3.69001,   3.88223 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .05820,    .02688, 111.77772,   4.04679,   3.63350,
     +    3.25951,   3.85509,   4.04640,
     +     .05877,    .02720, 115.04256,   4.20701,   3.79505,
     +    3.42253,   4.01621,   4.20664,
     +     .05931,    .02750, 118.22214,   4.36472,   3.95466,
     +    3.58440,   4.17476,   4.36436,
     +     .05982,    .02779, 121.20779,   4.51553,   4.10716,
     +    3.73887,   4.32638,   4.51519,
     +     .06034,    .02809, 124.18467,   4.66878,   4.26184,
     +    3.89520,   4.48042,   4.66845 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .04708,    .02000,   3.50055,    .41161,    .00000,
     +     .00000,    .21286,    .41103,
     +     .04769,    .02034,   4.68720,    .42376,    .00002,
     +     .00000,    .22630,    .42317,
     +     .04862,    .02085,   6.62344,    .44744,    .01916,
     +     .00000,    .25188,    .44685,
     +     .04931,    .02123,   8.16161,    .46934,    .04768,
     +     .00000,    .27515,    .46876,
     +     .05005,    .02163,   9.84293,    .49798,    .07872,
     +     .00000,    .30521,    .49739,
     +     .05069,    .02199,  11.43691,    .52583,    .11066,
     +     .00000,    .33426,    .52524,
     +     .05132,    .02234,  13.00367,    .55650,    .14310,
     +     .00000,    .36608,    .55592,
     +     .05199,    .02271,  14.75741,    .59263,    .18207,
     +     .00000,    .40341,    .59205 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .05258,    .02304,  16.35716,    .62715,    .21937,
     +     .00000,    .43896,    .62658,
     +     .05315,    .02337,  17.92805,    .66346,    .25741,
     +     .00000,    .47625,    .66289,
     +     .05360,    .02363,  19.21733,    .69417,    .28978,
     +     .00000,    .50773,    .69361,
     +     .05459,    .02418,  22.02465,    .76546,    .36444,
     +     .00021,    .58064,    .76491,
     +     .05544,    .02467,  24.51690,    .83302,    .43557,
     +     .05934,    .64958,    .83249,
     +     .05641,    .02522,  27.34078,    .91504,    .52174,
     +     .16835,    .73309,    .91452,
     +     .05743,    .02580,  30.31759,   1.00739,    .61645,
     +     .26170,    .82698,   1.00690,
     +     .05836,    .02634,  33.08152,   1.09690,    .70853,
     +     .35716,    .91784,   1.09642 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .05930,    .02688,  35.94005,   1.19292,    .80786,
     +     .46203,   1.01521,   1.19247,
     +     .06009,    .02734,  38.32644,   1.27658,    .89375,
     +     .55048,   1.09996,   1.27615,
     +     .06106,    .02790,  41.23340,   1.38240,   1.00208,
     +     .66195,   1.20709,   1.38199,
     +     .06191,    .02839,  43.86008,   1.48080,   1.10350,
     +     .76773,   1.30662,   1.48042,
     +     .06270,    .02885,  46.22615,   1.57328,   1.19758,
     +     .86337,   1.40012,   1.57292,
     +     .06371,    .02944,  49.26821,   1.69543,   1.32252,
     +     .99192,   1.52355,   1.69511,
     +     .06466,    .02999,  52.15181,   1.81496,   1.44497,
     +    1.11820,   1.64425,   1.81466,
     +     .06556,    .03052,  54.78825,   1.92878,   1.56051,
     +    1.23565,   1.75915,   1.92852 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .06646,    .03104,  57.46760,   2.04698,   1.68130,
     +    1.35980,   1.87841,   2.04675,
     +     .06735,    .03156,  60.03704,   2.16434,   1.80055,
     +    1.48126,   1.99680,   2.16415,
     +     .06819,    .03205,  62.47474,   2.27835,   1.91667,
     +    1.60006,   2.11176,   2.27819,
     +     .06899,    .03252,  64.74339,   2.38740,   2.02748,
     +    1.71301,   2.22169,   2.38727,
     +     .06979,    .03299,  67.01519,   2.49907,   2.14109,
     +    1.82905,   2.33423,   2.49897,
     +     .07059,    .03346,  69.21439,   2.61005,   2.25374,
     +    1.94373,   2.44606,   2.60998,
     +     .07134,    .03390,  71.30714,   2.71768,   2.36323,
     +    2.05555,   2.55449,   2.71764,
     +     .07206,    .03432,  73.23340,   2.81948,   2.46638,
     +    2.16031,   2.65704,   2.81948 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .07279,    .03475,  75.21457,   2.92534,   2.57419,
     +    2.27058,   2.76364,   2.92536,
     +     .07351,    .03517,  77.07191,   3.02796,   2.67796,
     +    2.37573,   2.86699,   3.02802,
     +     .07419,    .03557,  78.87296,   3.12854,   2.78009,
     +    2.47979,   2.96825,   3.12863,
     +     .07485,    .03596,  80.55136,   3.22422,   2.87716,
     +    2.57856,   3.06458,   3.22434,
     +     .07551,    .03635,  82.21176,   3.32095,   2.97510,
     +    2.67797,   3.16196,   3.32111 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .05333,    .02282,   3.45503,    .37184,    .00000,
     +     .00000,    .19301,    .37157,
     +     .05404,    .02323,   4.51018,    .38365,    .00002,
     +     .00000,    .20595,    .38338,
     +     .05511,    .02385,   6.21358,    .40609,    .01790,
     +     .00000,    .23007,    .40584,
     +     .05591,    .02431,   7.55002,    .42644,    .04430,
     +     .00000,    .25163,    .42619,
     +     .05677,    .02481,   8.99736,    .45252,    .07259,
     +     .00000,    .27895,    .45228,
     +     .05751,    .02524,  10.35647,    .47766,    .10135,
     +     .00000,    .30516,    .47744,
     +     .05824,    .02567,  11.68228,    .50502,    .13028,
     +     .00000,    .33353,    .50481,
     +     .05901,    .02612,  13.15480,    .53698,    .16476,
     +     .00000,    .36654,    .53678 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .05969,    .02652,  14.48869,    .56729,    .19750,
     +     .00000,    .39777,    .56711,
     +     .06036,    .02691,  15.79009,    .59891,    .23067,
     +     .00000,    .43025,    .59874,
     +     .06089,    .02723,  16.85260,    .62552,    .25875,
     +     .00000,    .45754,    .62537,
     +     .06203,    .02790,  19.14765,    .68681,    .32304,
     +     .00019,    .52027,    .68669,
     +     .06302,    .02849,  21.16503,    .74442,    .38378,
     +     .05077,    .57908,    .74432,
     +     .06414,    .02916,  23.42813,    .81377,    .45677,
     +     .14366,    .64977,    .81370,
     +     .06532,    .02986,  25.79230,    .89117,    .53632,
     +     .22235,    .72852,    .89114,
     +     .06640,    .03050,  27.96894,    .96561,    .61309,
     +     .30227,    .80417,    .96562 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .06749,    .03116,  30.20295,   1.04495,    .69535,
     +     .38951,    .88469,   1.04499,
     +     .06841,    .03170,  32.05434,   1.11362,    .76604,
     +     .46261,    .95434,   1.11370,
     +     .06952,    .03237,  34.29350,   1.19997,    .85466,
     +     .55418,   1.04185,   1.20009,
     +     .07051,    .03297,  36.30355,   1.27981,    .93718,
     +     .64062,   1.12270,   1.27997,
     +     .07143,    .03352,  38.10107,   1.35443,   1.01327,
     +     .71828,   1.19822,   1.35462,
     +     .07260,    .03422,  40.39776,   1.45247,   1.11382,
     +     .82216,   1.29740,   1.45271,
     +     .07370,    .03488,  42.55990,   1.54786,   1.21182,
     +     .92365,   1.39383,   1.54814,
     +     .07474,    .03550,  44.52111,   1.63817,   1.30374,
     +    1.01745,   1.48511,   1.63850 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .07578,    .03613,  46.50364,   1.73154,   1.39942,
     +    1.11620,   1.57942,   1.73191,
     +     .07680,    .03674,  48.39109,   1.82377,   1.49338,
     +    1.21228,   1.67256,   1.82419,
     +     .07777,    .03733,  50.17185,   1.91297,   1.58449,
     +    1.30586,   1.76262,   1.91343,
     +     .07869,    .03788,  51.81911,   1.99792,   1.67105,
     +    1.39444,   1.84836,   1.99842,
     +     .07962,    .03844,  53.45995,   2.08456,   1.75945,
     +    1.48509,   1.93579,   2.08511,
     +     .08054,    .03899,  55.03883,   2.17032,   1.84674,
     +    1.57430,   2.02231,   2.17092,
     +     .08141,    .03951,  56.53437,   2.25319,   1.93128,
     +    1.66099,   2.10590,   2.25383,
     +     .08223,    .04001,  57.90223,   2.33127,   2.01061,
     +    1.74187,   2.18465,   2.33195 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .08307,    .04051,  59.30517,   2.41224,   2.09332,
     +    1.82681,   2.26628,   2.41296,
     +     .08390,    .04101,  60.60976,   2.49039,   2.17256,
     +    1.90741,   2.34508,   2.49115,
     +     .08469,    .04148,  61.87150,   2.56679,   2.25036,
     +    1.98699,   2.42210,   2.56760,
     +     .08544,    .04194,  63.04122,   2.63924,   2.32407,
     +    2.06229,   2.49513,   2.64008,
     +     .08621,    .04239,  64.19206,   2.71224,   2.39819,
     +    2.13781,   2.56870,   2.71312 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .05829,    .02519,   3.41885,    .34645,    .00000,
     +     .00000,    .18037,    .34648,
     +     .05908,    .02566,   4.38435,    .35797,    .00002,
     +     .00000,    .19293,    .35802,
     +     .06027,    .02637,   5.93159,    .37951,    .01701,
     +     .00000,    .21600,    .37958,
     +     .06116,    .02690,   7.13475,    .39876,    .04195,
     +     .00000,    .23635,    .39885,
     +     .06211,    .02747,   8.42916,    .42309,    .06836,
     +     .00000,    .26183,    .42320,
     +     .06294,    .02797,   9.63629,    .44641,    .09499,
     +     .00000,    .28613,    .44654,
     +     .06375,    .02846,  10.80740,    .47156,    .12159,
     +     .00000,    .31220,    .47172,
     +     .06461,    .02898,  12.10073,    .50076,    .15309,
     +     .00000,    .34237,    .50094 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .06537,    .02944,  13.26635,    .52831,    .18285,
     +     .00000,    .37075,    .52851,
     +     .06611,    .02989,  14.39820,    .55688,    .21285,
     +     .00000,    .40012,    .55710,
     +     .06670,    .03025,  15.31874,    .58083,    .23814,
     +     .00000,    .42469,    .58107,
     +     .06797,    .03102,  17.29532,    .63568,    .29575,
     +     .00018,    .48087,    .63596,
     +     .06908,    .03169,  19.01996,    .68692,    .34985,
     +     .04530,    .53322,    .68724,
     +     .07032,    .03245,  20.94017,    .74823,    .41448,
     +     .12793,    .59575,    .74859,
     +     .07163,    .03325,  22.93266,    .81620,    .48448,
     +     .19738,    .66497,    .81661,
     +     .07283,    .03398,  24.75556,    .88123,    .55166,
     +     .26758,    .73111,    .88168 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .07405,    .03473,  26.61585,    .95018,    .62330,
     +     .34384,    .80116,    .95068,
     +     .07507,    .03535,  28.14907,   1.00958,    .68458,
     +     .40742,    .86146,   1.01013,
     +     .07631,    .03611,  29.99335,   1.08395,    .76107,
     +     .48673,    .93690,   1.08455,
     +     .07741,    .03679,  31.64086,   1.15242,    .83200,
     +     .56131,   1.00631,   1.15307,
     +     .07843,    .03741,  33.10592,   1.21615,    .89713,
     +     .62800,   1.07087,   1.21684,
     +     .07973,    .03820,  34.96905,   1.29955,    .98287,
     +     .71690,   1.15533,   1.30031,
     +     .08095,    .03895,  36.71387,   1.38037,   1.06610,
     +     .80339,   1.23712,   1.38118,
     +     .08210,    .03965,  38.28684,   1.45656,   1.14382,
     +     .88297,   1.31420,   1.45743 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .08326,    .04036,  39.87045,   1.53506,   1.22446,
     +     .96649,   1.39358,   1.53598,
     +     .08439,    .04105,  41.36962,   1.61231,   1.30334,
     +    1.04742,   1.47168,   1.61329,
     +     .08547,    .04171,  42.77802,   1.68678,   1.37960,
     +    1.12601,   1.54694,   1.68781,
     +     .08649,    .04233,  44.07462,   1.75747,   1.45180,
     +    1.20016,   1.61837,   1.75856,
     +     .08751,    .04296,  45.36089,   1.82936,   1.52533,
     +    1.27582,   1.69099,   1.83050,
     +     .08852,    .04358,  46.59272,   1.90030,   1.59771,
     +    1.35004,   1.76264,   1.90149,
     +     .08949,    .04416,  47.75534,   1.96867,   1.66764,
     +    1.42200,   1.83168,   1.96992,
     +     .09040,    .04472,  48.81320,   2.03290,   1.73305,
     +    1.48891,   1.89653,   2.03419 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .09133,    .04528,  49.89605,   2.09936,   1.80112,
     +    1.55907,   1.96363,   2.10071,
     +     .09224,    .04584,  50.89618,   2.16331,   1.86612,
     +    1.62539,   2.02818,   2.16470,
     +     .09311,    .04637,  51.86161,   2.22570,   1.92982,
     +    1.69078,   2.09115,   2.22715,
     +     .09394,    .04687,  52.75280,   2.28472,   1.99002,
     +    1.75249,   2.15072,   2.28622,
     +     .09479,    .04738,  53.62564,   2.34405,   2.05041,
     +    1.81423,   2.21058,   2.34559 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .06245,    .02741,   3.38701,    .32919,    .00000,
     +     .00000,    .17156,    .32916,
     +     .06331,    .02794,   4.28560,    .34048,    .00002,
     +     .00000,    .18382,    .34047,
     +     .06462,    .02874,   5.71490,    .36129,    .01630,
     +     .00000,    .20604,    .36131,
     +     .06559,    .02934,   6.81785,    .37966,    .04009,
     +     .00000,    .22544,    .37971,
     +     .06663,    .02998,   7.99795,    .40263,    .06505,
     +     .00000,    .24947,    .40271,
     +     .06754,    .03053,   9.09228,    .42453,    .09006,
     +     .00000,    .27228,    .42465,
     +     .06842,    .03108,  10.14922,    .44798,    .11488,
     +     .00000,    .29659,    .44813,
     +     .06936,    .03166,  11.31107,    .47508,    .14415,
     +     .00000,    .32459,    .47526 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .07019,    .03217,  12.35384,    .50054,    .17167,
     +     .00000,    .35083,    .50075,
     +     .07100,    .03267,  13.36244,    .52682,    .19930,
     +     .00000,    .37785,    .52706,
     +     .07164,    .03307,  14.18015,    .54878,    .22253,
     +     .00000,    .40039,    .54905,
     +     .07302,    .03393,  15.92736,    .59887,    .27520,
     +     .00017,    .45171,    .59919,
     +     .07423,    .03468,  17.44253,    .64542,    .32441,
     +     .04127,    .49929,    .64579,
     +     .07559,    .03553,  19.11884,    .70086,    .38294,
     +     .11636,    .55587,    .70129,
     +     .07703,    .03641,  20.84862,    .76199,    .44599,
     +     .17908,    .61817,    .76248,
     +     .07834,    .03722,  22.42294,    .82021,    .50624,
     +     .24221,    .67743,    .82077 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07966,    .03805,  24.02194,    .88171,    .57025,
     +     .31053,    .73996,    .88232,
     +     .08077,    .03874,  25.33375,    .93449,    .62479,
     +     .36727,    .79358,    .93516,
     +     .08213,    .03957,  26.90449,   1.00032,    .69262,
     +     .43780,    .86041,   1.00105,
     +     .08333,    .04032,  28.30188,   1.06074,    .75532,
     +     .50390,    .92170,   1.06153,
     +     .08443,    .04100,  29.53856,   1.11677,    .81269,
     +     .56280,    .97852,   1.11762,
     +     .08584,    .04187,  31.10498,   1.18987,    .88798,
     +     .64107,   1.05261,   1.19079,
     +     .08718,    .04270,  32.56544,   1.26046,    .96082,
     +     .71699,   1.12411,   1.26146,
     +     .08843,    .04347,  33.87533,   1.32678,   1.02860,
     +     .78657,   1.19127,   1.32785 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08968,    .04424,  35.18961,   1.39493,   1.09874,
     +     .85942,   1.26024,   1.39606,
     +     .09091,    .04500,  36.42752,   1.46177,   1.16713,
     +     .92978,   1.32788,   1.46297,
     +     .09208,    .04572,  37.58620,   1.52604,   1.23307,
     +     .99793,   1.39289,   1.52730,
     +     .09319,    .04640,  38.64848,   1.58688,   1.29535,
     +    1.06205,   1.45443,   1.58820,
     +     .09430,    .04708,  39.69867,   1.64860,   1.35861,
     +    1.12734,   1.51684,   1.64999,
     +     .09540,    .04775,  40.70041,   1.70935,   1.42073,
     +    1.19121,   1.57826,   1.71081,
     +     .09644,    .04839,  41.64283,   1.76778,   1.48063,
     +    1.25302,   1.63732,   1.76929,
     +     .09743,    .04900,  42.49616,   1.82253,   1.53650,
     +    1.31034,   1.69265,   1.82410 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09843,    .04961,  43.36823,   1.87909,   1.59458,
     +    1.37037,   1.74982,   1.88073,
     +     .09942,    .05021,  44.16887,   1.93336,   1.64985,
     +    1.42692,   1.80465,   1.93505,
     +     .10036,    .05079,  44.94052,   1.98623,   1.70396,
     +    1.48262,   1.85807,   1.98798,
     +     .10126,    .05134,  45.65007,   2.03614,   1.75499,
     +    1.53509,   1.90850,   2.03795,
     +     .10217,    .05189,  46.34208,   2.08621,   1.80607,
     +    1.58746,   1.95908,   2.08807 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07765,    .03620,   3.26654,    .28212,    .00000,
     +     .00000,    .14771,    .28233,
     +     .07880,    .03696,   3.96859,    .29253,    .00002,
     +     .00000,    .15890,    .29280,
     +     .08053,    .03810,   5.06049,    .31093,    .01412,
     +     .00000,    .17846,    .31128,
     +     .08182,    .03894,   5.88319,    .32662,    .03444,
     +     .00000,    .19497,    .32703,
     +     .08320,    .03984,   6.74859,    .34557,    .05515,
     +     .00000,    .21479,    .34605,
     +     .08441,    .04063,   7.53677,    .36336,    .07545,
     +     .00000,    .23331,    .36389,
     +     .08558,    .04139,   8.28716,    .38199,    .09524,
     +     .00000,    .25264,    .38257,
     +     .08683,    .04221,   9.09976,    .40317,    .11823,
     +     .00000,    .27456,    .40382 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08793,    .04293,   9.81935,    .42280,    .13954,
     +     .00000,    .29483,    .42351,
     +     .08900,    .04362,  10.50655,    .44276,    .16065,
     +     .00000,    .31539,    .44353,
     +     .08985,    .04417,  11.05801,    .45928,    .17822,
     +     .00000,    .33239,    .46009,
     +     .09168,    .04536,  12.21699,    .49642,    .21752,
     +     .00015,    .37054,    .49733,
     +     .09328,    .04639,  13.20138,    .53037,    .25366,
     +     .03049,    .40535,    .53137,
     +     .09508,    .04755,  14.26712,    .57018,    .29598,
     +     .08555,    .44611,    .57128,
     +     .09696,    .04876,  15.34634,    .61333,    .34082,
     +     .13059,    .49023,    .61454,
     +     .09868,    .04986,  16.31122,    .65383,    .38307,
     +     .17535,    .53159,    .65515 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .10043,    .05097,  17.27557,    .69604,    .42737,
     +     .22319,    .57467,    .69747,
     +     .10188,    .05190,  18.05412,    .73183,    .46466,
     +     .26241,    .61117,    .73335,
     +     .10365,    .05302,  18.97165,    .77594,    .51050,
     +     .31061,    .65612,    .77757,
     +     .10522,    .05401,  19.77653,    .81597,    .55242,
     +     .35532,    .69690,    .81770,
     +     .10666,    .05492,  20.47666,    .85268,    .59033,
     +     .39467,    .73427,    .85450,
     +     .10849,    .05608,  21.35129,    .90007,    .63960,
     +     .44648,    .78251,    .90202,
     +     .11022,    .05716,  22.15410,    .94533,    .68674,
     +     .49620,    .82855,    .94739,
     +     .11184,    .05817,  22.86003,    .98735,    .73009,
     +     .54119,    .87128,    .98952 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11346,    .05918,  23.55998,   1.03014,    .77457,
     +     .58794,    .91478,   1.03241,
     +     .11505,    .06017,  24.20711,   1.07166,    .81747,
     +     .63259,    .95699,   1.07405,
     +     .11656,    .06110,  24.80476,   1.11124,    .85848,
     +     .67549,    .99721,   1.11372,
     +     .11797,    .06198,  25.34412,   1.14837,    .89688,
     +     .71549,   1.03494,   1.15095,
     +     .11940,    .06286,  25.87028,   1.18573,    .93558,
     +     .75591,   1.07291,   1.18841,
     +     .12080,    .06372,  26.36407,   1.22219,    .97325,
     +     .79512,   1.10995,   1.22497,
     +     .12213,    .06453,  26.82324,   1.25700,   1.00933,
     +     .83281,   1.14531,   1.25987,
     +     .12339,    .06530,  27.23119,   1.28934,   1.04269,
     +     .86746,   1.17817,   1.29230 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12466,    .06608,  27.64592,   1.32258,   1.07721,
     +     .90359,   1.21194,   1.32564,
     +     .12591,    .06684,  28.01666,   1.35416,   1.10973,
     +     .93728,   1.24401,   1.35730,
     +     .12711,    .06757,  28.37215,   1.38477,   1.14142,
     +     .97032,   1.27511,   1.38800,
     +     .12824,    .06825,  28.69380,   1.41346,   1.17110,
     +    1.00123,   1.30426,   1.41678,
     +     .12939,    .06894,  29.00194,   1.44204,   1.20061,
     +    1.03187,   1.33329,   1.44544 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09746,    .04950,   3.09228,    .24546,    .00000,
     +     .00000,    .12887,    .24607,
     +     .09903,    .05057,   3.61674,    .25469,    .00002,
     +     .00000,    .13875,    .25540,
     +     .10141,    .05217,   4.41226,    .27038,    .01189,
     +     .00000,    .15540,    .27124,
     +     .10318,    .05335,   4.99614,    .28329,    .02877,
     +     .00000,    .16902,    .28427,
     +     .10506,    .05461,   5.59921,    .29839,    .04546,
     +     .00000,    .18484,    .29949,
     +     .10670,    .05570,   6.13801,    .31231,    .06149,
     +     .00000,    .19940,    .31353,
     +     .10829,    .05675,   6.64283,    .32657,    .07680,
     +     .00000,    .21426,    .32790,
     +     .10999,    .05787,   7.18058,    .34253,    .09431,
     +     .00000,    .23085,    .34398 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11148,    .05885,   7.64975,    .35710,    .11030,
     +     .00000,    .24597,    .35865,
     +     .11292,    .05979,   8.09136,    .37169,    .12592,
     +     .00000,    .26109,    .37334,
     +     .11407,    .06054,   8.44169,    .38363,    .13879,
     +     .00000,    .27345,    .38538,
     +     .11654,    .06214,   9.16375,    .41008,    .16714,
     +     .00012,    .30078,    .41200,
     +     .11869,    .06352,   9.76187,    .43383,    .19276,
     +     .02183,    .32529,    .43591,
     +     .12109,    .06506,  10.39209,    .46121,    .22228,
     +     .06092,    .35351,    .46347,
     +     .12361,    .06666,  11.01596,    .49034,    .25299,
     +     .09220,    .38350,    .49279,
     +     .12589,    .06811,  11.56168,    .51724,    .28148,
     +     .12284,    .41118,    .51987 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12820,    .06956,  12.09645,    .54487,    .31094,
     +     .15516,    .43959,    .54768,
     +     .13012,    .07076,  12.51949,    .56798,    .33540,
     +     .18129,    .46333,    .57094,
     +     .13245,    .07221,  13.00779,    .59607,    .36508,
     +     .21300,    .49219,    .59921,
     +     .13450,    .07348,  13.42860,    .62126,    .39191,
     +     .24209,    .51806,    .62456,
     +     .13638,    .07464,  13.78593,    .64405,    .41585,
     +     .26734,    .54146,    .64750,
     +     .13877,    .07611,  14.22437,    .67313,    .44663,
     +     .30025,    .57131,    .67678,
     +     .14101,    .07747,  14.61852,    .70055,    .47573,
     +     .33146,    .59946,    .70438,
     +     .14309,    .07874,  14.95473,    .72566,    .50211,
     +     .35932,    .62523,    .72966 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14518,    .08000,  15.28289,    .75097,    .52894,
     +     .38801,    .65120,    .75514,
     +     .14721,    .08122,  15.57776,    .77521,    .55449,
     +     .41507,    .67609,    .77955,
     +     .14913,    .08237,  15.84472,    .79808,    .57869,
     +     .44085,    .69957,    .80258,
     +     .15093,    .08344,  16.07956,    .81931,    .60110,
     +     .46464,    .72136,    .82395,
     +     .15273,    .08451,  16.30390,    .84048,    .62350,
     +     .48847,    .74309,    .84527,
     +     .15450,    .08555,  16.50867,    .86091,    .64508,
     +     .51136,    .76408,    .86584,
     +     .15618,    .08654,  16.69555,    .88026,    .66559,
     +     .53321,    .78395,    .88533,
     +     .15775,    .08746,  16.85576,    .89803,    .68436,
     +     .55308,    .80222,    .90324 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .15935,    .08839,  17.01774,    .91621,    .70368,
     +     .57372,    .82089,    .92155,
     +     .16090,    .08929,  17.15468,    .93324,    .72165,
     +     .59271,    .83840,    .93871,
     +     .16238,    .09016,  17.28525,    .94967,    .73908,
     +     .61126,    .85529,    .95526,
     +     .16379,    .09097,  17.39945,    .96492,    .75527,
     +     .62848,    .87098,    .97064,
     +     .16520,    .09178,  17.50457,    .97997,    .77122,
     +     .64540,    .88647,    .98581 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11223,    .06028,   2.95588,    .22769,    .00000,
     +     .00000,    .11969,    .22881,
     +     .11415,    .06157,   3.38585,    .23606,    .00002,
     +     .00000,    .12867,    .23733,
     +     .11704,    .06351,   4.02793,    .25001,    .01058,
     +     .00000,    .14353,    .25149,
     +     .11919,    .06493,   4.49141,    .26126,    .02545,
     +     .00000,    .15545,    .26291,
     +     .12146,    .06642,   4.96459,    .27416,    .03992,
     +     .00000,    .16906,    .27600,
     +     .12345,    .06772,   5.38232,    .28595,    .05364,
     +     .00000,    .18145,    .28795,
     +     .12536,    .06897,   5.76966,    .29786,    .06658,
     +     .00000,    .19394,    .30001,
     +     .12741,    .07029,   6.17795,    .31105,    .08125,
     +     .00000,    .20774,    .31337 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12920,    .07144,   6.53079,    .32299,    .09452,
     +     .00000,    .22021,    .32545,
     +     .13093,    .07254,   6.85965,    .33482,    .10737,
     +     .00000,    .23257,    .33744,
     +     .13231,    .07342,   7.11856,    .34446,    .11789,
     +     .00000,    .24260,    .34718,
     +     .13526,    .07529,   7.64496,    .36557,    .14086,
     +     .00011,    .26458,    .36855,
     +     .13781,    .07689,   8.07327,    .38433,    .16139,
     +     .01764,    .28409,    .38752,
     +     .14067,    .07868,   8.51552,    .40573,    .18481,
     +     .04904,    .30631,    .40916,
     +     .14364,    .08052,   8.94620,    .42821,    .20889,
     +     .07383,    .32964,    .43190,
     +     .14634,    .08217,   9.31690,    .44876,    .23101,
     +     .09791,    .35096,    .45268 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .14905,    .08383,   9.67488,    .46967,    .25368,
     +     .12308,    .37264,    .47383,
     +     .15130,    .08519,   9.95358,    .48700,    .27235,
     +     .14327,    .39061,    .49135,
     +     .15401,    .08682,  10.27026,    .50787,    .29481,
     +     .16756,    .41225,    .51246,
     +     .15641,    .08825,  10.53957,    .52644,    .31496,
     +     .18969,    .43150,    .53125,
     +     .15859,    .08955,  10.76338,    .54309,    .33278,
     +     .20874,    .44876,    .54809,
     +     .16135,    .09118,  11.03398,    .56418,    .35554,
     +     .23340,    .47062,    .56942,
     +     .16394,    .09269,  11.27297,    .58388,    .37688,
     +     .25661,    .49106,    .58936,
     +     .16633,    .09409,  11.47102,    .60175,    .39606,
     +     .27714,    .50959,    .60743 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .16872,    .09548,  11.66181,    .61963,    .41544,
     +     .29817,    .52815,    .62553,
     +     .17104,    .09681,  11.82853,    .63662,    .43374,
     +     .31785,    .54579,    .64272,
     +     .17322,    .09806,  11.97657,    .65253,    .45097,
     +     .33648,    .56231,    .65882,
     +     .17526,    .09922,  12.10328,    .66717,    .46681,
     +     .35356,    .57753,    .67365,
     +     .17731,    .10038,  12.22164,    .68168,    .48255,
     +     .37058,    .59261,    .68834,
     +     .17930,    .10150,  12.32626,    .69558,    .49761,
     +     .38682,    .60708,    .70243,
     +     .18119,    .10256,  12.41973,    .70867,    .51185,
     +     .40224,    .62070,    .71568,
     +     .18295,    .10354,  12.49616,    .72059,    .52478,
     +     .41617,    .63312,    .72776 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .18474,    .10453,  12.57316,    .73273,    .53806,
     +     .43060,    .64578,    .74007,
     +     .18646,    .10549,  12.63289,    .74399,    .55029,
     +     .44376,    .65752,    .75148,
     +     .18812,    .10640,  12.68959,    .75481,    .56212,
     +     .45659,    .66882,    .76245,
     +     .18967,    .10725,  12.73651,    .76480,    .57305,
     +     .46843,    .67925,    .77257,
     +     .19123,    .10810,  12.77667,    .77457,    .58374,
     +     .47999,    .68947,    .78249 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12476,    .06976,   2.83957,    .21646,    .00000,
     +     .00000,    .11386,    .21818,
     +     .12698,    .07122,   3.20719,    .22415,    .00002,
     +     .00000,    .12216,    .22606,
     +     .13032,    .07340,   3.74968,    .23677,    .00963,
     +     .00000,    .13569,    .23896,
     +     .13279,    .07500,   4.13629,    .24681,    .02310,
     +     .00000,    .14641,    .24922,
     +     .13541,    .07667,   4.52748,    .25818,    .03604,
     +     .00000,    .15848,    .26083,
     +     .13768,    .07813,   4.86979,    .26849,    .04820,
     +     .00000,    .16940,    .27134,
     +     .13988,    .07951,   5.18459,    .27881,    .05957,
     +     .00000,    .18030,    .28186,
     +     .14221,    .08098,   5.51372,    .29015,    .07237,
     +     .00000,    .19226,    .29341 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14426,    .08226,   5.79605,    .30035,    .08388,
     +     .00000,    .20300,    .30379,
     +     .14623,    .08348,   6.05711,    .31040,    .09496,
     +     .00000,    .21357,    .31402,
     +     .14779,    .08445,   6.26144,    .31853,    .10397,
     +     .00000,    .22211,    .32230,
     +     .15113,    .08650,   6.67215,    .33624,    .12353,
     +     .00010,    .24070,    .34031,
     +     .15402,    .08826,   7.00135,    .35183,    .14088,
     +     .01500,    .25705,    .35617,
     +     .15724,    .09021,   7.33535,    .36948,    .16052,
     +     .04161,    .27554,    .37411,
     +     .16058,    .09220,   7.65597,    .38785,    .18053,
     +     .06240,    .29478,    .39279,
     +     .16359,    .09399,   7.92813,    .40450,    .19878,
     +     .08246,    .31221,    .40972 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .16663,    .09577,   8.18762,    .42132,    .21736,
     +     .10331,    .32983,    .42683,
     +     .16913,    .09723,   8.38670,    .43516,    .23256,
     +     .11992,    .34433,    .44090,
     +     .17214,    .09898,   8.60947,    .45172,    .25073,
     +     .13978,    .36168,    .45775,
     +     .17480,    .10050,   8.79659,    .46636,    .26695,
     +     .15779,    .37701,    .47263,
     +     .17720,    .10188,   8.94884,    .47939,    .28119,
     +     .17318,    .39067,    .48588,
     +     .18024,    .10360,   9.13028,    .49578,    .29928,
     +     .19302,    .40786,    .50257,
     +     .18308,    .10520,   9.28762,    .51100,    .31614,
     +     .21158,    .42383,    .51805,
     +     .18570,    .10666,   9.41394,    .52468,    .33118,
     +     .22788,    .43820,    .53198 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .18830,    .10810,   9.53394,    .53831,    .34631,
     +     .24452,    .45253,    .54585,
     +     .19082,    .10949,   9.63525,    .55114,    .36050,
     +     .25998,    .46604,    .55892,
     +     .19319,    .11079,   9.72315,    .56310,    .37380,
     +     .27456,    .47863,    .57110,
     +     .19540,    .11198,   9.79576,    .57403,    .38596,
     +     .28785,    .49015,    .58224,
     +     .19760,    .11317,   9.86156,    .58480,    .39798,
     +     .30104,    .50152,    .59321,
     +     .19974,    .11432,   9.91700,    .59505,    .40942,
     +     .31356,    .51235,    .60366,
     +     .20177,    .11540,   9.96498,    .60465,    .42019,
     +     .32541,    .52251,    .61346,
     +     .20365,    .11640,  10.00108,    .61333,    .42991,
     +     .33606,    .53170,    .62231 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .20556,    .11741,  10.03737,    .62215,    .43988,
     +     .34706,    .54105,    .63131,
     +     .20740,    .11837,  10.06075,    .63024,    .44897,
     +     .35702,    .54964,    .63957,
     +     .20915,    .11929,  10.08285,    .63800,    .45776,
     +     .36671,    .55789,    .64749,
     +     .21080,    .12014,  10.09860,    .64511,    .46583,
     +     .37562,    .56547,    .65476,
     +     .21244,    .12099,  10.10903,    .65203,    .47369,
     +     .38428,    .57284,    .66183 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13600,    .07834,   2.73733,    .20832,    .00000,
     +     .00000,    .10967,    .21071,
     +     .13849,    .07993,   3.05947,    .21543,    .00002,
     +     .00000,    .11741,    .21805,
     +     .14223,    .08231,   3.53025,    .22698,    .00890,
     +     .00000,    .12989,    .22995,
     +     .14499,    .08405,   3.86220,    .23607,    .02129,
     +     .00000,    .13967,    .23931,
     +     .14790,    .08587,   4.19566,    .24627,    .03309,
     +     .00000,    .15058,    .24979,
     +     .15043,    .08744,   4.48534,    .25546,    .04408,
     +     .00000,    .16040,    .25922,
     +     .15287,    .08893,   4.74985,    .26459,    .05431,
     +     .00000,    .17013,    .26858,
     +     .15545,    .09051,   5.02451,    .27457,    .06575,
     +     .00000,    .18074,    .27881 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .15771,    .09188,   5.25862,    .28349,    .07598,
     +     .00000,    .19023,    .28795,
     +     .15988,    .09319,   5.47366,    .29223,    .08577,
     +     .00000,    .19950,    .29690,
     +     .16160,    .09422,   5.64112,    .29928,    .09372,
     +     .00000,    .20698,    .30412,
     +     .16528,    .09641,   5.97425,    .31454,    .11086,
     +     .00009,    .22314,    .31973,
     +     .16844,    .09827,   6.23765,    .32789,    .12598,
     +     .01315,    .23727,    .33339,
     +     .17197,    .10033,   6.50071,    .34289,    .14297,
     +     .03638,    .25314,    .34873,
     +     .17560,    .10243,   6.74953,    .35838,    .16018,
     +     .05440,    .26953,    .36458,
     +     .17888,    .10430,   6.95821,    .37233,    .17577,
     +     .07169,    .28430,    .37885 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .18217,    .10617,   7.15481,    .38634,    .19156,
     +     .08957,    .29913,    .39318,
     +     .18488,    .10769,   7.30336,    .39779,    .20440,
     +     .10373,    .31126,    .40490,
     +     .18812,    .10949,   7.46692,    .41141,    .21968,
     +     .12060,    .32570,    .41884,
     +     .19098,    .11108,   7.60256,    .42339,    .23325,
     +     .13582,    .33840,    .43109,
     +     .19356,    .11249,   7.71055,    .43398,    .24510,
     +     .14876,    .34964,    .44193,
     +     .19680,    .11426,   7.83716,    .44723,    .26009,
     +     .16537,    .36373,    .45550,
     +     .19984,    .11589,   7.94465,    .45946,    .27399,
     +     .18084,    .37674,    .46803,
     +     .20262,    .11738,   8.02771,    .47037,    .28631,
     +     .19435,    .38836,    .47921 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .20539,    .11885,   8.10530,    .48118,    .29865,
     +     .20810,    .39990,    .49029,
     +     .20805,    .12025,   8.16770,    .49130,    .31017,
     +     .22080,    .41071,    .50066,
     +     .21055,    .12155,   8.22018,    .50067,    .32092,
     +     .23273,    .42074,    .51028,
     +     .21287,    .12276,   8.26134,    .50919,    .33069,
     +     .24357,    .42988,    .51903,
     +     .21518,    .12395,   8.29673,    .51754,    .34032,
     +     .25428,    .43885,    .52760,
     +     .21742,    .12509,   8.32387,    .52544,    .34944,
     +     .26441,    .44734,    .53570,
     +     .21953,    .12617,   8.34589,    .53280,    .35800,
     +     .27396,    .45528,    .54326,
     +     .22149,    .12716,   8.35932,    .53940,    .36568,
     +     .28250,    .46242,    .55006 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .22348,    .12816,   8.37279,    .54611,    .37354,
     +     .29132,    .46966,    .55695,
     +     .22538,    .12910,   8.37614,    .55218,    .38066,
     +     .29925,    .47626,    .56320,
     +     .22720,    .13000,   8.37924,    .55799,    .38753,
     +     .30695,    .48258,    .56919,
     +     .22890,    .13084,   8.37810,    .56329,    .39381,
     +     .31400,    .48836,    .57465,
     +     .23059,    .13167,   8.37267,    .56840,    .39989,
     +     .32083,    .49395,    .57993 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15623,    .09367,   2.56251,    .19662,    .00000,
     +     .00000,    .10375,    .20056,
     +     .15918,    .09547,   2.82122,    .20280,    .00002,
     +     .00000,    .11060,    .20704,
     +     .16360,    .09813,   3.19341,    .21266,    .00781,
     +     .00000,    .12146,    .21737,
     +     .16685,    .10006,   3.45126,    .22031,    .01860,
     +     .00000,    .12985,    .22536,
     +     .17026,    .10207,   3.70708,    .22876,    .02873,
     +     .00000,    .13907,    .23417,
     +     .17322,    .10380,   3.92676,    .23631,    .03807,
     +     .00000,    .14729,    .24202,
     +     .17605,    .10544,   4.12498,    .24372,    .04666,
     +     .00000,    .15535,    .24972,
     +     .17905,    .10717,   4.32838,    .25175,    .05620,
     +     .00000,    .16406,    .25807 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .18167,    .10865,   4.49986,    .25886,    .06466,
     +     .00000,    .17178,    .26546,
     +     .18417,    .11007,   4.65552,    .26577,    .07270,
     +     .00000,    .17927,    .27263,
     +     .18615,    .11118,   4.77569,    .27131,    .07917,
     +     .00000,    .18527,    .27838,
     +     .19035,    .11353,   5.01025,    .28318,    .09304,
     +     .00008,    .19812,    .29069,
     +     .19395,    .11551,   5.19099,    .29345,    .10513,
     +     .01064,    .20923,    .30133,
     +     .19795,    .11769,   5.36580,    .30487,    .11861,
     +     .02933,    .22159,    .31316,
     +     .20205,    .11990,   5.52675,    .31651,    .13209,
     +     .04366,    .23420,    .32523,
     +     .20571,    .12185,   5.65819,    .32686,    .14420,
     +     .05729,    .24544,    .33596 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .20938,    .12378,   5.77892,    .33715,    .15635,
     +     .07127,    .25662,    .34663,
     +     .21238,    .12535,   5.86727,    .34548,    .16615,
     +     .08226,    .26568,    .35527,
     +     .21596,    .12720,   5.96103,    .35528,    .17771,
     +     .09524,    .27635,    .36543,
     +     .21910,    .12881,   6.03654,    .36381,    .18789,
     +     .10687,    .28566,    .37428,
     +     .22192,    .13023,   6.09316,    .37126,    .19671,
     +     .11668,    .29382,    .38202,
     +     .22545,    .13200,   6.15681,    .38050,    .20777,
     +     .12919,    .30395,    .39162,
     +     .22873,    .13363,   6.20774,    .38894,    .21795,
     +     .14075,    .31322,    .40039,
     +     .23172,    .13510,   6.24225,    .39635,    .22687,
     +     .15075,    .32141,    .40810 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .23468,    .13654,   6.27265,    .40364,    .23576,
     +     .16086,    .32947,    .41569,
     +     .23752,    .13790,   6.29253,    .41037,    .24398,
     +     .17014,    .33694,    .42269,
     +     .24016,    .13916,   6.30657,    .41654,    .25158,
     +     .17880,    .34381,    .42912,
     +     .24260,    .14032,   6.31385,    .42208,    .25845,
     +     .18661,    .35001,    .43490,
     +     .24503,    .14145,   6.31699,    .42745,    .26516,
     +     .19428,    .35604,    .44051,
     +     .24737,    .14254,   6.31475,    .43246,    .27147,
     +     .20148,    .36169,    .44575,
     +     .24957,    .14355,   6.31000,    .43709,    .27735,
     +     .20823,    .36693,    .45060,
     +     .25160,    .14447,   6.30034,    .44118,    .28258,
     +     .21423,    .37158,    .45487 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .25365,    .14540,   6.29067,    .44531,    .28791,
     +     .22040,    .37629,    .45920,
     +     .25559,    .14627,   6.27418,    .44897,    .29268,
     +     .22589,    .38050,    .46304,
     +     .25745,    .14709,   6.25853,    .45246,    .29727,
     +     .23121,    .38453,    .46671,
     +     .25918,    .14786,   6.24104,    .45559,    .30143,
     +     .23605,    .38816,    .47001,
     +     .26089,    .14860,   6.22059,    .45857,    .30542,
     +     .24070,    .39164,    .47314 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18343,    .11361,   2.35044,    .18437,    .00000,
     +     .00000,    .09777,    .19095,
     +     .18695,    .11558,   2.54917,    .18947,    .00001,
     +     .00000,    .10362,    .19645,
     +     .19219,    .11849,   2.82971,    .19747,    .00667,
     +     .00000,    .11275,    .20505,
     +     .19601,    .12058,   3.01995,    .20357,    .01583,
     +     .00000,    .11969,    .21158,
     +     .20000,    .12274,   3.20560,    .21021,    .02429,
     +     .00000,    .12719,    .21867,
     +     .20345,    .12459,   3.36282,    .21607,    .03201,
     +     .00000,    .13381,    .22492,
     +     .20673,    .12633,   3.50246,    .22175,    .03902,
     +     .00000,    .14022,    .23097,
     +     .21019,    .12814,   3.64367,    .22785,    .04674,
     +     .00000,    .14709,    .23745 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .21319,    .12970,   3.76109,    .23320,    .05352,
     +     .00000,    .15312,    .24314,
     +     .21605,    .13118,   3.86585,    .23834,    .05991,
     +     .00000,    .15890,    .24859,
     +     .21830,    .13233,   3.94577,    .24243,    .06502,
     +     .00000,    .16351,    .25293,
     +     .22306,    .13474,   4.09757,    .25110,    .07586,
     +     .00007,    .17327,    .26212,
     +     .22711,    .13676,   4.21002,    .25850,    .08521,
     +     .00833,    .18161,    .26996,
     +     .23158,    .13897,   4.31307,    .26661,    .09551,
     +     .02290,    .19076,    .27855,
     +     .23610,    .14117,   4.40362,    .27474,    .10569,
     +     .03391,    .19996,    .28716,
     +     .24013,    .14310,   4.47404,    .28186,    .11471,
     +     .04428,    .20805,    .29470 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .24414,    .14499,   4.53566,    .28884,    .12369,
     +     .05482,    .21601,    .30211,
     +     .24739,    .14651,   4.57776,    .29440,    .13085,
     +     .06303,    .22238,    .30801,
     +     .25125,    .14828,   4.61874,    .30085,    .13920,
     +     .07263,    .22979,    .31486,
     +     .25460,    .14981,   4.64935,    .30640,    .14651,
     +     .08118,    .23619,    .32076,
     +     .25759,    .15115,   4.66809,    .31116,    .15275,
     +     .08831,    .24171,    .32581,
     +     .26131,    .15280,   4.68606,    .31698,    .16052,
     +     .09733,    .24850,    .33201,
     +     .26474,    .15431,   4.69670,    .32221,    .16760,
     +     .10560,    .25464,    .33758,
     +     .26784,    .15563,   4.69746,    .32670,    .17372,
     +     .11267,    .25995,    .34237 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .27090,    .15693,   4.69547,    .33105,    .17978,
     +     .11979,    .26514,    .34703,
     +     .27379,    .15814,   4.68681,    .33499,    .18530,
     +     .12623,    .26987,    .35124,
     +     .27647,    .15925,   4.67544,    .33854,    .19037,
     +     .13221,    .27416,    .35504,
     +     .27894,    .16025,   4.66075,    .34165,    .19490,
     +     .13756,    .27798,    .35839,
     +     .28136,    .16123,   4.64333,    .34462,    .19929,
     +     .14277,    .28165,    .36159,
     +     .28368,    .16215,   4.62280,    .34731,    .20336,
     +     .14762,    .28502,    .36450,
     +     .28585,    .16300,   4.60177,    .34977,    .20713,
     +     .15214,    .28812,    .36716,
     +     .28783,    .16376,   4.57864,    .35186,    .21044,
     +     .15611,    .29081,    .36943 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .28983,    .16453,   4.55559,    .35397,    .21380,
     +     .16019,    .29353,    .37173,
     +     .29170,    .16522,   4.52847,    .35574,    .21674,
     +     .16377,    .29588,    .37366,
     +     .29348,    .16588,   4.50287,    .35741,    .21957,
     +     .16722,    .29811,    .37549,
     +     .29513,    .16648,   4.47700,    .35887,    .22210,
     +     .17034,    .30010,    .37709,
     +     .29675,    .16706,   4.44919,    .36020,    .22450,
     +     .17330,    .30195,    .37856 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .22454,    .14158,   2.08130,    .16926,    .00000,
     +     .00000,    .09086,    .18090,
     +     .22873,    .14364,   2.22157,    .17305,    .00001,
     +     .00000,    .09554,    .18519,
     +     .23492,    .14664,   2.41443,    .17888,    .00544,
     +     .00000,    .10270,    .19176,
     +     .23940,    .14878,   2.54109,    .18325,    .01284,
     +     .00000,    .10805,    .19664,
     +     .24402,    .15096,   2.66169,    .18790,    .01956,
     +     .00000,    .11372,    .20182,
     +     .24800,    .15280,   2.76185,    .19196,    .02560,
     +     .00000,    .11865,    .20633,
     +     .25174,    .15452,   2.84857,    .19582,    .03101,
     +     .00000,    .12336,    .21062,
     +     .25566,    .15629,   2.93419,    .19991,    .03691,
     +     .00000,    .12833,    .21515 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .25903,    .15781,   3.00378,    .20346,    .04203,
     +     .00000,    .13265,    .21907,
     +     .26222,    .15921,   3.06404,    .20681,    .04680,
     +     .00000,    .13675,    .22276,
     +     .26473,    .16031,   3.10911,    .20945,    .05059,
     +     .00000,    .13998,    .22568,
     +     .26996,    .16256,   3.19027,    .21496,    .05852,
     +     .00006,    .14672,    .23174,
     +     .27437,    .16443,   3.24557,    .21956,    .06527,
     +     .00613,    .15238,    .23681,
     +     .27919,    .16644,   3.28989,    .22449,    .07260,
     +     .01678,    .15849,    .24225,
     +     .28399,    .16839,   3.32400,    .22931,    .07971,
     +     .02468,    .16450,    .24754,
     +     .28823,    .17007,   3.34645,    .23341,    .08593,
     +     .03204,    .16968,    .25207 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .29240,    .17170,   3.36241,    .23734,    .09204,
     +     .03943,    .17469,    .25642,
     +     .29573,    .17298,   3.36944,    .24040,    .09684,
     +     .04511,    .17863,    .25979,
     +     .29964,    .17444,   3.37113,    .24384,    .10236,
     +     .05169,    .18312,    .26361,
     +     .30301,    .17568,   3.36895,    .24674,    .10714,
     +     .05749,    .18694,    .26682,
     +     .30596,    .17674,   3.36099,    .24912,    .11115,
     +     .06226,    .19014,    .26947,
     +     .30961,    .17801,   3.34725,    .25195,    .11609,
     +     .06825,    .19402,    .27263,
     +     .31294,    .17915,   3.33049,    .25442,    .12053,
     +     .07367,    .19745,    .27538,
     +     .31587,    .18012,   3.30920,    .25641,    .12429,
     +     .07823,    .20032,    .27762 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .31874,    .18105,   3.28652,    .25830,    .12797,
     +     .08278,    .20308,    .27975,
     +     .32142,    .18188,   3.26034,    .25989,    .13126,
     +     .08685,    .20552,    .28156,
     +     .32388,    .18262,   3.23397,    .26126,    .13424,
     +     .09059,    .20767,    .28313,
     +     .32611,    .18327,   3.20701,    .26238,    .13687,
     +     .09389,    .20953,    .28442,
     +     .32827,    .18389,   3.17864,    .26339,    .13937,
     +     .09708,    .21127,    .28559,
     +     .33030,    .18445,   3.14898,    .26423,    .14166,
     +     .10000,    .21281,    .28658,
     +     .33219,    .18495,   3.12016,    .26495,    .14374,
     +     .10271,    .21419,    .28743,
     +     .33387,    .18538,   3.09117,    .26547,    .14553,
     +     .10505,    .21533,    .28807 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .33557,    .18581,   3.06240,    .26599,    .14734,
     +     .10744,    .21647,    .28871,
     +     .33711,    .18616,   3.03170,    .26629,    .14887,
     +     .10950,    .21736,    .28910,
     +     .33858,    .18649,   3.00287,    .26657,    .15034,
     +     .11148,    .21821,    .28948,
     +     .33991,    .18678,   2.97481,    .26674,    .15162,
     +     .11324,    .21892,    .28973,
     +     .34119,    .18703,   2.94570,    .26682,    .15281,
     +     .11489,    .21953,    .28988 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .26261,    .16501,   1.87974,    .15664,    .00000,
     +     .00000,    .08549,    .17374,
     +     .26721,    .16700,   1.98484,    .15949,    .00001,
     +     .00000,    .08934,    .17711,
     +     .27394,    .16986,   2.12582,    .16381,    .00462,
     +     .00000,    .09514,    .18219,
     +     .27877,    .17187,   2.21550,    .16699,    .01085,
     +     .00000,    .09940,    .18591,
     +     .28371,    .17388,   2.29874,    .17033,    .01644,
     +     .00000,    .10385,    .18978,
     +     .28794,    .17558,   2.36656,    .17320,    .02142,
     +     .00000,    .10769,    .19310,
     +     .29188,    .17713,   2.42358,    .17590,    .02582,
     +     .00000,    .11131,    .19621,
     +     .29599,    .17872,   2.47839,    .17871,    .03058,
     +     .00000,    .11509,    .19945 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .29949,    .18006,   2.52176,    .18112,    .03468,
     +     .00000,    .11833,    .20221,
     +     .30278,    .18129,   2.55788,    .18337,    .03847,
     +     .00000,    .12138,    .20478,
     +     .30535,    .18224,   2.58419,    .18512,    .04145,
     +     .00000,    .12376,    .20678,
     +     .31067,    .18416,   2.62799,    .18870,    .04765,
     +     .00006,    .12867,    .21087,
     +     .31510,    .18572,   2.65378,    .19163,    .05286,
     +     .00482,    .13273,    .21422,
     +     .31989,    .18736,   2.66863,    .19470,    .05845,
     +     .01313,    .13703,    .21773,
     +     .32460,    .18890,   2.67494,    .19758,    .06380,
     +     .01922,    .14118,    .22102,
     +     .32870,    .19020,   2.67430,    .19996,    .06842,
     +     .02484,    .14469,    .22374 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .33268,    .19143,   2.66880,    .20218,    .07291,
     +     .03043,    .14802,    .22628,
     +     .33581,    .19237,   2.65977,    .20383,    .07640,
     +     .03469,    .15058,    .22818,
     +     .33944,    .19340,   2.64402,    .20562,    .08036,
     +     .03957,    .15344,    .23023,
     +     .34255,    .19426,   2.62763,    .20706,    .08375,
     +     .04384,    .15583,    .23189,
     +     .34523,    .19494,   2.60850,    .20816,    .08656,
     +     .04731,    .15777,    .23318,
     +     .34849,    .19575,   2.58200,    .20941,    .08998,
     +     .05164,    .16008,    .23465,
     +     .35141,    .19644,   2.55474,    .21042,    .09301,
     +     .05551,    .16206,    .23584,
     +     .35394,    .19697,   2.52552,    .21112,    .09553,
     +     .05873,    .16365,    .23669 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .35639,    .19747,   2.49572,    .21173,    .09798,
     +     .06193,    .16514,    .23744,
     +     .35862,    .19787,   2.46417,    .21214,    .10012,
     +     .06474,    .16638,    .23795,
     +     .36063,    .19821,   2.43353,    .21242,    .10204,
     +     .06731,    .16744,    .23833,
     +     .36241,    .19847,   2.40348,    .21257,    .10370,
     +     .06956,    .16831,    .23855,
     +     .36412,    .19869,   2.37272,    .21262,    .10526,
     +     .07170,    .16908,    .23867,
     +     .36569,    .19885,   2.34158,    .21256,    .10666,
     +     .07365,    .16970,    .23865,
     +     .36712,    .19898,   2.31184,    .21244,    .10792,
     +     .07544,    .17023,    .23857,
     +     .36836,    .19905,   2.28280,    .21222,    .10897,
     +     .07696,    .17061,    .23838 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .36961,    .19912,   2.25409,    .21200,    .11003,
     +     .07852,    .17099,    .23818,
     +     .37069,    .19912,   2.22442,    .21162,    .11089,
     +     .07982,    .17119,    .23781,
     +     .37170,    .19911,   2.19666,    .21126,    .11170,
     +     .08108,    .17138,    .23745,
     +     .37260,    .19908,   2.17004,    .21085,    .11240,
     +     .08218,    .17148,    .23705,
     +     .37344,    .19900,   2.14283,    .21037,    .11301,
     +     .08320,    .17151,    .23656 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .33243,    .20242,   1.59633,    .13430,    .00000,
     +     .00000,    .07642,    .16208,
     +     .33724,    .20398,   1.65988,    .13590,    .00001,
     +     .00000,    .07912,    .16410,
     +     .34417,    .20615,   1.74056,    .13827,    .00355,
     +     .00000,    .08310,    .16704,
     +     .34906,    .20762,   1.78808,    .13995,    .00829,
     +     .00000,    .08595,    .16910,
     +     .35395,    .20902,   1.82919,    .14165,    .01245,
     +     .00000,    .08884,    .17117,
     +     .35808,    .21017,   1.86103,    .14308,    .01610,
     +     .00000,    .09128,    .17289,
     +     .36186,    .21117,   1.88543,    .14437,    .01927,
     +     .00000,    .09353,    .17443,
     +     .36573,    .21216,   1.90687,    .14567,    .02265,
     +     .00000,    .09583,    .17597 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .36899,    .21297,   1.92223,    .14675,    .02552,
     +     .00000,    .09778,    .17724,
     +     .37198,    .21367,   1.93290,    .14770,    .02814,
     +     .00000,    .09955,    .17836,
     +     .37429,    .21419,   1.93966,    .14843,    .03017,
     +     .00000,    .10092,    .17921,
     +     .37897,    .21517,   1.94526,    .14984,    .03434,
     +     .00005,    .10366,    .18083,
     +     .38278,    .21590,   1.94170,    .15090,    .03777,
     +     .00329,    .10586,    .18205,
     +     .38677,    .21659,   1.92825,    .15191,    .04139,
     +     .00890,    .10809,    .18320,
     +     .39054,    .21713,   1.90875,    .15272,    .04476,
     +     .01293,    .11013,    .18410,
     +     .39371,    .21750,   1.88747,    .15327,    .04761,
     +     .01658,    .11177,    .18471 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .39669,    .21777,   1.86341,    .15368,    .05033,
     +     .02016,    .11326,    .18515,
     +     .39895,    .21791,   1.84103,    .15390,    .05239,
     +     .02285,    .11433,    .18535,
     +     .40146,    .21796,   1.81157,    .15400,    .05468,
     +     .02588,    .11544,    .18542,
     +     .40353,    .21795,   1.78457,    .15399,    .05661,
     +     .02849,    .11632,    .18538,
     +     .40521,    .21784,   1.75774,    .15384,    .05816,
     +     .03058,    .11695,    .18516,
     +     .40716,    .21764,   1.72306,    .15354,    .06000,
     +     .03314,    .11763,    .18477,
     +     .40882,    .21736,   1.68978,    .15317,    .06160,
     +     .03540,    .11814,    .18429,
     +     .41011,    .21700,   1.65708,    .15266,    .06287,
     +     .03723,    .11843,    .18365 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .41131,    .21660,   1.62465,    .15211,    .06408,
     +     .03903,    .11867,    .18297,
     +     .41228,    .21612,   1.59211,    .15145,    .06509,
     +     .04058,    .11876,    .18215,
     +     .41308,    .21563,   1.56143,    .15077,    .06598,
     +     .04197,    .11877,    .18132,
     +     .41371,    .21511,   1.53233,    .15005,    .06671,
     +     .04316,    .11869,    .18046,
     +     .41423,    .21456,   1.50324,    .14929,    .06737,
     +     .04428,    .11855,    .17954,
     +     .41462,    .21396,   1.47457,    .14848,    .06793,
     +     .04527,    .11834,    .17856,
     +     .41492,    .21337,   1.44763,    .14768,    .06842,
     +     .04617,    .11810,    .17759,
     +     .41507,    .21277,   1.42202,    .14686,    .06879,
     +     .04692,    .11780,    .17660 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .41521,    .21217,   1.39682,    .14605,    .06917,
     +     .04767,    .11750,    .17560,
     +     .41519,    .21149,   1.37160,    .14515,    .06942,
     +     .04827,    .11709,    .17454,
     +     .41516,    .21085,   1.34811,    .14431,    .06966,
     +     .04885,    .11670,    .17353,
     +     .41506,    .21021,   1.32596,    .14347,    .06984,
     +     .04934,    .11630,    .17253,
     +     .41487,    .20954,   1.30367,    .14259,    .06996,
     +     .04978,    .11585,    .17148 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .39497,    .23051,   1.40509,    .11433,    .00000,
     +     .00000,    .06830,    .15113,
     +     .39938,    .23142,   1.44369,    .11521,    .00001,
     +     .00000,    .07024,    .15215,
     +     .40560,    .23259,   1.48886,    .11644,    .00286,
     +     .00000,    .07304,    .15356,
     +     .40988,    .23331,   1.51207,    .11728,    .00664,
     +     .00000,    .07498,    .15446,
     +     .41406,    .23390,   1.52931,    .11807,    .00991,
     +     .00000,    .07691,    .15529,
     +     .41751,    .23433,   1.54114,    .11870,    .01274,
     +     .00000,    .07850,    .15594,
     +     .42059,    .23465,   1.54768,    .11923,    .01516,
     +     .00000,    .07993,    .15644,
     +     .42367,    .23490,   1.55118,    .11972,    .01770,
     +     .00000,    .08135,    .15688 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .42621,    .23505,   1.55175,    .12010,    .01984,
     +     .00000,    .08252,    .15719,
     +     .42847,    .23511,   1.54923,    .12038,    .02176,
     +     .00000,    .08356,    .15740,
     +     .43018,    .23512,   1.54602,    .12058,    .02325,
     +     .00000,    .08434,    .15752,
     +     .43352,    .23503,   1.53271,    .12088,    .02624,
     +     .00004,    .08585,    .15763,
     +     .43610,    .23483,   1.51529,    .12102,    .02867,
     +     .00240,    .08699,    .15756,
     +     .43868,    .23447,   1.48927,    .12103,    .03118,
     +     .00648,    .08809,    .15733,
     +     .44092,    .23390,   1.45894,    .12085,    .03346,
     +     .00934,    .08900,    .15685,
     +     .44264,    .23328,   1.42959,    .12055,    .03535,
     +     .01191,    .08965,    .15626 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .44413,    .23256,   1.39884,    .12015,    .03712,
     +     .01439,    .09018,    .15554,
     +     .44514,    .23188,   1.37215,    .11972,    .03843,
     +     .01623,    .09050,    .15482,
     +     .44609,    .23094,   1.33882,    .11909,    .03986,
     +     .01827,    .09074,    .15383,
     +     .44677,    .23006,   1.30927,    .11848,    .04103,
     +     .02001,    .09087,    .15288,
     +     .44714,    .22916,   1.28128,    .11781,    .04195,
     +     .02138,    .09087,    .15189,
     +     .44743,    .22797,   1.24598,    .11690,    .04301,
     +     .02303,    .09079,    .15057,
     +     .44752,    .22678,   1.21298,    .11600,    .04391,
     +     .02447,    .09062,    .14926,
     +     .44732,    .22557,   1.18167,    .11504,    .04458,
     +     .02561,    .09033,    .14791 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .44703,    .22434,   1.15107,    .11407,    .04521,
     +     .02672,    .09000,    .14655,
     +     .44653,    .22306,   1.12113,    .11304,    .04571,
     +     .02765,    .08959,    .14513,
     +     .44594,    .22182,   1.09330,    .11204,    .04612,
     +     .02848,    .08916,    .14376,
     +     .44525,    .22061,   1.06735,    .11107,    .04643,
     +     .02917,    .08870,    .14241,
     +     .44446,    .21936,   1.04174,    .11006,    .04670,
     +     .02981,    .08820,    .14104,
     +     .44356,    .21810,   1.01688,    .10904,    .04690,
     +     .03036,    .08766,    .13966,
     +     .44265,    .21688,    .99376,    .10806,    .04706,
     +     .03085,    .08712,    .13834,
     +     .44164,    .21569,    .97208,    .10709,    .04715,
     +     .03125,    .08657,    .13705 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .44064,    .21450,    .95085,    .10614,    .04724,
     +     .03165,    .08602,    .13576,
     +     .43947,    .21325,    .92997,    .10514,    .04726,
     +     .03195,    .08542,    .13443,
     +     .43835,    .21208,    .91061,    .10420,    .04727,
     +     .03223,    .08484,    .13318,
     +     .43722,    .21095,    .89251,    .10330,    .04725,
     +     .03246,    .08428,    .13197,
     +     .43599,    .20979,    .87448,    .10237,    .04720,
     +     .03266,    .08368,    .13074 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45038,    .25143,   1.26414,    .09663,    .00000,
     +     .00000,    .06076,    .13984,
     +     .45393,    .25158,   1.28525,    .09707,    .00001,
     +     .00000,    .06216,    .14008,
     +     .45878,    .25161,   1.30598,    .09766,    .00236,
     +     .00000,    .06412,    .14032,
     +     .46199,    .25150,   1.31283,    .09802,    .00546,
     +     .00000,    .06545,    .14037,
     +     .46496,    .25120,   1.31429,    .09830,    .00810,
     +     .00000,    .06671,    .14030,
     +     .46735,    .25087,   1.31314,    .09850,    .01035,
     +     .00000,    .06772,    .14017,
     +     .46938,    .25045,   1.30835,    .09860,    .01225,
     +     .00000,    .06860,    .13994,
     +     .47130,    .24992,   1.30068,    .09864,    .01423,
     +     .00000,    .06945,    .13960 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .47281,    .24939,   1.29221,    .09864,    .01587,
     +     .00000,    .07013,    .13926,
     +     .47407,    .24879,   1.28184,    .09856,    .01734,
     +     .00000,    .07069,    .13885,
     +     .47497,    .24828,   1.27280,    .09848,    .01846,
     +     .00000,    .07110,    .13850,
     +     .47654,    .24707,   1.24886,    .09820,    .02068,
     +     .00003,    .07183,    .13761,
     +     .47757,    .24592,   1.22406,    .09787,    .02246,
     +     .00183,    .07234,    .13672,
     +     .47839,    .24452,   1.19187,    .09738,    .02426,
     +     .00489,    .07276,    .13561,
     +     .47873,    .24290,   1.15679,    .09673,    .02586,
     +     .00701,    .07300,    .13428,
     +     .47873,    .24133,   1.12432,    .09604,    .02716,
     +     .00889,    .07308,    .13296 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .47850,    .23966,   1.09140,    .09527,    .02835,
     +     .01069,    .07307,    .13154,
     +     .47807,    .23820,   1.06376,    .09455,    .02921,
     +     .01200,    .07296,    .13030,
     +     .47728,    .23634,   1.03015,    .09362,    .03013,
     +     .01344,    .07272,    .12871,
     +     .47642,    .23467,   1.00092,    .09276,    .03087,
     +     .01465,    .07247,    .12727,
     +     .47536,    .23306,    .97394,    .09190,    .03142,
     +     .01558,    .07213,    .12587,
     +     .47385,    .23099,    .94045,    .09079,    .03204,
     +     .01670,    .07166,    .12406,
     +     .47227,    .22900,    .90968,    .08970,    .03255,
     +     .01767,    .07115,    .12234,
     +     .47052,    .22703,    .88107,    .08861,    .03290,
     +     .01841,    .07059,    .12066 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .46869,    .22507,    .85339,    .08752,    .03321,
     +     .01913,    .07000,    .11898,
     +     .46667,    .22310,    .82678,    .08642,    .03343,
     +     .01972,    .06937,    .11728,
     +     .46468,    .22122,    .80230,    .08537,    .03360,
     +     .02023,    .06875,    .11567,
     +     .46271,    .21941,    .77974,    .08435,    .03371,
     +     .02065,    .06813,    .11414,
     +     .46062,    .21759,    .75767,    .08332,    .03378,
     +     .02103,    .06749,    .11260,
     +     .45845,    .21577,    .73648,    .08229,    .03381,
     +     .02135,    .06683,    .11108,
     +     .45634,    .21403,    .71691,    .08131,    .03382,
     +     .02163,    .06620,    .10963,
     +     .45423,    .21236,    .69877,    .08036,    .03378,
     +     .02184,    .06557,    .10825 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .45212,    .21069,    .68105,    .07943,    .03374,
     +     .02206,    .06495,    .10688,
     +     .44986,    .20899,    .66384,    .07848,    .03365,
     +     .02220,    .06429,    .10550,
     +     .44773,    .20740,    .64793,    .07759,    .03357,
     +     .02234,    .06366,    .10421,
     +     .44564,    .20587,    .63317,    .07673,    .03347,
     +     .02245,    .06307,    .10297,
     +     .44347,    .20430,    .61856,    .07586,    .03335,
     +     .02253,    .06246,    .10171 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50953,    .26945,   1.12633,    .07781,    .00000,
     +     .00000,    .05203,    .12496,
     +     .51153,    .26860,   1.13133,    .07798,    .00001,
     +     .00000,    .05295,    .12448,
     +     .51402,    .26715,   1.13009,    .07814,    .00189,
     +     .00000,    .05419,    .12364,
     +     .51546,    .26595,   1.12263,    .07818,    .00435,
     +     .00000,    .05498,    .12293,
     +     .51652,    .26453,   1.11063,    .07812,    .00641,
     +     .00000,    .05568,    .12206,
     +     .51722,    .26324,   1.09867,    .07802,    .00814,
     +     .00000,    .05622,    .12126,
     +     .51760,    .26190,   1.08469,    .07787,    .00958,
     +     .00000,    .05664,    .12042,
     +     .51777,    .26039,   1.06822,    .07764,    .01106,
     +     .00000,    .05701,    .11945 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .51776,    .25903,   1.05283,    .07740,    .01227,
     +     .00000,    .05729,    .11858,
     +     .51751,    .25764,   1.03662,    .07712,    .01333,
     +     .00000,    .05748,    .11767,
     +     .51721,    .25651,   1.02337,    .07687,    .01413,
     +     .00000,    .05760,    .11694,
     +     .51622,    .25401,    .99219,    .07627,    .01571,
     +     .00003,    .05774,    .11528,
     +     .51504,    .25177,    .96287,    .07568,    .01694,
     +     .00133,    .05776,    .11378,
     +     .51341,    .24916,    .92755,    .07493,    .01816,
     +     .00354,    .05767,    .11202,
     +     .51123,    .24632,    .89070,    .07404,    .01921,
     +     .00505,    .05743,    .11009,
     +     .50895,    .24366,    .85768,    .07316,    .02004,
     +     .00636,    .05712,    .10829 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .50642,    .24095,    .82505,    .07223,    .02078,
     +     .00760,    .05674,    .10642,
     +     .50410,    .23864,    .79833,    .07143,    .02130,
     +     .00849,    .05636,    .10484,
     +     .50104,    .23580,    .76656,    .07039,    .02183,
     +     .00945,    .05583,    .10289,
     +     .49822,    .23328,    .73937,    .06946,    .02225,
     +     .01025,    .05533,    .10117,
     +     .49540,    .23089,    .71483,    .06855,    .02253,
     +     .01085,    .05480,    .09956,
     +     .49170,    .22787,    .68481,    .06740,    .02284,
     +     .01157,    .05411,    .09752,
     +     .48808,    .22502,    .65765,    .06631,    .02308,
     +     .01217,    .05342,    .09561,
     +     .48444,    .22229,    .63288,    .06524,    .02321,
     +     .01262,    .05273,    .09379 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .48077,    .21959,    .60916,    .06419,    .02331,
     +     .01305,    .05204,    .09199,
     +     .47701,    .21690,    .58670,    .06313,    .02336,
     +     .01339,    .05132,    .09024,
     +     .47338,    .21437,    .56625,    .06214,    .02337,
     +     .01368,    .05063,    .08858,
     +     .46985,    .21200,    .54762,    .06121,    .02335,
     +     .01391,    .04997,    .08702,
     +     .46625,    .20960,    .52955,    .06027,    .02331,
     +     .01411,    .04929,    .08547,
     +     .46266,    .20723,    .51238,    .05933,    .02324,
     +     .01428,    .04862,    .08396,
     +     .45921,    .20499,    .49663,    .05845,    .02316,
     +     .01442,    .04798,    .08254,
     +     .45585,    .20287,    .48218,    .05761,    .02306,
     +     .01451,    .04736,    .08120 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .45250,    .20076,    .46813,    .05678,    .02295,
     +     .01461,    .04675,    .07987,
     +     .44905,    .19863,    .45464,    .05595,    .02282,
     +     .01466,    .04611,    .07856,
     +     .44581,    .19663,    .44222,    .05517,    .02269,
     +     .01471,    .04552,    .07734,
     +     .44268,    .19474,    .43077,    .05443,    .02256,
     +     .01474,    .04496,    .07618,
     +     .43946,    .19282,    .41952,    .05369,    .02241,
     +     .01475,    .04439,    .07501 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .55744,    .28006,   1.01083,    .06258,    .00000,
     +     .00000,    .04411,    .10946,
     +     .55756,    .27822,   1.00391,    .06262,    .00001,
     +     .00000,    .04470,    .10849,
     +     .55721,    .27531,    .98693,    .06258,    .00153,
     +     .00000,    .04543,    .10695,
     +     .55656,    .27308,    .96961,    .06247,    .00350,
     +     .00000,    .04587,    .10575,
     +     .55541,    .27057,    .94866,    .06226,    .00512,
     +     .00000,    .04620,    .10440,
     +     .55423,    .26836,    .92973,    .06203,    .00646,
     +     .00000,    .04644,    .10319,
     +     .55278,    .26616,    .91008,    .06176,    .00756,
     +     .00000,    .04658,    .10197,
     +     .55103,    .26375,    .88838,    .06140,    .00867,
     +     .00000,    .04667,    .10065 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .54936,    .26160,    .86908,    .06106,    .00958,
     +     .00000,    .04670,    .09947,
     +     .54749,    .25949,    .84978,    .06070,    .01036,
     +     .00000,    .04666,    .09830,
     +     .54591,    .25782,    .83439,    .06040,    .01095,
     +     .00000,    .04660,    .09736,
     +     .54223,    .25415,    .80002,    .05968,    .01207,
     +     .00002,    .04641,    .09530,
     +     .53879,    .25092,    .76924,    .05900,    .01293,
     +     .00099,    .04616,    .09350,
     +     .53467,    .24725,    .73370,    .05816,    .01377,
     +     .00261,    .04580,    .09147,
     +     .52990,    .24337,    .69764,    .05723,    .01447,
     +     .00370,    .04532,    .08928,
     +     .52534,    .23981,    .66604,    .05633,    .01500,
     +     .00464,    .04482,    .08728 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .52059,    .23620,    .63538,    .05540,    .01546,
     +     .00551,    .04428,    .08527,
     +     .51646,    .23319,    .61071,    .05459,    .01577,
     +     .00612,    .04377,    .08361,
     +     .51125,    .22952,    .58189,    .05359,    .01607,
     +     .00678,    .04311,    .08160,
     +     .50657,    .22630,    .55755,    .05270,    .01629,
     +     .00732,    .04252,    .07984,
     +     .50207,    .22331,    .53592,    .05186,    .01643,
     +     .00772,    .04194,    .07820,
     +     .49630,    .21955,    .50975,    .05079,    .01657,
     +     .00818,    .04120,    .07616,
     +     .49082,    .21603,    .48637,    .04978,    .01665,
     +     .00857,    .04048,    .07427,
     +     .48547,    .21270,    .46536,    .04882,    .01667,
     +     .00885,    .03977,    .07252 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .48015,    .20943,    .44542,    .04787,    .01667,
     +     .00911,    .03907,    .07080,
     +     .47480,    .20623,    .42677,    .04694,    .01663,
     +     .00931,    .03837,    .06913,
     +     .46973,    .20323,    .40991,    .04606,    .01657,
     +     .00947,    .03770,    .06757,
     +     .46490,    .20042,    .39468,    .04524,    .01650,
     +     .00960,    .03707,    .06612,
     +     .46003,    .19762,    .38003,    .04442,    .01641,
     +     .00971,    .03643,    .06469,
     +     .45519,    .19486,    .36623,    .04361,    .01630,
     +     .00979,    .03581,    .06331,
     +     .45060,    .19226,    .35365,    .04286,    .01619,
     +     .00985,    .03522,    .06202,
     +     .44620,    .18981,    .34220,    .04214,    .01607,
     +     .00989,    .03466,    .06081 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .44183,    .18738,    .33111,    .04144,    .01595,
     +     .00993,    .03411,    .05962,
     +     .43739,    .18497,    .32055,    .04073,    .01581,
     +     .00993,    .03356,    .05845,
     +     .43323,    .18271,    .31086,    .04008,    .01568,
     +     .00994,    .03304,    .05735,
     +     .42926,    .18058,    .30199,    .03946,    .01555,
     +     .00994,    .03254,    .05633,
     +     .42522,    .17842,    .29331,    .03884,    .01541,
     +     .00992,    .03204,    .05532 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .59428,    .28460,    .90672,    .05063,    .00000,
     +     .00000,    .03703,    .09383,
     +     .59234,    .28183,    .89107,    .05060,    .00001,
     +     .00000,    .03738,    .09256,
     +     .58893,    .27758,    .86301,    .05046,    .00123,
     +     .00000,    .03776,    .09062,
     +     .58605,    .27441,    .83910,    .05029,    .00281,
     +     .00000,    .03794,    .08914,
     +     .58258,    .27092,    .81247,    .05001,    .00409,
     +     .00000,    .03803,    .08752,
     +     .57941,    .26788,    .78933,    .04973,    .00514,
     +     .00000,    .03807,    .08611,
     +     .57606,    .26493,    .76646,    .04941,    .00598,
     +     .00000,    .03801,    .08473,
     +     .57231,    .26174,    .74204,    .04902,    .00683,
     +     .00000,    .03791,    .08324 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .56892,    .25895,    .72087,    .04865,    .00750,
     +     .00000,    .03778,    .08194,
     +     .56544,    .25621,    .70028,    .04826,    .00808,
     +     .00000,    .03762,    .08066,
     +     .56262,    .25404,    .68414,    .04794,    .00851,
     +     .00000,    .03747,    .07964,
     +     .55631,    .24936,    .64919,    .04720,    .00932,
     +     .00002,    .03710,    .07745,
     +     .55065,    .24532,    .61888,    .04652,    .00993,
     +     .00074,    .03671,    .07556,
     +     .54410,    .24080,    .58486,    .04572,    .01050,
     +     .00194,    .03622,    .07345,
     +     .53690,    .23605,    .55106,    .04480,    .01097,
     +     .00274,    .03561,    .07127,
     +     .53021,    .23175,    .52195,    .04395,    .01131,
     +     .00341,    .03504,    .06931 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .52337,    .22745,    .49411,    .04307,    .01159,
     +     .00403,    .03443,    .06735,
     +     .51758,    .22387,    .47206,    .04233,    .01177,
     +     .00446,    .03389,    .06574,
     +     .51041,    .21957,    .44660,    .04141,    .01193,
     +     .00492,    .03323,    .06381,
     +     .50405,    .21582,    .42532,    .04060,    .01204,
     +     .00529,    .03263,    .06213,
     +     .49808,    .21238,    .40667,    .03984,    .01210,
     +     .00555,    .03206,    .06061,
     +     .49051,    .20806,    .38433,    .03888,    .01213,
     +     .00586,    .03134,    .05873,
     +     .48339,    .20406,    .36458,    .03800,    .01214,
     +     .00611,    .03065,    .05700,
     +     .47658,    .20032,    .34705,    .03716,    .01210,
     +     .00628,    .02999,    .05540 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .46985,    .19665,    .33051,    .03634,    .01205,
     +     .00645,    .02935,    .05384,
     +     .46320,    .19307,    .31519,    .03552,    .01198,
     +     .00656,    .02871,    .05235,
     +     .45694,    .18973,    .30146,    .03477,    .01190,
     +     .00666,    .02811,    .05098,
     +     .45103,    .18662,    .28915,    .03405,    .01180,
     +     .00673,    .02755,    .04972,
     +     .44510,    .18354,    .27739,    .03335,    .01170,
     +     .00678,    .02699,    .04847,
     +     .43927,    .18054,    .26637,    .03267,    .01159,
     +     .00682,    .02644,    .04727,
     +     .43377,    .17773,    .25638,    .03204,    .01148,
     +     .00684,    .02593,    .04615,
     +     .42853,    .17509,    .24735,    .03144,    .01136,
     +     .00685,    .02545,    .04510 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42336,    .17249,    .23862,    .03085,    .01125,
     +     .00686,    .02497,    .04407,
     +     .41815,    .16989,    .23040,    .03027,    .01112,
     +     .00685,    .02450,    .04308,
     +     .41327,    .16747,    .22287,    .02973,    .01100,
     +     .00684,    .02406,    .04216,
     +     .40865,    .16519,    .21600,    .02922,    .01088,
     +     .00682,    .02364,    .04130,
     +     .40400,    .16291,    .20932,    .02869,    .01076,
     +     .00680,    .02322,    .04045 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .62053,    .28413,    .80896,    .04141,    .00000,
     +     .00000,    .03076,    .07863,
     +     .61644,    .28052,    .78719,    .04134,    .00001,
     +     .00000,    .03094,    .07723,
     +     .60990,    .27508,    .75181,    .04114,    .00099,
     +     .00000,    .03109,    .07512,
     +     .60479,    .27104,    .72386,    .04092,    .00225,
     +     .00000,    .03111,    .07354,
     +     .59898,    .26672,    .69406,    .04061,    .00326,
     +     .00000,    .03104,    .07186,
     +     .59383,    .26298,    .66879,    .04030,    .00408,
     +     .00000,    .03094,    .07041,
     +     .58867,    .25934,    .64453,    .03995,    .00472,
     +     .00000,    .03080,    .06898,
     +     .58301,    .25547,    .61916,    .03955,    .00536,
     +     .00000,    .03060,    .06747 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .57798,    .25212,    .59754,    .03917,    .00587,
     +     .00000,    .03040,    .06617,
     +     .57295,    .24887,    .57695,    .03877,    .00629,
     +     .00000,    .03017,    .06491,
     +     .56893,    .24630,    .56099,    .03845,    .00661,
     +     .00000,    .02997,    .06391,
     +     .56013,    .24081,    .52716,    .03772,    .00719,
     +     .00002,    .02949,    .06180,
     +     .55241,    .23609,    .49851,    .03705,    .00762,
     +     .00055,    .02905,    .06000,
     +     .54366,    .23086,    .46707,    .03627,    .00801,
     +     .00145,    .02851,    .05801,
     +     .53426,    .22545,    .43636,    .03543,    .00831,
     +     .00203,    .02790,    .05595,
     +     .52566,    .22059,    .41028,    .03464,    .00853,
     +     .00252,    .02732,    .05412 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .51697,    .21574,    .38565,    .03384,    .00870,
     +     .00296,    .02672,    .05233,
     +     .50971,    .21175,    .36636,    .03316,    .00879,
     +     .00327,    .02620,    .05087,
     +     .50085,    .20698,    .34437,    .03233,    .00887,
     +     .00358,    .02557,    .04915,
     +     .49307,    .20286,    .32616,    .03160,    .00892,
     +     .00384,    .02501,    .04766,
     +     .48583,    .19908,    .31038,    .03094,    .00892,
     +     .00402,    .02448,    .04632,
     +     .47674,    .19439,    .29160,    .03011,    .00891,
     +     .00422,    .02382,    .04465,
     +     .46825,    .19007,    .27511,    .02934,    .00887,
     +     .00438,    .02321,    .04313,
     +     .46026,    .18603,    .26066,    .02860,    .00881,
     +     .00449,    .02263,    .04176 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45241,    .18209,    .24713,    .02788,    .00874,
     +     .00459,    .02206,    .04043,
     +     .44472,    .17829,    .23468,    .02717,    .00866,
     +     .00466,    .02151,    .03916,
     +     .43751,    .17477,    .22360,    .02653,    .00857,
     +     .00471,    .02099,    .03800,
     +     .43073,    .17150,    .21374,    .02593,    .00848,
     +     .00474,    .02050,    .03693,
     +     .42399,    .16826,    .20437,    .02534,    .00838,
     +     .00477,    .02002,    .03588,
     +     .41741,    .16511,    .19565,    .02475,    .00828,
     +     .00478,    .01956,    .03489,
     +     .41123,    .16218,    .18778,    .02421,    .00818,
     +     .00479,    .01913,    .03397,
     +     .40539,    .15944,    .18070,    .02372,    .00807,
     +     .00478,    .01872,    .03310 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .39961,    .15674,    .17389,    .02323,    .00797,
     +     .00478,    .01833,    .03224,
     +     .39385,    .15408,    .16749,    .02276,    .00786,
     +     .00476,    .01794,    .03143,
     +     .38846,    .15160,    .16163,    .02231,    .00776,
     +     .00474,    .01757,    .03067,
     +     .38338,    .14927,    .15632,    .02189,    .00766,
     +     .00472,    .01723,    .02997,
     +     .37827,    .14694,    .15118,    .02146,    .00756,
     +     .00470,    .01689,    .02928 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .63678,    .27951,    .71569,    .03432,    .00000,
     +     .00000,    .02530,    .06439,
     +     .63058,    .27515,    .69004,    .03420,    .00001,
     +     .00000,    .02536,    .06300,
     +     .62099,    .26865,    .65046,    .03394,    .00080,
     +     .00000,    .02535,    .06092,
     +     .61372,    .26390,    .62056,    .03368,    .00179,
     +     .00000,    .02529,    .05938,
     +     .60570,    .25884,    .58956,    .03332,    .00258,
     +     .00000,    .02513,    .05776,
     +     .59869,    .25451,    .56371,    .03298,    .00322,
     +     .00000,    .02496,    .05637,
     +     .59178,    .25034,    .53943,    .03263,    .00371,
     +     .00000,    .02475,    .05503,
     +     .58433,    .24594,    .51443,    .03222,    .00419,
     +     .00000,    .02451,    .05360 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .57779,    .24213,    .49343,    .03184,    .00457,
     +     .00000,    .02428,    .05237,
     +     .57135,    .23847,    .47370,    .03146,    .00488,
     +     .00000,    .02402,    .05120,
     +     .56623,    .23558,    .45855,    .03115,    .00511,
     +     .00000,    .02380,    .05028,
     +     .55519,    .22946,    .42698,    .03044,    .00552,
     +     .00002,    .02330,    .04835,
     +     .54563,    .22424,    .40074,    .02981,    .00582,
     +     .00041,    .02284,    .04672,
     +     .53493,    .21848,    .37243,    .02906,    .00609,
     +     .00108,    .02230,    .04497,
     +     .52360,    .21257,    .34522,    .02828,    .00628,
     +     .00151,    .02172,    .04314,
     +     .51334,    .20731,    .32241,    .02756,    .00641,
     +     .00186,    .02117,    .04154 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50308,    .20210,    .30108,    .02684,    .00651,
     +     .00218,    .02062,    .03998,
     +     .49461,    .19783,    .28455,    .02621,    .00656,
     +     .00239,    .02016,    .03871,
     +     .48434,    .19276,    .26586,    .02547,    .00658,
     +     .00261,    .01959,    .03722,
     +     .47539,    .18838,    .25051,    .02484,    .00659,
     +     .00279,    .01909,    .03594,
     +     .46714,    .18441,    .23735,    .02425,    .00657,
     +     .00291,    .01862,    .03481,
     +     .45684,    .17950,    .22181,    .02352,    .00654,
     +     .00304,    .01805,    .03341,
     +     .44728,    .17499,    .20828,    .02285,    .00649,
     +     .00315,    .01753,    .03212,
     +     .43837,    .17080,    .19652,    .02220,    .00642,
     +     .00322,    .01703,    .03099 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .42966,    .16673,    .18557,    .02158,    .00635,
     +     .00328,    .01655,    .02990,
     +     .42116,    .16283,    .17559,    .02099,    .00627,
     +     .00331,    .01608,    .02885,
     +     .41326,    .15921,    .16674,    .02044,    .00618,
     +     .00334,    .01564,    .02789,
     +     .40589,    .15586,    .15890,    .01992,    .00610,
     +     .00336,    .01523,    .02703,
     +     .39858,    .15256,    .15148,    .01942,    .00601,
     +     .00337,    .01483,    .02618,
     +     .39145,    .14938,    .14462,    .01894,    .00592,
     +     .00337,    .01445,    .02537,
     +     .38479,    .14642,    .13845,    .01849,    .00583,
     +     .00336,    .01410,    .02462,
     +     .37852,    .14366,    .13291,    .01808,    .00575,
     +     .00335,    .01377,    .02393 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37234,    .14095,    .12759,    .01767,    .00566,
     +     .00334,    .01345,    .02325,
     +     .36623,    .13829,    .12265,    .01727,    .00557,
     +     .00332,    .01313,    .02261,
     +     .36053,    .13581,    .11815,    .01689,    .00549,
     +     .00331,    .01284,    .02201,
     +     .35517,    .13349,    .11407,    .01655,    .00541,
     +     .00328,    .01257,    .02146,
     +     .34980,    .13117,    .11013,    .01620,    .00532,
     +     .00326,    .01229,    .02092 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64371,    .27145,    .62673,    .02881,    .00000,
     +     .00000,    .02060,    .05153,
     +     .63549,    .26651,    .59911,    .02866,    .00001,
     +     .00000,    .02059,    .05021,
     +     .62301,    .25918,    .55787,    .02835,    .00063,
     +     .00000,    .02049,    .04825,
     +     .61371,    .25385,    .52769,    .02805,    .00142,
     +     .00000,    .02035,    .04685,
     +     .60365,    .24823,    .49705,    .02768,    .00203,
     +     .00000,    .02013,    .04537,
     +     .59494,    .24344,    .47185,    .02734,    .00252,
     +     .00000,    .01992,    .04410,
     +     .58645,    .23887,    .44851,    .02698,    .00289,
     +     .00000,    .01969,    .04289,
     +     .57738,    .23406,    .42481,    .02657,    .00325,
     +     .00000,    .01942,    .04163 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .56949,    .22991,    .40512,    .02619,    .00353,
     +     .00000,    .01917,    .04056,
     +     .56183,    .22592,    .38684,    .02580,    .00376,
     +     .00000,    .01891,    .03954,
     +     .55577,    .22279,    .37291,    .02548,    .00392,
     +     .00000,    .01869,    .03875,
     +     .54278,    .21622,    .34430,    .02481,    .00422,
     +     .00001,    .01821,    .03706,
     +     .53162,    .21066,    .32090,    .02423,    .00443,
     +     .00031,    .01779,    .03564,
     +     .51924,    .20457,    .29605,    .02355,    .00461,
     +     .00080,    .01729,    .03412,
     +     .50632,    .19834,    .27238,    .02282,    .00473,
     +     .00112,    .01676,    .03257,
     +     .49473,    .19282,    .25281,    .02216,    .00481,
     +     .00137,    .01627,    .03122 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48323,    .18738,    .23469,    .02150,    .00486,
     +     .00160,    .01578,    .02991,
     +     .47379,    .18295,    .22076,    .02095,    .00488,
     +     .00175,    .01537,    .02885,
     +     .46241,    .17771,    .20516,    .02029,    .00488,
     +     .00190,    .01488,    .02762,
     +     .45254,    .17321,    .19243,    .01973,    .00486,
     +     .00202,    .01446,    .02658,
     +     .44358,    .16914,    .18157,    .01918,    .00483,
     +     .00211,    .01406,    .02566,
     +     .43240,    .16412,    .16885,    .01853,    .00479,
     +     .00220,    .01356,    .02453,
     +     .42207,    .15954,    .15789,    .01796,    .00473,
     +     .00226,    .01311,    .02352,
     +     .41248,    .15532,    .14844,    .01742,    .00467,
     +     .00231,    .01270,    .02259 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40314,    .15124,    .13967,    .01690,    .00460,
     +     .00234,    .01231,    .02170,
     +     .39413,    .14732,    .13169,    .01638,    .00453,
     +     .00236,    .01193,    .02086,
     +     .38576,    .14371,    .12468,    .01591,    .00446,
     +     .00238,    .01157,    .02010,
     +     .37798,    .14037,    .11851,    .01547,    .00439,
     +     .00238,    .01124,    .01943,
     +     .37031,    .13710,    .11270,    .01505,    .00431,
     +     .00238,    .01091,    .01878,
     +     .36288,    .13396,    .10734,    .01463,    .00424,
     +     .00238,    .01061,    .01814,
     +     .35595,    .13104,    .10254,    .01426,    .00417,
     +     .00237,    .01032,    .01755,
     +     .34945,    .12832,    .09826,    .01391,    .00409,
     +     .00236,    .01006,    .01702 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34305,    .12565,    .09415,    .01358,    .00402,
     +     .00235,    .00980,    .01650,
     +     .33676,    .12306,    .09034,    .01324,    .00395,
     +     .00233,    .00955,    .01600,
     +     .33091,    .12064,    .08687,    .01292,    .00389,
     +     .00231,    .00932,    .01554,
     +     .32542,    .11839,    .08374,    .01263,    .00382,
     +     .00229,    .00910,    .01511,
     +     .31994,    .11614,    .08073,    .01235,    .00376,
     +     .00227,    .00889,    .01469 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64186,    .26103,    .54284,    .02474,    .00000,
     +     .00000,    .01644,    .04003,
     +     .63182,    .25558,    .51472,    .02452,    .00001,
     +     .00000,    .01639,    .03888,
     +     .61676,    .24755,    .47380,    .02411,    .00050,
     +     .00000,    .01624,    .03719,
     +     .60567,    .24175,    .44458,    .02376,    .00111,
     +     .00000,    .01607,    .03599,
     +     .59383,    .23568,    .41535,    .02334,    .00159,
     +     .00000,    .01586,    .03471,
     +     .58365,    .23053,    .39159,    .02296,    .00196,
     +     .00000,    .01566,    .03363,
     +     .57383,    .22563,    .36992,    .02257,    .00224,
     +     .00000,    .01544,    .03261,
     +     .56340,    .22051,    .34815,    .02215,    .00251,
     +     .00000,    .01518,    .03154 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .55438,    .21613,    .33023,    .02178,    .00272,
     +     .00000,    .01494,    .03063,
     +     .54563,    .21195,    .31375,    .02141,    .00289,
     +     .00000,    .01470,    .02976,
     +     .53874,    .20869,    .30128,    .02112,    .00300,
     +     .00000,    .01451,    .02908,
     +     .52417,    .20179,    .27599,    .02046,    .00321,
     +     .00001,    .01407,    .02770,
     +     .51177,    .19599,    .25557,    .01987,    .00335,
     +     .00023,    .01368,    .02655,
     +     .49807,    .18972,    .23412,    .01923,    .00347,
     +     .00060,    .01324,    .02529,
     +     .48389,    .18330,    .21399,    .01858,    .00355,
     +     .00083,    .01278,    .02403,
     +     .47130,    .17762,    .19746,    .01796,    .00359,
     +     .00101,    .01237,    .02294 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45886,    .17208,    .18229,    .01735,    .00361,
     +     .00117,    .01195,    .02190,
     +     .44865,    .16763,    .17074,    .01687,    .00361,
     +     .00128,    .01160,    .02106,
     +     .43650,    .16234,    .15788,    .01627,    .00360,
     +     .00139,    .01118,    .02009,
     +     .42603,    .15779,    .14747,    .01574,    .00358,
     +     .00147,    .01083,    .01927,
     +     .41650,    .15372,    .13868,    .01528,    .00354,
     +     .00153,    .01051,    .01853,
     +     .40471,    .14872,    .12843,    .01473,    .00350,
     +     .00159,    .01011,    .01762,
     +     .39391,    .14418,    .11963,    .01423,    .00345,
     +     .00163,    .00975,    .01681,
     +     .38393,    .14001,    .11208,    .01376,    .00339,
     +     .00165,    .00940,    .01611 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37424,    .13598,    .10511,    .01330,    .00333,
     +     .00168,    .00908,    .01544,
     +     .36493,    .13213,    .09885,    .01285,    .00327,
     +     .00169,    .00878,    .01478,
     +     .35632,    .12860,    .09335,    .01245,    .00321,
     +     .00169,    .00850,    .01420,
     +     .34833,    .12534,    .08852,    .01209,    .00315,
     +     .00169,    .00823,    .01368,
     +     .34049,    .12217,    .08400,    .01174,    .00309,
     +     .00169,    .00797,    .01318,
     +     .33292,    .11912,    .07984,    .01138,    .00303,
     +     .00168,    .00772,    .01272,
     +     .32589,    .11629,    .07612,    .01105,    .00297,
     +     .00167,    .00749,    .01229,
     +     .31933,    .11366,    .07281,    .01076,    .00291,
     +     .00166,    .00729,    .01188 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .31289,    .11109,    .06963,    .01048,    .00286,
     +     .00165,    .00709,    .01148,
     +     .30657,    .10860,    .06673,    .01020,    .00280,
     +     .00163,    .00689,    .01112,
     +     .30070,    .10628,    .06409,    .00994,    .00275,
     +     .00162,    .00670,    .01078,
     +     .29521,    .10413,    .06170,    .00970,    .00270,
     +     .00160,    .00654,    .01046,
     +     .28973,    .10198,    .05940,    .00947,    .00265,
     +     .00159,    .00638,    .01014 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .63265,    .24801,    .46410,    .02108,    .00000,
     +     .00000,    .01316,    .03046,
     +     .62096,    .24220,    .43674,    .02081,    .00001,
     +     .00000,    .01307,    .02949,
     +     .60359,    .23370,    .39769,    .02035,    .00039,
     +     .00000,    .01288,    .02809,
     +     .59090,    .22762,    .37035,    .01999,    .00086,
     +     .00000,    .01271,    .02707,
     +     .57749,    .22128,    .34341,    .01957,    .00122,
     +     .00000,    .01249,    .02601,
     +     .56604,    .21591,    .32172,    .01919,    .00151,
     +     .00000,    .01228,    .02511,
     +     .55506,    .21083,    .30213,    .01881,    .00171,
     +     .00000,    .01206,    .02427,
     +     .54351,    .20551,    .28263,    .01839,    .00191,
     +     .00000,    .01182,    .02340 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .53358,    .20098,    .26672,    .01802,    .00206,
     +     .00000,    .01161,    .02267,
     +     .52400,    .19667,    .25224,    .01765,    .00218,
     +     .00000,    .01139,    .02196,
     +     .51648,    .19333,    .24135,    .01737,    .00227,
     +     .00000,    .01122,    .02141,
     +     .50063,    .18632,    .21945,    .01675,    .00241,
     +     .00001,    .01085,    .02029,
     +     .48721,    .18045,    .20198,    .01622,    .00251,
     +     .00017,    .01051,    .01936,
     +     .47252,    .17406,    .18386,    .01563,    .00258,
     +     .00044,    .01013,    .01838,
     +     .45743,    .16764,    .16699,    .01502,    .00263,
     +     .00060,    .00972,    .01739,
     +     .44408,    .16199,    .15328,    .01448,    .00265,
     +     .00074,    .00936,    .01653 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43096,    .15649,    .14079,    .01396,    .00266,
     +     .00085,    .00900,    .01570,
     +     .42028,    .15205,    .13135,    .01353,    .00265,
     +     .00093,    .00872,    .01504,
     +     .40764,    .14682,    .12093,    .01300,    .00263,
     +     .00100,    .00838,    .01429,
     +     .39678,    .14236,    .11254,    .01253,    .00261,
     +     .00106,    .00809,    .01366,
     +     .38693,    .13837,    .10550,    .01215,    .00257,
     +     .00109,    .00782,    .01310,
     +     .37482,    .13347,    .09733,    .01166,    .00253,
     +     .00113,    .00750,    .01243,
     +     .36382,    .12901,    .09036,    .01118,    .00249,
     +     .00116,    .00719,    .01185,
     +     .35366,    .12497,    .08442,    .01079,    .00244,
     +     .00118,    .00692,    .01130 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34382,    .12108,    .07896,    .01040,    .00239,
     +     .00119,    .00667,    .01079,
     +     .33442,    .11737,    .07406,    .01002,    .00234,
     +     .00119,    .00642,    .01031,
     +     .32575,    .11398,    .06978,    .00968,    .00229,
     +     .00119,    .00620,    .00988,
     +     .31777,    .11087,    .06604,    .00938,    .00224,
     +     .00119,    .00599,    .00949,
     +     .30992,    .10783,    .06254,    .00909,    .00220,
     +     .00119,    .00579,    .00911,
     +     .30236,    .10493,    .05934,    .00881,    .00215,
     +     .00118,    .00560,    .00876,
     +     .29536,    .10224,    .05648,    .00856,    .00210,
     +     .00117,    .00543,    .00843,
     +     .28885,    .09976,    .05395,    .00832,    .00206,
     +     .00116,    .00527,    .00814 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .28248,    .09734,    .05154,    .00808,    .00202,
     +     .00115,    .00512,    .00785,
     +     .27627,    .09499,    .04930,    .00784,    .00197,
     +     .00114,    .00497,    .00758,
     +     .27051,    .09281,    .04728,    .00762,    .00193,
     +     .00113,    .00482,    .00732,
     +     .26514,    .09078,    .04546,    .00742,    .00190,
     +     .00112,    .00469,    .00710,
     +     .25980,    .08876,    .04373,    .00722,    .00186,
     +     .00110,    .00456,    .00688 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .61649,    .23352,    .39183,    .01808,    .00000,
     +     .00000,    .01035,    .02251,
     +     .60342,    .22747,    .36609,    .01776,    .00000,
     +     .00000,    .01025,    .02175,
     +     .58414,    .21867,    .32996,    .01725,    .00030,
     +     .00000,    .01006,    .02061,
     +     .57016,    .21241,    .30509,    .01689,    .00066,
     +     .00000,    .00990,    .01978,
     +     .55549,    .20591,    .28087,    .01645,    .00093,
     +     .00000,    .00968,    .01894,
     +     .54303,    .20042,    .26156,    .01607,    .00115,
     +     .00000,    .00950,    .01824,
     +     .53116,    .19524,    .24429,    .01569,    .00130,
     +     .00000,    .00931,    .01757,
     +     .51872,    .18985,    .22723,    .01528,    .00144,
     +     .00000,    .00910,    .01689 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .50807,    .18528,    .21342,    .01492,    .00155,
     +     .00000,    .00891,    .01632,
     +     .49787,    .18093,    .20095,    .01458,    .00164,
     +     .00000,    .00871,    .01578,
     +     .48989,    .17755,    .19163,    .01430,    .00170,
     +     .00000,    .00856,    .01537,
     +     .47313,    .17055,    .17306,    .01373,    .00180,
     +     .00001,    .00822,    .01451,
     +     .45902,    .16471,    .15839,    .01323,    .00186,
     +     .00012,    .00793,    .01379,
     +     .44366,    .15836,    .14335,    .01269,    .00191,
     +     .00032,    .00762,    .01304,
     +     .42800,    .15202,    .12946,    .01214,    .00193,
     +     .00044,    .00729,    .01229,
     +     .41423,    .14647,    .11827,    .01164,    .00194,
     +     .00053,    .00700,    .01164 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40077,    .14107,    .10814,    .01116,    .00194,
     +     .00062,    .00671,    .01101,
     +     .38986,    .13675,    .10053,    .01077,    .00193,
     +     .00067,    .00648,    .01052,
     +     .37696,    .13167,    .09219,    .01033,    .00191,
     +     .00072,    .00620,    .00995,
     +     .36592,    .12735,    .08551,    .00995,    .00188,
     +     .00076,    .00596,    .00948,
     +     .35599,    .12350,    .07993,    .00960,    .00186,
     +     .00078,    .00575,    .00907,
     +     .34379,    .11879,    .07350,    .00919,    .00182,
     +     .00081,    .00549,    .00858,
     +     .33271,    .11452,    .06803,    .00882,    .00178,
     +     .00083,    .00526,    .00814,
     +     .32259,    .11067,    .06341,    .00847,    .00174,
     +     .00083,    .00505,    .00774 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .31283,    .10697,    .05917,    .00813,    .00171,
     +     .00084,    .00485,    .00736,
     +     .30351,    .10344,    .05537,    .00782,    .00167,
     +     .00084,    .00465,    .00703,
     +     .29496,    .10022,    .05206,    .00753,    .00163,
     +     .00084,    .00447,    .00671,
     +     .28712,    .09729,    .04919,    .00728,    .00159,
     +     .00084,    .00432,    .00642,
     +     .27943,    .09443,    .04651,    .00703,    .00155,
     +     .00083,    .00417,    .00614,
     +     .27204,    .09171,    .04405,    .00680,    .00152,
     +     .00083,    .00403,    .00588,
     +     .26522,    .08920,    .04187,    .00658,    .00148,
     +     .00082,    .00390,    .00565,
     +     .25891,    .08687,    .03995,    .00638,    .00145,
     +     .00081,    .00377,    .00544 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .25275,    .08461,    .03811,    .00618,    .00142,
     +     .00080,    .00365,    .00524,
     +     .24673,    .08242,    .03642,    .00599,    .00139,
     +     .00079,    .00353,    .00505,
     +     .24115,    .08040,    .03489,    .00582,    .00136,
     +     .00078,    .00342,    .00488,
     +     .23597,    .07852,    .03352,    .00566,    .00133,
     +     .00078,    .00332,    .00472,
     +     .23083,    .07667,    .03221,    .00550,    .00130,
     +     .00077,    .00323,    .00456 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .59448,    .21780,    .32630,    .01537,    .00000,
     +     .00000,    .00809,    .01618,
     +     .58028,    .21162,    .30281,    .01503,    .00000,
     +     .00000,    .00798,    .01558,
     +     .55947,    .20268,    .27029,    .01451,    .00023,
     +     .00000,    .00779,    .01472,
     +     .54450,    .19634,    .24823,    .01411,    .00050,
     +     .00000,    .00762,    .01411,
     +     .52887,    .18978,    .22699,    .01369,    .00070,
     +     .00000,    .00744,    .01347,
     +     .51565,    .18428,    .21019,    .01333,    .00086,
     +     .00000,    .00728,    .01292,
     +     .50312,    .17912,    .19531,    .01297,    .00097,
     +     .00000,    .00712,    .01241,
     +     .49006,    .17377,    .18074,    .01258,    .00108,
     +     .00000,    .00693,    .01190 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .47892,    .16922,    .16902,    .01224,    .00116,
     +     .00000,    .00676,    .01148,
     +     .46828,    .16492,    .15849,    .01192,    .00122,
     +     .00000,    .00660,    .01107,
     +     .45999,    .16160,    .15065,    .01167,    .00126,
     +     .00000,    .00648,    .01074,
     +     .44269,    .15468,    .13517,    .01114,    .00132,
     +     .00001,    .00620,    .01011,
     +     .42819,    .14895,    .12309,    .01070,    .00137,
     +     .00009,    .00595,    .00958,
     +     .41243,    .14282,    .11081,    .01025,    .00140,
     +     .00023,    .00569,    .00899,
     +     .39651,    .13663,    .09955,    .00974,    .00141,
     +     .00032,    .00543,    .00845,
     +     .38258,    .13124,    .09056,    .00930,    .00141,
     +     .00038,    .00519,    .00798 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36901,    .12604,    .08248,    .00888,    .00140,
     +     .00044,    .00496,    .00753,
     +     .35806,    .12189,    .07643,    .00854,    .00139,
     +     .00048,    .00477,    .00719,
     +     .34518,    .11704,    .06984,    .00815,    .00137,
     +     .00051,    .00455,    .00678,
     +     .33420,    .11292,    .06459,    .00783,    .00135,
     +     .00054,    .00436,    .00644,
     +     .32435,    .10926,    .06023,    .00754,    .00133,
     +     .00056,    .00420,    .00614,
     +     .31231,    .10480,    .05522,    .00719,    .00130,
     +     .00057,    .00400,    .00578,
     +     .30143,    .10079,    .05097,    .00687,    .00127,
     +     .00058,    .00381,    .00546,
     +     .29148,    .09716,    .04741,    .00659,    .00124,
     +     .00059,    .00365,    .00517 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .28192,    .09368,    .04414,    .00631,    .00121,
     +     .00059,    .00350,    .00491,
     +     .27287,    .09038,    .04125,    .00604,    .00118,
     +     .00059,    .00335,    .00467,
     +     .26458,    .08739,    .03872,    .00581,    .00115,
     +     .00059,    .00321,    .00444,
     +     .25698,    .08467,    .03652,    .00560,    .00112,
     +     .00059,    .00310,    .00423,
     +     .24957,    .08202,    .03448,    .00539,    .00109,
     +     .00058,    .00298,    .00405,
     +     .24249,    .07948,    .03262,    .00518,    .00107,
     +     .00058,    .00286,    .00388,
     +     .23596,    .07715,    .03098,    .00500,    .00104,
     +     .00057,    .00276,    .00373,
     +     .22992,    .07502,    .02952,    .00484,    .00102,
     +     .00057,    .00267,    .00358 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .22402,    .07294,    .02813,    .00468,    .00099,
     +     .00056,    .00258,    .00344,
     +     .21830,    .07092,    .02686,    .00454,    .00097,
     +     .00055,    .00250,    .00330,
     +     .21301,    .06906,    .02571,    .00440,    .00095,
     +     .00054,    .00241,    .00318,
     +     .20809,    .06734,    .02468,    .00428,    .00093,
     +     .00054,    .00234,    .00307,
     +     .20322,    .06565,    .02369,    .00415,    .00091,
     +     .00053,    .00227,    .00297 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .56745,    .20124,    .26786,    .01290,    .00000,
     +     .00000,    .00627,    .01130,
     +     .55238,    .19507,    .24700,    .01256,    .00000,
     +     .00000,    .00616,    .01086,
     +     .53045,    .18615,    .21851,    .01204,    .00017,
     +     .00000,    .00599,    .01022,
     +     .51480,    .17982,    .19943,    .01165,    .00037,
     +     .00000,    .00585,    .00978,
     +     .49851,    .17336,    .18120,    .01125,    .00052,
     +     .00000,    .00568,    .00929,
     +     .48480,    .16794,    .16689,    .01091,    .00064,
     +     .00000,    .00552,    .00889,
     +     .47188,    .16283,    .15432,    .01056,    .00072,
     +     .00000,    .00537,    .00855,
     +     .45843,    .15758,    .14209,    .01021,    .00079,
     +     .00000,    .00521,    .00819 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44699,    .15315,    .13233,    .00991,    .00085,
     +     .00000,    .00508,    .00787,
     +     .43614,    .14897,    .12362,    .00963,    .00089,
     +     .00000,    .00495,    .00757,
     +     .42771,    .14574,    .11717,    .00940,    .00092,
     +     .00000,    .00484,    .00733,
     +     .41017,    .13905,    .10453,    .00892,    .00096,
     +     .00001,    .00462,    .00686,
     +     .39554,    .13352,    .09474,    .00853,    .00099,
     +     .00006,    .00443,    .00649,
     +     .37972,    .12762,    .08486,    .00811,    .00101,
     +     .00016,    .00423,    .00607,
     +     .36380,    .12169,    .07589,    .00769,    .00101,
     +     .00023,    .00401,    .00569,
     +     .34994,    .11657,    .06877,    .00731,    .00101,
     +     .00027,    .00382,    .00536 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33652,    .11164,    .06241,    .00695,    .00100,
     +     .00031,    .00363,    .00504,
     +     .32575,    .10770,    .05769,    .00666,    .00099,
     +     .00034,    .00348,    .00479,
     +     .31309,    .10312,    .05255,    .00633,    .00098,
     +     .00037,    .00332,    .00449,
     +     .30233,    .09925,    .04846,    .00606,    .00096,
     +     .00039,    .00318,    .00425,
     +     .29275,    .09581,    .04509,    .00581,    .00094,
     +     .00040,    .00305,    .00405,
     +     .28105,    .09164,    .04123,    .00552,    .00092,
     +     .00041,    .00289,    .00381,
     +     .27049,    .08791,    .03797,    .00527,    .00090,
     +     .00042,    .00274,    .00358,
     +     .26092,    .08453,    .03526,    .00503,    .00087,
     +     .00042,    .00262,    .00339 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .25175,    .08130,    .03278,    .00480,    .00085,
     +     .00042,    .00250,    .00321,
     +     .24308,    .07826,    .03057,    .00457,    .00083,
     +     .00042,    .00239,    .00305,
     +     .23516,    .07551,    .02866,    .00438,    .00080,
     +     .00042,    .00230,    .00289,
     +     .22792,    .07301,    .02700,    .00422,    .00078,
     +     .00041,    .00221,    .00275,
     +     .22087,    .07058,    .02547,    .00406,    .00076,
     +     .00041,    .00212,    .00262,
     +     .21415,    .06827,    .02407,    .00391,    .00074,
     +     .00041,    .00203,    .00251,
     +     .20796,    .06615,    .02283,    .00377,    .00073,
     +     .00040,    .00195,    .00240,
     +     .20226,    .06421,    .02173,    .00364,    .00071,
     +     .00040,    .00188,    .00231 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .19671,    .06232,    .02069,    .00352,    .00069,
     +     .00039,    .00181,    .00221,
     +     .19136,    .06049,    .01974,    .00338,    .00067,
     +     .00039,    .00175,    .00212,
     +     .18643,    .05881,    .01888,    .00326,    .00066,
     +     .00038,    .00170,    .00204,
     +     .18185,    .05725,    .01811,    .00315,    .00064,
     +     .00038,    .00164,    .00196,
     +     .17733,    .05572,    .01737,    .00305,    .00063,
     +     .00037,    .00159,    .00189 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .53626,    .18443,    .21682,    .01078,    .00000,
     +     .00000,    .00473,    .00758,
     +     .52065,    .17831,    .19872,    .01044,    .00000,
     +     .00000,    .00463,    .00728,
     +     .49800,    .16955,    .17430,    .00994,    .00013,
     +     .00000,    .00448,    .00683,
     +     .48186,    .16339,    .15812,    .00961,    .00027,
     +     .00000,    .00436,    .00649,
     +     .46524,    .15707,    .14281,    .00923,    .00039,
     +     .00000,    .00423,    .00617,
     +     .45132,    .15178,    .13088,    .00889,    .00047,
     +     .00000,    .00410,    .00591,
     +     .43825,    .14682,    .12050,    .00856,    .00053,
     +     .00000,    .00398,    .00569,
     +     .42468,    .14175,    .11046,    .00825,    .00058,
     +     .00000,    .00385,    .00542 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41315,    .13749,    .10247,    .00800,    .00062,
     +     .00000,    .00375,    .00517,
     +     .40229,    .13347,    .09539,    .00772,    .00065,
     +     .00000,    .00364,    .00496,
     +     .39389,    .13037,    .09018,    .00750,    .00067,
     +     .00000,    .00355,    .00482,
     +     .37640,    .12397,    .08002,    .00709,    .00070,
     +     .00000,    .00337,    .00450,
     +     .36187,    .11872,    .07221,    .00676,    .00071,
     +     .00005,    .00322,    .00423,
     +     .34629,    .11310,    .06440,    .00640,    .00072,
     +     .00012,    .00307,    .00396,
     +     .33068,    .10752,    .05737,    .00604,    .00073,
     +     .00016,    .00289,    .00369,
     +     .31710,    .10270,    .05181,    .00572,    .00072,
     +     .00019,    .00274,    .00346 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30399,    .09808,    .04687,    .00542,    .00071,
     +     .00022,    .00260,    .00325,
     +     .29353,    .09440,    .04322,    .00516,    .00070,
     +     .00024,    .00249,    .00309,
     +     .28128,    .09013,    .03926,    .00490,    .00069,
     +     .00026,    .00236,    .00289,
     +     .27089,    .08653,    .03613,    .00469,    .00068,
     +     .00027,    .00225,    .00272,
     +     .26171,    .08336,    .03356,    .00448,    .00066,
     +     .00028,    .00216,    .00259,
     +     .25054,    .07950,    .03063,    .00423,    .00065,
     +     .00029,    .00204,    .00244,
     +     .24050,    .07605,    .02817,    .00401,    .00063,
     +     .00030,    .00193,    .00230,
     +     .23141,    .07296,    .02611,    .00381,    .00061,
     +     .00030,    .00184,    .00217 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .22272,    .07002,    .02424,    .00363,    .00060,
     +     .00030,    .00176,    .00204,
     +     .21447,    .06726,    .02258,    .00349,    .00058,
     +     .00030,    .00168,    .00192,
     +     .20700,    .06475,    .02114,    .00334,    .00056,
     +     .00030,    .00160,    .00181,
     +     .20023,    .06247,    .01990,    .00320,    .00055,
     +     .00030,    .00154,    .00172,
     +     .19365,    .06027,    .01874,    .00306,    .00053,
     +     .00030,    .00147,    .00164,
     +     .18737,    .05819,    .01770,    .00294,    .00052,
     +     .00030,    .00141,    .00156,
     +     .18162,    .05628,    .01677,    .00282,    .00051,
     +     .00029,    .00135,    .00149,
     +     .17634,    .05453,    .01596,    .00272,    .00049,
     +     .00029,    .00130,    .00144 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .17121,    .05283,    .01518,    .00261,    .00048,
     +     .00029,    .00125,    .00138,
     +     .16624,    .05120,    .01447,    .00252,    .00047,
     +     .00029,    .00121,    .00131,
     +     .16165,    .04971,    .01383,    .00244,    .00046,
     +     .00029,    .00117,    .00125,
     +     .15743,    .04832,    .01325,    .00235,    .00045,
     +     .00028,    .00113,    .00120,
     +     .15328,    .04696,    .01270,    .00226,    .00044,
     +     .00028,    .00109,    .00117 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .50178,    .16749,    .17280,    .00882,    .00000,
     +     .00000,    .00354,    .00489,
     +     .48587,    .16153,    .15748,    .00851,    .00000,
     +     .00000,    .00346,    .00470,
     +     .46296,    .15302,    .13702,    .00804,    .00009,
     +     .00000,    .00333,    .00441,
     +     .44675,    .14706,    .12364,    .00771,    .00020,
     +     .00000,    .00322,    .00421,
     +     .43005,    .14098,    .11107,    .00738,    .00028,
     +     .00000,    .00311,    .00398,
     +     .41610,    .13593,    .10133,    .00709,    .00034,
     +     .00000,    .00300,    .00379,
     +     .40306,    .13122,    .09292,    .00684,    .00038,
     +     .00000,    .00290,    .00362,
     +     .38959,    .12639,    .08481,    .00657,    .00042,
     +     .00000,    .00280,    .00344 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37820,    .12234,    .07839,    .00634,    .00045,
     +     .00000,    .00271,    .00328,
     +     .36747,    .11854,    .07275,    .00612,    .00047,
     +     .00000,    .00262,    .00314,
     +     .35918,    .11561,    .06861,    .00595,    .00048,
     +     .00000,    .00255,    .00304,
     +     .34206,    .10958,    .06060,    .00559,    .00050,
     +     .00000,    .00242,    .00283,
     +     .32791,    .10463,    .05449,    .00530,    .00051,
     +     .00003,    .00230,    .00266,
     +     .31274,    .09939,    .04840,    .00499,    .00052,
     +     .00008,    .00218,    .00247,
     +     .29765,    .09418,    .04296,    .00469,    .00052,
     +     .00011,    .00205,    .00230,
     +     .28459,    .08971,    .03869,    .00443,    .00051,
     +     .00013,    .00194,    .00215 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27202,    .08542,    .03491,    .00417,    .00051,
     +     .00015,    .00183,    .00202,
     +     .26199,    .08203,    .03212,    .00398,    .00050,
     +     .00016,    .00174,    .00192,
     +     .25034,    .07810,    .02912,    .00376,    .00049,
     +     .00018,    .00165,    .00179,
     +     .24051,    .07480,    .02676,    .00357,    .00048,
     +     .00018,    .00157,    .00167,
     +     .23182,    .07190,    .02482,    .00340,    .00047,
     +     .00019,    .00149,    .00158,
     +     .22127,    .06839,    .02262,    .00320,    .00046,
     +     .00019,    .00140,    .00148,
     +     .21181,    .06527,    .02077,    .00304,    .00045,
     +     .00020,    .00133,    .00138,
     +     .20327,    .06246,    .01923,    .00290,    .00043,
     +     .00020,    .00126,    .00130 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .19514,    .05980,    .01783,    .00277,    .00042,
     +     .00020,    .00120,    .00122,
     +     .18752,    .05729,    .01660,    .00262,    .00041,
     +     .00020,    .00114,    .00116,
     +     .18060,    .05503,    .01553,    .00249,    .00040,
     +     .00020,    .00108,    .00110,
     +     .17433,    .05300,    .01460,    .00237,    .00039,
     +     .00020,    .00103,    .00104,
     +     .16825,    .05104,    .01374,    .00226,    .00038,
     +     .00020,    .00099,    .00099,
     +     .16247,    .04918,    .01296,    .00217,    .00037,
     +     .00020,    .00094,    .00095,
     +     .15718,    .04748,    .01228,    .00208,    .00037,
     +     .00020,    .00091,    .00091,
     +     .15233,    .04592,    .01167,    .00200,    .00036,
     +     .00020,    .00087,    .00086 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14762,    .04441,    .01110,    .00192,    .00035,
     +     .00020,    .00084,    .00082,
     +     .14309,    .04297,    .01057,    .00185,    .00034,
     +     .00020,    .00081,    .00079,
     +     .13893,    .04164,    .01009,    .00178,    .00034,
     +     .00020,    .00078,    .00075,
     +     .13508,    .04043,    .00967,    .00172,    .00033,
     +     .00020,    .00076,    .00072,
     +     .13130,    .03923,    .00926,    .00165,    .00032,
     +     .00020,    .00072,    .00069 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .46494,    .15057,    .13543,    .00701,    .00000,
     +     .00000,    .00263,    .00306,
     +     .44898,    .14487,    .12276,    .00675,    .00000,
     +     .00000,    .00256,    .00293,
     +     .42608,    .13676,    .10600,    .00636,    .00007,
     +     .00000,    .00246,    .00272,
     +     .41001,    .13109,    .09513,    .00606,    .00014,
     +     .00000,    .00237,    .00259,
     +     .39355,    .12530,    .08499,    .00576,    .00020,
     +     .00000,    .00228,    .00247,
     +     .37982,    .12051,    .07719,    .00551,    .00024,
     +     .00000,    .00220,    .00236,
     +     .36700,    .11608,    .07051,    .00528,    .00027,
     +     .00000,    .00213,    .00224,
     +     .35383,    .11154,    .06411,    .00504,    .00030,
     +     .00000,    .00204,    .00213 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .34277,    .10773,    .05908,    .00484,    .00032,
     +     .00000,    .00196,    .00205,
     +     .33237,    .10416,    .05468,    .00465,    .00034,
     +     .00000,    .00190,    .00196,
     +     .32434,    .10142,    .05145,    .00450,    .00035,
     +     .00000,    .00185,    .00189,
     +     .30778,    .09582,    .04525,    .00421,    .00036,
     +     .00000,    .00174,    .00175,
     +     .29416,    .09125,    .04055,    .00397,    .00037,
     +     .00002,    .00165,    .00164,
     +     .27963,    .08638,    .03590,    .00372,    .00038,
     +     .00005,    .00155,    .00153,
     +     .26520,    .08160,    .03176,    .00349,    .00038,
     +     .00007,    .00147,    .00143,
     +     .25279,    .07750,    .02853,    .00329,    .00037,
     +     .00009,    .00138,    .00134 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .24090,    .07358,    .02568,    .00309,    .00037,
     +     .00010,    .00129,    .00125,
     +     .23147,    .07049,    .02359,    .00293,    .00036,
     +     .00011,    .00124,    .00117,
     +     .22052,    .06692,    .02135,    .00275,    .00036,
     +     .00011,    .00116,    .00109,
     +     .21131,    .06394,    .01959,    .00260,    .00035,
     +     .00012,    .00110,    .00103,
     +     .20315,    .06132,    .01815,    .00249,    .00034,
     +     .00012,    .00105,    .00096,
     +     .19333,    .05817,    .01651,    .00234,    .00033,
     +     .00012,    .00099,    .00090,
     +     .18461,    .05535,    .01515,    .00219,    .00032,
     +     .00012,    .00094,    .00084,
     +     .17675,    .05284,    .01401,    .00206,    .00032,
     +     .00012,    .00089,    .00079 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16927,    .05047,    .01298,    .00195,    .00031,
     +     .00012,    .00084,    .00075,
     +     .16224,    .04824,    .01207,    .00186,    .00030,
     +     .00012,    .00080,    .00070,
     +     .15588,    .04623,    .01128,    .00177,    .00030,
     +     .00012,    .00076,    .00067,
     +     .15013,    .04443,    .01060,    .00169,    .00029,
     +     .00012,    .00073,    .00064,
     +     .14458,    .04270,    .00997,    .00161,    .00029,
     +     .00012,    .00069,    .00061,
     +     .13933,    .04106,    .00940,    .00153,    .00028,
     +     .00012,    .00066,    .00058,
     +     .13454,    .03956,    .00890,    .00146,    .00027,
     +     .00012,    .00063,    .00055,
     +     .13016,    .03819,    .00845,    .00140,    .00027,
     +     .00012,    .00061,    .00053 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .12591,    .03687,    .00803,    .00133,    .00026,
     +     .00012,    .00058,    .00050,
     +     .12181,    .03562,    .00764,    .00129,    .00026,
     +     .00012,    .00056,    .00047,
     +     .11805,    .03447,    .00730,    .00124,    .00026,
     +     .00012,    .00054,    .00045,
     +     .11460,    .03341,    .00698,    .00120,    .00025,
     +     .00012,    .00052,    .00043,
     +     .11122,    .03237,    .00668,    .00115,    .00025,
     +     .00012,    .00050,    .00042 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .42643,    .13419,    .10434,    .00547,    .00000,
     +     .00000,    .00192,    .00181,
     +     .41073,    .12876,    .09407,    .00521,    .00000,
     +     .00000,    .00186,    .00175,
     +     .38829,    .12105,    .08063,    .00485,    .00005,
     +     .00000,    .00177,    .00165,
     +     .37254,    .11570,    .07200,    .00463,    .00010,
     +     .00000,    .00172,    .00155,
     +     .35652,    .11028,    .06400,    .00436,    .00014,
     +     .00000,    .00164,    .00149,
     +     .34322,    .10581,    .05789,    .00414,    .00017,
     +     .00000,    .00158,    .00144,
     +     .33084,    .10167,    .05269,    .00396,    .00019,
     +     .00000,    .00153,    .00139,
     +     .31815,    .09745,    .04774,    .00377,    .00021,
     +     .00000,    .00147,    .00132 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .30750,    .09392,    .04387,    .00360,    .00022,
     +     .00000,    .00140,    .00125,
     +     .29751,    .09063,    .04049,    .00346,    .00023,
     +     .00000,    .00136,    .00119,
     +     .28981,    .08811,    .03802,    .00335,    .00024,
     +     .00000,    .00133,    .00115,
     +     .27404,    .08295,    .03332,    .00311,    .00025,
     +     .00000,    .00125,    .00107,
     +     .26113,    .07875,    .02977,    .00292,    .00026,
     +     .00001,    .00118,    .00100,
     +     .24739,    .07432,    .02629,    .00275,    .00026,
     +     .00004,    .00111,    .00091,
     +     .23387,    .06997,    .02321,    .00254,    .00026,
     +     .00005,    .00104,    .00085,
     +     .22226,    .06625,    .02081,    .00236,    .00026,
     +     .00006,    .00099,    .00080 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .21115,    .06272,    .01869,    .00221,    .00026,
     +     .00006,    .00093,    .00075,
     +     .20233,    .05994,    .01715,    .00210,    .00026,
     +     .00007,    .00088,    .00071,
     +     .19218,    .05675,    .01550,    .00197,    .00026,
     +     .00007,    .00082,    .00066,
     +     .18368,    .05408,    .01420,    .00186,    .00025,
     +     .00007,    .00078,    .00062,
     +     .17621,    .05173,    .01315,    .00175,    .00025,
     +     .00007,    .00074,    .00060,
     +     .16719,    .04893,    .01196,    .00163,    .00025,
     +     .00007,    .00069,    .00056,
     +     .15915,    .04645,    .01096,    .00154,    .00025,
     +     .00007,    .00066,    .00051,
     +     .15198,    .04423,    .01013,    .00145,    .00024,
     +     .00007,    .00062,    .00049 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .14518,    .04214,    .00937,    .00137,    .00023,
     +     .00007,    .00058,    .00046,
     +     .13883,    .04018,    .00870,    .00129,    .00023,
     +     .00007,    .00055,    .00043,
     +     .13310,    .03843,    .00813,    .00122,    .00023,
     +     .00007,    .00052,    .00041,
     +     .12791,    .03686,    .00764,    .00115,    .00022,
     +     .00007,    .00050,    .00038,
     +     .12293,    .03534,    .00718,    .00109,    .00022,
     +     .00007,    .00048,    .00036,
     +     .11824,    .03392,    .00676,    .00103,    .00022,
     +     .00007,    .00046,    .00034,
     +     .11395,    .03262,    .00640,    .00098,    .00021,
     +     .00007,    .00044,    .00033,
     +     .11001,    .03144,    .00607,    .00095,    .00021,
     +     .00007,    .00042,    .00031 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .10620,    .03030,    .00577,    .00091,    .00021,
     +     .00007,    .00040,    .00030,
     +     .10257,    .02921,    .00549,    .00087,    .00021,
     +     .00007,    .00038,    .00029,
     +     .09924,    .02822,    .00523,    .00083,    .00021,
     +     .00007,    .00037,    .00028,
     +     .09618,    .02731,    .00500,    .00080,    .00020,
     +     .00007,    .00036,    .00027,
     +     .09319,    .02642,    .00479,    .00077,    .00020,
     +     .00007,    .00034,    .00026 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .38711,    .11853,    .07911,    .00429,    .00000,
     +     .00000,    .00132,    .00094,
     +     .37186,    .11346,    .07099,    .00409,    .00000,
     +     .00000,    .00127,    .00092,
     +     .35017,    .10630,    .06045,    .00380,    .00003,
     +     .00000,    .00120,    .00088,
     +     .33504,    .10134,    .05375,    .00360,    .00007,
     +     .00000,    .00116,    .00082,
     +     .31968,    .09632,    .04760,    .00337,    .00010,
     +     .00000,    .00110,    .00079,
     +     .30698,    .09219,    .04292,    .00319,    .00011,
     +     .00000,    .00106,    .00075,
     +     .29520,    .08839,    .03896,    .00303,    .00013,
     +     .00000,    .00102,    .00072,
     +     .28315,    .08451,    .03520,    .00289,    .00014,
     +     .00000,    .00097,    .00068 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .27305,    .08128,    .03228,    .00277,    .00015,
     +     .00000,    .00093,    .00064,
     +     .26364,    .07828,    .02973,    .00265,    .00015,
     +     .00000,    .00090,    .00062,
     +     .25642,    .07599,    .02788,    .00255,    .00016,
     +     .00000,    .00087,    .00059,
     +     .24164,    .07130,    .02436,    .00235,    .00016,
     +     .00000,    .00082,    .00056,
     +     .22956,    .06750,    .02172,    .00221,    .00016,
     +     .00001,    .00077,    .00053,
     +     .21675,    .06352,    .01914,    .00208,    .00016,
     +     .00002,    .00073,    .00050,
     +     .20422,    .05961,    .01686,    .00191,    .00016,
     +     .00003,    .00067,    .00046,
     +     .19348,    .05628,    .01510,    .00179,    .00016,
     +     .00003,    .00063,    .00042 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18326,    .05313,    .01355,    .00168,    .00016,
     +     .00003,    .00058,    .00038,
     +     .17522,    .05066,    .01243,    .00157,    .00016,
     +     .00003,    .00055,    .00037,
     +     .16595,    .04782,    .01123,    .00146,    .00016,
     +     .00003,    .00052,    .00035,
     +     .15821,    .04545,    .01028,    .00137,    .00016,
     +     .00003,    .00050,    .00033,
     +     .15140,    .04340,    .00951,    .00130,    .00016,
     +     .00003,    .00047,    .00031,
     +     .14323,    .04093,    .00864,    .00121,    .00016,
     +     .00003,    .00044,    .00029,
     +     .13601,    .03875,    .00792,    .00113,    .00016,
     +     .00003,    .00041,    .00027,
     +     .12954,    .03682,    .00731,    .00107,    .00016,
     +     .00003,    .00038,    .00025 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .12343,    .03500,    .00676,    .00102,    .00016,
     +     .00003,    .00036,    .00023,
     +     .11772,    .03331,    .00628,    .00096,    .00016,
     +     .00003,    .00034,    .00021,
     +     .11260,    .03178,    .00586,    .00090,    .00016,
     +     .00003,    .00032,    .00020,
     +     .10800,    .03041,    .00550,    .00085,    .00016,
     +     .00003,    .00031,    .00019,
     +     .10357,    .02910,    .00517,    .00081,    .00016,
     +     .00003,    .00029,    .00018,
     +     .09939,    .02787,    .00487,    .00078,    .00016,
     +     .00003,    .00028,    .00016,
     +     .09559,    .02676,    .00460,    .00074,    .00016,
     +     .00003,    .00027,    .00016,
     +     .09216,    .02574,    .00437,    .00070,    .00016,
     +     .00003,    .00025,    .00016 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08884,    .02476,    .00415,    .00066,    .00016,
     +     .00003,    .00024,    .00016,
     +     .08565,    .02383,    .00394,    .00063,    .00016,
     +     .00003,    .00023,    .00015,
     +     .08272,    .02299,    .00376,    .00061,    .00016,
     +     .00003,    .00022,    .00014,
     +     .08004,    .02222,    .00359,    .00059,    .00016,
     +     .00003,    .00021,    .00013,
     +     .07742,    .02146,    .00343,    .00057,    .00016,
     +     .00003,    .00020,    .00012 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34756,    .10327,    .05859,    .00306,    .00000,
     +     .00000,    .00097,    .00053,
     +     .33296,    .09861,    .05236,    .00290,    .00000,
     +     .00000,    .00093,    .00052,
     +     .31227,    .09204,    .04434,    .00268,    .00002,
     +     .00000,    .00087,    .00050,
     +     .29790,    .08749,    .03926,    .00253,    .00004,
     +     .00000,    .00084,    .00047,
     +     .28336,    .08294,    .03464,    .00239,    .00006,
     +     .00000,    .00080,    .00043,
     +     .27137,    .07920,    .03114,    .00227,    .00007,
     +     .00000,    .00076,    .00040,
     +     .26032,    .07574,    .02818,    .00214,    .00008,
     +     .00000,    .00072,    .00040,
     +     .24905,    .07224,    .02541,    .00202,    .00009,
     +     .00000,    .00069,    .00039 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .23964,    .06934,    .02325,    .00194,    .00009,
     +     .00000,    .00066,    .00037,
     +     .23085,    .06665,    .02138,    .00186,    .00009,
     +     .00000,    .00063,    .00034,
     +     .22412,    .06461,    .02003,    .00180,    .00010,
     +     .00000,    .00061,    .00032,
     +     .21042,    .06042,    .01745,    .00167,    .00010,
     +     .00000,    .00057,    .00030,
     +     .19932,    .05703,    .01553,    .00155,    .00010,
     +     .00000,    .00053,    .00029,
     +     .18767,    .05346,    .01367,    .00140,    .00010,
     +     .00001,    .00050,    .00028,
     +     .17616,    .05002,    .01203,    .00129,    .00010,
     +     .00001,    .00046,    .00025,
     +     .16636,    .04710,    .01077,    .00122,    .00010,
     +     .00001,    .00043,    .00023 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15708,    .04434,    .00966,    .00115,    .00010,
     +     .00001,    .00040,    .00022,
     +     .14980,    .04217,    .00885,    .00107,    .00010,
     +     .00001,    .00038,    .00020,
     +     .14146,    .03968,    .00799,    .00098,    .00010,
     +     .00001,    .00035,    .00019,
     +     .13451,    .03762,    .00731,    .00091,    .00010,
     +     .00001,    .00032,    .00019,
     +     .12840,    .03584,    .00676,    .00087,    .00010,
     +     .00001,    .00031,    .00017,
     +     .12109,    .03370,    .00614,    .00082,    .00010,
     +     .00001,    .00029,    .00016,
     +     .11463,    .03182,    .00562,    .00078,    .00010,
     +     .00001,    .00027,    .00015,
     +     .10891,    .03015,    .00519,    .00072,    .00010,
     +     .00001,    .00025,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .10351,    .02858,    .00480,    .00067,    .00010,
     +     .00001,    .00024,    .00013,
     +     .09851,    .02713,    .00445,    .00062,    .00010,
     +     .00001,    .00022,    .00012,
     +     .09400,    .02583,    .00416,    .00059,    .00010,
     +     .00001,    .00021,    .00011,
     +     .08994,    .02467,    .00390,    .00057,    .00010,
     +     .00001,    .00020,    .00011,
     +     .08606,    .02356,    .00366,    .00054,    .00010,
     +     .00001,    .00019,    .00010,
     +     .08242,    .02252,    .00345,    .00051,    .00010,
     +     .00001,    .00018,    .00009,
     +     .07912,    .02158,    .00325,    .00049,    .00010,
     +     .00001,    .00017,    .00008,
     +     .07612,    .02072,    .00309,    .00046,    .00010,
     +     .00001,    .00016,    .00008 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .07323,    .01990,    .00293,    .00044,    .00010,
     +     .00001,    .00016,    .00008,
     +     .07047,    .01912,    .00278,    .00042,    .00010,
     +     .00001,    .00015,    .00007,
     +     .06794,    .01841,    .00265,    .00041,    .00010,
     +     .00001,    .00015,    .00007,
     +     .06563,    .01776,    .00253,    .00039,    .00010,
     +     .00001,    .00014,    .00007,
     +     .06338,    .01713,    .00242,    .00038,    .00010,
     +     .00001,    .00013,    .00006 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30835,    .08905,    .04253,    .00219,    .00000,
     +     .00000,    .00070,    .00026,
     +     .29460,    .08480,    .03785,    .00206,    .00000,
     +     .00000,    .00066,    .00026,
     +     .27520,    .07884,    .03187,    .00188,    .00001,
     +     .00000,    .00060,    .00025,
     +     .26175,    .07475,    .02812,    .00177,    .00003,
     +     .00000,    .00058,    .00024,
     +     .24822,    .07065,    .02473,    .00165,    .00004,
     +     .00000,    .00055,    .00024,
     +     .23710,    .06729,    .02218,    .00155,    .00005,
     +     .00000,    .00052,    .00023,
     +     .22686,    .06419,    .02003,    .00147,    .00005,
     +     .00000,    .00050,    .00022,
     +     .21645,    .06107,    .01802,    .00139,    .00005,
     +     .00000,    .00047,    .00021 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .20779,    .05849,    .01646,    .00133,    .00005,
     +     .00000,    .00045,    .00020,
     +     .19975,    .05609,    .01512,    .00126,    .00005,
     +     .00000,    .00043,    .00019,
     +     .19362,    .05426,    .01415,    .00121,    .00005,
     +     .00000,    .00042,    .00019,
     +     .18113,    .05057,    .01231,    .00111,    .00005,
     +     .00000,    .00039,    .00018,
     +     .17103,    .04760,    .01095,    .00103,    .00005,
     +     .00000,    .00037,    .00017,
     +     .16043,    .04449,    .00962,    .00093,    .00005,
     +     .00000,    .00034,    .00015,
     +     .15008,    .04146,    .00846,    .00086,    .00005,
     +     .00000,    .00031,    .00014,
     +     .14128,    .03892,    .00756,    .00081,    .00005,
     +     .00000,    .00029,    .00013 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13297,    .03652,    .00678,    .00076,    .00005,
     +     .00000,    .00027,    .00011,
     +     .12647,    .03464,    .00621,    .00071,    .00005,
     +     .00000,    .00026,    .00011,
     +     .11904,    .03251,    .00561,    .00065,    .00005,
     +     .00000,    .00024,    .00010,
     +     .11288,    .03075,    .00513,    .00061,    .00005,
     +     .00000,    .00022,    .00010,
     +     .10749,    .02922,    .00475,    .00057,    .00005,
     +     .00000,    .00021,    .00010,
     +     .10106,    .02739,    .00431,    .00053,    .00005,
     +     .00000,    .00019,    .00009,
     +     .09540,    .02578,    .00395,    .00050,    .00005,
     +     .00000,    .00018,    .00009,
     +     .09041,    .02437,    .00364,    .00046,    .00005,
     +     .00000,    .00017,    .00008 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08570,    .02305,    .00337,    .00043,    .00005,
     +     .00000,    .00017,    .00007,
     +     .08133,    .02183,    .00312,    .00040,    .00005,
     +     .00000,    .00015,    .00007,
     +     .07743,    .02073,    .00291,    .00037,    .00005,
     +     .00000,    .00014,    .00007,
     +     .07393,    .01975,    .00273,    .00036,    .00005,
     +     .00000,    .00013,    .00006,
     +     .07059,    .01882,    .00256,    .00034,    .00005,
     +     .00000,    .00013,    .00006,
     +     .06747,    .01795,    .00241,    .00031,    .00005,
     +     .00000,    .00012,    .00007,
     +     .06463,    .01716,    .00227,    .00029,    .00005,
     +     .00000,    .00011,    .00006,
     +     .06205,    .01645,    .00215,    .00028,    .00005,
     +     .00000,    .00011,    .00005 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05956,    .01577,    .00204,    .00027,    .00005,
     +     .00000,    .00010,    .00004,
     +     .05721,    .01513,    .00194,    .00026,    .00005,
     +     .00000,    .00010,    .00004,
     +     .05506,    .01454,    .00184,    .00025,    .00005,
     +     .00000,    .00010,    .00004,
     +     .05310,    .01400,    .00176,    .00024,    .00005,
     +     .00000,    .00009,    .00003,
     +     .05119,    .01348,    .00168,    .00023,    .00005,
     +     .00000,    .00009,    .00003 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .27043,    .07600,    .03023,    .00156,    .00000,
     +     .00000,    .00043,    .00009,
     +     .25765,    .07217,    .02682,    .00147,    .00000,
     +     .00000,    .00041,    .00009,
     +     .23969,    .06683,    .02249,    .00134,    .00001,
     +     .00000,    .00039,    .00008,
     +     .22732,    .06319,    .01979,    .00125,    .00002,
     +     .00000,    .00037,    .00009,
     +     .21489,    .05953,    .01736,    .00116,    .00002,
     +     .00000,    .00035,    .00009,
     +     .20472,    .05655,    .01554,    .00110,    .00002,
     +     .00000,    .00033,    .00010,
     +     .19538,    .05382,    .01401,    .00103,    .00002,
     +     .00000,    .00031,    .00010,
     +     .18592,    .05108,    .01259,    .00097,    .00002,
     +     .00000,    .00029,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .17807,    .04882,    .01149,    .00094,    .00002,
     +     .00000,    .00028,    .00007,
     +     .17079,    .04673,    .01055,    .00090,    .00002,
     +     .00000,    .00026,    .00007,
     +     .16522,    .04514,    .00986,    .00086,    .00002,
     +     .00000,    .00025,    .00007,
     +     .15399,    .04191,    .00858,    .00079,    .00002,
     +     .00000,    .00023,    .00007,
     +     .14495,    .03932,    .00762,    .00073,    .00002,
     +     .00000,    .00022,    .00007,
     +     .13550,    .03664,    .00670,    .00066,    .00002,
     +     .00000,    .00020,    .00008,
     +     .12631,    .03403,    .00589,    .00060,    .00002,
     +     .00000,    .00018,    .00006,
     +     .11854,    .03183,    .00527,    .00056,    .00002,
     +     .00000,    .00017,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .11123,    .02978,    .00473,    .00051,    .00002,
     +     .00000,    .00015,    .00006,
     +     .10553,    .02818,    .00433,    .00047,    .00002,
     +     .00000,    .00014,    .00005,
     +     .09901,    .02636,    .00391,    .00044,    .00002,
     +     .00000,    .00014,    .00005,
     +     .09361,    .02486,    .00358,    .00042,    .00002,
     +     .00000,    .00013,    .00005,
     +     .08895,    .02357,    .00331,    .00038,    .00002,
     +     .00000,    .00012,    .00004,
     +     .08337,    .02203,    .00300,    .00036,    .00002,
     +     .00000,    .00011,    .00004,
     +     .07846,    .02069,    .00275,    .00034,    .00002,
     +     .00000,    .00011,    .00003,
     +     .07414,    .01950,    .00254,    .00031,    .00002,
     +     .00000,    .00010,    .00003 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .07010,    .01839,    .00234,    .00029,    .00002,
     +     .00000,    .00009,    .00003,
     +     .06636,    .01737,    .00217,    .00027,    .00002,
     +     .00000,    .00009,    .00003,
     +     .06303,    .01647,    .00203,    .00026,    .00002,
     +     .00000,    .00008,    .00002,
     +     .06004,    .01565,    .00190,    .00024,    .00002,
     +     .00000,    .00008,    .00002,
     +     .05720,    .01488,    .00178,    .00023,    .00002,
     +     .00000,    .00007,    .00002,
     +     .05454,    .01417,    .00167,    .00022,    .00002,
     +     .00000,    .00006,    .00002,
     +     .05214,    .01352,    .00158,    .00020,    .00002,
     +     .00000,    .00006,    .00002,
     +     .04997,    .01293,    .00149,    .00019,    .00002,
     +     .00000,    .00006,    .00002 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04788,    .01237,    .00141,    .00018,    .00002,
     +     .00000,    .00006,    .00002,
     +     .04590,    .01184,    .00134,    .00017,    .00002,
     +     .00000,    .00005,    .00002,
     +     .04410,    .01136,    .00128,    .00017,    .00002,
     +     .00000,    .00005,    .00002,
     +     .04246,    .01093,    .00122,    .00016,    .00002,
     +     .00000,    .00005,    .00002,
     +     .04086,    .01050,    .00116,    .00015,    .00002,
     +     .00000,    .00005,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .23379,    .06379,    .02087,    .00099,    .00000,
     +     .00000,    .00031,    .00004,
     +     .22210,    .06042,    .01846,    .00093,    .00000,
     +     .00000,    .00030,    .00005,
     +     .20574,    .05571,    .01542,    .00084,    .00000,
     +     .00000,    .00028,    .00006,
     +     .19452,    .05252,    .01354,    .00077,    .00000,
     +     .00000,    .00026,    .00006,
     +     .18331,    .04933,    .01186,    .00072,    .00000,
     +     .00000,    .00025,    .00005,
     +     .17415,    .04673,    .01060,    .00067,    .00000,
     +     .00000,    .00024,    .00005,
     +     .16579,    .04437,    .00955,    .00062,    .00000,
     +     .00000,    .00022,    .00005,
     +     .15732,    .04199,    .00858,    .00058,    .00000,
     +     .00000,    .00021,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .15031,    .04002,    .00783,    .00056,    .00000,
     +     .00000,    .00019,    .00005,
     +     .14383,    .03822,    .00718,    .00053,    .00000,
     +     .00000,    .00018,    .00005,
     +     .13890,    .03686,    .00671,    .00050,    .00000,
     +     .00000,    .00017,    .00005,
     +     .12895,    .03410,    .00584,    .00047,    .00000,
     +     .00000,    .00016,    .00004,
     +     .12096,    .03190,    .00519,    .00044,    .00000,
     +     .00000,    .00015,    .00005,
     +     .11265,    .02961,    .00456,    .00040,    .00000,
     +     .00000,    .00013,    .00006,
     +     .10464,    .02740,    .00401,    .00035,    .00000,
     +     .00000,    .00013,    .00004,
     +     .09788,    .02555,    .00359,    .00032,    .00000,
     +     .00000,    .00012,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09153,    .02383,    .00322,    .00030,    .00000,
     +     .00000,    .00011,    .00004,
     +     .08657,    .02249,    .00295,    .00029,    .00000,
     +     .00000,    .00010,    .00004,
     +     .08097,    .02098,    .00267,    .00026,    .00000,
     +     .00000,    .00009,    .00003,
     +     .07636,    .01973,    .00244,    .00023,    .00000,
     +     .00000,    .00008,    .00003,
     +     .07235,    .01865,    .00226,    .00022,    .00000,
     +     .00000,    .00008,    .00003,
     +     .06759,    .01737,    .00205,    .00020,    .00000,
     +     .00000,    .00007,    .00003,
     +     .06342,    .01626,    .00187,    .00019,    .00000,
     +     .00000,    .00007,    .00003,
     +     .05976,    .01529,    .00173,    .00018,    .00000,
     +     .00000,    .00006,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05634,    .01438,    .00160,    .00017,    .00000,
     +     .00000,    .00006,    .00002,
     +     .05318,    .01355,    .00148,    .00016,    .00000,
     +     .00000,    .00006,    .00002,
     +     .05038,    .01281,    .00138,    .00014,    .00000,
     +     .00000,    .00005,    .00002,
     +     .04789,    .01215,    .00129,    .00013,    .00000,
     +     .00000,    .00005,    .00002,
     +     .04552,    .01152,    .00121,    .00012,    .00000,
     +     .00000,    .00005,    .00002,
     +     .04330,    .01094,    .00113,    .00012,    .00000,
     +     .00000,    .00005,    .00002,
     +     .04130,    .01042,    .00107,    .00011,    .00000,
     +     .00000,    .00005,    .00002,
     +     .03949,    .00995,    .00101,    .00011,    .00000,
     +     .00000,    .00004,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03776,    .00950,    .00096,    .00011,    .00000,
     +     .00000,    .00004,    .00002,
     +     .03614,    .00908,    .00091,    .00009,    .00000,
     +     .00000,    .00004,    .00001,
     +     .03466,    .00869,    .00086,    .00008,    .00000,
     +     .00000,    .00003,    .00001,
     +     .03331,    .00834,    .00082,    .00008,    .00000,
     +     .00000,    .00003,    .00001,
     +     .03199,    .00800,    .00078,    .00008,    .00000,
     +     .00000,    .00003,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .16721,    .04311,    .00917,    .00041,    .00000,
     +     .00000,    .00010,   -.00001,
     +     .15788,    .04059,    .00808,    .00039,    .00000,
     +     .00000,    .00010,   -.00001,
     +     .14494,    .03710,    .00673,    .00035,    .00000,
     +     .00000,    .00009,    .00000,
     +     .13615,    .03476,    .00590,    .00032,    .00000,
     +     .00000,    .00009,    .00000,
     +     .12744,    .03242,    .00516,    .00030,    .00000,
     +     .00000,    .00009,    .00000,
     +     .12037,    .03054,    .00462,    .00027,    .00000,
     +     .00000,    .00008,    .00000,
     +     .11395,    .02884,    .00416,    .00025,    .00000,
     +     .00000,    .00008,    .00001,
     +     .10751,    .02714,    .00374,    .00022,    .00000,
     +     .00000,    .00007,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .10222,    .02574,    .00342,    .00020,    .00000,
     +     .00000,    .00007,    .00001,
     +     .09735,    .02447,    .00314,    .00019,    .00000,
     +     .00000,    .00006,    .00002,
     +     .09366,    .02350,    .00294,    .00018,    .00000,
     +     .00000,    .00006,    .00002,
     +     .08625,    .02157,    .00256,    .00017,    .00000,
     +     .00000,    .00006,    .00001,
     +     .08035,    .02005,    .00229,    .00017,    .00000,
     +     .00000,    .00006,    .00001,
     +     .07426,    .01847,    .00201,    .00015,    .00000,
     +     .00000,    .00005,    .00001,
     +     .06843,    .01697,    .00178,    .00013,    .00000,
     +     .00000,    .00004,    .00001,
     +     .06356,    .01572,    .00159,    .00012,    .00000,
     +     .00000,    .00004,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05902,    .01455,    .00143,    .00011,    .00000,
     +     .00000,    .00004,    .00001,
     +     .05551,    .01365,    .00131,    .00010,    .00000,
     +     .00000,    .00003,    .00001,
     +     .05156,    .01265,    .00119,    .00009,    .00000,
     +     .00000,    .00003,    .00001,
     +     .04832,    .01183,    .00109,    .00009,    .00000,
     +     .00000,    .00003,    .00001,
     +     .04554,    .01112,    .00101,    .00007,    .00000,
     +     .00000,    .00003,    .00001,
     +     .04226,    .01029,    .00091,    .00006,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03941,    .00958,    .00083,    .00006,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03692,    .00895,    .00077,    .00005,    .00000,
     +     .00000,    .00002,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03460,    .00837,    .00071,    .00005,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03249,    .00784,    .00066,    .00004,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03061,    .00737,    .00061,    .00004,    .00000,
     +     .00000,    .00002,    .00001,
     +     .02895,    .00696,    .00057,    .00004,    .00000,
     +     .00000,    .00002,    .00001,
     +     .02737,    .00657,    .00053,    .00004,    .00000,
     +     .00000,    .00002,    .00000,
     +     .02591,    .00621,    .00050,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02460,    .00589,    .00047,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02343,    .00560,    .00044,    .00003,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .02232,    .00532,    .00042,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02126,    .00506,    .00039,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02031,    .00483,    .00037,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01945,    .00462,    .00036,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01861,    .00441,    .00034,    .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=1,8)/
     +     .11108,    .02696,    .00349,    .00014,    .00000,
     +     .00000,    .00003,    .00000,
     +     .10421,    .02522,    .00308,    .00012,    .00000,
     +     .00000,    .00003,    .00000,
     +     .09475,    .02285,    .00258,    .00012,    .00000,
     +     .00000,    .00003,   -.00001,
     +     .08837,    .02125,    .00227,    .00011,    .00000,
     +     .00000,    .00003,   -.00001,
     +     .08210,    .01969,    .00200,    .00010,    .00000,
     +     .00000,    .00003,    .00000,
     +     .07706,    .01844,    .00180,    .00009,    .00000,
     +     .00000,    .00003,    .00000,
     +     .07253,    .01731,    .00163,    .00008,    .00000,
     +     .00000,    .00002,    .00001,
     +     .06799,    .01619,    .00147,    .00007,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .06427,    .01528,    .00135,    .00008,    .00000,
     +     .00000,    .00001,    .00000,
     +     .06089,    .01445,    .00125,    .00008,    .00000,
     +     .00000,    .00001,    .00000,
     +     .05834,    .01382,    .00117,    .00007,    .00000,
     +     .00000,    .00002,    .00000,
     +     .05328,    .01257,    .00103,    .00005,    .00000,
     +     .00000,    .00001,    .00000,
     +     .04928,    .01160,    .00092,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04516,    .01060,    .00081,    .00005,    .00000,
     +     .00000,    .00002,    .00001,
     +     .04127,    .00965,    .00072,    .00004,    .00000,
     +     .00000,    .00001,    .00000,
     +     .03804,    .00888,    .00065,    .00003,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03506,    .00816,    .00058,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .03276,    .00761,    .00054,    .00004,    .00000,
     +     .00000,    .00001,    .00000,
     +     .03020,    .00700,    .00048,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02813,    .00650,    .00044,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02634,    .00608,    .00041,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02426,    .00558,    .00037,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02246,    .00516,    .00034,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02091,    .00479,    .00031,    .00002,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01948,    .00445,    .00029,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01817,    .00415,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01703,    .00388,    .00025,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01602,    .00364,    .00023,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01507,    .00342,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01419,    .00322,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01341,    .00303,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01271,    .00287,    .00018,    .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)/
     +     .01204,    .00272,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01142,    .00257,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01086,    .00244,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01036,    .00233,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00987,    .00222,    .00013,    .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=1,8)/
     +     .06695,    .01523,    .00110,    .00005,    .00000,
     +     .00000,    .00000,    .00000,
     +     .06235,    .01415,    .00099,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05609,    .01268,    .00084,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05192,    .01171,    .00075,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04784,    .01076,    .00067,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04458,    .01001,    .00061,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04167,    .00934,    .00056,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03879,    .00867,    .00051,    .00003,    .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)/
     +     .03646,    .00813,    .00047,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03434,    .00764,    .00044,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03276,    .00728,    .00041,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02961,    .00656,    .00036,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02716,    .00600,    .00033,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02467,    .00544,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02232,    .00491,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02040,    .00447,    .00023,    .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=17,24)/
     +     .01864,    .00408,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01731,    .00378,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01582,    .00344,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01462,    .00318,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01360,    .00295,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01243,    .00269,    .00013,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01142,    .00247,    .00012,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01055,    .00227,    .00011,    .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=25,32)/
     +     .00976,    .00210,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00904,    .00194,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00842,    .00180,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00787,    .00168,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00735,    .00157,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00689,    .00147,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00647,    .00138,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00610,    .00130,    .00006,    .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)/
     +     .00575,    .00122,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00543,    .00115,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00514,    .00109,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00488,    .00103,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00463,    .00098,    .00004,    .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)/
     +     .03506,    .00741,    .00027,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03238,    .00682,    .00025,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02877,    .00604,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02639,    .00553,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02409,    .00504,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02227,    .00465,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02065,    .00430,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01907,    .00396,    .00015,    .00001,    .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)/
     +     .01779,    .00369,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01664,    .00345,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01579,    .00326,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01412,    .00291,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01282,    .00264,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01152,    .00236,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01031,    .00211,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00933,    .00190,    .00007,    .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)/
     +     .00844,    .00172,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00777,    .00158,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00704,    .00143,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00645,    .00131,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00595,    .00120,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00538,    .00109,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00490,    .00099,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00449,    .00090,    .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=25,32)/
     +     .00412,    .00083,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00379,    .00076,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00350,    .00070,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00325,    .00065,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00301,    .00060,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00280,    .00056,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00262,    .00052,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00245,    .00049,    .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=33,37)/
     +     .00230,    .00046,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00043,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00203,    .00040,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00191,    .00038,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00181,    .00036,    .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)/
     +     .00428,    .00074,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00386,    .00067,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00331,    .00057,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00296,    .00051,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00263,    .00045,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00237,    .00041,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00037,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00194,    .00033,    .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=9,16)/
     +     .00177,    .00030,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00163,    .00028,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00152,    .00026,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00131,    .00022,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00116,    .00020,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00101,    .00017,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00088,    .00015,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00077,    .00013,    .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)/
     +     .00068,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00061,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00054,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00043,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00038,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00034,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00030,    .00005,    .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)/
     +     .00027,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00022,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .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=33,37)/
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00002,    .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='lo10a.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