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

sfmrs_99a5.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a5(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)/
     +     .00384,    .00181,   1.10758,    .81616,    .00000,
     +     .00000,    .43904,    .82509,
     +     .00402,    .00189,   2.42317,    .85953,    .00000,
     +     .00000,    .48784,    .86857,
     +     .00428,    .00201,   5.00081,    .95097,    .00706,
     +     .00000,    .58681,    .96016,
     +     .00447,    .00210,   7.29271,   1.03845,    .12104,
     +     .00000,    .67939,   1.04773,
     +     .00467,    .00219,  10.27976,   1.15069,    .24987,
     +     .00000,    .79678,   1.16006,
     +     .00484,    .00228,  13.35071,   1.26448,    .37145,
     +     .00000,    .91485,   1.27393,
     +     .00500,    .00236,  16.78503,   1.38883,    .50416,
     +     .00000,   1.04316,   1.39834,
     +     .00518,    .00244,  20.99893,   1.53761,    .66320,
     +     .00000,   1.19603,   1.54718 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00533,    .00252,  25.17682,   1.68149,    .81788,
     +     .00000,   1.34334,   1.69111,
     +     .00548,    .00259,  29.65268,   1.83443,    .97952,
     +     .00000,   1.49952,   1.84410,
     +     .00559,    .00265,  33.50784,   1.96561,   1.11636,
     +     .00000,   1.63321,   1.97531,
     +     .00584,    .00278,  42.67230,   2.27553,   1.44148,
     +     .00022,   1.94831,   2.28529,
     +     .00606,    .00289,  51.36903,   2.57602,   1.75584,
     +     .25464,   2.25309,   2.58583,
     +     .00631,    .00302,  62.06824,   2.94919,   2.14460,
     +     .71924,   2.63088,   2.95905,
     +     .00656,    .00315,  74.70134,   3.38165,   2.59378,
     +    1.19207,   3.06801,   3.39156,
     +     .00680,    .00327,  87.46950,   3.81335,   3.04135,
     +    1.66499,   3.50380,   3.82329 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00704,    .00340, 101.66980,   4.28954,   3.53421,
     +    2.18194,   3.98400,   4.29951,
     +     .00724,    .00350, 114.45491,   4.71631,   3.97452,
     +    2.63951,   4.41403,   4.72631,
     +     .00748,    .00363, 131.16171,   5.27302,   4.54697,
     +    3.23054,   4.97458,   5.28304,
     +     .00770,    .00375, 147.11221,   5.80311,   5.09175,
     +    3.79398,   5.50798,   5.81315,
     +     .00790,    .00386, 162.79094,   6.32216,   5.62616,
     +    4.35026,   6.02999,   6.33221,
     +     .00816,    .00399, 183.90334,   7.02394,   6.34532,
     +    5.09034,   6.73544,   7.03401,
     +     .00841,    .00412, 205.07019,   7.72975,   7.06707,
     +    5.83072,   7.44461,   7.73982,
     +     .00864,    .00425, 226.18028,   8.43423,   7.78788,
     +    6.57239,   8.15218,   8.44431 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00887,    .00437, 248.54242,   9.18170,   8.55280,
     +    7.36054,   8.90265,   9.19178,
     +     .00910,    .00450, 271.31281,   9.95017,   9.33568,
     +    8.15977,   9.67401,   9.96025,
     +     .00932,    .00462, 294.05557,  10.71837,  10.11963,
     +    8.96412,  10.44488,  10.72845,
     +     .00953,    .00473, 316.33887,  11.47575,  10.89125,
     +    9.75341,  11.20473,  11.48583,
     +     .00974,    .00484, 339.58911,  12.27033,  11.70016,
     +   10.58027,  12.00175,  12.28041,
     +     .00995,    .00496, 363.41312,  13.08758,  12.53227,
     +   11.43165,  12.82136,  13.09766,
     +     .01015,    .00507, 386.68433,  13.89274,  13.35047,
     +   12.26592,  13.62872,  13.90281,
     +     .01035,    .00517, 409.55508,  14.68627,  14.15740,
     +   13.09038,  14.42430,  14.69633 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01054,    .00528, 433.16504,  15.51206,  14.99596,
     +   13.94501,  15.25213,  15.52212,
     +     .01073,    .00539, 457.20969,  16.35699,  15.85395,
     +   14.81977,  16.09904,  16.36705,
     +     .01092,    .00549, 480.76395,  17.18941,  16.69898,
     +   15.68126,  16.93332,  17.19946,
     +     .01110,    .00559, 503.53922,  18.00079,  17.52152,
     +   16.51786,  17.74644,  18.01083,
     +     .01128,    .00569, 527.45172,  18.85291,  18.38677,
     +   17.40124,  18.60029,  18.86294 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00530,    .00251,    .99891,    .69905,    .00000,
     +     .00000,    .37540,    .70429,
     +     .00556,    .00263,   2.16061,    .73765,    .00000,
     +     .00000,    .41833,    .74295,
     +     .00593,    .00281,   4.39455,    .81656,    .00613,
     +     .00000,    .50325,    .82194,
     +     .00619,    .00294,   6.34383,    .89050,    .10229,
     +     .00000,    .58126,    .89594,
     +     .00647,    .00308,   8.84640,    .98413,    .20972,
     +     .00000,    .67898,    .98963,
     +     .00671,    .00321,  11.38391,   1.07801,    .30989,
     +     .00000,    .77623,   1.08354,
     +     .00694,    .00332,  14.18857,   1.17969,    .41822,
     +     .00000,    .88106,   1.18526,
     +     .00719,    .00345,  17.59114,   1.30037,    .54689,
     +     .00000,   1.00496,   1.30598 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00740,    .00356,  20.92980,   1.41622,    .67105,
     +     .00000,   1.12352,   1.42187,
     +     .00761,    .00367,  24.47249,   1.53852,    .79983,
     +     .00000,   1.24837,   1.54419,
     +     .00778,    .00375,  27.49891,   1.64278,    .90818,
     +     .00000,   1.35460,   1.64847,
     +     .00813,    .00393,  34.61641,   1.88725,   1.16358,
     +     .00019,   1.60315,   1.89298,
     +     .00843,    .00409,  41.27947,   2.12209,   1.40817,
     +     .19778,   1.84135,   2.12785,
     +     .00877,    .00427,  49.37334,   2.41116,   1.70794,
     +     .55650,   2.13405,   2.41696,
     +     .00913,    .00446,  58.81293,   2.74306,   2.05104,
     +     .91742,   2.46960,   2.74890,
     +     .00945,    .00464,  68.24306,   3.07147,   2.38994,
     +    1.27517,   2.80122,   3.07734 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .00978,    .00481,  78.61852,   3.43080,   2.76009,
     +    1.66292,   3.16369,   3.43669,
     +     .01006,    .00496,  87.87019,   3.75047,   3.08836,
     +    2.00350,   3.48589,   3.75638,
     +     .01040,    .00514,  99.84468,   4.16441,   3.51201,
     +    2.44010,   3.90283,   4.17034,
     +     .01070,    .00531, 111.17058,   4.55571,   3.91233,
     +    2.85333,   4.29672,   4.56166,
     +     .01098,    .00546, 122.21507,   4.93648,   4.30266,
     +    3.25888,   4.67980,   4.94245,
     +     .01133,    .00565, 136.95227,   5.44766,   4.82420,
     +    3.79442,   5.19384,   5.45365,
     +     .01167,    .00583, 151.58902,   5.95801,   5.34383,
     +    4.32621,   5.70682,   5.96401,
     +     .01198,    .00600, 166.06615,   6.46407,   5.85948,
     +    4.85559,   6.21528,   6.47009 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01230,    .00618, 181.28224,   6.99767,   6.40338,
     +    5.41476,   6.75122,   7.00370,
     +     .01262,    .00635, 196.64653,   7.54268,   6.95637,
     +    5.97786,   7.29848,   7.54872,
     +     .01291,    .00651, 211.88655,   8.08447,   7.50718,
     +    6.54169,   7.84235,   8.09052,
     +     .01320,    .00667, 226.71487,   8.61568,   8.04635,
     +    7.09186,   8.37549,   8.62174,
     +     .01349,    .00683, 242.08498,   9.17007,   8.60867,
     +    7.66526,   8.93178,   9.17613,
     +     .01377,    .00698, 257.73770,   9.73745,   9.18435,
     +    8.25287,   9.50099,   9.74352,
     +     .01404,    .00713, 272.92841,  10.29358,   9.74750,
     +    8.82565,  10.05884,  10.29966,
     +     .01430,    .00728, 287.77872,  10.83930,  10.30060,
     +    9.38943,  10.60616,  10.84539 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01457,    .00742, 303.01962,  11.40461,  10.87274,
     +    9.97109,  11.17305,  11.41070,
     +     .01483,    .00757, 318.46014,  11.98057,  11.45572,
     +   10.56404,  11.75055,  11.98666,
     +     .01508,    .00771, 333.50778,  12.54563,  12.02756,
     +   11.14563,  12.31707,  12.55173,
     +     .01532,    .00784, 347.98172,  13.09414,  12.58188,
     +   11.70804,  12.86695,  13.10025,
     +     .01557,    .00798, 363.12021,  13.66830,  13.16321,
     +   12.30025,  13.44246,  13.67441 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00733,    .00349,    .90106,    .59850,    .00000,
     +     .00000,    .32103,    .60112,
     +     .00768,    .00367,   1.92671,    .63276,    .00000,
     +     .00000,    .35877,    .63541,
     +     .00821,    .00394,   3.86192,    .70081,    .00532,
     +     .00000,    .43161,    .70350,
     +     .00858,    .00413,   5.51834,    .76327,    .08642,
     +     .00000,    .49730,    .76600,
     +     .00898,    .00434,   7.61243,    .84129,    .17597,
     +     .00000,    .57857,    .84405,
     +     .00932,    .00452,   9.70594,    .91861,    .25844,
     +     .00000,    .65857,    .92139,
     +     .00964,    .00469,  11.99224,   1.00161,    .34680,
     +     .00000,    .74404,   1.00441,
     +     .00999,    .00487,  14.73405,   1.09929,    .45081,
     +     .00000,    .84426,   1.10211 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01029,    .00503,  17.39600,   1.19234,    .55037,
     +     .00000,    .93945,   1.19518,
     +     .01058,    .00519,  20.19309,   1.28987,    .65287,
     +     .00000,   1.03898,   1.29273,
     +     .01081,    .00531,  22.56251,   1.37250,    .73854,
     +     .00000,   1.12316,   1.37537,
     +     .01130,    .00557,  28.07409,   1.56474,    .93889,
     +     .00017,   1.31861,   1.56765,
     +     .01172,    .00580,  33.16216,   1.74767,   1.12889,
     +     .15355,   1.50417,   1.75059,
     +     .01220,    .00606,  39.26265,   1.97081,   1.35962,
     +     .43038,   1.73015,   1.97376,
     +     .01269,    .00632,  46.28809,   2.22459,   1.62118,
     +     .70570,   1.98677,   2.22756,
     +     .01314,    .00657,  53.22330,   2.47346,   1.87723,
     +     .97613,   2.23814,   2.47646 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01360,    .00682,  60.77003,   2.74350,   2.15458,
     +    1.26671,   2.51063,   2.74652,
     +     .01398,    .00703,  67.43280,   2.98193,   2.39869,
     +    1.51994,   2.75103,   2.98497,
     +     .01445,    .00728,  75.97246,   3.28838,   2.71138,
     +    1.84208,   3.05981,   3.29145,
     +     .01486,    .00751,  83.97243,   3.57593,   3.00469,
     +    2.14473,   3.34936,   3.57902,
     +     .01524,    .00772,  91.71035,   3.85397,   3.28893,
     +    2.43995,   3.62920,   3.85707,
     +     .01573,    .00799, 101.93859,   4.22455,   3.66595,
     +    2.82682,   4.00200,   4.22767,
     +     .01619,    .00824, 111.99934,   4.59176,   4.03879,
     +    3.20808,   4.37124,   4.59490,
     +     .01662,    .00848, 121.86608,   4.95345,   4.40637,
     +    3.58516,   4.73479,   4.95661 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01706,    .00873, 132.15349,   5.33242,   4.79169,
     +    3.98101,   5.11557,   5.33560,
     +     .01748,    .00896, 142.45041,   5.71690,   5.18077,
     +    4.37678,   5.50179,   5.72010,
     +     .01789,    .00919, 152.59236,   6.09695,   5.56622,
     +    4.77099,   5.88345,   6.10016,
     +     .01828,    .00940, 162.38911,   6.46746,   5.94140,
     +    5.15344,   6.25546,   6.47069,
     +     .01867,    .00962, 172.47501,   6.85208,   6.33062,
     +    5.54993,   6.64155,   6.85533,
     +     .01905,    .00984, 182.68158,   7.24373,   6.72713,
     +    5.95428,   7.03462,   7.24699,
     +     .01942,    .01004, 192.51953,   7.62560,   7.11296,
     +    6.34627,   7.41781,   7.62887,
     +     .01977,    .01024, 202.08534,   7.99868,   7.49030,
     +    6.73052,   7.79213,   8.00197 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02013,    .01044, 211.84239,   8.38331,   7.87877,
     +    7.12502,   8.17798,   8.38661,
     +     .02048,    .01064, 221.67412,   8.77350,   8.27295,
     +    7.52551,   8.56937,   8.77681,
     +     .02082,    .01082, 231.20451,   9.15468,   8.65796,
     +    7.91670,   8.95168,   9.15802,
     +     .02114,    .01101, 240.32123,   9.52314,   9.02959,
     +    8.29332,   9.32118,   9.52648,
     +     .02147,    .01119, 249.81972,   9.90753,   9.41814,
     +    8.68878,   9.70663,   9.91088 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00885,    .00424,    .84846,    .54638,    .00000,
     +     .00000,    .29299,    .54791,
     +     .00929,    .00446,   1.80199,    .57831,    .00000,
     +     .00000,    .32797,    .57986,
     +     .00993,    .00480,   3.58091,    .64067,    .00490,
     +     .00000,    .39454,    .64225,
     +     .01039,    .00505,   5.08614,    .69724,    .07829,
     +     .00000,    .45393,    .69884,
     +     .01088,    .00530,   6.97168,    .76732,    .15876,
     +     .00000,    .52685,    .76894,
     +     .01129,    .00552,   8.84081,    .83628,    .23234,
     +     .00000,    .59815,    .83792,
     +     .01169,    .00574,  10.86750,    .90991,    .31073,
     +     .00000,    .67394,    .91156,
     +     .01211,    .00596,  13.28125,    .99611,    .40252,
     +     .00000,    .76236,    .99779 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01248,    .00616,  15.60994,   1.07786,    .48996,
     +     .00000,    .84597,   1.07956,
     +     .01283,    .00635,  18.04255,   1.16317,    .57957,
     +     .00000,    .93302,   1.16488,
     +     .01311,    .00651,  20.09284,   1.23517,    .65420,
     +     .00000,   1.00637,   1.23689,
     +     .01370,    .00683,  24.83099,   1.40193,    .82787,
     +     .00016,   1.17591,   1.40368,
     +     .01422,    .00711,  29.16850,   1.55970,    .99162,
     +     .13237,   1.33596,   1.56146,
     +     .01479,    .00743,  34.32844,   1.75112,   1.18939,
     +     .37016,   1.52984,   1.75291,
     +     .01539,    .00776,  40.22599,   1.96758,   1.41230,
     +     .60504,   1.74877,   1.96940,
     +     .01594,    .00806,  46.00639,   2.17874,   1.62935,
     +     .83451,   1.96208,   2.18057 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01649,    .00836,  52.25506,   2.40671,   1.86330,
     +    1.07981,   2.19217,   2.40857,
     +     .01695,    .00862,  57.73912,   2.60710,   2.06828,
     +    1.29259,   2.39426,   2.60898,
     +     .01751,    .00893,  64.72672,   2.86351,   2.32966,
     +    1.56203,   2.65268,   2.86541,
     +     .01801,    .00921,  71.23519,   3.10304,   2.57379,
     +    1.81406,   2.89394,   3.10497,
     +     .01847,    .00946,  77.49985,   3.33379,   2.80949,
     +    2.05900,   3.12623,   3.33573,
     +     .01905,    .00979,  85.73389,   3.64000,   3.12076,
     +    2.37853,   3.43436,   3.64197,
     +     .01961,    .01010,  93.78600,   3.94207,   3.42720,
     +    2.69198,   3.73818,   3.94407,
     +     .02012,    .01039, 101.64271,   4.23842,   3.72814,
     +    3.00080,   4.03613,   4.24044 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02065,    .01068, 109.79485,   4.54776,   4.04244,
     +    3.32381,   4.34703,   4.54980,
     +     .02116,    .01097, 117.91131,   4.86033,   4.35850,
     +    3.64534,   4.66110,   4.86239,
     +     .02165,    .01124, 125.87208,   5.16826,   4.67060,
     +    3.96462,   4.97042,   5.17034,
     +     .02211,    .01150, 133.52809,   5.46746,   4.97335,
     +    4.27329,   5.27090,   5.46956,
     +     .02258,    .01176, 141.37770,   5.77704,   5.28645,
     +    4.59227,   5.58175,   5.77917,
     +     .02304,    .01202, 149.29094,   6.09134,   5.60446,
     +    4.91663,   5.89727,   6.09349,
     +     .02348,    .01227, 156.88684,   6.39682,   5.91291,
     +    5.23004,   6.20389,   6.39899,
     +     .02390,    .01250, 164.24863,   6.69450,   6.21383,
     +    5.53651,   6.50263,   6.69668 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02432,    .01274, 171.72954,   7.00051,   6.52272,
     +    5.85023,   6.80970,   7.00272,
     +     .02474,    .01298, 179.24321,   7.31015,   6.83536,
     +    6.16792,   7.12037,   7.31238,
     +     .02514,    .01320, 186.50284,   7.61188,   7.13997,
     +    6.47744,   7.42306,   7.61412,
     +     .02553,    .01342, 193.42378,   7.90277,   7.43322,
     +    6.77465,   7.71486,   7.90503,
     +     .02592,    .01364, 200.61838,   8.20567,   7.73928,
     +    7.08622,   8.01867,   8.20795 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01013,    .00486,    .81310,    .51212,    .00000,
     +     .00000,    .27462,    .51306,
     +     .01063,    .00513,   1.71855,    .54246,    .00000,
     +     .00000,    .30775,    .54341,
     +     .01138,    .00553,   3.39408,    .60107,    .00462,
     +     .00000,    .37019,    .60205,
     +     .01191,    .00581,   4.80014,    .65377,    .07297,
     +     .00000,    .42547,    .65477,
     +     .01246,    .00611,   6.54982,    .71869,    .14755,
     +     .00000,    .49297,    .71970,
     +     .01294,    .00637,   8.27372,    .78225,    .21539,
     +     .00000,    .55866,    .78328,
     +     .01340,    .00662,  10.13332,    .84983,    .28737,
     +     .00000,    .62821,    .85088,
     +     .01388,    .00689,  12.33709,    .92867,    .37135,
     +     .00000,    .70906,    .92973 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01431,    .00712,  14.45354,   1.00319,    .45107,
     +     .00000,    .78527,   1.00427,
     +     .01471,    .00734,  16.65511,   1.08071,    .53250,
     +     .00000,    .86437,   1.08180,
     +     .01503,    .00752,  18.50394,   1.14596,    .60013,
     +     .00000,    .93085,   1.14707,
     +     .01572,    .00789,  22.75643,   1.29658,    .75699,
     +     .00015,   1.08398,   1.29771,
     +     .01630,    .00822,  26.62579,   1.43849,    .90426,
     +     .11910,   1.22796,   1.43964,
     +     .01696,    .00858,  31.20276,   1.61001,   1.08144,
     +     .33252,   1.40170,   1.61119,
     +     .01765,    .00897,  36.40554,   1.80317,   1.28032,
     +     .54230,   1.59709,   1.80438,
     +     .01828,    .00931,  41.47878,   1.99087,   1.47323,
     +     .74645,   1.78675,   1.99210 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01891,    .00967,  46.93690,   2.19280,   1.68041,
     +     .96389,   1.99059,   2.19407,
     +     .01943,    .00996,  51.70663,   2.36973,   1.86135,
     +    1.15187,   2.16905,   2.37101,
     +     .02007,    .01032,  57.75817,   2.59539,   2.09133,
     +    1.38912,   2.39652,   2.59670,
     +     .02064,    .01064,  63.37143,   2.80553,   2.30545,
     +    1.61034,   2.60823,   2.80686,
     +     .02117,    .01093,  68.75545,   3.00741,   2.51164,
     +    1.82478,   2.81150,   3.00877,
     +     .02183,    .01131,  75.80296,   3.27449,   2.78307,
     +    2.10358,   3.08031,   3.27588,
     +     .02246,    .01166,  82.66563,   3.53711,   3.04942,
     +    2.37619,   3.34450,   3.53852,
     +     .02305,    .01199,  89.33710,   3.79402,   3.31027,
     +    2.64403,   3.60285,   3.79546 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02365,    .01232,  96.23544,   4.06145,   3.58197,
     +    2.92343,   3.87169,   4.06292,
     +     .02423,    .01265, 103.07688,   4.33090,   3.85437,
     +    3.20067,   4.14249,   4.33240,
     +     .02478,    .01297, 109.76664,   4.59571,   4.12273,
     +    3.47535,   4.40855,   4.59723,
     +     .02531,    .01326, 116.17979,   4.85238,   4.38241,
     +    3.74025,   4.66637,   4.85392,
     +     .02584,    .01356, 122.73541,   5.11735,   4.65035,
     +    4.01336,   4.93248,   5.11892,
     +     .02636,    .01385, 129.32597,   5.38577,   4.92192,
     +    4.29049,   5.20200,   5.38736,
     +     .02686,    .01414, 135.63300,   5.64606,   5.18472,
     +    4.55762,   5.46332,   5.64768,
     +     .02733,    .01440, 141.73140,   5.89923,   5.44063,
     +    4.81838,   5.71745,   5.90087 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02781,    .01467, 147.91127,   6.15896,   5.70277,
     +    5.08473,   5.97812,   6.16062,
     +     .02828,    .01494, 154.10364,   6.42127,   5.96762,
     +    5.35396,   6.24136,   6.42295,
     +     .02874,    .01520, 160.07234,   6.67641,   6.22519,
     +    5.61581,   6.49737,   6.67811,
     +     .02917,    .01545, 165.74844,   6.92193,   6.47269,
     +    5.86674,   6.74371,   6.92366,
     +     .02961,    .01569, 171.63931,   7.17723,   6.73066,
     +    6.12949,   6.99982,   7.17898 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01124,    .00541,    .78676,    .48700,    .00000,
     +     .00000,    .26119,    .48757,
     +     .01181,    .00572,   1.65658,    .51616,    .00000,
     +     .00000,    .29294,    .51674,
     +     .01264,    .00617,   3.25595,    .57199,    .00441,
     +     .00000,    .35236,    .57260,
     +     .01323,    .00649,   4.58939,    .62187,    .06908,
     +     .00000,    .40464,    .62249,
     +     .01385,    .00683,   6.24009,    .68303,    .13938,
     +     .00000,    .46820,    .68367,
     +     .01439,    .00712,   7.85869,    .74266,    .20306,
     +     .00000,    .52982,    .74333,
     +     .01490,    .00740,   9.59762,    .80588,    .27043,
     +     .00000,    .59486,    .80656,
     +     .01544,    .00770,  11.65037,    .87941,    .34878,
     +     .00000,    .67027,    .88011 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01591,    .00796,  13.61476,    .94874,    .42297,
     +     .00000,    .74116,    .94945,
     +     .01636,    .00821,  15.65137,   1.02067,    .49856,
     +     .00000,    .81457,   1.02140,
     +     .01672,    .00841,  17.35678,   1.08109,    .56119,
     +     .00000,    .87612,   1.08184,
     +     .01748,    .00883,  21.26490,   1.22019,    .70609,
     +     .00015,   1.01756,   1.22097,
     +     .01813,    .00920,  24.80395,   1.35083,    .84169,
     +     .10971,   1.15012,   1.35163,
     +     .01887,    .00961,  28.97150,   1.50825,   1.00432,
     +     .30591,   1.30959,   1.50907,
     +     .01963,    .01004,  33.68863,   1.68495,   1.18628,
     +     .49804,   1.48836,   1.68581,
     +     .02032,    .01042,  38.26968,   1.85615,   1.36224,
     +     .68445,   1.66137,   1.85704 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02103,    .01082,  43.17985,   2.03982,   1.55069,
     +     .88241,   1.84680,   2.04073,
     +     .02161,    .01115,  47.45617,   2.20033,   1.71486,
     +    1.05311,   2.00873,   2.20127,
     +     .02232,    .01155,  52.86355,   2.40453,   1.92299,
     +    1.26799,   2.21461,   2.40550,
     +     .02295,    .01190,  57.86293,   2.59423,   2.11628,
     +    1.46785,   2.40575,   2.59523,
     +     .02353,    .01223,  62.64492,   2.77608,   2.30203,
     +    1.66119,   2.58889,   2.77710,
     +     .02426,    .01264,  68.88399,   3.01607,   2.54595,
     +    1.91191,   2.83047,   3.01712,
     +     .02496,    .01303,  74.93923,   3.25145,   2.78470,
     +    2.15643,   3.06731,   3.25254,
     +     .02561,    .01340,  80.80870,   3.48120,   3.01798,
     +    2.39614,   3.29839,   3.48232 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02627,    .01377,  86.86101,   3.71985,   3.26048,
     +    2.64568,   3.53835,   3.72101,
     +     .02691,    .01414,  92.84492,   3.95976,   3.50302,
     +    2.89268,   3.77950,   3.96094,
     +     .02752,    .01448,  98.68211,   4.19508,   3.74153,
     +    3.13697,   4.01597,   4.19629,
     +     .02810,    .01481, 104.26393,   4.42273,   3.97188,
     +    3.37208,   4.24469,   4.42397,
     +     .02868,    .01514, 109.95606,   4.65732,   4.20912,
     +    3.61405,   4.48033,   4.65859,
     +     .02926,    .01547, 115.66621,   4.89457,   4.44919,
     +    3.85917,   4.71859,   4.89586,
     +     .02981,    .01578, 121.11737,   5.12421,   4.68106,
     +    4.09500,   4.94918,   5.12553,
     +     .03033,    .01608, 126.37828,   5.34724,   4.90654,
     +    4.32489,   5.17310,   5.34859 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03086,    .01637, 131.69798,   5.57567,   5.13713,
     +    4.55931,   5.40240,   5.57704,
     +     .03138,    .01667, 137.01837,   5.80604,   5.36976,
     +    4.79593,   5.63363,   5.80744,
     +     .03188,    .01695, 142.13680,   6.02979,   5.59568,
     +    5.02572,   5.85818,   6.03122,
     +     .03236,    .01722, 146.99477,   6.24479,   5.81244,
     +    5.24560,   6.07394,   6.24624,
     +     .03284,    .01750, 152.03023,   6.46811,   6.03815,
     +    5.47562,   6.29801,   6.46959 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01556,    .00758,    .71076,    .41642,    .00000,
     +     .00000,    .22362,    .41634,
     +     .01637,    .00803,   1.47864,    .44211,    .00000,
     +     .00000,    .25144,    .44206,
     +     .01754,    .00869,   2.86210,    .49005,    .00382,
     +     .00000,    .30229,    .49004,
     +     .01838,    .00916,   3.99176,    .53201,    .05821,
     +     .00000,    .34620,    .53203,
     +     .01926,    .00966,   5.36712,    .58272,    .11663,
     +     .00000,    .39886,    .58277,
     +     .02001,    .01008,   6.69522,    .63154,    .16888,
     +     .00000,    .44929,    .63162,
     +     .02073,    .01049,   8.10372,    .68278,    .22362,
     +     .00000,    .50200,    .68289,
     +     .02148,    .01092,   9.74582,    .74183,    .28668,
     +     .00000,    .56256,    .74197 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02214,    .01130,  11.29942,    .79704,    .34588,
     +     .00000,    .61904,    .79721,
     +     .02277,    .01166,  12.89312,    .85387,    .40573,
     +     .00000,    .67705,    .85406,
     +     .02327,    .01194,  14.21548,    .90128,    .45498,
     +     .00000,    .72538,    .90150,
     +     .02433,    .01255,  17.21022,   1.00952,    .56795,
     +     .00013,    .83549,   1.00978,
     +     .02525,    .01307,  19.88082,   1.11013,    .67259,
     +     .08485,    .93765,   1.11044,
     +     .02626,    .01365,  22.98075,   1.23019,    .79686,
     +     .23567,   1.05936,   1.23055,
     +     .02732,    .01425,  26.44164,   1.36360,    .93448,
     +     .38158,   1.19443,   1.36401,
     +     .02828,    .01480,  29.75934,   1.49162,   1.06629,
     +     .52181,   1.32389,   1.49208 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .02925,    .01535,  33.27282,   1.62774,   1.20621,
     +     .66939,   1.46143,   1.62825,
     +     .03005,    .01581,  36.29964,   1.74574,   1.32710,
     +     .79557,   1.58057,   1.74629,
     +     .03103,    .01637,  40.08598,   1.89467,   1.47913,
     +     .95312,   1.73083,   1.89526,
     +     .03189,    .01687,  43.54996,   2.03192,   1.61921,
     +    1.09851,   1.86923,   2.03256,
     +     .03268,    .01732,  46.83413,   2.16261,   1.75294,
     +    1.23824,   2.00095,   2.16330,
     +     .03369,    .01790,  51.07415,   2.33375,   1.92715,
     +    1.41793,   2.17336,   2.33448,
     +     .03464,    .01844,  55.14507,   2.50024,   2.09629,
     +    1.59175,   2.34101,   2.50103,
     +     .03553,    .01895,  59.05433,   2.66160,   2.26039,
     +    1.76096,   2.50343,   2.66244 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03642,    .01946,  63.04982,   2.82808,   2.42984,
     +    1.93594,   2.67095,   2.82897,
     +     .03729,    .01996,  66.96047,   2.99421,   2.59803,
     +    2.10777,   2.83806,   2.99514,
     +     .03812,    .02044,  70.74601,   3.15618,   2.76247,
     +    2.27675,   3.00095,   3.15716,
     +     .03890,    .02089,  74.33606,   3.31191,   2.92030,
     +    2.43837,   3.15753,   3.31294,
     +     .03969,    .02134,  77.96896,   3.47147,   3.08191,
     +    2.60372,   3.31792,   3.47253,
     +     .04047,    .02178,  81.58766,   3.63195,   3.24457,
     +    2.77035,   3.47922,   3.63306,
     +     .04121,    .02220,  85.01472,   3.78639,   3.40076,
     +    2.92968,   3.63441,   3.78755,
     +     .04191,    .02261,  88.30257,   3.93569,   3.55195,
     +    3.08431,   3.78442,   3.93689 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04262,    .02301,  91.60297,   4.08780,   3.70574,
     +    3.24113,   3.93723,   4.08904,
     +     .04332,    .02341,  94.88370,   4.24049,   3.86018,
     +    3.39870,   4.09060,   4.24177,
     +     .04399,    .02380,  98.02044,   4.38811,   4.00947,
     +    3.55102,   4.23886,   4.38943,
     +     .04462,    .02416, 100.97784,   4.52928,   4.15203,
     +    3.69605,   4.38063,   4.53064,
     +     .04527,    .02453, 104.03131,   4.67542,   4.30000,
     +    3.84734,   4.52737,   4.67682 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02161,    .01069,    .64329,    .35606,    .00000,
     +     .00000,    .19174,    .35599,
     +     .02276,    .01136,   1.32136,    .37857,    .00000,
     +     .00000,    .21603,    .37856,
     +     .02442,    .01232,   2.51674,    .41956,    .00330,
     +     .00000,    .25944,    .41963,
     +     .02560,    .01301,   3.47147,    .45470,    .04889,
     +     .00000,    .29621,    .45484,
     +     .02684,    .01374,   4.61352,    .49654,    .09727,
     +     .00000,    .33968,    .49675,
     +     .02789,    .01435,   5.69857,    .53630,    .13997,
     +     .00000,    .38077,    .53657,
     +     .02890,    .01494,   6.83366,    .57759,    .18425,
     +     .00000,    .42329,    .57791,
     +     .02996,    .01556,   8.13971,    .62472,    .23478,
     +     .00000,    .47167,    .62510 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03088,    .01610,   9.36059,    .66839,    .28181,
     +     .00000,    .51641,    .66883,
     +     .03176,    .01661,  10.59898,    .71298,    .32894,
     +     .00000,    .56198,    .71346,
     +     .03246,    .01702,  11.61658,    .74991,    .36746,
     +     .00000,    .59966,    .75043,
     +     .03394,    .01788,  13.89258,    .83347,    .45505,
     +     .00011,    .68479,    .83409,
     +     .03520,    .01862,  15.88921,    .91033,    .53530,
     +     .06532,    .76293,    .91102,
     +     .03661,    .01944,  18.17141,   1.00111,    .62964,
     +     .18068,    .85508,   1.00188,
     +     .03807,    .02029,  20.68251,   1.10090,    .73301,
     +     .29091,    .95626,   1.10177,
     +     .03939,    .02106,  23.05664,   1.19571,    .83102,
     +     .39581,   1.05227,   1.19666 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04073,    .02184,  25.53887,   1.29558,    .93408,
     +     .50516,   1.15331,   1.29661,
     +     .04183,    .02248,  27.65253,   1.38142,   1.02238,
     +     .59785,   1.24011,   1.38253,
     +     .04317,    .02326,  30.26614,   1.48885,   1.13247,
     +     .71259,   1.34865,   1.49004,
     +     .04435,    .02395,  32.63048,   1.58704,   1.23307,
     +     .81760,   1.44780,   1.58830,
     +     .04543,    .02458,  34.85106,   1.67988,   1.32845,
     +     .91785,   1.54150,   1.68121,
     +     .04680,    .02537,  37.68542,   1.80045,   1.45165,
     +    1.04564,   1.66313,   1.80187,
     +     .04809,    .02612,  40.37518,   1.91675,   1.57023,
     +    1.16818,   1.78040,   1.91826,
     +     .04930,    .02682,  42.93225,   2.02862,   1.68444,
     +    1.28662,   1.89316,   2.03021 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05051,    .02752,  45.52089,   2.14323,   1.80154,
     +    1.40823,   2.00864,   2.14490,
     +     .05168,    .02820,  48.02641,   2.25670,   1.91682,
     +    1.52663,   2.12293,   2.25844,
     +     .05280,    .02885,  50.43182,   2.36664,   2.02885,
     +    1.64240,   2.23364,   2.36846,
     +     .05385,    .02945,  52.69247,   2.47165,   2.13567,
     +    1.75237,   2.33936,   2.47354,
     +     .05491,    .03006,  54.96066,   2.57858,   2.24437,
     +    1.86419,   2.44699,   2.58054,
     +     .05595,    .03067,  57.20268,   2.68552,   2.35316,
     +    1.97625,   2.55462,   2.68755,
     +     .05694,    .03123,  59.30703,   2.78780,   2.45695,
     +    2.08270,   2.65753,   2.78990,
     +     .05788,    .03178,  61.31292,   2.88619,   2.55695,
     +    2.18553,   2.75651,   2.88835 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05883,    .03232,  63.31005,   2.98586,   2.65808,
     +    2.28920,   2.85677,   2.98809,
     +     .05976,    .03286,  65.28190,   3.08543,   2.75915,
     +    2.39287,   2.95691,   3.08772,
     +     .06065,    .03337,  67.15421,   3.18121,   2.85637,
     +    2.49259,   3.05323,   3.18356,
     +     .06150,    .03385,  68.90620,   3.27234,   2.94872,
     +    2.58703,   3.14487,   3.27475,
     +     .06236,    .03435,  70.70773,   3.36636,   3.04427,
     +    2.68525,   3.23939,   3.36883 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .02625,    .01316,    .60778,    .32507,    .00000,
     +     .00000,    .17545,    .32526,
     +     .02766,    .01399,   1.23845,    .34583,    .00000,
     +     .00000,    .19782,    .34611,
     +     .02970,    .01520,   2.33502,    .38310,    .00302,
     +     .00000,    .23731,    .38351,
     +     .03115,    .01606,   3.19879,    .41467,    .04403,
     +     .00000,    .27036,    .41517,
     +     .03265,    .01696,   4.22067,    .45194,    .08722,
     +     .00000,    .30911,    .45253,
     +     .03394,    .01772,   5.18175,    .48706,    .12505,
     +     .00000,    .34545,    .48774,
     +     .03517,    .01845,   6.17861,    .52331,    .16404,
     +     .00000,    .38282,    .52407,
     +     .03646,    .01921,   7.31626,    .56443,    .20827,
     +     .00000,    .42509,    .56527 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .03758,    .01987,   8.37179,    .60233,    .24921,
     +     .00000,    .46397,    .60325,
     +     .03865,    .02051,   9.43498,    .64083,    .29005,
     +     .00000,    .50336,    .64182,
     +     .03950,    .02101,  10.30334,    .67258,    .32327,
     +     .00000,    .53580,    .67363,
     +     .04129,    .02207,  12.23051,    .74403,    .39842,
     +     .00011,    .60869,    .74520,
     +     .04282,    .02297,  13.90380,    .80931,    .46682,
     +     .05583,    .67515,    .81059,
     +     .04452,    .02397,  15.79799,    .88594,    .54673,
     +     .15405,    .75305,    .88734,
     +     .04628,    .02501,  17.86324,    .96963,    .63371,
     +     .24720,    .83800,    .97115,
     +     .04787,    .02594,  19.79900,   1.04865,    .71567,
     +     .33531,    .91813,   1.05027 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .04948,    .02689,  21.80667,   1.13140,    .80137,
     +     .42662,   1.00197,   1.13314,
     +     .05080,    .02766,  23.50376,   1.20217,    .87440,
     +     .50362,   1.07361,   1.20400,
     +     .05240,    .02860,  25.58698,   1.29026,    .96498,
     +     .59843,   1.16273,   1.29221,
     +     .05382,    .02943,  27.45816,   1.37036,   1.04733,
     +     .68477,   1.24372,   1.37241,
     +     .05511,    .03019,  29.20522,   1.44578,   1.12507,
     +     .76684,   1.31994,   1.44792,
     +     .05675,    .03114,  31.41895,   1.54322,   1.22496,
     +     .87090,   1.41835,   1.54548,
     +     .05829,    .03204,  33.50415,   1.63671,   1.32059,
     +     .97015,   1.51275,   1.63908,
     +     .05973,    .03288,  35.47388,   1.72623,   1.41228,
     +    1.06565,   1.60308,   1.72870 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06116,    .03371,  37.45588,   1.81753,   1.50587,
     +    1.16328,   1.69520,   1.82011,
     +     .06256,    .03452,  39.36028,   1.90748,   1.59754,
     +    1.25783,   1.78591,   1.91015,
     +     .06389,    .03529,  41.17906,   1.99429,   1.68629,
     +    1.34995,   1.87344,   1.99706,
     +     .06514,    .03601,  42.87833,   2.07688,   1.77056,
     +    1.43709,   1.95669,   2.07974,
     +     .06639,    .03674,  44.57386,   2.16064,   1.85599,
     +    1.52534,   2.04111,   2.16360,
     +     .06762,    .03745,  46.24157,   2.24413,   1.94119,
     +    1.61349,   2.12523,   2.24718,
     +     .06879,    .03812,  47.79761,   2.32366,   2.02215,
     +    1.69687,   2.20535,   2.32679,
     +     .06990,    .03876,  49.27473,   2.39993,   2.09992,
     +    1.77720,   2.28218,   2.40314 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07101,    .03940,  50.73735,   2.47692,   2.17829,
     +    1.85787,   2.35972,   2.48022,
     +     .07211,    .04004,  52.17516,   2.55360,   2.25636,
     +    1.93831,   2.43693,   2.55698,
     +     .07316,    .04064,  53.53413,   2.62713,   2.33124,
     +    2.01544,   2.51097,   2.63059,
     +     .07416,    .04121,  54.79930,   2.69687,   2.40212,
     +    2.08824,   2.58118,   2.70040,
     +     .07517,    .04179,  56.09703,   2.76866,   2.47532,
     +    2.16383,   2.65345,   2.77226 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03019,    .01532,    .58441,    .30493,    .00000,
     +     .00000,    .16487,    .30539,
     +     .03182,    .01630,   1.18360,    .32449,    .00000,
     +     .00000,    .18594,    .32506,
     +     .03417,    .01772,   2.21454,    .35926,    .00283,
     +     .00000,    .22279,    .35999,
     +     .03584,    .01872,   3.01817,    .38846,    .04080,
     +     .00000,    .25339,    .38931,
     +     .03758,    .01976,   3.96102,    .42269,    .08057,
     +     .00000,    .28902,    .42367,
     +     .03907,    .02065,   4.84105,    .45478,    .11521,
     +     .00000,    .32226,    .45586,
     +     .04048,    .02149,   5.74804,    .48774,    .15075,
     +     .00000,    .35628,    .48892,
     +     .04196,    .02238,   6.77680,    .52496,    .19089,
     +     .00000,    .39459,    .52625 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04325,    .02314,   7.72597,    .55914,    .22791,
     +     .00000,    .42969,    .56052,
     +     .04448,    .02388,   8.67703,    .59373,    .26469,
     +     .00000,    .46512,    .59519,
     +     .04544,    .02445,   9.45028,    .62215,    .29453,
     +     .00000,    .49421,    .62369,
     +     .04750,    .02567,  11.15646,    .68588,    .36174,
     +     .00010,    .55930,    .68757,
     +     .04925,    .02671,  12.62641,    .74382,    .42262,
     +     .04981,    .61835,    .74564,
     +     .05119,    .02786,  14.27830,    .81152,    .49342,
     +     .13719,    .68726,    .81349,
     +     .05320,    .02905,  16.06712,    .88510,    .57011,
     +     .21959,    .76204,    .88721,
     +     .05501,    .03012,  17.73288,    .95425,    .64206,
     +     .29720,    .83225,    .95650 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05684,    .03120,  19.45009,   1.02637,    .71695,
     +     .37729,    .90541,   1.02876,
     +     .05835,    .03209,  20.89364,   1.08780,    .78053,
     +     .44455,    .96767,   1.09030,
     +     .06017,    .03315,  22.65584,   1.16397,    .85907,
     +     .52705,   1.04482,   1.16661,
     +     .06177,    .03410,  24.23022,   1.23297,    .93022,
     +     .60190,   1.11468,   1.23573,
     +     .06324,    .03496,  25.69360,   1.29773,    .99717,
     +     .67284,   1.18020,   1.30060,
     +     .06509,    .03604,  27.53759,   1.38108,   1.08285,
     +     .76242,   1.26448,   1.38409,
     +     .06683,    .03705,  29.26467,   1.46073,   1.16455,
     +     .84752,   1.34500,   1.46388,
     +     .06846,    .03800,  30.88819,   1.53674,   1.24262,
     +     .92912,   1.42179,   1.54000 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07008,    .03895,  32.51431,   1.61400,   1.32206,
     +    1.01229,   1.49984,   1.61740,
     +     .07165,    .03986,  34.06793,   1.68984,   1.39956,
     +    1.09251,   1.57641,   1.69335,
     +     .07315,    .04073,  35.54583,   1.76282,   1.47439,
     +    1.17046,   1.65009,   1.76645,
     +     .07455,    .04154,  36.92031,   1.83204,   1.54522,
     +    1.24396,   1.71995,   1.83578,
     +     .07596,    .04235,  38.28589,   1.90205,   1.61681,
     +    1.31820,   1.79059,   1.90589,
     +     .07734,    .04315,  39.62400,   1.97164,   1.68803,
     +    1.39215,   1.86078,   1.97559,
     +     .07865,    .04391,  40.86665,   2.03773,   1.75549,
     +    1.46189,   1.92744,   2.04178,
     +     .07989,    .04462,  42.04254,   2.10097,   1.82016,
     +    1.52892,   1.99122,   2.10512 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08114,    .04534,  43.20185,   2.16464,   1.88514,
     +    1.59607,   2.05542,   2.16888,
     +     .08237,    .04605,  44.33762,   2.22790,   1.94974,
     +    1.66286,   2.11920,   2.23223,
     +     .08354,    .04672,  45.40723,   2.28842,   2.01154,
     +    1.72677,   2.18021,   2.29285,
     +     .08465,    .04735,  46.39894,   2.34568,   2.06990,
     +    1.78692,   2.23793,   2.35019,
     +     .08578,    .04800,  47.41436,   2.40454,   2.13009,
     +    1.84931,   2.29725,   2.40914 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03372,    .01738,    .56785,    .29070,    .00000,
     +     .00000,    .15723,    .29123,
     +     .03554,    .01849,   1.14400,    .30934,    .00000,
     +     .00000,    .17729,    .31000,
     +     .03818,    .02008,   2.12621,    .34220,    .00269,
     +     .00000,    .21211,    .34305,
     +     .04005,    .02121,   2.88502,    .36960,    .03835,
     +     .00000,    .24083,    .37059,
     +     .04200,    .02238,   3.76900,    .40156,    .07555,
     +     .00000,    .27411,    .40270,
     +     .04365,    .02338,   4.58880,    .43138,    .10780,
     +     .00000,    .30501,    .43263,
     +     .04522,    .02432,   5.42915,    .46189,    .14077,
     +     .00000,    .33652,    .46326,
     +     .04688,    .02531,   6.37744,    .49623,    .17788,
     +     .00000,    .37189,    .49773 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .04831,    .02617,   7.24827,    .52767,    .21199,
     +     .00000,    .40419,    .52928,
     +     .04968,    .02699,   8.11699,    .55937,    .24579,
     +     .00000,    .43671,    .56109,
     +     .05075,    .02763,   8.82064,    .58537,    .27313,
     +     .00000,    .46332,    .58717,
     +     .05303,    .02899,  10.36568,    .64346,    .33452,
     +     .00010,    .52270,    .64544,
     +     .05497,    .03014,  11.68814,    .69607,    .38991,
     +     .04540,    .57636,    .69819,
     +     .05712,    .03142,  13.16519,    .75731,    .45410,
     +     .12487,    .63874,    .75960,
     +     .05935,    .03274,  14.75551,    .82360,    .52334,
     +     .19948,    .70617,    .82606,
     +     .06135,    .03392,  16.22836,    .88566,    .58805,
     +     .26949,    .76924,    .88828 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06337,    .03511,  17.73900,    .95017,    .65519,
     +     .34148,    .83473,    .95294,
     +     .06503,    .03609,  19.00299,   1.00493,    .71199,
     +     .40175,    .89029,   1.00784,
     +     .06703,    .03727,  20.53883,   1.07263,    .78195,
     +     .47543,    .95891,   1.07569,
     +     .06880,    .03830,  21.90471,   1.13376,    .84511,
     +     .54208,   1.02085,   1.13695,
     +     .07041,    .03925,  23.16950,   1.19097,    .90440,
     +     .60508,   1.07878,   1.19429,
     +     .07245,    .04044,  24.75566,   1.26437,    .98003,
     +     .68438,   1.15309,   1.26786,
     +     .07435,    .04155,  26.23426,   1.33430,   1.05192,
     +     .75947,   1.22383,   1.33793,
     +     .07613,    .04258,  27.61844,   1.40083,   1.12041,
     +     .83128,   1.29111,   1.40460 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07791,    .04361,  28.99928,   1.46829,   1.18991,
     +     .90426,   1.35931,   1.47220,
     +     .07963,    .04461,  30.31221,   1.53427,   1.25751,
     +     .97444,   1.42600,   1.53832,
     +     .08127,    .04556,  31.55701,   1.59764,   1.32262,
     +    1.04247,   1.49003,   1.60181,
     +     .08280,    .04644,  32.71030,   1.65758,   1.38410,
     +    1.10646,   1.55058,   1.66188,
     +     .08433,    .04732,  33.85174,   1.71806,   1.44609,
     +    1.17093,   1.61166,   1.72247,
     +     .08584,    .04819,  34.96643,   1.77804,   1.50762,
     +    1.23501,   1.67222,   1.78257,
     +     .08726,    .04901,  35.99739,   1.83486,   1.56576,
     +    1.29530,   1.72959,   1.83950,
     +     .08861,    .04978,  36.97037,   1.88913,   1.62140,
     +    1.35314,   1.78438,   1.89388 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .08997,    .05056,  37.92606,   1.94365,   1.67717,
     +    1.41095,   1.83940,   1.94850,
     +     .09131,    .05132,  38.85965,   1.99771,   1.73251,
     +    1.46835,   1.89396,   2.00267,
     +     .09258,    .05205,  39.73595,   2.04933,   1.78535,
     +    1.52316,   1.94605,   2.05439,
     +     .09378,    .05274,  40.54530,   2.09806,   1.83514,
     +    1.57464,   1.99522,   2.10322,
     +     .09501,    .05343,  41.37278,   2.14809,   1.88643,
     +    1.62798,   2.04570,   2.15335 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .04786,    .02602,    .52126,    .25118,    .00000,
     +     .00000,    .13619,    .25239,
     +     .05047,    .02763,   1.03141,    .26706,    .00000,
     +     .00000,    .15330,    .26849,
     +     .05423,    .02994,   1.87429,    .29436,    .00228,
     +     .00000,    .18230,    .29611,
     +     .05688,    .03156,   2.50616,    .31663,    .03141,
     +     .00000,    .20571,    .31860,
     +     .05962,    .03322,   3.22493,    .34218,    .06141,
     +     .00000,    .23242,    .34439,
     +     .06194,    .03463,   3.87727,    .36567,    .08702,
     +     .00000,    .25685,    .36807,
     +     .06414,    .03596,   4.53402,    .38942,    .11290,
     +     .00000,    .28147,    .39200,
     +     .06645,    .03735,   5.26245,    .41584,    .14171,
     +     .00000,    .30879,    .41862 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .06843,    .03855,   5.92095,    .43978,    .16792,
     +     .00000,    .33349,    .44273,
     +     .07033,    .03969,   6.56820,    .46369,    .19364,
     +     .00000,    .35811,    .46680,
     +     .07182,    .04058,   7.08579,    .48312,    .21426,
     +     .00000,    .37809,    .48635,
     +     .07496,    .04245,   8.20385,    .52610,    .26011,
     +     .00008,    .42220,    .52960,
     +     .07762,    .04403,   9.13979,    .56451,    .30094,
     +     .03371,    .46154,    .56823,
     +     .08055,    .04577,  10.16342,    .60867,    .34767,
     +     .09227,    .50672,    .61264,
     +     .08357,    .04755,  11.24433,    .65585,    .39742,
     +     .14643,    .55491,    .66008,
     +     .08629,    .04914,  12.22690,    .69948,    .44336,
     +     .19665,    .59943,    .70393 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .08900,    .05073,  13.21727,    .74429,    .49046,
     +     .24771,    .64512,    .74897,
     +     .09123,    .05204,  14.03276,    .78193,    .52990,
     +     .28999,    .68348,    .78680,
     +     .09391,    .05359,  15.00772,    .82796,    .57794,
     +     .34116,    .73034,    .83306,
     +     .09626,    .05496,  15.86128,    .86909,    .62087,
     +     .38697,    .77220,    .87438,
     +     .09840,    .05620,  16.64151,    .90725,    .66083,
     +     .42991,    .81101,    .91272,
     +     .10110,    .05775,  17.60373,    .95568,    .71124,
     +     .48337,    .86026,    .96138,
     +     .10360,    .05920,  18.48552,   1.00131,    .75863,
     +     .53344,    .90663,   1.00722,
     +     .10594,    .06053,  19.29916,   1.04431,    .80336,
     +     .58089,    .95031,   1.05041 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10826,    .06186,  20.09966,   1.08751,    .84836,
     +     .62870,    .99418,   1.09380,
     +     .11051,    .06314,  20.84724,   1.12931,    .89164,
     +     .67417,   1.03663,   1.13579,
     +     .11262,    .06434,  21.54769,   1.16914,    .93301,
     +     .71792,   1.07706,   1.17580,
     +     .11460,    .06547,  22.18736,   1.20649,    .97173,
     +     .75872,   1.11497,   1.21331,
     +     .11658,    .06659,  22.81191,   1.24386,   1.01046,
     +     .79950,   1.15289,   1.25084,
     +     .11852,    .06768,  23.41463,   1.28064,   1.04862,
     +     .83974,   1.19021,   1.28778,
     +     .12035,    .06871,  23.96348,   1.31519,   1.08437,
     +     .87728,   1.22526,   1.32248,
     +     .12207,    .06968,  24.47643,   1.34798,   1.11837,
     +     .91308,   1.25852,   1.35541 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12380,    .07064,  24.97291,   1.38065,   1.15218,
     +     .94858,   1.29166,   1.38823,
     +     .12550,    .07159,  25.45256,   1.41284,   1.18552,
     +     .98361,   1.32432,   1.42056,
     +     .12711,    .07249,  25.89739,   1.44337,   1.21714,
     +    1.01685,   1.35528,   1.45122,
     +     .12863,    .07334,  26.30233,   1.47198,   1.24671,
     +    1.04784,   1.38429,   1.47995,
     +     .13017,    .07420,  26.71434,   1.50123,   1.27708,
     +    1.07983,   1.41396,   1.50933 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .06916,    .04002,    .48263,    .21901,    .00000,
     +     .00000,    .11895,    .22152,
     +     .07291,    .04232,    .93430,    .23222,    .00000,
     +     .00000,    .13326,    .23508,
     +     .07825,    .04558,   1.65307,    .25438,    .00190,
     +     .00000,    .15694,    .25774,
     +     .08198,    .04783,   2.17328,    .27207,    .02527,
     +     .00000,    .17565,    .27577,
     +     .08582,    .05014,   2.74872,    .29201,    .04900,
     +     .00000,    .19664,    .29607,
     +     .08905,    .05208,   3.25797,    .31006,    .06894,
     +     .00000,    .21554,    .31442,
     +     .09210,    .05389,   3.75997,    .32807,    .08885,
     +     .00000,    .23434,    .33270,
     +     .09529,    .05578,   4.30568,    .34786,    .11073,
     +     .00000,    .25495,    .35279 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .09802,    .05740,   4.79003,    .36558,    .13042,
     +     .00000,    .27337,    .37076,
     +     .10062,    .05893,   5.25792,    .38309,    .14953,
     +     .00000,    .29153,    .38851,
     +     .10264,    .06012,   5.62646,    .39719,    .16472,
     +     .00000,    .30613,    .40279,
     +     .10690,    .06260,   6.40736,    .42800,    .19808,
     +     .00007,    .33798,    .43399,
     +     .11049,    .06469,   7.04375,    .45514,    .22737,
     +     .02442,    .36599,    .46145,
     +     .11442,    .06696,   7.72220,    .48591,    .26043,
     +     .06647,    .39769,    .49257,
     +     .11844,    .06927,   8.42209,    .51828,    .29512,
     +     .10474,    .43101,    .52530,
     +     .12203,    .07132,   9.04400,    .54779,    .32669,
     +     .13974,    .46135,    .55513 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12560,    .07335,   9.65758,    .57769,    .35865,
     +     .17487,    .49208,    .58535,
     +     .12852,    .07501,  10.15283,    .60249,    .38508,
     +     .20362,    .51756,    .61041,
     +     .13200,    .07697,  10.73299,    .63245,    .41688,
     +     .23800,    .54830,    .64067,
     +     .13505,    .07868,  11.23096,    .65889,    .44496,
     +     .26842,    .57543,    .66738,
     +     .13781,    .08023,  11.67885,    .68317,    .47084,
     +     .29668,    .60033,    .69190,
     +     .14126,    .08215,  12.21922,    .71358,    .50308,
     +     .33141,    .63152,    .72261,
     +     .14446,    .08392,  12.70307,    .74186,    .53299,
     +     .36354,    .66050,    .75116,
     +     .14742,    .08556,  13.14122,    .76820,    .56093,
     +     .39367,    .68749,    .77776 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15035,    .08717,  13.56466,    .79438,    .58873,
     +     .42373,    .71433,    .80420,
     +     .15317,    .08871,  13.94995,    .81939,    .61512,
     +     .45194,    .73995,    .82944,
     +     .15582,    .09015,  14.30526,    .84298,    .64014,
     +     .47887,    .76412,    .85326,
     +     .15828,    .09149,  14.62302,    .86487,    .66330,
     +     .50373,    .78654,    .87535,
     +     .16073,    .09282,  14.92723,    .88654,    .68624,
     +     .52834,    .80875,    .89723,
     +     .16312,    .09411,  15.21591,    .90769,    .70866,
     +     .55243,    .83042,    .91858,
     +     .16536,    .09531,  15.47250,    .92733,    .72943,
     +     .57467,    .85055,    .93840,
     +     .16747,    .09645,  15.70897,    .94583,    .74904,
     +     .59574,    .86950,    .95708 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16957,    .09757,  15.93237,    .96407,    .76836,
     +     .61643,    .88821,    .97550,
     +     .17163,    .09867,  16.14448,    .98191,    .78726,
     +     .63670,    .90649,    .99350,
     +     .17358,    .09970,  16.33746,    .99867,    .80504,
     +     .65579,    .92368,   1.01043,
     +     .17541,    .10067,  16.50889,   1.01423,    .82152,
     +     .67342,    .93963,   1.02614,
     +     .17726,    .10165,  16.68235,   1.03008,    .83838,
     +     .69157,    .95588,   1.04213 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .08670,    .05197,    .46463,    .20301,    .00000,
     +     .00000,    .11048,    .20688,
     +     .09130,    .05475,    .88480,    .21470,    .00000,
     +     .00000,    .12323,    .21902,
     +     .09784,    .05867,   1.53681,    .23405,    .00169,
     +     .00000,    .14406,    .23900,
     +     .10236,    .06135,   1.99784,    .24928,    .02205,
     +     .00000,    .16030,    .25467,
     +     .10700,    .06409,   2.49839,    .26628,    .04255,
     +     .00000,    .17831,    .27212,
     +     .11090,    .06637,   2.93396,    .28151,    .05960,
     +     .00000,    .19438,    .28772,
     +     .11455,    .06850,   3.35732,    .29658,    .07648,
     +     .00000,    .21023,    .30314,
     +     .11836,    .07071,   3.81139,    .31301,    .09490,
     +     .00000,    .22747,    .31993 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12162,    .07259,   4.20947,    .32762,    .11135,
     +     .00000,    .24277,    .33485,
     +     .12471,    .07437,   4.58952,    .34195,    .12721,
     +     .00000,    .25774,    .34947,
     +     .12711,    .07574,   4.88577,    .35342,    .13973,
     +     .00000,    .26970,    .36116,
     +     .13213,    .07860,   5.50530,    .37829,    .16705,
     +     .00006,    .29560,    .38649,
     +     .13635,    .08098,   6.00088,    .39997,    .19080,
     +     .01995,    .31815,    .40857,
     +     .14094,    .08356,   6.51966,    .42433,    .21737,
     +     .05411,    .34345,    .43335,
     +     .14562,    .08618,   7.04596,    .44970,    .24497,
     +     .08486,    .36976,    .45914,
     +     .14978,    .08848,   7.50623,    .47260,    .26986,
     +     .11275,    .39349,    .48241 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15389,    .09075,   7.95345,    .49559,    .29484,
     +     .14051,    .41731,    .50577,
     +     .15725,    .09259,   8.30920,    .51451,    .31533,
     +     .16304,    .43690,    .52499,
     +     .16123,    .09477,   8.71941,    .53715,    .33977,
     +     .18978,    .46033,    .54798,
     +     .16470,    .09665,   9.06637,    .55696,    .36119,
     +     .21326,    .48083,    .56810,
     +     .16784,    .09835,   9.37475,    .57502,    .38080,
     +     .23494,    .49952,    .58644,
     +     .17174,    .10044,   9.74034,    .59745,    .40501,
     +     .26136,    .52272,    .60920,
     +     .17534,    .10237,  10.06206,    .61810,    .42728,
     +     .28560,    .54409,    .63017,
     +     .17866,    .10413,  10.34894,    .63719,    .44793,
     +     .30818,    .56384,    .64954 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18194,    .10587,  10.62190,    .65602,    .46833,
     +     .33055,    .58332,    .66865,
     +     .18507,    .10751,  10.86489,    .67382,    .48752,
     +     .35136,    .60174,    .68671,
     +     .18800,    .10905,  11.08609,    .69050,    .50559,
     +     .37112,    .61901,    .70364,
     +     .19072,    .11047,  11.28022,    .70586,    .52221,
     +     .38923,    .63491,    .71923,
     +     .19342,    .11187,  11.46268,    .72096,    .53855,
     +     .40705,    .65055,    .73455,
     +     .19604,    .11322,  11.63314,    .73558,    .55443,
     +     .42439,    .66570,    .74939,
     +     .19849,    .11448,  11.78111,    .74905,    .56903,
     +     .44029,    .67966,    .76306,
     +     .20079,    .11566,  11.91575,    .76167,    .58275,
     +     .45528,    .69274,    .77586 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20307,    .11683,  12.03977,    .77402,    .59616,
     +     .46991,    .70555,    .78840,
     +     .20530,    .11796,  12.15544,    .78602,    .60921,
     +     .48417,    .71801,    .80058,
     +     .20740,    .11903,  12.25842,    .79723,    .62142,
     +     .49752,    .72964,    .81196,
     +     .20937,    .12002,  12.34721,    .80754,    .63266,
     +     .50978,    .74036,    .82243,
     +     .21136,    .12102,  12.43669,    .81802,    .64412,
     +     .52237,    .75124,    .83306 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .10238,    .06277,    .45506,    .19282,    .00000,
     +     .00000,    .10515,    .19807,
     +     .10769,    .06592,    .85379,    .20346,    .00000,
     +     .00000,    .11685,    .20925,
     +     .11520,    .07032,   1.46059,    .22088,    .00155,
     +     .00000,    .13576,    .22742,
     +     .12036,    .07333,   1.88199,    .23447,    .01993,
     +     .00000,    .15035,    .24152,
     +     .12564,    .07637,   2.33291,    .24951,    .03831,
     +     .00000,    .16642,    .25708,
     +     .13005,    .07890,   2.72014,    .26289,    .05348,
     +     .00000,    .18064,    .27088,
     +     .13419,    .08125,   3.09238,    .27604,    .06841,
     +     .00000,    .19458,    .28444,
     +     .13848,    .08368,   3.48741,    .29030,    .08461,
     +     .00000,    .20965,    .29910 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14214,    .08575,   3.83039,    .30290,    .09900,
     +     .00000,    .22294,    .31205,
     +     .14560,    .08768,   4.15478,    .31519,    .11279,
     +     .00000,    .23588,    .32467,
     +     .14828,    .08918,   4.40555,    .32497,    .12364,
     +     .00000,    .24617,    .33471,
     +     .15388,    .09228,   4.92451,    .34607,    .14715,
     +     .00006,    .26832,    .35633,
     +     .15856,    .09485,   5.33330,    .36433,    .16744,
     +     .01715,    .28745,    .37502,
     +     .16363,    .09763,   5.75485,    .38468,    .18998,
     +     .04639,    .30875,    .39584,
     +     .16878,    .10042,   6.17673,    .40571,    .21322,
     +     .07250,    .33074,    .41733,
     +     .17335,    .10287,   6.54074,    .42454,    .23402,
     +     .09602,    .35042,    .43657 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17784,    .10528,   6.88983,    .44331,    .25475,
     +     .11927,    .37003,    .45574,
     +     .18150,    .10722,   7.16405,    .45864,    .27165,
     +     .13804,    .38604,    .47140,
     +     .18582,    .10950,   7.47607,    .47686,    .29168,
     +     .16017,    .40507,    .49000,
     +     .18957,    .11147,   7.73654,    .49270,    .30912,
     +     .17949,    .42161,    .50616,
     +     .19296,    .11324,   7.96561,    .50705,    .32500,
     +     .19724,    .43660,    .52081,
     +     .19715,    .11541,   8.23285,    .52473,    .34447,
     +     .21874,    .45508,    .53885,
     +     .20100,    .11739,   8.46409,    .54090,    .36226,
     +     .23833,    .47196,    .55534,
     +     .20454,    .11921,   8.66739,    .55573,    .37865,
     +     .25648,    .48747,    .57047 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20802,    .12098,   8.85810,    .57027,    .39475,
     +     .27437,    .50267,    .58530,
     +     .21133,    .12266,   9.02396,    .58390,    .40978,
     +     .29089,    .51693,    .59920,
     +     .21443,    .12422,   9.17303,    .59660,    .42388,
     +     .30652,    .53023,    .61216,
     +     .21729,    .12565,   9.30127,    .60822,    .43676,
     +     .32076,    .54240,    .62401,
     +     .22012,    .12706,   9.41945,    .61955,    .44935,
     +     .33470,    .55429,    .63557,
     +     .22286,    .12842,   9.52801,    .63048,    .46153,
     +     .34821,    .56575,    .64672,
     +     .22542,    .12968,   9.61957,    .64046,    .47265,
     +     .36052,    .57624,    .65690,
     +     .22781,    .13085,   9.70166,    .64977,    .48306,
     +     .37209,    .58602,    .66640 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23017,    .13201,   9.77485,    .65882,    .49318,
     +     .38331,    .59553,    .67563,
     +     .23248,    .13313,   9.84155,    .66756,    .50298,
     +     .39421,    .60474,    .68455,
     +     .23465,    .13418,   9.89924,    .67568,    .51210,
     +     .40438,    .61329,    .69283,
     +     .23667,    .13515,   9.94684,    .68309,    .52045,
     +     .41366,    .62111,    .70041,
     +     .23872,    .13613,   9.99465,    .69061,    .52894,
     +     .42317,    .62904,    .70808 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .11690,    .07277,    .45077,    .18545,    .00000,
     +     .00000,    .10139,    .19211,
     +     .12281,    .07620,    .83326,    .19528,    .00000,
     +     .00000,    .11231,    .20255,
     +     .13113,    .08098,   1.40601,    .21126,    .00145,
     +     .00000,    .12980,    .21937,
     +     .13683,    .08422,   1.79788,    .22362,    .01838,
     +     .00000,    .14318,    .23230,
     +     .14263,    .08750,   2.21217,    .23722,    .03523,
     +     .00000,    .15782,    .24647,
     +     .14747,    .09021,   2.56403,    .24924,    .04904,
     +     .00000,    .17070,    .25896,
     +     .15199,    .09272,   2.89910,    .26099,    .06258,
     +     .00000,    .18326,    .27116,
     +     .15667,    .09531,   3.25151,    .27366,    .07718,
     +     .00000,    .19676,    .28428 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16065,    .09749,   3.55498,    .28481,    .09009,
     +     .00000,    .20862,    .29580,
     +     .16440,    .09954,   3.83970,    .29564,    .10241,
     +     .00000,    .22011,    .30698,
     +     .16731,    .10112,   4.05830,    .30421,    .11206,
     +     .00000,    .22920,    .31583,
     +     .17336,    .10439,   4.50659,    .32261,    .13288,
     +     .00006,    .24867,    .33480,
     +     .17839,    .10708,   4.85490,    .33844,    .15074,
     +     .01518,    .26539,    .35109,
     +     .18383,    .10996,   5.20930,    .35597,    .17046,
     +     .04097,    .28389,    .36911,
     +     .18933,    .11286,   5.55984,    .37394,    .19066,
     +     .06384,    .30285,    .38758,
     +     .19419,    .11540,   5.85861,    .38994,    .20863,
     +     .08432,    .31971,    .40401 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19896,    .11787,   6.14172,    .40578,    .22644,
     +     .10446,    .33641,    .42027,
     +     .20282,    .11986,   6.36150,    .41863,    .24087,
     +     .12063,    .34996,    .43346,
     +     .20738,    .12219,   6.60862,    .43381,    .25788,
     +     .13960,    .36597,    .44903,
     +     .21132,    .12419,   6.81236,    .44692,    .27261,
     +     .15609,    .37980,    .46248,
     +     .21487,    .12598,   6.98970,    .45876,    .28597,
     +     .17118,    .39228,    .47461,
     +     .21925,    .12818,   7.19317,    .47323,    .30225,
     +     .18934,    .40756,    .48945,
     +     .22325,    .13017,   7.36621,    .48636,    .31703,
     +     .20581,    .42144,    .50291,
     +     .22693,    .13198,   7.51627,    .49834,    .33058,
     +     .22099,    .43410,    .51519 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23053,    .13375,   7.65513,    .51001,    .34383,
     +     .23589,    .44645,    .52716,
     +     .23395,    .13541,   7.77264,    .52087,    .35611,
     +     .24958,    .45796,    .53828,
     +     .23713,    .13695,   7.87673,    .53094,    .36758,
     +     .26247,    .46863,    .54861,
     +     .24007,    .13836,   7.96420,    .54008,    .37800,
     +     .27416,    .47834,    .55798,
     +     .24295,    .13974,   8.04302,    .54895,    .38815,
     +     .28556,    .48777,    .56707,
     +     .24575,    .14107,   8.11403,    .55746,    .39791,
     +     .29656,    .49683,    .57580,
     +     .24834,    .14229,   8.17151,    .56518,    .40678,
     +     .30654,    .50505,    .58371,
     +     .25077,    .14343,   8.22193,    .57234,    .41505,
     +     .31588,    .51270,    .59105 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25316,    .14454,   8.26483,    .57925,    .42305,
     +     .32491,    .52008,    .59814,
     +     .25548,    .14562,   8.30259,    .58589,    .43076,
     +     .33364,    .52719,    .60495,
     +     .25766,    .14663,   8.33365,    .59201,    .43791,
     +     .34176,    .53376,    .61123,
     +     .25969,    .14756,   8.35720,    .59757,    .44441,
     +     .34913,    .53973,    .61694,
     +     .26174,    .14849,   8.38076,    .60320,    .45102,
     +     .35668,    .54578,    .62271 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .14369,    .09103,    .45306,    .17497,    .00000,
     +     .00000,    .09629,    .18451,
     +     .15057,    .09487,    .81137,    .18362,    .00000,
     +     .00000,    .10608,    .19387,
     +     .16019,    .10017,   1.33402,    .19749,    .00131,
     +     .00000,    .12154,    .20871,
     +     .16673,    .10373,   1.68302,    .20809,    .01622,
     +     .00000,    .13321,    .21997,
     +     .17335,    .10730,   2.04463,    .21962,    .03092,
     +     .00000,    .14584,    .23214,
     +     .17885,    .11023,   2.34618,    .22970,    .04285,
     +     .00000,    .15682,    .24275,
     +     .18395,    .11294,   2.62891,    .23947,    .05444,
     +     .00000,    .16744,    .25302,
     +     .18921,    .11571,   2.92179,    .24991,    .06684,
     +     .00000,    .17875,    .26395 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19366,    .11804,   3.17051,    .25902,    .07772,
     +     .00000,    .18861,    .27348,
     +     .19784,    .12021,   3.40077,    .26780,    .08802,
     +     .00000,    .19808,    .28264,
     +     .20107,    .12187,   3.57538,    .27470,    .09604,
     +     .00000,    .20552,    .28984,
     +     .20775,    .12529,   3.92788,    .28938,    .11319,
     +     .00005,    .22133,    .30513,
     +     .21327,    .12809,   4.19524,    .30187,    .12776,
     +     .01250,    .23475,    .31811,
     +     .21920,    .13107,   4.46077,    .31554,    .14367,
     +     .03363,    .24944,    .33230,
     +     .22516,    .13403,   4.71771,    .32939,    .15980,
     +     .05215,    .26432,    .34667,
     +     .23039,    .13660,   4.93182,    .34156,    .17401,
     +     .06858,    .27741,    .35929 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23549,    .13908,   5.13025,    .35348,    .18794,
     +     .08460,    .29022,    .37164,
     +     .23960,    .14107,   5.28090,    .36305,    .19913,
     +     .09735,    .30053,    .38155,
     +     .24441,    .14338,   5.44601,    .37423,    .21220,
     +     .11219,    .31256,    .39311,
     +     .24856,    .14535,   5.57871,    .38377,    .22340,
     +     .12497,    .32285,    .40299,
     +     .25228,    .14710,   5.69186,    .39230,    .23349,
     +     .13659,    .33206,    .41181,
     +     .25682,    .14922,   5.81752,    .40261,    .24565,
     +     .15046,    .34320,    .42247,
     +     .26096,    .15113,   5.92018,    .41183,    .25658,
     +     .16291,    .35319,    .43200,
     +     .26473,    .15286,   6.00618,    .42015,    .26651,
     +     .17431,    .36223,    .44061 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26841,    .15452,   6.08287,    .42817,    .27614,
     +     .18540,    .37095,    .44890,
     +     .27187,    .15608,   6.14348,    .43551,    .28496,
     +     .19549,    .37895,    .45649,
     +     .27508,    .15751,   6.19521,    .44225,    .29314,
     +     .20494,    .38632,    .46346,
     +     .27802,    .15881,   6.23576,    .44829,    .30050,
     +     .21344,    .39295,    .46971,
     +     .28090,    .16007,   6.26936,    .45408,    .30760,
     +     .22167,    .39931,    .47569,
     +     .28368,    .16127,   6.29732,    .45957,    .31438,
     +     .22955,    .40537,    .48137,
     +     .28623,    .16237,   6.31657,    .46447,    .32047,
     +     .23664,    .41079,    .48645,
     +     .28861,    .16338,   6.33195,    .46899,    .32612,
     +     .24325,    .41580,    .49112 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .29094,    .16437,   6.34149,    .47327,    .33152,
     +     .24958,    .42057,    .49556,
     +     .29320,    .16532,   6.34756,    .47735,    .33669,
     +     .25566,    .42513,    .49978,
     +     .29531,    .16619,   6.34983,    .48106,    .34145,
     +     .26128,    .42929,    .50362,
     +     .29726,    .16699,   6.34781,    .48437,    .34573,
     +     .26635,    .43302,    .50705,
     +     .29922,    .16780,   6.34568,    .48771,    .35007,
     +     .27152,    .43679,    .51051 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18037,    .11539,    .47521,    .16427,    .00000,
     +     .00000,    .09148,    .17814,
     +     .18832,    .11956,    .80748,    .17171,    .00000,
     +     .00000,    .10015,    .18638,
     +     .19933,    .12525,   1.27733,    .18344,    .00117,
     +     .00000,    .11359,    .19920,
     +     .20674,    .12903,   1.58210,    .19225,    .01415,
     +     .00000,    .12357,    .20873,
     +     .21419,    .13277,   1.89033,    .20171,    .02680,
     +     .00000,    .13420,    .21888,
     +     .22032,    .13583,   2.14166,    .20986,    .03692,
     +     .00000,    .14333,    .22760,
     +     .22598,    .13863,   2.37279,    .21767,    .04665,
     +     .00000,    .15204,    .23592,
     +     .23177,    .14147,   2.60779,    .22593,    .05696,
     +     .00000,    .16123,    .24469 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23666,    .14384,   2.80391,    .23305,    .06591,
     +     .00000,    .16915,    .25225,
     +     .24121,    .14603,   2.98234,    .23984,    .07431,
     +     .00000,    .17669,    .25943,
     +     .24470,    .14769,   3.11549,    .24513,    .08079,
     +     .00000,    .18256,    .26502,
     +     .25190,    .15109,   3.37879,    .25626,    .09452,
     +     .00005,    .19488,    .27676,
     +     .25778,    .15384,   3.57196,    .26558,    .10603,
     +     .01003,    .20520,    .28656,
     +     .26406,    .15673,   3.75726,    .27564,    .11845,
     +     .02686,    .21634,    .29713,
     +     .27030,    .15957,   3.93106,    .28567,    .13086,
     +     .04141,    .22745,    .30763,
     +     .27573,    .16200,   4.07110,    .29433,    .14166,
     +     .05418,    .23707,    .31671 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28099,    .16433,   4.19650,    .30268,    .15212,
     +     .06648,    .24636,    .32545,
     +     .28518,    .16617,   4.28816,    .30928,    .16041,
     +     .07618,    .25373,    .33236,
     +     .29007,    .16827,   4.38459,    .31686,    .16999,
     +     .08735,    .26221,    .34028,
     +     .29423,    .17004,   4.45863,    .32323,    .17810,
     +     .09688,    .26936,    .34694,
     +     .29794,    .17161,   4.51932,    .32885,    .18533,
     +     .10546,    .27568,    .35281,
     +     .30243,    .17348,   4.58190,    .33550,    .19394,
     +     .11560,    .28320,    .35975,
     +     .30647,    .17513,   4.62869,    .34133,    .20157,
     +     .12459,    .28983,    .36584,
     +     .31013,    .17661,   4.66464,    .34651,    .20842,
     +     .13275,    .29574,    .37124 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31367,    .17802,   4.69352,    .35142,    .21499,
     +     .14062,    .30137,    .37635,
     +     .31696,    .17930,   4.71112,    .35578,    .22091,
     +     .14769,    .30641,    .38090,
     +     .32000,    .18047,   4.72368,    .35972,    .22634,
     +     .15425,    .31100,    .38501,
     +     .32275,    .18152,   4.72961,    .36318,    .23117,
     +     .16009,    .31506,    .38863,
     +     .32542,    .18252,   4.73057,    .36643,    .23577,
     +     .16570,    .31889,    .39201,
     +     .32798,    .18346,   4.72805,    .36944,    .24012,
     +     .17103,    .32248,    .39515,
     +     .33030,    .18431,   4.72051,    .37205,    .24396,
     +     .17576,    .32562,    .39787,
     +     .33246,    .18508,   4.71152,    .37442,    .24749,
     +     .18014,    .32848,    .40034 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .33454,    .18581,   4.69854,    .37659,    .25082,
     +     .18430,    .33115,    .40260,
     +     .33655,    .18651,   4.68364,    .37861,    .25397,
     +     .18826,    .33365,    .40471,
     +     .33841,    .18714,   4.66719,    .38040,    .25683,
     +     .19189,    .33590,    .40657,
     +     .34011,    .18770,   4.64886,    .38193,    .25936,
     +     .19512,    .33786,    .40817,
     +     .34182,    .18827,   4.63048,    .38347,    .26192,
     +     .19840,    .33983,    .40978 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .23596,    .15039,    .54481,    .15162,    .00000,
     +     .00000,    .08640,    .17261,
     +     .24499,    .15466,    .84444,    .15774,    .00000,
     +     .00000,    .09389,    .17956,
     +     .25731,    .16039,   1.25088,    .16712,    .00102,
     +     .00000,    .10514,    .19001,
     +     .26547,    .16412,   1.50447,    .17399,    .01203,
     +     .00000,    .11329,    .19757,
     +     .27358,    .16776,   1.75260,    .18121,    .02257,
     +     .00000,    .12179,    .20544,
     +     .28018,    .17068,   1.94874,    .18730,    .03085,
     +     .00000,    .12893,    .21205,
     +     .28623,    .17331,   2.12427,    .19302,    .03868,
     +     .00000,    .13564,    .21824,
     +     .29237,    .17595,   2.29798,    .19896,    .04686,
     +     .00000,    .14260,    .22465 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29748,    .17812,   2.43926,    .20402,    .05387,
     +     .00000,    .14850,    .23008,
     +     .30220,    .18011,   2.56443,    .20876,    .06035,
     +     .00000,    .15403,    .23514,
     +     .30579,    .18160,   2.65562,    .21239,    .06529,
     +     .00000,    .15829,    .23902,
     +     .31312,    .18460,   2.83010,    .21990,    .07563,
     +     .00004,    .16707,    .24702,
     +     .31903,    .18696,   2.95083,    .22605,    .08413,
     +     .00762,    .17427,    .25354,
     +     .32524,    .18940,   3.05936,    .23253,    .09315,
     +     .02026,    .18188,    .26039,
     +     .33132,    .19173,   3.15528,    .23880,    .10199,
     +     .03099,    .18929,    .26701,
     +     .33654,    .19368,   3.22745,    .24407,    .10953,
     +     .04026,    .19555,    .27256 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .34151,    .19550,   3.28706,    .24901,    .11672,
     +     .04907,    .20147,    .27775,
     +     .34543,    .19689,   3.32682,    .25280,    .12232,
     +     .05592,    .20605,    .28173,
     +     .34991,    .19845,   3.36372,    .25703,    .12867,
     +     .06369,    .21120,    .28616,
     +     .35367,    .19973,   3.38795,    .26047,    .13396,
     +     .07023,    .21543,    .28974,
     +     .35698,    .20083,   3.40493,    .26343,    .13861,
     +     .07606,    .21910,    .29283,
     +     .36093,    .20209,   3.41625,    .26678,    .14403,
     +     .08283,    .22334,    .29632,
     +     .36440,    .20316,   3.41865,    .26960,    .14874,
     +     .08875,    .22696,    .29923,
     +     .36750,    .20409,   3.41567,    .27199,    .15288,
     +     .09404,    .23010,    .30171 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .37046,    .20494,   3.40816,    .27416,    .15679,
     +     .09909,    .23299,    .30396,
     +     .37313,    .20567,   3.39383,    .27596,    .16022,
     +     .10353,    .23547,    .30580,
     +     .37556,    .20631,   3.37795,    .27753,    .16332,
     +     .10762,    .23767,    .30740,
     +     .37773,    .20685,   3.35946,    .27881,    .16601,
     +     .11120,    .23954,    .30870,
     +     .37979,    .20733,   3.33800,    .27991,    .16852,
     +     .11459,    .24122,    .30982,
     +     .38173,    .20777,   3.31505,    .28087,    .17085,
     +     .11778,    .24274,    .31079,
     +     .38344,    .20813,   3.29032,    .28160,    .17285,
     +     .12056,    .24399,    .31151,
     +     .38501,    .20845,   3.26611,    .28222,    .17467,
     +     .12311,    .24509,    .31211 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .38649,    .20871,   3.23950,    .28269,    .17632,
     +     .12548,    .24604,    .31256,
     +     .38789,    .20895,   3.21226,    .28307,    .17785,
     +     .12772,    .24689,    .31291,
     +     .38916,    .20914,   3.18523,    .28334,    .17921,
     +     .12973,    .24760,    .31314,
     +     .39028,    .20928,   3.15823,    .28348,    .18037,
     +     .13150,    .24814,    .31324,
     +     .39141,    .20943,   3.13134,    .28361,    .18153,
     +     .13330,    .24868,    .31334 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28692,    .18030,    .64108,    .14141,    .00000,
     +     .00000,    .08265,    .16911,
     +     .29638,    .18432,    .91076,    .14660,    .00000,
     +     .00000,    .08928,    .17502,
     +     .30914,    .18961,   1.26589,    .15433,    .00092,
     +     .00000,    .09899,    .18366,
     +     .31749,    .19297,   1.47987,    .15984,    .01062,
     +     .00000,    .10585,    .18973,
     +     .32568,    .19620,   1.68326,    .16551,    .01977,
     +     .00000,    .11286,    .19592,
     +     .33228,    .19875,   1.83959,    .17020,    .02683,
     +     .00000,    .11865,    .20099,
     +     .33825,    .20101,   1.97594,    .17453,    .03341,
     +     .00000,    .12399,    .20566,
     +     .34425,    .20324,   2.10738,    .17894,    .04020,
     +     .00000,    .12944,    .21039 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34920,    .20504,   2.21164,    .18263,    .04595,
     +     .00000,    .13400,    .21432,
     +     .35375,    .20666,   2.30162,    .18603,    .05120,
     +     .00000,    .13822,    .21794,
     +     .35717,    .20785,   2.36542,    .18859,    .05517,
     +     .00000,    .14141,    .22065,
     +     .36406,    .21020,   2.48301,    .19380,    .06336,
     +     .00004,    .14791,    .22614,
     +     .36954,    .21199,   2.55853,    .19795,    .06999,
     +     .00611,    .15312,    .23050,
     +     .37520,    .21377,   2.62034,    .20221,    .07691,
     +     .01617,    .15852,    .23494,
     +     .38065,    .21542,   2.67011,    .20619,    .08359,
     +     .02459,    .16364,    .23906,
     +     .38523,    .21673,   2.70296,    .20942,    .08919,
     +     .03176,    .16787,    .24238 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38953,    .21791,   2.72558,    .21235,    .09443,
     +     .03848,    .17175,    .24536,
     +     .39286,    .21876,   2.73679,    .21450,    .09846,
     +     .04365,    .17469,    .24756,
     +     .39658,    .21966,   2.74172,    .21680,    .10295,
     +     .04945,    .17788,    .24986,
     +     .39964,    .22035,   2.73986,    .21857,    .10663,
     +     .05428,    .18043,    .25162,
     +     .40230,    .22091,   2.73444,    .22004,    .10982,
     +     .05853,    .18259,    .25306,
     +     .40538,    .22148,   2.72026,    .22157,    .11347,
     +     .06341,    .18499,    .25455,
     +     .40803,    .22191,   2.70130,    .22273,    .11657,
     +     .06761,    .18693,    .25564,
     +     .41032,    .22223,   2.68017,    .22363,    .11925,
     +     .07133,    .18853,    .25646 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .41246,    .22248,   2.65621,    .22437,    .12173,
     +     .07484,    .18996,    .25710,
     +     .41430,    .22262,   2.62830,    .22483,    .12384,
     +     .07787,    .19107,    .25745,
     +     .41595,    .22270,   2.60069,    .22516,    .12572,
     +     .08064,    .19201,    .25767,
     +     .41736,    .22272,   2.57254,    .22532,    .12730,
     +     .08303,    .19273,    .25773,
     +     .41865,    .22268,   2.54266,    .22536,    .12875,
     +     .08526,    .19331,    .25764,
     +     .41982,    .22261,   2.51242,    .22531,    .13006,
     +     .08734,    .19378,    .25746,
     +     .42081,    .22247,   2.48199,    .22512,    .13114,
     +     .08912,    .19408,    .25714,
     +     .42169,    .22232,   2.45297,    .22488,    .13209,
     +     .09074,    .19431,    .25679 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .42246,    .22213,   2.42259,    .22454,    .13293,
     +     .09222,    .19442,    .25632,
     +     .42315,    .22191,   2.39229,    .22414,    .13368,
     +     .09359,    .19446,    .25579,
     +     .42374,    .22168,   2.36299,    .22370,    .13432,
     +     .09482,    .19442,    .25521,
     +     .42422,    .22141,   2.33454,    .22320,    .13482,
     +     .09587,    .19430,    .25458,
     +     .42470,    .22115,   2.30632,    .22270,    .13533,
     +     .09693,    .19418,    .25395 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .37845,    .22889,    .85602,    .12355,    .00000,
     +     .00000,    .07605,    .16259,
     +     .38755,    .23182,   1.06886,    .12737,    .00000,
     +     .00000,    .08134,    .16668,
     +     .39947,    .23547,   1.33337,    .13274,    .00078,
     +     .00000,    .08870,    .17232,
     +     .40701,    .23764,   1.48166,    .13638,    .00862,
     +     .00000,    .09366,    .17606,
     +     .41424,    .23959,   1.61462,    .13993,    .01582,
     +     .00000,    .09854,    .17966,
     +     .41989,    .24102,   1.71088,    .14273,    .02120,
     +     .00000,    .10242,    .18246,
     +     .42489,    .24221,   1.79010,    .14520,    .02611,
     +     .00000,    .10587,    .18490,
     +     .42979,    .24330,   1.86186,    .14762,    .03106,
     +     .00000,    .10930,    .18725 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .43375,    .24411,   1.91527,    .14957,    .03516,
     +     .00000,    .11208,    .18911,
     +     .43726,    .24478,   1.95805,    .15128,    .03883,
     +     .00000,    .11456,    .19072,
     +     .43984,    .24522,   1.98595,    .15252,    .04155,
     +     .00000,    .11639,    .19186,
     +     .44488,    .24597,   2.03093,    .15490,    .04705,
     +     .00003,    .11999,    .19400,
     +     .44869,    .24640,   2.05058,    .15666,    .05138,
     +     .00425,    .12273,    .19554,
     +     .45244,    .24667,   2.05660,    .15831,    .05577,
     +     .01114,    .12542,    .19691,
     +     .45583,    .24675,   2.05328,    .15967,    .05988,
     +     .01676,    .12782,    .19793,
     +     .45851,    .24665,   2.04259,    .16060,    .06322,
     +     .02144,    .12966,    .19855 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .46085,    .24642,   2.02562,    .16129,    .06625,
     +     .02574,    .13121,    .19890,
     +     .46251,    .24611,   2.00732,    .16168,    .06851,
     +     .02898,    .13229,    .19899,
     +     .46421,    .24563,   1.98046,    .16192,    .07093,
     +     .03254,    .13333,    .19885,
     +     .46546,    .24510,   1.95370,    .16195,    .07286,
     +     .03545,    .13405,    .19854,
     +     .46644,    .24456,   1.92765,    .16188,    .07449,
     +     .03797,    .13459,    .19815,
     +     .46736,    .24378,   1.89126,    .16160,    .07627,
     +     .04079,    .13504,    .19743,
     +     .46798,    .24292,   1.85476,    .16114,    .07770,
     +     .04317,    .13526,    .19657,
     +     .46837,    .24206,   1.81960,    .16060,    .07888,
     +     .04522,    .13533,    .19566 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46860,    .24114,   1.78380,    .15997,    .07993,
     +     .04712,    .13528,    .19465,
     +     .46859,    .24015,   1.74709,    .15919,    .08075,
     +     .04871,    .13506,    .19350,
     +     .46847,    .23918,   1.71251,    .15840,    .08144,
     +     .05014,    .13479,    .19236,
     +     .46822,    .23823,   1.67949,    .15759,    .08197,
     +     .05134,    .13444,    .19119,
     +     .46783,    .23723,   1.64613,    .15670,    .08241,
     +     .05244,    .13401,    .18994,
     +     .46736,    .23622,   1.61352,    .15579,    .08278,
     +     .05343,    .13353,    .18867,
     +     .46678,    .23520,   1.58224,    .15484,    .08302,
     +     .05425,    .13299,    .18740,
     +     .46619,    .23423,   1.55307,    .15393,    .08322,
     +     .05498,    .13245,    .18617 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46549,    .23322,   1.52358,    .15295,    .08333,
     +     .05562,    .13184,    .18487,
     +     .46474,    .23220,   1.49479,    .15196,    .08340,
     +     .05620,    .13121,    .18357,
     +     .46395,    .23121,   1.46758,    .15099,    .08343,
     +     .05669,    .13057,    .18230,
     +     .46312,    .23024,   1.44181,    .15003,    .08339,
     +     .05710,    .12992,    .18106,
     +     .46229,    .22927,   1.41641,    .14907,    .08336,
     +     .05751,    .12927,    .17982 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45832,    .26587,   1.05054,    .10750,    .00000,
     +     .00000,    .06950,    .15448,
     +     .46588,    .26730,   1.20692,    .11028,    .00000,
     +     .00000,    .07364,    .15695,
     +     .47543,    .26879,   1.38885,    .11394,    .00066,
     +     .00000,    .07913,    .16007,
     +     .48118,    .26945,   1.48150,    .11627,    .00707,
     +     .00000,    .08267,    .16196,
     +     .48643,    .26986,   1.55824,    .11843,    .01283,
     +     .00000,    .08601,    .16360,
     +     .49038,    .26997,   1.60884,    .12000,    .01702,
     +     .00000,    .08855,    .16473,
     +     .49371,    .26992,   1.64645,    .12131,    .02077,
     +     .00000,    .09074,    .16560,
     +     .49681,    .26971,   1.67647,    .12251,    .02447,
     +     .00000,    .09282,    .16631 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49919,    .26942,   1.69558,    .12340,    .02749,
     +     .00000,    .09445,    .16677,
     +     .50119,    .26903,   1.70747,    .12412,    .03014,
     +     .00000,    .09584,    .16706,
     +     .50256,    .26864,   1.71256,    .12459,    .03208,
     +     .00000,    .09683,    .16718,
     +     .50501,    .26768,   1.71312,    .12538,    .03592,
     +     .00003,    .09868,    .16722,
     +     .50660,    .26669,   1.70031,    .12584,    .03886,
     +     .00309,    .09997,    .16704,
     +     .50787,    .26541,   1.67552,    .12610,    .04178,
     +     .00804,    .10113,    .16658,
     +     .50869,    .26391,   1.64448,    .12610,    .04442,
     +     .01200,    .10203,    .16582,
     +     .50903,    .26244,   1.61242,    .12590,    .04650,
     +     .01523,    .10258,    .16493 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50903,    .26085,   1.57712,    .12553,    .04833,
     +     .01816,    .10292,    .16384,
     +     .50877,    .25945,   1.54599,    .12508,    .04966,
     +     .02032,    .10305,    .16283,
     +     .50815,    .25764,   1.50638,    .12438,    .05103,
     +     .02266,    .10302,    .16144,
     +     .50737,    .25599,   1.47047,    .12365,    .05207,
     +     .02453,    .10286,    .16011,
     +     .50651,    .25446,   1.43744,    .12294,    .05292,
     +     .02613,    .10265,    .15882,
     +     .50512,    .25241,   1.39459,    .12190,    .05380,
     +     .02789,    .10222,    .15707,
     +     .50358,    .25041,   1.35405,    .12080,    .05445,
     +     .02934,    .10167,    .15533,
     +     .50199,    .24851,   1.31645,    .11972,    .05496,
     +     .03056,    .10108,    .15365 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .50026,    .24659,   1.27939,    .11860,    .05537,
     +     .03168,    .10044,    .15193,
     +     .49834,    .24463,   1.24297,    .11741,    .05563,
     +     .03258,    .09969,    .15016,
     +     .49644,    .24278,   1.20935,    .11627,    .05582,
     +     .03338,    .09896,    .14847,
     +     .49454,    .24100,   1.17805,    .11515,    .05593,
     +     .03403,    .09821,    .14685,
     +     .49252,    .23919,   1.14711,    .11399,    .05597,
     +     .03461,    .09742,    .14518,
     +     .49047,    .23740,   1.11736,    .11284,    .05597,
     +     .03511,    .09662,    .14354,
     +     .48840,    .23566,   1.08943,    .11171,    .05590,
     +     .03552,    .09581,    .14195,
     +     .48642,    .23402,   1.06368,    .11064,    .05582,
     +     .03587,    .09504,    .14046 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .48432,    .23235,   1.03809,    .10953,    .05569,
     +     .03616,    .09423,    .13892,
     +     .48222,    .23070,   1.01340,    .10844,    .05553,
     +     .03641,    .09341,    .13739,
     +     .48015,    .22911,    .99035,    .10738,    .05535,
     +     .03661,    .09262,    .13594,
     +     .47812,    .22760,    .96881,    .10637,    .05515,
     +     .03676,    .09184,    .13454,
     +     .47609,    .22608,    .94768,    .10536,    .05495,
     +     .03691,    .09107,    .13315 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52744,    .29364,   1.19146,    .09310,    .00000,
     +     .00000,    .06284,    .14444,
     +     .53271,    .29339,   1.29424,    .09503,    .00000,
     +     .00000,    .06596,    .14547,
     +     .53886,    .29254,   1.40292,    .09739,    .00056,
     +     .00000,    .06989,    .14649,
     +     .54218,    .29160,   1.44905,    .09878,    .00577,
     +     .00000,    .07231,    .14692,
     +     .54492,    .29037,   1.48102,    .09996,    .01036,
     +     .00000,    .07448,    .14707,
     +     .54668,    .28914,   1.49672,    .10071,    .01364,
     +     .00000,    .07606,    .14697,
     +     .54794,    .28782,   1.50369,    .10127,    .01652,
     +     .00000,    .07735,    .14670,
     +     .54887,    .28631,   1.50406,    .10169,    .01932,
     +     .00000,    .07850,    .14626 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54939,    .28492,   1.49963,    .10194,    .02156,
     +     .00000,    .07935,    .14576,
     +     .54961,    .28350,   1.49103,    .10205,    .02351,
     +     .00000,    .08004,    .14517,
     +     .54958,    .28232,   1.48141,    .10206,    .02491,
     +     .00000,    .08048,    .14463,
     +     .54909,    .27971,   1.45441,    .10192,    .02763,
     +     .00002,    .08122,    .14335,
     +     .54821,    .27737,   1.42268,    .10165,    .02968,
     +     .00229,    .08164,    .14209,
     +     .54676,    .27465,   1.38118,    .10117,    .03164,
     +     .00593,    .08188,    .14055,
     +     .54482,    .27171,   1.33617,    .10048,    .03338,
     +     .00879,    .08190,    .13877,
     +     .54272,    .26898,   1.29420,    .09970,    .03471,
     +     .01109,    .08175,    .13703 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .54030,    .26616,   1.25128,    .09880,    .03585,
     +     .01313,    .08144,    .13519,
     +     .53805,    .26378,   1.21547,    .09799,    .03663,
     +     .01463,    .08107,    .13358,
     +     .53509,    .26084,   1.17206,    .09689,    .03741,
     +     .01622,    .08052,    .13157,
     +     .53229,    .25820,   1.13415,    .09586,    .03798,
     +     .01747,    .07995,    .12975,
     +     .52962,    .25579,   1.10017,    .09488,    .03842,
     +     .01853,    .07937,    .12807,
     +     .52597,    .25268,   1.05753,    .09356,    .03883,
     +     .01968,    .07854,    .12588,
     +     .52235,    .24972,   1.01835,    .09227,    .03909,
     +     .02059,    .07768,    .12378,
     +     .51885,    .24695,    .98278,    .09104,    .03927,
     +     .02136,    .07684,    .12180 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51527,    .24419,    .94834,    .08979,    .03938,
     +     .02205,    .07596,    .11983,
     +     .51159,    .24144,    .91529,    .08851,    .03939,
     +     .02258,    .07505,    .11786,
     +     .50806,    .23886,    .88518,    .08730,    .03936,
     +     .02305,    .07417,    .11602,
     +     .50463,    .23644,    .85758,    .08616,    .03929,
     +     .02341,    .07331,    .11428,
     +     .50111,    .23399,    .83065,    .08499,    .03918,
     +     .02373,    .07243,    .11253,
     +     .49764,    .23159,    .80504,    .08385,    .03904,
     +     .02400,    .07156,    .11082,
     +     .49424,    .22929,    .78132,    .08274,    .03886,
     +     .02420,    .07072,    .10919,
     +     .49102,    .22714,    .75962,    .08170,    .03868,
     +     .02437,    .06992,    .10766 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48770,    .22496,    .73828,    .08065,    .03847,
     +     .02449,    .06909,    .10613,
     +     .48441,    .22283,    .71787,    .07961,    .03825,
     +     .02460,    .06827,    .10463,
     +     .48124,    .22080,    .69896,    .07863,    .03802,
     +     .02467,    .06748,    .10320,
     +     .47817,    .21887,    .68144,    .07770,    .03779,
     +     .02471,    .06673,    .10185,
     +     .47510,    .21695,    .66432,    .07677,    .03756,
     +     .02475,    .06599,    .10050 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59950,    .31768,   1.27670,    .07751,    .00000,
     +     .00000,    .05460,    .12978,
     +     .60118,    .31533,   1.32166,    .07861,    .00000,
     +     .00000,    .05662,    .12934,
     +     .60223,    .31155,   1.35603,    .07979,    .00045,
     +     .00000,    .05902,    .12835,
     +     .60204,    .30861,   1.35776,    .08034,    .00440,
     +     .00000,    .06038,    .12746,
     +     .60114,    .30542,   1.34890,    .08069,    .00784,
     +     .00000,    .06150,    .12629,
     +     .59987,    .30255,   1.33419,    .08079,    .01024,
     +     .00000,    .06224,    .12515,
     +     .59829,    .29973,   1.31557,    .08074,    .01231,
     +     .00000,    .06276,    .12396,
     +     .59626,    .29671,   1.29217,    .08058,    .01429,
     +     .00000,    .06316,    .12261 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .59426,    .29406,   1.26960,    .08035,    .01585,
     +     .00000,    .06339,    .12138,
     +     .59211,    .29146,   1.24580,    .08004,    .01719,
     +     .00000,    .06352,    .12013,
     +     .59023,    .28937,   1.22573,    .07975,    .01813,
     +     .00000,    .06355,    .11910,
     +     .58592,    .28492,   1.18030,    .07902,    .01993,
     +     .00002,    .06347,    .11685,
     +     .58188,    .28108,   1.13724,    .07828,    .02124,
     +     .00160,    .06327,    .11490,
     +     .57704,    .27675,   1.08713,    .07733,    .02248,
     +     .00412,    .06289,    .11267,
     +     .57168,    .27224,   1.03611,    .07625,    .02353,
     +     .00606,    .06235,    .11027,
     +     .56656,    .26818,    .99097,    .07520,    .02430,
     +     .00759,    .06176,    .10806 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .56121,    .26407,    .94672,    .07407,    .02493,
     +     .00894,    .06106,    .10583,
     +     .55664,    .26065,    .91107,    .07308,    .02534,
     +     .00991,    .06043,    .10396,
     +     .55092,    .25652,    .86919,    .07183,    .02572,
     +     .01092,    .05960,    .10168,
     +     .54574,    .25290,    .83358,    .07072,    .02597,
     +     .01171,    .05883,    .09966,
     +     .54094,    .24963,    .80227,    .06969,    .02615,
     +     .01237,    .05810,    .09783,
     +     .53470,    .24547,    .76394,    .06835,    .02628,
     +     .01306,    .05713,    .09550,
     +     .52874,    .24157,    .72951,    .06707,    .02631,
     +     .01360,    .05616,    .09335,
     +     .52313,    .23796,    .69878,    .06586,    .02630,
     +     .01404,    .05526,    .09136 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51751,    .23438,    .66951,    .06466,    .02625,
     +     .01443,    .05436,    .08939,
     +     .51186,    .23090,    .64192,    .06347,    .02614,
     +     .01472,    .05343,    .08748,
     +     .50655,    .22765,    .61705,    .06236,    .02602,
     +     .01496,    .05256,    .08570,
     +     .50151,    .22460,    .59455,    .06131,    .02587,
     +     .01515,    .05174,    .08405,
     +     .49641,    .22157,    .57285,    .06027,    .02570,
     +     .01530,    .05090,    .08240,
     +     .49141,    .21863,    .55240,    .05926,    .02552,
     +     .01542,    .05009,    .08081,
     +     .48661,    .21584,    .53367,    .05828,    .02532,
     +     .01550,    .04931,    .07932,
     +     .48211,    .21323,    .51666,    .05737,    .02513,
     +     .01556,    .04858,    .07793 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47752,    .21061,    .50010,    .05646,    .02492,
     +     .01560,    .04785,    .07654,
     +     .47302,    .20805,    .48437,    .05558,    .02470,
     +     .01562,    .04712,    .07519,
     +     .46873,    .20563,    .46989,    .05474,    .02449,
     +     .01563,    .04644,    .07392,
     +     .46464,    .20334,    .45659,    .05394,    .02427,
     +     .01561,    .04579,    .07272,
     +     .46057,    .20107,    .44362,    .05316,    .02406,
     +     .01560,    .04515,    .07154 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .65631,    .33195,   1.26875,    .06456,    .00000,
     +     .00000,    .04676,    .11381,
     +     .65402,    .32752,   1.26975,    .06501,    .00000,
     +     .00000,    .04793,    .11236,
     +     .64951,    .32097,   1.25112,    .06531,    .00035,
     +     .00000,    .04919,    .11003,
     +     .64554,    .31619,   1.22332,    .06532,    .00332,
     +     .00000,    .04983,    .10826,
     +     .64083,    .31119,   1.18889,    .06515,    .00587,
     +     .00000,    .05026,    .10631,
     +     .63640,    .30685,   1.15618,    .06484,    .00761,
     +     .00000,    .05044,    .10460,
     +     .63187,    .30272,   1.12323,    .06447,    .00910,
     +     .00000,    .05050,    .10289,
     +     .62685,    .29835,   1.08735,    .06398,    .01050,
     +     .00000,    .05045,    .10106 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .62235,    .29458,   1.05588,    .06350,    .01159,
     +     .00000,    .05034,    .09947,
     +     .61783,    .29097,   1.02521,    .06300,    .01251,
     +     .00000,    .05015,    .09790,
     +     .61415,    .28810,   1.00078,    .06255,    .01315,
     +     .00000,    .04995,    .09666,
     +     .60614,    .28207,    .94874,    .06153,    .01435,
     +     .00002,    .04945,    .09405,
     +     .59906,    .27697,    .90305,    .06061,    .01521,
     +     .00113,    .04894,    .09182,
     +     .59099,    .27136,    .85254,    .05953,    .01599,
     +     .00289,    .04829,    .08935,
     +     .58244,    .26558,    .80279,    .05833,    .01663,
     +     .00422,    .04752,    .08680,
     +     .57457,    .26043,    .76004,    .05721,    .01709,
     +     .00527,    .04676,    .08450 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56656,    .25531,    .71917,    .05606,    .01744,
     +     .00617,    .04595,    .08221,
     +     .55985,    .25112,    .68690,    .05509,    .01765,
     +     .00681,    .04525,    .08034,
     +     .55167,    .24609,    .64974,    .05389,    .01783,
     +     .00747,    .04437,    .07811,
     +     .54442,    .24171,    .61868,    .05282,    .01793,
     +     .00798,    .04357,    .07616,
     +     .53780,    .23778,    .59171,    .05186,    .01798,
     +     .00840,    .04284,    .07442,
     +     .52936,    .23284,    .55923,    .05062,    .01799,
     +     .00883,    .04190,    .07224,
     +     .52139,    .22827,    .53050,    .04946,    .01794,
     +     .00916,    .04099,    .07025,
     +     .51399,    .22406,    .50514,    .04838,    .01786,
     +     .00942,    .04015,    .06842 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50667,    .21994,    .48120,    .04733,    .01776,
     +     .00964,    .03931,    .06664,
     +     .49943,    .21594,    .45897,    .04628,    .01763,
     +     .00981,    .03848,    .06493,
     +     .49268,    .21223,    .43909,    .04531,    .01749,
     +     .00994,    .03772,    .06335,
     +     .48635,    .20878,    .42125,    .04440,    .01733,
     +     .01003,    .03700,    .06188,
     +     .47999,    .20537,    .40418,    .04351,    .01716,
     +     .01010,    .03628,    .06045,
     +     .47379,    .20207,    .38821,    .04265,    .01699,
     +     .01016,    .03558,    .05907,
     +     .46791,    .19896,    .37370,    .04184,    .01682,
     +     .01018,    .03491,    .05779,
     +     .46242,    .19607,    .36059,    .04107,    .01665,
     +     .01020,    .03430,    .05660 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45688,    .19318,    .34791,    .04032,    .01647,
     +     .01020,    .03368,    .05542,
     +     .45146,    .19037,    .33592,    .03959,    .01629,
     +     .01019,    .03308,    .05428,
     +     .44631,    .18773,    .32495,    .03891,    .01611,
     +     .01017,    .03251,    .05321,
     +     .44143,    .18525,    .31493,    .03827,    .01593,
     +     .01014,    .03198,    .05220,
     +     .43658,    .18280,    .30518,    .03763,    .01575,
     +     .01011,    .03146,    .05121 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .69873,    .33812,   1.19048,    .05397,    .00000,
     +     .00000,    .03955,    .09758,
     +     .69225,    .33188,   1.16209,    .05398,    .00000,
     +     .00000,    .04009,    .09544,
     +     .68203,    .32284,   1.11045,    .05373,    .00028,
     +     .00000,    .04053,    .09232,
     +     .67424,    .31648,   1.06602,    .05337,    .00247,
     +     .00000,    .04067,    .09011,
     +     .66575,    .30990,   1.01834,    .05288,    .00435,
     +     .00000,    .04064,    .08779,
     +     .65822,    .30431,    .97720,    .05236,    .00562,
     +     .00000,    .04050,    .08579,
     +     .65087,    .29904,    .93828,    .05180,    .00669,
     +     .00000,    .04028,    .08388,
     +     .64297,    .29356,    .89790,    .05116,    .00768,
     +     .00000,    .03997,    .08189 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .63607,    .28888,    .86381,    .05056,    .00845,
     +     .00000,    .03966,    .08018,
     +     .62934,    .28443,    .83169,    .04996,    .00909,
     +     .00000,    .03930,    .07854,
     +     .62396,    .28093,    .80679,    .04946,    .00953,
     +     .00000,    .03900,    .07726,
     +     .61251,    .27366,    .75535,    .04836,    .01034,
     +     .00001,    .03833,    .07459,
     +     .60269,    .26756,    .71201,    .04739,    .01091,
     +     .00080,    .03769,    .07237,
     +     .59173,    .26092,    .66552,    .04629,    .01142,
     +     .00204,    .03695,    .06995,
     +     .58033,    .25420,    .62069,    .04513,    .01182,
     +     .00297,    .03612,    .06750,
     +     .57005,    .24824,    .58290,    .04406,    .01209,
     +     .00369,    .03535,    .06533 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55974,    .24236,    .54734,    .04297,    .01229,
     +     .00431,    .03454,    .06321,
     +     .55123,    .23760,    .51967,    .04207,    .01240,
     +     .00474,    .03387,    .06149,
     +     .54097,    .23193,    .48822,    .04098,    .01247,
     +     .00518,    .03305,    .05945,
     +     .53199,    .22704,    .46224,    .04002,    .01250,
     +     .00552,    .03231,    .05771,
     +     .52386,    .22267,    .43988,    .03915,    .01250,
     +     .00579,    .03164,    .05617,
     +     .51359,    .21721,    .41327,    .03806,    .01246,
     +     .00606,    .03080,    .05425,
     +     .50405,    .21217,    .38997,    .03705,    .01238,
     +     .00627,    .03000,    .05252,
     +     .49524,    .20759,    .36957,    .03612,    .01229,
     +     .00643,    .02927,    .05093 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48654,    .20315,    .35048,    .03523,    .01219,
     +     .00656,    .02855,    .04939,
     +     .47808,    .19884,    .33288,    .03435,    .01206,
     +     .00665,    .02785,    .04793,
     +     .47022,    .19487,    .31725,    .03353,    .01193,
     +     .00673,    .02720,    .04659,
     +     .46288,    .19120,    .30332,    .03278,    .01179,
     +     .00677,    .02661,    .04535,
     +     .45560,    .18757,    .29007,    .03203,    .01165,
     +     .00681,    .02601,    .04415,
     +     .44856,    .18407,    .27774,    .03130,    .01151,
     +     .00683,    .02542,    .04301,
     +     .44188,    .18080,    .26657,    .03063,    .01136,
     +     .00683,    .02488,    .04194,
     +     .43565,    .17778,    .25651,    .03002,    .01122,
     +     .00683,    .02439,    .04096 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42942,    .17475,    .24684,    .02940,    .01108,
     +     .00681,    .02389,    .03999,
     +     .42337,    .17182,    .23774,    .02881,    .01093,
     +     .00679,    .02340,    .03907,
     +     .41766,    .16908,    .22946,    .02825,    .01079,
     +     .00677,    .02294,    .03820,
     +     .41226,    .16652,    .22192,    .02772,    .01066,
     +     .00674,    .02252,    .03740,
     +     .40692,    .16399,    .21461,    .02720,    .01052,
     +     .00671,    .02210,    .03660 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .72763,    .33767,   1.06848,    .04540,    .00000,
     +     .00000,    .03305,    .08185,
     +     .71706,    .32979,   1.02358,    .04507,    .00000,
     +     .00000,    .03317,    .07942,
     +     .70135,    .31857,    .95540,    .04438,    .00021,
     +     .00000,    .03311,    .07602,
     +     .68991,    .31086,    .90421,    .04382,    .00183,
     +     .00000,    .03292,    .07366,
     +     .67782,    .30299,    .85226,    .04315,    .00322,
     +     .00000,    .03265,    .07124,
     +     .66737,    .29638,    .80935,    .04252,    .00414,
     +     .00000,    .03233,    .06919,
     +     .65740,    .29020,    .76996,    .04186,    .00490,
     +     .00000,    .03197,    .06729,
     +     .64687,    .28380,    .73016,    .04114,    .00561,
     +     .00000,    .03155,    .06534 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .63780,    .27839,    .69728,    .04050,    .00616,
     +     .00000,    .03115,    .06368,
     +     .62909,    .27327,    .66688,    .03986,    .00660,
     +     .00000,    .03075,    .06212,
     +     .62219,    .26929,    .64372,    .03935,    .00691,
     +     .00000,    .03041,    .06090,
     +     .60771,    .26107,    .59676,    .03826,    .00746,
     +     .00001,    .02968,    .05839,
     +     .59548,    .25423,    .55817,    .03732,    .00785,
     +     .00057,    .02903,    .05634,
     +     .58201,    .24687,    .51758,    .03627,    .00818,
     +     .00145,    .02827,    .05415,
     +     .56820,    .23945,    .47903,    .03518,    .00844,
     +     .00211,    .02748,    .05194,
     +     .55591,    .23294,    .44697,    .03419,    .00860,
     +     .00261,    .02677,    .05000 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54370,    .22656,    .41717,    .03320,    .00871,
     +     .00304,    .02604,    .04814,
     +     .53370,    .22141,    .39418,    .03240,    .00876,
     +     .00333,    .02543,    .04664,
     +     .52178,    .21532,    .36831,    .03143,    .00878,
     +     .00363,    .02470,    .04489,
     +     .51141,    .21010,    .34711,    .03059,    .00878,
     +     .00385,    .02406,    .04339,
     +     .50209,    .20547,    .32897,    .02984,    .00876,
     +     .00403,    .02349,    .04207,
     +     .49043,    .19971,    .30753,    .02890,    .00870,
     +     .00421,    .02276,    .04046,
     +     .47966,    .19447,    .28894,    .02804,    .00862,
     +     .00434,    .02209,    .03898,
     +     .46979,    .18970,    .27278,    .02725,    .00854,
     +     .00444,    .02148,    .03765 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46013,    .18506,    .25771,    .02649,    .00844,
     +     .00452,    .02088,    .03638,
     +     .45078,    .18060,    .24396,    .02574,    .00833,
     +     .00457,    .02031,    .03518,
     +     .44214,    .17651,    .23176,    .02506,    .00822,
     +     .00461,    .01977,    .03408,
     +     .43412,    .17274,    .22092,    .02443,    .00811,
     +     .00464,    .01928,    .03309,
     +     .42619,    .16904,    .21067,    .02381,    .00800,
     +     .00465,    .01879,    .03212,
     +     .41853,    .16550,    .20118,    .02322,    .00788,
     +     .00465,    .01832,    .03120,
     +     .41133,    .16219,    .19264,    .02267,    .00777,
     +     .00464,    .01788,    .03034,
     +     .40466,    .15912,    .18497,    .02216,    .00766,
     +     .00463,    .01749,    .02956 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .39799,    .15608,    .17760,    .02166,    .00754,
     +     .00462,    .01709,    .02879,
     +     .39153,    .15315,    .17066,    .02118,    .00743,
     +     .00459,    .01670,    .02805,
     +     .38546,    .15040,    .16437,    .02073,    .00732,
     +     .00457,    .01634,    .02736,
     +     .37975,    .14784,    .15866,    .02031,    .00722,
     +     .00454,    .01601,    .02672,
     +     .37410,    .14531,    .15314,    .01991,    .00712,
     +     .00451,    .01568,    .02609 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .74414,    .33171,    .92674,    .03835,    .00000,
     +     .00000,    .02735,    .06731,
     +     .72968,    .32246,    .87529,    .03780,    .00000,
     +     .00000,    .02720,    .06484,
     +     .70875,    .30951,    .80252,    .03687,    .00017,
     +     .00000,    .02684,    .06143,
     +     .69394,    .30071,    .75129,    .03616,    .00136,
     +     .00000,    .02651,    .05916,
     +     .67862,    .29177,    .70086,    .03538,    .00238,
     +     .00000,    .02610,    .05685,
     +     .66554,    .28438,    .66021,    .03470,    .00305,
     +     .00000,    .02569,    .05491,
     +     .65322,    .27748,    .62361,    .03401,    .00360,
     +     .00000,    .02527,    .05316,
     +     .64037,    .27041,    .58723,    .03327,    .00411,
     +     .00000,    .02480,    .05136 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62941,    .26446,    .55758,    .03263,    .00450,
     +     .00000,    .02438,    .04985,
     +     .61898,    .25885,    .53049,    .03200,    .00481,
     +     .00000,    .02397,    .04845,
     +     .61079,    .25452,    .51007,    .03150,    .00503,
     +     .00000,    .02364,    .04736,
     +     .59372,    .24562,    .46917,    .03045,    .00541,
     +     .00001,    .02293,    .04514,
     +     .57946,    .23830,    .43617,    .02956,    .00567,
     +     .00041,    .02232,    .04334,
     +     .56395,    .23045,    .40194,    .02859,    .00589,
     +     .00104,    .02164,    .04142,
     +     .54818,    .22260,    .36973,    .02760,    .00606,
     +     .00151,    .02093,    .03952,
     +     .53425,    .21576,    .34319,    .02671,    .00615,
     +     .00186,    .02029,    .03787 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52057,    .20908,    .31867,    .02584,    .00621,
     +     .00216,    .01965,    .03629,
     +     .50945,    .20373,    .29994,    .02513,    .00624,
     +     .00236,    .01913,    .03503,
     +     .49624,    .19745,    .27897,    .02428,    .00623,
     +     .00257,    .01850,    .03356,
     +     .48485,    .19208,    .26191,    .02355,    .00621,
     +     .00272,    .01796,    .03232,
     +     .47467,    .18732,    .24740,    .02291,    .00618,
     +     .00284,    .01747,    .03123,
     +     .46197,    .18147,    .23037,    .02212,    .00613,
     +     .00295,    .01687,    .02989,
     +     .45037,    .17611,    .21563,    .02138,    .00605,
     +     .00304,    .01632,    .02871,
     +     .43979,    .17127,    .20289,    .02071,    .00598,
     +     .00310,    .01581,    .02765 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .42946,    .16663,    .19108,    .02008,    .00590,
     +     .00315,    .01531,    .02664,
     +     .41957,    .16217,    .18031,    .01944,    .00581,
     +     .00318,    .01485,    .02566,
     +     .41044,    .15809,    .17081,    .01888,    .00572,
     +     .00320,    .01442,    .02478,
     +     .40198,    .15434,    .16244,    .01837,    .00563,
     +     .00320,    .01401,    .02399,
     +     .39366,    .15067,    .15453,    .01786,    .00554,
     +     .00321,    .01363,    .02322,
     +     .38569,    .14715,    .14720,    .01737,    .00545,
     +     .00320,    .01326,    .02249,
     +     .37820,    .14389,    .14064,    .01692,    .00536,
     +     .00319,    .01292,    .02182,
     +     .37126,    .14089,    .13476,    .01651,    .00527,
     +     .00318,    .01260,    .02120 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36437,    .13793,    .12914,    .01611,    .00519,
     +     .00316,    .01228,    .02060,
     +     .35771,    .13507,    .12388,    .01571,    .00510,
     +     .00314,    .01198,    .02003,
     +     .35148,    .13240,    .11911,    .01535,    .00502,
     +     .00312,    .01171,    .01950,
     +     .34565,    .12991,    .11479,    .01501,    .00494,
     +     .00310,    .01145,    .01899,
     +     .33990,    .12746,    .11061,    .01467,    .00486,
     +     .00307,    .01120,    .01850 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .74926,    .32135,    .78374,    .03251,    .00000,
     +     .00000,    .02244,    .05426,
     +     .73122,    .31100,    .73254,    .03181,    .00000,
     +     .00000,    .02211,    .05195,
     +     .70555,    .29673,    .66279,    .03078,    .00013,
     +     .00000,    .02159,    .04875,
     +     .68776,    .28709,    .61546,    .03001,    .00101,
     +     .00000,    .02117,    .04668,
     +     .66955,    .27740,    .56969,    .02918,    .00176,
     +     .00000,    .02070,    .04461,
     +     .65424,    .26940,    .53343,    .02847,    .00225,
     +     .00000,    .02027,    .04290,
     +     .63991,    .26201,    .50112,    .02778,    .00266,
     +     .00000,    .01985,    .04134,
     +     .62508,    .25449,    .46934,    .02707,    .00303,
     +     .00000,    .01939,    .03976 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .61251,    .24820,    .44369,    .02646,    .00331,
     +     .00000,    .01899,    .03843,
     +     .60064,    .24229,    .42042,    .02586,    .00353,
     +     .00000,    .01860,    .03722,
     +     .59138,    .23774,    .40301,    .02539,    .00368,
     +     .00000,    .01829,    .03629,
     +     .57225,    .22843,    .36843,    .02441,    .00395,
     +     .00001,    .01763,    .03441,
     +     .55641,    .22082,    .34084,    .02360,    .00413,
     +     .00030,    .01708,    .03288,
     +     .53929,    .21271,    .31247,    .02273,    .00428,
     +     .00075,    .01648,    .03126,
     +     .52206,    .20464,    .28598,    .02184,    .00438,
     +     .00109,    .01586,    .02968,
     +     .50695,    .19764,    .26429,    .02104,    .00444,
     +     .00134,    .01531,    .02834 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49216,    .19089,    .24439,    .02027,    .00447,
     +     .00155,    .01477,    .02705,
     +     .48025,    .18547,    .22924,    .01964,    .00448,
     +     .00169,    .01434,    .02600,
     +     .46616,    .17916,    .21241,    .01892,    .00446,
     +     .00183,    .01381,    .02480,
     +     .45408,    .17378,    .19875,    .01829,    .00444,
     +     .00193,    .01335,    .02382,
     +     .44336,    .16901,    .18716,    .01773,    .00441,
     +     .00201,    .01294,    .02297,
     +     .43009,    .16318,    .17366,    .01703,    .00435,
     +     .00209,    .01247,    .02192,
     +     .41794,    .15791,    .16203,    .01642,    .00429,
     +     .00214,    .01202,    .02095,
     +     .40693,    .15316,    .15200,    .01587,    .00423,
     +     .00218,    .01161,    .02009 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .39627,    .14858,    .14272,    .01534,    .00416,
     +     .00221,    .01122,    .01928,
     +     .38604,    .14424,    .13431,    .01482,    .00409,
     +     .00223,    .01084,    .01853,
     +     .37667,    .14027,    .12692,    .01435,    .00402,
     +     .00223,    .01050,    .01784,
     +     .36804,    .13663,    .12041,    .01393,    .00395,
     +     .00224,    .01019,    .01722,
     +     .35958,    .13307,    .11429,    .01351,    .00388,
     +     .00223,    .00988,    .01663,
     +     .35151,    .12968,    .10865,    .01310,    .00381,
     +     .00223,    .00959,    .01607,
     +     .34395,    .12653,    .10359,    .01273,    .00374,
     +     .00222,    .00932,    .01555,
     +     .33697,    .12365,    .09906,    .01239,    .00367,
     +     .00220,    .00908,    .01508 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33005,    .12081,    .09474,    .01206,    .00360,
     +     .00219,    .00883,    .01462,
     +     .32337,    .11809,    .09071,    .01176,    .00354,
     +     .00217,    .00860,    .01418,
     +     .31714,    .11556,    .08706,    .01147,    .00348,
     +     .00215,    .00838,    .01377,
     +     .31132,    .11319,    .08378,    .01119,    .00342,
     +     .00213,    .00817,    .01340,
     +     .30559,    .11087,    .08061,    .01092,    .00336,
     +     .00211,    .00798,    .01304 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .74381,    .30776,    .65173,    .02786,    .00000,
     +     .00000,    .01803,    .04275,
     +     .72265,    .29660,    .60462,    .02706,    .00000,
     +     .00000,    .01766,    .04069,
     +     .69300,    .28127,    .54187,    .02588,    .00010,
     +     .00000,    .01710,    .03794,
     +     .67267,    .27106,    .50020,    .02510,    .00076,
     +     .00000,    .01668,    .03612,
     +     .65207,    .26085,    .46036,    .02425,    .00132,
     +     .00000,    .01622,    .03435,
     +     .63490,    .25246,    .42906,    .02354,    .00168,
     +     .00000,    .01582,    .03289,
     +     .61893,    .24479,    .40140,    .02287,    .00198,
     +     .00000,    .01543,    .03157,
     +     .60255,    .23698,    .37437,    .02216,    .00225,
     +     .00000,    .01501,    .03026 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58877,    .23045,    .35265,    .02156,    .00245,
     +     .00000,    .01464,    .02918,
     +     .57579,    .22438,    .33307,    .02100,    .00261,
     +     .00000,    .01432,    .02815,
     +     .56571,    .21973,    .31848,    .02056,    .00272,
     +     .00000,    .01404,    .02739,
     +     .54502,    .21024,    .28966,    .01967,    .00291,
     +     .00001,    .01347,    .02582,
     +     .52799,    .20253,    .26685,    .01894,    .00303,
     +     .00022,    .01301,    .02455,
     +     .50972,    .19437,    .24356,    .01815,    .00313,
     +     .00055,    .01249,    .02325,
     +     .49147,    .18628,    .22192,    .01735,    .00319,
     +     .00079,    .01195,    .02200,
     +     .47557,    .17930,    .20430,    .01665,    .00323,
     +     .00097,    .01149,    .02092 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46010,    .17259,    .18822,    .01597,    .00324,
     +     .00112,    .01105,    .01987,
     +     .44769,    .16723,    .17603,    .01542,    .00324,
     +     .00122,    .01069,    .01906,
     +     .43311,    .16100,    .16250,    .01480,    .00322,
     +     .00131,    .01025,    .01813,
     +     .42067,    .15572,    .15157,    .01426,    .00319,
     +     .00138,    .00990,    .01735,
     +     .40965,    .15108,    .14234,    .01378,    .00316,
     +     .00144,    .00959,    .01666,
     +     .39605,    .14541,    .13160,    .01321,    .00311,
     +     .00149,    .00918,    .01582,
     +     .38373,    .14030,    .12241,    .01268,    .00306,
     +     .00152,    .00882,    .01509,
     +     .37260,    .13570,    .11450,    .01222,    .00301,
     +     .00155,    .00850,    .01443 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36184,    .13130,    .10721,    .01177,    .00295,
     +     .00156,    .00819,    .01380,
     +     .35154,    .12713,    .10063,    .01135,    .00289,
     +     .00157,    .00790,    .01323,
     +     .34215,    .12334,    .09485,    .01097,    .00284,
     +     .00157,    .00763,    .01270,
     +     .33358,    .11987,    .08978,    .01062,    .00278,
     +     .00157,    .00739,    .01222,
     +     .32517,    .11650,    .08502,    .01027,    .00273,
     +     .00157,    .00714,    .01177,
     +     .31711,    .11330,    .08064,    .00994,    .00267,
     +     .00156,    .00691,    .01135,
     +     .30964,    .11033,    .07673,    .00964,    .00262,
     +     .00155,    .00670,    .01097,
     +     .30278,    .10760,    .07325,    .00936,    .00257,
     +     .00154,    .00651,    .01063 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .29601,    .10492,    .06993,    .00909,    .00252,
     +     .00152,    .00632,    .01028,
     +     .28950,    .10236,    .06684,    .00882,    .00247,
     +     .00151,    .00614,    .00995,
     +     .28342,    .09999,    .06404,    .00858,    .00242,
     +     .00149,    .00597,    .00964,
     +     .27775,    .09778,    .06152,    .00836,    .00238,
     +     .00148,    .00582,    .00936,
     +     .27217,    .09561,    .05910,    .00814,    .00233,
     +     .00146,    .00567,    .00908 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .72977,    .29105,    .53682,    .02346,    .00000,
     +     .00000,    .01454,    .03321,
     +     .70590,    .27934,    .49549,    .02264,    .00000,
     +     .00000,    .01415,    .03148,
     +     .67277,    .26343,    .44102,    .02150,    .00008,
     +     .00000,    .01357,    .02914,
     +     .65033,    .25290,    .40539,    .02073,    .00057,
     +     .00000,    .01316,    .02761,
     +     .62780,    .24241,    .37142,    .01994,    .00099,
     +     .00000,    .01273,    .02611,
     +     .60914,    .23387,    .34492,    .01926,    .00126,
     +     .00000,    .01236,    .02491,
     +     .59190,    .22606,    .32158,    .01864,    .00148,
     +     .00000,    .01201,    .02382,
     +     .57429,    .21816,    .29884,    .01799,    .00167,
     +     .00000,    .01163,    .02274 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55956,    .21160,    .28065,    .01745,    .00182,
     +     .00000,    .01131,    .02186,
     +     .54578,    .20551,    .26433,    .01694,    .00193,
     +     .00000,    .01101,    .02104,
     +     .53511,    .20085,    .25219,    .01655,    .00201,
     +     .00000,    .01077,    .02041,
     +     .51333,    .19139,    .22831,    .01574,    .00214,
     +     .00001,    .01028,    .01916,
     +     .49555,    .18374,    .20951,    .01507,    .00222,
     +     .00016,    .00987,    .01818,
     +     .47657,    .17569,    .19042,    .01438,    .00229,
     +     .00040,    .00944,    .01713,
     +     .45770,    .16777,    .17276,    .01369,    .00233,
     +     .00057,    .00901,    .01611,
     +     .44135,    .16095,    .15844,    .01309,    .00234,
     +     .00070,    .00864,    .01525 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42557,    .15440,    .14541,    .01249,    .00235,
     +     .00081,    .00827,    .01444,
     +     .41295,    .14921,    .13557,    .01202,    .00234,
     +     .00087,    .00795,    .01384,
     +     .39818,    .14320,    .12468,    .01149,    .00232,
     +     .00094,    .00761,    .01311,
     +     .38562,    .13814,    .11594,    .01105,    .00229,
     +     .00099,    .00733,    .01248,
     +     .37455,    .13370,    .10858,    .01067,    .00227,
     +     .00103,    .00707,    .01193,
     +     .36098,    .12829,    .10005,    .01016,    .00223,
     +     .00106,    .00674,    .01133,
     +     .34869,    .12342,    .09275,    .00973,    .00218,
     +     .00108,    .00647,    .01076,
     +     .33764,    .11907,    .08650,    .00935,    .00214,
     +     .00110,    .00622,    .01026 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .32703,    .11491,    .08076,    .00897,    .00210,
     +     .00110,    .00597,    .00980,
     +     .31693,    .11098,    .07559,    .00861,    .00205,
     +     .00111,    .00573,    .00936,
     +     .30774,    .10740,    .07107,    .00830,    .00201,
     +     .00111,    .00552,    .00897,
     +     .29932,    .10416,    .06711,    .00801,    .00196,
     +     .00110,    .00534,    .00860,
     +     .29111,    .10101,    .06340,    .00774,    .00192,
     +     .00110,    .00515,    .00827,
     +     .28329,    .09804,    .06000,    .00749,    .00188,
     +     .00109,    .00496,    .00796,
     +     .27607,    .09528,    .05698,    .00724,    .00184,
     +     .00108,    .00480,    .00767,
     +     .26944,    .09276,    .05429,    .00701,    .00180,
     +     .00107,    .00466,    .00740 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .26290,    .09029,    .05173,    .00679,    .00176,
     +     .00106,    .00452,    .00715,
     +     .25662,    .08792,    .04936,    .00658,    .00172,
     +     .00105,    .00438,    .00691,
     +     .25078,    .08574,    .04721,    .00639,    .00169,
     +     .00104,    .00426,    .00668,
     +     .24535,    .08371,    .04528,    .00622,    .00165,
     +     .00102,    .00414,    .00647,
     +     .24003,    .08172,    .04343,    .00605,    .00162,
     +     .00101,    .00402,    .00627 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .70768,    .27250,    .44144,    .01974,    .00000,
     +     .00000,    .01153,    .02530,
     +     .68161,    .26051,    .40596,    .01894,    .00000,
     +     .00000,    .01117,    .02384,
     +     .64582,    .24428,    .35952,    .01782,    .00006,
     +     .00000,    .01064,    .02195,
     +     .62177,    .23365,    .32923,    .01710,    .00043,
     +     .00000,    .01026,    .02070,
     +     .59778,    .22311,    .30052,    .01634,    .00074,
     +     .00000,    .00988,    .01951,
     +     .57809,    .21453,    .27816,    .01570,    .00094,
     +     .00000,    .00955,    .01857,
     +     .55997,    .20675,    .25852,    .01513,    .00111,
     +     .00000,    .00924,    .01770,
     +     .54155,    .19891,    .23944,    .01455,    .00125,
     +     .00000,    .00893,    .01682 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52620,    .19243,    .22420,    .01407,    .00135,
     +     .00000,    .00866,    .01611,
     +     .51191,    .18642,    .21057,    .01361,    .00144,
     +     .00000,    .00840,    .01547,
     +     .50091,    .18184,    .20043,    .01325,    .00149,
     +     .00000,    .00819,    .01499,
     +     .47851,    .17260,    .18058,    .01253,    .00158,
     +     .00001,    .00778,    .01400,
     +     .46031,    .16517,    .16507,    .01197,    .00164,
     +     .00012,    .00746,    .01321,
     +     .44104,    .15734,    .14938,    .01137,    .00168,
     +     .00029,    .00710,    .01241,
     +     .42196,    .14968,    .13491,    .01076,    .00170,
     +     .00042,    .00674,    .01165,
     +     .40552,    .14314,    .12322,    .01023,    .00171,
     +     .00051,    .00642,    .01100 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .38972,    .13689,    .11264,    .00972,    .00170,
     +     .00058,    .00613,    .01039,
     +     .37712,    .13197,    .10469,    .00934,    .00169,
     +     .00063,    .00589,    .00989,
     +     .36242,    .12627,    .09592,    .00892,    .00167,
     +     .00068,    .00562,    .00932,
     +     .35001,    .12147,    .08889,    .00855,    .00165,
     +     .00071,    .00538,    .00886,
     +     .33911,    .11727,    .08299,    .00822,    .00163,
     +     .00073,    .00517,    .00847,
     +     .32583,    .11218,    .07617,    .00780,    .00159,
     +     .00075,    .00493,    .00799,
     +     .31385,    .10762,    .07037,    .00744,    .00156,
     +     .00077,    .00471,    .00758,
     +     .30311,    .10355,    .06543,    .00712,    .00152,
     +     .00078,    .00451,    .00721 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .29282,    .09967,    .06091,    .00680,    .00149,
     +     .00078,    .00432,    .00686,
     +     .28305,    .09604,    .05685,    .00651,    .00145,
     +     .00078,    .00413,    .00654,
     +     .27417,    .09274,    .05331,    .00625,    .00142,
     +     .00078,    .00397,    .00626,
     +     .26607,    .08975,    .05021,    .00604,    .00138,
     +     .00077,    .00382,    .00599,
     +     .25822,    .08685,    .04733,    .00582,    .00135,
     +     .00077,    .00368,    .00574,
     +     .25078,    .08410,    .04469,    .00560,    .00132,
     +     .00076,    .00355,    .00552,
     +     .24389,    .08159,    .04235,    .00541,    .00129,
     +     .00075,    .00342,    .00530,
     +     .23757,    .07929,    .04028,    .00523,    .00126,
     +     .00075,    .00331,    .00509 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .23136,    .07704,    .03831,    .00506,    .00123,
     +     .00074,    .00321,    .00491,
     +     .22542,    .07488,    .03648,    .00490,    .00120,
     +     .00073,    .00310,    .00474,
     +     .21990,    .07289,    .03483,    .00475,    .00117,
     +     .00072,    .00301,    .00458,
     +     .21480,    .07106,    .03335,    .00461,    .00115,
     +     .00071,    .00292,    .00442,
     +     .20980,    .06926,    .03193,    .00448,    .00112,
     +     .00070,    .00283,    .00428 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .67890,    .25252,    .36461,    .01641,    .00000,
     +     .00000,    .00909,    .01892,
     +     .65121,    .24042,    .33429,    .01562,    .00000,
     +     .00000,    .00875,    .01780,
     +     .61340,    .22427,    .29457,    .01459,    .00005,
     +     .00000,    .00827,    .01628,
     +     .58828,    .21368,    .26877,    .01392,    .00032,
     +     .00000,    .00796,    .01529,
     +     .56333,    .20329,    .24446,    .01323,    .00056,
     +     .00000,    .00762,    .01436,
     +     .54295,    .19487,    .22546,    .01267,    .00071,
     +     .00000,    .00734,    .01360,
     +     .52431,    .18723,    .20880,    .01216,    .00083,
     +     .00000,    .00707,    .01294,
     +     .50545,    .17959,    .19266,    .01164,    .00093,
     +     .00000,    .00679,    .01227 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48979,    .17330,    .17981,    .01121,    .00100,
     +     .00000,    .00657,    .01172,
     +     .47529,    .16748,    .16836,    .01080,    .00106,
     +     .00000,    .00636,    .01121,
     +     .46414,    .16307,    .15986,    .01050,    .00110,
     +     .00000,    .00620,    .01083,
     +     .44155,    .15418,    .14326,    .00990,    .00116,
     +     .00000,    .00586,    .01008,
     +     .42332,    .14704,    .13038,    .00940,    .00120,
     +     .00009,    .00558,    .00949,
     +     .40409,    .13958,    .11743,    .00888,    .00122,
     +     .00021,    .00528,    .00889,
     +     .38518,    .13232,    .10554,    .00836,    .00124,
     +     .00030,    .00499,    .00831,
     +     .36896,    .12612,    .09596,    .00791,    .00124,
     +     .00037,    .00474,    .00781 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35339,    .12023,    .08734,    .00751,    .00123,
     +     .00042,    .00452,    .00733,
     +     .34106,    .11561,    .08088,    .00720,    .00122,
     +     .00045,    .00433,    .00697,
     +     .32681,    .11028,    .07378,    .00681,    .00120,
     +     .00048,    .00411,    .00657,
     +     .31475,    .10581,    .06813,    .00649,    .00118,
     +     .00051,    .00392,    .00623,
     +     .30415,    .10192,    .06340,    .00624,    .00116,
     +     .00052,    .00375,    .00593,
     +     .29135,    .09718,    .05797,    .00589,    .00113,
     +     .00053,    .00357,    .00560,
     +     .27983,    .09298,    .05336,    .00560,    .00111,
     +     .00054,    .00339,    .00529,
     +     .26952,    .08924,    .04946,    .00535,    .00108,
     +     .00055,    .00324,    .00501 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .25967,    .08570,    .04590,    .00511,    .00105,
     +     .00055,    .00310,    .00475,
     +     .25037,    .08236,    .04271,    .00489,    .00102,
     +     .00055,    .00296,    .00452,
     +     .24195,    .07935,    .03994,    .00469,    .00100,
     +     .00054,    .00284,    .00431,
     +     .23431,    .07663,    .03752,    .00450,    .00097,
     +     .00054,    .00272,    .00411,
     +     .22691,    .07401,    .03528,    .00433,    .00094,
     +     .00054,    .00261,    .00393,
     +     .21991,    .07152,    .03324,    .00416,    .00092,
     +     .00053,    .00251,    .00376,
     +     .21344,    .06924,    .03143,    .00400,    .00090,
     +     .00052,    .00242,    .00361,
     +     .20754,    .06717,    .02982,    .00386,    .00087,
     +     .00052,    .00233,    .00347 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .20174,    .06515,    .02831,    .00373,    .00085,
     +     .00051,    .00226,    .00334,
     +     .19619,    .06324,    .02690,    .00361,    .00083,
     +     .00050,    .00218,    .00321,
     +     .19106,    .06146,    .02565,    .00350,    .00081,
     +     .00050,    .00211,    .00309,
     +     .18634,    .05981,    .02452,    .00338,    .00079,
     +     .00049,    .00204,    .00298,
     +     .18171,    .05821,    .02345,    .00327,    .00078,
     +     .00048,    .00198,    .00287 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .64461,    .23163,    .30367,    .01337,    .00000,
     +     .00000,    .00710,    .01395,
     +     .61573,    .21975,    .27742,    .01270,    .00000,
     +     .00000,    .00681,    .01304,
     +     .57671,    .20385,    .24308,    .01176,    .00004,
     +     .00000,    .00639,    .01187,
     +     .55093,    .19354,    .22083,    .01117,    .00024,
     +     .00000,    .00609,    .01112,
     +     .52555,    .18340,    .19985,    .01053,    .00042,
     +     .00000,    .00583,    .01041,
     +     .50488,    .17526,    .18354,    .01004,    .00053,
     +     .00000,    .00559,    .00985,
     +     .48605,    .16793,    .16929,    .00960,    .00061,
     +     .00000,    .00536,    .00933,
     +     .46707,    .16061,    .15554,    .00916,    .00069,
     +     .00000,    .00514,    .00882 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45139,    .15459,    .14462,    .00879,    .00074,
     +     .00000,    .00495,    .00841,
     +     .43691,    .14903,    .13490,    .00844,    .00078,
     +     .00000,    .00479,    .00803,
     +     .42584,    .14481,    .12772,    .00819,    .00081,
     +     .00000,    .00465,    .00773,
     +     .40347,    .13637,    .11377,    .00769,    .00085,
     +     .00000,    .00437,    .00716,
     +     .38548,    .12966,    .10301,    .00727,    .00087,
     +     .00006,    .00414,    .00672,
     +     .36665,    .12265,    .09225,    .00681,    .00089,
     +     .00015,    .00391,    .00627,
     +     .34819,    .11584,    .08244,    .00639,    .00089,
     +     .00022,    .00369,    .00583,
     +     .33239,    .11007,    .07460,    .00606,    .00089,
     +     .00026,    .00350,    .00546 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .31734,    .10461,    .06758,    .00572,    .00088,
     +     .00030,    .00331,    .00512,
     +     .30547,    .10033,    .06232,    .00545,    .00087,
     +     .00032,    .00315,    .00486,
     +     .29176,    .09541,    .05661,    .00514,    .00085,
     +     .00034,    .00298,    .00456,
     +     .28024,    .09130,    .05208,    .00489,    .00084,
     +     .00036,    .00284,    .00431,
     +     .27017,    .08773,    .04829,    .00468,    .00082,
     +     .00037,    .00272,    .00409,
     +     .25798,    .08341,    .04396,    .00440,    .00080,
     +     .00038,    .00257,    .00385,
     +     .24709,    .07958,    .04032,    .00417,    .00078,
     +     .00038,    .00243,    .00363,
     +     .23738,    .07618,    .03724,    .00396,    .00076,
     +     .00038,    .00232,    .00344 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .22813,    .07297,    .03443,    .00377,    .00073,
     +     .00038,    .00220,    .00327,
     +     .21941,    .06996,    .03195,    .00359,    .00071,
     +     .00038,    .00211,    .00309,
     +     .21156,    .06726,    .02980,    .00343,    .00069,
     +     .00038,    .00202,    .00293,
     +     .20445,    .06481,    .02792,    .00328,    .00067,
     +     .00038,    .00193,    .00279,
     +     .19756,    .06246,    .02619,    .00315,    .00065,
     +     .00037,    .00184,    .00266,
     +     .19104,    .06025,    .02461,    .00303,    .00064,
     +     .00037,    .00176,    .00253,
     +     .18505,    .05823,    .02322,    .00291,    .00062,
     +     .00036,    .00169,    .00243,
     +     .17960,    .05639,    .02199,    .00280,    .00060,
     +     .00036,    .00163,    .00233 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .17428,    .05459,    .02084,    .00269,    .00059,
     +     .00035,    .00157,    .00224,
     +     .16920,    .05287,    .01977,    .00259,    .00057,
     +     .00034,    .00152,    .00216,
     +     .16451,    .05129,    .01881,    .00250,    .00056,
     +     .00034,    .00147,    .00208,
     +     .16017,    .04984,    .01796,    .00242,    .00054,
     +     .00033,    .00142,    .00201,
     +     .15594,    .04843,    .01715,    .00234,    .00053,
     +     .00033,    .00137,    .00194 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .60571,    .21057,    .25557,    .01089,    .00000,
     +     .00000,    .00539,    .01004,
     +     .57626,    .19900,    .23231,    .01026,    .00000,
     +     .00000,    .00516,    .00934,
     +     .53667,    .18364,    .20196,    .00945,    .00003,
     +     .00000,    .00480,    .00848,
     +     .51075,    .17370,    .18246,    .00891,    .00018,
     +     .00000,    .00458,    .00792,
     +     .48535,    .16402,    .16414,    .00836,    .00031,
     +     .00000,    .00437,    .00737,
     +     .46475,    .15624,    .14995,    .00793,    .00039,
     +     .00000,    .00417,    .00694,
     +     .44608,    .14927,    .13762,    .00754,    .00045,
     +     .00000,    .00399,    .00657,
     +     .42734,    .14231,    .12579,    .00717,    .00050,
     +     .00000,    .00380,    .00621 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41190,    .13662,    .11645,    .00686,    .00054,
     +     .00000,    .00365,    .00590,
     +     .39769,    .13143,    .10814,    .00656,    .00057,
     +     .00000,    .00352,    .00560,
     +     .38688,    .12748,    .10205,    .00635,    .00059,
     +     .00000,    .00341,    .00539,
     +     .36509,    .11959,    .09028,    .00592,    .00061,
     +     .00000,    .00318,    .00498,
     +     .34768,    .11332,    .08127,    .00556,    .00063,
     +     .00004,    .00301,    .00467,
     +     .32949,    .10682,    .07235,    .00519,    .00064,
     +     .00011,    .00283,    .00435,
     +     .31173,    .10055,    .06428,    .00486,    .00064,
     +     .00015,    .00265,    .00403,
     +     .29663,    .09525,    .05785,    .00459,    .00063,
     +     .00019,    .00250,    .00375 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28229,    .09023,    .05213,    .00432,    .00062,
     +     .00021,    .00236,    .00351,
     +     .27106,    .08630,    .04788,    .00407,    .00062,
     +     .00023,    .00225,    .00332,
     +     .25806,    .08183,    .04327,    .00384,    .00060,
     +     .00024,    .00212,    .00311,
     +     .24719,    .07811,    .03964,    .00365,    .00059,
     +     .00025,    .00201,    .00293,
     +     .23773,    .07488,    .03663,    .00349,    .00058,
     +     .00026,    .00192,    .00277,
     +     .22628,    .07099,    .03320,    .00329,    .00056,
     +     .00026,    .00181,    .00259,
     +     .21611,    .06755,    .03033,    .00310,    .00054,
     +     .00027,    .00171,    .00244,
     +     .20709,    .06450,    .02792,    .00293,    .00053,
     +     .00027,    .00162,    .00230 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .19854,    .06162,    .02574,    .00276,    .00051,
     +     .00027,    .00154,    .00217,
     +     .19049,    .05894,    .02380,    .00262,    .00049,
     +     .00026,    .00146,    .00205,
     +     .18324,    .05653,    .02213,    .00250,    .00048,
     +     .00026,    .00139,    .00194,
     +     .17671,    .05436,    .02069,    .00240,    .00046,
     +     .00026,    .00133,    .00186,
     +     .17037,    .05229,    .01936,    .00231,    .00045,
     +     .00025,    .00127,    .00177,
     +     .16439,    .05034,    .01815,    .00221,    .00044,
     +     .00025,    .00122,    .00169,
     +     .15894,    .04856,    .01709,    .00212,    .00042,
     +     .00025,    .00117,    .00161,
     +     .15399,    .04694,    .01615,    .00204,    .00041,
     +     .00024,    .00113,    .00153 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .14917,    .04536,    .01527,    .00196,    .00040,
     +     .00024,    .00109,    .00147,
     +     .14458,    .04386,    .01446,    .00187,    .00039,
     +     .00023,    .00105,    .00140,
     +     .14032,    .04248,    .01373,    .00180,    .00038,
     +     .00023,    .00101,    .00135,
     +     .13639,    .04122,    .01309,    .00175,    .00037,
     +     .00023,    .00098,    .00130,
     +     .13256,    .03999,    .01248,    .00170,    .00036,
     +     .00022,    .00094,    .00125 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .56345,    .18954,    .21668,    .00866,    .00000,
     +     .00000,    .00408,    .00708,
     +     .53393,    .17843,    .19566,    .00813,    .00000,
     +     .00000,    .00386,    .00659,
     +     .49452,    .16378,    .16842,    .00742,    .00002,
     +     .00000,    .00357,    .00595,
     +     .46883,    .15436,    .15110,    .00697,    .00013,
     +     .00000,    .00338,    .00554,
     +     .44377,    .14526,    .13493,    .00650,    .00023,
     +     .00000,    .00319,    .00514,
     +     .42358,    .13796,    .12251,    .00619,    .00028,
     +     .00000,    .00303,    .00480,
     +     .40531,    .13145,    .11180,    .00589,    .00033,
     +     .00000,    .00289,    .00452,
     +     .38711,    .12495,    .10158,    .00555,    .00036,
     +     .00000,    .00275,    .00425 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37221,    .11963,    .09355,    .00527,    .00039,
     +     .00000,    .00264,    .00404,
     +     .35846,    .11479,    .08647,    .00504,    .00041,
     +     .00000,    .00252,    .00385,
     +     .34801,    .11115,    .08128,    .00486,    .00042,
     +     .00000,    .00244,    .00369,
     +     .32708,    .10389,    .07135,    .00452,    .00044,
     +     .00000,    .00227,    .00339,
     +     .31044,    .09813,    .06383,    .00424,    .00045,
     +     .00003,    .00214,    .00318,
     +     .29313,    .09219,    .05645,    .00393,    .00045,
     +     .00008,    .00200,    .00295,
     +     .27633,    .08647,    .04981,    .00367,    .00045,
     +     .00011,    .00186,    .00271,
     +     .26212,    .08165,    .04457,    .00343,    .00044,
     +     .00013,    .00175,    .00253 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .24868,    .07711,    .03994,    .00322,    .00044,
     +     .00015,    .00165,    .00236,
     +     .23809,    .07358,    .03654,    .00306,    .00043,
     +     .00016,    .00156,    .00222,
     +     .22602,    .06955,    .03287,    .00285,    .00042,
     +     .00017,    .00146,    .00207,
     +     .21595,    .06621,    .02998,    .00270,    .00041,
     +     .00017,    .00138,    .00195,
     +     .20718,    .06331,    .02760,    .00256,    .00040,
     +     .00018,    .00132,    .00184,
     +     .19662,    .05985,    .02491,    .00240,    .00038,
     +     .00018,    .00123,    .00172,
     +     .18727,    .05679,    .02266,    .00225,    .00037,
     +     .00018,    .00116,    .00162,
     +     .17899,    .05411,    .02078,    .00212,    .00036,
     +     .00018,    .00110,    .00153 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17114,    .05159,    .01910,    .00201,    .00035,
     +     .00018,    .00105,    .00141,
     +     .16379,    .04922,    .01761,    .00192,    .00034,
     +     .00018,    .00099,    .00133,
     +     .15720,    .04710,    .01633,    .00182,    .00032,
     +     .00018,    .00094,    .00126,
     +     .15129,    .04519,    .01523,    .00172,    .00031,
     +     .00018,    .00090,    .00120,
     +     .14559,    .04337,    .01421,    .00164,    .00030,
     +     .00017,    .00086,    .00115,
     +     .14021,    .04166,    .01330,    .00156,    .00029,
     +     .00017,    .00082,    .00109,
     +     .13528,    .04011,    .01249,    .00151,    .00029,
     +     .00017,    .00079,    .00104,
     +     .13079,    .03870,    .01179,    .00146,    .00028,
     +     .00016,    .00075,    .00100 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .12645,    .03733,    .01113,    .00140,    .00027,
     +     .00016,    .00072,    .00095,
     +     .12234,    .03604,    .01052,    .00134,    .00026,
     +     .00016,    .00069,    .00091,
     +     .11855,    .03485,    .00997,    .00129,    .00025,
     +     .00016,    .00066,    .00087,
     +     .11506,    .03376,    .00949,    .00124,    .00025,
     +     .00015,    .00064,    .00084,
     +     .11166,    .03271,    .00903,    .00120,    .00024,
     +     .00015,    .00062,    .00080 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .51884,    .16880,    .18427,    .00669,    .00000,
     +     .00000,    .00305,    .00495,
     +     .48969,    .15832,    .16492,    .00624,    .00000,
     +     .00000,    .00288,    .00459,
     +     .45098,    .14453,    .14021,    .00565,    .00002,
     +     .00000,    .00264,    .00413,
     +     .42595,    .13572,    .12471,    .00529,    .00009,
     +     .00000,    .00250,    .00383,
     +     .40161,    .12725,    .11039,    .00495,    .00016,
     +     .00000,    .00235,    .00351,
     +     .38213,    .12045,    .09949,    .00464,    .00020,
     +     .00000,    .00222,    .00332,
     +     .36461,    .11441,    .09017,    .00436,    .00023,
     +     .00000,    .00211,    .00312,
     +     .34714,    .10844,    .08137,    .00410,    .00026,
     +     .00000,    .00200,    .00292 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33285,    .10358,    .07451,    .00390,    .00027,
     +     .00000,    .00192,    .00276,
     +     .31976,    .09916,    .06849,    .00372,    .00029,
     +     .00000,    .00182,    .00262,
     +     .30985,    .09582,    .06412,    .00357,    .00029,
     +     .00000,    .00176,    .00252,
     +     .29005,    .08919,    .05582,    .00328,    .00030,
     +     .00000,    .00163,    .00232,
     +     .27436,    .08397,    .04960,    .00308,    .00031,
     +     .00002,    .00153,    .00215,
     +     .25813,    .07860,    .04354,    .00285,    .00031,
     +     .00005,    .00143,    .00199,
     +     .24246,    .07346,    .03815,    .00262,    .00031,
     +     .00008,    .00133,    .00184,
     +     .22923,    .06915,    .03394,    .00245,    .00030,
     +     .00009,    .00125,    .00170 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .21675,    .06511,    .03024,    .00229,    .00030,
     +     .00010,    .00116,    .00158,
     +     .20702,    .06195,    .02753,    .00215,    .00029,
     +     .00011,    .00110,    .00148,
     +     .19585,    .05840,    .02463,    .00202,    .00028,
     +     .00011,    .00103,    .00137,
     +     .18658,    .05545,    .02238,    .00190,    .00028,
     +     .00012,    .00097,    .00129,
     +     .17856,    .05290,    .02053,    .00180,    .00027,
     +     .00012,    .00092,    .00122,
     +     .16894,    .04985,    .01844,    .00169,    .00026,
     +     .00012,    .00086,    .00113,
     +     .16044,    .04717,    .01672,    .00159,    .00025,
     +     .00012,    .00081,    .00105,
     +     .15294,    .04482,    .01528,    .00150,    .00024,
     +     .00012,    .00077,    .00099 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .14586,    .04262,    .01399,    .00141,    .00023,
     +     .00012,    .00073,    .00092,
     +     .13929,    .04055,    .01286,    .00132,    .00022,
     +     .00012,    .00068,    .00088,
     +     .13339,    .03872,    .01189,    .00124,    .00022,
     +     .00012,    .00064,    .00084,
     +     .12806,    .03708,    .01106,    .00119,    .00021,
     +     .00012,    .00062,    .00079,
     +     .12295,    .03552,    .01030,    .00113,    .00020,
     +     .00012,    .00059,    .00075,
     +     .11817,    .03405,    .00961,    .00108,    .00019,
     +     .00011,    .00056,    .00071,
     +     .11380,    .03272,    .00901,    .00103,    .00019,
     +     .00011,    .00054,    .00067,
     +     .10984,    .03151,    .00849,    .00099,    .00018,
     +     .00011,    .00052,    .00063 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .10600,    .03034,    .00800,    .00095,    .00018,
     +     .00011,    .00049,    .00061,
     +     .10236,    .02924,    .00755,    .00090,    .00017,
     +     .00010,    .00047,    .00059,
     +     .09901,    .02822,    .00714,    .00087,    .00017,
     +     .00010,    .00045,    .00057,
     +     .09593,    .02730,    .00679,    .00084,    .00016,
     +     .00010,    .00043,    .00055,
     +     .09294,    .02640,    .00645,    .00082,    .00016,
     +     .00010,    .00041,    .00052 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .47283,    .14881,    .15628,    .00509,    .00000,
     +     .00000,    .00223,    .00340,
     +     .44444,    .13902,    .13838,    .00470,    .00000,
     +     .00000,    .00209,    .00315,
     +     .40706,    .12622,    .11592,    .00421,    .00001,
     +     .00000,    .00192,    .00280,
     +     .38302,    .11806,    .10212,    .00388,    .00007,
     +     .00000,    .00181,    .00261,
     +     .35972,    .11026,    .08951,    .00361,    .00011,
     +     .00000,    .00171,    .00240,
     +     .34113,    .10407,    .08004,    .00337,    .00014,
     +     .00000,    .00160,    .00227,
     +     .32450,    .09856,    .07201,    .00315,    .00016,
     +     .00000,    .00152,    .00213,
     +     .30800,    .09311,    .06447,    .00294,    .00017,
     +     .00000,    .00144,    .00199 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29454,    .08870,    .05866,    .00278,    .00019,
     +     .00000,    .00136,    .00189,
     +     .28226,    .08470,    .05363,    .00263,    .00019,
     +     .00000,    .00130,    .00179,
     +     .27297,    .08169,    .05000,    .00252,    .00020,
     +     .00000,    .00125,    .00171,
     +     .25449,    .07574,    .04313,    .00231,    .00021,
     +     .00000,    .00116,    .00155,
     +     .23991,    .07108,    .03805,    .00215,    .00021,
     +     .00002,    .00109,    .00143,
     +     .22488,    .06628,    .03317,    .00198,    .00021,
     +     .00004,    .00102,    .00132,
     +     .21042,    .06171,    .02885,    .00181,    .00021,
     +     .00005,    .00094,    .00123,
     +     .19826,    .05790,    .02551,    .00169,    .00020,
     +     .00006,    .00088,    .00114 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .18684,    .05434,    .02259,    .00158,    .00020,
     +     .00007,    .00082,    .00104,
     +     .17798,    .05158,    .02048,    .00147,    .00019,
     +     .00007,    .00076,    .00099,
     +     .16788,    .04846,    .01823,    .00136,    .00019,
     +     .00008,    .00073,    .00092,
     +     .15951,    .04588,    .01649,    .00128,    .00018,
     +     .00008,    .00069,    .00086,
     +     .15227,    .04367,    .01507,    .00122,    .00018,
     +     .00008,    .00065,    .00081,
     +     .14366,    .04103,    .01348,    .00111,    .00017,
     +     .00008,    .00060,    .00076,
     +     .13603,    .03872,    .01217,    .00104,    .00016,
     +     .00008,    .00056,    .00071,
     +     .12931,    .03669,    .01109,    .00099,    .00016,
     +     .00008,    .00053,    .00066 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12299,    .03479,    .01012,    .00093,    .00015,
     +     .00008,    .00050,    .00061,
     +     .11715,    .03304,    .00928,    .00086,    .00015,
     +     .00008,    .00047,    .00059,
     +     .11192,    .03148,    .00856,    .00081,    .00014,
     +     .00008,    .00044,    .00056,
     +     .10721,    .03008,    .00794,    .00078,    .00014,
     +     .00008,    .00042,    .00052,
     +     .10271,    .02874,    .00738,    .00075,    .00013,
     +     .00008,    .00040,    .00049,
     +     .09851,    .02749,    .00687,    .00070,    .00013,
     +     .00007,    .00038,    .00047,
     +     .09469,    .02636,    .00643,    .00066,    .00012,
     +     .00007,    .00037,    .00045,
     +     .09123,    .02535,    .00605,    .00063,    .00012,
     +     .00007,    .00035,    .00043 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .08786,    .02437,    .00569,    .00060,    .00011,
     +     .00007,    .00033,    .00041,
     +     .08468,    .02343,    .00536,    .00059,    .00011,
     +     .00007,    .00032,    .00038,
     +     .08176,    .02258,    .00507,    .00057,    .00011,
     +     .00007,    .00030,    .00036,
     +     .07911,    .02181,    .00481,    .00054,    .00010,
     +     .00007,    .00029,    .00035,
     +     .07653,    .02106,    .00456,    .00051,    .00010,
     +     .00006,    .00028,    .00034 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .42633,    .12997,    .13160,    .00390,    .00000,
     +     .00000,    .00153,    .00222,
     +     .39914,    .12096,    .11519,    .00360,    .00000,
     +     .00000,    .00143,    .00204,
     +     .36351,    .10926,    .09502,    .00321,    .00001,
     +     .00000,    .00129,    .00182,
     +     .34074,    .10181,    .08286,    .00294,    .00004,
     +     .00000,    .00121,    .00170,
     +     .31880,    .09475,    .07190,    .00272,    .00007,
     +     .00000,    .00113,    .00153,
     +     .30137,    .08916,    .06376,    .00254,    .00009,
     +     .00000,    .00107,    .00141,
     +     .28582,    .08418,    .05694,    .00237,    .00011,
     +     .00000,    .00100,    .00135,
     +     .27045,    .07930,    .05061,    .00220,    .00012,
     +     .00000,    .00093,    .00126 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25793,    .07536,    .04577,    .00208,    .00012,
     +     .00000,    .00089,    .00118,
     +     .24652,    .07181,    .04159,    .00200,    .00013,
     +     .00000,    .00085,    .00110,
     +     .23796,    .06913,    .03860,    .00191,    .00013,
     +     .00000,    .00081,    .00105,
     +     .22099,    .06384,    .03302,    .00172,    .00014,
     +     .00000,    .00074,    .00097,
     +     .20763,    .05971,    .02893,    .00160,    .00014,
     +     .00001,    .00069,    .00089,
     +     .19392,    .05550,    .02504,    .00147,    .00014,
     +     .00002,    .00064,    .00082,
     +     .18078,    .05149,    .02163,    .00135,    .00014,
     +     .00003,    .00059,    .00075,
     +     .16980,    .04816,    .01902,    .00125,    .00013,
     +     .00004,    .00055,    .00069 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .15954,    .04507,    .01676,    .00115,    .00013,
     +     .00005,    .00051,    .00065,
     +     .15158,    .04267,    .01513,    .00108,    .00013,
     +     .00005,    .00048,    .00060,
     +     .14252,    .03997,    .01341,    .00100,    .00012,
     +     .00005,    .00045,    .00055,
     +     .13505,    .03774,    .01208,    .00093,    .00012,
     +     .00005,    .00042,    .00052,
     +     .12862,    .03583,    .01100,    .00088,    .00012,
     +     .00005,    .00039,    .00050,
     +     .12094,    .03357,    .00980,    .00081,    .00011,
     +     .00005,    .00036,    .00047,
     +     .11419,    .03160,    .00882,    .00077,    .00011,
     +     .00005,    .00034,    .00042,
     +     .10828,    .02987,    .00801,    .00072,    .00010,
     +     .00005,    .00032,    .00039 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10274,    .02826,    .00729,    .00067,    .00010,
     +     .00005,    .00029,    .00038,
     +     .09761,    .02677,    .00667,    .00063,    .00009,
     +     .00005,    .00028,    .00035,
     +     .09303,    .02544,    .00614,    .00060,    .00009,
     +     .00005,    .00026,    .00032,
     +     .08893,    .02427,    .00568,    .00057,    .00009,
     +     .00005,    .00025,    .00030,
     +     .08502,    .02314,    .00527,    .00054,    .00008,
     +     .00005,    .00023,    .00028,
     +     .08138,    .02209,    .00490,    .00051,    .00008,
     +     .00005,    .00022,    .00027,
     +     .07806,    .02114,    .00458,    .00048,    .00008,
     +     .00005,    .00021,    .00026,
     +     .07507,    .02029,    .00430,    .00047,    .00007,
     +     .00005,    .00020,    .00025 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07217,    .01947,    .00403,    .00044,    .00007,
     +     .00005,    .00019,    .00024,
     +     .06944,    .01870,    .00379,    .00042,    .00007,
     +     .00004,    .00018,    .00022,
     +     .06694,    .01799,    .00358,    .00040,    .00007,
     +     .00004,    .00018,    .00021,
     +     .06466,    .01734,    .00340,    .00039,    .00007,
     +     .00004,    .00017,    .00020,
     +     .06246,    .01672,    .00322,    .00037,    .00006,
     +     .00004,    .00016,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .37999,    .11191,    .10880,    .00274,    .00000,
     +     .00000,    .00112,    .00149,
     +     .35433,    .10373,    .09410,    .00249,    .00000,
     +     .00000,    .00104,    .00138,
     +     .32082,    .09319,    .07633,    .00222,    .00001,
     +     .00000,    .00092,    .00123,
     +     .29955,    .08654,    .06585,    .00203,    .00003,
     +     .00000,    .00086,    .00112,
     +     .27914,    .08023,    .05654,    .00186,    .00005,
     +     .00000,    .00080,    .00102,
     +     .26303,    .07525,    .04971,    .00173,    .00006,
     +     .00000,    .00075,    .00093,
     +     .24868,    .07083,    .04406,    .00161,    .00007,
     +     .00000,    .00070,    .00088,
     +     .23453,    .06652,    .03886,    .00150,    .00007,
     +     .00000,    .00065,    .00082 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22308,    .06306,    .03491,    .00142,    .00008,
     +     .00000,    .00062,    .00076,
     +     .21270,    .05992,    .03154,    .00133,    .00008,
     +     .00000,    .00059,    .00073,
     +     .20488,    .05758,    .02913,    .00128,    .00008,
     +     .00000,    .00056,    .00069,
     +     .18947,    .05296,    .02470,    .00117,    .00009,
     +     .00000,    .00051,    .00062,
     +     .17744,    .04938,    .02150,    .00106,    .00009,
     +     .00001,    .00048,    .00057,
     +     .16507,    .04574,    .01847,    .00099,    .00009,
     +     .00002,    .00043,    .00052,
     +     .15332,    .04228,    .01585,    .00090,    .00009,
     +     .00002,    .00040,    .00047,
     +     .14350,    .03940,    .01385,    .00083,    .00008,
     +     .00003,    .00037,    .00044 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13435,    .03675,    .01214,    .00077,    .00008,
     +     .00003,    .00034,    .00040,
     +     .12730,    .03471,    .01092,    .00073,    .00008,
     +     .00003,    .00032,    .00038,
     +     .11932,    .03242,    .00963,    .00066,    .00008,
     +     .00003,    .00029,    .00034,
     +     .11275,    .03053,    .00864,    .00061,    .00007,
     +     .00003,    .00027,    .00032,
     +     .10710,    .02892,    .00785,    .00058,    .00007,
     +     .00003,    .00025,    .00030,
     +     .10038,    .02701,    .00697,    .00054,    .00007,
     +     .00003,    .00023,    .00029,
     +     .09451,    .02534,    .00625,    .00051,    .00007,
     +     .00003,    .00022,    .00026,
     +     .08939,    .02389,    .00566,    .00048,    .00006,
     +     .00003,    .00021,    .00024 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08459,    .02254,    .00514,    .00044,    .00006,
     +     .00003,    .00019,    .00023,
     +     .08016,    .02130,    .00469,    .00040,    .00006,
     +     .00003,    .00018,    .00021,
     +     .07622,    .02020,    .00430,    .00038,    .00006,
     +     .00003,    .00016,    .00019,
     +     .07270,    .01922,    .00398,    .00036,    .00005,
     +     .00003,    .00015,    .00017,
     +     .06935,    .01829,    .00368,    .00034,    .00005,
     +     .00003,    .00014,    .00017,
     +     .06623,    .01743,    .00342,    .00032,    .00005,
     +     .00003,    .00014,    .00017,
     +     .06341,    .01664,    .00319,    .00030,    .00005,
     +     .00003,    .00013,    .00017,
     +     .06086,    .01594,    .00299,    .00028,    .00005,
     +     .00003,    .00012,    .00016 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .05841,    .01527,    .00280,    .00027,    .00004,
     +     .00003,    .00012,    .00014,
     +     .05610,    .01463,    .00263,    .00027,    .00004,
     +     .00003,    .00011,    .00013,
     +     .05398,    .01405,    .00248,    .00026,    .00004,
     +     .00003,    .00011,    .00012,
     +     .05205,    .01353,    .00235,    .00024,    .00004,
     +     .00003,    .00010,    .00012,
     +     .05018,    .01302,    .00223,    .00023,    .00004,
     +     .00003,    .00009,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .33464,    .09524,    .08815,    .00188,    .00000,
     +     .00000,    .00080,    .00099,
     +     .31072,    .08793,    .07528,    .00171,    .00000,
     +     .00000,    .00073,    .00090,
     +     .27974,    .07853,    .06003,    .00149,    .00000,
     +     .00000,    .00064,    .00080,
     +     .26016,    .07265,    .05122,    .00137,    .00002,
     +     .00000,    .00059,    .00073,
     +     .24146,    .06708,    .04350,    .00124,    .00003,
     +     .00000,    .00053,    .00067,
     +     .22671,    .06272,    .03792,    .00116,    .00004,
     +     .00000,    .00050,    .00061,
     +     .21366,    .05886,    .03333,    .00109,    .00004,
     +     .00000,    .00047,    .00057,
     +     .20084,    .05511,    .02917,    .00101,    .00005,
     +     .00000,    .00044,    .00052 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .19051,    .05210,    .02604,    .00095,    .00005,
     +     .00000,    .00041,    .00049,
     +     .18121,    .04938,    .02339,    .00087,    .00005,
     +     .00000,    .00038,    .00046,
     +     .17420,    .04735,    .02151,    .00083,    .00005,
     +     .00000,    .00037,    .00044,
     +     .16039,    .04337,    .01808,    .00075,    .00005,
     +     .00000,    .00034,    .00040,
     +     .14967,    .04029,    .01563,    .00068,    .00005,
     +     .00000,    .00031,    .00037,
     +     .13873,    .03718,    .01334,    .00063,    .00005,
     +     .00001,    .00029,    .00033,
     +     .12833,    .03424,    .01137,    .00057,    .00005,
     +     .00001,    .00026,    .00030,
     +     .11970,    .03181,    .00988,    .00052,    .00005,
     +     .00002,    .00024,    .00028 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11170,    .02956,    .00862,    .00048,    .00005,
     +     .00002,    .00022,    .00026,
     +     .10556,    .02783,    .00772,    .00043,    .00005,
     +     .00002,    .00021,    .00025,
     +     .09860,    .02590,    .00678,    .00041,    .00005,
     +     .00002,    .00019,    .00023,
     +     .09289,    .02433,    .00607,    .00039,    .00005,
     +     .00002,    .00017,    .00021,
     +     .08801,    .02299,    .00549,    .00036,    .00004,
     +     .00002,    .00016,    .00019,
     +     .08224,    .02140,    .00486,    .00033,    .00004,
     +     .00002,    .00015,    .00017,
     +     .07720,    .02002,    .00435,    .00031,    .00004,
     +     .00002,    .00014,    .00016,
     +     .07280,    .01883,    .00393,    .00029,    .00004,
     +     .00002,    .00013,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .06869,    .01772,    .00356,    .00027,    .00004,
     +     .00002,    .00012,    .00014,
     +     .06493,    .01669,    .00324,    .00025,    .00003,
     +     .00002,    .00011,    .00014,
     +     .06158,    .01579,    .00297,    .00023,    .00003,
     +     .00002,    .00011,    .00013,
     +     .05861,    .01499,    .00274,    .00022,    .00003,
     +     .00002,    .00010,    .00011,
     +     .05578,    .01424,    .00253,    .00021,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05316,    .01353,    .00235,    .00019,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05078,    .01290,    .00219,    .00018,    .00003,
     +     .00002,    .00008,    .00010,
     +     .04865,    .01233,    .00205,    .00017,    .00003,
     +     .00002,    .00008,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04660,    .01179,    .00192,    .00016,    .00003,
     +     .00002,    .00008,    .00009,
     +     .04466,    .01128,    .00180,    .00015,    .00003,
     +     .00002,    .00007,    .00008,
     +     .04290,    .01081,    .00169,    .00015,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04130,    .01039,    .00160,    .00014,    .00002,
     +     .00002,    .00007,    .00007,
     +     .03976,    .00998,    .00151,    .00013,    .00002,
     +     .00002,    .00006,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .29107,    .08014,    .06975,    .00135,    .00000,
     +     .00000,    .00050,    .00061,
     +     .26917,    .07367,    .05880,    .00121,    .00000,
     +     .00000,    .00045,    .00055,
     +     .24089,    .06545,    .04612,    .00105,    .00000,
     +     .00000,    .00040,    .00048,
     +     .22313,    .06032,    .03891,    .00097,    .00001,
     +     .00000,    .00036,    .00041,
     +     .20625,    .05545,    .03272,    .00087,    .00002,
     +     .00000,    .00032,    .00040,
     +     .19303,    .05167,    .02828,    .00081,    .00002,
     +     .00000,    .00030,    .00037,
     +     .18135,    .04835,    .02468,    .00074,    .00002,
     +     .00000,    .00029,    .00033,
     +     .16992,    .04512,    .02144,    .00069,    .00003,
     +     .00000,    .00027,    .00030 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .16074,    .04254,    .01902,    .00065,    .00003,
     +     .00000,    .00025,    .00028,
     +     .15246,    .04021,    .01698,    .00060,    .00003,
     +     .00000,    .00024,    .00027,
     +     .14626,    .03849,    .01556,    .00057,    .00003,
     +     .00000,    .00023,    .00025,
     +     .13410,    .03511,    .01297,    .00051,    .00003,
     +     .00000,    .00020,    .00023,
     +     .12468,    .03252,    .01115,    .00046,    .00003,
     +     .00000,    .00018,    .00021,
     +     .11512,    .02989,    .00946,    .00042,    .00003,
     +     .00001,    .00016,    .00019,
     +     .10610,    .02741,    .00802,    .00039,    .00003,
     +     .00001,    .00015,    .00017,
     +     .09863,    .02538,    .00694,    .00035,    .00003,
     +     .00001,    .00014,    .00016 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09173,    .02352,    .00603,    .00032,    .00003,
     +     .00001,    .00013,    .00014,
     +     .08643,    .02209,    .00538,    .00030,    .00003,
     +     .00001,    .00011,    .00014,
     +     .08045,    .02049,    .00471,    .00029,    .00003,
     +     .00001,    .00010,    .00012,
     +     .07558,    .01919,    .00420,    .00027,    .00003,
     +     .00001,    .00010,    .00011,
     +     .07143,    .01808,    .00379,    .00024,    .00003,
     +     .00001,    .00009,    .00010,
     +     .06651,    .01678,    .00335,    .00023,    .00002,
     +     .00001,    .00008,    .00009,
     +     .06226,    .01565,    .00299,    .00021,    .00002,
     +     .00001,    .00008,    .00009,
     +     .05856,    .01468,    .00269,    .00018,    .00002,
     +     .00001,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05512,    .01377,    .00244,    .00017,    .00002,
     +     .00001,    .00006,    .00008,
     +     .05194,    .01295,    .00221,    .00016,    .00002,
     +     .00001,    .00006,    .00007,
     +     .04914,    .01222,    .00202,    .00015,    .00002,
     +     .00001,    .00006,    .00007,
     +     .04665,    .01157,    .00187,    .00015,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04430,    .01096,    .00172,    .00014,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04212,    .01040,    .00159,    .00013,    .00002,
     +     .00001,    .00005,    .00005,
     +     .04016,    .00989,    .00148,    .00012,    .00002,
     +     .00001,    .00005,    .00005,
     +     .03841,    .00944,    .00139,    .00011,    .00002,
     +     .00001,    .00004,    .00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03671,    .00901,    .00130,    .00011,    .00002,
     +     .00001,    .00004,    .00004,
     +     .03511,    .00860,    .00122,    .00011,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03366,    .00823,    .00114,    .00010,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03234,    .00789,    .00108,    .00010,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03108,    .00757,    .00102,    .00009,    .00001,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .24953,    .06625,    .05334,    .00081,    .00000,
     +     .00000,    .00036,    .00041,
     +     .22971,    .06065,    .04441,    .00073,    .00000,
     +     .00000,    .00032,    .00038,
     +     .20430,    .05356,    .03426,    .00066,    .00000,
     +     .00000,    .00028,    .00031,
     +     .18851,    .04914,    .02860,    .00057,    .00001,
     +     .00000,    .00025,    .00028,
     +     .17352,    .04502,    .02379,    .00051,    .00001,
     +     .00000,    .00022,    .00027,
     +     .16181,    .04179,    .02040,    .00046,    .00001,
     +     .00000,    .00021,    .00023,
     +     .15148,    .03899,    .01767,    .00044,    .00001,
     +     .00000,    .00019,    .00021,
     +     .14144,    .03627,    .01524,    .00041,    .00001,
     +     .00000,    .00017,    .00019 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13342,    .03409,    .01344,    .00038,    .00002,
     +     .00000,    .00016,    .00018,
     +     .12621,    .03214,    .01194,    .00035,    .00002,
     +     .00000,    .00015,    .00018,
     +     .12083,    .03069,    .01090,    .00033,    .00002,
     +     .00000,    .00014,    .00017,
     +     .11028,    .02788,    .00902,    .00029,    .00002,
     +     .00000,    .00013,    .00015,
     +     .10215,    .02572,    .00770,    .00027,    .00002,
     +     .00000,    .00012,    .00013,
     +     .09394,    .02354,    .00649,    .00024,    .00002,
     +     .00000,    .00011,    .00012,
     +     .08621,    .02152,    .00548,    .00022,    .00002,
     +     .00001,    .00010,    .00011,
     +     .07985,    .01985,    .00472,    .00020,    .00002,
     +     .00001,    .00009,    .00010 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07398,    .01832,    .00409,    .00018,    .00002,
     +     .00001,    .00008,    .00009,
     +     .06950,    .01716,    .00364,    .00017,    .00002,
     +     .00001,    .00007,    .00009,
     +     .06448,    .01586,    .00317,    .00015,    .00002,
     +     .00001,    .00006,    .00008,
     +     .06039,    .01481,    .00282,    .00014,    .00001,
     +     .00001,    .00006,    .00007,
     +     .05691,    .01392,    .00255,    .00013,    .00001,
     +     .00001,    .00006,    .00007,
     +     .05283,    .01287,    .00224,    .00012,    .00001,
     +     .00001,    .00005,    .00006,
     +     .04928,    .01197,    .00200,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04621,    .01119,    .00180,    .00010,    .00001,
     +     .00001,    .00004,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04336,    .01047,    .00162,    .00010,    .00001,
     +     .00001,    .00004,    .00005,
     +     .04077,    .00981,    .00147,    .00009,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03847,    .00924,    .00135,    .00008,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03644,    .00873,    .00124,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03452,    .00825,    .00114,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03275,    .00781,    .00105,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03115,    .00741,    .00098,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02971,    .00706,    .00092,    .00006,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .02834,    .00672,    .00086,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02705,    .00640,    .00080,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02589,    .00611,    .00075,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02484,    .00585,    .00071,    .00005,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02382,    .00561,    .00067,    .00005,    .00001,
     +     .00001,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .17507,    .04325,    .02809,    .00034,    .00000,
     +     .00000,    .00012,    .00014,
     +     .15970,    .03925,    .02282,    .00031,    .00000,
     +     .00000,    .00011,    .00011,
     +     .14024,    .03421,    .01704,    .00026,    .00000,
     +     .00000,    .00009,    .00010,
     +     .12828,    .03113,    .01395,    .00021,    .00000,
     +     .00000,    .00008,    .00009,
     +     .11703,    .02825,    .01139,    .00018,    .00000,
     +     .00000,    .00007,    .00009,
     +     .10832,    .02605,    .00962,    .00018,    .00000,
     +     .00000,    .00007,    .00007,
     +     .10072,    .02413,    .00823,    .00016,    .00000,
     +     .00000,    .00006,    .00007,
     +     .09338,    .02229,    .00701,    .00014,    .00000,
     +     .00000,    .00006,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08753,    .02082,    .00612,    .00013,    .00000,
     +     .00000,    .00006,    .00006,
     +     .08231,    .01952,    .00539,    .00012,    .00000,
     +     .00000,    .00005,    .00006,
     +     .07845,    .01856,    .00489,    .00012,    .00000,
     +     .00000,    .00005,    .00005,
     +     .07095,    .01670,    .00400,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .06521,    .01529,    .00338,    .00008,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05947,    .01388,    .00283,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05411,    .01257,    .00237,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04973,    .01151,    .00203,    .00006,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04572,    .01055,    .00175,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04268,    .00982,    .00155,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03932,    .00901,    .00135,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03660,    .00836,    .00120,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03429,    .00781,    .00108,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03160,    .00718,    .00095,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02929,    .00663,    .00084,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .02729,    .00616,    .00076,    .00003,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02546,    .00573,    .00068,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02378,    .00534,    .00062,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02232,    .00500,    .00056,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02103,    .00470,    .00052,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01983,    .00442,    .00047,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01872,    .00416,    .00044,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01772,    .00393,    .00041,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01683,    .00373,    .00038,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01599,    .00354,    .00035,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01520,    .00336,    .00033,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01449,    .00319,    .00031,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01385,    .00304,    .00029,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01323,    .00290,    .00027,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .11375,    .02598,    .01232,    .00012,    .00000,
     +     .00000,    .00004,    .00004,
     +     .10276,    .02333,    .00980,    .00009,    .00000,
     +     .00000,    .00003,    .00004,
     +     .08897,    .02007,    .00713,    .00009,    .00000,
     +     .00000,    .00003,    .00002,
     +     .08059,    .01809,    .00574,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07284,    .01627,    .00462,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06687,    .01488,    .00386,    .00006,    .00000,
     +     .00000,    .00001,    .00002,
     +     .06171,    .01369,    .00327,    .00005,    .00000,
     +     .00000,    .00001,    .00002,
     +     .05677,    .01254,    .00276,    .00005,    .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=9,16)/
     +     .05286,    .01164,    .00240,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04939,    .01084,    .00210,    .00005,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04684,    .01026,    .00190,    .00004,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04195,    .00914,    .00154,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03823,    .00830,    .00130,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03454,    .00747,    .00108,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03115,    .00670,    .00091,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02839,    .00609,    .00078,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02589,    .00553,    .00067,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02400,    .00512,    .00059,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02193,    .00466,    .00051,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02027,    .00429,    .00046,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01888,    .00399,    .00041,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01726,    .00363,    .00036,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01588,    .00333,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01470,    .00308,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01362,    .00284,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01265,    .00263,    .00023,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01180,    .00245,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01106,    .00229,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01037,    .00214,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00973,    .00201,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00917,    .00189,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00867,    .00178,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00820,    .00168,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00776,    .00159,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00736,    .00150,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00700,    .00143,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00666,    .00136,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .06679,    .01398,    .00427,    .00004,    .00000,
     +     .00000,    .00000,    .00001,
     +     .05965,    .01242,    .00334,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05086,    .01052,    .00239,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04558,    .00938,    .00190,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04075,    .00835,    .00152,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03708,    .00757,    .00127,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03393,    .00690,    .00107,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03094,    .00627,    .00090,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02860,    .00578,    .00078,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02654,    .00535,    .00069,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02503,    .00503,    .00062,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02215,    .00443,    .00050,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02000,    .00398,    .00043,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01788,    .00355,    .00036,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01595,    .00315,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01441,    .00284,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01302,    .00256,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01199,    .00235,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01085,    .00212,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00995,    .00194,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00920,    .00179,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00834,    .00161,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00761,    .00147,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00699,    .00135,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00643,    .00123,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00593,    .00113,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00550,    .00105,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00512,    .00097,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00477,    .00091,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00445,    .00084,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00417,    .00079,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00392,    .00074,    .00005,    .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)/
     +     .00369,    .00070,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00347,    .00065,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00328,    .00062,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00311,    .00058,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00294,    .00055,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .03386,    .00639,    .00107,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02985,    .00561,    .00083,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02500,    .00467,    .00059,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02214,    .00411,    .00048,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01953,    .00361,    .00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01759,    .00324,    .00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01594,    .00293,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01439,    .00263,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
     +     .01318,    .00241,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01213,    .00221,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01137,    .00207,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00993,    .00180,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00887,    .00160,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00783,    .00141,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00690,    .00123,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00616,    .00110,    .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)/
     +     .00551,    .00098,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00503,    .00089,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00451,    .00080,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00410,    .00072,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00376,    .00066,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00337,    .00059,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00305,    .00053,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00277,    .00048,    .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)/
     +     .00253,    .00044,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00231,    .00040,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00213,    .00037,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00182,    .00031,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00168,    .00029,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00157,    .00027,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00025,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00137,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00128,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00120,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00113,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00107,    .00018,    .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)/
     +     .00373,    .00053,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00317,    .00045,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00252,    .00035,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00030,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00183,    .00025,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00160,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00141,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00123,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00110,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00099,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00091,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00076,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00066,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00036,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00032,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00028,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00022,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor05.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