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

sfmrs_99a2.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a2(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)/
     +     .00497,    .00272,   1.10631,    .87038,    .00000,
     +     .00000,    .46509,    .88262,
     +     .00514,    .00279,   2.37972,    .90598,    .00000,
     +     .00000,    .50585,    .91833,
     +     .00539,    .00289,   4.88777,    .98332,    .00000,
     +     .00000,    .59051,    .99581,
     +     .00558,    .00296,   7.23091,   1.05778,    .04540,
     +     .00000,    .67007,   1.07035,
     +     .00577,    .00304,  10.05866,   1.15386,    .15609,
     +     .00000,    .77130,   1.16651,
     +     .00594,    .00311,  12.97519,   1.25282,    .26204,
     +     .00000,    .87457,   1.26552,
     +     .00610,    .00318,  16.24774,   1.36032,    .37892,
     +     .00000,    .98611,   1.37307,
     +     .00628,    .00326,  20.26178,   1.48888,    .52058,
     +     .00000,   1.11885,   1.50168 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00643,    .00332,  24.17125,   1.61488,    .65315,
     +     .00000,   1.24839,   1.62770,
     +     .00657,    .00339,  28.36697,   1.74862,    .79427,
     +     .00000,   1.38549,   1.76147,
     +     .00669,    .00344,  32.04142,   1.86307,    .91742,
     +     .00000,   1.50254,   1.87594,
     +     .00694,    .00355,  40.54470,   2.13544,   1.20427,
     +     .02263,   1.78032,   2.14834,
     +     .00715,    .00365,  48.54019,   2.39901,   1.47939,
     +     .34594,   2.04838,   2.41192,
     +     .00740,    .00376,  58.63090,   2.72890,   1.82403,
     +     .74388,   2.38316,   2.74182,
     +     .00765,    .00388,  70.50028,   3.11216,   2.22358,
     +    1.16181,   2.77136,   3.12508,
     +     .00788,    .00399,  82.49915,   3.49661,   2.62372,
     +    1.58056,   3.16017,   3.50952 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00812,    .00410,  95.85857,   3.92237,   3.06660,
     +    2.04215,   3.59020,   3.93527,
     +     .00832,    .00419, 107.87370,   4.30518,   3.46285,
     +    2.45047,   3.97648,   4.31806,
     +     .00856,    .00431, 123.58195,   4.80613,   3.97962,
     +    2.98090,   4.48153,   4.81898,
     +     .00878,    .00441, 138.62471,   5.28496,   4.47423,
     +    3.49092,   4.96391,   5.29779,
     +     .00898,    .00451, 153.38724,   5.75471,   4.95960,
     +    3.99172,   5.43685,   5.76751,
     +     .00924,    .00464, 173.23834,   6.39110,   5.61307,
     +    4.65950,   6.07719,   6.40386,
     +     .00948,    .00475, 193.26999,   7.03451,   6.27423,
     +    5.33697,   6.72421,   7.04722,
     +     .00971,    .00487, 213.33212,   7.67951,   6.93817,
     +    6.01964,   7.37253,   7.69219 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00994,    .00498, 234.26096,   8.36018,   7.63416,
     +    6.72821,   8.05644,   8.37281,
     +     .01017,    .00509, 255.95996,   9.06742,   8.35872,
     +    7.46882,   8.76679,   9.08000,
     +     .01039,    .00520, 277.54135,   9.77425,   9.08257,
     +    8.20862,   9.47651,   9.78678,
     +     .01059,    .00531, 298.60437,  10.47053,   9.79344,
     +    8.93230,  10.17546,  10.48302,
     +     .01080,    .00541, 320.86453,  11.20738,  10.54747,
     +    9.70291,  10.91495,  11.21983,
     +     .01101,    .00552, 343.29434,  11.95900,  11.31324,
     +   10.48097,  11.66911,  11.97139,
     +     .01121,    .00562, 365.69553,  12.70998,  12.08058,
     +   11.26423,  12.42247,  12.72233,
     +     .01140,    .00571, 387.25101,  13.44168,  12.82522,
     +   12.02022,  13.15639,  13.45398 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01159,    .00581, 409.92413,  14.21256,  13.61129,
     +   12.82078,  13.92947,  14.22482,
     +     .01179,    .00591, 432.78207,  14.99709,  14.40965,
     +   13.63191,  14.71615,  15.00930,
     +     .01197,    .00600, 455.25241,  15.77249,  15.19865,
     +   14.43369,  15.49356,  15.78465,
     +     .01215,    .00609, 477.23602,  16.53419,  15.97423,
     +   15.22276,  16.25714,  16.54631,
     +     .01233,    .00618, 499.70901,  17.32157,  16.77381,
     +   16.03338,  17.04641,  17.33365 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00679,    .00363,   1.03840,    .74150,    .00000,
     +     .00000,    .39551,    .74868,
     +     .00703,    .00373,   2.18801,    .77444,    .00000,
     +     .00000,    .43249,    .78168,
     +     .00738,    .00388,   4.40202,    .84285,    .00000,
     +     .00000,    .50662,    .85016,
     +     .00763,    .00399,   6.42818,    .90705,    .03865,
     +     .00000,    .57481,    .91441,
     +     .00790,    .00411,   8.83149,    .98849,    .13239,
     +     .00000,    .66025,    .99590,
     +     .00813,    .00421,  11.27380,   1.07125,    .22097,
     +     .00000,    .74637,   1.07868,
     +     .00835,    .00431,  13.98081,   1.16037,    .31771,
     +     .00000,    .83864,   1.16784,
     +     .00859,    .00442,  17.26159,   1.26606,    .43392,
     +     .00000,    .94758,   1.27355 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00880,    .00451,  20.42008,   1.36873,    .54167,
     +     .00000,   1.05301,   1.37624,
     +     .00900,    .00461,  23.77684,   1.47695,    .65554,
     +     .00000,   1.16383,   1.48448,
     +     .00916,    .00468,  26.69324,   1.56908,    .75433,
     +     .00000,   1.25799,   1.57662,
     +     .00950,    .00484,  33.36218,   1.78647,    .98241,
     +     .01848,   1.47957,   1.79403,
     +     .00980,    .00498,  39.54324,   1.99484,   1.19899,
     +     .27243,   1.69142,   2.00241,
     +     .01013,    .00514,  47.24720,   2.25330,   1.46778,
     +     .58306,   1.95368,   2.26088,
     +     .01048,    .00531,  56.19357,   2.55074,   1.77638,
     +     .90547,   2.25494,   2.55832,
     +     .01080,    .00546,  65.12936,   2.84644,   2.08264,
     +    1.22552,   2.55401,   2.85403 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01112,    .00562,  74.96897,   3.17120,   2.41878,
     +    1.57525,   2.88209,   3.17878,
     +     .01139,    .00576,  83.73049,   3.46099,   2.71721,
     +    1.88213,   3.17455,   3.46856,
     +     .01172,    .00592,  95.07364,   3.83736,   3.10348,
     +    2.27773,   3.55410,   3.84492,
     +     .01201,    .00607, 105.83356,   4.19448,   3.47052,
     +    2.65536,   3.91396,   4.20204,
     +     .01229,    .00620, 116.30534,   4.54257,   3.82840,
     +    3.02377,   4.26451,   4.55011,
     +     .01263,    .00637, 130.25548,   5.01068,   4.30667,
     +    3.51125,   4.73568,   5.01821,
     +     .01296,    .00654, 144.20216,   5.48048,   4.78709,
     +    4.00228,   5.20827,   5.48799,
     +     .01327,    .00670, 158.05371,   5.94832,   5.26642,
     +    4.49395,   5.67868,   5.95581 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01358,    .00685, 172.37700,   6.43861,   5.76536,
     +    5.00051,   6.17148,   6.44608,
     +     .01389,    .00701, 187.11490,   6.94493,   6.28170,
     +    5.52694,   6.68021,   6.95238,
     +     .01419,    .00716, 201.66525,   7.44797,   6.79457,
     +    6.04976,   7.18547,   7.45540,
     +     .01447,    .00730, 215.76253,   7.94061,   7.29530,
     +    6.55814,   7.68019,   7.94803,
     +     .01475,    .00745, 230.57080,   8.45936,   7.82392,
     +    7.09704,   8.20098,   8.46676,
     +     .01503,    .00759, 245.38493,   8.98550,   8.35766,
     +    7.63787,   8.72909,   8.99287,
     +     .01529,    .00773, 260.10025,   9.50881,   8.89024,
     +    8.18017,   9.25424,   9.51616,
     +     .01555,    .00786, 274.16693,  10.01606,   9.40433,
     +    8.70068,   9.76321,  10.02339 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01581,    .00799, 288.89059,  10.54827,   9.94492,
     +    9.24987,  10.29713,  10.55558,
     +     .01606,    .00812, 303.64664,  11.08735,  10.49137,
     +    9.80362,  10.83786,  11.09464,
     +     .01631,    .00825, 318.07877,  11.61793,  11.02923,
     +   10.34880,  11.37001,  11.62520,
     +     .01654,    .00837, 332.13293,  12.13714,  11.55598,
     +   10.88343,  11.89068,  12.14439,
     +     .01678,    .00850, 346.42035,  12.67153,  12.09662,
     +   11.43012,  12.42653,  12.67876 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00928,    .00483,    .97583,    .63144,    .00000,
     +     .00000,    .33643,    .63503,
     +     .00961,    .00498,   2.01314,    .66171,    .00000,
     +     .00000,    .36986,    .66533,
     +     .01009,    .00520,   3.96590,    .72210,    .00000,
     +     .00000,    .43471,    .72575,
     +     .01044,    .00537,   5.71569,    .77743,    .03290,
     +     .00000,    .49315,    .78111,
     +     .01081,    .00554,   7.75479,    .84641,    .11226,
     +     .00000,    .56524,    .85011,
     +     .01113,    .00569,   9.79576,    .91556,    .18627,
     +     .00000,    .63700,    .91927,
     +     .01144,    .00584,  12.02979,    .98935,    .26630,
     +     .00000,    .71323,    .99308,
     +     .01177,    .00600,  14.70443,   1.07611,    .36156,
     +     .00000,    .80251,   1.07985 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01205,    .00614,  17.24896,   1.15960,    .44906,
     +     .00000,    .88813,   1.16335,
     +     .01233,    .00627,  19.92633,   1.24698,    .54084,
     +     .00000,    .97752,   1.25074,
     +     .01255,    .00638,  22.23370,   1.32097,    .62000,
     +     .00000,   1.05308,   1.32473,
     +     .01301,    .00661,  27.44574,   1.49400,    .80111,
     +     .01508,   1.22935,   1.49778,
     +     .01342,    .00681,  32.20534,   1.65822,    .97134,
     +     .21443,   1.39625,   1.66201,
     +     .01387,    .00704,  38.06226,   1.86005,   1.18062,
     +     .45677,   1.60100,   1.86384,
     +     .01435,    .00727,  44.77505,   2.09006,   1.41851,
     +     .70533,   1.83395,   2.09385,
     +     .01478,    .00749,  51.39793,   2.31663,   1.65241,
     +     .94973,   2.06311,   2.32043 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01523,    .00772,  58.60865,   2.56335,   1.90693,
     +    1.21445,   2.31238,   2.56716,
     +     .01559,    .00790,  64.96388,   2.78178,   2.13113,
     +    1.44482,   2.53287,   2.78559,
     +     .01604,    .00813,  73.10967,   3.06331,   2.41907,
     +    1.73946,   2.81684,   3.06712,
     +     .01644,    .00834,  80.76193,   3.32844,   2.69065,
     +    2.01864,   3.08407,   3.33225,
     +     .01681,    .00853,  88.14594,   3.58515,   2.95372,
     +    2.28921,   3.34267,   3.58896,
     +     .01728,    .00877,  97.88839,   3.92780,   3.30263,
     +    2.64441,   3.68766,   3.93161,
     +     .01773,    .00900, 107.53593,   4.26911,   3.65052,
     +    2.99958,   4.03112,   4.27292,
     +     .01815,    .00921, 117.03607,   4.60670,   3.99535,
     +    3.35291,   4.37068,   4.61051 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01857,    .00943, 126.77041,   4.95798,   4.35166,
     +    3.71416,   4.72387,   4.96178,
     +     .01898,    .00965, 136.70889,   5.31848,   4.71820,
     +    4.08738,   5.08622,   5.32229,
     +     .01938,    .00985, 146.44682,   5.67449,   5.08011,
     +    4.45585,   5.44394,   5.67829,
     +     .01975,    .01005, 155.81017,   6.02106,   5.43132,
     +    4.81193,   5.79209,   6.02486,
     +     .02013,    .01025, 165.58516,   6.38415,   5.80031,
     +    5.18765,   6.15675,   6.38794,
     +     .02051,    .01045, 175.29036,   6.75026,   6.17065,
     +    5.56235,   6.52437,   6.75405,
     +     .02086,    .01063, 184.87825,   7.11274,   6.53860,
     +    5.93657,   6.88826,   7.11653,
     +     .02120,    .01081, 193.97990,   7.46222,   6.89181,
     +    6.29367,   7.23906,   7.46600 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02155,    .01099, 203.45938,   7.82736,   7.26179,
     +    6.66905,   7.60551,   7.83114,
     +     .02189,    .01118, 212.90094,   8.19543,   7.63394,
     +    7.04566,   7.97485,   8.19921,
     +     .02222,    .01135, 222.08696,   8.55615,   7.99872,
     +    7.41491,   8.33678,   8.55993,
     +     .02253,    .01151, 230.98996,   8.90777,   8.35462,
     +    7.77569,   8.68952,   8.91155,
     +     .02285,    .01168, 239.98708,   9.26804,   8.71821,
     +    8.14282,   9.05091,   9.27181 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01114,    .00572,    .94195,    .57468,    .00000,
     +     .00000,    .30613,    .57676,
     +     .01154,    .00591,   1.91852,    .60339,    .00000,
     +     .00000,    .33758,    .60549,
     +     .01212,    .00619,   3.73217,    .65948,    .00000,
     +     .00000,    .39753,    .66161,
     +     .01255,    .00639,   5.33699,    .71018,    .02993,
     +     .00000,    .45091,    .71232,
     +     .01299,    .00661,   7.18746,    .77275,    .10190,
     +     .00000,    .51616,    .77490,
     +     .01338,    .00680,   9.02291,    .83496,    .16851,
     +     .00000,    .58063,    .83712,
     +     .01375,    .00698,  11.01702,    .90099,    .24011,
     +     .00000,    .64876,    .90316,
     +     .01414,    .00718,  13.38707,    .97822,    .32487,
     +     .00000,    .72815,    .98040 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01449,    .00735,  15.62585,   1.05212,    .40228,
     +     .00000,    .80389,   1.05431,
     +     .01482,    .00752,  17.96751,   1.12913,    .48313,
     +     .00000,    .88262,   1.13132,
     +     .01508,    .00765,  19.97586,   1.19412,    .55262,
     +     .00000,    .94896,   1.19631,
     +     .01565,    .00793,  24.47928,   1.34530,    .71075,
     +     .01338,   1.10293,   1.34751,
     +     .01613,    .00818,  28.55520,   1.48793,    .85848,
     +     .18634,   1.24786,   1.49015,
     +     .01668,    .00846,  33.53263,   1.66225,   1.03907,
     +     .39583,   1.42468,   1.66448,
     +     .01725,    .00875,  39.19286,   1.85975,   1.24314,
     +     .60918,   1.62470,   1.86198,
     +     .01777,    .00902,  44.73631,   2.05323,   1.44267,
     +     .81779,   1.82040,   2.05547 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01830,    .00929,  50.73115,   2.26285,   1.65868,
     +    1.04255,   2.03220,   2.26510,
     +     .01874,    .00952,  55.98237,   2.44756,   1.84806,
     +    1.23720,   2.21868,   2.44982,
     +     .01928,    .00980,  62.67283,   2.68454,   2.09015,
     +    1.48497,   2.45774,   2.68680,
     +     .01976,    .01004,  68.92151,   2.90671,   2.31749,
     +    1.71871,   2.68171,   2.90898,
     +     .02020,    .01027,  74.92051,   3.12098,   2.53684,
     +    1.94435,   2.89760,   3.12326,
     +     .02076,    .01057,  82.78966,   3.40570,   2.82642,
     +    2.23916,   3.18431,   3.40798,
     +     .02129,    .01085,  90.53770,   3.68804,   3.11390,
     +    2.53267,   3.46848,   3.69033,
     +     .02179,    .01111,  98.12856,   3.96617,   3.39773,
     +    2.82351,   3.74830,   3.96847 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02229,    .01137, 105.86349,   4.25434,   3.68972,
     +    3.11950,   4.03812,   4.25665,
     +     .02278,    .01163, 113.72402,   4.54899,   3.98901,
     +    3.42424,   4.33434,   4.55130,
     +     .02326,    .01188, 121.39097,   4.83891,   4.28347,
     +    3.72403,   4.62572,   4.84123,
     +     .02370,    .01212, 128.72888,   5.12015,   4.56818,
     +    4.01265,   4.90831,   5.12247,
     +     .02415,    .01236, 136.36130,   5.41390,   4.86647,
     +    4.31636,   5.20340,   5.41623,
     +     .02459,    .01259, 143.90433,   5.70905,   5.16474,
     +    4.61809,   5.49983,   5.71138,
     +     .02502,    .01282, 151.33212,   6.00048,   5.46036,
     +    4.91872,   5.79247,   6.00282,
     +     .02542,    .01303, 158.35289,   6.28055,   5.74317,
     +    5.20459,   6.07367,   6.28290 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02583,    .01325, 165.64360,   6.57246,   6.03872,
     +    5.50443,   6.36670,   6.57481,
     +     .02624,    .01347, 172.87773,   6.86584,   6.33513,
     +    5.80434,   6.66117,   6.86820,
     +     .02663,    .01367, 179.89362,   7.15264,   6.62494,
     +    6.09766,   6.94900,   7.15501,
     +     .02700,    .01387, 186.67384,   7.43155,   6.90706,
     +    6.38364,   7.22887,   7.43393,
     +     .02737,    .01407, 193.50090,   7.71654,   7.19447,
     +    6.67377,   7.51482,   7.71893 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01268,    .00645,    .91927,    .53747,    .00000,
     +     .00000,    .28635,    .53873,
     +     .01314,    .00667,   1.85483,    .56509,    .00000,
     +     .00000,    .31644,    .56637,
     +     .01381,    .00700,   3.57545,    .61830,    .00000,
     +     .00000,    .37313,    .61958,
     +     .01429,    .00724,   5.08420,    .66593,    .02798,
     +     .00000,    .42318,    .66723,
     +     .01480,    .00749,   6.81067,    .72430,    .09512,
     +     .00000,    .48397,    .72561,
     +     .01524,    .00771,   8.51197,    .78200,    .15692,
     +     .00000,    .54370,    .78331,
     +     .01567,    .00793,  10.35041,    .84300,    .22305,
     +     .00000,    .60658,    .84432,
     +     .01612,    .00815,  12.52400,    .91407,    .30105,
     +     .00000,    .67961,    .91540 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01651,    .00835,  14.56671,    .98181,    .37200,
     +     .00000,    .74899,    .98314,
     +     .01689,    .00855,  16.69413,   1.05216,    .44587,
     +     .00000,    .82090,   1.05350,
     +     .01719,    .00870,  18.51241,   1.11140,    .50920,
     +     .00000,    .88135,   1.11274,
     +     .01783,    .00903,  22.56811,   1.24866,    .65274,
     +     .01229,   1.02111,   1.25002,
     +     .01839,    .00932,  26.21512,   1.37760,    .78626,
     +     .16862,   1.15212,   1.37897,
     +     .01901,    .00964,  30.64430,   1.53457,    .94883,
     +     .35748,   1.31133,   1.53595,
     +     .01966,    .00997,  35.65268,   1.71164,   1.13174,
     +     .54886,   1.49067,   1.71304,
     +     .02025,    .01028,  40.53175,   1.88443,   1.30987,
     +     .73523,   1.66544,   1.88583 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02085,    .01060,  45.78246,   2.07094,   1.50200,
     +     .93527,   1.85391,   2.07236,
     +     .02135,    .01086,  50.36147,   2.23474,   1.66987,
     +    1.10790,   2.01928,   2.23616,
     +     .02196,    .01118,  56.17024,   2.44418,   1.88376,
     +    1.32690,   2.23059,   2.44562,
     +     .02251,    .01147,  61.57271,   2.63991,   2.08396,
     +    1.53284,   2.42793,   2.64136,
     +     .02301,    .01173,  66.74027,   2.82814,   2.27659,
     +    1.73108,   2.61761,   2.82960,
     +     .02364,    .01207,  73.49034,   3.07744,   2.53005,
     +    1.98921,   2.86870,   3.07892,
     +     .02424,    .01238,  80.10910,   3.32386,   2.78088,
     +    2.24538,   3.11677,   3.32536,
     +     .02481,    .01269,  86.56970,   3.56592,   3.02782,
     +    2.49853,   3.36032,   3.56742 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02538,    .01299,  93.12634,   3.81593,   3.28105,
     +    2.75529,   3.61181,   3.81745,
     +     .02594,    .01329,  99.76711,   4.07088,   3.53994,
     +    3.01897,   3.86817,   4.07241,
     +     .02647,    .01357, 106.22301,   4.32109,   3.79399,
     +    3.27771,   4.11969,   4.32264,
     +     .02697,    .01384, 112.38109,   4.56317,   4.03900,
     +    3.52613,   4.36298,   4.56473,
     +     .02748,    .01411, 118.76931,   4.81549,   4.29516,
     +    3.78703,   4.61649,   4.81706,
     +     .02798,    .01438, 125.06142,   5.06836,   4.55062,
     +    4.04551,   4.87051,   5.06994,
     +     .02846,    .01464, 131.24292,   5.31755,   4.80335,
     +    4.30260,   5.12079,   5.31915,
     +     .02892,    .01488, 137.06738,   5.55648,   5.04455,
     +    4.54644,   5.36072,   5.55809 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02938,    .01513, 143.10297,   5.80506,   5.29620,
     +    4.80181,   5.61030,   5.80668,
     +     .02983,    .01537, 149.07483,   6.05437,   5.54802,
     +    5.05666,   5.86059,   6.05600,
     +     .03027,    .01561, 154.85329,   6.29764,   5.79380,
     +    5.30547,   6.10478,   6.29929,
     +     .03069,    .01583, 160.42607,   6.53382,   6.03268,
     +    5.54767,   6.34182,   6.53548,
     +     .03111,    .01606, 166.02213,   6.77467,   6.27552,
     +    5.79286,   6.58353,   6.77634 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01403,    .00708,    .90255,    .51026,    .00000,
     +     .00000,    .27193,    .51101,
     +     .01453,    .00733,   1.80746,    .53705,    .00000,
     +     .00000,    .30100,    .53781,
     +     .01527,    .00770,   3.45897,    .58810,    .00000,
     +     .00000,    .35527,    .58887,
     +     .01581,    .00797,   4.89683,    .63347,    .02655,
     +     .00000,    .40288,    .63425,
     +     .01638,    .00826,   6.53235,    .68876,    .09016,
     +     .00000,    .46040,    .68955,
     +     .01687,    .00851,   8.13576,    .74318,    .14846,
     +     .00000,    .51669,    .74397,
     +     .01734,    .00875,   9.86111,    .80052,    .21063,
     +     .00000,    .57577,    .80133,
     +     .01784,    .00901,  11.89261,    .86713,    .28374,
     +     .00000,    .64419,    .86795 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01827,    .00923,  13.79410,    .93042,    .35004,
     +     .00000,    .70899,    .93124,
     +     .01869,    .00945,  15.76777,    .99598,    .41888,
     +     .00000,    .77598,    .99681,
     +     .01903,    .00962,  17.45008,   1.05108,    .47779,
     +     .00000,    .83220,   1.05192,
     +     .01974,    .00999,  21.18684,   1.17838,    .61092,
     +     .01151,    .96180,   1.17923,
     +     .02035,    .01031,  24.52995,   1.29755,    .73432,
     +     .15601,   1.08287,   1.29841,
     +     .02104,    .01067,  28.57247,   1.44215,    .88409,
     +     .33024,   1.22954,   1.44303,
     +     .02176,    .01104,  33.12336,   1.60475,   1.05204,
     +     .50610,   1.39422,   1.60564,
     +     .02241,    .01139,  37.53828,   1.76291,   1.21509,
     +     .67681,   1.55421,   1.76381 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02308,    .01174,  42.27129,   1.93313,   1.39045,
     +     .85951,   1.72623,   1.93406,
     +     .02363,    .01203,  46.38445,   2.08223,   1.54325,
     +    1.01673,   1.87678,   2.08317,
     +     .02430,    .01239,  51.58443,   2.27239,   1.73742,
     +    1.21566,   2.06865,   2.27334,
     +     .02490,    .01271,  56.40479,   2.44964,   1.91872,
     +    1.40226,   2.24739,   2.45061,
     +     .02545,    .01300,  61.00217,   2.61972,   2.09277,
     +    1.58149,   2.41880,   2.62071,
     +     .02615,    .01338,  66.98750,   2.84442,   2.32120,
     +    1.81423,   2.64513,   2.84542,
     +     .02682,    .01373,  72.83736,   3.06595,   2.54669,
     +    2.04463,   2.86818,   3.06698,
     +     .02744,    .01406,  78.53085,   3.28306,   2.76819,
     +    2.27181,   3.08667,   3.28411 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02806,    .01440,  84.29057,   3.50677,   2.99475,
     +    2.50163,   3.31172,   3.50783,
     +     .02868,    .01473,  90.10869,   3.73441,   3.22592,
     +    2.73718,   3.54066,   3.73550,
     +     .02926,    .01504,  95.75011,   3.95737,   3.45231,
     +    2.96783,   3.76482,   3.95847,
     +     .02982,    .01534, 101.11699,   4.17264,   3.67018,
     +    3.18883,   3.98121,   4.17376,
     +     .03038,    .01564, 106.67287,   4.39664,   3.89761,
     +    3.42056,   4.20631,   4.39778,
     +     .03093,    .01594, 112.13026,   4.62068,   4.12394,
     +    3.64964,   4.43140,   4.62183,
     +     .03145,    .01622, 117.48192,   4.84113,   4.34753,
     +    3.87720,   4.65284,   4.84230,
     +     .03195,    .01649, 122.51188,   5.05209,   4.56051,
     +    4.09258,   4.86473,   5.05328 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03246,    .01677, 127.71547,   5.27129,   4.78242,
     +    4.31786,   5.08485,   5.27250,
     +     .03296,    .01704, 132.85260,   5.49076,   5.00411,
     +    4.54230,   5.30521,   5.49198,
     +     .03344,    .01730, 137.81444,   5.70460,   5.22018,
     +    4.76111,   5.51990,   5.70584,
     +     .03390,    .01755, 142.59163,   5.91194,   5.42991,
     +    4.97384,   5.72803,   5.91320,
     +     .03436,    .01780, 147.37839,   6.12305,   5.64277,
     +    5.18882,   5.93992,   6.12432 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01919,    .00950,    .85645,    .43420,    .00000,
     +     .00000,    .23186,    .43403,
     +     .01989,    .00986,   1.67228,    .45844,    .00000,
     +     .00000,    .25790,    .45828,
     +     .02092,    .01041,   3.12485,    .50323,    .00000,
     +     .00000,    .30523,    .50309,
     +     .02166,    .01080,   4.36101,    .54219,    .02254,
     +     .00000,    .34595,    .54207,
     +     .02244,    .01122,   5.74040,    .58885,    .07625,
     +     .00000,    .39438,    .58875,
     +     .02312,    .01157,   7.07066,    .63412,    .12481,
     +     .00000,    .44111,    .63403,
     +     .02377,    .01192,   8.48293,    .68135,    .17606,
     +     .00000,    .48971,    .68128,
     +     .02445,    .01229,  10.12407,    .73569,    .23575,
     +     .00000,    .54547,    .73565 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02505,    .01261,  11.64052,    .78679,    .28934,
     +     .00000,    .59776,    .78676,
     +     .02563,    .01292,  13.19767,    .83929,    .34455,
     +     .00000,    .65139,    .83928,
     +     .02609,    .01316,  14.51352,    .88317,    .39150,
     +     .00000,    .69614,    .88317,
     +     .02706,    .01369,  17.39745,    .98352,    .49659,
     +     .00936,    .79829,    .98356,
     +     .02790,    .01414,  19.93550,   1.07645,    .59294,
     +     .12232,    .89271,   1.07652,
     +     .02884,    .01465,  22.96224,   1.18808,    .70871,
     +     .25768,   1.00595,   1.18818,
     +     .02983,    .01518,  26.32152,   1.31226,    .83715,
     +     .39261,   1.13176,   1.31240,
     +     .03072,    .01567,  29.53714,   1.43185,    .96060,
     +     .52230,   1.25278,   1.43202 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03162,    .01616,  32.94241,   1.55939,   1.09215,
     +     .65979,   1.38171,   1.55959,
     +     .03238,    .01657,  35.86867,   1.67015,   1.20580,
     +     .77707,   1.49360,   1.67038,
     +     .03329,    .01707,  39.52776,   1.81023,   1.34902,
     +     .92422,   1.63502,   1.81050,
     +     .03410,    .01751,  42.88403,   1.93976,   1.48168,
     +    1.06116,   1.76570,   1.94006,
     +     .03484,    .01792,  46.05547,   2.06316,   1.60814,
     +    1.19175,   1.89014,   2.06350,
     +     .03579,    .01844,  50.14011,   2.22486,   1.77273,
     +    1.35989,   2.05311,   2.22524,
     +     .03668,    .01893,  54.09083,   2.38300,   1.93391,
     +    1.52502,   2.21243,   2.38343,
     +     .03752,    .01939,  57.90030,   2.53688,   2.09112,
     +    1.68672,   2.36738,   2.53734 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03837,    .01985,  61.71398,   2.69418,   2.25062,
     +    1.84890,   2.52573,   2.69468,
     +     .03919,    .02030,  65.53378,   2.85320,   2.41232,
     +    2.01409,   2.68576,   2.85374,
     +     .03998,    .02074,  69.20650,   3.00793,   2.56966,
     +    2.17481,   2.84143,   3.00851,
     +     .04072,    .02114,  72.67004,   3.15635,   2.72006,
     +    2.32773,   2.99071,   3.15696,
     +     .04146,    .02155,  76.23181,   3.30997,   2.87626,
     +    2.48731,   3.14519,   3.31062,
     +     .04220,    .02196,  79.69936,   3.46260,   3.03066,
     +    2.64394,   3.29864,   3.46329,
     +     .04290,    .02235,  83.08017,   3.61209,   3.18252,
     +    2.79888,   3.44891,   3.61281,
     +     .04356,    .02271,  86.23109,   3.75428,   3.32625,
     +    2.94455,   3.59182,   3.75504 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04424,    .02308,  89.47361,   3.90138,   3.47540,
     +    3.09634,   3.73964,   3.90217,
     +     .04490,    .02345,  92.65116,   4.04787,   3.62358,
     +    3.24670,   3.88682,   4.04870,
     +     .04554,    .02380,  95.70200,   4.18995,   3.76735,
     +    3.39263,   4.02956,   4.19082,
     +     .04615,    .02414,  98.62387,   4.32714,   3.90634,
     +    3.53395,   4.16737,   4.32803,
     +     .04676,    .02448, 101.53013,   4.46610,   4.04665,
     +    3.67597,   4.30694,   4.46703 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02630,    .01285,    .82265,    .36983,    .00000,
     +     .00000,    .19827,    .36963,
     +     .02727,    .01338,   1.55803,    .39161,    .00000,
     +     .00000,    .22150,    .39144,
     +     .02870,    .01417,   2.83272,    .43073,    .00000,
     +     .00000,    .26267,    .43062,
     +     .02973,    .01474,   3.89157,    .46405,    .01908,
     +     .00000,    .29741,    .46398,
     +     .03081,    .01533,   5.04935,    .50327,    .06428,
     +     .00000,    .33805,    .50325,
     +     .03174,    .01585,   6.14666,    .54076,    .10458,
     +     .00000,    .37672,    .54078,
     +     .03263,    .01634,   7.29514,    .57947,    .14665,
     +     .00000,    .41653,    .57954,
     +     .03358,    .01687,   8.61135,    .62357,    .19518,
     +     .00000,    .46177,    .62368 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03440,    .01733,   9.81110,    .66458,    .23828,
     +     .00000,    .50374,    .66473,
     +     .03520,    .01777,  11.02912,    .70637,    .28235,
     +     .00000,    .54643,    .70655,
     +     .03583,    .01812,  12.04907,    .74106,    .31957,
     +     .00000,    .58184,    .74128,
     +     .03716,    .01886,  14.25288,    .81960,    .40204,
     +     .00758,    .66182,    .81989,
     +     .03831,    .01950,  16.15846,    .89149,    .47682,
     +     .09544,    .73491,    .89184,
     +     .03960,    .02022,  18.39773,    .97693,    .56571,
     +     .20007,    .82165,    .97734,
     +     .04093,    .02097,  20.84586,   1.07090,    .66323,
     +     .30302,    .91694,   1.07139,
     +     .04215,    .02165,  23.15623,   1.16046,    .75598,
     +     .40094,   1.00765,   1.16101 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04338,    .02233,  25.57114,   1.25503,    .85388,
     +     .50375,   1.10335,   1.25566,
     +     .04440,    .02290,  27.62164,   1.33643,    .93769,
     +     .59065,   1.18566,   1.33711,
     +     .04563,    .02360,  30.15571,   1.43847,   1.04237,
     +     .69871,   1.28878,   1.43922,
     +     .04673,    .02421,  32.45405,   1.53203,   1.13853,
     +     .79845,   1.38327,   1.53284,
     +     .04773,    .02477,  34.60437,   1.62050,   1.22952,
     +     .89286,   1.47258,   1.62137,
     +     .04901,    .02549,  37.34178,   1.73541,   1.34689,
     +    1.01331,   1.58853,   1.73636,
     +     .05021,    .02616,  39.95994,   1.84686,   1.46087,
     +    1.13063,   1.70093,   1.84788,
     +     .05134,    .02680,  42.45953,   1.95447,   1.57122,
     +    1.24467,   1.80941,   1.95556 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05246,    .02743,  44.93328,   2.06356,   1.68222,
     +    1.35803,   1.91935,   2.06472,
     +     .05357,    .02805,  47.38851,   2.17308,   1.79397,
     +    1.47273,   2.02969,   2.17431,
     +     .05461,    .02864,  49.72786,   2.27891,   1.90198,
     +    1.58356,   2.13629,   2.28021,
     +     .05560,    .02919,  51.91273,   2.37972,   2.00449,
     +    1.68825,   2.23780,   2.38108,
     +     .05660,    .02975,  54.14371,   2.48349,   2.11038,
     +    1.79693,   2.34226,   2.48491,
     +     .05757,    .03029,  56.29396,   2.58586,   2.21429,
     +    1.90279,   2.44530,   2.58734,
     +     .05850,    .03082,  58.37774,   2.68563,   2.31601,
     +    2.00706,   2.54571,   2.68717,
     +     .05939,    .03131,  60.30131,   2.77991,   2.41164,
     +    2.10440,   2.64058,   2.78151 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06028,    .03181,  62.26973,   2.87701,   2.51045,
     +    2.20541,   2.73826,   2.87867,
     +     .06116,    .03230,  64.18266,   2.97315,   2.60803,
     +    2.30486,   2.83497,   2.97486,
     +     .06200,    .03278,  66.00740,   3.06594,   2.70226,
     +    2.40093,   2.92830,   3.06771,
     +     .06280,    .03322,  67.74481,   3.15514,   2.79296,
     +    2.49356,   3.01801,   3.15696,
     +     .06361,    .03368,  69.45829,   3.24499,   2.88399,
     +    2.58609,   3.10836,   3.24687 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03167,    .01544,    .81164,    .33722,    .00000,
     +     .00000,    .18135,    .33733,
     +     .03285,    .01610,   1.50350,    .35759,    .00000,
     +     .00000,    .20302,    .35776,
     +     .03458,    .01708,   2.68231,    .39362,    .00000,
     +     .00000,    .24089,    .39388,
     +     .03583,    .01778,   3.64677,    .42394,    .01726,
     +     .00000,    .27247,    .42426,
     +     .03714,    .01852,   4.68812,    .45926,    .05801,
     +     .00000,    .30906,    .45966,
     +     .03826,    .01915,   5.66447,    .49272,    .09404,
     +     .00000,    .34358,    .49318,
     +     .03934,    .01976,   6.67731,    .52705,    .13141,
     +     .00000,    .37890,    .52758,
     +     .04048,    .02041,   7.82813,    .56592,    .17425,
     +     .00000,    .41880,    .56652 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04147,    .02097,   8.86827,    .60183,    .21206,
     +     .00000,    .45556,    .60248,
     +     .04243,    .02151,   9.91683,    .63822,    .25052,
     +     .00000,    .49277,    .63893,
     +     .04318,    .02194,  10.78993,    .66833,    .28288,
     +     .00000,    .52351,    .66908,
     +     .04479,    .02285,  12.65970,    .73602,    .35415,
     +     .00668,    .59251,    .73687,
     +     .04617,    .02363,  14.25856,    .79755,    .41831,
     +     .08221,    .65511,    .79849,
     +     .04771,    .02451,  16.12019,    .87018,    .49409,
     +     .17182,    .72892,    .87122,
     +     .04931,    .02542,  18.13638,    .94953,    .57666,
     +     .25930,    .80944,    .95066,
     +     .05076,    .02624,  20.02231,   1.02464,    .65468,
     +     .34198,    .88559,   1.02587 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05223,    .02707,  21.97753,   1.10348,    .73654,
     +     .42827,    .96547,   1.10481,
     +     .05344,    .02776,  23.62524,   1.17097,    .80624,
     +     .50079,   1.03377,   1.17238,
     +     .05491,    .02860,  25.64651,   1.25510,    .89282,
     +     .59049,   1.11889,   1.25661,
     +     .05622,    .02934,  27.46683,   1.33184,    .97193,
     +     .67286,   1.19647,   1.33343,
     +     .05741,    .03002,  29.15933,   1.40407,   1.04645,
     +     .75047,   1.26946,   1.40574,
     +     .05893,    .03088,  31.29795,   1.49738,   1.14205,
     +     .84893,   1.36371,   1.49915,
     +     .06035,    .03169,  33.32899,   1.58739,   1.23440,
     +     .94435,   1.45459,   1.58927,
     +     .06169,    .03244,  35.25591,   1.67391,   1.32341,
     +    1.03668,   1.54190,   1.67587 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06302,    .03320,  37.14875,   1.76116,   1.41245,
     +    1.12794,   1.62992,   1.76321,
     +     .06432,    .03394,  39.01664,   1.84836,   1.50172,
     +    1.21990,   1.71787,   1.85051,
     +     .06556,    .03464,  40.78600,   1.93228,   1.58763,
     +    1.30839,   1.80249,   1.93451,
     +     .06672,    .03530,  42.42818,   2.01186,   1.66881,
     +    1.39160,   1.88271,   2.01418,
     +     .06789,    .03596,  44.09756,   2.09350,   1.75239,
     +    1.47771,   1.96498,   2.09590,
     +     .06904,    .03661,  45.69580,   2.17368,   1.83402,
     +    1.56118,   2.04578,   2.17616,
     +     .07014,    .03723,  47.23884,   2.25159,   1.91372,
     +    1.64318,   2.12427,   2.25415,
     +     .07117,    .03782,  48.65408,   2.32491,   1.98831,
     +    1.71938,   2.19813,   2.32754 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07222,    .03841,  50.09723,   2.40021,   2.06519,
     +    1.79826,   2.27397,   2.40292,
     +     .07325,    .03899,  51.49192,   2.47449,   2.14082,
     +    1.87562,   2.34877,   2.47727,
     +     .07423,    .03955,  52.81660,   2.54597,   2.21364,
     +    1.95013,   2.42074,   2.54882,
     +     .07517,    .04008,  54.07318,   2.61450,   2.28354,
     +    2.02180,   2.48973,   2.61741,
     +     .07612,    .04061,  55.30518,   2.68327,   2.35344,
     +    2.09311,   2.55897,   2.68625 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03618,    .01768,    .80963,    .31630,    .00000,
     +     .00000,    .17051,    .31672,
     +     .03753,    .01845,   1.47192,    .33569,    .00000,
     +     .00000,    .19111,    .33620,
     +     .03951,    .01959,   2.58562,    .36961,    .00000,
     +     .00000,    .22673,    .37024,
     +     .04095,    .02041,   3.48651,    .39790,    .01605,
     +     .00000,    .25620,    .39862,
     +     .04244,    .02126,   4.45011,    .43062,    .05383,
     +     .00000,    .29011,    .43144,
     +     .04373,    .02200,   5.34630,    .46142,    .08704,
     +     .00000,    .32189,    .46232,
     +     .04496,    .02270,   6.26984,    .49287,    .12132,
     +     .00000,    .35426,    .49385,
     +     .04626,    .02345,   7.31247,    .52832,    .16044,
     +     .00000,    .39066,    .52939 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04739,    .02410,   8.24890,    .56090,    .19481,
     +     .00000,    .42405,    .56204,
     +     .04848,    .02472,   9.18795,    .59380,    .22964,
     +     .00000,    .45770,    .59501,
     +     .04934,    .02522,   9.96658,    .62093,    .25886,
     +     .00000,    .48543,    .62220,
     +     .05117,    .02627,  11.62293,    .68165,    .32292,
     +     .00609,    .54737,    .68305,
     +     .05274,    .02716,  13.02743,    .73655,    .38029,
     +     .07375,    .60328,    .73805,
     +     .05449,    .02817,  14.65152,    .80104,    .44773,
     +     .15379,    .66887,    .80267,
     +     .05630,    .02921,  16.39811,    .87113,    .52084,
     +     .23147,    .74006,    .87288,
     +     .05795,    .03015,  18.02099,    .93715,    .58960,
     +     .30455,    .80706,    .93902 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05961,    .03110,  19.69320,   1.00615,    .66142,
     +     .38048,    .87702,   1.00813,
     +     .06099,    .03189,  21.09443,   1.06495,    .72231,
     +     .44403,    .93661,   1.06704,
     +     .06265,    .03284,  22.80375,   1.13797,    .79765,
     +     .52232,   1.01055,   1.14018,
     +     .06412,    .03369,  24.33494,   1.20431,    .86623,
     +     .59394,   1.07768,   1.20662,
     +     .06547,    .03446,  25.75193,   1.26654,    .93061,
     +     .66120,   1.14063,   1.26895,
     +     .06718,    .03544,  27.53231,   1.34660,   1.01286,
     +     .74617,   1.22158,   1.34913,
     +     .06878,    .03635,  29.21405,   1.42354,   1.09201,
     +     .82820,   1.29934,   1.42619,
     +     .07028,    .03721,  30.80203,   1.49723,   1.16803,
     +     .90731,   1.37378,   1.49999 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07178,    .03806,  32.35299,   1.57124,   1.24377,
     +     .98518,   1.44853,   1.57411,
     +     .07325,    .03890,  33.87680,   1.64499,   1.31947,
     +    1.06341,   1.52298,   1.64796,
     +     .07463,    .03969,  35.31384,   1.71573,   1.39210,
     +    1.13845,   1.59438,   1.71881,
     +     .07594,    .04043,  36.64101,   1.78259,   1.46048,
     +    1.20877,   1.66185,   1.78577,
     +     .07725,    .04118,  37.98569,   1.85100,   1.53073,
     +    1.28137,   1.73087,   1.85428,
     +     .07854,    .04191,  39.26630,   1.91797,   1.59910,
     +    1.35149,   1.79843,   1.92134,
     +     .07976,    .04261,  40.49918,   1.98290,   1.66571,
     +    1.42025,   1.86391,   1.98636,
     +     .08092,    .04327,  41.62417,   2.04381,   1.72784,
     +    1.48392,   1.92533,   2.04736 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08209,    .04393,  42.76834,   2.10624,   1.79176,
     +    1.54972,   1.98827,   2.10987,
     +     .08324,    .04458,  43.86916,   2.16764,   1.85447,
     +    1.61407,   2.05018,   2.17137,
     +     .08433,    .04520,  44.91127,   2.22660,   1.91470,
     +    1.67590,   2.10961,   2.23041,
     +     .08538,    .04580,  45.89693,   2.28301,   1.97242,
     +    1.73526,   2.16646,   2.28690,
     +     .08643,    .04639,  46.85872,   2.33947,   2.02996,
     +    1.79415,   2.22336,   2.34343 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04016,    .01980,    .81609,    .30199,    .00000,
     +     .00000,    .16289,    .30246,
     +     .04167,    .02067,   1.45541,    .32063,    .00000,
     +     .00000,    .18265,    .32119,
     +     .04388,    .02195,   2.51895,    .35292,    .00000,
     +     .00000,    .21653,    .35363,
     +     .04547,    .02287,   3.37133,    .37966,    .01512,
     +     .00000,    .24437,    .38048,
     +     .04713,    .02383,   4.27592,    .41040,    .05067,
     +     .00000,    .27621,    .41134,
     +     .04856,    .02466,   5.11162,    .43919,    .08175,
     +     .00000,    .30592,    .44023,
     +     .04992,    .02545,   5.96805,    .46848,    .11370,
     +     .00000,    .33607,    .46961,
     +     .05137,    .02628,   6.92975,    .50137,    .15004,
     +     .00000,    .36985,    .50261 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05262,    .02701,   7.78895,    .53148,    .18184,
     +     .00000,    .40071,    .53280,
     +     .05382,    .02770,   8.64680,    .56178,    .21398,
     +     .00000,    .43172,    .56320,
     +     .05478,    .02826,   9.35563,    .58672,    .24088,
     +     .00000,    .45721,    .58820,
     +     .05680,    .02942,  10.85508,    .64232,    .29962,
     +     .00565,    .51395,    .64394,
     +     .05853,    .03042,  12.11753,    .69236,    .35201,
     +     .06751,    .56494,    .69412,
     +     .06046,    .03154,  13.56903,    .75092,    .41336,
     +     .14053,    .62453,    .75282,
     +     .06246,    .03269,  15.12083,    .81428,    .47958,
     +     .21106,    .68893,    .81632,
     +     .06428,    .03374,  16.55465,    .87373,    .54161,
     +     .27716,    .74930,    .87591 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06610,    .03479,  18.02445,    .93563,    .60618,
     +     .34558,    .81211,    .93795,
     +     .06761,    .03566,  19.25017,    .98821,    .66073,
     +     .40265,    .86542,    .99064,
     +     .06944,    .03671,  20.73854,   1.05328,    .72800,
     +     .47272,    .93135,   1.05584,
     +     .07106,    .03764,  22.06580,   1.11220,    .78904,
     +     .53663,    .99102,   1.11489,
     +     .07253,    .03849,  23.28910,   1.16731,    .84618,
     +     .59647,   1.04681,   1.17011,
     +     .07440,    .03956,  24.81865,   1.23798,    .91893,
     +     .67182,   1.11832,   1.24093,
     +     .07616,    .04057,  26.25704,   1.30567,    .98872,
     +     .74433,   1.18678,   1.30875,
     +     .07780,    .04151,  27.60992,   1.37032,   1.05557,
     +     .81407,   1.25214,   1.37352 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07944,    .04245,  28.92475,   1.43504,   1.12194,
     +     .88248,   1.31755,   1.43836,
     +     .08103,    .04336,  30.21170,   1.49935,   1.18811,
     +     .95103,   1.38253,   1.50280,
     +     .08255,    .04422,  31.42066,   1.56087,   1.25142,
     +    1.01662,   1.44468,   1.56444,
     +     .08397,    .04503,  32.53237,   1.61886,   1.31087,
     +    1.07790,   1.50326,   1.62254,
     +     .08539,    .04585,  33.65549,   1.67808,   1.37182,
     +    1.14106,   1.56305,   1.68187,
     +     .08679,    .04665,  34.72039,   1.73588,   1.43096,
     +    1.20188,   1.62140,   1.73977,
     +     .08813,    .04740,  35.74324,   1.79181,   1.48849,
     +    1.26142,   1.67786,   1.79581,
     +     .08938,    .04812,  36.67242,   1.84414,   1.54200,
     +    1.31640,   1.73068,   1.84824 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09065,    .04884,  37.61539,   1.89769,   1.59697,
     +    1.37313,   1.78472,   1.90189,
     +     .09190,    .04955,  38.51896,   1.95023,   1.65076,
     +    1.42848,   1.83774,   1.95453,
     +     .09309,    .05022,  39.37180,   2.00059,   1.70233,
     +    1.48156,   1.88855,   2.00498,
     +     .09422,    .05086,  40.17644,   2.04868,   1.75167,
     +    1.53245,   1.93707,   2.05316,
     +     .09536,    .05150,  40.95825,   2.09671,   1.80074,
     +    1.58280,   1.98551,   2.10127 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05585,    .02856,    .86037,    .26286,    .00000,
     +     .00000,    .14228,    .26404,
     +     .05796,    .02982,   1.43084,    .27921,    .00000,
     +     .00000,    .15956,    .28055,
     +     .06104,    .03165,   2.34533,    .30670,    .00000,
     +     .00000,    .18838,    .30830,
     +     .06326,    .03298,   3.05569,    .32896,    .01250,
     +     .00000,    .21156,    .33073,
     +     .06555,    .03434,   3.79030,    .35405,    .04167,
     +     .00000,    .23758,    .35601,
     +     .06752,    .03550,   4.45400,    .37715,    .06677,
     +     .00000,    .26145,    .37927,
     +     .06940,    .03662,   5.12166,    .40037,    .09224,
     +     .00000,    .28540,    .40264,
     +     .07139,    .03779,   5.85813,    .42612,    .12087,
     +     .00000,    .31190,    .42855 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07310,    .03881,   6.50476,    .44938,    .14562,
     +     .00000,    .33581,    .45196,
     +     .07475,    .03978,   7.14096,    .47256,    .17037,
     +     .00000,    .35959,    .47527,
     +     .07605,    .04055,   7.66052,    .49148,    .19094,
     +     .00000,    .37898,    .49430,
     +     .07880,    .04216,   8.73899,    .53313,    .23529,
     +     .00444,    .42161,    .53618,
     +     .08114,    .04354,   9.62520,    .57008,    .27430,
     +     .05075,    .45937,    .57333,
     +     .08374,    .04506,  10.62444,    .61275,    .31938,
     +     .10502,    .50293,    .61621,
     +     .08644,    .04663,  11.67171,    .65826,    .36738,
     +     .15662,    .54934,    .66194,
     +     .08886,    .04805,  12.62115,    .70040,    .41176,
     +     .20436,    .59228,    .70428 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09130,    .04947,  13.57749,    .74373,    .45739,
     +     .25319,    .63640,    .74782,
     +     .09331,    .05064,  14.36206,    .78012,    .49552,
     +     .29345,    .67344,    .78438,
     +     .09574,    .05204,  15.29941,    .82465,    .54200,
     +     .34235,    .71872,    .82911,
     +     .09787,    .05328,  16.12249,    .86453,    .58375,
     +     .38650,    .75927,    .86917,
     +     .09982,    .05440,  16.87079,    .90149,    .62246,
     +     .42746,    .79682,    .90629,
     +     .10227,    .05582,  17.79066,    .94834,    .67119,
     +     .47844,    .84441,    .95334,
     +     .10457,    .05714,  18.64212,    .99272,    .71744,
     +     .52700,    .88948,    .99792,
     +     .10672,    .05837,  19.43190,   1.03471,    .76133,
     +     .57328,    .93211,   1.04008 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10884,    .05958,  20.18582,   1.07626,    .80441,
     +     .61815,    .97428,   1.08181,
     +     .11091,    .06077,  20.91420,   1.11719,    .84700,
     +     .66275,   1.01581,   1.12291,
     +     .11287,    .06188,  21.58919,   1.15599,    .88739,
     +     .70506,   1.05518,   1.16188,
     +     .11469,    .06292,  22.20026,   1.19222,    .92496,
     +     .74421,   1.09193,   1.19826,
     +     .11653,    .06397,  22.81151,   1.22896,    .96322,
     +     .78431,   1.12919,   1.23516,
     +     .11832,    .06498,  23.38105,   1.26447,    .99998,
     +     .82253,   1.16520,   1.27081,
     +     .12002,    .06595,  23.92372,   1.29862,   1.03553,
     +     .85976,   1.19983,   1.30510,
     +     .12162,    .06685,  24.40809,   1.33027,   1.06829,
     +     .89380,   1.23193,   1.33689 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12323,    .06776,  24.89588,   1.36248,   1.10177,
     +     .92876,   1.26459,   1.36924,
     +     .12481,    .06865,  25.35619,   1.39383,   1.13426,
     +     .96258,   1.29637,   1.40071,
     +     .12632,    .06950,  25.78596,   1.42368,   1.16522,
     +     .99483,   1.32663,   1.43069,
     +     .12774,    .07030,  26.18771,   1.45202,   1.19468,
     +    1.02558,   1.35537,   1.45915,
     +     .12917,    .07110,  26.57134,   1.48009,   1.22372,
     +    1.05574,   1.38382,   1.48733 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07868,    .04251,    .97178,    .23266,    .00000,
     +     .00000,    .12624,    .23515,
     +     .08164,    .04430,   1.47116,    .24678,    .00000,
     +     .00000,    .14117,    .24954,
     +     .08594,    .04689,   2.23810,    .26972,    .00000,
     +     .00000,    .16527,    .27288,
     +     .08902,    .04875,   2.81292,    .28783,    .01016,
     +     .00000,    .18420,    .29127,
     +     .09218,    .05064,   3.39068,    .30782,    .03369,
     +     .00000,    .20501,    .31155,
     +     .09488,    .05225,   3.89968,    .32587,    .05356,
     +     .00000,    .22375,    .32985,
     +     .09746,    .05378,   4.40090,    .34375,    .07345,
     +     .00000,    .24229,    .34797,
     +     .10017,    .05539,   4.94262,    .36332,    .09549,
     +     .00000,    .26254,    .36779 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10249,    .05676,   5.40899,    .38074,    .11428,
     +     .00000,    .28054,    .38542,
     +     .10472,    .05808,   5.86008,    .39788,    .13286,
     +     .00000,    .29823,    .40277,
     +     .10648,    .05911,   6.22348,    .41175,    .14817,
     +     .00000,    .31253,    .41681,
     +     .11018,    .06128,   6.96104,    .44185,    .18071,
     +     .00340,    .34352,    .44724,
     +     .11330,    .06311,   7.54927,    .46812,    .20888,
     +     .03715,    .37054,    .47379,
     +     .11676,    .06512,   8.19735,    .49797,    .24095,
     +     .07635,    .40122,    .50396,
     +     .12032,    .06718,   8.86066,    .52930,    .27456,
     +     .11297,    .43339,    .53562,
     +     .12352,    .06903,   9.44835,    .55787,    .30518,
     +     .14636,    .46270,    .56447 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12671,    .07087,  10.02786,    .58683,    .33623,
     +     .18006,    .49240,    .59372,
     +     .12933,    .07237,  10.49381,    .61082,    .36183,
     +     .20748,    .51700,    .61794,
     +     .13247,    .07416,  11.03925,    .63979,    .39266,
     +     .24038,    .54669,    .64719,
     +     .13523,    .07573,  11.50912,    .66541,    .42000,
     +     .26974,    .57294,    .67306,
     +     .13773,    .07716,  11.92907,    .68888,    .44509,
     +     .29670,    .59699,    .69676,
     +     .14087,    .07893,  12.43376,    .71824,    .47625,
     +     .32981,    .62705,    .72639,
     +     .14379,    .08058,  12.89141,    .74570,    .50548,
     +     .36098,    .65517,    .75411,
     +     .14651,    .08211,  13.30834,    .77138,    .53291,
     +     .39038,    .68147,    .78004 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14919,    .08361,  13.69650,    .79645,    .55947,
     +     .41851,    .70714,    .80534,
     +     .15179,    .08506,  14.06512,    .82088,    .58547,
     +     .44620,    .73216,    .82999,
     +     .15423,    .08642,  14.40045,    .84379,    .60988,
     +     .47221,    .75562,    .85312,
     +     .15651,    .08769,  14.69704,    .86493,    .63233,
     +     .49602,    .77727,    .87446,
     +     .15879,    .08895,  14.98985,    .88619,    .65502,
     +     .52024,    .79905,    .89592,
     +     .16099,    .09016,  15.25549,    .90649,    .67655,
     +     .54304,    .81983,    .91640,
     +     .16309,    .09132,  15.50607,    .92588,    .69726,
     +     .56512,    .83970,    .93597,
     +     .16504,    .09239,  15.72301,    .94363,    .71610,
     +     .58508,    .85788,    .95389 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16701,    .09347,  15.93920,    .96157,    .73525,
     +     .60546,    .87627,    .97200,
     +     .16893,    .09452,  16.13824,    .97885,    .75366,
     +     .62500,    .89399,    .98945,
     +     .17076,    .09551,  16.32100,    .99518,    .77106,
     +     .64349,    .91072,   1.00593,
     +     .17248,    .09645,  16.48938,   1.01057,    .78751,
     +     .66101,    .92650,   1.02147,
     +     .17420,    .09738,  16.64503,   1.02564,    .80356,
     +     .67802,    .94196,   1.03668 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09696,    .05430,   1.07530,    .21824,    .00000,
     +     .00000,    .11866,    .22210,
     +     .10056,    .05647,   1.52653,    .23099,    .00000,
     +     .00000,    .13221,    .23521,
     +     .10576,    .05960,   2.20446,    .25130,    .00000,
     +     .00000,    .15366,    .25603,
     +     .10947,    .06181,   2.70099,    .26707,    .00890,
     +     .00000,    .17023,    .27216,
     +     .11327,    .06406,   3.19085,    .28424,    .02941,
     +     .00000,    .18821,    .28971,
     +     .11650,    .06597,   3.61552,    .29955,    .04653,
     +     .00000,    .20422,    .30534,
     +     .11957,    .06777,   4.02789,    .31459,    .06349,
     +     .00000,    .21990,    .32067,
     +     .12279,    .06966,   4.46771,    .33088,    .08214,
     +     .00000,    .23687,    .33727 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12555,    .07128,   4.84153,    .34525,    .09787,
     +     .00000,    .25182,    .35191,
     +     .12819,    .07281,   5.19906,    .35928,    .11333,
     +     .00000,    .26640,    .36619,
     +     .13027,    .07402,   5.48452,    .37057,    .12598,
     +     .00000,    .27812,    .37767,
     +     .13461,    .07653,   6.05489,    .39482,    .15265,
     +     .00288,    .30327,    .40234,
     +     .13827,    .07863,   6.50008,    .41575,    .17548,
     +     .03044,    .32496,    .42362,
     +     .14230,    .08094,   6.98276,    .43931,    .20124,
     +     .06230,    .34935,    .44755,
     +     .14644,    .08329,   7.46867,    .46375,    .22794,
     +     .09171,    .37464,    .47238,
     +     .15014,    .08539,   7.89232,    .48580,    .25203,
     +     .11828,    .39745,    .49478 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15382,    .08746,   8.30384,    .50794,    .27624,
     +     .14486,    .42035,    .51726,
     +     .15682,    .08915,   8.62972,    .52612,    .29604,
     +     .16631,    .43915,    .53572,
     +     .16042,    .09116,   9.00551,    .54787,    .31966,
     +     .19184,    .46163,    .55779,
     +     .16356,    .09291,   9.32459,    .56694,    .34045,
     +     .21444,    .48135,    .57715,
     +     .16641,    .09449,   9.60606,    .58428,    .35940,
     +     .23506,    .49928,    .59475,
     +     .16996,    .09645,   9.93866,    .60576,    .38271,
     +     .26016,    .52148,    .61654,
     +     .17326,    .09826,  10.23544,    .62566,    .40440,
     +     .28362,    .54207,    .63674,
     +     .17632,    .09994,  10.50199,    .64414,    .42462,
     +     .30560,    .56118,    .65549 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17931,    .10157,  10.74483,    .66199,    .44401,
     +     .32643,    .57966,    .67361,
     +     .18221,    .10314,  10.97214,    .67927,    .46287,
     +     .34682,    .59753,    .69113,
     +     .18493,    .10461,  11.17556,    .69534,    .48045,
     +     .36584,    .61418,    .70745,
     +     .18745,    .10596,  11.35169,    .71005,    .49650,
     +     .38312,    .62941,    .72237,
     +     .18997,    .10732,  11.52371,    .72477,    .51264,
     +     .40061,    .64466,    .73731,
     +     .19240,    .10861,  11.67565,    .73867,    .52782,
     +     .41695,    .65907,    .75142,
     +     .19470,    .10984,  11.81783,    .75189,    .54236,
     +     .43272,    .67278,    .76484,
     +     .19684,    .11097,  11.93712,    .76387,    .55548,
     +     .44686,    .68522,    .77700 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19899,    .11211,  12.05493,    .77594,    .56876,
     +     .46125,    .69775,    .78925,
     +     .20108,    .11322,  12.16033,    .78747,    .58143,
     +     .47494,    .70972,    .80095,
     +     .20306,    .11425,  12.25532,    .79829,    .59336,
     +     .48784,    .72097,    .81194,
     +     .20493,    .11523,  12.34145,    .80845,    .60458,
     +     .50002,    .73153,    .82225,
     +     .20678,    .11620,  12.41778,    .81830,    .61544,
     +     .51176,    .74178,    .83226 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11301,    .06493,   1.16557,    .20925,    .00000,
     +     .00000,    .11399,    .21453,
     +     .11713,    .06739,   1.58011,    .22098,    .00000,
     +     .00000,    .12653,    .22668,
     +     .12307,    .07090,   2.19209,    .23938,    .00000,
     +     .00000,    .14609,    .24569,
     +     .12729,    .07339,   2.63254,    .25349,    .00804,
     +     .00000,    .16102,    .26022,
     +     .13159,    .07590,   3.06086,    .26869,    .02650,
     +     .00000,    .17706,    .27587,
     +     .13523,    .07802,   3.42774,    .28213,    .04177,
     +     .00000,    .19120,    .28967,
     +     .13869,    .08002,   3.78019,    .29523,    .05679,
     +     .00000,    .20496,    .30310,
     +     .14232,    .08212,   4.15228,    .30932,    .07319,
     +     .00000,    .21975,    .31755 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14541,    .08389,   4.46541,    .32166,    .08693,
     +     .00000,    .23268,    .33019,
     +     .14836,    .08558,   4.76228,    .33363,    .10035,
     +     .00000,    .24522,    .34245,
     +     .15068,    .08690,   4.99766,    .34321,    .11129,
     +     .00000,    .25525,    .35226,
     +     .15551,    .08964,   5.46199,    .36366,    .13418,
     +     .00253,    .27662,    .37317,
     +     .15957,    .09193,   5.81788,    .38116,    .15363,
     +     .02617,    .29490,    .39106,
     +     .16403,    .09443,   6.19869,    .40069,    .17539,
     +     .05337,    .31530,    .41102,
     +     .16858,    .09696,   6.57695,    .42078,    .19778,
     +     .07827,    .33627,    .43153,
     +     .17264,    .09921,   6.90231,    .43875,    .21783,
     +     .10060,    .35503,    .44988 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17667,    .10143,   7.21433,    .45666,    .23784,
     +     .12279,    .37372,    .46817,
     +     .17995,    .10323,   7.45827,    .47125,    .25408,
     +     .14058,    .38896,    .48306,
     +     .18385,    .10536,   7.73589,    .48859,    .27334,
     +     .16163,    .40706,    .50075,
     +     .18726,    .10720,   7.96866,    .50368,    .29019,
     +     .18016,    .42283,    .51616,
     +     .19034,    .10887,   8.17162,    .51732,    .30546,
     +     .19696,    .43708,    .53008,
     +     .19417,    .11092,   8.40754,    .53408,    .32412,
     +     .21730,    .45460,    .54717,
     +     .19770,    .11281,   8.61491,    .54950,    .34136,
     +     .23619,    .47073,    .56291,
     +     .20097,    .11455,   8.79872,    .56372,    .35735,
     +     .25379,    .48561,    .57742 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20417,    .11624,   8.96251,    .57735,    .37257,
     +     .27036,    .49989,    .59132,
     +     .20725,    .11786,   9.11366,    .59045,    .38730,
     +     .28650,    .51362,    .60469,
     +     .21013,    .11937,   9.24670,    .60257,    .40096,
     +     .30149,    .52633,    .61706,
     +     .21280,    .12075,   9.35920,    .61357,    .41334,
     +     .31502,    .53788,    .62829,
     +     .21546,    .12213,   9.46784,    .62453,    .42574,
     +     .32867,    .54940,    .63947,
     +     .21801,    .12345,   9.56074,    .63479,    .43733,
     +     .34134,    .56019,    .64994,
     +     .22042,    .12469,   9.64695,    .64452,    .44839,
     +     .35353,    .57043,    .65987,
     +     .22265,    .12584,   9.71638,    .65326,    .45831,
     +     .36439,    .57964,    .66879 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22490,    .12698,   9.78426,    .66202,    .46832,
     +     .37541,    .58888,    .67774,
     +     .22707,    .12808,   9.84262,    .67033,    .47780,
     +     .38585,    .59766,    .68623,
     +     .22912,    .12912,   9.89386,    .67809,    .48669,
     +     .39564,    .60587,    .69415,
     +     .23105,    .13010,   9.93929,    .68534,    .49503,
     +     .40485,    .61354,    .70156,
     +     .23296,    .13106,   9.97684,    .69231,    .50304,
     +     .41368,    .62092,    .70868 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12767,    .07473,   1.24300,    .20274,    .00000,
     +     .00000,    .11068,    .20947,
     +     .13223,    .07742,   1.62686,    .21363,    .00000,
     +     .00000,    .12240,    .22084,
     +     .13879,    .08124,   2.18573,    .23050,    .00000,
     +     .00000,    .14048,    .23839,
     +     .14343,    .08394,   2.58222,    .24331,    .00739,
     +     .00000,    .15414,    .25168,
     +     .14815,    .08665,   2.96315,    .25700,    .02431,
     +     .00000,    .16869,    .26585,
     +     .15214,    .08893,   3.28631,    .26901,    .03819,
     +     .00000,    .18143,    .27826,
     +     .15591,    .09107,   3.59402,    .28064,    .05177,
     +     .00000,    .19375,    .29027,
     +     .15986,    .09331,   3.91614,    .29308,    .06652,
     +     .00000,    .20692,    .30310 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16322,    .09520,   4.18493,    .30391,    .07879,
     +     .00000,    .21836,    .31426,
     +     .16641,    .09700,   4.43791,    .31436,    .09073,
     +     .00000,    .22940,    .32502,
     +     .16893,    .09840,   4.63734,    .32269,    .10043,
     +     .00000,    .23820,    .33360,
     +     .17415,    .10130,   5.02634,    .34036,    .12060,
     +     .00228,    .25684,    .35177,
     +     .17851,    .10371,   5.31957,    .35538,    .13763,
     +     .02310,    .27267,    .36721,
     +     .18330,    .10633,   5.62969,    .37202,    .15657,
     +     .04700,    .29021,    .38430,
     +     .18817,    .10898,   5.93421,    .38902,    .17592,
     +     .06871,    .30813,    .40175,
     +     .19249,    .11132,   6.19298,    .40412,    .19314,
     +     .08807,    .32405,    .41725 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19677,    .11362,   6.43815,    .41906,    .21023,
     +     .10720,    .33981,    .43259,
     +     .20025,    .11548,   6.62758,    .43116,    .22402,
     +     .12246,    .35258,    .44501,
     +     .20438,    .11767,   6.84055,    .44544,    .24029,
     +     .14042,    .36766,    .45965,
     +     .20797,    .11957,   7.01695,    .45780,    .25445,
     +     .15616,    .38072,    .47233,
     +     .21120,    .12127,   7.16898,    .46891,    .26723,
     +     .17037,    .39247,    .48373,
     +     .21521,    .12336,   7.34273,    .48246,    .28274,
     +     .18747,    .40682,    .49763,
     +     .21891,    .12527,   7.49313,    .49486,    .29701,
     +     .20328,    .41995,    .51035,
     +     .22232,    .12704,   7.62462,    .50622,    .31017,
     +     .21795,    .43200,    .52200 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22563,    .12873,   7.73899,    .51702,    .32262,
     +     .23168,    .44347,    .53308,
     +     .22883,    .13036,   7.84291,    .52735,    .33462,
     +     .24501,    .45446,    .54368,
     +     .23181,    .13187,   7.93266,    .53685,    .34570,
     +     .25732,    .46458,    .55343,
     +     .23455,    .13325,   8.00640,    .54541,    .35568,
     +     .26839,    .47371,    .56222,
     +     .23727,    .13462,   8.07669,    .55390,    .36565,
     +     .27952,    .48278,    .57093,
     +     .23989,    .13592,   8.13397,    .56179,    .37491,
     +     .28980,    .49122,    .57903,
     +     .24236,    .13714,   8.18656,    .56924,    .38372,
     +     .29966,    .49920,    .58668,
     +     .24463,    .13826,   8.22652,    .57587,    .39157,
     +     .30840,    .50632,    .59349 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24691,    .13938,   8.26506,    .58251,    .39948,
     +     .31725,    .51346,    .60030,
     +     .24912,    .14046,   8.29601,    .58875,    .40693,
     +     .32559,    .52018,    .60672,
     +     .25119,    .14147,   8.32191,    .59456,    .41389,
     +     .33339,    .52645,    .61268,
     +     .25314,    .14241,   8.34394,    .59995,    .42039,
     +     .34071,    .53228,    .61823,
     +     .25507,    .14334,   8.35953,    .60509,    .42660,
     +     .34769,    .53785,    .62351 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15435,    .09263,   1.36579,    .19332,    .00000,
     +     .00000,    .10604,    .20299,
     +     .15963,    .09564,   1.69911,    .20284,    .00000,
     +     .00000,    .11646,    .21306,
     +     .16718,    .09989,   2.17408,    .21731,    .00000,
     +     .00000,    .13223,    .22832,
     +     .17249,    .10287,   2.50335,    .22812,    .00643,
     +     .00000,    .14397,    .23967,
     +     .17785,    .10584,   2.81342,    .23952,    .02106,
     +     .00000,    .15631,    .25162,
     +     .18237,    .10832,   3.07237,    .24939,    .03293,
     +     .00000,    .16697,    .26195,
     +     .18663,    .11065,   3.31543,    .25886,    .04443,
     +     .00000,    .17720,    .27184,
     +     .19106,    .11307,   3.56637,    .26890,    .05681,
     +     .00000,    .18802,    .28231 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19482,    .11510,   3.77293,    .27754,    .06702,
     +     .00000,    .19734,    .29132,
     +     .19838,    .11702,   3.96497,    .28581,    .07688,
     +     .00000,    .20625,    .29993,
     +     .20117,    .11851,   4.11490,    .29237,    .08483,
     +     .00000,    .21332,    .30676,
     +     .20695,    .12159,   4.40145,    .30613,    .10124,
     +     .00192,    .22813,    .32107,
     +     .21174,    .12411,   4.61095,    .31769,    .11494,
     +     .01887,    .24057,    .33307,
     +     .21697,    .12685,   4.82778,    .33036,    .13003,
     +     .03823,    .25421,    .34621,
     +     .22227,    .12960,   5.03606,    .34312,    .14528,
     +     .05562,    .26797,    .35946,
     +     .22695,    .13200,   5.20915,    .35432,    .15873,
     +     .07098,    .28007,    .37108 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23155,    .13435,   5.36957,    .36529,    .17194,
     +     .08603,    .29192,    .38245,
     +     .23527,    .13623,   5.49045,    .37406,    .18251,
     +     .09794,    .30142,    .39155,
     +     .23966,    .13844,   5.62298,    .38431,    .19486,
     +     .11183,    .31252,    .40216,
     +     .24345,    .14033,   5.73009,    .39308,    .20553,
     +     .12391,    .32205,    .41126,
     +     .24686,    .14202,   5.82023,    .40089,    .21507,
     +     .13475,    .33055,    .41935,
     +     .25106,    .14408,   5.91909,    .41029,    .22656,
     +     .14768,    .34080,    .42909,
     +     .25491,    .14596,   6.00164,    .41879,    .23702,
     +     .15954,    .35009,    .43790,
     +     .25844,    .14767,   6.07151,    .42650,    .24661,
     +     .17047,    .35855,    .44590 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26185,    .14930,   6.12828,    .43371,    .25558,
     +     .18060,    .36648,    .45337,
     +     .26512,    .15086,   6.17762,    .44054,    .26415,
     +     .19037,    .37401,    .46045,
     +     .26815,    .15230,   6.21777,    .44676,    .27201,
     +     .19933,    .38088,    .46689,
     +     .27093,    .15359,   6.24755,    .45227,    .27902,
     +     .20733,    .38700,    .47262,
     +     .27368,    .15488,   6.27464,    .45771,    .28600,
     +     .21533,    .39305,    .47826,
     +     .27630,    .15608,   6.29286,    .46266,    .29239,
     +     .22265,    .39859,    .48340,
     +     .27877,    .15722,   6.30888,    .46732,    .29846,
     +     .22965,    .40381,    .48823,
     +     .28102,    .15824,   6.31684,    .47138,    .30381,
     +     .23580,    .40840,    .49245 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28328,    .15926,   6.32363,    .47543,    .30916,
     +     .24199,    .41297,    .49665,
     +     .28544,    .16023,   6.32539,    .47916,    .31417,
     +     .24779,    .41721,    .50054,
     +     .28748,    .16114,   6.32461,    .48260,    .31881,
     +     .25318,    .42113,    .50411,
     +     .28938,    .16198,   6.32216,    .48576,    .32312,
     +     .25821,    .42476,    .50740,
     +     .29124,    .16280,   6.31505,    .48871,    .32720,
     +     .26297,    .42817,    .51047 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .19033,    .11648,   1.48770,    .18316,    .00000,
     +     .00000,    .10127,    .19724,
     +     .19639,    .11975,   1.76180,    .19104,    .00000,
     +     .00000,    .11018,    .20574,
     +     .20499,    .12434,   2.14322,    .20278,    .00000,
     +     .00000,    .12339,    .21835,
     +     .21100,    .12752,   2.40063,    .21140,    .00542,
     +     .00000,    .13304,    .22757,
     +     .21702,    .13066,   2.63697,    .22036,    .01768,
     +     .00000,    .14305,    .23710,
     +     .22206,    .13327,   2.83079,    .22800,    .02751,
     +     .00000,    .15158,    .24523,
     +     .22678,    .13570,   3.00968,    .23525,    .03692,
     +     .00000,    .15967,    .25291,
     +     .23167,    .13820,   3.19134,    .24284,    .04695,
     +     .00000,    .16814,    .26096 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23580,    .14030,   3.33827,    .24930,    .05514,
     +     .00000,    .17535,    .26779,
     +     .23969,    .14226,   3.47276,    .25542,    .06298,
     +     .00000,    .18218,    .27427,
     +     .24273,    .14378,   3.57650,    .26024,    .06927,
     +     .00000,    .18756,    .27936,
     +     .24897,    .14687,   3.76922,    .27022,    .08210,
     +     .00157,    .19871,    .28988,
     +     .25411,    .14939,   3.90364,    .27848,    .09269,
     +     .01487,    .20794,    .29858,
     +     .25968,    .15209,   4.03854,    .28740,    .10422,
     +     .02998,    .21794,    .30797,
     +     .26527,    .15477,   4.16403,    .29624,    .11574,
     +     .04339,    .22788,    .31727,
     +     .27016,    .15710,   4.26461,    .30388,    .12577,
     +     .05510,    .23649,    .32530 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27494,    .15934,   4.35438,    .31125,    .13552,
     +     .06646,    .24482,    .33304,
     +     .27878,    .16112,   4.41930,    .31705,    .14324,
     +     .07537,    .25142,    .33914,
     +     .28327,    .16319,   4.48686,    .32371,    .15217,
     +     .08567,    .25901,    .34613,
     +     .28713,    .16494,   4.53881,    .32934,    .15980,
     +     .09455,    .26545,    .35203,
     +     .29057,    .16649,   4.58040,    .33428,    .16657,
     +     .10245,    .27114,    .35722,
     +     .29477,    .16835,   4.62176,    .34011,    .17462,
     +     .11178,    .27788,    .36334,
     +     .29859,    .17003,   4.65303,    .34528,    .18188,
     +     .12026,    .28391,    .36877,
     +     .30207,    .17154,   4.67691,    .34991,    .18847,
     +     .12801,    .28933,    .37363 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30539,    .17296,   4.69149,    .35412,    .19455,
     +     .13512,    .29431,    .37805,
     +     .30856,    .17431,   4.70151,    .35805,    .20032,
     +     .14192,    .29898,    .38218,
     +     .31147,    .17553,   4.70659,    .36156,    .20555,
     +     .14812,    .30319,    .38586,
     +     .31411,    .17661,   4.70585,    .36459,    .21016,
     +     .15358,    .30687,    .38905,
     +     .31672,    .17768,   4.70330,    .36755,    .21471,
     +     .15903,    .31047,    .39215,
     +     .31916,    .17866,   4.69513,    .37015,    .21883,
     +     .16395,    .31370,    .39488,
     +     .32147,    .17958,   4.68665,    .37257,    .22272,
     +     .16863,    .31671,    .39742,
     +     .32354,    .18040,   4.67403,    .37461,    .22608,
     +     .17270,    .31929,    .39956 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32561,    .18120,   4.66070,    .37661,    .22944,
     +     .17678,    .32184,    .40166,
     +     .32757,    .18195,   4.64431,    .37839,    .23254,
     +     .18056,    .32415,    .40353,
     +     .32941,    .18265,   4.62718,    .37998,    .23538,
     +     .18406,    .32625,    .40521,
     +     .33112,    .18328,   4.60993,    .38142,    .23801,
     +     .18730,    .32817,    .40673,
     +     .33277,    .18389,   4.58947,    .38268,    .24045,
     +     .19032,    .32991,    .40806 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24406,    .15077,   1.57748,    .16994,    .00000,
     +     .00000,    .09542,    .19114,
     +     .25090,    .15413,   1.77948,    .17574,    .00000,
     +     .00000,    .10241,    .19758,
     +     .26049,    .15877,   2.05243,    .18419,    .00000,
     +     .00000,    .11255,    .20686,
     +     .26712,    .16193,   2.23024,    .19025,    .00430,
     +     .00000,    .11981,    .21349,
     +     .27368,    .16502,   2.38745,    .19644,    .01393,
     +     .00000,    .12720,    .22022,
     +     .27912,    .16754,   2.51330,    .20163,    .02154,
     +     .00000,    .13339,    .22585,
     +     .28418,    .16987,   2.62682,    .20647,    .02874,
     +     .00000,    .13918,    .23109,
     +     .28938,    .17223,   2.73945,    .21146,    .03632,
     +     .00000,    .14517,    .23648 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29373,    .17418,   2.82823,    .21564,    .04243,
     +     .00000,    .15020,    .24098,
     +     .29780,    .17599,   2.90761,    .21955,    .04823,
     +     .00000,    .15490,    .24518,
     +     .30095,    .17739,   2.96778,    .22259,    .05285,
     +     .00000,    .15857,    .24844,
     +     .30737,    .18017,   3.07382,    .22878,    .06214,
     +     .00121,    .16606,    .25508,
     +     .31258,    .18240,   3.14080,    .23380,    .06971,
     +     .01091,    .17215,    .26044,
     +     .31816,    .18474,   3.20394,    .23910,    .07783,
     +     .02187,    .17863,    .26608,
     +     .32368,    .18702,   3.25861,    .24421,    .08583,
     +     .03144,    .18494,    .27153,
     +     .32845,    .18895,   3.29858,    .24852,    .09269,
     +     .03970,    .19030,    .27610 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33305,    .19077,   3.33065,    .25256,    .09927,
     +     .04762,    .19539,    .28039,
     +     .33669,    .19219,   3.35079,    .25566,    .10442,
     +     .05376,    .19934,    .28367,
     +     .34090,    .19379,   3.36767,    .25911,    .11029,
     +     .06078,    .20379,    .28732,
     +     .34447,    .19513,   3.37743,    .26194,    .11524,
     +     .06676,    .20749,    .29031,
     +     .34762,    .19628,   3.38247,    .26436,    .11958,
     +     .07204,    .21070,    .29286,
     +     .35139,    .19762,   3.38158,    .26709,    .12467,
     +     .07819,    .21440,    .29573,
     +     .35476,    .19880,   3.37607,    .26942,    .12918,
     +     .08372,    .21763,    .29818,
     +     .35780,    .19983,   3.36771,    .27144,    .13323,
     +     .08872,    .22047,    .30029 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36065,    .20075,   3.35369,    .27314,    .13690,
     +     .09324,    .22298,    .30207,
     +     .36333,    .20160,   3.33766,    .27468,    .14034,
     +     .09753,    .22529,    .30367,
     +     .36574,    .20235,   3.32008,    .27598,    .14341,
     +     .10139,    .22731,    .30502,
     +     .36789,    .20299,   3.30036,    .27701,    .14607,
     +     .10475,    .22900,    .30608,
     +     .36999,    .20360,   3.27976,    .27797,    .14867,
     +     .10807,    .23062,    .30707,
     +     .37192,    .20412,   3.25626,    .27870,    .15097,
     +     .11103,    .23200,    .30782,
     +     .37372,    .20460,   3.23380,    .27937,    .15313,
     +     .11383,    .23327,    .30850,
     +     .37529,    .20499,   3.20996,    .27981,    .15495,
     +     .11622,    .23427,    .30894 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37684,    .20538,   3.18584,    .28023,    .15675,
     +     .11861,    .23524,    .30935,
     +     .37828,    .20571,   3.16039,    .28052,    .15838,
     +     .12079,    .23606,    .30962,
     +     .37961,    .20599,   3.13550,    .28072,    .15985,
     +     .12278,    .23678,    .30981,
     +     .38083,    .20624,   3.11153,    .28087,    .16119,
     +     .12461,    .23740,    .30994,
     +     .38197,    .20645,   3.08570,    .28089,    .16239,
     +     .12629,    .23790,    .30993 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29280,    .18008,   1.57825,    .15831,    .00000,
     +     .00000,    .09047,    .18610,
     +     .29995,    .18325,   1.72940,    .16255,    .00000,
     +     .00000,    .09602,    .19086,
     +     .30987,    .18754,   1.92892,    .16861,    .00000,
     +     .00000,    .10392,    .19762,
     +     .31665,    .19043,   2.05503,    .17291,    .00352,
     +     .00000,    .10949,    .20236,
     +     .32329,    .19318,   2.16242,    .17722,    .01136,
     +     .00000,    .11511,    .20709,
     +     .32875,    .19541,   2.24657,    .18078,    .01750,
     +     .00000,    .11975,    .21097,
     +     .33378,    .19743,   2.32090,    .18405,    .02326,
     +     .00000,    .12404,    .21453,
     +     .33891,    .19946,   2.39301,    .18739,    .02927,
     +     .00000,    .12843,    .21814 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34314,    .20111,   2.44831,    .19014,    .03408,
     +     .00000,    .13207,    .22110,
     +     .34707,    .20261,   2.49649,    .19268,    .03861,
     +     .00000,    .13544,    .22381,
     +     .35011,    .20377,   2.53234,    .19463,    .04219,
     +     .00000,    .13806,    .22590,
     +     .35622,    .20601,   2.59122,    .19854,    .04934,
     +     .00097,    .14332,    .23008,
     +     .36110,    .20775,   2.62285,    .20163,    .05510,
     +     .00848,    .14754,    .23335,
     +     .36626,    .20954,   2.64930,    .20482,    .06122,
     +     .01693,    .15194,    .23670,
     +     .37128,    .21122,   2.66868,    .20781,    .06718,
     +     .02423,    .15616,    .23983,
     +     .37556,    .21260,   2.67927,    .21023,    .07224,
     +     .03048,    .15967,    .24235 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37962,    .21385,   2.68406,    .21243,    .07705,
     +     .03641,    .16293,    .24461,
     +     .38279,    .21480,   2.68342,    .21404,    .08076,
     +     .04097,    .16541,    .24626,
     +     .38638,    .21581,   2.67751,    .21576,    .08495,
     +     .04613,    .16815,    .24800,
     +     .38937,    .21662,   2.66880,    .21711,    .08845,
     +     .05051,    .17037,    .24935,
     +     .39198,    .21729,   2.65823,    .21820,    .09149,
     +     .05434,    .17225,    .25045,
     +     .39502,    .21800,   2.64003,    .21933,    .09500,
     +     .05875,    .17435,    .25155,
     +     .39770,    .21858,   2.61996,    .22021,    .09809,
     +     .06268,    .17613,    .25237,
     +     .40007,    .21906,   2.59924,    .22090,    .10082,
     +     .06621,    .17763,    .25301 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40220,    .21944,   2.57493,    .22138,    .10326,
     +     .06937,    .17891,    .25340,
     +     .40416,    .21974,   2.54985,    .22173,    .10551,
     +     .07233,    .18002,    .25367,
     +     .40590,    .21997,   2.52473,    .22195,    .10750,
     +     .07498,    .18095,    .25380,
     +     .40740,    .22011,   2.49919,    .22201,    .10920,
     +     .07726,    .18166,    .25377,
     +     .40884,    .22023,   2.47332,    .22203,    .11084,
     +     .07950,    .18233,    .25370,
     +     .41008,    .22027,   2.44586,    .22190,    .11226,
     +     .08147,    .18281,    .25346,
     +     .41123,    .22030,   2.41996,    .22176,    .11358,
     +     .08332,    .18325,    .25320,
     +     .41218,    .22026,   2.39389,    .22149,    .11466,
     +     .08488,    .18352,    .25282 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41311,    .22020,   2.36779,    .22120,    .11573,
     +     .08643,    .18376,    .25241,
     +     .41393,    .22009,   2.34115,    .22082,    .11666,
     +     .08783,    .18390,    .25192,
     +     .41464,    .21997,   2.31555,    .22041,    .11749,
     +     .08909,    .18398,    .25140,
     +     .41529,    .21984,   2.29121,    .22000,    .11824,
     +     .09024,    .18402,    .25087,
     +     .41583,    .21965,   2.26568,    .21949,    .11889,
     +     .09128,    .18396,    .25023 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .37965,    .22768,   1.44969,    .13699,    .00000,
     +     .00000,    .08138,    .17552,
     +     .38647,    .22998,   1.53813,    .13913,    .00000,
     +     .00000,    .08488,    .17781,
     +     .39573,    .23294,   1.65047,    .14209,    .00000,
     +     .00000,    .08978,    .18093,
     +     .40187,    .23483,   1.71754,    .14415,    .00251,
     +     .00000,    .09317,    .18302,
     +     .40775,    .23653,   1.77004,    .14615,    .00806,
     +     .00000,    .09650,    .18505,
     +     .41246,    .23782,   1.80925,    .14776,    .01235,
     +     .00000,    .09920,    .18662,
     +     .41671,    .23894,   1.84227,    .14919,    .01633,
     +     .00000,    .10166,    .18800,
     +     .42097,    .24001,   1.87257,    .15060,    .02044,
     +     .00000,    .10412,    .18933 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42441,    .24080,   1.89400,    .15171,    .02368,
     +     .00000,    .10612,    .19035,
     +     .42752,    .24148,   1.91117,    .15269,    .02671,
     +     .00000,    .10794,    .19124,
     +     .42989,    .24196,   1.92320,    .15343,    .02909,
     +     .00000,    .10933,    .19190,
     +     .43448,    .24282,   1.93727,    .15484,    .03378,
     +     .00069,    .11205,    .19308,
     +     .43800,    .24335,   1.93696,    .15586,    .03749,
     +     .00564,    .11416,    .19389,
     +     .44157,    .24378,   1.93114,    .15680,    .04138,
     +     .01119,    .11629,    .19458,
     +     .44488,    .24406,   1.92045,    .15756,    .04510,
     +     .01592,    .11822,    .19504,
     +     .44755,    .24416,   1.90689,    .15807,    .04821,
     +     .01991,    .11975,    .19526 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44994,    .24413,   1.89006,    .15841,    .05111,
     +     .02365,    .12110,    .19529,
     +     .45169,    .24401,   1.87364,    .15857,    .05331,
     +     .02649,    .12206,    .19517,
     +     .45353,    .24374,   1.85103,    .15860,    .05575,
     +     .02966,    .12303,    .19487,
     +     .45494,    .24342,   1.82939,    .15852,    .05776,
     +     .03231,    .12376,    .19449,
     +     .45608,    .24307,   1.80839,    .15837,    .05947,
     +     .03460,    .12432,    .19404,
     +     .45725,    .24248,   1.77942,    .15801,    .06140,
     +     .03720,    .12485,    .19330,
     +     .45813,    .24185,   1.75100,    .15758,    .06306,
     +     .03949,    .12522,    .19249,
     +     .45880,    .24122,   1.72377,    .15710,    .06450,
     +     .04151,    .12547,    .19166 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45922,    .24049,   1.69491,    .15649,    .06574,
     +     .04328,    .12556,    .19068,
     +     .45951,    .23971,   1.66640,    .15583,    .06686,
     +     .04493,    .12558,    .18967,
     +     .45968,    .23892,   1.63904,    .15514,    .06783,
     +     .04637,    .12552,    .18865,
     +     .45966,    .23812,   1.61256,    .15441,    .06862,
     +     .04759,    .12536,    .18760,
     +     .45959,    .23731,   1.58621,    .15367,    .06937,
     +     .04877,    .12518,    .18653,
     +     .45934,    .23643,   1.55953,    .15285,    .06998,
     +     .04979,    .12489,    .18538,
     +     .45908,    .23560,   1.53463,    .15206,    .07054,
     +     .05073,    .12461,    .18430,
     +     .45867,    .23475,   1.51045,    .15125,    .07097,
     +     .05150,    .12425,    .18319 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45824,    .23389,   1.48648,    .15042,    .07139,
     +     .05227,    .12388,    .18207,
     +     .45771,    .23300,   1.46257,    .14956,    .07172,
     +     .05293,    .12347,    .18091,
     +     .45716,    .23213,   1.43992,    .14872,    .07200,
     +     .05352,    .12304,    .17978,
     +     .45659,    .23130,   1.41863,    .14791,    .07224,
     +     .05405,    .12262,    .17871,
     +     .45591,    .23041,   1.39684,    .14704,    .07241,
     +     .05450,    .12213,    .17757 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45489,    .26380,   1.26402,    .11770,    .00000,
     +     .00000,    .07277,    .16328,
     +     .46053,    .26487,   1.32047,    .11862,    .00000,
     +     .00000,    .07500,    .16387,
     +     .46785,    .26607,   1.38969,    .11985,    .00000,
     +     .00000,    .07804,    .16458,
     +     .47256,    .26667,   1.42871,    .12068,    .00190,
     +     .00000,    .08011,    .16499,
     +     .47686,    .26706,   1.45610,    .12146,    .00607,
     +     .00000,    .08213,    .16531,
     +     .48017,    .26721,   1.47518,    .12203,    .00927,
     +     .00000,    .08372,    .16548,
     +     .48307,    .26724,   1.49005,    .12250,    .01221,
     +     .00000,    .08513,    .16554,
     +     .48586,    .26717,   1.50236,    .12293,    .01523,
     +     .00000,    .08652,    .16553 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .48799,    .26699,   1.50946,    .12321,    .01759,
     +     .00000,    .08762,    .16542,
     +     .48982,    .26674,   1.51379,    .12344,    .01977,
     +     .00000,    .08860,    .16525,
     +     .49117,    .26649,   1.51609,    .12359,    .02148,
     +     .00000,    .08933,    .16509,
     +     .49358,    .26580,   1.51263,    .12378,    .02481,
     +     .00052,    .09070,    .16462,
     +     .49520,    .26504,   1.50076,    .12383,    .02741,
     +     .00405,    .09172,    .16408,
     +     .49664,    .26404,   1.48384,    .12374,    .03011,
     +     .00801,    .09268,    .16333,
     +     .49771,    .26285,   1.46332,    .12349,    .03265,
     +     .01134,    .09348,    .16240,
     +     .49833,    .26166,   1.44231,    .12315,    .03474,
     +     .01411,    .09403,    .16143 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .49867,    .26035,   1.41925,    .12271,    .03667,
     +     .01669,    .09444,    .16035,
     +     .49871,    .25917,   1.39866,    .12225,    .03810,
     +     .01862,    .09468,    .15935,
     +     .49848,    .25766,   1.37218,    .12159,    .03967,
     +     .02075,    .09483,    .15805,
     +     .49807,    .25626,   1.34798,    .12094,    .04093,
     +     .02252,    .09487,    .15684,
     +     .49755,    .25493,   1.32530,    .12030,    .04200,
     +     .02403,    .09484,    .15568,
     +     .49660,    .25314,   1.29526,    .11938,    .04317,
     +     .02572,    .09467,    .15410,
     +     .49553,    .25140,   1.26664,    .11846,    .04415,
     +     .02719,    .09443,    .15257,
     +     .49439,    .24974,   1.23980,    .11755,    .04499,
     +     .02847,    .09415,    .15111 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49300,    .24799,   1.21217,    .11657,    .04567,
     +     .02957,    .09375,    .14956,
     +     .49154,    .24626,   1.18532,    .11557,    .04628,
     +     .03058,    .09332,    .14802,
     +     .49004,    .24460,   1.15997,    .11460,    .04679,
     +     .03145,    .09287,    .14654,
     +     .48848,    .24298,   1.13587,    .11364,    .04718,
     +     .03217,    .09238,    .14509,
     +     .48687,    .24136,   1.11211,    .11268,    .04754,
     +     .03286,    .09187,    .14364,
     +     .48512,    .23971,   1.08845,    .11168,    .04780,
     +     .03344,    .09131,    .14218,
     +     .48345,    .23816,   1.06653,    .11073,    .04804,
     +     .03397,    .09077,    .14080,
     +     .48173,    .23663,   1.04557,    .10979,    .04820,
     +     .03439,    .09021,    .13944 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47999,    .23510,   1.02492,    .10886,    .04834,
     +     .03480,    .08964,    .13809,
     +     .47817,    .23356,   1.00456,    .10790,    .04843,
     +     .03514,    .08904,    .13674,
     +     .47640,    .23209,    .98541,    .10698,    .04850,
     +     .03544,    .08846,    .13544,
     +     .47469,    .23069,    .96753,    .10611,    .04854,
     +     .03571,    .08789,    .13421,
     +     .47287,    .22925,    .94942,    .10520,    .04853,
     +     .03592,    .08729,    .13294 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .51966,    .29071,   1.08639,    .10059,    .00000,
     +     .00000,    .06456,    .14952,
     +     .52349,    .29042,   1.12685,    .10082,    .00000,
     +     .00000,    .06597,    .14900,
     +     .52812,    .28967,   1.17464,    .10111,    .00000,
     +     .00000,    .06786,    .14810,
     +     .53086,    .28888,   1.19997,    .10127,    .00150,
     +     .00000,    .06911,    .14743,
     +     .53310,    .28787,   1.21550,    .10138,    .00478,
     +     .00000,    .07030,    .14668,
     +     .53461,    .28685,   1.22505,    .10142,    .00728,
     +     .00000,    .07122,    .14596,
     +     .53578,    .28578,   1.23139,    .10139,    .00956,
     +     .00000,    .07201,    .14521,
     +     .53675,    .28455,   1.23527,    .10130,    .01188,
     +     .00000,    .07277,    .14437 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .53729,    .28338,   1.23571,    .10117,    .01368,
     +     .00000,    .07333,    .14358,
     +     .53760,    .28219,   1.23409,    .10100,    .01534,
     +     .00000,    .07380,    .14279,
     +     .53775,    .28123,   1.23193,    .10085,    .01663,
     +     .00000,    .07414,    .14214,
     +     .53763,    .27903,   1.22081,    .10044,    .01912,
     +     .00041,    .07476,    .14069,
     +     .53710,    .27701,   1.20439,    .10000,    .02104,
     +     .00306,    .07515,    .13938,
     +     .53614,    .27466,   1.18335,    .09942,    .02300,
     +     .00603,    .07543,    .13785,
     +     .53476,    .27210,   1.15943,    .09871,    .02483,
     +     .00849,    .07559,    .13615,
     +     .53320,    .26970,   1.13612,    .09799,    .02631,
     +     .01052,    .07562,    .13454 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53135,    .26721,   1.11142,    .09718,    .02765,
     +     .01239,    .07554,    .13286,
     +     .52960,    .26509,   1.09003,    .09646,    .02864,
     +     .01377,    .07538,    .13142,
     +     .52721,    .26246,   1.06321,    .09552,    .02969,
     +     .01529,    .07510,    .12964,
     +     .52494,    .26009,   1.03916,    .09464,    .03052,
     +     .01653,    .07479,    .12803,
     +     .52275,    .25791,   1.01696,    .09381,    .03122,
     +     .01758,    .07447,    .12653,
     +     .51970,    .25506,    .98814,    .09269,    .03195,
     +     .01873,    .07397,    .12459,
     +     .51667,    .25237,    .96111,    .09160,    .03255,
     +     .01973,    .07343,    .12274,
     +     .51374,    .24985,    .93606,    .09057,    .03305,
     +     .02058,    .07290,    .12101 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51061,    .24726,    .91069,    .08948,    .03343,
     +     .02130,    .07229,    .11924,
     +     .50747,    .24473,    .88628,    .08840,    .03376,
     +     .02196,    .07167,    .11752,
     +     .50440,    .24234,    .86347,    .08737,    .03402,
     +     .02251,    .07105,    .11588,
     +     .50139,    .24005,    .84201,    .08637,    .03420,
     +     .02295,    .07043,    .11431,
     +     .49836,    .23777,    .82099,    .08538,    .03436,
     +     .02337,    .06981,    .11276,
     +     .49525,    .23548,    .80030,    .08436,    .03445,
     +     .02372,    .06915,    .11121,
     +     .49231,    .23333,    .78122,    .08340,    .03453,
     +     .02403,    .06853,    .10977,
     +     .48937,    .23128,    .76317,    .08249,    .03455,
     +     .02426,    .06790,    .10838 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48643,    .22924,    .74546,    .08157,    .03457,
     +     .02449,    .06728,    .10699,
     +     .48345,    .22721,    .72815,    .08065,    .03455,
     +     .02467,    .06664,    .10562,
     +     .48060,    .22527,    .71196,    .07977,    .03451,
     +     .02482,    .06603,    .10431,
     +     .47788,    .22343,    .69692,    .07894,    .03446,
     +     .02495,    .06544,    .10309,
     +     .47505,    .22155,    .68179,    .07808,    .03438,
     +     .02504,    .06483,    .10185 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .58672,    .31364,    .91010,    .08230,    .00000,
     +     .00000,    .05498,    .13107,
     +     .58775,    .31165,    .94077,    .08216,    .00000,
     +     .00000,    .05577,    .12967,
     +     .58831,    .30842,    .97495,    .08185,    .00000,
     +     .00000,    .05678,    .12762,
     +     .58815,    .30594,    .99146,    .08161,    .00117,
     +     .00000,    .05742,    .12614,
     +     .58742,    .30321,    .99938,    .08132,    .00372,
     +     .00000,    .05800,    .12461,
     +     .58638,    .30077,   1.00267,    .08103,    .00564,
     +     .00000,    .05841,    .12325,
     +     .58514,    .29837,   1.00332,    .08071,    .00737,
     +     .00000,    .05873,    .12193,
     +     .58360,    .29576,   1.00155,    .08031,    .00912,
     +     .00000,    .05901,    .12052 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58199,    .29345,    .99749,    .07992,    .01046,
     +     .00000,    .05918,    .11927,
     +     .58024,    .29117,    .99188,    .07952,    .01169,
     +     .00000,    .05930,    .11805,
     +     .57879,    .28937,    .98673,    .07921,    .01263,
     +     .00000,    .05936,    .11707,
     +     .57532,    .28545,    .97061,    .07845,    .01443,
     +     .00032,    .05940,    .11501,
     +     .57199,    .28203,    .95150,    .07775,    .01580,
     +     .00225,    .05934,    .11322,
     +     .56797,    .27816,    .92820,    .07690,    .01717,
     +     .00441,    .05919,    .11119,
     +     .56349,    .27409,    .90262,    .07595,    .01843,
     +     .00617,    .05892,    .10905,
     +     .55917,    .27039,    .87845,    .07503,    .01942,
     +     .00761,    .05859,    .10708 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55462,    .26664,    .85345,    .07406,    .02030,
     +     .00891,    .05817,    .10510,
     +     .55071,    .26350,    .83223,    .07321,    .02094,
     +     .00987,    .05778,    .10346,
     +     .54574,    .25970,    .80616,    .07216,    .02159,
     +     .01090,    .05724,    .10144,
     +     .54125,    .25634,    .78315,    .07121,    .02210,
     +     .01173,    .05672,    .09966,
     +     .53708,    .25326,    .76219,    .07031,    .02251,
     +     .01243,    .05622,    .09805,
     +     .53157,    .24936,    .73546,    .06915,    .02292,
     +     .01318,    .05554,    .09597,
     +     .52630,    .24571,    .71073,    .06805,    .02324,
     +     .01381,    .05486,    .09404,
     +     .52134,    .24233,    .68807,    .06701,    .02350,
     +     .01435,    .05420,    .09225 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51622,    .23892,    .66545,    .06595,    .02367,
     +     .01478,    .05350,    .09046,
     +     .51120,    .23562,    .64392,    .06490,    .02380,
     +     .01517,    .05280,    .08873,
     +     .50643,    .23250,    .62400,    .06390,    .02388,
     +     .01549,    .05212,    .08713,
     +     .50182,    .22957,    .60548,    .06295,    .02392,
     +     .01574,    .05147,    .08562,
     +     .49722,    .22669,    .58747,    .06202,    .02395,
     +     .01597,    .05081,    .08412,
     +     .49259,    .22383,    .56994,    .06109,    .02393,
     +     .01615,    .05015,    .08263,
     +     .48826,    .22116,    .55386,    .06022,    .02391,
     +     .01631,    .04953,    .08125,
     +     .48406,    .21861,    .53880,    .05938,    .02385,
     +     .01642,    .04892,    .07994 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47987,    .21609,    .52410,    .05855,    .02378,
     +     .01652,    .04831,    .07865,
     +     .47569,    .21360,    .50986,    .05772,    .02369,
     +     .01659,    .04770,    .07738,
     +     .47170,    .21124,    .49663,    .05693,    .02360,
     +     .01664,    .04712,    .07619,
     +     .46793,    .20903,    .48440,    .05620,    .02351,
     +     .01668,    .04657,    .07507,
     +     .46405,    .20679,    .47220,    .05546,    .02339,
     +     .01670,    .04600,    .07394 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .63907,    .32670,    .79046,    .06724,    .00000,
     +     .00000,    .04623,    .11225,
     +     .63699,    .32303,    .81484,    .06694,    .00000,
     +     .00000,    .04668,    .11045,
     +     .63308,    .31749,    .83974,    .06641,    .00000,
     +     .00000,    .04720,    .10781,
     +     .62978,    .31344,    .85002,    .06601,    .00094,
     +     .00000,    .04750,    .10595,
     +     .62589,    .30914,    .85233,    .06554,    .00299,
     +     .00000,    .04772,    .10406,
     +     .62220,    .30539,    .85094,    .06509,    .00451,
     +     .00000,    .04786,    .10243,
     +     .61848,    .30179,    .84733,    .06462,    .00587,
     +     .00000,    .04792,    .10088,
     +     .61436,    .29797,    .84132,    .06410,    .00722,
     +     .00000,    .04792,    .09924 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61055,    .29464,    .83389,    .06363,    .00825,
     +     .00000,    .04788,    .09779,
     +     .60675,    .29142,    .82529,    .06314,    .00917,
     +     .00000,    .04779,    .09640,
     +     .60371,    .28887,    .81793,    .06274,    .00988,
     +     .00000,    .04771,    .09531,
     +     .59690,    .28350,    .79813,    .06187,    .01122,
     +     .00025,    .04745,    .09301,
     +     .59087,    .27887,    .77708,    .06105,    .01221,
     +     .00170,    .04715,    .09108,
     +     .58392,    .27374,    .75224,    .06012,    .01319,
     +     .00332,    .04677,    .08892,
     +     .57650,    .26844,    .72566,    .05909,    .01407,
     +     .00462,    .04628,    .08667,
     +     .56963,    .26367,    .70112,    .05812,    .01474,
     +     .00566,    .04578,    .08466 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56259,    .25890,    .67622,    .05713,    .01533,
     +     .00660,    .04522,    .08265,
     +     .55666,    .25499,    .65546,    .05630,    .01574,
     +     .00727,    .04472,    .08098,
     +     .54936,    .25028,    .63037,    .05525,    .01615,
     +     .00799,    .04409,    .07898,
     +     .54289,    .24615,    .60854,    .05431,    .01645,
     +     .00856,    .04351,    .07724,
     +     .53696,    .24241,    .58890,    .05344,    .01668,
     +     .00903,    .04295,    .07568,
     +     .52928,    .23772,    .56420,    .05235,    .01690,
     +     .00953,    .04221,    .07369,
     +     .52206,    .23336,    .54164,    .05131,    .01706,
     +     .00994,    .04150,    .07187,
     +     .51535,    .22935,    .52120,    .05034,    .01716,
     +     .01028,    .04082,    .07020 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50854,    .22535,    .50108,    .04936,    .01721,
     +     .01055,    .04012,    .06854,
     +     .50192,    .22151,    .48210,    .04842,    .01723,
     +     .01078,    .03944,    .06694,
     +     .49570,    .21792,    .46470,    .04752,    .01723,
     +     .01097,    .03879,    .06547,
     +     .48978,    .21456,    .44869,    .04667,    .01720,
     +     .01110,    .03817,    .06409,
     +     .48392,    .21126,    .43322,    .04582,    .01716,
     +     .01123,    .03756,    .06275,
     +     .47809,    .20800,    .41833,    .04500,    .01708,
     +     .01131,    .03694,    .06143,
     +     .47265,    .20497,    .40475,    .04423,    .01701,
     +     .01139,    .03636,    .06021,
     +     .46742,    .20213,    .39215,    .04350,    .01691,
     +     .01143,    .03581,    .05906 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46222,    .19932,    .37990,    .04279,    .01682,
     +     .01146,    .03525,    .05792,
     +     .45708,    .19656,    .36813,    .04208,    .01671,
     +     .01148,    .03471,    .05681,
     +     .45222,    .19395,    .35725,    .04141,    .01660,
     +     .01148,    .03419,    .05577,
     +     .44765,    .19150,    .34725,    .04078,    .01648,
     +     .01148,    .03370,    .05481,
     +     .44299,    .18904,    .33735,    .04014,    .01636,
     +     .01146,    .03320,    .05384 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .67747,    .33165,    .71676,    .05502,    .00000,
     +     .00000,    .03843,    .09399,
     +     .67216,    .32648,    .73463,    .05466,    .00000,
     +     .00000,    .03865,    .09206,
     +     .66369,    .31887,    .75009,    .05405,    .00000,
     +     .00000,    .03888,    .08927,
     +     .65722,    .31343,    .75396,    .05360,    .00077,
     +     .00000,    .03897,    .08731,
     +     .65018,    .30777,    .75047,    .05306,    .00244,
     +     .00000,    .03900,    .08533,
     +     .64385,    .30293,    .74433,    .05258,    .00366,
     +     .00000,    .03895,    .08361,
     +     .63768,    .29832,    .73650,    .05208,    .00474,
     +     .00000,    .03886,    .08199,
     +     .63106,    .29348,    .72638,    .05151,    .00580,
     +     .00000,    .03871,    .08031 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62519,    .28928,    .71575,    .05098,    .00660,
     +     .00000,    .03853,    .07889,
     +     .61943,    .28528,    .70438,    .05046,    .00731,
     +     .00000,    .03834,    .07751,
     +     .61485,    .28216,    .69499,    .05005,    .00785,
     +     .00000,    .03817,    .07641,
     +     .60496,    .27560,    .67185,    .04914,    .00884,
     +     .00020,    .03777,    .07413,
     +     .59641,    .27004,    .64906,    .04833,    .00957,
     +     .00131,    .03736,    .07223,
     +     .58678,    .26392,    .62290,    .04739,    .01028,
     +     .00253,    .03685,    .07013,
     +     .57670,    .25766,    .59559,    .04638,    .01089,
     +     .00351,    .03627,    .06799,
     +     .56753,    .25210,    .57092,    .04546,    .01135,
     +     .00428,    .03570,    .06609 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55830,    .24659,    .54634,    .04450,    .01174,
     +     .00496,    .03510,    .06420,
     +     .55062,    .24209,    .52623,    .04371,    .01200,
     +     .00544,    .03458,    .06265,
     +     .54133,    .23671,    .50226,    .04272,    .01224,
     +     .00594,    .03393,    .06082,
     +     .53316,    .23206,    .48169,    .04185,    .01242,
     +     .00634,    .03334,    .05923,
     +     .52571,    .22786,    .46339,    .04107,    .01254,
     +     .00666,    .03278,    .05781,
     +     .51627,    .22260,    .44071,    .04005,    .01264,
     +     .00700,    .03207,    .05604,
     +     .50747,    .21776,    .42026,    .03910,    .01269,
     +     .00726,    .03139,    .05442,
     +     .49933,    .21334,    .40193,    .03824,    .01272,
     +     .00748,    .03076,    .05293 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49116,    .20897,    .38410,    .03737,    .01270,
     +     .00764,    .03011,    .05148,
     +     .48330,    .20478,    .36744,    .03653,    .01267,
     +     .00778,    .02949,    .05009,
     +     .47596,    .20087,    .35233,    .03573,    .01262,
     +     .00788,    .02891,    .04882,
     +     .46901,    .19727,    .33854,    .03499,    .01255,
     +     .00796,    .02835,    .04763,
     +     .46215,    .19374,    .32529,    .03427,    .01247,
     +     .00802,    .02780,    .04647,
     +     .45540,    .19027,    .31267,    .03356,    .01238,
     +     .00805,    .02726,    .04534,
     +     .44913,    .18706,    .30122,    .03290,    .01228,
     +     .00808,    .02675,    .04431,
     +     .44315,    .18404,    .29069,    .03228,    .01218,
     +     .00809,    .02627,    .04334 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43723,    .18107,    .28050,    .03166,    .01208,
     +     .00809,    .02579,    .04238,
     +     .43141,    .17816,    .27077,    .03106,    .01196,
     +     .00808,    .02532,    .04146,
     +     .42592,    .17543,    .26183,    .03050,    .01185,
     +     .00806,    .02488,    .04059,
     +     .42077,    .17287,    .25365,    .02998,    .01174,
     +     .00804,    .02447,    .03979,
     +     .41557,    .17031,    .24562,    .02944,    .01162,
     +     .00801,    .02404,    .03899 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70292,    .32990,    .67361,    .04508,    .00000,
     +     .00000,    .03153,    .07703,
     +     .69443,    .32342,    .68365,    .04470,    .00000,
     +     .00000,    .03165,    .07517,
     +     .68150,    .31405,    .68823,    .04409,    .00000,
     +     .00000,    .03170,    .07246,
     +     .67199,    .30744,    .68504,    .04361,    .00064,
     +     .00000,    .03168,    .07057,
     +     .66193,    .30068,    .67520,    .04305,    .00200,
     +     .00000,    .03159,    .06867,
     +     .65318,    .29487,    .66414,    .04253,    .00298,
     +     .00000,    .03145,    .06707,
     +     .64475,    .28944,    .65204,    .04201,    .00384,
     +     .00000,    .03127,    .06554,
     +     .63579,    .28380,    .63785,    .04145,    .00468,
     +     .00000,    .03106,    .06394 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62797,    .27896,    .62417,    .04094,    .00530,
     +     .00000,    .03082,    .06258,
     +     .62044,    .27434,    .61024,    .04041,    .00584,
     +     .00000,    .03058,    .06129,
     +     .61452,    .27074,    .59903,    .03999,    .00625,
     +     .00000,    .03038,    .06029,
     +     .60187,    .26327,    .57300,    .03910,    .00699,
     +     .00016,    .02989,    .05820,
     +     .59108,    .25700,    .54876,    .03832,    .00753,
     +     .00101,    .02945,    .05646,
     +     .57912,    .25014,    .52169,    .03741,    .00803,
     +     .00194,    .02890,    .05457,
     +     .56677,    .24320,    .49406,    .03645,    .00845,
     +     .00268,    .02830,    .05265,
     +     .55566,    .23706,    .46960,    .03558,    .00876,
     +     .00324,    .02774,    .05094 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54457,    .23103,    .44568,    .03471,    .00901,
     +     .00374,    .02716,    .04925,
     +     .53546,    .22613,    .42642,    .03398,    .00917,
     +     .00409,    .02666,    .04790,
     +     .52450,    .22032,    .40383,    .03309,    .00931,
     +     .00444,    .02604,    .04629,
     +     .51495,    .21532,    .38468,    .03230,    .00939,
     +     .00472,    .02549,    .04492,
     +     .50632,    .21084,    .36779,    .03159,    .00945,
     +     .00494,    .02498,    .04369,
     +     .49546,    .20525,    .34719,    .03068,    .00948,
     +     .00516,    .02434,    .04217,
     +     .48541,    .20014,    .32884,    .02985,    .00947,
     +     .00533,    .02373,    .04078,
     +     .47617,    .19550,    .31256,    .02909,    .00945,
     +     .00547,    .02316,    .03952 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46699,    .19093,    .29689,    .02832,    .00940,
     +     .00556,    .02259,    .03829,
     +     .45818,    .18657,    .28239,    .02759,    .00934,
     +     .00564,    .02205,    .03713,
     +     .44998,    .18254,    .26936,    .02692,    .00926,
     +     .00569,    .02154,    .03606,
     +     .44230,    .17880,    .25757,    .02629,    .00918,
     +     .00573,    .02106,    .03508,
     +     .43475,    .17515,    .24632,    .02568,    .00910,
     +     .00575,    .02059,    .03411,
     +     .42738,    .17160,    .23570,    .02506,    .00900,
     +     .00576,    .02012,    .03320,
     +     .42053,    .16832,    .22611,    .02449,    .00890,
     +     .00576,    .01969,    .03237,
     +     .41403,    .16526,    .21738,    .02397,    .00880,
     +     .00575,    .01928,    .03157 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40762,    .16225,    .20897,    .02347,    .00870,
     +     .00574,    .01888,    .03078,
     +     .40134,    .15931,    .20099,    .02298,    .00860,
     +     .00571,    .01849,    .03003,
     +     .39545,    .15655,    .19367,    .02251,    .00849,
     +     .00569,    .01812,    .02934,
     +     .38994,    .15399,    .18703,    .02208,    .00839,
     +     .00566,    .01778,    .02869,
     +     .38438,    .15143,    .18056,    .02163,    .00829,
     +     .00562,    .01744,    .02804 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .71644,    .32265,    .64661,    .03693,    .00000,
     +     .00000,    .02555,    .06187,
     +     .70487,    .31515,    .64776,    .03658,    .00000,
     +     .00000,    .02562,    .06014,
     +     .68782,    .30430,    .64065,    .03593,    .00000,
     +     .00000,    .02558,    .05772,
     +     .67550,    .29676,    .63012,    .03544,    .00052,
     +     .00000,    .02548,    .05601,
     +     .66276,    .28905,    .61391,    .03486,    .00163,
     +     .00000,    .02535,    .05430,
     +     .65173,    .28257,    .59808,    .03435,    .00242,
     +     .00000,    .02516,    .05285,
     +     .64126,    .27652,    .58196,    .03385,    .00310,
     +     .00000,    .02494,    .05148,
     +     .63027,    .27025,    .56411,    .03329,    .00375,
     +     .00000,    .02469,    .05006 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62077,    .26490,    .54782,    .03279,    .00423,
     +     .00000,    .02445,    .04885,
     +     .61166,    .25985,    .53177,    .03229,    .00464,
     +     .00000,    .02418,    .04771,
     +     .60455,    .25593,    .51910,    .03189,    .00495,
     +     .00000,    .02395,    .04683,
     +     .58954,    .24780,    .49093,    .03105,    .00550,
     +     .00013,    .02348,    .04498,
     +     .57686,    .24106,    .46581,    .03031,    .00589,
     +     .00078,    .02303,    .04346,
     +     .56292,    .23374,    .43846,    .02948,    .00624,
     +     .00149,    .02251,    .04181,
     +     .54868,    .22637,    .41112,    .02861,    .00654,
     +     .00204,    .02193,    .04014,
     +     .53601,    .21987,    .38738,    .02780,    .00674,
     +     .00245,    .02141,    .03869 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52348,    .21351,    .36455,    .02699,    .00689,
     +     .00282,    .02087,    .03728,
     +     .51322,    .20840,    .34640,    .02633,    .00698,
     +     .00306,    .02042,    .03613,
     +     .50098,    .20236,    .32540,    .02554,    .00705,
     +     .00331,    .01986,    .03478,
     +     .49039,    .19718,    .30785,    .02485,    .00708,
     +     .00350,    .01937,    .03362,
     +     .48087,    .19255,    .29258,    .02422,    .00710,
     +     .00365,    .01893,    .03259,
     +     .46892,    .18685,    .27415,    .02346,    .00708,
     +     .00380,    .01836,    .03130,
     +     .45796,    .18165,    .25791,    .02275,    .00705,
     +     .00391,    .01783,    .03016,
     +     .44797,    .17691,    .24363,    .02209,    .00700,
     +     .00399,    .01733,    .02916 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43808,    .17227,    .23009,    .02143,    .00694,
     +     .00405,    .01685,    .02816,
     +     .42862,    .16789,    .21764,    .02081,    .00686,
     +     .00409,    .01638,    .02722,
     +     .41984,    .16387,    .20653,    .02024,    .00679,
     +     .00411,    .01595,    .02636,
     +     .41169,    .16013,    .19656,    .01971,    .00671,
     +     .00412,    .01555,    .02556,
     +     .40372,    .15648,    .18711,    .01919,    .00662,
     +     .00413,    .01518,    .02478,
     +     .39592,    .15297,    .17826,    .01869,    .00653,
     +     .00412,    .01479,    .02405,
     +     .38870,    .14973,    .17031,    .01823,    .00644,
     +     .00411,    .01443,    .02337,
     +     .38193,    .14671,    .16314,    .01780,    .00635,
     +     .00409,    .01409,    .02275 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37526,    .14374,    .15626,    .01737,    .00626,
     +     .00407,    .01376,    .02215,
     +     .36873,    .14085,    .14979,    .01696,    .00617,
     +     .00404,    .01344,    .02155,
     +     .36261,    .13816,    .14389,    .01659,    .00608,
     +     .00401,    .01315,    .02099,
     +     .35691,    .13566,    .13854,    .01624,    .00599,
     +     .00399,    .01288,    .02048,
     +     .35119,    .13315,    .13334,    .01588,    .00591,
     +     .00395,    .01260,    .01998 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .71907,    .31104,    .62471,    .03020,    .00000,
     +     .00000,    .02048,    .04874,
     +     .70474,    .30269,    .61674,    .02985,    .00000,
     +     .00000,    .02050,    .04722,
     +     .68385,    .29082,    .59811,    .02924,    .00000,
     +     .00000,    .02039,    .04507,
     +     .66906,    .28256,    .58068,    .02874,    .00042,
     +     .00000,    .02025,    .04361,
     +     .65386,    .27425,    .55874,    .02821,    .00131,
     +     .00000,    .02006,    .04213,
     +     .64090,    .26727,    .53876,    .02772,    .00194,
     +     .00000,    .01986,    .04086,
     +     .62868,    .26077,    .51931,    .02724,    .00247,
     +     .00000,    .01963,    .03968,
     +     .61594,    .25408,    .49858,    .02671,    .00298,
     +     .00000,    .01937,    .03847 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60500,    .24842,    .48032,    .02625,    .00334,
     +     .00000,    .01912,    .03743,
     +     .59460,    .24308,    .46279,    .02577,    .00366,
     +     .00000,    .01887,    .03646,
     +     .58651,    .23894,    .44919,    .02539,    .00389,
     +     .00000,    .01865,    .03572,
     +     .56958,    .23041,    .41993,    .02460,    .00429,
     +     .00010,    .01818,    .03418,
     +     .55541,    .22339,    .39469,    .02394,    .00457,
     +     .00059,    .01778,    .03287,
     +     .53991,    .21581,    .36775,    .02318,    .00482,
     +     .00113,    .01731,    .03149,
     +     .52420,    .20822,    .34136,    .02240,    .00501,
     +     .00154,    .01679,    .03011,
     +     .51033,    .20158,    .31884,    .02169,    .00514,
     +     .00185,    .01631,    .02890 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49670,    .19512,    .29749,    .02097,    .00523,
     +     .00211,    .01583,    .02774,
     +     .48561,    .18993,    .28078,    .02041,    .00527,
     +     .00228,    .01544,    .02679,
     +     .47246,    .18382,    .26173,    .01971,    .00530,
     +     .00246,    .01496,    .02569,
     +     .46114,    .17861,    .24597,    .01912,    .00531,
     +     .00259,    .01454,    .02476,
     +     .45100,    .17399,    .23237,    .01858,    .00530,
     +     .00269,    .01416,    .02393,
     +     .43836,    .16829,    .21618,    .01792,    .00526,
     +     .00278,    .01368,    .02292,
     +     .42684,    .16311,    .20204,    .01731,    .00521,
     +     .00285,    .01324,    .02200,
     +     .41637,    .15843,    .18970,    .01674,    .00516,
     +     .00290,    .01283,    .02119 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40605,    .15389,    .17815,    .01620,    .00509,
     +     .00293,    .01243,    .02040,
     +     .39622,    .14959,    .16761,    .01569,    .00502,
     +     .00295,    .01205,    .01965,
     +     .38715,    .14562,    .15827,    .01523,    .00495,
     +     .00296,    .01171,    .01895,
     +     .37877,    .14198,    .14998,    .01478,    .00487,
     +     .00296,    .01139,    .01834,
     +     .37059,    .13843,    .14215,    .01435,    .00480,
     +     .00295,    .01106,    .01775,
     +     .36261,    .13503,    .13490,    .01395,    .00472,
     +     .00294,    .01075,    .01717,
     +     .35524,    .13190,    .12841,    .01358,    .00464,
     +     .00293,    .01047,    .01663,
     +     .34837,    .12898,    .12257,    .01321,    .00456,
     +     .00290,    .01020,    .01617 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34162,    .12612,    .11700,    .01285,    .00449,
     +     .00288,    .00993,    .01571,
     +     .33504,    .12335,    .11178,    .01252,    .00441,
     +     .00286,    .00968,    .01526,
     +     .32888,    .12078,    .10706,    .01222,    .00434,
     +     .00283,    .00945,    .01483,
     +     .32316,    .11839,    .10279,    .01194,    .00427,
     +     .00280,    .00923,    .01443,
     +     .31741,    .11602,    .09866,    .01165,    .00420,
     +     .00277,    .00902,    .01405 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .71154,    .29640,    .60066,    .02494,    .00000,
     +     .00000,    .01602,    .03742,
     +     .69483,    .28741,    .58411,    .02454,    .00000,
     +     .00000,    .01601,    .03619,
     +     .67079,    .27468,    .55518,    .02387,    .00000,
     +     .00000,    .01590,    .03444,
     +     .65389,    .26594,    .53187,    .02338,    .00034,
     +     .00000,    .01577,    .03321,
     +     .63667,    .25721,    .50529,    .02287,    .00105,
     +     .00000,    .01558,    .03197,
     +     .62215,    .24988,    .48222,    .02237,    .00154,
     +     .00000,    .01538,    .03095,
     +     .60851,    .24311,    .46044,    .02189,    .00196,
     +     .00000,    .01518,    .02999,
     +     .59436,    .23618,    .43782,    .02139,    .00234,
     +     .00000,    .01494,    .02898 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58233,    .23031,    .41839,    .02094,    .00262,
     +     .00000,    .01471,    .02814,
     +     .57090,    .22483,    .40010,    .02051,    .00285,
     +     .00000,    .01448,    .02734,
     +     .56202,    .22061,    .38609,    .02019,    .00302,
     +     .00000,    .01429,    .02671,
     +     .54360,    .21194,    .35675,    .01947,    .00332,
     +     .00008,    .01388,    .02544,
     +     .52832,    .20479,    .33222,    .01884,    .00351,
     +     .00045,    .01351,    .02443,
     +     .51171,    .19712,    .30647,    .01816,    .00368,
     +     .00086,    .01310,    .02331,
     +     .49496,    .18950,    .28165,    .01748,    .00381,
     +     .00116,    .01266,    .02218,
     +     .48026,    .18286,    .26083,    .01686,    .00388,
     +     .00138,    .01227,    .02120 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46591,    .17643,    .24141,    .01623,    .00393,
     +     .00157,    .01187,    .02027,
     +     .45431,    .17127,    .22634,    .01571,    .00395,
     +     .00169,    .01152,    .01958,
     +     .44059,    .16526,    .20936,    .01513,    .00395,
     +     .00181,    .01112,    .01869,
     +     .42883,    .16014,    .19547,    .01463,    .00394,
     +     .00190,    .01077,    .01794,
     +     .41836,    .15559,    .18361,    .01418,    .00392,
     +     .00197,    .01044,    .01732,
     +     .40538,    .15003,    .16960,    .01360,    .00388,
     +     .00203,    .01007,    .01652,
     +     .39356,    .14502,    .15751,    .01309,    .00382,
     +     .00207,    .00971,    .01581,
     +     .38284,    .14051,    .14707,    .01264,    .00377,
     +     .00210,    .00936,    .01517 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37237,    .13612,    .13738,    .01220,    .00371,
     +     .00211,    .00905,    .01454,
     +     .36244,    .13197,    .12861,    .01177,    .00364,
     +     .00212,    .00875,    .01396,
     +     .35331,    .12818,    .12088,    .01137,    .00358,
     +     .00212,    .00847,    .01345,
     +     .34488,    .12470,    .11407,    .01102,    .00351,
     +     .00211,    .00822,    .01298,
     +     .33667,    .12133,    .10768,    .01068,    .00345,
     +     .00210,    .00797,    .01252,
     +     .32871,    .11808,    .10180,    .01035,    .00338,
     +     .00209,    .00772,    .01209,
     +     .32137,    .11511,    .09655,    .01005,    .00332,
     +     .00207,    .00749,    .01169,
     +     .31455,    .11235,    .09187,    .00977,    .00326,
     +     .00205,    .00729,    .01133 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30787,    .10966,    .08741,    .00949,    .00319,
     +     .00203,    .00709,    .01097,
     +     .30138,    .10706,    .08327,    .00922,    .00313,
     +     .00201,    .00690,    .01063,
     +     .29533,    .10464,    .07954,    .00897,    .00307,
     +     .00199,    .00671,    .01031,
     +     .28970,    .10241,    .07618,    .00874,    .00302,
     +     .00196,    .00654,    .01002,
     +     .28407,    .10019,    .07294,    .00853,    .00296,
     +     .00194,    .00638,    .00974 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69592,    .27867,    .56989,    .02012,    .00000,
     +     .00000,    .01256,    .02838,
     +     .67712,    .26932,    .54608,    .01974,    .00000,
     +     .00000,    .01253,    .02736,
     +     .65032,    .25618,    .50896,    .01913,    .00000,
     +     .00000,    .01239,    .02591,
     +     .63166,    .24720,    .48129,    .01867,    .00027,
     +     .00000,    .01224,    .02492,
     +     .61283,    .23824,    .45157,    .01818,    .00082,
     +     .00000,    .01203,    .02395,
     +     .59699,    .23081,    .42655,    .01773,    .00120,
     +     .00000,    .01185,    .02311,
     +     .58223,    .22394,    .40347,    .01731,    .00151,
     +     .00000,    .01166,    .02232,
     +     .56702,    .21693,    .38001,    .01686,    .00180,
     +     .00000,    .01144,    .02151 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55408,    .21106,    .36032,    .01646,    .00201,
     +     .00000,    .01124,    .02083,
     +     .54190,    .20554,    .34206,    .01607,    .00218,
     +     .00000,    .01103,    .02019,
     +     .53249,    .20130,    .32822,    .01577,    .00230,
     +     .00000,    .01087,    .01971,
     +     .51300,    .19266,    .29987,    .01515,    .00251,
     +     .00006,    .01050,    .01868,
     +     .49693,    .18559,    .27672,    .01461,    .00265,
     +     .00034,    .01017,    .01788,
     +     .47960,    .17803,    .25279,    .01402,    .00276,
     +     .00063,    .00982,    .01701,
     +     .46222,    .17054,    .23009,    .01343,    .00284,
     +     .00085,    .00946,    .01612,
     +     .44703,    .16406,    .21132,    .01290,    .00288,
     +     .00102,    .00912,    .01536 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43227,    .15778,    .19400,    .01238,    .00291,
     +     .00115,    .00878,    .01465,
     +     .42040,    .15279,    .18074,    .01196,    .00291,
     +     .00123,    .00851,    .01406,
     +     .40641,    .14698,    .16595,    .01148,    .00290,
     +     .00132,    .00818,    .01338,
     +     .39447,    .14206,    .15398,    .01106,    .00288,
     +     .00138,    .00790,    .01282,
     +     .38389,    .13771,    .14383,    .01067,    .00286,
     +     .00142,    .00765,    .01232,
     +     .37085,    .13239,    .13200,    .01021,    .00281,
     +     .00146,    .00733,    .01172,
     +     .35903,    .12759,    .12188,    .00980,    .00277,
     +     .00148,    .00704,    .01117,
     +     .34835,    .12329,    .11320,    .00944,    .00272,
     +     .00150,    .00679,    .01068 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33793,    .11913,    .10520,    .00906,    .00266,
     +     .00150,    .00654,    .01023,
     +     .32809,    .11522,    .09801,    .00871,    .00261,
     +     .00150,    .00630,    .00981,
     +     .31909,    .11165,    .09173,    .00839,    .00256,
     +     .00150,    .00607,    .00943,
     +     .31080,    .10840,    .08623,    .00811,    .00250,
     +     .00149,    .00587,    .00907,
     +     .30275,    .10525,    .08109,    .00783,    .00245,
     +     .00148,    .00568,    .00872,
     +     .29496,    .10223,    .07638,    .00757,    .00240,
     +     .00147,    .00549,    .00840,
     +     .28779,    .09946,    .07220,    .00734,    .00234,
     +     .00145,    .00532,    .00812,
     +     .28115,    .09690,    .06850,    .00712,    .00229,
     +     .00143,    .00516,    .00785 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27466,    .09439,    .06499,    .00690,    .00225,
     +     .00142,    .00501,    .00758,
     +     .26838,    .09199,    .06175,    .00669,    .00220,
     +     .00140,    .00486,    .00734,
     +     .26254,    .08975,    .05884,    .00649,    .00215,
     +     .00138,    .00472,    .00711,
     +     .25713,    .08770,    .05622,    .00631,    .00211,
     +     .00136,    .00459,    .00690,
     +     .25173,    .08566,    .05372,    .00614,    .00206,
     +     .00134,    .00446,    .00669 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67268,    .25932,    .53146,    .01620,    .00000,
     +     .00000,    .00965,    .02104,
     +     .65226,    .24976,    .50216,    .01583,    .00000,
     +     .00000,    .00960,    .02025,
     +     .62332,    .23646,    .45933,    .01525,    .00000,
     +     .00000,    .00946,    .01911,
     +     .60330,    .22743,    .42895,    .01484,    .00021,
     +     .00000,    .00933,    .01830,
     +     .58330,    .21844,    .39764,    .01437,    .00063,
     +     .00000,    .00914,    .01755,
     +     .56650,    .21106,    .37193,    .01398,    .00091,
     +     .00000,    .00897,    .01688,
     +     .55095,    .20424,    .34866,    .01360,    .00115,
     +     .00000,    .00880,    .01626,
     +     .53502,    .19727,    .32541,    .01318,    .00137,
     +     .00000,    .00862,    .01564 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52154,    .19144,    .30621,    .01283,    .00152,
     +     .00000,    .00844,    .01512,
     +     .50888,    .18603,    .28867,    .01249,    .00164,
     +     .00000,    .00826,    .01463,
     +     .49912,    .18189,    .27552,    .01222,    .00173,
     +     .00000,    .00812,    .01425,
     +     .47906,    .17339,    .24896,    .01166,    .00187,
     +     .00005,    .00782,    .01349,
     +     .46257,    .16651,    .22769,    .01121,    .00197,
     +     .00025,    .00755,    .01285,
     +     .44486,    .15919,    .20606,    .01070,    .00204,
     +     .00047,    .00726,    .01218,
     +     .42720,    .15197,    .18584,    .01021,    .00209,
     +     .00062,    .00695,    .01152,
     +     .41185,    .14575,    .16932,    .00978,    .00211,
     +     .00074,    .00668,    .01093 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39698,    .13978,    .15427,    .00935,    .00212,
     +     .00083,    .00642,    .01036,
     +     .38509,    .13500,    .14288,    .00900,    .00212,
     +     .00089,    .00619,    .00994,
     +     .37117,    .12948,    .13026,    .00860,    .00210,
     +     .00095,    .00593,    .00942,
     +     .35932,    .12481,    .12015,    .00825,    .00208,
     +     .00099,    .00571,    .00899,
     +     .34883,    .12070,    .11166,    .00795,    .00205,
     +     .00102,    .00551,    .00863,
     +     .33595,    .11569,    .10183,    .00757,    .00201,
     +     .00104,    .00525,    .00820,
     +     .32434,    .11120,    .09350,    .00723,    .00197,
     +     .00105,    .00504,    .00780,
     +     .31390,    .10718,    .08641,    .00693,    .00193,
     +     .00106,    .00485,    .00743 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30374,    .10331,    .07994,    .00666,    .00189,
     +     .00106,    .00465,    .00708,
     +     .29417,    .09969,    .07415,    .00640,    .00185,
     +     .00106,    .00447,    .00677,
     +     .28542,    .09639,    .06911,    .00614,    .00180,
     +     .00105,    .00430,    .00649,
     +     .27741,    .09339,    .06474,    .00591,    .00176,
     +     .00104,    .00415,    .00623,
     +     .26964,    .09048,    .06067,    .00569,    .00172,
     +     .00103,    .00400,    .00597,
     +     .26216,    .08770,    .05696,    .00549,    .00168,
     +     .00102,    .00386,    .00574,
     +     .25531,    .08517,    .05369,    .00531,    .00164,
     +     .00101,    .00373,    .00553,
     +     .24896,    .08283,    .05081,    .00515,    .00160,
     +     .00100,    .00361,    .00533 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24277,    .08055,    .04808,    .00498,    .00156,
     +     .00098,    .00351,    .00513,
     +     .23678,    .07836,    .04556,    .00483,    .00152,
     +     .00097,    .00339,    .00496,
     +     .23121,    .07633,    .04331,    .00468,    .00149,
     +     .00095,    .00328,    .00480,
     +     .22607,    .07447,    .04129,    .00454,    .00146,
     +     .00094,    .00318,    .00465,
     +     .22098,    .07262,    .03937,    .00440,    .00142,
     +     .00092,    .00309,    .00451 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .64318,    .23871,    .48568,    .01285,    .00000,
     +     .00000,    .00734,    .01533,
     +     .62151,    .22919,    .45298,    .01251,    .00000,
     +     .00000,    .00728,    .01472,
     +     .59109,    .21597,    .40701,    .01196,    .00000,
     +     .00000,    .00715,    .01383,
     +     .57019,    .20701,    .37558,    .01156,    .00015,
     +     .00000,    .00702,    .01324,
     +     .54935,    .19819,    .34422,    .01116,    .00047,
     +     .00000,    .00685,    .01265,
     +     .53199,    .19093,    .31896,    .01082,    .00068,
     +     .00000,    .00671,    .01216,
     +     .51596,    .18428,    .29644,    .01048,    .00086,
     +     .00000,    .00655,    .01170,
     +     .49960,    .17752,    .27426,    .01012,    .00102,
     +     .00000,    .00638,    .01123 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48586,    .17188,    .25623,    .00980,    .00112,
     +     .00000,    .00625,    .01081,
     +     .47295,    .16666,    .23990,    .00953,    .00121,
     +     .00000,    .00610,    .01043,
     +     .46302,    .16267,    .22774,    .00933,    .00127,
     +     .00000,    .00597,    .01014,
     +     .44275,    .15452,    .20366,    .00886,    .00137,
     +     .00004,    .00574,    .00954,
     +     .42616,    .14794,    .18473,    .00848,    .00143,
     +     .00018,    .00552,    .00907,
     +     .40846,    .14094,    .16570,    .00806,    .00148,
     +     .00034,    .00528,    .00857,
     +     .39087,    .13407,    .14813,    .00765,    .00151,
     +     .00045,    .00503,    .00809,
     +     .37562,    .12820,    .13394,    .00730,    .00152,
     +     .00053,    .00482,    .00766 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36094,    .12259,    .12116,    .00697,    .00152,
     +     .00059,    .00462,    .00722,
     +     .34925,    .11812,    .11156,    .00668,    .00151,
     +     .00063,    .00444,    .00690,
     +     .33561,    .11295,    .10105,    .00634,    .00150,
     +     .00067,    .00424,    .00655,
     +     .32405,    .10860,    .09269,    .00607,    .00148,
     +     .00070,    .00407,    .00623,
     +     .31385,    .10478,    .08571,    .00584,    .00145,
     +     .00072,    .00391,    .00595,
     +     .30134,    .10014,    .07773,    .00554,    .00142,
     +     .00073,    .00372,    .00563,
     +     .29012,    .09600,    .07100,    .00528,    .00139,
     +     .00074,    .00356,    .00533,
     +     .28006,    .09231,    .06530,    .00506,    .00135,
     +     .00074,    .00341,    .00506 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27030,    .08876,    .06016,    .00484,    .00132,
     +     .00074,    .00326,    .00483,
     +     .26116,    .08544,    .05557,    .00463,    .00129,
     +     .00073,    .00313,    .00460,
     +     .25284,    .08243,    .05161,    .00442,    .00125,
     +     .00073,    .00300,    .00439,
     +     .24522,    .07969,    .04819,    .00426,    .00122,
     +     .00072,    .00289,    .00421,
     +     .23784,    .07705,    .04502,    .00410,    .00119,
     +     .00071,    .00277,    .00403,
     +     .23079,    .07454,    .04215,    .00394,    .00116,
     +     .00070,    .00267,    .00386,
     +     .22434,    .07224,    .03962,    .00379,    .00113,
     +     .00069,    .00258,    .00371,
     +     .21837,    .07013,    .03740,    .00366,    .00110,
     +     .00068,    .00249,    .00358 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21254,    .06807,    .03530,    .00354,    .00107,
     +     .00067,    .00240,    .00346,
     +     .20693,    .06611,    .03338,    .00342,    .00104,
     +     .00066,    .00232,    .00334,
     +     .20174,    .06429,    .03166,    .00330,    .00102,
     +     .00065,    .00224,    .00322,
     +     .19695,    .06262,    .03013,    .00320,    .00099,
     +     .00064,    .00217,    .00311,
     +     .19219,    .06099,    .02869,    .00311,    .00097,
     +     .00063,    .00211,    .00300 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60860,    .21740,    .43435,    .00997,    .00000,
     +     .00000,    .00553,    .01100,
     +     .58610,    .20808,    .40015,    .00966,    .00000,
     +     .00000,    .00547,    .01053,
     +     .55473,    .19517,    .35358,    .00917,    .00000,
     +     .00000,    .00532,    .00989,
     +     .53332,    .18649,    .32264,    .00885,    .00011,
     +     .00000,    .00522,    .00941,
     +     .51208,    .17798,    .29250,    .00850,    .00034,
     +     .00000,    .00508,    .00897,
     +     .49450,    .17097,    .26864,    .00820,    .00050,
     +     .00000,    .00496,    .00859,
     +     .47833,    .16458,    .24764,    .00792,    .00063,
     +     .00000,    .00482,    .00825,
     +     .46185,    .15812,    .22720,    .00762,    .00074,
     +     .00000,    .00468,    .00790 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44802,    .15276,    .21078,    .00738,    .00081,
     +     .00000,    .00456,    .00759,
     +     .43515,    .14777,    .19610,    .00713,    .00087,
     +     .00000,    .00444,    .00732,
     +     .42529,    .14395,    .18526,    .00694,    .00092,
     +     .00000,    .00435,    .00712,
     +     .40510,    .13628,    .16401,    .00660,    .00099,
     +     .00003,    .00416,    .00664,
     +     .38873,    .13009,    .14756,    .00628,    .00103,
     +     .00013,    .00399,    .00630,
     +     .37128,    .12353,    .13122,    .00596,    .00106,
     +     .00024,    .00381,    .00593,
     +     .35409,    .11712,    .11634,    .00562,    .00107,
     +     .00032,    .00361,    .00557,
     +     .33927,    .11165,    .10448,    .00532,    .00107,
     +     .00037,    .00344,    .00526 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32499,    .10643,    .09386,    .00506,    .00107,
     +     .00042,    .00327,    .00496,
     +     .31367,    .10230,    .08594,    .00485,    .00106,
     +     .00044,    .00315,    .00473,
     +     .30052,    .09754,    .07737,    .00459,    .00105,
     +     .00047,    .00300,    .00448,
     +     .28940,    .09355,    .07061,    .00437,    .00103,
     +     .00049,    .00287,    .00425,
     +     .27960,    .09006,    .06502,    .00420,    .00101,
     +     .00050,    .00274,    .00405,
     +     .26769,    .08583,    .05863,    .00397,    .00098,
     +     .00050,    .00261,    .00380,
     +     .25702,    .08206,    .05330,    .00377,    .00096,
     +     .00051,    .00248,    .00360,
     +     .24748,    .07870,    .04882,    .00359,    .00093,
     +     .00051,    .00236,    .00343 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23829,    .07548,    .04479,    .00343,    .00091,
     +     .00051,    .00225,    .00325,
     +     .22968,    .07249,    .04123,    .00327,    .00088,
     +     .00050,    .00216,    .00309,
     +     .22184,    .06979,    .03816,    .00312,    .00086,
     +     .00050,    .00207,    .00294,
     +     .21470,    .06733,    .03553,    .00300,    .00083,
     +     .00049,    .00199,    .00281,
     +     .20780,    .06497,    .03309,    .00289,    .00081,
     +     .00049,    .00190,    .00269,
     +     .20123,    .06273,    .03090,    .00276,    .00079,
     +     .00048,    .00183,    .00257,
     +     .19522,    .06069,    .02898,    .00265,    .00076,
     +     .00047,    .00176,    .00246,
     +     .18970,    .05880,    .02730,    .00255,    .00074,
     +     .00046,    .00169,    .00238 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18432,    .05697,    .02572,    .00245,    .00072,
     +     .00045,    .00163,    .00229,
     +     .17915,    .05524,    .02427,    .00236,    .00070,
     +     .00045,    .00157,    .00220,
     +     .17435,    .05365,    .02298,    .00228,    .00069,
     +     .00044,    .00152,    .00211,
     +     .16993,    .05218,    .02184,    .00221,    .00067,
     +     .00043,    .00147,    .00203,
     +     .16557,    .05073,    .02076,    .00215,    .00065,
     +     .00042,    .00142,    .00196 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56981,    .19617,    .37998,    .00776,    .00000,
     +     .00000,    .00404,    .00766,
     +     .54702,    .18709,    .34605,    .00745,    .00000,
     +     .00000,    .00397,    .00736,
     +     .51525,    .17475,    .30101,    .00704,    .00000,
     +     .00000,    .00388,    .00683,
     +     .49375,    .16642,    .27176,    .00673,    .00008,
     +     .00000,    .00378,    .00652,
     +     .47248,    .15831,    .24383,    .00645,    .00025,
     +     .00000,    .00366,    .00618,
     +     .45496,    .15167,    .22207,    .00621,    .00036,
     +     .00000,    .00355,    .00591,
     +     .43890,    .14563,    .20312,    .00596,    .00045,
     +     .00000,    .00345,    .00567,
     +     .42260,    .13954,    .18486,    .00571,    .00053,
     +     .00000,    .00334,    .00542 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40900,    .13447,    .17039,    .00552,    .00058,
     +     .00000,    .00325,    .00519,
     +     .39636,    .12980,    .15757,    .00532,    .00062,
     +     .00000,    .00315,    .00499,
     +     .38669,    .12625,    .14817,    .00515,    .00065,
     +     .00000,    .00308,    .00485,
     +     .36699,    .11908,    .12996,    .00487,    .00070,
     +     .00002,    .00294,    .00452,
     +     .35109,    .11332,    .11605,    .00461,    .00072,
     +     .00009,    .00281,    .00427,
     +     .33417,    .10729,    .10239,    .00437,    .00074,
     +     .00017,    .00267,    .00399,
     +     .31758,    .10139,    .09007,    .00411,    .00075,
     +     .00022,    .00251,    .00375,
     +     .30337,    .09635,    .08034,    .00387,    .00075,
     +     .00026,    .00238,    .00355 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28973,    .09158,    .07171,    .00366,    .00074,
     +     .00029,    .00226,    .00333,
     +     .27893,    .08781,    .06534,    .00350,    .00073,
     +     .00031,    .00217,    .00315,
     +     .26647,    .08348,    .05850,    .00329,    .00072,
     +     .00032,    .00206,    .00297,
     +     .25596,    .07986,    .05314,    .00313,    .00071,
     +     .00033,    .00197,    .00282,
     +     .24671,    .07671,    .04873,    .00300,    .00069,
     +     .00034,    .00187,    .00269,
     +     .23552,    .07289,    .04372,    .00284,    .00067,
     +     .00035,    .00178,    .00252,
     +     .22553,    .06951,    .03957,    .00268,    .00065,
     +     .00035,    .00169,    .00238,
     +     .21661,    .06651,    .03611,    .00255,    .00063,
     +     .00035,    .00161,    .00225 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20806,    .06363,    .03300,    .00241,    .00061,
     +     .00034,    .00153,    .00213,
     +     .20006,    .06096,    .03028,    .00229,    .00059,
     +     .00034,    .00145,    .00203,
     +     .19280,    .05856,    .02795,    .00218,    .00058,
     +     .00034,    .00138,    .00193,
     +     .18622,    .05638,    .02596,    .00208,    .00056,
     +     .00033,    .00132,    .00184,
     +     .17988,    .05428,    .02413,    .00199,    .00054,
     +     .00033,    .00127,    .00176,
     +     .17384,    .05231,    .02248,    .00191,    .00053,
     +     .00032,    .00122,    .00167,
     +     .16832,    .05052,    .02103,    .00184,    .00051,
     +     .00031,    .00117,    .00160,
     +     .16324,    .04888,    .01978,    .00178,    .00050,
     +     .00031,    .00112,    .00153 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15831,    .04728,    .01860,    .00172,    .00048,
     +     .00030,    .00108,    .00147,
     +     .15359,    .04576,    .01753,    .00166,    .00047,
     +     .00030,    .00104,    .00141,
     +     .14924,    .04436,    .01657,    .00159,    .00046,
     +     .00029,    .00101,    .00136,
     +     .14523,    .04308,    .01572,    .00154,    .00044,
     +     .00029,    .00097,    .00131,
     +     .14128,    .04181,    .01492,    .00150,    .00043,
     +     .00028,    .00094,    .00126 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52814,    .17509,    .32484,    .00585,    .00000,
     +     .00000,    .00291,    .00527,
     +     .50528,    .16655,    .29266,    .00561,    .00000,
     +     .00000,    .00286,    .00503,
     +     .47374,    .15483,    .25083,    .00526,    .00000,
     +     .00000,    .00276,    .00467,
     +     .45243,    .14701,    .22425,    .00505,    .00006,
     +     .00000,    .00267,    .00440,
     +     .43155,    .13938,    .19926,    .00479,    .00017,
     +     .00000,    .00258,    .00419,
     +     .41437,    .13319,    .18001,    .00460,    .00025,
     +     .00000,    .00249,    .00400,
     +     .39868,    .12756,    .16345,    .00442,    .00031,
     +     .00000,    .00241,    .00381,
     +     .38283,    .12189,    .14767,    .00422,    .00037,
     +     .00000,    .00233,    .00362 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36963,    .11721,    .13526,    .00405,    .00040,
     +     .00000,    .00226,    .00347,
     +     .35740,    .11289,    .12438,    .00389,    .00043,
     +     .00000,    .00219,    .00334,
     +     .34807,    .10961,    .11645,    .00377,    .00045,
     +     .00000,    .00214,    .00323,
     +     .32910,    .10302,    .10122,    .00357,    .00048,
     +     .00002,    .00200,    .00302,
     +     .31388,    .09776,    .08976,    .00336,    .00050,
     +     .00006,    .00191,    .00283,
     +     .29779,    .09225,    .07861,    .00316,    .00051,
     +     .00012,    .00180,    .00265,
     +     .28206,    .08688,    .06864,    .00296,    .00051,
     +     .00015,    .00170,    .00248,
     +     .26861,    .08232,    .06085,    .00278,    .00051,
     +     .00018,    .00161,    .00234 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25577,    .07801,    .05401,    .00263,    .00050,
     +     .00020,    .00152,    .00219,
     +     .24563,    .07463,    .04900,    .00250,    .00050,
     +     .00021,    .00145,    .00207,
     +     .23393,    .07075,    .04363,    .00236,    .00049,
     +     .00022,    .00137,    .00194,
     +     .22413,    .06751,    .03946,    .00224,    .00048,
     +     .00023,    .00131,    .00183,
     +     .21558,    .06469,    .03605,    .00212,    .00047,
     +     .00023,    .00125,    .00173,
     +     .20517,    .06131,    .03221,    .00201,    .00045,
     +     .00023,    .00118,    .00162,
     +     .19591,    .05831,    .02905,    .00190,    .00044,
     +     .00023,    .00111,    .00153,
     +     .18770,    .05565,    .02642,    .00181,    .00042,
     +     .00023,    .00104,    .00145 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17987,    .05312,    .02408,    .00170,    .00041,
     +     .00023,    .00100,    .00137,
     +     .17256,    .05078,    .02203,    .00161,    .00040,
     +     .00023,    .00095,    .00130,
     +     .16592,    .04868,    .02028,    .00154,    .00038,
     +     .00022,    .00090,    .00123,
     +     .15991,    .04678,    .01879,    .00147,    .00037,
     +     .00022,    .00087,    .00116,
     +     .15413,    .04497,    .01742,    .00142,    .00036,
     +     .00022,    .00083,    .00110,
     +     .14865,    .04324,    .01620,    .00136,    .00035,
     +     .00021,    .00079,    .00104,
     +     .14366,    .04168,    .01514,    .00130,    .00034,
     +     .00021,    .00075,    .00100,
     +     .13910,    .04025,    .01421,    .00125,    .00033,
     +     .00020,    .00072,    .00096 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13469,    .03887,    .01335,    .00120,    .00032,
     +     .00020,    .00070,    .00092,
     +     .13046,    .03755,    .01256,    .00114,    .00031,
     +     .00020,    .00067,    .00089,
     +     .12656,    .03634,    .01186,    .00109,    .00030,
     +     .00019,    .00065,    .00085,
     +     .12298,    .03523,    .01124,    .00105,    .00029,
     +     .00019,    .00063,    .00082,
     +     .11944,    .03415,    .01066,    .00102,    .00028,
     +     .00018,    .00060,    .00079 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48440,    .15460,    .27111,    .00429,    .00000,
     +     .00000,    .00211,    .00356,
     +     .46193,    .14656,    .24178,    .00409,    .00000,
     +     .00000,    .00204,    .00341,
     +     .43106,    .13561,    .20430,    .00380,    .00000,
     +     .00000,    .00195,    .00315,
     +     .41033,    .12836,    .18089,    .00361,    .00004,
     +     .00000,    .00188,    .00296,
     +     .39001,    .12134,    .15926,    .00346,    .00012,
     +     .00000,    .00180,    .00279,
     +     .37349,    .11559,    .14277,    .00328,    .00017,
     +     .00000,    .00175,    .00266,
     +     .35842,    .11041,    .12871,    .00312,    .00021,
     +     .00000,    .00169,    .00254,
     +     .34318,    .10523,    .11546,    .00297,    .00025,
     +     .00000,    .00162,    .00242 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33053,    .10096,    .10513,    .00286,    .00027,
     +     .00000,    .00156,    .00231,
     +     .31886,    .09703,    .09613,    .00275,    .00029,
     +     .00000,    .00151,    .00221,
     +     .30999,    .09405,    .08962,    .00266,    .00030,
     +     .00000,    .00147,    .00214,
     +     .29210,    .08807,    .07725,    .00245,    .00032,
     +     .00001,    .00138,    .00200,
     +     .27776,    .08330,    .06804,    .00229,    .00033,
     +     .00004,    .00131,    .00188,
     +     .26262,    .07833,    .05917,    .00215,    .00034,
     +     .00008,    .00125,    .00175,
     +     .24784,    .07354,    .05133,    .00202,    .00034,
     +     .00010,    .00117,    .00162,
     +     .23525,    .06949,    .04523,    .00192,    .00034,
     +     .00012,    .00110,    .00151 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22331,    .06566,    .03992,    .00182,    .00033,
     +     .00013,    .00103,    .00141,
     +     .21395,    .06264,    .03605,    .00170,    .00033,
     +     .00014,    .00099,    .00134,
     +     .20319,    .05919,    .03195,    .00158,    .00032,
     +     .00015,    .00093,    .00127,
     +     .19417,    .05634,    .02879,    .00148,    .00031,
     +     .00015,    .00088,    .00120,
     +     .18630,    .05388,    .02620,    .00142,    .00031,
     +     .00015,    .00084,    .00112,
     +     .17682,    .05091,    .02332,    .00131,    .00029,
     +     .00015,    .00079,    .00105,
     +     .16838,    .04829,    .02096,    .00124,    .00028,
     +     .00015,    .00074,    .00098,
     +     .16088,    .04598,    .01901,    .00120,    .00028,
     +     .00015,    .00070,    .00091 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15378,    .04377,    .01728,    .00112,    .00027,
     +     .00015,    .00067,    .00087,
     +     .14716,    .04174,    .01576,    .00106,    .00026,
     +     .00015,    .00064,    .00083,
     +     .14117,    .03992,    .01448,    .00102,    .00025,
     +     .00015,    .00061,    .00078,
     +     .13580,    .03828,    .01339,    .00096,    .00024,
     +     .00014,    .00058,    .00074,
     +     .13066,    .03671,    .01239,    .00090,    .00023,
     +     .00014,    .00055,    .00071,
     +     .12576,    .03523,    .01151,    .00086,    .00022,
     +     .00014,    .00052,    .00068,
     +     .12130,    .03390,    .01074,    .00082,    .00022,
     +     .00014,    .00050,    .00065,
     +     .11723,    .03268,    .01007,    .00079,    .00021,
     +     .00013,    .00048,    .00062 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11330,    .03150,    .00945,    .00076,    .00020,
     +     .00013,    .00046,    .00059,
     +     .10953,    .03038,    .00888,    .00073,    .00020,
     +     .00013,    .00044,    .00056,
     +     .10607,    .02935,    .00837,    .00070,    .00019,
     +     .00012,    .00042,    .00054,
     +     .10290,    .02842,    .00793,    .00067,    .00019,
     +     .00012,    .00041,    .00052,
     +     .09979,    .02749,    .00751,    .00065,    .00018,
     +     .00012,    .00039,    .00050 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .43962,    .13504,    .22091,    .00310,    .00000,
     +     .00000,    .00146,    .00237,
     +     .41785,    .12759,    .19506,    .00292,    .00000,
     +     .00000,    .00144,    .00224,
     +     .38805,    .11753,    .16258,    .00269,    .00000,
     +     .00000,    .00137,    .00207,
     +     .36818,    .11086,    .14264,    .00253,    .00003,
     +     .00000,    .00130,    .00197,
     +     .34886,    .10440,    .12443,    .00237,    .00008,
     +     .00000,    .00125,    .00186,
     +     .33307,    .09922,    .11073,    .00224,    .00011,
     +     .00000,    .00121,    .00177,
     +     .31874,    .09453,    .09917,    .00214,    .00014,
     +     .00000,    .00117,    .00168,
     +     .30434,    .08983,    .08836,    .00203,    .00016,
     +     .00000,    .00112,    .00159 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29245,    .08597,    .08001,    .00192,    .00018,
     +     .00000,    .00108,    .00153,
     +     .28147,    .08244,    .07278,    .00184,    .00019,
     +     .00000,    .00104,    .00147,
     +     .27311,    .07977,    .06756,    .00179,    .00020,
     +     .00000,    .00101,    .00142,
     +     .25640,    .07443,    .05776,    .00165,    .00021,
     +     .00001,    .00095,    .00129,
     +     .24302,    .07020,    .05056,    .00154,    .00022,
     +     .00003,    .00090,    .00121,
     +     .22901,    .06578,    .04369,    .00143,    .00022,
     +     .00005,    .00085,    .00114,
     +     .21540,    .06153,    .03765,    .00132,    .00022,
     +     .00007,    .00080,    .00106,
     +     .20384,    .05795,    .03301,    .00124,    .00022,
     +     .00008,    .00076,    .00098 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19288,    .05459,    .02899,    .00117,    .00022,
     +     .00009,    .00071,    .00091,
     +     .18431,    .05196,    .02609,    .00109,    .00021,
     +     .00009,    .00067,    .00087,
     +     .17450,    .04897,    .02303,    .00102,    .00021,
     +     .00010,    .00063,    .00082,
     +     .16632,    .04649,    .02068,    .00096,    .00020,
     +     .00010,    .00060,    .00077,
     +     .15921,    .04433,    .01877,    .00091,    .00020,
     +     .00010,    .00057,    .00073,
     +     .15065,    .04176,    .01665,    .00084,    .00019,
     +     .00010,    .00053,    .00068,
     +     .14308,    .03950,    .01491,    .00078,    .00018,
     +     .00010,    .00050,    .00064,
     +     .13638,    .03751,    .01349,    .00073,    .00018,
     +     .00010,    .00047,    .00060 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13003,    .03563,    .01223,    .00070,    .00017,
     +     .00010,    .00045,    .00056,
     +     .12413,    .03390,    .01114,    .00066,    .00016,
     +     .00010,    .00042,    .00053,
     +     .11881,    .03235,    .01021,    .00062,    .00016,
     +     .00009,    .00039,    .00051,
     +     .11403,    .03095,    .00943,    .00059,    .00015,
     +     .00009,    .00037,    .00048,
     +     .10945,    .02963,    .00872,    .00056,    .00015,
     +     .00009,    .00036,    .00045,
     +     .10512,    .02838,    .00808,    .00054,    .00014,
     +     .00009,    .00034,    .00043,
     +     .10120,    .02725,    .00753,    .00052,    .00014,
     +     .00009,    .00032,    .00041,
     +     .09764,    .02621,    .00706,    .00049,    .00013,
     +     .00008,    .00031,    .00039 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09420,    .02522,    .00661,    .00046,    .00013,
     +     .00008,    .00030,    .00037,
     +     .09091,    .02428,    .00621,    .00044,    .00012,
     +     .00008,    .00029,    .00035,
     +     .08789,    .02342,    .00585,    .00042,    .00012,
     +     .00008,    .00028,    .00034,
     +     .08513,    .02264,    .00554,    .00041,    .00012,
     +     .00008,    .00027,    .00032,
     +     .08243,    .02188,    .00524,    .00039,    .00011,
     +     .00008,    .00026,    .00031 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39472,    .11676,    .17586,    .00226,    .00000,
     +     .00000,    .00094,    .00151,
     +     .37389,    .11000,    .15384,    .00214,    .00000,
     +     .00000,    .00091,    .00142,
     +     .34562,    .10087,    .12665,    .00198,    .00000,
     +     .00000,    .00087,    .00127,
     +     .32685,    .09484,    .11015,    .00185,    .00002,
     +     .00000,    .00083,    .00122,
     +     .30864,    .08904,    .09534,    .00173,    .00005,
     +     .00000,    .00078,    .00115,
     +     .29384,    .08439,    .08428,    .00165,    .00007,
     +     .00000,    .00077,    .00107,
     +     .28046,    .08020,    .07501,    .00157,    .00009,
     +     .00000,    .00074,    .00099,
     +     .26708,    .07601,    .06641,    .00148,    .00011,
     +     .00000,    .00070,    .00093 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25605,    .07258,    .05986,    .00140,    .00012,
     +     .00000,    .00066,    .00090,
     +     .24588,    .06946,    .05419,    .00134,    .00012,
     +     .00000,    .00063,    .00087,
     +     .23815,    .06711,    .05013,    .00130,    .00013,
     +     .00000,    .00061,    .00084,
     +     .22273,    .06238,    .04256,    .00120,    .00014,
     +     .00001,    .00058,    .00078,
     +     .21044,    .05866,    .03705,    .00113,    .00014,
     +     .00002,    .00055,    .00073,
     +     .19764,    .05480,    .03183,    .00105,    .00014,
     +     .00003,    .00051,    .00066,
     +     .18528,    .05109,    .02729,    .00096,    .00014,
     +     .00004,    .00047,    .00062,
     +     .17483,    .04796,    .02382,    .00087,    .00014,
     +     .00005,    .00044,    .00059 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16496,    .04504,    .02084,    .00081,    .00014,
     +     .00006,    .00041,    .00056,
     +     .15724,    .04278,    .01869,    .00078,    .00013,
     +     .00006,    .00039,    .00052,
     +     .14841,    .04020,    .01644,    .00073,    .00013,
     +     .00006,    .00037,    .00047,
     +     .14109,    .03808,    .01472,    .00069,    .00013,
     +     .00006,    .00035,    .00043,
     +     .13474,    .03625,    .01333,    .00064,    .00012,
     +     .00006,    .00033,    .00040,
     +     .12711,    .03404,    .01179,    .00061,    .00012,
     +     .00006,    .00031,    .00038,
     +     .12040,    .03211,    .01055,    .00057,    .00011,
     +     .00006,    .00029,    .00036,
     +     .11449,    .03043,    .00952,    .00053,    .00011,
     +     .00006,    .00027,    .00035 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10887,    .02884,    .00862,    .00051,    .00011,
     +     .00006,    .00025,    .00032,
     +     .10369,    .02737,    .00783,    .00048,    .00010,
     +     .00006,    .00023,    .00029,
     +     .09905,    .02606,    .00718,    .00045,    .00010,
     +     .00006,    .00022,    .00028,
     +     .09487,    .02488,    .00662,    .00042,    .00010,
     +     .00006,    .00021,    .00026,
     +     .09089,    .02377,    .00611,    .00040,    .00009,
     +     .00006,    .00021,    .00025,
     +     .08712,    .02271,    .00566,    .00038,    .00009,
     +     .00006,    .00019,    .00024,
     +     .08372,    .02177,    .00527,    .00036,    .00009,
     +     .00006,    .00018,    .00023,
     +     .08060,    .02091,    .00493,    .00035,    .00008,
     +     .00005,    .00017,    .00021 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07760,    .02009,    .00462,    .00034,    .00008,
     +     .00005,    .00016,    .00020,
     +     .07476,    .01931,    .00434,    .00033,    .00008,
     +     .00005,    .00016,    .00019,
     +     .07216,    .01859,    .00408,    .00032,    .00007,
     +     .00005,    .00015,    .00018,
     +     .06979,    .01794,    .00386,    .00030,    .00007,
     +     .00005,    .00015,    .00018,
     +     .06747,    .01731,    .00365,    .00029,    .00007,
     +     .00005,    .00014,    .00017 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .35011,    .09948,    .13601,    .00149,    .00000,
     +     .00000,    .00068,    .00098,
     +     .33055,    .09339,    .11795,    .00140,    .00000,
     +     .00000,    .00064,    .00092,
     +     .30412,    .08525,    .09593,    .00127,    .00000,
     +     .00000,    .00060,    .00083,
     +     .28666,    .07989,    .08276,    .00118,    .00001,
     +     .00000,    .00057,    .00077,
     +     .26972,    .07477,    .07106,    .00111,    .00003,
     +     .00000,    .00053,    .00074,
     +     .25606,    .07064,    .06243,    .00106,    .00005,
     +     .00000,    .00051,    .00069,
     +     .24374,    .06695,    .05525,    .00099,    .00006,
     +     .00000,    .00048,    .00066,
     +     .23144,    .06329,    .04863,    .00092,    .00007,
     +     .00000,    .00045,    .00062 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22132,    .06030,    .04361,    .00088,    .00007,
     +     .00000,    .00043,    .00059,
     +     .21204,    .05758,    .03930,    .00085,    .00008,
     +     .00000,    .00041,    .00055,
     +     .20502,    .05552,    .03623,    .00082,    .00008,
     +     .00000,    .00040,    .00052,
     +     .19104,    .05143,    .03056,    .00075,    .00008,
     +     .00000,    .00038,    .00049,
     +     .17995,    .04821,    .02647,    .00070,    .00009,
     +     .00001,    .00036,    .00045,
     +     .16842,    .04488,    .02261,    .00063,    .00009,
     +     .00002,    .00033,    .00043,
     +     .15728,    .04170,    .01928,    .00059,    .00009,
     +     .00003,    .00030,    .00040,
     +     .14791,    .03905,    .01677,    .00056,    .00009,
     +     .00003,    .00028,    .00036 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13912,    .03656,    .01462,    .00052,    .00008,
     +     .00004,    .00027,    .00033,
     +     .13227,    .03463,    .01307,    .00049,    .00008,
     +     .00004,    .00025,    .00031,
     +     .12447,    .03245,    .01147,    .00046,    .00008,
     +     .00004,    .00023,    .00029,
     +     .11801,    .03064,    .01024,    .00043,    .00008,
     +     .00004,    .00022,    .00028,
     +     .11242,    .02909,    .00926,    .00041,    .00008,
     +     .00004,    .00020,    .00026,
     +     .10578,    .02724,    .00817,    .00036,    .00007,
     +     .00004,    .00018,    .00024,
     +     .09992,    .02563,    .00729,    .00033,    .00007,
     +     .00004,    .00017,    .00023,
     +     .09475,    .02423,    .00657,    .00032,    .00007,
     +     .00004,    .00016,    .00021 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08987,    .02290,    .00594,    .00031,    .00006,
     +     .00004,    .00015,    .00019,
     +     .08537,    .02168,    .00540,    .00029,    .00006,
     +     .00004,    .00015,    .00018,
     +     .08136,    .02060,    .00494,    .00027,    .00006,
     +     .00004,    .00014,    .00018,
     +     .07775,    .01963,    .00455,    .00026,    .00006,
     +     .00004,    .00013,    .00016,
     +     .07431,    .01871,    .00420,    .00025,    .00006,
     +     .00004,    .00012,    .00014,
     +     .07108,    .01785,    .00389,    .00024,    .00005,
     +     .00003,    .00011,    .00014,
     +     .06816,    .01707,    .00362,    .00023,    .00005,
     +     .00003,    .00011,    .00013,
     +     .06551,    .01637,    .00338,    .00022,    .00005,
     +     .00003,    .00011,    .00013 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06297,    .01569,    .00316,    .00022,    .00005,
     +     .00003,    .00010,    .00012,
     +     .06055,    .01506,    .00297,    .00020,    .00005,
     +     .00003,    .00010,    .00011,
     +     .05835,    .01447,    .00279,    .00019,    .00004,
     +     .00003,    .00009,    .00011,
     +     .05634,    .01395,    .00264,    .00018,    .00004,
     +     .00003,    .00008,    .00010,
     +     .05439,    .01343,    .00250,    .00017,    .00004,
     +     .00003,    .00008,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30682,    .08369,    .10241,    .00094,    .00000,
     +     .00000,    .00046,    .00062,
     +     .28870,    .07833,    .08806,    .00089,    .00000,
     +     .00000,    .00044,    .00059,
     +     .26433,    .07113,    .07077,    .00078,    .00000,
     +     .00000,    .00040,    .00053,
     +     .24825,    .06645,    .06060,    .00072,    .00001,
     +     .00000,    .00039,    .00050,
     +     .23276,    .06199,    .05163,    .00071,    .00002,
     +     .00000,    .00037,    .00045,
     +     .22033,    .05842,    .04507,    .00066,    .00003,
     +     .00000,    .00034,    .00042,
     +     .20912,    .05520,    .03965,    .00062,    .00003,
     +     .00000,    .00032,    .00040,
     +     .19797,    .05202,    .03470,    .00059,    .00004,
     +     .00000,    .00030,    .00038 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18890,    .04944,    .03097,    .00053,    .00004,
     +     .00000,    .00029,    .00036,
     +     .18056,    .04709,    .02780,    .00050,    .00005,
     +     .00000,    .00028,    .00034,
     +     .17426,    .04533,    .02555,    .00049,    .00005,
     +     .00000,    .00027,    .00033,
     +     .16170,    .04183,    .02141,    .00046,    .00005,
     +     .00000,    .00025,    .00031,
     +     .15182,    .03909,    .01847,    .00043,    .00005,
     +     .00001,    .00022,    .00029,
     +     .14161,    .03627,    .01571,    .00038,    .00005,
     +     .00001,    .00021,    .00027,
     +     .13179,    .03357,    .01334,    .00034,    .00005,
     +     .00002,    .00019,    .00025,
     +     .12352,    .03133,    .01155,    .00033,    .00005,
     +     .00002,    .00018,    .00023 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11580,    .02924,    .01004,    .00031,    .00005,
     +     .00002,    .00017,    .00021,
     +     .10983,    .02761,    .00896,    .00027,    .00005,
     +     .00002,    .00016,    .00020,
     +     .10303,    .02580,    .00784,    .00025,    .00005,
     +     .00002,    .00015,    .00018,
     +     .09742,    .02430,    .00699,    .00024,    .00005,
     +     .00002,    .00014,    .00016,
     +     .09258,    .02302,    .00631,    .00023,    .00005,
     +     .00002,    .00013,    .00015,
     +     .08681,    .02149,    .00556,    .00021,    .00004,
     +     .00002,    .00012,    .00014,
     +     .08175,    .02016,    .00496,    .00020,    .00004,
     +     .00002,    .00011,    .00014,
     +     .07732,    .01900,    .00446,    .00019,    .00004,
     +     .00002,    .00011,    .00013 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07314,    .01791,    .00403,    .00018,    .00004,
     +     .00002,    .00010,    .00012,
     +     .06931,    .01692,    .00366,    .00017,    .00004,
     +     .00002,    .00009,    .00011,
     +     .06590,    .01604,    .00334,    .00016,    .00004,
     +     .00002,    .00009,    .00010,
     +     .06284,    .01524,    .00308,    .00014,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05994,    .01449,    .00284,    .00013,    .00003,
     +     .00002,    .00008,    .00010,
     +     .05720,    .01380,    .00263,    .00013,    .00003,
     +     .00002,    .00007,    .00009,
     +     .05473,    .01318,    .00244,    .00014,    .00003,
     +     .00002,    .00007,    .00008,
     +     .05250,    .01261,    .00228,    .00013,    .00003,
     +     .00002,    .00007,    .00008 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05037,    .01207,    .00214,    .00012,    .00003,
     +     .00002,    .00006,    .00007,
     +     .04836,    .01155,    .00200,    .00011,    .00003,
     +     .00002,    .00006,    .00007,
     +     .04652,    .01109,    .00188,    .00010,    .00003,
     +     .00002,    .00006,    .00007,
     +     .04484,    .01066,    .00178,    .00010,    .00003,
     +     .00002,    .00005,    .00007,
     +     .04320,    .01025,    .00168,    .00010,    .00002,
     +     .00002,    .00005,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26553,    .06958,    .07505,    .00067,    .00000,
     +     .00000,    .00027,    .00035,
     +     .24902,    .06489,    .06401,    .00059,    .00000,
     +     .00000,    .00024,    .00033,
     +     .22683,    .05864,    .05089,    .00054,    .00000,
     +     .00000,    .00023,    .00029,
     +     .21228,    .05461,    .04326,    .00051,    .00000,
     +     .00000,    .00021,    .00028,
     +     .19837,    .05075,    .03659,    .00048,    .00001,
     +     .00000,    .00020,    .00026,
     +     .18724,    .04768,    .03177,    .00043,    .00002,
     +     .00000,    .00019,    .00023,
     +     .17725,    .04494,    .02782,    .00039,    .00002,
     +     .00000,    .00018,    .00023,
     +     .16731,    .04223,    .02423,    .00037,    .00002,
     +     .00000,    .00017,    .00023 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15920,    .04004,    .02153,    .00036,    .00002,
     +     .00000,    .00016,    .00020,
     +     .15181,    .03805,    .01926,    .00034,    .00003,
     +     .00000,    .00016,    .00019,
     +     .14625,    .03655,    .01766,    .00032,    .00003,
     +     .00000,    .00016,    .00018,
     +     .13521,    .03361,    .01472,    .00029,    .00003,
     +     .00000,    .00013,    .00017,
     +     .12651,    .03131,    .01264,    .00027,    .00003,
     +     .00000,    .00011,    .00016,
     +     .11756,    .02895,    .01072,    .00026,    .00003,
     +     .00001,    .00011,    .00014,
     +     .10902,    .02670,    .00907,    .00024,    .00003,
     +     .00001,    .00011,    .00013,
     +     .10186,    .02484,    .00784,    .00022,    .00003,
     +     .00001,    .00009,    .00012 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09519,    .02311,    .00680,    .00021,    .00003,
     +     .00001,    .00009,    .00011,
     +     .09004,    .02178,    .00606,    .00019,    .00003,
     +     .00001,    .00008,    .00009,
     +     .08419,    .02027,    .00529,    .00018,    .00003,
     +     .00001,    .00008,    .00009,
     +     .07938,    .01904,    .00471,    .00017,    .00003,
     +     .00001,    .00007,    .00008,
     +     .07525,    .01800,    .00425,    .00016,    .00003,
     +     .00001,    .00007,    .00008,
     +     .07034,    .01675,    .00374,    .00014,    .00003,
     +     .00001,    .00006,    .00007,
     +     .06605,    .01567,    .00333,    .00013,    .00002,
     +     .00001,    .00006,    .00006,
     +     .06230,    .01474,    .00300,    .00013,    .00002,
     +     .00001,    .00005,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05878,    .01386,    .00270,    .00012,    .00002,
     +     .00001,    .00005,    .00005,
     +     .05557,    .01305,    .00245,    .00011,    .00002,
     +     .00001,    .00004,    .00005,
     +     .05271,    .01234,    .00224,    .00010,    .00002,
     +     .00001,    .00005,    .00005,
     +     .05015,    .01171,    .00207,    .00010,    .00002,
     +     .00001,    .00004,    .00005,
     +     .04772,    .01111,    .00190,    .00010,    .00002,
     +     .00001,    .00004,    .00005,
     +     .04546,    .01055,    .00176,    .00009,    .00002,
     +     .00001,    .00004,    .00004,
     +     .04342,    .01005,    .00164,    .00008,    .00002,
     +     .00001,    .00004,    .00004,
     +     .04158,    .00960,    .00153,    .00007,    .00002,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03981,    .00917,    .00143,    .00007,    .00002,
     +     .00001,    .00003,    .00004,
     +     .03814,    .00877,    .00134,    .00007,    .00002,
     +     .00001,    .00003,    .00003,
     +     .03662,    .00840,    .00126,    .00007,    .00002,
     +     .00001,    .00003,    .00003,
     +     .03523,    .00806,    .00119,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03388,    .00774,    .00113,    .00007,    .00001,
     +     .00001,    .00002,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22629,    .05674,    .05312,    .00036,    .00000,
     +     .00000,    .00020,    .00026,
     +     .21145,    .05273,    .04496,    .00034,    .00000,
     +     .00000,    .00018,    .00021,
     +     .19165,    .04743,    .03538,    .00028,    .00000,
     +     .00000,    .00016,    .00019,
     +     .17871,    .04401,    .02985,    .00028,    .00000,
     +     .00000,    .00015,    .00017,
     +     .16643,    .04077,    .02509,    .00025,    .00001,
     +     .00000,    .00014,    .00016,
     +     .15655,    .03819,    .02167,    .00024,    .00001,
     +     .00000,    .00013,    .00015,
     +     .14774,    .03590,    .01888,    .00023,    .00001,
     +     .00000,    .00012,    .00014,
     +     .13904,    .03363,    .01637,    .00021,    .00001,
     +     .00000,    .00012,    .00012 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13197,    .03179,    .01450,    .00019,    .00001,
     +     .00000,    .00011,    .00013,
     +     .12553,    .03014,    .01292,    .00017,    .00001,
     +     .00000,    .00010,    .00013,
     +     .12070,    .02891,    .01181,    .00016,    .00002,
     +     .00000,    .00009,    .00012,
     +     .11114,    .02646,    .00981,    .00015,    .00002,
     +     .00000,    .00008,    .00011,
     +     .10364,    .02457,    .00840,    .00014,    .00002,
     +     .00000,    .00008,    .00010,
     +     .09595,    .02263,    .00709,    .00013,    .00002,
     +     .00000,    .00007,    .00008,
     +     .08862,    .02080,    .00599,    .00012,    .00002,
     +     .00001,    .00007,    .00007,
     +     .08253,    .01928,    .00516,    .00011,    .00002,
     +     .00001,    .00006,    .00007 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07686,    .01788,    .00447,    .00010,    .00002,
     +     .00001,    .00006,    .00007,
     +     .07250,    .01680,    .00398,    .00009,    .00002,
     +     .00001,    .00005,    .00006,
     +     .06757,    .01559,    .00348,    .00008,    .00002,
     +     .00001,    .00005,    .00006,
     +     .06353,    .01460,    .00309,    .00008,    .00002,
     +     .00001,    .00005,    .00005,
     +     .06005,    .01376,    .00279,    .00008,    .00001,
     +     .00001,    .00004,    .00005,
     +     .05595,    .01277,    .00245,    .00008,    .00001,
     +     .00001,    .00004,    .00005,
     +     .05238,    .01190,    .00218,    .00007,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04927,    .01116,    .00196,    .00007,    .00001,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04637,    .01047,    .00177,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04372,    .00984,    .00161,    .00005,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04137,    .00927,    .00147,    .00004,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03926,    .00878,    .00135,    .00004,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03727,    .00831,    .00125,    .00004,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03542,    .00788,    .00115,    .00004,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03376,    .00749,    .00107,    .00003,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03226,    .00714,    .00100,    .00003,    .00001,
     +     .00001,    .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)/
     +     .03082,    .00680,    .00094,    .00003,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02946,    .00649,    .00088,    .00003,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02823,    .00621,    .00082,    .00003,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02712,    .00595,    .00078,    .00003,    .00001,
     +     .00001,    .00001,    .00002,
     +     .02604,    .00570,    .00073,    .00003,    .00001,
     +     .00001,    .00001,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .15682,    .03598,    .02406,    .00015,    .00000,
     +     .00000,    .00006,    .00008,
     +     .14545,    .03320,    .02007,    .00012,    .00000,
     +     .00000,    .00005,    .00007,
     +     .13037,    .02954,    .01549,    .00012,    .00000,
     +     .00000,    .00004,    .00006,
     +     .12068,    .02719,    .01291,    .00012,    .00000,
     +     .00000,    .00004,    .00004,
     +     .11152,    .02500,    .01073,    .00009,    .00000,
     +     .00000,    .00003,    .00005,
     +     .10426,    .02326,    .00919,    .00006,    .00000,
     +     .00000,    .00003,    .00005,
     +     .09779,    .02173,    .00795,    .00006,    .00000,
     +     .00000,    .00004,    .00005,
     +     .09142,    .02024,    .00684,    .00007,    .00000,
     +     .00000,    .00003,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08629,    .01903,    .00603,    .00007,    .00000,
     +     .00000,    .00003,    .00004,
     +     .08165,    .01795,    .00535,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07819,    .01714,    .00487,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .07139,    .01556,    .00403,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .06610,    .01435,    .00344,    .00004,    .00000,
     +     .00000,    .00003,    .00002,
     +     .06072,    .01311,    .00290,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05564,    .01195,    .00244,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05145,    .01100,    .00210,    .00003,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04757,    .01013,    .00182,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04461,    .00946,    .00162,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04129,    .00872,    .00141,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03858,    .00812,    .00126,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03628,    .00761,    .00113,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03356,    .00701,    .00100,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03122,    .00650,    .00089,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02921,    .00606,    .00080,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02732,    .00565,    .00072,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02561,    .00528,    .00066,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02411,    .00495,    .00060,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02277,    .00466,    .00055,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02150,    .00439,    .00051,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02034,    .00414,    .00047,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01930,    .00392,    .00044,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01836,    .00372,    .00041,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01748,    .00353,    .00038,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01664,    .00336,    .00036,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01589,    .00320,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01520,    .00306,    .00032,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01454,    .00292,    .00030,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .10043,    .02088,    .00919,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .09238,    .01910,    .00758,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .08185,    .01681,    .00577,    .00004,    .00000,
     +     .00000,    .00000,    .00001,
     +     .07515,    .01535,    .00477,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06886,    .01399,    .00394,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .06392,    .01293,    .00336,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05955,    .01200,    .00290,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05529,    .01110,    .00249,    .00003,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05188,    .01038,    .00219,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04882,    .00973,    .00194,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04654,    .00925,    .00177,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04210,    .00832,    .00146,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03868,    .00761,    .00125,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .03524,    .00690,    .00105,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .03201,    .00624,    .00089,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02937,    .00570,    .00077,    .00001,    .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)/
     +     .02695,    .00521,    .00067,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02510,    .00483,    .00060,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02306,    .00442,    .00052,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02141,    .00409,    .00047,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02002,    .00381,    .00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01838,    .00349,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01698,    .00321,    .00033,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01578,    .00297,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01467,    .00275,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01367,    .00256,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01279,    .00239,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01201,    .00224,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01129,    .00210,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01062,    .00197,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01003,    .00185,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00950,    .00175,    .00015,    .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)/
     +     .00900,    .00165,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00853,    .00156,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00811,    .00148,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00773,    .00141,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00736,    .00134,    .00011,    .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)/
     +     .05793,    .01078,    .00282,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05281,    .00977,    .00232,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04618,    .00848,    .00176,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04201,    .00768,    .00145,    .00001,    .00000,
     +     .00000,    .00000,   -.00001,
     +     .03814,    .00694,    .00120,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03512,    .00636,    .00102,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03249,    .00586,    .00089,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02994,    .00538,    .00076,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02789,    .00499,    .00067,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02608,    .00465,    .00060,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02475,    .00440,    .00055,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02215,    .00392,    .00046,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02017,    .00356,    .00039,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01820,    .00319,    .00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01638,    .00286,    .00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01489,    .00259,    .00025,    .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)/
     +     .01355,    .00234,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01254,    .00216,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01142,    .00196,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01052,    .00180,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00977,    .00167,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00890,    .00151,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00816,    .00138,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00753,    .00127,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00695,    .00117,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00643,    .00108,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00597,    .00100,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00558,    .00093,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00521,    .00087,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00488,    .00081,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00458,    .00076,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00431,    .00071,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00406,    .00067,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00383,    .00063,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00363,    .00060,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00344,    .00056,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00326,    .00053,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .02873,    .00468,    .00064,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02593,    .00420,    .00053,   -.00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02233,    .00359,    .00041,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02010,    .00322,    .00034,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01805,    .00288,    .00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01647,    .00261,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01510,    .00239,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01379,    .00217,    .00019,    .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)/
     +     .01275,    .00200,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01183,    .00185,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01116,    .00174,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00987,    .00153,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00890,    .00138,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00794,    .00122,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00706,    .00108,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00636,    .00097,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00572,    .00087,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00525,    .00080,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00474,    .00071,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00065,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00399,    .00060,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00360,    .00054,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00327,    .00049,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00299,    .00044,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00274,    .00040,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00251,    .00037,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00232,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00031,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00199,    .00029,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00185,    .00027,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00173,    .00025,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00162,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00151,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00133,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00126,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00119,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00295,    .00033,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00258,    .00029,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00213,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00186,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00162,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00144,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00129,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00114,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00103,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00094,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00087,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00074,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00065,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00037,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00033,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      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='cor02.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