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

sfmrs_98lo4.F

#include "pdf/pilot.h"
      subroutine sfmrs_98lo4(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)/
     +     .01652,    .00676,   3.98484,    .93109,    .00000,
     +     .00000,    .48342,    .94700,
     +     .01668,    .00680,   6.68919,    .94013,    .00000,
     +     .00000,    .49546,    .95598,
     +     .01691,    .00685,  11.60333,    .96948,    .02665,
     +     .00000,    .52926,    .98525,
     +     .01709,    .00689,  15.59962,   1.01229,    .06303,
     +     .00000,    .57531,   1.02799,
     +     .01727,    .00693,  20.91389,   1.06656,    .13476,
     +     .00000,    .63298,   1.08218,
     +     .01743,    .00697,  26.00457,   1.12936,    .19890,
     +     .00000,    .69872,   1.14492,
     +     .01759,    .00701,  31.58823,   1.20092,    .27694,
     +     .00000,    .77307,   1.21641,
     +     .01776,    .00706,  38.11628,   1.29258,    .37269,
     +     .00000,    .86768,   1.30799 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .01790,    .00709,  44.40437,   1.38500,    .47078,
     +     .00000,    .96266,   1.40035,
     +     .01804,    .00713,  50.94486,   1.48761,    .57645,
     +     .00000,   1.06773,   1.50290,
     +     .01815,    .00716,  56.70540,   1.57570,    .67465,
     +     .00000,   1.15774,   1.59093,
     +     .01840,    .00723,  69.55647,   1.79803,    .90303,
     +     .01230,   1.38417,   1.81314,
     +     .01860,    .00730,  81.80496,   2.02168,   1.13484,
     +     .27544,   1.61132,   2.03668,
     +     .01884,    .00737,  97.00859,   2.30982,   1.43873,
     +     .65430,   1.90333,   2.32470,
     +     .01909,    .00745, 114.42801,   2.65771,   1.80268,
     +    1.03083,   2.25520,   2.67246,
     +     .01931,    .00752, 131.44508,   3.01593,   2.17200,
     +    1.40709,   2.61698,   3.03055 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .01954,    .00760, 150.23351,   3.42203,   2.59614,
     +    1.85224,   3.02663,   3.43653,
     +     .01973,    .00766, 166.86644,   3.79494,   2.98352,
     +    2.25208,   3.40244,   3.80933,
     +     .01996,    .00774, 188.23845,   4.29058,   3.49635,
     +    2.77977,   3.90157,   4.30484,
     +     .02017,    .00782, 208.67317,   4.77519,   4.00244,
     +    3.30736,   4.38922,   4.78934,
     +     .02036,    .00789, 227.91423,   5.25036,   4.48985,
     +    3.80259,   4.86715,   5.26439,
     +     .02060,    .00798, 254.11282,   5.90971,   5.17256,
     +    4.50617,   5.52996,   5.92361,
     +     .02083,    .00807, 280.02881,   6.58271,   5.86643,
     +    5.21726,   6.20617,   6.59648,
     +     .02105,    .00815, 305.39871,   7.25967,   6.56260,
     +    5.92909,   6.88609,   7.27331 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .02127,    .00824, 332.24683,   7.99087,   7.31700,
     +    6.70368,   7.62021,   8.00439,
     +     .02149,    .00833, 359.12375,   8.74424,   8.08832,
     +    7.48890,   8.37641,   8.75763,
     +     .02169,    .00841, 386.15036,   9.51348,   8.88067,
     +    8.30154,   9.14830,   9.52676,
     +     .02189,    .00849, 411.80179,  10.26337,   9.64630,
     +    9.07918,   9.90065,  10.27654,
     +     .02208,    .00857, 439.07281,  11.07076,  10.47534,
     +    9.92693,  10.71050,  11.08382,
     +     .02228,    .00866, 466.10730,  11.88985,  11.31124,
     +   10.77619,  11.53197,  11.90280,
     +     .02246,    .00873, 493.00089,  12.71570,  12.15655,
     +   11.63806,  12.36006,  12.72855,
     +     .02264,    .00881, 518.81348,  13.52263,  12.98022,
     +   12.47562,  13.16909,  13.53538 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .02282,    .00889, 545.54224,  14.37063,  13.84546,
     +   13.35518,  14.01920,  14.38329,
     +     .02300,    .00897, 572.80615,  15.24685,  14.74061,
     +   14.26667,  14.89746,  15.25940,
     +     .02317,    .00905, 598.85217,  16.09878,  15.60750,
     +   15.14580,  15.75134,  16.11124,
     +     .02333,    .00912, 624.52399,  16.94697,  16.47251,
     +   16.02530,  16.60135,  16.95935,
     +     .02350,    .00919, 650.74725,  17.82560,  17.36709,
     +   16.93348,  17.48181,  17.83789 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .02018,    .00826,   4.02821,    .80420,    .00000,
     +     .00000,    .41605,    .81348,
     +     .02038,    .00831,   6.43326,    .81520,    .00000,
     +     .00000,    .42950,    .82444,
     +     .02067,    .00840,  10.65632,    .84454,    .02427,
     +     .00000,    .46247,    .85371,
     +     .02089,    .00847,  14.00665,    .88295,    .05695,
     +     .00000,    .50354,    .89208,
     +     .02113,    .00854,  18.36899,    .93089,    .12053,
     +     .00000,    .55424,    .93996,
     +     .02133,    .00861,  22.48380,    .98493,    .17589,
     +     .00000,    .61067,    .99395,
     +     .02153,    .00867,  26.93442,   1.04570,    .24238,
     +     .00000,    .67373,   1.05468,
     +     .02174,    .00874,  32.07341,   1.12251,    .32282,
     +     .00000,    .75293,   1.13144 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .02193,    .00880,  36.96647,   1.19916,    .40428,
     +     .00000,    .83167,   1.20804,
     +     .02211,    .00886,  42.00644,   1.28346,    .49108,
     +     .00000,    .91796,   1.29229,
     +     .02225,    .00891,  46.40743,   1.35548,    .57116,
     +     .00000,    .99155,   1.36428,
     +     .02256,    .00902,  56.10998,   1.53498,    .75505,
     +     .01020,   1.17438,   1.54370,
     +     .02283,    .00911,  65.22620,   1.71347,    .93927,
     +     .21775,   1.35571,   1.72212,
     +     .02313,    .00922,  76.39746,   1.94100,   1.17789,
     +     .51464,   1.58638,   1.94957,
     +     .02344,    .00934,  89.03473,   2.21250,   1.46009,
     +     .80481,   1.86110,   2.22098,
     +     .02374,    .00945, 101.23084,   2.48890,   1.74308,
     +    1.09133,   2.14039,   2.49730 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .02403,    .00957, 114.55248,   2.79920,   2.06482,
     +    1.42715,   2.45357,   2.80752,
     +     .02428,    .00966, 126.23121,   3.08155,   2.35595,
     +    1.72590,   2.73827,   3.08980,
     +     .02458,    .00978, 141.09479,   3.45349,   2.73791,
     +    2.11663,   3.11303,   3.46166,
     +     .02484,    .00989, 155.17807,   3.81402,   3.11168,
     +    2.50427,   3.47602,   3.82212,
     +     .02509,    .00999, 168.32095,   4.16465,   3.46863,
     +    2.86478,   3.82888,   4.17268,
     +     .02540,    .01012, 186.06918,   4.64733,   3.96484,
     +    3.37350,   4.31435,   4.65526,
     +     .02570,    .01025, 203.46317,   5.13570,   4.46482,
     +    3.88321,   4.80531,   5.14355,
     +     .02598,    .01037, 220.34584,   5.62305,   4.96255,
     +    4.38954,   5.29505,   5.63082 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .02627,    .01049, 238.07828,   6.14561,   5.49819,
     +    4.93694,   5.81997,   6.15330,
     +     .02654,    .01062, 255.68257,   6.68002,   6.04174,
     +    5.48752,   6.35667,   6.68764,
     +     .02681,    .01074, 273.27155,   7.22217,   6.59681,
     +    6.05436,   6.90095,   7.22972,
     +     .02706,    .01085, 289.83783,   7.74720,   7.12951,
     +    6.59282,   7.42797,   7.75468,
     +     .02732,    .01096, 307.35416,   8.30934,   7.70343,
     +    7.17726,   7.99208,   8.31674,
     +     .02757,    .01108, 324.59506,   8.87613,   8.27848,
     +    7.75890,   8.56079,   8.88347,
     +     .02781,    .01119, 341.65674,   9.44460,   8.85722,
     +    8.34661,   9.13107,   9.45188,
     +     .02804,    .01130, 357.93420,   9.99713,   9.41817,
     +    8.91467,   9.68529,  10.00435 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .02827,    .01141, 374.70135,  10.57496,  10.00466,
     +    9.50850,  10.26481,  10.58212,
     +     .02850,    .01151, 391.72107,  11.16922,  10.60878,
     +   10.12137,  10.86072,  11.17632,
     +     .02872,    .01162, 407.88428,  11.74415,  11.19086,
     +   10.70934,  11.43721,  11.75119,
     +     .02893,    .01172, 423.75308,  12.31427,  11.76957,
     +   11.29565,  12.00881,  12.32127,
     +     .02915,    .01182, 439.88132,  12.90229,  12.36547,
     +   11.89843,  12.59830,  12.90923 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .02465,    .01009,   4.07075,    .69389,    .00000,
     +     .00000,    .35812,    .69848,
     +     .02490,    .01018,   6.18574,    .70614,    .00000,
     +     .00000,    .37237,    .71070,
     +     .02527,    .01032,   9.78440,    .73492,    .02210,
     +     .00000,    .40412,    .73944,
     +     .02555,    .01042,  12.57318,    .76934,    .05143,
     +     .00000,    .44070,    .77382,
     +     .02585,    .01053,  16.12924,    .81164,    .10775,
     +     .00000,    .48526,    .81608,
     +     .02611,    .01063,  19.43373,    .85809,    .15546,
     +     .00000,    .53366,    .86250,
     +     .02636,    .01072,  22.95862,    .90965,    .21202,
     +     .00000,    .58707,    .91403,
     +     .02662,    .01083,  26.97891,    .97388,    .27947,
     +     .00000,    .65326,    .97823 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .02686,    .01092,  30.76279,   1.03730,    .34698,
     +     .00000,    .71837,   1.04161,
     +     .02709,    .01101,  34.62252,   1.10633,    .41813,
     +     .00000,    .78903,   1.11062,
     +     .02727,    .01109,  37.96395,   1.16504,    .48327,
     +     .00000,    .84901,   1.16930,
     +     .02766,    .01125,  45.24296,   1.30938,    .63096,
     +     .00846,    .99606,   1.31359,
     +     .02801,    .01139,  51.98321,   1.45121,    .77696,
     +     .17202,   1.14019,   1.45537,
     +     .02839,    .01155,  60.13620,   1.63003,    .96379,
     +     .40454,   1.32155,   1.63414,
     +     .02880,    .01173,  69.24136,   1.84082,   1.18192,
     +     .62793,   1.53495,   1.84488,
     +     .02917,    .01189,  77.92046,   2.05293,   1.39804,
     +     .84586,   1.74940,   2.05694 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .02955,    .01205,  87.29803,   2.28871,   1.64126,
     +    1.09888,   1.98751,   2.29267,
     +     .02987,    .01219,  95.43783,   2.50126,   1.85928,
     +    1.32175,   2.20196,   2.50517,
     +     .03025,    .01237, 105.69693,   2.77872,   2.14270,
     +    1.61059,   2.48170,   2.78259,
     +     .03060,    .01252, 115.32845,   3.04534,   2.41768,
     +    1.89487,   2.75031,   3.04917,
     +     .03092,    .01267, 124.23454,   3.30249,   2.67804,
     +    2.15674,   3.00925,   3.30627,
     +     .03132,    .01285, 136.16118,   3.65364,   3.03721,
     +    2.52376,   3.36266,   3.65737,
     +     .03171,    .01303, 147.73871,   4.00580,   3.39595,
     +    2.88823,   3.71691,   4.00948,
     +     .03207,    .01320, 158.87772,   4.35441,   3.75023,
     +    3.24741,   4.06744,   4.35805 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .03243,    .01338, 170.48805,   4.72546,   4.12884,
     +    3.63320,   4.44040,   4.72905,
     +     .03279,    .01355, 181.91531,   5.10207,   4.51009,
     +    4.01808,   4.81884,   5.10562,
     +     .03313,    .01371, 193.25867,   5.48165,   4.89712,
     +    4.41225,   5.20015,   5.48517,
     +     .03346,    .01387, 203.85648,   5.84678,   5.26593,
     +    4.78383,   5.56688,   5.85026,
     +     .03379,    .01403, 215.00099,   6.23553,   5.66128,
     +    5.18539,   5.95721,   6.23896,
     +     .03411,    .01419, 225.88818,   6.62505,   6.05485,
     +    5.58228,   6.34828,   6.62845,
     +     .03442,    .01434, 236.60533,   7.01369,   6.44904,
     +    5.98157,   6.73837,   7.01706,
     +     .03472,    .01449, 246.76529,   7.38939,   6.82904,
     +    6.36535,   7.11543,   7.39272 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .03502,    .01464, 257.17444,   7.78036,   7.22445,
     +    6.76468,   7.50776,   7.78367,
     +     .03531,    .01479, 267.68829,   8.18056,   7.62994,
     +    7.17510,   7.90928,   8.18383,
     +     .03560,    .01493, 277.60977,   8.56579,   8.01858,
     +    7.56664,   8.29576,   8.56903,
     +     .03587,    .01507, 287.31226,   8.94626,   8.40358,
     +    7.95582,   8.67742,   8.94947,
     +     .03615,    .01521, 297.12128,   9.33693,   8.79824,
     +    8.35411,   9.06927,   9.34012 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .02772,    .01136,   4.09477,    .63615,    .00000,
     +     .00000,    .32808,    .63878,
     +     .02800,    .01147,   6.04424,    .64886,    .00000,
     +     .00000,    .34257,    .65146,
     +     .02843,    .01164,   9.30605,    .67712,    .02091,
     +     .00000,    .37347,    .67968,
     +     .02875,    .01177,  11.80117,    .70936,    .04842,
     +     .00000,    .40763,    .71190,
     +     .02909,    .01191,  14.94439,    .74864,    .10087,
     +     .00000,    .44893,    .75115,
     +     .02938,    .01203,  17.84056,    .79114,    .14456,
     +     .00000,    .49315,    .79362,
     +     .02967,    .01216,  20.90502,    .83793,    .19596,
     +     .00000,    .54159,    .84039,
     +     .02998,    .01229,  24.37538,    .89572,    .25675,
     +     .00000,    .60112,    .89816 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .03025,    .01240,  27.61966,    .95241,    .31716,
     +     .00000,    .65930,    .95482,
     +     .03051,    .01252,  30.91022,   1.01372,    .38041,
     +     .00000,    .72205,   1.01611,
     +     .03072,    .01261,  33.74450,   1.06572,    .43807,
     +     .00000,    .77518,   1.06809,
     +     .03118,    .01281,  39.87519,   1.19250,    .56779,
     +     .00758,    .90436,   1.19484,
     +     .03157,    .01299,  45.50309,   1.31618,    .69502,
     +     .14979,   1.03008,   1.31848,
     +     .03202,    .01319,  52.25834,   1.47109,    .85666,
     +     .35121,   1.18724,   1.47335,
     +     .03249,    .01340,  59.74548,   1.65236,   1.04395,
     +     .54279,   1.37083,   1.65458,
     +     .03292,    .01360,  66.82995,   1.83350,   1.22820,
     +     .72833,   1.55403,   1.83569 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .03336,    .01380,  74.43537,   2.03367,   1.43429,
     +     .94254,   1.75625,   2.03582,
     +     .03372,    .01398,  80.99800,   2.21312,   1.61800,
     +    1.13012,   1.93739,   2.21524,
     +     .03417,    .01419,  89.22139,   2.44611,   1.85552,
     +    1.37190,   2.17239,   2.44820,
     +     .03457,    .01438,  96.89981,   2.66885,   2.08481,
     +    1.60874,   2.39689,   2.67091,
     +     .03494,    .01456, 103.96050,   2.88261,   2.30080,
     +    1.82567,   2.61224,   2.88464,
     +     .03541,    .01479, 113.36917,   3.17313,   2.59740,
     +    2.12846,   2.90475,   3.17513,
     +     .03585,    .01500, 122.45020,   3.46297,   2.89210,
     +    2.42756,   3.19644,   3.46494,
     +     .03627,    .01521, 131.14139,   3.74852,   3.18177,
     +    2.72092,   3.48368,   3.75046 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .03670,    .01542, 140.15895,   4.05114,   3.49005,
     +    3.03478,   3.78798,   4.05305,
     +     .03711,    .01563, 148.98785,   4.35691,   3.79904,
     +    3.34638,   4.09537,   4.35880,
     +     .03751,    .01583, 157.71838,   4.66393,   4.11163,
     +    3.66450,   4.40391,   4.66579,
     +     .03789,    .01602, 165.83470,   4.95807,   4.40824,
     +    3.96301,   4.69945,   4.95991,
     +     .03826,    .01621, 174.34233,   5.27020,   4.72525,
     +    4.28479,   5.01299,   5.27202,
     +     .03864,    .01641, 182.61520,   5.58180,   5.03961,
     +    4.60149,   5.32595,   5.58360,
     +     .03900,    .01659, 190.73335,   5.89174,   5.35357,
     +    4.91928,   5.63716,   5.89351,
     +     .03934,    .01677, 198.39970,   6.19038,   5.65524,
     +    5.22372,   5.93701,   6.19214 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .03969,    .01695, 206.22839,   6.50027,   5.96825,
     +    5.53959,   6.24809,   6.50201,
     +     .04003,    .01712, 214.11224,   6.81659,   6.28841,
     +    5.86344,   6.56558,   6.81831,
     +     .04036,    .01730, 221.52281,   7.12015,   6.59427,
     +    6.17134,   6.87024,   7.12185,
     +     .04068,    .01746, 228.75302,   7.41926,   6.89664,
     +    6.47681,   7.17039,   7.42094,
     +     .04100,    .01763, 236.03862,   7.72557,   7.20575,
     +    6.78857,   7.47774,   7.72724 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .03013,    .01236,   4.11114,    .59795,    .00000,
     +     .00000,    .30834,    .59950,
     +     .03044,    .01249,   5.94504,    .61088,    .00000,
     +     .00000,    .32291,    .61241,
     +     .03091,    .01269,   8.97974,    .63869,    .02010,
     +     .00000,    .35315,    .64019,
     +     .03126,    .01284,  11.28070,    .66945,    .04638,
     +     .00000,    .38568,    .67093,
     +     .03163,    .01300,  14.15460,    .70672,    .09622,
     +     .00000,    .42480,    .70817,
     +     .03196,    .01315,  16.78705,    .74659,    .13725,
     +     .00000,    .46626,    .74803,
     +     .03228,    .01329,  19.55661,    .79025,    .18525,
     +     .00000,    .51143,    .79167,
     +     .03262,    .01344,  22.67729,    .84383,    .24167,
     +     .00000,    .56661,    .84523 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .03292,    .01358,  25.58073,    .89614,    .29747,
     +     .00000,    .62029,    .89751,
     +     .03321,    .01371,  28.51373,    .95245,    .35561,
     +     .00000,    .67793,    .95381,
     +     .03344,    .01382,  31.03095,   1.00012,    .40845,
     +     .00000,    .72663,   1.00146,
     +     .03394,    .01405,  36.44825,   1.11563,    .52667,
     +     .00701,    .84434,   1.11694,
     +     .03438,    .01426,  41.39034,   1.22771,    .64196,
     +     .13573,    .95830,   1.22899,
     +     .03487,    .01449,  47.28973,   1.36743,    .78769,
     +     .31758,   1.10009,   1.36868,
     +     .03539,    .01474,  53.79296,   1.53006,    .95563,
     +     .48928,   1.26485,   1.53129,
     +     .03587,    .01497,  59.91392,   1.69176,   1.11998,
     +     .65473,   1.42844,   1.69296 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .03636,    .01521,  66.45472,   1.86969,   1.30303,
     +     .84497,   1.60825,   1.87086,
     +     .03676,    .01540,  72.07478,   2.02856,   1.46554,
     +    1.01086,   1.76867,   2.02972,
     +     .03726,    .01565,  79.08759,   2.23405,   1.67484,
     +    1.22383,   1.97600,   2.23518,
     +     .03770,    .01587,  85.61015,   2.42977,   1.87615,
     +    1.43177,   2.17334,   2.43089,
     +     .03811,    .01607,  91.58384,   2.61693,   2.06509,
     +    1.62142,   2.36195,   2.61802,
     +     .03863,    .01634,  99.51576,   2.87045,   2.32370,
     +    1.88537,   2.61729,   2.87152,
     +     .03912,    .01659, 107.13982,   3.12242,   2.57970,
     +    2.14511,   2.87096,   3.12347,
     +     .03959,    .01683, 114.40870,   3.36982,   2.83047,
     +    2.39900,   3.11991,   3.37085 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .04006,    .01707, 121.92589,   3.63119,   3.09656,
     +    2.66987,   3.38282,   3.63220,
     +     .04052,    .01730, 129.25760,   3.89444,   3.36238,
     +    2.93783,   3.64755,   3.89544,
     +     .04096,    .01753, 136.48776,   4.15805,   3.63061,
     +    3.21080,   3.91254,   4.15903,
     +     .04138,    .01775, 143.18466,   4.40986,   3.88436,
     +    3.46608,   4.16565,   4.41083,
     +     .04180,    .01797, 150.18846,   4.67646,   4.15499,
     +    3.74075,   4.43353,   4.67741,
     +     .04222,    .01819, 156.97581,   4.94189,   4.42261,
     +    4.01028,   4.70020,   4.94283,
     +     .04262,    .01840, 163.62131,   5.20532,   4.68933,
     +    4.28024,   4.96480,   5.20625,
     +     .04300,    .01860, 169.87910,   5.45857,   4.94502,
     +    4.53821,   5.21914,   5.45948 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .04338,    .01880, 176.25406,   5.72080,   5.20978,
     +    4.80535,   5.48247,   5.72171,
     +     .04376,    .01901, 182.66040,   5.98794,   5.48006,
     +    5.07874,   5.75068,   5.98884,
     +     .04413,    .01920, 188.66431,   6.24375,   5.73769,
     +    5.33803,   6.00750,   6.24463,
     +     .04448,    .01939, 194.51259,   6.49538,   5.99199,
     +    5.59491,   6.26008,   6.49626,
     +     .04483,    .01958, 200.39140,   6.75258,   6.25145,
     +    5.85657,   6.51824,   6.75345 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .03214,    .01319,   4.12328,    .56981,    .00000,
     +     .00000,    .29387,    .57070,
     +     .03248,    .01334,   5.86862,    .58285,    .00000,
     +     .00000,    .30846,    .58373,
     +     .03298,    .01357,   8.73364,    .61028,    .01949,
     +     .00000,    .33816,    .61112,
     +     .03336,    .01374,  10.89161,    .63993,    .04485,
     +     .00000,    .36947,    .64076,
     +     .03376,    .01393,  13.56912,    .67569,    .09274,
     +     .00000,    .40696,    .67649,
     +     .03411,    .01409,  16.01068,    .71363,    .13181,
     +     .00000,    .44640,    .71442,
     +     .03446,    .01425,  18.56808,    .75500,    .17730,
     +     .00000,    .48918,    .75577,
     +     .03482,    .01442,  21.43855,    .80550,    .23054,
     +     .00000,    .54118,    .80625 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .03515,    .01457,  24.09929,    .85462,    .28298,
     +     .00000,    .59158,    .85535,
     +     .03546,    .01472,  26.77872,    .90731,    .33741,
     +     .00000,    .64552,    .90803,
     +     .03571,    .01484,  29.07186,    .95183,    .38677,
     +     .00000,    .69101,    .95254,
     +     .03626,    .01510,  33.98741,   1.05921,    .49670,
     +     .00660,    .80045,   1.05990,
     +     .03673,    .01533,  38.44988,   1.16297,    .60346,
     +     .12570,    .90597,   1.16363,
     +     .03726,    .01560,  43.75376,   1.29183,    .73785,
     +     .29363,   1.03676,   1.29247,
     +     .03783,    .01587,  49.57582,   1.44120,    .89206,
     +     .45131,   1.18812,   1.44182,
     +     .03834,    .01613,  55.03296,   1.58911,   1.04237,
     +     .60262,   1.33781,   1.58972 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .03887,    .01640,  60.84338,   1.75134,   1.20922,
     +     .77606,   1.50180,   1.75192,
     +     .03931,    .01662,  65.81926,   1.89575,   1.35688,
     +     .92680,   1.64766,   1.89632,
     +     .03985,    .01689,  72.00783,   2.08195,   1.54647,
     +    1.11973,   1.83559,   2.08250,
     +     .04032,    .01714,  77.74625,   2.25880,   1.72832,
     +    1.30760,   2.01394,   2.25934,
     +     .04077,    .01736,  82.98495,   2.42744,   1.89848,
     +    1.47839,   2.18394,   2.42796,
     +     .04133,    .01766,  89.92172,   2.65527,   2.13083,
     +    1.71556,   2.41348,   2.65578,
     +     .04187,    .01793,  96.56747,   2.88105,   2.36014,
     +    1.94823,   2.64084,   2.88154,
     +     .04237,    .01820, 102.88454,   3.10213,   2.58417,
     +    2.17506,   2.86338,   3.10262 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .04288,    .01847, 109.40055,   3.33514,   2.82133,
     +    2.41652,   3.09782,   3.33562,
     +     .04338,    .01873, 115.73639,   3.56924,   3.05764,
     +    2.65473,   3.33331,   3.56970,
     +     .04386,    .01898, 121.97113,   3.80315,   3.29563,
     +    2.89697,   3.56852,   3.80361,
     +     .04431,    .01922, 127.72923,   4.02610,   3.52023,
     +    3.12291,   3.79267,   4.02655,
     +     .04477,    .01947, 133.74048,   4.26170,   3.75937,
     +    3.36567,   4.02947,   4.26215,
     +     .04522,    .01971, 139.55003,   4.49578,   3.99533,
     +    3.60331,   4.26471,   4.49622,
     +     .04565,    .01994, 145.22813,   4.72770,   4.23013,
     +    3.84099,   4.49772,   4.72813,
     +     .04606,    .02016, 150.56282,   4.95025,   4.45479,
     +    4.06769,   4.72130,   4.95067 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .04648,    .02039, 155.98723,   5.18032,   4.68705,
     +    4.30206,   4.95239,   5.18074,
     +     .04689,    .02061, 161.42900,   5.41433,   4.92381,
     +    4.54158,   5.18740,   5.41474,
     +     .04729,    .02083, 166.51694,   5.63802,   5.14908,
     +    4.76831,   5.41204,   5.63844,
     +     .04767,    .02103, 171.46663,   5.85779,   5.37116,
     +    4.99270,   5.63270,   5.85820,
     +     .04805,    .02124, 176.43259,   6.08208,   5.59742,
     +    5.22090,   5.85787,   6.08248 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .03931,    .01624,   4.15626,    .49012,    .00000,
     +     .00000,    .25325,    .48979,
     +     .03973,    .01645,   5.63263,    .50326,    .00000,
     +     .00000,    .26766,    .50292,
     +     .04037,    .01678,   8.00452,    .52929,    .01766,
     +     .00000,    .29557,    .52894,
     +     .04085,    .01702,   9.75718,    .55567,    .04032,
     +     .00000,    .32331,    .55530,
     +     .04136,    .01728,  11.88779,    .58704,    .08253,
     +     .00000,    .35611,    .58667,
     +     .04181,    .01752,  13.80460,    .61949,    .11598,
     +     .00000,    .38978,    .61911,
     +     .04224,    .01774,  15.78503,    .65436,    .15440,
     +     .00000,    .42582,    .65397,
     +     .04271,    .01799,  17.98152,    .69626,    .19869,
     +     .00000,    .46896,    .69587 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .04312,    .01820,  19.99405,    .73652,    .24179,
     +     .00000,    .51027,    .73611,
     +     .04352,    .01842,  22.00113,    .77919,    .28600,
     +     .00000,    .55397,    .77879,
     +     .04384,    .01859,  23.70376,    .81507,    .32579,
     +     .00000,    .59065,    .81466,
     +     .04453,    .01896,  27.30799,    .90025,    .41319,
     +     .00545,    .67752,    .89983,
     +     .04514,    .01928,  30.52934,    .98145,    .49690,
     +     .09880,    .76016,    .98103,
     +     .04582,    .01965,  34.30603,   1.08109,    .60094,
     +     .22961,    .86139,   1.08067,
     +     .04654,    .02004,  38.39671,   1.19506,    .71873,
     +     .35027,    .97699,   1.19464,
     +     .04720,    .02040,  42.18064,   1.30649,    .83209,
     +     .46459,   1.08988,   1.30606 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .04787,    .02077,  46.16375,   1.42743,    .95659,
     +     .59433,   1.21227,   1.42700,
     +     .04844,    .02108,  49.53876,   1.53402,   1.06568,
     +     .70591,   1.32004,   1.53360,
     +     .04913,    .02146,  53.69239,   1.67015,   1.20439,
     +     .84733,   1.45759,   1.66973,
     +     .04974,    .02180,  57.50675,   1.79828,   1.33627,
     +     .98391,   1.58695,   1.79786,
     +     .05031,    .02212,  60.95300,   1.91936,   1.45853,
     +    1.10677,   1.70915,   1.91895,
     +     .05103,    .02252,  65.47627,   2.08161,   1.62414,
     +    1.27617,   1.87280,   2.08121,
     +     .05172,    .02291,  69.76447,   2.24091,   1.78608,
     +    1.44078,   2.03339,   2.24051,
     +     .05237,    .02327,  73.80102,   2.39560,   1.94295,
     +    1.59989,   2.18927,   2.39520 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .05302,    .02364,  77.93060,   2.55739,   2.10781,
     +    1.76809,   2.35224,   2.55700,
     +     .05366,    .02400,  81.90598,   2.71863,   2.27071,
     +    1.93253,   2.51462,   2.71826,
     +     .05428,    .02435,  85.79163,   2.87870,   2.43377,
     +    2.09887,   2.67574,   2.87833,
     +     .05486,    .02468,  89.34549,   3.03014,   2.58645,
     +    2.25268,   2.82818,   3.02979,
     +     .05544,    .02501,  93.03499,   3.18929,   2.74821,
     +    2.41721,   2.98830,   3.18894,
     +     .05602,    .02534,  96.56839,   3.34634,   2.90666,
     +    2.57704,   3.14630,   3.34600,
     +     .05658,    .02566, 100.00272,   3.50111,   3.06356,
     +    2.73617,   3.30197,   3.50078,
     +     .05710,    .02596, 103.20500,   3.64877,   3.21279,
     +    2.88701,   3.45047,   3.64846 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .05764,    .02626, 106.44108,   3.80063,   3.36629,
     +    3.04217,   3.60317,   3.80033,
     +     .05816,    .02656, 109.67001,   3.95435,   3.52204,
     +    3.20005,   3.75771,   3.95406,
     +     .05867,    .02685, 112.66476,   4.10047,   3.66934,
     +    3.34854,   3.90460,   4.10020,
     +     .05915,    .02713, 115.56670,   4.24344,   3.81404,
     +    3.49502,   4.04831,   4.24318,
     +     .05964,    .02741, 118.45908,   4.38866,   3.96073,
     +    3.64324,   4.19425,   4.38841 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .04815,    .02015,   4.17620,    .42122,    .00000,
     +     .00000,    .21857,    .42073,
     +     .04868,    .02045,   5.39392,    .43410,    .00000,
     +     .00000,    .23252,    .43362,
     +     .04949,    .02091,   7.31967,    .45846,    .01592,
     +     .00000,    .25844,    .45798,
     +     .05010,    .02126,   8.71882,    .48176,    .03604,
     +     .00000,    .28287,    .48128,
     +     .05075,    .02163,  10.38546,    .50912,    .07304,
     +     .00000,    .31142,    .50864,
     +     .05132,    .02196,  11.86576,    .53670,    .10149,
     +     .00000,    .34001,    .53622,
     +     .05188,    .02227,  13.37436,    .56590,    .13371,
     +     .00000,    .37019,    .56543,
     +     .05247,    .02262,  15.02781,    .60042,    .17030,
     +     .00000,    .40573,    .59995 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .05300,    .02292,  16.52511,    .63315,    .20545,
     +     .00000,    .43934,    .63268,
     +     .05351,    .02322,  18.00378,    .66741,    .24107,
     +     .00000,    .47445,    .66695,
     +     .05392,    .02346,  19.24687,    .69606,    .27288,
     +     .00000,    .50377,    .69560,
     +     .05481,    .02397,  21.84416,    .76294,    .34178,
     +     .00448,    .57206,    .76250,
     +     .05558,    .02443,  24.12762,    .82580,    .40682,
     +     .07716,    .63611,    .82536,
     +     .05646,    .02494,  26.76677,    .90196,    .48662,
     +     .17839,    .71360,    .90154,
     +     .05738,    .02548,  29.58615,    .98785,    .57571,
     +     .27007,    .80085,    .98745,
     +     .05823,    .02598,  32.15816,   1.07071,    .66031,
     +     .35578,    .88492,   1.07032 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .05909,    .02649,  34.83349,   1.15966,    .75223,
     +     .45208,    .97508,   1.15929,
     +     .05982,    .02692,  37.07515,   1.23726,    .83194,
     +     .53400,   1.05366,   1.23691,
     +     .06070,    .02745,  39.80337,   1.33537,    .93228,
     +     .63679,   1.15295,   1.33504,
     +     .06149,    .02792,  42.28355,   1.42686,   1.02681,
     +     .73520,   1.24548,   1.42655,
     +     .06222,    .02835,  44.49924,   1.51251,   1.11360,
     +     .82276,   1.33206,   1.51222,
     +     .06315,    .02890,  47.38067,   1.62632,   1.23021,
     +     .94261,   1.44704,   1.62606,
     +     .06403,    .02943,  50.08162,   1.73699,   1.34313,
     +    1.05791,   1.55879,   1.73675,
     +     .06486,    .02993,  52.59739,   1.84351,   1.45155,
     +    1.16836,   1.66631,   1.84330 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .06570,    .03043,  55.14891,   1.95407,   1.56465,
     +    1.28429,   1.77785,   1.95389,
     +     .06652,    .03092,  57.57781,   2.06333,   1.67541,
     +    1.39656,   1.88806,   2.06317,
     +     .06731,    .03139,  59.93538,   2.17106,   1.78560,
     +    1.50950,   1.99668,   2.17093,
     +     .06805,    .03184,  62.06791,   2.27221,   1.88792,
     +    1.61297,   2.09866,   2.27211,
     +     .06880,    .03229,  64.26939,   2.37789,   1.99576,
     +    1.72318,   2.20516,   2.37781,
     +     .06954,    .03273,  66.35577,   2.48144,   2.10060,
     +    1.82934,   2.30951,   2.48139,
     +     .07025,    .03316,  68.37192,   2.58293,   2.20389,
     +    1.93456,   2.41175,   2.58291,
     +     .07093,    .03356,  70.23564,   2.67917,   2.30150,
     +    2.03364,   2.50870,   2.67917 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .07161,    .03397,  72.10634,   2.77762,   2.40138,
     +    2.13502,   2.60785,   2.77765,
     +     .07228,    .03438,  73.96191,   2.87677,   2.50224,
     +    2.23771,   2.70769,   2.87682,
     +     .07293,    .03477,  75.66667,   2.97046,   2.59702,
     +    2.33362,   2.80203,   2.97054,
     +     .07355,    .03514,  77.31194,   3.06176,   2.68978,
     +    2.42793,   2.89394,   3.06186,
     +     .07417,    .03551,  78.93932,   3.15401,   2.78332,
     +    2.52284,   2.98681,   3.15414 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .05426,    .02303,   4.17687,    .38561,    .00000,
     +     .00000,    .20078,    .38538,
     +     .05488,    .02340,   5.24915,    .39821,    .00000,
     +     .00000,    .21433,    .39798,
     +     .05582,    .02396,   6.93351,    .42145,    .01491,
     +     .00000,    .23898,    .42124,
     +     .05653,    .02438,   8.14632,    .44301,    .03360,
     +     .00000,    .26157,    .44281,
     +     .05728,    .02483,   9.57386,    .46814,    .06769,
     +     .00000,    .28776,    .46794,
     +     .05794,    .02523,  10.83263,    .49308,    .09343,
     +     .00000,    .31363,    .49290,
     +     .05859,    .02562,  12.10510,    .51927,    .12236,
     +     .00000,    .34069,    .51910,
     +     .05928,    .02604,  13.49005,    .54991,    .15489,
     +     .00000,    .37226,    .54975 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .05989,    .02640,  14.73546,    .57873,    .18591,
     +     .00000,    .40188,    .57859,
     +     .06048,    .02676,  15.95821,    .60868,    .21712,
     +     .00000,    .43259,    .60855,
     +     .06096,    .02705,  16.98057,    .63364,    .24487,
     +     .00000,    .45815,    .63351,
     +     .06198,    .02768,  19.09956,    .69130,    .30443,
     +     .00398,    .51709,    .69119,
     +     .06288,    .02823,  20.94353,    .74501,    .36018,
     +     .06641,    .57188,    .74492,
     +     .06390,    .02885,  23.05608,    .80958,    .42805,
     +     .15307,    .63766,    .80953,
     +     .06497,    .02950,  25.29404,    .88178,    .50318,
     +     .23069,    .71109,    .88176,
     +     .06596,    .03011,  27.31817,    .95086,    .57395,
     +     .30269,    .78127,    .95086 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .06696,    .03072,  29.40827,   1.02453,    .65034,
     +     .38307,    .85604,   1.02457,
     +     .06780,    .03124,  31.14745,   1.08839,    .71617,
     +     .45100,    .92080,   1.08845,
     +     .06882,    .03187,  33.24943,   1.16865,    .79853,
     +     .53572,   1.00212,   1.16874,
     +     .06974,    .03243,  35.14843,   1.24307,    .87570,
     +     .61640,   1.07748,   1.24319,
     +     .07058,    .03295,  36.83270,   1.31234,    .94612,
     +     .68772,   1.14760,   1.31249,
     +     .07166,    .03361,  39.01063,   1.40391,   1.04028,
     +     .78490,   1.24023,   1.40410,
     +     .07268,    .03424,  41.03750,   1.49243,   1.13092,
     +     .87781,   1.32974,   1.49266,
     +     .07365,    .03483,  42.91275,   1.57719,   1.21749,
     +     .96633,   1.41541,   1.57745 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .07462,    .03543,  44.80434,   1.66474,   1.30737,
     +    1.05884,   1.50386,   1.66504,
     +     .07557,    .03602,  46.59188,   1.75081,   1.39492,
     +    1.14791,   1.59080,   1.75115,
     +     .07648,    .03658,  48.31958,   1.83534,   1.48170,
     +    1.23721,   1.67614,   1.83572,
     +     .07734,    .03711,  49.87072,   1.91432,   1.56185,
     +    1.31857,   1.75588,   1.91474,
     +     .07820,    .03764,  51.46662,   1.99656,   1.64608,
     +    1.40499,   1.83888,   1.99702,
     +     .07906,    .03817,  52.96835,   2.07679,   1.72757,
     +    1.48781,   1.91983,   2.07728,
     +     .07988,    .03867,  54.41437,   2.15516,   1.80761,
     +    1.56966,   1.99889,   2.15568,
     +     .08066,    .03915,  55.74330,   2.22919,   1.88296,
     +    1.64642,   2.07357,   2.22975 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .08145,    .03964,  57.07123,   2.30468,   1.95981,
     +    1.72471,   2.14971,   2.30528,
     +     .08222,    .04012,  58.38353,   2.38047,   2.03718,
     +    1.80380,   2.22613,   2.38110,
     +     .08297,    .04057,  59.58119,   2.45182,   2.10960,
     +    1.87735,   2.29808,   2.45249,
     +     .08368,    .04101,  60.73428,   2.52118,   2.18032,
     +    1.94952,   2.36800,   2.52188,
     +     .08440,    .04145,  61.86884,   2.59104,   2.25139,
     +    2.02191,   2.43843,   2.59177 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .05911,    .02545,   4.16963,    .36242,    .00000,
     +     .00000,    .18920,    .36244,
     +     .05980,    .02587,   5.14202,    .37475,    .00000,
     +     .00000,    .20242,    .37479,
     +     .06085,    .02652,   6.66316,    .39714,    .01418,
     +     .00000,    .22612,    .39720,
     +     .06163,    .02700,   7.75165,    .41747,    .03186,
     +     .00000,    .24740,    .41755,
     +     .06247,    .02752,   9.02198,    .44104,    .06392,
     +     .00000,    .27197,    .44113,
     +     .06321,    .02798,  10.13641,    .46418,    .08782,
     +     .00000,    .29597,    .46429,
     +     .06393,    .02842,  11.25640,    .48834,    .11452,
     +     .00000,    .32094,    .48846,
     +     .06470,    .02890,  12.46929,    .51639,    .14434,
     +     .00000,    .34985,    .51653 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .06538,    .02933,  13.55447,    .54262,    .17263,
     +     .00000,    .37683,    .54278,
     +     .06604,    .02974,  14.61540,    .56973,    .20093,
     +     .00000,    .40465,    .56990,
     +     .06657,    .03007,  15.49893,    .59226,    .22601,
     +     .00000,    .42775,    .59245,
     +     .06772,    .03079,  17.31929,    .64392,    .27951,
     +     .00364,    .48060,    .64415,
     +     .06872,    .03141,  18.89131,    .69174,    .32927,
     +     .05949,    .52943,    .69199,
     +     .06985,    .03212,  20.68061,    .74890,    .38951,
     +     .13680,    .58772,    .74919,
     +     .07104,    .03287,  22.56447,    .81241,    .45577,
     +     .20550,    .65239,    .81274,
     +     .07214,    .03356,  24.25746,    .87281,    .51783,
     +     .26884,    .71381,    .87318 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .07326,    .03426,  25.99620,    .93691,    .58449,
     +     .33926,    .77895,    .93732,
     +     .07419,    .03484,  27.43552,    .99222,    .64168,
     +     .39847,    .83510,    .99267,
     +     .07533,    .03556,  29.16604,   1.06142,    .71291,
     +     .47199,    .90530,   1.06190,
     +     .07635,    .03620,  30.72223,   1.12532,    .77938,
     +     .54175,    .97009,   1.12585,
     +     .07729,    .03679,  32.09483,   1.18455,    .83977,
     +     .60310,   1.03011,   1.18511,
     +     .07849,    .03754,  33.86224,   1.26255,    .92023,
     +     .68643,   1.10911,   1.26316,
     +     .07963,    .03826,  35.49815,   1.33764,    .99735,
     +     .76576,   1.18513,   1.33830,
     +     .08070,    .03893,  37.00385,   1.40924,   1.07070,
     +     .84102,   1.25759,   1.40995 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .08177,    .03960,  38.51649,   1.48295,   1.14662,
     +     .91943,   1.33215,   1.48370,
     +     .08283,    .04026,  39.93781,   1.55514,   1.22027,
     +     .99460,   1.40516,   1.55594,
     +     .08384,    .04090,  41.30722,   1.62583,   1.29307,
     +    1.06978,   1.47662,   1.62667,
     +     .08480,    .04149,  42.52941,   1.69164,   1.36006,
     +    1.13799,   1.54314,   1.69253,
     +     .08576,    .04209,  43.78378,   1.76000,   1.43029,
     +    1.21029,   1.61222,   1.76093,
     +     .08671,    .04269,  44.95744,   1.82646,   1.49800,
     +    1.27933,   1.67937,   1.82744,
     +     .08761,    .04325,  46.08457,   1.89123,   1.56436,
     +    1.34742,   1.74479,   1.89225,
     +     .08848,    .04379,  47.11561,   1.95224,   1.62664,
     +    1.41108,   1.80641,   1.95330 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08935,    .04433,  48.14227,   2.01430,   1.69001,
     +    1.47586,   1.86908,   2.01540,
     +     .09021,    .04487,  49.15392,   2.07646,   1.75368,
     +    1.54116,   1.93185,   2.07761,
     +     .09104,    .04538,  50.07220,   2.13482,   1.81309,
     +    1.60169,   1.99078,   2.13601,
     +     .09182,    .04587,  50.95475,   2.19145,   1.87101,
     +    1.66100,   2.04794,   2.19268,
     +     .09262,    .04636,  51.81937,   2.24835,   1.92909,
     +    1.72034,   2.10538,   2.24962 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .06319,    .02772,   4.15657,    .34619,    .00000,
     +     .00000,    .18090,    .34617,
     +     .06395,    .02820,   5.05550,    .35829,    .00000,
     +     .00000,    .19383,    .35828,
     +     .06509,    .02892,   6.45326,    .37995,    .01359,
     +     .00000,    .21672,    .37997,
     +     .06595,    .02946,   7.44757,    .39929,    .03045,
     +     .00000,    .23695,    .39933,
     +     .06687,    .03005,   8.59994,    .42159,    .06091,
     +     .00000,    .26020,    .42167,
     +     .06767,    .03056,   9.60659,    .44333,    .08338,
     +     .00000,    .28274,    .44342,
     +     .06846,    .03106,  10.61343,    .46589,    .10836,
     +     .00000,    .30607,    .46601,
     +     .06930,    .03159,  11.69932,    .49194,    .13612,
     +     .00000,    .33294,    .49209 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .07005,    .03206,  12.66686,    .51621,    .16233,
     +     .00000,    .35791,    .51637,
     +     .07077,    .03253,  13.60955,    .54116,    .18845,
     +     .00000,    .38354,    .54135,
     +     .07135,    .03290,  14.39204,    .56186,    .21152,
     +     .00000,    .40477,    .56207,
     +     .07260,    .03369,  15.99632,    .60906,    .26051,
     +     .00339,    .45309,    .60932,
     +     .07370,    .03439,  17.37291,    .65252,    .30584,
     +     .05434,    .49751,    .65282,
     +     .07494,    .03518,  18.93136,    .70424,    .36045,
     +     .12473,    .55029,    .70458,
     +     .07625,    .03601,  20.56393,    .76141,    .42024,
     +     .18687,    .60856,    .76181,
     +     .07744,    .03677,  22.02333,    .81552,    .47596,
     +     .24390,    .66364,    .81597 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07866,    .03755,  23.51552,    .87273,    .53559,
     +     .30706,    .72182,    .87323,
     +     .07968,    .03820,  24.74546,    .92190,    .58654,
     +     .35997,    .77179,    .92244,
     +     .08093,    .03899,  26.21780,    .98320,    .64979,
     +     .42542,    .83404,    .98379,
     +     .08204,    .03969,  27.53678,   1.03961,    .70862,
     +     .48734,    .89130,   1.04026,
     +     .08307,    .04034,  28.69463,   1.09172,    .76187,
     +     .54157,    .94416,   1.09241,
     +     .08438,    .04117,  30.18037,   1.16015,    .83262,
     +     .61505,   1.01353,   1.16090,
     +     .08562,    .04196,  31.54940,   1.22578,    .90018,
     +     .68473,   1.08005,   1.22659,
     +     .08678,    .04269,  32.80396,   1.28816,    .96425,
     +     .75064,   1.14325,   1.28903 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08795,    .04344,  34.05998,   1.35220,   1.03038,
     +     .81913,   1.20810,   1.35313,
     +     .08911,    .04416,  35.23427,   1.41472,   1.09431,
     +     .88455,   1.27139,   1.41570,
     +     .09020,    .04485,  36.36274,   1.47579,   1.15737,
     +     .94986,   1.33319,   1.47682,
     +     .09124,    .04550,  37.36457,   1.53248,   1.21521,
     +    1.00890,   1.39057,   1.53357,
     +     .09229,    .04616,  38.39075,   1.59125,   1.27575,
     +    1.07140,   1.45002,   1.59240,
     +     .09332,    .04681,  39.34624,   1.64822,   1.33394,
     +    1.13089,   1.50765,   1.64942,
     +     .09430,    .04743,  40.26187,   1.70363,   1.39087,
     +    1.18946,   1.56368,   1.70488,
     +     .09524,    .04801,  41.09597,   1.75571,   1.44417,
     +    1.24410,   1.61634,   1.75701 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09618,    .04860,  41.92400,   1.80858,   1.49829,
     +    1.29957,   1.66979,   1.80992,
     +     .09712,    .04919,  42.73792,   1.86144,   1.55258,
     +    1.35541,   1.72323,   1.86284,
     +     .09802,    .04974,  43.47298,   1.91094,   1.60311,
     +    1.40703,   1.77328,   1.91239,
     +     .09887,    .05028,  44.17844,   1.95891,   1.65232,
     +    1.45755,   1.82176,   1.96041,
     +     .09973,    .05081,  44.86693,   2.00701,   1.70155,
     +    1.50800,   1.87037,   2.00855 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07809,    .03671,   4.07297,    .30085,    .00000,
     +     .00000,    .15779,    .30104,
     +     .07910,    .03739,   4.75424,    .31198,    .00000,
     +     .00000,    .16962,    .31220,
     +     .08063,    .03842,   5.79588,    .33113,    .01173,
     +     .00000,    .18981,    .33142,
     +     .08178,    .03919,   6.52385,    .34740,    .02606,
     +     .00000,    .20684,    .34773,
     +     .08301,    .04001,   7.34958,    .36591,    .05162,
     +     .00000,    .22614,    .36629,
     +     .08408,    .04074,   8.06161,    .38347,    .06988,
     +     .00000,    .24438,    .38390,
     +     .08513,    .04144,   8.76317,    .40141,    .08989,
     +     .00000,    .26298,    .40189,
     +     .08626,    .04219,   9.51012,    .42176,    .11174,
     +     .00000,    .28402,    .42229 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08725,    .04285,  10.16697,    .44043,    .13209,
     +     .00000,    .30330,    .44101,
     +     .08822,    .04349,  10.79996,    .45938,    .15209,
     +     .00000,    .32282,    .46000,
     +     .08899,    .04401,  11.31987,    .47498,    .16963,
     +     .00000,    .33888,    .47564,
     +     .09066,    .04511,  12.36833,    .50991,    .20623,
     +     .00268,    .37477,    .51065,
     +     .09211,    .04607,  13.24868,    .54154,    .23956,
     +     .04040,    .40723,    .54236,
     +     .09376,    .04716,  14.22757,    .57864,    .27913,
     +     .09219,    .44524,    .57954,
     +     .09549,    .04830,  15.23618,    .61899,    .32176,
     +     .13697,    .48653,    .61998,
     +     .09708,    .04933,  16.12182,    .65657,    .36088,
     +     .17745,    .52496,    .65765 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09869,    .05039,  17.01401,    .69581,    .40222,
     +     .22177,    .56505,    .69697,
     +     .10004,    .05126,  17.73875,    .72912,    .43713,
     +     .25843,    .59906,    .73037,
     +     .10168,    .05233,  18.59341,    .77017,    .47995,
     +     .30325,    .64094,    .77150,
     +     .10314,    .05328,  19.34931,    .80754,    .51938,
     +     .34524,    .67905,    .80896,
     +     .10449,    .05414,  20.00178,    .84166,    .55464,
     +     .38154,    .71383,    .84316,
     +     .10620,    .05525,  20.82920,    .88603,    .60106,
     +     .43032,    .75904,    .88763,
     +     .10782,    .05629,  21.57930,    .92810,    .64489,
     +     .47603,    .80189,    .92979,
     +     .10935,    .05726,  22.25599,    .96766,    .68600,
     +     .51881,    .84217,    .96945 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11087,    .05823,  22.92550,   1.00790,    .72807,
     +     .56290,    .88314,   1.00978,
     +     .11237,    .05918,  23.53993,   1.04677,    .76830,
     +     .60453,    .92270,   1.04874,
     +     .11379,    .06008,  24.12532,   1.08445,    .80771,
     +     .64584,    .96103,   1.08651,
     +     .11513,    .06093,  24.63459,   1.11908,    .84346,
     +     .68276,    .99627,   1.12122,
     +     .11649,    .06178,  25.15291,   1.15474,    .88068,
     +     .72165,   1.03255,   1.15697,
     +     .11782,    .06261,  25.62605,   1.18898,    .91610,
     +     .75828,   1.06738,   1.19129,
     +     .11908,    .06341,  26.07604,   1.22208,    .95056,
     +     .79416,   1.10104,   1.22447,
     +     .12028,    .06416,  26.47929,   1.25294,    .98256,
     +     .82735,   1.13243,   1.25541 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12149,    .06491,  26.87498,   1.28406,   1.01484,
     +     .86084,   1.16407,   1.28660,
     +     .12269,    .06566,  27.26041,   1.31498,   1.04705,
     +     .89437,   1.19553,   1.31761,
     +     .12383,    .06636,  27.60135,   1.34370,   1.07676,
     +     .92509,   1.22474,   1.34640,
     +     .12492,    .06704,  27.92710,   1.37141,   1.10558,
     +     .95506,   1.25291,   1.37418,
     +     .12602,    .06771,  28.23986,   1.39899,   1.13421,
     +     .98476,   1.28096,   1.40184 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09766,    .05032,   3.88299,    .26354,    .00000,
     +     .00000,    .13839,    .26406,
     +     .09906,    .05128,   4.36897,    .27323,    .00000,
     +     .00000,    .14869,    .27383,
     +     .10118,    .05274,   5.09747,    .28931,    .00972,
     +     .00000,    .16569,    .29004,
     +     .10275,    .05381,   5.59601,    .30237,    .02143,
     +     .00000,    .17940,    .30319,
     +     .10444,    .05496,   6.14936,    .31701,    .04205,
     +     .00000,    .19474,    .31793,
     +     .10592,    .05596,   6.62004,    .33055,    .05633,
     +     .00000,    .20889,    .33156,
     +     .10736,    .05692,   7.07653,    .34417,    .07175,
     +     .00000,    .22309,    .34527,
     +     .10890,    .05796,   7.55588,    .35933,    .08829,
     +     .00000,    .23887,    .36053 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11025,    .05886,   7.97141,    .37304,    .10349,
     +     .00000,    .25312,    .37433,
     +     .11157,    .05974,   8.36701,    .38675,    .11822,
     +     .00000,    .26735,    .38813,
     +     .11262,    .06044,   8.68826,    .39797,    .13102,
     +     .00000,    .27897,    .39941,
     +     .11489,    .06193,   9.32338,    .42259,    .15728,
     +     .00206,    .30447,    .42419,
     +     .11686,    .06322,   9.84262,    .44451,    .18079,
     +     .02894,    .32713,    .44624,
     +     .11908,    .06468,  10.40777,    .46982,    .20828,
     +     .06562,    .35328,    .47169,
     +     .12141,    .06619,  10.97923,    .49686,    .23741,
     +     .09668,    .38119,    .49890,
     +     .12353,    .06756,  11.47014,    .52163,    .26369,
     +     .12430,    .40673,    .52381 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12569,    .06894,  11.95612,    .54714,    .29111,
     +     .15416,    .43302,    .54947,
     +     .12748,    .07009,  12.34396,    .56851,    .31396,
     +     .17854,    .45504,    .57098,
     +     .12966,    .07147,  12.79268,    .59450,    .34164,
     +     .20798,    .48181,    .59712,
     +     .13159,    .07269,  13.18347,    .61789,    .36685,
     +     .23528,    .50589,    .62065,
     +     .13336,    .07380,  13.51310,    .63897,    .38909,
     +     .25854,    .52758,    .64185,
     +     .13562,    .07521,  13.92512,    .66609,    .41809,
     +     .28952,    .55549,    .66913,
     +     .13774,    .07653,  14.29049,    .69146,    .44512,
     +     .31819,    .58161,    .69467,
     +     .13972,    .07776,  14.61288,    .71504,    .47019,
     +     .34472,    .60587,    .71839 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14170,    .07898,  14.92693,    .73878,    .49560,
     +     .37182,    .63029,    .74228,
     +     .14364,    .08017,  15.20731,    .76143,    .51960,
     +     .39708,    .65360,    .76507,
     +     .14547,    .08129,  15.47175,    .78320,    .54294,
     +     .42199,    .67600,    .78698,
     +     .14719,    .08233,  15.69394,    .80296,    .56385,
     +     .44396,    .69634,    .80686,
     +     .14892,    .08338,  15.91855,    .82317,    .58549,
     +     .46699,    .71714,    .82721,
     +     .15062,    .08440,  16.11665,    .84235,    .60585,
     +     .48842,    .73689,    .84651,
     +     .15223,    .08537,  16.30323,    .86077,    .62553,
     +     .50930,    .75586,    .86505,
     +     .15375,    .08627,  16.46564,    .87776,    .64364,
     +     .52844,    .77336,    .88217 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .15528,    .08718,  16.62188,    .89476,    .66178,
     +     .54761,    .79088,    .89928,
     +     .15679,    .08808,  16.77198,    .91155,    .67976,
     +     .56670,    .80817,    .91619,
     +     .15821,    .08892,  16.89951,    .92697,    .69617,
     +     .58400,    .82407,    .93172,
     +     .15957,    .08973,  17.02077,    .94178,    .71203,
     +     .60081,    .83934,    .94663,
     +     .16094,    .09053,  17.13329,    .95639,    .72765,
     +     .61735,    .85441,    .96135 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11239,    .06137,   3.70180,    .24464,    .00000,
     +     .00000,    .12844,    .24561,
     +     .11410,    .06253,   4.08513,    .25326,    .00000,
     +     .00000,    .13766,    .25435,
     +     .11668,    .06428,   4.65271,    .26730,    .00849,
     +     .00000,    .15258,    .26857,
     +     .11860,    .06557,   5.03568,    .27843,    .01864,
     +     .00000,    .16434,    .27983,
     +     .12066,    .06694,   5.45542,    .29079,    .03639,
     +     .00000,    .17739,    .29234,
     +     .12245,    .06813,   5.80943,    .30206,    .04846,
     +     .00000,    .18925,    .30375,
     +     .12419,    .06928,   6.14944,    .31330,    .06139,
     +     .00000,    .20105,    .31511,
     +     .12606,    .07050,   6.50334,    .32567,    .07512,
     +     .00000,    .21403,    .32762 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12769,    .07157,   6.80742,    .33677,    .08762,
     +     .00000,    .22565,    .33884,
     +     .12928,    .07260,   7.09472,    .34777,    .09964,
     +     .00000,    .23716,    .34996,
     +     .13055,    .07342,   7.32636,    .35672,    .11005,
     +     .00000,    .24653,    .35901,
     +     .13326,    .07516,   7.77758,    .37617,    .13116,
     +     .00173,    .26683,    .37866,
     +     .13562,    .07667,   8.13956,    .39329,    .14987,
     +     .02329,    .28469,    .39597,
     +     .13827,    .07835,   8.52771,    .41287,    .17155,
     +     .05262,    .30511,    .41575,
     +     .14104,    .08010,   8.91495,    .43358,    .19428,
     +     .07713,    .32667,    .43667,
     +     .14356,    .08167,   9.24244,    .45234,    .21458,
     +     .09871,    .34621,    .45563 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .14610,    .08325,   9.56266,    .47149,    .23560,
     +     .12188,    .36614,    .47498,
     +     .14822,    .08455,   9.81477,    .48740,    .25298,
     +     .14065,    .38271,    .49106,
     +     .15077,    .08612,  10.10222,    .50659,    .27386,
     +     .16313,    .40268,    .51046,
     +     .15304,    .08750,  10.34978,    .52374,    .29276,
     +     .18385,    .42052,    .52779,
     +     .15511,    .08875,  10.55447,    .53905,    .30928,
     +     .20135,    .43645,    .54326,
     +     .15773,    .09033,  10.80758,    .55861,    .33070,
     +     .22454,    .45682,    .56304,
     +     .16019,    .09179,  11.02789,    .57677,    .35051,
     +     .24583,    .47571,    .58139,
     +     .16248,    .09315,  11.21865,    .59350,    .36874,
     +     .26538,    .49314,    .59831 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .16477,    .09451,  11.40219,    .61024,    .38712,
     +     .28525,    .51058,    .61524,
     +     .16699,    .09581,  11.56131,    .62605,    .40433,
     +     .30362,    .52706,    .63123,
     +     .16910,    .09704,  11.71021,    .64119,    .42100,
     +     .32166,    .54284,    .64654,
     +     .17106,    .09817,  11.83104,    .65479,    .43580,
     +     .33744,    .55704,    .66031,
     +     .17303,    .09932,  11.95267,    .66866,    .45107,
     +     .35393,    .57151,    .67434,
     +     .17495,    .10042,  12.05573,    .68170,    .46532,
     +     .36916,    .58514,    .68754,
     +     .17678,    .10146,  12.15197,    .69417,    .47905,
     +     .38395,    .59816,    .70016,
     +     .17849,    .10243,  12.23287,    .70559,    .49160,
     +     .39742,    .61011,    .71172 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .18022,    .10341,  12.30893,    .71696,    .50410,
     +     .41085,    .62200,    .72323,
     +     .18191,    .10437,  12.38080,    .72813,    .51646,
     +     .42417,    .63369,    .73454,
     +     .18351,    .10526,  12.43828,    .73829,    .52764,
     +     .43616,    .64434,    .74483,
     +     .18503,    .10612,  12.49278,    .74802,    .53843,
     +     .44780,    .65454,    .75469,
     +     .18656,    .10696,  12.54075,    .75756,    .54899,
     +     .45917,    .66455,    .76436 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12497,    .07107,   3.53302,    .23234,    .00000,
     +     .00000,    .12193,    .23384,
     +     .12695,    .07239,   3.84976,    .24010,    .00000,
     +     .00000,    .13028,    .24176,
     +     .12995,    .07437,   4.31433,    .25257,    .00760,
     +     .00000,    .14363,    .25446,
     +     .13216,    .07581,   4.62416,    .26230,    .01664,
     +     .00000,    .15401,    .26437,
     +     .13453,    .07735,   4.96074,    .27304,    .03236,
     +     .00000,    .16544,    .27530,
     +     .13659,    .07868,   5.24281,    .28274,    .04293,
     +     .00000,    .17573,    .28517,
     +     .13859,    .07996,   5.51181,    .29235,    .05418,
     +     .00000,    .18591,    .29494,
     +     .14072,    .08132,   5.78992,    .30285,    .06603,
     +     .00000,    .19703,    .30562 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14259,    .08250,   6.02726,    .31220,    .07678,
     +     .00000,    .20692,    .31513,
     +     .14440,    .08364,   6.25014,    .32143,    .08704,
     +     .00000,    .21666,    .32450,
     +     .14585,    .08455,   6.42890,    .32891,    .09590,
     +     .00000,    .22456,    .33210,
     +     .14893,    .08647,   6.77279,    .34503,    .11373,
     +     .00151,    .24155,    .34848,
     +     .15161,    .08812,   7.04414,    .35911,    .12943,
     +     .01971,    .25639,    .36279,
     +     .15461,    .08997,   7.33143,    .37510,    .14749,
     +     .04441,    .27323,    .37903,
     +     .15774,    .09186,   7.61501,    .39188,    .16630,
     +     .06488,    .29089,    .39607,
     +     .16056,    .09357,   7.85154,    .40696,    .18297,
     +     .08276,    .30676,    .41139 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .16341,    .09527,   8.08041,    .42225,    .20012,
     +     .10186,    .32286,    .42692,
     +     .16577,    .09668,   8.25844,    .43488,    .21423,
     +     .11725,    .33615,    .43975,
     +     .16863,    .09835,   8.45872,    .45000,    .23108,
     +     .13557,    .35208,    .45512,
     +     .17115,    .09983,   8.62952,    .46345,    .24625,
     +     .15239,    .36624,    .46879,
     +     .17344,    .10116,   8.76795,    .47536,    .25943,
     +     .16649,    .37880,    .48090,
     +     .17634,    .10283,   8.93744,    .49051,    .27645,
     +     .18512,    .39477,    .49630,
     +     .17905,    .10439,   9.08219,    .50447,    .29209,
     +     .20211,    .40950,    .51049,
     +     .18156,    .10582,   9.20500,    .51726,    .30640,
     +     .21764,    .42300,    .52349 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .18408,    .10724,   9.32164,    .52998,    .32077,
     +     .23336,    .43645,    .53644,
     +     .18650,    .10859,   9.41950,    .54192,    .33414,
     +     .24779,    .44908,    .54858,
     +     .18880,    .10987,   9.51041,    .55329,    .34704,
     +     .26194,    .46112,    .56015,
     +     .19093,    .11105,   9.58085,    .56344,    .35843,
     +     .27422,    .47187,    .57048,
     +     .19307,    .11223,   9.65154,    .57375,    .37015,
     +     .28704,    .48281,    .58098,
     +     .19514,    .11336,   9.70820,    .58336,    .38101,
     +     .29881,    .49303,    .59077,
     +     .19712,    .11444,   9.76057,    .59253,    .39145,
     +     .31021,    .50277,    .60011,
     +     .19896,    .11543,   9.80229,    .60087,    .40094,
     +     .32054,    .51165,    .60861 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .20081,    .11642,   9.84007,    .60913,    .41037,
     +     .33080,    .52046,    .61703,
     +     .20263,    .11740,   9.87487,    .61722,    .41965,
     +     .34096,    .52908,    .62528,
     +     .20433,    .11831,   9.89963,    .62452,    .42800,
     +     .35005,    .53689,    .63272,
     +     .20596,    .11917,   9.92305,    .63149,    .43604,
     +     .35885,    .54435,    .63984,
     +     .20758,    .12002,   9.94135,    .63829,    .44388,
     +     .36742,    .55163,    .64677 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13632,    .07986,   3.37677,    .22326,    .00000,
     +     .00000,    .11714,    .22538,
     +     .13854,    .08130,   3.64580,    .23030,    .00000,
     +     .00000,    .12478,    .23260,
     +     .14189,    .08346,   4.03728,    .24150,    .00691,
     +     .00000,    .13688,    .24409,
     +     .14437,    .08503,   4.29580,    .25014,    .01509,
     +     .00000,    .14618,    .25295,
     +     .14701,    .08669,   4.57476,    .25963,    .02926,
     +     .00000,    .15638,    .26267,
     +     .14931,    .08813,   4.80734,    .26814,    .03871,
     +     .00000,    .16551,    .27138,
     +     .15153,    .08951,   5.02787,    .27653,    .04872,
     +     .00000,    .17448,    .27996,
     +     .15389,    .09098,   5.25463,    .28565,    .05920,
     +     .00000,    .18423,    .28929 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .15596,    .09224,   5.44706,    .29373,    .06867,
     +     .00000,    .19286,    .29755,
     +     .15797,    .09347,   5.62685,    .30166,    .07767,
     +     .00000,    .20133,    .30566,
     +     .15957,    .09444,   5.77043,    .30808,    .08542,
     +     .00000,    .20817,    .31222,
     +     .16297,    .09648,   6.04350,    .32181,    .10093,
     +     .00136,    .22281,    .32626,
     +     .16590,    .09824,   6.25561,    .33374,    .11451,
     +     .01718,    .23552,    .33844,
     +     .16919,    .10019,   6.47760,    .34721,    .13006,
     +     .03862,    .24986,    .35220,
     +     .17261,    .10219,   6.69471,    .36125,    .14614,
     +     .05627,    .26481,    .36655,
     +     .17569,    .10398,   6.87340,    .37377,    .16032,
     +     .07161,    .27817,    .37935 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .17879,    .10576,   7.04465,    .38642,    .17485,
     +     .08792,    .29164,    .39228,
     +     .18135,    .10723,   7.17636,    .39680,    .18674,
     +     .10099,    .30272,    .40289,
     +     .18443,    .10897,   7.32258,    .40918,    .20087,
     +     .11650,    .31593,    .41554,
     +     .18716,    .11051,   7.44611,    .42013,    .21356,
     +     .13068,    .32762,    .42674,
     +     .18962,    .11188,   7.54394,    .42977,    .22451,
     +     .14252,    .33793,    .43660,
     +     .19274,    .11361,   7.66257,    .44197,    .23861,
     +     .15809,    .35099,    .44909,
     +     .19564,    .11520,   7.76186,    .45315,    .25151,
     +     .17224,    .36296,    .46053,
     +     .19832,    .11666,   7.84407,    .46333,    .26325,
     +     .18511,    .37388,    .47094 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .20100,    .11811,   7.92095,    .47342,    .27501,
     +     .19810,    .38472,    .48128,
     +     .20357,    .11948,   7.98284,    .48282,    .28588,
     +     .20997,    .39484,    .49090,
     +     .20600,    .12079,   8.03985,    .49175,    .29635,
     +     .22157,    .40445,    .50005,
     +     .20825,    .12197,   8.08116,    .49965,    .30553,
     +     .23160,    .41299,    .50815,
     +     .21051,    .12316,   8.12251,    .50766,    .31497,
     +     .24204,    .42165,    .51636,
     +     .21269,    .12429,   8.15272,    .51508,    .32367,
     +     .25158,    .42969,    .52397,
     +     .21476,    .12536,   8.18020,    .52212,    .33202,
     +     .26080,    .43733,    .53120,
     +     .21668,    .12636,   8.19985,    .52850,    .33957,
     +     .26912,    .44427,    .53775 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .21862,    .12734,   8.21620,    .53478,    .34705,
     +     .27737,    .45111,    .54420,
     +     .22051,    .12831,   8.23037,    .54091,    .35439,
     +     .28551,    .45780,    .55050,
     +     .22229,    .12920,   8.23729,    .54641,    .36096,
     +     .29276,    .46382,    .55616,
     +     .22397,    .13005,   8.24382,    .55165,    .36728,
     +     .29978,    .46956,    .56155,
     +     .22565,    .13088,   8.24615,    .55672,    .37342,
     +     .30658,    .47514,    .56677 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15682,    .09557,   3.09660,    .21005,    .00000,
     +     .00000,    .11025,    .21356,
     +     .15947,    .09718,   3.30098,    .21592,    .00000,
     +     .00000,    .11676,    .21968,
     +     .16344,    .09960,   3.59485,    .22514,    .00587,
     +     .00000,    .12696,    .22929,
     +     .16635,    .10134,   3.78549,    .23215,    .01278,
     +     .00000,    .13467,    .23657,
     +     .16945,    .10318,   3.98912,    .23978,    .02469,
     +     .00000,    .14306,    .24451,
     +     .17214,    .10476,   4.15748,    .24656,    .03253,
     +     .00000,    .15050,    .25154,
     +     .17473,    .10628,   4.31570,    .25319,    .04079,
     +     .00000,    .15777,    .25842,
     +     .17749,    .10787,   4.47691,    .26033,    .04936,
     +     .00000,    .16559,    .26583 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .17988,    .10926,   4.61246,    .26662,    .05705,
     +     .00000,    .17246,    .27235,
     +     .18219,    .11058,   4.73804,    .27274,    .06432,
     +     .00000,    .17916,    .27869,
     +     .18404,    .11163,   4.83764,    .27768,    .07055,
     +     .00000,    .18456,    .28381,
     +     .18794,    .11383,   5.02288,    .28815,    .08292,
     +     .00114,    .19600,    .29465,
     +     .19129,    .11570,   5.16271,    .29714,    .09366,
     +     .01375,    .20584,    .30397,
     +     .19503,    .11777,   5.30591,    .30721,    .10586,
     +     .03081,    .21685,    .31440,
     +     .19889,    .11988,   5.44335,    .31760,    .11837,
     +     .04472,    .22823,    .32516,
     +     .20236,    .12175,   5.55348,    .32677,    .12930,
     +     .05670,    .23828,    .33465 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .20584,    .12361,   5.65703,    .33594,    .14042,
     +     .06936,    .24835,    .34416,
     +     .20869,    .12512,   5.73475,    .34341,    .14946,
     +     .07944,    .25656,    .35190,
     +     .21211,    .12692,   5.81841,    .35222,    .16013,
     +     .09131,    .26627,    .36104,
     +     .21512,    .12849,   5.88762,    .35995,    .16964,
     +     .10211,    .27480,    .36906,
     +     .21782,    .12987,   5.93968,    .36670,    .17779,
     +     .11105,    .28226,    .37605,
     +     .22123,    .13162,   6.00121,    .37517,    .18823,
     +     .12276,    .29165,    .38484,
     +     .22438,    .13321,   6.04962,    .38285,    .19769,
     +     .13332,    .30018,    .39282,
     +     .22729,    .13466,   6.08701,    .38976,    .20626,
     +     .14287,    .30789,    .40001 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .23017,    .13609,   6.12045,    .39656,    .21477,
     +     .15245,    .31549,    .40707,
     +     .23293,    .13744,   6.14339,    .40281,    .22258,
     +     .16114,    .32251,    .41358,
     +     .23553,    .13871,   6.16392,    .40873,    .23007,
     +     .16960,    .32915,    .41973,
     +     .23791,    .13985,   6.17447,    .41387,    .23658,
     +     .17685,    .33498,    .42509,
     +     .24030,    .14100,   6.18496,    .41907,    .24326,
     +     .18438,    .34086,    .43052,
     +     .24259,    .14208,   6.18789,    .42381,    .24935,
     +     .19120,    .34627,    .43547,
     +     .24476,    .14310,   6.18986,    .42830,    .25517,
     +     .19777,    .35139,    .44015,
     +     .24677,    .14403,   6.18725,    .43230,    .26040,
     +     .20367,    .35598,    .44433 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .24877,    .14496,   6.18224,    .43620,    .26555,
     +     .20949,    .36048,    .44842,
     +     .25074,    .14586,   6.17597,    .43999,    .27058,
     +     .21521,    .36486,    .45238,
     +     .25256,    .14668,   6.16537,    .44332,    .27505,
     +     .22026,    .36875,    .45588,
     +     .25429,    .14746,   6.15539,    .44650,    .27933,
     +     .22514,    .37245,    .45921,
     +     .25601,    .14823,   6.14235,    .44952,    .28346,
     +     .22984,    .37600,    .46239 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18453,    .11598,   2.74131,    .19607,    .00000,
     +     .00000,    .10317,    .20203,
     +     .18767,    .11775,   2.88790,    .20064,    .00000,
     +     .00000,    .10845,    .20692,
     +     .19238,    .12037,   3.09575,    .20773,    .00482,
     +     .00000,    .11663,    .21451,
     +     .19579,    .12225,   3.22760,    .21303,    .01044,
     +     .00000,    .12273,    .22016,
     +     .19943,    .12423,   3.36695,    .21877,    .02010,
     +     .00000,    .12931,    .22627,
     +     .20256,    .12592,   3.48098,    .22380,    .02637,
     +     .00000,    .13509,    .23163,
     +     .20557,    .12752,   3.58700,    .22869,    .03294,
     +     .00000,    .14068,    .23683,
     +     .20875,    .12921,   3.69380,    .23390,    .03970,
     +     .00000,    .14666,    .24237 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .21150,    .13065,   3.78258,    .23846,    .04573,
     +     .00000,    .15187,    .24722,
     +     .21415,    .13203,   3.86392,    .24287,    .05139,
     +     .00000,    .15692,    .25189,
     +     .21626,    .13312,   3.92793,    .24640,    .05622,
     +     .00000,    .16097,    .25565,
     +     .22068,    .13538,   4.04324,    .25382,    .06573,
     +     .00093,    .16947,    .26351,
     +     .22446,    .13729,   4.12645,    .26012,    .07391,
     +     .01062,    .17670,    .27020,
     +     .22865,    .13938,   4.20876,    .26710,    .08313,
     +     .02372,    .18473,    .27759,
     +     .23295,    .14150,   4.28543,    .27421,    .09250,
     +     .03428,    .19292,    .28513,
     +     .23677,    .14336,   4.34405,    .28040,    .10060,
     +     .04330,    .20008,    .29170 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .24058,    .14519,   4.39726,    .28652,    .10879,
     +     .05277,    .20719,    .29820,
     +     .24369,    .14666,   4.43525,    .29145,    .11539,
     +     .06025,    .21294,    .30343,
     +     .24739,    .14839,   4.47352,    .29719,    .12311,
     +     .06900,    .21966,    .30953,
     +     .25063,    .14990,   4.50378,    .30218,    .12996,
     +     .07691,    .22552,    .31483,
     +     .25350,    .15121,   4.52333,    .30646,    .13577,
     +     .08341,    .23057,    .31938,
     +     .25712,    .15285,   4.54487,    .31178,    .14316,
     +     .09186,    .23689,    .32505,
     +     .26045,    .15433,   4.55847,    .31652,    .14981,
     +     .09943,    .24256,    .33011,
     +     .26349,    .15566,   4.56564,    .32073,    .15576,
     +     .10621,    .24763,    .33461 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .26648,    .15696,   4.57009,    .32483,    .16165,
     +     .11298,    .25259,    .33898,
     +     .26932,    .15817,   4.56768,    .32852,    .16699,
     +     .11907,    .25710,    .34292,
     +     .27199,    .15930,   4.56466,    .33198,    .17210,
     +     .12497,    .26134,    .34662,
     +     .27440,    .16030,   4.55574,    .33490,    .17648,
     +     .12997,    .26499,    .34977,
     +     .27682,    .16130,   4.54683,    .33785,    .18095,
     +     .13516,    .26867,    .35294,
     +     .27911,    .16222,   4.53311,    .34045,    .18499,
     +     .13981,    .27198,    .35575,
     +     .28128,    .16310,   4.51963,    .34290,    .18884,
     +     .14428,    .27510,    .35839,
     +     .28326,    .16388,   4.50398,    .34503,    .19226,
     +     .14825,    .27786,    .36069 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .28523,    .16465,   4.48670,    .34708,    .19560,
     +     .15215,    .28054,    .36290,
     +     .28715,    .16540,   4.46890,    .34904,    .19885,
     +     .15597,    .28312,    .36503,
     +     .28892,    .16606,   4.44892,    .35069,    .20170,
     +     .15930,    .28536,    .36684,
     +     .29059,    .16669,   4.43013,    .35226,    .20443,
     +     .16252,    .28749,    .36855,
     +     .29224,    .16730,   4.40932,    .35372,    .20703,
     +     .16559,    .28950,    .37015 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .22648,    .14455,   2.27623,    .17896,    .00000,
     +     .00000,    .09500,    .18960,
     +     .23022,    .14639,   2.37207,    .18202,    .00000,
     +     .00000,    .09891,    .19308,
     +     .23576,    .14908,   2.50564,    .18672,    .00370,
     +     .00000,    .10488,    .19839,
     +     .23973,    .15098,   2.58761,    .19019,    .00800,
     +     .00000,    .10927,    .20229,
     +     .24394,    .15297,   2.67324,    .19391,    .01534,
     +     .00000,    .11397,    .20646,
     +     .24753,    .15465,   2.74231,    .19714,    .02005,
     +     .00000,    .11806,    .21007,
     +     .25096,    .15623,   2.80561,    .20024,    .02495,
     +     .00000,    .12198,    .21353,
     +     .25457,    .15787,   2.86831,    .20352,    .02995,
     +     .00000,    .12614,    .21719 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .25767,    .15927,   2.91954,    .20636,    .03438,
     +     .00000,    .12973,    .22035,
     +     .26062,    .16059,   2.96565,    .20908,    .03850,
     +     .00000,    .13318,    .22338,
     +     .26297,    .16163,   3.00154,    .21125,    .04201,
     +     .00000,    .13593,    .22579,
     +     .26785,    .16375,   3.06238,    .21574,    .04885,
     +     .00071,    .14164,    .23077,
     +     .27197,    .16551,   3.10259,    .21948,    .05467,
     +     .00768,    .14644,    .23492,
     +     .27650,    .16741,   3.13954,    .22357,    .06117,
     +     .01709,    .15170,    .23945,
     +     .28110,    .16931,   3.17165,    .22765,    .06771,
     +     .02458,    .15700,    .24397,
     +     .28512,    .17093,   3.19305,    .23113,    .07330,
     +     .03092,    .16156,    .24783 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .28910,    .17251,   3.21042,    .23450,    .07890,
     +     .03751,    .16602,    .25158,
     +     .29232,    .17376,   3.22056,    .23716,    .08336,
     +     .04268,    .16958,    .25454,
     +     .29609,    .17520,   3.22752,    .24020,    .08854,
     +     .04867,    .17368,    .25792,
     +     .29937,    .17644,   3.23124,    .24279,    .09309,
     +     .05405,    .17722,    .26081,
     +     .30224,    .17748,   3.22922,    .24493,    .09691,
     +     .05841,    .18022,    .26320,
     +     .30583,    .17877,   3.22457,    .24756,    .10172,
     +     .06406,    .18391,    .26613,
     +     .30907,    .17990,   3.21591,    .24982,    .10600,
     +     .06906,    .18717,    .26867,
     +     .31199,    .18089,   3.20419,    .25175,    .10979,
     +     .07351,    .19002,    .27085 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .31485,    .18185,   3.19084,    .25359,    .11351,
     +     .07791,    .19277,    .27292,
     +     .31750,    .18270,   3.17355,    .25514,    .11683,
     +     .08182,    .19520,    .27468,
     +     .31999,    .18349,   3.15692,    .25658,    .11998,
     +     .08559,    .19747,    .27632,
     +     .32219,    .18415,   3.13743,    .25771,    .12264,
     +     .08874,    .19936,    .27761,
     +     .32440,    .18481,   3.11808,    .25883,    .12535,
     +     .09200,    .20124,    .27890,
     +     .32643,    .18538,   3.09601,    .25973,    .12775,
     +     .09488,    .20288,    .27995,
     +     .32835,    .18592,   3.07495,    .26055,    .13002,
     +     .09764,    .20441,    .28092,
     +     .33008,    .18638,   3.05335,    .26121,    .13201,
     +     .10006,    .20571,    .28169 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .33177,    .18683,   3.03080,    .26180,    .13394,
     +     .10242,    .20695,    .28240,
     +     .33341,    .18725,   3.00825,    .26233,    .13580,
     +     .10471,    .20812,    .28304,
     +     .33488,    .18759,   2.98497,    .26270,    .13740,
     +     .10669,    .20908,    .28350,
     +     .33627,    .18791,   2.96316,    .26304,    .13892,
     +     .10859,    .21000,    .28394,
     +     .33761,    .18821,   2.94008,    .26330,    .14035,
     +     .11039,    .21082,    .28428 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .26525,    .16840,   1.92500,    .16490,    .00000,
     +     .00000,    .08873,    .18064,
     +     .26934,    .17016,   1.99490,    .16695,    .00000,
     +     .00000,    .09172,    .18312,
     +     .27535,    .17271,   2.09100,    .17007,    .00300,
     +     .00000,    .09627,    .18689,
     +     .27962,    .17447,   2.14833,    .17236,    .00648,
     +     .00000,    .09958,    .18962,
     +     .28411,    .17631,   2.20766,    .17480,    .01239,
     +     .00000,    .10310,    .19251,
     +     .28791,    .17784,   2.25480,    .17691,    .01615,
     +     .00000,    .10615,    .19500,
     +     .29152,    .17926,   2.29744,    .17891,    .02005,
     +     .00000,    .10905,    .19736,
     +     .29528,    .18073,   2.33895,    .18102,    .02400,
     +     .00000,    .11210,    .19984 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .29849,    .18196,   2.37227,    .18282,    .02749,
     +     .00000,    .11472,    .20195,
     +     .30153,    .18310,   2.40166,    .18454,    .03072,
     +     .00000,    .11723,    .20395,
     +     .30395,    .18401,   2.42431,    .18591,    .03346,
     +     .00000,    .11922,    .20554,
     +     .30889,    .18581,   2.46007,    .18868,    .03876,
     +     .00058,    .12330,    .20876,
     +     .31304,    .18727,   2.48096,    .19094,    .04324,
     +     .00597,    .12669,    .21140,
     +     .31756,    .18884,   2.49788,    .19338,    .04822,
     +     .01326,    .13038,    .21423,
     +     .32207,    .19035,   2.51046,    .19577,    .05318,
     +     .01902,    .13404,    .21699,
     +     .32598,    .19161,   2.51590,    .19772,    .05738,
     +     .02384,    .13714,    .21927 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .32980,    .19281,   2.51813,    .19959,    .06156,
     +     .02883,    .14014,    .22145,
     +     .33284,    .19374,   2.51668,    .20103,    .06486,
     +     .03272,    .14250,    .22311,
     +     .33638,    .19477,   2.51092,    .20259,    .06867,
     +     .03720,    .14518,    .22494,
     +     .33944,    .19563,   2.50407,    .20390,    .07199,
     +     .04119,    .14746,    .22647,
     +     .34205,    .19633,   2.49371,    .20491,    .07474,
     +     .04440,    .14935,    .22766,
     +     .34529,    .19716,   2.47913,    .20612,    .07819,
     +     .04854,    .15165,    .22908,
     +     .34817,    .19786,   2.46230,    .20709,    .08123,
     +     .05217,    .15363,    .23024,
     +     .35073,    .19843,   2.44403,    .20785,    .08389,
     +     .05537,    .15532,    .23115 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .35321,    .19897,   2.42473,    .20853,    .08649,
     +     .05853,    .15692,    .23199,
     +     .35544,    .19940,   2.40282,    .20901,    .08877,
     +     .06129,    .15828,    .23259,
     +     .35753,    .19979,   2.38208,    .20944,    .09094,
     +     .06396,    .15955,    .23313,
     +     .35932,    .20007,   2.35986,    .20967,    .09272,
     +     .06616,    .16054,    .23344,
     +     .36111,    .20034,   2.33790,    .20990,    .09454,
     +     .06842,    .16152,    .23375,
     +     .36270,    .20054,   2.31419,    .20997,    .09612,
     +     .07040,    .16232,    .23388,
     +     .36420,    .20072,   2.29175,    .21002,    .09761,
     +     .07229,    .16306,    .23399,
     +     .36551,    .20083,   2.26945,    .20997,    .09890,
     +     .07393,    .16364,    .23397 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .36678,    .20091,   2.24655,    .20986,    .10013,
     +     .07551,    .16417,    .23390,
     +     .36799,    .20098,   2.22387,    .20973,    .10131,
     +     .07705,    .16466,    .23379,
     +     .36903,    .20100,   2.20109,    .20949,    .10230,
     +     .07835,    .16501,    .23357,
     +     .37001,    .20101,   2.17979,    .20927,    .10324,
     +     .07960,    .16534,    .23337,
     +     .37093,    .20098,   2.15767,    .20898,    .10411,
     +     .08077,    .16560,    .23309 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .33599,    .20624,   1.44707,    .14045,    .00000,
     +     .00000,    .07840,    .16619,
     +     .34021,    .20758,   1.49331,    .14128,    .00000,
     +     .00000,    .08027,    .16735,
     +     .34631,    .20948,   1.55544,    .14257,    .00218,
     +     .00000,    .08308,    .16910,
     +     .35055,    .21071,   1.59057,    .14348,    .00470,
     +     .00000,    .08510,    .17033,
     +     .35498,    .21197,   1.62633,    .14445,    .00896,
     +     .00000,    .08723,    .17161,
     +     .35865,    .21298,   1.65379,    .14528,    .01164,
     +     .00000,    .08905,    .17268,
     +     .36209,    .21389,   1.67790,    .14605,    .01440,
     +     .00000,    .09077,    .17367,
     +     .36561,    .21479,   1.70040,    .14685,    .01717,
     +     .00000,    .09256,    .17468 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .36858,    .21551,   1.71765,    .14751,    .01960,
     +     .00000,    .09407,    .17551,
     +     .37135,    .21615,   1.73204,    .14813,    .02184,
     +     .00000,    .09550,    .17627,
     +     .37353,    .21664,   1.74288,    .14861,    .02373,
     +     .00000,    .09663,    .17687,
     +     .37788,    .21755,   1.75658,    .14953,    .02733,
     +     .00043,    .09889,    .17800,
     +     .38142,    .21822,   1.76094,    .15024,    .03034,
     +     .00408,    .10073,    .17885,
     +     .38520,    .21887,   1.76103,    .15094,    .03365,
     +     .00902,    .10268,    .17970,
     +     .38887,    .21941,   1.75738,    .15154,    .03690,
     +     .01286,    .10456,    .18042,
     +     .39191,    .21978,   1.74973,    .15195,    .03961,
     +     .01604,    .10608,    .18089 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .39481,    .22006,   1.73979,    .15228,    .04227,
     +     .01930,    .10752,    .18126,
     +     .39704,    .22021,   1.72928,    .15246,    .04435,
     +     .02181,    .10860,    .18147,
     +     .39954,    .22029,   1.71387,    .15257,    .04670,
     +     .02466,    .10978,    .18158,
     +     .40163,    .22032,   1.69919,    .15261,    .04873,
     +     .02719,    .11075,    .18162,
     +     .40331,    .22024,   1.68297,    .15253,    .05038,
     +     .02918,    .11148,    .18149,
     +     .40532,    .22008,   1.66168,    .15237,    .05242,
     +     .03173,    .11235,    .18127,
     +     .40700,    .21985,   1.63983,    .15211,    .05418,
     +     .03394,    .11302,    .18093,
     +     .40840,    .21955,   1.61790,    .15177,    .05570,
     +     .03585,    .11354,    .18051 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .40970,    .21921,   1.59557,    .15138,    .05715,
     +     .03772,    .11399,    .18003,
     +     .41074,    .21877,   1.57197,    .15089,    .05839,
     +     .03933,    .11430,    .17942,
     +     .41169,    .21835,   1.54990,    .15041,    .05956,
     +     .04086,    .11457,    .17883,
     +     .41236,    .21787,   1.52756,    .14984,    .06049,
     +     .04210,    .11469,    .17815,
     +     .41302,    .21739,   1.50559,    .14928,    .06143,
     +     .04337,    .11480,    .17746,
     +     .41349,    .21682,   1.48289,    .14863,    .06222,
     +     .04445,    .11480,    .17667,
     +     .41391,    .21628,   1.46160,    .14801,    .06295,
     +     .04547,    .11479,    .17592,
     +     .41419,    .21572,   1.44095,    .14736,    .06355,
     +     .04634,    .11471,    .17514 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .41440,    .21513,   1.42005,    .14668,    .06412,
     +     .04717,    .11459,    .17432,
     +     .41456,    .21454,   1.39958,    .14600,    .06465,
     +     .04797,    .11444,    .17350,
     +     .41458,    .21392,   1.37953,    .14528,    .06507,
     +     .04862,    .11423,    .17263,
     +     .41460,    .21334,   1.36087,    .14462,    .06547,
     +     .04925,    .11403,    .17182,
     +     .41454,    .21271,   1.34180,    .14390,    .06582,
     +     .04982,    .11378,    .17095 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .39877,    .23434,   1.15855,    .11893,    .00000,
     +     .00000,    .06939,    .15300,
     +     .40256,    .23507,   1.19451,    .11914,    .00000,
     +     .00000,    .07061,    .15332,
     +     .40798,    .23601,   1.24158,    .11948,    .00173,
     +     .00000,    .07246,    .15379,
     +     .41160,    .23654,   1.26674,    .11973,    .00372,
     +     .00000,    .07377,    .15408,
     +     .41534,    .23704,   1.29184,    .11998,    .00707,
     +     .00000,    .07513,    .15436,
     +     .41837,    .23737,   1.31017,    .12018,    .00915,
     +     .00000,    .07628,    .15457,
     +     .42114,    .23762,   1.32563,    .12036,    .01128,
     +     .00000,    .07735,    .15474,
     +     .42392,    .23781,   1.33916,    .12052,    .01341,
     +     .00000,    .07844,    .15486 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .42621,    .23792,   1.34882,    .12064,    .01526,
     +     .00000,    .07935,    .15493,
     +     .42829,    .23796,   1.35611,    .12073,    .01695,
     +     .00000,    .08019,    .15496,
     +     .42991,    .23798,   1.36137,    .12079,    .01837,
     +     .00000,    .08085,    .15497,
     +     .43300,    .23784,   1.36461,    .12085,    .02105,
     +     .00034,    .08214,    .15488,
     +     .43539,    .23761,   1.36133,    .12082,    .02327,
     +     .00305,    .08315,    .15469,
     +     .43783,    .23726,   1.35378,    .12073,    .02567,
     +     .00672,    .08418,    .15439,
     +     .44006,    .23675,   1.34281,    .12053,    .02800,
     +     .00953,    .08513,    .15397,
     +     .44174,    .23615,   1.32946,    .12025,    .02991,
     +     .01183,    .08584,    .15343 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .44323,    .23547,   1.31435,    .11990,    .03177,
     +     .01416,    .08647,    .15282,
     +     .44428,    .23483,   1.30015,    .11954,    .03320,
     +     .01594,    .08690,    .15224,
     +     .44529,    .23395,   1.28097,    .11903,    .03479,
     +     .01794,    .08732,    .15142,
     +     .44607,    .23313,   1.26337,    .11854,    .03615,
     +     .01969,    .08764,    .15065,
     +     .44651,    .23228,   1.24527,    .11800,    .03723,
     +     .02106,    .08781,    .14984,
     +     .44694,    .23116,   1.22204,    .11729,    .03855,
     +     .02279,    .08798,    .14877,
     +     .44712,    .23002,   1.19907,    .11654,    .03966,
     +     .02426,    .08802,    .14769,
     +     .44709,    .22888,   1.17670,    .11578,    .04059,
     +     .02552,    .08799,    .14660 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .44696,    .22772,   1.15428,    .11499,    .04148,
     +     .02673,    .08791,    .14548,
     +     .44659,    .22648,   1.13131,    .11413,    .04221,
     +     .02776,    .08772,    .14429,
     +     .44622,    .22532,   1.10999,    .11332,    .04288,
     +     .02873,    .08754,    .14317,
     +     .44562,    .22413,   1.08900,    .11249,    .04340,
     +     .02949,    .08727,    .14202,
     +     .44502,    .22295,   1.06846,    .11166,    .04391,
     +     .03027,    .08701,    .14087,
     +     .44423,    .22172,   1.04769,    .11079,    .04431,
     +     .03092,    .08666,    .13968,
     +     .44345,    .22056,   1.02833,    .10996,    .04468,
     +     .03152,    .08633,    .13854,
     +     .44260,    .21942,   1.00983,    .10914,    .04497,
     +     .03203,    .08596,    .13743 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .44168,    .21824,    .99128,    .10829,    .04524,
     +     .03250,    .08557,    .13630,
     +     .44074,    .21708,    .97324,    .10745,    .04547,
     +     .03295,    .08517,    .13518,
     +     .43970,    .21592,    .95582,    .10662,    .04564,
     +     .03330,    .08475,    .13407,
     +     .43872,    .21484,    .93967,    .10583,    .04580,
     +     .03364,    .08434,    .13302,
     +     .43764,    .21371,    .92333,    .10502,    .04591,
     +     .03393,    .08390,    .13194 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45384,    .25493,    .98305,    .09995,    .00000,
     +     .00000,    .06114,    .13982,
     +     .45682,    .25496,   1.01238,    .09988,    .00000,
     +     .00000,    .06199,    .13956,
     +     .46092,    .25485,   1.04948,    .09979,    .00145,
     +     .00000,    .06325,    .13916,
     +     .46353,    .25460,   1.06778,    .09971,    .00310,
     +     .00000,    .06410,    .13882,
     +     .46615,    .25427,   1.08553,    .09962,    .00587,
     +     .00000,    .06499,    .13844,
     +     .46818,    .25388,   1.09753,    .09954,    .00758,
     +     .00000,    .06572,    .13808,
     +     .46997,    .25343,   1.10698,    .09943,    .00931,
     +     .00000,    .06640,    .13769,
     +     .47167,    .25288,   1.11427,    .09930,    .01103,
     +     .00000,    .06707,    .13723 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .47300,    .25233,   1.11865,    .09915,    .01251,
     +     .00000,    .06762,    .13680,
     +     .47414,    .25174,   1.12099,    .09899,    .01385,
     +     .00000,    .06811,    .13635,
     +     .47501,    .25127,   1.12238,    .09886,    .01497,
     +     .00000,    .06850,    .13599,
     +     .47642,    .25009,   1.11842,    .09851,    .01706,
     +     .00028,    .06919,    .13511,
     +     .47735,    .24896,   1.10988,    .09814,    .01877,
     +     .00240,    .06970,    .13427,
     +     .47813,    .24761,   1.09715,    .09767,    .02060,
     +     .00526,    .07019,    .13327,
     +     .47858,    .24607,   1.08136,    .09712,    .02235,
     +     .00742,    .07058,    .13214,
     +     .47865,    .24454,   1.06435,    .09651,    .02376,
     +     .00917,    .07081,    .13101 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .47852,    .24294,   1.04604,    .09586,    .02511,
     +     .01093,    .07098,    .12982,
     +     .47819,    .24155,   1.02962,    .09528,    .02613,
     +     .01225,    .07104,    .12877,
     +     .47752,    .23977,   1.00838,    .09450,    .02725,
     +     .01372,    .07102,    .12743,
     +     .47682,    .23818,    .98930,    .09379,    .02820,
     +     .01500,    .07097,    .12623,
     +     .47589,    .23662,    .97042,    .09308,    .02893,
     +     .01598,    .07083,    .12504,
     +     .47460,    .23462,    .94653,    .09215,    .02981,
     +     .01721,    .07062,    .12352,
     +     .47317,    .23269,    .92348,    .09123,    .03053,
     +     .01824,    .07034,    .12203,
     +     .47164,    .23081,    .90149,    .09032,    .03112,
     +     .01911,    .07001,    .12060 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .47003,    .22892,    .87971,    .08939,    .03167,
     +     .01994,    .06965,    .11916,
     +     .46820,    .22699,    .85786,    .08843,    .03210,
     +     .02062,    .06923,    .11769,
     +     .46646,    .22518,    .83772,    .08753,    .03249,
     +     .02126,    .06883,    .11631,
     +     .46459,    .22341,    .81829,    .08664,    .03276,
     +     .02176,    .06838,    .11494,
     +     .46272,    .22165,    .79935,    .08575,    .03304,
     +     .02226,    .06793,    .11359,
     +     .46069,    .21986,    .78051,    .08483,    .03323,
     +     .02265,    .06743,    .11224,
     +     .45875,    .21817,    .76304,    .08397,    .03340,
     +     .02303,    .06695,    .11097,
     +     .45681,    .21653,    .74652,    .08313,    .03352,
     +     .02333,    .06646,    .10974 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .45481,    .21488,    .73010,    .08227,    .03362,
     +     .02360,    .06596,    .10849,
     +     .45280,    .21325,    .71421,    .08143,    .03370,
     +     .02386,    .06547,    .10727,
     +     .45075,    .21167,    .69906,    .08060,    .03373,
     +     .02405,    .06496,    .10607,
     +     .44883,    .21018,    .68506,    .07983,    .03376,
     +     .02423,    .06448,    .10495,
     +     .44680,    .20866,    .67101,    .07904,    .03376,
     +     .02438,    .06397,    .10381 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .51187,    .27221,    .85637,    .07982,    .00000,
     +     .00000,    .05173,    .12301,
     +     .51344,    .27132,    .87821,    .07964,    .00000,
     +     .00000,    .05229,    .12228,
     +     .51536,    .26983,    .90406,    .07938,    .00121,
     +     .00000,    .05309,    .12119,
     +     .51630,    .26860,    .91461,    .07917,    .00258,
     +     .00000,    .05362,    .12033,
     +     .51715,    .26723,    .92412,    .07893,    .00486,
     +     .00000,    .05416,    .11940,
     +     .51765,    .26592,    .92917,    .07869,    .00624,
     +     .00000,    .05458,    .11858,
     +     .51793,    .26461,    .93208,    .07845,    .00763,
     +     .00000,    .05495,    .11777,
     +     .51799,    .26316,    .93269,    .07818,    .00899,
     +     .00000,    .05529,    .11686 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .51788,    .26183,    .93148,    .07791,    .01015,
     +     .00000,    .05555,    .11605,
     +     .51762,    .26050,    .92869,    .07763,    .01119,
     +     .00000,    .05578,    .11524,
     +     .51739,    .25943,    .92609,    .07741,    .01206,
     +     .00000,    .05595,    .11460,
     +     .51641,    .25701,    .91478,    .07686,    .01365,
     +     .00023,    .05620,    .11314,
     +     .51527,    .25482,    .90094,    .07633,    .01492,
     +     .00185,    .05633,    .11183,
     +     .51374,    .25231,    .88309,    .07569,    .01626,
     +     .00403,    .05641,    .11033,
     +     .51179,    .24961,    .86274,    .07495,    .01752,
     +     .00565,    .05640,    .10871,
     +     .50968,    .24705,    .84244,    .07422,    .01851,
     +     .00694,    .05628,    .10717 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .50736,    .24442,    .82139,    .07345,    .01944,
     +     .00822,    .05611,    .10558,
     +     .50525,    .24220,    .80323,    .07277,    .02013,
     +     .00916,    .05592,    .10424,
     +     .50243,    .23945,    .78051,    .07190,    .02087,
     +     .01021,    .05562,    .10258,
     +     .49985,    .23701,    .76050,    .07112,    .02148,
     +     .01110,    .05532,    .10110,
     +     .49721,    .23469,    .74138,    .07034,    .02193,
     +     .01177,    .05498,    .09970,
     +     .49380,    .23176,    .71754,    .06936,    .02246,
     +     .01260,    .05452,    .09793,
     +     .49038,    .22898,    .69506,    .06841,    .02288,
     +     .01328,    .05403,    .09624,
     +     .48703,    .22633,    .67404,    .06749,    .02320,
     +     .01385,    .05353,    .09465 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .48362,    .22369,    .65348,    .06656,    .02350,
     +     .01438,    .05302,    .09307,
     +     .48006,    .22107,    .63331,    .06561,    .02370,
     +     .01480,    .05246,    .09150,
     +     .47671,    .21862,    .61487,    .06474,    .02388,
     +     .01519,    .05193,    .09003,
     +     .47334,    .21625,    .59739,    .06387,    .02398,
     +     .01548,    .05139,    .08862,
     +     .47000,    .21392,    .58046,    .06303,    .02409,
     +     .01577,    .05085,    .08723,
     +     .46655,    .21158,    .56388,    .06217,    .02413,
     +     .01599,    .05028,    .08584,
     +     .46329,    .20938,    .54862,    .06137,    .02417,
     +     .01620,    .04975,    .08454,
     +     .46011,    .20729,    .53437,    .06059,    .02417,
     +     .01635,    .04923,    .08331 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .45687,    .20518,    .52031,    .05980,    .02415,
     +     .01649,    .04870,    .08208,
     +     .45368,    .20311,    .50680,    .05902,    .02412,
     +     .01661,    .04817,    .08088,
     +     .45052,    .20111,    .49406,    .05828,    .02407,
     +     .01669,    .04765,    .07972,
     +     .44756,    .19925,    .48233,    .05759,    .02401,
     +     .01677,    .04716,    .07864,
     +     .44451,    .19735,    .47067,    .05688,    .02394,
     +     .01682,    .04665,    .07754 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .55812,    .28180,    .78567,    .06353,    .00000,
     +     .00000,    .04328,    .10606,
     +     .55797,    .28002,    .79967,    .06337,    .00000,
     +     .00000,    .04368,    .10507,
     +     .55732,    .27723,    .81408,    .06313,    .00103,
     +     .00000,    .04424,    .10358,
     +     .55637,    .27502,    .81693,    .06289,    .00219,
     +     .00000,    .04457,    .10244,
     +     .55522,    .27265,    .81844,    .06263,    .00412,
     +     .00000,    .04490,    .10124,
     +     .55396,    .27049,    .81692,    .06237,    .00526,
     +     .00000,    .04513,    .10017,
     +     .55256,    .26838,    .81381,    .06210,    .00640,
     +     .00000,    .04532,    .09913,
     +     .55084,    .26609,    .80840,    .06179,    .00749,
     +     .00000,    .04546,    .09800 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .54918,    .26404,    .80227,    .06150,    .00842,
     +     .00000,    .04556,    .09700,
     +     .54743,    .26202,    .79505,    .06119,    .00924,
     +     .00000,    .04562,    .09602,
     +     .54601,    .26042,    .78906,    .06095,    .00992,
     +     .00000,    .04566,    .09524,
     +     .54256,    .25687,    .77168,    .06033,    .01114,
     +     .00019,    .04565,    .09352,
     +     .53927,    .25376,    .75358,    .05977,    .01211,
     +     .00145,    .04557,    .09199,
     +     .53538,    .25026,    .73177,    .05911,    .01311,
     +     .00315,    .04543,    .09025,
     +     .53102,    .24653,    .70809,    .05835,    .01402,
     +     .00440,    .04520,    .08843,
     +     .52675,    .24309,    .68560,    .05760,    .01472,
     +     .00536,    .04490,    .08673 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .52229,    .23961,    .66289,    .05682,    .01537,
     +     .00632,    .04456,    .08502,
     +     .51842,    .23670,    .64382,    .05615,    .01583,
     +     .00701,    .04424,    .08359,
     +     .51354,    .23313,    .62057,    .05529,    .01632,
     +     .00776,    .04380,    .08185,
     +     .50918,    .22999,    .60041,    .05453,    .01671,
     +     .00840,    .04338,    .08032,
     +     .50492,    .22709,    .58164,    .05380,    .01698,
     +     .00886,    .04295,    .07889,
     +     .49950,    .22343,    .55854,    .05287,    .01729,
     +     .00944,    .04239,    .07709,
     +     .49428,    .21998,    .53716,    .05197,    .01752,
     +     .00990,    .04182,    .07541,
     +     .48926,    .21674,    .51752,    .05111,    .01768,
     +     .01027,    .04127,    .07384 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .48423,    .21354,    .49853,    .05025,    .01782,
     +     .01061,    .04070,    .07229,
     +     .47912,    .21039,    .48019,    .04939,    .01789,
     +     .01087,    .04012,    .07076,
     +     .47433,    .20747,    .46354,    .04860,    .01794,
     +     .01111,    .03958,    .06934,
     +     .46966,    .20467,    .44803,    .04782,    .01795,
     +     .01128,    .03903,    .06801,
     +     .46504,    .20191,    .43308,    .04706,    .01795,
     +     .01145,    .03848,    .06670,
     +     .46037,    .19917,    .41865,    .04629,    .01792,
     +     .01156,    .03793,    .06541,
     +     .45599,    .19661,    .40544,    .04557,    .01788,
     +     .01167,    .03740,    .06421,
     +     .45176,    .19419,    .39323,    .04488,    .01782,
     +     .01174,    .03690,    .06307 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .44748,    .19178,    .38128,    .04420,    .01775,
     +     .01180,    .03640,    .06193,
     +     .44328,    .18942,    .36986,    .04354,    .01767,
     +     .01185,    .03590,    .06083,
     +     .43920,    .18715,    .35920,    .04289,    .01758,
     +     .01188,    .03541,    .05979,
     +     .43539,    .18503,    .34943,    .04229,    .01749,
     +     .01190,    .03495,    .05882,
     +     .43150,    .18289,    .33978,    .04168,    .01739,
     +     .01190,    .03449,    .05785 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .59293,    .28513,    .74132,    .05067,    .00000,
     +     .00000,    .03581,    .08950,
     +     .59093,    .28253,    .74732,    .05057,    .00000,
     +     .00000,    .03611,    .08840,
     +     .58754,    .27852,    .75034,    .05039,    .00089,
     +     .00000,    .03651,    .08673,
     +     .58458,    .27546,    .74581,    .05019,    .00188,
     +     .00000,    .03671,    .08548,
     +     .58131,    .27221,    .73979,    .04997,    .00351,
     +     .00000,    .03690,    .08415,
     +     .57821,    .26932,    .73229,    .04974,    .00446,
     +     .00000,    .03701,    .08299,
     +     .57508,    .26651,    .72380,    .04949,    .00540,
     +     .00000,    .03708,    .08186,
     +     .57155,    .26348,    .71318,    .04919,    .00629,
     +     .00000,    .03711,    .08066 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .56834,    .26082,    .70289,    .04890,    .00704,
     +     .00000,    .03711,    .07960,
     +     .56510,    .25821,    .69201,    .04860,    .00769,
     +     .00000,    .03707,    .07855,
     +     .56251,    .25616,    .68326,    .04836,    .00823,
     +     .00000,    .03704,    .07773,
     +     .55657,    .25168,    .66115,    .04779,    .00918,
     +     .00016,    .03689,    .07593,
     +     .55120,    .24780,    .63991,    .04725,    .00991,
     +     .00115,    .03669,    .07436,
     +     .54502,    .24347,    .61535,    .04661,    .01066,
     +     .00249,    .03641,    .07262,
     +     .53839,    .23891,    .58960,    .04588,    .01132,
     +     .00345,    .03607,    .07078,
     +     .53207,    .23476,    .56596,    .04518,    .01182,
     +     .00419,    .03568,    .06911 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .52563,    .23060,    .54257,    .04444,    .01226,
     +     .00491,    .03525,    .06744,
     +     .52016,    .22715,    .52335,    .04381,    .01257,
     +     .00542,    .03488,    .06605,
     +     .51341,    .22297,    .50035,    .04302,    .01288,
     +     .00597,    .03438,    .06437,
     +     .50744,    .21932,    .48069,    .04231,    .01312,
     +     .00643,    .03393,    .06291,
     +     .50175,    .21595,    .46279,    .04164,    .01328,
     +     .00675,    .03347,    .06157,
     +     .49457,    .21174,    .44100,    .04079,    .01344,
     +     .00715,    .03289,    .05990,
     +     .48777,    .20780,    .42118,    .03997,    .01355,
     +     .00746,    .03232,    .05834,
     +     .48130,    .20415,    .40319,    .03920,    .01361,
     +     .00771,    .03177,    .05689 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .47485,    .20056,    .38595,    .03844,    .01366,
     +     .00793,    .03122,    .05548,
     +     .46845,    .19704,    .36957,    .03768,    .01365,
     +     .00809,    .03066,    .05409,
     +     .46250,    .19378,    .35479,    .03697,    .01364,
     +     .00824,    .03014,    .05282,
     +     .45675,    .19068,    .34122,    .03629,    .01360,
     +     .00833,    .02962,    .05163,
     +     .45108,    .18764,    .32820,    .03562,    .01355,
     +     .00842,    .02912,    .05047,
     +     .44540,    .18466,    .31581,    .03496,    .01348,
     +     .00848,    .02861,    .04932,
     +     .44008,    .18188,    .30452,    .03435,    .01340,
     +     .00853,    .02813,    .04825,
     +     .43501,    .17926,    .29416,    .03377,    .01331,
     +     .00856,    .02768,    .04726 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42992,    .17665,    .28408,    .03318,    .01322,
     +     .00857,    .02723,    .04628,
     +     .42495,    .17410,    .27451,    .03261,    .01312,
     +     .00859,    .02678,    .04533,
     +     .42018,    .17165,    .26567,    .03205,    .01302,
     +     .00858,    .02635,    .04443,
     +     .41572,    .16937,    .25758,    .03153,    .01292,
     +     .00857,    .02595,    .04361,
     +     .41119,    .16709,    .24966,    .03101,    .01281,
     +     .00855,    .02554,    .04278 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .61689,    .28338,    .70647,    .04067,    .00000,
     +     .00000,    .02932,    .07380,
     +     .61300,    .28003,    .70475,    .04063,    .00000,
     +     .00000,    .02955,    .07270,
     +     .60683,    .27496,    .69716,    .04051,    .00077,
     +     .00000,    .02982,    .07107,
     +     .60186,    .27114,    .68594,    .04035,    .00161,
     +     .00000,    .02995,    .06983,
     +     .59650,    .26711,    .67328,    .04016,    .00299,
     +     .00000,    .03006,    .06852,
     +     .59165,    .26357,    .66068,    .03995,    .00378,
     +     .00000,    .03010,    .06738,
     +     .58684,    .26016,    .64770,    .03971,    .00456,
     +     .00000,    .03010,    .06628,
     +     .58155,    .25652,    .63284,    .03943,    .00528,
     +     .00000,    .03006,    .06511 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .57683,    .25335,    .61928,    .03917,    .00588,
     +     .00000,    .03000,    .06407,
     +     .57216,    .25026,    .60562,    .03889,    .00640,
     +     .00000,    .02993,    .06306,
     +     .56846,    .24784,    .59482,    .03867,    .00682,
     +     .00000,    .02985,    .06226,
     +     .56022,    .24260,    .56936,    .03812,    .00755,
     +     .00013,    .02961,    .06056,
     +     .55295,    .23808,    .54611,    .03760,    .00811,
     +     .00092,    .02936,    .05908,
     +     .54473,    .23306,    .52002,    .03698,    .00866,
     +     .00197,    .02903,    .05744,
     +     .53598,    .22787,    .49335,    .03630,    .00914,
     +     .00272,    .02864,    .05574,
     +     .52784,    .22319,    .46952,    .03565,    .00949,
     +     .00328,    .02823,    .05419 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .51963,    .21852,    .44633,    .03498,    .00979,
     +     .00382,    .02779,    .05265,
     +     .51277,    .21466,    .42762,    .03440,    .00999,
     +     .00420,    .02741,    .05138,
     +     .50436,    .21004,    .40559,    .03368,    .01018,
     +     .00460,    .02691,    .04987,
     +     .49698,    .20603,    .38697,    .03305,    .01032,
     +     .00493,    .02645,    .04857,
     +     .49006,    .20234,    .37030,    .03245,    .01040,
     +     .00516,    .02602,    .04736,
     +     .48140,    .19776,    .35021,    .03169,    .01047,
     +     .00544,    .02547,    .04587,
     +     .47326,    .19351,    .33217,    .03096,    .01050,
     +     .00565,    .02494,    .04450,
     +     .46562,    .18957,    .31602,    .03027,    .01051,
     +     .00580,    .02443,    .04324 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45807,    .18571,    .30069,    .02960,    .01049,
     +     .00594,    .02392,    .04201,
     +     .45062,    .18194,    .28632,    .02893,    .01044,
     +     .00604,    .02341,    .04083,
     +     .44371,    .17847,    .27343,    .02832,    .01040,
     +     .00613,    .02294,    .03974,
     +     .43711,    .17521,    .26174,    .02773,    .01033,
     +     .00618,    .02248,    .03872,
     +     .43062,    .17203,    .25057,    .02716,    .01025,
     +     .00622,    .02204,    .03772,
     +     .42418,    .16890,    .24002,    .02659,    .01016,
     +     .00624,    .02158,    .03677,
     +     .41816,    .16599,    .23046,    .02606,    .01007,
     +     .00626,    .02116,    .03589,
     +     .41248,    .16326,    .22178,    .02556,    .00998,
     +     .00626,    .02077,    .03506 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40679,    .16055,    .21339,    .02506,    .00988,
     +     .00626,    .02038,    .03423,
     +     .40125,    .15792,    .20547,    .02458,    .00978,
     +     .00625,    .02000,    .03343,
     +     .39594,    .15542,    .19820,    .02412,    .00967,
     +     .00623,    .01963,    .03268,
     +     .39099,    .15308,    .19157,    .02370,    .00957,
     +     .00621,    .01929,    .03199,
     +     .38599,    .15075,    .18511,    .02326,    .00947,
     +     .00618,    .01895,    .03131 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .63073,    .27745,    .67211,    .03293,    .00000,
     +     .00000,    .02371,    .05950,
     +     .62500,    .27345,    .66346,    .03290,    .00000,
     +     .00000,    .02390,    .05851,
     +     .61614,    .26746,    .64663,    .03281,    .00065,
     +     .00000,    .02412,    .05699,
     +     .60926,    .26301,    .62981,    .03267,    .00137,
     +     .00000,    .02421,    .05584,
     +     .60194,    .25834,    .61174,    .03249,    .00253,
     +     .00000,    .02427,    .05464,
     +     .59541,    .25427,    .59507,    .03229,    .00319,
     +     .00000,    .02427,    .05359,
     +     .58904,    .25037,    .57867,    .03207,    .00382,
     +     .00000,    .02424,    .05258,
     +     .58213,    .24624,    .56071,    .03180,    .00440,
     +     .00000,    .02416,    .05151 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .57603,    .24265,    .54483,    .03155,    .00488,
     +     .00000,    .02407,    .05057,
     +     .57004,    .23919,    .52927,    .03129,    .00529,
     +     .00000,    .02397,    .04966,
     +     .56532,    .23648,    .51711,    .03109,    .00562,
     +     .00000,    .02388,    .04894,
     +     .55502,    .23065,    .48974,    .03057,    .00618,
     +     .00011,    .02361,    .04739,
     +     .54604,    .22566,    .46560,    .03007,    .00660,
     +     .00073,    .02333,    .04608,
     +     .53598,    .22016,    .43910,    .02949,    .00701,
     +     .00156,    .02299,    .04463,
     +     .52538,    .21453,    .41255,    .02889,    .00735,
     +     .00214,    .02258,    .04311,
     +     .51569,    .20946,    .38937,    .02828,    .00758,
     +     .00256,    .02219,    .04175 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50600,    .20443,    .36711,    .02766,    .00778,
     +     .00297,    .02177,    .04042,
     +     .49797,    .20030,    .34937,    .02713,    .00791,
     +     .00325,    .02140,    .03932,
     +     .48821,    .19538,    .32883,    .02648,    .00801,
     +     .00354,    .02094,    .03801,
     +     .47968,    .19113,    .31167,    .02592,    .00809,
     +     .00378,    .02053,    .03689,
     +     .47180,    .18724,    .29651,    .02537,    .00812,
     +     .00394,    .02012,    .03587,
     +     .46196,    .18243,    .27840,    .02469,    .00814,
     +     .00413,    .01962,    .03462,
     +     .45274,    .17799,    .26232,    .02407,    .00812,
     +     .00427,    .01914,    .03346,
     +     .44416,    .17390,    .24810,    .02348,    .00809,
     +     .00437,    .01869,    .03240 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43574,    .16993,    .23473,    .02289,    .00804,
     +     .00446,    .01825,    .03137,
     +     .42749,    .16606,    .22231,    .02232,    .00798,
     +     .00451,    .01780,    .03038,
     +     .41987,    .16251,    .21124,    .02179,    .00791,
     +     .00456,    .01738,    .02947,
     +     .41265,    .15919,    .20129,    .02128,    .00783,
     +     .00458,    .01700,    .02864,
     +     .40557,    .15594,    .19184,    .02079,    .00775,
     +     .00460,    .01662,    .02782,
     +     .39860,    .15277,    .18300,    .02030,    .00765,
     +     .00460,    .01624,    .02704,
     +     .39212,    .14982,    .17502,    .01984,    .00756,
     +     .00460,    .01588,    .02632,
     +     .38599,    .14707,    .16784,    .01942,    .00747,
     +     .00459,    .01554,    .02565 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37988,    .14435,    .16094,    .01900,    .00738,
     +     .00457,    .01521,    .02500,
     +     .37395,    .14172,    .15444,    .01860,    .00728,
     +     .00455,    .01488,    .02436,
     +     .36832,    .13922,    .14852,    .01821,    .00719,
     +     .00453,    .01458,    .02376,
     +     .36308,    .13690,    .14313,    .01786,    .00710,
     +     .00450,    .01430,    .02320,
     +     .35780,    .13458,    .13792,    .01750,    .00700,
     +     .00447,    .01402,    .02265 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .63527,    .26812,    .63397,    .02689,    .00000,
     +     .00000,    .01899,    .04685,
     +     .62780,    .26362,    .61955,    .02688,    .00000,
     +     .00000,    .01916,    .04597,
     +     .61642,    .25691,    .59527,    .02678,    .00055,
     +     .00000,    .01934,    .04467,
     +     .60777,    .25197,    .57415,    .02665,    .00115,
     +     .00000,    .01938,    .04367,
     +     .59863,    .24681,    .55205,    .02648,    .00212,
     +     .00000,    .01940,    .04261,
     +     .59057,    .24235,    .53253,    .02630,    .00266,
     +     .00000,    .01937,    .04169,
     +     .58278,    .23809,    .51380,    .02610,    .00318,
     +     .00000,    .01932,    .04081,
     +     .57443,    .23359,    .49385,    .02584,    .00364,
     +     .00000,    .01922,    .03988 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .56711,    .22970,    .47660,    .02560,    .00402,
     +     .00000,    .01912,    .03907,
     +     .55998,    .22597,    .46004,    .02535,    .00434,
     +     .00000,    .01899,    .03829,
     +     .55439,    .22305,    .44721,    .02515,    .00460,
     +     .00000,    .01888,    .03768,
     +     .54230,    .21680,    .41921,    .02466,    .00502,
     +     .00009,    .01861,    .03636,
     +     .53184,    .21151,    .39515,    .02421,    .00533,
     +     .00058,    .01834,    .03522,
     +     .52020,    .20571,    .36923,    .02369,    .00563,
     +     .00122,    .01801,    .03397,
     +     .50813,    .19976,    .34371,    .02310,    .00587,
     +     .00167,    .01764,    .03270,
     +     .49720,    .19443,    .32178,    .02254,    .00602,
     +     .00199,    .01727,    .03156 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48630,    .18919,    .30099,    .02198,    .00615,
     +     .00230,    .01689,    .03045,
     +     .47727,    .18495,    .28464,    .02152,    .00622,
     +     .00250,    .01655,    .02953,
     +     .46644,    .17988,    .26592,    .02095,    .00628,
     +     .00271,    .01612,    .02845,
     +     .45704,    .17550,    .25042,    .02045,    .00631,
     +     .00288,    .01575,    .02752,
     +     .44841,    .17153,    .23692,    .01996,    .00631,
     +     .00300,    .01540,    .02670,
     +     .43769,    .16663,    .22093,    .01935,    .00629,
     +     .00313,    .01496,    .02568,
     +     .42774,    .16213,    .20690,    .01879,    .00626,
     +     .00322,    .01455,    .02472,
     +     .41851,    .15799,    .19460,    .01827,    .00620,
     +     .00328,    .01416,    .02386 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40948,    .15398,    .18310,    .01777,    .00615,
     +     .00333,    .01378,    .02304,
     +     .40070,    .15011,    .17253,    .01727,    .00607,
     +     .00336,    .01341,    .02224,
     +     .39261,    .14656,    .16316,    .01682,    .00600,
     +     .00339,    .01308,    .02150,
     +     .38497,    .14325,    .15485,    .01640,    .00592,
     +     .00339,    .01275,    .02083,
     +     .37749,    .14002,    .14697,    .01600,    .00584,
     +     .00340,    .01242,    .02018,
     +     .37020,    .13689,    .13967,    .01557,    .00575,
     +     .00339,    .01210,    .01956,
     +     .36343,    .13399,    .13310,    .01517,    .00567,
     +     .00338,    .01181,    .01900,
     +     .35706,    .13128,    .12722,    .01482,    .00559,
     +     .00336,    .01154,    .01847 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .35072,    .12860,    .12158,    .01448,    .00550,
     +     .00334,    .01128,    .01795,
     +     .34459,    .12602,    .11631,    .01415,    .00542,
     +     .00332,    .01102,    .01745,
     +     .33876,    .12359,    .11152,    .01384,    .00533,
     +     .00329,    .01076,    .01699,
     +     .33335,    .12133,    .10719,    .01355,    .00525,
     +     .00327,    .01053,    .01656,
     +     .32793,    .11909,    .10302,    .01326,    .00517,
     +     .00324,    .01029,    .01614 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .63113,    .25648,    .59093,    .02237,    .00000,
     +     .00000,    .01487,    .03585,
     +     .62210,    .25156,    .57201,    .02234,    .00000,
     +     .00000,    .01502,    .03514,
     +     .60849,    .24428,    .54217,    .02223,    .00047,
     +     .00000,    .01517,    .03407,
     +     .59828,    .23895,    .51808,    .02206,    .00097,
     +     .00000,    .01521,    .03326,
     +     .58755,    .23342,    .49337,    .02187,    .00177,
     +     .00000,    .01522,    .03240,
     +     .57819,    .22866,    .47214,    .02167,    .00221,
     +     .00000,    .01518,    .03165,
     +     .56920,    .22413,    .45214,    .02145,    .00262,
     +     .00000,    .01513,    .03093,
     +     .55965,    .21935,    .43124,    .02119,    .00299,
     +     .00000,    .01504,    .03016 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .55133,    .21524,    .41346,    .02094,    .00329,
     +     .00000,    .01494,    .02950,
     +     .54328,    .21131,    .39663,    .02068,    .00354,
     +     .00000,    .01482,    .02886,
     +     .53697,    .20824,    .38370,    .02048,    .00374,
     +     .00000,    .01473,    .02836,
     +     .52339,    .20175,    .35616,    .02000,    .00406,
     +     .00008,    .01448,    .02727,
     +     .51176,    .19626,    .33298,    .01956,    .00428,
     +     .00045,    .01424,    .02636,
     +     .49891,    .19027,    .30836,    .01906,    .00450,
     +     .00096,    .01394,    .02535,
     +     .48563,    .18419,    .28447,    .01855,    .00466,
     +     .00130,    .01359,    .02432,
     +     .47370,    .17875,    .26428,    .01804,    .00476,
     +     .00155,    .01327,    .02340 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46189,    .17343,    .24536,    .01753,    .00483,
     +     .00177,    .01294,    .02249,
     +     .45221,    .16912,    .23066,    .01711,    .00487,
     +     .00192,    .01265,    .02174,
     +     .44063,    .16400,    .21399,    .01657,    .00489,
     +     .00208,    .01229,    .02089,
     +     .43063,    .15961,    .20031,    .01610,    .00489,
     +     .00220,    .01196,    .02017,
     +     .42144,    .15565,    .18850,    .01571,    .00487,
     +     .00227,    .01167,    .01949,
     +     .41010,    .15076,    .17462,    .01520,    .00484,
     +     .00236,    .01130,    .01866,
     +     .39967,    .14629,    .16257,    .01471,    .00479,
     +     .00242,    .01096,    .01793,
     +     .39002,    .14222,    .15211,    .01427,    .00473,
     +     .00246,    .01064,    .01726 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .38059,    .13828,    .14239,    .01384,    .00467,
     +     .00249,    .01032,    .01660,
     +     .37150,    .13449,    .13355,    .01341,    .00460,
     +     .00250,    .01001,    .01599,
     +     .36315,    .13102,    .12575,    .01302,    .00453,
     +     .00251,    .00972,    .01543,
     +     .35531,    .12779,    .11886,    .01266,    .00446,
     +     .00251,    .00945,    .01491,
     +     .34766,    .12464,    .11237,    .01231,    .00438,
     +     .00250,    .00919,    .01441,
     +     .34021,    .12160,    .10640,    .01196,    .00431,
     +     .00249,    .00894,    .01393,
     +     .33331,    .11878,    .10106,    .01164,    .00423,
     +     .00247,    .00871,    .01350,
     +     .32685,    .11617,    .09630,    .01134,    .00416,
     +     .00245,    .00848,    .01310 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .32044,    .11360,    .09176,    .01106,    .00409,
     +     .00243,    .00826,    .01271,
     +     .31425,    .11112,    .08752,    .01078,    .00401,
     +     .00241,    .00805,    .01234,
     +     .30842,    .10879,    .08372,    .01051,    .00394,
     +     .00239,    .00786,    .01198,
     +     .30301,    .10664,    .08028,    .01026,    .00387,
     +     .00236,    .00769,    .01165,
     +     .29759,    .10450,    .07697,    .01002,    .00381,
     +     .00234,    .00751,    .01133 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .61979,    .24232,    .54269,    .01836,    .00000,
     +     .00000,    .01168,    .02695,
     +     .60937,    .23714,    .52065,    .01832,    .00000,
     +     .00000,    .01180,    .02639,
     +     .59379,    .22951,    .48725,    .01820,    .00038,
     +     .00000,    .01192,    .02552,
     +     .58223,    .22394,    .46154,    .01804,    .00079,
     +     .00000,    .01194,    .02488,
     +     .57015,    .21817,    .43554,    .01785,    .00145,
     +     .00000,    .01193,    .02420,
     +     .55968,    .21324,    .41361,    .01765,    .00180,
     +     .00000,    .01189,    .02360,
     +     .54968,    .20857,    .39327,    .01744,    .00213,
     +     .00000,    .01183,    .02303,
     +     .53909,    .20366,    .37236,    .01719,    .00242,
     +     .00000,    .01173,    .02242 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .52991,    .19946,    .35480,    .01696,    .00265,
     +     .00000,    .01164,    .02188,
     +     .52108,    .19544,    .33838,    .01672,    .00284,
     +     .00000,    .01153,    .02136,
     +     .51418,    .19232,    .32584,    .01653,    .00299,
     +     .00000,    .01145,    .02096,
     +     .49945,    .18573,    .29960,    .01610,    .00323,
     +     .00006,    .01121,    .02010,
     +     .48690,    .18017,    .27792,    .01570,    .00339,
     +     .00035,    .01098,    .01938,
     +     .47312,    .17413,    .25521,    .01524,    .00354,
     +     .00074,    .01072,    .01858,
     +     .45903,    .16801,    .23348,    .01476,    .00365,
     +     .00100,    .01043,    .01777,
     +     .44638,    .16262,    .21530,    .01430,    .00371,
     +     .00118,    .01015,    .01704 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43393,    .15735,    .19844,    .01386,    .00375,
     +     .00135,    .00986,    .01633,
     +     .42378,    .15309,    .18547,    .01350,    .00376,
     +     .00146,    .00960,    .01575,
     +     .41169,    .14804,    .17090,    .01303,    .00376,
     +     .00157,    .00930,    .01508,
     +     .40128,    .14371,    .15904,    .01263,    .00375,
     +     .00165,    .00904,    .01451,
     +     .39183,    .13982,    .14893,    .01227,    .00372,
     +     .00170,    .00879,    .01400,
     +     .38018,    .13506,    .13713,    .01183,    .00368,
     +     .00176,    .00848,    .01337,
     +     .36944,    .13072,    .12697,    .01143,    .00363,
     +     .00180,    .00820,    .01280,
     +     .35961,    .12677,    .11820,    .01105,    .00357,
     +     .00182,    .00794,    .01229 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .35006,    .12295,    .11010,    .01067,    .00352,
     +     .00184,    .00767,    .01181,
     +     .34087,    .11929,    .10280,    .01031,    .00345,
     +     .00184,    .00742,    .01135,
     +     .33245,    .11594,    .09638,    .00998,    .00339,
     +     .00184,    .00719,    .01092,
     +     .32457,    .11286,    .09079,    .00968,    .00332,
     +     .00183,    .00698,    .01053,
     +     .31690,    .10987,    .08554,    .00940,    .00326,
     +     .00183,    .00677,    .01014,
     +     .30944,    .10699,    .08072,    .00912,    .00319,
     +     .00181,    .00657,    .00978,
     +     .30255,    .10433,    .07642,    .00886,    .00313,
     +     .00180,    .00638,    .00946,
     +     .29615,    .10185,    .07262,    .00861,    .00307,
     +     .00178,    .00620,    .00916 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .28983,    .09941,    .06901,    .00836,    .00301,
     +     .00176,    .00603,    .00888,
     +     .28374,    .09707,    .06565,    .00812,    .00295,
     +     .00174,    .00586,    .00861,
     +     .27798,    .09488,    .06263,    .00791,    .00289,
     +     .00172,    .00571,    .00834,
     +     .27264,    .09287,    .05991,    .00771,    .00283,
     +     .00170,    .00556,    .00809,
     +     .26732,    .09086,    .05731,    .00752,    .00278,
     +     .00168,    .00542,    .00786 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .60174,    .22687,    .49098,    .01517,    .00000,
     +     .00000,    .00900,    .01968,
     +     .59016,    .22149,    .46713,    .01510,    .00000,
     +     .00000,    .00910,    .01928,
     +     .57299,    .21361,    .43197,    .01494,    .00031,
     +     .00000,    .00920,    .01866,
     +     .56034,    .20793,    .40575,    .01477,    .00065,
     +     .00000,    .00921,    .01817,
     +     .54717,    .20206,    .37957,    .01457,    .00117,
     +     .00000,    .00920,    .01765,
     +     .53584,    .19705,    .35788,    .01437,    .00145,
     +     .00000,    .00916,    .01719,
     +     .52505,    .19232,    .33800,    .01416,    .00171,
     +     .00000,    .00911,    .01674,
     +     .51368,    .18738,    .31780,    .01392,    .00193,
     +     .00000,    .00904,    .01626 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .50387,    .18316,    .30103,    .01371,    .00211,
     +     .00000,    .00895,    .01585,
     +     .49447,    .17913,    .28551,    .01350,    .00225,
     +     .00000,    .00885,    .01546,
     +     .48713,    .17601,    .27373,    .01333,    .00237,
     +     .00000,    .00876,    .01515,
     +     .47161,    .16944,    .24942,    .01291,    .00254,
     +     .00005,    .00856,    .01450,
     +     .45844,    .16393,    .22964,    .01254,    .00266,
     +     .00027,    .00837,    .01395,
     +     .44404,    .15795,    .20916,    .01212,    .00276,
     +     .00057,    .00815,    .01335,
     +     .42938,    .15195,    .18977,    .01170,    .00283,
     +     .00076,    .00789,    .01272,
     +     .41634,    .14664,    .17378,    .01129,    .00286,
     +     .00090,    .00766,    .01217 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40356,    .14147,    .15910,    .01089,    .00288,
     +     .00102,    .00742,    .01164,
     +     .39318,    .13732,    .14790,    .01057,    .00288,
     +     .00110,    .00721,    .01120,
     +     .38084,    .13244,    .13543,    .01018,    .00287,
     +     .00117,    .00696,    .01070,
     +     .37024,    .12828,    .12536,    .00985,    .00285,
     +     .00123,    .00675,    .01027,
     +     .36069,    .12453,    .11683,    .00953,    .00282,
     +     .00127,    .00655,    .00989,
     +     .34896,    .11995,    .10693,    .00914,    .00277,
     +     .00130,    .00630,    .00942,
     +     .33824,    .11579,    .09848,    .00879,    .00273,
     +     .00133,    .00606,    .00900,
     +     .32842,    .11202,    .09125,    .00847,    .00268,
     +     .00134,    .00585,    .00861 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .31890,    .10840,    .08462,    .00817,    .00262,
     +     .00135,    .00564,    .00824,
     +     .30975,    .10494,    .07869,    .00789,    .00257,
     +     .00134,    .00544,    .00789,
     +     .30138,    .10179,    .07350,    .00763,    .00251,
     +     .00134,    .00526,    .00758,
     +     .29366,    .09887,    .06899,    .00737,    .00246,
     +     .00133,    .00509,    .00730,
     +     .28615,    .09603,    .06478,    .00712,    .00241,
     +     .00132,    .00492,    .00703,
     +     .27884,    .09334,    .06094,    .00690,    .00235,
     +     .00131,    .00476,    .00675,
     +     .27209,    .09086,    .05753,    .00669,    .00230,
     +     .00130,    .00462,    .00650,
     +     .26585,    .08856,    .05452,    .00649,    .00225,
     +     .00128,    .00448,    .00628 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .25970,    .08629,    .05168,    .00629,    .00220,
     +     .00126,    .00435,    .00607,
     +     .25378,    .08412,    .04904,    .00610,    .00215,
     +     .00125,    .00422,    .00588,
     +     .24820,    .08209,    .04669,    .00593,    .00210,
     +     .00123,    .00410,    .00569,
     +     .24304,    .08022,    .04457,    .00578,    .00206,
     +     .00121,    .00399,    .00551,
     +     .23792,    .07837,    .04256,    .00562,    .00202,
     +     .00120,    .00389,    .00535 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .57809,    .21031,    .43713,    .01239,    .00000,
     +     .00000,    .00688,    .01402,
     +     .56560,    .20488,    .41264,    .01230,    .00000,
     +     .00000,    .00697,    .01374,
     +     .54715,    .19696,    .37732,    .01214,    .00025,
     +     .00000,    .00705,    .01329,
     +     .53365,    .19124,    .35165,    .01197,    .00052,
     +     .00000,    .00706,    .01294,
     +     .51968,    .18536,    .32628,    .01178,    .00093,
     +     .00000,    .00705,    .01257,
     +     .50774,    .18035,    .30552,    .01158,    .00115,
     +     .00000,    .00701,    .01225,
     +     .49641,    .17565,    .28667,    .01137,    .00135,
     +     .00000,    .00696,    .01193,
     +     .48452,    .17074,    .26774,    .01114,    .00153,
     +     .00000,    .00688,    .01157 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .47429,    .16656,    .25218,    .01093,    .00166,
     +     .00000,    .00680,    .01128,
     +     .46452,    .16260,    .23791,    .01073,    .00177,
     +     .00000,    .00671,    .01100,
     +     .45691,    .15952,    .22715,    .01057,    .00185,
     +     .00000,    .00664,    .01079,
     +     .44086,    .15310,    .20524,    .01020,    .00197,
     +     .00004,    .00647,    .01030,
     +     .42732,    .14773,    .18760,    .00989,    .00205,
     +     .00021,    .00631,    .00987,
     +     .41259,    .14194,    .16953,    .00955,    .00212,
     +     .00043,    .00613,    .00940,
     +     .39765,    .13612,    .15266,    .00918,    .00217,
     +     .00057,    .00593,    .00894,
     +     .38444,    .13102,    .13885,    .00883,    .00218,
     +     .00067,    .00573,    .00855 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .37155,    .12607,    .12628,    .00849,    .00219,
     +     .00076,    .00553,    .00815,
     +     .36114,    .12210,    .11678,    .00820,    .00218,
     +     .00082,    .00536,    .00783,
     +     .34884,    .11742,    .10630,    .00786,    .00216,
     +     .00087,    .00515,    .00746,
     +     .33831,    .11343,    .09789,    .00758,    .00214,
     +     .00091,    .00498,    .00715,
     +     .32881,    .10989,    .09081,    .00731,    .00211,
     +     .00093,    .00483,    .00687,
     +     .31718,    .10557,    .08266,    .00700,    .00207,
     +     .00096,    .00463,    .00653,
     +     .30659,    .10167,    .07576,    .00672,    .00203,
     +     .00097,    .00444,    .00621,
     +     .29696,    .09813,    .06989,    .00647,    .00198,
     +     .00098,    .00427,    .00593 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .28767,    .09472,    .06453,    .00622,    .00194,
     +     .00098,    .00411,    .00566,
     +     .27878,    .09148,    .05978,    .00597,    .00189,
     +     .00097,    .00395,    .00540,
     +     .27067,    .08855,    .05564,    .00575,    .00184,
     +     .00097,    .00381,    .00517,
     +     .26318,    .08585,    .05206,    .00554,    .00180,
     +     .00096,    .00368,    .00497,
     +     .25591,    .08324,    .04873,    .00534,    .00176,
     +     .00095,    .00356,    .00477,
     +     .24890,    .08073,    .04572,    .00514,    .00171,
     +     .00094,    .00343,    .00460,
     +     .24244,    .07843,    .04305,    .00496,    .00167,
     +     .00093,    .00331,    .00444,
     +     .23645,    .07631,    .04070,    .00480,    .00163,
     +     .00092,    .00320,    .00428 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .23055,    .07423,    .03849,    .00466,    .00159,
     +     .00090,    .00311,    .00412,
     +     .22489,    .07224,    .03645,    .00453,    .00156,
     +     .00089,    .00301,    .00396,
     +     .21957,    .07040,    .03463,    .00440,    .00152,
     +     .00087,    .00293,    .00383,
     +     .21466,    .06870,    .03301,    .00428,    .00148,
     +     .00086,    .00285,    .00370,
     +     .20980,    .06701,    .03146,    .00416,    .00145,
     +     .00085,    .00276,    .00358 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .54974,    .19308,    .38295,    .00997,    .00000,
     +     .00000,    .00521,    .00976,
     +     .53657,    .18768,    .35882,    .00988,    .00000,
     +     .00000,    .00529,    .00957,
     +     .51722,    .17981,    .32461,    .00971,    .00020,
     +     .00000,    .00533,    .00931,
     +     .50318,    .17419,    .30028,    .00954,    .00041,
     +     .00000,    .00534,    .00905,
     +     .48867,    .16843,    .27646,    .00936,    .00073,
     +     .00000,    .00533,    .00878,
     +     .47631,    .16354,    .25719,    .00917,    .00090,
     +     .00000,    .00530,    .00854,
     +     .46463,    .15894,    .23985,    .00898,    .00106,
     +     .00000,    .00525,    .00831,
     +     .45241,    .15416,    .22260,    .00879,    .00119,
     +     .00000,    .00519,    .00807 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44196,    .15010,    .20852,    .00860,    .00129,
     +     .00000,    .00513,    .00786,
     +     .43202,    .14626,    .19569,    .00841,    .00136,
     +     .00000,    .00506,    .00766,
     +     .42430,    .14328,    .18607,    .00827,    .00142,
     +     .00000,    .00501,    .00750,
     +     .40803,    .13708,    .16671,    .00798,    .00151,
     +     .00003,    .00486,    .00712,
     +     .39440,    .13193,    .15137,    .00770,    .00157,
     +     .00015,    .00472,    .00682,
     +     .37964,    .12638,    .13580,    .00738,    .00161,
     +     .00032,    .00457,    .00650,
     +     .36473,    .12082,    .12135,    .00706,    .00164,
     +     .00043,    .00441,    .00618,
     +     .35161,    .11598,    .10968,    .00677,    .00164,
     +     .00050,    .00424,    .00589 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33885,    .11130,    .09914,    .00647,    .00164,
     +     .00056,    .00408,    .00561,
     +     .32857,    .10754,    .09122,    .00624,    .00163,
     +     .00060,    .00395,    .00538,
     +     .31646,    .10315,    .08255,    .00597,    .00161,
     +     .00064,    .00378,    .00511,
     +     .30616,    .09944,    .07564,    .00574,    .00159,
     +     .00066,    .00364,    .00488,
     +     .29692,    .09612,    .06987,    .00552,    .00156,
     +     .00068,    .00351,    .00468,
     +     .28563,    .09208,    .06326,    .00525,    .00152,
     +     .00069,    .00336,    .00444,
     +     .27536,    .08844,    .05771,    .00502,    .00149,
     +     .00070,    .00322,    .00423,
     +     .26605,    .08516,    .05303,    .00481,    .00145,
     +     .00070,    .00310,    .00403 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .25709,    .08202,    .04878,    .00462,    .00141,
     +     .00070,    .00298,    .00383,
     +     .24856,    .07905,    .04502,    .00442,    .00137,
     +     .00070,    .00285,    .00366,
     +     .24079,    .07635,    .04176,    .00424,    .00134,
     +     .00069,    .00274,    .00350,
     +     .23363,    .07388,    .03897,    .00408,    .00130,
     +     .00068,    .00263,    .00336,
     +     .22671,    .07149,    .03637,    .00393,    .00127,
     +     .00068,    .00253,    .00323,
     +     .22004,    .06921,    .03403,    .00379,    .00123,
     +     .00067,    .00244,    .00308,
     +     .21391,    .06712,    .03196,    .00367,    .00120,
     +     .00066,    .00236,    .00295,
     +     .20826,    .06519,    .03015,    .00354,    .00117,
     +     .00065,    .00228,    .00284 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .20273,    .06330,    .02845,    .00341,    .00114,
     +     .00064,    .00220,    .00274,
     +     .19742,    .06150,    .02689,    .00329,    .00111,
     +     .00063,    .00213,    .00264,
     +     .19245,    .05983,    .02551,    .00318,    .00108,
     +     .00062,    .00206,    .00255,
     +     .18788,    .05829,    .02428,    .00308,    .00106,
     +     .00061,    .00200,    .00247,
     +     .18333,    .05677,    .02310,    .00299,    .00103,
     +     .00060,    .00194,    .00238 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .51750,    .17582,    .33016,    .00802,    .00000,
     +     .00000,    .00386,    .00653,
     +     .50393,    .17052,    .30717,    .00791,    .00000,
     +     .00000,    .00392,    .00644,
     +     .48410,    .16283,    .27504,    .00772,    .00016,
     +     .00000,    .00395,    .00630,
     +     .46971,    .15736,    .25263,    .00757,    .00032,
     +     .00000,    .00396,    .00612,
     +     .45494,    .15176,    .23086,    .00740,    .00057,
     +     .00000,    .00395,    .00595,
     +     .44244,    .14701,    .21340,    .00722,    .00070,
     +     .00000,    .00392,    .00581,
     +     .43066,    .14257,    .19784,    .00705,    .00082,
     +     .00000,    .00387,    .00566,
     +     .41836,    .13799,    .18251,    .00688,    .00091,
     +     .00000,    .00382,    .00548 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40787,    .13411,    .17009,    .00673,    .00098,
     +     .00000,    .00377,    .00532,
     +     .39791,    .13043,    .15886,    .00657,    .00104,
     +     .00000,    .00372,    .00518,
     +     .39019,    .12759,    .15049,    .00645,    .00108,
     +     .00000,    .00368,    .00507,
     +     .37403,    .12173,    .13377,    .00616,    .00115,
     +     .00003,    .00356,    .00483,
     +     .36054,    .11682,    .12067,    .00592,    .00118,
     +     .00011,    .00345,    .00462,
     +     .34598,    .11156,    .10750,    .00566,    .00121,
     +     .00024,    .00333,    .00441,
     +     .33137,    .10635,    .09538,    .00539,    .00123,
     +     .00031,    .00318,    .00419,
     +     .31852,    .10181,    .08569,    .00516,    .00122,
     +     .00037,    .00307,    .00398 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30607,    .09744,    .07700,    .00493,    .00122,
     +     .00041,    .00295,    .00377,
     +     .29610,    .09394,    .07051,    .00473,    .00120,
     +     .00044,    .00285,    .00360,
     +     .28438,    .08985,    .06347,    .00450,    .00118,
     +     .00047,    .00273,    .00343,
     +     .27444,    .08640,    .05788,    .00431,    .00117,
     +     .00048,    .00262,    .00330,
     +     .26557,    .08334,    .05326,    .00413,    .00114,
     +     .00049,    .00252,    .00315,
     +     .25476,    .07964,    .04800,    .00393,    .00111,
     +     .00050,    .00240,    .00297,
     +     .24496,    .07631,    .04359,    .00375,    .00108,
     +     .00051,    .00228,    .00281,
     +     .23612,    .07331,    .03991,    .00358,    .00105,
     +     .00051,    .00219,    .00267 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .22763,    .07043,    .03659,    .00341,    .00102,
     +     .00050,    .00209,    .00255,
     +     .21957,    .06772,    .03364,    .00325,    .00099,
     +     .00050,    .00201,    .00243,
     +     .21225,    .06527,    .03110,    .00312,    .00096,
     +     .00049,    .00193,    .00231,
     +     .20550,    .06304,    .02894,    .00301,    .00094,
     +     .00049,    .00185,    .00221,
     +     .19898,    .06090,    .02694,    .00290,    .00091,
     +     .00048,    .00178,    .00211,
     +     .19276,    .05884,    .02515,    .00279,    .00088,
     +     .00047,    .00171,    .00201,
     +     .18706,    .05696,    .02357,    .00268,    .00086,
     +     .00047,    .00165,    .00193,
     +     .18179,    .05523,    .02220,    .00258,    .00084,
     +     .00046,    .00160,    .00186 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .17662,    .05354,    .02091,    .00249,    .00081,
     +     .00045,    .00154,    .00180,
     +     .17169,    .05193,    .01973,    .00240,    .00079,
     +     .00044,    .00149,    .00174,
     +     .16711,    .05044,    .01869,    .00231,    .00077,
     +     .00044,    .00144,    .00167,
     +     .16291,    .04907,    .01776,    .00223,    .00075,
     +     .00043,    .00139,    .00161,
     +     .15873,    .04772,    .01687,    .00216,    .00073,
     +     .00042,    .00134,    .00155 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .48238,    .15855,    .27989,    .00626,    .00000,
     +     .00000,    .00280,    .00430,
     +     .46861,    .15344,    .25868,    .00617,    .00000,
     +     .00000,    .00285,    .00424,
     +     .44859,    .14605,    .22942,    .00602,    .00012,
     +     .00000,    .00289,    .00415,
     +     .43421,    .14079,    .20928,    .00589,    .00024,
     +     .00000,    .00289,    .00405,
     +     .41945,    .13544,    .18990,    .00574,    .00044,
     +     .00000,    .00288,    .00394,
     +     .40695,    .13094,    .17452,    .00561,    .00053,
     +     .00000,    .00285,    .00384,
     +     .39523,    .12674,    .16089,    .00547,    .00062,
     +     .00000,    .00282,    .00375,
     +     .38306,    .12238,    .14752,    .00531,    .00069,
     +     .00000,    .00277,    .00364 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37272,    .11871,    .13680,    .00518,    .00074,
     +     .00000,    .00273,    .00354,
     +     .36293,    .11526,    .12718,    .00504,    .00078,
     +     .00000,    .00269,    .00344,
     +     .35535,    .11260,    .12004,    .00494,    .00081,
     +     .00000,    .00265,    .00336,
     +     .33953,    .10709,    .10593,    .00471,    .00086,
     +     .00002,    .00256,    .00319,
     +     .32637,    .10252,    .09495,    .00452,    .00088,
     +     .00008,    .00247,    .00306,
     +     .31223,    .09762,    .08400,    .00431,    .00090,
     +     .00017,    .00237,    .00292,
     +     .29810,    .09277,    .07404,    .00406,    .00090,
     +     .00023,    .00228,    .00277,
     +     .28574,    .08858,    .06613,    .00387,    .00090,
     +     .00027,    .00218,    .00262 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27381,    .08455,    .05909,    .00369,    .00089,
     +     .00030,    .00208,    .00248,
     +     .26428,    .08134,    .05387,    .00352,    .00088,
     +     .00032,    .00201,    .00238,
     +     .25310,    .07760,    .04824,    .00336,    .00086,
     +     .00034,    .00192,    .00225,
     +     .24363,    .07445,    .04381,    .00323,    .00084,
     +     .00036,    .00183,    .00213,
     +     .23523,    .07166,    .04018,    .00309,    .00083,
     +     .00036,    .00176,    .00204,
     +     .22503,    .06829,    .03605,    .00292,    .00080,
     +     .00037,    .00167,    .00193,
     +     .21583,    .06526,    .03262,    .00277,    .00078,
     +     .00037,    .00159,    .00182,
     +     .20754,    .06255,    .02975,    .00264,    .00075,
     +     .00037,    .00152,    .00173 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .19961,    .05995,    .02717,    .00252,    .00073,
     +     .00037,    .00144,    .00165,
     +     .19209,    .05753,    .02491,    .00240,    .00071,
     +     .00036,    .00138,    .00156,
     +     .18528,    .05534,    .02297,    .00230,    .00069,
     +     .00036,    .00132,    .00149,
     +     .17905,    .05335,    .02133,    .00221,    .00067,
     +     .00036,    .00127,    .00141,
     +     .17303,    .05143,    .01981,    .00212,    .00065,
     +     .00035,    .00122,    .00134,
     +     .16729,    .04960,    .01845,    .00202,    .00063,
     +     .00035,    .00116,    .00129,
     +     .16204,    .04792,    .01726,    .00194,    .00061,
     +     .00034,    .00111,    .00124,
     +     .15720,    .04639,    .01622,    .00186,    .00059,
     +     .00034,    .00107,    .00120 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .15248,    .04491,    .01526,    .00179,    .00058,
     +     .00033,    .00103,    .00115,
     +     .14796,    .04349,    .01437,    .00173,    .00056,
     +     .00033,    .00100,    .00110,
     +     .14377,    .04217,    .01359,    .00167,    .00055,
     +     .00032,    .00096,    .00107,
     +     .13991,    .04096,    .01289,    .00161,    .00053,
     +     .00032,    .00093,    .00103,
     +     .13612,    .03977,    .01224,    .00156,    .00052,
     +     .00031,    .00090,    .00099 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .44513,    .14151,    .23315,    .00476,    .00000,
     +     .00000,    .00203,    .00277,
     +     .43141,    .13665,    .21409,    .00469,    .00000,
     +     .00000,    .00208,    .00275,
     +     .41151,    .12965,    .18808,    .00457,    .00009,
     +     .00000,    .00212,    .00267,
     +     .39731,    .12470,    .17041,    .00445,    .00018,
     +     .00000,    .00211,    .00262,
     +     .38279,    .11965,    .15354,    .00431,    .00033,
     +     .00000,    .00209,    .00257,
     +     .37055,    .11543,    .14027,    .00419,    .00040,
     +     .00000,    .00206,    .00251,
     +     .35909,    .11148,    .12859,    .00407,    .00046,
     +     .00000,    .00204,    .00244,
     +     .34722,    .10741,    .11725,    .00396,    .00052,
     +     .00000,    .00201,    .00237 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33717,    .10398,    .10820,    .00385,    .00055,
     +     .00000,    .00199,    .00231,
     +     .32769,    .10077,    .10014,    .00372,    .00058,
     +     .00000,    .00196,    .00226,
     +     .32037,    .09829,    .09417,    .00363,    .00060,
     +     .00000,    .00193,    .00221,
     +     .30511,    .09319,    .08248,    .00346,    .00063,
     +     .00002,    .00185,    .00209,
     +     .29246,    .08897,    .07348,    .00330,    .00065,
     +     .00006,    .00179,    .00201,
     +     .27892,    .08448,    .06458,    .00312,    .00066,
     +     .00012,    .00171,    .00192,
     +     .26546,    .08004,    .05654,    .00295,    .00066,
     +     .00016,    .00163,    .00180,
     +     .25374,    .07621,    .05023,    .00279,    .00065,
     +     .00019,    .00156,    .00171 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .24245,    .07253,    .04464,    .00264,    .00064,
     +     .00021,    .00149,    .00162,
     +     .23344,    .06962,    .04054,    .00254,    .00063,
     +     .00022,    .00143,    .00154,
     +     .22296,    .06623,    .03612,    .00240,    .00062,
     +     .00024,    .00136,    .00147,
     +     .21412,    .06339,    .03265,    .00227,    .00061,
     +     .00025,    .00129,    .00142,
     +     .20625,    .06088,    .02984,    .00217,    .00059,
     +     .00025,    .00124,    .00135,
     +     .19673,    .05786,    .02665,    .00205,    .00057,
     +     .00026,    .00118,    .00126,
     +     .18820,    .05517,    .02402,    .00195,    .00056,
     +     .00026,    .00112,    .00118,
     +     .18053,    .05275,    .02184,    .00184,    .00054,
     +     .00026,    .00106,    .00112 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .17320,    .05046,    .01988,    .00174,    .00052,
     +     .00026,    .00101,    .00107,
     +     .16630,    .04830,    .01818,    .00165,    .00051,
     +     .00026,    .00096,    .00102,
     +     .16007,    .04635,    .01672,    .00157,    .00049,
     +     .00026,    .00091,    .00097,
     +     .15437,    .04458,    .01549,    .00150,    .00048,
     +     .00026,    .00088,    .00092,
     +     .14889,    .04289,    .01436,    .00144,    .00046,
     +     .00026,    .00084,    .00088,
     +     .14365,    .04128,    .01335,    .00138,    .00045,
     +     .00025,    .00080,    .00084,
     +     .13886,    .03982,    .01246,    .00132,    .00044,
     +     .00025,    .00077,    .00081,
     +     .13447,    .03848,    .01170,    .00127,    .00043,
     +     .00025,    .00075,    .00078 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .13019,    .03718,    .01099,    .00122,    .00041,
     +     .00025,    .00072,    .00074,
     +     .12611,    .03595,    .01034,    .00118,    .00040,
     +     .00025,    .00069,    .00071,
     +     .12234,    .03480,    .00976,    .00113,    .00039,
     +     .00024,    .00066,    .00069,
     +     .11888,    .03375,    .00925,    .00109,    .00039,
     +     .00024,    .00064,    .00066,
     +     .11547,    .03272,    .00877,    .00105,    .00038,
     +     .00024,    .00062,    .00063 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .40658,    .12516,    .19084,    .00359,    .00000,
     +     .00000,    .00144,    .00168,
     +     .39313,    .12057,    .17410,    .00351,    .00000,
     +     .00000,    .00148,    .00169,
     +     .37375,    .11400,    .15151,    .00337,    .00007,
     +     .00000,    .00150,    .00169,
     +     .35994,    .10936,    .13640,    .00326,    .00014,
     +     .00000,    .00150,    .00167,
     +     .34585,    .10465,    .12207,    .00315,    .00024,
     +     .00000,    .00150,    .00164,
     +     .33399,    .10071,    .11087,    .00305,    .00030,
     +     .00000,    .00149,    .00161,
     +     .32293,    .09706,    .10109,    .00296,    .00034,
     +     .00000,    .00147,    .00158,
     +     .31150,    .09332,    .09165,    .00286,    .00038,
     +     .00000,    .00144,    .00154 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .30187,    .09017,    .08417,    .00277,    .00041,
     +     .00000,    .00141,    .00151,
     +     .29282,    .08721,    .07755,    .00266,    .00043,
     +     .00000,    .00139,    .00148,
     +     .28584,    .08493,    .07267,    .00258,    .00045,
     +     .00000,    .00137,    .00146,
     +     .27135,    .08025,    .06319,    .00243,    .00047,
     +     .00001,    .00131,    .00140,
     +     .25937,    .07640,    .05596,    .00231,    .00048,
     +     .00004,    .00127,    .00134,
     +     .24659,    .07233,    .04887,    .00219,    .00048,
     +     .00009,    .00123,    .00126,
     +     .23392,    .06832,    .04253,    .00208,    .00048,
     +     .00011,    .00117,    .00119,
     +     .22296,    .06485,    .03758,    .00194,    .00048,
     +     .00013,    .00111,    .00114 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .21243,    .06154,    .03322,    .00183,    .00047,
     +     .00014,    .00105,    .00108,
     +     .20403,    .05894,    .03004,    .00176,    .00046,
     +     .00015,    .00101,    .00102,
     +     .19431,    .05593,    .02665,    .00166,    .00045,
     +     .00016,    .00096,    .00096,
     +     .18613,    .05340,    .02400,    .00157,    .00044,
     +     .00017,    .00092,    .00091,
     +     .17889,    .05118,    .02186,    .00149,    .00043,
     +     .00017,    .00088,    .00087,
     +     .17017,    .04850,    .01945,    .00139,    .00042,
     +     .00017,    .00083,    .00082,
     +     .16239,    .04610,    .01746,    .00129,    .00041,
     +     .00017,    .00078,    .00079,
     +     .15538,    .04398,    .01583,    .00122,    .00039,
     +     .00017,    .00074,    .00075 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .14868,    .04197,    .01437,    .00117,    .00038,
     +     .00017,    .00071,    .00070,
     +     .14240,    .04009,    .01311,    .00112,    .00037,
     +     .00017,    .00068,    .00065,
     +     .13674,    .03840,    .01203,    .00107,    .00036,
     +     .00017,    .00065,    .00061,
     +     .13161,    .03685,    .01112,    .00101,    .00035,
     +     .00017,    .00062,    .00059,
     +     .12669,    .03537,    .01029,    .00095,    .00034,
     +     .00017,    .00059,    .00057,
     +     .12198,    .03398,    .00955,    .00091,    .00033,
     +     .00017,    .00056,    .00054,
     +     .11769,    .03272,    .00890,    .00088,    .00032,
     +     .00017,    .00054,    .00052,
     +     .11377,    .03157,    .00835,    .00084,    .00032,
     +     .00017,    .00051,    .00050 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .10996,    .03045,    .00783,    .00080,    .00031,
     +     .00017,    .00049,    .00048,
     +     .10634,    .02938,    .00735,    .00077,    .00030,
     +     .00017,    .00047,    .00046,
     +     .10298,    .02840,    .00694,    .00074,    .00030,
     +     .00017,    .00045,    .00044,
     +     .09990,    .02750,    .00657,    .00071,    .00029,
     +     .00017,    .00044,    .00042,
     +     .09688,    .02662,    .00622,    .00068,    .00028,
     +     .00017,    .00043,    .00041 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .36763,    .10966,    .15353,    .00270,    .00000,
     +     .00000,    .00094,    .00096,
     +     .35466,    .10541,    .13922,    .00263,    .00000,
     +     .00000,    .00097,    .00099,
     +     .33597,    .09934,    .12012,    .00253,    .00005,
     +     .00000,    .00100,    .00099,
     +     .32272,    .09507,    .10747,    .00245,    .00010,
     +     .00000,    .00100,    .00098,
     +     .30925,    .09076,    .09557,    .00237,    .00018,
     +     .00000,    .00100,    .00097,
     +     .29798,    .08716,    .08633,    .00229,    .00021,
     +     .00000,    .00099,    .00096,
     +     .28750,    .08382,    .07833,    .00221,    .00025,
     +     .00000,    .00097,    .00095,
     +     .27671,    .08041,    .07067,    .00212,    .00028,
     +     .00000,    .00096,    .00092 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .26761,    .07754,    .06463,    .00205,    .00030,
     +     .00000,    .00094,    .00091,
     +     .25906,    .07487,    .05929,    .00198,    .00031,
     +     .00000,    .00092,    .00089,
     +     .25248,    .07281,    .05537,    .00193,    .00032,
     +     .00000,    .00091,    .00087,
     +     .23891,    .06859,    .04785,    .00182,    .00034,
     +     .00001,    .00087,    .00083,
     +     .22774,    .06514,    .04216,    .00172,    .00035,
     +     .00003,    .00083,    .00079,
     +     .21587,    .06148,    .03660,    .00162,    .00036,
     +     .00006,    .00079,    .00075,
     +     .20415,    .05789,    .03166,    .00151,    .00036,
     +     .00008,    .00075,    .00071,
     +     .19400,    .05482,    .02784,    .00143,    .00035,
     +     .00009,    .00071,    .00068 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18429,    .05189,    .02451,    .00135,    .00035,
     +     .00010,    .00067,    .00065,
     +     .17662,    .04958,    .02208,    .00130,    .00034,
     +     .00010,    .00065,    .00060,
     +     .16775,    .04692,    .01951,    .00122,    .00033,
     +     .00010,    .00062,    .00057,
     +     .16030,    .04470,    .01750,    .00115,    .00032,
     +     .00010,    .00058,    .00054,
     +     .15375,    .04274,    .01590,    .00107,    .00032,
     +     .00010,    .00056,    .00051,
     +     .14585,    .04040,    .01410,    .00100,    .00031,
     +     .00010,    .00053,    .00049,
     +     .13877,    .03832,    .01262,    .00094,    .00030,
     +     .00010,    .00050,    .00047,
     +     .13246,    .03647,    .01141,    .00089,    .00029,
     +     .00010,    .00047,    .00044 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .12648,    .03472,    .01034,    .00085,    .00028,
     +     .00010,    .00044,    .00042,
     +     .12088,    .03308,    .00941,    .00080,    .00028,
     +     .00010,    .00042,    .00040,
     +     .11583,    .03162,    .00862,    .00075,    .00027,
     +     .00010,    .00039,    .00037,
     +     .11123,    .03029,    .00796,    .00072,    .00026,
     +     .00010,    .00037,    .00035,
     +     .10683,    .02902,    .00735,    .00070,    .00026,
     +     .00010,    .00035,    .00033,
     +     .10266,    .02783,    .00681,    .00067,    .00025,
     +     .00010,    .00034,    .00031,
     +     .09887,    .02675,    .00634,    .00064,    .00025,
     +     .00010,    .00033,    .00030,
     +     .09541,    .02576,    .00594,    .00061,    .00024,
     +     .00010,    .00032,    .00028 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .09205,    .02480,    .00557,    .00058,    .00024,
     +     .00010,    .00030,    .00027,
     +     .08887,    .02390,    .00522,    .00056,    .00023,
     +     .00010,    .00028,    .00026,
     +     .08593,    .02306,    .00493,    .00053,    .00023,
     +     .00010,    .00027,    .00026,
     +     .08324,    .02230,    .00466,    .00050,    .00023,
     +     .00010,    .00026,    .00025,
     +     .08060,    .02155,    .00441,    .00048,    .00022,
     +     .00010,    .00025,    .00024 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .32860,    .09475,    .12081,    .00181,    .00000,
     +     .00000,    .00069,    .00059,
     +     .31621,    .09087,    .10889,    .00176,    .00000,
     +     .00000,    .00071,    .00061,
     +     .29847,    .08536,    .09316,    .00171,    .00004,
     +     .00000,    .00072,    .00062,
     +     .28597,    .08149,    .08285,    .00166,    .00007,
     +     .00000,    .00071,    .00062,
     +     .27330,    .07758,    .07321,    .00159,    .00012,
     +     .00000,    .00070,    .00062,
     +     .26273,    .07435,    .06580,    .00154,    .00015,
     +     .00000,    .00070,    .00061,
     +     .25290,    .07135,    .05940,    .00148,    .00017,
     +     .00000,    .00069,    .00060,
     +     .24280,    .06830,    .05331,    .00144,    .00019,
     +     .00000,    .00068,    .00059 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .23432,    .06573,    .04853,    .00138,    .00020,
     +     .00000,    .00067,    .00058,
     +     .22641,    .06333,    .04433,    .00132,    .00021,
     +     .00000,    .00065,    .00057,
     +     .22032,    .06150,    .04127,    .00128,    .00022,
     +     .00000,    .00063,    .00056,
     +     .20775,    .05776,    .03542,    .00123,    .00023,
     +     .00001,    .00060,    .00054,
     +     .19748,    .05470,    .03104,    .00116,    .00024,
     +     .00002,    .00058,    .00051,
     +     .18659,    .05148,    .02681,    .00109,    .00024,
     +     .00004,    .00055,    .00048,
     +     .17587,    .04833,    .02306,    .00103,    .00024,
     +     .00005,    .00053,    .00046,
     +     .16668,    .04563,    .02018,    .00096,    .00024,
     +     .00005,    .00049,    .00043 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15791,    .04307,    .01768,    .00090,    .00024,
     +     .00006,    .00046,    .00040,
     +     .15096,    .04106,    .01588,    .00085,    .00024,
     +     .00005,    .00044,    .00038,
     +     .14294,    .03875,    .01397,    .00080,    .00024,
     +     .00005,    .00042,    .00036,
     +     .13624,    .03682,    .01250,    .00075,    .00024,
     +     .00005,    .00039,    .00035,
     +     .13035,    .03513,    .01132,    .00072,    .00023,
     +     .00005,    .00038,    .00033,
     +     .12329,    .03311,    .01000,    .00067,    .00023,
     +     .00005,    .00035,    .00031,
     +     .11703,    .03133,    .00893,    .00061,    .00022,
     +     .00005,    .00033,    .00029,
     +     .11144,    .02974,    .00806,    .00057,    .00022,
     +     .00005,    .00031,    .00028 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .10614,    .02823,    .00728,    .00054,    .00021,
     +     .00005,    .00029,    .00027,
     +     .10117,    .02684,    .00662,    .00051,    .00021,
     +     .00005,    .00028,    .00025,
     +     .09672,    .02560,    .00605,    .00049,    .00021,
     +     .00005,    .00026,    .00023,
     +     .09268,    .02448,    .00558,    .00048,    .00021,
     +     .00005,    .00025,    .00021,
     +     .08881,    .02342,    .00515,    .00046,    .00020,
     +     .00005,    .00024,    .00020,
     +     .08518,    .02241,    .00476,    .00043,    .00020,
     +     .00005,    .00023,    .00019,
     +     .08189,    .02149,    .00443,    .00041,    .00020,
     +     .00005,    .00022,    .00019,
     +     .07889,    .02066,    .00414,    .00038,    .00019,
     +     .00005,    .00021,    .00018 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .07598,    .01985,    .00388,    .00036,    .00019,
     +     .00005,    .00019,    .00017,
     +     .07322,    .01910,    .00364,    .00035,    .00019,
     +     .00005,    .00018,    .00017,
     +     .07066,    .01840,    .00343,    .00034,    .00019,
     +     .00005,    .00018,    .00016,
     +     .06833,    .01776,    .00324,    .00033,    .00019,
     +     .00005,    .00017,    .00016,
     +     .06605,    .01714,    .00306,    .00032,    .00019,
     +     .00005,    .00016,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .29024,    .08097,    .09315,    .00122,    .00000,
     +     .00000,    .00047,    .00035,
     +     .27863,    .07747,    .08346,    .00119,    .00000,
     +     .00000,    .00048,    .00037,
     +     .26209,    .07249,    .07079,    .00112,    .00002,
     +     .00000,    .00049,    .00040,
     +     .25044,    .06903,    .06258,    .00109,    .00005,
     +     .00000,    .00050,    .00040,
     +     .23867,    .06555,    .05495,    .00106,    .00008,
     +     .00000,    .00050,    .00040,
     +     .22886,    .06267,    .04911,    .00102,    .00010,
     +     .00000,    .00049,    .00039,
     +     .21980,    .06002,    .04411,    .00098,    .00012,
     +     .00000,    .00048,    .00038,
     +     .21054,    .05732,    .03938,    .00093,    .00013,
     +     .00000,    .00047,    .00037 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .20277,    .05506,    .03570,    .00090,    .00014,
     +     .00000,    .00046,    .00037,
     +     .19549,    .05295,    .03249,    .00087,    .00014,
     +     .00000,    .00045,    .00036,
     +     .18992,    .05134,    .03016,    .00085,    .00015,
     +     .00000,    .00044,    .00036,
     +     .17853,    .04805,    .02571,    .00079,    .00015,
     +     .00000,    .00041,    .00035,
     +     .16922,    .04538,    .02241,    .00073,    .00015,
     +     .00001,    .00039,    .00033,
     +     .15938,    .04256,    .01924,    .00068,    .00015,
     +     .00002,    .00037,    .00030,
     +     .14974,    .03983,    .01647,    .00063,    .00015,
     +     .00003,    .00035,    .00029,
     +     .14144,    .03750,    .01434,    .00060,    .00014,
     +     .00003,    .00033,    .00028 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13357,    .03530,    .01251,    .00057,    .00014,
     +     .00003,    .00032,    .00026,
     +     .12739,    .03356,    .01120,    .00053,    .00014,
     +     .00003,    .00031,    .00025,
     +     .12029,    .03157,    .00982,    .00049,    .00014,
     +     .00003,    .00029,    .00023,
     +     .11437,    .02992,    .00876,    .00047,    .00014,
     +     .00003,    .00027,    .00022,
     +     .10915,    .02849,    .00791,    .00044,    .00014,
     +     .00003,    .00025,    .00021,
     +     .10291,    .02678,    .00697,    .00041,    .00014,
     +     .00003,    .00023,    .00020,
     +     .09741,    .02527,    .00621,    .00038,    .00014,
     +     .00003,    .00022,    .00019,
     +     .09251,    .02393,    .00559,    .00036,    .00014,
     +     .00003,    .00021,    .00017 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08788,    .02267,    .00504,    .00034,    .00014,
     +     .00003,    .00020,    .00016,
     +     .08357,    .02150,    .00458,    .00032,    .00014,
     +     .00003,    .00019,    .00016,
     +     .07973,    .02045,    .00418,    .00029,    .00014,
     +     .00003,    .00018,    .00015,
     +     .07624,    .01951,    .00385,    .00028,    .00014,
     +     .00003,    .00017,    .00015,
     +     .07291,    .01861,    .00354,    .00027,    .00014,
     +     .00003,    .00016,    .00014,
     +     .06978,    .01778,    .00328,    .00026,    .00014,
     +     .00003,    .00015,    .00013,
     +     .06694,    .01702,    .00305,    .00025,    .00014,
     +     .00003,    .00015,    .00011,
     +     .06436,    .01633,    .00285,    .00024,    .00014,
     +     .00003,    .00014,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .06186,    .01567,    .00266,    .00023,    .00014,
     +     .00003,    .00013,    .00011,
     +     .05949,    .01504,    .00249,    .00022,    .00014,
     +     .00003,    .00012,    .00010,
     +     .05732,    .01446,    .00235,    .00021,    .00013,
     +     .00003,    .00011,    .00010,
     +     .05534,    .01394,    .00222,    .00020,    .00013,
     +     .00003,    .00011,    .00010,
     +     .05341,    .01343,    .00210,    .00019,    .00013,
     +     .00003,    .00011,    .00010 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .25342,    .06843,    .07038,    .00084,    .00000,
     +     .00000,    .00028,    .00019,
     +     .24268,    .06532,    .06270,    .00082,    .00000,
     +     .00000,    .00029,    .00020,
     +     .22735,    .06096,    .05273,    .00080,    .00002,
     +     .00000,    .00030,    .00019,
     +     .21667,    .05789,    .04635,    .00077,    .00003,
     +     .00000,    .00030,    .00021,
     +     .20592,    .05482,    .04046,    .00074,    .00006,
     +     .00000,    .00030,    .00022,
     +     .19702,    .05228,    .03598,    .00070,    .00007,
     +     .00000,    .00030,    .00021,
     +     .18880,    .04996,    .03216,    .00067,    .00008,
     +     .00000,    .00029,    .00020,
     +     .18038,    .04760,    .02858,    .00065,    .00008,
     +     .00000,    .00028,    .00020 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .17336,    .04563,    .02580,    .00062,    .00009,
     +     .00000,    .00028,    .00020,
     +     .16682,    .04379,    .02338,    .00059,    .00009,
     +     .00000,    .00027,    .00020,
     +     .16181,    .04239,    .02163,    .00057,    .00009,
     +     .00000,    .00027,    .00020,
     +     .15155,    .03954,    .01835,    .00055,    .00009,
     +     .00000,    .00026,    .00019,
     +     .14322,    .03723,    .01591,    .00051,    .00009,
     +     .00000,    .00024,    .00018,
     +     .13446,    .03482,    .01359,    .00047,    .00009,
     +     .00001,    .00022,    .00018,
     +     .12588,    .03248,    .01158,    .00044,    .00009,
     +     .00001,    .00021,    .00016,
     +     .11857,    .03049,    .01004,    .00041,    .00008,
     +     .00001,    .00020,    .00015 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .11165,    .02861,    .00873,    .00039,    .00008,
     +     .00001,    .00019,    .00015,
     +     .10622,    .02714,    .00779,    .00036,    .00008,
     +     .00001,    .00018,    .00015,
     +     .10001,    .02546,    .00681,    .00033,    .00007,
     +     .00001,    .00017,    .00014,
     +     .09485,    .02407,    .00606,    .00031,    .00007,
     +     .00001,    .00016,    .00012,
     +     .09030,    .02286,    .00546,    .00030,    .00007,
     +     .00001,    .00015,    .00011,
     +     .08488,    .02143,    .00480,    .00028,    .00007,
     +     .00001,    .00014,    .00010,
     +     .08011,    .02016,    .00427,    .00027,    .00007,
     +     .00001,    .00012,    .00010,
     +     .07588,    .01905,    .00384,    .00025,    .00007,
     +     .00001,    .00012,    .00010 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .07190,    .01800,    .00346,    .00022,    .00007,
     +     .00001,    .00011,    .00010,
     +     .06821,    .01703,    .00313,    .00022,    .00007,
     +     .00001,    .00011,    .00009,
     +     .06491,    .01616,    .00286,    .00021,    .00007,
     +     .00001,    .00010,    .00008,
     +     .06194,    .01539,    .00263,    .00019,    .00007,
     +     .00001,    .00010,    .00008,
     +     .05912,    .01466,    .00242,    .00018,    .00007,
     +     .00001,    .00009,    .00007,
     +     .05645,    .01397,    .00223,    .00017,    .00007,
     +     .00001,    .00008,    .00007,
     +     .05405,    .01334,    .00207,    .00017,    .00007,
     +     .00001,    .00008,    .00007,
     +     .05186,    .01278,    .00194,    .00016,    .00007,
     +     .00001,    .00008,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04976,    .01224,    .00181,    .00015,    .00007,
     +     .00001,    .00008,    .00006,
     +     .04777,    .01173,    .00169,    .00014,    .00007,
     +     .00001,    .00007,    .00005,
     +     .04595,    .01126,    .00160,    .00014,    .00007,
     +     .00001,    .00007,    .00005,
     +     .04429,    .01083,    .00151,    .00013,    .00007,
     +     .00001,    .00006,    .00005,
     +     .04268,    .01042,    .00142,    .00012,    .00007,
     +     .00001,    .00006,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .21799,    .05686,    .05171,    .00047,    .00000,
     +     .00000,    .00021,    .00012,
     +     .20821,    .05415,    .04579,    .00047,    .00000,
     +     .00000,    .00022,    .00012,
     +     .19437,    .05032,    .03820,    .00046,    .00001,
     +     .00000,    .00023,    .00013,
     +     .18474,    .04767,    .03338,    .00044,    .00002,
     +     .00000,    .00022,    .00014,
     +     .17507,    .04502,    .02896,    .00042,    .00003,
     +     .00000,    .00021,    .00014,
     +     .16705,    .04283,    .02562,    .00041,    .00004,
     +     .00000,    .00021,    .00014,
     +     .15968,    .04083,    .02280,    .00039,    .00005,
     +     .00000,    .00020,    .00014,
     +     .15218,    .03880,    .02016,    .00038,    .00005,
     +     .00000,    .00020,    .00015 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .14593,    .03711,    .01813,    .00036,    .00005,
     +     .00000,    .00020,    .00014,
     +     .14012,    .03555,    .01637,    .00034,    .00005,
     +     .00000,    .00019,    .00013,
     +     .13569,    .03437,    .01510,    .00033,    .00005,
     +     .00000,    .00018,    .00013,
     +     .12665,    .03194,    .01273,    .00031,    .00005,
     +     .00000,    .00017,    .00013,
     +     .11931,    .02999,    .01099,    .00030,    .00005,
     +     .00000,    .00016,    .00012,
     +     .11162,    .02796,    .00934,    .00028,    .00005,
     +     .00000,    .00015,    .00011,
     +     .10415,    .02598,    .00791,    .00025,    .00005,
     +     .00000,    .00014,    .00011,
     +     .09779,    .02431,    .00684,    .00023,    .00005,
     +     .00000,    .00014,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09180,    .02274,    .00592,    .00021,    .00005,
     +     .00000,    .00013,    .00010,
     +     .08711,    .02152,    .00527,    .00020,    .00005,
     +     .00000,    .00012,    .00009,
     +     .08174,    .02014,    .00459,    .00019,    .00005,
     +     .00000,    .00011,    .00008,
     +     .07728,    .01899,    .00408,    .00019,    .00005,
     +     .00000,    .00010,    .00008,
     +     .07341,    .01799,    .00367,    .00017,    .00005,
     +     .00000,    .00010,    .00008,
     +     .06880,    .01680,    .00322,    .00016,    .00005,
     +     .00000,    .00009,    .00007,
     +     .06474,    .01576,    .00286,    .00015,    .00005,
     +     .00000,    .00009,    .00006,
     +     .06115,    .01485,    .00256,    .00014,    .00004,
     +     .00000,    .00008,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05778,    .01400,    .00231,    .00013,    .00005,
     +     .00000,    .00007,    .00006,
     +     .05467,    .01321,    .00209,    .00013,    .00005,
     +     .00000,    .00007,    .00006,
     +     .05190,    .01251,    .00190,    .00012,    .00005,
     +     .00000,    .00007,    .00006,
     +     .04942,    .01188,    .00175,    .00011,    .00005,
     +     .00000,    .00006,    .00005,
     +     .04707,    .01129,    .00161,    .00010,    .00005,
     +     .00000,    .00006,    .00005,
     +     .04485,    .01073,    .00149,    .00009,    .00005,
     +     .00000,    .00006,    .00005,
     +     .04284,    .01023,    .00138,    .00008,    .00005,
     +     .00000,    .00005,    .00004,
     +     .04103,    .00978,    .00129,    .00008,    .00005,
     +     .00000,    .00005,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03929,    .00935,    .00120,    .00008,    .00005,
     +     .00000,    .00005,    .00004,
     +     .03765,    .00894,    .00112,    .00007,    .00005,
     +     .00000,    .00005,    .00004,
     +     .03615,    .00857,    .00106,    .00007,    .00005,
     +     .00000,    .00004,    .00004,
     +     .03479,    .00823,    .00100,    .00006,    .00005,
     +     .00000,    .00004,    .00004,
     +     .03345,    .00790,    .00094,    .00006,    .00005,
     +     .00000,    .00004,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .15426,    .03758,    .02580,    .00021,    .00000,
     +     .00000,    .00006,    .00003,
     +     .14656,    .03560,    .02258,    .00020,    .00000,
     +     .00000,    .00007,    .00004,
     +     .13578,    .03283,    .01853,    .00017,    .00000,
     +     .00000,    .00007,    .00004,
     +     .12829,    .03092,    .01601,    .00016,    .00000,
     +     .00000,    .00007,    .00004,
     +     .12083,    .02903,    .01372,    .00015,    .00000,
     +     .00000,    .00007,    .00005,
     +     .11471,    .02748,    .01202,    .00014,    .00000,
     +     .00000,    .00007,    .00005,
     +     .10910,    .02606,    .01060,    .00014,    .00000,
     +     .00000,    .00007,    .00005,
     +     .10342,    .02463,    .00928,    .00014,    .00000,
     +     .00000,    .00007,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .09871,    .02345,    .00828,    .00013,    .00000,
     +     .00000,    .00007,    .00005,
     +     .09437,    .02237,    .00743,    .00012,    .00000,
     +     .00000,    .00007,    .00004,
     +     .09107,    .02154,    .00682,    .00011,    .00000,
     +     .00000,    .00006,    .00004,
     +     .08435,    .01988,    .00568,    .00011,    .00000,
     +     .00000,    .00006,    .00004,
     +     .07896,    .01855,    .00486,    .00010,    .00000,
     +     .00000,    .00006,    .00004,
     +     .07335,    .01717,    .00410,    .00009,    .00000,
     +     .00000,    .00006,    .00003,
     +     .06795,    .01584,    .00345,    .00008,    .00000,
     +     .00000,    .00006,    .00004,
     +     .06338,    .01473,    .00296,    .00008,    .00000,
     +     .00000,    .00005,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05909,    .01369,    .00255,    .00007,    .00000,
     +     .00000,    .00004,    .00003,
     +     .05576,    .01289,    .00226,    .00007,    .00000,
     +     .00000,    .00004,    .00003,
     +     .05200,    .01197,    .00196,    .00006,    .00000,
     +     .00000,    .00004,    .00003,
     +     .04891,    .01123,    .00173,    .00005,    .00000,
     +     .00000,    .00004,    .00003,
     +     .04620,    .01058,    .00156,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04301,    .00982,    .00136,    .00005,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04023,    .00916,    .00121,    .00004,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03779,    .00858,    .00108,    .00004,    .00000,
     +     .00000,    .00003,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03550,    .00804,    .00097,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03341,    .00755,    .00088,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03156,    .00711,    .00080,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02991,    .00673,    .00073,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02835,    .00636,    .00067,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02688,    .00602,    .00062,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02557,    .00571,    .00058,    .00002,    .00000,
     +     .00000,    .00002,    .00001,
     +     .02438,    .00544,    .00054,    .00003,    .00000,
     +     .00000,    .00002,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .02324,    .00518,    .00050,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .02217,    .00493,    .00047,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .02121,    .00471,    .00044,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02034,    .00451,    .00042,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01949,    .00431,    .00039,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .10130,    .02291,    .01122,    .00006,    .00000,
     +     .00000,    .00002,    .00000,
     +     .09570,    .02157,    .00971,    .00006,    .00000,
     +     .00000,    .00002,    .00000,
     +     .08788,    .01973,    .00784,    .00006,    .00000,
     +     .00000,    .00002,    .00000,
     +     .08252,    .01847,    .00670,    .00006,    .00000,
     +     .00000,    .00002,    .00001,
     +     .07721,    .01722,    .00568,    .00005,    .00000,
     +     .00000,    .00002,    .00001,
     +     .07287,    .01621,    .00493,    .00005,    .00000,
     +     .00000,    .00002,    .00001,
     +     .06893,    .01530,    .00431,    .00005,    .00000,
     +     .00000,    .00002,    .00001,
     +     .06496,    .01438,    .00375,    .00005,    .00000,
     +     .00000,    .00002,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .06169,    .01363,    .00332,    .00005,    .00000,
     +     .00000,    .00002,    .00001,
     +     .05869,    .01293,    .00296,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05642,    .01241,    .00270,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05185,    .01136,    .00223,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04820,    .01053,    .00190,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04444,    .00967,    .00159,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04083,    .00885,    .00133,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03781,    .00818,    .00114,    .00003,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03501,    .00755,    .00098,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03285,    .00706,    .00086,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03041,    .00652,    .00075,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02841,    .00607,    .00066,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02670,    .00569,    .00059,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02468,    .00525,    .00052,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02293,    .00486,    .00046,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02140,    .00453,    .00041,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01999,    .00422,    .00037,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01870,    .00394,    .00033,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01757,    .00369,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01656,    .00347,    .00028,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01561,    .00326,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01473,    .00307,    .00024,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01394,    .00290,    .00022,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01324,    .00275,    .00020,    .00001,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .01256,    .00261,    .00019,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01194,    .00247,    .00018,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01137,    .00235,    .00017,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01085,    .00224,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01036,    .00214,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .06024,    .01255,    .00408,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05654,    .01175,    .00349,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05142,    .01065,    .00277,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04796,    .00990,    .00235,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04454,    .00916,    .00197,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04177,    .00857,    .00170,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03928,    .00804,    .00147,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03679,    .00751,    .00127,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .03475,    .00708,    .00112,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03288,    .00668,    .00099,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03147,    .00638,    .00090,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02866,    .00579,    .00074,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02644,    .00533,    .00063,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02416,    .00485,    .00053,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02199,    .00440,    .00044,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02021,    .00403,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01857,    .00369,    .00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01730,    .00343,    .00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01589,    .00314,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01474,    .00291,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01377,    .00271,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01263,    .00248,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01165,    .00228,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01080,    .00211,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .01001,    .00195,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00930,    .00181,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00868,    .00169,    .00010,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00813,    .00158,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00762,    .00147,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00715,    .00138,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00673,    .00130,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00636,    .00122,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00601,    .00115,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00568,    .00109,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00539,    .00103,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00512,    .00098,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00486,    .00093,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .03104,    .00587,    .00114,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02892,    .00546,    .00096,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02602,    .00489,    .00076,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02407,    .00451,    .00064,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02217,    .00414,    .00053,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02064,    .00385,    .00045,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01927,    .00359,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01791,    .00332,    .00034,    .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)/
     +     .01680,    .00311,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01579,    .00292,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01504,    .00278,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01356,    .00249,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01239,    .00227,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01121,    .00205,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01011,    .00184,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00920,    .00167,    .00010,    .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)/
     +     .00837,    .00152,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00774,    .00140,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00705,    .00127,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00648,    .00117,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00601,    .00108,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00546,    .00098,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00499,    .00089,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00459,    .00082,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00422,    .00075,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00389,    .00069,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00361,    .00064,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00336,    .00059,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00313,    .00055,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00291,    .00051,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00272,    .00048,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00256,    .00045,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00240,    .00042,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00226,    .00039,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00213,    .00037,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00201,    .00035,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00190,    .00033,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00361,    .00052,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00329,    .00048,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00287,    .00041,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00259,    .00037,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00233,    .00033,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00030,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00194,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00177,    .00025,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00163,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00150,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00141,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00123,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00110,    .00015,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00096,    .00014,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00084,    .00012,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00075,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00066,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00060,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00053,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00043,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00038,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00034,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00031,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00028,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00021,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='lo01a.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