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

sfmrsc1.F

#include "pdf/pilot.h"
      subroutine sfmrsc1(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)/
     +     .00258,    .00689,   1.15756,    .85917,    .00000,
     +     .00000,    .45861,    .86447,
     +     .00277,    .00697,   2.45491,    .89755,    .00000,
     +     .00000,    .50143,    .90332,
     +     .00305,    .00710,   5.00214,    .97862,    .03883,
     +     .00000,    .58883,    .98505,
     +     .00325,    .00720,   7.45487,   1.05580,    .12956,
     +     .00000,    .67047,   1.06269,
     +     .00347,    .00730,  10.58622,   1.15694,    .23121,
     +     .00000,    .77619,   1.16431,
     +     .00365,    .00739,  13.79342,   1.26105,    .33535,
     +     .00000,    .88415,   1.26881,
     +     .00383,    .00747,  17.40199,   1.37491,    .45323,
     +     .00000,   1.00161,   1.38304,
     +     .00403,    .00756,  21.83961,   1.51190,    .59680,
     +     .00000,   1.14233,   1.52040 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00419,    .00764,  26.15555,   1.64646,    .73333,
     +     .00000,   1.28008,   1.65528,
     +     .00436,    .00772,  30.78736,   1.78966,    .87873,
     +     .00000,   1.42629,   1.79877,
     +     .00449,    .00778,  34.84520,   1.91252,   1.00559,
     +     .00000,   1.55151,   1.92187,
     +     .00477,    .00791,  44.35209,   2.20527,   1.30218,
     +     .02790,   1.84916,   2.21509,
     +     .00501,    .00803,  53.53778,   2.49124,   1.58862,
     +     .43777,   2.13925,   2.50144,
     +     .00528,    .00816,  65.16561,   2.85113,   1.94887,
     +     .92169,   2.50364,   2.86175,
     +     .00557,    .00830,  78.83840,   3.27204,   2.36894,
     +    1.40603,   2.92910,   3.28307,
     +     .00583,    .00842,  92.66468,   3.69669,   2.79204,
     +    1.87894,   3.35778,   3.70808 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00610,    .00855, 108.03751,   4.16874,   3.26245,
     +    2.39043,   3.83380,   4.18047,
     +     .00632,    .00866, 121.83418,   4.59440,   3.68530,
     +    2.83803,   4.26268,   4.60640,
     +     .00659,    .00879, 139.82239,   5.15245,   4.23885,
     +    3.41596,   4.82456,   5.16476,
     +     .00684,    .00891, 157.00899,   5.68684,   4.77028,
     +    3.96912,   5.36226,   5.69941,
     +     .00706,    .00902, 173.83554,   6.21179,   5.29311,
     +    4.51096,   5.89018,   6.22460,
     +     .00735,    .00916, 196.37132,   6.92284,   5.99891,
     +    5.23403,   6.60494,   6.93593,
     +     .00762,    .00929, 219.04234,   7.64210,   6.71438,
     +    5.96712,   7.32760,   7.65544,
     +     .00788,    .00942, 241.68716,   8.36356,   7.43400,
     +    6.70545,   8.05218,   8.37712 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00814,    .00955, 265.19839,   9.12356,   8.18918,
     +    7.47361,   8.81525,   9.13733,
     +     .00840,    .00968, 289.51141,   9.91323,   8.97595,
     +    8.27607,   9.60786,   9.92720,
     +     .00864,    .00980, 313.61917,  10.70199,   9.76245,
     +    9.07790,  10.39936,  10.71614,
     +     .00887,    .00991, 337.06161,  11.47762,  10.53480,
     +    9.86281,  11.17753,  11.49193,
     +     .00911,    .01003, 361.78699,  12.29847,  11.35442,
     +   10.69809,  12.00088,  12.31293,
     +     .00934,    .01014, 386.60083,  13.13369,  12.18624,
     +   11.54200,  12.83853,  13.14830,
     +     .00956,    .01025, 411.34216,  13.96836,  13.02006,
     +   12.39083,  13.67547,  13.98310,
     +     .00977,    .01036, 435.05972,  14.77948,  13.82837,
     +   13.21030,  14.48872,  14.79434 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .00999,    .01047, 459.96515,  15.63393,  14.68177,
     +   14.07748,  15.34527,  15.64891,
     +     .01020,    .01057, 484.99625,  16.50177,  15.54774,
     +   14.95579,  16.21516,  16.51685,
     +     .01041,    .01068, 509.54715,  17.35859,  16.40320,
     +   15.82355,  17.07392,  17.37377,
     +     .01060,    .01077, 533.52081,  18.19968,  17.24384,
     +   16.67700,  17.91682,  18.21495,
     +     .01080,    .01087, 557.95074,  19.06711,  18.10931,
     +   17.55329,  18.78606,  19.08246 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00427,    .00843,   1.07802,    .74050,    .00000,
     +     .00000,    .39486,    .74465,
     +     .00452,    .00855,   2.24945,    .77534,    .00000,
     +     .00000,    .43329,    .77979,
     +     .00490,    .00874,   4.49760,    .84642,    .03390,
     +     .00000,    .50946,    .85128,
     +     .00518,    .00887,   6.61525,    .91264,    .11244,
     +     .00000,    .57927,    .91780,
     +     .00547,    .00902,   9.27112,    .99803,    .19869,
     +     .00000,    .66834,   1.00349,
     +     .00573,    .00914,  11.94867,   1.08482,    .28588,
     +     .00000,    .75821,   1.09053,
     +     .00597,    .00926,  14.92269,   1.17890,    .38351,
     +     .00000,    .85518,   1.18484,
     +     .00624,    .00939,  18.53436,   1.29115,    .50119,
     +     .00000,    .97041,   1.29733 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00646,    .00950,  22.00469,   1.40044,    .61196,
     +     .00000,   1.08224,   1.40682,
     +     .00669,    .00961,  25.69129,   1.51591,    .72898,
     +     .00000,   1.20012,   1.52248,
     +     .00686,    .00970,  28.89443,   1.61444,    .83043,
     +     .00000,   1.30053,   1.62116,
     +     .00724,    .00988,  36.30473,   1.84719,   1.06533,
     +     .02281,   1.53718,   1.85421,
     +     .00757,    .01005,  43.35494,   2.07221,   1.28969,
     +     .34501,   1.76547,   2.07947,
     +     .00794,    .01023,  52.16318,   2.35268,   1.56903,
     +     .72210,   2.04951,   2.36022,
     +     .00833,    .01042,  62.38201,   2.67740,   1.89134,
     +    1.09399,   2.37784,   2.68520,
     +     .00868,    .01059,  72.58606,   3.00189,   2.21283,
     +    1.45315,   2.70552,   3.00993 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .00904,    .01077,  83.80127,   3.35943,   2.56710,
     +    1.83775,   3.06620,   3.36769,
     +     .00934,    .01092,  93.76221,   3.67924,   2.88298,
     +    2.17134,   3.38856,   3.68768,
     +     .00971,    .01110, 106.61810,   4.09524,   3.29327,
     +    2.59850,   3.80757,   4.10388,
     +     .01004,    .01126, 118.78059,   4.49051,   3.68417,
     +    3.00421,   4.20547,   4.49933,
     +     .01034,    .01141, 130.58595,   4.87617,   4.06619,
     +    3.39894,   4.59348,   4.88515,
     +     .01072,    .01160, 146.24445,   5.39461,   4.57800,
     +    3.92154,   5.11483,   5.40377,
     +     .01109,    .01178, 161.84636,   5.91501,   5.09296,
     +    4.44747,   5.63792,   5.92434,
     +     .01143,    .01195, 177.29677,   6.43339,   5.60744,
     +    4.97371,   6.15876,   6.44287 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01178,    .01212, 193.19324,   6.97560,   6.14349,
     +    5.51713,   6.70339,   6.98523,
     +     .01212,    .01229, 209.50439,   7.53540,   6.69856,
     +    6.08148,   7.26551,   7.54517,
     +     .01245,    .01246, 225.55603,   8.09116,   7.25014,
     +    6.64207,   7.82342,   8.10105,
     +     .01276,    .01261, 241.04805,   8.63442,   7.78860,
     +    7.18754,   8.36868,   8.64442,
     +     .01307,    .01276, 257.28693,   9.20637,   8.35721,
     +    7.76530,   8.94260,   9.21648,
     +     .01338,    .01292, 273.46436,   9.78500,   8.93093,
     +    8.34553,   9.52314,   9.79521,
     +     .01368,    .01306, 289.50620,  10.36054,   9.50351,
     +    8.92675,  10.10048,  10.37085,
     +     .01396,    .01321, 304.78027,  10.91693,  10.05563,
     +    9.48477,  10.65854,  10.92733 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01424,    .01335, 320.73999,  11.50057,  10.63622,
     +   10.07307,  11.24383,  11.51104,
     +     .01453,    .01349, 336.68365,  12.09050,  11.22255,
     +   10.66604,  11.83539,  12.10106,
     +     .01480,    .01362, 352.24097,  12.67049,  11.79939,
     +   11.24951,  12.41690,  12.68112,
     +     .01506,    .01375, 367.36096,  13.23759,  12.36409,
     +   11.82127,  12.98542,  13.24828,
     +     .01532,    .01389, 382.68192,  13.81989,  12.94289,
     +   12.40563,  13.56916,  13.83065 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00670,    .01031,   1.00523,    .63782,    .00000,
     +     .00000,    .33999,    .64116,
     +     .00706,    .01049,   2.06267,    .66935,    .00000,
     +     .00000,    .37442,    .67286,
     +     .00758,    .01076,   4.04541,    .73161,    .02960,
     +     .00000,    .44080,    .73537,
     +     .00796,    .01095,   5.87140,    .78839,    .09758,
     +     .00000,    .50047,    .79232,
     +     .00836,    .01115,   8.12017,    .86041,    .17072,
     +     .00000,    .57544,    .86451,
     +     .00871,    .01133,  10.35087,    .93265,    .24367,
     +     .00000,    .65015,    .93690,
     +     .00905,    .01149,  12.79614,   1.01024,    .32446,
     +     .00000,    .73006,   1.01463,
     +     .00941,    .01167,  15.72787,   1.10201,    .42081,
     +     .00000,    .82421,   1.10654 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .00972,    .01183,  18.51008,   1.19053,    .51057,
     +     .00000,    .91476,   1.19518,
     +     .01002,    .01198,  21.43510,   1.28338,    .60461,
     +     .00000,   1.00953,   1.28814,
     +     .01027,    .01210,  23.95523,   1.36216,    .68560,
     +     .00000,   1.08980,   1.36701,
     +     .01078,    .01236,  29.71019,   1.54657,    .87131,
     +     .01864,   1.27732,   1.55160,
     +     .01123,    .01258,  35.09890,   1.72296,   1.04669,
     +     .27178,   1.45631,   1.72814,
     +     .01173,    .01283,  41.74166,   1.94068,   1.26280,
     +     .56546,   1.67686,   1.94602,
     +     .01226,    .01309,  49.34293,   2.19013,   1.50949,
     +     .85080,   1.92917,   2.19564,
     +     .01274,    .01333,  56.83593,   2.43698,   1.75312,
     +    1.12328,   2.17854,   2.44263 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01322,    .01357,  64.97485,   2.70653,   2.01916,
     +    1.41212,   2.45057,   2.71231,
     +     .01363,    .01377,  72.12663,   2.94567,   2.25442,
     +    1.66037,   2.69172,   2.95156,
     +     .01413,    .01402,  81.26118,   3.25422,   2.55754,
     +    1.97557,   3.00266,   3.26025,
     +     .01457,    .01424,  89.81630,   3.54512,   2.84411,
     +    2.27260,   3.29561,   3.55125,
     +     .01497,    .01444,  98.04717,   3.82697,   3.12226,
     +    2.55958,   3.57931,   3.83320,
     +     .01549,    .01470, 108.85589,   4.20294,   3.49202,
     +    2.93644,   3.95758,   4.20929,
     +     .01598,    .01494, 119.51986,   4.57740,   3.86123,
     +    3.31285,   4.33415,   4.58387,
     +     .01645,    .01517, 129.98756,   4.94778,   4.22759,
     +    3.68695,   4.70647,   4.95435 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01691,    .01540, 140.65654,   5.33239,   4.60650,
     +    4.07029,   5.09297,   5.33905,
     +     .01737,    .01563, 151.51668,   5.72692,   4.99642,
     +    4.46601,   5.48932,   5.73367,
     +     .01780,    .01584, 162.12126,   6.11616,   5.38153,
     +    4.85673,   5.88026,   6.12300,
     +     .01821,    .01605, 172.27634,   6.49435,   5.75520,
     +    5.23453,   6.26001,   6.50126,
     +     .01863,    .01625, 182.85405,   6.89043,   6.14783,
     +    5.63282,   6.65764,   6.89742,
     +     .01904,    .01646, 193.31027,   7.28876,   6.54160,
     +    6.03029,   7.05747,   7.29583,
     +     .01944,    .01665, 203.62137,   7.68310,   6.93285,
     +    6.42681,   7.45322,   7.69023,
     +     .01981,    .01684, 213.36905,   8.06227,   7.30804,
     +    6.80530,   7.83369,   8.06946 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02019,    .01703, 223.50320,   8.45830,   7.70099,
     +    7.20281,   8.23103,   8.46555,
     +     .02056,    .01721, 233.56284,   8.85665,   8.09587,
     +    7.60147,   8.63064,   8.86396,
     +     .02093,    .01739, 243.32642,   9.24658,   8.48272,
     +    7.99211,   9.02177,   9.25395,
     +     .02127,    .01756, 252.76994,   9.62634,   8.85997,
     +    8.37348,   9.40265,   9.63375,
     +     .02162,    .01773, 262.28101,  10.01451,   9.24485,
     +    8.76138,   9.79194,  10.02197 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00859,    .01161,    .96599,    .58427,    .00000,
     +     .00000,    .31152,    .58730,
     +     .00902,    .01183,   1.96188,    .61395,    .00000,
     +     .00000,    .34378,    .61711,
     +     .00965,    .01215,   3.80341,    .67154,    .02734,
     +     .00000,    .40501,    .67487,
     +     .01011,    .01238,   5.47664,    .72341,    .08981,
     +     .00000,    .45943,    .72686,
     +     .01060,    .01263,   7.51494,    .78855,    .15621,
     +     .00000,    .52718,    .79213,
     +     .01102,    .01284,   9.51737,    .85339,    .22190,
     +     .00000,    .59419,    .85707,
     +     .01143,    .01305,  11.69522,    .92264,    .29419,
     +     .00000,    .66547,    .92641,
     +     .01186,    .01326,  14.28643,   1.00410,    .37984,
     +     .00000,    .74904,   1.00798 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01224,    .01345,  16.72726,   1.08224,    .45915,
     +     .00000,    .82896,   1.08621,
     +     .01260,    .01363,  19.27749,   1.16383,    .54183,
     +     .00000,    .91224,   1.16788,
     +     .01289,    .01378,  21.46373,   1.23283,    .61276,
     +     .00000,    .98255,   1.23694,
     +     .01351,    .01409,  26.41743,   1.39347,    .77445,
     +     .01655,   1.14591,   1.39771,
     +     .01404,    .01435,  31.01151,   1.54614,    .92612,
     +     .23630,   1.30085,   1.55049,
     +     .01465,    .01466,  36.62952,   1.73346,   1.11187,
     +     .48991,   1.49066,   1.73793,
     +     .01528,    .01497,  43.00559,   1.94676,   1.32255,
     +     .73414,   1.70645,   1.95135,
     +     .01585,    .01526,  49.24252,   2.15660,   1.52937,
     +     .96581,   1.91850,   2.16130 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01643,    .01554,  55.96951,   2.38451,   1.75401,
     +    1.20991,   2.14857,   2.38931,
     +     .01692,    .01579,  61.84280,   2.58572,   1.95168,
     +    1.41856,   2.35153,   2.59060,
     +     .01751,    .01608,  69.29768,   2.84409,   2.20514,
     +    1.68215,   2.61198,   2.84908,
     +     .01804,    .01634,  76.23763,   3.08654,   2.44366,
     +    1.92937,   2.85623,   3.09161,
     +     .01852,    .01658,  82.87928,   3.32049,   2.67423,
     +    2.16724,   3.09178,   3.32563,
     +     .01914,    .01689,  91.54856,   3.63111,   2.97932,
     +    2.47808,   3.40440,   3.63635,
     +     .01972,    .01718, 100.05138,   3.93906,   3.28257,
     +    2.78714,   3.71419,   3.94438,
     +     .02027,    .01745, 108.35376,   4.24238,   3.58224,
     +    3.09309,   4.01919,   4.24778 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02082,    .01772, 116.76727,   4.55598,   3.89082,
     +    3.40513,   4.33443,   4.56146,
     +     .02136,    .01799, 125.29080,   4.87644,   4.20719,
     +    3.72609,   4.65648,   4.88199,
     +     .02188,    .01824, 133.57477,   5.19144,   4.51853,
     +    4.04184,   4.97295,   5.19706,
     +     .02237,    .01849, 141.46996,   5.49638,   4.81950,
     +    4.34602,   5.27924,   5.50206,
     +     .02286,    .01873, 149.66286,   5.81475,   5.13482,
     +    4.66578,   5.59897,   5.82051,
     +     .02334,    .01897, 157.72319,   6.13381,   5.44990,
     +    4.98368,   5.91932,   6.13962,
     +     .02381,    .01920, 165.64557,   6.44878,   5.76215,
     +    5.30004,   6.23552,   6.45465,
     +     .02425,    .01942, 173.10184,   6.75065,   6.06058,
     +    5.60094,   6.53852,   6.75657 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02470,    .01964, 180.83054,   7.06514,   6.37238,
     +    5.91627,   6.85415,   7.07112,
     +     .02514,    .01986, 188.47260,   7.38055,   6.68479,
     +    6.23154,   7.17066,   7.38657,
     +     .02556,    .02007, 195.86577,   7.68850,   6.99006,
     +    6.53969,   7.47964,   7.69457,
     +     .02597,    .02027, 202.99579,   7.98769,   7.28709,
     +    6.83988,   7.77981,   7.99381,
     +     .02638,    .02047, 210.14963,   8.29269,   7.58926,
     +    7.14430,   8.08578,   8.29885 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01019,    .01264,    .93978,    .54889,    .00000,
     +     .00000,    .29279,    .55180,
     +     .01068,    .01289,   1.89415,    .57732,    .00000,
     +     .00000,    .32358,    .58032,
     +     .01140,    .01325,   3.64130,    .63179,    .02584,
     +     .00000,    .38139,    .63492,
     +     .01193,    .01352,   5.21337,    .68041,    .08467,
     +     .00000,    .43237,    .68364,
     +     .01249,    .01380,   7.11347,    .74107,    .14665,
     +     .00000,    .49540,    .74439,
     +     .01297,    .01405,   8.96714,    .80108,    .20763,
     +     .00000,    .55741,    .80448,
     +     .01344,    .01428,  10.97180,    .86492,    .27441,
     +     .00000,    .62311,    .86841,
     +     .01393,    .01453,  13.34384,    .93973,    .35317,
     +     .00000,    .69985,    .94330 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01436,    .01474,  15.56627,   1.01120,    .42578,
     +     .00000,    .77295,   1.01483,
     +     .01477,    .01495,  17.87793,   1.08558,    .50121,
     +     .00000,    .84887,   1.08928,
     +     .01510,    .01511,  19.85252,   1.14833,    .56573,
     +     .00000,    .91281,   1.15208,
     +     .01581,    .01546,  24.30153,   1.29384,    .71221,
     +     .01522,   1.06081,   1.29770,
     +     .01642,    .01577,  28.39886,   1.43149,    .84895,
     +     .21391,   1.20053,   1.43544,
     +     .01710,    .01611,  33.38058,   1.59967,   1.01566,
     +     .44240,   1.37097,   1.60372,
     +     .01782,    .01647,  39.00112,   1.79031,   1.20388,
     +     .66102,   1.56389,   1.79445,
     +     .01847,    .01679,  44.46851,   1.97707,   1.38786,
     +     .86741,   1.75266,   1.98130 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01913,    .01712,  50.33555,   2.17914,   1.58692,
     +    1.08393,   1.95669,   2.18345,
     +     .01968,    .01739,  55.43434,   2.35689,   1.76146,
     +    1.26828,   2.13604,   2.36128,
     +     .02035,    .01773,  61.87690,   2.58438,   1.98448,
     +    1.50032,   2.36541,   2.58885,
     +     .02095,    .01802,  67.84845,   2.79711,   2.19366,
     +    1.71721,   2.57978,   2.80166,
     +     .02150,    .01829,  73.54152,   3.00178,   2.39528,
     +    1.92527,   2.78591,   3.00639,
     +     .02220,    .01864,  80.94009,   3.27263,   2.66116,
     +    2.19620,   3.05858,   3.27732,
     +     .02286,    .01897,  88.16562,   3.54026,   2.92458,
     +    2.46471,   3.32787,   3.54502,
     +     .02348,    .01927,  95.19398,   3.80307,   3.18413,
     +    2.72974,   3.59220,   3.80790 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02410,    .01958, 102.28668,   4.07394,   3.45054,
     +    2.99914,   3.86457,   4.07884,
     +     .02471,    .01988, 109.44725,   4.34997,   3.72295,
     +    3.27552,   4.14203,   4.35494,
     +     .02529,    .02017, 116.38294,   4.62058,   3.99031,
     +    3.54671,   4.41397,   4.62561,
     +     .02584,    .02044, 122.97027,   4.88185,   4.24810,
     +    3.80724,   4.67648,   4.88694,
     +     .02640,    .02071, 129.78745,   5.15404,   4.51760,
     +    4.08057,   4.94989,   5.15919,
     +     .02694,    .02098, 136.47078,   5.42610,   4.78619,
     +    4.35155,   5.22313,   5.43130,
     +     .02747,    .02124, 143.02425,   5.69415,   5.05186,
     +    4.62075,   5.49229,   5.69940,
     +     .02796,    .02149, 149.17210,   5.95044,   5.30515,
     +    4.87615,   5.74960,   5.95574 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02846,    .02173, 155.53069,   6.21696,   5.56934,
     +    5.14335,   6.01715,   6.22231,
     +     .02896,    .02198, 161.80014,   6.48369,   5.83347,
     +    5.40990,   6.28488,   6.48909,
     +     .02944,    .02221, 167.85104,   6.74363,   6.09111,
     +    5.66998,   6.54575,   6.74907,
     +     .02989,    .02244, 173.67413,   6.99575,   6.34137,
     +    5.92293,   6.79876,   7.00123,
     +     .03035,    .02266, 179.50040,   7.25224,   6.59544,
     +    6.17889,   7.05613,   7.25777 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01160,    .01350,    .92047,    .52287,    .00000,
     +     .00000,    .27905,    .52572,
     +     .01215,    .01378,   1.84385,    .55034,    .00000,
     +     .00000,    .30874,    .55327,
     +     .01295,    .01418,   3.52090,    .60249,    .02474,
     +     .00000,    .36403,    .60553,
     +     .01354,    .01448,   5.01839,    .64873,    .08089,
     +     .00000,    .41247,    .65186,
     +     .01416,    .01479,   6.81721,    .70610,    .13964,
     +     .00000,    .47207,    .70931,
     +     .01469,    .01506,   8.56244,    .76260,    .19718,
     +     .00000,    .53043,    .76588,
     +     .01521,    .01532,  10.44146,    .82252,    .25997,
     +     .00000,    .59209,    .82586,
     +     .01575,    .01559,  12.65523,    .89251,    .33375,
     +     .00000,    .66389,    .89593 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01623,    .01583,  14.72062,    .95917,    .40154,
     +     .00000,    .73207,    .96264,
     +     .01669,    .01606,  16.86141,   1.02836,    .47176,
     +     .00000,    .80270,   1.03189,
     +     .01705,    .01624,  18.68488,   1.08662,    .53170,
     +     .00000,    .86208,   1.09019,
     +     .01783,    .01663,  22.77517,   1.22130,    .66732,
     +     .01425,    .99908,   1.22497,
     +     .01851,    .01697,  26.52146,   1.34824,    .79343,
     +     .19798,   1.12795,   1.35198,
     +     .01927,    .01734,  31.05574,   1.50282,    .94666,
     +     .40865,   1.28464,   1.50665,
     +     .02006,    .01774,  36.14773,   1.67742,   1.11903,
     +     .60922,   1.46136,   1.68133,
     +     .02078,    .01809,  41.07930,   1.84791,   1.28696,
     +     .79786,   1.63371,   1.85190 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02151,    .01846,  46.35024,   2.03180,   1.46810,
     +     .99508,   1.81944,   2.03587,
     +     .02212,    .01876,  50.91429,   2.19313,   1.62647,
     +    1.16248,   1.98225,   2.19726,
     +     .02285,    .01912,  56.66069,   2.39902,   1.82830,
     +    1.37258,   2.18990,   2.40322,
     +     .02351,    .01945,  61.96870,   2.59106,   2.01710,
     +    1.56844,   2.38346,   2.59533,
     +     .02411,    .01975,  67.01392,   2.77539,   2.19866,
     +    1.75589,   2.56915,   2.77972,
     +     .02488,    .02013,  73.54794,   3.01869,   2.43746,
     +    1.99930,   2.81414,   3.02310,
     +     .02561,    .02048,  79.90766,   3.25847,   2.67344,
     +    2.23992,   3.05546,   3.26294,
     +     .02629,    .02082,  86.07531,   3.49337,   2.90542,
     +    2.47687,   3.29178,   3.49791 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02697,    .02116,  92.27869,   3.73488,   3.14292,
     +    2.71710,   3.53468,   3.73949,
     +     .02764,    .02149,  98.52441,   3.98047,   3.38527,
     +    2.96305,   3.78160,   3.98514,
     +     .02828,    .02180, 104.55782,   4.22073,   3.62264,
     +    3.20388,   4.02310,   4.22546,
     +     .02888,    .02210, 110.27225,   4.45222,   3.85103,
     +    3.43475,   4.25574,   4.45700,
     +     .02949,    .02240, 116.17352,   4.69297,   4.08940,
     +    3.67658,   4.49761,   4.69780,
     +     .03009,    .02270, 121.94275,   4.93311,   4.32647,
     +    3.91581,   4.73885,   4.93800,
     +     .03067,    .02298, 127.58935,   5.16934,   4.56062,
     +    4.15314,   4.97611,   5.17428,
     +     .03121,    .02324, 132.87256,   5.39479,   4.78343,
     +    4.37784,   5.20251,   5.39977 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03176,    .02351, 138.32784,   5.62891,   5.01552,
     +    4.61263,   5.43759,   5.63394,
     +     .03230,    .02378, 143.69402,   5.86281,   5.24715,
     +    4.84644,   5.67241,   5.86789,
     +     .03282,    .02404, 148.86365,   6.09043,   5.47277,
     +    5.07425,   5.90090,   6.09555,
     +     .03332,    .02428, 153.83031,   6.31090,   5.69164,
     +    5.29554,   6.12220,   6.31607,
     +     .03382,    .02453, 158.78842,   6.53485,   5.91349,
     +    5.51907,   6.34696,   6.54006 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01714,    .01661,    .86720,    .44922,    .00000,
     +     .00000,    .24041,    .45224,
     +     .01790,    .01699,   1.70058,    .47386,    .00000,
     +     .00000,    .26689,    .47694,
     +     .01902,    .01754,   3.17604,    .51935,    .02159,
     +     .00000,    .31498,    .52251,
     +     .01984,    .01795,   4.46154,    .55885,    .07015,
     +     .00000,    .35630,    .56207,
     +     .02070,    .01838,   5.97551,    .60700,    .11987,
     +     .00000,    .40629,    .61028,
     +     .02144,    .01874,   7.41880,    .65374,    .16786,
     +     .00000,    .45457,    .65708,
     +     .02215,    .01910,   8.95078,    .70281,    .21963,
     +     .00000,    .50507,    .70620,
     +     .02290,    .01947,  10.73095,    .75957,    .27977,
     +     .00000,    .56332,    .76302 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02356,    .01979,  12.36952,    .81306,    .33441,
     +     .00000,    .61806,    .81656,
     +     .02419,    .02011,  14.04892,    .86814,    .39051,
     +     .00000,    .67432,    .87168,
     +     .02469,    .02035,  15.46656,    .91423,    .43806,
     +     .00000,    .72132,    .91781,
     +     .02576,    .02088,  18.60147,   1.01971,    .54453,
     +     .01161,    .82871,   1.02337,
     +     .02669,    .02134,  21.42215,   1.11796,    .64234,
     +     .15541,    .92854,   1.12168,
     +     .02772,    .02185,  24.78696,   1.23634,    .75987,
     +     .31882,   1.04864,   1.24014,
     +     .02880,    .02238,  28.50984,   1.36854,    .89056,
     +     .47195,   1.18258,   1.37242,
     +     .02978,    .02286,  32.06524,   1.49628,   1.01654,
     +     .61425,   1.31184,   1.50023 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03077,    .02335,  35.81694,   1.63274,   1.15110,
     +     .76141,   1.44979,   1.63676,
     +     .03159,    .02375,  39.02758,   1.75139,   1.26771,
     +     .88511,   1.56965,   1.75548,
     +     .03259,    .02425,  43.02390,   1.90153,   1.41502,
     +    1.03893,   1.72122,   1.90568,
     +     .03348,    .02468,  46.67496,   2.04040,   1.55169,
     +    1.18112,   1.86132,   2.04462,
     +     .03429,    .02508,  50.11185,   2.17271,   1.68216,
     +    1.31619,   1.99473,   2.17699,
     +     .03532,    .02559,  54.51323,   2.34589,   1.85231,
     +    1.49002,   2.16929,   2.35025,
     +     .03629,    .02606,  58.75096,   2.51516,   2.01908,
     +    1.66045,   2.33981,   2.51958,
     +     .03721,    .02651,  62.82129,   2.67975,   2.18183,
     +    1.82709,   2.50555,   2.68425 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03812,    .02696,  66.87081,   2.84764,   2.34711,
     +    1.99458,   2.67456,   2.85220,
     +     .03902,    .02740,  70.91238,   3.01720,   2.51464,
     +    2.16496,   2.84520,   3.02182,
     +     .03987,    .02781,  74.78267,   3.18198,   2.67765,
     +    2.33069,   3.01099,   3.18667,
     +     .04067,    .02821,  78.41530,   3.33970,   2.83345,
     +    2.48848,   3.16963,   3.34445,
     +     .04148,    .02860,  82.14119,   3.50282,   2.99520,
     +    2.65292,   3.33368,   3.50764,
     +     .04227,    .02899,  85.75004,   3.66447,   3.15497,
     +    2.81444,   3.49622,   3.66934,
     +     .04303,    .02936,  89.26144,   3.82272,   3.31206,
     +    2.97399,   3.65529,   3.82765,
     +     .04375,    .02971,  92.51823,   3.97283,   3.46060,
     +    3.12405,   3.80617,   3.97781 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04448,    .03007,  95.86295,   4.12802,   3.61468,
     +    3.28023,   3.96214,   4.13305,
     +     .04520,    .03042,  99.12802,   4.28222,   3.76760,
     +    3.43489,   4.11709,   4.28731,
     +     .04588,    .03075, 102.25430,   4.43158,   3.91588,
     +    3.58488,   4.26716,   4.43673,
     +     .04654,    .03107, 105.24154,   4.57565,   4.05913,
     +    3.72999,   4.41189,   4.58084,
     +     .04720,    .03139, 108.20094,   4.72123,   4.20355,
     +    3.87576,   4.55814,   4.72647 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02498,    .02056,    .82761,    .38541,    .00000,
     +     .00000,    .20727,    .38912,
     +     .02604,    .02108,   1.57987,    .40739,    .00000,
     +     .00000,    .23081,    .41118,
     +     .02760,    .02184,   2.87531,    .44691,    .01883,
     +     .00000,    .27254,    .45081,
     +     .02874,    .02239,   3.97475,    .48051,    .06080,
     +     .00000,    .30769,    .48451,
     +     .02993,    .02297,   5.24281,    .52075,    .10278,
     +     .00000,    .34950,    .52484,
     +     .03096,    .02347,   6.42935,    .55923,    .14269,
     +     .00000,    .38927,    .56339,
     +     .03194,    .02395,   7.67002,    .59918,    .18523,
     +     .00000,    .43045,    .60342,
     +     .03298,    .02446,   9.09078,    .64493,    .23404,
     +     .00000,    .47745,    .64924 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03388,    .02490,  10.37995,    .68756,    .27787,
     +     .00000,    .52114,    .69194,
     +     .03475,    .02532,  11.68564,    .73107,    .32246,
     +     .00000,    .56565,    .73552,
     +     .03544,    .02566,  12.77741,    .76725,    .35998,
     +     .00000,    .60260,    .77175,
     +     .03690,    .02637,  15.15519,    .84917,    .44306,
     +     .00942,    .68614,    .85378,
     +     .03816,    .02698,  17.25403,    .92453,    .51841,
     +     .12145,    .76283,    .92923,
     +     .03957,    .02767,  19.71958,   1.01430,    .60790,
     +     .24759,    .85407,   1.01912,
     +     .04104,    .02839,  22.40486,   1.11338,    .70622,
     +     .36383,    .95461,   1.11831,
     +     .04237,    .02903,  24.93139,   1.20805,    .79992,
     +     .47050,   1.05057,   1.21308 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04371,    .02969,  27.56135,   1.30816,    .89899,
     +     .57957,   1.15194,   1.31330,
     +     .04482,    .03023,  29.78394,   1.39441,    .98404,
     +     .67030,   1.23921,   1.39963,
     +     .04617,    .03088,  32.51666,   1.50254,   1.09051,
     +     .78205,   1.34855,   1.50787,
     +     .04736,    .03146,  34.98410,   1.60169,   1.18842,
     +     .88443,   1.44874,   1.60711,
     +     .04845,    .03199,  37.28289,   1.69542,   1.28118,
     +     .98091,   1.54342,   1.70093,
     +     .04983,    .03267,  40.19109,   1.81704,   1.40107,
     +    1.10392,   1.66619,   1.82265,
     +     .05113,    .03330,  42.95868,   1.93487,   1.51756,
     +    1.22350,   1.78508,   1.94059,
     +     .05235,    .03389,  45.58954,   2.04856,   1.63038,
     +    1.33952,   1.89975,   2.05438 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05357,    .03448,  48.17566,   2.16355,   1.74396,
     +    1.45508,   2.01569,   2.16946,
     +     .05476,    .03506,  50.73244,   2.27886,   1.85828,
     +    1.57183,   2.13191,   2.28486,
     +     .05588,    .03561,  53.15782,   2.39013,   1.96876,
     +    1.68461,   2.24404,   2.39623,
     +     .05694,    .03612,  55.41137,   2.49589,   2.07358,
     +    1.79119,   2.35058,   2.50208,
     +     .05801,    .03664,  57.70598,   2.60465,   2.18182,
     +    1.90169,   2.46013,   2.61093,
     +     .05906,    .03715,  59.90518,   2.71167,   2.28796,
     +    2.00940,   2.56789,   2.71803,
     +     .06006,    .03764,  62.03185,   2.81591,   2.39181,
     +    2.11532,   2.67284,   2.82235,
     +     .06100,    .03809,  63.98450,   2.91414,   2.48935,
     +    2.21423,   2.77172,   2.92065 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06196,    .03856,  65.97842,   3.01523,   2.59008,
     +    2.31675,   2.87347,   3.02182,
     +     .06290,    .03901,  67.90794,   3.11509,   2.68947,
     +    2.41764,   2.97397,   3.12176,
     +     .06380,    .03945,  69.74295,   3.21134,   2.78536,
     +    2.51502,   3.07082,   3.21808,
     +     .06465,    .03986,  71.48587,   3.30377,   2.87761,
     +    2.60884,   3.16381,   3.31058,
     +     .06551,    .04028,  73.19709,   3.39664,   2.97007,
     +    2.70251,   3.25724,   3.40352 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03101,    .02342,    .81394,    .35219,    .00000,
     +     .00000,    .19014,    .35657,
     +     .03230,    .02404,   1.52241,    .37270,    .00000,
     +     .00000,    .21208,    .37718,
     +     .03420,    .02495,   2.72090,    .40899,    .01738,
     +     .00000,    .25041,    .41364,
     +     .03557,    .02562,   3.72145,    .43948,    .05588,
     +     .00000,    .28232,    .44425,
     +     .03701,    .02631,   4.86050,    .47559,    .09385,
     +     .00000,    .31987,    .48048,
     +     .03825,    .02691,   5.91403,    .50980,    .12960,
     +     .00000,    .35528,    .51479,
     +     .03943,    .02748,   7.00534,    .54509,    .16741,
     +     .00000,    .39170,    .55019,
     +     .04068,    .02809,   8.24377,    .58524,    .21049,
     +     .00000,    .43300,    .59044 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04177,    .02861,   9.35754,    .62239,    .24888,
     +     .00000,    .47114,    .62769,
     +     .04281,    .02912,  10.47727,    .66011,    .28772,
     +     .00000,    .50978,    .66550,
     +     .04364,    .02952,  11.40805,    .69134,    .32024,
     +     .00000,    .54173,    .69680,
     +     .04539,    .03037,  13.41586,    .76161,    .39178,
     +     .00832,    .61348,    .76722,
     +     .04690,    .03110,  15.16679,    .82574,    .45614,
     +     .10476,    .67886,    .83149,
     +     .04859,    .03191,  17.20398,    .90162,    .53204,
     +     .21272,    .75608,    .90751,
     +     .05034,    .03276,  19.40104,    .98474,    .61480,
     +     .31120,    .84056,    .99078,
     +     .05192,    .03353,  21.44903,   1.06362,    .69313,
     +     .40087,    .92063,   1.06980 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05352,    .03430,  23.56273,   1.14651,    .77542,
     +     .49192,   1.00469,   1.15283,
     +     .05484,    .03494,  25.33495,   1.21751,    .84565,
     +     .56717,   1.07664,   1.22394,
     +     .05644,    .03572,  27.49710,   1.30603,    .93308,
     +     .65930,   1.16627,   1.31260,
     +     .05785,    .03640,  29.43495,   1.38675,   1.01304,
     +     .74325,   1.24796,   1.39345,
     +     .05914,    .03703,  31.22861,   1.46270,   1.08844,
     +     .82197,   1.32479,   1.46951,
     +     .06077,    .03782,  33.48008,   1.56071,   1.18534,
     +     .92176,   1.42386,   1.56766,
     +     .06231,    .03856,  35.60687,   1.65515,   1.27900,
     +    1.01824,   1.51929,   1.66223,
     +     .06374,    .03926,  37.61542,   1.74584,   1.36928,
     +    1.11143,   1.61089,   1.75305 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06517,    .03995,  39.57437,   1.83707,   1.45967,
     +    1.20370,   1.70301,   1.84441,
     +     .06657,    .04063,  41.49950,   1.92816,   1.55027,
     +    1.29654,   1.79495,   1.93562,
     +     .06790,    .04127,  43.31460,   2.01569,   1.63743,
     +    1.38584,   1.88327,   2.02326,
     +     .06914,    .04187,  44.98993,   2.09850,   1.71977,
     +    1.46984,   1.96681,   2.10618,
     +     .07039,    .04248,  46.68798,   2.18337,   1.80450,
     +    1.55664,   2.05241,   2.19117,
     +     .07162,    .04307,  48.30399,   2.26651,   1.88721,
     +    1.64085,   2.13624,   2.27441,
     +     .07279,    .04363,  49.86068,   2.34723,   1.96790,
     +    1.72343,   2.21763,   2.35524,
     +     .07389,    .04417,  51.28020,   2.42299,   2.04335,
     +    1.80020,   2.29399,   2.43109 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07500,    .04470,  52.72455,   2.50073,   2.12107,
     +    1.87957,   2.37235,   2.50893,
     +     .07609,    .04523,  54.11400,   2.57724,   2.19746,
     +    1.95738,   2.44946,   2.58554,
     +     .07714,    .04574,  55.42947,   2.65076,   2.27095,
     +    2.03227,   2.52354,   2.65915,
     +     .07813,    .04622,  56.67415,   2.72117,   2.34145,
     +    2.10421,   2.59447,   2.72964,
     +     .07913,    .04670,  57.88851,   2.79165,   2.41185,
     +    2.17577,   2.66548,   2.80022 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03612,    .02578,    .81042,    .33038,    .00000,
     +     .00000,    .17891,    .33532,
     +     .03760,    .02649,   1.48918,    .34986,    .00000,
     +     .00000,    .19976,    .35495,
     +     .03977,    .02753,   2.62189,    .38397,    .01641,
     +     .00000,    .23579,    .38926,
     +     .04134,    .02828,   3.55588,    .41237,    .05261,
     +     .00000,    .26554,    .41781,
     +     .04299,    .02907,   4.60887,    .44574,    .08792,
     +     .00000,    .30028,    .45133,
     +     .04440,    .02975,   5.57439,    .47713,    .12094,
     +     .00000,    .33282,    .48286,
     +     .04574,    .03040,   6.56752,    .50937,    .15566,
     +     .00000,    .36611,    .51522,
     +     .04717,    .03109,   7.68694,    .54586,    .19499,
     +     .00000,    .40371,    .55185 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04841,    .03168,   8.68701,    .57947,    .22986,
     +     .00000,    .43824,    .58557,
     +     .04959,    .03226,   9.68689,    .61344,    .26498,
     +     .00000,    .47309,    .61966,
     +     .05053,    .03271,  10.51439,    .64149,    .29429,
     +     .00000,    .50183,    .64780,
     +     .05253,    .03367,  12.28661,    .70429,    .35843,
     +     .00759,    .56604,    .71079,
     +     .05424,    .03450,  13.81793,    .76128,    .41580,
     +     .09408,    .62421,    .76793,
     +     .05615,    .03542,  15.58688,    .82835,    .48309,
     +     .19049,    .69256,    .83519,
     +     .05813,    .03638,  17.48065,    .90143,    .55605,
     +     .27775,    .76693,    .90845,
     +     .05992,    .03725,  19.23361,    .97042,    .62475,
     +     .35676,    .83706,    .97761 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06172,    .03812,  21.03124,   1.04258,    .69658,
     +     .43656,    .91034,   1.04994,
     +     .06320,    .03884,  22.52947,   1.10413,    .75763,
     +     .50219,    .97279,   1.11163,
     +     .06500,    .03971,  24.34665,   1.18054,    .83329,
     +     .58221,   1.05027,   1.18820,
     +     .06659,    .04047,  25.96624,   1.24994,    .90223,
     +     .65481,   1.12059,   1.25775,
     +     .06804,    .04118,  27.45792,   1.31500,    .96699,
     +     .72265,   1.18649,   1.32296,
     +     .06987,    .04206,  29.31918,   1.39861,   1.04988,
     +     .80827,   1.27113,   1.40674,
     +     .07159,    .04290,  31.06750,   1.47887,   1.12968,
     +     .89073,   1.35232,   1.48715,
     +     .07320,    .04367,  32.71043,   1.55565,   1.20633,
     +     .97008,   1.42998,   1.56409 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07480,    .04445,  34.30303,   1.63260,   1.28276,
     +    1.04834,   1.50777,   1.64118,
     +     .07637,    .04520,  35.86103,   1.70916,   1.35912,
     +    1.12682,   1.58515,   1.71789,
     +     .07784,    .04592,  37.32309,   1.78250,   1.43235,
     +    1.20208,   1.65925,   1.79136,
     +     .07923,    .04659,  38.66558,   1.85165,   1.50129,
     +    1.27262,   1.72910,   1.86065,
     +     .08063,    .04726,  40.02157,   1.92234,   1.57207,
     +    1.34534,   1.80049,   1.93147,
     +     .08199,    .04792,  41.30480,   1.99135,   1.64090,
     +    1.41563,   1.87017,   2.00060,
     +     .08329,    .04855,  42.53736,   2.05821,   1.70792,
     +    1.48443,   1.93766,   2.06758,
     +     .08451,    .04914,  43.65517,   2.12074,   1.77038,
     +    1.54817,   2.00079,   2.13023 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08575,    .04973,  44.78945,   2.18479,   1.83460,
     +    1.61394,   2.06543,   2.19439,
     +     .08696,    .05032,  45.87542,   2.24765,   1.89753,
     +    1.67824,   2.12885,   2.25736,
     +     .08812,    .05088,  46.90002,   2.30791,   1.95793,
     +    1.73997,   2.18966,   2.31773,
     +     .08922,    .05141,  47.86650,   2.36550,   2.01576,
     +    1.79917,   2.24775,   2.37542,
     +     .09033,    .05194,  48.80461,   2.42299,   2.07335,
     +    1.85788,   2.30575,   2.43302 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04072,    .02792,    .81565,    .31464,    .00000,
     +     .00000,    .17064,    .31990,
     +     .04236,    .02871,   1.47099,    .33334,    .00000,
     +     .00000,    .19062,    .33875,
     +     .04476,    .02986,   2.55299,    .36579,    .01568,
     +     .00000,    .22489,    .37142,
     +     .04650,    .03070,   3.43621,    .39260,    .05016,
     +     .00000,    .25298,    .39841,
     +     .04831,    .03158,   4.42385,    .42392,    .08348,
     +     .00000,    .28558,    .42989,
     +     .04987,    .03234,   5.32298,    .45321,    .11446,
     +     .00000,    .31595,    .45934,
     +     .05136,    .03306,   6.24241,    .48317,    .14688,
     +     .00000,    .34691,    .48943,
     +     .05293,    .03382,   7.27292,    .51696,    .18344,
     +     .00000,    .38174,    .52337 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05429,    .03448,   8.18851,    .54794,    .21569,
     +     .00000,    .41360,    .55449,
     +     .05560,    .03511,   9.09972,    .57917,    .24807,
     +     .00000,    .44565,    .58584,
     +     .05663,    .03561,   9.85107,    .60489,    .27501,
     +     .00000,    .47202,    .61165,
     +     .05882,    .03668,  11.45046,    .66223,    .33372,
     +     .00706,    .53069,    .66920,
     +     .06070,    .03759,  12.82175,    .71402,    .38598,
     +     .08624,    .58360,    .72117,
     +     .06280,    .03860,  14.39635,    .77472,    .44700,
     +     .17420,    .64550,    .78207,
     +     .06497,    .03966,  16.07180,    .84055,    .51286,
     +     .25329,    .71256,    .84811,
     +     .06692,    .04061,  17.61359,    .90244,    .57460,
     +     .32456,    .77552,    .91018 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06889,    .04156,  19.18614,    .96692,    .63892,
     +     .39623,    .84106,    .97486,
     +     .07052,    .04235,  20.49016,   1.02172,    .69337,
     +     .45495,    .89672,   1.02981,
     +     .07248,    .04331,  22.06402,   1.08952,    .76064,
     +     .52627,    .96553,   1.09779,
     +     .07421,    .04415,  23.46020,   1.15089,    .82171,
     +     .59077,   1.02777,   1.15933,
     +     .07579,    .04491,  24.74079,   1.20826,    .87893,
     +     .65086,   1.08593,   1.21685,
     +     .07779,    .04588,  26.33048,   1.28173,    .95190,
     +     .72641,   1.16037,   1.29050,
     +     .07966,    .04679,  27.81655,   1.35201,   1.02192,
     +     .79894,   1.23155,   1.36096,
     +     .08141,    .04764,  29.20715,   1.41905,   1.08898,
     +     .86855,   1.29942,   1.42817 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08314,    .04848,  30.54824,   1.48601,   1.15563,
     +     .93694,   1.36717,   1.49529,
     +     .08483,    .04930,  31.85506,   1.55245,   1.22203,
     +    1.00537,   1.43439,   1.56189,
     +     .08644,    .05008,  33.07652,   1.61592,   1.28555,
     +    1.07080,   1.49858,   1.62552,
     +     .08794,    .05080,  34.19300,   1.67560,   1.34517,
     +    1.13195,   1.55893,   1.68534,
     +     .08945,    .05153,  35.31734,   1.73648,   1.40626,
     +    1.19488,   1.62048,   1.74637,
     +     .09092,    .05225,  36.37597,   1.79574,   1.46550,
     +    1.25552,   1.68037,   1.80576,
     +     .09232,    .05292,  37.39030,   1.85304,   1.52307,
     +    1.31477,   1.73828,   1.86319,
     +     .09364,    .05356,  38.30572,   1.90650,   1.57659,
     +    1.36951,   1.79230,   1.91678 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09497,    .05421,  39.23249,   1.96116,   1.63151,
     +    1.42591,   1.84752,   1.97156,
     +     .09628,    .05484,  40.11618,   2.01467,   1.68521,
     +    1.48091,   1.90157,   2.02519,
     +     .09753,    .05544,  40.94746,   2.06587,   1.73666,
     +    1.53363,   1.95329,   2.07651,
     +     .09871,    .05601,  41.72955,   2.11471,   1.78583,
     +    1.58410,   2.00262,   2.12547,
     +     .09990,    .05658,  42.48520,   2.16336,   1.83468,
     +    1.63402,   2.05175,   2.17423 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05891,    .03627,    .85963,    .27051,    .00000,
     +     .00000,    .14779,    .27748,
     +     .06115,    .03737,   1.44612,    .28689,    .00000,
     +     .00000,    .16527,    .29410,
     +     .06443,    .03898,   2.37780,    .31449,    .01362,
     +     .00000,    .19443,    .32204,
     +     .06680,    .04015,   3.11246,    .33678,    .04323,
     +     .00000,    .21781,    .34456,
     +     .06927,    .04136,   3.91226,    .36225,    .07095,
     +     .00000,    .24439,    .37028,
     +     .07137,    .04240,   4.62308,    .38565,    .09621,
     +     .00000,    .26871,    .39390,
     +     .07338,    .04339,   5.33575,    .40926,    .12223,
     +     .00000,    .29319,    .41771,
     +     .07550,    .04443,   6.11957,    .43555,    .15111,
     +     .00000,    .32038,    .44422 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07732,    .04533,   6.80329,    .45933,    .17619,
     +     .00000,    .34492,    .46818,
     +     .07906,    .04619,   7.47328,    .48303,    .20107,
     +     .00000,    .36933,    .49206,
     +     .08045,    .04687,   8.01898,    .50240,    .22158,
     +     .00000,    .38925,    .51157,
     +     .08336,    .04831,   9.15690,    .54500,    .26565,
     +     .00557,    .43301,    .55446,
     +     .08585,    .04954,  10.10672,    .58287,    .30422,
     +     .06515,    .47184,    .59258,
     +     .08862,    .05090,  11.17547,    .62662,    .34860,
     +     .13056,    .51665,    .63661,
     +     .09147,    .05230,  12.28930,    .67336,    .39576,
     +     .18812,    .56445,    .68364,
     +     .09404,    .05357,  13.29401,    .71668,    .43935,
     +     .23916,    .60870,    .72721 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09661,    .05483,  14.30012,    .76123,    .48416,
     +     .28975,    .65418,    .77202,
     +     .09872,    .05587,  15.12008,    .79864,    .52165,
     +     .33066,    .69234,    .80964,
     +     .10127,    .05712,  16.09291,    .84439,    .56741,
     +     .37974,    .73896,    .85564,
     +     .10350,    .05821,  16.94196,    .88533,    .60851,
     +     .42363,    .78067,    .89680,
     +     .10554,    .05921,  17.70952,    .92323,    .64664,
     +     .46412,    .81927,    .93490,
     +     .10810,    .06047,  18.64526,    .97119,    .69470,
     +     .51442,    .86808,    .98311,
     +     .11049,    .06164,  19.50544,   1.01656,    .74032,
     +     .56218,    .91424,   1.02872,
     +     .11272,    .06273,  20.29860,   1.05942,    .78358,
     +     .60758,    .95783,   1.07180 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11492,    .06380,  21.04888,   1.10172,    .82608,
     +     .65167,   1.00084,   1.11431,
     +     .11707,    .06485,  21.76998,   1.14333,    .86806,
     +     .69540,   1.04313,   1.15612,
     +     .11909,    .06584,  22.43427,   1.18270,    .90786,
     +     .73685,   1.08315,   1.19570,
     +     .12098,    .06676,  23.03131,   1.21937,    .94485,
     +     .77522,   1.12041,   1.23255,
     +     .12287,    .06768,  23.62634,   1.25652,    .98250,
     +     .81445,   1.15814,   1.26987,
     +     .12471,    .06857,  24.17598,   1.29230,   1.01865,
     +     .85186,   1.19449,   1.30583,
     +     .12647,    .06942,  24.69825,   1.32670,   1.05358,
     +     .88823,   1.22943,   1.34040,
     +     .12810,    .07022,  25.16052,   1.35848,   1.08573,
     +     .92150,   1.26170,   1.37233 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12976,    .07102,  25.62478,   1.39079,   1.11856,
     +     .95560,   1.29452,   1.40481,
     +     .13137,    .07180,  26.06013,   1.42216,   1.15039,
     +     .98859,   1.32637,   1.43633,
     +     .13291,    .07255,  26.46490,   1.45198,   1.18069,
     +    1.02001,   1.35665,   1.46629,
     +     .13437,    .07325,  26.84194,   1.48026,   1.20950,
     +    1.04993,   1.38537,   1.49471,
     +     .13583,    .07396,  27.19921,   1.50819,   1.23787,
     +    1.07928,   1.41373,   1.52277 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .08504,    .04874,    .98296,    .23429,    .00000,
     +     .00000,    .12904,    .24370,
     +     .08809,    .05028,   1.50011,    .24856,    .00000,
     +     .00000,    .14425,    .25831,
     +     .09251,    .05252,   2.28230,    .27174,    .01185,
     +     .00000,    .16876,    .28197,
     +     .09568,    .05413,   2.87449,    .28994,    .03723,
     +     .00000,    .18791,    .30051,
     +     .09898,    .05580,   3.50104,    .31025,    .06008,
     +     .00000,    .20918,    .32118,
     +     .10177,    .05721,   4.04271,    .32852,    .08039,
     +     .00000,    .22824,    .33975,
     +     .10443,    .05855,   4.57348,    .34667,    .10092,
     +     .00000,    .24715,    .35818,
     +     .10723,    .05996,   5.14469,    .36658,    .12327,
     +     .00000,    .26784,    .37839 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10962,    .06117,   5.63256,    .38430,    .14233,
     +     .00000,    .28621,    .39637,
     +     .11191,    .06232,   6.10205,    .40174,    .16097,
     +     .00000,    .30427,    .41404,
     +     .11372,    .06323,   6.47897,    .41585,    .17616,
     +     .00000,    .31887,    .42835,
     +     .11752,    .06514,   7.24576,    .44641,    .20826,
     +     .00431,    .35044,    .45930,
     +     .12074,    .06675,   7.86471,    .47308,    .23581,
     +     .04803,    .37796,    .48630,
     +     .12431,    .06854,   8.54452,    .50337,    .26698,
     +     .09537,    .40918,    .51697,
     +     .12797,    .07036,   9.23573,    .53517,    .29950,
     +     .13599,    .44192,    .54914,
     +     .13124,    .07199,   9.84434,    .56415,    .32905,
     +     .17135,    .47173,    .57846 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13451,    .07362,  10.44025,    .59351,    .35899,
     +     .20582,    .50191,    .60815,
     +     .13718,    .07494,  10.91552,    .61781,    .38368,
     +     .23327,    .52687,    .63272,
     +     .14038,    .07653,  11.46728,    .64711,    .41342,
     +     .26575,    .55697,    .66234,
     +     .14318,    .07791,  11.93902,    .67299,    .43978,
     +     .29442,    .58354,    .68851,
     +     .14572,    .07917,  12.35769,    .69668,    .46396,
     +     .32057,    .60785,    .71244,
     +     .14890,    .08073,  12.85584,    .72623,    .49403,
     +     .35260,    .63817,    .74231,
     +     .15185,    .08218,  13.30391,    .75381,    .52220,
     +     .38265,    .66647,    .77018,
     +     .15460,    .08352,  13.70926,    .77956,    .54862,
     +     .41090,    .69288,    .79620 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15729,    .08484,  14.08188,    .80461,    .57423,
     +     .43795,    .71858,    .82151,
     +     .15990,    .08612,  14.43332,    .82899,    .59926,
     +     .46453,    .74357,    .84614,
     +     .16236,    .08731,  14.75048,    .85180,    .62274,
     +     .48946,    .76697,    .86919,
     +     .16464,    .08842,  15.02843,    .87279,    .64431,
     +     .51228,    .78850,    .89039,
     +     .16691,    .08952,  15.30161,    .89388,    .66610,
     +     .53544,    .81014,    .91170,
     +     .16912,    .09059,  15.54611,    .91393,    .68676,
     +     .55726,    .83071,    .93196,
     +     .17121,    .09160,  15.77591,    .93307,    .70660,
     +     .57835,    .85035,    .95130,
     +     .17316,    .09254,  15.97261,    .95054,    .72465,
     +     .59741,    .86827,    .96894 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17512,    .09348,  16.16796,    .96818,    .74296,
     +     .61685,    .88638,    .98677,
     +     .17703,    .09439,  16.34581,    .98512,    .76054,
     +     .63546,    .90376,   1.00388,
     +     .17884,    .09526,  16.50793,   1.00108,    .77715,
     +     .65306,    .92016,   1.02001,
     +     .18055,    .09608,  16.65647,   1.01612,    .79283,
     +     .66971,    .93560,   1.03520,
     +     .18225,    .09689,  16.79183,   1.03080,    .80811,
     +     .68588,    .95068,   1.05004 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .10537,    .05894,   1.10678,    .21655,    .00000,
     +     .00000,    .12001,    .22810,
     +     .10899,    .06080,   1.57450,    .22957,    .00000,
     +     .00000,    .13392,    .24153,
     +     .11421,    .06349,   2.26514,    .25025,    .01089,
     +     .00000,    .15584,    .26279,
     +     .11796,    .06541,   2.77414,    .26619,    .03394,
     +     .00000,    .17267,    .27915,
     +     .12182,    .06739,   3.30290,    .28369,    .05417,
     +     .00000,    .19107,    .29708,
     +     .12509,    .06906,   3.75203,    .29922,    .07185,
     +     .00000,    .20735,    .31296,
     +     .12819,    .07064,   4.18545,    .31449,    .08948,
     +     .00000,    .22332,    .32856,
     +     .13145,    .07230,   4.64521,    .33107,    .10844,
     +     .00000,    .24064,    .34549 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13423,    .07371,   5.03258,    .34566,    .12440,
     +     .00000,    .25585,    .36038,
     +     .13688,    .07505,   5.40094,    .35990,    .13986,
     +     .00000,    .27068,    .37490,
     +     .13897,    .07611,   5.69386,    .37134,    .15237,
     +     .00000,    .28259,    .38657,
     +     .14334,    .07832,   6.27924,    .39588,    .17851,
     +     .00366,    .30809,    .41157,
     +     .14704,    .08018,   6.74021,    .41702,    .20065,
     +     .03954,    .33004,    .43310,
     +     .15111,    .08223,   7.23820,    .44077,    .22541,
     +     .07804,    .35468,    .45727,
     +     .15528,    .08431,   7.73594,    .46540,    .25093,
     +     .11054,    .38020,    .48232,
     +     .15899,    .08616,   8.16669,    .48759,    .27388,
     +     .13848,    .40320,    .50489 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16268,    .08799,   8.58177,    .50984,    .29688,
     +     .16543,    .42624,    .52751,
     +     .16569,    .08948,   8.90772,    .52807,    .31567,
     +     .18667,    .44512,    .54605,
     +     .16928,    .09126,   9.27982,    .54986,    .33810,
     +     .21158,    .46766,    .56819,
     +     .17241,    .09280,   9.59302,    .56892,    .35782,
     +     .23338,    .48740,    .58757,
     +     .17525,    .09419,   9.86709,    .58623,    .37577,
     +     .25311,    .50531,    .60515,
     +     .17878,    .09591,  10.18703,    .60761,    .39788,
     +     .27707,    .52744,    .62687,
     +     .18204,    .09750,  10.46949,    .62738,    .41842,
     +     .29936,    .54791,    .64696,
     +     .18507,    .09897,  10.72083,    .64569,    .43755,
     +     .32016,    .56686,    .66555 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18803,    .10040,  10.94649,    .66332,    .45590,
     +     .33990,    .58512,    .68346,
     +     .19089,    .10179,  11.15599,    .68034,    .47372,
     +     .35917,    .60275,    .70075,
     +     .19357,    .10307,  11.34167,    .69615,    .49031,
     +     .37712,    .61914,    .71680,
     +     .19604,    .10426,  11.50019,    .71056,    .50545,
     +     .39343,    .63408,    .73144,
     +     .19852,    .10545,  11.65401,    .72495,    .52064,
     +     .40990,    .64901,    .74606,
     +     .20090,    .10658,  11.78719,    .73850,    .53493,
     +     .42529,    .66307,    .75983,
     +     .20315,    .10765,  11.91121,    .75138,    .54859,
     +     .44010,    .67644,    .77291,
     +     .20524,    .10864,  12.01340,    .76301,    .56091,
     +     .45339,    .68852,    .78472 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20735,    .10963,  12.11386,    .77470,    .57336,
     +     .46688,    .70067,    .79660,
     +     .20938,    .11059,  12.20195,    .78584,    .58522,
     +     .47972,    .71225,    .80791,
     +     .21131,    .11150,  12.28030,    .79628,    .59637,
     +     .49179,    .72311,    .81852,
     +     .21313,    .11235,  12.35067,    .80605,    .60685,
     +     .50317,    .73329,    .82845,
     +     .21493,    .11319,  12.41129,    .81550,    .61697,
     +     .51414,    .74313,    .83806 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12271,    .06802,   1.21885,    .20554,    .00000,
     +     .00000,    .11449,    .21904,
     +     .12678,    .07013,   1.64826,    .21764,    .00000,
     +     .00000,    .12743,    .23160,
     +     .13263,    .07317,   2.26975,    .23651,    .01020,
     +     .00000,    .14751,    .25114,
     +     .13681,    .07532,   2.71833,    .25086,    .03161,
     +     .00000,    .16272,    .26596,
     +     .14112,    .07754,   3.17806,    .26642,    .05002,
     +     .00000,    .17916,    .28199,
     +     .14475,    .07940,   3.56332,    .28008,    .06591,
     +     .00000,    .19354,    .29604,
     +     .14819,    .08116,   3.93077,    .29339,    .08159,
     +     .00000,    .20754,    .30973,
     +     .15179,    .08299,   4.31626,    .30773,    .09828,
     +     .00000,    .22261,    .32447 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15486,    .08455,   4.63761,    .32025,    .11220,
     +     .00000,    .23574,    .33731,
     +     .15778,    .08603,   4.94031,    .33239,    .12558,
     +     .00000,    .24845,    .34976,
     +     .16007,    .08719,   5.17923,    .34209,    .13635,
     +     .00000,    .25861,    .35971,
     +     .16487,    .08961,   5.64973,    .36272,    .15864,
     +     .00323,    .28019,    .38084,
     +     .16891,    .09164,   6.01248,    .38033,    .17734,
     +     .03408,    .29859,    .39886,
     +     .17335,    .09386,   6.39905,    .39992,    .19806,
     +     .06695,    .31907,    .41891,
     +     .17787,    .09611,   6.78008,    .42005,    .21923,
     +     .09437,    .34008,    .43950,
     +     .18189,    .09810,   7.10511,    .43802,    .23809,
     +     .11771,    .35885,    .45787 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18587,    .10006,   7.41405,    .45590,    .25685,
     +     .14004,    .37751,    .47614,
     +     .18911,    .10165,   7.65332,    .47043,    .27206,
     +     .15751,    .39268,    .49099,
     +     .19295,    .10353,   7.92248,    .48766,    .29009,
     +     .17785,    .41067,    .50859,
     +     .19630,    .10516,   8.14590,    .50263,    .30584,
     +     .19554,    .42631,    .52388,
     +     .19932,    .10663,   8.33888,    .51613,    .32009,
     +     .21146,    .44042,    .53766,
     +     .20307,    .10843,   8.55993,    .53266,    .33751,
     +     .23064,    .45770,    .55455,
     +     .20653,    .11010,   8.75173,    .54784,    .35359,
     +     .24838,    .47358,    .57005,
     +     .20972,    .11163,   8.91981,    .56180,    .36847,
     +     .26485,    .48818,    .58430 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21284,    .11311,   9.06677,    .57512,    .38264,
     +     .28036,    .50214,    .59790,
     +     .21584,    .11453,   9.20094,    .58790,    .39633,
     +     .29542,    .51553,    .61095,
     +     .21864,    .11586,   9.31746,    .59970,    .40900,
     +     .30939,    .52791,    .62300,
     +     .22122,    .11707,   9.41402,    .61037,    .42048,
     +     .32200,    .53911,    .63389,
     +     .22379,    .11828,   9.50644,    .62097,    .43196,
     +     .33468,    .55025,    .64471,
     +     .22626,    .11943,   9.58303,    .63086,    .44268,
     +     .34646,    .56065,    .65482,
     +     .22860,    .12051,   9.65363,    .64023,    .45289,
     +     .35776,    .57051,    .66438,
     +     .23075,    .12151,   9.70861,    .64861,    .46203,
     +     .36783,    .57935,    .67294 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23291,    .12251,   9.76195,    .65700,    .47125,
     +     .37803,    .58820,    .68151,
     +     .23501,    .12347,   9.80603,    .66493,    .47997,
     +     .38768,    .59658,    .68961,
     +     .23698,    .12437,   9.84371,    .67233,    .48813,
     +     .39672,    .60440,    .69717,
     +     .23883,    .12522,   9.87639,    .67922,    .49577,
     +     .40521,    .61170,    .70421,
     +     .24067,    .12605,   9.90143,    .68582,    .50310,
     +     .41334,    .61870,    .71095 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13817,    .07638,   1.31755,    .19778,    .00000,
     +     .00000,    .11067,    .21315,
     +     .14260,    .07869,   1.71425,    .20911,    .00000,
     +     .00000,    .12283,    .22498,
     +     .14898,    .08199,   2.27905,    .22654,    .00964,
     +     .00000,    .14145,    .24313,
     +     .15352,    .08433,   2.67966,    .23963,    .02974,
     +     .00000,    .15540,    .25674,
     +     .15818,    .08673,   3.08579,    .25369,    .04674,
     +     .00000,    .17033,    .27131,
     +     .16211,    .08874,   3.42236,    .26591,    .06126,
     +     .00000,    .18327,    .28395,
     +     .16582,    .09063,   3.74027,    .27775,    .07547,
     +     .00000,    .19580,    .29619,
     +     .16969,    .09260,   4.07074,    .29042,    .09047,
     +     .00000,    .20919,    .30928 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17298,    .09426,   4.34383,    .30140,    .10288,
     +     .00000,    .22078,    .32060,
     +     .17611,    .09584,   4.59897,    .31198,    .11474,
     +     .00000,    .23194,    .33151,
     +     .17857,    .09708,   4.79906,    .32041,    .12424,
     +     .00000,    .24083,    .34020,
     +     .18369,    .09964,   5.18803,    .33820,    .14376,
     +     .00291,    .25957,    .35852,
     +     .18799,    .10178,   5.48208,    .35325,    .16000,
     +     .03013,    .27542,    .37401,
     +     .19270,    .10412,   5.79172,    .36989,    .17786,
     +     .05898,    .29294,    .39111,
     +     .19749,    .10647,   6.09326,    .38683,    .19596,
     +     .08280,    .31078,    .40853,
     +     .20173,    .10855,   6.34708,    .40185,    .21197,
     +     .10293,    .32660,    .42396 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20591,    .11059,   6.58520,    .41668,    .22780,
     +     .12206,    .34222,    .43919,
     +     .20931,    .11224,   6.76723,    .42865,    .24056,
     +     .13693,    .35484,    .45149,
     +     .21333,    .11418,   6.96926,    .44275,    .25559,
     +     .15414,    .36971,    .46595,
     +     .21682,    .11585,   7.13467,    .45492,    .26865,
     +     .16903,    .38256,    .47845,
     +     .21996,    .11736,   7.27565,    .46583,    .28040,
     +     .18237,    .39408,    .48965,
     +     .22385,    .11920,   7.43386,    .47910,    .29468,
     +     .19835,    .40811,    .50326,
     +     .22742,    .12089,   7.56864,    .49120,    .30779,
     +     .21305,    .42091,    .51567,
     +     .23072,    .12244,   7.68479,    .50226,    .31986,
     +     .22663,    .43263,    .52702 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23392,    .12393,   7.78334,    .51273,    .33128,
     +     .23935,    .44374,    .53777,
     +     .23700,    .12536,   7.87144,    .52272,    .34226,
     +     .25165,    .45435,    .54802,
     +     .23986,    .12668,   7.94593,    .53188,    .35238,
     +     .26300,    .46410,    .55741,
     +     .24249,    .12789,   8.00525,    .54010,    .36149,
     +     .27320,    .47286,    .56585,
     +     .24511,    .12909,   8.06101,    .54824,    .37057,
     +     .28343,    .48154,    .57420,
     +     .24761,    .13022,   8.10433,    .55577,    .37899,
     +     .29288,    .48960,    .58193,
     +     .24998,    .13129,   8.14370,    .56288,    .38700,
     +     .30192,    .49720,    .58922,
     +     .25215,    .13227,   8.17138,    .56917,    .39412,
     +     .30993,    .50396,    .59568 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25432,    .13325,   8.19759,    .57546,    .40127,
     +     .31803,    .51071,    .60214,
     +     .25642,    .13418,   8.21665,    .58135,    .40801,
     +     .32565,    .51706,    .60819,
     +     .25840,    .13506,   8.23137,    .58681,    .41428,
     +     .33276,    .52296,    .61380,
     +     .26026,    .13589,   8.24294,    .59189,    .42014,
     +     .33943,    .52844,    .61901,
     +     .26208,    .13669,   8.24835,    .59669,    .42572,
     +     .34578,    .53365,    .62394 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .16545,    .09161,   1.47854,    .18716,    .00000,
     +     .00000,    .10557,    .20607,
     +     .17048,    .09422,   1.81978,    .19720,    .00000,
     +     .00000,    .11646,    .21667,
     +     .17767,    .09791,   2.29300,    .21231,    .00872,
     +     .00000,    .13279,    .23258,
     +     .18277,    .10052,   2.61914,    .22345,    .02671,
     +     .00000,    .14479,    .24428,
     +     .18798,    .10316,   2.94416,    .23522,    .04156,
     +     .00000,    .15745,    .25660,
     +     .19235,    .10537,   3.20871,    .24530,    .05402,
     +     .00000,    .16827,    .26713,
     +     .19646,    .10743,   3.45467,    .25495,    .06606,
     +     .00000,    .17863,    .27721,
     +     .20074,    .10957,   3.70653,    .26517,    .07861,
     +     .00000,    .18959,    .28788 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20437,    .11137,   3.91152,    .27393,    .08886,
     +     .00000,    .19897,    .29700,
     +     .20780,    .11307,   4.10051,    .28229,    .09857,
     +     .00000,    .20793,    .30570,
     +     .21048,    .11439,   4.24717,    .28890,    .10628,
     +     .00000,    .21502,    .31258,
     +     .21605,    .11712,   4.52552,    .30271,    .12195,
     +     .00245,    .22980,    .32693,
     +     .22071,    .11939,   4.72808,    .31421,    .13481,
     +     .02461,    .24214,    .33888,
     +     .22579,    .12184,   4.93661,    .32677,    .14878,
     +     .04791,    .25561,    .35192,
     +     .23092,    .12429,   5.13527,    .33939,    .16278,
     +     .06685,    .26916,    .36501,
     +     .23543,    .12644,   5.29845,    .35043,    .17501,
     +     .08267,    .28103,    .37645 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23987,    .12853,   5.44772,    .36119,    .18698,
     +     .09754,    .29261,    .38760,
     +     .24344,    .13021,   5.55884,    .36978,    .19653,
     +     .10898,    .30187,    .39650,
     +     .24766,    .13217,   5.67836,    .37977,    .20767,
     +     .12211,    .31266,    .40684,
     +     .25130,    .13385,   5.77330,    .38830,    .21726,
     +     .13337,    .32189,    .41568,
     +     .25457,    .13535,   5.85190,    .39587,    .22582,
     +     .14338,    .33009,    .42351,
     +     .25858,    .13717,   5.93573,    .40495,    .23612,
     +     .15527,    .33997,    .43291,
     +     .26225,    .13883,   6.00388,    .41313,    .24548,
     +     .16611,    .34887,    .44137,
     +     .26562,    .14034,   6.06008,    .42053,    .25403,
     +     .17605,    .35695,    .44903 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26886,    .14178,   6.10321,    .42741,    .26204,
     +     .18527,    .36450,    .45615,
     +     .27197,    .14314,   6.13933,    .43391,    .26967,
     +     .19413,    .37165,    .46288,
     +     .27485,    .14440,   6.16713,    .43980,    .27664,
     +     .20225,    .37814,    .46898,
     +     .27747,    .14554,   6.18555,    .44500,    .28286,
     +     .20948,    .38391,    .47436,
     +     .28008,    .14666,   6.20137,    .45012,    .28903,
     +     .21670,    .38958,    .47965,
     +     .28254,    .14772,   6.20889,    .45476,    .29468,
     +     .22330,    .39477,    .48445,
     +     .28487,    .14871,   6.21486,    .45912,    .30002,
     +     .22959,    .39964,    .48896,
     +     .28699,    .14960,   6.21387,    .46290,    .30472,
     +     .23512,    .40390,    .49287 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28912,    .15049,   6.21180,    .46665,    .30942,
     +     .24068,    .40814,    .49675,
     +     .29115,    .15133,   6.20518,    .47009,    .31380,
     +     .24587,    .41205,    .50032,
     +     .29306,    .15212,   6.19664,    .47325,    .31785,
     +     .25069,    .41566,    .50359,
     +     .29484,    .15285,   6.18699,    .47615,    .32161,
     +     .25519,    .41898,    .50660,
     +     .29659,    .15356,   6.17299,    .47884,    .32515,
     +     .25943,    .42209,    .50939 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20085,    .11204,   1.64343,    .17688,    .00000,
     +     .00000,    .10084,    .20070,
     +     .20653,    .11490,   1.91739,    .18532,    .00000,
     +     .00000,    .11018,    .20974,
     +     .21457,    .11893,   2.28575,    .19772,    .00761,
     +     .00000,    .12387,    .22297,
     +     .22025,    .12174,   2.53085,    .20667,    .02314,
     +     .00000,    .13375,    .23249,
     +     .22601,    .12456,   2.77037,    .21595,    .03563,
     +     .00000,    .14396,    .24234,
     +     .23081,    .12691,   2.96122,    .22376,    .04591,
     +     .00000,    .15257,    .25060,
     +     .23531,    .12908,   3.13533,    .23114,    .05571,
     +     .00000,    .16071,    .25841,
     +     .23997,    .13132,   3.31039,    .23886,    .06579,
     +     .00000,    .16921,    .26656 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24389,    .13318,   3.45024,    .24538,    .07392,
     +     .00000,    .17640,    .27344,
     +     .24758,    .13493,   3.57698,    .25154,    .08152,
     +     .00000,    .18320,    .27992,
     +     .25047,    .13629,   3.67403,    .25637,    .08751,
     +     .00000,    .18853,    .28501,
     +     .25642,    .13907,   3.85166,    .26630,    .09953,
     +     .00200,    .19952,    .29545,
     +     .26135,    .14135,   3.97320,    .27445,    .10924,
     +     .01931,    .20854,    .30400,
     +     .26668,    .14379,   4.09438,    .28319,    .11966,
     +     .03737,    .21826,    .31318,
     +     .27203,    .14620,   4.20582,    .29182,    .12995,
     +     .05181,    .22788,    .32222,
     +     .27670,    .14829,   4.29357,    .29923,    .13882,
     +     .06371,    .23618,    .32999 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28125,    .15030,   4.37039,    .30635,    .14739,
     +     .07477,    .24417,    .33744,
     +     .28490,    .15190,   4.42457,    .31194,    .15416,
     +     .08319,    .25047,    .34328,
     +     .28917,    .15374,   4.47932,    .31832,    .16196,
     +     .09275,    .25770,    .34996,
     +     .29282,    .15530,   4.51993,    .32369,    .16860,
     +     .10088,    .26381,    .35556,
     +     .29608,    .15668,   4.55110,    .32839,    .17448,
     +     .10804,    .26918,    .36047,
     +     .30004,    .15833,   4.57951,    .33390,    .18145,
     +     .11645,    .27553,    .36622,
     +     .30363,    .15982,   4.59894,    .33877,    .18773,
     +     .12405,    .28117,    .37130,
     +     .30690,    .16116,   4.61201,    .34312,    .19340,
     +     .13096,    .28624,    .37583 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31003,    .16241,   4.61622,    .34704,    .19863,
     +     .13729,    .29086,    .37993,
     +     .31300,    .16359,   4.61646,    .35068,    .20357,
     +     .14333,    .29518,    .38372,
     +     .31573,    .16466,   4.61262,    .35392,    .20805,
     +     .14882,    .29906,    .38708,
     +     .31819,    .16561,   4.60405,    .35670,    .21198,
     +     .15366,    .30243,    .38998,
     +     .32062,    .16654,   4.59389,    .35940,    .21585,
     +     .15847,    .30571,    .39279,
     +     .32290,    .16739,   4.57866,    .36175,    .21934,
     +     .16281,    .30864,    .39524,
     +     .32504,    .16819,   4.56364,    .36394,    .22263,
     +     .16693,    .31137,    .39751,
     +     .32697,    .16889,   4.54534,    .36576,    .22547,
     +     .17050,    .31368,    .39939 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32889,    .16959,   4.52643,    .36754,    .22829,
     +     .17408,    .31596,    .40123,
     +     .33070,    .17023,   4.50502,    .36910,    .23089,
     +     .17739,    .31802,    .40286,
     +     .33240,    .17083,   4.48338,    .37050,    .23326,
     +     .18045,    .31988,    .40431,
     +     .33398,    .17138,   4.46204,    .37176,    .23545,
     +     .18328,    .32157,    .40561,
     +     .33550,    .17189,   4.43787,    .37284,    .23746,
     +     .18591,    .32309,    .40672 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25168,    .14181,   1.76739,    .16532,    .00000,
     +     .00000,    .09576,    .19646,
     +     .25800,    .14479,   1.95721,    .17159,    .00000,
     +     .00000,    .10305,    .20330,
     +     .26688,    .14891,   2.20185,    .18056,    .00617,
     +     .00000,    .11346,    .21301,
     +     .27306,    .15176,   2.35658,    .18686,    .01859,
     +     .00000,    .12079,    .21981,
     +     .27929,    .15457,   2.50400,    .19324,    .02832,
     +     .00000,    .12823,    .22667,
     +     .28443,    .15687,   2.61814,    .19850,    .03617,
     +     .00000,    .13438,    .23231,
     +     .28920,    .15898,   2.71960,    .20339,    .04355,
     +     .00000,    .14010,    .23754,
     +     .29411,    .16113,   2.81899,    .20841,    .05102,
     +     .00000,    .14600,    .24290 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29822,    .16289,   2.89609,    .21256,    .05694,
     +     .00000,    .15090,    .24734,
     +     .30205,    .16453,   2.96409,    .21643,    .06242,
     +     .00000,    .15548,    .25146,
     +     .30502,    .16579,   3.01514,    .21944,    .06670,
     +     .00000,    .15904,    .25465,
     +     .31109,    .16832,   3.10189,    .22550,    .07516,
     +     .00152,    .16625,    .26107,
     +     .31606,    .17035,   3.15299,    .23032,    .08187,
     +     .01399,    .17205,    .26617,
     +     .32136,    .17249,   3.20011,    .23538,    .08897,
     +     .02691,    .17817,    .27151,
     +     .32661,    .17457,   3.23973,    .24023,    .09585,
     +     .03705,    .18411,    .27662,
     +     .33114,    .17631,   3.26714,    .24428,    .10169,
     +     .04529,    .18912,    .28087 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33549,    .17796,   3.28744,    .24806,    .10725,
     +     .05284,    .19385,    .28482,
     +     .33893,    .17924,   3.29835,    .25094,    .11157,
     +     .05852,    .19750,    .28783,
     +     .34289,    .18068,   3.30487,    .25412,    .11649,
     +     .06489,    .20160,    .29115,
     +     .34625,    .18186,   3.30599,    .25672,    .12062,
     +     .07025,    .20499,    .29384,
     +     .34920,    .18289,   3.30350,    .25892,    .12423,
     +     .07492,    .20791,    .29611,
     +     .35273,    .18408,   3.29388,    .26138,    .12844,
     +     .08033,    .21127,    .29865,
     +     .35588,    .18511,   3.28076,    .26347,    .13217,
     +     .08516,    .21418,    .30078,
     +     .35872,    .18602,   3.26572,    .26526,    .13550,
     +     .08952,    .21672,    .30261 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36136,    .18682,   3.24583,    .26675,    .13850,
     +     .09344,    .21895,    .30411,
     +     .36384,    .18756,   3.22441,    .26807,    .14131,
     +     .09716,    .22098,    .30544,
     +     .36608,    .18820,   3.20208,    .26916,    .14381,
     +     .10050,    .22275,    .30653,
     +     .36807,    .18874,   3.17837,    .27002,    .14596,
     +     .10340,    .22422,    .30736,
     +     .37000,    .18926,   3.15399,    .27081,    .14806,
     +     .10626,    .22562,    .30812,
     +     .37176,    .18970,   3.12739,    .27138,    .14990,
     +     .10880,    .22678,    .30865,
     +     .37341,    .19010,   3.10216,    .27189,    .15163,
     +     .11120,    .22785,    .30913,
     +     .37485,    .19042,   3.07606,    .27220,    .15307,
     +     .11325,    .22868,    .30940 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37627,    .19072,   3.04978,    .27249,    .15450,
     +     .11529,    .22948,    .30963,
     +     .37758,    .19098,   3.02252,    .27264,    .15577,
     +     .11714,    .23014,    .30973,
     +     .37878,    .19121,   2.99609,    .27273,    .15692,
     +     .11884,    .23071,    .30976,
     +     .37988,    .19141,   2.97080,    .27277,    .15796,
     +     .12040,    .23119,    .30973,
     +     .38090,    .19156,   2.94399,    .27268,    .15888,
     +     .12182,    .23155,    .30958 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29658,    .16769,   1.76549,    .15608,    .00000,
     +     .00000,    .09181,    .19351,
     +     .30319,    .17054,   1.89580,    .16064,    .00000,
     +     .00000,    .09748,    .19849,
     +     .31238,    .17440,   2.05751,    .16701,    .00506,
     +     .00000,    .10545,    .20542,
     +     .31872,    .17701,   2.15481,    .17139,    .01517,
     +     .00000,    .11096,    .21017,
     +     .32502,    .17957,   2.24563,    .17575,    .02298,
     +     .00000,    .11648,    .21486,
     +     .33018,    .18162,   2.31402,    .17928,    .02920,
     +     .00000,    .12097,    .21863,
     +     .33493,    .18348,   2.37335,    .18251,    .03498,
     +     .00000,    .12511,    .22208,
     +     .33979,    .18534,   2.43000,    .18577,    .04079,
     +     .00000,    .12932,    .22555 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34379,    .18685,   2.47249,    .18844,    .04535,
     +     .00000,    .13279,    .22837,
     +     .34751,    .18822,   2.50878,    .19088,    .04953,
     +     .00000,    .13599,    .23094,
     +     .35039,    .18926,   2.53540,    .19275,    .05278,
     +     .00000,    .13846,    .23291,
     +     .35616,    .19132,   2.57557,    .19645,    .05914,
     +     .00121,    .14339,    .23676,
     +     .36083,    .19294,   2.59218,    .19932,    .06413,
     +     .01074,    .14729,    .23973,
     +     .36576,    .19458,   2.60410,    .20223,    .06934,
     +     .02057,    .15133,    .24273,
     +     .37054,    .19612,   2.61067,    .20492,    .07433,
     +     .02820,    .15517,    .24547,
     +     .37460,    .19737,   2.61117,    .20709,    .07852,
     +     .03434,    .15834,    .24765 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37845,    .19851,   2.60697,    .20903,    .08246,
     +     .03991,    .16127,    .24959,
     +     .38143,    .19936,   2.59976,    .21044,    .08549,
     +     .04406,    .16348,    .25096,
     +     .38482,    .20025,   2.58676,    .21191,    .08891,
     +     .04868,    .16591,    .25238,
     +     .38764,    .20096,   2.57242,    .21304,    .09174,
     +     .05253,    .16786,    .25345,
     +     .39009,    .20155,   2.55719,    .21393,    .09419,
     +     .05586,    .16951,    .25429,
     +     .39294,    .20216,   2.53388,    .21484,    .09701,
     +     .05968,    .17132,    .25508,
     +     .39543,    .20265,   2.50963,    .21551,    .09948,
     +     .06307,    .17284,    .25563,
     +     .39763,    .20305,   2.48545,    .21602,    .10166,
     +     .06609,    .17413,    .25602 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39960,    .20335,   2.45834,    .21632,    .10359,
     +     .06879,    .17518,    .25617,
     +     .40141,    .20359,   2.43088,    .21651,    .10536,
     +     .07132,    .17609,    .25622,
     +     .40301,    .20375,   2.40384,    .21658,    .10692,
     +     .07357,    .17684,    .25615,
     +     .40437,    .20384,   2.37688,    .21652,    .10824,
     +     .07551,    .17740,    .25594,
     +     .40569,    .20391,   2.34973,    .21641,    .10952,
     +     .07741,    .17790,    .25568,
     +     .40681,    .20390,   2.32142,    .21616,    .11061,
     +     .07907,    .17825,    .25527,
     +     .40784,    .20389,   2.29480,    .21591,    .11161,
     +     .08064,    .17854,    .25486,
     +     .40869,    .20381,   2.26844,    .21555,    .11243,
     +     .08195,    .17870,    .25434 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40952,    .20372,   2.24213,    .21517,    .11323,
     +     .08325,    .17883,    .25380,
     +     .41023,    .20359,   2.21544,    .21471,    .11392,
     +     .08442,    .17887,    .25316,
     +     .41086,    .20344,   2.18989,    .21422,    .11453,
     +     .08547,    .17885,    .25251,
     +     .41141,    .20328,   2.16568,    .21374,    .11507,
     +     .08643,    .17880,    .25187,
     +     .41188,    .20306,   2.14056,    .21316,    .11552,
     +     .08730,    .17867,    .25114 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .37575,    .21059,   1.56851,    .13937,    .00000,
     +     .00000,    .08455,    .18631,
     +     .38217,    .21269,   1.62973,    .14146,    .00000,
     +     .00000,    .08790,    .18849,
     +     .39083,    .21541,   1.70020,    .14432,    .00355,
     +     .00000,    .09252,    .19135,
     +     .39669,    .21717,   1.73799,    .14620,    .01059,
     +     .00000,    .09564,    .19320,
     +     .40240,    .21878,   1.77201,    .14800,    .01595,
     +     .00000,    .09870,    .19494,
     +     .40694,    .22000,   1.79612,    .14940,    .02017,
     +     .00000,    .10114,    .19623,
     +     .41105,    .22104,   1.81575,    .15063,    .02405,
     +     .00000,    .10336,    .19736,
     +     .41517,    .22203,   1.83312,    .15182,    .02791,
     +     .00000,    .10557,    .19842 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .41848,    .22277,   1.84471,    .15275,    .03090,
     +     .00000,    .10735,    .19921,
     +     .42147,    .22340,   1.85329,    .15356,    .03362,
     +     .00000,    .10896,    .19987,
     +     .42375,    .22386,   1.85890,    .15416,    .03572,
     +     .00000,    .11019,    .20035,
     +     .42821,    .22464,   1.86084,    .15525,    .03977,
     +     .00085,    .11256,    .20115,
     +     .43167,    .22513,   1.85136,    .15597,    .04290,
     +     .00702,    .11437,    .20160,
     +     .43517,    .22552,   1.83762,    .15660,    .04612,
     +     .01337,    .11617,    .20190,
     +     .43839,    .22576,   1.82093,    .15705,    .04915,
     +     .01823,    .11778,    .20197,
     +     .44098,    .22583,   1.80334,    .15729,    .05166,
     +     .02207,    .11904,    .20184 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44330,    .22577,   1.78348,    .15738,    .05397,
     +     .02552,    .12013,    .20156,
     +     .44499,    .22562,   1.76528,    .15733,    .05572,
     +     .02806,    .12089,    .20119,
     +     .44677,    .22533,   1.74128,    .15713,    .05765,
     +     .03085,    .12163,    .20060,
     +     .44813,    .22499,   1.71886,    .15686,    .05922,
     +     .03314,    .12218,    .19997,
     +     .44922,    .22462,   1.69747,    .15654,    .06056,
     +     .03510,    .12258,    .19931,
     +     .45032,    .22404,   1.66853,    .15599,    .06207,
     +     .03732,    .12293,    .19831,
     +     .45114,    .22341,   1.64048,    .15538,    .06335,
     +     .03925,    .12313,    .19727,
     +     .45176,    .22277,   1.61382,    .15475,    .06445,
     +     .04096,    .12324,    .19624 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45214,    .22202,   1.58584,    .15400,    .06539,
     +     .04245,    .12321,    .19508,
     +     .45240,    .22125,   1.55836,    .15321,    .06624,
     +     .04383,    .12311,    .19389,
     +     .45252,    .22047,   1.53213,    .15241,    .06697,
     +     .04503,    .12295,    .19272,
     +     .45247,    .21969,   1.50687,    .15159,    .06754,
     +     .04605,    .12271,    .19153,
     +     .45236,    .21889,   1.48179,    .15075,    .06809,
     +     .04704,    .12244,    .19032,
     +     .45207,    .21803,   1.45649,    .14985,    .06852,
     +     .04788,    .12208,    .18905,
     +     .45178,    .21722,   1.43291,    .14899,    .06892,
     +     .04867,    .12174,    .18785,
     +     .45136,    .21639,   1.41014,    .14811,    .06921,
     +     .04930,    .12133,    .18664 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45091,    .21555,   1.38758,    .14722,    .06948,
     +     .04992,    .12091,    .18542,
     +     .45037,    .21468,   1.36514,    .14630,    .06969,
     +     .05047,    .12044,    .18417,
     +     .44979,    .21384,   1.34389,    .14541,    .06986,
     +     .05095,    .11998,    .18296,
     +     .44921,    .21303,   1.32394,    .14456,    .07000,
     +     .05138,    .11953,    .18180,
     +     .44852,    .21217,   1.30358,    .14365,    .07008,
     +     .05175,    .11901,    .18059 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .44479,    .24387,   1.28667,    .12338,    .00000,
     +     .00000,    .07720,    .17614,
     +     .45022,    .24488,   1.31995,    .12400,    .00000,
     +     .00000,    .07910,    .17642,
     +     .45734,    .24599,   1.35623,    .12479,    .00266,
     +     .00000,    .08169,    .17664,
     +     .46201,    .24655,   1.37352,    .12524,    .00791,
     +     .00000,    .08343,    .17668,
     +     .46635,    .24694,   1.38871,    .12564,    .01188,
     +     .00000,    .08510,    .17658,
     +     .46970,    .24710,   1.39856,    .12589,    .01499,
     +     .00000,    .08639,    .17639,
     +     .47262,    .24714,   1.40583,    .12606,    .01783,
     +     .00000,    .08754,    .17614,
     +     .47543,    .24708,   1.41135,    .12619,    .02063,
     +     .00000,    .08867,    .17579 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .47758,    .24691,   1.41381,    .12623,    .02279,
     +     .00000,    .08955,    .17542,
     +     .47945,    .24666,   1.41445,    .12621,    .02474,
     +     .00000,    .09033,    .17500,
     +     .48083,    .24643,   1.41421,    .12618,    .02623,
     +     .00000,    .09091,    .17465,
     +     .48332,    .24576,   1.40642,    .12600,    .02909,
     +     .00064,    .09198,    .17375,
     +     .48504,    .24503,   1.39168,    .12571,    .03127,
     +     .00502,    .09272,    .17284,
     +     .48658,    .24407,   1.37316,    .12528,    .03349,
     +     .00953,    .09340,    .17171,
     +     .48775,    .24292,   1.35252,    .12469,    .03555,
     +     .01293,    .09393,    .17041,
     +     .48847,    .24175,   1.33227,    .12406,    .03722,
     +     .01560,    .09426,    .16911 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .48889,    .24048,   1.31053,    .12335,    .03874,
     +     .01796,    .09448,    .16771,
     +     .48899,    .23934,   1.29141,    .12268,    .03987,
     +     .01968,    .09455,    .16649,
     +     .48883,    .23787,   1.26704,    .12179,    .04110,
     +     .02154,    .09454,    .16491,
     +     .48849,    .23651,   1.24485,    .12095,    .04208,
     +     .02306,    .09445,    .16347,
     +     .48802,    .23523,   1.22410,    .12014,    .04289,
     +     .02435,    .09430,    .16211,
     +     .48714,    .23349,   1.19667,    .11903,    .04379,
     +     .02578,    .09400,    .16031,
     +     .48612,    .23181,   1.17057,    .11794,    .04453,
     +     .02701,    .09364,    .15856,
     +     .48503,    .23022,   1.14609,    .11689,    .04515,
     +     .02808,    .09325,    .15691 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48370,    .22854,   1.12089,    .11577,    .04565,
     +     .02900,    .09277,    .15519,
     +     .48229,    .22687,   1.09639,    .11465,    .04608,
     +     .02983,    .09226,    .15349,
     +     .48086,    .22526,   1.07327,    .11356,    .04644,
     +     .03056,    .09174,    .15186,
     +     .47935,    .22371,   1.05127,    .11251,    .04670,
     +     .03115,    .09120,    .15029,
     +     .47780,    .22214,   1.02958,    .11145,    .04694,
     +     .03172,    .09064,    .14872,
     +     .47610,    .22055,   1.00797,    .11036,    .04710,
     +     .03219,    .09003,    .14713,
     +     .47447,    .21906,    .98794,    .10934,    .04724,
     +     .03262,    .08945,    .14564,
     +     .47280,    .21760,    .96879,    .10833,    .04731,
     +     .03296,    .08885,    .14419 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47111,    .21613,    .94991,    .10733,    .04737,
     +     .03329,    .08825,    .14275,
     +     .46934,    .21466,    .93129,    .10631,    .04739,
     +     .03356,    .08762,    .14131,
     +     .46762,    .21324,    .91377,    .10534,    .04739,
     +     .03379,    .08701,    .13993,
     +     .46595,    .21190,    .89742,    .10441,    .04738,
     +     .03399,    .08643,    .13863,
     +     .46417,    .21052,    .88085,    .10346,    .04732,
     +     .03415,    .08581,    .13729 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .50531,    .26906,   1.02301,    .10801,    .00000,
     +     .00000,    .06969,    .16351,
     +     .50920,    .26883,   1.04944,    .10780,    .00000,
     +     .00000,    .07071,    .16256,
     +     .51401,    .26812,   1.07836,    .10744,    .00212,
     +     .00000,    .07210,    .16108,
     +     .51696,    .26739,   1.09204,    .10714,    .00631,
     +     .00000,    .07300,    .15997,
     +     .51946,    .26645,   1.10368,    .10677,    .00945,
     +     .00000,    .07385,    .15876,
     +     .52119,    .26549,   1.11086,    .10640,    .01188,
     +     .00000,    .07448,    .15766,
     +     .52256,    .26448,   1.11575,    .10603,    .01410,
     +     .00000,    .07501,    .15657,
     +     .52372,    .26333,   1.11892,    .10561,    .01627,
     +     .00000,    .07551,    .15538 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .52444,    .26222,   1.11953,    .10519,    .01793,
     +     .00000,    .07589,    .15432,
     +     .52493,    .26107,   1.11853,    .10475,    .01942,
     +     .00000,    .07619,    .15327,
     +     .52523,    .26014,   1.11706,    .10439,    .02055,
     +     .00000,    .07640,    .15243,
     +     .52537,    .25805,   1.10773,    .10357,    .02269,
     +     .00050,    .07672,    .15057,
     +     .52508,    .25611,   1.09301,    .10278,    .02431,
     +     .00382,    .07687,    .14889,
     +     .52438,    .25384,   1.07471,    .10183,    .02593,
     +     .00721,    .07693,    .14697,
     +     .52324,    .25138,   1.05435,    .10077,    .02740,
     +     .00974,    .07686,    .14490,
     +     .52188,    .24906,   1.03456,    .09974,    .02858,
     +     .01170,    .07669,    .14297 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .52023,    .24666,   1.01354,    .09865,    .02963,
     +     .01342,    .07644,    .14101,
     +     .51865,    .24461,    .99524,    .09771,    .03040,
     +     .01465,    .07616,    .13933,
     +     .51644,    .24207,    .97212,    .09653,    .03121,
     +     .01597,    .07575,    .13727,
     +     .51432,    .23980,    .95128,    .09546,    .03184,
     +     .01704,    .07532,    .13543,
     +     .51225,    .23770,    .93194,    .09446,    .03236,
     +     .01793,    .07489,    .13373,
     +     .50937,    .23496,    .90665,    .09313,    .03289,
     +     .01891,    .07427,    .13156,
     +     .50650,    .23237,    .88279,    .09186,    .03332,
     +     .01973,    .07364,    .12951,
     +     .50372,    .22995,    .86060,    .09066,    .03367,
     +     .02044,    .07301,    .12760 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50072,    .22746,    .83801,    .08944,    .03392,
     +     .02103,    .07233,    .12565,
     +     .49770,    .22504,    .81620,    .08824,    .03413,
     +     .02157,    .07165,    .12375,
     +     .49474,    .22275,    .79573,    .08710,    .03428,
     +     .02202,    .07098,    .12194,
     +     .49183,    .22057,    .77645,    .08600,    .03437,
     +     .02237,    .07031,    .12025,
     +     .48890,    .21839,    .75754,    .08490,    .03444,
     +     .02271,    .06963,    .11857,
     +     .48588,    .21621,    .73887,    .08380,    .03446,
     +     .02298,    .06893,    .11689,
     +     .48303,    .21417,    .72162,    .08277,    .03446,
     +     .02323,    .06826,    .11533,
     +     .48020,    .21220,    .70527,    .08177,    .03442,
     +     .02341,    .06761,    .11385 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47735,    .21024,    .68922,    .08077,    .03438,
     +     .02358,    .06695,    .11237,
     +     .47447,    .20830,    .67349,    .07978,    .03430,
     +     .02371,    .06628,    .11090,
     +     .47170,    .20645,    .65877,    .07885,    .03422,
     +     .02381,    .06564,    .10951,
     +     .46905,    .20470,    .64508,    .07797,    .03413,
     +     .02390,    .06503,    .10820,
     +     .46630,    .20292,    .63131,    .07706,    .03401,
     +     .02396,    .06440,    .10687 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .56970,    .29080,    .77562,    .09005,    .00000,
     +     .00000,    .06035,    .14554,
     +     .57111,    .28895,    .80492,    .08936,    .00000,
     +     .00000,    .06078,    .14371,
     +     .57227,    .28594,    .83744,    .08836,    .00173,
     +     .00000,    .06132,    .14104,
     +     .57258,    .28359,    .85357,    .08760,    .00511,
     +     .00000,    .06164,    .13914,
     +     .57234,    .28099,    .86660,    .08681,    .00761,
     +     .00000,    .06191,    .13713,
     +     .57170,    .27866,    .87426,    .08610,    .00952,
     +     .00000,    .06208,    .13539,
     +     .57084,    .27637,    .87923,    .08540,    .01124,
     +     .00000,    .06218,    .13374,
     +     .56966,    .27389,    .88216,    .08465,    .01291,
     +     .00000,    .06223,    .13200 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .56836,    .27168,    .88226,    .08398,    .01416,
     +     .00000,    .06224,    .13046,
     +     .56690,    .26951,    .88064,    .08332,    .01527,
     +     .00000,    .06219,    .12899,
     +     .56567,    .26778,    .87862,    .08278,    .01611,
     +     .00000,    .06214,    .12784,
     +     .56264,    .26403,    .86860,    .08162,    .01767,
     +     .00039,    .06195,    .12534,
     +     .55968,    .26071,    .85406,    .08056,    .01882,
     +     .00285,    .06169,    .12318,
     +     .55603,    .25698,    .83597,    .07934,    .01995,
     +     .00536,    .06132,    .12077,
     +     .55190,    .25306,    .81578,    .07804,    .02095,
     +     .00719,    .06085,    .11825,
     +     .54789,    .24948,    .79628,    .07684,    .02173,
     +     .00859,    .06035,    .11597 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .54362,    .24587,    .77576,    .07560,    .02240,
     +     .00980,    .05979,    .11368,
     +     .53991,    .24285,    .75806,    .07454,    .02287,
     +     .01065,    .05928,    .11179,
     +     .53522,    .23918,    .73597,    .07324,    .02335,
     +     .01155,    .05861,    .10950,
     +     .53095,    .23595,    .71626,    .07209,    .02370,
     +     .01226,    .05798,    .10749,
     +     .52696,    .23300,    .69815,    .07104,    .02398,
     +     .01285,    .05739,    .10565,
     +     .52166,    .22926,    .67478,    .06969,    .02424,
     +     .01348,    .05659,    .10333,
     +     .51661,    .22576,    .65299,    .06841,    .02443,
     +     .01399,    .05582,    .10117,
     +     .51184,    .22250,    .63292,    .06722,    .02456,
     +     .01443,    .05509,    .09920 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50689,    .21924,    .61273,    .06601,    .02463,
     +     .01478,    .05430,    .09722,
     +     .50203,    .21609,    .59343,    .06484,    .02467,
     +     .01509,    .05353,    .09531,
     +     .49739,    .21314,    .57552,    .06374,    .02467,
     +     .01534,    .05280,    .09353,
     +     .49292,    .21036,    .55879,    .06270,    .02464,
     +     .01553,    .05209,    .09186,
     +     .48845,    .20761,    .54249,    .06168,    .02459,
     +     .01570,    .05139,    .09020,
     +     .48396,    .20489,    .52658,    .06065,    .02451,
     +     .01583,    .05068,    .08859,
     +     .47975,    .20234,    .51197,    .05970,    .02442,
     +     .01594,    .05001,    .08709,
     +     .47567,    .19992,    .49824,    .05879,    .02432,
     +     .01601,    .04936,    .08567 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47160,    .19752,    .48483,    .05789,    .02420,
     +     .01607,    .04871,    .08427,
     +     .46752,    .19516,    .47181,    .05700,    .02407,
     +     .01611,    .04807,    .08289,
     +     .46363,    .19292,    .45970,    .05617,    .02393,
     +     .01613,    .04745,    .08159,
     +     .45996,    .19083,    .44851,    .05538,    .02380,
     +     .01615,    .04687,    .08038,
     +     .45617,    .18871,    .43734,    .05459,    .02364,
     +     .01614,    .04628,    .07916 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .62177,    .30334,    .62895,    .07390,    .00000,
     +     .00000,    .05137,    .12660,
     +     .62033,    .29989,    .66191,    .07307,    .00000,
     +     .00000,    .05151,    .12437,
     +     .61736,    .29465,    .69739,    .07186,    .00147,
     +     .00000,    .05165,    .12119,
     +     .61472,    .29079,    .71456,    .07097,    .00434,
     +     .00000,    .05169,    .11892,
     +     .61142,    .28668,    .72727,    .07005,    .00640,
     +     .00000,    .05166,    .11657,
     +     .60826,    .28306,    .73385,    .06922,    .00795,
     +     .00000,    .05157,    .11458,
     +     .60501,    .27960,    .73742,    .06842,    .00933,
     +     .00000,    .05144,    .11269,
     +     .60135,    .27594,    .73853,    .06757,    .01065,
     +     .00000,    .05127,    .11071 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .59792,    .27276,    .73685,    .06682,    .01162,
     +     .00000,    .05108,    .10899,
     +     .59448,    .26966,    .73344,    .06609,    .01247,
     +     .00000,    .05087,    .10735,
     +     .59171,    .26723,    .72999,    .06552,    .01311,
     +     .00000,    .05068,    .10607,
     +     .58546,    .26204,    .71733,    .06425,    .01426,
     +     .00032,    .05021,    .10336,
     +     .57980,    .25758,    .70128,    .06312,    .01509,
     +     .00220,    .04973,    .10105,
     +     .57325,    .25261,    .68168,    .06185,    .01587,
     +     .00410,    .04914,    .09849,
     +     .56620,    .24749,    .66022,    .06053,    .01655,
     +     .00547,    .04847,    .09586,
     +     .55964,    .24289,    .63990,    .05930,    .01705,
     +     .00649,    .04781,    .09352 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55290,    .23831,    .61889,    .05806,    .01746,
     +     .00736,    .04712,    .09119,
     +     .54721,    .23453,    .60110,    .05702,    .01774,
     +     .00797,    .04651,    .08928,
     +     .54018,    .23000,    .57928,    .05578,    .01800,
     +     .00859,    .04575,    .08698,
     +     .53392,    .22604,    .56010,    .05468,    .01818,
     +     .00908,    .04506,    .08499,
     +     .52817,    .22247,    .54269,    .05367,    .01830,
     +     .00947,    .04440,    .08322,
     +     .52075,    .21795,    .52060,    .05239,    .01839,
     +     .00988,    .04356,    .08097,
     +     .51375,    .21378,    .50029,    .05120,    .01843,
     +     .01020,    .04276,    .07891,
     +     .50722,    .20996,    .48180,    .05010,    .01843,
     +     .01047,    .04200,    .07703 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50059,    .20614,    .46348,    .04901,    .01839,
     +     .01067,    .04122,    .07517,
     +     .49413,    .20248,    .44615,    .04796,    .01833,
     +     .01085,    .04046,    .07338,
     +     .48803,    .19909,    .43022,    .04697,    .01825,
     +     .01098,    .03975,    .07172,
     +     .48226,    .19589,    .41553,    .04604,    .01815,
     +     .01107,    .03907,    .07019,
     +     .47653,    .19274,    .40131,    .04513,    .01804,
     +     .01115,    .03839,    .06869,
     +     .47083,    .18967,    .38759,    .04423,    .01791,
     +     .01120,    .03772,    .06722,
     +     .46549,    .18683,    .37507,    .04340,    .01778,
     +     .01124,    .03710,    .06586,
     +     .46038,    .18413,    .36344,    .04261,    .01764,
     +     .01125,    .03651,    .06458 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45531,    .18147,    .35213,    .04184,    .01750,
     +     .01126,    .03592,    .06332,
     +     .45028,    .17885,    .34125,    .04108,    .01734,
     +     .01125,    .03534,    .06209,
     +     .44552,    .17638,    .33119,    .04036,    .01719,
     +     .01123,    .03479,    .06094,
     +     .44103,    .17407,    .32193,    .03970,    .01704,
     +     .01121,    .03427,    .05988,
     +     .43646,    .17175,    .31278,    .03902,    .01688,
     +     .01117,    .03375,    .05881 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .66176,    .30807,    .56306,    .05970,    .00000,
     +     .00000,    .04302,    .10789,
     +     .65726,    .30318,    .59517,    .05891,    .00000,
     +     .00000,    .04304,    .10559,
     +     .64991,    .29598,    .62725,    .05777,    .00128,
     +     .00000,    .04296,    .10226,
     +     .64417,    .29079,    .64105,    .05692,    .00373,
     +     .00000,    .04284,    .09989,
     +     .63778,    .28534,    .64943,    .05601,    .00547,
     +     .00000,    .04265,    .09747,
     +     .63201,    .28066,    .65203,    .05520,    .00674,
     +     .00000,    .04244,    .09541,
     +     .62635,    .27622,    .65172,    .05442,    .00786,
     +     .00000,    .04218,    .09348,
     +     .62023,    .27155,    .64876,    .05357,    .00891,
     +     .00000,    .04188,    .09148 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .61474,    .26754,    .64362,    .05283,    .00966,
     +     .00000,    .04159,    .08975,
     +     .60933,    .26370,    .63706,    .05212,    .01031,
     +     .00000,    .04128,    .08810,
     +     .60503,    .26072,    .63122,    .05157,    .01079,
     +     .00000,    .04102,    .08680,
     +     .59569,    .25437,    .61424,    .05034,    .01165,
     +     .00026,    .04043,    .08411,
     +     .58748,    .24899,    .59535,    .04926,    .01224,
     +     .00171,    .03985,    .08183,
     +     .57819,    .24308,    .57318,    .04807,    .01278,
     +     .00318,    .03916,    .07934,
     +     .56845,    .23705,    .54963,    .04681,    .01322,
     +     .00421,    .03842,    .07679,
     +     .55957,    .23168,    .52800,    .04567,    .01353,
     +     .00496,    .03771,    .07455 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55060,    .22638,    .50617,    .04452,    .01377,
     +     .00560,    .03696,    .07234,
     +     .54313,    .22205,    .48811,    .04358,    .01391,
     +     .00603,    .03634,    .07053,
     +     .53406,    .21689,    .46638,    .04243,    .01402,
     +     .00646,    .03557,    .06840,
     +     .52607,    .21242,    .44761,    .04143,    .01408,
     +     .00680,    .03488,    .06656,
     +     .51878,    .20843,    .43080,    .04055,    .01411,
     +     .00706,    .03424,    .06490,
     +     .50952,    .20341,    .40988,    .03941,    .01409,
     +     .00732,    .03342,    .06285,
     +     .50089,    .19881,    .39094,    .03836,    .01405,
     +     .00753,    .03265,    .06099,
     +     .49290,    .19460,    .37390,    .03740,    .01398,
     +     .00769,    .03193,    .05930 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48487,    .19044,    .35726,    .03645,    .01388,
     +     .00780,    .03122,    .05762,
     +     .47714,    .18647,    .34171,    .03553,    .01377,
     +     .00789,    .03052,    .05604,
     +     .46992,    .18279,    .32758,    .03467,    .01365,
     +     .00796,    .02986,    .05459,
     +     .46309,    .17937,    .31469,    .03388,    .01352,
     +     .00800,    .02925,    .05323,
     +     .45634,    .17602,    .30231,    .03311,    .01338,
     +     .00803,    .02865,    .05190,
     +     .44969,    .17275,    .29051,    .03235,    .01323,
     +     .00803,    .02806,    .05064,
     +     .44350,    .16972,    .27981,    .03165,    .01309,
     +     .00803,    .02751,    .04947,
     +     .43762,    .16688,    .26996,    .03100,    .01294,
     +     .00801,    .02699,    .04836 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43180,    .16407,    .26043,    .03035,    .01279,
     +     .00799,    .02648,    .04728,
     +     .42607,    .16132,    .25134,    .02971,    .01264,
     +     .00796,    .02597,    .04624,
     +     .42068,    .15875,    .24299,    .02911,    .01250,
     +     .00793,    .02550,    .04527,
     +     .41561,    .15635,    .23535,    .02856,    .01235,
     +     .00789,    .02505,    .04438,
     +     .41045,    .15396,    .22786,    .02802,    .01220,
     +     .00784,    .02459,    .04347 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .69002,    .30631,    .54982,    .04753,    .00000,
     +     .00000,    .03543,    .09022,
     +     .68240,    .30018,    .57550,    .04685,    .00000,
     +     .00000,    .03541,    .08801,
     +     .67066,    .29130,    .59740,    .04585,    .00110,
     +     .00000,    .03524,    .08479,
     +     .66192,    .28496,    .60371,    .04507,    .00320,
     +     .00000,    .03507,    .08253,
     +     .65249,    .27840,    .60446,    .04425,    .00465,
     +     .00000,    .03481,    .08019,
     +     .64423,    .27283,    .60081,    .04350,    .00569,
     +     .00000,    .03453,    .07822,
     +     .63625,    .26759,    .59488,    .04278,    .00659,
     +     .00000,    .03422,    .07638,
     +     .62776,    .26216,    .58638,    .04202,    .00742,
     +     .00000,    .03386,    .07446 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62030,    .25751,    .57687,    .04134,    .00800,
     +     .00000,    .03353,    .07281,
     +     .61309,    .25308,    .56648,    .04069,    .00850,
     +     .00000,    .03318,    .07126,
     +     .60740,    .24963,    .55784,    .04018,    .00886,
     +     .00000,    .03290,    .07005,
     +     .59521,    .24244,    .53595,    .03906,    .00948,
     +     .00021,    .03224,    .06753,
     +     .58469,    .23638,    .51398,    .03808,    .00989,
     +     .00133,    .03165,    .06541,
     +     .57298,    .22976,    .48914,    .03699,    .01025,
     +     .00245,    .03096,    .06310,
     +     .56086,    .22306,    .46364,    .03586,    .01052,
     +     .00323,    .03021,    .06077,
     +     .54996,    .21716,    .44091,    .03484,    .01070,
     +     .00379,    .02952,    .05874 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .53906,    .21137,    .41855,    .03383,    .01081,
     +     .00426,    .02880,    .05674,
     +     .53008,    .20669,    .40042,    .03300,    .01087,
     +     .00456,    .02821,    .05511,
     +     .51927,    .20113,    .37904,    .03201,    .01089,
     +     .00487,    .02748,    .05320,
     +     .50984,    .19635,    .36090,    .03115,    .01088,
     +     .00509,    .02683,    .05156,
     +     .50132,    .19208,    .34491,    .03037,    .01084,
     +     .00527,    .02624,    .05011,
     +     .49059,    .18676,    .32533,    .02939,    .01077,
     +     .00543,    .02550,    .04832,
     +     .48065,    .18191,    .30786,    .02849,    .01067,
     +     .00556,    .02480,    .04670,
     +     .47150,    .17751,    .29235,    .02768,    .01057,
     +     .00565,    .02417,    .04523 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46241,    .17319,    .27748,    .02688,    .01045,
     +     .00571,    .02353,    .04379,
     +     .45369,    .16907,    .26369,    .02611,    .01032,
     +     .00575,    .02293,    .04242,
     +     .44559,    .16527,    .25129,    .02539,    .01018,
     +     .00578,    .02237,    .04117,
     +     .43799,    .16174,    .24012,    .02473,    .01005,
     +     .00578,    .02184,    .04004,
     +     .43052,    .15830,    .22946,    .02409,    .00991,
     +     .00578,    .02132,    .03893,
     +     .42319,    .15498,    .21940,    .02347,    .00976,
     +     .00577,    .02080,    .03786,
     +     .41638,    .15191,    .21031,    .02290,    .00962,
     +     .00575,    .02033,    .03687,
     +     .40995,    .14904,    .20205,    .02237,    .00948,
     +     .00572,    .01989,    .03596 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40359,    .14622,    .19410,    .02184,    .00935,
     +     .00568,    .01945,    .03506,
     +     .39736,    .14348,    .18659,    .02134,    .00920,
     +     .00565,    .01903,    .03420,
     +     .39149,    .14092,    .17974,    .02088,    .00907,
     +     .00560,    .01863,    .03339,
     +     .38601,    .13854,    .17349,    .02045,    .00894,
     +     .00556,    .01826,    .03264,
     +     .38051,    .13614,    .16740,    .02000,    .00881,
     +     .00552,    .01789,    .03191 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .70704,    .29922,    .56289,    .03727,    .00000,
     +     .00000,    .02874,    .07416,
     +     .69641,    .29204,    .57790,    .03673,    .00000,
     +     .00000,    .02871,    .07211,
     +     .68046,    .28180,    .58495,    .03587,    .00094,
     +     .00000,    .02852,    .06915,
     +     .66886,    .27456,    .58137,    .03520,    .00270,
     +     .00000,    .02831,    .06708,
     +     .65658,    .26714,    .57274,    .03447,    .00389,
     +     .00000,    .02802,    .06495,
     +     .64598,    .26090,    .56190,    .03383,    .00474,
     +     .00000,    .02771,    .06314,
     +     .63588,    .25507,    .54976,    .03320,    .00545,
     +     .00000,    .02739,    .06144,
     +     .62526,    .24904,    .53542,    .03254,    .00609,
     +     .00000,    .02704,    .05968 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61602,    .24392,    .52159,    .03195,    .00654,
     +     .00000,    .02669,    .05819,
     +     .60719,    .23906,    .50751,    .03136,    .00691,
     +     .00000,    .02634,    .05679,
     +     .60029,    .23530,    .49621,    .03090,    .00717,
     +     .00000,    .02606,    .05571,
     +     .58560,    .22749,    .46993,    .02991,    .00761,
     +     .00017,    .02543,    .05345,
     +     .57304,    .22099,    .44542,    .02908,    .00789,
     +     .00102,    .02486,    .05153,
     +     .55925,    .21391,    .41863,    .02813,    .00812,
     +     .00188,    .02420,    .04949,
     +     .54514,    .20680,    .39192,    .02714,    .00827,
     +     .00247,    .02349,    .04746,
     +     .53254,    .20060,    .36873,    .02628,    .00836,
     +     .00288,    .02285,    .04565 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52004,    .19456,    .34644,    .02543,    .00840,
     +     .00321,    .02221,    .04389,
     +     .50982,    .18969,    .32874,    .02474,    .00840,
     +     .00343,    .02166,    .04248,
     +     .49765,    .18392,    .30825,    .02389,    .00837,
     +     .00364,    .02101,    .04085,
     +     .48713,    .17898,    .29115,    .02315,    .00832,
     +     .00379,    .02044,    .03945,
     +     .47767,    .17458,    .27628,    .02249,    .00825,
     +     .00390,    .01992,    .03822,
     +     .46580,    .16915,    .25834,    .02168,    .00815,
     +     .00401,    .01927,    .03669,
     +     .45488,    .16423,    .24257,    .02095,    .00804,
     +     .00408,    .01868,    .03531,
     +     .44489,    .15979,    .22874,    .02028,    .00792,
     +     .00413,    .01813,    .03407 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43506,    .15543,    .21566,    .01960,    .00780,
     +     .00416,    .01758,    .03289,
     +     .42563,    .15131,    .20366,    .01898,    .00767,
     +     .00417,    .01706,    .03177,
     +     .41688,    .14753,    .19297,    .01841,    .00754,
     +     .00417,    .01658,    .03073,
     +     .40874,    .14404,    .18342,    .01790,    .00741,
     +     .00416,    .01614,    .02979,
     +     .40076,    .14063,    .17437,    .01740,    .00728,
     +     .00415,    .01570,    .02888,
     +     .39301,    .13734,    .16593,    .01690,    .00715,
     +     .00412,    .01528,    .02800,
     +     .38584,    .13431,    .15835,    .01644,    .00702,
     +     .00410,    .01490,    .02719,
     +     .37907,    .13150,    .15153,    .01602,    .00690,
     +     .00406,    .01454,    .02645 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37240,    .12874,    .14501,    .01561,    .00678,
     +     .00403,    .01418,    .02572,
     +     .36591,    .12606,    .13888,    .01521,    .00665,
     +     .00399,    .01384,    .02503,
     +     .35984,    .12356,    .13330,    .01483,    .00654,
     +     .00395,    .01351,    .02439,
     +     .35417,    .12124,    .12825,    .01448,    .00643,
     +     .00392,    .01321,    .02379,
     +     .34847,    .11893,    .12336,    .01413,    .00632,
     +     .00387,    .01292,    .02320 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .71351,    .28780,    .58197,    .02877,    .00000,
     +     .00000,    .02297,    .05995,
     +     .69999,    .27988,    .58412,    .02836,    .00000,
     +     .00000,    .02293,    .05811,
     +     .68016,    .26862,    .57448,    .02768,    .00078,
     +     .00000,    .02272,    .05547,
     +     .66592,    .26074,    .56039,    .02713,    .00223,
     +     .00000,    .02249,    .05363,
     +     .65109,    .25269,    .54236,    .02654,    .00320,
     +     .00000,    .02219,    .05172,
     +     .63841,    .24598,    .52470,    .02598,    .00386,
     +     .00000,    .02190,    .05012,
     +     .62644,    .23975,    .50690,    .02545,    .00442,
     +     .00000,    .02159,    .04862,
     +     .61393,    .23334,    .48744,    .02490,    .00491,
     +     .00000,    .02123,    .04706 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60318,    .22793,    .46991,    .02439,    .00525,
     +     .00000,    .02092,    .04574,
     +     .59293,    .22284,    .45287,    .02391,    .00552,
     +     .00000,    .02058,    .04451,
     +     .58494,    .21890,    .43957,    .02353,    .00571,
     +     .00000,    .02031,    .04356,
     +     .56820,    .21072,    .41015,    .02268,    .00602,
     +     .00013,    .01973,    .04160,
     +     .55400,    .20396,    .38414,    .02197,    .00620,
     +     .00078,    .01920,    .03996,
     +     .53851,    .19667,    .35649,    .02118,    .00633,
     +     .00143,    .01860,    .03820,
     +     .52279,    .18938,    .32965,    .02036,    .00642,
     +     .00186,    .01798,    .03645,
     +     .50888,    .18303,    .30688,    .01963,    .00644,
     +     .00216,    .01742,    .03494 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49521,    .17688,    .28537,    .01891,    .00644,
     +     .00240,    .01685,    .03346,
     +     .48411,    .17196,    .26859,    .01832,    .00641,
     +     .00255,    .01638,    .03228,
     +     .47091,    .16617,    .24953,    .01764,    .00635,
     +     .00269,    .01582,    .03090,
     +     .45954,    .16124,    .23384,    .01705,    .00628,
     +     .00279,    .01534,    .02974,
     +     .44937,    .15688,    .22037,    .01652,    .00621,
     +     .00287,    .01490,    .02871,
     +     .43670,    .15152,    .20434,    .01588,    .00610,
     +     .00293,    .01435,    .02746,
     +     .42515,    .14665,    .19044,    .01528,    .00599,
     +     .00297,    .01384,    .02634,
     +     .41467,    .14225,    .17838,    .01473,    .00587,
     +     .00300,    .01338,    .02534 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40430,    .13800,    .16708,    .01422,    .00576,
     +     .00300,    .01295,    .02435,
     +     .39446,    .13398,    .15683,    .01372,    .00564,
     +     .00300,    .01252,    .02344,
     +     .38540,    .13027,    .14777,    .01326,    .00552,
     +     .00299,    .01212,    .02263,
     +     .37699,    .12690,    .13979,    .01285,    .00541,
     +     .00298,    .01176,    .02187,
     +     .36877,    .12362,    .13229,    .01246,    .00529,
     +     .00296,    .01143,    .02112,
     +     .36079,    .12046,    .12533,    .01207,    .00518,
     +     .00293,    .01109,    .02043,
     +     .35341,    .11755,    .11911,    .01172,    .00508,
     +     .00290,    .01077,    .01979,
     +     .34653,    .11485,    .11355,    .01138,    .00497,
     +     .00287,    .01048,    .01921 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33978,    .11220,    .10826,    .01105,    .00487,
     +     .00284,    .01020,    .01865,
     +     .33319,    .10964,    .10332,    .01074,    .00477,
     +     .00281,    .00992,    .01810,
     +     .32702,    .10727,    .09886,    .01046,    .00468,
     +     .00277,    .00967,    .01759,
     +     .32128,    .10508,    .09484,    .01020,    .00459,
     +     .00274,    .00944,    .01712,
     +     .31555,    .10289,    .09097,    .00994,    .00450,
     +     .00271,    .00920,    .01666 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .70986,    .27339,    .59381,    .02215,    .00000,
     +     .00000,    .01791,    .04749,
     +     .69384,    .26488,    .58283,    .02182,    .00000,
     +     .00000,    .01786,    .04591,
     +     .67060,    .25290,    .55711,    .02125,    .00064,
     +     .00000,    .01769,    .04363,
     +     .65412,    .24455,    .53354,    .02079,    .00181,
     +     .00000,    .01748,    .04205,
     +     .63709,    .23612,    .50734,    .02026,    .00258,
     +     .00000,    .01721,    .04043,
     +     .62266,    .22913,    .48403,    .01981,    .00310,
     +     .00000,    .01695,    .03904,
     +     .60913,    .22266,    .46179,    .01936,    .00352,
     +     .00000,    .01666,    .03776,
     +     .59510,    .21602,    .43853,    .01887,    .00389,
     +     .00000,    .01634,    .03646 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58313,    .21042,    .41844,    .01844,    .00414,
     +     .00000,    .01606,    .03535,
     +     .57178,    .20518,    .39949,    .01802,    .00433,
     +     .00000,    .01577,    .03431,
     +     .56297,    .20116,    .38496,    .01769,    .00447,
     +     .00000,    .01553,    .03351,
     +     .54450,    .19289,    .35405,    .01703,    .00467,
     +     .00010,    .01502,    .03183,
     +     .52904,    .18605,    .32773,    .01643,    .00479,
     +     .00059,    .01455,    .03049,
     +     .51226,    .17873,    .30040,    .01578,    .00486,
     +     .00107,    .01404,    .02902,
     +     .49537,    .17145,    .27446,    .01510,    .00489,
     +     .00139,    .01351,    .02756,
     +     .48052,    .16515,    .25288,    .01451,    .00489,
     +     .00161,    .01303,    .02631 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46599,    .15906,    .23284,    .01394,    .00486,
     +     .00177,    .01256,    .02509,
     +     .45428,    .15419,    .21750,    .01346,    .00481,
     +     .00188,    .01217,    .02414,
     +     .44043,    .14853,    .20024,    .01291,    .00474,
     +     .00198,    .01171,    .02301,
     +     .42855,    .14372,    .18622,    .01244,    .00467,
     +     .00204,    .01132,    .02206,
     +     .41797,    .13946,    .17433,    .01201,    .00460,
     +     .00209,    .01096,    .02125,
     +     .40489,    .13424,    .16040,    .01149,    .00450,
     +     .00212,    .01050,    .02025,
     +     .39301,    .12954,    .14843,    .01102,    .00440,
     +     .00214,    .01010,    .01935,
     +     .38224,    .12532,    .13813,    .01059,    .00430,
     +     .00216,    .00974,    .01853 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37164,    .12124,    .12864,    .01019,    .00419,
     +     .00215,    .00938,    .01778,
     +     .36162,    .11741,    .12008,    .00981,    .00409,
     +     .00214,    .00904,    .01706,
     +     .35244,    .11390,    .11258,    .00947,    .00399,
     +     .00213,    .00874,    .01639,
     +     .34396,    .11069,    .10600,    .00914,    .00390,
     +     .00211,    .00846,    .01580,
     +     .33570,    .10758,    .09985,    .00882,    .00381,
     +     .00209,    .00819,    .01523,
     +     .32771,    .10459,    .09422,    .00853,    .00371,
     +     .00207,    .00792,    .01470,
     +     .32034,    .10185,    .08920,    .00826,    .00363,
     +     .00204,    .00767,    .01422,
     +     .31347,    .09932,    .08476,    .00801,    .00354,
     +     .00202,    .00745,    .01377 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30673,    .09685,    .08055,    .00777,    .00346,
     +     .00199,    .00724,    .01332,
     +     .30021,    .09446,    .07663,    .00754,    .00338,
     +     .00196,    .00703,    .01290,
     +     .29415,    .09225,    .07311,    .00731,    .00331,
     +     .00193,    .00683,    .01252,
     +     .28852,    .09020,    .06994,    .00711,    .00324,
     +     .00191,    .00665,    .01216,
     +     .28286,    .08817,    .06691,    .00693,    .00317,
     +     .00188,    .00647,    .01181 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69777,    .25603,    .59065,    .01653,    .00000,
     +     .00000,    .01393,    .03717,
     +     .67948,    .24724,    .56801,    .01629,    .00000,
     +     .00000,    .01388,    .03581,
     +     .65329,    .23488,    .52876,    .01585,    .00050,
     +     .00000,    .01367,    .03391,
     +     .63489,    .22631,    .49771,    .01548,    .00143,
     +     .00000,    .01347,    .03257,
     +     .61600,    .21774,    .46546,    .01508,    .00202,
     +     .00000,    .01322,    .03118,
     +     .60012,    .21065,    .43828,    .01472,    .00241,
     +     .00000,    .01298,    .03002,
     +     .58534,    .20410,    .41316,    .01436,    .00273,
     +     .00000,    .01273,    .02895,
     +     .57009,    .19740,    .38763,    .01396,    .00300,
     +     .00000,    .01246,    .02786 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55713,    .19182,    .36628,    .01362,    .00318,
     +     .00000,    .01221,    .02693,
     +     .54489,    .18660,    .34657,    .01329,    .00332,
     +     .00000,    .01195,    .02606,
     +     .53542,    .18260,    .33168,    .01303,    .00341,
     +     .00000,    .01175,    .02541,
     +     .51578,    .17439,    .30086,    .01249,    .00354,
     +     .00008,    .01131,    .02402,
     +     .49941,    .16765,    .27542,    .01202,    .00361,
     +     .00043,    .01090,    .02292,
     +     .48174,    .16046,    .24946,    .01149,    .00365,
     +     .00079,    .01048,    .02171,
     +     .46406,    .15336,    .22529,    .01096,    .00365,
     +     .00102,    .01003,    .02053,
     +     .44862,    .14724,    .20557,    .01050,    .00363,
     +     .00117,    .00963,    .01952 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43362,    .14133,    .18754,    .01003,    .00359,
     +     .00129,    .00925,    .01856,
     +     .42154,    .13665,    .17387,    .00967,    .00354,
     +     .00136,    .00892,    .01782,
     +     .40737,    .13119,    .15875,    .00923,    .00347,
     +     .00142,    .00855,    .01693,
     +     .39527,    .12658,    .14659,    .00887,    .00341,
     +     .00146,    .00824,    .01617,
     +     .38453,    .12253,    .13636,    .00856,    .00334,
     +     .00149,    .00795,    .01550,
     +     .37127,    .11758,    .12455,    .00816,    .00325,
     +     .00151,    .00760,    .01473,
     +     .35927,    .11315,    .11451,    .00781,    .00317,
     +     .00152,    .00728,    .01402,
     +     .34844,    .10918,    .10594,    .00750,    .00309,
     +     .00152,    .00700,    .01338 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33792,    .10535,    .09812,    .00718,    .00300,
     +     .00152,    .00672,    .01278,
     +     .32799,    .10175,    .09112,    .00689,    .00292,
     +     .00151,    .00645,    .01223,
     +     .31887,    .09846,    .08502,    .00662,    .00284,
     +     .00149,    .00622,    .01173,
     +     .31049,    .09548,    .07973,    .00638,    .00276,
     +     .00148,    .00600,    .01129,
     +     .30234,    .09260,    .07481,    .00615,    .00269,
     +     .00146,    .00580,    .01086,
     +     .29450,    .08983,    .07033,    .00593,    .00262,
     +     .00144,    .00559,    .01045,
     +     .28731,    .08730,    .06636,    .00572,    .00255,
     +     .00142,    .00541,    .01007,
     +     .28061,    .08497,    .06286,    .00553,    .00249,
     +     .00140,    .00523,    .00973 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27405,    .08270,    .05956,    .00536,    .00243,
     +     .00137,    .00506,    .00940,
     +     .26771,    .08052,    .05651,    .00519,    .00236,
     +     .00135,    .00491,    .00908,
     +     .26180,    .07850,    .05377,    .00503,    .00231,
     +     .00133,    .00477,    .00879,
     +     .25635,    .07664,    .05132,    .00489,    .00225,
     +     .00131,    .00464,    .00852,
     +     .25092,    .07478,    .04899,    .00474,    .00220,
     +     .00129,    .00450,    .00827 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67761,    .23714,    .57058,    .01225,    .00000,
     +     .00000,    .01059,    .02855,
     +     .65758,    .22816,    .53875,    .01201,    .00000,
     +     .00000,    .01052,    .02748,
     +     .62900,    .21569,    .48958,    .01170,    .00039,
     +     .00000,    .01034,    .02588,
     +     .60907,    .20714,    .45357,    .01141,    .00110,
     +     .00000,    .01018,    .02475,
     +     .58876,    .19860,    .41774,    .01109,    .00155,
     +     .00000,    .00995,    .02363,
     +     .57184,    .19154,    .38852,    .01078,    .00184,
     +     .00000,    .00974,    .02268,
     +     .55612,    .18508,    .36218,    .01050,    .00207,
     +     .00000,    .00953,    .02179,
     +     .53997,    .17851,    .33603,    .01020,    .00227,
     +     .00000,    .00931,    .02088 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52635,    .17300,    .31462,    .00992,    .00239,
     +     .00000,    .00909,    .02014,
     +     .51354,    .16790,    .29518,    .00966,    .00249,
     +     .00000,    .00888,    .01945,
     +     .50365,    .16401,    .28065,    .00945,    .00255,
     +     .00000,    .00870,    .01892,
     +     .48324,    .15600,    .25128,    .00903,    .00263,
     +     .00006,    .00833,    .01782,
     +     .46630,    .14950,    .22762,    .00867,    .00267,
     +     .00032,    .00801,    .01692,
     +     .44816,    .14256,    .20391,    .00826,    .00268,
     +     .00057,    .00766,    .01598,
     +     .43011,    .13575,    .18219,    .00785,    .00267,
     +     .00073,    .00731,    .01504,
     +     .41441,    .12991,    .16471,    .00750,    .00264,
     +     .00084,    .00699,    .01425 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39921,    .12431,    .14895,    .00714,    .00260,
     +     .00092,    .00668,    .01351,
     +     .38708,    .11987,    .13714,    .00685,    .00256,
     +     .00097,    .00643,    .01292,
     +     .37284,    .11473,    .12424,    .00653,    .00250,
     +     .00101,    .00614,    .01222,
     +     .36075,    .11040,    .11399,    .00626,    .00244,
     +     .00104,    .00589,    .01164,
     +     .35008,    .10660,    .10543,    .00602,    .00239,
     +     .00105,    .00567,    .01114,
     +     .33696,    .10199,    .09563,    .00572,    .00232,
     +     .00106,    .00540,    .01053,
     +     .32513,    .09786,    .08738,    .00546,    .00225,
     +     .00107,    .00516,    .00999,
     +     .31449,    .09418,    .08041,    .00522,    .00218,
     +     .00106,    .00495,    .00951 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30415,    .09064,    .07409,    .00501,    .00211,
     +     .00106,    .00473,    .00907,
     +     .29445,    .08732,    .06849,    .00480,    .00205,
     +     .00105,    .00453,    .00865,
     +     .28560,    .08431,    .06366,    .00459,    .00199,
     +     .00103,    .00436,    .00827,
     +     .27748,    .08156,    .05948,    .00441,    .00193,
     +     .00102,    .00419,    .00794,
     +     .26961,    .07892,    .05560,    .00423,    .00187,
     +     .00101,    .00403,    .00762,
     +     .26206,    .07641,    .05209,    .00407,    .00182,
     +     .00099,    .00388,    .00731,
     +     .25513,    .07412,    .04899,    .00392,    .00177,
     +     .00097,    .00375,    .00703,
     +     .24870,    .07201,    .04629,    .00379,    .00172,
     +     .00096,    .00361,    .00678 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24243,    .06996,    .04375,    .00367,    .00167,
     +     .00094,    .00349,    .00653,
     +     .23639,    .06799,    .04140,    .00355,    .00163,
     +     .00092,    .00337,    .00629,
     +     .23079,    .06616,    .03930,    .00343,    .00159,
     +     .00091,    .00327,    .00607,
     +     .22560,    .06447,    .03743,    .00333,    .00155,
     +     .00089,    .00317,    .00588,
     +     .22044,    .06282,    .03567,    .00324,    .00151,
     +     .00088,    .00307,    .00569 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .65073,    .21705,    .53448,    .00884,    .00000,
     +     .00000,    .00794,    .02163,
     +     .62924,    .20815,    .49644,    .00868,    .00000,
     +     .00000,    .00788,    .02074,
     +     .59891,    .19584,    .44145,    .00844,    .00029,
     +     .00000,    .00772,    .01942,
     +     .57787,    .18746,    .40307,    .00822,    .00082,
     +     .00000,    .00756,    .01852,
     +     .55660,    .17908,    .36597,    .00797,    .00115,
     +     .00000,    .00741,    .01758,
     +     .53894,    .17221,    .33656,    .00774,    .00136,
     +     .00000,    .00721,    .01683,
     +     .52264,    .16592,    .31053,    .00751,    .00153,
     +     .00000,    .00702,    .01615,
     +     .50596,    .15957,    .28510,    .00727,    .00167,
     +     .00000,    .00683,    .01545 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49189,    .15431,    .26469,    .00709,    .00175,
     +     .00000,    .00665,    .01484,
     +     .47875,    .14941,    .24639,    .00689,    .00182,
     +     .00000,    .00648,    .01428,
     +     .46867,    .14566,    .23286,    .00674,    .00186,
     +     .00000,    .00634,    .01386,
     +     .44793,    .13803,    .20594,    .00640,    .00191,
     +     .00005,    .00605,    .01298,
     +     .43082,    .13184,    .18476,    .00613,    .00193,
     +     .00022,    .00581,    .01228,
     +     .41254,    .12529,    .16382,    .00580,    .00193,
     +     .00040,    .00552,    .01158,
     +     .39443,    .11888,    .14486,    .00550,    .00191,
     +     .00052,    .00524,    .01086,
     +     .37878,    .11339,    .12982,    .00525,    .00188,
     +     .00059,    .00500,    .01024 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36373,    .10817,    .11646,    .00499,    .00185,
     +     .00065,    .00475,    .00965,
     +     .35170,    .10406,    .10655,    .00477,    .00181,
     +     .00068,    .00456,    .00920,
     +     .33772,    .09930,    .09583,    .00453,    .00176,
     +     .00070,    .00434,    .00867,
     +     .32588,    .09529,    .08738,    .00433,    .00172,
     +     .00072,    .00415,    .00823,
     +     .31543,    .09179,    .08039,    .00417,    .00167,
     +     .00073,    .00398,    .00785,
     +     .30267,    .08755,    .07249,    .00394,    .00162,
     +     .00074,    .00376,    .00740,
     +     .29123,    .08376,    .06587,    .00374,    .00156,
     +     .00074,    .00358,    .00701,
     +     .28099,    .08039,    .06031,    .00356,    .00151,
     +     .00073,    .00343,    .00665 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27105,    .07717,    .05534,    .00340,    .00146,
     +     .00072,    .00327,    .00633,
     +     .26173,    .07417,    .05094,    .00324,    .00141,
     +     .00072,    .00312,    .00602,
     +     .25325,    .07147,    .04715,    .00311,    .00137,
     +     .00071,    .00300,    .00573,
     +     .24551,    .06899,    .04391,    .00299,    .00133,
     +     .00070,    .00287,    .00548,
     +     .23802,    .06660,    .04092,    .00288,    .00128,
     +     .00068,    .00276,    .00524,
     +     .23087,    .06435,    .03824,    .00275,    .00124,
     +     .00067,    .00264,    .00502,
     +     .22434,    .06231,    .03588,    .00263,    .00121,
     +     .00066,    .00254,    .00482,
     +     .21826,    .06041,    .03382,    .00255,    .00117,
     +     .00065,    .00245,    .00464 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21234,    .05858,    .03190,    .00247,    .00114,
     +     .00064,    .00237,    .00447,
     +     .20666,    .05682,    .03013,    .00239,    .00111,
     +     .00062,    .00229,    .00430,
     +     .20140,    .05521,    .02855,    .00232,    .00108,
     +     .00061,    .00221,    .00414,
     +     .19655,    .05372,    .02714,    .00225,    .00105,
     +     .00060,    .00214,    .00400,
     +     .19174,    .05226,    .02581,    .00218,    .00102,
     +     .00059,    .00207,    .00386 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61808,    .19643,    .48563,    .00623,    .00000,
     +     .00000,    .00589,    .01611,
     +     .59560,    .18779,    .44454,    .00612,    .00000,
     +     .00000,    .00582,    .01538,
     +     .56409,    .17585,    .38750,    .00592,    .00022,
     +     .00000,    .00569,    .01434,
     +     .54237,    .16774,    .34917,    .00578,    .00060,
     +     .00000,    .00556,    .01360,
     +     .52055,    .15971,    .31288,    .00559,    .00084,
     +     .00000,    .00538,    .01290,
     +     .50250,    .15314,    .28472,    .00543,    .00099,
     +     .00000,    .00523,    .01230,
     +     .48591,    .14716,    .26020,    .00526,    .00110,
     +     .00000,    .00508,    .01176,
     +     .46903,    .14113,    .23661,    .00508,    .00120,
     +     .00000,    .00492,    .01121 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45487,    .13614,    .21789,    .00491,    .00126,
     +     .00000,    .00479,    .01075,
     +     .44167,    .13151,    .20133,    .00476,    .00130,
     +     .00000,    .00465,    .01032,
     +     .43156,    .12798,    .18920,    .00465,    .00132,
     +     .00000,    .00455,    .00999,
     +     .41080,    .12084,    .16547,    .00442,    .00135,
     +     .00003,    .00432,    .00934,
     +     .39377,    .11505,    .14708,    .00425,    .00136,
     +     .00016,    .00411,    .00879,
     +     .37576,    .10894,    .12915,    .00400,    .00136,
     +     .00028,    .00391,    .00825,
     +     .35799,    .10299,    .11317,    .00376,    .00134,
     +     .00036,    .00370,    .00770,
     +     .34268,    .09794,    .10063,    .00357,    .00131,
     +     .00041,    .00351,    .00723 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32800,    .09313,    .08958,    .00338,    .00128,
     +     .00045,    .00333,    .00681,
     +     .31633,    .08935,    .08148,    .00324,    .00125,
     +     .00047,    .00318,    .00646,
     +     .30280,    .08500,    .07281,    .00306,    .00122,
     +     .00049,    .00302,    .00608,
     +     .29138,    .08136,    .06603,    .00292,    .00118,
     +     .00050,    .00288,    .00575,
     +     .28135,    .07817,    .06046,    .00280,    .00115,
     +     .00050,    .00275,    .00546,
     +     .26913,    .07434,    .05419,    .00266,    .00111,
     +     .00050,    .00260,    .00512,
     +     .25822,    .07093,    .04900,    .00251,    .00107,
     +     .00050,    .00247,    .00483,
     +     .24849,    .06790,    .04468,    .00238,    .00103,
     +     .00050,    .00234,    .00459 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23908,    .06502,    .04083,    .00226,    .00099,
     +     .00049,    .00223,    .00435,
     +     .23030,    .06233,    .03744,    .00215,    .00096,
     +     .00048,    .00213,    .00413,
     +     .22234,    .05990,    .03455,    .00205,    .00093,
     +     .00048,    .00203,    .00393,
     +     .21507,    .05772,    .03209,    .00197,    .00090,
     +     .00047,    .00194,    .00374,
     +     .20804,    .05563,    .02982,    .00190,    .00087,
     +     .00046,    .00185,    .00355,
     +     .20134,    .05364,    .02780,    .00182,    .00084,
     +     .00045,    .00178,    .00340,
     +     .19522,    .05182,    .02602,    .00175,    .00081,
     +     .00044,    .00171,    .00326,
     +     .18961,    .05016,    .02448,    .00168,    .00079,
     +     .00043,    .00164,    .00314 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18416,    .04854,    .02303,    .00161,    .00076,
     +     .00043,    .00158,    .00302,
     +     .17893,    .04700,    .02171,    .00154,    .00074,
     +     .00042,    .00153,    .00290,
     +     .17409,    .04558,    .02055,    .00148,    .00072,
     +     .00041,    .00147,    .00279,
     +     .16963,    .04428,    .01951,    .00143,    .00070,
     +     .00040,    .00142,    .00269,
     +     .16520,    .04301,    .01854,    .00139,    .00068,
     +     .00040,    .00137,    .00259 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58063,    .17599,    .42844,    .00443,    .00000,
     +     .00000,    .00423,    .01172,
     +     .55765,    .16767,    .38697,    .00433,    .00000,
     +     .00000,    .00417,    .01114,
     +     .52561,    .15629,    .33127,    .00417,    .00015,
     +     .00000,    .00404,    .01034,
     +     .50366,    .14856,    .29483,    .00404,    .00043,
     +     .00000,    .00393,    .00982,
     +     .48169,    .14096,    .26106,    .00389,    .00059,
     +     .00000,    .00382,    .00924,
     +     .46362,    .13480,    .23527,    .00377,    .00070,
     +     .00000,    .00370,    .00879,
     +     .44706,    .12920,    .21312,    .00365,    .00078,
     +     .00000,    .00357,    .00838,
     +     .43026,    .12357,    .19206,    .00352,    .00084,
     +     .00000,    .00344,    .00795 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41623,    .11890,    .17558,    .00340,    .00088,
     +     .00000,    .00334,    .00761,
     +     .40319,    .11459,    .16114,    .00330,    .00091,
     +     .00000,    .00324,    .00729,
     +     .39322,    .11132,    .15064,    .00323,    .00092,
     +     .00000,    .00316,    .00705,
     +     .37290,    .10470,    .13034,    .00304,    .00094,
     +     .00002,    .00299,    .00655,
     +     .35637,    .09935,    .11486,    .00286,    .00094,
     +     .00011,    .00286,    .00615,
     +     .33880,    .09377,    .09996,    .00271,    .00093,
     +     .00019,    .00269,    .00574,
     +     .32156,    .08835,    .08683,    .00258,    .00092,
     +     .00024,    .00253,    .00532,
     +     .30683,    .08375,    .07665,    .00244,    .00090,
     +     .00028,    .00240,    .00499 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29277,    .07939,    .06778,    .00228,    .00087,
     +     .00030,    .00227,    .00469,
     +     .28162,    .07597,    .06133,    .00217,    .00085,
     +     .00032,    .00216,    .00444,
     +     .26873,    .07206,    .05448,    .00206,    .00082,
     +     .00033,    .00204,    .00414,
     +     .25790,    .06879,    .04917,    .00197,    .00080,
     +     .00034,    .00193,    .00391,
     +     .24842,    .06594,    .04485,    .00188,    .00078,
     +     .00035,    .00184,    .00371,
     +     .23692,    .06252,    .04000,    .00177,    .00074,
     +     .00035,    .00173,    .00347,
     +     .22665,    .05950,    .03601,    .00168,    .00072,
     +     .00035,    .00164,    .00327,
     +     .21750,    .05683,    .03271,    .00161,    .00069,
     +     .00035,    .00155,    .00308 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20876,    .05427,    .02979,    .00152,    .00066,
     +     .00034,    .00148,    .00291,
     +     .20059,    .05190,    .02724,    .00144,    .00064,
     +     .00034,    .00141,    .00275,
     +     .19319,    .04976,    .02506,    .00137,    .00062,
     +     .00034,    .00134,    .00262,
     +     .18650,    .04784,    .02322,    .00130,    .00060,
     +     .00033,    .00128,    .00250,
     +     .18008,    .04600,    .02153,    .00122,    .00058,
     +     .00033,    .00121,    .00238,
     +     .17391,    .04426,    .02003,    .00118,    .00056,
     +     .00033,    .00116,    .00227,
     +     .16828,    .04268,    .01872,    .00115,    .00054,
     +     .00032,    .00112,    .00217,
     +     .16315,    .04124,    .01758,    .00111,    .00052,
     +     .00031,    .00108,    .00208 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15818,    .03984,    .01651,    .00106,    .00051,
     +     .00031,    .00104,    .00198,
     +     .15339,    .03851,    .01555,    .00102,    .00049,
     +     .00030,    .00100,    .00190,
     +     .14897,    .03729,    .01470,    .00098,    .00048,
     +     .00030,    .00096,    .00182,
     +     .14491,    .03618,    .01394,    .00094,    .00047,
     +     .00029,    .00092,    .00176,
     +     .14093,    .03507,    .01323,    .00090,    .00045,
     +     .00029,    .00089,    .00169 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .53970,    .15581,    .36708,    .00301,    .00000,
     +     .00000,    .00301,    .00840,
     +     .51659,    .14801,    .32756,    .00295,    .00000,
     +     .00000,    .00295,    .00793,
     +     .48453,    .13734,    .27580,    .00285,    .00011,
     +     .00000,    .00285,    .00731,
     +     .46269,    .13016,    .24275,    .00278,    .00029,
     +     .00000,    .00275,    .00690,
     +     .44099,    .12307,    .21259,    .00266,    .00041,
     +     .00000,    .00263,    .00649,
     +     .42318,    .11735,    .18987,    .00258,    .00048,
     +     .00000,    .00254,    .00616,
     +     .40693,    .11218,    .17056,    .00249,    .00053,
     +     .00000,    .00244,    .00586,
     +     .39054,    .10698,    .15242,    .00238,    .00058,
     +     .00000,    .00234,    .00555 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37690,    .10268,    .13839,    .00231,    .00060,
     +     .00000,    .00227,    .00529,
     +     .36423,    .09875,    .12621,    .00225,    .00062,
     +     .00000,    .00220,    .00503,
     +     .35455,    .09577,    .11741,    .00221,    .00063,
     +     .00000,    .00214,    .00484,
     +     .33496,    .08976,    .10060,    .00206,    .00064,
     +     .00002,    .00202,    .00450,
     +     .31902,    .08492,    .08797,    .00196,    .00064,
     +     .00007,    .00191,    .00420,
     +     .30223,    .07986,    .07596,    .00185,    .00063,
     +     .00013,    .00179,    .00392,
     +     .28586,    .07499,    .06548,    .00173,    .00062,
     +     .00016,    .00167,    .00362,
     +     .27188,    .07087,    .05743,    .00164,    .00060,
     +     .00018,    .00158,    .00337 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25858,    .06698,    .05048,    .00155,    .00059,
     +     .00020,    .00149,    .00314,
     +     .24809,    .06394,    .04546,    .00148,    .00057,
     +     .00021,    .00141,    .00296,
     +     .23602,    .06046,    .04015,    .00140,    .00055,
     +     .00022,    .00133,    .00276,
     +     .22590,    .05757,    .03607,    .00133,    .00053,
     +     .00022,    .00126,    .00260,
     +     .21706,    .05506,    .03277,    .00127,    .00052,
     +     .00022,    .00119,    .00247,
     +     .20641,    .05205,    .02911,    .00119,    .00050,
     +     .00022,    .00113,    .00229,
     +     .19693,    .04939,    .02612,    .00112,    .00048,
     +     .00022,    .00106,    .00215,
     +     .18851,    .04704,    .02365,    .00107,    .00046,
     +     .00022,    .00100,    .00202 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18044,    .04483,    .02148,    .00102,    .00044,
     +     .00022,    .00094,    .00191,
     +     .17295,    .04278,    .01959,    .00097,    .00043,
     +     .00022,    .00090,    .00180,
     +     .16620,    .04092,    .01799,    .00093,    .00042,
     +     .00022,    .00087,    .00169,
     +     .16008,    .03926,    .01663,    .00088,    .00040,
     +     .00022,    .00082,    .00161,
     +     .15420,    .03767,    .01540,    .00083,    .00039,
     +     .00022,    .00078,    .00154,
     +     .14863,    .03617,    .01430,    .00080,    .00038,
     +     .00022,    .00074,    .00147,
     +     .14357,    .03481,    .01334,    .00077,    .00037,
     +     .00022,    .00071,    .00140,
     +     .13894,    .03358,    .01252,    .00073,    .00036,
     +     .00022,    .00068,    .00134 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13445,    .03239,    .01175,    .00069,    .00035,
     +     .00022,    .00064,    .00128,
     +     .13016,    .03125,    .01105,    .00066,    .00034,
     +     .00022,    .00061,    .00122,
     +     .12620,    .03021,    .01043,    .00064,    .00034,
     +     .00022,    .00059,    .00117,
     +     .12257,    .02926,    .00988,    .00062,    .00033,
     +     .00022,    .00057,    .00113,
     +     .11899,    .02832,    .00937,    .00060,    .00032,
     +     .00022,    .00055,    .00108 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .49613,    .13638,    .30550,    .00198,    .00000,
     +     .00000,    .00211,    .00592,
     +     .47329,    .12911,    .26952,    .00196,    .00000,
     +     .00000,    .00205,    .00557,
     +     .44184,    .11921,    .22342,    .00186,    .00007,
     +     .00000,    .00196,    .00512,
     +     .42047,    .11262,    .19460,    .00183,    .00020,
     +     .00000,    .00189,    .00478,
     +     .39928,    .10615,    .16858,    .00176,    .00027,
     +     .00000,    .00181,    .00448,
     +     .38208,    .10091,    .14930,    .00166,    .00032,
     +     .00000,    .00175,    .00426,
     +     .36639,    .09619,    .13308,    .00160,    .00036,
     +     .00000,    .00169,    .00403,
     +     .35057,    .09149,    .11799,    .00155,    .00039,
     +     .00000,    .00163,    .00377 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33751,    .08760,    .10644,    .00148,    .00040,
     +     .00000,    .00157,    .00358,
     +     .32542,    .08404,    .09649,    .00143,    .00042,
     +     .00000,    .00150,    .00342,
     +     .31622,    .08135,    .08935,    .00140,    .00042,
     +     .00000,    .00145,    .00330,
     +     .29756,    .07595,    .07587,    .00131,    .00043,
     +     .00001,    .00136,    .00305,
     +     .28247,    .07163,    .06586,    .00125,    .00043,
     +     .00005,    .00129,    .00283,
     +     .26668,    .06713,    .05644,    .00116,    .00043,
     +     .00008,    .00120,    .00262,
     +     .25131,    .06280,    .04831,    .00107,    .00042,
     +     .00010,    .00112,    .00243,
     +     .23825,    .05916,    .04211,    .00102,    .00041,
     +     .00012,    .00105,    .00225 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22587,    .05574,    .03680,    .00096,    .00040,
     +     .00013,    .00099,    .00207,
     +     .21614,    .05306,    .03300,    .00090,    .00039,
     +     .00013,    .00093,    .00197,
     +     .20495,    .05003,    .02903,    .00087,    .00037,
     +     .00013,    .00088,    .00184,
     +     .19563,    .04751,    .02598,    .00083,    .00036,
     +     .00013,    .00084,    .00172,
     +     .18757,    .04533,    .02352,    .00075,    .00035,
     +     .00013,    .00079,    .00162,
     +     .17779,    .04272,    .02082,    .00072,    .00034,
     +     .00013,    .00075,    .00150,
     +     .16913,    .04043,    .01862,    .00069,    .00033,
     +     .00013,    .00070,    .00140,
     +     .16146,    .03842,    .01681,    .00065,    .00032,
     +     .00013,    .00066,    .00131 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15418,    .03650,    .01523,    .00061,    .00031,
     +     .00013,    .00062,    .00124,
     +     .14742,    .03474,    .01386,    .00058,    .00031,
     +     .00013,    .00059,    .00117,
     +     .14131,    .03316,    .01271,    .00055,    .00030,
     +     .00013,    .00056,    .00111,
     +     .13580,    .03175,    .01174,    .00053,    .00029,
     +     .00013,    .00053,    .00105,
     +     .13052,    .03040,    .01085,    .00051,    .00028,
     +     .00013,    .00050,    .00100,
     +     .12555,    .02912,    .01007,    .00049,    .00028,
     +     .00013,    .00048,    .00094,
     +     .12104,    .02797,    .00938,    .00046,    .00027,
     +     .00013,    .00045,    .00089,
     +     .11691,    .02693,    .00879,    .00044,    .00027,
     +     .00013,    .00044,    .00085 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11292,    .02592,    .00824,    .00042,    .00026,
     +     .00013,    .00042,    .00082,
     +     .10911,    .02497,    .00775,    .00039,    .00026,
     +     .00013,    .00040,    .00078,
     +     .10561,    .02410,    .00731,    .00037,    .00025,
     +     .00013,    .00038,    .00075,
     +     .10241,    .02331,    .00692,    .00036,    .00025,
     +     .00013,    .00037,    .00073,
     +     .09926,    .02253,    .00656,    .00035,    .00024,
     +     .00013,    .00035,    .00069 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .45110,    .11798,    .24708,    .00127,    .00000,
     +     .00000,    .00144,    .00406,
     +     .42887,    .11132,    .21566,    .00124,    .00000,
     +     .00000,    .00140,    .00383,
     +     .39841,    .10230,    .17613,    .00117,    .00005,
     +     .00000,    .00134,    .00348,
     +     .37785,    .09629,    .15187,    .00109,    .00013,
     +     .00000,    .00128,    .00327,
     +     .35755,    .09044,    .13024,    .00105,    .00018,
     +     .00000,    .00123,    .00305,
     +     .34111,    .08573,    .11442,    .00101,    .00021,
     +     .00000,    .00118,    .00287,
     +     .32618,    .08148,    .10125,    .00098,    .00023,
     +     .00000,    .00113,    .00271,
     +     .31119,    .07726,    .08911,    .00094,    .00025,
     +     .00000,    .00109,    .00254 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29881,    .07381,    .07990,    .00090,    .00026,
     +     .00000,    .00104,    .00242,
     +     .28741,    .07065,    .07203,    .00086,    .00027,
     +     .00000,    .00100,    .00230,
     +     .27876,    .06826,    .06642,    .00083,    .00027,
     +     .00000,    .00098,    .00221,
     +     .26133,    .06346,    .05594,    .00076,    .00028,
     +     .00001,    .00090,    .00205,
     +     .24730,    .05966,    .04824,    .00071,    .00028,
     +     .00003,    .00086,    .00189,
     +     .23260,    .05573,    .04105,    .00067,    .00028,
     +     .00005,    .00081,    .00174,
     +     .21837,    .05195,    .03491,    .00064,    .00028,
     +     .00006,    .00075,    .00159,
     +     .20633,    .04878,    .03027,    .00060,    .00028,
     +     .00007,    .00070,    .00147 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19498,    .04580,    .02633,    .00056,    .00028,
     +     .00007,    .00065,    .00137,
     +     .18612,    .04350,    .02352,    .00052,    .00028,
     +     .00007,    .00062,    .00129,
     +     .17592,    .04089,    .02060,    .00050,    .00027,
     +     .00007,    .00058,    .00120,
     +     .16746,    .03872,    .01839,    .00048,    .00027,
     +     .00007,    .00055,    .00112,
     +     .16013,    .03685,    .01661,    .00045,    .00027,
     +     .00007,    .00053,    .00105,
     +     .15133,    .03462,    .01466,    .00041,    .00026,
     +     .00007,    .00048,    .00099,
     +     .14356,    .03267,    .01308,    .00038,    .00025,
     +     .00007,    .00045,    .00092,
     +     .13672,    .03095,    .01179,    .00035,    .00024,
     +     .00007,    .00043,    .00086 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13018,    .02935,    .01066,    .00035,    .00024,
     +     .00007,    .00040,    .00080,
     +     .12414,    .02786,    .00969,    .00033,    .00023,
     +     .00007,    .00038,    .00075,
     +     .11874,    .02653,    .00887,    .00030,    .00023,
     +     .00007,    .00036,    .00072,
     +     .11387,    .02535,    .00818,    .00028,    .00023,
     +     .00007,    .00034,    .00068,
     +     .10921,    .02422,    .00756,    .00028,    .00022,
     +     .00007,    .00032,    .00063,
     +     .10480,    .02315,    .00700,    .00028,    .00022,
     +     .00007,    .00031,    .00060,
     +     .10081,    .02219,    .00652,    .00027,    .00021,
     +     .00007,    .00030,    .00057,
     +     .09719,    .02132,    .00611,    .00026,    .00021,
     +     .00007,    .00029,    .00054 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09370,    .02049,    .00572,    .00024,    .00021,
     +     .00007,    .00027,    .00052,
     +     .09038,    .01970,    .00537,    .00023,    .00021,
     +     .00007,    .00026,    .00049,
     +     .08733,    .01898,    .00507,    .00022,    .00021,
     +     .00007,    .00025,    .00047,
     +     .08454,    .01832,    .00480,    .00021,    .00020,
     +     .00007,    .00024,    .00044,
     +     .08181,    .01768,    .00454,    .00020,    .00020,
     +     .00007,    .00023,    .00043 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .40552,    .10094,    .19439,    .00090,    .00000,
     +     .00000,    .00091,    .00269,
     +     .38423,    .09493,    .16801,    .00088,    .00000,
     +     .00000,    .00087,    .00254,
     +     .35520,    .08687,    .13538,    .00084,    .00003,
     +     .00000,    .00082,    .00229,
     +     .33572,    .08151,    .11566,    .00084,    .00008,
     +     .00000,    .00078,    .00212,
     +     .31659,    .07630,    .09835,    .00078,    .00011,
     +     .00000,    .00076,    .00196,
     +     .30113,    .07213,    .08577,    .00074,    .00013,
     +     .00000,    .00071,    .00182,
     +     .28716,    .06838,    .07541,    .00070,    .00014,
     +     .00000,    .00068,    .00172,
     +     .27318,    .06466,    .06596,    .00067,    .00015,
     +     .00000,    .00064,    .00162 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .26169,    .06162,    .05883,    .00065,    .00016,
     +     .00000,    .00062,    .00153,
     +     .25113,    .05884,    .05278,    .00062,    .00016,
     +     .00000,    .00060,    .00145,
     +     .24312,    .05675,    .04849,    .00060,    .00017,
     +     .00000,    .00059,    .00138,
     +     .22700,    .05260,    .04055,    .00056,    .00017,
     +     .00001,    .00053,    .00127,
     +     .21411,    .04930,    .03477,    .00053,    .00017,
     +     .00002,    .00050,    .00119,
     +     .20071,    .04588,    .02941,    .00048,    .00017,
     +     .00003,    .00046,    .00107,
     +     .18779,    .04262,    .02488,    .00044,    .00017,
     +     .00003,    .00043,    .00098,
     +     .17687,    .03989,    .02149,    .00042,    .00017,
     +     .00003,    .00040,    .00090 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16659,    .03735,    .01861,    .00041,    .00017,
     +     .00004,    .00038,    .00082,
     +     .15858,    .03538,    .01659,    .00039,    .00017,
     +     .00004,    .00036,    .00077,
     +     .14948,    .03315,    .01449,    .00035,    .00017,
     +     .00004,    .00033,    .00072,
     +     .14192,    .03131,    .01290,    .00033,    .00017,
     +     .00004,    .00031,    .00068,
     +     .13535,    .02973,    .01163,    .00032,    .00017,
     +     .00004,    .00029,    .00064,
     +     .12752,    .02785,    .01025,    .00030,    .00017,
     +     .00004,    .00027,    .00059,
     +     .12062,    .02621,    .00913,    .00028,    .00017,
     +     .00004,    .00025,    .00054,
     +     .11456,    .02479,    .00822,    .00028,    .00017,
     +     .00004,    .00024,    .00050 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10884,    .02342,    .00743,    .00025,    .00017,
     +     .00004,    .00022,    .00048,
     +     .10355,    .02218,    .00674,    .00023,    .00017,
     +     .00004,    .00021,    .00045,
     +     .09881,    .02108,    .00617,    .00023,    .00017,
     +     .00004,    .00019,    .00042,
     +     .09455,    .02010,    .00568,    .00022,    .00017,
     +     .00004,    .00018,    .00039,
     +     .09048,    .01917,    .00525,    .00021,    .00017,
     +     .00004,    .00017,    .00036,
     +     .08666,    .01829,    .00486,    .00020,    .00017,
     +     .00004,    .00016,    .00034,
     +     .08320,    .01750,    .00453,    .00019,    .00017,
     +     .00004,    .00016,    .00033,
     +     .08007,    .01679,    .00424,    .00018,    .00016,
     +     .00004,    .00015,    .00032 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07706,    .01610,    .00397,    .00016,    .00016,
     +     .00004,    .00014,    .00031,
     +     .07420,    .01545,    .00373,    .00015,    .00016,
     +     .00004,    .00014,    .00029,
     +     .07157,    .01486,    .00352,    .00015,    .00016,
     +     .00004,    .00013,    .00028,
     +     .06917,    .01432,    .00333,    .00015,    .00016,
     +     .00004,    .00013,    .00026,
     +     .06682,    .01380,    .00315,    .00014,    .00016,
     +     .00004,    .00012,    .00025 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .35997,    .08499,    .14809,    .00047,    .00000,
     +     .00000,    .00062,    .00181,
     +     .33988,    .07969,    .12682,    .00049,    .00000,
     +     .00000,    .00060,    .00166,
     +     .31270,    .07255,    .10091,    .00043,    .00002,
     +     .00000,    .00055,    .00150,
     +     .29452,    .06787,    .08545,    .00045,    .00005,
     +     .00000,    .00053,    .00137,
     +     .27678,    .06328,    .07203,    .00039,    .00006,
     +     .00000,    .00050,    .00128,
     +     .26246,    .05964,    .06240,    .00037,    .00007,
     +     .00000,    .00047,    .00121,
     +     .24952,    .05640,    .05453,    .00038,    .00008,
     +     .00000,    .00044,    .00112,
     +     .23664,    .05319,    .04739,    .00039,    .00009,
     +     .00000,    .00042,    .00103 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22613,    .05056,    .04207,    .00036,    .00009,
     +     .00000,    .00040,    .00098,
     +     .21649,    .04817,    .03757,    .00033,    .00009,
     +     .00000,    .00038,    .00093,
     +     .20920,    .04638,    .03440,    .00032,    .00009,
     +     .00000,    .00037,    .00089,
     +     .19459,    .04282,    .02855,    .00030,    .00009,
     +     .00000,    .00034,    .00081,
     +     .18291,    .04000,    .02437,    .00029,    .00009,
     +     .00001,    .00032,    .00073,
     +     .17079,    .03710,    .02052,    .00028,    .00009,
     +     .00001,    .00030,    .00066,
     +     .15917,    .03433,    .01728,    .00027,    .00009,
     +     .00001,    .00027,    .00061,
     +     .14944,    .03204,    .01487,    .00025,    .00009,
     +     .00001,    .00026,    .00057 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .14031,    .02990,    .01284,    .00023,    .00009,
     +     .00001,    .00024,    .00053,
     +     .13318,    .02825,    .01141,    .00023,    .00009,
     +     .00001,    .00022,    .00049,
     +     .12513,    .02638,    .00995,    .00021,    .00009,
     +     .00001,    .00020,    .00045,
     +     .11849,    .02486,    .00884,    .00019,    .00009,
     +     .00001,    .00019,    .00042,
     +     .11275,    .02354,    .00796,    .00017,    .00009,
     +     .00001,    .00018,    .00039,
     +     .10589,    .02199,    .00700,    .00017,    .00009,
     +     .00001,    .00017,    .00035,
     +     .09987,    .02064,    .00623,    .00016,    .00009,
     +     .00001,    .00015,    .00033,
     +     .09460,    .01946,    .00560,    .00014,    .00009,
     +     .00001,    .00013,    .00031 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08960,    .01835,    .00506,    .00015,    .00009,
     +     .00001,    .00013,    .00029,
     +     .08502,    .01733,    .00459,    .00015,    .00009,
     +     .00001,    .00013,    .00027,
     +     .08094,    .01643,    .00420,    .00015,    .00009,
     +     .00001,    .00012,    .00025,
     +     .07729,    .01563,    .00387,    .00013,    .00009,
     +     .00001,    .00011,    .00023,
     +     .07382,    .01486,    .00357,    .00011,    .00009,
     +     .00001,    .00010,    .00022,
     +     .07054,    .01415,    .00331,    .00011,    .00009,
     +     .00001,    .00010,    .00021,
     +     .06758,    .01352,    .00308,    .00011,    .00009,
     +     .00001,    .00009,    .00019,
     +     .06491,    .01294,    .00288,    .00010,    .00009,
     +     .00001,    .00009,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06234,    .01239,    .00270,    .00010,    .00009,
     +     .00001,    .00009,    .00018,
     +     .05991,    .01187,    .00253,    .00009,    .00009,
     +     .00001,    .00008,    .00017,
     +     .05770,    .01140,    .00239,    .00009,    .00009,
     +     .00001,    .00007,    .00017,
     +     .05567,    .01097,    .00226,    .00008,    .00009,
     +     .00001,    .00007,    .00016,
     +     .05368,    .01055,    .00214,    .00009,    .00009,
     +     .00001,    .00007,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .31548,    .07060,    .10941,    .00025,    .00000,
     +     .00000,    .00043,    .00115,
     +     .29686,    .06597,    .09282,    .00023,    .00000,
     +     .00000,    .00040,    .00107,
     +     .27168,    .05979,    .07298,    .00024,    .00001,
     +     .00000,    .00036,    .00095,
     +     .25500,    .05572,    .06130,    .00022,    .00003,
     +     .00000,    .00034,    .00088,
     +     .23875,    .05178,    .05127,    .00020,    .00003,
     +     .00000,    .00032,    .00080,
     +     .22569,    .04866,    .04414,    .00020,    .00004,
     +     .00000,    .00029,    .00076,
     +     .21399,    .04588,    .03834,    .00019,    .00004,
     +     .00000,    .00027,    .00071,
     +     .20237,    .04313,    .03313,    .00017,    .00004,
     +     .00000,    .00026,    .00066 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .19283,    .04090,    .02927,    .00018,    .00004,
     +     .00000,    .00025,    .00061,
     +     .18413,    .03887,    .02603,    .00017,    .00004,
     +     .00000,    .00024,    .00057,
     +     .17759,    .03736,    .02377,    .00017,    .00004,
     +     .00000,    .00023,    .00055,
     +     .16454,    .03434,    .01962,    .00014,    .00004,
     +     .00000,    .00021,    .00052,
     +     .15413,    .03197,    .01667,    .00014,    .00004,
     +     .00000,    .00020,    .00047,
     +     .14339,    .02955,    .01398,    .00014,    .00004,
     +     .00000,    .00018,    .00042,
     +     .13313,    .02725,    .01172,    .00013,    .00004,
     +     .00000,    .00017,    .00038,
     +     .12456,    .02533,    .01006,    .00012,    .00004,
     +     .00000,    .00015,    .00035 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11657,    .02356,    .00867,    .00011,    .00004,
     +     .00000,    .00015,    .00032,
     +     .11036,    .02220,    .00770,    .00011,    .00004,
     +     .00000,    .00014,    .00030,
     +     .10333,    .02067,    .00670,    .00010,    .00004,
     +     .00000,    .00013,    .00027,
     +     .09754,    .01942,    .00595,    .00010,    .00004,
     +     .00000,    .00012,    .00025,
     +     .09256,    .01835,    .00535,    .00011,    .00004,
     +     .00000,    .00012,    .00022,
     +     .08666,    .01708,    .00470,    .00009,    .00004,
     +     .00000,    .00010,    .00021,
     +     .08151,    .01598,    .00418,    .00007,    .00004,
     +     .00000,    .00009,    .00020,
     +     .07700,    .01503,    .00376,    .00006,    .00004,
     +     .00000,    .00009,    .00019 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07275,    .01413,    .00340,    .00006,    .00004,
     +     .00000,    .00008,    .00017,
     +     .06885,    .01332,    .00308,    .00006,    .00004,
     +     .00000,    .00007,    .00016,
     +     .06537,    .01259,    .00282,    .00006,    .00004,
     +     .00000,    .00007,    .00015,
     +     .06226,    .01195,    .00260,    .00006,    .00004,
     +     .00000,    .00006,    .00014,
     +     .05932,    .01134,    .00240,    .00007,    .00004,
     +     .00000,    .00006,    .00012,
     +     .05656,    .01078,    .00222,    .00006,    .00004,
     +     .00000,    .00006,    .00012,
     +     .05408,    .01027,    .00207,    .00006,    .00004,
     +     .00000,    .00005,    .00012,
     +     .05184,    .00981,    .00193,    .00005,    .00004,
     +     .00000,    .00005,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04969,    .00938,    .00181,    .00004,    .00004,
     +     .00000,    .00005,    .00011,
     +     .04767,    .00897,    .00170,    .00004,    .00004,
     +     .00000,    .00005,    .00010,
     +     .04582,    .00859,    .00160,    .00004,    .00004,
     +     .00000,    .00004,    .00010,
     +     .04414,    .00826,    .00151,    .00004,    .00004,
     +     .00000,    .00004,    .00009,
     +     .04249,    .00793,    .00143,    .00004,    .00004,
     +     .00000,    .00004,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .27283,    .05791,    .07840,    .00018,    .00000,
     +     .00000,    .00023,    .00069,
     +     .25584,    .05393,    .06599,    .00017,    .00000,
     +     .00000,    .00022,    .00064,
     +     .23299,    .04862,    .05131,    .00016,    .00001,
     +     .00000,    .00019,    .00057,
     +     .21792,    .04515,    .04277,    .00015,    .00001,
     +     .00000,    .00018,    .00052,
     +     .20325,    .04182,    .03552,    .00016,    .00002,
     +     .00000,    .00018,    .00046,
     +     .19155,    .03918,    .03040,    .00015,    .00002,
     +     .00000,    .00016,    .00042,
     +     .18109,    .03683,    .02628,    .00013,    .00002,
     +     .00000,    .00015,    .00040,
     +     .17073,    .03452,    .02260,    .00012,    .00002,
     +     .00000,    .00014,    .00038 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .16227,    .03266,    .01989,    .00012,    .00002,
     +     .00000,    .00013,    .00036,
     +     .15457,    .03097,    .01764,    .00012,    .00002,
     +     .00000,    .00013,    .00034,
     +     .14880,    .02970,    .01606,    .00011,    .00002,
     +     .00000,    .00013,    .00032,
     +     .13729,    .02719,    .01320,    .00009,    .00002,
     +     .00000,    .00011,    .00028,
     +     .12815,    .02524,    .01118,    .00011,    .00002,
     +     .00000,    .00010,    .00026,
     +     .11880,    .02324,    .00934,    .00010,    .00002,
     +     .00000,    .00009,    .00023,
     +     .10989,    .02134,    .00782,    .00009,    .00002,
     +     .00000,    .00009,    .00022,
     +     .10246,    .01978,    .00670,    .00009,    .00002,
     +     .00000,    .00008,    .00020 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09555,    .01834,    .00577,    .00009,    .00002,
     +     .00000,    .00007,    .00018,
     +     .09021,    .01723,    .00512,    .00009,    .00002,
     +     .00000,    .00007,    .00016,
     +     .08421,    .01599,    .00445,    .00007,    .00002,
     +     .00000,    .00006,    .00015,
     +     .07928,    .01498,    .00395,    .00007,    .00002,
     +     .00000,    .00006,    .00013,
     +     .07503,    .01412,    .00356,    .00007,    .00002,
     +     .00000,    .00006,    .00012,
     +     .07000,    .01310,    .00313,    .00007,    .00002,
     +     .00000,    .00005,    .00011,
     +     .06563,    .01223,    .00278,    .00006,    .00002,
     +     .00000,    .00004,    .00011,
     +     .06183,    .01147,    .00250,    .00005,    .00002,
     +     .00000,    .00004,    .00011 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05827,    .01076,    .00226,    .00004,    .00002,
     +     .00000,    .00004,    .00010,
     +     .05500,    .01011,    .00205,    .00005,    .00002,
     +     .00000,    .00003,    .00008,
     +     .05208,    .00953,    .00188,    .00005,    .00002,
     +     .00000,    .00003,    .00007,
     +     .04950,    .00903,    .00173,    .00005,    .00002,
     +     .00000,    .00003,    .00007,
     +     .04706,    .00855,    .00159,    .00004,    .00002,
     +     .00000,    .00003,    .00007,
     +     .04478,    .00811,    .00148,    .00004,    .00002,
     +     .00000,    .00003,    .00007,
     +     .04274,    .00771,    .00137,    .00003,    .00002,
     +     .00000,    .00003,    .00006,
     +     .04088,    .00735,    .00129,    .00004,    .00002,
     +     .00000,    .00002,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03910,    .00701,    .00120,    .00004,    .00002,
     +     .00000,    .00002,    .00006,
     +     .03742,    .00669,    .00113,    .00004,    .00002,
     +     .00000,    .00002,    .00005,
     +     .03590,    .00640,    .00107,    .00004,    .00002,
     +     .00000,    .00002,    .00005,
     +     .03453,    .00614,    .00101,    .00004,    .00002,
     +     .00000,    .00002,    .00005,
     +     .03319,    .00588,    .00095,    .00003,    .00002,
     +     .00000,    .00002,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .23222,    .04652,    .05408,    .00005,    .00000,
     +     .00000,    .00017,    .00045,
     +     .21697,    .04317,    .04517,    .00005,    .00000,
     +     .00000,    .00016,    .00040,
     +     .19659,    .03873,    .03475,    .00005,    .00000,
     +     .00000,    .00014,    .00035,
     +     .18320,    .03584,    .02878,    .00004,    .00000,
     +     .00000,    .00013,    .00033,
     +     .17021,    .03308,    .02373,    .00004,    .00000,
     +     .00000,    .00012,    .00029,
     +     .15989,    .03088,    .02021,    .00005,    .00000,
     +     .00000,    .00011,    .00026,
     +     .15069,    .02895,    .01740,    .00005,    .00000,
     +     .00000,    .00011,    .00024,
     +     .14161,    .02705,    .01490,    .00004,    .00000,
     +     .00000,    .00010,    .00022 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13422,    .02552,    .01307,    .00005,    .00000,
     +     .00000,    .00008,    .00021,
     +     .12752,    .02414,    .01155,    .00004,    .00000,
     +     .00000,    .00008,    .00020,
     +     .12250,    .02311,    .01050,    .00004,    .00000,
     +     .00000,    .00008,    .00018,
     +     .11256,    .02107,    .00860,    .00002,    .00000,
     +     .00000,    .00007,    .00018,
     +     .10472,    .01948,    .00727,    .00003,    .00000,
     +     .00000,    .00007,    .00015,
     +     .09667,    .01787,    .00606,    .00003,    .00000,
     +     .00000,    .00006,    .00014,
     +     .08905,    .01635,    .00506,    .00003,    .00000,
     +     .00000,    .00005,    .00012,
     +     .08274,    .01510,    .00434,    .00004,    .00000,
     +     .00000,    .00005,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07690,    .01395,    .00373,    .00003,    .00000,
     +     .00000,    .00005,    .00010,
     +     .07240,    .01307,    .00331,    .00003,    .00000,
     +     .00000,    .00005,    .00009,
     +     .06733,    .01209,    .00288,    .00003,    .00000,
     +     .00000,    .00004,    .00009,
     +     .06319,    .01129,    .00256,    .00002,    .00000,
     +     .00000,    .00004,    .00008,
     +     .05966,    .01061,    .00230,    .00002,    .00000,
     +     .00000,    .00004,    .00007,
     +     .05546,    .00982,    .00202,    .00003,    .00000,
     +     .00000,    .00003,    .00006,
     +     .05184,    .00913,    .00180,    .00003,    .00000,
     +     .00000,    .00003,    .00006,
     +     .04871,    .00854,    .00162,    .00001,    .00000,
     +     .00000,    .00003,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04575,    .00798,    .00147,    .00002,    .00000,
     +     .00000,    .00003,    .00005,
     +     .04306,    .00748,    .00133,    .00002,    .00000,
     +     .00000,    .00003,    .00005,
     +     .04068,    .00704,    .00122,    .00002,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03857,    .00665,    .00112,    .00002,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03658,    .00628,    .00104,    .00001,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03472,    .00594,    .00096,    .00001,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03306,    .00564,    .00089,    .00001,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03156,    .00537,    .00084,    .00001,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03013,    .00511,    .00078,    .00001,    .00000,
     +     .00000,    .00002,    .00003,
     +     .02879,    .00486,    .00073,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02756,    .00464,    .00069,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02646,    .00444,    .00065,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02538,    .00425,    .00062,    .00001,    .00000,
     +     .00000,    .00001,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .16018,    .02851,    .02302,    .00003,    .00000,
     +     .00000,    .00004,    .00012,
     +     .14854,    .02626,    .01896,    .00002,    .00000,
     +     .00000,    .00003,    .00012,
     +     .13311,    .02330,    .01433,    .00001,    .00000,
     +     .00000,    .00003,    .00011,
     +     .12306,    .02139,    .01173,    .00002,    .00000,
     +     .00000,    .00003,    .00009,
     +     .11342,    .01959,    .00958,    .00002,    .00000,
     +     .00000,    .00003,    .00008,
     +     .10584,    .01817,    .00809,    .00001,    .00000,
     +     .00000,    .00003,    .00007,
     +     .09911,    .01693,    .00692,    .00001,    .00000,
     +     .00000,    .00003,    .00006,
     +     .09251,    .01572,    .00590,    .00001,    .00000,
     +     .00000,    .00003,    .00007 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08721,    .01474,    .00516,    .00001,    .00000,
     +     .00000,    .00002,    .00006,
     +     .08241,    .01387,    .00455,    .00001,    .00000,
     +     .00000,    .00002,    .00006,
     +     .07883,    .01322,    .00413,    .00001,    .00000,
     +     .00000,    .00002,    .00005,
     +     .07178,    .01195,    .00337,    .00002,    .00000,
     +     .00000,    .00002,    .00004,
     +     .06628,    .01097,    .00285,    .00002,    .00000,
     +     .00000,    .00002,    .00004,
     +     .06069,    .00998,    .00238,    .00001,    .00000,
     +     .00000,    .00002,    .00004,
     +     .05545,    .00905,    .00199,    .00001,    .00000,
     +     .00000,    .00002,    .00004,
     +     .05113,    .00830,    .00171,    .00001,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04716,    .00761,    .00147,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .04414,    .00709,    .00131,    .00001,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04076,    .00651,    .00114,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03802,    .00604,    .00102,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03569,    .00565,    .00092,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03295,    .00519,    .00081,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03060,    .00479,    .00072,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02857,    .00445,    .00065,    .00000,    .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)/
     +     .02667,    .00414,    .00059,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02496,    .00386,    .00054,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02346,    .00361,    .00049,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02212,    .00339,    .00045,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02087,    .00319,    .00042,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01972,    .00300,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01869,    .00284,    .00036,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01776,    .00269,    .00034,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01688,    .00255,    .00032,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01606,    .00242,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01531,    .00230,    .00028,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01464,    .00219,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01400,    .00209,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .10172,    .01588,    .00815,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .09355,    .01451,    .00665,    .00001,    .00000,
     +     .00000,    .00000,    .00004,
     +     .08285,    .01272,    .00497,    .00001,    .00000,
     +     .00000,    .00000,    .00002,
     +     .07595,    .01159,    .00405,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .06941,    .01052,    .00329,    .00000,    .00000,
     +     .00000,    .00000,    .00002,
     +     .06429,    .00969,    .00278,    .00001,    .00000,
     +     .00000,    .00000,    .00002,
     +     .05978,    .00896,    .00238,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05541,    .00826,    .00203,    .00001,    .00000,
     +     .00000,    .00000,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05190,    .00770,    .00178,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04877,    .00721,    .00157,    .00000,    .00000,
     +     .00000,    .00000,    .00002,
     +     .04645,    .00684,    .00143,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04190,    .00612,    .00117,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03837,    .00557,    .00100,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03482,    .00503,    .00084,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03152,    .00452,    .00071,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02883,    .00411,    .00061,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02639,    .00374,    .00053,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02453,    .00347,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02248,    .00316,    .00041,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02082,    .00291,    .00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01942,    .00270,    .00034,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01779,    .00246,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01641,    .00226,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01522,    .00209,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01412,    .00193,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01313,    .00178,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01226,    .00166,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01150,    .00155,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01080,    .00145,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01014,    .00136,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00957,    .00128,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00905,    .00121,    .00012,    .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)/
     +     .00856,    .00114,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00811,    .00107,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00770,    .00102,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00733,    .00096,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00698,    .00092,    .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=1,8)/
     +     .05796,    .00780,    .00228,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05282,    .00706,    .00186,    .00001,    .00000,
     +     .00000,   -.00001,    .00000,
     +     .04614,    .00611,    .00140,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04192,    .00551,    .00114,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03794,    .00496,    .00094,    .00000,    .00000,
     +     .00000,   -.00001,    .00000,
     +     .03485,    .00453,    .00080,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03216,    .00416,    .00069,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02957,    .00380,    .00059,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02751,    .00352,    .00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02568,    .00327,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02433,    .00309,    .00043,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02171,    .00274,    .00036,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01970,    .00247,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01770,    .00221,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01586,    .00197,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01438,    .00177,    .00019,    .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)/
     +     .01304,    .00160,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01204,    .00147,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01093,    .00133,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01005,    .00121,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00931,    .00112,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00846,    .00101,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00774,    .00092,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00712,    .00084,    .00008,    .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)/
     +     .00656,    .00077,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00606,    .00071,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00562,    .00066,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00524,    .00061,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00489,    .00057,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00456,    .00053,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00428,    .00049,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00403,    .00046,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00379,    .00044,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00357,    .00041,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00337,    .00039,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00320,    .00036,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00303,    .00034,    .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)/
     +     .02822,    .00318,    .00046,   -.00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02543,    .00285,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02189,    .00243,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01966,    .00217,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01760,    .00193,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01602,    .00175,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01465,    .00159,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01334,    .00144,    .00014,    .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)/
     +     .01232,    .00132,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01141,    .00122,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01075,    .00115,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00947,    .00100,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00850,    .00090,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00755,    .00079,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00669,    .00070,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00600,    .00062,    .00005,    .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)/
     +     .00538,    .00055,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00493,    .00050,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00443,    .00045,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00403,    .00041,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00371,    .00037,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00333,    .00034,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00302,    .00030,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00276,    .00028,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00252,    .00025,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00231,    .00023,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00021,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00182,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00169,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00157,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00014,    .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,    .00013,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00129,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00121,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00114,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00107,    .00010,    .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)/
     +     .00270,    .00018,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00236,    .00016,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00194,    .00013,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00169,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00130,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00116,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00103,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00093,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00084,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00078,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00066,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00057,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00049,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .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=17,24)/
     +     .00032,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00022,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .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=25,32)/
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .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)/
     +     .00005,    .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,
     +     .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='mrschm1.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