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

sfmrs_98lo1.F

#include "pdf/pilot.h"
      subroutine sfmrs_98lo1(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)/
     +     .01518,    .00513,   3.68244,    .86800,    .00000,
     +     .00000,    .44989,    .88043,
     +     .01534,    .00518,   6.24307,    .88205,    .00003,
     +     .00000,    .46639,    .89442,
     +     .01559,    .00524,  11.05139,    .91886,    .03227,
     +     .00000,    .50684,    .93116,
     +     .01577,    .00529,  15.37825,    .95997,    .08412,
     +     .00000,    .55058,    .97222,
     +     .01597,    .00534,  20.54786,   1.02269,    .14877,
     +     .00000,    .61607,   1.03488,
     +     .01613,    .00539,  25.87997,   1.08763,    .22202,
     +     .00000,    .68336,   1.09976,
     +     .01630,    .00544,  31.48650,   1.16556,    .30272,
     +     .00000,    .76355,   1.17764,
     +     .01647,    .00549,  38.19562,   1.26306,    .40640,
     +     .00000,    .86343,   1.27508 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .01662,    .00553,  44.69263,   1.36120,    .51210,
     +     .00000,    .96361,   1.37316,
     +     .01676,    .00558,  51.42669,   1.47041,    .62615,
     +     .00000,   1.07479,   1.48232,
     +     .01688,    .00562,  57.20334,   1.56638,    .72756,
     +     .00000,   1.17232,   1.57825,
     +     .01713,    .00570,  70.62117,   1.80214,    .97596,
     +     .00042,   1.41135,   1.81391,
     +     .01734,    .00578,  83.50434,   2.04055,   1.22977,
     +     .21520,   1.65256,   2.05224,
     +     .01759,    .00586,  99.26808,   2.34878,   1.55816,
     +     .62424,   1.96387,   2.36037,
     +     .01784,    .00596, 117.13634,   2.72076,   1.94525,
     +    1.00765,   2.33902,   2.73224,
     +     .01807,    .00604, 134.87820,   3.10372,   2.34531,
     +    1.42250,   2.72482,   3.11511 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .01831,    .00614, 154.38010,   3.53791,   2.80142,
     +    1.90329,   3.16184,   3.54920,
     +     .01851,    .00621, 171.60985,   3.93600,   3.21652,
     +    2.33137,   3.56226,   3.94722,
     +     .01875,    .00631, 193.78899,   4.46512,   3.76652,
     +    2.89798,   4.09416,   4.47623,
     +     .01896,    .00640, 214.89481,   4.98110,   4.30575,
     +    3.45978,   4.61257,   4.99213,
     +     .01916,    .00648, 234.93695,   5.48855,   4.82956,
     +    3.99390,   5.12222,   5.49949,
     +     .01941,    .00659, 261.98752,   6.18910,   5.55546,
     +    4.74104,   5.82554,   6.19994,
     +     .01965,    .00669, 289.01031,   6.90776,   6.30033,
     +    5.50879,   6.54676,   6.91850,
     +     .01987,    .00679, 315.12421,   7.62426,   7.03684,
     +    6.25919,   7.26565,   7.63491 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .02010,    .00689, 342.80673,   8.39819,   7.83575,
     +    7.07966,   8.04192,   8.40875,
     +     .02032,    .00699, 370.71918,   9.19912,   8.65815,
     +    7.91829,   8.84513,   9.20959,
     +     .02054,    .00708, 398.31635,  10.00621,   9.48773,
     +    8.76657,   9.65435,  10.01660,
     +     .02074,    .00718, 425.10541,  10.80590,  10.30763,
     +    9.60252,  10.45602,  10.81622,
     +     .02094,    .00727, 452.96622,  11.65207,  11.17527,
     +   10.48807,  11.30416,  11.66230,
     +     .02115,    .00737, 481.05176,  12.52131,  12.06456,
     +   11.39334,  12.17534,  12.53147,
     +     .02134,    .00746, 508.69336,  13.38978,  12.95374,
     +   12.30020,  13.04562,  13.39986,
     +     .02153,    .00755, 535.18030,  14.23688,  13.81822,
     +   13.17835,  13.89443,  14.24690 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .02171,    .00764, 563.08673,  15.13941,  14.74174,
     +   14.12059,  14.79866,  15.14936,
     +     .02190,    .00773, 590.49207,  16.04276,  15.66159,
     +   15.05309,  15.70368,  16.05264,
     +     .02208,    .00781, 617.67798,  16.94849,  16.58568,
     +   15.99294,  16.61098,  16.95831,
     +     .02225,    .00790, 643.85529,  17.83243,  17.48656,
     +   16.90825,  17.49641,  17.84218,
     +     .02242,    .00798, 670.62598,  18.74867,  18.41889,
     +   17.85379,  18.41415,  18.75837 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .01868,    .00648,   3.61785,    .76598,    .00000,
     +     .00000,    .39539,    .77333,
     +     .01889,    .00654,   5.86376,    .77983,    .00003,
     +     .00000,    .41136,    .78714,
     +     .01920,    .00664,   9.94786,    .81356,    .02900,
     +     .00000,    .44821,    .82082,
     +     .01944,    .00672,  13.53065,    .84981,    .07493,
     +     .00000,    .48672,    .85703,
     +     .01969,    .00680,  17.73643,    .90363,    .13082,
     +     .00000,    .54291,    .91080,
     +     .01990,    .00688,  22.00579,    .95875,    .19306,
     +     .00000,    .60005,    .96588,
     +     .02011,    .00695,  26.43816,   1.02401,    .26063,
     +     .00000,    .66723,   1.03108,
     +     .02033,    .00703,  31.67731,   1.10484,    .34641,
     +     .00000,    .75010,   1.11188 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .02053,    .00711,  36.69535,   1.18550,    .43288,
     +     .00000,    .83251,   1.19249,
     +     .02072,    .00718,  41.84610,   1.27446,    .52524,
     +     .00000,    .92315,   1.28141,
     +     .02087,    .00723,  46.22931,   1.35212,    .60673,
     +     .00000,   1.00213,   1.35904,
     +     .02119,    .00736,  56.29525,   1.54109,    .80419,
     +     .00036,   1.19389,   1.54794,
     +     .02147,    .00747,  65.82890,   1.73004,   1.00344,
     +     .16773,   1.38522,   1.73683,
     +     .02179,    .00760,  77.34151,   1.97162,   1.25825,
     +     .48455,   1.62942,   1.97834,
     +     .02212,    .00773,  90.22787,   2.25974,   1.55494,
     +     .77678,   1.92024,   2.26638,
     +     .02243,    .00786, 102.87527,   2.55317,   1.85826,
     +    1.08981,   2.21608,   2.55975 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .02273,    .00799, 116.63111,   2.88253,   2.20072,
     +    1.44918,   2.54784,   2.88904,
     +     .02299,    .00810, 128.66806,   3.18179,   2.50960,
     +    1.76616,   2.84906,   3.18825,
     +     .02330,    .00824, 144.01862,   3.57604,   2.91536,
     +    2.18213,   3.24567,   3.58243,
     +     .02358,    .00837, 158.49641,   3.95717,   3.30993,
     +    2.59142,   3.62885,   3.96349,
     +     .02384,    .00848, 172.12665,   4.32906,   3.69021,
     +    2.97724,   4.00261,   4.33534,
     +     .02417,    .00863, 190.37146,   4.83835,   4.21326,
     +    3.51318,   4.51423,   4.84455,
     +     .02448,    .00878, 208.43709,   5.35634,   4.74567,
     +    4.05964,   5.03439,   5.36248,
     +     .02478,    .00892, 225.74153,   5.86871,   5.26796,
     +    4.58931,   5.54876,   5.87479 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .02507,    .00906, 243.95296,   6.41814,   5.83079,
     +    5.16501,   6.10017,   6.42416,
     +     .02536,    .00920, 262.16998,   6.98269,   6.40607,
     +    5.74916,   6.66663,   6.98865,
     +     .02564,    .00933, 280.05777,   7.54783,   6.98283,
     +    6.33661,   7.23356,   7.55374,
     +     .02591,    .00946, 297.30496,   8.10435,   7.54945,
     +    6.91204,   7.79175,   8.11020,
     +     .02617,    .00959, 315.13217,   8.68978,   8.14579,
     +    7.51842,   8.37884,   8.69558,
     +     .02644,    .00972, 332.98895,   9.28774,   8.75358,
     +    8.13482,   8.97841,   9.29349,
     +     .02669,    .00985, 350.46606,   9.88200,   9.35831,
     +    8.74942,   9.57419,   9.88770,
     +     .02693,    .00997, 367.11212,  10.45864,   9.94319,
     +    9.34137,  10.15226,  10.46430 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .02717,    .01009, 384.57391,  11.07021,  10.56553,
     +    9.97430,  10.76526,  11.07583,
     +     .02741,    .01021, 401.61096,  11.67919,  11.18202,
     +   10.59701,  11.37564,  11.68476,
     +     .02764,    .01033, 418.44214,  12.28721,  11.79905,
     +   11.22254,  11.98498,  12.29275,
     +     .02787,    .01044, 434.56937,  12.87802,  12.39804,
     +   11.82917,  12.57703,  12.88352,
     +     .02809,    .01056, 450.98129,  13.48785,  13.01534,
     +   12.45318,  13.18812,  13.49331 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .02298,    .00818,   3.55346,    .67520,    .00000,
     +     .00000,    .34747,    .67888,
     +     .02325,    .00828,   5.50631,    .68869,    .00002,
     +     .00000,    .36279,    .69235,
     +     .02365,    .00843,   8.95244,    .71953,    .02605,
     +     .00000,    .39632,    .72315,
     +     .02395,    .00855,  11.90193,    .75147,    .06672,
     +     .00000,    .43021,    .75505,
     +     .02427,    .00868,  15.30522,    .79759,    .11499,
     +     .00000,    .47835,    .80113,
     +     .02455,    .00879,  18.70564,    .84428,    .16779,
     +     .00000,    .52679,    .84779,
     +     .02482,    .00890,  22.19174,    .89875,    .22430,
     +     .00000,    .58292,    .90223,
     +     .02511,    .00902,  26.26192,    .96554,    .29514,
     +     .00000,    .65144,    .96899 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .02536,    .00913,  30.11768,   1.03156,    .36574,
     +     .00000,    .71897,   1.03498,
     +     .02560,    .00923,  34.03689,   1.10370,    .44038,
     +     .00000,    .79255,   1.10710,
     +     .02580,    .00932,  37.34534,   1.16625,    .50572,
     +     .00000,    .85623,   1.16962,
     +     .02622,    .00950,  44.85603,   1.31694,    .66232,
     +     .00032,   1.00931,   1.32027,
     +     .02658,    .00966,  51.87140,   1.46588,    .81836,
     +     .13065,   1.16028,   1.46916,
     +     .02699,    .00985,  60.22972,   1.65417,   1.01555,
     +     .37589,   1.35081,   1.65740,
     +     .02742,    .01005,  69.46667,   1.87603,   1.24230,
     +     .59844,   1.57497,   1.87922,
     +     .02782,    .01023,  78.42588,   2.09952,   1.47159,
     +     .83442,   1.80052,   2.10267 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .02822,    .01042,  88.06633,   2.34786,   1.72790,
     +    1.10274,   2.05090,   2.35096,
     +     .02855,    .01058,  96.41977,   2.57144,   1.95700,
     +    1.33713,   2.27616,   2.57451,
     +     .02896,    .01077, 106.97157,   2.86339,   2.25532,
     +    1.64207,   2.57011,   2.86642,
     +     .02932,    .01095, 116.83355,   3.14315,   2.54302,
     +    1.93977,   2.85161,   3.14614,
     +     .02966,    .01111, 126.03609,   3.41400,   2.81808,
     +    2.21795,   3.12404,   3.41695,
     +     .03009,    .01133, 138.25069,   3.78189,   3.19353,
     +    2.60162,   3.49391,   3.78480,
     +     .03049,    .01153, 150.23653,   4.15288,   3.57260,
     +    2.98973,   3.86673,   4.15576,
     +     .03088,    .01172, 161.61246,   4.51692,   3.94145,
     +    3.36270,   4.23247,   4.51976 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .03126,    .01192, 173.49684,   4.90446,   4.33631,
     +    3.76564,   4.62168,   4.90727,
     +     .03164,    .01211, 185.28712,   5.29980,   4.73699,
     +    4.17141,   5.01863,   5.30257,
     +     .03200,    .01230, 196.78310,   5.69293,   5.13620,
     +    4.57707,   5.41328,   5.69567,
     +     .03234,    .01247, 207.79007,   6.07766,   5.52601,
     +    4.97199,   5.79941,   6.08037,
     +     .03269,    .01265, 219.09509,   6.48001,   5.93397,
     +    5.38590,   6.20316,   6.48269,
     +     .03303,    .01283, 230.34398,   6.88859,   6.34740,
     +    5.80422,   6.61310,   6.89124,
     +     .03336,    .01300, 241.29128,   7.29246,   6.75669,
     +    6.21933,   7.01826,   7.29509,
     +     .03367,    .01317, 251.65173,   7.68231,   7.15042,
     +    6.61692,   7.40931,   7.68491 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .03398,    .01333, 262.47256,   8.09390,   7.56770,
     +    7.04054,   7.82209,   8.09647,
     +     .03429,    .01350, 272.95639,   8.50158,   7.97872,
     +    7.45476,   8.23095,   8.50413,
     +     .03459,    .01366, 283.27148,   8.90688,   8.38856,
     +    7.86947,   8.63737,   8.90942,
     +     .03488,    .01382, 293.10349,   9.29900,   8.78469,
     +    8.26989,   9.03053,   9.30151,
     +     .03517,    .01397, 303.05762,   9.70200,   9.19117,
     +    8.67996,   9.43458,   9.70449 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .02594,    .00938,   3.51555,    .62675,    .00000,
     +     .00000,    .32216,    .62888,
     +     .02625,    .00950,   5.30646,    .63997,    .00002,
     +     .00000,    .33706,    .64208,
     +     .02672,    .00970,   8.41536,    .66920,    .02445,
     +     .00000,    .36876,    .67127,
     +     .02707,    .00985,  11.03924,    .69884,    .06231,
     +     .00000,    .40019,    .70088,
     +     .02744,    .01001,  14.03720,    .74093,    .10659,
     +     .00000,    .44415,    .74294,
     +     .02776,    .01015,  17.00514,    .78326,    .15452,
     +     .00000,    .48807,    .78524,
     +     .02807,    .01029,  20.02570,    .83219,    .20535,
     +     .00000,    .53852,    .83415,
     +     .02840,    .01044,  23.52700,    .89180,    .26863,
     +     .00000,    .59973,    .89374 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .02869,    .01057,  26.82255,    .95040,    .33126,
     +     .00000,    .65971,    .95232,
     +     .02898,    .01071,  30.15309,   1.01406,    .39709,
     +     .00000,    .72469,   1.01596,
     +     .02920,    .01081,  32.95134,   1.06903,    .45443,
     +     .00000,    .78069,   1.07091,
     +     .02969,    .01104,  39.26056,   1.20067,    .59100,
     +     .00030,    .91452,   1.20251,
     +     .03011,    .01124,  45.10521,   1.32988,    .72605,
     +     .11283,   1.04559,   1.33169,
     +     .03059,    .01147,  52.01289,   1.49212,    .89552,
     +     .32385,   1.20988,   1.49390,
     +     .03109,    .01171,  59.58908,   1.68193,   1.08896,
     +     .51350,   1.40179,   1.68367,
     +     .03155,    .01194,  66.88609,   1.87189,   1.28330,
     +     .71339,   1.59364,   1.87361 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .03202,    .01217,  74.68806,   2.08172,   1.49927,
     +     .93938,   1.80533,   2.08340,
     +     .03241,    .01236,  81.40891,   2.26962,   1.69126,
     +    1.13567,   1.99475,   2.27128,
     +     .03288,    .01261,  89.85031,   2.51369,   1.93997,
     +    1.38971,   2.24065,   2.51532,
     +     .03331,    .01282,  97.69725,   2.74636,   2.17866,
     +    1.63658,   2.47491,   2.74797,
     +     .03370,    .01302, 104.98046,   2.97058,   2.40576,
     +    1.86604,   2.70057,   2.97216,
     +     .03420,    .01328, 114.59908,   3.27368,   2.71436,
     +    2.18119,   3.00548,   3.27524,
     +     .03467,    .01352, 123.98669,   3.57780,   3.02443,
     +    2.49849,   3.31126,   3.57933,
     +     .03511,    .01376, 132.84715,   3.87481,   3.32468,
     +    2.80183,   3.60982,   3.87632 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .03556,    .01399, 142.06322,   4.18965,   3.64485,
     +    3.12838,   3.92618,   4.19114,
     +     .03600,    .01423, 151.16048,   4.50945,   3.96832,
     +    3.45573,   4.24745,   4.51092,
     +     .03642,    .01445, 159.99336,   4.82623,   4.28942,
     +    3.78184,   4.56560,   4.82767,
     +     .03682,    .01467, 168.41481,   5.13510,   4.60181,
     +    4.09813,   4.87575,   5.13653,
     +     .03722,    .01488, 177.03108,   5.45700,   4.92768,
     +    4.42859,   5.19892,   5.45841,
     +     .03762,    .01510, 185.57016,   5.78276,   5.25678,
     +    4.76138,   5.52592,   5.78416,
     +     .03800,    .01530, 193.85184,   6.10376,   5.58162,
     +    5.09070,   5.84808,   6.10513,
     +     .03836,    .01550, 201.65910,   6.41264,   5.89310,
     +    5.40505,   6.15805,   6.41400 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .03872,    .01570, 209.79239,   6.73786,   6.22245,
     +    5.73929,   6.48437,   6.73922,
     +     .03909,    .01590, 217.63766,   7.05899,   6.54573,
     +    6.06488,   6.80656,   7.06033,
     +     .03943,    .01609, 225.33791,   7.37746,   6.86738,
     +    6.39022,   7.12604,   7.37879,
     +     .03977,    .01628, 232.65437,   7.68475,   7.17746,
     +    6.70353,   7.43428,   7.68607,
     +     .04010,    .01646, 240.03790,   7.99976,   7.49481,
     +    7.02354,   7.75025,   8.00107 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .02828,    .01034,   3.48837,    .59428,    .00000,
     +     .00000,    .30531,    .59555,
     +     .02862,    .01049,   5.16844,    .60729,    .00002,
     +     .00000,    .31990,    .60853,
     +     .02914,    .01072,   8.05287,    .63541,    .02338,
     +     .00000,    .35036,    .63662,
     +     .02952,    .01090,  10.46378,    .66351,    .05935,
     +     .00000,    .38014,    .66470,
     +     .02993,    .01108,  13.19955,    .70294,    .10097,
     +     .00000,    .42133,    .70410,
     +     .03029,    .01125,  15.89031,    .74239,    .14570,
     +     .00000,    .46228,    .74353,
     +     .03063,    .01141,  18.61470,    .78769,    .19284,
     +     .00000,    .50902,    .78882,
     +     .03100,    .01159,  21.75654,    .84263,    .25121,
     +     .00000,    .56547,    .84374 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .03133,    .01174,  24.70025,    .89642,    .30871,
     +     .00000,    .62055,    .89751,
     +     .03164,    .01190,  27.66303,    .95460,    .36888,
     +     .00000,    .67997,    .95567,
     +     .03189,    .01202,  30.14391,   1.00469,    .42111,
     +     .00000,    .73104,   1.00575,
     +     .03243,    .01228,  35.71024,   1.12412,    .54494,
     +     .00028,    .85253,   1.12515,
     +     .03290,    .01252,  40.83618,   1.24076,    .66675,
     +     .10165,    .97092,   1.24177,
     +     .03343,    .01278,  46.85941,   1.38650,    .81883,
     +     .29126,   1.11860,   1.38749,
     +     .03399,    .01307,  53.42973,   1.55614,    .99149,
     +     .46049,   1.29021,   1.55710,
     +     .03450,    .01333,  59.72612,   1.72513,   1.16416,
     +     .63810,   1.46096,   1.72607 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .03502,    .01359,  66.42747,   1.91099,   1.35523,
     +     .83807,   1.64858,   1.91191,
     +     .03546,    .01382,  72.17590,   2.07679,   1.52443,
     +    1.01106,   1.81581,   2.07769,
     +     .03599,    .01410,  79.36631,   2.29136,   1.74280,
     +    1.23410,   2.03209,   2.29224,
     +     .03646,    .01434,  86.02460,   2.49515,   1.95165,
     +    1.45012,   2.23738,   2.49601,
     +     .03689,    .01457,  92.18044,   2.69088,   2.14966,
     +    1.65015,   2.43446,   2.69173,
     +     .03745,    .01487, 100.28083,   2.95458,   2.41786,
     +    1.92405,   2.69986,   2.95541,
     +     .03797,    .01515, 108.15595,   3.21822,   2.68642,
     +    2.19888,   2.96506,   3.21903,
     +     .03847,    .01542, 115.55888,   3.47482,   2.94556,
     +    2.46064,   3.22311,   3.47562 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .03897,    .01569, 123.23465,   3.74601,   3.22112,
     +    2.74171,   3.49572,   3.74679,
     +     .03946,    .01596, 130.78375,   4.02062,   3.49865,
     +    3.02255,   3.77171,   4.02140,
     +     .03992,    .01621, 138.09111,   4.29189,   3.77342,
     +    3.30161,   4.04426,   4.29265,
     +     .04037,    .01646, 145.03664,   4.55568,   4.04004,
     +    3.57154,   4.30926,   4.55643,
     +     .04081,    .01670, 152.12305,   4.82993,   4.31749,
     +    3.85291,   4.58469,   4.83067,
     +     .04125,    .01695, 159.12541,   5.10678,   4.59701,
     +    4.13555,   4.86271,   5.10752,
     +     .04168,    .01718, 165.89978,   5.37897,   4.87232,
     +    4.41468,   5.13599,   5.37969,
     +     .04208,    .01741, 172.26764,   5.64030,   5.13569,
     +    4.68045,   5.39834,   5.64102 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .04248,    .01763, 178.88937,   5.91493,   5.41371,
     +    4.96264,   5.67399,   5.91564,
     +     .04289,    .01786, 185.25558,   6.18548,   5.68591,
     +    5.23678,   5.94554,   6.18619,
     +     .04327,    .01808, 191.49365,   6.45332,   5.95633,
     +    5.51032,   6.21432,   6.45402,
     +     .04364,    .01829, 197.40677,   6.71127,   6.21652,
     +    5.77324,   6.47316,   6.71197,
     +     .04401,    .01850, 203.35986,   6.97522,   6.48233,
     +    6.04126,   6.73800,   6.97591 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .03023,    .01116,   3.46702,    .57013,    .00000,
     +     .00000,    .29285,    .57086,
     +     .03061,    .01133,   5.06337,    .58296,    .00002,
     +     .00000,    .30719,    .58367,
     +     .03116,    .01159,   7.78166,    .61023,    .02257,
     +     .00000,    .33670,    .61092,
     +     .03158,    .01179,  10.03696,    .63718,    .05713,
     +     .00000,    .36526,    .63785,
     +     .03202,    .01200,  12.58273,    .67465,    .09680,
     +     .00000,    .40441,    .67529,
     +     .03241,    .01219,  15.07400,    .71199,    .13918,
     +     .00000,    .44318,    .71261,
     +     .03278,    .01237,  17.58636,    .75465,    .18362,
     +     .00000,    .48721,    .75526,
     +     .03318,    .01257,  20.47217,    .80618,    .23843,
     +     .00000,    .54018,    .80677 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .03353,    .01274,  23.16639,    .85647,    .29222,
     +     .00000,    .59171,    .85705,
     +     .03388,    .01291,  25.86942,    .91068,    .34831,
     +     .00000,    .64711,    .91125,
     +     .03415,    .01305,  28.12686,    .95725,    .39687,
     +     .00000,    .69461,    .95780,
     +     .03474,    .01335,  33.17249,   1.06789,    .51159,
     +     .00027,    .80723,   1.06843,
     +     .03525,    .01361,  37.79736,   1.17553,    .62396,
     +     .09372,    .91653,   1.17604,
     +     .03582,    .01391,  43.20707,   1.30951,    .76371,
     +     .26818,   1.05236,   1.31001,
     +     .03643,    .01423,  49.08310,   1.46482,    .92172,
     +     .42306,   1.20956,   1.46530,
     +     .03698,    .01452,  54.69190,   1.61899,   1.07915,
     +     .58505,   1.36541,   1.61945 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .03755,    .01482,  60.64011,   1.78798,   1.25280,
     +     .76686,   1.53608,   1.78843,
     +     .03802,    .01507,  65.72558,   1.93828,   1.40610,
     +     .92363,   1.68774,   1.93872,
     +     .03859,    .01538,  72.06629,   2.13222,   1.60338,
     +    1.12518,   1.88332,   2.13264,
     +     .03911,    .01565,  77.91979,   2.31589,   1.79153,
     +    1.31987,   2.06842,   2.31631,
     +     .03958,    .01591,  83.31506,   2.49185,   1.96944,
     +    1.49961,   2.24566,   2.49225,
     +     .04018,    .01624,  90.39440,   2.72828,   2.20981,
     +    1.74515,   2.48370,   2.72867,
     +     .04075,    .01655,  97.25583,   2.96398,   2.44984,
     +    1.99086,   2.72090,   2.96436,
     +     .04129,    .01685, 103.68510,   3.19280,   2.68082,
     +    2.22421,   2.95109,   3.19317 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .04183,    .01715, 110.33495,   3.43405,   2.92590,
     +    2.47426,   3.19370,   3.43441,
     +     .04236,    .01744, 116.85600,   3.67776,   3.17213,
     +    2.72346,   3.43873,   3.67813,
     +     .04287,    .01773, 123.15311,   3.91798,   3.41540,
     +    2.97059,   3.68017,   3.91834,
     +     .04335,    .01800, 129.12375,   4.15111,   3.65097,
     +    3.20914,   3.91444,   4.15146,
     +     .04383,    .01827, 135.20210,   4.39300,   3.89565,
     +    3.45734,   4.15747,   4.39335,
     +     .04431,    .01854, 141.19426,   4.63673,   4.14168,
     +    3.70617,   4.40230,   4.63707,
     +     .04477,    .01880, 146.97998,   4.87592,   4.38360,
     +    3.95152,   4.64254,   4.87627,
     +     .04521,    .01905, 152.40591,   5.10517,   4.61461,
     +    4.18467,   4.87276,   5.10551 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .04565,    .01930, 158.04028,   5.34574,   4.85814,
     +    4.43195,   5.11430,   5.34608,
     +     .04609,    .01955, 163.44283,   5.58230,   5.09611,
     +    4.67164,   5.35181,   5.58264,
     +     .04650,    .01979, 168.72942,   5.81617,   5.33223,
     +    4.91055,   5.58657,   5.81651,
     +     .04690,    .02002, 173.73129,   6.04107,   5.55909,
     +    5.13985,   5.81232,   6.04141,
     +     .04731,    .02025, 178.75746,   6.27087,   5.79049,
     +    5.37323,   6.04297,   6.27121 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .03724,    .01418,   3.39811,    .50046,    .00000,
     +     .00000,    .25722,    .50019,
     +     .03771,    .01443,   4.74657,    .51264,    .00002,
     +     .00000,    .27073,    .51236,
     +     .03842,    .01481,   6.98996,    .53738,    .02019,
     +     .00000,    .29743,    .53708,
     +     .03895,    .01510,   8.81034,    .56100,    .05068,
     +     .00000,    .32246,    .56070,
     +     .03952,    .01540,  10.83264,    .59289,    .08477,
     +     .00000,    .35583,    .59258,
     +     .04001,    .01567,  12.78092,    .62427,    .12051,
     +     .00000,    .38846,    .62395,
     +     .04049,    .01593,  14.72161,    .65951,    .15743,
     +     .00000,    .42490,    .65918,
     +     .04101,    .01622,  16.92324,    .70157,    .20237,
     +     .00000,    .46822,    .70124 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .04146,    .01647,  18.95601,    .74219,    .24594,
     +     .00000,    .50993,    .74185,
     +     .04190,    .01671,  20.97504,    .78549,    .29091,
     +     .00000,    .55427,    .78516,
     +     .04225,    .01691,  22.64741,    .82240,    .32951,
     +     .00000,    .59200,    .82207,
     +     .04300,    .01733,  26.34026,    .90916,    .41968,
     +     .00023,    .68048,    .90882,
     +     .04366,    .01770,  29.67546,    .99250,    .50684,
     +     .07266,    .76529,    .99216,
     +     .04441,    .01812,  33.52017,   1.09500,    .61389,
     +     .20706,    .86939,   1.09465,
     +     .04519,    .01857,  37.64029,   1.21228,    .73335,
     +     .32436,    .98833,   1.21194,
     +     .04591,    .01898,  41.52393,   1.32738,    .85101,
     +     .44575,   1.10490,   1.32704 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .04663,    .01940,  45.59593,   1.45224,    .97945,
     +     .58064,   1.23122,   1.45191,
     +     .04724,    .01975,  49.04064,   1.56224,   1.09176,
     +     .69576,   1.34241,   1.56191,
     +     .04798,    .02018,  53.29134,   1.70289,   1.23496,
     +     .84241,   1.48448,   1.70256,
     +     .04864,    .02057,  57.17770,   1.83490,   1.37036,
     +     .98290,   1.61774,   1.83458,
     +     .04926,    .02092,  60.72429,   1.96033,   1.49728,
     +    1.11138,   1.74429,   1.96002,
     +     .05003,    .02138,  65.33586,   2.12748,   1.66741,
     +    1.28558,   1.91285,   2.12718,
     +     .05077,    .02181,  69.76177,   2.29266,   1.83585,
     +    1.45844,   2.07933,   2.29236,
     +     .05147,    .02222,  73.86555,   2.45168,   1.99651,
     +    1.62105,   2.23956,   2.45140 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .05216,    .02264,  78.07693,   2.61811,   2.16582,
     +    1.79422,   2.40717,   2.61784,
     +     .05285,    .02304,  82.16776,   2.78497,   2.33459,
     +    1.96537,   2.57518,   2.78472,
     +     .05350,    .02343,  86.08746,   2.94832,   2.50025,
     +    2.13403,   2.73960,   2.94808,
     +     .05412,    .02380,  89.77434,   3.10583,   2.65960,
     +    2.29574,   2.89810,   3.10560,
     +     .05475,    .02417,  93.50108,   3.26826,   2.82415,
     +    2.46302,   3.06152,   3.26805,
     +     .05536,    .02454,  97.14677,   3.43094,   2.98858,
     +    2.62967,   3.22516,   3.43073,
     +     .05595,    .02489, 100.64462,   3.58970,   3.14942,
     +    2.79315,   3.38483,   3.58951,
     +     .05651,    .02522, 103.89980,   3.74102,   3.30209,
     +    2.94753,   3.53699,   3.74084 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .05708,    .02556, 107.26506,   3.89907,   3.46239,
     +    3.11069,   3.69589,   3.89891,
     +     .05764,    .02590, 110.46277,   4.05359,   3.61802,
     +    3.26773,   3.85123,   4.05344,
     +     .05818,    .02622, 113.57884,   4.20570,   3.77185,
     +    3.42373,   4.00413,   4.20556,
     +     .05869,    .02653, 116.50865,   4.35129,   3.91895,
     +    3.57272,   4.15045,   4.35117,
     +     .05921,    .02684, 119.43383,   4.49936,   4.06828,
     +    3.72362,   4.29926,   4.49926 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .04592,    .01818,   3.32177,    .43816,    .00000,
     +     .00000,    .22578,    .43775,
     +     .04653,    .01854,   4.44005,    .44961,    .00002,
     +     .00000,    .23840,    .44919,
     +     .04744,    .01908,   6.26416,    .47189,    .01798,
     +     .00000,    .26242,    .47148,
     +     .04812,    .01949,   7.71341,    .49247,    .04474,
     +     .00000,    .28426,    .49207,
     +     .04885,    .01993,   9.29877,    .51944,    .07388,
     +     .00000,    .31254,    .51904,
     +     .04949,    .02031,  10.80231,    .54563,    .10386,
     +     .00000,    .33984,    .54523,
     +     .05010,    .02068,  12.28168,    .57450,    .13433,
     +     .00000,    .36978,    .57411,
     +     .05076,    .02109,  13.93891,    .60853,    .17095,
     +     .00000,    .40492,    .60814 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .05135,    .02144,  15.45187,    .64102,    .20601,
     +     .00000,    .43838,    .64064,
     +     .05191,    .02178,  16.93923,    .67526,    .24179,
     +     .00000,    .47353,    .67489,
     +     .05236,    .02206,  18.16087,    .70420,    .27226,
     +     .00000,    .50321,    .70384,
     +     .05334,    .02266,  20.82458,    .77146,    .34257,
     +     .00020,    .57199,    .77111,
     +     .05419,    .02318,  23.19327,    .83521,    .40963,
     +     .05600,    .63704,    .83488,
     +     .05515,    .02377,  25.88194,    .91263,    .49095,
     +     .15892,    .71589,    .91231,
     +     .05616,    .02439,  28.72286,   1.00004,    .58046,
     +     .24719,    .80477,    .99975,
     +     .05708,    .02497,  31.36570,   1.08482,    .66758,
     +     .33755,    .89086,   1.08455 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .05802,    .02555,  34.10384,   1.17581,    .76167,
     +     .43692,    .98314,   1.17555,
     +     .05881,    .02604,  36.39427,   1.25519,    .84313,
     +     .52083,   1.06358,   1.25495,
     +     .05977,    .02663,  39.18974,   1.35573,    .94601,
     +     .62670,   1.16540,   1.35552,
     +     .06062,    .02717,  41.71972,   1.44924,   1.04242,
     +     .72728,   1.26001,   1.44905,
     +     .06141,    .02766,  44.00365,   1.53734,   1.13198,
     +     .81834,   1.34911,   1.53717,
     +     .06241,    .02828,  46.94503,   1.65375,   1.25104,
     +     .94085,   1.46678,   1.65361,
     +     .06336,    .02888,  49.73855,   1.76775,   1.36787,
     +    1.06135,   1.58195,   1.76765,
     +     .06426,    .02944,  52.29894,   1.87657,   1.47829,
     +    1.17360,   1.69183,   1.87649 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .06515,    .03000,  54.90473,   1.98959,   1.59383,
     +    1.29235,   1.80591,   1.98954,
     +     .06604,    .03056,  57.40948,   2.10203,   1.70806,
     +    1.40870,   1.91937,   2.10201,
     +     .06688,    .03108,  59.78946,   2.21133,   1.81942,
     +    1.52261,   2.02962,   2.21134,
     +     .06768,    .03158,  62.00834,   2.31601,   1.92581,
     +    1.63105,   2.13519,   2.31605,
     +     .06848,    .03208,  64.23380,   2.42329,   2.03499,
     +    1.74255,   2.24335,   2.42336,
     +     .06927,    .03258,  66.39220,   2.53005,   2.14338,
     +    1.85288,   2.35097,   2.53015,
     +     .07003,    .03306,  68.44891,   2.63365,   2.24882,
     +    1.96055,   2.45538,   2.63377,
     +     .07075,    .03351,  70.34598,   2.73180,   2.34827,
     +    2.06155,   2.55429,   2.73196 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .07147,    .03396,  72.29848,   2.83385,   2.45228,
     +    2.16791,   2.65710,   2.83403,
     +     .07219,    .03441,  74.13376,   2.93300,   2.55254,
     +    2.26948,   2.75698,   2.93321,
     +     .07288,    .03484,  75.91459,   3.03017,   2.65127,
     +    2.37005,   2.85486,   3.03041,
     +     .07354,    .03525,  77.57690,   3.12272,   2.74520,
     +    2.46560,   2.94807,   3.12299,
     +     .07420,    .03567,  79.22430,   3.21639,   2.84006,
     +    2.56187,   3.04240,   3.21668 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .05197,    .02118,   3.27072,    .40484,    .00000,
     +     .00000,    .20909,    .40464,
     +     .05268,    .02162,   4.26242,    .41580,    .00002,
     +     .00000,    .22115,    .41561,
     +     .05374,    .02229,   5.86369,    .43666,    .01674,
     +     .00000,    .24363,    .43647,
     +     .05453,    .02279,   7.12073,    .45556,    .04144,
     +     .00000,    .26371,    .45539,
     +     .05537,    .02332,   8.48369,    .47990,    .06791,
     +     .00000,    .28927,    .47974,
     +     .05611,    .02379,   9.76436,    .50333,    .09484,
     +     .00000,    .31375,    .50318,
     +     .05683,    .02425,  11.01532,    .52889,    .12195,
     +     .00000,    .34030,    .52875,
     +     .05760,    .02474,  12.40615,    .55877,    .15427,
     +     .00000,    .37123,    .55864 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .05828,    .02517,  13.66736,    .58710,    .18499,
     +     .00000,    .40047,    .58699,
     +     .05894,    .02559,  14.89954,    .61674,    .21613,
     +     .00000,    .43097,    .61664,
     +     .05946,    .02593,  15.90648,    .64167,    .24251,
     +     .00000,    .45658,    .64159,
     +     .06060,    .02665,  18.08508,    .69919,    .30297,
     +     .00019,    .51554,    .69913,
     +     .06158,    .02729,  20.00393,    .75328,    .36016,
     +     .04786,    .57085,    .75325,
     +     .06270,    .02801,  22.16110,    .81846,    .42897,
     +     .13546,    .63738,    .81846,
     +     .06388,    .02876,  24.42074,    .89145,    .50409,
     +     .20981,    .71175,    .89148,
     +     .06495,    .02945,  26.50579,    .96174,    .57668,
     +     .28542,    .78327,    .96180 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .06604,    .03016,  28.65021,   1.03669,    .65458,
     +     .36805,    .85944,   1.03678,
     +     .06696,    .03075,  30.43144,   1.10169,    .72161,
     +     .43738,    .92544,   1.10181,
     +     .06807,    .03146,  32.59051,   1.18356,    .80577,
     +     .52435,   1.00850,   1.18371,
     +     .06906,    .03210,  34.53225,   1.25928,    .88422,
     +     .60655,   1.08527,   1.25946,
     +     .06998,    .03269,  36.27307,   1.33025,    .95669,
     +     .68051,   1.15718,   1.33047,
     +     .07114,    .03345,  38.50155,   1.42355,   1.05255,
     +     .77956,   1.25167,   1.42381,
     +     .07225,    .03416,  40.60409,   1.51442,   1.14612,
     +     .87646,   1.34364,   1.51472,
     +     .07329,    .03483,  42.51674,   1.60070,   1.23404,
     +     .96617,   1.43093,   1.60104 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .07433,    .03550,  44.45325,   1.68991,   1.32566,
     +    1.06071,   1.52114,   1.69029,
     +     .07535,    .03616,  46.30192,   1.77824,   1.41577,
     +    1.15285,   1.61043,   1.77866,
     +     .07633,    .03678,  48.04917,   1.86373,   1.50325,
     +    1.24269,   1.69683,   1.86419,
     +     .07725,    .03738,  49.66874,   1.94527,   1.58647,
     +    1.32784,   1.77921,   1.94577,
     +     .07818,    .03797,  51.28493,   2.02852,   1.67156,
     +    1.41507,   1.86330,   2.02906,
     +     .07910,    .03856,  52.84356,   2.11104,   1.75569,
     +    1.50103,   1.94663,   2.11162,
     +     .07997,    .03912,  54.32217,   2.19084,   1.83726,
     +    1.58465,   2.02720,   2.19145,
     +     .08080,    .03966,  55.67789,   2.26617,   1.91389,
     +    1.66276,   2.10325,   2.26682 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .08164,    .04019,  57.06943,   2.34427,   1.99384,
     +    1.74484,   2.18207,   2.34496,
     +     .08247,    .04072,  58.36747,   2.41985,   2.07056,
     +    1.82284,   2.25835,   2.42057,
     +     .08327,    .04123,  59.62379,   2.49373,   2.14594,
     +    1.89992,   2.33290,   2.49449,
     +     .08402,    .04172,  60.79072,   2.56388,   2.21743,
     +    1.97292,   2.40367,   2.56467,
     +     .08479,    .04221,  61.94125,   2.63465,   2.28940,
     +    2.04622,   2.47507,   2.63548 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .05679,    .02372,   3.23000,    .38253,    .00000,
     +     .00000,    .19792,    .38254,
     +     .05757,    .02423,   4.13555,    .39312,    .00002,
     +     .00000,    .20956,    .39314,
     +     .05876,    .02501,   5.58758,    .41295,    .01586,
     +     .00000,    .23094,    .41299,
     +     .05964,    .02558,   6.71781,    .43069,    .03913,
     +     .00000,    .24981,    .43075,
     +     .06058,    .02620,   7.93560,    .45324,    .06379,
     +     .00000,    .27353,    .45332,
     +     .06141,    .02674,   9.07223,    .47482,    .08868,
     +     .00000,    .29611,    .47492,
     +     .06221,    .02727,  10.17669,    .49818,    .11355,
     +     .00000,    .32042,    .49829,
     +     .06307,    .02783,  11.39793,    .52532,    .14303,
     +     .00000,    .34856,    .52545 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .06382,    .02833,  12.49995,    .55092,    .17091,
     +     .00000,    .37504,    .55108,
     +     .06456,    .02881,  13.57172,    .57757,    .19903,
     +     .00000,    .40251,    .57774,
     +     .06515,    .02920,  14.44434,    .59990,    .22276,
     +     .00000,    .42550,    .60009,
     +     .06641,    .03003,  16.32156,    .65116,    .27688,
     +     .00018,    .47813,    .65138,
     +     .06752,    .03076,  17.96325,    .69907,    .32776,
     +     .04266,    .52722,    .69933,
     +     .06876,    .03158,  19.79557,    .75649,    .38864,
     +     .12053,    .58593,    .75678,
     +     .07007,    .03244,  21.70264,    .82040,    .45471,
     +     .18611,    .65116,    .82073,
     +     .07127,    .03323,  23.45176,    .88163,    .51821,
     +     .25249,    .71357,    .88200 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .07249,    .03404,  25.24085,    .94660,    .58603,
     +     .32470,    .77972,    .94701,
     +     .07351,    .03471,  26.71914,   1.00271,    .64414,
     +     .38501,    .83679,   1.00316,
     +     .07475,    .03553,  28.50177,   1.07308,    .71678,
     +     .46034,    .90831,   1.07357,
     +     .07585,    .03625,  30.09744,   1.13790,    .78423,
     +     .53126,    .97415,   1.13844,
     +     .07687,    .03692,  31.52044,   1.19843,    .84628,
     +     .59480,   1.03559,   1.19901,
     +     .07817,    .03777,  33.33386,   1.27771,    .92807,
     +     .67959,   1.11601,   1.27834,
     +     .07940,    .03858,  35.03629,   1.35462,   1.00758,
     +     .76222,   1.19398,   1.35530,
     +     .08055,    .03934,  36.57598,   1.42736,   1.08198,
     +     .83838,   1.26769,   1.42808 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .08171,    .04009,  38.12883,   1.50231,   1.15927,
     +     .91840,   1.34361,   1.50308,
     +     .08285,    .04084,  39.60334,   1.57626,   1.23500,
     +     .99608,   1.41849,   1.57708,
     +     .08394,    .04155,  40.99130,   1.64761,   1.30829,
     +    1.07161,   1.49072,   1.64848,
     +     .08496,    .04221,  42.27205,   1.71546,   1.37780,
     +    1.14296,   1.55938,   1.71637,
     +     .08599,    .04288,  43.54515,   1.78454,   1.44867,
     +    1.21586,   1.62927,   1.78549,
     +     .08701,    .04354,  44.76743,   1.85281,   1.51853,
     +    1.28747,   1.69833,   1.85381,
     +     .08798,    .04417,  45.92301,   1.91866,   1.58610,
     +    1.35697,   1.76492,   1.91971,
     +     .08890,    .04477,  46.97741,   1.98065,   1.64940,
     +    1.42169,   1.82761,   1.98174 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08983,    .04537,  48.05758,   2.04479,   1.71531,
     +    1.48959,   1.89245,   2.04593,
     +     .09075,    .04597,  49.05885,   2.10667,   1.77835,
     +    1.55389,   1.95501,   2.10785,
     +     .09162,    .04653,  50.02613,   2.16705,   1.84019,
     +    1.61733,   2.01603,   2.16827,
     +     .09246,    .04707,  50.92106,   2.22424,   1.89869,
     +    1.67727,   2.07383,   2.22550,
     +     .09331,    .04762,  51.79964,   2.28182,   1.95745,
     +    1.73730,   2.13202,   2.28312 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .06085,    .02613,   3.19378,    .36613,    .00000,
     +     .00000,    .18955,    .36610,
     +     .06171,    .02670,   4.03502,    .37640,    .00002,
     +     .00000,    .20084,    .37639,
     +     .06301,    .02757,   5.37431,    .39539,    .01516,
     +     .00000,    .22132,    .39541,
     +     .06398,    .02822,   6.40918,    .41221,    .03731,
     +     .00000,    .23922,    .41225,
     +     .06501,    .02891,   7.51848,    .43337,    .06056,
     +     .00000,    .26150,    .43343,
     +     .06592,    .02951,   8.54820,    .45353,    .08388,
     +     .00000,    .28263,    .45362,
     +     .06680,    .03010,   9.54456,    .47520,    .10705,
     +     .00000,    .30522,    .47532,
     +     .06774,    .03073,  10.64140,    .50028,    .13440,
     +     .00000,    .33127,    .50042 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .06856,    .03129,  11.62724,    .52385,    .16014,
     +     .00000,    .35567,    .52402,
     +     .06937,    .03183,  12.58248,    .54827,    .18601,
     +     .00000,    .38089,    .54846,
     +     .07001,    .03226,  13.35786,    .56868,    .20777,
     +     .00000,    .40194,    .56890,
     +     .07140,    .03319,  15.01807,    .61534,    .25720,
     +     .00017,    .44992,    .61560,
     +     .07261,    .03400,  16.46149,    .65875,    .30345,
     +     .03883,    .49446,    .65905,
     +     .07397,    .03491,  18.06292,    .71054,    .35854,
     +     .10954,    .54750,    .71089,
     +     .07541,    .03586,  19.72087,    .76790,    .41801,
     +     .16874,    .60614,    .76831,
     +     .07672,    .03674,  21.23395,    .82262,    .47495,
     +     .22841,    .66200,    .82308 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07805,    .03763,  22.77463,    .88048,    .53553,
     +     .29309,    .72099,    .88099,
     +     .07917,    .03837,  24.04215,    .93026,    .58724,
     +     .34690,    .77171,    .93081,
     +     .08052,    .03927,  25.56394,    .99248,    .65167,
     +     .41389,    .83504,    .99309,
     +     .08173,    .04007,  26.92084,   1.04961,    .71130,
     +     .47676,    .89315,   1.05027,
     +     .08284,    .04081,  28.12565,   1.10279,    .76597,
     +     .53289,    .94721,   1.10350,
     +     .08426,    .04174,  29.65516,   1.17223,    .83783,
     +     .60758,   1.01775,   1.17300,
     +     .08560,    .04263,  31.08496,   1.23937,    .90746,
     +     .68014,   1.08591,   1.24020,
     +     .08686,    .04345,  32.37159,   1.30266,    .97239,
     +     .74677,   1.15015,   1.30355 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08812,    .04429,  33.66507,   1.36770,   1.03966,
     +     .81663,   1.21613,   1.36865,
     +     .08936,    .04510,  34.88776,   1.43169,   1.10538,
     +     .88421,   1.28102,   1.43269,
     +     .09053,    .04587,  36.03455,   1.49327,   1.16884,
     +     .94977,   1.34344,   1.49433,
     +     .09165,    .04660,  37.08847,   1.55167,   1.22885,
     +    1.01154,   1.40263,   1.55278,
     +     .09277,    .04733,  38.13279,   1.61099,   1.28991,
     +    1.07451,   1.46273,   1.61215,
     +     .09387,    .04805,  39.13180,   1.66948,   1.34994,
     +    1.13621,   1.52199,   1.67070,
     +     .09492,    .04873,  40.07352,   1.72578,   1.40790,
     +    1.19598,   1.57901,   1.72706,
     +     .09592,    .04938,  40.92907,   1.77865,   1.46205,
     +    1.25150,   1.63256,   1.77998 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09693,    .05004,  41.80413,   1.83327,   1.51837,
     +    1.30967,   1.68785,   1.83464,
     +     .09793,    .05068,  42.61046,   1.88583,   1.57208,
     +    1.36460,   1.74107,   1.88726,
     +     .09888,    .05129,  43.38823,   1.93704,   1.62469,
     +    1.41872,   1.79291,   1.93852,
     +     .09978,    .05188,  44.10533,   1.98545,   1.67437,
     +    1.46976,   1.84191,   1.98697,
     +     .10070,    .05247,  44.80675,   2.03408,   1.72416,
     +    1.52078,   1.89114,   2.03566 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07576,    .03576,   3.05765,    .31874,    .00000,
     +     .00000,    .16547,    .31885,
     +     .07691,    .03657,   3.71094,    .32792,    .00002,
     +     .00000,    .17557,    .32808,
     +     .07866,    .03781,   4.72923,    .34428,    .01302,
     +     .00000,    .19327,    .34450,
     +     .07996,    .03873,   5.49848,    .35830,    .03177,
     +     .00000,    .20826,    .35857,
     +     .08134,    .03971,   6.31010,    .37541,    .05091,
     +     .00000,    .22639,    .37573,
     +     .08256,    .04056,   7.05063,    .39146,    .06972,
     +     .00000,    .24332,    .39183,
     +     .08373,    .04138,   7.75761,    .40838,    .08808,
     +     .00000,    .26107,    .40880,
     +     .08499,    .04227,   8.52490,    .42768,    .10944,
     +     .00000,    .28125,    .42815 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08610,    .04304,   9.20581,    .44558,    .12927,
     +     .00000,    .29991,    .44610,
     +     .08718,    .04379,   9.85775,    .46388,    .14895,
     +     .00000,    .31894,    .46445,
     +     .08804,    .04438,  10.38182,    .47904,    .16535,
     +     .00000,    .33467,    .47964,
     +     .08989,    .04566,  11.48651,    .51323,    .20210,
     +     .00014,    .37007,    .51392,
     +     .09150,    .04677,  12.42825,    .54456,    .23597,
     +     .02862,    .40243,    .54532,
     +     .09331,    .04802,  13.45200,    .58140,    .27572,
     +     .08034,    .44041,    .58224,
     +     .09522,    .04932,  14.49332,    .62156,    .31797,
     +     .12279,    .48174,    .62250,
     +     .09696,    .05050,  15.42784,    .65935,    .35786,
     +     .16506,    .52058,    .66038 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09872,    .05170,  16.36506,    .69881,    .39978,
     +     .21032,    .56109,    .69993,
     +     .10019,    .05269,  17.12464,    .73238,    .43516,
     +     .24753,    .59551,    .73357,
     +     .10198,    .05390,  18.02311,    .77387,    .47873,
     +     .29333,    .63803,    .77516,
     +     .10357,    .05496,  18.81368,    .81156,    .51866,
     +     .33590,    .67662,    .81294,
     +     .10503,    .05593,  19.50453,    .84628,    .55486,
     +     .37345,    .71215,    .84773,
     +     .10688,    .05717,  20.37022,    .89116,    .60198,
     +     .42298,    .75806,    .89272,
     +     .10863,    .05833,  21.16773,    .93411,    .64718,
     +     .47060,    .80195,    .93576,
     +     .11027,    .05941,  21.87235,    .97414,    .68884,
     +     .51381,    .84286,    .97589 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11191,    .06049,  22.57285,   1.01493,    .73165,
     +     .55877,    .88453,   1.01677,
     +     .11352,    .06154,  23.22383,   1.05466,    .77305,
     +     .60182,    .92509,   1.05659,
     +     .11504,    .06253,  23.82682,   1.09257,    .81270,
     +     .64324,    .96379,   1.09459,
     +     .11648,    .06346,  24.37295,   1.12822,    .84989,
     +     .68194,   1.00018,   1.13032,
     +     .11792,    .06440,  24.90754,   1.16415,    .88743,
     +     .72111,   1.03685,   1.16634,
     +     .11934,    .06532,  25.41137,   1.19929,    .92405,
     +     .75917,   1.07270,   1.20157,
     +     .12069,    .06619,  25.88124,   1.23288,    .95916,
     +     .79580,   1.10697,   1.23525,
     +     .12197,    .06700,  26.30087,   1.26417,    .99170,
     +     .82954,   1.13890,   1.26662 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12326,    .06783,  26.72791,   1.29634,   1.02539,
     +     .86476,   1.17170,   1.29886,
     +     .12453,    .06863,  27.11206,   1.32700,   1.05721,
     +     .89767,   1.20298,   1.32960,
     +     .12574,    .06941,  27.48080,   1.35674,   1.08825,
     +     .92998,   1.23331,   1.35941,
     +     .12689,    .07013,  27.81589,   1.38466,   1.11736,
     +     .96025,   1.26179,   1.38741,
     +     .12805,    .07087,  28.13850,   1.41252,   1.14634,
     +     .99029,   1.29020,   1.41534 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09547,    .05040,   2.86346,    .27654,    .00000,
     +     .00000,    .14378,    .27689,
     +     .09707,    .05155,   3.34882,    .28442,    .00002,
     +     .00000,    .15249,    .28485,
     +     .09949,    .05328,   4.08790,    .29794,    .01084,
     +     .00000,    .16725,    .29850,
     +     .10128,    .05456,   4.63276,    .30918,    .02623,
     +     .00000,    .17939,    .30984,
     +     .10319,    .05590,   5.19808,    .32249,    .04152,
     +     .00000,    .19363,    .32325,
     +     .10485,    .05708,   5.70461,    .33478,    .05624,
     +     .00000,    .20674,    .33563,
     +     .10647,    .05820,   6.18119,    .34748,    .07034,
     +     .00000,    .22021,    .34842,
     +     .10819,    .05940,   6.69053,    .36175,    .08650,
     +     .00000,    .23529,    .36279 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10971,    .06045,   7.13631,    .37481,    .10130,
     +     .00000,    .24906,    .37594,
     +     .11117,    .06146,   7.55746,    .38797,    .11579,
     +     .00000,    .26290,    .38919,
     +     .11234,    .06226,   7.89242,    .39878,    .12775,
     +     .00000,    .27424,    .40007,
     +     .11485,    .06397,   8.58576,    .42280,    .15417,
     +     .00012,    .29939,    .42424,
     +     .11703,    .06545,   9.16326,    .44445,    .17813,
     +     .02044,    .32201,    .44603,
     +     .11948,    .06710,   9.77556,    .46952,    .20581,
     +     .05707,    .34815,    .47125,
     +     .12203,    .06880,  10.38573,    .49638,    .23473,
     +     .08652,    .37612,    .49828,
     +     .12435,    .07034,  10.92244,    .52128,    .26164,
     +     .11545,    .40200,    .52333 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12670,    .07188,  11.45095,    .54694,    .28955,
     +     .14604,    .42865,    .54914,
     +     .12865,    .07316,  11.87120,    .56848,    .31280,
     +     .17085,    .45100,    .57081,
     +     .13101,    .07469,  12.35926,    .59477,    .34109,
     +     .20103,    .47827,    .59726,
     +     .13310,    .07605,  12.78187,    .61839,    .36673,
     +     .22879,    .50274,    .62102,
     +     .13502,    .07728,  13.14306,    .63987,    .38968,
     +     .25296,    .52500,    .64263,
     +     .13744,    .07882,  13.58831,    .66734,    .41926,
     +     .28453,    .55345,    .67027,
     +     .13972,    .08027,  13.99081,    .69332,    .44730,
     +     .31455,    .58033,    .69640,
     +     .14184,    .08161,  14.33730,    .71722,    .47281,
     +     .34143,    .60508,    .72045 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14397,    .08294,  14.67683,    .74134,    .49881,
     +     .36917,    .63003,    .74472,
     +     .14603,    .08423,  14.98428,    .76454,    .52365,
     +     .39541,    .65405,    .76808,
     +     .14798,    .08544,  15.26416,    .78647,    .54722,
     +     .42046,    .67674,    .79015,
     +     .14982,    .08657,  15.51221,    .80689,    .56911,
     +     .44362,    .69787,    .81070,
     +     .15165,    .08769,  15.75054,    .82729,    .59103,
     +     .46688,    .71898,    .83123,
     +     .15345,    .08879,  15.96984,    .84705,    .61221,
     +     .48927,    .73942,    .85112,
     +     .15515,    .08983,  16.17098,    .86578,    .63237,
     +     .51068,    .75881,    .86997,
     +     .15676,    .09079,  16.34517,    .88305,    .65086,
     +     .53019,    .77669,    .88736 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .15838,    .09177,  16.52149,    .90070,    .66993,
     +     .55049,    .79496,    .90513,
     +     .15996,    .09272,  16.67322,    .91732,    .68771,
     +     .56921,    .81219,    .92187,
     +     .16147,    .09362,  16.81807,    .93336,    .70498,
     +     .58753,    .82880,    .93802,
     +     .16290,    .09447,  16.94600,    .94830,    .72106,
     +     .60456,    .84428,    .95307,
     +     .16433,    .09532,  17.06516,    .96307,    .73693,
     +     .62133,    .85959,    .96795 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11035,    .06228,   2.71339,    .25397,    .00000,
     +     .00000,    .13212,    .25464,
     +     .11230,    .06366,   3.11051,    .26097,    .00002,
     +     .00000,    .13993,    .26176,
     +     .11525,    .06572,   3.70661,    .27277,    .00956,
     +     .00000,    .15293,    .27374,
     +     .11743,    .06724,   4.13943,    .28239,    .02303,
     +     .00000,    .16343,    .28350,
     +     .11975,    .06884,   4.58383,    .29359,    .03619,
     +     .00000,    .17555,    .29486,
     +     .12178,    .07022,   4.97765,    .30385,    .04872,
     +     .00000,    .18660,    .30525,
     +     .12373,    .07155,   5.34474,    .31432,    .06058,
     +     .00000,    .19782,    .31585,
     +     .12581,    .07296,   5.73328,    .32597,    .07407,
     +     .00000,    .21028,    .32765 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12764,    .07418,   6.07035,    .33656,    .08631,
     +     .00000,    .22156,    .33836,
     +     .12940,    .07536,   6.38605,    .34713,    .09820,
     +     .00000,    .23280,    .34906,
     +     .13081,    .07629,   6.63544,    .35576,    .10795,
     +     .00000,    .24195,    .35779,
     +     .13381,    .07827,   7.14521,    .37478,    .12932,
     +     .00011,    .26209,    .37702,
     +     .13641,    .07997,   7.56303,    .39176,    .14851,
     +     .01649,    .28002,    .39419,
     +     .13933,    .08186,   7.99825,    .41122,    .17047,
     +     .04589,    .30054,    .41385,
     +     .14235,    .08380,   8.42544,    .43184,    .19316,
     +     .06923,    .32226,    .43470,
     +     .14510,    .08554,   8.79593,    .45078,    .21408,
     +     .09197,    .34217,    .45384 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .14787,    .08729,   9.15610,    .47011,    .23561,
     +     .11582,    .36249,    .47339,
     +     .15015,    .08872,   9.43856,    .48622,    .25339,
     +     .13502,    .37940,    .48966,
     +     .15292,    .09044,   9.76179,    .50571,    .27487,
     +     .15819,    .39987,    .50937,
     +     .15536,    .09195,  10.03830,    .52309,    .29419,
     +     .17936,    .41811,    .52694,
     +     .15758,    .09331,  10.27071,    .53877,    .31136,
     +     .19764,    .43455,    .54279,
     +     .16039,    .09501,  10.55348,    .55867,    .33333,
     +     .22138,    .45543,    .56291,
     +     .16302,    .09661,  10.80513,    .57734,    .35401,
     +     .24380,    .47501,    .58179,
     +     .16546,    .09806,  11.01653,    .59437,    .37266,
     +     .26369,    .49288,    .59900 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .16790,    .09952,  11.22134,    .61144,    .39156,
     +     .28412,    .51078,    .61626,
     +     .17026,    .10091,  11.40259,    .62772,    .40947,
     +     .30330,    .52788,    .63273,
     +     .17249,    .10221,  11.56505,    .64301,    .42638,
     +     .32150,    .54393,    .64820,
     +     .17457,    .10342,  11.70602,    .65715,    .44198,
     +     .33823,    .55877,    .66250,
     +     .17664,    .10463,  11.83897,    .67117,    .45751,
     +     .35494,    .57351,    .67669,
     +     .17867,    .10580,  11.95815,    .68466,    .47241,
     +     .37093,    .58770,    .69035,
     +     .18059,    .10690,  12.06571,    .69738,    .48653,
     +     .38615,    .60107,    .70322,
     +     .18239,    .10792,  12.15570,    .70902,    .49940,
     +     .39993,    .61332,    .71501 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .18421,    .10895,  12.24650,    .72088,    .51263,
     +     .41422,    .62581,    .72701,
     +     .18597,    .10994,  12.31989,    .73194,    .52486,
     +     .42730,    .63747,    .73821,
     +     .18765,    .11088,  12.38969,    .74257,    .53670,
     +     .44006,    .64868,    .74899,
     +     .18924,    .11177,  12.44906,    .75241,    .54767,
     +     .45187,    .65906,    .75895,
     +     .19082,    .11265,  12.50182,    .76207,    .55843,
     +     .46343,    .66927,    .76874 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12307,    .07266,   2.58651,    .23882,    .00000,
     +     .00000,    .12429,    .23989,
     +     .12533,    .07421,   2.92600,    .24515,    .00002,
     +     .00000,    .13142,    .24637,
     +     .12874,    .07653,   3.43015,    .25567,    .00865,
     +     .00000,    .14314,    .25714,
     +     .13126,    .07823,   3.79203,    .26415,    .02077,
     +     .00000,    .15249,    .26581,
     +     .13393,    .08000,   4.16067,    .27391,    .03249,
     +     .00000,    .16316,    .27577,
     +     .13626,    .08154,   4.48471,    .28279,    .04355,
     +     .00000,    .17283,    .28482,
     +     .13849,    .08301,   4.78459,    .29177,    .05394,
     +     .00000,    .18257,    .29397,
     +     .14088,    .08456,   5.09966,    .30171,    .06568,
     +     .00000,    .19331,    .30409 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14296,    .08591,   5.37118,    .31068,    .07626,
     +     .00000,    .20298,    .31323,
     +     .14497,    .08720,   5.62372,    .31960,    .08649,
     +     .00000,    .21256,    .32230,
     +     .14657,    .08822,   5.82215,    .32683,    .09484,
     +     .00000,    .22032,    .32966,
     +     .14997,    .09038,   6.22372,    .34269,    .11303,
     +     .00010,    .23729,    .34578,
     +     .15292,    .09223,   6.54853,    .35673,    .12924,
     +     .01402,    .25230,    .36006,
     +     .15621,    .09428,   6.88178,    .37271,    .14766,
     +     .03892,    .26935,    .37630,
     +     .15961,    .09637,   7.20484,    .38951,    .16655,
     +     .05850,    .28724,    .39338,
     +     .16268,    .09824,   7.48170,    .40481,    .18385,
     +     .07747,    .30354,    .40893 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .16578,    .10010,   7.74790,    .42034,    .20153,
     +     .09725,    .32006,    .42472,
     +     .16833,    .10163,   7.95410,    .43319,    .21606,
     +     .11307,    .33372,    .43777,
     +     .17139,    .10345,   8.18702,    .44864,    .23349,
     +     .13206,    .35015,    .45348,
     +     .17410,    .10504,   8.38419,    .46234,    .24910,
     +     .14933,    .36471,    .46740,
     +     .17655,    .10647,   8.54710,    .47461,    .26288,
     +     .16415,    .37776,    .47988,
     +     .17965,    .10826,   8.74295,    .49010,    .28043,
     +     .18331,    .39424,    .49563,
     +     .18254,    .10992,   8.91469,    .50454,    .29686,
     +     .20130,    .40960,    .51031,
     +     .18521,    .11144,   9.05547,    .51760,    .31157,
     +     .21716,    .42351,    .52360 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .18786,    .11294,   9.19035,    .53063,    .32642,
     +     .23339,    .43739,    .53686,
     +     .19043,    .11437,   9.30664,    .54298,    .34040,
     +     .24854,    .45056,    .54942,
     +     .19284,    .11571,   9.40909,    .55451,    .35354,
     +     .26285,    .46286,    .56116,
     +     .19509,    .11695,   9.49577,    .56511,    .36560,
     +     .27595,    .47417,    .57195,
     +     .19733,    .11818,   9.57579,    .57557,    .37756,
     +     .28897,    .48535,    .58260,
     +     .19951,    .11936,   9.64523,    .58556,    .38898,
     +     .30137,    .49605,    .59278,
     +     .20157,    .12048,   9.70659,    .59494,    .39975,
     +     .31314,    .50610,    .60234,
     +     .20349,    .12151,   9.75539,    .60346,    .40952,
     +     .32374,    .51524,    .61103 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .20543,    .12254,   9.80451,    .61213,    .41953,
     +     .33471,    .52453,    .61986,
     +     .20731,    .12353,   9.84041,    .62013,    .42872,
     +     .34468,    .53315,    .62802,
     +     .20909,    .12448,   9.87443,    .62781,    .43761,
     +     .35440,    .54141,    .63586,
     +     .21077,    .12535,   9.90141,    .63488,    .44580,
     +     .36334,    .54902,    .64306,
     +     .21245,    .12622,   9.92310,    .64176,    .45379,
     +     .37206,    .55646,    .65009 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13453,    .08202,   2.47572,    .22750,    .00000,
     +     .00000,    .11845,    .22903,
     +     .13708,    .08371,   2.77355,    .23328,    .00002,
     +     .00000,    .12504,    .23501,
     +     .14090,    .08622,   3.21204,    .24279,    .00795,
     +     .00000,    .13576,    .24483,
     +     .14371,    .08806,   3.52386,    .25039,    .01905,
     +     .00000,    .14425,    .25266,
     +     .14669,    .08997,   3.83948,    .25907,    .02969,
     +     .00000,    .15384,    .26158,
     +     .14927,    .09162,   4.11512,    .26692,    .03966,
     +     .00000,    .16249,    .26964,
     +     .15175,    .09319,   4.36861,    .27481,    .04898,
     +     .00000,    .17114,    .27773,
     +     .15440,    .09485,   4.63338,    .28349,    .05945,
     +     .00000,    .18063,    .28664 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .15670,    .09629,   4.86033,    .29130,    .06885,
     +     .00000,    .18914,    .29464,
     +     .15892,    .09766,   5.07013,    .29901,    .07789,
     +     .00000,    .19753,    .30254,
     +     .16068,    .09874,   5.23423,    .30525,    .08524,
     +     .00000,    .20431,    .30893,
     +     .16442,    .10102,   5.56345,    .31886,    .10119,
     +     .00009,    .21905,    .32285,
     +     .16765,    .10297,   5.82663,    .33084,    .11531,
     +     .01228,    .23200,    .33511,
     +     .17125,    .10512,   6.09288,    .34438,    .13128,
     +     .03403,    .24663,    .34896,
     +     .17496,    .10730,   6.34818,    .35852,    .14754,
     +     .05102,    .26188,    .36342,
     +     .17830,    .10925,   6.56462,    .37132,    .16236,
     +     .06738,    .27569,    .37652 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .18165,    .11119,   6.77064,    .38424,    .17743,
     +     .08437,    .28962,    .38973,
     +     .18440,    .11277,   6.92832,    .39487,    .18974,
     +     .09789,    .30107,    .40060,
     +     .18771,    .11464,   7.10431,    .40759,    .20445,
     +     .11405,    .31478,    .41360,
     +     .19062,    .11628,   7.25181,    .41880,    .21757,
     +     .12869,    .32688,    .42508,
     +     .19325,    .11774,   7.37140,    .42879,    .22909,
     +     .14119,    .33766,    .43530,
     +     .19656,    .11956,   7.51340,    .44134,    .24370,
     +     .15728,    .35121,    .44814,
     +     .19964,    .12125,   7.63597,    .45297,    .25731,
     +     .17233,    .36377,    .46004,
     +     .20248,    .12278,   7.73389,    .46341,    .26944,
     +     .18553,    .37509,    .47074 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .20530,    .12429,   7.82660,    .47380,    .28163,
     +     .19900,    .38633,    .48138,
     +     .20801,    .12573,   7.90402,    .48357,    .29306,
     +     .21150,    .39694,    .49139,
     +     .21055,    .12707,   7.97073,    .49265,    .30375,
     +     .22328,    .40680,    .50070,
     +     .21292,    .12830,   8.02523,    .50095,    .31352,
     +     .23401,    .41582,    .50921,
     +     .21527,    .12952,   8.07414,    .50910,    .32318,
     +     .24464,    .42471,    .51757,
     +     .21755,    .13069,   8.11468,    .51685,    .33235,
     +     .25473,    .43317,    .52552,
     +     .21970,    .13179,   8.14933,    .52409,    .34099,
     +     .26427,    .44109,    .53296,
     +     .22170,    .13280,   8.17448,    .53062,    .34877,
     +     .27283,    .44825,    .53966 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .22371,    .13381,   8.19975,    .53725,    .35674,
     +     .28168,    .45551,    .54647,
     +     .22565,    .13477,   8.21457,    .54331,    .36401,
     +     .28967,    .46219,    .55270,
     +     .22750,    .13569,   8.22855,    .54911,    .37103,
     +     .29744,    .46858,    .55868,
     +     .22923,    .13654,   8.23759,    .55441,    .37747,
     +     .30458,    .47444,    .56414,
     +     .23095,    .13738,   8.24227,    .55956,    .38373,
     +     .31151,    .48015,    .56943 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15525,    .09864,   2.28777,    .21099,    .00000,
     +     .00000,    .11003,    .21364,
     +     .15827,    .10052,   2.52821,    .21590,    .00002,
     +     .00000,    .11578,    .21882,
     +     .16278,    .10330,   2.87740,    .22388,    .00692,
     +     .00000,    .12501,    .22722,
     +     .16610,    .10532,   3.12196,    .23017,    .01652,
     +     .00000,    .13221,    .23382,
     +     .16958,    .10741,   3.36690,    .23726,    .02561,
     +     .00000,    .14026,    .24123,
     +     .17260,    .10921,   3.57867,    .24362,    .03405,
     +     .00000,    .14745,    .24787,
     +     .17549,    .11091,   3.77149,    .24995,    .04185,
     +     .00000,    .15457,    .25447,
     +     .17856,    .11270,   3.97084,    .25687,    .05056,
     +     .00000,    .16233,    .26167 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .18121,    .11425,   4.14011,    .26304,    .05833,
     +     .00000,    .16924,    .26809,
     +     .18377,    .11571,   4.29501,    .26910,    .06575,
     +     .00000,    .17599,    .27439,
     +     .18579,    .11687,   4.41529,    .27397,    .07175,
     +     .00000,    .18142,    .27945,
     +     .19008,    .11928,   4.65284,    .28449,    .08465,
     +     .00008,    .19312,    .29039,
     +     .19375,    .12133,   4.83880,    .29368,    .09599,
     +     .00994,    .20332,    .29992,
     +     .19782,    .12358,   5.02224,    .30396,    .10869,
     +     .02747,    .21473,    .31058,
     +     .20199,    .12584,   5.19436,    .31456,    .12149,
     +     .04100,    .22649,    .32158,
     +     .20573,    .12785,   5.33723,    .32407,    .13305,
     +     .05394,    .23704,    .33144 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .20947,    .12983,   5.47057,    .33357,    .14473,
     +     .06728,    .24759,    .34130,
     +     .21252,    .13143,   5.57016,    .34131,    .15419,
     +     .07781,    .25620,    .34934,
     +     .21617,    .13332,   5.67841,    .35048,    .16541,
     +     .09031,    .26640,    .35886,
     +     .21937,    .13496,   5.76723,    .35851,    .17534,
     +     .10156,    .27534,    .36719,
     +     .22223,    .13641,   5.83642,    .36557,    .18399,
     +     .11109,    .28323,    .37453,
     +     .22582,    .13822,   5.91633,    .37438,    .19489,
     +     .12329,    .29307,    .38367,
     +     .22916,    .13987,   5.98282,    .38246,    .20497,
     +     .13462,    .30212,    .39207,
     +     .23220,    .14136,   6.03187,    .38962,    .21386,
     +     .14447,    .31017,    .39952 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .23522,    .14282,   6.07682,    .39668,    .22275,
     +     .15447,    .31813,    .40687,
     +     .23810,    .14419,   6.11093,    .40325,    .23101,
     +     .16368,    .32555,    .41371,
     +     .24079,    .14546,   6.13825,    .40930,    .23869,
     +     .17230,    .33241,    .42001,
     +     .24327,    .14663,   6.15776,    .41476,    .24565,
     +     .18011,    .33862,    .42571,
     +     .24574,    .14777,   6.17308,    .42008,    .25249,
     +     .18781,    .34469,    .43126,
     +     .24811,    .14886,   6.18265,    .42507,    .25894,
     +     .19506,    .35042,    .43648,
     +     .25034,    .14987,   6.18899,    .42970,    .26498,
     +     .20189,    .35574,    .44131,
     +     .25240,    .15080,   6.18955,    .43382,    .27037,
     +     .20796,    .36050,    .44562 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .25448,    .15173,   6.19012,    .43798,    .27589,
     +     .21423,    .36532,    .44998,
     +     .25646,    .15260,   6.18338,    .44171,    .28085,
     +     .21983,    .36968,    .45389,
     +     .25834,    .15342,   6.17694,    .44527,    .28563,
     +     .22527,    .37384,    .45763,
     +     .26010,    .15418,   6.16791,    .44848,    .28999,
     +     .23023,    .37762,    .46100,
     +     .26184,    .15492,   6.15572,    .45155,    .29419,
     +     .23502,    .38126,    .46423 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18319,    .12002,   2.06245,    .19387,    .00000,
     +     .00000,    .10150,    .19859,
     +     .18678,    .12206,   2.24967,    .19782,    .00001,
     +     .00000,    .10635,    .20291,
     +     .19212,    .12505,   2.51734,    .20416,    .00587,
     +     .00000,    .11402,    .20981,
     +     .19602,    .12720,   2.70149,    .20908,    .01397,
     +     .00000,    .11993,    .21514,
     +     .20009,    .12941,   2.88348,    .21456,    .02153,
     +     .00000,    .12643,    .22104,
     +     .20361,    .13130,   3.03899,    .21944,    .02848,
     +     .00000,    .13219,    .22628,
     +     .20695,    .13308,   3.17878,    .22424,    .03485,
     +     .00000,    .13784,    .23144,
     +     .21047,    .13493,   3.32155,    .22944,    .04189,
     +     .00000,    .14394,    .23701 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .21352,    .13653,   3.44140,    .23405,    .04813,
     +     .00000,    .14933,    .24193,
     +     .21643,    .13802,   3.54959,    .23853,    .05404,
     +     .00000,    .15455,    .24670,
     +     .21873,    .13920,   3.63279,    .24210,    .05879,
     +     .00000,    .15872,    .25052,
     +     .22357,    .14164,   3.79371,    .24976,    .06892,
     +     .00007,    .16764,    .25868,
     +     .22769,    .14370,   3.91602,    .25636,    .07773,
     +     .00781,    .17533,    .26571,
     +     .23224,    .14593,   4.03207,    .26367,    .08751,
     +     .02151,    .18383,    .27348,
     +     .23684,    .14815,   4.13748,    .27109,    .09725,
     +     .03196,    .19248,    .28138,
     +     .24094,    .15009,   4.22208,    .27766,    .10596,
     +     .04186,    .20015,    .28836 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .24500,    .15200,   4.29852,    .28414,    .11467,
     +     .05198,    .20774,    .29525,
     +     .24831,    .15352,   4.35322,    .28936,    .12166,
     +     .05991,    .21386,    .30080,
     +     .25222,    .15529,   4.40968,    .29545,    .12988,
     +     .06924,    .22104,    .30730,
     +     .25563,    .15682,   4.45410,    .30072,    .13711,
     +     .07757,    .22728,    .31292,
     +     .25866,    .15816,   4.48556,    .30530,    .14333,
     +     .08457,    .23271,    .31778,
     +     .26244,    .15980,   4.51953,    .31092,    .15111,
     +     .09346,    .23942,    .32378,
     +     .26592,    .16129,   4.54504,    .31600,    .15824,
     +     .10166,    .24551,    .32922,
     +     .26906,    .16260,   4.55934,    .32042,    .16445,
     +     .10870,    .25086,    .33394 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .27216,    .16389,   4.57070,    .32474,    .17063,
     +     .11582,    .25609,    .33856,
     +     .27509,    .16508,   4.57472,    .32867,    .17630,
     +     .12231,    .26091,    .34277,
     +     .27781,    .16617,   4.57511,    .33223,    .18153,
     +     .12835,    .26531,    .34660,
     +     .28031,    .16715,   4.57120,    .33539,    .18623,
     +     .13377,    .26925,    .35000,
     +     .28277,    .16810,   4.56436,    .33842,    .19081,
     +     .13908,    .27305,    .35327,
     +     .28512,    .16900,   4.55389,    .34121,    .19508,
     +     .14404,    .27659,    .35628,
     +     .28732,    .16982,   4.54214,    .34375,    .19905,
     +     .14868,    .27985,    .35903,
     +     .28933,    .17056,   4.52735,    .34595,    .20256,
     +     .15278,    .28271,    .36142 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .29136,    .17130,   4.51259,    .34817,    .20614,
     +     .15699,    .28560,    .36383,
     +     .29325,    .17197,   4.49312,    .35007,    .20931,
     +     .16070,    .28814,    .36590,
     +     .29505,    .17260,   4.47470,    .35187,    .21235,
     +     .16430,    .29056,    .36787,
     +     .29672,    .17318,   4.45540,    .35346,    .21509,
     +     .16756,    .29271,    .36960,
     +     .29836,    .17373,   4.43398,    .35492,    .21770,
     +     .17068,    .29476,    .37122 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .22542,    .14955,   1.78178,    .17401,    .00000,
     +     .00000,    .09208,    .18303,
     +     .22968,    .15163,   1.91859,    .17683,    .00001,
     +     .00000,    .09591,    .18634,
     +     .23598,    .15465,   2.11023,    .18131,    .00477,
     +     .00000,    .10188,    .19154,
     +     .24052,    .15680,   2.23890,    .18474,    .01129,
     +     .00000,    .10640,    .19549,
     +     .24521,    .15897,   2.36367,    .18851,    .01729,
     +     .00000,    .11130,    .19979,
     +     .24924,    .16082,   2.46867,    .19183,    .02274,
     +     .00000,    .11560,    .20357,
     +     .25304,    .16253,   2.56125,    .19505,    .02767,
     +     .00000,    .11976,    .20722,
     +     .25702,    .16429,   2.65414,    .19851,    .03309,
     +     .00000,    .12420,    .21111 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .26045,    .16579,   2.73081,    .20153,    .03783,
     +     .00000,    .12809,    .21452,
     +     .26368,    .16719,   2.79853,    .20444,    .04228,
     +     .00000,    .13181,    .21778,
     +     .26622,    .16827,   2.84983,    .20674,    .04583,
     +     .00000,    .13477,    .22036,
     +     .27152,    .17050,   2.94559,    .21162,    .05333,
     +     .00006,    .14100,    .22580,
     +     .27599,    .17234,   3.01472,    .21574,    .05977,
     +     .00579,    .14629,    .23041,
     +     .28086,    .17430,   3.07569,    .22023,    .06683,
     +     .01589,    .15206,    .23541,
     +     .28574,    .17622,   3.12707,    .22467,    .07376,
     +     .02347,    .15783,    .24036,
     +     .29002,    .17786,   3.16533,    .22852,    .07987,
     +     .03057,    .16285,    .24465 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .29423,    .17943,   3.19720,    .23224,    .08591,
     +     .03776,    .16775,    .24881,
     +     .29761,    .18066,   3.21721,    .23517,    .09071,
     +     .04333,    .17164,    .25209,
     +     .30155,    .18206,   3.23437,    .23852,    .09628,
     +     .04982,    .17612,    .25582,
     +     .30495,    .18325,   3.24560,    .24136,    .10112,
     +     .05556,    .17996,    .25900,
     +     .30794,    .18425,   3.24949,    .24373,    .10523,
     +     .06032,    .18324,    .26166,
     +     .31163,    .18547,   3.25037,    .24658,    .11032,
     +     .06632,    .18722,    .26487,
     +     .31498,    .18654,   3.24687,    .24910,    .11492,
     +     .07179,    .19078,    .26771,
     +     .31795,    .18745,   3.23736,    .25117,    .11886,
     +     .07643,    .19381,    .27005 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .32085,    .18832,   3.22605,    .25316,    .12274,
     +     .08108,    .19674,    .27230,
     +     .32355,    .18909,   3.21035,    .25488,    .12625,
     +     .08527,    .19936,    .27426,
     +     .32602,    .18977,   3.19349,    .25638,    .12945,
     +     .08912,    .20171,    .27598,
     +     .32827,    .19037,   3.17506,    .25764,    .13228,
     +     .09255,    .20376,    .27744,
     +     .33045,    .19092,   3.15482,    .25880,    .13501,
     +     .09587,    .20570,    .27879,
     +     .33251,    .19141,   3.13269,    .25979,    .13752,
     +     .09894,    .20745,    .27996,
     +     .33440,    .19186,   3.11075,    .26065,    .13983,
     +     .10179,    .20903,    .28099,
     +     .33609,    .19223,   3.08788,    .26134,    .14182,
     +     .10427,    .21036,    .28180 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .33779,    .19261,   3.06514,    .26202,    .14386,
     +     .10682,    .21171,    .28262,
     +     .33935,    .19290,   3.03982,    .26248,    .14560,
     +     .10902,    .21281,    .28320,
     +     .34083,    .19318,   3.01600,    .26291,    .14727,
     +     .11114,    .21385,    .28375,
     +     .34217,    .19341,   2.99242,    .26323,    .14875,
     +     .11304,    .21474,    .28418,
     +     .34345,    .19361,   2.96756,    .26347,    .15013,
     +     .11483,    .21554,    .28450 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .26441,    .17387,   1.57726,    .15872,    .00000,
     +     .00000,    .08532,    .17273,
     +     .26907,    .17583,   1.68481,    .16077,    .00001,
     +     .00000,    .08845,    .17532,
     +     .27589,    .17864,   1.83283,    .16398,    .00405,
     +     .00000,    .09328,    .17933,
     +     .28078,    .18061,   1.93011,    .16642,    .00957,
     +     .00000,    .09689,    .18234,
     +     .28578,    .18257,   2.02276,    .16906,    .01459,
     +     .00000,    .10077,    .18555,
     +     .29005,    .18422,   2.09967,    .17138,    .01911,
     +     .00000,    .10414,    .18835,
     +     .29403,    .18572,   2.16614,    .17361,    .02316,
     +     .00000,    .10736,    .19102,
     +     .29817,    .18726,   2.23167,    .17597,    .02757,
     +     .00000,    .11077,    .19383 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .30172,    .18855,   2.28485,    .17803,    .03141,
     +     .00000,    .11373,    .19627,
     +     .30503,    .18973,   2.33075,    .17998,    .03498,
     +     .00000,    .11654,    .19857,
     +     .30762,    .19064,   2.36499,    .18151,    .03782,
     +     .00000,    .11875,    .20038,
     +     .31299,    .19247,   2.42633,    .18471,    .04376,
     +     .00005,    .12337,    .20412,
     +     .31747,    .19395,   2.46779,    .18736,    .04882,
     +     .00460,    .12724,    .20724,
     +     .32228,    .19551,   2.50055,    .19019,    .05430,
     +     .01258,    .13140,    .21054,
     +     .32703,    .19694,   2.52493,    .19292,    .05961,
     +     .01849,    .13549,    .21374,
     +     .33115,    .19815,   2.54035,    .19522,    .06425,
     +     .02399,    .13900,    .21643 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .33515,    .19928,   2.55058,    .19739,    .06880,
     +     .02950,    .14236,    .21897,
     +     .33832,    .20012,   2.55406,    .19905,    .07236,
     +     .03374,    .14499,    .22090,
     +     .34198,    .20106,   2.55292,    .20087,    .07646,
     +     .03863,    .14797,    .22304,
     +     .34510,    .20182,   2.54901,    .20237,    .07999,
     +     .04293,    .15048,    .22482,
     +     .34779,    .20243,   2.54059,    .20356,    .08295,
     +     .04645,    .15257,    .22622,
     +     .35107,    .20313,   2.52703,    .20493,    .08657,
     +     .05087,    .15507,    .22786,
     +     .35400,    .20370,   2.51128,    .20608,    .08982,
     +     .05486,    .15726,    .22925,
     +     .35654,    .20414,   2.49207,    .20694,    .09256,
     +     .05820,    .15905,    .23029 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .35900,    .20454,   2.47181,    .20772,    .09523,
     +     .06153,    .16076,    .23124,
     +     .36123,    .20485,   2.44880,    .20830,    .09761,
     +     .06448,    .16223,    .23197,
     +     .36325,    .20509,   2.42581,    .20876,    .09975,
     +     .06719,    .16351,    .23256,
     +     .36504,    .20527,   2.40249,    .20907,    .10162,
     +     .06957,    .16459,    .23299,
     +     .36674,    .20540,   2.37807,    .20930,    .10341,
     +     .07187,    .16558,    .23332,
     +     .36831,    .20548,   2.35270,    .20942,    .10502,
     +     .07396,    .16642,    .23352,
     +     .36974,    .20553,   2.32815,    .20947,    .10648,
     +     .07589,    .16716,    .23364,
     +     .37098,    .20552,   2.30359,    .20941,    .10773,
     +     .07755,    .16773,    .23363 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .37222,    .20552,   2.27926,    .20935,    .10899,
     +     .07925,    .16831,    .23362,
     +     .37330,    .20543,   2.25340,    .20913,    .11004,
     +     .08069,    .16870,    .23345,
     +     .37432,    .20535,   2.22915,    .20892,    .11103,
     +     .08207,    .16907,    .23328,
     +     .37521,    .20524,   2.20560,    .20867,    .11190,
     +     .08330,    .16935,    .23305,
     +     .37604,    .20510,   2.18122,    .20834,    .11269,
     +     .08444,    .16955,    .23274 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .33553,    .21184,   1.30519,    .13363,    .00000,
     +     .00000,    .07497,    .15826,
     +     .34038,    .21329,   1.37946,    .13467,    .00001,
     +     .00000,    .07719,    .15979,
     +     .34735,    .21528,   1.47833,    .13630,    .00317,
     +     .00000,    .08055,    .16210,
     +     .35225,    .21663,   1.54059,    .13752,    .00745,
     +     .00000,    .08300,    .16379,
     +     .35715,    .21790,   1.59751,    .13883,    .01127,
     +     .00000,    .08558,    .16552,
     +     .36128,    .21894,   1.64344,    .13995,    .01466,
     +     .00000,    .08779,    .16700,
     +     .36506,    .21983,   1.68135,    .14101,    .01766,
     +     .00000,    .08987,    .16837,
     +     .36893,    .22070,   1.71719,    .14210,    .02089,
     +     .00000,    .09202,    .16977 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .37220,    .22139,   1.74506,    .14303,    .02366,
     +     .00000,    .09387,    .17094,
     +     .37520,    .22198,   1.76763,    .14388,    .02621,
     +     .00000,    .09559,    .17201,
     +     .37751,    .22242,   1.78374,    .14453,    .02821,
     +     .00000,    .09692,    .17283,
     +     .38219,    .22321,   1.80899,    .14585,    .03235,
     +     .00005,    .09965,    .17445,
     +     .38599,    .22379,   1.82202,    .14688,    .03581,
     +     .00322,    .10187,    .17571,
     +     .38998,    .22431,   1.82658,    .14790,    .03950,
     +     .00876,    .10419,    .17694,
     +     .39374,    .22466,   1.82437,    .14878,    .04299,
     +     .01279,    .10637,    .17800,
     +     .39689,    .22486,   1.81781,    .14943,    .04599,
     +     .01648,    .10817,    .17877 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .39986,    .22497,   1.80771,    .14997,    .04888,
     +     .02012,    .10984,    .17941,
     +     .40212,    .22496,   1.79608,    .15030,    .05109,
     +     .02288,    .11108,    .17980,
     +     .40461,    .22486,   1.77867,    .15057,    .05359,
     +     .02602,    .11241,    .18010,
     +     .40666,    .22471,   1.76164,    .15073,    .05571,
     +     .02875,    .11349,    .18028,
     +     .40831,    .22446,   1.74309,    .15074,    .05744,
     +     .03094,    .11432,    .18027,
     +     .41025,    .22408,   1.71812,    .15066,    .05953,
     +     .03366,    .11526,    .18016,
     +     .41189,    .22365,   1.69316,    .15048,    .06136,
     +     .03607,    .11602,    .17994,
     +     .41317,    .22314,   1.66734,    .15017,    .06285,
     +     .03805,    .11655,    .17956 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .41434,    .22261,   1.64130,    .14981,    .06428,
     +     .03999,    .11701,    .17912,
     +     .41527,    .22201,   1.61427,    .14936,    .06550,
     +     .04169,    .11732,    .17855,
     +     .41604,    .22139,   1.58834,    .14886,    .06658,
     +     .04322,    .11755,    .17794,
     +     .41665,    .22075,   1.56325,    .14833,    .06750,
     +     .04454,    .11767,    .17730,
     +     .41715,    .22008,   1.53780,    .14773,    .06835,
     +     .04579,    .11773,    .17659,
     +     .41752,    .21937,   1.51231,    .14709,    .06908,
     +     .04691,    .11771,    .17581,
     +     .41780,    .21868,   1.48813,    .14644,    .06974,
     +     .04793,    .11764,    .17503,
     +     .41793,    .21797,   1.46475,    .14577,    .07026,
     +     .04878,    .11750,    .17423 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .41806,    .21726,   1.44171,    .14510,    .07078,
     +     .04965,    .11736,    .17343,
     +     .41800,    .21649,   1.41818,    .14434,    .07117,
     +     .05036,    .11711,    .17251,
     +     .41794,    .21576,   1.39622,    .14363,    .07154,
     +     .05103,    .11687,    .17165,
     +     .41781,    .21505,   1.37532,    .14292,    .07184,
     +     .05162,    .11660,    .17079,
     +     .41760,    .21429,   1.35409,    .14216,    .07209,
     +     .05214,    .11628,    .16989 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .39881,    .23954,   1.14076,    .11222,    .00000,
     +     .00000,    .06641,    .14656,
     +     .40321,    .24028,   1.19535,    .11273,    .00001,
     +     .00000,    .06805,    .14730,
     +     .40941,    .24119,   1.26530,    .11352,    .00263,
     +     .00000,    .07049,    .14837,
     +     .41367,    .24172,   1.30714,    .11409,    .00615,
     +     .00000,    .07224,    .14912,
     +     .41781,    .24212,   1.34336,    .11469,    .00925,
     +     .00000,    .07403,    .14984,
     +     .42124,    .24239,   1.37152,    .11519,    .01197,
     +     .00000,    .07555,    .15043,
     +     .42430,    .24255,   1.39321,    .11563,    .01434,
     +     .00000,    .07693,    .15091,
     +     .42735,    .24263,   1.41235,    .11607,    .01686,
     +     .00000,    .07835,    .15136 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .42986,    .24264,   1.42613,    .11643,    .01900,
     +     .00000,    .07954,    .15171,
     +     .43209,    .24256,   1.43584,    .11673,    .02095,
     +     .00000,    .08062,    .15198,
     +     .43378,    .24246,   1.44206,    .11694,    .02247,
     +     .00000,    .08144,    .15216,
     +     .43708,    .24211,   1.44797,    .11732,    .02557,
     +     .00004,    .08309,    .15244,
     +     .43964,    .24170,   1.44614,    .11755,    .02811,
     +     .00243,    .08438,    .15255,
     +     .44216,    .24113,   1.43637,    .11770,    .03078,
     +     .00658,    .08567,    .15252,
     +     .44435,    .24034,   1.42118,    .11770,    .03326,
     +     .00955,    .08680,    .15230,
     +     .44603,    .23952,   1.40424,    .11759,    .03535,
     +     .01223,    .08767,    .15196 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .44747,    .23860,   1.38488,    .11738,    .03733,
     +     .01485,    .08843,    .15149,
     +     .44845,    .23774,   1.36671,    .11713,    .03882,
     +     .01680,    .08895,    .15100,
     +     .44935,    .23661,   1.34261,    .11671,    .04046,
     +     .01899,    .08943,    .15028,
     +     .44998,    .23557,   1.32048,    .11629,    .04184,
     +     .02087,    .08979,    .14958,
     +     .45032,    .23452,   1.29840,    .11580,    .04293,
     +     .02236,    .08998,    .14882,
     +     .45056,    .23313,   1.26985,    .11512,    .04421,
     +     .02418,    .09014,    .14778,
     +     .45060,    .23178,   1.24243,    .11442,    .04532,
     +     .02577,    .09021,    .14672,
     +     .45035,    .23041,   1.21544,    .11367,    .04618,
     +     .02705,    .09013,    .14561 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .45001,    .22902,   1.18872,    .11289,    .04699,
     +     .02830,    .09001,    .14448,
     +     .44945,    .22760,   1.16192,    .11205,    .04766,
     +     .02937,    .08979,    .14327,
     +     .44883,    .22623,   1.13668,    .11122,    .04823,
     +     .03031,    .08953,    .14210,
     +     .44811,    .22489,   1.11278,    .11039,    .04868,
     +     .03111,    .08923,    .14094,
     +     .44728,    .22352,   1.08891,    .10953,    .04909,
     +     .03185,    .08889,    .13975,
     +     .44634,    .22213,   1.06542,    .10866,    .04942,
     +     .03251,    .08850,    .13853,
     +     .44538,    .22081,   1.04340,    .10781,    .04970,
     +     .03309,    .08810,    .13736,
     +     .44434,    .21951,   1.02248,    .10696,    .04989,
     +     .03356,    .08767,    .13620 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .44331,    .21822,   1.00196,    .10612,    .05009,
     +     .03404,    .08724,    .13505,
     +     .44209,    .21688,    .98144,    .10523,    .05019,
     +     .03441,    .08674,    .13385,
     +     .44094,    .21562,    .96237,    .10440,    .05029,
     +     .03476,    .08628,    .13272,
     +     .43978,    .21440,    .94442,    .10358,    .05035,
     +     .03506,    .08580,    .13162,
     +     .43853,    .21315,    .92638,    .10274,    .05037,
     +     .03531,    .08530,    .13050 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45451,    .25956,   1.03654,    .09356,    .00000,
     +     .00000,    .05872,    .13527,
     +     .45801,    .25950,   1.07673,    .09381,    .00001,
     +     .00000,    .05996,    .13538,
     +     .46279,    .25922,   1.12571,    .09418,    .00225,
     +     .00000,    .06177,    .13550,
     +     .46596,    .25888,   1.15286,    .09444,    .00525,
     +     .00000,    .06305,    .13552,
     +     .46887,    .25836,   1.17440,    .09468,    .00785,
     +     .00000,    .06431,    .13548,
     +     .47121,    .25783,   1.19009,    .09486,    .01011,
     +     .00000,    .06535,    .13540,
     +     .47319,    .25721,   1.20050,    .09500,    .01204,
     +     .00000,    .06629,    .13525,
     +     .47507,    .25647,   1.20819,    .09509,    .01408,
     +     .00000,    .06722,    .13503 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .47655,    .25577,   1.21246,    .09515,    .01580,
     +     .00000,    .06798,    .13480,
     +     .47774,    .25502,   1.21358,    .09517,    .01734,
     +     .00000,    .06865,    .13451,
     +     .47859,    .25439,   1.21326,    .09517,    .01853,
     +     .00000,    .06915,    .13426,
     +     .48008,    .25293,   1.20662,    .09509,    .02094,
     +     .00003,    .07010,    .13361,
     +     .48105,    .25156,   1.19543,    .09493,    .02289,
     +     .00191,    .07080,    .13296,
     +     .48181,    .24990,   1.17694,    .09464,    .02489,
     +     .00515,    .07145,    .13212,
     +     .48208,    .24804,   1.15415,    .09423,    .02672,
     +     .00743,    .07195,    .13108,
     +     .48202,    .24625,   1.13142,    .09376,    .02822,
     +     .00946,    .07227,    .13002 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .48171,    .24438,   1.10716,    .09322,    .02963,
     +     .01142,    .07249,    .12887,
     +     .48121,    .24276,   1.08575,    .09270,    .03067,
     +     .01286,    .07258,    .12785,
     +     .48033,    .24071,   1.05865,    .09200,    .03178,
     +     .01446,    .07259,    .12653,
     +     .47941,    .23887,   1.03446,    .09134,    .03270,
     +     .01582,    .07253,    .12531,
     +     .47832,    .23710,   1.01128,    .09065,    .03340,
     +     .01688,    .07237,    .12412,
     +     .47676,    .23482,    .98192,    .08974,    .03422,
     +     .01815,    .07211,    .12256,
     +     .47511,    .23266,    .95435,    .08886,    .03489,
     +     .01926,    .07181,    .12105,
     +     .47330,    .23054,    .92800,    .08795,    .03539,
     +     .02012,    .07142,    .11956 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .47142,    .22843,    .90224,    .08703,    .03585,
     +     .02096,    .07101,    .11807,
     +     .46936,    .22631,    .87693,    .08608,    .03620,
     +     .02165,    .07053,    .11656,
     +     .46732,    .22430,    .85340,    .08517,    .03648,
     +     .02226,    .07005,    .11511,
     +     .46527,    .22237,    .83141,    .08428,    .03669,
     +     .02277,    .06955,    .11373,
     +     .46313,    .22043,    .80971,    .08337,    .03686,
     +     .02323,    .06902,    .11233,
     +     .46092,    .21850,    .78862,    .08245,    .03697,
     +     .02363,    .06847,    .11093,
     +     .45878,    .21666,    .76902,    .08158,    .03705,
     +     .02397,    .06793,    .10960,
     +     .45663,    .21489,    .75063,    .08072,    .03708,
     +     .02424,    .06738,    .10832 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .45449,    .21313,    .73265,    .07988,    .03711,
     +     .02451,    .06684,    .10704,
     +     .45219,    .21134,    .71494,    .07901,    .03707,
     +     .02470,    .06626,    .10575,
     +     .45002,    .20966,    .69854,    .07819,    .03704,
     +     .02489,    .06571,    .10453,
     +     .44789,    .20805,    .68324,    .07741,    .03698,
     +     .02503,    .06517,    .10337,
     +     .44568,    .20641,    .66799,    .07660,    .03690,
     +     .02515,    .06461,    .10219 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .51363,    .27606,    .95264,    .07392,    .00000,
     +     .00000,    .04993,    .12062,
     +     .51556,    .27498,    .97819,    .07406,    .00001,
     +     .00000,    .05084,    .12014,
     +     .51792,    .27320,   1.00618,    .07425,    .00190,
     +     .00000,    .05212,    .11937,
     +     .51926,    .27177,   1.01886,    .07437,    .00441,
     +     .00000,    .05299,    .11873,
     +     .52022,    .27010,   1.02619,    .07442,    .00655,
     +     .00000,    .05381,    .11801,
     +     .52086,    .26859,   1.03003,    .07444,    .00838,
     +     .00000,    .05447,    .11734,
     +     .52118,    .26706,   1.02990,    .07441,    .00992,
     +     .00000,    .05503,    .11665,
     +     .52128,    .26535,   1.02708,    .07433,    .01153,
     +     .00000,    .05555,    .11586 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .52120,    .26380,   1.02274,    .07423,    .01287,
     +     .00000,    .05596,    .11515,
     +     .52089,    .26225,   1.01625,    .07410,    .01405,
     +     .00000,    .05629,    .11441,
     +     .52054,    .26100,   1.01023,    .07398,    .01496,
     +     .00000,    .05653,    .11380,
     +     .51946,    .25822,    .99291,    .07364,    .01675,
     +     .00003,    .05694,    .11242,
     +     .51822,    .25575,    .97402,    .07328,    .01818,
     +     .00146,    .05719,    .11116,
     +     .51649,    .25292,    .94870,    .07279,    .01962,
     +     .00391,    .05736,    .10968,
     +     .51422,    .24983,    .92032,    .07216,    .02089,
     +     .00560,    .05738,    .10804,
     +     .51185,    .24698,    .89365,    .07153,    .02192,
     +     .00708,    .05729,    .10649 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .50924,    .24406,    .86634,    .07083,    .02285,
     +     .00850,    .05712,    .10488,
     +     .50687,    .24159,    .84319,    .07021,    .02352,
     +     .00952,    .05692,    .10349,
     +     .50374,    .23855,    .81484,    .06939,    .02422,
     +     .01064,    .05659,    .10177,
     +     .50085,    .23587,    .79010,    .06865,    .02477,
     +     .01157,    .05626,    .10024,
     +     .49795,    .23336,    .76711,    .06792,    .02518,
     +     .01228,    .05588,    .09878,
     +     .49416,    .23017,    .73853,    .06696,    .02563,
     +     .01313,    .05536,    .09693,
     +     .49045,    .22717,    .71223,    .06603,    .02598,
     +     .01386,    .05483,    .09521,
     +     .48677,    .22429,    .68769,    .06511,    .02621,
     +     .01441,    .05426,    .09355 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .48304,    .22145,    .66398,    .06420,    .02642,
     +     .01493,    .05368,    .09190,
     +     .47919,    .21867,    .64114,    .06328,    .02654,
     +     .01535,    .05307,    .09025,
     +     .47551,    .21604,    .62017,    .06240,    .02662,
     +     .01571,    .05247,    .08871,
     +     .47196,    .21353,    .60084,    .06155,    .02666,
     +     .01600,    .05189,    .08726,
     +     .46834,    .21103,    .58195,    .06069,    .02667,
     +     .01626,    .05129,    .08581,
     +     .46470,    .20855,    .56381,    .05983,    .02664,
     +     .01647,    .05068,    .08439,
     +     .46121,    .20623,    .54710,    .05902,    .02660,
     +     .01665,    .05010,    .08305,
     +     .45780,    .20403,    .53161,    .05825,    .02652,
     +     .01677,    .04952,    .08177 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .45441,    .20185,    .51654,    .05749,    .02645,
     +     .01690,    .04896,    .08050,
     +     .45092,    .19965,    .50189,    .05671,    .02633,
     +     .01698,    .04836,    .07924,
     +     .44763,    .19759,    .48839,    .05599,    .02622,
     +     .01705,    .04780,    .07807,
     +     .44447,    .19563,    .47589,    .05529,    .02610,
     +     .01710,    .04726,    .07695,
     +     .44123,    .19365,    .46354,    .05459,    .02596,
     +     .01713,    .04672,    .07583 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .56120,    .28502,    .89447,    .05824,    .00000,
     +     .00000,    .04200,    .10522,
     +     .56122,    .28295,    .90750,    .05839,    .00001,
     +     .00000,    .04269,    .10435,
     +     .56073,    .27971,    .91793,    .05857,    .00163,
     +     .00000,    .04362,    .10300,
     +     .56000,    .27723,    .91881,    .05864,    .00375,
     +     .00000,    .04421,    .10198,
     +     .55877,    .27446,    .91484,    .05863,    .00553,
     +     .00000,    .04474,    .10084,
     +     .55750,    .27204,    .90944,    .05860,    .00703,
     +     .00000,    .04515,    .09983,
     +     .55597,    .26966,    .90129,    .05852,    .00828,
     +     .00000,    .04547,    .09880,
     +     .55411,    .26707,    .89064,    .05839,    .00956,
     +     .00000,    .04575,    .09768 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .55234,    .26479,    .88003,    .05825,    .01061,
     +     .00000,    .04595,    .09667,
     +     .55041,    .26252,    .86814,    .05807,    .01153,
     +     .00000,    .04608,    .09567,
     +     .54880,    .26071,    .85815,    .05791,    .01223,
     +     .00000,    .04615,    .09487,
     +     .54505,    .25677,    .83369,    .05748,    .01359,
     +     .00003,    .04624,    .09312,
     +     .54152,    .25334,    .80992,    .05705,    .01465,
     +     .00114,    .04622,    .09157,
     +     .53727,    .24948,    .78062,    .05650,    .01569,
     +     .00303,    .04609,    .08980,
     +     .53243,    .24536,    .74934,    .05583,    .01659,
     +     .00430,    .04585,    .08789,
     +     .52778,    .24163,    .72095,    .05518,    .01729,
     +     .00541,    .04554,    .08613 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .52291,    .23786,    .69264,    .05448,    .01791,
     +     .00645,    .04518,    .08433,
     +     .51871,    .23471,    .66925,    .05385,    .01834,
     +     .00719,    .04483,    .08283,
     +     .51343,    .23089,    .64125,    .05304,    .01877,
     +     .00798,    .04434,    .08099,
     +     .50868,    .22753,    .61721,    .05232,    .01909,
     +     .00864,    .04389,    .07938,
     +     .50413,    .22443,    .59538,    .05161,    .01931,
     +     .00913,    .04342,    .07788,
     +     .49829,    .22053,    .56860,    .05069,    .01955,
     +     .00971,    .04279,    .07601,
     +     .49274,    .21689,    .54431,    .04982,    .01971,
     +     .01019,    .04218,    .07427,
     +     .48734,    .21345,    .52210,    .04897,    .01979,
     +     .01054,    .04157,    .07262 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .48197,    .21007,    .50084,    .04813,    .01984,
     +     .01087,    .04095,    .07100,
     +     .47657,    .20676,    .48063,    .04729,    .01984,
     +     .01113,    .04031,    .06944,
     +     .47145,    .20367,    .46227,    .04650,    .01982,
     +     .01134,    .03970,    .06797,
     +     .46656,    .20079,    .44554,    .04576,    .01976,
     +     .01150,    .03911,    .06658,
     +     .46164,    .19791,    .42935,    .04500,    .01969,
     +     .01165,    .03852,    .06521,
     +     .45678,    .19507,    .41396,    .04425,    .01960,
     +     .01175,    .03793,    .06389,
     +     .45216,    .19242,    .39988,    .04354,    .01950,
     +     .01184,    .03737,    .06264,
     +     .44772,    .18991,    .38695,    .04287,    .01938,
     +     .01189,    .03683,    .06147 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .44330,    .18743,    .37443,    .04221,    .01927,
     +     .01194,    .03630,    .06032,
     +     .43883,    .18497,    .36238,    .04155,    .01912,
     +     .01196,    .03575,    .05918,
     +     .43463,    .18266,    .35132,    .04092,    .01898,
     +     .01198,    .03525,    .05811,
     +     .43062,    .18048,    .34114,    .04033,    .01884,
     +     .01198,    .03476,    .05711,
     +     .42654,    .17829,    .33115,    .03974,    .01869,
     +     .01196,    .03427,    .05612 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .59755,    .28790,    .84663,    .04613,    .00000,
     +     .00000,    .03492,    .08955,
     +     .59551,    .28491,    .84881,    .04632,    .00001,
     +     .00000,    .03544,    .08847,
     +     .59195,    .28035,    .84442,    .04653,    .00139,
     +     .00000,    .03613,    .08681,
     +     .58897,    .27696,    .83562,    .04662,    .00320,
     +     .00000,    .03653,    .08556,
     +     .58539,    .27326,    .82260,    .04662,    .00469,
     +     .00000,    .03686,    .08422,
     +     .58213,    .27005,    .81000,    .04659,    .00592,
     +     .00000,    .03709,    .08303,
     +     .57870,    .26692,    .79577,    .04652,    .00693,
     +     .00000,    .03726,    .08184,
     +     .57487,    .26357,    .77934,    .04638,    .00796,
     +     .00000,    .03737,    .08056 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57141,    .26063,    .76424,    .04622,    .00880,
     +     .00000,    .03743,    .07946,
     +     .56787,    .25776,    .74860,    .04602,    .00952,
     +     .00000,    .03743,    .07837,
     +     .56500,    .25548,    .73593,    .04585,    .01005,
     +     .00000,    .03741,    .07750,
     +     .55859,    .25059,    .70687,    .04542,    .01109,
     +     .00002,    .03729,    .07561,
     +     .55284,    .24638,    .68027,    .04498,    .01187,
     +     .00089,    .03712,    .07397,
     +     .54619,    .24168,    .64903,    .04444,    .01264,
     +     .00236,    .03684,    .07213,
     +     .53888,    .23677,    .61673,    .04380,    .01327,
     +     .00334,    .03646,    .07017,
     +     .53213,    .23233,    .58811,    .04316,    .01375,
     +     .00417,    .03606,    .06841 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .52522,    .22788,    .56014,    .04248,    .01415,
     +     .00494,    .03560,    .06664,
     +     .51934,    .22421,    .53749,    .04190,    .01442,
     +     .00549,    .03518,    .06518,
     +     .51210,    .21978,    .51082,    .04116,    .01467,
     +     .00606,    .03464,    .06341,
     +     .50571,    .21592,    .48824,    .04048,    .01486,
     +     .00653,    .03414,    .06186,
     +     .49968,    .21239,    .46805,    .03984,    .01496,
     +     .00687,    .03365,    .06045,
     +     .49204,    .20797,    .44359,    .03901,    .01506,
     +     .00726,    .03301,    .05870,
     +     .48487,    .20387,    .42170,    .03823,    .01511,
     +     .00758,    .03240,    .05708,
     +     .47799,    .20006,    .40197,    .03748,    .01510,
     +     .00781,    .03180,    .05557 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .47120,    .19632,    .38326,    .03673,    .01507,
     +     .00803,    .03121,    .05410,
     +     .46453,    .19266,    .36570,    .03598,    .01501,
     +     .00818,    .03061,    .05268,
     +     .45823,    .18926,    .34987,    .03528,    .01493,
     +     .00830,    .03004,    .05137,
     +     .45228,    .18610,    .33559,    .03462,    .01484,
     +     .00839,    .02950,    .05015,
     +     .44631,    .18297,    .32187,    .03397,    .01473,
     +     .00847,    .02896,    .04895,
     +     .44042,    .17994,    .30893,    .03334,    .01461,
     +     .00851,    .02842,    .04778,
     +     .43488,    .17710,    .29718,    .03274,    .01449,
     +     .00855,    .02791,    .04669,
     +     .42965,    .17441,    .28648,    .03215,    .01436,
     +     .00856,    .02743,    .04567 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42446,    .17175,    .27615,    .03158,    .01422,
     +     .00857,    .02696,    .04468,
     +     .41923,    .16913,    .26631,    .03102,    .01408,
     +     .00856,    .02649,    .04371,
     +     .41432,    .16668,    .25731,    .03050,    .01394,
     +     .00855,    .02604,    .04281,
     +     .40968,    .16438,    .24908,    .03000,    .01380,
     +     .00853,    .02562,    .04196,
     +     .40499,    .16207,    .24105,    .02950,    .01365,
     +     .00850,    .02520,    .04112 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .62324,    .28586,    .80090,    .03700,    .00000,
     +     .00000,    .02867,    .07420,
     +     .61905,    .28206,    .79381,    .03722,    .00001,
     +     .00000,    .02909,    .07306,
     +     .61237,    .27635,    .77712,    .03744,    .00119,
     +     .00000,    .02960,    .07133,
     +     .60716,    .27213,    .76055,    .03752,    .00272,
     +     .00000,    .02989,    .07005,
     +     .60126,    .26762,    .74049,    .03753,    .00396,
     +     .00000,    .03008,    .06865,
     +     .59603,    .26373,    .72245,    .03750,    .00498,
     +     .00000,    .03021,    .06744,
     +     .59079,    .25996,    .70378,    .03740,    .00580,
     +     .00000,    .03027,    .06625,
     +     .58505,    .25596,    .68328,    .03725,    .00662,
     +     .00000,    .03028,    .06499 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .57995,    .25250,    .66513,    .03709,    .00728,
     +     .00000,    .03026,    .06388,
     +     .57486,    .24914,    .64707,    .03690,    .00784,
     +     .00000,    .03019,    .06280,
     +     .57079,    .24648,    .63273,    .03673,    .00826,
     +     .00000,    .03011,    .06195,
     +     .56192,    .24082,    .60112,    .03629,    .00904,
     +     .00002,    .02989,    .06012,
     +     .55412,    .23598,    .57325,    .03587,    .00963,
     +     .00070,    .02965,    .05855,
     +     .54525,    .23063,    .54156,    .03534,    .01018,
     +     .00185,    .02930,    .05680,
     +     .53581,    .22506,    .50955,    .03471,    .01061,
     +     .00260,    .02886,    .05499,
     +     .52713,    .22009,    .48181,    .03411,    .01093,
     +     .00323,    .02842,    .05335 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .51836,    .21517,    .45511,    .03349,    .01119,
     +     .00381,    .02794,    .05172,
     +     .51104,    .21113,    .43376,    .03295,    .01135,
     +     .00420,    .02753,    .05037,
     +     .50212,    .20626,    .40904,    .03225,    .01149,
     +     .00462,    .02699,    .04879,
     +     .49430,    .20204,    .38835,    .03163,    .01158,
     +     .00495,    .02651,    .04742,
     +     .48705,    .19820,    .37012,    .03104,    .01161,
     +     .00519,    .02604,    .04618,
     +     .47792,    .19344,    .34825,    .03030,    .01163,
     +     .00546,    .02543,    .04463,
     +     .46938,    .18906,    .32889,    .02961,    .01161,
     +     .00568,    .02486,    .04320,
     +     .46135,    .18498,    .31164,    .02894,    .01155,
     +     .00582,    .02431,    .04190 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45346,    .18101,    .29541,    .02828,    .01148,
     +     .00595,    .02377,    .04063,
     +     .44572,    .17717,    .28035,    .02762,    .01139,
     +     .00604,    .02325,    .03941,
     +     .43846,    .17361,    .26689,    .02702,    .01129,
     +     .00611,    .02275,    .03829,
     +     .43165,    .17031,    .25483,    .02647,    .01118,
     +     .00616,    .02227,    .03725,
     +     .42488,    .16705,    .24333,    .02591,    .01106,
     +     .00619,    .02179,    .03623,
     +     .41827,    .16388,    .23257,    .02536,    .01093,
     +     .00621,    .02132,    .03525,
     +     .41206,    .16093,    .22284,    .02484,    .01081,
     +     .00621,    .02089,    .03435,
     +     .40618,    .15817,    .21405,    .02436,    .01068,
     +     .00621,    .02048,    .03352 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40038,    .15545,    .20559,    .02388,    .01055,
     +     .00620,    .02007,    .03270,
     +     .39461,    .15278,    .19763,    .02340,    .01041,
     +     .00617,    .01967,    .03189,
     +     .38921,    .15028,    .19037,    .02296,    .01028,
     +     .00615,    .01929,    .03114,
     +     .38412,    .14795,    .18375,    .02255,    .01016,
     +     .00612,    .01894,    .03045,
     +     .37899,    .14561,    .17731,    .02213,    .01003,
     +     .00608,    .01858,    .02978 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .63889,    .27985,    .75325,    .03017,    .00000,
     +     .00000,    .02327,    .05981,
     +     .63261,    .27535,    .73852,    .03037,    .00001,
     +     .00000,    .02361,    .05873,
     +     .62289,    .26864,    .71204,    .03056,    .00101,
     +     .00000,    .02400,    .05711,
     +     .61554,    .26373,    .68952,    .03063,    .00230,
     +     .00000,    .02420,    .05591,
     +     .60744,    .25853,    .66431,    .03061,    .00333,
     +     .00000,    .02432,    .05459,
     +     .60035,    .25409,    .64242,    .03056,    .00416,
     +     .00000,    .02439,    .05346,
     +     .59337,    .24983,    .62075,    .03045,    .00482,
     +     .00000,    .02439,    .05236,
     +     .58586,    .24532,    .59764,    .03028,    .00548,
     +     .00000,    .02434,    .05119 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .57927,    .24142,    .57765,    .03010,    .00600,
     +     .00000,    .02427,    .05018,
     +     .57280,    .23766,    .55827,    .02989,    .00644,
     +     .00000,    .02416,    .04920,
     +     .56765,    .23472,    .54312,    .02971,    .00676,
     +     .00000,    .02406,    .04843,
     +     .55654,    .22847,    .51056,    .02928,    .00734,
     +     .00002,    .02378,    .04679,
     +     .54689,    .22317,    .48262,    .02887,    .00777,
     +     .00055,    .02350,    .04538,
     +     .53606,    .21737,    .45166,    .02838,    .00817,
     +     .00144,    .02313,    .04381,
     +     .52470,    .21136,    .42103,    .02777,    .00847,
     +     .00202,    .02269,    .04222,
     +     .51440,    .20603,    .39483,    .02721,    .00867,
     +     .00250,    .02227,    .04078 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50409,    .20077,    .36997,    .02663,    .00883,
     +     .00293,    .02182,    .03936,
     +     .49556,    .19645,    .35041,    .02612,    .00892,
     +     .00322,    .02142,    .03822,
     +     .48526,    .19133,    .32798,    .02548,    .00898,
     +     .00352,    .02092,    .03686,
     +     .47628,    .18691,    .30938,    .02492,    .00901,
     +     .00376,    .02047,    .03568,
     +     .46802,    .18290,    .29319,    .02440,    .00900,
     +     .00392,    .02004,    .03463,
     +     .45768,    .17794,    .27396,    .02374,    .00897,
     +     .00411,    .01950,    .03333,
     +     .44808,    .17340,    .25710,    .02314,    .00892,
     +     .00425,    .01900,    .03213,
     +     .43917,    .16918,    .24228,    .02253,    .00884,
     +     .00434,    .01852,    .03105 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43043,    .16509,    .22842,    .02194,    .00875,
     +     .00442,    .01805,    .03001,
     +     .42188,    .16120,    .21566,    .02140,    .00864,
     +     .00447,    .01759,    .02899,
     +     .41392,    .15759,    .20435,    .02089,    .00853,
     +     .00451,    .01715,    .02806,
     +     .40650,    .15425,    .19432,    .02040,    .00842,
     +     .00453,    .01675,    .02723,
     +     .39917,    .15095,    .18479,    .01991,    .00831,
     +     .00454,    .01634,    .02642,
     +     .39206,    .14775,    .17592,    .01943,    .00819,
     +     .00454,    .01595,    .02563,
     +     .38539,    .14478,    .16794,    .01899,    .00807,
     +     .00453,    .01558,    .02491,
     +     .37910,    .14202,    .16077,    .01857,    .00795,
     +     .00451,    .01524,    .02425 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37291,    .13931,    .15389,    .01816,    .00784,
     +     .00449,    .01490,    .02360,
     +     .36679,    .13665,    .14748,    .01777,    .00771,
     +     .00446,    .01456,    .02297,
     +     .36108,    .13418,    .14164,    .01740,    .00760,
     +     .00444,    .01425,    .02238,
     +     .35571,    .13186,    .13636,    .01705,    .00749,
     +     .00440,    .01396,    .02184,
     +     .35034,    .12954,    .13125,    .01670,    .00738,
     +     .00437,    .01367,    .02129 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64529,    .27060,    .70217,    .02498,    .00000,
     +     .00000,    .01867,    .04692,
     +     .63699,    .26555,    .68149,    .02516,    .00001,
     +     .00000,    .01895,    .04595,
     +     .62439,    .25807,    .64770,    .02532,    .00085,
     +     .00000,    .01926,    .04449,
     +     .61505,    .25262,    .62095,    .02535,    .00193,
     +     .00000,    .01939,    .04344,
     +     .60489,    .24692,    .59227,    .02531,    .00278,
     +     .00000,    .01945,    .04229,
     +     .59612,    .24206,    .56795,    .02523,    .00346,
     +     .00000,    .01946,    .04131,
     +     .58760,    .23740,    .54457,    .02509,    .00399,
     +     .00000,    .01942,    .04036,
     +     .57850,    .23250,    .52014,    .02490,    .00451,
     +     .00000,    .01934,    .03935 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57058,    .22830,    .49935,    .02471,    .00491,
     +     .00000,    .01926,    .03847,
     +     .56285,    .22428,    .47958,    .02450,    .00525,
     +     .00000,    .01913,    .03762,
     +     .55675,    .22112,    .46430,    .02433,    .00549,
     +     .00000,    .01902,    .03696,
     +     .54370,    .21448,    .43209,    .02389,    .00594,
     +     .00002,    .01873,    .03556,
     +     .53251,    .20887,    .40504,    .02347,    .00625,
     +     .00043,    .01845,    .03436,
     +     .52007,    .20273,    .37564,    .02299,    .00653,
     +     .00112,    .01809,    .03304,
     +     .50714,    .19645,    .34703,    .02242,    .00673,
     +     .00157,    .01768,    .03170,
     +     .49550,    .19091,    .32289,    .02189,    .00685,
     +     .00193,    .01728,    .03051 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48395,    .18546,    .30026,    .02135,    .00694,
     +     .00225,    .01686,    .02933,
     +     .47446,    .18102,    .28267,    .02087,    .00699,
     +     .00246,    .01651,    .02839,
     +     .46307,    .17575,    .26269,    .02030,    .00700,
     +     .00268,    .01606,    .02728,
     +     .45320,    .17123,    .24629,    .01980,    .00699,
     +     .00285,    .01566,    .02633,
     +     .44417,    .16716,    .23219,    .01932,    .00696,
     +     .00296,    .01529,    .02546,
     +     .43295,    .16215,    .21556,    .01874,    .00690,
     +     .00309,    .01483,    .02440,
     +     .42260,    .15758,    .20110,    .01820,    .00683,
     +     .00318,    .01440,    .02345,
     +     .41301,    .15336,    .18850,    .01769,    .00675,
     +     .00324,    .01399,    .02258 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40367,    .14928,    .17680,    .01719,    .00665,
     +     .00329,    .01359,    .02174,
     +     .39463,    .14536,    .16615,    .01669,    .00655,
     +     .00331,    .01321,    .02094,
     +     .38625,    .14176,    .15674,    .01623,    .00645,
     +     .00333,    .01284,    .02022,
     +     .37846,    .13844,    .14844,    .01582,    .00635,
     +     .00333,    .01249,    .01957,
     +     .37077,    .13519,    .14060,    .01541,    .00624,
     +     .00333,    .01216,    .01893,
     +     .36329,    .13208,    .13335,    .01501,    .00613,
     +     .00332,    .01184,    .01832,
     +     .35634,    .12919,    .12688,    .01463,    .00603,
     +     .00330,    .01154,    .01775,
     +     .34986,    .12646,    .12112,    .01428,    .00592,
     +     .00328,    .01125,    .01724 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34349,    .12379,    .11561,    .01393,    .00582,
     +     .00326,    .01098,    .01675,
     +     .33718,    .12121,    .11046,    .01360,    .00572,
     +     .00323,    .01071,    .01625,
     +     .33130,    .11882,    .10579,    .01329,    .00562,
     +     .00321,    .01046,    .01579,
     +     .32579,    .11657,    .10159,    .01300,    .00553,
     +     .00318,    .01022,    .01537,
     +     .32029,    .11434,    .09756,    .01272,    .00543,
     +     .00315,    .00999,    .01496 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64295,    .25918,    .64784,    .02125,    .00000,
     +     .00000,    .01463,    .03554,
     +     .63286,    .25365,    .62276,    .02135,    .00001,
     +     .00000,    .01488,    .03477,
     +     .61773,    .24551,    .58389,    .02139,    .00072,
     +     .00000,    .01513,    .03362,
     +     .60661,    .23966,    .55452,    .02135,    .00161,
     +     .00000,    .01523,    .03278,
     +     .59469,    .23356,    .52387,    .02124,    .00231,
     +     .00000,    .01528,    .03183,
     +     .58445,    .22838,    .49835,    .02111,    .00286,
     +     .00000,    .01528,    .03103,
     +     .57458,    .22344,    .47435,    .02093,    .00328,
     +     .00000,    .01523,    .03026,
     +     .56412,    .21829,    .44964,    .02071,    .00369,
     +     .00000,    .01514,    .02943 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .55506,    .21390,    .42889,    .02052,    .00401,
     +     .00000,    .01505,    .02871,
     +     .54631,    .20968,    .40941,    .02029,    .00426,
     +     .00000,    .01493,    .02802,
     +     .53942,    .20638,    .39449,    .02010,    .00445,
     +     .00000,    .01482,    .02748,
     +     .52483,    .19945,    .36357,    .01964,    .00477,
     +     .00001,    .01456,    .02636,
     +     .51240,    .19364,    .33808,    .01921,    .00500,
     +     .00034,    .01430,    .02540,
     +     .49864,    .18735,    .31084,    .01873,    .00519,
     +     .00088,    .01398,    .02434,
     +     .48444,    .18096,    .28471,    .01821,    .00532,
     +     .00121,    .01360,    .02325,
     +     .47182,    .17529,    .26295,    .01771,    .00540,
     +     .00149,    .01326,    .02230 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45934,    .16976,    .24276,    .01720,    .00544,
     +     .00172,    .01291,    .02138,
     +     .44911,    .16532,    .22722,    .01677,    .00545,
     +     .00188,    .01260,    .02063,
     +     .43693,    .16006,    .20975,    .01627,    .00543,
     +     .00204,    .01221,    .01973,
     +     .42642,    .15556,    .19551,    .01582,    .00541,
     +     .00216,    .01187,    .01896,
     +     .41690,    .15148,    .18337,    .01538,    .00536,
     +     .00223,    .01156,    .01831,
     +     .40511,    .14650,    .16918,    .01485,    .00529,
     +     .00232,    .01117,    .01750,
     +     .39428,    .14198,    .15697,    .01437,    .00522,
     +     .00238,    .01081,    .01676,
     +     .38430,    .13783,    .14640,    .01392,    .00513,
     +     .00241,    .01048,    .01609 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37460,    .13382,    .13666,    .01349,    .00505,
     +     .00244,    .01015,    .01545,
     +     .36526,    .12999,    .12784,    .01307,    .00495,
     +     .00245,    .00982,    .01485,
     +     .35664,    .12648,    .12011,    .01267,    .00486,
     +     .00245,    .00953,    .01430,
     +     .34867,    .12326,    .11333,    .01230,    .00477,
     +     .00245,    .00926,    .01380,
     +     .34082,    .12011,    .10697,    .01194,    .00467,
     +     .00244,    .00899,    .01332,
     +     .33323,    .11709,    .10111,    .01160,    .00458,
     +     .00243,    .00872,    .01286,
     +     .32619,    .11430,    .09590,    .01128,    .00449,
     +     .00241,    .00848,    .01244,
     +     .31963,    .11170,    .09128,    .01098,    .00440,
     +     .00239,    .00826,    .01204 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .31319,    .10917,    .08687,    .01069,    .00432,
     +     .00237,    .00805,    .01165,
     +     .30687,    .10669,    .08279,    .01042,    .00423,
     +     .00234,    .00784,    .01129,
     +     .30099,    .10439,    .07911,    .01017,    .00415,
     +     .00232,    .00764,    .01096,
     +     .29550,    .10226,    .07580,    .00993,    .00407,
     +     .00229,    .00745,    .01065,
     +     .29001,    .10013,    .07262,    .00970,    .00399,
     +     .00226,    .00727,    .01035 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .63335,    .24535,    .59048,    .01786,    .00000,
     +     .00000,    .01149,    .02630,
     +     .62162,    .23952,    .56254,    .01792,    .00001,
     +     .00000,    .01169,    .02571,
     +     .60419,    .23101,    .52071,    .01791,    .00059,
     +     .00000,    .01189,    .02480,
     +     .59150,    .22489,    .49011,    .01783,    .00132,
     +     .00000,    .01197,    .02413,
     +     .57807,    .21851,    .45886,    .01767,    .00189,
     +     .00000,    .01199,    .02342,
     +     .56659,    .21313,    .43318,    .01751,    .00233,
     +     .00000,    .01197,    .02280,
     +     .55556,    .20806,    .40939,    .01733,    .00266,
     +     .00000,    .01190,    .02219,
     +     .54397,    .20276,    .38523,    .01710,    .00298,
     +     .00000,    .01181,    .02154 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .53402,    .19824,    .36519,    .01688,    .00322,
     +     .00000,    .01172,    .02099,
     +     .52442,    .19393,    .34660,    .01665,    .00342,
     +     .00000,    .01161,    .02045,
     +     .51689,    .19059,    .33248,    .01646,    .00355,
     +     .00000,    .01152,    .02002,
     +     .50100,    .18361,    .30359,    .01603,    .00379,
     +     .00001,    .01128,    .01913,
     +     .48756,    .17776,    .28014,    .01564,    .00395,
     +     .00026,    .01104,    .01839,
     +     .47286,    .17142,    .25547,    .01518,    .00408,
     +     .00067,    .01074,    .01758,
     +     .45778,    .16500,    .23205,    .01468,    .00416,
     +     .00093,    .01043,    .01673,
     +     .44444,    .15938,    .21278,    .01421,    .00420,
     +     .00113,    .01012,    .01601 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43132,    .15392,    .19507,    .01373,    .00421,
     +     .00131,    .00980,    .01531,
     +     .42066,    .14952,    .18154,    .01334,    .00421,
     +     .00142,    .00954,    .01472,
     +     .40797,    .14433,    .16651,    .01289,    .00418,
     +     .00153,    .00922,    .01404,
     +     .39707,    .13990,    .15438,    .01251,    .00414,
     +     .00162,    .00894,    .01347,
     +     .38723,    .13595,    .14410,    .01214,    .00409,
     +     .00167,    .00869,    .01296,
     +     .37512,    .13110,    .13216,    .01168,    .00403,
     +     .00172,    .00837,    .01234,
     +     .36409,    .12670,    .12195,    .01125,    .00395,
     +     .00176,    .00808,    .01179,
     +     .35392,    .12271,    .11322,    .01087,    .00387,
     +     .00178,    .00780,    .01128 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34407,    .11886,    .10521,    .01049,    .00380,
     +     .00180,    .00753,    .01080,
     +     .33462,    .11520,    .09801,    .01014,    .00371,
     +     .00180,    .00728,    .01035,
     +     .32595,    .11185,    .09172,    .00980,    .00363,
     +     .00180,    .00704,    .00994,
     +     .31800,    .10877,    .08624,    .00949,    .00355,
     +     .00179,    .00681,    .00957,
     +     .31017,    .10577,    .08112,    .00919,    .00347,
     +     .00178,    .00659,    .00922,
     +     .30260,    .10291,    .07645,    .00891,    .00339,
     +     .00176,    .00639,    .00888,
     +     .29560,    .10026,    .07230,    .00865,    .00332,
     +     .00174,    .00620,    .00857,
     +     .28912,    .09780,    .06863,    .00840,    .00325,
     +     .00173,    .00603,    .00828 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .28277,    .09540,    .06514,    .00816,    .00318,
     +     .00171,    .00586,    .00800,
     +     .27654,    .09308,    .06193,    .00793,    .00311,
     +     .00168,    .00568,    .00773,
     +     .27077,    .09094,    .05904,    .00772,    .00304,
     +     .00166,    .00552,    .00748,
     +     .26538,    .08894,    .05645,    .00753,    .00298,
     +     .00164,    .00538,    .00725,
     +     .26003,    .08696,    .05397,    .00733,    .00291,
     +     .00162,    .00525,    .00703 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .61691,    .23028,    .53173,    .01513,    .00000,
     +     .00000,    .00885,    .01878,
     +     .60381,    .22423,    .50226,    .01513,    .00001,
     +     .00000,    .00902,    .01837,
     +     .58448,    .21544,    .45928,    .01504,    .00048,
     +     .00000,    .00918,    .01774,
     +     .57049,    .20919,    .42861,    .01492,    .00108,
     +     .00000,    .00924,    .01727,
     +     .55581,    .20270,    .39784,    .01472,    .00153,
     +     .00000,    .00925,    .01674,
     +     .54334,    .19724,    .37285,    .01454,    .00188,
     +     .00000,    .00923,    .01628,
     +     .53145,    .19209,    .34999,    .01434,    .00214,
     +     .00000,    .00918,    .01583,
     +     .51898,    .18675,    .32704,    .01411,    .00239,
     +     .00000,    .00909,    .01534 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .50830,    .18222,    .30820,    .01389,    .00257,
     +     .00000,    .00900,    .01493,
     +     .49810,    .17791,    .29089,    .01365,    .00272,
     +     .00000,    .00890,    .01454,
     +     .49012,    .17454,    .27783,    .01346,    .00282,
     +     .00000,    .00881,    .01423,
     +     .47335,    .16759,    .25146,    .01303,    .00299,
     +     .00001,    .00861,    .01356,
     +     .45925,    .16180,    .23033,    .01265,    .00310,
     +     .00020,    .00841,    .01299,
     +     .44390,    .15550,    .20834,    .01221,    .00319,
     +     .00051,    .00816,    .01241,
     +     .42824,    .14922,    .18777,    .01176,    .00323,
     +     .00071,    .00789,    .01178,
     +     .41444,    .14374,    .17100,    .01135,    .00325,
     +     .00086,    .00763,    .01123 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40095,    .13841,    .15573,    .01094,    .00324,
     +     .00098,    .00737,    .01070,
     +     .39005,    .13412,    .14418,    .01060,    .00322,
     +     .00107,    .00717,    .01026,
     +     .37715,    .12911,    .13145,    .01018,    .00319,
     +     .00115,    .00691,    .00977,
     +     .36611,    .12485,    .12122,    .00983,    .00315,
     +     .00120,    .00668,    .00937,
     +     .35619,    .12104,    .11261,    .00950,    .00310,
     +     .00124,    .00646,    .00899,
     +     .34401,    .11639,    .10269,    .00911,    .00304,
     +     .00128,    .00620,    .00854,
     +     .33294,    .11220,    .09429,    .00875,    .00297,
     +     .00130,    .00597,    .00813,
     +     .32282,    .10840,    .08715,    .00842,    .00290,
     +     .00131,    .00574,    .00777 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .31306,    .10475,    .08063,    .00810,    .00284,
     +     .00131,    .00553,    .00742,
     +     .30373,    .10128,    .07482,    .00780,    .00276,
     +     .00131,    .00532,    .00708,
     +     .29518,    .09812,    .06977,    .00752,    .00270,
     +     .00131,    .00513,    .00679,
     +     .28733,    .09523,    .06537,    .00726,    .00263,
     +     .00130,    .00496,    .00653,
     +     .27964,    .09241,    .06130,    .00702,    .00257,
     +     .00129,    .00479,    .00628,
     +     .27226,    .08973,    .05760,    .00678,    .00250,
     +     .00127,    .00464,    .00603,
     +     .26544,    .08726,    .05433,    .00657,    .00244,
     +     .00126,    .00450,    .00581,
     +     .25913,    .08498,    .05145,    .00638,    .00238,
     +     .00124,    .00436,    .00559 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .25295,    .08276,    .04872,    .00620,    .00233,
     +     .00123,    .00423,    .00538,
     +     .24693,    .08060,    .04622,    .00600,    .00227,
     +     .00121,    .00409,    .00520,
     +     .24136,    .07861,    .04396,    .00583,    .00222,
     +     .00119,    .00397,    .00503,
     +     .23618,    .07676,    .04195,    .00566,    .00217,
     +     .00117,    .00386,    .00488,
     +     .23104,    .07493,    .04005,    .00550,    .00212,
     +     .00115,    .00375,    .00473 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .59464,    .21416,    .47263,    .01268,    .00000,
     +     .00000,    .00675,    .01298,
     +     .58043,    .20802,    .44285,    .01262,    .00001,
     +     .00000,    .00689,    .01273,
     +     .55962,    .19911,    .40030,    .01246,    .00039,
     +     .00000,    .00704,    .01234,
     +     .54465,    .19281,    .37052,    .01232,    .00087,
     +     .00000,    .00709,    .01201,
     +     .52903,    .18633,    .34106,    .01211,    .00123,
     +     .00000,    .00709,    .01163,
     +     .51581,    .18088,    .31739,    .01191,    .00150,
     +     .00000,    .00707,    .01131,
     +     .50329,    .17575,    .29601,    .01170,    .00170,
     +     .00000,    .00701,    .01099,
     +     .49021,    .17045,    .27476,    .01147,    .00189,
     +     .00000,    .00694,    .01065 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .47904,    .16597,    .25746,    .01125,    .00203,
     +     .00000,    .00687,    .01036,
     +     .46842,    .16173,    .24172,    .01102,    .00213,
     +     .00000,    .00677,    .01009,
     +     .46015,    .15845,    .22993,    .01083,    .00221,
     +     .00000,    .00669,    .00988,
     +     .44283,    .15163,    .20630,    .01043,    .00233,
     +     .00001,    .00651,    .00940,
     +     .42833,    .14597,    .18761,    .01010,    .00241,
     +     .00015,    .00634,    .00900,
     +     .41261,    .13986,    .16843,    .00971,    .00246,
     +     .00039,    .00615,    .00857,
     +     .39670,    .13378,    .15064,    .00931,    .00248,
     +     .00053,    .00592,    .00810,
     +     .38277,    .12849,    .13629,    .00894,    .00248,
     +     .00064,    .00571,    .00772 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36919,    .12338,    .12333,    .00857,    .00247,
     +     .00073,    .00550,    .00735,
     +     .35822,    .11930,    .11359,    .00827,    .00245,
     +     .00079,    .00532,    .00705,
     +     .34533,    .11452,    .10293,    .00793,    .00241,
     +     .00085,    .00511,    .00668,
     +     .33435,    .11047,    .09444,    .00765,    .00237,
     +     .00089,    .00493,    .00636,
     +     .32452,    .10685,    .08738,    .00738,    .00233,
     +     .00091,    .00477,    .00611,
     +     .31250,    .10245,    .07927,    .00704,    .00227,
     +     .00094,    .00456,    .00580,
     +     .30164,    .09851,    .07242,    .00671,    .00222,
     +     .00095,    .00437,    .00551,
     +     .29171,    .09494,    .06666,    .00645,    .00216,
     +     .00095,    .00419,    .00525 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .28215,    .09153,    .06143,    .00620,    .00210,
     +     .00096,    .00402,    .00500,
     +     .27307,    .08831,    .05679,    .00595,    .00204,
     +     .00095,    .00387,    .00476,
     +     .26477,    .08537,    .05278,    .00573,    .00199,
     +     .00095,    .00373,    .00455,
     +     .25718,    .08268,    .04932,    .00551,    .00193,
     +     .00094,    .00359,    .00437,
     +     .24978,    .08008,    .04611,    .00530,    .00188,
     +     .00093,    .00347,    .00420,
     +     .24270,    .07760,    .04319,    .00511,    .00183,
     +     .00091,    .00334,    .00403,
     +     .23618,    .07533,    .04063,    .00493,    .00178,
     +     .00090,    .00323,    .00387,
     +     .23015,    .07322,    .03839,    .00476,    .00174,
     +     .00089,    .00312,    .00373 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .22427,    .07118,    .03627,    .00459,    .00169,
     +     .00088,    .00302,    .00360,
     +     .21853,    .06921,    .03434,    .00446,    .00165,
     +     .00086,    .00292,    .00346,
     +     .21322,    .06739,    .03261,    .00433,    .00161,
     +     .00085,    .00283,    .00334,
     +     .20831,    .06571,    .03106,    .00421,    .00157,
     +     .00083,    .00274,    .00323,
     +     .20345,    .06406,    .02960,    .00408,    .00153,
     +     .00082,    .00266,    .00312 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .56748,    .19735,    .41459,    .01040,    .00000,
     +     .00000,    .00511,    .00870,
     +     .55244,    .19123,    .38548,    .01032,    .00000,
     +     .00000,    .00524,    .00855,
     +     .53052,    .18240,    .34459,    .01016,    .00031,
     +     .00000,    .00535,    .00831,
     +     .51484,    .17616,    .31647,    .01000,    .00069,
     +     .00000,    .00537,    .00813,
     +     .49861,    .16975,    .28898,    .00977,    .00097,
     +     .00000,    .00537,    .00790,
     +     .48493,    .16440,    .26712,    .00957,    .00118,
     +     .00000,    .00536,    .00768,
     +     .47196,    .15940,    .24758,    .00939,    .00133,
     +     .00000,    .00533,    .00745,
     +     .45851,    .15424,    .22832,    .00917,    .00148,
     +     .00000,    .00526,    .00723 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44709,    .14988,    .21275,    .00895,    .00158,
     +     .00000,    .00519,    .00705,
     +     .43624,    .14575,    .19871,    .00875,    .00166,
     +     .00000,    .00511,    .00685,
     +     .42782,    .14257,    .18826,    .00860,    .00171,
     +     .00000,    .00505,    .00669,
     +     .41025,    .13598,    .16753,    .00824,    .00179,
     +     .00001,    .00490,    .00637,
     +     .39563,    .13054,    .15130,    .00793,    .00185,
     +     .00011,    .00476,    .00610,
     +     .37987,    .12470,    .13481,    .00758,    .00188,
     +     .00029,    .00459,    .00582,
     +     .36400,    .11890,    .11967,    .00721,    .00188,
     +     .00040,    .00441,    .00551,
     +     .35014,    .11388,    .10758,    .00691,    .00188,
     +     .00048,    .00425,    .00522 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33668,    .10905,    .09676,    .00662,    .00186,
     +     .00054,    .00408,    .00494,
     +     .32587,    .10519,    .08871,    .00637,    .00184,
     +     .00059,    .00393,    .00475,
     +     .31321,    .10069,    .07994,    .00608,    .00180,
     +     .00062,    .00375,    .00449,
     +     .30245,    .09690,    .07299,    .00583,    .00177,
     +     .00065,    .00361,    .00427,
     +     .29287,    .09353,    .06725,    .00561,    .00173,
     +     .00067,    .00348,    .00409,
     +     .28120,    .08944,    .06069,    .00533,    .00168,
     +     .00068,    .00332,    .00388,
     +     .27069,    .08577,    .05518,    .00507,    .00163,
     +     .00069,    .00317,    .00368,
     +     .26113,    .08246,    .05059,    .00484,    .00159,
     +     .00069,    .00304,    .00350 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .25197,    .07931,    .04643,    .00463,    .00154,
     +     .00069,    .00291,    .00332,
     +     .24328,    .07633,    .04277,    .00443,    .00149,
     +     .00068,    .00279,    .00316,
     +     .23536,    .07364,    .03962,    .00425,    .00145,
     +     .00068,    .00268,    .00301,
     +     .22812,    .07119,    .03692,    .00409,    .00141,
     +     .00067,    .00258,    .00288,
     +     .22107,    .06881,    .03442,    .00393,    .00136,
     +     .00066,    .00248,    .00276,
     +     .21435,    .06655,    .03217,    .00378,    .00132,
     +     .00065,    .00238,    .00265,
     +     .20818,    .06447,    .03020,    .00364,    .00129,
     +     .00064,    .00230,    .00255,
     +     .20249,    .06257,    .02847,    .00351,    .00125,
     +     .00063,    .00222,    .00245 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .19695,    .06072,    .02685,    .00338,    .00122,
     +     .00062,    .00214,    .00236,
     +     .19159,    .05894,    .02537,    .00326,    .00118,
     +     .00061,    .00207,    .00227,
     +     .18665,    .05729,    .02405,    .00315,    .00115,
     +     .00060,    .00200,    .00218,
     +     .18206,    .05578,    .02287,    .00306,    .00112,
     +     .00059,    .00194,    .00211,
     +     .17752,    .05429,    .02176,    .00297,    .00109,
     +     .00058,    .00188,    .00203 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .53621,    .18044,    .35887,    .00852,    .00000,
     +     .00000,    .00375,    .00554,
     +     .52060,    .17441,    .33123,    .00842,    .00000,
     +     .00000,    .00385,    .00550,
     +     .49799,    .16578,    .29298,    .00822,    .00025,
     +     .00000,    .00395,    .00539,
     +     .48194,    .15968,    .26702,    .00803,    .00054,
     +     .00000,    .00399,    .00530,
     +     .46535,    .15345,    .24193,    .00782,    .00076,
     +     .00000,    .00398,    .00517,
     +     .45142,    .14826,    .22217,    .00764,    .00092,
     +     .00000,    .00396,    .00506,
     +     .43832,    .14342,    .20467,    .00744,    .00104,
     +     .00000,    .00392,    .00494,
     +     .42474,    .13845,    .18758,    .00724,    .00114,
     +     .00000,    .00387,    .00480 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41323,    .13426,    .17388,    .00706,    .00122,
     +     .00000,    .00383,    .00466,
     +     .40236,    .13032,    .16160,    .00689,    .00127,
     +     .00000,    .00377,    .00453,
     +     .39393,    .12728,    .15250,    .00675,    .00131,
     +     .00000,    .00371,    .00443,
     +     .37649,    .12100,    .13462,    .00644,    .00137,
     +     .00001,    .00360,    .00422,
     +     .36202,    .11583,    .12077,    .00617,    .00140,
     +     .00009,    .00349,    .00403,
     +     .34645,    .11033,    .10686,    .00587,    .00142,
     +     .00022,    .00334,    .00382,
     +     .33079,    .10488,    .09419,    .00560,    .00142,
     +     .00029,    .00321,    .00361,
     +     .31726,    .10016,    .08415,    .00532,    .00141,
     +     .00035,    .00307,    .00344 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30419,    .09563,    .07524,    .00504,    .00139,
     +     .00040,    .00294,    .00327,
     +     .29370,    .09201,    .06865,    .00486,    .00137,
     +     .00043,    .00284,    .00313,
     +     .28148,    .08783,    .06153,    .00462,    .00134,
     +     .00046,    .00271,    .00295,
     +     .27113,    .08432,    .05594,    .00441,    .00131,
     +     .00048,    .00261,    .00280,
     +     .26194,    .08121,    .05133,    .00423,    .00128,
     +     .00049,    .00251,    .00268,
     +     .25076,    .07745,    .04611,    .00400,    .00124,
     +     .00049,    .00238,    .00253,
     +     .24070,    .07408,    .04175,    .00380,    .00120,
     +     .00050,    .00227,    .00240,
     +     .23164,    .07106,    .03813,    .00362,    .00116,
     +     .00050,    .00217,    .00227 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .22296,    .06819,    .03487,    .00344,    .00112,
     +     .00050,    .00207,    .00215,
     +     .21472,    .06548,    .03202,    .00330,    .00108,
     +     .00049,    .00197,    .00205,
     +     .20725,    .06303,    .02958,    .00316,    .00105,
     +     .00048,    .00189,    .00196,
     +     .20048,    .06080,    .02748,    .00302,    .00102,
     +     .00048,    .00181,    .00188,
     +     .19390,    .05866,    .02556,    .00290,    .00099,
     +     .00047,    .00174,    .00179,
     +     .18761,    .05664,    .02383,    .00279,    .00095,
     +     .00046,    .00167,    .00171,
     +     .18185,    .05479,    .02232,    .00268,    .00093,
     +     .00046,    .00160,    .00164,
     +     .17658,    .05306,    .02101,    .00258,    .00090,
     +     .00045,    .00155,    .00158 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .17145,    .05139,    .01977,    .00248,    .00087,
     +     .00044,    .00150,    .00153,
     +     .16650,    .04980,    .01865,    .00238,    .00085,
     +     .00043,    .00144,    .00146,
     +     .16193,    .04834,    .01765,    .00229,    .00082,
     +     .00042,    .00139,    .00141,
     +     .15771,    .04700,    .01676,    .00221,    .00080,
     +     .00042,    .00135,    .00135,
     +     .15354,    .04567,    .01592,    .00214,    .00078,
     +     .00041,    .00131,    .00130 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .50180,    .16347,    .30634,    .00674,    .00000,
     +     .00000,    .00275,    .00339,
     +     .48591,    .15763,    .28073,    .00664,    .00000,
     +     .00000,    .00283,    .00340,
     +     .46298,    .14929,    .24576,    .00648,    .00019,
     +     .00000,    .00290,    .00338,
     +     .44680,    .14345,    .22241,    .00631,    .00042,
     +     .00000,    .00293,    .00334,
     +     .43012,    .13751,    .20003,    .00614,    .00059,
     +     .00000,    .00293,    .00326,
     +     .41618,    .13257,    .18254,    .00598,    .00071,
     +     .00000,    .00291,    .00319,
     +     .40316,    .12794,    .16718,    .00582,    .00080,
     +     .00000,    .00287,    .00313,
     +     .38970,    .12321,    .15228,    .00565,    .00087,
     +     .00000,    .00282,    .00305 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37832,    .11924,    .14043,    .00550,    .00093,
     +     .00000,    .00278,    .00297,
     +     .36762,    .11552,    .12988,    .00534,    .00097,
     +     .00000,    .00274,    .00289,
     +     .35936,    .11265,    .12212,    .00520,    .00099,
     +     .00000,    .00270,    .00283,
     +     .34225,    .10676,    .10696,    .00493,    .00103,
     +     .00001,    .00260,    .00270,
     +     .32809,    .10193,    .09534,    .00472,    .00105,
     +     .00006,    .00251,    .00259,
     +     .31295,    .09680,    .08378,    .00448,    .00106,
     +     .00016,    .00240,    .00247,
     +     .29784,    .09171,    .07336,    .00425,    .00105,
     +     .00021,    .00230,    .00232,
     +     .28479,    .08733,    .06517,    .00403,    .00104,
     +     .00026,    .00219,    .00221 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27223,    .08314,    .05794,    .00382,    .00102,
     +     .00029,    .00209,    .00210,
     +     .26224,    .07983,    .05262,    .00366,    .00100,
     +     .00031,    .00201,    .00200,
     +     .25058,    .07600,    .04691,    .00346,    .00098,
     +     .00034,    .00191,    .00189,
     +     .24074,    .07279,    .04245,    .00330,    .00095,
     +     .00035,    .00182,    .00180,
     +     .23205,    .06995,    .03881,    .00315,    .00093,
     +     .00036,    .00175,    .00172,
     +     .22150,    .06653,    .03471,    .00297,    .00090,
     +     .00036,    .00166,    .00162,
     +     .21203,    .06350,    .03132,    .00282,    .00087,
     +     .00037,    .00157,    .00152,
     +     .20355,    .06075,    .02850,    .00267,    .00084,
     +     .00037,    .00149,    .00145 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .19546,    .05815,    .02598,    .00252,    .00081,
     +     .00036,    .00142,    .00138,
     +     .18782,    .05572,    .02378,    .00240,    .00078,
     +     .00036,    .00136,    .00131,
     +     .18088,    .05352,    .02190,    .00230,    .00075,
     +     .00036,    .00130,    .00124,
     +     .17458,    .05153,    .02030,    .00221,    .00073,
     +     .00035,    .00125,    .00119,
     +     .16849,    .04961,    .01884,    .00211,    .00070,
     +     .00035,    .00119,    .00113,
     +     .16271,    .04779,    .01753,    .00202,    .00068,
     +     .00034,    .00115,    .00109,
     +     .15743,    .04614,    .01639,    .00194,    .00066,
     +     .00034,    .00110,    .00105,
     +     .15257,    .04463,    .01540,    .00187,    .00064,
     +     .00033,    .00106,    .00099 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14785,    .04317,    .01446,    .00179,    .00062,
     +     .00032,    .00102,    .00094,
     +     .14332,    .04176,    .01362,    .00173,    .00060,
     +     .00032,    .00098,    .00090,
     +     .13915,    .04048,    .01287,    .00167,    .00058,
     +     .00031,    .00095,    .00087,
     +     .13531,    .03929,    .01221,    .00161,    .00057,
     +     .00031,    .00092,    .00084,
     +     .13153,    .03812,    .01159,    .00155,    .00055,
     +     .00030,    .00088,    .00081 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .46495,    .14671,    .25757,    .00520,    .00000,
     +     .00000,    .00200,    .00198,
     +     .44902,    .14114,    .23437,    .00510,    .00000,
     +     .00000,    .00206,    .00204,
     +     .42617,    .13320,    .20309,    .00493,    .00015,
     +     .00000,    .00211,    .00208,
     +     .41012,    .12763,    .18246,    .00479,    .00032,
     +     .00000,    .00213,    .00207,
     +     .39368,    .12199,    .16291,    .00464,    .00045,
     +     .00000,    .00214,    .00204,
     +     .37998,    .11731,    .14775,    .00450,    .00054,
     +     .00000,    .00213,    .00201,
     +     .36719,    .11298,    .13453,    .00436,    .00060,
     +     .00000,    .00209,    .00199,
     +     .35404,    .10855,    .12182,    .00421,    .00066,
     +     .00000,    .00206,    .00194 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .34296,    .10484,    .11178,    .00409,    .00070,
     +     .00000,    .00203,    .00189,
     +     .33255,    .10136,    .10289,    .00396,    .00073,
     +     .00000,    .00200,    .00185,
     +     .32453,    .09869,    .09637,    .00385,    .00074,
     +     .00000,    .00197,    .00181,
     +     .30799,    .09321,    .08376,    .00365,    .00077,
     +     .00000,    .00189,    .00172,
     +     .29438,    .08873,    .07419,    .00348,    .00078,
     +     .00005,    .00182,    .00165,
     +     .27985,    .08400,    .06476,    .00329,    .00078,
     +     .00011,    .00174,    .00159,
     +     .26546,    .07933,    .05631,    .00310,    .00077,
     +     .00015,    .00166,    .00150,
     +     .25306,    .07533,    .04972,    .00292,    .00076,
     +     .00018,    .00158,    .00143 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .24118,    .07152,    .04395,    .00275,    .00075,
     +     .00021,    .00150,    .00135,
     +     .23174,    .06850,    .03976,    .00263,    .00073,
     +     .00022,    .00144,    .00129,
     +     .22080,    .06503,    .03527,    .00247,    .00071,
     +     .00024,    .00136,    .00122,
     +     .21159,    .06213,    .03178,    .00234,    .00069,
     +     .00025,    .00129,    .00116,
     +     .20344,    .05958,    .02895,    .00224,    .00067,
     +     .00025,    .00124,    .00111,
     +     .19361,    .05651,    .02577,    .00211,    .00064,
     +     .00026,    .00117,    .00104,
     +     .18488,    .05377,    .02316,    .00198,    .00062,
     +     .00026,    .00111,    .00099,
     +     .17701,    .05132,    .02101,    .00187,    .00060,
     +     .00026,    .00106,    .00095 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16953,    .04900,    .01909,    .00177,    .00058,
     +     .00026,    .00101,    .00091,
     +     .16253,    .04685,    .01743,    .00168,    .00056,
     +     .00026,    .00096,    .00085,
     +     .15618,    .04490,    .01601,    .00159,    .00054,
     +     .00026,    .00092,    .00081,
     +     .15043,    .04314,    .01481,    .00152,    .00052,
     +     .00025,    .00088,    .00077,
     +     .14488,    .04145,    .01371,    .00145,    .00050,
     +     .00025,    .00084,    .00073,
     +     .13963,    .03985,    .01273,    .00138,    .00049,
     +     .00025,    .00081,    .00070,
     +     .13483,    .03840,    .01188,    .00132,    .00047,
     +     .00025,    .00077,    .00067,
     +     .13044,    .03708,    .01114,    .00127,    .00046,
     +     .00025,    .00074,    .00065 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .12618,    .03581,    .01045,    .00121,    .00044,
     +     .00025,    .00071,    .00062,
     +     .12207,    .03458,    .00983,    .00118,    .00043,
     +     .00024,    .00068,    .00059,
     +     .11830,    .03346,    .00928,    .00114,    .00042,
     +     .00024,    .00066,    .00056,
     +     .11485,    .03242,    .00879,    .00110,    .00041,
     +     .00024,    .00063,    .00054,
     +     .11147,    .03141,    .00833,    .00105,    .00040,
     +     .00024,    .00061,    .00052 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .42660,    .13049,    .21335,    .00388,    .00000,
     +     .00000,    .00140,    .00110,
     +     .41090,    .12520,    .19279,    .00380,    .00000,
     +     .00000,    .00146,    .00117,
     +     .38844,    .11772,    .16540,    .00368,    .00011,
     +     .00000,    .00152,    .00122,
     +     .37271,    .11250,    .14751,    .00358,    .00024,
     +     .00000,    .00154,    .00123,
     +     .35672,    .10721,    .13075,    .00341,    .00034,
     +     .00000,    .00154,    .00126,
     +     .34345,    .10284,    .11786,    .00328,    .00041,
     +     .00000,    .00154,    .00126,
     +     .33110,    .09881,    .10670,    .00318,    .00045,
     +     .00000,    .00153,    .00124,
     +     .31842,    .09470,    .09604,    .00306,    .00049,
     +     .00000,    .00150,    .00121 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .30776,    .09128,    .08767,    .00295,    .00052,
     +     .00000,    .00148,    .00119,
     +     .29778,    .08807,    .08032,    .00285,    .00054,
     +     .00000,    .00145,    .00117,
     +     .29009,    .08561,    .07495,    .00277,    .00055,
     +     .00000,    .00143,    .00116,
     +     .27433,    .08058,    .06466,    .00261,    .00057,
     +     .00000,    .00137,    .00112,
     +     .26143,    .07648,    .05692,    .00248,    .00058,
     +     .00003,    .00132,    .00107,
     +     .24773,    .07217,    .04934,    .00233,    .00058,
     +     .00008,    .00125,    .00103,
     +     .23422,    .06793,    .04263,    .00215,    .00057,
     +     .00011,    .00118,    .00098,
     +     .22258,    .06433,    .03744,    .00202,    .00056,
     +     .00013,    .00112,    .00094 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .21147,    .06090,    .03292,    .00191,    .00055,
     +     .00014,    .00107,    .00089,
     +     .20270,    .05818,    .02965,    .00181,    .00053,
     +     .00015,    .00103,    .00084,
     +     .19255,    .05507,    .02618,    .00170,    .00052,
     +     .00016,    .00097,    .00079,
     +     .18404,    .05248,    .02349,    .00161,    .00050,
     +     .00017,    .00093,    .00076,
     +     .17655,    .05021,    .02133,    .00152,    .00049,
     +     .00017,    .00088,    .00073,
     +     .16754,    .04748,    .01891,    .00142,    .00047,
     +     .00017,    .00083,    .00069,
     +     .15951,    .04507,    .01693,    .00134,    .00045,
     +     .00017,    .00080,    .00064,
     +     .15231,    .04292,    .01531,    .00128,    .00044,
     +     .00017,    .00075,    .00060 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .14549,    .04089,    .01388,    .00122,    .00042,
     +     .00017,    .00071,    .00056,
     +     .13914,    .03900,    .01263,    .00114,    .00041,
     +     .00017,    .00067,    .00054,
     +     .13340,    .03729,    .01157,    .00107,    .00039,
     +     .00017,    .00064,    .00052,
     +     .12823,    .03575,    .01068,    .00102,    .00038,
     +     .00017,    .00062,    .00050,
     +     .12325,    .03427,    .00987,    .00096,    .00037,
     +     .00017,    .00059,    .00048,
     +     .11853,    .03289,    .00915,    .00091,    .00036,
     +     .00017,    .00056,    .00046,
     +     .11423,    .03163,    .00852,    .00087,    .00035,
     +     .00017,    .00053,    .00044,
     +     .11030,    .03049,    .00798,    .00083,    .00034,
     +     .00017,    .00051,    .00042 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .10650,    .02938,    .00747,    .00080,    .00033,
     +     .00017,    .00049,    .00040,
     +     .10288,    .02833,    .00702,    .00076,    .00032,
     +     .00017,    .00047,    .00038,
     +     .09955,    .02736,    .00662,    .00073,    .00031,
     +     .00017,    .00045,    .00036,
     +     .09649,    .02648,    .00626,    .00071,    .00031,
     +     .00017,    .00044,    .00035,
     +     .09348,    .02561,    .00593,    .00068,    .00030,
     +     .00017,    .00042,    .00034 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .38735,    .11512,    .17415,    .00299,    .00000,
     +     .00000,    .00092,    .00049,
     +     .37213,    .11019,    .15633,    .00291,    .00000,
     +     .00000,    .00096,    .00055,
     +     .35048,    .10322,    .13284,    .00278,    .00008,
     +     .00000,    .00101,    .00062,
     +     .33536,    .09838,    .11769,    .00268,    .00018,
     +     .00000,    .00102,    .00065,
     +     .32002,    .09351,    .10361,    .00257,    .00025,
     +     .00000,    .00103,    .00069,
     +     .30732,    .08950,    .09285,    .00247,    .00030,
     +     .00000,    .00103,    .00071,
     +     .29555,    .08579,    .08361,    .00238,    .00033,
     +     .00000,    .00101,    .00071,
     +     .28351,    .08203,    .07484,    .00228,    .00037,
     +     .00000,    .00100,    .00071 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .27344,    .07889,    .06799,    .00220,    .00039,
     +     .00000,    .00098,    .00071,
     +     .26402,    .07596,    .06202,    .00213,    .00040,
     +     .00000,    .00096,    .00069,
     +     .25678,    .07373,    .05770,    .00207,    .00041,
     +     .00000,    .00094,    .00068,
     +     .24202,    .06917,    .04944,    .00193,    .00042,
     +     .00000,    .00090,    .00066,
     +     .22998,    .06548,    .04326,    .00181,    .00043,
     +     .00002,    .00086,    .00064,
     +     .21718,    .06162,    .03727,    .00171,    .00043,
     +     .00006,    .00082,    .00060,
     +     .20462,    .05781,    .03201,    .00160,    .00042,
     +     .00007,    .00078,    .00058,
     +     .19389,    .05458,    .02797,    .00150,    .00041,
     +     .00009,    .00073,    .00056 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18368,    .05152,    .02447,    .00140,    .00040,
     +     .00010,    .00069,    .00053,
     +     .17561,    .04914,    .02195,    .00134,    .00039,
     +     .00010,    .00066,    .00049,
     +     .16635,    .04638,    .01929,    .00124,    .00038,
     +     .00010,    .00063,    .00046,
     +     .15862,    .04407,    .01725,    .00116,    .00037,
     +     .00010,    .00059,    .00045,
     +     .15180,    .04207,    .01562,    .00110,    .00036,
     +     .00010,    .00057,    .00045,
     +     .14361,    .03968,    .01380,    .00104,    .00035,
     +     .00010,    .00053,    .00042,
     +     .13633,    .03757,    .01232,    .00099,    .00034,
     +     .00010,    .00050,    .00039,
     +     .12990,    .03570,    .01111,    .00093,    .00033,
     +     .00010,    .00048,    .00036 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .12381,    .03393,    .01004,    .00086,    .00031,
     +     .00010,    .00045,    .00034,
     +     .11811,    .03228,    .00912,    .00081,    .00030,
     +     .00010,    .00043,    .00031,
     +     .11297,    .03081,    .00834,    .00077,    .00030,
     +     .00010,    .00040,    .00030,
     +     .10834,    .02948,    .00768,    .00073,    .00029,
     +     .00010,    .00038,    .00029,
     +     .10390,    .02822,    .00709,    .00070,    .00028,
     +     .00010,    .00036,    .00028,
     +     .09974,    .02702,    .00656,    .00067,    .00027,
     +     .00010,    .00034,    .00026,
     +     .09594,    .02594,    .00610,    .00064,    .00026,
     +     .00010,    .00032,    .00025,
     +     .09247,    .02496,    .00571,    .00061,    .00026,
     +     .00010,    .00031,    .00024 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08912,    .02402,    .00534,    .00058,    .00025,
     +     .00010,    .00030,    .00024,
     +     .08593,    .02311,    .00501,    .00055,    .00025,
     +     .00010,    .00029,    .00022,
     +     .08301,    .02228,    .00472,    .00053,    .00024,
     +     .00010,    .00028,    .00021,
     +     .08034,    .02153,    .00446,    .00051,    .00024,
     +     .00010,    .00027,    .00020,
     +     .07771,    .02079,    .00422,    .00049,    .00023,
     +     .00010,    .00026,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34791,    .10018,    .13936,    .00201,    .00000,
     +     .00000,    .00067,    .00026,
     +     .33332,    .09565,    .12427,    .00197,    .00000,
     +     .00000,    .00071,    .00031,
     +     .31268,    .08926,    .10462,    .00188,    .00006,
     +     .00000,    .00074,    .00038,
     +     .29833,    .08485,    .09209,    .00180,    .00013,
     +     .00000,    .00074,    .00042,
     +     .28380,    .08043,    .08049,    .00173,    .00018,
     +     .00000,    .00074,    .00044,
     +     .27182,    .07679,    .07171,    .00167,    .00021,
     +     .00000,    .00073,    .00044,
     +     .26076,    .07344,    .06425,    .00161,    .00024,
     +     .00000,    .00073,    .00044,
     +     .24949,    .07005,    .05719,    .00155,    .00026,
     +     .00000,    .00072,    .00043 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .24008,    .06724,    .05171,    .00150,    .00028,
     +     .00000,    .00071,    .00043,
     +     .23132,    .06462,    .04695,    .00144,    .00029,
     +     .00000,    .00068,    .00044,
     +     .22461,    .06261,    .04352,    .00139,    .00029,
     +     .00000,    .00066,    .00044,
     +     .21092,    .05856,    .03702,    .00129,    .00030,
     +     .00000,    .00062,    .00042,
     +     .19977,    .05529,    .03220,    .00123,    .00031,
     +     .00001,    .00060,    .00040,
     +     .18802,    .05183,    .02756,    .00117,    .00031,
     +     .00004,    .00057,    .00038,
     +     .17657,    .04848,    .02354,    .00107,    .00031,
     +     .00005,    .00054,    .00036,
     +     .16682,    .04564,    .02046,    .00098,    .00030,
     +     .00005,    .00051,    .00035 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15756,    .04295,    .01781,    .00091,    .00029,
     +     .00006,    .00049,    .00034,
     +     .15023,    .04085,    .01592,    .00088,    .00029,
     +     .00006,    .00045,    .00033,
     +     .14187,    .03845,    .01394,    .00082,    .00028,
     +     .00006,    .00043,    .00031,
     +     .13491,    .03646,    .01242,    .00076,    .00027,
     +     .00006,    .00040,    .00029,
     +     .12880,    .03472,    .01121,    .00072,    .00027,
     +     .00006,    .00038,    .00028,
     +     .12149,    .03265,    .00987,    .00068,    .00026,
     +     .00006,    .00035,    .00026,
     +     .11502,    .03084,    .00878,    .00065,    .00025,
     +     .00006,    .00034,    .00024,
     +     .10928,    .02922,    .00790,    .00060,    .00024,
     +     .00006,    .00032,    .00023 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .10387,    .02770,    .00712,    .00056,    .00024,
     +     .00006,    .00030,    .00022,
     +     .09886,    .02629,    .00645,    .00053,    .00023,
     +     .00006,    .00029,    .00021,
     +     .09435,    .02503,    .00589,    .00050,    .00022,
     +     .00006,    .00027,    .00020,
     +     .09029,    .02390,    .00541,    .00048,    .00022,
     +     .00006,    .00026,    .00019,
     +     .08640,    .02282,    .00499,    .00045,    .00021,
     +     .00006,    .00024,    .00018,
     +     .08276,    .02182,    .00461,    .00043,    .00021,
     +     .00006,    .00023,    .00017,
     +     .07945,    .02091,    .00428,    .00041,    .00020,
     +     .00006,    .00022,    .00016,
     +     .07643,    .02008,    .00400,    .00039,    .00020,
     +     .00006,    .00021,    .00015 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .07353,    .01929,    .00374,    .00037,    .00020,
     +     .00006,    .00020,    .00014,
     +     .07076,    .01853,    .00351,    .00036,    .00020,
     +     .00006,    .00019,    .00014,
     +     .06823,    .01784,    .00330,    .00035,    .00019,
     +     .00006,    .00019,    .00013,
     +     .06592,    .01720,    .00311,    .00034,    .00019,
     +     .00006,    .00018,    .00012,
     +     .06366,    .01659,    .00294,    .00032,    .00019,
     +     .00006,    .00017,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30888,    .08630,    .10957,    .00134,    .00000,
     +     .00000,    .00045,    .00012,
     +     .29514,    .08218,    .09707,    .00130,    .00000,
     +     .00000,    .00048,    .00017,
     +     .27573,    .07639,    .08093,    .00124,    .00004,
     +     .00000,    .00051,    .00022,
     +     .26227,    .07242,    .07074,    .00120,    .00009,
     +     .00000,    .00053,    .00025,
     +     .24878,    .06843,    .06141,    .00113,    .00012,
     +     .00000,    .00052,    .00027,
     +     .23768,    .06517,    .05439,    .00107,    .00015,
     +     .00000,    .00051,    .00028,
     +     .22742,    .06219,    .04845,    .00104,    .00016,
     +     .00000,    .00050,    .00028,
     +     .21700,    .05917,    .04288,    .00101,    .00018,
     +     .00000,    .00049,    .00029 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .20833,    .05666,    .03859,    .00098,    .00018,
     +     .00000,    .00048,    .00029,
     +     .20029,    .05433,    .03489,    .00094,    .00019,
     +     .00000,    .00046,    .00029,
     +     .19416,    .05256,    .03223,    .00090,    .00019,
     +     .00000,    .00045,    .00028,
     +     .18167,    .04898,    .02722,    .00082,    .00019,
     +     .00000,    .00043,    .00027,
     +     .17155,    .04609,    .02354,    .00077,    .00019,
     +     .00001,    .00042,    .00027,
     +     .16091,    .04308,    .02003,    .00073,    .00019,
     +     .00002,    .00038,    .00026,
     +     .15056,    .04016,    .01700,    .00067,    .00019,
     +     .00003,    .00037,    .00025,
     +     .14175,    .03769,    .01470,    .00063,    .00018,
     +     .00003,    .00035,    .00023 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13343,    .03537,    .01274,    .00060,    .00018,
     +     .00003,    .00034,    .00022,
     +     .12693,    .03356,    .01135,    .00056,    .00017,
     +     .00003,    .00032,    .00020,
     +     .11948,    .03149,    .00989,    .00052,    .00017,
     +     .00003,    .00030,    .00019,
     +     .11330,    .02978,    .00879,    .00049,    .00016,
     +     .00003,    .00028,    .00019,
     +     .10792,    .02829,    .00791,    .00045,    .00015,
     +     .00003,    .00026,    .00018,
     +     .10149,    .02652,    .00694,    .00042,    .00015,
     +     .00003,    .00024,    .00018,
     +     .09581,    .02497,    .00615,    .00039,    .00014,
     +     .00003,    .00022,    .00017,
     +     .09079,    .02361,    .00552,    .00037,    .00014,
     +     .00003,    .00021,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08608,    .02232,    .00496,    .00034,    .00014,
     +     .00003,    .00020,    .00014,
     +     .08171,    .02113,    .00449,    .00032,    .00014,
     +     .00003,    .00019,    .00013,
     +     .07779,    .02007,    .00409,    .00030,    .00014,
     +     .00003,    .00018,    .00013,
     +     .07427,    .01913,    .00376,    .00029,    .00014,
     +     .00003,    .00017,    .00012,
     +     .07092,    .01822,    .00346,    .00028,    .00014,
     +     .00003,    .00016,    .00012,
     +     .06777,    .01738,    .00319,    .00026,    .00014,
     +     .00003,    .00015,    .00011,
     +     .06492,    .01662,    .00296,    .00025,    .00013,
     +     .00003,    .00015,    .00011,
     +     .06234,    .01594,    .00276,    .00024,    .00013,
     +     .00003,    .00014,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05986,    .01528,    .00258,    .00022,    .00013,
     +     .00003,    .00013,    .00010,
     +     .05749,    .01465,    .00242,    .00022,    .00013,
     +     .00003,    .00012,    .00009,
     +     .05533,    .01408,    .00227,    .00021,    .00013,
     +     .00003,    .00012,    .00009,
     +     .05337,    .01356,    .00214,    .00020,    .00013,
     +     .00003,    .00011,    .00009,
     +     .05147,    .01305,    .00202,    .00018,    .00013,
     +     .00003,    .00011,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .27105,    .07360,    .08459,    .00094,    .00000,
     +     .00000,    .00028,    .00002,
     +     .25827,    .06990,    .07445,    .00091,    .00000,
     +     .00000,    .00029,    .00006,
     +     .24031,    .06473,    .06152,    .00086,    .00003,
     +     .00000,    .00031,    .00010,
     +     .22791,    .06118,    .05343,    .00084,    .00006,
     +     .00000,    .00032,    .00012,
     +     .21549,    .05765,    .04606,    .00080,    .00009,
     +     .00000,    .00032,    .00014,
     +     .20532,    .05477,    .04056,    .00076,    .00010,
     +     .00000,    .00032,    .00015,
     +     .19600,    .05213,    .03594,    .00073,    .00011,
     +     .00000,    .00032,    .00014,
     +     .18654,    .04947,    .03164,    .00070,    .00012,
     +     .00000,    .00031,    .00014 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .17868,    .04727,    .02834,    .00067,    .00012,
     +     .00000,    .00031,    .00015,
     +     .17139,    .04524,    .02551,    .00064,    .00013,
     +     .00000,    .00030,    .00015,
     +     .16583,    .04369,    .02349,    .00062,    .00013,
     +     .00000,    .00029,    .00016,
     +     .15459,    .04057,    .01971,    .00058,    .00013,
     +     .00000,    .00028,    .00016,
     +     .14553,    .03806,    .01696,    .00054,    .00013,
     +     .00000,    .00026,    .00015,
     +     .13605,    .03546,    .01435,    .00051,    .00012,
     +     .00001,    .00024,    .00014,
     +     .12684,    .03293,    .01211,    .00046,    .00012,
     +     .00001,    .00022,    .00014,
     +     .11905,    .03082,    .01042,    .00043,    .00011,
     +     .00001,    .00021,    .00014 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .11172,    .02883,    .00899,    .00040,    .00011,
     +     .00001,    .00019,    .00013,
     +     .10599,    .02728,    .00798,    .00038,    .00010,
     +     .00001,    .00018,    .00013,
     +     .09946,    .02552,    .00693,    .00036,    .00010,
     +     .00001,    .00017,    .00011,
     +     .09405,    .02408,    .00614,    .00034,    .00009,
     +     .00001,    .00016,    .00009,
     +     .08934,    .02282,    .00551,    .00032,    .00009,
     +     .00001,    .00015,    .00010,
     +     .08376,    .02133,    .00482,    .00029,    .00008,
     +     .00001,    .00015,    .00010,
     +     .07887,    .02003,    .00426,    .00026,    .00008,
     +     .00001,    .00014,    .00009,
     +     .07455,    .01888,    .00382,    .00024,    .00007,
     +     .00001,    .00013,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .07049,    .01781,    .00343,    .00023,    .00007,
     +     .00001,    .00012,    .00008,
     +     .06673,    .01682,    .00310,    .00022,    .00007,
     +     .00001,    .00011,    .00008,
     +     .06337,    .01594,    .00282,    .00020,    .00007,
     +     .00001,    .00010,    .00008,
     +     .06037,    .01516,    .00258,    .00019,    .00007,
     +     .00001,    .00010,    .00007,
     +     .05751,    .01441,    .00237,    .00018,    .00007,
     +     .00001,    .00009,    .00007,
     +     .05484,    .01372,    .00219,    .00018,    .00007,
     +     .00001,    .00009,    .00006,
     +     .05243,    .01309,    .00203,    .00017,    .00007,
     +     .00001,    .00008,    .00006,
     +     .05026,    .01252,    .00189,    .00016,    .00007,
     +     .00001,    .00008,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04817,    .01198,    .00176,    .00014,    .00007,
     +     .00001,    .00008,    .00005,
     +     .04618,    .01147,    .00165,    .00014,    .00007,
     +     .00001,    .00007,    .00005,
     +     .04437,    .01100,    .00155,    .00013,    .00007,
     +     .00001,    .00007,    .00005,
     +     .04272,    .01058,    .00146,    .00013,    .00007,
     +     .00001,    .00007,    .00005,
     +     .04112,    .01017,    .00138,    .00012,    .00007,
     +     .00001,    .00006,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .23455,    .06172,    .06372,    .00051,    .00000,
     +     .00000,    .00020,    .00002,
     +     .22283,    .05847,    .05572,    .00051,    .00000,
     +     .00000,    .00022,    .00005,
     +     .20643,    .05394,    .04560,    .00051,    .00002,
     +     .00000,    .00023,    .00007,
     +     .19519,    .05083,    .03933,    .00049,    .00004,
     +     .00000,    .00024,    .00009,
     +     .18398,    .04775,    .03367,    .00046,    .00006,
     +     .00000,    .00024,    .00010,
     +     .17482,    .04524,    .02948,    .00044,    .00007,
     +     .00000,    .00023,    .00010,
     +     .16642,    .04295,    .02598,    .00042,    .00007,
     +     .00000,    .00022,    .00011,
     +     .15795,    .04065,    .02275,    .00040,    .00007,
     +     .00000,    .00021,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .15093,    .03875,    .02028,    .00039,    .00007,
     +     .00000,    .00021,    .00010,
     +     .14445,    .03701,    .01818,    .00038,    .00007,
     +     .00000,    .00020,    .00011,
     +     .13951,    .03568,    .01668,    .00037,    .00007,
     +     .00000,    .00020,    .00011,
     +     .12954,    .03301,    .01390,    .00033,    .00007,
     +     .00000,    .00019,    .00011,
     +     .12155,    .03088,    .01189,    .00031,    .00007,
     +     .00000,    .00018,    .00011,
     +     .11323,    .02866,    .01000,    .00028,    .00007,
     +     .00000,    .00016,    .00011,
     +     .10517,    .02652,    .00839,    .00026,    .00007,
     +     .00000,    .00015,    .00010,
     +     .09839,    .02473,    .00719,    .00024,    .00006,
     +     .00000,    .00014,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09203,    .02306,    .00618,    .00021,    .00006,
     +     .00000,    .00014,    .00009,
     +     .08707,    .02176,    .00547,    .00020,    .00006,
     +     .00000,    .00013,    .00009,
     +     .08142,    .02030,    .00473,    .00020,    .00006,
     +     .00000,    .00012,    .00008,
     +     .07676,    .01910,    .00418,    .00019,    .00005,
     +     .00000,    .00011,    .00007,
     +     .07273,    .01806,    .00374,    .00018,    .00005,
     +     .00000,    .00010,    .00007,
     +     .06796,    .01682,    .00326,    .00017,    .00005,
     +     .00000,    .00010,    .00006,
     +     .06380,    .01574,    .00288,    .00015,    .00005,
     +     .00000,    .00009,    .00006,
     +     .06012,    .01480,    .00258,    .00014,    .00004,
     +     .00000,    .00009,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05669,    .01392,    .00231,    .00012,    .00004,
     +     .00000,    .00008,    .00005,
     +     .05353,    .01311,    .00208,    .00012,    .00004,
     +     .00000,    .00007,    .00005,
     +     .05071,    .01240,    .00189,    .00011,    .00004,
     +     .00000,    .00007,    .00005,
     +     .04820,    .01177,    .00173,    .00010,    .00004,
     +     .00000,    .00007,    .00005,
     +     .04581,    .01116,    .00159,    .00010,    .00004,
     +     .00000,    .00006,    .00004,
     +     .04358,    .01060,    .00146,    .00010,    .00004,
     +     .00000,    .00006,    .00004,
     +     .04157,    .01009,    .00136,    .00009,    .00004,
     +     .00000,    .00006,    .00004,
     +     .03976,    .00963,    .00126,    .00009,    .00004,
     +     .00000,    .00005,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03803,    .00920,    .00118,    .00008,    .00004,
     +     .00000,    .00005,    .00004,
     +     .03639,    .00879,    .00110,    .00007,    .00004,
     +     .00000,    .00005,    .00004,
     +     .03490,    .00842,    .00103,    .00007,    .00004,
     +     .00000,    .00005,    .00004,
     +     .03354,    .00808,    .00097,    .00007,    .00004,
     +     .00000,    .00005,    .00003,
     +     .03222,    .00775,    .00092,    .00007,    .00004,
     +     .00000,    .00004,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .16807,    .04171,    .03369,    .00021,    .00000,
     +     .00000,    .00007,    .00000,
     +     .15873,    .03927,    .02906,    .00020,    .00000,
     +     .00000,    .00008,    .00001,
     +     .14575,    .03591,    .02333,    .00020,    .00001,
     +     .00000,    .00008,    .00002,
     +     .13692,    .03363,    .01985,    .00020,    .00001,
     +     .00000,    .00009,    .00002,
     +     .12819,    .03138,    .01676,    .00018,    .00001,
     +     .00000,    .00008,    .00004,
     +     .12110,    .02956,    .01450,    .00016,    .00001,
     +     .00000,    .00008,    .00005,
     +     .11467,    .02791,    .01264,    .00014,    .00001,
     +     .00000,    .00007,    .00005,
     +     .10821,    .02627,    .01095,    .00013,    .00001,
     +     .00000,    .00008,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .10287,    .02492,    .00968,    .00013,    .00001,
     +     .00000,    .00008,    .00005,
     +     .09798,    .02369,    .00860,    .00013,    .00001,
     +     .00000,    .00008,    .00004,
     +     .09427,    .02275,    .00784,    .00013,    .00001,
     +     .00000,    .00008,    .00004,
     +     .08683,    .02089,    .00645,    .00012,    .00001,
     +     .00000,    .00007,    .00004,
     +     .08091,    .01941,    .00546,    .00011,    .00001,
     +     .00000,    .00006,    .00004,
     +     .07479,    .01788,    .00454,    .00010,    .00001,
     +     .00000,    .00006,    .00004,
     +     .06893,    .01642,    .00377,    .00009,    .00001,
     +     .00000,    .00006,    .00004,
     +     .06403,    .01521,    .00321,    .00009,    .00001,
     +     .00000,    .00005,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05947,    .01409,    .00274,    .00008,    .00001,
     +     .00000,    .00005,    .00004,
     +     .05595,    .01322,    .00241,    .00007,    .00001,
     +     .00000,    .00004,    .00003,
     +     .05198,    .01225,    .00207,    .00007,    .00001,
     +     .00000,    .00004,    .00003,
     +     .04872,    .01145,    .00182,    .00006,    .00001,
     +     .00000,    .00004,    .00003,
     +     .04591,    .01077,    .00162,    .00006,    .00001,
     +     .00000,    .00004,    .00003,
     +     .04260,    .00997,    .00141,    .00005,    .00001,
     +     .00000,    .00003,    .00003,
     +     .03974,    .00927,    .00124,    .00005,    .00001,
     +     .00000,    .00003,    .00003,
     +     .03723,    .00867,    .00111,    .00004,    .00001,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03490,    .00811,    .00099,    .00004,    .00001,
     +     .00000,    .00003,    .00002,
     +     .03277,    .00760,    .00089,    .00004,    .00001,
     +     .00000,    .00003,    .00002,
     +     .03088,    .00714,    .00081,    .00003,    .00001,
     +     .00000,    .00002,    .00002,
     +     .02920,    .00675,    .00074,    .00004,    .00001,
     +     .00000,    .00002,    .00002,
     +     .02761,    .00637,    .00068,    .00003,    .00001,
     +     .00000,    .00002,    .00001,
     +     .02615,    .00602,    .00062,    .00003,    .00001,
     +     .00000,    .00002,    .00001,
     +     .02483,    .00571,    .00057,    .00003,    .00001,
     +     .00000,    .00002,    .00002,
     +     .02365,    .00542,    .00054,    .00002,    .00001,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .02252,    .00516,    .00050,    .00002,    .00001,
     +     .00000,    .00002,    .00002,
     +     .02146,    .00491,    .00046,    .00002,    .00001,
     +     .00000,    .00002,    .00001,
     +     .02050,    .00468,    .00044,    .00002,    .00001,
     +     .00000,    .00002,    .00001,
     +     .01963,    .00448,    .00041,    .00002,    .00001,
     +     .00000,    .00002,    .00001,
     +     .01879,    .00428,    .00039,    .00002,    .00001,
     +     .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)/
     +     .11197,    .02610,    .01574,    .00007,    .00000,
     +     .00000,    .00002,   -.00001,
     +     .10506,    .02442,    .01339,    .00007,    .00000,
     +     .00000,    .00002,    .00000,
     +     .09554,    .02212,    .01054,    .00006,    .00000,
     +     .00000,    .00002,    .00001,
     +     .08913,    .02058,    .00885,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .08284,    .01907,    .00737,    .00005,    .00000,
     +     .00000,    .00002,    .00001,
     +     .07777,    .01786,    .00631,    .00005,    .00000,
     +     .00000,    .00002,    .00001,
     +     .07318,    .01677,    .00544,    .00005,    .00000,
     +     .00000,    .00002,    .00001,
     +     .06861,    .01569,    .00466,    .00005,    .00000,
     +     .00000,    .00002,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .06487,    .01480,    .00408,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06147,    .01400,    .00360,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05892,    .01339,    .00326,    .00004,    .00000,
     +     .00000,    .00002,    .00001,
     +     .05380,    .01219,    .00265,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .04976,    .01124,    .00222,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .04562,    .01027,    .00183,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .04169,    .00936,    .00151,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03844,    .00860,    .00127,    .00003,    .00000,
     +     .00000,    .00002,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03543,    .00791,    .00108,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03312,    .00738,    .00095,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03054,    .00679,    .00081,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02844,    .00631,    .00071,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02665,    .00590,    .00063,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02455,    .00542,    .00055,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02273,    .00500,    .00048,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02116,    .00465,    .00043,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01971,    .00432,    .00038,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01840,    .00403,    .00034,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01724,    .00376,    .00031,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01621,    .00353,    .00028,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01524,    .00332,    .00026,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01436,    .00312,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01357,    .00295,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01287,    .00279,    .00020,    .00001,    .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=33,37)/
     +     .01220,    .00264,    .00019,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01157,    .00250,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01100,    .00237,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01049,    .00226,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01000,    .00215,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .06774,    .01478,    .00625,    .00003,    .00000,
     +     .00000,    .00000,   -.00001,
     +     .06310,    .01373,    .00524,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05679,    .01231,    .00404,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05257,    .01136,    .00335,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04845,    .01045,    .00275,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04515,    .00972,    .00232,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04221,    .00906,    .00198,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03930,    .00842,    .00168,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .03693,    .00790,    .00146,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03479,    .00743,    .00128,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03318,    .00707,    .00115,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03001,    .00638,    .00093,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02753,    .00583,    .00077,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02500,    .00528,    .00063,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02264,    .00477,    .00052,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02069,    .00435,    .00043,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01891,    .00396,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01756,    .00367,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01606,    .00335,    .00027,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01484,    .00309,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01381,    .00287,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01262,    .00262,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01159,    .00240,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01072,    .00221,    .00014,    .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)/
     +     .00991,    .00204,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00919,    .00189,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00855,    .00176,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00800,    .00164,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00748,    .00153,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00700,    .00143,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00658,    .00134,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00620,    .00126,    .00007,    .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)/
     +     .00585,    .00119,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00552,    .00112,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00523,    .00106,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00496,    .00101,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00471,    .00095,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .03566,    .00721,    .00195,   -.00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03294,    .00665,    .00161,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02927,    .00589,    .00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02685,    .00539,    .00100,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02451,    .00491,    .00081,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02267,    .00453,    .00067,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02103,    .00419,    .00057,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01942,    .00386,    .00048,    .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)/
     +     .01812,    .00360,    .00041,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01695,    .00336,    .00036,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01609,    .00318,    .00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01438,    .00284,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01306,    .00257,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01174,    .00231,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01051,    .00206,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00951,    .00186,    .00012,    .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)/
     +     .00861,    .00168,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00793,    .00154,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00718,    .00139,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00658,    .00127,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00607,    .00118,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00549,    .00106,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00500,    .00096,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00459,    .00088,    .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=25,32)/
     +     .00421,    .00081,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00387,    .00074,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00357,    .00068,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00332,    .00063,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00308,    .00059,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00286,    .00055,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00267,    .00051,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00250,    .00048,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00235,    .00045,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00220,    .00042,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00207,    .00039,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00196,    .00037,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00185,    .00035,    .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)/
     +     .00443,    .00074,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00399,    .00066,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00342,    .00057,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00306,    .00050,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00272,    .00045,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00245,    .00040,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00223,    .00037,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00201,    .00033,    .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)/
     +     .00183,    .00030,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00168,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00157,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00136,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00120,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00105,    .00017,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00091,    .00015,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00080,    .00013,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00070,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00063,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00050,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00045,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00039,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00035,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00031,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00028,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00021,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='lo05a.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