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

sfmrs_98d4.F

#include "pdf/pilot.h"
      subroutine sfmrs_98d4(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)/
     +     .00698,    .00251,    .88556,    .91935,    .00000,
     +     .00000,    .49519,    .93530,
     +     .00710,    .00255,   2.20147,    .95777,    .00000,
     +     .00000,    .53804,    .97377,
     +     .00728,    .00262,   4.71566,   1.03279,    .02460,
     +     .00000,    .61954,   1.04885,
     +     .00742,    .00267,   7.11384,   1.10377,    .08875,
     +     .00000,    .69517,   1.11984,
     +     .00757,    .00273,  10.20922,   1.19330,    .19199,
     +     .00000,    .78953,   1.20941,
     +     .00770,    .00278,  13.32316,   1.28527,    .27945,
     +     .00000,    .88560,   1.30139,
     +     .00783,    .00282,  16.76203,   1.38627,    .37669,
     +     .00000,    .99046,   1.40239,
     +     .00796,    .00289,  21.03727,   1.50595,    .49886,
     +     .00000,   1.11419,   1.52207 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00808,    .00293,  25.11884,   1.62393,    .61156,
     +     .00000,   1.23565,   1.64004,
     +     .00819,    .00298,  29.57321,   1.74809,    .73599,
     +     .00000,   1.36309,   1.76416,
     +     .00829,    .00302,  33.36941,   1.85534,    .84047,
     +     .00000,   1.47294,   1.87142,
     +     .00849,    .00309,  42.46137,   2.10917,   1.09239,
     +     .00000,   1.73220,   2.12520,
     +     .00867,    .00318,  51.31673,   2.35743,   1.34050,
     +     .23603,   1.98506,   2.37342,
     +     .00888,    .00326,  62.49759,   2.66934,   1.65284,
     +     .61818,   2.30201,   2.68527,
     +     .00909,    .00336,  75.62744,   3.03548,   2.02013,
     +    1.00154,   2.67329,   3.05133,
     +     .00929,    .00344,  88.72832,   3.40502,   2.38613,
     +    1.37074,   3.04740,   3.42081 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00949,    .00353, 103.31912,   3.81619,   2.79627,
     +    1.79472,   3.46307,   3.83189,
     +     .00967,    .00360, 116.56249,   4.18871,   3.17091,
     +    2.18727,   3.83925,   4.20432,
     +     .00988,    .00370, 133.78267,   4.67852,   3.66076,
     +    2.69119,   4.33343,   4.69404,
     +     .01006,    .00379, 150.09960,   5.14745,   4.12851,
     +    3.16954,   4.80614,   5.16288,
     +     .01024,    .00386, 166.23614,   5.61076,   4.59465,
     +    3.65323,   5.27285,   5.62610,
     +     .01047,    .00396, 187.84217,   6.24059,   5.22434,
     +    4.29751,   5.90692,   6.25582,
     +     .01068,    .00406, 209.51164,   6.87872,   5.86259,
     +    4.95049,   6.54896,   6.89384,
     +     .01089,    .00416, 231.23135,   7.52157,   6.50849,
     +    5.61530,   7.19539,   7.53659 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01109,    .00425, 253.87271,   8.20241,   7.18931,
     +    6.30977,   7.87975,   8.21730,
     +     .01130,    .00434, 277.25840,   8.91129,   7.89978,
     +    7.03659,   8.59200,   8.92607,
     +     .01149,    .00444, 300.49609,   9.62211,   8.61285,
     +    7.76622,   9.30596,   9.63678,
     +     .01168,    .00452, 323.12004,  10.32343,   9.31482,
     +    8.48171,  10.01020,  10.33801,
     +     .01187,    .00462, 346.96810,  11.06707,  10.06121,
     +    9.24489,  10.75671,  11.08154,
     +     .01206,    .00470, 371.01025,  11.82767,  10.82248,
     +   10.01977,  11.52010,  11.84203,
     +     .01224,    .00478, 394.89020,  12.58755,  11.58492,
     +   10.79802,  12.28258,  12.60181,
     +     .01241,    .00487, 417.98318,  13.33166,  12.33026,
     +   11.55666,  13.02913,  13.34583 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01259,    .00496, 442.03332,  14.11295,  13.11329,
     +   12.35389,  13.81283,  14.12701,
     +     .01276,    .00504, 466.51597,  14.91457,  13.91742,
     +   13.17330,  14.61680,  14.92853,
     +     .01294,    .00512, 490.23905,  15.70121,  14.70493,
     +   13.97322,  15.40566,  15.71508,
     +     .01310,    .00520, 513.69315,  16.48099,  15.48806,
     +   14.77169,  16.18752,  16.49478,
     +     .01327,    .00528, 537.44993,  17.28326,  16.29097,
     +   15.58635,  16.99187,  17.29696 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00947,    .00352,    .90840,    .77770,    .00000,
     +     .00000,    .41970,    .78700,
     +     .00964,    .00358,   2.12700,    .81373,    .00000,
     +     .00000,    .45912,    .82305,
     +     .00989,    .00368,   4.38499,    .88140,    .02336,
     +     .00000,    .53174,    .89074,
     +     .01008,    .00375,   6.48739,    .94335,    .07876,
     +     .00000,    .59725,    .95270,
     +     .01028,    .00384,   9.15045,   1.02006,    .16726,
     +     .00000,    .67765,   1.02941,
     +     .01046,    .00392,  11.78607,   1.09757,    .24084,
     +     .00000,    .75828,   1.10693,
     +     .01063,    .00398,  14.65637,   1.18167,    .32183,
     +     .00000,    .84534,   1.19103,
     +     .01081,    .00406,  18.17908,   1.28059,    .42269,
     +     .00000,    .94734,   1.28994 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .01097,    .00413,  21.50043,   1.37703,    .51474,
     +     .00000,   1.04643,   1.38638,
     +     .01114,    .00420,  25.08867,   1.47794,    .61571,
     +     .00000,   1.14985,   1.48727,
     +     .01126,    .00426,  28.11869,   1.56452,    .69989,
     +     .00000,   1.23840,   1.57384,
     +     .01153,    .00437,  35.28887,   1.76784,    .90117,
     +     .00000,   1.44586,   1.77713,
     +     .01177,    .00449,  42.16826,   1.96480,   1.09736,
     +     .18645,   1.64633,   1.97407,
     +     .01205,    .00461,  50.73494,   2.20999,   1.34193,
     +     .48595,   1.89535,   2.21922,
     +     .01235,    .00474,  60.65686,   2.49504,   1.62663,
     +     .78236,   2.18431,   2.50423,
     +     .01262,    .00487,  70.42491,   2.77995,   1.90750,
     +    1.06481,   2.47269,   2.78910 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01290,    .00499,  81.17699,   3.09436,   2.21959,
     +    1.38649,   2.79052,   3.10345,
     +     .01313,    .00510,  90.83652,   3.37712,   2.50255,
     +    1.68213,   3.07608,   3.38618,
     +     .01342,    .00523, 103.26487,   3.74604,   2.86960,
     +    2.05843,   3.44830,   3.75503,
     +     .01367,    .00535, 114.91869,   4.09647,   3.21732,
     +    2.41275,   3.80161,   4.10542,
     +     .01391,    .00546, 126.34620,   4.44052,   3.56170,
     +    2.76893,   4.14826,   4.44942,
     +     .01421,    .00561, 141.49588,   4.90471,   4.02336,
     +    3.23954,   4.61566,   4.91355,
     +     .01450,    .00575, 156.53875,   5.37142,   4.48773,
     +    3.71288,   5.08534,   5.38019,
     +     .01477,    .00587, 171.48505,   5.83840,   4.95457,
     +    4.19173,   5.55505,   5.84711 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01505,    .00601, 186.92437,   6.32951,   5.44316,
     +    4.68826,   6.04884,   6.33816,
     +     .01533,    .00614, 202.74222,   6.83758,   5.94985,
     +    5.20475,   6.55948,   6.84618,
     +     .01559,    .00626, 218.33928,   7.34396,   6.45536,
     +    5.72020,   7.06825,   7.35249,
     +     .01584,    .00640, 233.40875,   7.84058,   6.95003,
     +    6.22257,   7.56709,   7.84906,
     +     .01610,    .00652, 249.19123,   8.36443,   7.47335,
     +    6.75585,   8.09313,   8.37285,
     +     .01635,    .00664, 264.98600,   8.89714,   8.00402,
     +    7.29409,   8.62797,   8.90550,
     +     .01659,    .00676, 280.58117,   9.42678,   8.53306,
     +    7.83229,   9.15960,   9.43509,
     +     .01682,    .00687, 295.56584,   9.94280,   9.04758,
     +    8.35420,   9.67747,   9.95105 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01706,    .00699, 311.08375,  10.48212,   9.58572,
     +    8.90027,  10.21864,  10.49032,
     +     .01729,    .00710, 326.79366,  11.03299,  10.13596,
     +    9.45914,  10.77130,  11.04113,
     +     .01752,    .00721, 341.92526,  11.57103,  10.67226,
     +   10.00206,  11.31104,  11.57913,
     +     .01774,    .00733, 356.82244,  12.10243,  11.20377,
     +   10.54233,  11.84402,  12.11047,
     +     .01796,    .00743, 371.81968,  12.64661,  11.74608,
     +   11.09075,  12.38979,  12.65461 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01285,    .00492,    .93389,    .65854,    .00000,
     +     .00000,    .35676,    .66326,
     +     .01307,    .00502,   2.05560,    .69183,    .00000,
     +     .00000,    .39263,    .69654,
     +     .01341,    .00516,   4.07752,    .75240,    .02242,
     +     .00000,    .45696,    .75710,
     +     .01367,    .00528,   5.91632,    .80624,    .07013,
     +     .00000,    .51352,    .81095,
     +     .01394,    .00539,   8.20181,    .87177,    .14583,
     +     .00000,    .58185,    .87647,
     +     .01419,    .00550,  10.42664,    .93692,    .20757,
     +     .00000,    .64938,    .94163,
     +     .01442,    .00561,  12.81537,   1.00679,    .27487,
     +     .00000,    .72149,   1.01148,
     +     .01468,    .00573,  15.70895,   1.08832,    .35793,
     +     .00000,    .80535,   1.09300 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01489,    .00583,  18.40249,   1.16695,    .43294,
     +     .00000,    .88598,   1.17161,
     +     .01511,    .00593,  21.28272,   1.24872,    .51467,
     +     .00000,    .96966,   1.25338,
     +     .01528,    .00601,  23.69209,   1.31838,    .58232,
     +     .00000,   1.04081,   1.32302,
     +     .01565,    .00618,  29.32409,   1.48070,    .74272,
     +     .00000,   1.20625,   1.48533,
     +     .01599,    .00634,  34.64545,   1.63641,    .89745,
     +     .14666,   1.36461,   1.64101,
     +     .01636,    .00652,  41.17772,   1.82839,   1.08844,
     +     .38115,   1.55948,   1.83297,
     +     .01676,    .00670,  48.63742,   2.04940,   1.30850,
     +     .61006,   1.78345,   2.05396,
     +     .01713,    .00687,  55.88083,   2.26810,   1.52340,
     +     .82584,   2.00477,   2.27264 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01750,    .00705,  63.75892,   2.50741,   1.76013,
     +    1.06956,   2.24666,   2.51193,
     +     .01782,    .00721,  70.76263,   2.72105,   1.97317,
     +    1.29188,   2.46240,   2.72555,
     +     .01821,    .00740,  79.67664,   2.99756,   2.24728,
     +    1.57241,   2.74139,   3.00202,
     +     .01854,    .00757,  87.94570,   3.25812,   2.50486,
     +    1.83438,   3.00412,   3.26255,
     +     .01886,    .00773,  95.98434,   3.51232,   2.75838,
     +    2.09617,   3.26026,   3.51673,
     +     .01928,    .00793, 106.53264,   3.85262,   3.09558,
     +    2.43920,   3.60299,   3.85699,
     +     .01967,    .00812, 116.89896,   4.19210,   3.43213,
     +    2.78154,   3.94470,   4.19644,
     +     .02004,    .00830, 127.10710,   4.52947,   3.76820,
     +    3.12563,   4.28412,   4.53379 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .02041,    .00849, 137.55272,   4.88171,   4.11736,
     +    3.47969,   4.63837,   4.88599,
     +     .02078,    .00867, 148.16557,   5.24375,   4.47718,
     +    3.84573,   5.00235,   5.24801,
     +     .02114,    .00885, 158.54770,   5.60236,   4.83396,
     +    4.20880,   5.36276,   5.60659,
     +     .02147,    .00903, 168.49906,   5.95191,   5.18093,
     +    4.56044,   5.71397,   5.95612,
     +     .02181,    .00919, 178.85248,   6.31867,   5.54616,
     +    4.93190,   6.08239,   6.32286,
     +     .02214,    .00937, 189.13491,   6.68946,   5.91429,
     +    5.30450,   6.45477,   6.69362,
     +     .02247,    .00953, 199.22609,   7.05629,   6.27957,
     +    5.67539,   6.82310,   7.06042,
     +     .02277,    .00969, 208.85662,   7.41183,   6.63296,
     +    6.03313,   7.18003,   7.41593 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02309,    .00985, 218.77248,   7.78169,   7.00090,
     +    6.40576,   7.55129,   7.78578,
     +     .02341,    .01001, 228.75375,   8.15775,   7.37542,
     +    6.78546,   7.92871,   8.16182,
     +     .02370,    .01016, 238.30689,   8.52327,   7.73866,
     +    7.15244,   8.29550,   8.52732,
     +     .02399,    .01031, 247.67208,   8.88297,   8.09746,
     +    7.51653,   8.65640,   8.88700,
     +     .02428,    .01046, 257.03849,   9.24954,   8.46169,
     +    7.88412,   9.02415,   9.25354 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01534,    .00599,    .95020,    .59794,    .00000,
     +     .00000,    .32500,    .60076,
     +     .01561,    .00611,   2.01559,    .62949,    .00000,
     +     .00000,    .35878,    .63232,
     +     .01601,    .00629,   3.90825,    .68602,    .02201,
     +     .00000,    .41852,    .68883,
     +     .01633,    .00643,   5.60650,    .73551,    .06565,
     +     .00000,    .47032,    .73832,
     +     .01666,    .00659,   7.69388,    .79516,    .13463,
     +     .00000,    .53235,    .79794,
     +     .01694,    .00672,   9.70600,    .85391,    .19027,
     +     .00000,    .59312,    .85670,
     +     .01723,    .00686,  11.84814,    .91649,    .25055,
     +     .00000,    .65760,    .91926,
     +     .01752,    .00699,  14.42292,    .98918,    .32458,
     +     .00000,    .73229,    .99193 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01780,    .00712,  16.80147,   1.05881,    .39103,
     +     .00000,    .80362,   1.06157,
     +     .01805,    .00725,  19.32933,   1.13100,    .46314,
     +     .00000,    .87743,   1.13375,
     +     .01826,    .00734,  21.43208,   1.19222,    .52257,
     +     .00000,    .93991,   1.19497,
     +     .01870,    .00755,  26.31147,   1.33422,    .66281,
     +     .00000,   1.08457,   1.33695,
     +     .01910,    .00775,  30.88033,   1.46963,    .79726,
     +     .12706,   1.22221,   1.47234,
     +     .01955,    .00797,  36.44018,   1.63566,    .96225,
     +     .33009,   1.39069,   1.63835,
     +     .02003,    .00820,  42.73610,   1.82566,   1.15122,
     +     .52670,   1.58320,   1.82834,
     +     .02047,    .00843,  48.79899,   2.01256,   1.33464,
     +     .71089,   1.77230,   2.01522 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .02092,    .00864,  55.34597,   2.21603,   1.53569,
     +     .91788,   1.97797,   2.21868,
     +     .02129,    .00883,  61.12998,   2.39689,   1.71579,
     +    1.10586,   2.16059,   2.39951,
     +     .02175,    .00906,  68.44372,   2.62984,   1.94641,
     +    1.34185,   2.39565,   2.63245,
     +     .02216,    .00926,  75.18453,   2.84832,   2.16210,
     +    1.56116,   2.61596,   2.85091,
     +     .02254,    .00946,  81.70376,   3.06066,   2.37360,
     +    1.77954,   2.82995,   3.06325,
     +     .02304,    .00971,  90.20541,   3.34362,   2.65358,
     +    2.06426,   3.11494,   3.34619,
     +     .02350,    .00994,  98.50871,   3.62458,   2.93174,
     +    2.34710,   3.39779,   3.62713,
     +     .02394,    .01017, 106.64163,   3.90266,   3.20840,
     +    2.63030,   3.67761,   3.90520 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02438,    .01039, 114.91626,   4.19176,   3.49458,
     +    2.92035,   3.96839,   4.19427,
     +     .02482,    .01062, 123.28115,   4.48775,   3.78837,
     +    3.21912,   4.26602,   4.49026,
     +     .02524,    .01083, 131.42528,   4.77986,   4.07863,
     +    3.51439,   4.55964,   4.78235,
     +     .02564,    .01103, 139.19379,   5.06354,   4.35987,
     +    3.79928,   4.84474,   5.06603,
     +     .02604,    .01125, 147.24423,   5.36027,   4.65501,
     +    4.09935,   5.14285,   5.36274,
     +     .02644,    .01145, 155.20204,   5.65918,   4.95143,
     +    4.39923,   5.44311,   5.66164,
     +     .02682,    .01165, 162.98349,   5.95406,   5.24474,
     +    4.69694,   5.73925,   5.95650,
     +     .02718,    .01185, 170.37903,   6.23895,   5.52759,
     +    4.98315,   6.02532,   6.24140 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02756,    .01203, 177.96699,   6.53452,   5.82130,
     +    5.28048,   6.32206,   6.53695,
     +     .02792,    .01223, 185.57861,   6.83421,   6.11946,
     +    5.58265,   6.62290,   6.83664,
     +     .02827,    .01242, 192.83545,   7.12466,   6.40778,
     +    5.87381,   6.91442,   7.12708,
     +     .02861,    .01260, 199.93193,   7.40986,   6.69201,
     +    6.16214,   7.20064,   7.41228,
     +     .02895,    .01278, 206.99998,   7.69965,   6.97965,
     +    6.45230,   7.49144,   7.70206 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01740,    .00689,    .96260,    .55858,    .00000,
     +     .00000,    .30454,    .56039,
     +     .01771,    .00703,   1.98827,    .58889,    .00000,
     +     .00000,    .33681,    .59068,
     +     .01817,    .00725,   3.79299,    .64260,    .02178,
     +     .00000,    .39340,    .64438,
     +     .01852,    .00742,   5.39723,    .68914,    .06268,
     +     .00000,    .44200,    .69091,
     +     .01889,    .00759,   7.35337,    .74486,    .12721,
     +     .00000,    .49986,    .74663,
     +     .01923,    .00775,   9.22573,    .79942,    .17884,
     +     .00000,    .55620,    .80117,
     +     .01955,    .00790,  11.20697,    .85723,    .23455,
     +     .00000,    .61571,    .85897,
     +     .01988,    .00807,  13.57506,    .92417,    .30271,
     +     .00000,    .68443,    .92590 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .02018,    .00822,  15.75063,    .98801,    .36362,
     +     .00000,    .74978,    .98974,
     +     .02048,    .00835,  18.05269,   1.05400,    .42955,
     +     .00000,    .81722,   1.05572,
     +     .02071,    .00847,  19.95980,   1.10981,    .48371,
     +     .00000,    .87415,   1.11152,
     +     .02122,    .00872,  24.36196,   1.23882,    .61109,
     +     .00000,   1.00552,   1.24052,
     +     .02167,    .00895,  28.45761,   1.36131,    .73269,
     +     .11452,   1.13002,   1.36300,
     +     .02219,    .00921,  33.40994,   1.51090,    .88128,
     +     .29776,   1.28178,   1.51258,
     +     .02273,    .00947,  38.98385,   1.68137,   1.05074,
     +     .47416,   1.45447,   1.68304,
     +     .02322,    .00972,  44.31934,   1.84833,   1.21450,
     +     .63867,   1.62339,   1.84998 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02373,    .00998,  50.05112,   2.02945,   1.39335,
     +     .82291,   1.80644,   2.03109,
     +     .02416,    .01019,  55.09209,   2.18992,   1.55307,
     +     .98970,   1.96849,   2.19155,
     +     .02468,    .01046,  61.43618,   2.39589,   1.75687,
     +    1.19831,   2.17634,   2.39753,
     +     .02514,    .01070,  67.25590,   2.58844,   1.94683,
     +    1.39149,   2.37051,   2.59006,
     +     .02558,    .01091,  72.86348,   2.77506,   2.13260,
     +    1.58337,   2.55859,   2.77668,
     +     .02613,    .01121,  80.14339,   3.02290,   2.37771,
     +    1.83267,   2.80826,   3.02452,
     +     .02665,    .01147,  87.22150,   3.26819,   2.62039,
     +    2.07947,   3.05521,   3.26980,
     +     .02715,    .01174,  94.12769,   3.51025,   2.86109,
     +    2.32592,   3.29881,   3.51185 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02766,    .01199, 101.12481,   3.76112,   3.10928,
     +    2.57748,   3.55118,   3.76271,
     +     .02815,    .01225, 108.17257,   4.01727,   3.36338,
     +    2.83593,   3.80876,   4.01885,
     +     .02862,    .01250, 115.01054,   4.26937,   3.61377,
     +    3.09068,   4.06222,   4.27096,
     +     .02907,    .01273, 121.51010,   4.51357,   3.85574,
     +    3.33580,   4.30767,   4.51515,
     +     .02952,    .01297, 128.22649,   4.76842,   4.10910,
     +    3.59343,   4.56374,   4.77001,
     +     .02997,    .01321, 134.84254,   5.02449,   4.36292,
     +    3.85021,   4.82102,   5.02608,
     +     .03040,    .01344, 141.29508,   5.27658,   4.61355,
     +    4.10464,   5.07423,   5.27816,
     +     .03081,    .01365, 147.40906,   5.51959,   4.85470,
     +    4.34867,   5.31828,   5.52117 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03123,    .01388, 153.66601,   5.77120,   5.10462,
     +    4.60169,   5.57093,   5.77277,
     +     .03164,    .01409, 159.92671,   6.02582,   5.35785,
     +    4.85835,   5.82657,   6.02739,
     +     .03204,    .01431, 165.87830,   6.27206,   5.60219,
     +    5.10510,   6.07376,   6.27364,
     +     .03242,    .01451, 171.68816,   6.51349,   5.84271,
     +    5.34914,   6.31608,   6.51508,
     +     .03281,    .01471, 177.45690,   6.75827,   6.08559,
     +    5.59414,   6.56176,   6.75985 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01919,    .00769,    .97316,    .52998,    .00000,
     +     .00000,    .28968,    .53113,
     +     .01953,    .00785,   1.96817,    .55930,    .00000,
     +     .00000,    .32081,    .56043,
     +     .02003,    .00809,   3.70678,    .61085,    .02163,
     +     .00000,    .37501,    .61197,
     +     .02043,    .00828,   5.24118,    .65520,    .06049,
     +     .00000,    .42125,    .65631,
     +     .02084,    .00848,   7.10055,    .70803,    .12174,
     +     .00000,    .47603,    .70913,
     +     .02120,    .00865,   8.87047,    .75949,    .17042,
     +     .00000,    .52914,    .76059,
     +     .02155,    .00883,  10.73437,    .81383,    .22279,
     +     .00000,    .58504,    .81492,
     +     .02193,    .00901,  12.95249,    .87658,    .28669,
     +     .00000,    .64941,    .87767 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02227,    .00918,  14.98151,    .93622,    .34359,
     +     .00000,    .71043,    .93729,
     +     .02259,    .00934,  17.12106,    .99775,    .40505,
     +     .00000,    .77328,    .99882,
     +     .02284,    .00947,  18.88790,   1.04965,    .45544,
     +     .00000,    .82622,   1.05073,
     +     .02341,    .00975,  22.94942,   1.16934,    .57359,
     +     .00000,    .94805,   1.17040,
     +     .02391,    .01000,  26.70956,   1.28259,    .68599,
     +     .10551,   1.06314,   1.28365,
     +     .02447,    .01028,  31.23335,   1.42046,    .82292,
     +     .27467,   1.20301,   1.42150,
     +     .02507,    .01059,  36.30060,   1.57706,    .97855,
     +     .43679,   1.36163,   1.57810,
     +     .02561,    .01086,  41.12811,   1.72990,   1.12844,
     +     .58744,   1.51628,   1.73094 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02618,    .01116,  46.29318,   1.89525,   1.29167,
     +     .75569,   1.68339,   1.89629,
     +     .02665,    .01140,  50.81962,   2.04138,   1.43709,
     +     .90765,   1.83097,   2.04242,
     +     .02722,    .01170,  56.49492,   2.22847,   1.62213,
     +    1.09714,   2.01976,   2.22950,
     +     .02773,    .01196,  61.68185,   2.40286,   1.79415,
     +    1.27215,   2.19563,   2.40389,
     +     .02820,    .01220,  66.66518,   2.57154,   1.96201,
     +    1.44563,   2.36565,   2.57257,
     +     .02882,    .01252,  73.11161,   2.79498,   2.18292,
     +    1.67039,   2.59074,   2.79601,
     +     .02939,    .01283,  79.35715,   3.01552,   2.40107,
     +    1.89233,   2.81281,   3.01656,
     +     .02993,    .01311,  85.43242,   3.23268,   2.61695,
     +    2.11345,   3.03137,   3.23371 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .03049,    .01341,  91.56720,   3.45717,   2.83900,
     +    2.33859,   3.25725,   3.45821,
     +     .03103,    .01369,  97.72875,   3.68591,   3.06585,
     +    2.56939,   3.48730,   3.68694,
     +     .03155,    .01397, 103.69051,   3.91056,   3.28894,
     +    2.79644,   3.71319,   3.91162,
     +     .03204,    .01423, 109.34129,   4.12772,   3.50406,
     +    3.01443,   3.93149,   4.12877,
     +     .03254,    .01449, 115.16732,   4.35396,   3.72893,
     +    3.24317,   4.15885,   4.35500,
     +     .03303,    .01475, 120.89064,   4.58082,   3.95375,
     +    3.47067,   4.38679,   4.58187,
     +     .03351,    .01501, 126.46100,   4.80378,   4.17540,
     +    3.69575,   4.61078,   4.80484,
     +     .03396,    .01525, 131.72613,   5.01832,   4.38827,
     +    3.91122,   4.82628,   5.01940 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03441,    .01549, 137.10351,   5.24013,   4.60854,
     +    4.13429,   5.04904,   5.24120,
     +     .03487,    .01574, 142.47343,   5.46423,   4.83140,
     +    4.36024,   5.27406,   5.46532,
     +     .03530,    .01597, 147.56646,   5.68061,   5.04607,
     +    4.57708,   5.49130,   5.68169,
     +     .03572,    .01620, 152.53127,   5.89250,   5.25715,
     +    4.79132,   5.70403,   5.89360,
     +     .03614,    .01642, 157.44872,   6.10695,   5.46991,
     +    5.00599,   5.91930,   6.10806 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02603,    .01086,   1.01009,    .45122,    .00000,
     +     .00000,    .24935,    .45124,
     +     .02649,    .01108,   1.91135,    .47737,    .00000,
     +     .00000,    .27689,    .47738,
     +     .02717,    .01142,   3.45576,    .52237,    .02134,
     +     .00000,    .32394,    .52238,
     +     .02771,    .01169,   4.78910,    .56026,    .05431,
     +     .00000,    .36328,    .56028,
     +     .02827,    .01198,   6.37308,    .60475,    .10615,
     +     .00000,    .40928,    .60476,
     +     .02876,    .01224,   7.85460,    .64746,    .14651,
     +     .00000,    .45326,    .64748,
     +     .02924,    .01248,   9.39112,    .69206,    .18953,
     +     .00000,    .49904,    .69206,
     +     .02975,    .01275,  11.19422,    .74316,    .24158,
     +     .00000,    .55140,    .74317 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .03020,    .01298,  12.82090,    .79118,    .28745,
     +     .00000,    .60048,    .79120,
     +     .03064,    .01321,  14.51742,    .84043,    .33665,
     +     .00000,    .65074,    .84045,
     +     .03099,    .01339,  15.90414,    .88166,    .37670,
     +     .00000,    .69276,    .88169,
     +     .03175,    .01378,  19.04989,    .97597,    .46985,
     +     .00000,    .78872,    .97601,
     +     .03242,    .01414,  21.91717,   1.06429,    .55755,
     +     .08086,    .87844,   1.06434,
     +     .03319,    .01455,  25.30955,   1.17072,    .66330,
     +     .21245,    .98640,   1.17078,
     +     .03400,    .01498,  29.05163,   1.29036,    .78223,
     +     .33675,   1.10758,   1.29043,
     +     .03474,    .01537,  32.56262,   1.40587,    .89556,
     +     .45099,   1.22446,   1.40596 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03549,    .01577,  36.27034,   1.52972,   1.01790,
     +     .57752,   1.34966,   1.52984,
     +     .03612,    .01612,  39.48284,   1.63835,   1.12604,
     +     .69091,   1.45939,   1.63848,
     +     .03689,    .01654,  43.46248,   1.77621,   1.26245,
     +     .83102,   1.59855,   1.77635,
     +     .03759,    .01690,  47.05636,   1.90364,   1.38820,
     +     .95929,   1.72710,   1.90380,
     +     .03822,    .01725,  50.47710,   2.02607,   1.51011,
     +    1.08567,   1.85055,   2.02626,
     +     .03904,    .01770,  54.85124,   2.18691,   1.66918,
     +    1.24794,   2.01264,   2.18711,
     +     .03981,    .01812,  59.04058,   2.34434,   1.82499,
     +    1.40685,   2.17125,   2.34458,
     +     .04053,    .01852,  63.07602,   2.49825,   1.97808,
     +    1.56410,   2.32622,   2.49851 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04127,    .01892,  67.10698,   2.65612,   2.13431,
     +    1.72287,   2.48514,   2.65640,
     +     .04199,    .01932,  71.11814,   2.81587,   2.29284,
     +    1.88456,   2.64588,   2.81617,
     +     .04269,    .01970,  74.96491,   2.97175,   2.44772,
     +    2.04258,   2.80269,   2.97208,
     +     .04334,    .02006,  78.57750,   3.12141,   2.59607,
     +    2.19325,   2.95322,   3.12176,
     +     .04400,    .02043,  82.27520,   3.27647,   2.75031,
     +    2.35054,   3.10913,   3.27685,
     +     .04466,    .02079,  85.87477,   3.43096,   2.90350,
     +    2.50589,   3.26446,   3.43137,
     +     .04529,    .02114,  89.35501,   3.58202,   3.05378,
     +    2.65887,   3.41628,   3.58244,
     +     .04588,    .02147,  92.61811,   3.72654,   3.19727,
     +    2.80443,   3.56154,   3.72699 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04648,    .02181,  95.92887,   3.87521,   3.34503,
     +    2.95441,   3.71092,   3.87568,
     +     .04709,    .02214,  99.21345,   4.02469,   3.49380,
     +    3.10559,   3.86111,   4.02519,
     +     .04767,    .02246, 102.30475,   4.16824,   3.63632,
     +    3.24985,   4.00532,   4.16876,
     +     .04821,    .02276, 105.30516,   4.30828,   3.77597,
     +    3.39194,   4.14599,   4.30883,
     +     .04877,    .02308, 108.25174,   4.44925,   3.91592,
     +    3.53343,   4.28758,   4.44982 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03541,    .01539,   1.06041,    .38625,    .00000,
     +     .00000,    .21670,    .38625,
     +     .03602,    .01571,   1.87110,    .40916,    .00000,
     +     .00000,    .24072,    .40917,
     +     .03694,    .01620,   3.23676,    .44774,    .02121,
     +     .00000,    .28092,    .44777,
     +     .03765,    .01657,   4.39029,    .47965,    .04882,
     +     .00000,    .31399,    .47970,
     +     .03841,    .01698,   5.73227,    .51663,    .09229,
     +     .00000,    .35216,    .51670,
     +     .03906,    .01734,   6.96441,    .55169,    .12540,
     +     .00000,    .38823,    .55178,
     +     .03971,    .01768,   8.22176,    .58788,    .16040,
     +     .00000,    .42537,    .58799,
     +     .04041,    .01806,   9.67555,    .62906,    .20239,
     +     .00000,    .46753,    .62920 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .04101,    .01839,  10.96798,    .66733,    .23900,
     +     .00000,    .50664,    .66748,
     +     .04160,    .01872,  12.30027,    .70634,    .27805,
     +     .00000,    .54646,    .70653,
     +     .04207,    .01898,  13.37748,    .73877,    .30960,
     +     .00000,    .57950,    .73896,
     +     .04309,    .01953,  15.78689,    .81232,    .38237,
     +     .00000,    .65435,    .81255,
     +     .04400,    .02004,  17.94928,    .88046,    .45016,
     +     .06031,    .72361,    .88072,
     +     .04503,    .02061,  20.45939,    .96174,    .53107,
     +     .16196,    .80609,    .96205,
     +     .04611,    .02122,  23.18346,   1.05213,    .62111,
     +     .25658,    .89770,   1.05249,
     +     .04710,    .02177,  25.69765,   1.13843,    .70598,
     +     .34257,    .98507,   1.13883 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04811,    .02234,  28.31592,   1.23013,    .79674,
     +     .43698,   1.07784,   1.23057,
     +     .04895,    .02281,  30.55709,   1.30990,    .87634,
     +     .52092,   1.15847,   1.31038,
     +     .04999,    .02340,  33.29758,   1.41025,    .97586,
     +     .62367,   1.25984,   1.41077,
     +     .05091,    .02391,  35.74056,   1.50217,   1.06679,
     +     .71690,   1.35265,   1.50275,
     +     .05176,    .02440,  38.04292,   1.58991,   1.15436,
     +     .80818,   1.44119,   1.59051,
     +     .05285,    .02502,  40.94998,   1.70414,   1.26761,
     +     .92427,   1.55642,   1.70480,
     +     .05388,    .02560,  43.69962,   1.81500,   1.37758,
     +    1.03699,   1.66819,   1.81572,
     +     .05486,    .02615,  46.32066,   1.92257,   1.48485,
     +    1.14773,   1.77659,   1.92334 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05583,    .02671,  48.90752,   2.03200,   1.59339,
     +    1.25857,   1.88684,   2.03282,
     +     .05680,    .02726,  51.45585,   2.14194,   1.70275,
     +    1.37066,   1.99757,   2.14280,
     +     .05770,    .02779,  53.87621,   2.24847,   1.80889,
     +    1.47948,   2.10485,   2.24939,
     +     .05858,    .02828,  56.12585,   2.35005,   1.90981,
     +    1.58245,   2.20711,   2.35101,
     +     .05946,    .02879,  58.41067,   2.45468,   2.01416,
     +    1.68938,   2.31242,   2.45569,
     +     .06032,    .02928,  60.61204,   2.55821,   2.11708,
     +    1.79423,   2.41660,   2.55927,
     +     .06115,    .02976,  62.72524,   2.65890,   2.21750,
     +    1.89694,   2.51791,   2.66000,
     +     .06194,    .03021,  64.68849,   2.75464,   2.31281,
     +    1.99407,   2.61423,   2.75580 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06273,    .03067,  66.66591,   2.85263,   2.41044,
     +    2.09363,   2.71278,   2.85382,
     +     .06353,    .03112,  68.61366,   2.95064,   2.50825,
     +    2.19349,   2.81134,   2.95187,
     +     .06427,    .03155,  70.43039,   3.04420,   2.60138,
     +    2.28818,   2.90544,   3.04549,
     +     .06500,    .03197,  72.18600,   3.13515,   2.69233,
     +    2.38116,   2.99688,   3.13647,
     +     .06573,    .03239,  73.89249,   3.22613,   2.78289,
     +    2.47312,   3.08836,   3.22750 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .04243,    .01892,   1.10339,    .35385,    .00000,
     +     .00000,    .20063,    .35424,
     +     .04315,    .01930,   1.86313,    .37484,    .00000,
     +     .00000,    .22260,    .37526,
     +     .04424,    .01990,   3.13005,    .40973,    .02105,
     +     .00000,    .25894,    .41019,
     +     .04508,    .02037,   4.18617,    .43834,    .04573,
     +     .00000,    .28857,    .43884,
     +     .04598,    .02086,   5.39888,    .47128,    .08471,
     +     .00000,    .32257,    .47182,
     +     .04676,    .02130,   6.49969,    .50227,    .11401,
     +     .00000,    .35446,    .50285,
     +     .04752,    .02172,   7.61170,    .53410,    .14482,
     +     .00000,    .38712,    .53471,
     +     .04834,    .02219,   8.88562,    .57015,    .18164,
     +     .00000,    .42405,    .57080 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04906,    .02259,  10.00788,    .60345,    .21352,
     +     .00000,    .45809,    .60413,
     +     .04976,    .02298,  11.15634,    .63728,    .24743,
     +     .00000,    .49263,    .63799,
     +     .05032,    .02330,  12.07866,    .66525,    .27469,
     +     .00000,    .52116,    .66600,
     +     .05153,    .02399,  14.12356,    .72844,    .33730,
     +     .00000,    .58549,    .72924,
     +     .05261,    .02460,  15.94223,    .78661,    .39525,
     +     .04980,    .64464,    .78746,
     +     .05383,    .02530,  18.02675,    .85555,    .46400,
     +     .13677,    .71466,    .85647,
     +     .05511,    .02603,  20.26598,    .93174,    .54002,
     +     .21701,    .79192,    .93271,
     +     .05628,    .02671,  22.31131,   1.00398,    .61119,
     +     .28942,    .86512,   1.00502 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05749,    .02739,  24.42272,   1.08031,    .68690,
     +     .36851,    .94239,   1.08141,
     +     .05849,    .02798,  26.21628,   1.14638,    .75296,
     +     .43850,   1.00924,   1.14754,
     +     .05971,    .02869,  28.39140,   1.22905,    .83512,
     +     .52368,   1.09282,   1.23027,
     +     .06080,    .02931,  30.31443,   1.30437,    .90977,
     +     .60055,   1.16893,   1.30565,
     +     .06181,    .02990,  32.11552,   1.37594,    .98137,
     +     .67550,   1.24122,   1.37729,
     +     .06310,    .03064,  34.37125,   1.46865,   1.07347,
     +     .77030,   1.33481,   1.47007,
     +     .06430,    .03135,  36.48783,   1.55813,   1.16242,
     +     .86185,   1.42512,   1.55962,
     +     .06546,    .03202,  38.49206,   1.64457,   1.24881,
     +     .95141,   1.51230,   1.64612 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06660,    .03269,  40.45473,   1.73205,   1.33576,
     +    1.04056,   1.60051,   1.73367,
     +     .06773,    .03335,  42.37568,   1.81954,   1.42301,
     +    1.13034,   1.68871,   1.82123,
     +     .06882,    .03398,  44.18885,   1.90397,   1.50729,
     +    1.21711,   1.77380,   1.90572,
     +     .06984,    .03457,  45.86268,   1.98411,   1.58710,
     +    1.29888,   1.85455,   1.98593,
     +     .07087,    .03517,  47.55424,   2.06638,   1.66933,
     +    1.38348,   1.93743,   2.06825,
     +     .07188,    .03577,  49.17286,   2.14741,   1.75007,
     +    1.46606,   2.01905,   2.14936,
     +     .07285,    .03633,  50.71957,   2.22597,   1.82862,
     +    1.54672,   2.09816,   2.22798,
     +     .07377,    .03687,  52.14766,   2.30039,   1.90286,
     +    1.62269,   2.17309,   2.30245 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07471,    .03741,  53.57920,   2.37630,   1.97869,
     +    1.70031,   2.24951,   2.37841,
     +     .07564,    .03795,  54.98258,   2.45198,   2.05440,
     +    1.77792,   2.32570,   2.45416,
     +     .07652,    .03848,  56.28358,   2.52396,   2.12623,
     +    1.85124,   2.39817,   2.52620,
     +     .07736,    .03896,  57.53744,   2.59378,   2.19621,
     +    1.92308,   2.46843,   2.59607,
     +     .07822,    .03947,  58.74735,   2.66335,   2.26562,
     +    1.99384,   2.53843,   2.66569 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04825,    .02190,   1.14665,    .33265,    .00000,
     +     .00000,    .19018,    .33358,
     +     .04904,    .02235,   1.87136,    .35227,    .00000,
     +     .00000,    .21070,    .35322,
     +     .05029,    .02303,   3.06981,    .38465,    .02072,
     +     .00000,    .24438,    .38566,
     +     .05123,    .02356,   4.05899,    .41105,    .04342,
     +     .00000,    .27172,    .41209,
     +     .05224,    .02414,   5.18374,    .44130,    .07939,
     +     .00000,    .30296,    .44240,
     +     .05312,    .02465,   6.19610,    .46966,    .10617,
     +     .00000,    .33211,    .47079,
     +     .05399,    .02514,   7.21111,    .49863,    .13423,
     +     .00000,    .36186,    .49981,
     +     .05491,    .02567,   8.36586,    .53136,    .16767,
     +     .00000,    .39539,    .53258 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05572,    .02613,   9.37630,    .56145,    .19651,
     +     .00000,    .42617,    .56270,
     +     .05651,    .02659,  10.40470,    .59195,    .22707,
     +     .00000,    .45731,    .59325,
     +     .05714,    .02696,  11.22647,    .61709,    .25158,
     +     .00000,    .48296,    .61842,
     +     .05851,    .02775,  13.03639,    .67367,    .30768,
     +     .00000,    .54060,    .67506,
     +     .05973,    .02846,  14.63567,    .72549,    .35935,
     +     .04303,    .59333,    .72696,
     +     .06110,    .02927,  16.45065,    .78665,    .42040,
     +     .12067,    .65548,    .78819,
     +     .06255,    .03012,  18.38550,    .85390,    .48756,
     +     .19181,    .72372,    .85553,
     +     .06388,    .03089,  20.13900,    .91736,    .55013,
     +     .25570,    .78805,    .91905 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06522,    .03168,  21.93722,    .98411,    .61643,
     +     .32521,    .85569,    .98588,
     +     .06636,    .03234,  23.45601,   1.04169,    .67407,
     +     .38651,    .91398,   1.04354,
     +     .06774,    .03316,  25.28641,   1.11344,    .74547,
     +     .46080,    .98656,   1.11535,
     +     .06896,    .03388,  26.89455,   1.17853,    .81007,
     +     .52755,   1.05239,   1.18053,
     +     .07009,    .03454,  28.39370,   1.24020,    .87185,
     +     .59246,   1.11473,   1.24226,
     +     .07154,    .03540,  30.25958,   1.31975,    .95100,
     +     .67422,   1.19510,   1.32191,
     +     .07290,    .03619,  31.99971,   1.39624,   1.02714,
     +     .75286,   1.27233,   1.39847,
     +     .07419,    .03696,  33.63918,   1.46985,   1.10083,
     +     .82953,   1.34664,   1.47216 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07548,    .03772,  35.23492,   1.54407,   1.17473,
     +     .90555,   1.42155,   1.54646,
     +     .07675,    .03847,  36.78904,   1.61805,   1.24861,
     +     .98186,   1.49619,   1.62053,
     +     .07796,    .03918,  38.24897,   1.68922,   1.31979,
     +    1.05538,   1.56797,   1.69176,
     +     .07910,    .03986,  39.58952,   1.75655,   1.38696,
     +    1.12443,   1.63587,   1.75917,
     +     .08025,    .04054,  40.93916,   1.82547,   1.45598,
     +    1.19569,   1.70536,   1.82817,
     +     .08139,    .04121,  42.22353,   1.89315,   1.52352,
     +    1.26502,   1.77359,   1.89592,
     +     .08247,    .04185,  43.44661,   1.95860,   1.58908,
     +    1.33257,   1.83955,   1.96144,
     +     .08350,    .04246,  44.57035,   2.02040,   1.65087,
     +    1.39602,   1.90184,   2.02331 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08454,    .04307,  45.69261,   2.08330,   1.71380,
     +    1.46067,   1.96522,   2.08628,
     +     .08558,    .04369,  46.78868,   2.14586,   1.77651,
     +    1.52518,   2.02825,   2.14890,
     +     .08656,    .04427,  47.79974,   2.20520,   1.83583,
     +    1.58594,   2.08803,   2.20830,
     +     .08750,    .04482,  48.77231,   2.26264,   1.89354,
     +    1.64539,   2.14590,   2.26582,
     +     .08845,    .04538,  49.70517,   2.31971,   1.95060,
     +    1.70376,   2.20338,   2.32294 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05332,    .02466,   1.19836,    .31825,    .00000,
     +     .00000,    .18265,    .31919,
     +     .05419,    .02516,   1.89820,    .33680,    .00000,
     +     .00000,    .20202,    .33779,
     +     .05556,    .02593,   3.04230,    .36727,    .02020,
     +     .00000,    .23371,    .36833,
     +     .05660,    .02653,   3.97887,    .39201,    .04143,
     +     .00000,    .25930,    .39312,
     +     .05771,    .02717,   5.03518,    .42026,    .07517,
     +     .00000,    .28843,    .42142,
     +     .05869,    .02774,   5.97948,    .44662,    .10007,
     +     .00000,    .31555,    .44784,
     +     .05963,    .02829,   6.92041,    .47347,    .12612,
     +     .00000,    .34311,    .47475,
     +     .06065,    .02888,   7.98471,    .50374,    .15706,
     +     .00000,    .37411,    .50507 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .06154,    .02941,   8.91093,    .53146,    .18364,
     +     .00000,    .40245,    .53285,
     +     .06241,    .02991,   9.84928,    .55950,    .21178,
     +     .00000,    .43109,    .56093,
     +     .06311,    .03033,  10.59599,    .58255,    .23427,
     +     .00000,    .45461,    .58402,
     +     .06461,    .03120,  12.23155,    .63428,    .28561,
     +     .00000,    .50732,    .63584,
     +     .06595,    .03199,  13.66921,    .68149,    .33271,
     +     .03814,    .55536,    .68312,
     +     .06747,    .03289,  15.28721,    .73698,    .38815,
     +     .10895,    .61177,    .73871,
     +     .06906,    .03384,  17.00113,    .79776,    .44892,
     +     .17350,    .67347,    .79958,
     +     .07051,    .03470,  18.54419,    .85485,    .50528,
     +     .23121,    .73139,    .85678 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07199,    .03557,  20.11789,    .91473,    .56480,
     +     .29381,    .79206,    .91674,
     +     .07323,    .03631,  21.44072,    .96621,    .61639,
     +     .34883,    .84421,    .96829,
     +     .07473,    .03720,  23.02659,   1.03014,    .68008,
     +     .41529,    .90892,   1.03232,
     +     .07608,    .03800,  24.41249,   1.08794,    .73752,
     +     .47480,    .96740,   1.09021,
     +     .07732,    .03874,  25.69942,   1.14257,    .79230,
     +     .53254,   1.02265,   1.14491,
     +     .07890,    .03968,  27.29276,   1.21279,    .86225,
     +     .60499,   1.09363,   1.21523,
     +     .08039,    .04057,  28.77091,   1.28007,    .92932,
     +     .67446,   1.16161,   1.28262,
     +     .08180,    .04140,  30.15760,   1.34464,    .99404,
     +     .74200,   1.22684,   1.34728 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08321,    .04224,  31.50027,   1.40952,   1.05874,
     +     .80874,   1.29237,   1.41226,
     +     .08459,    .04306,  32.80249,   1.47403,   1.12325,
     +     .87556,   1.35749,   1.47687,
     +     .08591,    .04384,  34.02078,   1.53592,   1.18523,
     +     .93978,   1.41995,   1.53884,
     +     .08715,    .04459,  35.13428,   1.59430,   1.24356,
     +     .99991,   1.47887,   1.59730,
     +     .08840,    .04533,  36.25171,   1.65392,   1.30337,
     +    1.06184,   1.53903,   1.65702,
     +     .08964,    .04607,  37.30992,   1.71232,   1.36174,
     +    1.12192,   1.59794,   1.71549,
     +     .09082,    .04676,  38.31461,   1.76867,   1.41828,
     +    1.18036,   1.65477,   1.77192,
     +     .09194,    .04743,  39.23384,   1.82175,   1.47143,
     +    1.23509,   1.70831,   1.82508 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09307,    .04810,  40.14898,   1.87566,   1.52548,
     +    1.29077,   1.76267,   1.87907,
     +     .09419,    .04876,  41.03977,   1.92917,   1.57920,
     +    1.34621,   1.81663,   1.93266,
     +     .09526,    .04939,  41.85760,   1.97980,   1.62992,
     +    1.39831,   1.86767,   1.98337,
     +     .09628,    .05000,  42.64302,   2.02876,   1.67919,
     +    1.44923,   1.91704,   2.03240,
     +     .09730,    .05060,  43.39228,   2.07726,   1.72778,
     +    1.49907,   1.96593,   2.08097 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07290,    .03581,   1.39998,    .27825,    .00000,
     +     .00000,    .16166,    .28008,
     +     .07407,    .03650,   2.01741,    .29353,    .00000,
     +     .00000,    .17760,    .29544,
     +     .07589,    .03761,   2.99325,    .31833,    .01768,
     +     .00000,    .20333,    .32035,
     +     .07729,    .03845,   3.77059,    .33818,    .03466,
     +     .00000,    .22386,    .34027,
     +     .07878,    .03936,   4.62427,    .36062,    .06199,
     +     .00000,    .24702,    .36282,
     +     .08009,    .04015,   5.37070,    .38133,    .08164,
     +     .00000,    .26833,    .38361,
     +     .08136,    .04092,   6.09938,    .40222,    .10201,
     +     .00000,    .28978,    .40458,
     +     .08273,    .04177,   6.90784,    .42558,    .12605,
     +     .00000,    .31373,    .42803 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08392,    .04250,   7.59885,    .44674,    .14644,
     +     .00000,    .33539,    .44927,
     +     .08509,    .04321,   8.28823,    .46801,    .16788,
     +     .00000,    .35713,    .47060,
     +     .08602,    .04378,   8.82935,    .48534,    .18489,
     +     .00000,    .37485,    .48800,
     +     .08804,    .04501,   9.99262,    .52387,    .22333,
     +     .00000,    .41417,    .52667,
     +     .08982,    .04610,  10.99919,    .55860,    .25816,
     +     .02445,    .44957,    .56152,
     +     .09184,    .04733,  12.09705,    .59891,    .29866,
     +     .07702,    .49064,    .60197,
     +     .09396,    .04862,  13.23526,    .64248,    .34246,
     +     .12410,    .53497,    .64570,
     +     .09589,    .04980,  14.23712,    .68287,    .38255,
     +     .16562,    .57602,    .68621 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09785,    .05099,  15.23966,    .72471,    .42438,
     +     .21017,    .61854,    .72820,
     +     .09949,    .05199,  16.06861,    .76033,    .46031,
     +     .24896,    .65471,    .76395,
     +     .10148,    .05321,  17.04426,    .80407,    .50415,
     +     .29526,    .69910,    .80783,
     +     .10325,    .05427,  17.88114,    .84316,    .54323,
     +     .33624,    .73876,    .84705,
     +     .10488,    .05526,  18.64787,    .87978,    .58021,
     +     .37569,    .77590,    .88379,
     +     .10694,    .05651,  19.57928,    .92633,    .62687,
     +     .42462,    .82309,    .93049,
     +     .10889,    .05769,  20.42748,    .97042,    .67113,
     +     .47102,    .86778,    .97473,
     +     .11072,    .05879,  21.21138,   1.01234,    .71345,
     +     .51574,    .91024,   1.01677 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11255,    .05990,  21.95592,   1.05399,    .75529,
     +     .55943,    .95244,   1.05856,
     +     .11435,    .06098,  22.66710,   1.09502,    .79663,
     +     .60278,    .99399,   1.09973,
     +     .11606,    .06201,  23.32259,   1.13401,    .83599,
     +     .64409,   1.03349,   1.13886,
     +     .11765,    .06296,  23.91131,   1.17045,    .87269,
     +     .68240,   1.07039,   1.17542,
     +     .11927,    .06393,  24.49530,   1.20740,    .91006,
     +     .72160,   1.10779,   1.21249,
     +     .12085,    .06488,  25.03810,   1.24323,    .94618,
     +     .75925,   1.14407,   1.24845,
     +     .12236,    .06578,  25.54796,   1.27757,    .98094,
     +     .79565,   1.17883,   1.28291,
     +     .12378,    .06663,  26.00651,   1.30966,   1.01335,
     +     .82946,   1.21131,   1.31509 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12523,    .06748,  26.45740,   1.34201,   1.04608,
     +     .86362,   1.24405,   1.34755,
     +     .12665,    .06834,  26.89085,   1.37389,   1.07840,
     +     .89742,   1.27633,   1.37955,
     +     .12800,    .06913,  27.28154,   1.40382,   1.10867,
     +     .92893,   1.30661,   1.40958,
     +     .12929,    .06990,  27.65484,   1.43262,   1.13794,
     +     .95959,   1.33577,   1.43848,
     +     .13059,    .07066,  28.00256,   1.46089,   1.16655,
     +     .98934,   1.36438,   1.46685 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .10010,    .05241,   1.70025,    .24481,    .00000,
     +     .00000,    .14238,    .24807,
     +     .10167,    .05340,   2.22696,    .25698,    .00000,
     +     .00000,    .15506,    .26035,
     +     .10412,    .05495,   3.02873,    .27657,    .01274,
     +     .00000,    .17541,    .28011,
     +     .10599,    .05613,   3.64445,    .29205,    .02606,
     +     .00000,    .19146,    .29575,
     +     .10800,    .05739,   4.30078,    .30940,    .04781,
     +     .00000,    .20939,    .31324,
     +     .10976,    .05849,   4.86103,    .32520,    .06299,
     +     .00000,    .22570,    .32918,
     +     .11146,    .05956,   5.39543,    .34099,    .07861,
     +     .00000,    .24194,    .34509,
     +     .11329,    .06071,   5.97547,    .35849,    .09687,
     +     .00000,    .25994,    .36273 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11489,    .06171,   6.46137,    .37414,    .11213,
     +     .00000,    .27602,    .37852,
     +     .11646,    .06269,   6.93756,    .38976,    .12808,
     +     .00000,    .29204,    .39426,
     +     .11769,    .06347,   7.30554,    .40237,    .14059,
     +     .00000,    .30497,    .40697,
     +     .12038,    .06513,   8.07933,    .43011,    .16858,
     +     .00000,    .33338,    .43492,
     +     .12275,    .06659,   8.74006,    .45472,    .19357,
     +     .01283,    .35858,    .45972,
     +     .12541,    .06824,   9.42882,    .48290,    .22221,
     +     .05079,    .38740,    .48812,
     +     .12821,    .06996,  10.12502,    .51289,    .25272,
     +     .08415,    .41806,    .51834,
     +     .13074,    .07151,  10.72079,    .54024,    .28019,
     +     .11311,    .44600,    .54589 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13329,    .07307,  11.30323,    .56820,    .30850,
     +     .14381,    .47455,    .57406,
     +     .13543,    .07438,  11.77512,    .59172,    .33252,
     +     .17022,    .49856,    .59776,
     +     .13801,    .07594,  12.31730,    .62020,    .36145,
     +     .20133,    .52763,    .62646,
     +     .14028,    .07733,  12.77122,    .64532,    .38690,
     +     .22852,    .55326,    .65177,
     +     .14239,    .07859,  13.18013,    .66862,    .41075,
     +     .25445,    .57702,    .67523,
     +     .14504,    .08019,  13.66384,    .69781,    .44045,
     +     .28618,    .60680,    .70465,
     +     .14752,    .08168,  14.09347,    .72510,    .46825,
     +     .31589,    .63464,    .73215,
     +     .14986,    .08307,  14.48279,    .75075,    .49455,
     +     .34422,    .66080,    .75798 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15218,    .08445,  14.84224,    .77589,    .52021,
     +     .37155,    .68646,    .78333,
     +     .15444,    .08580,  15.17825,    .80038,    .54530,
     +     .39839,    .71144,    .80800,
     +     .15657,    .08706,  15.48132,    .82341,    .56895,
     +     .42372,    .73492,    .83121,
     +     .15858,    .08825,  15.74590,    .84467,    .59076,
     +     .44695,    .75662,    .85265,
     +     .16059,    .08944,  16.00402,    .86605,    .61277,
     +     .47053,    .77843,    .87419,
     +     .16256,    .09059,  16.23642,    .88651,    .63380,
     +     .49293,    .79933,    .89482,
     +     .16443,    .09169,  16.45127,    .90598,    .65390,
     +     .51443,    .81919,    .91444,
     +     .16618,    .09272,  16.63883,    .92396,    .67244,
     +     .53419,    .83755,    .93257 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16796,    .09374,  16.81956,    .94194,    .69102,
     +     .55403,    .85591,    .95071,
     +     .16970,    .09476,  16.98959,    .95951,    .70922,
     +     .57350,    .87386,    .96843,
     +     .17135,    .09571,  17.13740,    .97583,    .72609,
     +     .59146,    .89053,    .98487,
     +     .17292,    .09662,  17.27787,    .99145,    .74235,
     +     .60888,    .90649,   1.00062,
     +     .17449,    .09752,  17.40208,   1.00659,    .75804,
     +     .62559,    .92196,   1.01590 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .12069,    .06551,   1.91577,    .22634,    .00000,
     +     .00000,    .13075,    .23089,
     +     .12257,    .06673,   2.38005,    .23687,    .00000,
     +     .00000,    .14174,    .24156,
     +     .12550,    .06861,   3.07352,    .25373,    .00849,
     +     .00000,    .15930,    .25867,
     +     .12772,    .07003,   3.59137,    .26696,    .01997,
     +     .00000,    .17306,    .27208,
     +     .13012,    .07155,   4.13291,    .28167,    .03882,
     +     .00000,    .18830,    .28699,
     +     .13220,    .07288,   4.58826,    .29497,    .05177,
     +     .00000,    .20207,    .30046,
     +     .13422,    .07415,   5.01621,    .30814,    .06499,
     +     .00000,    .21568,    .31381,
     +     .13640,    .07552,   5.47409,    .32267,    .08034,
     +     .00000,    .23067,    .32851 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13829,    .07671,   5.85261,    .33555,    .09305,
     +     .00000,    .24396,    .34156,
     +     .14014,    .07785,   6.21923,    .34833,    .10627,
     +     .00000,    .25713,    .35451,
     +     .14160,    .07877,   6.49954,    .35859,    .11657,
     +     .00000,    .26769,    .36490,
     +     .14475,    .08073,   7.07988,    .38099,    .13944,
     +     .00000,    .29074,    .38756,
     +     .14753,    .08244,   7.57354,    .40064,    .15964,
     +     .00694,    .31096,    .40746,
     +     .15065,    .08435,   8.06869,    .42294,    .18259,
     +     .03781,    .33389,    .43003,
     +     .15389,    .08633,   8.56017,    .44641,    .20678,
     +     .06463,    .35801,    .45379,
     +     .15683,    .08811,   8.97225,    .46757,    .22833,
     +     .08767,    .37976,    .47521 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15979,    .08990,   9.36793,    .48900,    .25033,
     +     .11188,    .40178,    .49691,
     +     .16226,    .09138,   9.68367,    .50689,    .26887,
     +     .13257,    .42015,    .51501,
     +     .16522,    .09317,  10.04007,    .52835,    .29098,
     +     .15670,    .44219,    .53673,
     +     .16783,    .09471,  10.33245,    .54709,    .31027,
     +     .17763,    .46145,    .55570,
     +     .17023,    .09615,  10.59243,    .56436,    .32823,
     +     .19746,    .47919,    .57318,
     +     .17325,    .09792,  10.89335,    .58578,    .35038,
     +     .22151,    .50120,    .59486,
     +     .17607,    .09958,  11.15481,    .60561,    .37095,
     +     .24385,    .52158,    .61494,
     +     .17871,    .10112,  11.38777,    .62410,    .39026,
     +     .26500,    .54060,    .63368 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18132,    .10264,  11.59698,    .64206,    .40893,
     +     .28523,    .55907,    .65186,
     +     .18386,    .10413,  11.78873,    .65940,    .42706,
     +     .30497,    .57692,    .66943,
     +     .18626,    .10551,  11.95816,    .67560,    .44403,
     +     .32346,    .59359,    .68583,
     +     .18850,    .10679,  12.10193,    .69042,    .45955,
     +     .34031,    .60885,    .70085,
     +     .19075,    .10809,  12.23999,    .70522,    .47515,
     +     .35732,    .62410,    .71585,
     +     .19292,    .10933,  12.35974,    .71927,    .48992,
     +     .37336,    .63858,    .73009,
     +     .19500,    .11050,  12.46863,    .73255,    .50396,
     +     .38867,    .65227,    .74354,
     +     .19694,    .11160,  12.56016,    .74471,    .51682,
     +     .40266,    .66483,    .75588 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19888,    .11270,  12.64618,    .75680,    .52964,
     +     .41662,    .67732,    .76813,
     +     .20079,    .11379,  12.72483,    .76855,    .54214,
     +     .43026,    .68945,    .78004,
     +     .20259,    .11479,  12.78946,    .77936,    .55364,
     +     .44277,    .70062,    .79101,
     +     .20431,    .11576,  12.85070,    .78967,    .56468,
     +     .45486,    .71129,    .80147,
     +     .20601,    .11670,  12.90032,    .79957,    .57525,
     +     .46637,    .72153,    .81152 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13796,    .07674,   2.07876,    .21346,    .00000,
     +     .00000,    .12213,    .21921,
     +     .14010,    .07814,   2.49376,    .22290,    .00000,
     +     .00000,    .13203,    .22885,
     +     .14343,    .08028,   3.10677,    .23800,    .00486,
     +     .00000,    .14780,    .24423,
     +     .14596,    .08191,   3.55330,    .24974,    .01519,
     +     .00000,    .16004,    .25619,
     +     .14867,    .08363,   4.01335,    .26273,    .03214,
     +     .00000,    .17355,    .26943,
     +     .15102,    .08511,   4.39576,    .27439,    .04365,
     +     .00000,    .18567,    .28130,
     +     .15329,    .08655,   4.75104,    .28587,    .05532,
     +     .00000,    .19758,    .29299,
     +     .15575,    .08808,   5.12705,    .29845,    .06880,
     +     .00000,    .21064,    .30580 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15787,    .08940,   5.43464,    .30954,    .07989,
     +     .00000,    .22212,    .31709,
     +     .15995,    .09069,   5.72983,    .32049,    .09136,
     +     .00000,    .23346,    .32823,
     +     .16160,    .09170,   5.95362,    .32923,    .10026,
     +     .00000,    .24252,    .33712,
     +     .16512,    .09387,   6.41112,    .34821,    .11989,
     +     .00000,    .26215,    .35642,
     +     .16821,    .09575,   6.80045,    .36472,    .13710,
     +     .00321,    .27924,    .37322,
     +     .17168,    .09785,   7.17653,    .38330,    .15649,
     +     .02961,    .29845,    .39211,
     +     .17527,    .10000,   7.54424,    .40269,    .17676,
     +     .05236,    .31851,    .41184,
     +     .17850,    .10194,   7.84691,    .42001,    .19466,
     +     .07173,    .33643,    .42946 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18176,    .10387,   8.13311,    .43742,    .21282,
     +     .09197,    .35444,    .44717,
     +     .18447,    .10547,   8.35843,    .45185,    .22802,
     +     .10916,    .36938,    .46186,
     +     .18771,    .10737,   8.60836,    .46903,    .24603,
     +     .12908,    .38717,    .47934,
     +     .19056,    .10904,   8.80950,    .48393,    .26163,
     +     .14624,    .40260,    .49449,
     +     .19318,    .11056,   8.98625,    .49756,    .27607,
     +     .16241,    .41673,    .50836,
     +     .19645,    .11244,   9.18611,    .51435,    .29377,
     +     .18190,    .43412,    .52545,
     +     .19950,    .11419,   9.35586,    .52977,    .31009,
     +     .19989,    .45012,    .54114,
     +     .20235,    .11582,   9.50451,    .54406,    .32533,
     +     .21683,    .46495,    .55569 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20514,    .11741,   9.63385,    .55782,    .33995,
     +     .23292,    .47925,    .56970,
     +     .20787,    .11895,   9.74971,    .57102,    .35408,
     +     .24855,    .49297,    .58315,
     +     .21044,    .12039,   9.84957,    .58326,    .36723,
     +     .26312,    .50571,    .59562,
     +     .21281,    .12172,   9.93104,    .59439,    .37918,
     +     .27630,    .51730,    .60696,
     +     .21520,    .12304,  10.00771,    .60543,    .39112,
     +     .28956,    .52882,    .61821,
     +     .21751,    .12432,  10.07061,    .61584,    .40238,
     +     .30200,    .53968,    .62882,
     +     .21970,    .12553,  10.12647,    .62563,    .41303,
     +     .31383,    .54991,    .63881,
     +     .22174,    .12665,  10.17051,    .63453,    .42274,
     +     .32458,    .55921,    .64788 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22378,    .12777,  10.21007,    .64332,    .43236,
     +     .33527,    .56842,    .65686,
     +     .22579,    .12886,  10.24434,    .65181,    .44169,
     +     .34566,    .57732,    .66552,
     +     .22768,    .12988,  10.26922,    .65958,    .45024,
     +     .35514,    .58546,    .67345,
     +     .22948,    .13085,  10.29275,    .66696,    .45842,
     +     .36429,    .59322,    .68099,
     +     .23125,    .13181,  10.30734,    .67397,    .46620,
     +     .37294,    .60060,    .68816 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .15303,    .08668,   2.20431,    .20329,    .00000,
     +     .00000,    .11513,    .21012,
     +     .15542,    .08824,   2.57773,    .21198,    .00000,
     +     .00000,    .12425,    .21904,
     +     .15911,    .09062,   3.12585,    .22580,    .00182,
     +     .00000,    .13874,    .23321,
     +     .16190,    .09239,   3.51603,    .23647,    .01131,
     +     .00000,    .14992,    .24415,
     +     .16488,    .09427,   3.91317,    .24821,    .02686,
     +     .00000,    .16218,    .25617,
     +     .16747,    .09590,   4.24005,    .25867,    .03733,
     +     .00000,    .17311,    .26688,
     +     .16998,    .09746,   4.54087,    .26892,    .04789,
     +     .00000,    .18380,    .27737,
     +     .17266,    .09912,   4.85637,    .28011,    .06002,
     +     .00000,    .19547,    .28881 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17499,    .10056,   5.11209,    .28991,    .06995,
     +     .00000,    .20567,    .29884,
     +     .17726,    .10195,   5.35565,    .29954,    .08018,
     +     .00000,    .21570,    .30869,
     +     .17906,    .10304,   5.53895,    .30719,    .08807,
     +     .00000,    .22366,    .31652,
     +     .18290,    .10537,   5.90950,    .32371,    .10540,
     +     .00000,    .24087,    .33341,
     +     .18625,    .10737,   6.22588,    .33798,    .12049,
     +     .00065,    .25574,    .34800,
     +     .18999,    .10960,   6.51991,    .35391,    .13737,
     +     .02386,    .27233,    .36429,
     +     .19386,    .11189,   6.80347,    .37044,    .15490,
     +     .04375,    .28954,    .38118,
     +     .19733,    .11392,   7.03274,    .38507,    .17029,
     +     .06059,    .30480,    .39615 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20083,    .11594,   7.24632,    .39968,    .18579,
     +     .07806,    .32004,    .41110,
     +     .20371,    .11761,   7.41229,    .41173,    .19870,
     +     .09283,    .33261,    .42341,
     +     .20718,    .11961,   7.59303,    .42596,    .21390,
     +     .10985,    .34748,    .43797,
     +     .21021,    .12132,   7.73555,    .43822,    .22701,
     +     .12444,    .36029,    .45051,
     +     .21297,    .12290,   7.85928,    .44938,    .23908,
     +     .13813,    .37197,    .46194,
     +     .21643,    .12484,   7.99547,    .46304,    .25379,
     +     .15453,    .38628,    .47591,
     +     .21964,    .12664,   8.10806,    .47549,    .26727,
     +     .16960,    .39933,    .48866,
     +     .22264,    .12830,   8.20464,    .48694,    .27980,
     +     .18373,    .41136,    .50039 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22557,    .12992,   8.28516,    .49790,    .29174,
     +     .19706,    .42288,    .51161,
     +     .22842,    .13149,   8.35509,    .50837,    .30324,
     +     .20997,    .43388,    .52233,
     +     .23109,    .13294,   8.41327,    .51801,    .31388,
     +     .22195,    .44405,    .53222,
     +     .23356,    .13428,   8.45789,    .52670,    .32350,
     +     .23273,    .45323,    .54113,
     +     .23603,    .13561,   8.49851,    .53530,    .33308,
     +     .24354,    .46231,    .54995,
     +     .23842,    .13688,   8.52832,    .54332,    .34207,
     +     .25364,    .47083,    .55820,
     +     .24068,    .13809,   8.55350,    .55085,    .35053,
     +     .26320,    .47881,    .56592,
     +     .24278,    .13920,   8.57027,    .55764,    .35821,
     +     .27186,    .48603,    .57290 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24488,    .14031,   8.58335,    .56432,    .36580,
     +     .28044,    .49315,    .57976,
     +     .24693,    .14138,   8.59265,    .57074,    .37312,
     +     .28876,    .49998,    .58636,
     +     .24885,    .14238,   8.59558,    .57655,    .37980,
     +     .29631,    .50620,    .59234,
     +     .25069,    .14334,   8.59838,    .58207,    .38618,
     +     .30358,    .51211,    .59801,
     +     .25248,    .14427,   8.59390,    .58726,    .39220,
     +     .31042,    .51768,    .60335 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17921,    .10402,   2.37399,    .18792,    .00000,
     +     .00000,    .10431,    .19688,
     +     .18201,    .10583,   2.67968,    .19555,    .00000,
     +     .00000,    .11240,    .20482,
     +     .18632,    .10856,   3.12664,    .20755,   -.00298,
     +     .00000,    .12511,    .21727,
     +     .18956,    .11058,   3.43121,    .21670,    .00538,
     +     .00000,    .13477,    .22675,
     +     .19302,    .11272,   3.73486,    .22663,    .01893,
     +     .00000,    .14529,    .23705,
     +     .19600,    .11455,   3.98087,    .23539,    .02794,
     +     .00000,    .15454,    .24612,
     +     .19887,    .11629,   4.20362,    .24388,    .03695,
     +     .00000,    .16351,    .25491,
     +     .20194,    .11815,   4.43378,    .25308,    .04720,
     +     .00000,    .17322,    .26443 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20458,    .11974,   4.61730,    .26105,    .05552,
     +     .00000,    .18162,    .27266,
     +     .20716,    .12127,   4.78985,    .26882,    .06401,
     +     .00000,    .18982,    .28071,
     +     .20920,    .12246,   4.91797,    .27495,    .07052,
     +     .00000,    .19629,    .28704,
     +     .21353,    .12499,   5.17154,    .28806,    .08470,
     +     .00000,    .21014,    .30059,
     +     .21727,    .12716,   5.39100,    .29921,    .09690,
     +    -.00265,    .22195,    .31212,
     +     .22142,    .12954,   5.57845,    .31153,    .11040,
     +     .01623,    .23499,    .32486,
     +     .22571,    .13196,   5.75415,    .32414,    .12428,
     +     .03225,    .24835,    .33788,
     +     .22952,    .13411,   5.89078,    .33515,    .13630,
     +     .04565,    .26005,    .34928 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23335,    .13623,   6.01413,    .34602,    .14831,
     +     .05945,    .27161,    .36051,
     +     .23649,    .13796,   6.10723,    .35487,    .15822,
     +     .07102,    .28105,    .36968,
     +     .24023,    .14000,   6.20393,    .36524,    .16978,
     +     .08424,    .29209,    .38040,
     +     .24348,    .14177,   6.27618,    .37404,    .17965,
     +     .09547,    .30152,    .38952,
     +     .24646,    .14337,   6.33696,    .38200,    .18867,
     +     .10594,    .31003,    .39776,
     +     .25014,    .14534,   6.39875,    .39160,    .19957,
     +     .11838,    .32033,    .40770,
     +     .25354,    .14713,   6.44537,    .40024,    .20944,
     +     .12969,    .32963,    .41665,
     +     .25670,    .14878,   6.48251,    .40810,    .21856,
     +     .14023,    .33813,    .42481 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .25978,    .15038,   6.50837,    .41552,    .22717,
     +     .15010,    .34617,    .43251,
     +     .26274,    .15191,   6.52734,    .42253,    .23538,
     +     .15958,    .35377,    .43978,
     +     .26551,    .15332,   6.53965,    .42890,    .24293,
     +     .16832,    .36071,    .44641,
     +     .26806,    .15462,   6.54423,    .43457,    .24969,
     +     .17613,    .36692,    .45230,
     +     .27060,    .15590,   6.54608,    .44014,    .25638,
     +     .18391,    .37301,    .45808,
     +     .27304,    .15711,   6.54110,    .44525,    .26259,
     +     .19111,    .37865,    .46341,
     +     .27534,    .15825,   6.53441,    .45000,    .26842,
     +     .19791,    .38390,    .46835,
     +     .27746,    .15929,   6.52344,    .45422,    .27365,
     +     .20403,    .38858,    .47276 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .27958,    .16033,   6.50996,    .45833,    .27879,
     +     .21005,    .39317,    .47705,
     +     .28163,    .16132,   6.49434,    .46223,    .28372,
     +     .21585,    .39753,    .48112,
     +     .28356,    .16225,   6.47551,    .46571,    .28816,
     +     .22108,    .40144,    .48476,
     +     .28538,    .16312,   6.45785,    .46901,    .29240,
     +     .22610,    .40515,    .48821,
     +     .28715,    .16397,   6.43530,    .47202,    .29636,
     +     .23078,    .40859,    .49137 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .21214,    .12581,   2.49771,    .17148,    .00000,
     +     .00000,    .09277,    .18345,
     +     .21549,    .12792,   2.72695,    .17807,    .00000,
     +     .00000,    .09987,    .19043,
     +     .22059,    .13104,   3.06424,    .18823,   -.00778,
     +     .00000,    .11082,    .20118,
     +     .22438,    .13331,   3.27957,    .19581,   -.00051,
     +     .00000,    .11900,    .20920,
     +     .22838,    .13568,   3.48863,    .20395,    .01100,
     +     .00000,    .12778,    .21778,
     +     .23183,    .13769,   3.65459,    .21099,    .01860,
     +     .00000,    .13539,    .22521,
     +     .23512,    .13960,   3.80168,    .21773,    .02611,
     +     .00000,    .14268,    .23232,
     +     .23862,    .14162,   3.95083,    .22495,    .03454,
     +     .00000,    .15048,    .23991 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24163,    .14333,   4.06690,    .23111,    .04131,
     +     .00000,    .15715,    .24641,
     +     .24455,    .14496,   4.17422,    .23707,    .04816,
     +     .00000,    .16360,    .25268,
     +     .24682,    .14624,   4.25232,    .24172,    .05336,
     +     .00000,    .16864,    .25757,
     +     .25166,    .14891,   4.40192,    .25155,    .06459,
     +     .00000,    .17930,    .26791,
     +     .25579,    .15115,   4.53617,    .25975,    .07411,
     +    -.00518,    .18825,    .27654,
     +     .26035,    .15360,   4.63301,    .26868,    .08453,
     +     .00963,    .19800,    .28594,
     +     .26501,    .15607,   4.71937,    .27765,    .09507,
     +     .02207,    .20783,    .29537,
     +     .26912,    .15821,   4.78069,    .28536,    .10408,
     +     .03237,    .21632,    .30349 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27320,    .16032,   4.83189,    .29283,    .11299,
     +     .04285,    .22457,    .31136,
     +     .27655,    .16203,   4.86770,    .29885,    .12027,
     +     .05155,    .23123,    .31771,
     +     .28050,    .16403,   4.90007,    .30576,    .12866,
     +     .06141,    .23892,    .32499,
     +     .28390,    .16571,   4.91949,    .31155,    .13575,
     +     .06970,    .24540,    .33109,
     +     .28699,    .16724,   4.93359,    .31670,    .14217,
     +     .07737,    .25119,    .33654,
     +     .29079,    .16909,   4.94124,    .32281,    .14984,
     +     .08639,    .25807,    .34298,
     +     .29426,    .17076,   4.94103,    .32820,    .15672,
     +     .09452,    .26420,    .34868,
     +     .29746,    .17229,   4.93681,    .33303,    .16299,
     +     .10202,    .26972,    .35380 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30056,    .17374,   4.92544,    .33750,    .16885,
     +     .10898,    .27486,    .35852,
     +     .30352,    .17511,   4.91051,    .34162,    .17439,
     +     .11561,    .27966,    .36290,
     +     .30625,    .17637,   4.89304,    .34532,    .17943,
     +     .12166,    .28398,    .36683,
     +     .30876,    .17750,   4.87227,    .34854,    .18390,
     +     .12704,    .28777,    .37024,
     +     .31123,    .17861,   4.84994,    .35164,    .18828,
     +     .13235,    .29146,    .37355,
     +     .31359,    .17964,   4.82400,    .35441,    .19231,
     +     .13724,    .29482,    .37651,
     +     .31580,    .18060,   4.79844,    .35695,    .19605,
     +     .14181,    .29790,    .37922,
     +     .31782,    .18147,   4.77150,    .35914,    .19937,
     +     .14589,    .30059,    .38157 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .31981,    .18232,   4.74306,    .36124,    .20261,
     +     .14987,    .30319,    .38381,
     +     .32175,    .18315,   4.71390,    .36318,    .20570,
     +     .15370,    .30564,    .38590,
     +     .32353,    .18388,   4.68396,    .36485,    .20843,
     +     .15711,    .30778,    .38770,
     +     .32522,    .18459,   4.65597,    .36642,    .21104,
     +     .16037,    .30979,    .38939,
     +     .32685,    .18524,   4.62486,    .36778,    .21343,
     +     .16338,    .31160,    .39085 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25793,    .15533,   2.50896,    .15297,    .00000,
     +     .00000,    .08049,    .17002,
     +     .26202,    .15771,   2.65160,    .15832,    .00000,
     +     .00000,    .08648,    .17588,
     +     .26810,    .16119,   2.86836,    .16633,   -.01196,
     +     .00000,    .09549,    .18465,
     +     .27254,    .16366,   2.99069,    .17212,   -.00588,
     +     .00000,    .10203,    .19096,
     +     .27720,    .16620,   3.10419,    .17820,    .00340,
     +     .00000,    .10890,    .19759,
     +     .28115,    .16833,   3.19123,    .18335,    .00950,
     +     .00000,    .11473,    .20319,
     +     .28489,    .17031,   3.26556,    .18819,    .01541,
     +     .00000,    .12023,    .20844,
     +     .28886,    .17239,   3.33861,    .19327,    .02196,
     +     .00000,    .12602,    .21395 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29222,    .17412,   3.39257,    .19753,    .02714,
     +     .00000,    .13089,    .21858,
     +     .29546,    .17577,   3.44089,    .20158,    .03233,
     +     .00000,    .13554,    .22299,
     +     .29796,    .17702,   3.47446,    .20469,    .03624,
     +     .00000,    .13912,    .22636,
     +     .30324,    .17964,   3.53367,    .21116,    .04454,
     +     .00000,    .14658,    .23337,
     +     .30767,    .18179,   3.59426,    .21642,    .05145,
     +    -.00673,    .15273,    .23907,
     +     .31248,    .18410,   3.61710,    .22201,    .05890,
     +     .00407,    .15928,    .24512,
     +     .31736,    .18635,   3.63219,    .22749,    .06633,
     +     .01306,    .16575,    .25106,
     +     .32159,    .18828,   3.63569,    .23205,    .07258,
     +     .02040,    .17119,    .25598 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32573,    .19014,   3.63290,    .23636,    .07865,
     +     .02777,    .17641,    .26066,
     +     .32909,    .19162,   3.62682,    .23975,    .08356,
     +     .03382,    .18055,    .26433,
     +     .33301,    .19330,   3.61324,    .24353,    .08913,
     +     .04059,    .18521,    .26844,
     +     .33633,    .19471,   3.59624,    .24660,    .09377,
     +     .04622,    .18905,    .27177,
     +     .33932,    .19596,   3.57889,    .24929,    .09794,
     +     .05139,    .19244,    .27469,
     +     .34293,    .19742,   3.55138,    .25233,    .10284,
     +     .05738,    .19636,    .27799,
     +     .34619,    .19871,   3.52179,    .25493,    .10716,
     +     .06272,    .19977,    .28081,
     +     .34916,    .19986,   3.49235,    .25718,    .11106,
     +     .06760,    .20279,    .28326 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35197,    .20092,   3.45947,    .25914,    .11465,
     +     .07208,    .20550,    .28542,
     +     .35463,    .20189,   3.42566,    .26090,    .11800,
     +     .07630,    .20797,    .28733,
     +     .35706,    .20276,   3.39225,    .26239,    .12101,
     +     .08011,    .21015,    .28896,
     +     .35924,    .20351,   3.35884,    .26360,    .12363,
     +     .08346,    .21199,    .29030,
     +     .36138,    .20423,   3.32495,    .26473,    .12618,
     +     .08674,    .21376,    .29155,
     +     .36335,    .20487,   3.28979,    .26565,    .12848,
     +     .08972,    .21528,    .29256,
     +     .36519,    .20547,   3.25629,    .26645,    .13060,
     +     .09250,    .21666,    .29345,
     +     .36684,    .20597,   3.22350,    .26707,    .13244,
     +     .09493,    .21781,    .29413 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .36845,    .20645,   3.19014,    .26760,    .13423,
     +     .09731,    .21888,    .29473,
     +     .37000,    .20689,   3.15694,    .26804,    .13590,
     +     .09956,    .21985,    .29523,
     +     .37138,    .20726,   3.12438,    .26834,    .13736,
     +     .10154,    .22064,    .29557,
     +     .37270,    .20762,   3.09402,    .26862,    .13873,
     +     .10343,    .22139,    .29588,
     +     .37392,    .20792,   3.06212,    .26874,    .13996,
     +     .10514,    .22198,    .29604 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29633,    .17922,   2.40078,    .13989,    .00000,
     +     .00000,    .07288,    .16150,
     +     .30100,    .18173,   2.48793,    .14423,    .00000,
     +     .00000,    .07799,    .16644,
     +     .30788,    .18533,   2.62796,    .15058,   -.01331,
     +     .00000,    .08551,    .17364,
     +     .31278,    .18782,   2.69508,    .15504,   -.00810,
     +     .00000,    .09085,    .17868,
     +     .31787,    .19036,   2.75362,    .15963,   -.00039,
     +     .00000,    .09636,    .18386,
     +     .32216,    .19245,   2.79642,    .16346,    .00467,
     +     .00000,    .10097,    .18815,
     +     .32618,    .19436,   2.83079,    .16696,    .00951,
     +     .00000,    .10525,    .19210,
     +     .33040,    .19634,   2.86295,    .17060,    .01479,
     +     .00000,    .10970,    .19618 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33392,    .19797,   2.88435,    .17360,    .01896,
     +     .00000,    .11339,    .19953,
     +     .33728,    .19950,   2.90232,    .17643,    .02308,
     +     .00000,    .11688,    .20268,
     +     .33989,    .20066,   2.91330,    .17855,    .02616,
     +     .00000,    .11953,    .20506,
     +     .34530,    .20302,   2.92791,    .18291,    .03265,
     +     .00000,    .12501,    .20991,
     +     .34975,    .20491,   2.95182,    .18636,    .03799,
     +    -.00687,    .12942,    .21373,
     +     .35453,    .20687,   2.94099,    .18994,    .04367,
     +     .00147,    .13405,    .21770,
     +     .35928,    .20877,   2.92478,    .19334,    .04926,
     +     .00837,    .13854,    .22147,
     +     .36334,    .21033,   2.90381,    .19608,    .05392,
     +     .01395,    .14224,    .22450 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .36726,    .21179,   2.87915,    .19859,    .05839,
     +     .01950,    .14571,    .22727,
     +     .37041,    .21293,   2.85668,    .20049,    .06198,
     +     .02402,    .14841,    .22939,
     +     .37401,    .21418,   2.82583,    .20256,    .06602,
     +     .02905,    .15141,    .23167,
     +     .37704,    .21519,   2.79577,    .20415,    .06933,
     +     .03318,    .15382,    .23343,
     +     .37972,    .21605,   2.76753,    .20550,    .07228,
     +     .03695,    .15591,    .23492,
     +     .38291,    .21702,   2.72878,    .20693,    .07571,
     +     .04129,    .15828,    .23649,
     +     .38571,    .21783,   2.69054,    .20807,    .07871,
     +     .04512,    .16027,    .23775,
     +     .38822,    .21852,   2.65417,    .20899,    .08139,
     +     .04860,    .16197,    .23877 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39054,    .21912,   2.61605,    .20970,    .08383,
     +     .05176,    .16345,    .23954,
     +     .39269,    .21964,   2.57824,    .21027,    .08607,
     +     .05471,    .16476,    .24014,
     +     .39462,    .22006,   2.54206,    .21069,    .08806,
     +     .05736,    .16587,    .24059,
     +     .39631,    .22039,   2.50711,    .21093,    .08977,
     +     .05966,    .16676,    .24086,
     +     .39795,    .22068,   2.47219,    .21112,    .09142,
     +     .06190,    .16758,    .24106,
     +     .39941,    .22090,   2.43702,    .21115,    .09290,
     +     .06393,    .16824,    .24108,
     +     .40075,    .22107,   2.40389,    .21114,    .09424,
     +     .06580,    .16879,    .24105,
     +     .40191,    .22118,   2.37214,    .21103,    .09539,
     +     .06742,    .16923,    .24091 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40302,    .22127,   2.34021,    .21086,    .09648,
     +     .06900,    .16959,    .24070,
     +     .40406,    .22132,   2.30881,    .21062,    .09750,
     +     .07048,    .16989,    .24044,
     +     .40495,    .22132,   2.27854,    .21031,    .09837,
     +     .07177,    .17007,    .24009,
     +     .40579,    .22131,   2.25040,    .21002,    .09919,
     +     .07300,    .17024,    .23975,
     +     .40651,    .22124,   2.22138,    .20962,    .09989,
     +     .07409,    .17030,    .23930 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .36168,    .21654,   2.05869,    .12094,    .00000,
     +     .00000,    .06417,    .15161,
     +     .36703,    .21897,   2.08654,    .12362,    .00000,
     +     .00000,    .06781,    .15487,
     +     .37470,    .22230,   2.14361,    .12738,   -.01275,
     +     .00000,    .07300,    .15938,
     +     .37999,    .22448,   2.15628,    .12990,   -.00884,
     +     .00000,    .07656,    .16237,
     +     .38535,    .22661,   2.16252,    .13241,   -.00330,
     +     .00000,    .08013,    .16531,
     +     .38976,    .22830,   2.16422,    .13440,    .00034,
     +     .00000,    .08305,    .16764,
     +     .39381,    .22981,   2.16246,    .13619,    .00377,
     +     .00000,    .08570,    .16971,
     +     .39798,    .23132,   2.15852,    .13799,    .00746,
     +     .00000,    .08841,    .17177 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40139,    .23249,   2.15189,    .13940,    .01032,
     +     .00000,    .09059,    .17338,
     +     .40460,    .23356,   2.14423,    .14069,    .01314,
     +     .00000,    .09262,    .17484,
     +     .40704,    .23435,   2.13663,    .14163,    .01521,
     +     .00000,    .09414,    .17590,
     +     .41196,    .23585,   2.11581,    .14347,    .01954,
     +     .00000,    .09719,    .17794,
     +     .41584,    .23693,   2.10940,    .14483,    .02303,
     +    -.00609,    .09957,    .17941,
     +     .41988,    .23795,   2.07544,    .14614,    .02670,
     +    -.00063,    .10198,    .18080,
     +     .42373,    .23883,   2.03867,    .14727,    .03026,
     +     .00386,    .10423,    .18195,
     +     .42689,    .23944,   2.00307,    .14804,    .03316,
     +     .00745,    .10598,    .18272 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .42982,    .23992,   1.96616,    .14866,    .03592,
     +     .01097,    .10758,    .18329,
     +     .43209,    .24021,   1.93518,    .14905,    .03810,
     +     .01380,    .10877,    .18363,
     +     .43457,    .24046,   1.89653,    .14935,    .04050,
     +     .01691,    .11002,    .18384,
     +     .43650,    .24053,   1.86162,    .14949,    .04246,
     +     .01945,    .11094,    .18384,
     +     .43816,    .24055,   1.82990,    .14953,    .04418,
     +     .02174,    .11170,    .18377,
     +     .43998,    .24045,   1.78890,    .14943,    .04614,
     +     .02433,    .11248,    .18348,
     +     .44147,    .24023,   1.75020,    .14919,    .04782,
     +     .02660,    .11307,    .18305,
     +     .44272,    .23995,   1.71437,    .14889,    .04930,
     +     .02863,    .11352,    .18255 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .44374,    .23956,   1.67826,    .14847,    .05060,
     +     .03044,    .11383,    .18192,
     +     .44459,    .23912,   1.64327,    .14797,    .05179,
     +     .03212,    .11404,    .18121,
     +     .44527,    .23862,   1.61050,    .14744,    .05283,
     +     .03362,    .11415,    .18047,
     +     .44574,    .23811,   1.57963,    .14687,    .05370,
     +     .03489,    .11416,    .17968,
     +     .44613,    .23755,   1.54918,    .14625,    .05454,
     +     .03613,    .11412,    .17883,
     +     .44636,    .23693,   1.51923,    .14556,    .05524,
     +     .03722,    .11400,    .17792,
     +     .44652,    .23632,   1.49130,    .14489,    .05588,
     +     .03822,    .11386,    .17702,
     +     .44655,    .23569,   1.46497,    .14421,    .05641,
     +     .03908,    .11366,    .17611 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .44651,    .23502,   1.43880,    .14348,    .05691,
     +     .03990,    .11342,    .17515,
     +     .44640,    .23433,   1.41333,    .14275,    .05734,
     +     .04066,    .11314,    .17418,
     +     .44619,    .23363,   1.38914,    .14199,    .05771,
     +     .04131,    .11282,    .17321,
     +     .44598,    .23296,   1.36675,    .14128,    .05806,
     +     .04194,    .11252,    .17230,
     +     .44563,    .23224,   1.34403,    .14051,    .05833,
     +     .04247,    .11216,    .17129 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .41625,    .24416,   1.70870,    .10591,    .00000,
     +     .00000,    .05862,    .14403,
     +     .42180,    .24616,   1.71259,    .10733,    .00000,
     +     .00000,    .06108,    .14578,
     +     .42949,    .24877,   1.73423,    .10924,   -.01084,
     +     .00000,    .06451,    .14803,
     +     .43458,    .25035,   1.72725,    .11047,   -.00788,
     +     .00000,    .06679,    .14942,
     +     .43964,    .25180,   1.71549,    .11163,   -.00376,
     +     .00000,    .06906,    .15071,
     +     .44367,    .25287,   1.70346,    .11252,   -.00105,
     +     .00000,    .07087,    .15165,
     +     .44729,    .25374,   1.69013,    .11325,    .00147,
     +     .00000,    .07247,    .15240,
     +     .45095,    .25455,   1.67501,    .11395,    .00416,
     +     .00000,    .07407,    .15308 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45382,    .25510,   1.66005,    .11448,    .00626,
     +     .00000,    .07535,    .15354,
     +     .45647,    .25557,   1.64504,    .11493,    .00828,
     +     .00000,    .07651,    .15389,
     +     .45842,    .25584,   1.63231,    .11522,    .00978,
     +     .00000,    .07736,    .15412,
     +     .46224,    .25626,   1.60252,    .11574,    .01286,
     +     .00000,    .07903,    .15442,
     +     .46504,    .25637,   1.58709,    .11602,    .01533,
     +    -.00511,    .08028,    .15445,
     +     .46778,    .25633,   1.54973,    .11619,    .01790,
     +    -.00126,    .08149,    .15430,
     +     .47023,    .25606,   1.51079,    .11621,    .02035,
     +     .00190,    .08256,    .15396,
     +     .47201,    .25562,   1.47458,    .11606,    .02234,
     +     .00439,    .08331,    .15346 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .47353,    .25502,   1.43803,    .11579,    .02420,
     +     .00683,    .08395,    .15281,
     +     .47458,    .25445,   1.40795,    .11551,    .02566,
     +     .00877,    .08438,    .15218,
     +     .47552,    .25362,   1.37129,    .11507,    .02725,
     +     .01088,    .08477,    .15128,
     +     .47609,    .25278,   1.33887,    .11457,    .02853,
     +     .01260,    .08500,    .15038,
     +     .47648,    .25195,   1.30974,    .11407,    .02963,
     +     .01412,    .08514,    .14951,
     +     .47668,    .25075,   1.27273,    .11334,    .03089,
     +     .01585,    .08519,    .14831,
     +     .47660,    .24953,   1.23838,    .11257,    .03194,
     +     .01733,    .08515,    .14706,
     +     .47638,    .24833,   1.20692,    .11182,    .03285,
     +     .01864,    .08504,    .14586 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .47590,    .24702,   1.17563,    .11098,    .03365,
     +     .01982,    .08483,    .14457,
     +     .47529,    .24569,   1.14567,    .11012,    .03435,
     +     .02088,    .08457,    .14325,
     +     .47457,    .24439,   1.11786,    .10927,    .03496,
     +     .02182,    .08428,    .14197,
     +     .47371,    .24310,   1.09192,    .10843,    .03546,
     +     .02261,    .08394,    .14071,
     +     .47279,    .24178,   1.06651,    .10757,    .03593,
     +     .02338,    .08358,    .13943,
     +     .47173,    .24042,   1.04177,    .10668,    .03631,
     +     .02404,    .08317,    .13813,
     +     .47066,    .23911,   1.01884,    .10581,    .03664,
     +     .02464,    .08275,    .13689,
     +     .46951,    .23783,    .99740,    .10498,    .03692,
     +     .02516,    .08231,    .13568 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .46830,    .23652,    .97622,    .10411,    .03716,
     +     .02563,    .08185,    .13445,
     +     .46703,    .23521,    .95573,    .10326,    .03736,
     +     .02607,    .08138,    .13322,
     +     .46572,    .23392,    .93641,    .10242,    .03753,
     +     .02644,    .08091,    .13203,
     +     .46448,    .23270,    .91858,    .10163,    .03768,
     +     .02679,    .08046,    .13089,
     +     .46309,    .23142,    .90064,    .10079,    .03777,
     +     .02708,    .07996,    .12973 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .46309,    .26497,   1.41335,    .09263,    .00000,
     +     .00000,    .05375,    .13601,
     +     .46842,    .26637,   1.40865,    .09316,    .00000,
     +     .00000,    .05531,    .13649,
     +     .47555,    .26796,   1.41591,    .09381,   -.00907,
     +     .00000,    .05741,    .13699,
     +     .48003,    .26877,   1.40283,    .09420,   -.00679,
     +     .00000,    .05880,    .13712,
     +     .48432,    .26937,   1.38593,    .09453,   -.00363,
     +     .00000,    .06016,    .13713,
     +     .48765,    .26966,   1.37011,    .09472,   -.00156,
     +     .00000,    .06121,    .13706,
     +     .49048,    .26981,   1.35374,    .09485,    .00038,
     +     .00000,    .06212,    .13685,
     +     .49323,    .26983,   1.33581,    .09494,    .00242,
     +     .00000,    .06303,    .13654 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49531,    .26966,   1.31896,    .09492,    .00401,
     +     .00000,    .06372,    .13622,
     +     .49713,    .26941,   1.30243,    .09490,    .00554,
     +     .00000,    .06434,    .13583,
     +     .49837,    .26917,   1.28878,    .09483,    .00666,
     +     .00000,    .06476,    .13547,
     +     .50065,    .26842,   1.25788,    .09463,    .00896,
     +     .00000,    .06557,    .13462,
     +     .50206,    .26753,   1.24012,    .09435,    .01080,
     +    -.00435,    .06614,    .13375,
     +     .50318,    .26634,   1.20432,    .09393,    .01269,
     +    -.00148,    .06665,    .13265,
     +     .50386,    .26492,   1.16746,    .09342,    .01448,
     +     .00086,    .06702,    .13139,
     +     .50404,    .26343,   1.13372,    .09283,    .01592,
     +     .00269,    .06721,    .13011 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50387,    .26181,   1.10002,    .09216,    .01725,
     +     .00447,    .06732,    .12873,
     +     .50352,    .26041,   1.07253,    .09157,    .01828,
     +     .00588,    .06733,    .12755,
     +     .50277,    .25856,   1.03940,    .09078,    .01940,
     +     .00740,    .06726,    .12602,
     +     .50184,    .25684,   1.01037,    .09002,    .02029,
     +     .00862,    .06710,    .12464,
     +     .50085,    .25520,    .98443,    .08931,    .02106,
     +     .00971,    .06693,    .12335,
     +     .49928,    .25302,    .95183,    .08832,    .02190,
     +     .01092,    .06662,    .12162,
     +     .49755,    .25090,    .92182,    .08737,    .02260,
     +     .01196,    .06625,    .11997,
     +     .49578,    .24887,    .89454,    .08643,    .02320,
     +     .01286,    .06586,    .11842 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49377,    .24678,    .86766,    .08547,    .02371,
     +     .01366,    .06541,    .11681,
     +     .49165,    .24468,    .84205,    .08451,    .02416,
     +     .01439,    .06495,    .11522,
     +     .48954,    .24265,    .81844,    .08359,    .02454,
     +     .01502,    .06448,    .11371,
     +     .48739,    .24069,    .79659,    .08268,    .02483,
     +     .01555,    .06399,    .11226,
     +     .48518,    .23872,    .77529,    .08177,    .02510,
     +     .01604,    .06349,    .11081,
     +     .48283,    .23674,    .75468,    .08085,    .02532,
     +     .01647,    .06296,    .10937,
     +     .48057,    .23485,    .73565,    .07998,    .02550,
     +     .01686,    .06244,    .10800,
     +     .47832,    .23304,    .71798,    .07913,    .02564,
     +     .01718,    .06192,    .10670 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47601,    .23120,    .70060,    .07828,    .02576,
     +     .01748,    .06140,    .10538,
     +     .47366,    .22937,    .68386,    .07743,    .02585,
     +     .01775,    .06087,    .10409,
     +     .47131,    .22761,    .66817,    .07662,    .02592,
     +     .01798,    .06034,    .10284,
     +     .46911,    .22596,    .65374,    .07586,    .02597,
     +     .01819,    .05985,    .10168,
     +     .46675,    .22425,    .63929,    .07507,    .02599,
     +     .01835,    .05933,    .10049 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .51210,    .28287,   1.13677,    .07764,    .00000,
     +     .00000,    .04754,    .12398,
     +     .51654,    .28328,   1.12926,    .07755,    .00000,
     +     .00000,    .04829,    .12328,
     +     .52210,    .28339,   1.12970,    .07735,   -.00743,
     +     .00000,    .04933,    .12214,
     +     .52530,    .28306,   1.11502,    .07715,   -.00571,
     +     .00000,    .04999,    .12121,
     +     .52813,    .28246,   1.09698,    .07692,   -.00334,
     +     .00000,    .05062,    .12017,
     +     .53006,    .28178,   1.08037,    .07669,   -.00177,
     +     .00000,    .05107,    .11919,
     +     .53156,    .28091,   1.06341,    .07643,   -.00033,
     +     .00000,    .05146,    .11823,
     +     .53282,    .27987,   1.04504,    .07611,    .00120,
     +     .00000,    .05182,    .11717 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53354,    .27884,   1.02807,    .07582,    .00238,
     +     .00000,    .05207,    .11618,
     +     .53404,    .27775,   1.01155,    .07550,    .00350,
     +     .00000,    .05228,    .11522,
     +     .53424,    .27680,    .99805,    .07522,    .00433,
     +     .00000,    .05240,    .11445,
     +     .53423,    .27461,    .96807,    .07460,    .00602,
     +     .00000,    .05262,    .11273,
     +     .53358,    .27250,    .94955,    .07400,    .00735,
     +    -.00362,    .05270,    .11117,
     +     .53240,    .27001,    .91646,    .07326,    .00871,
     +    -.00153,    .05269,    .10938,
     +     .53072,    .26721,    .88263,    .07244,    .00999,
     +     .00016,    .05259,    .10748,
     +     .52872,    .26455,    .85199,    .07163,    .01100,
     +     .00149,    .05241,    .10570 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .52638,    .26175,    .82173,    .07075,    .01192,
     +     .00275,    .05214,    .10389,
     +     .52424,    .25938,    .79721,    .07001,    .01263,
     +     .00375,    .05188,    .10238,
     +     .52131,    .25644,    .76790,    .06910,    .01338,
     +     .00481,    .05150,    .10051,
     +     .51847,    .25376,    .74248,    .06823,    .01397,
     +     .00566,    .05112,    .09883,
     +     .51576,    .25130,    .71993,    .06743,    .01448,
     +     .00641,    .05075,    .09731,
     +     .51201,    .24807,    .69187,    .06639,    .01501,
     +     .00722,    .05022,    .09533,
     +     .50830,    .24499,    .66627,    .06538,    .01546,
     +     .00792,    .04969,    .09350,
     +     .50470,    .24211,    .64318,    .06443,    .01583,
     +     .00853,    .04916,    .09179 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50086,    .23919,    .62061,    .06347,    .01613,
     +     .00905,    .04859,    .09007,
     +     .49702,    .23632,    .59928,    .06251,    .01639,
     +     .00952,    .04801,    .08838,
     +     .49330,    .23359,    .57977,    .06160,    .01660,
     +     .00992,    .04746,    .08681,
     +     .48966,    .23098,    .56184,    .06073,    .01675,
     +     .01025,    .04690,    .08535,
     +     .48596,    .22839,    .54447,    .05987,    .01689,
     +     .01056,    .04634,    .08388,
     +     .48221,    .22581,    .52779,    .05900,    .01699,
     +     .01082,    .04578,    .08245,
     +     .47862,    .22338,    .51248,    .05819,    .01708,
     +     .01106,    .04525,    .08108,
     +     .47513,    .22107,    .49835,    .05742,    .01713,
     +     .01125,    .04473,    .07981 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47157,    .21874,    .48453,    .05665,    .01717,
     +     .01142,    .04420,    .07853,
     +     .46806,    .21644,    .47128,    .05589,    .01719,
     +     .01157,    .04368,    .07729,
     +     .46463,    .21425,    .45893,    .05513,    .01719,
     +     .01169,    .04318,    .07611,
     +     .46141,    .21220,    .44759,    .05445,    .01718,
     +     .01180,    .04270,    .07502,
     +     .45804,    .21008,    .43634,    .05375,    .01716,
     +     .01189,    .04221,    .07389 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .55211,    .29378,    .94569,    .06444,    .00000,
     +     .00000,    .04106,    .11015,
     +     .55513,    .29311,    .93698,    .06407,    .00000,
     +     .00000,    .04139,    .10869,
     +     .55842,    .29158,    .93383,    .06351,   -.00644,
     +     .00000,    .04178,    .10653,
     +     .55989,    .29006,    .91830,    .06306,   -.00507,
     +     .00000,    .04203,    .10495,
     +     .56085,    .28821,    .89961,    .06260,   -.00319,
     +     .00000,    .04226,    .10328,
     +     .56112,    .28645,    .88248,    .06218,   -.00195,
     +     .00000,    .04240,    .10183,
     +     .56096,    .28461,    .86518,    .06176,   -.00080,
     +     .00000,    .04250,    .10042,
     +     .56047,    .28254,    .84656,    .06128,    .00039,
     +     .00000,    .04256,    .09893 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .55966,    .28061,    .82949,    .06085,    .00131,
     +     .00000,    .04257,    .09764,
     +     .55867,    .27868,    .81300,    .06041,    .00219,
     +     .00000,    .04256,    .09638,
     +     .55768,    .27709,    .79962,    .06006,    .00284,
     +     .00000,    .04255,    .09537,
     +     .55513,    .27358,    .77034,    .05928,    .00412,
     +     .00000,    .04240,    .09323,
     +     .55233,    .27036,    .75152,    .05857,    .00513,
     +    -.00309,    .04220,    .09138,
     +     .54876,    .26663,    .72049,    .05772,    .00616,
     +    -.00150,    .04195,    .08930,
     +     .54458,    .26269,    .68902,    .05682,    .00710,
     +    -.00022,    .04161,    .08714,
     +     .54036,    .25898,    .66088,    .05596,    .00783,
     +     .00076,    .04123,    .08515 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .53584,    .25519,    .63332,    .05505,    .00850,
     +     .00170,    .04080,    .08319,
     +     .53193,    .25204,    .61118,    .05429,    .00901,
     +     .00244,    .04042,    .08157,
     +     .52687,    .24819,    .58498,    .05338,    .00954,
     +     .00321,    .03992,    .07959,
     +     .52221,    .24473,    .56249,    .05252,    .00994,
     +     .00382,    .03943,    .07786,
     +     .51788,    .24156,    .54268,    .05173,    .01028,
     +     .00435,    .03899,    .07632,
     +     .51215,    .23750,    .51826,    .05071,    .01064,
     +     .00494,    .03837,    .07436,
     +     .50656,    .23370,    .49620,    .04975,    .01092,
     +     .00542,    .03778,    .07254,
     +     .50127,    .23017,    .47641,    .04886,    .01115,
     +     .00583,    .03721,    .07087 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49585,    .22660,    .45729,    .04796,    .01133,
     +     .00619,    .03661,    .06921,
     +     .49045,    .22315,    .43937,    .04707,    .01148,
     +     .00650,    .03604,    .06761,
     +     .48529,    .21991,    .42307,    .04624,    .01160,
     +     .00677,    .03548,    .06613,
     +     .48035,    .21684,    .40822,    .04545,    .01168,
     +     .00698,    .03495,    .06475,
     +     .47542,    .21378,    .39391,    .04466,    .01174,
     +     .00718,    .03440,    .06340,
     +     .47044,    .21078,    .38024,    .04390,    .01178,
     +     .00734,    .03387,    .06205,
     +     .46572,    .20797,    .36778,    .04320,    .01181,
     +     .00749,    .03337,    .06081,
     +     .46121,    .20531,    .35637,    .04251,    .01182,
     +     .00760,    .03288,    .05965 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45668,    .20265,    .34526,    .04181,    .01181,
     +     .00770,    .03240,    .05850,
     +     .45219,    .20005,    .33468,    .04114,    .01180,
     +     .00779,    .03191,    .05739,
     +     .44784,    .19757,    .32486,    .04052,    .01178,
     +     .00786,    .03146,    .05633,
     +     .44377,    .19525,    .31589,    .03993,    .01175,
     +     .00792,    .03102,    .05535,
     +     .43959,    .19289,    .30704,    .03932,    .01171,
     +     .00796,    .03058,    .05438 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .58364,    .29902,    .81447,    .05322,    .00000,
     +     .00000,    .03464,    .09524,
     +     .58490,    .29714,    .80374,    .05275,    .00000,
     +     .00000,    .03470,    .09341,
     +     .58547,    .29393,    .79657,    .05209,   -.00585,
     +     .00000,    .03479,    .09074,
     +     .58485,    .29126,    .77926,    .05160,   -.00469,
     +     .00000,    .03482,    .08883,
     +     .58359,    .28825,    .75904,    .05108,   -.00313,
     +     .00000,    .03480,    .08687,
     +     .58195,    .28551,    .74077,    .05063,   -.00210,
     +     .00000,    .03477,    .08517,
     +     .57998,    .28276,    .72254,    .05017,   -.00116,
     +     .00000,    .03471,    .08358,
     +     .57757,    .27974,    .70316,    .04968,   -.00018,
     +     .00000,    .03460,    .08193 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57512,    .27699,    .68570,    .04923,    .00057,
     +     .00000,    .03449,    .08047,
     +     .57255,    .27431,    .66897,    .04877,    .00127,
     +     .00000,    .03435,    .07909,
     +     .57031,    .27216,    .65551,    .04839,    .00179,
     +     .00000,    .03423,    .07803,
     +     .56514,    .26747,    .62657,    .04759,    .00282,
     +     .00000,    .03394,    .07575,
     +     .56016,    .26330,    .60733,    .04687,    .00361,
     +    -.00267,    .03364,    .07381,
     +     .55419,    .25857,    .57784,    .04602,    .00440,
     +    -.00143,    .03326,    .07166,
     +     .54762,    .25361,    .54826,    .04512,    .00512,
     +    -.00044,    .03282,    .06951,
     +     .54130,    .24905,    .52222,    .04428,    .00568,
     +     .00033,    .03234,    .06756 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53470,    .24447,    .49695,    .04342,    .00617,
     +     .00103,    .03186,    .06563,
     +     .52910,    .24069,    .47686,    .04270,    .00654,
     +     .00159,    .03143,    .06405,
     +     .52214,    .23609,    .45335,    .04181,    .00692,
     +     .00216,    .03087,    .06218,
     +     .51583,    .23202,    .43339,    .04099,    .00720,
     +     .00261,    .03038,    .06055,
     +     .51003,    .22834,    .41594,    .04026,    .00743,
     +     .00300,    .02992,    .05909,
     +     .50248,    .22368,    .39461,    .03934,    .00767,
     +     .00342,    .02931,    .05726,
     +     .49530,    .21933,    .37555,    .03845,    .00786,
     +     .00377,    .02873,    .05559,
     +     .48857,    .21532,    .35861,    .03763,    .00801,
     +     .00406,    .02819,    .05407 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48173,    .21132,    .34241,    .03684,    .00812,
     +     .00431,    .02763,    .05255,
     +     .47504,    .20745,    .32730,    .03604,    .00820,
     +     .00453,    .02708,    .05112,
     +     .46873,    .20383,    .31367,    .03529,    .00826,
     +     .00471,    .02657,    .04982,
     +     .46271,    .20046,    .30136,    .03459,    .00830,
     +     .00485,    .02607,    .04860,
     +     .45671,    .19714,    .28957,    .03390,    .00832,
     +     .00498,    .02559,    .04740,
     +     .45075,    .19386,    .27841,    .03323,    .00833,
     +     .00508,    .02510,    .04623,
     +     .44517,    .19080,    .26825,    .03260,    .00832,
     +     .00517,    .02466,    .04517,
     +     .43985,    .18793,    .25902,    .03200,    .00831,
     +     .00524,    .02423,    .04417 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43452,    .18506,    .25008,    .03141,    .00829,
     +     .00530,    .02380,    .04318,
     +     .42928,    .18228,    .24160,    .03083,    .00826,
     +     .00535,    .02339,    .04222,
     +     .42427,    .17964,    .23379,    .03029,    .00822,
     +     .00538,    .02298,    .04133,
     +     .41957,    .17719,    .22668,    .02978,    .00819,
     +     .00542,    .02261,    .04052,
     +     .41478,    .17469,    .21972,    .02927,    .00813,
     +     .00543,    .02223,    .03969 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .60729,    .29936,    .72013,    .04385,    .00000,
     +     .00000,    .02855,    .08022,
     +     .60638,    .29641,    .70622,    .04344,    .00000,
     +     .00000,    .02853,    .07823,
     +     .60380,    .29161,    .69401,    .04282,   -.00544,
     +     .00000,    .02848,    .07543,
     +     .60096,    .28781,    .67407,    .04234,   -.00442,
     +     .00000,    .02841,    .07347,
     +     .59736,    .28367,    .65163,    .04182,   -.00309,
     +     .00000,    .02832,    .07147,
     +     .59376,    .27999,    .63175,    .04138,   -.00221,
     +     .00000,    .02822,    .06976,
     +     .58990,    .27640,    .61236,    .04093,   -.00140,
     +     .00000,    .02808,    .06815,
     +     .58552,    .27255,    .59201,    .04045,   -.00059,
     +     .00000,    .02792,    .06647 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58141,    .26909,    .57405,    .03998,    .00004,
     +     .00000,    .02775,    .06506,
     +     .57725,    .26576,    .55697,    .03954,    .00063,
     +     .00000,    .02758,    .06372,
     +     .57377,    .26311,    .54343,    .03919,    .00105,
     +     .00000,    .02741,    .06267,
     +     .56607,    .25739,    .51481,    .03840,    .00189,
     +     .00000,    .02704,    .06046,
     +     .55899,    .25240,    .49537,    .03770,    .00252,
     +    -.00231,    .02670,    .05862,
     +     .55074,    .24687,    .46733,    .03690,    .00314,
     +    -.00133,    .02627,    .05661,
     +     .54192,    .24113,    .43959,    .03606,    .00369,
     +    -.00055,    .02578,    .05456,
     +     .53365,    .23590,    .41555,    .03525,    .00412,
     +     .00004,    .02532,    .05274 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52519,    .23069,    .39253,    .03443,    .00449,
     +     .00060,    .02482,    .05098,
     +     .51812,    .22643,    .37439,    .03375,    .00476,
     +     .00102,    .02439,    .04958,
     +     .50947,    .22127,    .35342,    .03291,    .00504,
     +     .00146,    .02386,    .04789,
     +     .50169,    .21678,    .33579,    .03218,    .00524,
     +     .00180,    .02339,    .04643,
     +     .49459,    .21275,    .32052,    .03153,    .00541,
     +     .00209,    .02294,    .04512,
     +     .48553,    .20764,    .30204,    .03067,    .00556,
     +     .00239,    .02239,    .04353,
     +     .47700,    .20293,    .28570,    .02987,    .00568,
     +     .00264,    .02186,    .04207,
     +     .46906,    .19862,    .27131,    .02915,    .00577,
     +     .00285,    .02136,    .04074 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46111,    .19432,    .25764,    .02843,    .00585,
     +     .00303,    .02086,    .03944,
     +     .45335,    .19021,    .24504,    .02773,    .00589,
     +     .00317,    .02037,    .03821,
     +     .44607,    .18641,    .23374,    .02709,    .00591,
     +     .00329,    .01991,    .03708,
     +     .43923,    .18284,    .22360,    .02648,    .00592,
     +     .00339,    .01948,    .03605,
     +     .43244,    .17933,    .21393,    .02587,    .00593,
     +     .00348,    .01906,    .03505,
     +     .42575,    .17592,    .20488,    .02529,    .00592,
     +     .00355,    .01865,    .03408,
     +     .41946,    .17275,    .19670,    .02474,    .00590,
     +     .00360,    .01826,    .03319,
     +     .41353,    .16977,    .18930,    .02424,    .00587,
     +     .00364,    .01789,    .03236 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40762,    .16683,    .18215,    .02375,    .00585,
     +     .00368,    .01753,    .03154,
     +     .40184,    .16396,    .17542,    .02326,    .00582,
     +     .00371,    .01717,    .03076,
     +     .39635,    .16124,    .16925,    .02277,    .00577,
     +     .00372,    .01683,    .03004,
     +     .39122,    .15873,    .16367,    .02233,    .00574,
     +     .00374,    .01652,    .02938,
     +     .38601,    .15621,    .15820,    .02191,    .00569,
     +     .00374,    .01621,    .02871 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .62325,    .29569,    .64567,    .03622,    .00000,
     +     .00000,    .02302,    .06581,
     +     .62011,    .29160,    .62798,    .03584,    .00000,
     +     .00000,    .02301,    .06395,
     +     .61422,    .28527,    .61038,    .03527,   -.00508,
     +     .00000,    .02295,    .06126,
     +     .60900,    .28051,    .58766,    .03485,   -.00415,
     +     .00000,    .02289,    .05935,
     +     .60296,    .27542,    .56293,    .03441,   -.00300,
     +     .00000,    .02279,    .05743,
     +     .59736,    .27093,    .54160,    .03396,   -.00223,
     +     .00000,    .02265,    .05587,
     +     .59164,    .26658,    .52125,    .03351,   -.00154,
     +     .00000,    .02250,    .05438,
     +     .58534,    .26198,    .50018,    .03302,   -.00085,
     +     .00000,    .02233,    .05285 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .57959,    .25794,    .48183,    .03260,   -.00031,
     +     .00000,    .02214,    .05157,
     +     .57391,    .25406,    .46471,    .03218,    .00017,
     +     .00000,    .02194,    .05033,
     +     .56931,    .25096,    .45131,    .03183,    .00052,
     +     .00000,    .02176,    .04937,
     +     .55920,    .24443,    .42332,    .03107,    .00120,
     +     .00000,    .02139,    .04738,
     +     .55014,    .23885,    .40414,    .03039,    .00172,
     +    -.00198,    .02106,    .04571,
     +     .53984,    .23266,    .37786,    .02965,    .00221,
     +    -.00120,    .02063,    .04391,
     +     .52901,    .22628,    .35225,    .02885,    .00265,
     +    -.00058,    .02013,    .04212,
     +     .51904,    .22057,    .33034,    .02810,    .00298,
     +    -.00011,    .01969,    .04053 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50894,    .21492,    .30961,    .02736,    .00326,
     +     .00032,    .01923,    .03899,
     +     .50060,    .21033,    .29350,    .02675,    .00346,
     +     .00064,    .01885,    .03772,
     +     .49049,    .20481,    .27504,    .02597,    .00366,
     +     .00097,    .01836,    .03629,
     +     .48152,    .20003,    .25970,    .02530,    .00380,
     +     .00122,    .01793,    .03505,
     +     .47339,    .19576,    .24649,    .02471,    .00392,
     +     .00144,    .01753,    .03395,
     +     .46308,    .19042,    .23072,    .02395,    .00403,
     +     .00167,    .01704,    .03257,
     +     .45345,    .18552,    .21692,    .02326,    .00411,
     +     .00185,    .01656,    .03134,
     +     .44458,    .18102,    .20486,    .02263,    .00416,
     +     .00199,    .01611,    .03023 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43574,    .17659,    .19352,    .02198,    .00420,
     +     .00212,    .01567,    .02917,
     +     .42722,    .17236,    .18315,    .02137,    .00422,
     +     .00222,    .01524,    .02818,
     +     .41926,    .16845,    .17390,    .02079,    .00423,
     +     .00231,    .01485,    .02727,
     +     .41178,    .16484,    .16567,    .02027,    .00423,
     +     .00238,    .01449,    .02641,
     +     .40439,    .16129,    .15788,    .01977,    .00422,
     +     .00243,    .01414,    .02558,
     +     .39718,    .15787,    .15060,    .01927,    .00420,
     +     .00247,    .01380,    .02479,
     +     .39043,    .15468,    .14407,    .01883,    .00419,
     +     .00251,    .01347,    .02406,
     +     .38410,    .15169,    .13819,    .01838,    .00415,
     +     .00253,    .01317,    .02340 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37782,    .14872,    .13255,    .01794,    .00413,
     +     .00255,    .01286,    .02278,
     +     .37169,    .14586,    .12726,    .01753,    .00409,
     +     .00257,    .01257,    .02216,
     +     .36586,    .14319,    .12246,    .01716,    .00405,
     +     .00257,    .01230,    .02156,
     +     .36044,    .14071,    .11810,    .01682,    .00402,
     +     .00258,    .01205,    .02100,
     +     .35498,    .13821,    .11386,    .01646,    .00399,
     +     .00259,    .01179,    .02048 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .63221,    .28827,    .57969,    .02975,    .00000,
     +     .00000,    .01844,    .05277,
     +     .62658,    .28328,    .55860,    .02952,    .00000,
     +     .00000,    .01843,    .05101,
     +     .61721,    .27573,    .53608,    .02910,   -.00468,
     +     .00000,    .01834,    .04858,
     +     .60965,    .27009,    .51112,    .02872,   -.00385,
     +     .00000,    .01825,    .04692,
     +     .60129,    .26410,    .48479,    .02827,   -.00284,
     +     .00000,    .01814,    .04525,
     +     .59367,    .25898,    .46257,    .02789,   -.00216,
     +     .00000,    .01800,    .04385,
     +     .58612,    .25408,    .44172,    .02750,   -.00157,
     +     .00000,    .01783,    .04252,
     +     .57794,    .24892,    .42048,    .02708,   -.00098,
     +     .00000,    .01763,    .04114 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57066,    .24443,    .40237,    .02667,   -.00053,
     +     .00000,    .01745,    .03999,
     +     .56356,    .24014,    .38560,    .02627,   -.00013,
     +     .00000,    .01726,    .03891,
     +     .55784,    .23674,    .37261,    .02595,    .00017,
     +     .00000,    .01711,    .03808,
     +     .54553,    .22961,    .34598,    .02525,    .00073,
     +     .00000,    .01672,    .03635,
     +     .53477,    .22354,    .32755,    .02465,    .00114,
     +    -.00168,    .01638,    .03492,
     +     .52269,    .21687,    .30337,    .02395,    .00154,
     +    -.00105,    .01599,    .03338,
     +     .51012,    .21011,    .28019,    .02318,    .00188,
     +    -.00057,    .01556,    .03187,
     +     .49866,    .20412,    .26061,    .02252,    .00213,
     +    -.00019,    .01517,    .03051 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48724,    .19819,    .24239,    .02183,    .00235,
     +     .00014,    .01475,    .02921,
     +     .47789,    .19339,    .22833,    .02125,    .00250,
     +     .00039,    .01439,    .02819,
     +     .46655,    .18768,    .21237,    .02059,    .00265,
     +     .00064,    .01396,    .02699,
     +     .45665,    .18274,    .19930,    .01999,    .00275,
     +     .00083,    .01359,    .02596,
     +     .44776,    .17835,    .18815,    .01944,    .00283,
     +     .00099,    .01326,    .02505,
     +     .43646,    .17292,    .17493,    .01881,    .00290,
     +     .00115,    .01281,    .02394,
     +     .42604,    .16795,    .16347,    .01819,    .00296,
     +     .00129,    .01240,    .02295,
     +     .41650,    .16341,    .15354,    .01762,    .00299,
     +     .00140,    .01203,    .02205 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40705,    .15899,    .14429,    .01706,    .00301,
     +     .00148,    .01167,    .02120,
     +     .39798,    .15475,    .13587,    .01653,    .00302,
     +     .00156,    .01132,    .02041,
     +     .38955,    .15084,    .12845,    .01603,    .00302,
     +     .00162,    .01099,    .01969,
     +     .38171,    .14722,    .12188,    .01558,    .00300,
     +     .00165,    .01068,    .01903,
     +     .37401,    .14370,    .11568,    .01514,    .00300,
     +     .00170,    .01038,    .01839,
     +     .36646,    .14031,    .10995,    .01473,    .00297,
     +     .00172,    .01010,    .01777,
     +     .35943,    .13718,    .10483,    .01434,    .00296,
     +     .00175,    .00984,    .01721,
     +     .35287,    .13427,    .10024,    .01399,    .00293,
     +     .00176,    .00960,    .01668 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34637,    .13140,    .09588,    .01364,    .00291,
     +     .00177,    .00936,    .01615,
     +     .34005,    .12864,    .09179,    .01330,    .00288,
     +     .00178,    .00912,    .01566,
     +     .33409,    .12605,    .08809,    .01297,    .00285,
     +     .00179,    .00891,    .01522,
     +     .32856,    .12363,    .08474,    .01266,    .00282,
     +     .00179,    .00871,    .01483,
     +     .32299,    .12123,    .08152,    .01237,    .00279,
     +     .00178,    .00849,    .01443 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .63344,    .27892,    .51650,    .02535,    .00000,
     +     .00000,    .01397,    .04076,
     +     .62553,    .27299,    .49259,    .02502,    .00000,
     +     .00000,    .01406,    .03939,
     +     .61292,    .26422,    .46621,    .02452,   -.00422,
     +     .00000,    .01410,    .03738,
     +     .60314,    .25784,    .43997,    .02415,   -.00348,
     +     .00000,    .01404,    .03599,
     +     .59252,    .25118,    .41293,    .02373,   -.00261,
     +     .00000,    .01396,    .03460,
     +     .58310,    .24551,    .39053,    .02333,   -.00202,
     +     .00000,    .01388,    .03339,
     +     .57393,    .24011,    .36993,    .02295,   -.00151,
     +     .00000,    .01374,    .03230,
     +     .56416,    .23443,    .34919,    .02250,   -.00100,
     +     .00000,    .01359,    .03117 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .55555,    .22951,    .33186,    .02206,   -.00063,
     +     .00000,    .01343,    .03023,
     +     .54724,    .22487,    .31591,    .02165,   -.00029,
     +     .00000,    .01329,    .02936,
     +     .54059,    .22124,    .30373,    .02134,   -.00005,
     +     .00000,    .01314,    .02865,
     +     .52643,    .21365,    .27905,    .02067,    .00040,
     +     .00000,    .01282,    .02723,
     +     .51417,    .20728,    .26196,    .02007,    .00073,
     +    -.00139,    .01252,    .02605,
     +     .50057,    .20034,    .24033,    .01942,    .00105,
     +    -.00090,    .01218,    .02480,
     +     .48661,    .19331,    .21982,    .01873,    .00132,
     +    -.00051,    .01185,    .02355,
     +     .47405,    .18709,    .20281,    .01808,    .00151,
     +    -.00022,    .01146,    .02249 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46156,    .18102,    .18712,    .01746,    .00168,
     +     .00004,    .01112,    .02145,
     +     .45139,    .17614,    .17513,    .01696,    .00179,
     +     .00023,    .01084,    .02061,
     +     .43920,    .17041,    .16172,    .01633,    .00190,
     +     .00042,    .01047,    .01964,
     +     .42858,    .16545,    .15078,    .01582,    .00197,
     +     .00055,    .01015,    .01884,
     +     .41908,    .16105,    .14154,    .01534,    .00203,
     +     .00068,    .00986,    .01814,
     +     .40721,    .15560,    .13074,    .01474,    .00208,
     +     .00080,    .00949,    .01729,
     +     .39626,    .15065,    .12144,    .01421,    .00211,
     +     .00089,    .00916,    .01650,
     +     .38624,    .14618,    .11343,    .01374,    .00213,
     +     .00097,    .00887,    .01580 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37643,    .14180,    .10607,    .01324,    .00215,
     +     .00104,    .00857,    .01515,
     +     .36705,    .13767,    .09940,    .01278,    .00214,
     +     .00108,    .00829,    .01454,
     +     .35836,    .13386,    .09357,    .01236,    .00214,
     +     .00113,    .00803,    .01396,
     +     .35031,    .13037,    .08843,    .01198,    .00213,
     +     .00115,    .00779,    .01345,
     +     .34240,    .12697,    .08363,    .01161,    .00212,
     +     .00118,    .00755,    .01295,
     +     .33475,    .12371,    .07920,    .01126,    .00210,
     +     .00120,    .00733,    .01246,
     +     .32762,    .12069,    .07526,    .01096,    .00208,
     +     .00122,    .00713,    .01202,
     +     .32099,    .11789,    .07176,    .01066,    .00205,
     +     .00122,    .00693,    .01162 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .31442,    .11514,    .06845,    .01037,    .00204,
     +     .00123,    .00674,    .01125,
     +     .30808,    .11249,    .06534,    .01010,    .00201,
     +     .00123,    .00655,    .01089,
     +     .30215,    .11001,    .06256,    .00981,    .00199,
     +     .00124,    .00638,    .01057,
     +     .29665,    .10772,    .06004,    .00957,    .00197,
     +     .00124,    .00621,    .01027,
     +     .29113,    .10544,    .05764,    .00931,    .00194,
     +     .00123,    .00606,    .00997 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .62890,    .26634,    .45213,    .02090,    .00000,
     +     .00000,    .01083,    .03108,
     +     .61861,    .25975,    .42684,    .02067,    .00000,
     +     .00000,    .01090,    .02991,
     +     .60280,    .25010,    .39825,    .02026,   -.00373,
     +     .00000,    .01093,    .02830,
     +     .59088,    .24314,    .37190,    .01991,   -.00307,
     +     .00000,    .01091,    .02716,
     +     .57823,    .23597,    .34530,    .01949,   -.00233,
     +     .00000,    .01087,    .02599,
     +     .56719,    .22986,    .32371,    .01911,   -.00182,
     +     .00000,    .01078,    .02503,
     +     .55651,    .22412,    .30412,    .01872,   -.00140,
     +     .00000,    .01068,    .02416,
     +     .54524,    .21818,    .28465,    .01831,   -.00097,
     +     .00000,    .01052,    .02324 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .53538,    .21305,    .26860,    .01797,   -.00067,
     +     .00000,    .01038,    .02245,
     +     .52597,    .20822,    .25402,    .01759,   -.00039,
     +     .00000,    .01023,    .02173,
     +     .51854,    .20441,    .24297,    .01727,   -.00020,
     +     .00000,    .01010,    .02121,
     +     .50274,    .19660,    .22086,    .01665,    .00017,
     +     .00000,    .00984,    .02006,
     +     .48927,    .19010,    .20549,    .01613,    .00044,
     +    -.00113,    .00959,    .01910,
     +     .47451,    .18301,    .18667,    .01552,    .00069,
     +    -.00075,    .00927,    .01814,
     +     .45946,    .17590,    .16911,    .01490,    .00090,
     +    -.00045,    .00894,    .01716,
     +     .44597,    .16971,    .15470,    .01433,    .00105,
     +    -.00022,    .00863,    .01632 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43271,    .16364,    .14155,    .01376,    .00117,
     +    -.00003,    .00833,    .01552,
     +     .42197,    .15878,    .13161,    .01331,    .00126,
     +     .00012,    .00808,    .01489,
     +     .40918,    .15309,    .12063,    .01279,    .00134,
     +     .00026,    .00779,    .01413,
     +     .39811,    .14821,    .11181,    .01234,    .00139,
     +     .00036,    .00753,    .01347,
     +     .38825,    .14389,    .10434,    .01195,    .00143,
     +     .00045,    .00731,    .01291,
     +     .37598,    .13860,    .09572,    .01143,    .00147,
     +     .00055,    .00701,    .01226,
     +     .36477,    .13379,    .08837,    .01098,    .00149,
     +     .00061,    .00673,    .01166,
     +     .35458,    .12946,    .08212,    .01056,    .00150,
     +     .00067,    .00649,    .01112 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34458,    .12525,    .07640,    .01015,    .00150,
     +     .00071,    .00625,    .01064,
     +     .33506,    .12128,    .07126,    .00978,    .00150,
     +     .00075,    .00603,    .01017,
     +     .32631,    .11764,    .06677,    .00944,    .00150,
     +     .00078,    .00584,    .00975,
     +     .31823,    .11431,    .06288,    .00913,    .00149,
     +     .00080,    .00564,    .00936,
     +     .31033,    .11108,    .05926,    .00883,    .00148,
     +     .00082,    .00545,    .00898,
     +     .30269,    .10799,    .05595,    .00853,    .00146,
     +     .00082,    .00528,    .00862,
     +     .29562,    .10515,    .05299,    .00827,    .00145,
     +     .00084,    .00511,    .00829,
     +     .28908,    .10251,    .05040,    .00802,    .00143,
     +     .00084,    .00495,    .00801 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .28265,    .09993,    .04794,    .00778,    .00141,
     +     .00084,    .00481,    .00774,
     +     .27643,    .09744,    .04566,    .00754,    .00139,
     +     .00084,    .00466,    .00748,
     +     .27060,    .09511,    .04361,    .00732,    .00137,
     +     .00084,    .00453,    .00724,
     +     .26520,    .09298,    .04177,    .00711,    .00136,
     +     .00084,    .00440,    .00702,
     +     .25979,    .09086,    .04002,    .00692,    .00134,
     +     .00084,    .00429,    .00679 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .61802,    .25229,    .38693,    .01755,    .00000,
     +     .00000,    .00811,    .02289,
     +     .60562,    .24509,    .36144,    .01729,    .00000,
     +     .00000,    .00821,    .02202,
     +     .58695,    .23468,    .33240,    .01683,   -.00321,
     +     .00000,    .00830,    .02076,
     +     .57318,    .22731,    .30707,    .01646,   -.00264,
     +     .00000,    .00829,    .01994,
     +     .55868,    .21973,    .28204,    .01606,   -.00202,
     +     .00000,    .00822,    .01908,
     +     .54617,    .21339,    .26201,    .01570,   -.00159,
     +     .00000,    .00819,    .01830,
     +     .53423,    .20742,    .24406,    .01534,   -.00123,
     +     .00000,    .00808,    .01762,
     +     .52171,    .20126,    .22642,    .01494,   -.00089,
     +     .00000,    .00796,    .01694 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51091,    .19602,    .21207,    .01458,   -.00064,
     +     .00000,    .00785,    .01632,
     +     .50059,    .19108,    .19916,    .01425,   -.00042,
     +     .00000,    .00772,    .01577,
     +     .49245,    .18726,    .18954,    .01397,   -.00026,
     +     .00000,    .00761,    .01534,
     +     .47545,    .17934,    .17047,    .01339,    .00004,
     +     .00000,    .00738,    .01443,
     +     .46109,    .17279,    .15715,    .01290,    .00024,
     +    -.00091,    .00719,    .01370,
     +     .44541,    .16577,    .14128,    .01238,    .00043,
     +    -.00062,    .00693,    .01293,
     +     .42959,    .15875,    .12665,    .01181,    .00060,
     +    -.00038,    .00669,    .01217,
     +     .41557,    .15258,    .11484,    .01131,    .00072,
     +    -.00021,    .00644,    .01154 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40181,    .14664,    .10424,    .01081,    .00081,
     +    -.00006,    .00618,    .01093,
     +     .39073,    .14193,    .09627,    .01043,    .00087,
     +     .00005,    .00597,    .01044,
     +     .37762,    .13636,    .08754,    .00996,    .00092,
     +     .00015,    .00572,    .00992,
     +     .36635,    .13164,    .08057,    .00957,    .00096,
     +     .00023,    .00551,    .00945,
     +     .35633,    .12747,    .07478,    .00922,    .00099,
     +     .00029,    .00532,    .00905,
     +     .34393,    .12237,    .06812,    .00880,    .00102,
     +     .00037,    .00509,    .00854,
     +     .33266,    .11777,    .06251,    .00841,    .00103,
     +     .00041,    .00489,    .00809,
     +     .32247,    .11364,    .05774,    .00806,    .00104,
     +     .00045,    .00471,    .00769 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .31254,    .10966,    .05344,    .00773,    .00105,
     +     .00049,    .00451,    .00732,
     +     .30312,    .10592,    .04962,    .00743,    .00104,
     +     .00051,    .00432,    .00698,
     +     .29445,    .10251,    .04630,    .00715,    .00104,
     +     .00053,    .00417,    .00666,
     +     .28650,    .09938,    .04344,    .00688,    .00103,
     +     .00054,    .00402,    .00638,
     +     .27876,    .09635,    .04077,    .00662,    .00102,
     +     .00056,    .00389,    .00613,
     +     .27130,    .09346,    .03837,    .00639,    .00101,
     +     .00056,    .00375,    .00588,
     +     .26440,    .09081,    .03625,    .00618,    .00099,
     +     .00057,    .00361,    .00566,
     +     .25804,    .08837,    .03439,    .00599,    .00098,
     +     .00057,    .00350,    .00544 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .25178,    .08597,    .03261,    .00578,    .00097,
     +     .00057,    .00339,    .00525,
     +     .24576,    .08369,    .03100,    .00559,    .00096,
     +     .00058,    .00328,    .00505,
     +     .24012,    .08155,    .02954,    .00543,    .00094,
     +     .00057,    .00318,    .00488,
     +     .23492,    .07958,    .02825,    .00528,    .00093,
     +     .00057,    .00308,    .00472,
     +     .22975,    .07764,    .02701,    .00513,    .00091,
     +     .00057,    .00300,    .00455 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .60181,    .23656,    .32153,    .01456,    .00000,
     +     .00000,    .00600,    .01646,
     +     .58742,    .22899,    .29719,    .01431,    .00000,
     +     .00000,    .00614,    .01579,
     +     .56609,    .21818,    .26934,    .01389,   -.00270,
     +     .00000,    .00624,    .01484,
     +     .55068,    .21055,    .24604,    .01351,   -.00221,
     +     .00000,    .00628,    .01420,
     +     .53470,    .20275,    .22343,    .01307,   -.00170,
     +     .00000,    .00624,    .01357,
     +     .52093,    .19625,    .20556,    .01276,   -.00135,
     +     .00000,    .00614,    .01308,
     +     .50800,    .19018,    .18981,    .01241,   -.00106,
     +     .00000,    .00608,    .01255,
     +     .49453,    .18395,    .17450,    .01203,   -.00078,
     +     .00000,    .00599,    .01201 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48291,    .17867,    .16222,    .01169,   -.00058,
     +     .00000,    .00589,    .01158,
     +     .47191,    .17374,    .15123,    .01139,   -.00040,
     +     .00000,    .00579,    .01117,
     +     .46332,    .16996,    .14307,    .01115,   -.00027,
     +     .00000,    .00570,    .01082,
     +     .44540,    .16210,    .12720,    .01062,   -.00004,
     +     .00000,    .00551,    .01016,
     +     .43043,    .15562,    .11613,    .01018,    .00012,
     +    -.00071,    .00532,    .00965,
     +     .41420,    .14871,    .10324,    .00971,    .00026,
     +    -.00049,    .00511,    .00910,
     +     .39786,    .14186,    .09154,    .00924,    .00038,
     +    -.00031,    .00489,    .00854,
     +     .38353,    .13592,    .08220,    .00879,    .00047,
     +    -.00018,    .00470,    .00805 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36954,    .13020,    .07390,    .00837,    .00055,
     +    -.00007,    .00451,    .00761,
     +     .35834,    .12565,    .06775,    .00805,    .00059,
     +     .00000,    .00434,    .00724,
     +     .34519,    .12037,    .06107,    .00766,    .00063,
     +     .00008,    .00415,    .00682,
     +     .33391,    .11587,    .05580,    .00733,    .00066,
     +     .00014,    .00400,    .00648,
     +     .32394,    .11192,    .05145,    .00704,    .00068,
     +     .00019,    .00386,    .00618,
     +     .31167,    .10711,    .04650,    .00668,    .00070,
     +     .00025,    .00366,    .00582,
     +     .30052,    .10278,    .04239,    .00639,    .00071,
     +     .00028,    .00349,    .00550,
     +     .29047,    .09891,    .03894,    .00614,    .00072,
     +     .00031,    .00335,    .00520 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .28078,    .09520,    .03585,    .00584,    .00071,
     +     .00032,    .00321,    .00493,
     +     .27161,    .09170,    .03311,    .00557,    .00071,
     +     .00034,    .00308,    .00469,
     +     .26321,    .08851,    .03077,    .00534,    .00070,
     +     .00035,    .00295,    .00449,
     +     .25550,    .08564,    .02874,    .00513,    .00071,
     +     .00037,    .00284,    .00429,
     +     .24801,    .08284,    .02687,    .00494,    .00070,
     +     .00038,    .00274,    .00410,
     +     .24086,    .08017,    .02520,    .00475,    .00069,
     +     .00038,    .00263,    .00392,
     +     .23429,    .07774,    .02373,    .00457,    .00067,
     +     .00038,    .00254,    .00377,
     +     .22823,    .07550,    .02244,    .00440,    .00067,
     +     .00039,    .00245,    .00363 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .22228,    .07331,    .02127,    .00424,    .00066,
     +     .00039,    .00236,    .00349,
     +     .21655,    .07122,    .02016,    .00410,    .00065,
     +     .00039,    .00229,    .00335,
     +     .21119,    .06929,    .01919,    .00397,    .00064,
     +     .00039,    .00220,    .00324,
     +     .20624,    .06750,    .01832,    .00385,    .00063,
     +     .00038,    .00214,    .00313,
     +     .20136,    .06575,    .01750,    .00373,    .00063,
     +     .00039,    .00206,    .00301 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .58057,    .21967,    .25773,    .01178,    .00000,
     +     .00000,    .00457,    .01154,
     +     .56445,    .21184,    .23558,    .01152,    .00000,
     +     .00000,    .00463,    .01116,
     +     .54100,    .20077,    .21020,    .01111,   -.00221,
     +     .00000,    .00470,    .01054,
     +     .52422,    .19304,    .18981,    .01078,   -.00181,
     +     .00000,    .00470,    .01004,
     +     .50694,    .18522,    .17024,    .01043,   -.00139,
     +     .00000,    .00468,    .00955,
     +     .49237,    .17867,    .15502,    .01011,   -.00111,
     +     .00000,    .00461,    .00918,
     +     .47859,    .17264,    .14179,    .00979,   -.00088,
     +     .00000,    .00454,    .00881,
     +     .46433,    .16648,    .12905,    .00946,   -.00067,
     +     .00000,    .00447,    .00842 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45220,    .16127,    .11895,    .00917,   -.00050,
     +     .00000,    .00437,    .00810,
     +     .44075,    .15643,    .11001,    .00889,   -.00037,
     +     .00000,    .00430,    .00779,
     +     .43184,    .15269,    .10341,    .00869,   -.00026,
     +     .00000,    .00423,    .00754,
     +     .41335,    .14504,    .09063,    .00824,   -.00009,
     +     .00000,    .00408,    .00706,
     +     .39805,    .13879,    .08193,    .00786,    .00003,
     +    -.00055,    .00395,    .00667,
     +     .38157,    .13214,    .07192,    .00744,    .00014,
     +    -.00039,    .00380,    .00622,
     +     .36515,    .12559,    .06289,    .00705,    .00024,
     +    -.00025,    .00359,    .00582,
     +     .35071,    .11993,    .05589,    .00669,    .00030,
     +    -.00016,    .00342,    .00549 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33675,    .11449,    .04968,    .00635,    .00035,
     +    -.00008,    .00326,    .00518,
     +     .32563,    .11019,    .04512,    .00607,    .00039,
     +    -.00002,    .00315,    .00493,
     +     .31266,    .10520,    .04026,    .00577,    .00042,
     +     .00004,    .00301,    .00461,
     +     .30152,    .10099,    .03647,    .00550,    .00044,
     +     .00009,    .00288,    .00436,
     +     .29171,    .09732,    .03338,    .00526,    .00046,
     +     .00012,    .00276,    .00415,
     +     .27976,    .09284,    .02989,    .00500,    .00047,
     +     .00016,    .00263,    .00387,
     +     .26897,    .08882,    .02702,    .00472,    .00048,
     +     .00019,    .00250,    .00367,
     +     .25929,    .08524,    .02465,    .00448,    .00048,
     +     .00020,    .00238,    .00349 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24995,    .08183,    .02254,    .00425,    .00048,
     +     .00023,    .00227,    .00331,
     +     .24115,    .07863,    .02069,    .00405,    .00048,
     +     .00024,    .00216,    .00314,
     +     .23312,    .07571,    .01913,    .00389,    .00048,
     +     .00025,    .00206,    .00297,
     +     .22576,    .07307,    .01777,    .00374,    .00048,
     +     .00026,    .00199,    .00284,
     +     .21864,    .07055,    .01657,    .00359,    .00047,
     +     .00027,    .00190,    .00271,
     +     .21186,    .06814,    .01548,    .00345,    .00046,
     +     .00026,    .00183,    .00259,
     +     .20564,    .06593,    .01455,    .00330,    .00046,
     +     .00027,    .00175,    .00246,
     +     .19990,    .06390,    .01373,    .00318,    .00045,
     +     .00027,    .00170,    .00236 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .19429,    .06194,    .01296,    .00307,    .00045,
     +     .00028,    .00165,    .00226,
     +     .18892,    .06007,    .01225,    .00296,    .00044,
     +     .00028,    .00159,    .00217,
     +     .18393,    .05832,    .01164,    .00286,    .00044,
     +     .00028,    .00154,    .00210,
     +     .17934,    .05673,    .01108,    .00278,    .00043,
     +     .00028,    .00149,    .00204,
     +     .17479,    .05516,    .01059,    .00268,    .00042,
     +     .00028,    .00144,    .00196 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .55487,    .20248,    .19727,    .00968,    .00000,
     +     .00000,    .00318,    .00783,
     +     .53735,    .19458,    .17808,    .00943,    .00000,
     +     .00000,    .00333,    .00749,
     +     .51214,    .18338,    .15638,    .00900,   -.00176,
     +     .00000,    .00337,    .00709,
     +     .49436,    .17566,    .13924,    .00867,   -.00144,
     +     .00000,    .00339,    .00681,
     +     .47619,    .16790,    .12305,    .00835,   -.00112,
     +     .00000,    .00339,    .00647,
     +     .46090,    .16148,    .11070,    .00807,   -.00089,
     +     .00000,    .00336,    .00617,
     +     .44664,    .15552,    .10008,    .00775,   -.00072,
     +     .00000,    .00332,    .00594,
     +     .43197,    .14947,    .08994,    .00742,   -.00054,
     +     .00000,    .00327,    .00572 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41945,    .14444,    .08206,    .00721,   -.00042,
     +     .00000,    .00320,    .00548,
     +     .40775,    .13974,    .07514,    .00699,   -.00031,
     +     .00000,    .00312,    .00526,
     +     .39872,    .13612,    .07011,    .00678,   -.00023,
     +     .00000,    .00306,    .00507,
     +     .38005,    .12878,    .06046,    .00639,   -.00009,
     +     .00000,    .00293,    .00471,
     +     .36465,    .12281,    .05393,    .00606,    .00000,
     +    -.00042,    .00283,    .00445,
     +     .34817,    .11646,    .04652,    .00573,    .00008,
     +    -.00029,    .00269,    .00421,
     +     .33181,    .11026,    .04000,    .00539,    .00015,
     +    -.00020,    .00258,    .00389,
     +     .31768,    .10492,    .03497,    .00508,    .00020,
     +    -.00013,    .00244,    .00367 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30401,    .09982,    .03062,    .00479,    .00024,
     +    -.00007,    .00231,    .00345,
     +     .29314,    .09582,    .02745,    .00457,    .00027,
     +    -.00002,    .00221,    .00327,
     +     .28050,    .09121,    .02414,    .00432,    .00028,
     +     .00001,    .00211,    .00304,
     +     .26978,    .08731,    .02161,    .00410,    .00030,
     +     .00005,    .00200,    .00288,
     +     .26037,    .08391,    .01954,    .00391,    .00031,
     +     .00007,    .00192,    .00274,
     +     .24885,    .07978,    .01727,    .00369,    .00032,
     +     .00009,    .00181,    .00257,
     +     .23853,    .07611,    .01546,    .00347,    .00033,
     +     .00012,    .00173,    .00241,
     +     .22931,    .07286,    .01394,    .00329,    .00033,
     +     .00013,    .00165,    .00228 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .22040,    .06976,    .01264,    .00314,    .00033,
     +     .00014,    .00156,    .00213,
     +     .21207,    .06686,    .01151,    .00299,    .00033,
     +     .00015,    .00149,    .00201,
     +     .20453,    .06424,    .01055,    .00284,    .00033,
     +     .00016,    .00142,    .00192,
     +     .19766,    .06186,    .00978,    .00269,    .00032,
     +     .00016,    .00136,    .00183,
     +     .19103,    .05958,    .00905,    .00257,    .00033,
     +     .00017,    .00130,    .00175,
     +     .18467,    .05742,    .00843,    .00247,    .00032,
     +     .00017,    .00125,    .00165,
     +     .17884,    .05547,    .00788,    .00239,    .00032,
     +     .00018,    .00120,    .00157,
     +     .17352,    .05367,    .00740,    .00230,    .00032,
     +     .00018,    .00116,    .00151 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16834,    .05192,    .00698,    .00221,    .00031,
     +     .00018,    .00110,    .00145,
     +     .16338,    .05025,    .00660,    .00213,    .00031,
     +     .00019,    .00105,    .00138,
     +     .15879,    .04872,    .00625,    .00204,    .00031,
     +     .00019,    .00102,    .00132,
     +     .15457,    .04731,    .00595,    .00197,    .00030,
     +     .00019,    .00099,    .00127,
     +     .15038,    .04593,    .00567,    .00191,    .00030,
     +     .00019,    .00096,    .00122 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52539,    .18482,    .14163,    .00778,    .00000,
     +     .00000,    .00230,    .00506,
     +     .50687,    .17694,    .12598,    .00754,    .00000,
     +     .00000,    .00237,    .00489,
     +     .48046,    .16589,    .10845,    .00716,   -.00137,
     +     .00000,    .00238,    .00465,
     +     .46193,    .15835,    .09487,    .00689,   -.00112,
     +     .00000,    .00241,    .00444,
     +     .44313,    .15083,    .08225,    .00661,   -.00088,
     +     .00000,    .00242,    .00422,
     +     .42753,    .14456,    .07278,    .00631,   -.00070,
     +     .00000,    .00239,    .00411,
     +     .41297,    .13885,    .06476,    .00609,   -.00056,
     +     .00000,    .00233,    .00391,
     +     .39805,    .13307,    .05729,    .00588,   -.00043,
     +     .00000,    .00227,    .00367 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .38550,    .12824,    .05145,    .00565,   -.00034,
     +     .00000,    .00225,    .00351,
     +     .37379,    .12377,    .04642,    .00543,   -.00026,
     +     .00000,    .00219,    .00338,
     +     .36475,    .12033,    .04281,    .00525,   -.00020,
     +     .00000,    .00214,    .00330,
     +     .34616,    .11334,    .03601,    .00490,   -.00010,
     +     .00000,    .00203,    .00308,
     +     .33099,    .10772,    .03150,    .00465,   -.00003,
     +    -.00031,    .00195,    .00287,
     +     .31484,    .10180,    .02638,    .00439,    .00003,
     +    -.00022,    .00186,    .00266,
     +     .29892,    .09602,    .02200,    .00408,    .00009,
     +    -.00015,    .00175,    .00247,
     +     .28512,    .09106,    .01870,    .00385,    .00012,
     +    -.00010,    .00165,    .00233 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27192,    .08634,    .01588,    .00363,    .00015,
     +    -.00006,    .00158,    .00218,
     +     .26147,    .08266,    .01389,    .00345,    .00017,
     +    -.00003,    .00151,    .00205,
     +     .24934,    .07843,    .01185,    .00325,    .00019,
     +    -.00001,    .00144,    .00192,
     +     .23914,    .07488,    .01035,    .00305,    .00021,
     +     .00002,    .00136,    .00180,
     +     .23020,    .07177,    .00914,    .00290,    .00022,
     +     .00003,    .00128,    .00171,
     +     .21932,    .06802,    .00785,    .00272,    .00024,
     +     .00005,    .00120,    .00161,
     +     .20957,    .06471,    .00683,    .00257,    .00025,
     +     .00006,    .00114,    .00152,
     +     .20088,    .06179,    .00601,    .00244,    .00025,
     +     .00007,    .00109,    .00144 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .19258,    .05896,    .00533,    .00231,    .00025,
     +     .00007,    .00103,    .00136,
     +     .18482,    .05636,    .00476,    .00219,    .00025,
     +     .00008,    .00098,    .00128,
     +     .17779,    .05405,    .00430,    .00209,    .00025,
     +     .00008,    .00092,    .00121,
     +     .17141,    .05194,    .00393,    .00200,    .00025,
     +     .00009,    .00088,    .00113,
     +     .16526,    .04992,    .00359,    .00190,    .00025,
     +     .00009,    .00085,    .00107,
     +     .15945,    .04801,    .00332,    .00181,    .00025,
     +     .00010,    .00080,    .00102,
     +     .15414,    .04627,    .00309,    .00172,    .00025,
     +     .00010,    .00077,    .00097,
     +     .14927,    .04468,    .00288,    .00165,    .00024,
     +     .00010,    .00075,    .00093 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14451,    .04314,    .00269,    .00159,    .00024,
     +     .00010,    .00072,    .00089,
     +     .13998,    .04167,    .00254,    .00154,    .00024,
     +     .00011,    .00069,    .00085,
     +     .13582,    .04034,    .00242,    .00147,    .00024,
     +     .00011,    .00066,    .00081,
     +     .13200,    .03912,    .00229,    .00141,    .00024,
     +     .00011,    .00064,    .00078,
     +     .12821,    .03790,    .00221,    .00135,    .00023,
     +     .00011,    .00062,    .00074 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .49284,    .16686,    .09237,    .00592,    .00000,
     +     .00000,    .00166,    .00330,
     +     .47359,    .15913,    .08040,    .00571,    .00000,
     +     .00000,    .00172,    .00321,
     +     .44631,    .14848,    .06714,    .00544,   -.00104,
     +     .00000,    .00177,    .00303,
     +     .42746,    .14119,    .05716,    .00521,   -.00085,
     +     .00000,    .00174,    .00289,
     +     .40848,    .13392,    .04807,    .00494,   -.00067,
     +     .00000,    .00171,    .00279,
     +     .39270,    .12798,    .04134,    .00475,   -.00053,
     +     .00000,    .00167,    .00266,
     +     .37810,    .12257,    .03571,    .00457,   -.00043,
     +     .00000,    .00167,    .00252,
     +     .36325,    .11710,    .03053,    .00437,   -.00033,
     +     .00000,    .00165,    .00239 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35083,    .11255,    .02666,    .00420,   -.00027,
     +     .00000,    .00160,    .00228,
     +     .33928,    .10835,    .02336,    .00403,   -.00021,
     +     .00000,    .00155,    .00218,
     +     .33038,    .10512,    .02103,    .00389,   -.00016,
     +     .00000,    .00151,    .00212,
     +     .31220,    .09859,    .01671,    .00360,   -.00009,
     +     .00000,    .00142,    .00201,
     +     .29746,    .09335,    .01395,    .00335,   -.00004,
     +    -.00022,    .00136,    .00191,
     +     .28189,    .08786,    .01078,    .00311,    .00000,
     +    -.00016,    .00132,    .00180,
     +     .26648,    .08256,    .00822,    .00295,    .00005,
     +    -.00011,    .00124,    .00162,
     +     .25328,    .07804,    .00638,    .00276,    .00007,
     +    -.00008,    .00117,    .00151 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .24071,    .07376,    .00486,    .00257,    .00009,
     +    -.00005,    .00109,    .00141,
     +     .23082,    .07041,    .00384,    .00241,    .00011,
     +    -.00003,    .00104,    .00133,
     +     .21932,    .06658,    .00284,    .00229,    .00012,
     +    -.00002,    .00098,    .00125,
     +     .20969,    .06336,    .00213,    .00217,    .00013,
     +    -.00001,    .00094,    .00118,
     +     .20131,    .06058,    .00161,    .00206,    .00014,
     +     .00000,    .00089,    .00111,
     +     .19119,    .05725,    .00108,    .00190,    .00015,
     +     .00001,    .00084,    .00102,
     +     .18215,    .05431,    .00071,    .00179,    .00016,
     +     .00002,    .00079,    .00095,
     +     .17410,    .05169,    .00047,    .00169,    .00016,
     +     .00002,    .00073,    .00089 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16642,    .04924,    .00022,    .00161,    .00017,
     +     .00003,    .00071,    .00084,
     +     .15930,    .04695,    .00009,    .00150,    .00017,
     +     .00003,    .00066,    .00079,
     +     .15290,    .04487,   -.00002,    .00140,    .00018,
     +     .00004,    .00064,    .00076,
     +     .14707,    .04301,   -.00009,    .00133,    .00018,
     +     .00004,    .00060,    .00073,
     +     .14147,    .04125,   -.00014,    .00126,    .00018,
     +     .00004,    .00057,    .00070,
     +     .13617,    .03957,   -.00018,    .00121,    .00019,
     +     .00005,    .00055,    .00065,
     +     .13136,    .03807,   -.00019,    .00117,    .00019,
     +     .00005,    .00053,    .00060,
     +     .12696,    .03669,   -.00020,    .00110,    .00019,
     +     .00005,    .00051,    .00057 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .12268,    .03536,   -.00019,    .00105,    .00018,
     +     .00005,    .00048,    .00056,
     +     .11860,    .03409,   -.00018,    .00101,    .00018,
     +     .00005,    .00046,    .00054,
     +     .11482,    .03293,   -.00015,    .00097,    .00018,
     +     .00005,    .00044,    .00051,
     +     .11137,    .03188,   -.00014,    .00094,    .00019,
     +     .00006,    .00042,    .00049,
     +     .10801,    .03084,   -.00013,    .00091,    .00019,
     +     .00006,    .00040,    .00048 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .45776,    .14923,    .04997,    .00451,    .00000,
     +     .00000,    .00126,    .00203,
     +     .43805,    .14180,    .04170,    .00431,    .00000,
     +     .00000,    .00128,    .00202,
     +     .41052,    .13151,    .03297,    .00399,   -.00078,
     +     .00000,    .00131,    .00194,
     +     .39165,    .12454,    .02627,    .00378,   -.00063,
     +     .00000,    .00131,    .00189,
     +     .37271,    .11769,    .02035,    .00356,   -.00050,
     +     .00000,    .00130,    .00181,
     +     .35713,    .11211,    .01611,    .00339,   -.00040,
     +     .00000,    .00127,    .00171,
     +     .34281,    .10699,    .01276,    .00318,   -.00032,
     +     .00000,    .00123,    .00166,
     +     .32828,    .10185,    .00978,    .00296,   -.00026,
     +     .00000,    .00120,    .00159 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .31607,    .09763,    .00754,    .00289,   -.00021,
     +     .00000,    .00116,    .00151,
     +     .30476,    .09373,    .00572,    .00279,   -.00016,
     +     .00000,    .00113,    .00143,
     +     .29611,    .09076,    .00449,    .00269,   -.00014,
     +     .00000,    .00112,    .00139,
     +     .27856,    .08476,    .00231,    .00248,   -.00008,
     +     .00000,    .00105,    .00130,
     +     .26444,    .07999,    .00103,    .00231,   -.00005,
     +    -.00016,    .00100,    .00121,
     +     .24957,    .07501,   -.00047,    .00213,   -.00002,
     +    -.00012,    .00094,    .00111,
     +     .23501,    .07019,   -.00164,    .00198,    .00000,
     +    -.00009,    .00089,    .00106,
     +     .22255,    .06609,   -.00235,    .00185,    .00002,
     +    -.00007,    .00085,    .00099 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .21074,    .06224,   -.00284,    .00172,    .00004,
     +    -.00005,    .00080,    .00093,
     +     .20149,    .05926,   -.00310,    .00161,    .00005,
     +    -.00004,    .00075,    .00088,
     +     .19089,    .05582,   -.00330,    .00147,    .00006,
     +    -.00003,    .00071,    .00082,
     +     .18197,    .05299,   -.00341,    .00138,    .00007,
     +    -.00002,    .00067,    .00077,
     +     .17422,    .05053,   -.00343,    .00132,    .00007,
     +    -.00002,    .00063,    .00073,
     +     .16488,    .04756,   -.00338,    .00122,    .00008,
     +    -.00001,    .00059,    .00068,
     +     .15658,    .04498,   -.00330,    .00115,    .00008,
     +    -.00001,    .00057,    .00062,
     +     .14924,    .04271,   -.00323,    .00110,    .00009,
     +     .00000,    .00055,    .00058 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .14227,    .04057,   -.00305,    .00102,    .00009,
     +     .00000,    .00050,    .00053,
     +     .13581,    .03857,   -.00290,    .00096,    .00010,
     +     .00001,    .00047,    .00050,
     +     .12999,    .03679,   -.00276,    .00090,    .00010,
     +     .00001,    .00046,    .00048,
     +     .12474,    .03518,   -.00262,    .00085,    .00010,
     +     .00001,    .00044,    .00047,
     +     .11971,    .03365,   -.00247,    .00081,    .00010,
     +     .00001,    .00040,    .00046,
     +     .11497,    .03221,   -.00233,    .00075,    .00010,
     +     .00001,    .00038,    .00043,
     +     .11066,    .03092,   -.00219,    .00071,    .00011,
     +     .00002,    .00037,    .00041,
     +     .10672,    .02975,   -.00205,    .00069,    .00011,
     +     .00002,    .00034,    .00037 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .10289,    .02862,   -.00194,    .00067,    .00011,
     +     .00002,    .00033,    .00035,
     +     .09928,    .02756,   -.00183,    .00065,    .00011,
     +     .00002,    .00032,    .00033,
     +     .09597,    .02656,   -.00172,    .00062,    .00011,
     +     .00002,    .00031,    .00032,
     +     .09296,    .02566,   -.00161,    .00058,    .00011,
     +     .00002,    .00030,    .00031,
     +     .08998,    .02478,   -.00152,    .00056,    .00011,
     +     .00002,    .00029,    .00030 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .42105,    .13266,    .01474,    .00369,    .00000,
     +     .00000,    .00062,    .00110,
     +     .40144,    .12556,    .00985,    .00349,    .00000,
     +     .00000,    .00071,    .00107,
     +     .37414,    .11587,    .00518,    .00320,   -.00056,
     +     .00000,    .00076,    .00102,
     +     .35553,    .10933,    .00154,    .00297,   -.00046,
     +     .00000,    .00078,    .00100,
     +     .33699,    .10289,   -.00153,    .00277,   -.00036,
     +     .00000,    .00075,    .00097,
     +     .32170,    .09768,   -.00366,    .00271,   -.00029,
     +     .00000,    .00075,    .00093,
     +     .30775,    .09293,   -.00518,    .00260,   -.00024,
     +     .00000,    .00075,    .00087,
     +     .29369,    .08820,   -.00642,    .00245,   -.00019,
     +     .00000,    .00074,    .00084 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .28204,    .08428,   -.00719,    .00230,   -.00015,
     +     .00000,    .00070,    .00084,
     +     .27130,    .08071,   -.00777,    .00216,   -.00013,
     +     .00000,    .00068,    .00084,
     +     .26308,    .07797,   -.00809,    .00206,   -.00010,
     +     .00000,    .00065,    .00082,
     +     .24639,    .07251,   -.00857,    .00191,   -.00007,
     +     .00000,    .00063,    .00077,
     +     .23298,    .06821,   -.00868,    .00181,   -.00005,
     +    -.00011,    .00061,    .00071,
     +     .21898,    .06376,   -.00888,    .00169,   -.00003,
     +    -.00009,    .00057,    .00063,
     +     .20541,    .05941,   -.00878,    .00154,   -.00001,
     +    -.00007,    .00051,    .00058,
     +     .19389,    .05575,   -.00860,    .00140,    .00000,
     +    -.00006,    .00049,    .00053 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18299,    .05233,   -.00833,    .00129,    .00001,
     +    -.00005,    .00046,    .00050,
     +     .17447,    .04966,   -.00807,    .00121,    .00002,
     +    -.00004,    .00045,    .00048,
     +     .16465,    .04665,   -.00767,    .00115,    .00003,
     +    -.00003,    .00041,    .00044,
     +     .15647,    .04415,   -.00730,    .00109,    .00003,
     +    -.00003,    .00039,    .00041,
     +     .14941,    .04199,   -.00694,    .00102,    .00004,
     +    -.00002,    .00038,    .00037,
     +     .14092,    .03941,   -.00648,    .00095,    .00004,
     +    -.00002,    .00034,    .00035,
     +     .13348,    .03715,   -.00605,    .00086,    .00005,
     +    -.00001,    .00030,    .00034,
     +     .12692,    .03517,   -.00564,    .00076,    .00005,
     +    -.00001,    .00028,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .12062,    .03331,   -.00528,    .00074,    .00005,
     +    -.00001,    .00028,    .00031,
     +     .11479,    .03159,   -.00493,    .00072,    .00005,
     +    -.00001,    .00026,    .00028,
     +     .10958,    .03006,   -.00460,    .00069,    .00006,
     +     .00000,    .00026,    .00025,
     +     .10492,    .02868,   -.00431,    .00065,    .00006,
     +     .00000,    .00024,    .00024,
     +     .10046,    .02739,   -.00403,    .00061,    .00006,
     +     .00000,    .00023,    .00023,
     +     .09627,    .02617,   -.00376,    .00056,    .00006,
     +     .00000,    .00022,    .00022,
     +     .09246,    .02506,   -.00352,    .00053,    .00006,
     +     .00000,    .00021,    .00021,
     +     .08902,    .02407,   -.00331,    .00050,    .00006,
     +     .00000,    .00020,    .00020 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08567,    .02310,   -.00310,    .00049,    .00006,
     +     .00000,    .00017,    .00019,
     +     .08250,    .02219,   -.00290,    .00047,    .00006,
     +     .00000,    .00017,    .00018,
     +     .07961,    .02136,   -.00273,    .00045,    .00006,
     +     .00000,    .00016,    .00016,
     +     .07697,    .02060,   -.00257,    .00043,    .00006,
     +     .00000,    .00016,    .00016,
     +     .07437,    .01986,   -.00242,    .00041,    .00006,
     +     .00000,    .00015,    .00015 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .38307,    .11593,   -.01285,    .00247,    .00000,
     +     .00000,    .00057,    .00062,
     +     .36365,    .10933,   -.01472,    .00236,    .00000,
     +     .00000,    .00059,    .00064,
     +     .33688,    .10028,   -.01586,    .00221,   -.00039,
     +     .00000,    .00058,    .00069,
     +     .31881,    .09427,   -.01697,    .00208,   -.00032,
     +     .00000,    .00055,    .00068,
     +     .30090,    .08837,   -.01765,    .00195,   -.00025,
     +     .00000,    .00053,    .00063,
     +     .28631,    .08362,   -.01789,    .00181,   -.00021,
     +     .00000,    .00052,    .00061,
     +     .27309,    .07933,   -.01788,    .00168,   -.00017,
     +     .00000,    .00050,    .00058,
     +     .25978,    .07505,   -.01768,    .00155,   -.00014,
     +     .00000,    .00050,    .00055 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .24868,    .07154,   -.01736,    .00151,   -.00012,
     +     .00000,    .00049,    .00051,
     +     .23847,    .06833,   -.01696,    .00145,   -.00010,
     +     .00000,    .00048,    .00048,
     +     .23071,    .06590,   -.01661,    .00140,   -.00009,
     +     .00000,    .00046,    .00048,
     +     .21513,    .06102,   -.01574,    .00128,   -.00007,
     +     .00000,    .00042,    .00045,
     +     .20277,    .05717,   -.01491,    .00117,   -.00005,
     +    -.00008,    .00038,    .00042,
     +     .18981,    .05320,   -.01412,    .00108,   -.00004,
     +    -.00007,    .00037,    .00035,
     +     .17723,    .04940,   -.01332,    .00102,   -.00002,
     +    -.00005,    .00039,    .00035,
     +     .16666,    .04622,   -.01249,    .00094,   -.00002,
     +    -.00005,    .00034,    .00033 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15670,    .04321,   -.01163,    .00086,   -.00001,
     +    -.00004,    .00030,    .00030,
     +     .14893,    .04089,   -.01097,    .00080,    .00000,
     +    -.00003,    .00028,    .00030,
     +     .14008,    .03828,   -.01019,    .00075,    .00000,
     +    -.00003,    .00025,    .00029,
     +     .13273,    .03612,   -.00949,    .00069,    .00000,
     +    -.00003,    .00024,    .00025,
     +     .12640,    .03428,   -.00889,    .00066,    .00001,
     +    -.00002,    .00023,    .00022,
     +     .11883,    .03207,   -.00817,    .00059,    .00001,
     +    -.00002,    .00022,    .00021,
     +     .11215,    .03013,   -.00753,    .00055,    .00001,
     +    -.00002,    .00021,    .00020,
     +     .10629,    .02844,   -.00699,    .00053,    .00002,
     +    -.00001,    .00020,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .10074,    .02686,   -.00643,    .00050,    .00002,
     +    -.00001,    .00018,    .00016,
     +     .09563,    .02541,   -.00594,    .00046,    .00002,
     +    -.00001,    .00016,    .00015,
     +     .09107,    .02411,   -.00553,    .00043,    .00002,
     +    -.00001,    .00015,    .00017,
     +     .08699,    .02296,   -.00514,    .00041,    .00002,
     +    -.00001,    .00014,    .00016,
     +     .08308,    .02186,   -.00478,    .00039,    .00002,
     +    -.00001,    .00014,    .00015,
     +     .07943,    .02084,   -.00445,    .00037,    .00002,
     +    -.00001,    .00013,    .00013,
     +     .07615,    .01991,   -.00414,    .00033,    .00002,
     +    -.00001,    .00012,    .00012,
     +     .07315,    .01908,   -.00387,    .00032,    .00002,
     +    -.00001,    .00012,    .00011 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .07026,    .01828,   -.00362,    .00031,    .00002,
     +    -.00001,    .00011,    .00011,
     +     .06751,    .01753,   -.00338,    .00029,    .00002,
     +    -.00001,    .00011,    .00010,
     +     .06501,    .01684,   -.00318,    .00028,    .00003,
     +     .00000,    .00010,    .00010,
     +     .06272,    .01622,   -.00300,    .00027,    .00003,
     +     .00000,    .00010,    .00010,
     +     .06050,    .01561,   -.00281,    .00026,    .00003,
     +     .00000,    .00010,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .34433,    .10009,   -.03319,    .00163,    .00000,
     +     .00000,    .00043,    .00041,
     +     .32557,    .09401,   -.03250,    .00151,    .00000,
     +     .00000,    .00044,    .00043,
     +     .29989,    .08579,   -.03068,    .00136,   -.00027,
     +     .00000,    .00042,    .00045,
     +     .28260,    .08034,   -.02978,    .00129,   -.00022,
     +     .00000,    .00043,    .00042,
     +     .26556,    .07503,   -.02867,    .00125,   -.00017,
     +     .00000,    .00040,    .00041,
     +     .25182,    .07076,   -.02752,    .00116,   -.00015,
     +     .00000,    .00040,    .00036,
     +     .23931,    .06689,   -.02635,    .00110,   -.00012,
     +     .00000,    .00039,    .00037,
     +     .22680,    .06305,   -.02507,    .00104,   -.00010,
     +     .00000,    .00038,    .00037 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .21650,    .05995,   -.02394,    .00098,   -.00009,
     +     .00000,    .00037,    .00035,
     +     .20707,    .05710,   -.02282,    .00093,   -.00008,
     +     .00000,    .00035,    .00033,
     +     .19994,    .05495,   -.02195,    .00089,   -.00007,
     +     .00000,    .00034,    .00030,
     +     .18553,    .05065,   -.02010,    .00081,   -.00005,
     +     .00000,    .00030,    .00030,
     +     .17414,    .04729,   -.01862,    .00074,   -.00004,
     +    -.00005,    .00029,    .00027,
     +     .16238,    .04383,   -.01721,    .00066,   -.00003,
     +    -.00004,    .00028,    .00024,
     +     .15104,    .04052,   -.01577,    .00059,   -.00003,
     +    -.00004,    .00025,    .00023,
     +     .14148,    .03773,   -.01452,    .00054,   -.00002,
     +    -.00003,    .00022,    .00024 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13249,    .03518,   -.01334,    .00050,   -.00002,
     +    -.00003,    .00021,    .00022,
     +     .12552,    .03322,   -.01239,    .00048,   -.00001,
     +    -.00002,    .00019,    .00019,
     +     .11767,    .03098,   -.01136,    .00044,   -.00001,
     +    -.00002,    .00019,    .00017,
     +     .11115,    .02913,   -.01048,    .00041,   -.00001,
     +    -.00002,    .00018,    .00016,
     +     .10553,    .02754,   -.00975,    .00038,    .00000,
     +    -.00001,    .00017,    .00016,
     +     .09884,    .02569,   -.00885,    .00035,    .00000,
     +    -.00001,    .00015,    .00014,
     +     .09297,    .02407,   -.00810,    .00034,    .00000,
     +    -.00001,    .00014,    .00013,
     +     .08784,    .02266,   -.00743,    .00031,    .00000,
     +    -.00001,    .00013,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08300,    .02132,   -.00682,    .00030,    .00000,
     +    -.00001,    .00012,    .00012,
     +     .07857,    .02012,   -.00626,    .00028,    .00000,
     +    -.00001,    .00012,    .00010,
     +     .07465,    .01904,   -.00579,    .00025,    .00000,
     +    -.00001,    .00011,    .00009,
     +     .07113,    .01809,   -.00536,    .00022,    .00000,
     +    -.00001,    .00011,    .00008,
     +     .06778,    .01718,   -.00497,    .00021,    .00000,
     +    -.00001,    .00010,    .00008,
     +     .06462,    .01634,   -.00461,    .00020,    .00001,
     +     .00000,    .00009,    .00008,
     +     .06177,    .01559,   -.00429,    .00021,    .00001,
     +     .00000,    .00009,    .00008,
     +     .05921,    .01490,   -.00400,    .00019,    .00001,
     +     .00000,    .00008,    .00008 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05678,    .01424,   -.00375,    .00018,    .00001,
     +     .00000,    .00008,    .00008,
     +     .05448,    .01362,   -.00350,    .00017,    .00001,
     +     .00000,    .00008,    .00007,
     +     .05234,    .01307,   -.00328,    .00016,    .00001,
     +     .00000,    .00007,    .00007,
     +     .05042,    .01256,   -.00307,    .00016,    .00001,
     +     .00000,    .00007,    .00006,
     +     .04854,    .01207,   -.00289,    .00015,    .00001,
     +     .00000,    .00007,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .30638,    .08583,   -.04789,    .00127,    .00000,
     +     .00000,    .00020,    .00018,
     +     .28845,    .08032,   -.04516,    .00120,    .00000,
     +     .00000,    .00020,    .00017,
     +     .26407,    .07288,   -.04096,    .00109,   -.00018,
     +     .00000,    .00020,    .00016,
     +     .24786,    .06795,   -.03847,    .00101,   -.00015,
     +     .00000,    .00019,    .00017,
     +     .23197,    .06316,   -.03589,    .00091,   -.00012,
     +     .00000,    .00020,    .00019,
     +     .21914,    .05938,   -.03378,    .00087,   -.00010,
     +     .00000,    .00022,    .00017,
     +     .20759,    .05597,   -.03172,    .00080,   -.00009,
     +     .00000,    .00019,    .00017,
     +     .19607,    .05258,   -.02961,    .00073,   -.00007,
     +     .00000,    .00017,    .00017 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .18657,    .04983,   -.02787,    .00071,   -.00006,
     +     .00000,    .00019,    .00014,
     +     .17793,    .04733,   -.02625,    .00066,   -.00006,
     +     .00000,    .00018,    .00013,
     +     .17141,    .04543,   -.02500,    .00061,   -.00005,
     +     .00000,    .00017,    .00014,
     +     .15833,    .04169,   -.02255,    .00057,   -.00004,
     +     .00000,    .00016,    .00014,
     +     .14802,    .03878,   -.02065,    .00053,   -.00003,
     +    -.00003,    .00016,    .00014,
     +     .13739,    .03578,   -.01876,    .00048,   -.00003,
     +    -.00003,    .00013,    .00014,
     +     .12725,    .03296,   -.01695,    .00043,   -.00002,
     +    -.00002,    .00011,    .00012,
     +     .11876,    .03060,   -.01544,    .00040,   -.00002,
     +    -.00002,    .00012,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .11080,    .02840,   -.01403,    .00037,   -.00002,
     +    -.00002,    .00011,    .00009,
     +     .10467,    .02673,   -.01297,    .00035,   -.00001,
     +    -.00001,    .00010,    .00009,
     +     .09774,    .02484,   -.01176,    .00031,   -.00001,
     +    -.00001,    .00009,    .00007,
     +     .09203,    .02329,   -.01078,    .00030,   -.00001,
     +    -.00001,    .00009,    .00006,
     +     .08713,    .02197,   -.00995,    .00029,   -.00001,
     +    -.00001,    .00007,    .00005,
     +     .08134,    .02041,   -.00900,    .00024,   -.00001,
     +    -.00001,    .00008,    .00007,
     +     .07624,    .01907,   -.00818,    .00023,   -.00001,
     +    -.00001,    .00007,    .00005,
     +     .07179,    .01788,   -.00746,    .00023,   -.00001,
     +    -.00001,    .00005,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06766,    .01679,   -.00683,    .00021,   -.00001,
     +    -.00001,    .00005,    .00006,
     +     .06387,    .01579,   -.00626,    .00020,    .00000,
     +     .00000,    .00006,    .00006,
     +     .06051,    .01491,   -.00574,    .00017,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05749,    .01413,   -.00531,    .00017,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05462,    .01338,   -.00491,    .00017,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05198,    .01270,   -.00454,    .00014,    .00000,
     +     .00000,    .00004,    .00005,
     +     .04961,    .01209,   -.00421,    .00013,    .00000,
     +     .00000,    .00004,    .00003,
     +     .04745,    .01152,   -.00391,    .00011,    .00000,
     +     .00000,    .00004,    .00003 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04537,    .01100,   -.00366,    .00012,    .00000,
     +     .00000,    .00005,    .00003,
     +     .04343,    .01050,   -.00340,    .00012,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04167,    .01005,   -.00319,    .00010,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04008,    .00964,   -.00299,    .00010,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03851,    .00925,   -.00281,    .00009,    .00000,
     +     .00000,    .00003,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .26857,    .07200,   -.05627,    .00063,    .00000,
     +     .00000,    .00022,    .00018,
     +     .25174,    .06709,   -.05215,    .00063,    .00000,
     +     .00000,    .00022,    .00017,
     +     .22908,    .06056,   -.04641,    .00060,   -.00011,
     +     .00000,    .00021,    .00014,
     +     .21411,    .05625,   -.04288,    .00056,   -.00009,
     +     .00000,    .00021,    .00014,
     +     .19952,    .05208,   -.03940,    .00052,   -.00008,
     +     .00000,    .00020,    .00015,
     +     .18783,    .04877,   -.03651,    .00043,   -.00007,
     +     .00000,    .00018,    .00015,
     +     .17726,    .04581,   -.03390,    .00043,   -.00006,
     +     .00000,    .00016,    .00013,
     +     .16674,    .04291,   -.03132,    .00042,   -.00005,
     +     .00000,    .00015,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .15819,    .04055,   -.02923,    .00039,   -.00004,
     +     .00000,    .00014,    .00011,
     +     .15040,    .03840,   -.02729,    .00036,   -.00004,
     +     .00000,    .00013,    .00011,
     +     .14453,    .03679,   -.02586,    .00034,   -.00003,
     +     .00000,    .00013,    .00011,
     +     .13287,    .03361,   -.02302,    .00031,   -.00003,
     +     .00000,    .00012,    .00009,
     +     .12374,    .03114,   -.02091,    .00028,   -.00002,
     +    -.00002,    .00011,    .00009,
     +     .11438,    .02860,   -.01877,    .00024,   -.00002,
     +    -.00002,    .00009,    .00008,
     +     .10543,    .02624,   -.01681,    .00021,   -.00002,
     +    -.00002,    .00009,    .00008,
     +     .09795,    .02426,   -.01520,    .00022,   -.00001,
     +    -.00001,    .00008,    .00007 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09106,    .02243,   -.01370,    .00020,   -.00001,
     +    -.00001,    .00008,    .00005,
     +     .08574,    .02104,   -.01258,    .00018,   -.00001,
     +    -.00001,    .00007,    .00006,
     +     .07975,    .01948,   -.01134,    .00018,   -.00001,
     +    -.00001,    .00006,    .00006,
     +     .07483,    .01821,   -.01034,    .00016,   -.00001,
     +    -.00001,    .00006,    .00005,
     +     .07063,    .01713,   -.00951,    .00015,   -.00001,
     +    -.00001,    .00006,    .00005,
     +     .06565,    .01586,   -.00854,    .00015,   -.00001,
     +    -.00001,    .00005,    .00005,
     +     .06134,    .01475,   -.00771,    .00014,    .00000,
     +     .00000,    .00005,    .00003,
     +     .05759,    .01380,   -.00702,    .00014,    .00000,
     +     .00000,    .00004,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05411,    .01291,   -.00639,    .00011,    .00000,
     +     .00000,    .00005,    .00003,
     +     .05093,    .01212,   -.00583,    .00010,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04810,    .01140,   -.00533,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04558,    .01077,   -.00492,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04322,    .01018,   -.00453,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04100,    .00963,   -.00417,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03902,    .00914,   -.00386,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03725,    .00870,   -.00360,    .00007,    .00000,
     +     .00000,    .00003,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03554,    .00829,   -.00334,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03394,    .00790,   -.00311,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03248,    .00753,   -.00290,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03116,    .00722,   -.00273,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02990,    .00690,   -.00255,    .00005,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .19750,    .04877,   -.06000,    .00030,    .00000,
     +     .00000,    .00005,    .00002,
     +     .18354,    .04507,   -.05451,    .00027,    .00000,
     +     .00000,    .00005,    .00004,
     +     .16487,    .04015,   -.04726,    .00026,   -.00004,
     +     .00000,    .00005,    .00004,
     +     .15271,    .03698,   -.04273,    .00021,   -.00003,
     +     .00000,    .00006,    .00004,
     +     .14100,    .03393,   -.03842,    .00015,   -.00003,
     +     .00000,    .00006,    .00004,
     +     .13166,    .03153,   -.03505,    .00016,   -.00002,
     +     .00000,    .00004,    .00002,
     +     .12335,    .02940,   -.03213,    .00016,   -.00002,
     +     .00000,    .00005,    .00005,
     +     .11519,    .02734,   -.02931,    .00015,   -.00002,
     +     .00000,    .00006,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .10857,    .02565,   -.02694,    .00012,   -.00002,
     +     .00000,    .00003,    .00003,
     +     .10258,    .02415,   -.02492,    .00012,   -.00001,
     +     .00000,    .00003,    .00003,
     +     .09808,    .02303,   -.02340,    .00013,   -.00001,
     +     .00000,    .00003,    .00001,
     +     .08923,    .02083,   -.02051,    .00013,   -.00001,
     +     .00000,    .00003,    .00002,
     +     .08238,    .01914,   -.01836,    .00011,   -.00001,
     +    -.00001,    .00002,    .00002,
     +     .07544,    .01743,   -.01628,    .00009,   -.00001,
     +    -.00001,    .00004,    .00002,
     +     .06892,    .01582,   -.01437,    .00008,   -.00001,
     +    -.00001,    .00004,    .00002,
     +     .06349,    .01451,   -.01282,    .00007,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05852,    .01332,   -.01144,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05474,    .01241,   -.01038,    .00005,    .00000,
     +     .00000,    .00003,    .00001,
     +     .05051,    .01139,   -.00927,    .00005,    .00000,
     +     .00000,    .00003,    .00001,
     +     .04706,    .01057,   -.00838,    .00005,    .00000,
     +     .00000,    .00003,    .00001,
     +     .04414,    .00989,   -.00764,    .00004,    .00000,
     +     .00000,    .00003,    .00001,
     +     .04072,    .00908,   -.00680,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03778,    .00839,   -.00609,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03522,    .00779,   -.00551,    .00004,    .00000,
     +     .00000,    .00003,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03285,    .00726,   -.00497,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03072,    .00675,   -.00450,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02884,    .00632,   -.00410,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02719,    .00593,   -.00376,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02563,    .00559,   -.00346,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02420,    .00525,   -.00317,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02291,    .00496,   -.00292,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02176,    .00470,   -.00271,    .00003,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .02067,    .00446,   -.00250,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01964,    .00423,   -.00231,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01872,    .00401,   -.00216,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01789,    .00383,   -.00201,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01709,    .00366,   -.00187,    .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=1,8)/
     +     .13492,    .03043,   -.05175,    .00009,    .00000,
     +     .00000,    .00000,    .00003,
     +     .12421,    .02786,   -.04638,    .00009,    .00000,
     +     .00000,    .00003,    .00001,
     +     .11004,    .02451,   -.03947,    .00010,   -.00001,
     +     .00000,    .00001,   -.00001,
     +     .10094,    .02236,   -.03524,    .00008,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .09229,    .02033,   -.03127,    .00007,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .08546,    .01875,   -.02824,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .07943,    .01735,   -.02558,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .07359,    .01598,   -.02303,    .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=9,16)/
     +     .06884,    .01490,   -.02107,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06460,    .01394,   -.01932,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06147,    .01323,   -.01804,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05532,    .01184,   -.01560,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05060,    .01078,   -.01383,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04587,    .00971,   -.01211,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04143,    .00874,   -.01056,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03786,    .00794,   -.00930,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03458,    .00722,   -.00822,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03210,    .00669,   -.00743,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02937,    .00608,   -.00656,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02715,    .00561,   -.00589,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02530,    .00520,   -.00533,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02313,    .00473,   -.00469,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02128,    .00434,   -.00418,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01971,    .00401,   -.00376,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01826,    .00369,   -.00337,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01695,    .00342,   -.00303,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01581,    .00318,   -.00274,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01481,    .00298,   -.00250,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01388,    .00279,   -.00227,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01302,    .00261,   -.00207,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01227,    .00244,   -.00190,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01158,    .00230,   -.00174,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .01094,    .00217,   -.00161,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01035,    .00205,   -.00149,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00982,    .00194,   -.00138,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00934,    .00184,   -.00129,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00888,    .00175,   -.00119,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .08382,    .01710,   -.03810,    .00007,    .00000,
     +     .00000,    .00000,    .00000,
     +     .07634,    .01551,   -.03374,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .06666,    .01344,   -.02828,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .06050,    .01213,   -.02495,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05468,    .01091,   -.02190,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05016,    .00996,   -.01955,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04622,    .00915,   -.01757,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04241,    .00835,   -.01569,    .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)/
     +     .03937,    .00773,   -.01423,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03667,    .00718,   -.01295,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03466,    .00677,   -.01201,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03081,    .00599,   -.01028,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02791,    .00539,   -.00902,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02501,    .00481,   -.00779,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02234,    .00427,   -.00671,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02021,    .00386,   -.00587,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01827,    .00346,   -.00513,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01683,    .00317,   -.00459,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01522,    .00286,   -.00402,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01397,    .00262,   -.00358,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01291,    .00241,   -.00322,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01169,    .00217,   -.00280,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01066,    .00197,   -.00248,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00979,    .00181,   -.00221,    .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)/
     +     .00900,    .00165,   -.00197,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00828,    .00152,   -.00175,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00767,    .00141,   -.00158,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00714,    .00130,   -.00144,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00665,    .00121,   -.00130,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00619,    .00113,   -.00117,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00579,    .00105,   -.00107,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00544,    .00099,   -.00098,    .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)/
     +     .00511,    .00092,   -.00089,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00481,    .00087,   -.00083,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00453,    .00082,   -.00076,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00429,    .00077,   -.00070,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00406,    .00073,   -.00065,    .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)/
     +     .04540,    .00816,   -.02357,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04087,    .00730,   -.02065,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03507,    .00625,   -.01708,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03144,    .00559,   -.01491,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02807,    .00497,   -.01293,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02546,    .00449,   -.01144,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02322,    .00409,   -.01019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02106,    .00369,   -.00899,    .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)/
     +     .01937,    .00337,   -.00807,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01789,    .00313,   -.00732,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01681,    .00291,   -.00673,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01474,    .00255,   -.00569,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01316,    .00226,   -.00492,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01164,    .00201,   -.00422,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01027,    .00176,   -.00360,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00916,    .00156,   -.00310,    .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)/
     +     .00819,    .00139,   -.00268,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00747,    .00127,   -.00238,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00669,    .00112,   -.00206,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00606,    .00102,   -.00181,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00555,    .00093,   -.00161,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00497,    .00083,   -.00139,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00448,    .00075,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00408,    .00067,   -.00108,    .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)/
     +     .00371,    .00061,   -.00095,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00338,    .00055,   -.00083,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00310,    .00051,   -.00074,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00287,    .00048,   -.00068,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00265,    .00043,   -.00060,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00245,    .00040,   -.00054,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00227,    .00038,   -.00049,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00035,   -.00045,    .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)/
     +     .00198,    .00032,   -.00041,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00184,    .00029,   -.00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00173,    .00028,   -.00034,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00162,    .00027,   -.00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00154,    .00024,   -.00029,    .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)/
     +     .00603,    .00081,   -.00401,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00523,    .00071,   -.00340,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00426,    .00057,   -.00267,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00369,    .00048,   -.00226,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00316,    .00042,   -.00189,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00278,    .00037,   -.00163,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00246,    .00032,   -.00141,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00217,    .00029,   -.00122,    .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)/
     +     .00195,    .00026,   -.00108,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00175,    .00022,   -.00094,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00161,    .00022,   -.00086,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00135,    .00017,   -.00069,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00117,    .00015,   -.00058,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00099,    .00013,   -.00048,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00083,    .00011,   -.00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00073,    .00009,   -.00033,    .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)/
     +     .00062,    .00009,   -.00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00055,    .00007,   -.00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00007,   -.00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00038,    .00005,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00033,    .00005,   -.00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00028,    .00003,   -.00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00003,   -.00009,    .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)/
     +     .00022,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00003,   -.00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00003,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00003,    .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)/
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,   -.00002,    .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='ft24d.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