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

sfmrs_98lo2.F

#include "pdf/pilot.h"
      subroutine sfmrs_98lo2(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)/
     +     .01616,    .00683,   2.49594,    .96883,    .00000,
     +     .00000,    .49855,    .98494,
     +     .01632,    .00687,   4.92533,    .97285,    .00003,
     +     .00000,    .50643,    .98889,
     +     .01657,    .00693,   9.56993,    .99630,    .02821,
     +     .00000,    .53555,   1.01222,
     +     .01676,    .00697,  13.80940,   1.02892,    .07423,
     +     .00000,    .57226,   1.04476,
     +     .01695,    .00702,  18.88911,   1.08451,    .13335,
     +     .00000,    .63213,   1.10026,
     +     .01712,    .00706,  24.17862,   1.14357,    .20163,
     +     .00000,    .69484,   1.15923,
     +     .01728,    .00711,  29.73861,   1.21691,    .27774,
     +     .00000,    .77164,   1.23248,
     +     .01745,    .00716,  36.41777,   1.31000,    .37644,
     +     .00000,    .86838,   1.32548 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .01760,    .00720,  42.89913,   1.40457,    .47784,
     +     .00000,    .96608,   1.41996,
     +     .01775,    .00724,  49.61974,   1.51092,    .58781,
     +     .00000,   1.07543,   1.52623,
     +     .01786,    .00727,  55.39180,   1.60472,    .68602,
     +     .00000,   1.17158,   1.61996,
     +     .01811,    .00735,  68.81419,   1.83637,    .92772,
     +     .00041,   1.40820,   1.85147,
     +     .01832,    .00742,  81.72071,   2.07152,   1.17595,
     +     .21131,   1.64756,   2.08649,
     +     .01856,    .00750,  97.52657,   2.37643,   1.49839,
     +     .61374,   1.95709,   2.39126,
     +     .01882,    .00758, 115.42858,   2.74566,   1.87945,
     +     .99259,   2.33106,   2.76033,
     +     .01904,    .00766, 133.20726,   3.12622,   2.27429,
     +    1.40334,   2.71585,   3.14075 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .01928,    .00775, 152.75288,   3.55799,   2.72539,
     +    1.88020,   3.15180,   3.57238,
     +     .01947,    .00782, 170.01192,   3.95423,   3.13641,
     +    2.30534,   3.55145,   3.96850,
     +     .01970,    .00791, 192.21783,   4.48113,   3.68153,
     +    2.86856,   4.08243,   4.49525,
     +     .01991,    .00799, 213.34880,   4.99499,   4.21665,
     +    3.42748,   4.59984,   5.00899,
     +     .02011,    .00806, 233.39284,   5.50061,   4.73651,
     +    3.95907,   5.10866,   5.51448,
     +     .02035,    .00816, 260.44016,   6.19859,   5.45753,
     +    4.70301,   5.81063,   6.21231,
     +     .02058,    .00826, 287.44696,   6.91462,   6.19783,
     +    5.46775,   6.53035,   6.92819,
     +     .02080,    .00835, 313.51825,   7.62855,   6.92966,
     +    6.21519,   7.24769,   7.64199 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .02102,    .00844, 341.15173,   8.39955,   7.72396,
     +    7.03262,   8.02203,   8.41285,
     +     .02124,    .00853, 368.98822,   9.19737,   8.54145,
     +    7.86804,   8.82307,   9.21054,
     +     .02145,    .00862, 396.49847,  10.00116,   9.36625,
     +    8.71308,   9.62987,  10.01421,
     +     .02164,    .00871, 423.18488,  10.79744,  10.18132,
     +    9.54571,  10.42894,  10.81038,
     +     .02184,    .00880, 450.92862,  11.63983,  11.04388,
     +   10.42768,  11.27410,  11.65265,
     +     .02204,    .00889, 478.88074,  12.50504,  11.92777,
     +   11.32906,  12.14199,  12.51775,
     +     .02222,    .00897, 506.38092,  13.36928,  12.81161,
     +   12.23197,  13.00875,  13.38188,
     +     .02240,    .00905, 532.71063,  14.21204,  13.67059,
     +   13.10605,  13.85388,  14.22455 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .02258,    .00914, 560.44952,  15.10980,  14.58850,
     +   14.04396,  14.75398,  15.12220,
     +     .02276,    .00922, 587.66711,  16.00814,  15.50215,
     +   14.97171,  15.65461,  16.02044,
     +     .02294,    .00930, 614.66376,  16.90871,  16.42021,
     +   15.90678,  16.55734,  16.92092,
     +     .02310,    .00938, 640.64490,  17.78739,  17.31499,
     +   16.81722,  17.43806,  17.79951,
     +     .02327,    .00946, 667.19971,  18.69798,  18.24071,
     +   17.75747,  18.35067,  18.71000 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .01968,    .00832,   2.59678,    .83010,    .00000,
     +     .00000,    .42587,    .83942,
     +     .01989,    .00838,   4.79050,    .83723,    .00002,
     +     .00000,    .43610,    .84649,
     +     .02020,    .00848,   8.80858,    .86193,    .02609,
     +     .00000,    .46535,    .87111,
     +     .02044,    .00855,  12.36505,    .89240,    .06794,
     +     .00000,    .49911,    .90153,
     +     .02068,    .00863,  16.54105,    .94133,    .12014,
     +     .00000,    .55147,    .95040,
     +     .02090,    .00870,  20.81157,    .99242,    .17920,
     +     .00000,    .60548,   1.00143,
     +     .02111,    .00877,  25.23818,   1.05450,    .24395,
     +     .00000,    .67034,   1.06345,
     +     .02133,    .00885,  30.48425,   1.13230,    .32674,
     +     .00000,    .75105,   1.14118 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .02152,    .00891,  35.51439,   1.21051,    .41072,
     +     .00000,    .83177,   1.21934,
     +     .02171,    .00898,  40.67585,   1.29750,    .50078,
     +     .00000,    .92116,   1.30628,
     +     .02185,    .00904,  45.07076,   1.37368,    .58051,
     +     .00000,    .99923,   1.38242,
     +     .02217,    .00915,  55.16745,   1.55987,    .77438,
     +     .00036,   1.18938,   1.56851,
     +     .02245,    .00926,  64.73620,   1.74663,    .97076,
     +     .16558,   1.37951,   1.75519,
     +     .02276,    .00938,  76.29261,   1.98603,   1.22261,
     +     .47881,   1.62260,   1.99450,
     +     .02309,    .00950,  89.21046,   2.27231,   1.51634,
     +     .76862,   1.91266,   2.28068,
     +     .02338,    .00962, 101.88441,   2.56414,   1.81716,
     +    1.07950,   2.20785,   2.57242 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .02369,    .00975, 115.66533,   2.89188,   2.15724,
     +    1.43681,   2.53892,   2.90007,
     +     .02394,    .00985, 127.71370,   3.18985,   2.46418,
     +    1.75221,   2.83962,   3.19797,
     +     .02424,    .00998, 143.06714,   3.58253,   2.86757,
     +    2.16633,   3.23554,   3.59055,
     +     .02452,    .01010, 157.54303,   3.96212,   3.26014,
     +    2.57399,   3.61795,   3.97007,
     +     .02477,    .01021, 171.15466,   4.33261,   3.63839,
     +    2.95830,   3.99099,   4.34048,
     +     .02509,    .01035, 189.36696,   4.83989,   4.15887,
     +    3.49223,   4.50144,   4.84766,
     +     .02539,    .01049, 207.38838,   5.35579,   4.68879,
     +    4.03669,   5.02028,   5.36347,
     +     .02568,    .01062, 224.63136,   5.86601,   5.20839,
     +    4.56429,   5.53321,   5.87362 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .02596,    .01075, 242.77290,   6.41302,   5.76848,
     +    5.13776,   6.08288,   6.42055,
     +     .02625,    .01088, 260.90195,   6.97494,   6.34073,
     +    5.71947,   6.64735,   6.98238,
     +     .02652,    .01100, 278.69458,   7.53729,   6.91445,
     +    6.30440,   7.21210,   7.54466,
     +     .02677,    .01113, 295.83777,   8.09092,   7.47793,
     +    6.87720,   7.76794,   8.09822,
     +     .02703,    .01125, 313.54996,   8.67317,   8.07089,
     +    7.48069,   8.35239,   8.68040,
     +     .02729,    .01137, 331.28183,   9.26774,   8.67505,
     +    8.09395,   8.94909,   9.27489,
     +     .02753,    .01149, 348.62979,   9.85846,   9.27611,
     +    8.70533,   9.54182,   9.86555,
     +     .02776,    .01160, 365.14023,  10.43149,   9.85720,
     +    9.29397,  10.11672,  10.43853 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .02800,    .01172, 382.45715,  11.03912,  10.47558,
     +    9.92333,  10.72621,  11.04609,
     +     .02823,    .01183, 399.34082,  11.64399,  11.08776,
     +   10.54223,  11.33290,  11.65091,
     +     .02846,    .01194, 416.01791,  12.24779,  11.70052,
     +   11.16388,  11.93842,  12.25466,
     +     .02867,    .01205, 431.98953,  12.83436,  12.29519,
     +   11.76659,  12.52661,  12.84117,
     +     .02889,    .01216, 448.23413,  13.43965,  12.90782,
     +   12.38637,  13.13351,  13.44641 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .02397,    .01013,   2.70121,    .71060,    .00000,
     +     .00000,    .36389,    .71517,
     +     .02423,    .01023,   4.65910,    .71985,    .00002,
     +     .00000,    .37562,    .72438,
     +     .02463,    .01038,   8.10702,    .74498,    .02411,
     +     .00000,    .40441,    .74946,
     +     .02493,    .01050,  11.07010,    .77327,    .06215,
     +     .00000,    .43533,    .77771,
     +     .02524,    .01062,  14.48190,    .81630,    .10818,
     +     .00000,    .48109,    .82069,
     +     .02552,    .01073,  17.90894,    .86045,    .15918,
     +     .00000,    .52759,    .86481,
     +     .02578,    .01083,  21.41267,    .91294,    .21415,
     +     .00000,    .58230,    .91726,
     +     .02606,    .01095,  25.50925,    .97784,    .28346,
     +     .00000,    .64953,    .98212 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .02631,    .01105,  29.39055,   1.04237,    .35284,
     +     .00000,    .71606,   1.04662,
     +     .02655,    .01115,  33.33157,   1.11331,    .42641,
     +     .00000,    .78892,   1.11753,
     +     .02674,    .01123,  36.65840,   1.17498,    .49095,
     +     .00000,    .85209,   1.17917,
     +     .02715,    .01141,  44.20809,   1.32404,    .64603,
     +     .00032,   1.00430,   1.32816,
     +     .02751,    .01156,  51.25830,   1.47172,    .80093,
     +     .12967,   1.15467,   1.47580,
     +     .02791,    .01173,  59.65305,   1.65879,    .99703,
     +     .37330,   1.34467,   1.66281,
     +     .02833,    .01192,  68.91241,   1.87960,   1.22268,
     +     .59480,   1.56849,   1.88356,
     +     .02872,    .01210,  77.88580,   2.10216,   1.45106,
     +     .82983,   1.79373,   2.10607 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .02911,    .01228,  87.53463,   2.34954,   1.70653,
     +    1.09723,   2.04375,   2.35339,
     +     .02943,    .01243,  95.88535,   2.57232,   1.93488,
     +    1.33088,   2.26870,   2.57613,
     +     .02983,    .01261, 106.42301,   2.86323,   2.23222,
     +    1.63487,   2.56218,   2.86699,
     +     .03019,    .01278, 116.26574,   3.14196,   2.51906,
     +    1.93167,   2.84314,   3.14567,
     +     .03051,    .01293, 125.43786,   3.41176,   2.79314,
     +    2.20894,   3.11497,   3.41543,
     +     .03093,    .01313, 137.60457,   3.77815,   3.16726,
     +    2.59131,   3.48388,   3.78177,
     +     .03132,    .01333, 149.53354,   4.14753,   3.54494,
     +    2.97803,   3.85558,   4.15110,
     +     .03170,    .01351, 160.84229,   4.50985,   3.91218,
     +    3.34948,   4.22004,   4.51337 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .03207,    .01369, 172.65150,   4.89545,   4.30532,
     +    3.75072,   4.60775,   4.89893,
     +     .03244,    .01388, 184.35516,   5.28863,   4.70401,
     +    4.15459,   5.00295,   5.29207,
     +     .03279,    .01405, 195.76036,   5.67949,   5.10115,
     +    4.55822,   5.39571,   5.68289,
     +     .03312,    .01422, 206.67247,   6.06186,   5.48877,
     +    4.95101,   5.77982,   6.06522,
     +     .03346,    .01439, 217.87523,   6.46161,   5.89435,
     +    5.36257,   6.18132,   6.46494,
     +     .03379,    .01456, 229.01660,   6.86743,   6.30518,
     +    5.77834,   6.58882,   6.87071,
     +     .03410,    .01472, 239.85460,   7.26844,   6.71181,
     +    6.19083,   6.99142,   7.27170,
     +     .03441,    .01487, 250.10423,   7.65538,   7.10279,
     +    6.58574,   7.37984,   7.65861 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .03471,    .01503, 260.80753,   8.06381,   7.51716,
     +    7.00645,   7.78974,   8.06700,
     +     .03502,    .01519, 271.17145,   8.46821,   7.92505,
     +    7.41762,   8.19558,   8.47137,
     +     .03531,    .01534, 281.36646,   8.87019,   8.33176,
     +    7.82922,   8.59892,   8.87333,
     +     .03558,    .01549, 291.07977,   9.25897,   8.72473,
     +    8.22652,   8.98898,   9.26208,
     +     .03587,    .01563, 300.90906,   9.65843,   9.12782,
     +    8.63327,   9.38971,   9.66151 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .02690,    .01138,   2.76381,    .64853,    .00000,
     +     .00000,    .33197,    .65113,
     +     .02721,    .01151,   4.58370,    .65865,    .00002,
     +     .00000,    .34428,    .66122,
     +     .02767,    .01170,   7.72221,    .68373,    .02301,
     +     .00000,    .37256,    .68626,
     +     .02801,    .01184,  10.37511,    .71073,    .05896,
     +     .00000,    .40188,    .71324,
     +     .02837,    .01200,  13.39606,    .75061,    .10170,
     +     .00000,    .44417,    .75308,
     +     .02868,    .01213,  16.39907,    .79114,    .14846,
     +     .00000,    .48675,    .79358,
     +     .02899,    .01227,  19.44500,    .83868,    .19835,
     +     .00000,    .53624,    .84109,
     +     .02931,    .01241,  22.97827,    .89699,    .26073,
     +     .00000,    .59658,    .89937 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .02960,    .01254,  26.30256,    .95458,    .32270,
     +     .00000,    .65593,    .95694,
     +     .02988,    .01266,  29.65726,   1.01744,    .38796,
     +     .00000,    .72047,   1.01977,
     +     .03010,    .01276,  32.47479,   1.07183,    .44491,
     +     .00000,    .77617,   1.07414,
     +     .03057,    .01298,  38.82247,   1.20242,    .58078,
     +     .00030,    .90953,   1.20469,
     +     .03099,    .01317,  44.69851,   1.33085,    .71538,
     +     .11232,   1.04031,   1.33308,
     +     .03145,    .01339,  51.63612,   1.49235,    .88447,
     +     .32254,   1.20438,   1.49454,
     +     .03194,    .01362,  59.22810,   1.68150,   1.07750,
     +     .51168,   1.39616,   1.68366,
     +     .03239,    .01384,  66.53202,   1.87087,   1.27151,
     +     .71109,   1.58787,   1.87299 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .03284,    .01406,  74.33386,   2.08007,   1.48715,
     +     .93659,   1.79938,   2.08215,
     +     .03322,    .01424,  81.04548,   2.26740,   1.67881,
     +    1.13244,   1.98860,   2.26945,
     +     .03369,    .01447,  89.46533,   2.51070,   1.92702,
     +    1.38587,   2.23414,   2.51271,
     +     .03410,    .01467,  97.28644,   2.74258,   2.16522,
     +    1.63211,   2.46798,   2.74457,
     +     .03448,    .01486, 104.53514,   2.96594,   2.39169,
     +    1.86088,   2.69310,   2.96790,
     +     .03496,    .01511, 114.10131,   3.26780,   2.69936,
     +    2.17500,   2.99716,   3.26973,
     +     .03542,    .01534, 123.42919,   3.57056,   3.00840,
     +    2.49113,   3.30194,   3.57245,
     +     .03585,    .01556, 132.22295,   3.86607,   3.30740,
     +    2.79317,   3.59932,   3.86793 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .03629,    .01578, 141.36496,   4.17923,   3.62618,
     +    3.11823,   3.91431,   4.18106,
     +     .03672,    .01600, 150.38000,   4.49714,   3.94803,
     +    3.44391,   4.23399,   4.49895,
     +     .03713,    .01622, 159.12776,   4.81192,   4.26741,
     +    3.76823,   4.55043,   4.81371,
     +     .03751,    .01642, 167.46211,   5.11871,   4.57798,
     +    4.08263,   4.85875,   5.12048,
     +     .03790,    .01662, 175.98549,   5.43834,   4.90182,
     +    4.41099,   5.17989,   5.44008,
     +     .03829,    .01683, 184.42841,   5.76168,   5.22873,
     +    4.74153,   5.50470,   5.76340,
     +     .03866,    .01702, 192.61319,   6.08018,   5.55130,
     +    5.06852,   5.82458,   6.08188,
     +     .03901,    .01721, 200.32385,   6.38652,   5.86046,
     +    5.38050,   6.13221,   6.38821 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .03936,    .01740, 208.35481,   6.70901,   6.18731,
     +    5.71217,   6.45599,   6.71068,
     +     .03972,    .01758, 216.09799,   7.02730,   6.50796,
     +    6.03510,   6.77553,   7.02895,
     +     .04006,    .01777, 223.69629,   7.34290,   6.82695,
     +    6.35772,   7.09231,   7.34454,
     +     .04038,    .01794, 230.91319,   7.64732,   7.13436,
     +    6.66831,   7.39784,   7.64895,
     +     .04071,    .01812, 238.19307,   7.95932,   7.44886,
     +    6.98544,   7.71095,   7.96092 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .02921,    .01237,   2.80882,    .60767,    .00000,
     +     .00000,    .31109,    .60921,
     +     .02954,    .01252,   4.53079,    .61827,    .00002,
     +     .00000,    .32368,    .61978,
     +     .03005,    .01274,   7.45989,    .64319,    .02226,
     +     .00000,    .35153,    .64467,
     +     .03042,    .01291,   9.90777,    .66929,    .05679,
     +     .00000,    .37974,    .67074,
     +     .03082,    .01309,  12.67388,    .70706,    .09731,
     +     .00000,    .41970,    .70848,
     +     .03117,    .01325,  15.40344,    .74518,    .14125,
     +     .00000,    .45969,    .74658,
     +     .03151,    .01340,  18.15658,    .78948,    .18780,
     +     .00000,    .50577,    .79085,
     +     .03187,    .01357,  21.33235,    .84348,    .24565,
     +     .00000,    .56163,    .84484 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .03218,    .01372,  24.30551,    .89657,    .30279,
     +     .00000,    .61632,    .89790,
     +     .03249,    .01386,  27.29273,    .95421,    .36269,
     +     .00000,    .67548,    .95552,
     +     .03274,    .01398,  29.79258,   1.00391,    .41476,
     +     .00000,    .72639,   1.00521,
     +     .03326,    .01423,  35.39534,   1.12267,    .53835,
     +     .00028,    .84767,   1.12394,
     +     .03372,    .01446,  40.54929,   1.23884,    .66007,
     +     .10141,    .96596,   1.24007,
     +     .03424,    .01471,  46.59734,   1.38415,    .81213,
     +     .29066,   1.11362,   1.38536,
     +     .03478,    .01498,  53.17852,   1.55338,    .98475,
     +     .45967,   1.28524,   1.55456,
     +     .03528,    .01522,  59.47687,   1.72199,   1.15736,
     +     .63704,   1.45597,   1.72314 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .03578,    .01548,  66.17272,   1.90742,   1.34837,
     +     .83676,   1.64351,   1.90855,
     +     .03621,    .01569,  71.90795,   2.07281,   1.51744,
     +    1.00946,   1.81061,   2.07391,
     +     .03672,    .01595,  79.07272,   2.28676,   1.73553,
     +    1.23207,   2.02661,   2.28784,
     +     .03718,    .01619,  85.70139,   2.48991,   1.94405,
     +    1.44759,   2.23154,   2.49097,
     +     .03760,    .01641,  91.82097,   2.68491,   2.14159,
     +    1.64705,   2.42814,   2.68596,
     +     .03814,    .01669,  99.86725,   2.94753,   2.40907,
     +    1.92006,   2.69275,   2.94855,
     +     .03865,    .01695, 107.68206,   3.20996,   2.67675,
     +    2.19384,   2.95702,   3.21096,
     +     .03914,    .01721, 115.01953,   3.46522,   2.93482,
     +    2.45443,   3.21397,   3.46620 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .03962,    .01746, 122.62321,   3.73489,   3.20915,
     +    2.73413,   3.48531,   3.73585,
     +     .04010,    .01772, 130.09390,   4.00779,   3.48525,
     +    3.01342,   3.75981,   4.00873,
     +     .04055,    .01796, 137.32101,   4.27724,   3.75848,
     +    3.29083,   4.03076,   4.27818,
     +     .04098,    .01819, 144.18538,   4.53915,   4.02345,
     +    3.55902,   4.29406,   4.54007,
     +     .04142,    .01842, 151.18591,   4.81133,   4.29909,
     +    3.83846,   4.56762,   4.81224,
     +     .04185,    .01865, 158.10007,   5.08599,   4.57663,
     +    4.11903,   4.84361,   5.08688,
     +     .04226,    .01887, 164.78622,   5.35592,   4.84990,
     +    4.39601,   5.11479,   5.35680,
     +     .04265,    .01909, 171.06720,   5.61495,   5.11119,
     +    4.65963,   5.37500,   5.61583 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .04304,    .01930, 177.59706,   5.88712,   5.38695,
     +    4.93947,   5.64833,   5.88799,
     +     .04344,    .01951, 183.87283,   6.15513,   5.65681,
     +    5.21118,   5.91747,   6.15599,
     +     .04381,    .01972, 190.02084,   6.42039,   5.92484,
     +    5.48225,   6.18381,   6.42124,
     +     .04417,    .01992, 195.84616,   6.67578,   6.18265,
     +    5.74271,   6.44021,   6.67663,
     +     .04453,    .02011, 201.70891,   6.93703,   6.44591,
     +    6.00814,   6.70247,   6.93787 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .03113,    .01320,   2.84400,    .57770,    .00000,
     +     .00000,    .29584,    .57857,
     +     .03149,    .01336,   4.49006,    .58859,    .00002,
     +     .00000,    .30859,    .58944,
     +     .03204,    .01362,   7.26226,    .61334,    .02169,
     +     .00000,    .33606,    .61416,
     +     .03244,    .01380,   9.55916,    .63873,    .05514,
     +     .00000,    .36342,    .63953,
     +     .03287,    .01401,  12.13950,    .67493,    .09401,
     +     .00000,    .40166,    .67571,
     +     .03325,    .01419,  14.67132,    .71127,    .13587,
     +     .00000,    .43974,    .71202,
     +     .03361,    .01436,  17.21404,    .75319,    .17996,
     +     .00000,    .48332,    .75393,
     +     .03400,    .01455,  20.13434,    .80406,    .23449,
     +     .00000,    .53592,    .80478 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .03434,    .01472,  22.85784,    .85387,    .28813,
     +     .00000,    .58722,    .85457,
     +     .03468,    .01488,  25.58490,    .90772,    .34414,
     +     .00000,    .64249,    .90841,
     +     .03494,    .01501,  27.86062,    .95405,    .39269,
     +     .00000,    .68993,    .95472,
     +     .03551,    .01529,  32.94036,   1.06429,    .50746,
     +     .00027,    .80252,   1.06494,
     +     .03601,    .01554,  37.59021,   1.17167,    .61997,
     +     .09365,    .91188,   1.17230,
     +     .03657,    .01583,  43.02061,   1.30543,    .75993,
     +     .26804,   1.04783,   1.30604,
     +     .03716,    .01613,  48.90368,   1.46052,    .91809,
     +     .42287,   1.20514,   1.46111,
     +     .03770,    .01640,  54.51081,   1.61445,   1.07564,
     +     .58478,   1.36104,   1.61501 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .03825,    .01669,  60.44971,   1.78316,   1.24937,
     +     .76647,   1.53170,   1.78371,
     +     .03871,    .01692,  65.51928,   1.93314,   1.40264,
     +     .92305,   1.68328,   1.93368,
     +     .03927,    .01722,  71.83153,   2.12659,   1.59976,
     +    1.12426,   1.87862,   2.12710,
     +     .03977,    .01748,  77.65329,   2.30973,   1.78768,
     +    1.31854,   2.06341,   2.31023,
     +     .04023,    .01772,  83.01126,   2.48503,   1.96521,
     +    1.49778,   2.24021,   2.48552,
     +     .04081,    .01803,  90.03576,   2.72049,   2.20495,
     +    1.74251,   2.47752,   2.72097,
     +     .04137,    .01833,  96.83708,   2.95511,   2.44420,
     +    1.98726,   2.71384,   2.95557,
     +     .04189,    .01861, 103.20245,   3.18268,   2.67420,
     +    2.21950,   2.94299,   3.18314 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .04242,    .01889, 109.78229,   3.42253,   2.91815,
     +    2.46827,   3.18439,   3.42298,
     +     .04294,    .01917, 116.22827,   3.66466,   3.16305,
     +    2.71602,   3.42801,   3.66510,
     +     .04343,    .01944, 122.44904,   3.90320,   3.40490,
     +    2.96160,   3.66794,   3.90363,
     +     .04390,    .01970, 128.34305,   4.13458,   3.63894,
     +    3.19851,   3.90061,   4.13500,
     +     .04437,    .01995, 134.34097,   4.37457,   3.88193,
     +    3.44489,   4.14187,   4.37498,
     +     .04484,    .02021, 140.25114,   4.61626,   4.12613,
     +    3.69178,   4.38480,   4.61667,
     +     .04528,    .02045, 145.95520,   4.85338,   4.36615,
     +    3.93512,   4.62308,   4.85378,
     +     .04571,    .02069, 151.30153,   5.08051,   4.59523,
     +    4.16627,   4.85130,   5.08091 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .04613,    .02092, 156.85155,   5.31881,   4.83668,
     +    4.41134,   5.09068,   5.31921,
     +     .04656,    .02116, 162.17198,   5.55303,   5.07248,
     +    4.64879,   5.32596,   5.55343,
     +     .04697,    .02138, 167.37685,   5.78454,   5.30641,
     +    4.88541,   5.55847,   5.78493,
     +     .04736,    .02160, 172.29993,   6.00710,   5.53107,
     +    5.11243,   5.78196,   6.00749,
     +     .04775,    .02182, 177.24495,   6.23444,   5.76014,
     +    5.34342,   6.01024,   6.23483 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .03797,    .01619,   2.95410,    .49346,    .00000,
     +     .00000,    .25332,    .49313,
     +     .03843,    .01643,   4.36491,    .50491,    .00002,
     +     .00000,    .26628,    .50458,
     +     .03912,    .01679,   6.67868,    .52882,    .01996,
     +     .00000,    .29238,    .52846,
     +     .03964,    .01706,   8.54772,    .55202,    .05023,
     +     .00000,    .31717,    .55166,
     +     .04018,    .01735,  10.61083,    .58367,    .08430,
     +     .00000,    .35046,    .58330,
     +     .04066,    .01761,  12.59987,    .61492,    .12018,
     +     .00000,    .38311,    .61454,
     +     .04113,    .01785,  14.57125,    .65015,    .15730,
     +     .00000,    .41966,    .64976,
     +     .04163,    .01812,  16.80486,    .69226,    .20256,
     +     .00000,    .46317,    .69187 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .04207,    .01836,  18.86316,    .73299,    .24646,
     +     .00000,    .50510,    .73259,
     +     .04249,    .01859,  20.90223,    .77643,    .29176,
     +     .00000,    .54968,    .77603,
     +     .04284,    .01877,  22.58892,    .81348,    .33066,
     +     .00000,    .58762,    .81307,
     +     .04357,    .01917,  26.30577,    .90056,    .42147,
     +     .00023,    .67658,    .90014,
     +     .04421,    .01952,  29.65526,    .98420,    .50921,
     +     .07296,    .76181,    .98378,
     +     .04493,    .01992,  33.50751,   1.08702,    .61688,
     +     .20788,    .86639,   1.08660,
     +     .04569,    .02034,  37.62299,   1.20454,    .73686,
     +     .32549,    .98569,   1.20412,
     +     .04639,    .02073,  41.49468,   1.31978,    .85491,
     +     .44710,   1.10250,   1.31935 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .04709,    .02112,  45.54741,   1.44470,    .98364,
     +     .58212,   1.22899,   1.44428,
     +     .04769,    .02146,  48.96956,   1.55464,   1.09608,
     +     .69723,   1.34021,   1.55423,
     +     .04841,    .02186,  53.18588,   1.69508,   1.23927,
     +     .84372,   1.48217,   1.69466,
     +     .04905,    .02223,  57.03621,   1.82681,   1.37455,
     +     .98395,   1.61522,   1.82640,
     +     .04965,    .02256,  60.54451,   1.95181,   1.50121,
     +    1.11204,   1.74141,   1.95141,
     +     .05040,    .02299,  65.10178,   2.11828,   1.67083,
     +    1.28559,   1.90937,   2.11789,
     +     .05112,    .02340,  69.47065,   2.28266,   1.83862,
     +    1.45764,   2.07512,   2.28227,
     +     .05180,    .02378,  73.51698,   2.44073,   1.99847,
     +    1.61934,   2.23445,   2.44035 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .05248,    .02417,  77.66644,   2.60607,   2.16681,
     +    1.79141,   2.40103,   2.60571,
     +     .05315,    .02456,  81.69344,   2.77170,   2.33446,
     +    1.96133,   2.56785,   2.77134,
     +     .05378,    .02492,  85.54959,   2.93374,   2.49891,
     +    2.12868,   2.73100,   2.93340,
     +     .05439,    .02527,  89.17443,   3.08987,   2.65699,
     +    2.28903,   2.88817,   3.08954,
     +     .05500,    .02562,  92.83694,   3.25082,   2.82014,
     +    2.45481,   3.05014,   3.25050,
     +     .05560,    .02596,  96.41853,   3.41191,   2.98306,
     +    2.61985,   3.21222,   3.41161,
     +     .05617,    .02630,  99.85363,   3.56907,   3.14234,
     +    2.78170,   3.37031,   3.56878,
     +     .05672,    .02661, 103.04897,   3.71876,   3.29346,
     +    2.93446,   3.52087,   3.71848 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .05727,    .02693, 106.35128,   3.87508,   3.45207,
     +    3.09586,   3.67806,   3.87481,
     +     .05782,    .02725, 109.48943,   4.02783,   3.60600,
     +    3.25111,   3.83165,   4.02757,
     +     .05834,    .02755, 112.54659,   4.17816,   3.75809,
     +    3.40531,   3.98278,   4.17791,
     +     .05885,    .02784, 115.42027,   4.32199,   3.90347,
     +    3.55252,   4.12737,   4.32176,
     +     .05935,    .02814, 118.28902,   4.46823,   4.05101,
     +    3.70158,   4.27436,   4.46802 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .04639,    .02004,   3.06293,    .42161,    .00000,
     +     .00000,    .21750,    .42114,
     +     .04698,    .02037,   4.24084,    .43319,    .00002,
     +     .00000,    .23029,    .43271,
     +     .04786,    .02088,   6.13604,    .45586,    .01827,
     +     .00000,    .25475,    .45538,
     +     .04852,    .02126,   7.63175,    .47687,    .04550,
     +     .00000,    .27704,    .47640,
     +     .04922,    .02167,   9.25560,    .50437,    .07519,
     +     .00000,    .30587,    .50390,
     +     .04984,    .02203,  10.79385,    .53108,    .10574,
     +     .00000,    .33372,    .53061,
     +     .05044,    .02237,  12.29875,    .56049,    .13677,
     +     .00000,    .36421,    .56002,
     +     .05108,    .02275,  13.98059,    .59511,    .17404,
     +     .00000,    .39995,    .59465 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .05164,    .02308,  15.51177,    .62815,    .20968,
     +     .00000,    .43397,    .62769,
     +     .05219,    .02340,  17.01226,    .66288,    .24601,
     +     .00000,    .46963,    .66243,
     +     .05263,    .02366,  18.24235,    .69224,    .27690,
     +     .00000,    .49971,    .69180,
     +     .05358,    .02422,  20.91710,    .76032,    .34811,
     +     .00021,    .56932,    .75989,
     +     .05440,    .02471,  23.28836,    .82476,    .41588,
     +     .05647,    .63505,    .82434,
     +     .05533,    .02526,  25.97167,    .90288,    .49791,
     +     .16016,    .71460,    .90248,
     +     .05632,    .02584,  28.79719,    .99082,    .58798,
     +     .24886,    .80398,    .99043,
     +     .05722,    .02638,  31.41946,   1.07596,    .67549,
     +     .33953,    .89041,   1.07560 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .05813,    .02692,  34.13087,   1.16721,    .76983,
     +     .43908,    .98294,   1.16687,
     +     .05889,    .02738,  36.39437,   1.24668,    .85138,
     +     .52301,   1.06346,   1.24636,
     +     .05983,    .02794,  39.15232,   1.34718,    .95419,
     +     .62876,   1.16519,   1.34689,
     +     .06066,    .02844,  41.64487,   1.44056,   1.05042,
     +     .72909,   1.25965,   1.44029,
     +     .06143,    .02890,  43.89167,   1.52837,   1.13968,
     +     .81980,   1.34843,   1.52811,
     +     .06241,    .02949,  46.78208,   1.64429,   1.25820,
     +     .94171,   1.46556,   1.64406,
     +     .06333,    .03004,  49.52397,   1.75769,   1.37436,
     +    1.06148,   1.58008,   1.75749,
     +     .06421,    .03057,  52.03463,   1.86575,   1.48399,
     +    1.17290,   1.68918,   1.86558 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .06508,    .03109,  54.58787,   1.97793,   1.59861,
     +    1.29068,   1.80237,   1.97779,
     +     .06595,    .03161,  57.04021,   2.08938,   1.71181,
     +    1.40596,   1.91480,   2.08927,
     +     .06677,    .03211,  59.36906,   2.19765,   1.82207,
     +    1.51874,   2.02398,   2.19757,
     +     .06755,    .03257,  61.53922,   2.30126,   1.92733,
     +    1.62602,   2.12844,   2.30121,
     +     .06833,    .03305,  63.71518,   2.40738,   2.03528,
     +    1.73627,   2.23540,   2.40736,
     +     .06911,    .03351,  65.82523,   2.51292,   2.14237,
     +    1.84528,   2.34175,   2.51293,
     +     .06985,    .03396,  67.83522,   2.61529,   2.24650,
     +    1.95161,   2.44489,   2.61532,
     +     .07055,    .03438,  69.68893,   2.71221,   2.34466,
     +    2.05131,   2.54252,   2.71227 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .07126,    .03481,  71.59602,   2.81294,   2.44727,
     +    2.15625,   2.64398,   2.81304,
     +     .07197,    .03523,  73.38959,   2.91076,   2.54615,
     +    2.25643,   2.74249,   2.91088,
     +     .07264,    .03564,  75.12943,   3.00661,   2.64348,
     +    2.35558,   2.83900,   3.00675,
     +     .07328,    .03602,  76.75350,   3.09786,   2.73604,
     +    2.44976,   2.93087,   3.09803,
     +     .07393,    .03641,  78.36304,   3.19019,   2.82949,
     +    2.54461,   3.02381,   3.19039 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .05222,    .02286,   3.12376,    .38501,    .00000,
     +     .00000,    .19938,    .38478,
     +     .05290,    .02327,   4.16793,    .39649,    .00002,
     +     .00000,    .21194,    .39626,
     +     .05393,    .02389,   5.83460,    .41827,    .01727,
     +     .00000,    .23531,    .41806,
     +     .05470,    .02435,   7.13319,    .43798,    .04276,
     +     .00000,    .25615,    .43777,
     +     .05552,    .02485,   8.52999,    .46318,    .07001,
     +     .00000,    .28254,    .46299,
     +     .05623,    .02528,   9.83948,    .48742,    .09768,
     +     .00000,    .30779,    .48723,
     +     .05693,    .02570,  11.11092,    .51374,    .12547,
     +     .00000,    .33508,    .51357,
     +     .05768,    .02616,  12.52029,    .54444,    .15854,
     +     .00000,    .36678,    .54428 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .05833,    .02656,  13.79420,    .57350,    .18991,
     +     .00000,    .39671,    .57336,
     +     .05897,    .02695,  15.03449,    .60378,    .22164,
     +     .00000,    .42782,    .60365,
     +     .05949,    .02727,  16.04583,    .62923,    .24847,
     +     .00000,    .45391,    .62911,
     +     .06059,    .02794,  18.22705,    .68777,    .30983,
     +     .00019,    .51382,    .68768,
     +     .06155,    .02853,  20.14139,    .74268,    .36771,
     +     .04835,    .56988,    .74261,
     +     .06263,    .02920,  22.28590,    .80867,    .43718,
     +     .13675,    .63715,    .80863,
     +     .06378,    .02990,  24.52433,    .88227,    .51279,
     +     .21152,    .71204,    .88227,
     +     .06483,    .03055,  26.58451,    .95298,    .58568,
     +     .28741,    .78391,    .95301 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .06589,    .03120,  28.69873,   1.02825,    .66373,
     +     .37019,    .86032,   1.02831,
     +     .06678,    .03175,  30.45131,   1.09337,    .73076,
     +     .43952,    .92638,   1.09346,
     +     .06787,    .03242,  32.57201,   1.17523,    .81477,
     +     .52633,   1.00935,   1.17536,
     +     .06884,    .03302,  34.47643,   1.25085,    .89295,
     +     .60825,   1.08594,   1.25101,
     +     .06973,    .03357,  36.18145,   1.32157,    .96506,
     +     .68185,   1.15753,   1.32176,
     +     .07087,    .03427,  38.36169,   1.41443,   1.06032,
     +     .78029,   1.25149,   1.41467,
     +     .07195,    .03494,  40.41636,   1.50477,   1.15316,
     +     .87647,   1.34283,   1.50504,
     +     .07296,    .03556,  42.28400,   1.59038,   1.24028,
     +     .96539,   1.42937,   1.59069 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .07398,    .03619,  44.17350,   1.67884,   1.33097,
     +    1.05901,   1.51875,   1.67919,
     +     .07499,    .03680,  45.97627,   1.76629,   1.42007,
     +    1.15014,   1.60708,   1.76669,
     +     .07594,    .03739,  47.67925,   1.85088,   1.50649,
     +    1.23894,   1.69250,   1.85131,
     +     .07684,    .03795,  49.25727,   1.93148,   1.58864,
     +    1.32303,   1.77387,   1.93196,
     +     .07775,    .03850,  50.83173,   2.01373,   1.67258,
     +    1.40913,   1.85687,   2.01424,
     +     .07865,    .03906,  52.35015,   2.09519,   1.75551,
     +    1.49390,   1.93908,   2.09575,
     +     .07951,    .03958,  53.79026,   2.17393,   1.83587,
     +    1.57633,   2.01852,   2.17453,
     +     .08032,    .04008,  55.11074,   2.24821,   1.91134,
     +    1.65329,   2.09344,   2.24884 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .08114,    .04058,  56.46558,   2.32519,   1.99002,
     +    1.73413,   2.17108,   2.32586,
     +     .08196,    .04108,  57.73061,   2.39965,   2.06552,
     +    1.81093,   2.24617,   2.40036,
     +     .08274,    .04156,  58.95456,   2.47242,   2.13966,
     +    1.88678,   2.31954,   2.47316,
     +     .08348,    .04201,  60.09168,   2.54148,   2.20994,
     +    1.95860,   2.38917,   2.54226,
     +     .08423,    .04247,  61.21302,   2.61115,   2.28068,
     +    2.03070,   2.45940,   2.61196 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .05685,    .02522,   3.16433,    .36146,    .00000,
     +     .00000,    .18774,    .36147,
     +     .05761,    .02569,   4.11560,    .37279,    .00002,
     +     .00000,    .20007,    .37282,
     +     .05876,    .02641,   5.62657,    .39388,    .01654,
     +     .00000,    .22262,    .39393,
     +     .05962,    .02694,   6.79336,    .41263,    .04079,
     +     .00000,    .24242,    .41269,
     +     .06053,    .02751,   8.04031,    .43623,    .06635,
     +     .00000,    .26712,    .43632,
     +     .06133,    .02801,   9.20057,    .45878,    .09205,
     +     .00000,    .29059,    .45888,
     +     .06211,    .02850,  10.32111,    .48302,    .11766,
     +     .00000,    .31572,    .48314,
     +     .06295,    .02902,  11.55588,    .51110,    .14793,
     +     .00000,    .34473,    .51124 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .06368,    .02948,  12.66617,    .53752,    .17647,
     +     .00000,    .37195,    .53768,
     +     .06440,    .02993,  13.74211,    .56488,    .20518,
     +     .00000,    .40008,    .56506,
     +     .06497,    .03029,  14.61602,    .58777,    .22936,
     +     .00000,    .42357,    .58797,
     +     .06620,    .03106,  16.48958,    .64012,    .28433,
     +     .00018,    .47719,    .64036,
     +     .06727,    .03173,  18.12166,    .68890,    .33586,
     +     .04314,    .52704,    .68917,
     +     .06849,    .03250,  19.93624,    .74716,    .39731,
     +     .12177,    .58648,    .74747,
     +     .06977,    .03330,  21.81818,    .81170,    .46377,
     +     .18775,    .65222,    .81205,
     +     .07094,    .03403,  23.53963,    .87335,    .52749,
     +     .25436,    .71494,    .87374 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .07213,    .03478,  25.29647,    .93863,    .59537,
     +     .32667,    .78129,    .93907,
     +     .07312,    .03540,  26.74517,    .99486,    .65340,
     +     .38693,    .83839,    .99533,
     +     .07433,    .03616,  28.48916,   1.06522,    .72581,
     +     .46206,    .90979,   1.06574,
     +     .07541,    .03684,  30.04790,   1.12995,    .79293,
     +     .53267,    .97542,   1.13051,
     +     .07641,    .03747,  31.43626,   1.19023,    .85456,
     +     .59583,   1.03651,   1.19083,
     +     .07768,    .03826,  33.20363,   1.26909,    .93568,
     +     .68000,   1.11639,   1.26974,
     +     .07888,    .03901,  34.86102,   1.34548,   1.01443,
     +     .76190,   1.19373,   1.34618,
     +     .08001,    .03972,  36.35911,   1.41758,   1.08801,
     +     .83728,   1.26671,   1.41834 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .08115,    .04043,  37.86890,   1.49183,   1.16435,
     +     .91641,   1.34182,   1.49264,
     +     .08227,    .04112,  39.30195,   1.56497,   1.23908,
     +     .99314,   1.41578,   1.56583,
     +     .08333,    .04178,  40.65031,   1.63549,   1.31134,
     +    1.06767,   1.48708,   1.63639,
     +     .08433,    .04240,  41.89430,   1.70248,   1.37981,
     +    1.13803,   1.55479,   1.70343,
     +     .08534,    .04303,  43.13081,   1.77063,   1.44958,
     +    1.20986,   1.62366,   1.77163,
     +     .08634,    .04365,  44.31818,   1.83795,   1.51831,
     +    1.28038,   1.69167,   1.83900,
     +     .08729,    .04424,  45.44058,   1.90285,   1.58474,
     +    1.34878,   1.75723,   1.90394,
     +     .08819,    .04480,  46.46502,   1.96390,   1.64694,
     +    1.41245,   1.81889,   1.96503 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08911,    .04536,  47.51407,   2.02704,   1.71168,
     +    1.47923,   1.88265,   2.02823,
     +     .09001,    .04592,  48.48780,   2.08793,   1.77359,
     +    1.54244,   1.94414,   2.08916,
     +     .09087,    .04645,  49.42817,   2.14733,   1.83429,
     +    1.60477,   2.00411,   2.14860,
     +     .09170,    .04696,  50.29848,   2.20357,   1.89170,
     +    1.66366,   2.06088,   2.20489,
     +     .09253,    .04747,  51.15329,   2.26017,   1.94934,
     +    1.72263,   2.11802,   2.26153 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .06076,    .02744,   3.19612,    .34535,    .00000,
     +     .00000,    .17961,    .34532,
     +     .06159,    .02797,   4.07957,    .35657,    .00002,
     +     .00000,    .19176,    .35655,
     +     .06285,    .02877,   5.47187,    .37707,    .01595,
     +     .00000,    .21361,    .37708,
     +     .06379,    .02937,   6.53831,    .39503,    .03919,
     +     .00000,    .23256,    .39507,
     +     .06480,    .03001,   7.67199,    .41737,    .06344,
     +     .00000,    .25592,    .41743,
     +     .06568,    .03057,   8.72036,    .43857,    .08763,
     +     .00000,    .27800,    .43867,
     +     .06653,    .03112,   9.72854,    .46120,    .11157,
     +     .00000,    .30145,    .46132,
     +     .06745,    .03170,  10.83420,    .48726,    .13972,
     +     .00000,    .32838,    .48741 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .06825,    .03221,  11.82423,    .51167,    .16612,
     +     .00000,    .35355,    .51185,
     +     .06904,    .03271,  12.78005,    .53682,    .19257,
     +     .00000,    .37941,    .53703,
     +     .06967,    .03311,  13.55394,    .55781,    .21477,
     +     .00000,    .40096,    .55803,
     +     .07102,    .03397,  15.20488,    .60555,    .26501,
     +     .00017,    .44989,    .60582,
     +     .07220,    .03472,  16.63424,    .64981,    .31184,
     +     .03929,    .49515,    .65012,
     +     .07353,    .03557,  18.21366,    .70240,    .36742,
     +     .11072,    .54885,    .70276,
     +     .07493,    .03646,  19.84305,    .76034,    .42722,
     +     .17025,    .60792,    .76076,
     +     .07621,    .03728,  21.32609,    .81544,    .48429,
     +     .23011,    .66403,    .81592 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07751,    .03810,  22.83273,    .87356,    .54484,
     +     .29484,    .72315,    .87409,
     +     .07860,    .03879,  24.06967,    .92342,    .59642,
     +     .34856,    .77383,    .92399,
     +     .07993,    .03963,  25.55252,    .98559,    .66053,
     +     .41530,    .83697,    .98622,
     +     .08111,    .04038,  26.87277,   1.04258,    .71977,
     +     .47783,    .89482,   1.04327,
     +     .08220,    .04106,  28.04374,   1.09549,    .77398,
     +     .53354,    .94850,   1.09623,
     +     .08359,    .04194,  29.52871,   1.16448,    .84511,
     +     .60759,   1.01845,   1.16528,
     +     .08490,    .04276,  30.91543,   1.23109,    .91394,
     +     .67941,   1.08596,   1.23195,
     +     .08614,    .04354,  32.16307,   1.29375,    .97803,
     +     .74526,   1.14944,   1.29468 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08738,    .04431,  33.41642,   1.35810,   1.04435,
     +     .81423,   1.21461,   1.35909,
     +     .08860,    .04508,  34.60083,   1.42130,   1.10907,
     +     .88088,   1.27859,   1.42235,
     +     .08975,    .04580,  35.71157,   1.48207,   1.17150,
     +     .94548,   1.34010,   1.48318,
     +     .09084,    .04648,  36.73269,   1.53966,   1.23051,
     +    1.00630,   1.39837,   1.54082,
     +     .09195,    .04716,  37.74429,   1.59811,   1.29048,
     +    1.06825,   1.45750,   1.59933,
     +     .09303,    .04784,  38.71195,   1.65570,   1.34943,
     +    1.12893,   1.51576,   1.65698,
     +     .09407,    .04848,  39.62410,   1.71111,   1.40629,
     +    1.18767,   1.57179,   1.71244,
     +     .09505,    .04909,  40.45333,   1.76311,   1.45941,
     +    1.24220,   1.62437,   1.76449 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09604,    .04970,  41.30114,   1.81681,   1.51462,
     +    1.29933,   1.67867,   1.81825,
     +     .09702,    .05030,  42.08379,   1.86846,   1.56726,
     +    1.35325,   1.73088,   1.86995,
     +     .09796,    .05088,  42.83852,   1.91876,   1.61881,
     +    1.40636,   1.78173,   1.92031,
     +     .09885,    .05143,  43.53482,   1.96631,   1.66747,
     +    1.45643,   1.82979,   1.96790,
     +     .09975,    .05199,  44.21644,   2.01407,   1.71624,
     +    1.50647,   1.87806,   2.01571 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07508,    .03623,   3.26381,    .30095,    .00000,
     +     .00000,    .15726,    .30109,
     +     .07621,    .03698,   3.94076,    .31149,    .00002,
     +     .00000,    .16857,    .31168,
     +     .07791,    .03812,   4.98498,    .32984,    .01400,
     +     .00000,    .18804,    .33010,
     +     .07918,    .03897,   5.76591,    .34528,    .03404,
     +     .00000,    .20428,    .34558,
     +     .08053,    .03988,   6.58349,    .36373,    .05426,
     +     .00000,    .22358,    .36409,
     +     .08172,    .04067,   7.32519,    .38094,    .07395,
     +     .00000,    .24152,    .38135,
     +     .08287,    .04143,   8.02926,    .39885,    .09303,
     +     .00000,    .26012,    .39931,
     +     .08411,    .04225,   8.78991,    .41913,    .11511,
     +     .00000,    .28112,    .41964 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08519,    .04297,   9.46212,    .43783,    .13548,
     +     .00000,    .30046,    .43840,
     +     .08625,    .04366,  10.10345,    .45681,    .15561,
     +     .00000,    .32003,    .45743,
     +     .08709,    .04422,  10.61757,    .47247,    .17232,
     +     .00000,    .33616,    .47313,
     +     .08890,    .04541,  11.69679,    .50757,    .20960,
     +     .00014,    .37226,    .50832,
     +     .09048,    .04644,  12.61228,    .53955,    .24377,
     +     .02893,    .40510,    .54038,
     +     .09227,    .04761,  13.60275,    .57696,    .28369,
     +     .08109,    .44345,    .57787,
     +     .09414,    .04882,  14.60749,    .61745,    .32591,
     +     .12366,    .48491,    .61847,
     +     .09585,    .04992,  15.50695,    .65540,    .36563,
     +     .16589,    .52372,    .65651 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09758,    .05104,  16.40709,    .69490,    .40724,
     +     .21099,    .56409,    .69611,
     +     .09903,    .05197,  17.13549,    .72838,    .44225,
     +     .24795,    .59827,    .72966,
     +     .10079,    .05310,  17.99626,    .76963,    .48527,
     +     .29334,    .64037,    .77102,
     +     .10235,    .05409,  18.75275,    .80704,    .52460,
     +     .33544,    .67853,    .80852,
     +     .10379,    .05501,  19.41375,    .84140,    .56020,
     +     .37251,    .71355,    .84295,
     +     .10562,    .05616,  20.24143,    .88574,    .60646,
     +     .42132,    .75875,    .88741,
     +     .10735,    .05725,  21.00356,    .92809,    .65074,
     +     .46817,    .80189,    .92986,
     +     .10897,    .05827,  21.67765,    .96750,    .69152,
     +     .51062,    .84202,    .96937 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11059,    .05929,  22.34751,   1.00761,    .73337,
     +     .55475,    .88286,   1.00958,
     +     .11218,    .06028,  22.97047,   1.04661,    .77380,
     +     .59694,    .92256,   1.04868,
     +     .11368,    .06121,  23.54779,   1.08380,    .81249,
     +     .63752,    .96040,   1.08596,
     +     .11510,    .06209,  24.07136,   1.11875,    .84875,
     +     .67540,    .99596,   1.12100,
     +     .11653,    .06297,  24.58404,   1.15395,    .88533,
     +     .71372,   1.03178,   1.15629,
     +     .11793,    .06384,  25.06767,   1.18836,    .92100,
     +     .75094,   1.06678,   1.19078,
     +     .11927,    .06466,  25.51892,   1.22123,    .95519,
     +     .78675,   1.10022,   1.22374,
     +     .12053,    .06543,  25.92270,   1.25185,    .98687,
     +     .81972,   1.13136,   1.25443 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12181,    .06621,  26.33344,   1.28330,   1.01965,
     +     .85413,   1.16335,   1.28597,
     +     .12306,    .06698,  26.70440,   1.31328,   1.05062,
     +     .88628,   1.19385,   1.31603,
     +     .12426,    .06771,  27.06040,   1.34235,   1.08081,
     +     .91783,   1.22341,   1.34518,
     +     .12540,    .06840,  27.38445,   1.36964,   1.10914,
     +     .94739,   1.25117,   1.37254,
     +     .12655,    .06909,  27.69705,   1.39688,   1.13734,
     +     .97674,   1.27887,   1.39986 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09409,    .04952,   3.24185,    .26559,    .00000,
     +     .00000,    .13904,    .26601,
     +     .09566,    .05059,   3.72768,    .27487,    .00002,
     +     .00000,    .14897,    .27538,
     +     .09803,    .05220,   4.45878,    .29034,    .01174,
     +     .00000,    .16542,    .29099,
     +     .09980,    .05339,   4.99154,    .30287,    .02827,
     +     .00000,    .17865,    .30362,
     +     .10168,    .05465,   5.54112,    .31732,    .04442,
     +     .00000,    .19384,    .31818,
     +     .10333,    .05575,   6.02998,    .33056,    .05979,
     +     .00000,    .20772,    .33152,
     +     .10492,    .05680,   6.48794,    .34401,    .07437,
     +     .00000,    .22178,    .34507,
     +     .10662,    .05792,   6.97511,    .35898,    .09095,
     +     .00000,    .23740,    .36014 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10811,    .05891,   7.39982,    .37258,    .10603,
     +     .00000,    .25156,    .37384,
     +     .10956,    .05985,   7.80003,    .38616,    .12070,
     +     .00000,    .26568,    .38751,
     +     .11072,    .06061,   8.11747,    .39725,    .13275,
     +     .00000,    .27719,    .39867,
     +     .11320,    .06221,   8.77186,    .42172,    .15924,
     +     .00012,    .30256,    .42330,
     +     .11535,    .06360,   9.31401,    .44363,    .18310,
     +     .02049,    .32525,    .44535,
     +     .11778,    .06516,   9.88582,    .46881,    .21052,
     +     .05711,    .35130,    .47070,
     +     .12031,    .06676,  10.45530,    .49560,    .23902,
     +     .08636,    .37897,    .49766,
     +     .12261,    .06822,  10.95547,    .52031,    .26542,
     +     .11498,    .40449,    .52253 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12493,    .06968,  11.44748,    .54567,    .29272,
     +     .14515,    .43066,    .54805,
     +     .12687,    .07089,  11.83889,    .56689,    .31539,
     +     .16954,    .45255,    .56941,
     +     .12921,    .07234,  12.29353,    .59272,    .34292,
     +     .19914,    .47917,    .59540,
     +     .13129,    .07362,  12.68704,    .61586,    .36780,
     +     .22632,    .50302,    .61869,
     +     .13319,    .07479,  13.02433,    .63686,    .39006,
     +     .24993,    .52465,    .63982,
     +     .13559,    .07626,  13.44020,    .66367,    .41869,
     +     .28074,    .55228,    .66681,
     +     .13786,    .07764,  13.81644,    .68898,    .44579,
     +     .30998,    .57834,    .69228,
     +     .13997,    .07891,  14.14149,    .71223,    .47043,
     +     .33614,    .60229,    .71569 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14207,    .08018,  14.46016,    .73567,    .49551,
     +     .36312,    .62643,    .73928,
     +     .14413,    .08140,  14.74975,    .75821,    .51947,
     +     .38863,    .64966,    .76198,
     +     .14607,    .08256,  15.01388,    .77950,    .54219,
     +     .41296,    .67159,    .78341,
     +     .14789,    .08364,  15.24876,    .79931,    .56329,
     +     .43546,    .69200,    .80336,
     +     .14972,    .08471,  15.47489,    .81909,    .58442,
     +     .45804,    .71238,    .82328,
     +     .15151,    .08576,  15.68364,    .83825,    .60483,
     +     .47979,    .73213,    .84258,
     +     .15320,    .08676,  15.87554,    .85642,    .62425,
     +     .50057,    .75086,    .86087,
     +     .15480,    .08768,  16.04272,    .87317,    .64209,
     +     .51953,    .76814,    .87775 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .15642,    .08862,  16.21190,    .89029,    .66046,
     +     .53923,    .78579,    .89499,
     +     .15799,    .08953,  16.35846,    .90643,    .67763,
     +     .55744,    .80244,    .91125,
     +     .15949,    .09039,  16.49837,    .92199,    .69429,
     +     .57524,    .81850,    .92693,
     +     .16092,    .09121,  16.62263,    .93649,    .70980,
     +     .59179,    .83346,    .94153,
     +     .16235,    .09202,  16.73916,    .95084,    .72513,
     +     .60811,    .84828,    .95599 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .10852,    .06032,   3.15396,    .24803,    .00000,
     +     .00000,    .12982,    .24883,
     +     .11046,    .06162,   3.53640,    .25626,    .00002,
     +     .00000,    .13868,    .25719,
     +     .11338,    .06356,   4.10350,    .26968,    .01027,
     +     .00000,    .15305,    .27082,
     +     .11554,    .06499,   4.51033,    .28033,    .02460,
     +     .00000,    .16439,    .28161,
     +     .11784,    .06649,   4.92668,    .29240,    .03837,
     +     .00000,    .17718,    .29384,
     +     .11984,    .06780,   5.29291,    .30333,    .05130,
     +     .00000,    .18874,    .30491,
     +     .12178,    .06905,   5.63342,    .31429,    .06341,
     +     .00000,    .20031,    .31602,
     +     .12385,    .07038,   5.99232,    .32638,    .07707,
     +     .00000,    .21303,    .32825 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12566,    .07154,   6.30264,    .33726,    .08938,
     +     .00000,    .22448,    .33927,
     +     .12741,    .07265,   6.59295,    .34803,    .10126,
     +     .00000,    .23578,    .35017,
     +     .12880,    .07353,   6.82180,    .35677,    .11095,
     +     .00000,    .24495,    .35901,
     +     .13179,    .07541,   7.28789,    .37588,    .13208,
     +     .00011,    .26497,    .37835,
     +     .13437,    .07703,   7.66787,    .39281,    .15092,
     +     .01636,    .28268,    .39548,
     +     .13727,    .07882,   8.06142,    .41209,    .17237,
     +     .04545,    .30283,    .41497,
     +     .14028,    .08067,   8.44881,    .43237,    .19443,
     +     .06840,    .32402,    .43549,
     +     .14301,    .08234,   8.78473,    .45090,    .21469,
     +     .09067,    .34337,    .45423 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .14576,    .08400,   9.11138,    .46976,    .23547,
     +     .11396,    .36305,    .47331,
     +     .14804,    .08537,   9.36824,    .48541,    .25259,
     +     .13265,    .37938,    .48914,
     +     .15080,    .08702,   9.66291,    .50431,    .27324,
     +     .15517,    .39910,    .50826,
     +     .15323,    .08846,   9.91527,    .52113,    .29178,
     +     .17572,    .41664,    .52527,
     +     .15544,    .08976,  10.12820,    .53627,    .30823,
     +     .19343,    .43244,    .54059,
     +     .15824,    .09141,  10.38777,    .55547,    .32928,
     +     .21641,    .45248,    .56001,
     +     .16087,    .09293,  10.61949,    .57345,    .34906,
     +     .23809,    .47125,    .57821,
     +     .16330,    .09434,  10.81558,    .58984,    .36691,
     +     .25732,    .48837,    .59480 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .16573,    .09573,  11.00588,    .60627,    .38498,
     +     .27706,    .50552,    .61142,
     +     .16809,    .09707,  11.17543,    .62194,    .40212,
     +     .29560,    .52190,    .62728,
     +     .17031,    .09833,  11.32784,    .63664,    .41829,
     +     .31319,    .53727,    .64217,
     +     .17239,    .09950,  11.46075,    .65024,    .43322,
     +     .32936,    .55150,    .65594,
     +     .17447,    .10067,  11.58672,    .66374,    .44808,
     +     .34552,    .56563,    .66961,
     +     .17649,    .10180,  11.70050,    .67674,    .46237,
     +     .36099,    .57923,    .68277,
     +     .17841,    .10286,  11.80362,    .68899,    .47590,
     +     .37571,    .59207,    .69518,
     +     .18021,    .10385,  11.89083,    .70020,    .48825,
     +     .38906,    .60383,    .70654 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .18202,    .10485,  11.97881,    .71163,    .50094,
     +     .40291,    .61581,    .71812,
     +     .18378,    .10581,  12.05124,    .72231,    .51270,
     +     .41560,    .62703,    .72894,
     +     .18547,    .10673,  12.12015,    .73258,    .52409,
     +     .42799,    .63782,    .73935,
     +     .18705,    .10758,  12.17943,    .74208,    .53464,
     +     .43945,    .64781,    .74899,
     +     .18864,    .10844,  12.23290,    .75143,    .54501,
     +     .45069,    .65765,    .75847 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12095,    .06982,   3.04339,    .23669,    .00000,
     +     .00000,    .12379,    .23797,
     +     .12320,    .07129,   3.35786,    .24402,    .00002,
     +     .00000,    .13176,    .24547,
     +     .12658,    .07349,   3.81920,    .25582,    .00917,
     +     .00000,    .14451,    .25752,
     +     .12909,    .07510,   4.14636,    .26505,    .02188,
     +     .00000,    .15446,    .26695,
     +     .13174,    .07678,   4.47939,    .27539,    .03396,
     +     .00000,    .16554,    .27750,
     +     .13405,    .07825,   4.77007,    .28470,    .04521,
     +     .00000,    .17549,    .28699,
     +     .13628,    .07964,   5.03891,    .29395,    .05566,
     +     .00000,    .18536,    .29642,
     +     .13865,    .08112,   5.32046,    .30408,    .06738,
     +     .00000,    .19616,    .30675 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14073,    .08241,   5.56252,    .31316,    .07787,
     +     .00000,    .20581,    .31599,
     +     .14273,    .08364,   5.78776,    .32208,    .08794,
     +     .00000,    .21528,    .32507,
     +     .14432,    .08461,   5.96451,    .32928,    .09613,
     +     .00000,    .22293,    .33241,
     +     .14772,    .08668,   6.32113,    .34496,    .11385,
     +     .00010,    .23955,    .34837,
     +     .15065,    .08845,   6.60816,    .35874,    .12956,
     +     .01376,    .25415,    .36240,
     +     .15393,    .09041,   6.90102,    .37432,    .14732,
     +     .03813,    .27064,    .37825,
     +     .15732,    .09242,   7.18665,    .39059,    .16545,
     +     .05719,    .28785,    .39480,
     +     .16039,    .09422,   7.43186,    .40535,    .18200,
     +     .07559,    .30346,    .40982 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .16348,    .09602,   7.66812,    .42028,    .19888,
     +     .09473,    .31926,    .42502,
     +     .16603,    .09749,   7.85201,    .43260,    .21272,
     +     .11000,    .33229,    .43755,
     +     .16909,    .09924,   8.06074,    .44739,    .22931,
     +     .12832,    .34794,    .45260,
     +     .17180,    .10078,   8.23788,    .46048,    .24415,
     +     .14495,    .36179,    .46592,
     +     .17424,    .10217,   8.38525,    .47219,    .25724,
     +     .15921,    .37419,    .47785,
     +     .17734,    .10390,   8.56307,    .48697,    .27391,
     +     .17764,    .38985,    .49289,
     +     .18023,    .10551,   8.71986,    .50073,    .28951,
     +     .19493,    .40444,    .50690,
     +     .18290,    .10698,   8.84983,    .51319,    .30350,
     +     .21020,    .41766,    .51959 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .18556,    .10844,   8.97477,    .52562,    .31761,
     +     .22581,    .43085,    .53225,
     +     .18813,    .10983,   9.08370,    .53740,    .33092,
     +     .24039,    .44338,    .54426,
     +     .19054,    .11114,   9.18018,    .54841,    .34343,
     +     .25418,    .45509,    .55547,
     +     .19279,    .11235,   9.26257,    .55853,    .35493,
     +     .26680,    .46587,    .56579,
     +     .19503,    .11354,   9.33925,    .56853,    .36634,
     +     .27937,    .47653,    .57598,
     +     .19722,    .11470,   9.40671,    .57810,    .37725,
     +     .29135,    .48674,    .58574,
     +     .19928,    .11579,   9.46678,    .58709,    .38756,
     +     .30272,    .49634,    .59491,
     +     .20120,    .11679,   9.51556,    .59526,    .39691,
     +     .31298,    .50509,    .60325 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .20315,    .11781,   9.56466,    .60357,    .40651,
     +     .32360,    .51399,    .61173,
     +     .20502,    .11878,   9.60203,    .61128,    .41535,
     +     .33329,    .52226,    .61960,
     +     .20682,    .11970,   9.63748,    .61867,    .42389,
     +     .34272,    .53020,    .62715,
     +     .20850,    .12056,   9.66642,    .62547,    .43178,
     +     .35142,    .53752,    .63410,
     +     .21018,    .12142,   9.69072,    .63213,    .43949,
     +     .35992,    .54469,    .64090 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13220,    .07843,   2.92461,    .22831,    .00000,
     +     .00000,    .11933,    .23013,
     +     .13473,    .08004,   3.19001,    .23487,    .00002,
     +     .00000,    .12655,    .23690,
     +     .13853,    .08244,   3.57625,    .24531,    .00829,
     +     .00000,    .13799,    .24766,
     +     .14134,    .08419,   3.84778,    .25342,    .01974,
     +     .00000,    .14683,    .25601,
     +     .14430,    .08602,   4.12305,    .26243,    .03053,
     +     .00000,    .15661,    .26527,
     +     .14688,    .08760,   4.36196,    .27048,    .04052,
     +     .00000,    .16535,    .27355,
     +     .14936,    .08911,   4.58210,    .27845,    .04974,
     +     .00000,    .17396,    .28173,
     +     .15200,    .09070,   4.81154,    .28713,    .06004,
     +     .00000,    .18334,    .29065 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .15430,    .09208,   5.00794,    .29488,    .06921,
     +     .00000,    .19169,    .29859,
     +     .15651,    .09340,   5.18997,    .30246,    .07799,
     +     .00000,    .19985,    .30636,
     +     .15827,    .09444,   5.33234,    .30856,    .08510,
     +     .00000,    .20642,    .31262,
     +     .16201,    .09664,   5.61724,    .32177,    .10043,
     +     .00009,    .22062,    .32616,
     +     .16524,    .09852,   5.84402,    .33333,    .11394,
     +     .01193,    .23303,    .33801,
     +     .16884,    .10060,   6.07241,    .34632,    .12915,
     +     .03299,    .24698,    .35132,
     +     .17254,    .10271,   6.29326,    .35980,    .14459,
     +     .04937,    .26145,    .36513,
     +     .17588,    .10460,   6.48132,    .37197,    .15862,
     +     .06510,    .27452,    .37760 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .17924,    .10648,   6.66113,    .38422,    .17287,
     +     .08141,    .28768,    .39015,
     +     .18199,    .10801,   6.79985,    .39429,    .18450,
     +     .09436,    .29849,    .40046,
     +     .18531,    .10983,   6.95556,    .40630,    .19839,
     +     .10984,    .31141,    .41278,
     +     .18822,    .11143,   7.08656,    .41689,    .21076,
     +     .12384,    .32280,    .42363,
     +     .19085,    .11285,   7.19405,    .42632,    .22164,
     +     .13581,    .33296,    .43329,
     +     .19417,    .11463,   7.32250,    .43816,    .23544,
     +     .15121,    .34573,    .44543,
     +     .19726,    .11628,   7.43441,    .44914,    .24830,
     +     .16562,    .35757,    .45669,
     +     .20010,    .11778,   7.52509,    .45902,    .25978,
     +     .17828,    .36826,    .46683 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .20292,    .11926,   7.61137,    .46884,    .27133,
     +     .19119,    .37888,    .47690,
     +     .20564,    .12067,   7.68467,    .47810,    .28218,
     +     .20320,    .38892,    .48640,
     +     .20819,    .12198,   7.74858,    .48671,    .29234,
     +     .21452,    .39827,    .49525,
     +     .21056,    .12320,   7.80186,    .49459,    .30165,
     +     .22485,    .40684,    .50334,
     +     .21292,    .12440,   7.85026,    .50235,    .31085,
     +     .23511,    .41529,    .51130,
     +     .21521,    .12555,   7.89123,    .50972,    .31962,
     +     .24485,    .42334,    .51889,
     +     .21737,    .12663,   7.92687,    .51663,    .32788,
     +     .25408,    .43089,    .52599,
     +     .21937,    .12763,   7.95409,    .52288,    .33535,
     +     .26237,    .43774,    .53242 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .22140,    .12863,   7.98144,    .52922,    .34300,
     +     .27095,    .44470,    .53894,
     +     .22334,    .12959,   7.99942,    .53505,    .35001,
     +     .27873,    .45111,    .54494,
     +     .22520,    .13050,   8.01641,    .54063,    .35678,
     +     .28629,    .45726,    .55068,
     +     .22693,    .13134,   8.02868,    .54573,    .36300,
     +     .29325,    .46291,    .55594,
     +     .22866,    .13217,   8.03703,    .55070,    .36907,
     +     .30003,    .46841,    .56106 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15265,    .09385,   2.68378,    .21597,    .00000,
     +     .00000,    .11282,    .21908,
     +     .15566,    .09567,   2.88282,    .22125,    .00002,
     +     .00000,    .11883,    .22464,
     +     .16018,    .09836,   3.16921,    .22956,    .00696,
     +     .00000,    .12824,    .23338,
     +     .16349,    .10031,   3.36791,    .23594,    .01650,
     +     .00000,    .13543,    .24007,
     +     .16698,    .10233,   3.56848,    .24295,    .02541,
     +     .00000,    .14330,    .24742,
     +     .17001,    .10408,   3.74120,    .24918,    .03360,
     +     .00000,    .15028,    .25394,
     +     .17290,    .10573,   3.89945,    .25529,    .04109,
     +     .00000,    .15711,    .26034,
     +     .17596,    .10747,   4.06330,    .26192,    .04941,
     +     .00000,    .16450,    .26725 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .17863,    .10897,   4.20275,    .26778,    .05678,
     +     .00000,    .17103,    .27338,
     +     .18119,    .11040,   4.33113,    .27350,    .06379,
     +     .00000,    .17739,    .27933,
     +     .18322,    .11152,   4.43100,    .27807,    .06944,
     +     .00000,    .18248,    .28411,
     +     .18751,    .11388,   4.62839,    .28792,    .08155,
     +     .00008,    .19343,    .29437,
     +     .19119,    .11589,   4.78269,    .29647,    .09216,
     +     .00947,    .20292,    .30327,
     +     .19528,    .11809,   4.93443,    .30599,    .10402,
     +     .02611,    .21351,    .31319,
     +     .19946,    .12031,   5.07912,    .31580,    .11596,
     +     .03895,    .22441,    .32340,
     +     .20321,    .12228,   5.20052,    .32458,    .12673,
     +     .05120,    .23417,    .33254 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .20696,    .12423,   5.31487,    .33334,    .13761,
     +     .06382,    .24394,    .34166,
     +     .21002,    .12581,   5.40144,    .34049,    .14644,
     +     .07379,    .25191,    .34910,
     +     .21368,    .12767,   5.49677,    .34895,    .15691,
     +     .08563,    .26137,    .35791,
     +     .21689,    .12930,   5.57571,    .35636,    .16620,
     +     .09630,    .26966,    .36563,
     +     .21976,    .13073,   5.63853,    .36291,    .17431,
     +     .10535,    .27700,    .37244,
     +     .22338,    .13252,   5.71195,    .37106,    .18455,
     +     .11695,    .28616,    .38094,
     +     .22673,    .13416,   5.77408,    .37855,    .19403,
     +     .12774,    .29461,    .38876,
     +     .22978,    .13564,   5.82169,    .38523,    .20243,
     +     .13715,    .30216,    .39572 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .23281,    .13709,   5.86592,    .39183,    .21084,
     +     .14672,    .30963,    .40260,
     +     .23571,    .13846,   5.90104,    .39797,    .21869,
     +     .15555,    .31662,    .40901,
     +     .23841,    .13974,   5.93008,    .40364,    .22601,
     +     .16385,    .32310,    .41494,
     +     .24091,    .14090,   5.95221,    .40879,    .23267,
     +     .17138,    .32899,    .42032,
     +     .24339,    .14205,   5.97071,    .41381,    .23922,
     +     .17881,    .33476,    .42557,
     +     .24577,    .14314,   5.98412,    .41855,    .24543,
     +     .18584,    .34023,    .43052,
     +     .24802,    .14416,   5.99445,    .42295,    .25125,
     +     .19247,    .34532,    .43513,
     +     .25009,    .14509,   5.99947,    .42687,    .25648,
     +     .19840,    .34990,    .43925 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .25219,    .14602,   6.00450,    .43085,    .26182,
     +     .20451,    .35453,    .44342,
     +     .25418,    .14690,   6.00308,    .43443,    .26666,
     +     .21001,    .35875,    .44718,
     +     .25608,    .14773,   6.00168,    .43786,    .27133,
     +     .21535,    .36278,    .45078,
     +     .25784,    .14849,   5.99763,    .44096,    .27560,
     +     .22023,    .36645,    .45404,
     +     .25959,    .14925,   5.99069,    .44393,    .27974,
     +     .22496,    .37001,    .45717 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18041,    .11395,   2.34265,    .20255,    .00000,
     +     .00000,    .10593,    .20797,
     +     .18401,    .11595,   2.48367,    .20637,    .00001,
     +     .00000,    .11060,    .21217,
     +     .18937,    .11888,   2.68460,    .21234,    .00558,
     +     .00000,    .11785,    .21871,
     +     .19329,    .12100,   2.82235,    .21688,    .01320,
     +     .00000,    .12334,    .22367,
     +     .19737,    .12317,   2.96102,    .22186,    .02025,
     +     .00000,    .12931,    .22908,
     +     .20090,    .12504,   3.07968,    .22626,    .02669,
     +     .00000,    .13457,    .23384,
     +     .20425,    .12679,   3.18799,    .23055,    .03255,
     +     .00000,    .13969,    .23848,
     +     .20780,    .12863,   3.29938,    .23518,    .03901,
     +     .00000,    .14520,    .24348 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .21087,    .13020,   3.39360,    .23925,    .04472,
     +     .00000,    .15004,    .24788,
     +     .21379,    .13168,   3.47979,    .24321,    .05011,
     +     .00000,    .15473,    .25214,
     +     .21609,    .13285,   3.54652,    .24637,    .05445,
     +     .00000,    .15848,    .25553,
     +     .22095,    .13528,   3.67636,    .25312,    .06370,
     +     .00007,    .16648,    .26278,
     +     .22510,    .13732,   3.77556,    .25893,    .07174,
     +     .00725,    .17336,    .26901,
     +     .22966,    .13955,   3.87015,    .26535,    .08067,
     +     .01996,    .18099,    .27591,
     +     .23430,    .14177,   3.95881,    .27191,    .08960,
     +     .02967,    .18878,    .28293,
     +     .23842,    .14371,   4.03146,    .27772,    .09760,
     +     .03889,    .19570,    .28915 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .24251,    .14563,   4.09842,    .28346,    .10564,
     +     .04833,    .20257,    .29530,
     +     .24583,    .14716,   4.14772,    .28810,    .11211,
     +     .05574,    .20813,    .30027,
     +     .24977,    .14895,   4.20023,    .29355,    .11975,
     +     .06450,    .21468,    .30610,
     +     .25320,    .15050,   4.24254,    .29827,    .12648,
     +     .07234,    .22039,    .31116,
     +     .25625,    .15184,   4.27419,    .30239,    .13232,
     +     .07895,    .22539,    .31558,
     +     .26006,    .15350,   4.30962,    .30748,    .13964,
     +     .08738,    .23159,    .32104,
     +     .26356,    .15502,   4.33783,    .31211,    .14639,
     +     .09517,    .23726,    .32601,
     +     .26672,    .15636,   4.35654,    .31616,    .15231,
     +     .10192,    .24227,    .33035 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .26985,    .15767,   4.37273,    .32012,    .15821,
     +     .10875,    .24719,    .33461,
     +     .27281,    .15889,   4.38251,    .32376,    .16367,
     +     .11500,    .25175,    .33853,
     +     .27555,    .16000,   4.38884,    .32707,    .16873,
     +     .12085,    .25593,    .34210,
     +     .27806,    .16101,   4.39115,    .33003,    .17330,
     +     .12612,    .25970,    .34528,
     +     .28054,    .16199,   4.39081,    .33288,    .17778,
     +     .13130,    .26336,    .34836,
     +     .28291,    .16292,   4.38708,    .33552,    .18198,
     +     .13617,    .26678,    .35121,
     +     .28513,    .16377,   4.38186,    .33794,    .18591,
     +     .14074,    .26994,    .35383,
     +     .28716,    .16454,   4.37358,    .34005,    .18940,
     +     .14478,    .27275,    .35613 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .28920,    .16531,   4.36531,    .34218,    .19296,
     +     .14895,    .27558,    .35844,
     +     .29111,    .16601,   4.35260,    .34403,    .19615,
     +     .15267,    .27811,    .36046,
     +     .29293,    .16667,   4.34055,    .34580,    .19921,
     +     .15626,    .28052,    .36238,
     +     .29461,    .16728,   4.32731,    .34736,    .20200,
     +     .15953,    .28268,    .36409,
     +     .29626,    .16786,   4.31202,    .34881,    .20467,
     +     .16268,    .28475,    .36568 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .22265,    .14220,   1.85814,    .18524,    .00000,
     +     .00000,    .09760,    .19531,
     +     .22694,    .14429,   1.95213,    .18739,    .00001,
     +     .00000,    .10078,    .19794,
     +     .23326,    .14732,   2.08542,    .19077,    .00415,
     +     .00000,    .10571,    .20204,
     +     .23784,    .14949,   2.17611,    .19336,    .00980,
     +     .00000,    .10944,    .20514,
     +     .24257,    .15168,   2.26733,    .19623,    .01501,
     +     .00000,    .11348,    .20853,
     +     .24663,    .15354,   2.34504,    .19875,    .01976,
     +     .00000,    .11704,    .21150,
     +     .25045,    .15527,   2.41570,    .20123,    .02405,
     +     .00000,    .12049,    .21438,
     +     .25445,    .15707,   2.48793,    .20389,    .02877,
     +     .00000,    .12419,    .21747 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .25789,    .15860,   2.54868,    .20624,    .03292,
     +     .00000,    .12743,    .22018,
     +     .26115,    .16002,   2.60379,    .20851,    .03684,
     +     .00000,    .13057,    .22280,
     +     .26371,    .16112,   2.64619,    .21032,    .03997,
     +     .00000,    .13306,    .22487,
     +     .26905,    .16340,   2.72714,    .21417,    .04663,
     +     .00006,    .13836,    .22928,
     +     .27356,    .16529,   2.78721,    .21746,    .05238,
     +     .00522,    .14288,    .23303,
     +     .27847,    .16731,   2.84210,    .22106,    .05873,
     +     .01434,    .14786,    .23714,
     +     .28337,    .16927,   2.89174,    .22470,    .06503,
     +     .02125,    .15289,    .24126,
     +     .28769,    .17097,   2.93090,    .22787,    .07063,
     +     .02777,    .15732,    .24485 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .29193,    .17261,   2.96558,    .23097,    .07622,
     +     .03440,    .16168,    .24836,
     +     .29534,    .17390,   2.98965,    .23344,    .08069,
     +     .03958,    .16517,    .25115,
     +     .29932,    .17537,   3.01333,    .23628,    .08593,
     +     .04565,    .16924,    .25436,
     +     .30276,    .17662,   3.03117,    .23871,    .09052,
     +     .05105,    .17274,    .25711,
     +     .30577,    .17768,   3.04230,    .24078,    .09445,
     +     .05557,    .17578,    .25945,
     +     .30949,    .17897,   3.05294,    .24329,    .09936,
     +     .06130,    .17950,    .26228,
     +     .31287,    .18011,   3.05923,    .24552,    .10384,
     +     .06655,    .18285,    .26481,
     +     .31586,    .18108,   3.05952,    .24739,    .10773,
     +     .07106,    .18575,    .26693 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .31879,    .18202,   3.05810,    .24919,    .11158,
     +     .07559,    .18858,    .26898,
     +     .32152,    .18286,   3.05244,    .25078,    .11510,
     +     .07970,    .19114,    .27078,
     +     .32402,    .18361,   3.04508,    .25218,    .11834,
     +     .08351,    .19347,    .27239,
     +     .32630,    .18426,   3.03561,    .25337,    .12123,
     +     .08693,    .19552,    .27377,
     +     .32851,    .18487,   3.02434,    .25448,    .12404,
     +     .09026,    .19748,    .27505,
     +     .33057,    .18544,   3.01099,    .25546,    .12665,
     +     .09335,    .19927,    .27618,
     +     .33249,    .18594,   2.99723,    .25632,    .12907,
     +     .09625,    .20090,    .27719,
     +     .33421,    .18637,   2.98195,    .25702,    .13119,
     +     .09878,    .20231,    .27800 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .33594,    .18679,   2.96673,    .25771,    .13335,
     +     .10139,    .20373,    .27882,
     +     .33751,    .18715,   2.94870,    .25822,    .13524,
     +     .10367,    .20493,    .27943,
     +     .33900,    .18748,   2.93168,    .25870,    .13706,
     +     .10587,    .20606,    .28002,
     +     .34036,    .18776,   2.91439,    .25907,    .13869,
     +     .10786,    .20706,    .28048,
     +     .34166,    .18802,   2.89571,    .25937,    .14023,
     +     .10975,    .20797,    .28085 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .26180,    .16592,   1.47710,    .17029,    .00000,
     +     .00000,    .09090,    .18554,
     +     .26649,    .16793,   1.55132,    .17135,    .00001,
     +     .00000,    .09314,    .18712,
     +     .27335,    .17082,   1.65674,    .17310,    .00329,
     +     .00000,    .09664,    .18963,
     +     .27828,    .17285,   1.72845,    .17449,    .00778,
     +     .00000,    .09929,    .19155,
     +     .28331,    .17488,   1.80038,    .17608,    .01192,
     +     .00000,    .10220,    .19368,
     +     .28761,    .17659,   1.86151,    .17749,    .01569,
     +     .00000,    .10475,    .19554,
     +     .29164,    .17816,   1.91680,    .17890,    .01909,
     +     .00000,    .10724,    .19736,
     +     .29582,    .17976,   1.97297,    .18042,    .02283,
     +     .00000,    .10991,    .19931 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .29938,    .18111,   2.01994,    .18177,    .02612,
     +     .00000,    .11224,    .20102,
     +     .30273,    .18235,   2.06215,    .18308,    .02922,
     +     .00000,    .11449,    .20266,
     +     .30535,    .18330,   2.09446,    .18413,    .03169,
     +     .00000,    .11628,    .20396,
     +     .31076,    .18523,   2.15522,    .18636,    .03692,
     +     .00005,    .12007,    .20671,
     +     .31528,    .18680,   2.19932,    .18826,    .04143,
     +     .00409,    .12329,    .20903,
     +     .32014,    .18846,   2.23830,    .19032,    .04638,
     +     .01121,    .12681,    .21153,
     +     .32492,    .19002,   2.27205,    .19238,    .05127,
     +     .01657,    .13035,    .21400,
     +     .32908,    .19133,   2.29753,    .19414,    .05559,
     +     .02161,    .13343,    .21612 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .33312,    .19256,   2.31899,    .19583,    .05987,
     +     .02672,    .13644,    .21814,
     +     .33632,    .19349,   2.33267,    .19715,    .06328,
     +     .03067,    .13882,    .21971,
     +     .34002,    .19453,   2.34451,    .19863,    .06725,
     +     .03529,    .14156,    .22147,
     +     .34318,    .19539,   2.35234,    .19986,    .07070,
     +     .03938,    .14391,    .22294,
     +     .34590,    .19608,   2.35510,    .20086,    .07364,
     +     .04278,    .14590,    .22413,
     +     .34920,    .19689,   2.35572,    .20204,    .07728,
     +     .04706,    .14831,    .22553,
     +     .35216,    .19758,   2.35324,    .20305,    .08058,
     +     .05097,    .15046,    .22674,
     +     .35473,    .19811,   2.34629,    .20383,    .08341,
     +     .05428,    .15227,    .22767 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .35722,    .19861,   2.33803,    .20455,    .08620,
     +     .05760,    .15401,    .22853,
     +     .35948,    .19901,   2.32659,    .20510,    .08871,
     +     .06059,    .15555,    .22922,
     +     .36153,    .19934,   2.31422,    .20556,    .09101,
     +     .06334,    .15692,    .22977,
     +     .36334,    .19960,   2.30059,    .20589,    .09305,
     +     .06579,    .15809,    .23019,
     +     .36507,    .19981,   2.28559,    .20616,    .09501,
     +     .06816,    .15919,    .23054,
     +     .36667,    .19997,   2.26914,    .20633,    .09681,
     +     .07035,    .16016,    .23078,
     +     .36812,    .20009,   2.25276,    .20644,    .09846,
     +     .07237,    .16103,    .23095,
     +     .36938,    .20016,   2.23557,    .20645,    .09990,
     +     .07413,    .16173,    .23100 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .37065,    .20022,   2.21850,    .20646,    .10136,
     +     .07594,    .16245,    .23104,
     +     .37174,    .20021,   2.19937,    .20634,    .10260,
     +     .07749,    .16299,    .23094,
     +     .37277,    .20020,   2.18137,    .20622,    .10380,
     +     .07899,    .16351,    .23083,
     +     .37368,    .20016,   2.16350,    .20605,    .10485,
     +     .08033,    .16393,    .23067,
     +     .37452,    .20008,   2.14460,    .20581,    .10583,
     +     .08160,    .16429,    .23044 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .33338,    .20382,    .96403,    .14323,    .00000,
     +     .00000,    .07946,    .16898,
     +     .33826,    .20539,   1.02835,    .14312,    .00001,
     +     .00000,    .08065,    .16930,
     +     .34527,    .20757,   1.11953,    .14315,    .00239,
     +     .00000,    .08259,    .16990,
     +     .35023,    .20905,   1.18134,    .14328,    .00567,
     +     .00000,    .08411,    .17043,
     +     .35517,    .21046,   1.24179,    .14355,    .00870,
     +     .00000,    .08579,    .17108,
     +     .35934,    .21162,   1.29269,    .14383,    .01145,
     +     .00000,    .08728,    .17166,
     +     .36316,    .21263,   1.33767,    .14416,    .01394,
     +     .00000,    .08874,    .17224,
     +     .36707,    .21362,   1.38262,    .14454,    .01667,
     +     .00000,    .09031,    .17288 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .37036,    .21443,   1.41958,    .14489,    .01906,
     +     .00000,    .09169,    .17344,
     +     .37339,    .21512,   1.45191,    .14525,    .02130,
     +     .00000,    .09302,    .17397,
     +     .37572,    .21564,   1.47626,    .14554,    .02308,
     +     .00000,    .09406,    .17439,
     +     .38043,    .21662,   1.52072,    .14617,    .02683,
     +     .00004,    .09626,    .17525,
     +     .38427,    .21735,   1.55169,    .14670,    .03003,
     +     .00289,    .09812,    .17595,
     +     .38833,    .21802,   1.57740,    .14723,    .03352,
     +     .00789,    .10011,    .17666,
     +     .39212,    .21855,   1.59726,    .14774,    .03691,
     +     .01162,    .10206,    .17728,
     +     .39530,    .21891,   1.61041,    .14813,    .03988,
     +     .01509,    .10373,    .17773 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .39831,    .21918,   1.61977,    .14845,    .04278,
     +     .01856,    .10531,    .17810,
     +     .40060,    .21930,   1.62383,    .14866,    .04506,
     +     .02123,    .10653,    .17833,
     +     .40312,    .21933,   1.62470,    .14882,    .04768,
     +     .02431,    .10788,    .17849,
     +     .40521,    .21931,   1.62325,    .14892,    .04993,
     +     .02701,    .10901,    .17857,
     +     .40689,    .21918,   1.61821,    .14892,    .05181,
     +     .02922,    .10992,    .17852,
     +     .40885,    .21895,   1.60960,    .14885,    .05411,
     +     .03198,    .11099,    .17838,
     +     .41052,    .21867,   1.59919,    .14871,    .05616,
     +     .03446,    .11188,    .17816,
     +     .41182,    .21829,   1.58590,    .14846,    .05788,
     +     .03653,    .11258,    .17780 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .41303,    .21788,   1.57177,    .14818,    .05955,
     +     .03859,    .11322,    .17741,
     +     .41398,    .21739,   1.55551,    .14782,    .06103,
     +     .04040,    .11371,    .17691,
     +     .41478,    .21688,   1.53913,    .14742,    .06235,
     +     .04205,    .11411,    .17638,
     +     .41540,    .21635,   1.52239,    .14698,    .06349,
     +     .04350,    .11441,    .17582,
     +     .41592,    .21577,   1.50481,    .14650,    .06457,
     +     .04488,    .11465,    .17519,
     +     .41631,    .21516,   1.48646,    .14597,    .06554,
     +     .04613,    .11481,    .17451,
     +     .41660,    .21455,   1.46868,    .14544,    .06642,
     +     .04728,    .11492,    .17383,
     +     .41675,    .21393,   1.45083,    .14487,    .06714,
     +     .04825,    .11495,    .17312 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .41690,    .21330,   1.43317,    .14430,    .06788,
     +     .04925,    .11497,    .17241,
     +     .41686,    .21262,   1.41431,    .14366,    .06847,
     +     .05007,    .11490,    .17160,
     +     .41683,    .21197,   1.39666,    .14305,    .06904,
     +     .05087,    .11482,    .17082,
     +     .41672,    .21132,   1.37952,    .14244,    .06952,
     +     .05156,    .11470,    .17006,
     +     .41652,    .21063,   1.36178,    .14178,    .06996,
     +     .05220,    .11453,    .16924 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .39710,    .23228,    .68739,    .11890,    .00000,
     +     .00000,    .06933,    .15367,
     +     .40154,    .23318,    .75268,    .11837,    .00001,
     +     .00000,    .07007,    .15330,
     +     .40778,    .23434,    .84374,    .11778,    .00200,
     +     .00000,    .07132,    .15288,
     +     .41207,    .23506,    .90432,    .11746,    .00475,
     +     .00000,    .07232,    .15264,
     +     .41625,    .23564,    .96142,    .11725,    .00726,
     +     .00000,    .07344,    .15248,
     +     .41972,    .23607,   1.00884,    .11711,    .00954,
     +     .00000,    .07444,    .15236,
     +     .42280,    .23638,   1.04936,    .11703,    .01158,
     +     .00000,    .07542,    .15227,
     +     .42589,    .23661,   1.08896,    .11697,    .01381,
     +     .00000,    .07647,    .15217 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .42844,    .23674,   1.12075,    .11694,    .01575,
     +     .00000,    .07737,    .15210,
     +     .43070,    .23679,   1.14765,    .11692,    .01755,
     +     .00000,    .07823,    .15202,
     +     .43240,    .23680,   1.16746,    .11692,    .01898,
     +     .00000,    .07891,    .15196,
     +     .43573,    .23667,   1.20219,    .11691,    .02195,
     +     .00004,    .08032,    .15178,
     +     .43832,    .23643,   1.22492,    .11688,    .02446,
     +     .00226,    .08148,    .15158,
     +     .44089,    .23605,   1.24193,    .11682,    .02715,
     +     .00617,    .08269,    .15129,
     +     .44309,    .23546,   1.25251,    .11669,    .02973,
     +     .00903,    .08383,    .15089,
     +     .44481,    .23481,   1.25744,    .11651,    .03195,
     +     .01166,    .08475,    .15044 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .44629,    .23405,   1.25878,    .11627,    .03409,
     +     .01428,    .08560,    .14991,
     +     .44729,    .23333,   1.25653,    .11602,    .03575,
     +     .01626,    .08622,    .14941,
     +     .44820,    .23238,   1.25025,    .11566,    .03762,
     +     .01851,    .08686,    .14870,
     +     .44885,    .23148,   1.24282,    .11531,    .03920,
     +     .02047,    .08736,    .14803,
     +     .44921,    .23055,   1.23292,    .11489,    .04050,
     +     .02205,    .08772,    .14733,
     +     .44948,    .22932,   1.21865,    .11433,    .04206,
     +     .02400,    .08809,    .14638,
     +     .44953,    .22812,   1.20346,    .11376,    .04343,
     +     .02573,    .08836,    .14541,
     +     .44931,    .22687,   1.18656,    .11312,    .04454,
     +     .02714,    .08849,    .14441 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .44900,    .22561,   1.16920,    .11246,    .04560,
     +     .02852,    .08857,    .14339,
     +     .44847,    .22430,   1.15047,    .11174,    .04651,
     +     .02973,    .08855,    .14232,
     +     .44786,    .22303,   1.13220,    .11104,    .04731,
     +     .03081,    .08848,    .14126,
     +     .44716,    .22178,   1.11417,    .11033,    .04798,
     +     .03173,    .08837,    .14022,
     +     .44635,    .22050,   1.09565,    .10959,    .04859,
     +     .03260,    .08820,    .13914,
     +     .44543,    .21921,   1.07684,    .10882,    .04912,
     +     .03338,    .08798,    .13804,
     +     .44449,    .21797,   1.05889,    .10808,    .04959,
     +     .03408,    .08774,    .13697,
     +     .44346,    .21676,   1.04132,    .10733,    .04995,
     +     .03465,    .08745,    .13592 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .44243,    .21555,   1.02401,    .10659,    .05032,
     +     .03524,    .08717,    .13488,
     +     .44123,    .21429,   1.00609,    .10580,    .05058,
     +     .03571,    .08681,    .13377,
     +     .44010,    .21309,    .98938,    .10506,    .05083,
     +     .03616,    .08647,    .13273,
     +     .43895,    .21194,    .97339,    .10433,    .05103,
     +     .03654,    .08612,    .13172,
     +     .43771,    .21075,    .95706,    .10356,    .05118,
     +     .03687,    .08573,    .13067 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45318,    .25344,    .56164,    .09745,    .00000,
     +     .00000,    .06013,    .13862,
     +     .45671,    .25356,    .62744,    .09689,    .00001,
     +     .00000,    .06069,    .13787,
     +     .46152,    .25356,    .71690,    .09624,    .00182,
     +     .00000,    .06165,    .13686,
     +     .46471,    .25342,    .77478,    .09586,    .00430,
     +     .00000,    .06240,    .13620,
     +     .46767,    .25309,    .82726,    .09556,    .00654,
     +     .00000,    .06325,    .13556,
     +     .47004,    .25274,    .87005,    .09533,    .00855,
     +     .00000,    .06400,    .13502,
     +     .47203,    .25229,    .90523,    .09514,    .01033,
     +     .00000,    .06472,    .13452,
     +     .47392,    .25172,    .93866,    .09497,    .01226,
     +     .00000,    .06547,    .13398 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .47541,    .25116,    .96469,    .09483,    .01392,
     +     .00000,    .06612,    .13351,
     +     .47663,    .25054,    .98577,    .09469,    .01544,
     +     .00000,    .06672,    .13306,
     +     .47751,    .25001,   1.00084,    .09459,    .01663,
     +     .00000,    .06718,    .13270,
     +     .47902,    .24876,   1.02548,    .09435,    .01909,
     +     .00003,    .06811,    .13188,
     +     .48002,    .24757,   1.03973,    .09412,    .02114,
     +     .00187,    .06886,    .13113,
     +     .48079,    .24613,   1.04776,    .09381,    .02331,
     +     .00509,    .06959,    .13023,
     +     .48109,    .24445,   1.04935,    .09344,    .02534,
     +     .00740,    .07023,    .12922,
     +     .48105,    .24283,   1.04659,    .09303,    .02705,
     +     .00950,    .07072,    .12821 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .48077,    .24112,   1.04063,    .09257,    .02869,
     +     .01156,    .07112,    .12715,
     +     .48029,    .23963,   1.03280,    .09214,    .02993,
     +     .01309,    .07137,    .12622,
     +     .47944,    .23773,   1.02039,    .09156,    .03130,
     +     .01482,    .07159,    .12502,
     +     .47855,    .23602,   1.00799,    .09101,    .03244,
     +     .01631,    .07173,    .12392,
     +     .47746,    .23436,    .99418,    .09045,    .03335,
     +     .01748,    .07175,    .12285,
     +     .47592,    .23223,    .97551,    .08969,    .03442,
     +     .01891,    .07172,    .12146,
     +     .47430,    .23018,    .95679,    .08894,    .03534,
     +     .02017,    .07162,    .12011,
     +     .47248,    .22819,    .93734,    .08817,    .03605,
     +     .02117,    .07143,    .11876 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .47060,    .22620,    .91780,    .08739,    .03673,
     +     .02214,    .07120,    .11741,
     +     .46857,    .22419,    .89759,    .08657,    .03727,
     +     .02296,    .07090,    .11604,
     +     .46655,    .22227,    .87829,    .08576,    .03774,
     +     .02369,    .07058,    .11473,
     +     .46451,    .22043,    .85969,    .08498,    .03811,
     +     .02430,    .07023,    .11347,
     +     .46240,    .21856,    .84093,    .08417,    .03843,
     +     .02487,    .06985,    .11219,
     +     .46021,    .21670,    .82225,    .08334,    .03869,
     +     .02536,    .06944,    .11091,
     +     .45808,    .21493,    .80464,    .08256,    .03891,
     +     .02579,    .06903,    .10968,
     +     .45593,    .21323,    .78773,    .08179,    .03906,
     +     .02614,    .06859,    .10849 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .45378,    .21154,    .77116,    .08103,    .03921,
     +     .02649,    .06816,    .10730,
     +     .45149,    .20982,    .75435,    .08022,    .03928,
     +     .02675,    .06768,    .10610,
     +     .44933,    .20820,    .73876,    .07947,    .03934,
     +     .02700,    .06722,    .10496,
     +     .44722,    .20664,    .72400,    .07874,    .03937,
     +     .02720,    .06676,    .10387,
     +     .44502,    .20506,    .70912,    .07799,    .03937,
     +     .02737,    .06628,    .10276 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .51262,    .27158,    .53053,    .07499,    .00000,
     +     .00000,    .04980,    .11992,
     +     .51456,    .27069,    .59181,    .07465,    .00001,
     +     .00000,    .05033,    .11894,
     +     .51696,    .26918,    .67195,    .07426,    .00170,
     +     .00000,    .05118,    .11759,
     +     .51833,    .26794,    .72147,    .07403,    .00399,
     +     .00000,    .05181,    .11664,
     +     .51932,    .26645,    .76409,    .07384,    .00602,
     +     .00000,    .05250,    .11567,
     +     .51998,    .26511,    .79769,    .07370,    .00780,
     +     .00000,    .05308,    .11484,
     +     .52030,    .26373,    .82366,    .07357,    .00936,
     +     .00000,    .05362,    .11404,
     +     .52041,    .26218,    .84707,    .07342,    .01101,
     +     .00000,    .05416,    .11319 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .52034,    .26078,    .86425,    .07330,    .01241,
     +     .00000,    .05461,    .11246,
     +     .52004,    .25935,    .87686,    .07316,    .01368,
     +     .00000,    .05501,    .11174,
     +     .51970,    .25818,    .88523,    .07304,    .01466,
     +     .00000,    .05531,    .11116,
     +     .51865,    .25560,    .89610,    .07276,    .01665,
     +     .00003,    .05588,    .10989,
     +     .51742,    .25329,    .89912,    .07248,    .01827,
     +     .00153,    .05629,    .10875,
     +     .51572,    .25062,    .89562,    .07211,    .01995,
     +     .00414,    .05666,    .10742,
     +     .51344,    .24771,    .88634,    .07165,    .02147,
     +     .00597,    .05691,    .10598,
     +     .51110,    .24499,    .87462,    .07117,    .02273,
     +     .00760,    .05705,    .10460 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .50852,    .24221,    .86046,    .07063,    .02390,
     +     .00918,    .05711,    .10317,
     +     .50614,    .23986,    .84662,    .07013,    .02476,
     +     .01033,    .05708,    .10197,
     +     .50301,    .23696,    .82787,    .06947,    .02569,
     +     .01161,    .05697,    .10045,
     +     .50013,    .23438,    .81051,    .06887,    .02644,
     +     .01268,    .05682,    .09909,
     +     .49725,    .23195,    .79299,    .06826,    .02701,
     +     .01352,    .05660,    .09781,
     +     .49348,    .22887,    .77034,    .06745,    .02766,
     +     .01452,    .05628,    .09617,
     +     .48980,    .22598,    .74861,    .06666,    .02820,
     +     .01538,    .05593,    .09461,
     +     .48612,    .22319,    .72724,    .06586,    .02858,
     +     .01604,    .05553,    .09309 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .48240,    .22044,    .70620,    .06506,    .02893,
     +     .01668,    .05510,    .09159,
     +     .47858,    .21773,    .68521,    .06424,    .02918,
     +     .01720,    .05462,    .09010,
     +     .47490,    .21516,    .66558,    .06344,    .02938,
     +     .01765,    .05414,    .08869,
     +     .47135,    .21273,    .64709,    .06267,    .02952,
     +     .01801,    .05366,    .08735,
     +     .46773,    .21030,    .62877,    .06189,    .02962,
     +     .01834,    .05316,    .08600,
     +     .46408,    .20790,    .61085,    .06111,    .02967,
     +     .01861,    .05264,    .08467,
     +     .46059,    .20563,    .59419,    .06036,    .02970,
     +     .01885,    .05213,    .08342,
     +     .45721,    .20346,    .57848,    .05963,    .02968,
     +     .01902,    .05162,    .08223 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .45384,    .20131,    .56317,    .05890,    .02967,
     +     .01920,    .05112,    .08105,
     +     .45035,    .19916,    .54797,    .05817,    .02960,
     +     .01931,    .05059,    .07985,
     +     .44706,    .19714,    .53395,    .05749,    .02953,
     +     .01941,    .05009,    .07873,
     +     .44390,    .19522,    .52085,    .05683,    .02945,
     +     .01949,    .04960,    .07767,
     +     .44067,    .19327,    .50779,    .05614,    .02934,
     +     .01954,    .04909,    .07660 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .56037,    .28216,    .57114,    .05725,    .00000,
     +     .00000,    .04078,    .10161,
     +     .56041,    .28025,    .62218,    .05719,    .00001,
     +     .00000,    .04135,    .10059,
     +     .55995,    .27725,    .68567,    .05716,    .00161,
     +     .00000,    .04219,    .09914,
     +     .55923,    .27493,    .72239,    .05716,    .00376,
     +     .00000,    .04280,    .09810,
     +     .55801,    .27234,    .75165,    .05715,    .00561,
     +     .00000,    .04341,    .09702,
     +     .55675,    .27006,    .77342,    .05713,    .00720,
     +     .00000,    .04390,    .09608,
     +     .55522,    .26781,    .78841,    .05711,    .00857,
     +     .00000,    .04433,    .09516,
     +     .55338,    .26535,    .80034,    .05705,    .01000,
     +     .00000,    .04475,    .09418 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .55162,    .26316,    .80777,    .05698,    .01119,
     +     .00000,    .04508,    .09333,
     +     .54971,    .26099,    .81144,    .05689,    .01225,
     +     .00000,    .04535,    .09248,
     +     .54811,    .25925,    .81292,    .05681,    .01306,
     +     .00000,    .04555,    .09180,
     +     .54434,    .25550,    .81011,    .05658,    .01467,
     +     .00003,    .04588,    .09032,
     +     .54081,    .25220,    .80240,    .05632,    .01595,
     +     .00127,    .04609,    .08901,
     +     .53660,    .24846,    .78827,    .05596,    .01725,
     +     .00341,    .04624,    .08751,
     +     .53176,    .24448,    .76946,    .05549,    .01838,
     +     .00488,    .04625,    .08590,
     +     .52712,    .24085,    .75027,    .05501,    .01930,
     +     .00617,    .04617,    .08439 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .52228,    .23719,    .72956,    .05448,    .02012,
     +     .00739,    .04602,    .08284,
     +     .51810,    .23413,    .71111,    .05399,    .02070,
     +     .00826,    .04584,    .08154,
     +     .51281,    .23039,    .68779,    .05334,    .02130,
     +     .00922,    .04554,    .07994,
     +     .50806,    .22712,    .66705,    .05276,    .02178,
     +     .01001,    .04524,    .07852,
     +     .50352,    .22407,    .64721,    .05215,    .02212,
     +     .01061,    .04490,    .07721,
     +     .49770,    .22024,    .62226,    .05136,    .02248,
     +     .01131,    .04443,    .07554,
     +     .49215,    .21667,    .59903,    .05060,    .02276,
     +     .01190,    .04396,    .07396,
     +     .48676,    .21330,    .57702,    .04986,    .02293,
     +     .01234,    .04345,    .07246 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .48138,    .20998,    .55570,    .04911,    .02307,
     +     .01276,    .04294,    .07099,
     +     .47599,    .20672,    .53495,    .04835,    .02314,
     +     .01308,    .04239,    .06954,
     +     .47088,    .20368,    .51586,    .04762,    .02318,
     +     .01336,    .04185,    .06818,
     +     .46602,    .20082,    .49822,    .04691,    .02317,
     +     .01357,    .04133,    .06690,
     +     .46111,    .19797,    .48096,    .04620,    .02314,
     +     .01375,    .04080,    .06563,
     +     .45622,    .19518,    .46437,    .04550,    .02307,
     +     .01389,    .04025,    .06438,
     +     .45160,    .19256,    .44909,    .04483,    .02299,
     +     .01401,    .03973,    .06322,
     +     .44717,    .19008,    .43489,    .04417,    .02289,
     +     .01408,    .03921,    .06212 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .44278,    .18763,    .42112,    .04353,    .02278,
     +     .01416,    .03871,    .06103,
     +     .43832,    .18519,    .40769,    .04288,    .02264,
     +     .01419,    .03819,    .05994,
     +     .43413,    .18290,    .39535,    .04228,    .02251,
     +     .01421,    .03770,    .05891,
     +     .43013,    .18074,    .38394,    .04170,    .02237,
     +     .01422,    .03723,    .05796,
     +     .42606,    .17856,    .37268,    .04110,    .02221,
     +     .01421,    .03675,    .05700 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .59685,    .28647,    .63752,    .04365,    .00000,
     +     .00000,    .03302,    .08421,
     +     .59481,    .28363,    .67462,    .04386,    .00001,
     +     .00000,    .03363,    .08325,
     +     .59126,    .27927,    .71718,    .04417,    .00151,
     +     .00000,    .03449,    .08186,
     +     .58830,    .27599,    .73883,    .04437,    .00351,
     +     .00000,    .03507,    .08084,
     +     .58472,    .27243,    .75317,    .04453,    .00519,
     +     .00000,    .03561,    .07977,
     +     .58145,    .26933,    .76224,    .04464,    .00661,
     +     .00000,    .03605,    .07883,
     +     .57804,    .26630,    .76591,    .04471,    .00780,
     +     .00000,    .03642,    .07789,
     +     .57422,    .26303,    .76640,    .04474,    .00902,
     +     .00000,    .03674,    .07689 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57077,    .26017,    .76439,    .04474,    .01003,
     +     .00000,    .03697,    .07602,
     +     .56723,    .25738,    .75966,    .04470,    .01090,
     +     .00000,    .03715,    .07516,
     +     .56435,    .25517,    .75482,    .04465,    .01157,
     +     .00000,    .03727,    .07446,
     +     .55794,    .25041,    .73981,    .04447,    .01287,
     +     .00003,    .03745,    .07294,
     +     .55220,    .24629,    .72291,    .04424,    .01387,
     +     .00106,    .03753,    .07161,
     +     .54555,    .24169,    .70003,    .04392,    .01486,
     +     .00282,    .03752,    .07010,
     +     .53830,    .23683,    .67380,    .04347,    .01569,
     +     .00399,    .03736,    .06852,
     +     .53155,    .23246,    .64906,    .04302,    .01634,
     +     .00501,    .03716,    .06702 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .52463,    .22809,    .62377,    .04252,    .01691,
     +     .00596,    .03691,    .06549,
     +     .51876,    .22447,    .60235,    .04205,    .01729,
     +     .00663,    .03664,    .06423,
     +     .51154,    .22010,    .57628,    .04144,    .01766,
     +     .00734,    .03624,    .06271,
     +     .50515,    .21628,    .55370,    .04087,    .01794,
     +     .00793,    .03586,    .06137,
     +     .49914,    .21277,    .53284,    .04031,    .01812,
     +     .00835,    .03547,    .06012,
     +     .49152,    .20839,    .50716,    .03959,    .01829,
     +     .00885,    .03495,    .05855,
     +     .48435,    .20434,    .48379,    .03890,    .01841,
     +     .00925,    .03443,    .05707,
     +     .47750,    .20053,    .46218,    .03821,    .01844,
     +     .00954,    .03390,    .05571 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .47074,    .19681,    .44154,    .03752,    .01845,
     +     .00981,    .03336,    .05437,
     +     .46404,    .19320,    .42187,    .03684,    .01840,
     +     .01001,    .03281,    .05305,
     +     .45773,    .18983,    .40401,    .03619,    .01834,
     +     .01017,    .03228,    .05182,
     +     .45177,    .18670,    .38776,    .03557,    .01825,
     +     .01029,    .03176,    .05067,
     +     .44581,    .18358,    .37201,    .03495,    .01814,
     +     .01038,    .03125,    .04954,
     +     .43995,    .18054,    .35704,    .03432,    .01801,
     +     .01045,    .03073,    .04844,
     +     .43442,    .17769,    .34338,    .03373,    .01788,
     +     .01049,    .03024,    .04742,
     +     .42917,    .17502,    .33086,    .03317,    .01773,
     +     .01051,    .02977,    .04645 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42397,    .17238,    .31878,    .03261,    .01759,
     +     .01053,    .02930,    .04549,
     +     .41874,    .16977,    .30718,    .03206,    .01742,
     +     .01051,    .02883,    .04455,
     +     .41383,    .16734,    .29658,    .03154,    .01726,
     +     .01050,    .02838,    .04367,
     +     .40920,    .16504,    .28684,    .03105,    .01710,
     +     .01047,    .02796,    .04286,
     +     .40453,    .16274,    .27731,    .03053,    .01693,
     +     .01044,    .02752,    .04204 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .62256,    .28570,    .70266,    .03351,    .00000,
     +     .00000,    .02641,    .06813,
     +     .61838,    .28200,    .72413,    .03391,    .00001,
     +     .00000,    .02706,    .06732,
     +     .61170,    .27642,    .74433,    .03445,    .00140,
     +     .00000,    .02794,    .06611,
     +     .60648,    .27230,    .75059,    .03479,    .00322,
     +     .00000,    .02851,    .06518,
     +     .60061,    .26786,    .75022,    .03504,    .00472,
     +     .00000,    .02901,    .06421,
     +     .59540,    .26403,    .74721,    .03521,    .00597,
     +     .00000,    .02939,    .06335,
     +     .59016,    .26033,    .74039,    .03532,    .00699,
     +     .00000,    .02969,    .06251,
     +     .58442,    .25640,    .73057,    .03539,    .00803,
     +     .00000,    .02994,    .06158 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .57932,    .25299,    .72030,    .03543,    .00887,
     +     .00000,    .03013,    .06075,
     +     .57424,    .24967,    .70838,    .03541,    .00959,
     +     .00000,    .03025,    .05994,
     +     .57017,    .24705,    .69824,    .03537,    .01013,
     +     .00000,    .03032,    .05929,
     +     .56131,    .24145,    .67337,    .03521,    .01115,
     +     .00002,    .03039,    .05789,
     +     .55352,    .23665,    .64937,    .03500,    .01193,
     +     .00087,    .03037,    .05666,
     +     .54466,    .23135,    .62012,    .03471,    .01267,
     +     .00231,    .03025,    .05525,
     +     .53520,    .22584,    .58880,    .03429,    .01327,
     +     .00325,    .03004,    .05375,
     +     .52655,    .22090,    .56054,    .03385,    .01371,
     +     .00405,    .02977,    .05238 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .51781,    .21600,    .53260,    .03337,    .01408,
     +     .00478,    .02945,    .05101,
     +     .51049,    .21197,    .50969,    .03295,    .01432,
     +     .00529,    .02914,    .04986,
     +     .50156,    .20715,    .48256,    .03238,    .01453,
     +     .00582,    .02871,    .04847,
     +     .49374,    .20296,    .45951,    .03186,    .01467,
     +     .00625,    .02831,    .04727,
     +     .48649,    .19913,    .43872,    .03135,    .01474,
     +     .00655,    .02791,    .04616,
     +     .47736,    .19437,    .41356,    .03069,    .01478,
     +     .00690,    .02738,    .04477,
     +     .46885,    .19000,    .39106,    .03007,    .01478,
     +     .00718,    .02686,    .04348,
     +     .46081,    .18593,    .37070,    .02946,    .01473,
     +     .00736,    .02636,    .04226 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45292,    .18196,    .35145,    .02885,    .01466,
     +     .00753,    .02585,    .04108,
     +     .44519,    .17811,    .33342,    .02824,    .01456,
     +     .00765,    .02532,    .03996,
     +     .43795,    .17455,    .31721,    .02766,    .01444,
     +     .00773,    .02482,    .03892,
     +     .43117,    .17123,    .30261,    .02711,    .01431,
     +     .00779,    .02435,    .03795,
     +     .42442,    .16796,    .28863,    .02656,    .01416,
     +     .00783,    .02388,    .03699,
     +     .41780,    .16480,    .27550,    .02602,    .01401,
     +     .00785,    .02343,    .03605,
     +     .41159,    .16185,    .26361,    .02551,    .01385,
     +     .00785,    .02300,    .03518,
     +     .40572,    .15909,    .25280,    .02503,    .01369,
     +     .00784,    .02256,    .03438 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .39993,    .15637,    .24243,    .02455,    .01353,
     +     .00783,    .02213,    .03359,
     +     .39416,    .15369,    .23257,    .02408,    .01336,
     +     .00779,    .02172,    .03282,
     +     .38877,    .15119,    .22360,    .02364,    .01320,
     +     .00776,    .02133,    .03209,
     +     .38369,    .14884,    .21543,    .02321,    .01303,
     +     .00772,    .02096,    .03142,
     +     .37859,    .14648,    .20750,    .02278,    .01286,
     +     .00767,    .02059,    .03075 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .63820,    .28068,    .75190,    .02602,    .00000,
     +     .00000,    .02091,    .05380,
     +     .63191,    .27624,    .75779,    .02652,    .00001,
     +     .00000,    .02157,    .05317,
     +     .62221,    .26960,    .75653,    .02716,    .00127,
     +     .00000,    .02243,    .05221,
     +     .61486,    .26475,    .74861,    .02755,    .00290,
     +     .00000,    .02298,    .05144,
     +     .60677,    .25959,    .73504,    .02784,    .00422,
     +     .00000,    .02344,    .05061,
     +     .59970,    .25518,    .72151,    .02805,    .00530,
     +     .00000,    .02378,    .04988,
     +     .59271,    .25095,    .70578,    .02818,    .00616,
     +     .00000,    .02403,    .04914,
     +     .58519,    .24647,    .68748,    .02827,    .00703,
     +     .00000,    .02423,    .04833 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .57861,    .24260,    .67061,    .02831,    .00772,
     +     .00000,    .02435,    .04762,
     +     .57214,    .23885,    .65310,    .02828,    .00830,
     +     .00000,    .02442,    .04691,
     +     .56701,    .23591,    .63893,    .02823,    .00872,
     +     .00000,    .02446,    .04635,
     +     .55592,    .22968,    .60686,    .02807,    .00952,
     +     .00002,    .02446,    .04511,
     +     .54629,    .22439,    .57800,    .02787,    .01011,
     +     .00071,    .02438,    .04403,
     +     .53550,    .21858,    .54473,    .02757,    .01065,
     +     .00188,    .02422,    .04280,
     +     .52410,    .21262,    .51059,    .02720,    .01107,
     +     .00263,    .02396,    .04146,
     +     .51382,    .20727,    .48074,    .02678,    .01136,
     +     .00325,    .02366,    .04027 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50355,    .20198,    .45191,    .02631,    .01159,
     +     .00381,    .02332,    .03909,
     +     .49502,    .19769,    .42880,    .02591,    .01172,
     +     .00419,    .02300,    .03809,
     +     .48470,    .19257,    .40194,    .02540,    .01182,
     +     .00458,    .02258,    .03689,
     +     .47571,    .18814,    .37948,    .02494,    .01187,
     +     .00489,    .02220,    .03584,
     +     .46748,    .18411,    .35966,    .02446,    .01187,
     +     .00511,    .02182,    .03490,
     +     .45716,    .17913,    .33596,    .02386,    .01184,
     +     .00535,    .02132,    .03372,
     +     .44758,    .17460,    .31505,    .02332,    .01177,
     +     .00553,    .02084,    .03263,
     +     .43866,    .17036,    .29646,    .02275,    .01167,
     +     .00565,    .02037,    .03164 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .42993,    .16625,    .27905,    .02220,    .01156,
     +     .00575,    .01990,    .03067,
     +     .42139,    .16233,    .26295,    .02168,    .01142,
     +     .00581,    .01944,    .02972,
     +     .41346,    .15870,    .24862,    .02119,    .01128,
     +     .00586,    .01900,    .02884,
     +     .40606,    .15532,    .23584,    .02071,    .01114,
     +     .00587,    .01859,    .02804,
     +     .39875,    .15200,    .22371,    .02024,    .01098,
     +     .00588,    .01817,    .02726,
     +     .39163,    .14880,    .21242,    .01977,    .01082,
     +     .00587,    .01777,    .02651,
     +     .38497,    .14582,    .20228,    .01933,    .01067,
     +     .00586,    .01739,    .02580,
     +     .37869,    .14304,    .19316,    .01893,    .01051,
     +     .00583,    .01702,    .02514 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37250,    .14031,    .18443,    .01854,    .01035,
     +     .00580,    .01666,    .02450,
     +     .36638,    .13763,    .17622,    .01814,    .01019,
     +     .00576,    .01631,    .02388,
     +     .36068,    .13514,    .16878,    .01777,    .01004,
     +     .00572,    .01598,    .02331,
     +     .35531,    .13281,    .16204,    .01741,    .00989,
     +     .00567,    .01566,    .02277,
     +     .34994,    .13048,    .15552,    .01705,    .00973,
     +     .00562,    .01535,    .02224 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64458,    .27216,    .77864,    .02043,    .00000,
     +     .00000,    .01639,    .04148,
     +     .63628,    .26713,    .77032,    .02098,    .00001,
     +     .00000,    .01702,    .04104,
     +     .62369,    .25969,    .75014,    .02168,    .00113,
     +     .00000,    .01784,    .04030,
     +     .61433,    .25426,    .73014,    .02207,    .00256,
     +     .00000,    .01835,    .03971,
     +     .60420,    .24854,    .70570,    .02236,    .00370,
     +     .00000,    .01875,    .03905,
     +     .59545,    .24367,    .68376,    .02256,    .00461,
     +     .00000,    .01903,    .03847,
     +     .58692,    .23903,    .66114,    .02268,    .00533,
     +     .00000,    .01923,    .03786,
     +     .57783,    .23413,    .63647,    .02275,    .00604,
     +     .00000,    .01939,    .03719 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .56993,    .22991,    .61480,    .02277,    .00660,
     +     .00000,    .01949,    .03659,
     +     .56221,    .22588,    .59339,    .02274,    .00706,
     +     .00000,    .01953,    .03600,
     +     .55612,    .22272,    .57653,    .02270,    .00740,
     +     .00000,    .01953,    .03552,
     +     .54308,    .21606,    .53995,    .02254,    .00801,
     +     .00002,    .01948,    .03448,
     +     .53189,    .21043,    .50838,    .02234,    .00845,
     +     .00058,    .01937,    .03356,
     +     .51948,    .20428,    .47326,    .02204,    .00884,
     +     .00151,    .01919,    .03250,
     +     .50654,    .19799,    .43833,    .02166,    .00912,
     +     .00210,    .01891,    .03141,
     +     .49491,    .19242,    .40844,    .02128,    .00930,
     +     .00258,    .01861,    .03041 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48335,    .18694,    .38010,    .02087,    .00943,
     +     .00301,    .01829,    .02941,
     +     .47387,    .18248,    .35778,    .02050,    .00949,
     +     .00329,    .01798,    .02858,
     +     .46252,    .17716,    .33226,    .02000,    .00951,
     +     .00358,    .01759,    .02761,
     +     .45269,    .17260,    .31121,    .01954,    .00951,
     +     .00380,    .01723,    .02676,
     +     .44367,    .16851,    .29291,    .01914,    .00946,
     +     .00395,    .01688,    .02597,
     +     .43246,    .16346,    .27128,    .01861,    .00938,
     +     .00412,    .01642,    .02502,
     +     .42215,    .15883,    .25241,    .01811,    .00929,
     +     .00424,    .01599,    .02417,
     +     .41258,    .15459,    .23590,    .01763,    .00917,
     +     .00431,    .01559,    .02333 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40324,    .15048,    .22057,    .01716,    .00904,
     +     .00436,    .01519,    .02252,
     +     .39420,    .14654,    .20656,    .01670,    .00889,
     +     .00439,    .01478,    .02176,
     +     .38583,    .14292,    .19419,    .01627,    .00875,
     +     .00441,    .01440,    .02107,
     +     .37805,    .13957,    .18326,    .01586,    .00861,
     +     .00441,    .01405,    .02043,
     +     .37037,    .13629,    .17297,    .01545,    .00846,
     +     .00440,    .01370,    .01981,
     +     .36293,    .13314,    .16347,    .01507,    .00830,
     +     .00438,    .01335,    .01920,
     +     .35599,    .13021,    .15498,    .01470,    .00816,
     +     .00435,    .01303,    .01865,
     +     .34947,    .12749,    .14738,    .01436,    .00801,
     +     .00432,    .01273,    .01814 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34307,    .12482,    .14015,    .01403,    .00787,
     +     .00428,    .01243,    .01765,
     +     .33679,    .12221,    .13341,    .01369,    .00772,
     +     .00424,    .01213,    .01715,
     +     .33093,    .11978,    .12732,    .01338,    .00759,
     +     .00420,    .01187,    .01669,
     +     .32545,    .11752,    .12184,    .01309,    .00746,
     +     .00416,    .01161,    .01627,
     +     .31996,    .11526,    .11658,    .01280,    .00732,
     +     .00411,    .01135,    .01586 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64218,    .26127,    .78165,    .01653,    .00000,
     +     .00000,    .01253,    .03102,
     +     .63211,    .25572,    .76124,    .01703,    .00001,
     +     .00000,    .01315,    .03076,
     +     .61697,    .24758,    .72558,    .01765,    .00099,
     +     .00000,    .01392,    .03030,
     +     .60584,    .24171,    .69610,    .01800,    .00223,
     +     .00000,    .01437,    .02989,
     +     .59394,    .23557,    .66340,    .01824,    .00319,
     +     .00000,    .01473,    .02941,
     +     .58373,    .23035,    .63535,    .01839,    .00396,
     +     .00000,    .01499,    .02897,
     +     .57390,    .22536,    .60793,    .01846,    .00455,
     +     .00000,    .01516,    .02851,
     +     .56344,    .22018,    .57905,    .01851,    .00513,
     +     .00000,    .01529,    .02798 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .55438,    .21577,    .55436,    .01852,    .00557,
     +     .00000,    .01536,    .02749,
     +     .54564,    .21153,    .53065,    .01846,    .00594,
     +     .00000,    .01538,    .02702,
     +     .53878,    .20821,    .51229,    .01839,    .00620,
     +     .00000,    .01537,    .02665,
     +     .52418,    .20125,    .47362,    .01819,    .00666,
     +     .00002,    .01531,    .02582,
     +     .51174,    .19540,    .44121,    .01798,    .00698,
     +     .00046,    .01519,    .02508,
     +     .49806,    .18902,    .40608,    .01767,    .00725,
     +     .00120,    .01499,    .02426,
     +     .48389,    .18255,    .37190,    .01729,    .00743,
     +     .00166,    .01473,    .02338,
     +     .47126,    .17687,    .34317,    .01692,    .00753,
     +     .00203,    .01445,    .02258 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45879,    .17130,    .31636,    .01652,    .00759,
     +     .00236,    .01415,    .02178,
     +     .44861,    .16678,    .29558,    .01618,    .00760,
     +     .00257,    .01388,    .02112,
     +     .43645,    .16147,    .27214,    .01574,    .00757,
     +     .00278,    .01353,    .02033,
     +     .42596,    .15692,    .25302,    .01534,    .00753,
     +     .00294,    .01322,    .01965,
     +     .41645,    .15282,    .23658,    .01497,    .00747,
     +     .00304,    .01291,    .01904,
     +     .40467,    .14778,    .21734,    .01451,    .00736,
     +     .00314,    .01252,    .01828,
     +     .39387,    .14320,    .20076,    .01408,    .00725,
     +     .00322,    .01216,    .01758,
     +     .38389,    .13902,    .18642,    .01365,    .00713,
     +     .00326,    .01181,    .01693 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37421,    .13499,    .17322,    .01324,    .00700,
     +     .00329,    .01146,    .01631,
     +     .36490,    .13113,    .16128,    .01284,    .00686,
     +     .00330,    .01112,    .01572,
     +     .35628,    .12759,    .15083,    .01248,    .00672,
     +     .00330,    .01080,    .01518,
     +     .34829,    .12434,    .14166,    .01214,    .00659,
     +     .00329,    .01051,    .01468,
     +     .34044,    .12116,    .13307,    .01181,    .00645,
     +     .00327,    .01022,    .01419,
     +     .33287,    .11810,    .12519,    .01148,    .00632,
     +     .00324,    .00994,    .01373,
     +     .32584,    .11528,    .11820,    .01117,    .00619,
     +     .00321,    .00968,    .01331,
     +     .31928,    .11266,    .11200,    .01089,    .00606,
     +     .00318,    .00943,    .01292 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .31283,    .11010,    .10612,    .01061,    .00594,
     +     .00315,    .00919,    .01253,
     +     .30651,    .10760,    .10068,    .01034,    .00581,
     +     .00311,    .00895,    .01216,
     +     .30063,    .10528,    .09577,    .01009,    .00569,
     +     .00307,    .00873,    .01182,
     +     .29515,    .10313,    .09139,    .00985,    .00558,
     +     .00303,    .00852,    .01150,
     +     .28968,    .10099,    .08719,    .00961,    .00547,
     +     .00299,    .00831,    .01118 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .63256,    .24773,    .76223,    .01318,    .00000,
     +     .00000,    .00964,    .02276,
     +     .62085,    .24185,    .73236,    .01365,    .00001,
     +     .00000,    .01020,    .02264,
     +     .60343,    .23327,    .68509,    .01422,    .00084,
     +     .00000,    .01089,    .02237,
     +     .59072,    .22712,    .64889,    .01451,    .00189,
     +     .00000,    .01128,    .02211,
     +     .57732,    .22068,    .61066,    .01470,    .00269,
     +     .00000,    .01158,    .02179,
     +     .56587,    .21525,    .57871,    .01482,    .00333,
     +     .00000,    .01179,    .02148,
     +     .55488,    .21011,    .54844,    .01487,    .00380,
     +     .00000,    .01193,    .02113,
     +     .54329,    .20477,    .51730,    .01488,    .00426,
     +     .00000,    .01202,    .02073 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .53332,    .20023,    .49120,    .01487,    .00461,
     +     .00000,    .01207,    .02036,
     +     .52375,    .19588,    .46666,    .01479,    .00489,
     +     .00000,    .01207,    .02000,
     +     .51626,    .19248,    .44790,    .01471,    .00508,
     +     .00000,    .01205,    .01972,
     +     .50041,    .18540,    .40911,    .01452,    .00542,
     +     .00001,    .01197,    .01907,
     +     .48699,    .17949,    .37732,    .01431,    .00565,
     +     .00037,    .01185,    .01848,
     +     .47232,    .17309,    .34362,    .01400,    .00583,
     +     .00094,    .01165,    .01784,
     +     .45725,    .16661,    .31141,    .01366,    .00594,
     +     .00130,    .01139,    .01716,
     +     .44390,    .16094,    .28476,    .01332,    .00599,
     +     .00158,    .01114,    .01653 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43078,    .15541,    .26019,    .01297,    .00600,
     +     .00181,    .01087,    .01590,
     +     .42013,    .15094,    .24138,    .01266,    .00598,
     +     .00197,    .01064,    .01538,
     +     .40748,    .14570,    .22041,    .01227,    .00594,
     +     .00212,    .01034,    .01477,
     +     .39662,    .14124,    .20347,    .01192,    .00588,
     +     .00223,    .01007,    .01424,
     +     .38678,    .13724,    .18910,    .01162,    .00580,
     +     .00230,    .00980,    .01376,
     +     .37468,    .13233,    .17244,    .01121,    .00570,
     +     .00237,    .00947,    .01316,
     +     .36366,    .12787,    .15822,    .01081,    .00558,
     +     .00242,    .00917,    .01264,
     +     .35352,    .12383,    .14603,    .01046,    .00547,
     +     .00243,    .00887,    .01213 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34370,    .11994,    .13490,    .01012,    .00535,
     +     .00245,    .00858,    .01165,
     +     .33431,    .11622,    .12493,    .00977,    .00522,
     +     .00245,    .00830,    .01122,
     +     .32564,    .11282,    .11625,    .00947,    .00510,
     +     .00244,    .00804,    .01082,
     +     .31763,    .10972,    .10869,    .00920,    .00498,
     +     .00242,    .00780,    .01043,
     +     .30980,    .10670,    .10166,    .00893,    .00486,
     +     .00240,    .00757,    .01006,
     +     .30229,    .10380,    .09525,    .00865,    .00475,
     +     .00237,    .00734,    .00970,
     +     .29532,    .10112,    .08960,    .00840,    .00464,
     +     .00235,    .00712,    .00937,
     +     .28882,    .09863,    .08461,    .00816,    .00453,
     +     .00232,    .00693,    .00909 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .28245,    .09620,    .07989,    .00794,    .00443,
     +     .00229,    .00674,    .00880,
     +     .27625,    .09385,    .07556,    .00771,    .00432,
     +     .00225,    .00656,    .00853,
     +     .27049,    .09167,    .07167,    .00750,    .00422,
     +     .00222,    .00639,    .00827,
     +     .26511,    .08965,    .06820,    .00731,    .00413,
     +     .00219,    .00623,    .00803,
     +     .25976,    .08766,    .06491,    .00713,    .00404,
     +     .00215,    .00606,    .00780 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .61605,    .23281,    .72410,    .01067,    .00000,
     +     .00000,    .00728,    .01618,
     +     .60298,    .22669,    .68747,    .01107,    .00001,
     +     .00000,    .00777,    .01619,
     +     .58371,    .21778,    .63243,    .01151,    .00071,
     +     .00000,    .00837,    .01612,
     +     .56980,    .21140,    .59216,    .01172,    .00158,
     +     .00000,    .00872,    .01600,
     +     .55511,    .20486,    .55093,    .01187,    .00224,
     +     .00000,    .00897,    .01578,
     +     .54263,    .19935,    .51714,    .01197,    .00275,
     +     .00000,    .00914,    .01557,
     +     .53075,    .19416,    .48585,    .01199,    .00313,
     +     .00000,    .00926,    .01532,
     +     .51831,    .18875,    .45416,    .01197,    .00349,
     +     .00000,    .00932,    .01504 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .50767,    .18414,    .42796,    .01192,    .00376,
     +     .00000,    .00933,    .01479,
     +     .49748,    .17977,    .40372,    .01184,    .00397,
     +     .00000,    .00932,    .01454,
     +     .48950,    .17638,    .38538,    .01176,    .00411,
     +     .00000,    .00930,    .01433,
     +     .47277,    .16932,    .34808,    .01154,    .00436,
     +     .00001,    .00921,    .01385,
     +     .45870,    .16343,    .31807,    .01132,    .00451,
     +     .00028,    .00910,    .01341,
     +     .44337,    .15708,    .28678,    .01105,    .00463,
     +     .00073,    .00893,    .01291,
     +     .42772,    .15073,    .25732,    .01073,    .00469,
     +     .00100,    .00872,    .01238,
     +     .41395,    .14517,    .23329,    .01043,    .00470,
     +     .00121,    .00850,    .01190 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40049,    .13976,    .21141,    .01012,    .00469,
     +     .00138,    .00826,    .01142,
     +     .38960,    .13543,    .19483,    .00984,    .00466,
     +     .00150,    .00807,    .01101,
     +     .37672,    .13034,    .17653,    .00950,    .00459,
     +     .00160,    .00780,    .01056,
     +     .36569,    .12600,    .16190,    .00921,    .00453,
     +     .00168,    .00756,    .01018,
     +     .35582,    .12215,    .14961,    .00892,    .00446,
     +     .00172,    .00735,    .00981,
     +     .34367,    .11744,    .13547,    .00856,    .00435,
     +     .00177,    .00708,    .00936,
     +     .33261,    .11321,    .12352,    .00824,    .00425,
     +     .00179,    .00683,    .00894,
     +     .32245,    .10936,    .11337,    .00797,    .00415,
     +     .00180,    .00659,    .00857 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .31266,    .10567,    .10417,    .00771,    .00404,
     +     .00180,    .00636,    .00822,
     +     .30337,    .10216,    .09597,    .00742,    .00393,
     +     .00180,    .00614,    .00790,
     +     .29483,    .09895,    .08889,    .00716,    .00383,
     +     .00178,    .00593,    .00760,
     +     .28699,    .09602,    .08277,    .00692,    .00373,
     +     .00177,    .00573,    .00733,
     +     .27932,    .09318,    .07711,    .00670,    .00363,
     +     .00175,    .00554,    .00705,
     +     .27195,    .09048,    .07197,    .00649,    .00353,
     +     .00172,    .00536,    .00677,
     +     .26514,    .08798,    .06746,    .00629,    .00344,
     +     .00170,    .00520,    .00652,
     +     .25885,    .08567,    .06352,    .00610,    .00335,
     +     .00167,    .00505,    .00631 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .25269,    .08342,    .05980,    .00591,    .00327,
     +     .00165,    .00490,    .00610,
     +     .24670,    .08123,    .05639,    .00572,    .00318,
     +     .00162,    .00475,    .00590,
     +     .24114,    .07922,    .05334,    .00555,    .00310,
     +     .00159,    .00462,    .00571,
     +     .23598,    .07735,    .05064,    .00540,    .00303,
     +     .00157,    .00449,    .00554,
     +     .23084,    .07551,    .04808,    .00525,    .00296,
     +     .00154,    .00437,    .00537 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .59381,    .21663,    .67143,    .00853,    .00000,
     +     .00000,    .00545,    .01125,
     +     .57964,    .21040,    .63069,    .00885,    .00001,
     +     .00000,    .00589,    .01134,
     +     .55889,    .20136,    .57149,    .00919,    .00058,
     +     .00000,    .00641,    .01138,
     +     .54398,    .19495,    .52949,    .00935,    .00129,
     +     .00000,    .00670,    .01135,
     +     .52831,    .18841,    .48745,    .00949,    .00183,
     +     .00000,    .00690,    .01121,
     +     .51509,    .18289,    .45352,    .00955,    .00223,
     +     .00000,    .00703,    .01108,
     +     .50265,    .17766,    .42265,    .00952,    .00253,
     +     .00000,    .00710,    .01096,
     +     .48960,    .17228,    .39180,    .00947,    .00280,
     +     .00000,    .00715,    .01077 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .47844,    .16776,    .36659,    .00942,    .00301,
     +     .00000,    .00718,    .01057,
     +     .46783,    .16345,    .34354,    .00933,    .00316,
     +     .00000,    .00717,    .01039,
     +     .45957,    .16011,    .32625,    .00923,    .00327,
     +     .00000,    .00714,    .01024,
     +     .44227,    .15319,    .29158,    .00905,    .00344,
     +     .00001,    .00706,    .00987,
     +     .42778,    .14746,    .26412,    .00886,    .00355,
     +     .00022,    .00695,    .00954,
     +     .41209,    .14130,    .23589,    .00862,    .00362,
     +     .00056,    .00678,    .00918,
     +     .39621,    .13511,    .20974,    .00832,    .00364,
     +     .00076,    .00659,    .00882,
     +     .38228,    .12974,    .18860,    .00806,    .00364,
     +     .00091,    .00640,    .00847 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36872,    .12455,    .16955,    .00778,    .00361,
     +     .00104,    .00621,    .00811,
     +     .35780,    .12040,    .15529,    .00753,    .00357,
     +     .00112,    .00604,    .00783,
     +     .34495,    .11556,    .13970,    .00724,    .00350,
     +     .00119,    .00582,    .00749,
     +     .33399,    .11146,    .12732,    .00699,    .00344,
     +     .00125,    .00563,    .00720,
     +     .32417,    .10780,    .11702,    .00678,    .00337,
     +     .00128,    .00546,    .00692,
     +     .31217,    .10335,    .10527,    .00649,    .00328,
     +     .00130,    .00524,    .00658,
     +     .30132,    .09934,    .09541,    .00620,    .00319,
     +     .00132,    .00504,    .00628,
     +     .29140,    .09573,    .08712,    .00597,    .00310,
     +     .00132,    .00484,    .00600 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .28186,    .09228,    .07964,    .00575,    .00301,
     +     .00132,    .00466,    .00574,
     +     .27282,    .08901,    .07303,    .00552,    .00292,
     +     .00131,    .00448,    .00548,
     +     .26454,    .08604,    .06736,    .00532,    .00283,
     +     .00129,    .00431,    .00526,
     +     .25693,    .08332,    .06247,    .00514,    .00275,
     +     .00128,    .00416,    .00506,
     +     .24952,    .08069,    .05798,    .00496,    .00267,
     +     .00126,    .00401,    .00487,
     +     .24246,    .07819,    .05394,    .00478,    .00259,
     +     .00124,    .00388,    .00468,
     +     .23594,    .07588,    .05040,    .00462,    .00252,
     +     .00122,    .00375,    .00451,
     +     .22992,    .07376,    .04732,    .00447,    .00245,
     +     .00120,    .00364,    .00435 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .22404,    .07168,    .04442,    .00432,    .00238,
     +     .00118,    .00353,    .00420,
     +     .21831,    .06969,    .04179,    .00418,    .00232,
     +     .00115,    .00341,    .00405,
     +     .21302,    .06786,    .03944,    .00406,    .00225,
     +     .00113,    .00330,    .00391,
     +     .20812,    .06616,    .03736,    .00394,    .00220,
     +     .00111,    .00321,    .00379,
     +     .20328,    .06448,    .03540,    .00382,    .00214,
     +     .00109,    .00311,    .00367 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .56668,    .19968,    .60861,    .00671,    .00000,
     +     .00000,    .00406,    .00763,
     +     .55165,    .19345,    .56612,    .00698,    .00001,
     +     .00000,    .00442,    .00776,
     +     .52978,    .18446,    .50592,    .00726,    .00047,
     +     .00000,    .00486,    .00788,
     +     .51418,    .17811,    .46423,    .00736,    .00104,
     +     .00000,    .00509,    .00790,
     +     .49795,    .17163,    .42321,    .00742,    .00146,
     +     .00000,    .00525,    .00787,
     +     .48426,    .16620,    .39051,    .00745,    .00178,
     +     .00000,    .00535,    .00781,
     +     .47135,    .16111,    .36114,    .00742,    .00201,
     +     .00000,    .00541,    .00772,
     +     .45793,    .15585,    .33216,    .00737,    .00222,
     +     .00000,    .00545,    .00760 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44653,    .15141,    .30874,    .00732,    .00237,
     +     .00000,    .00545,    .00748,
     +     .43572,    .14723,    .28753,    .00722,    .00248,
     +     .00000,    .00543,    .00736,
     +     .42732,    .14399,    .27173,    .00712,    .00256,
     +     .00000,    .00540,    .00726,
     +     .40979,    .13731,    .24046,    .00695,    .00268,
     +     .00001,    .00532,    .00700,
     +     .39517,    .13180,    .21603,    .00679,    .00275,
     +     .00016,    .00523,    .00676,
     +     .37941,    .12590,    .19121,    .00657,    .00279,
     +     .00042,    .00510,    .00650,
     +     .36351,    .12003,    .16850,    .00636,    .00279,
     +     .00057,    .00494,    .00618,
     +     .34968,    .11493,    .15037,    .00611,    .00277,
     +     .00068,    .00478,    .00593 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33629,    .11000,    .13419,    .00585,    .00273,
     +     .00077,    .00462,    .00570,
     +     .32553,    .10608,    .12217,    .00565,    .00269,
     +     .00083,    .00448,    .00549,
     +     .31293,    .10152,    .10915,    .00541,    .00264,
     +     .00088,    .00431,    .00523,
     +     .30222,    .09768,    .09891,    .00520,    .00258,
     +     .00091,    .00415,    .00501,
     +     .29264,    .09426,    .09045,    .00502,    .00252,
     +     .00093,    .00401,    .00481,
     +     .28097,    .09011,    .08085,    .00480,    .00244,
     +     .00095,    .00384,    .00457,
     +     .27045,    .08640,    .07286,    .00458,    .00236,
     +     .00095,    .00368,    .00436,
     +     .26089,    .08306,    .06621,    .00439,    .00229,
     +     .00095,    .00353,    .00415 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .25172,    .07987,    .06025,    .00422,    .00221,
     +     .00095,    .00338,    .00396,
     +     .24304,    .07686,    .05500,    .00404,    .00214,
     +     .00094,    .00324,    .00378,
     +     .23512,    .07413,    .05053,    .00389,    .00207,
     +     .00092,    .00312,    .00363,
     +     .22788,    .07164,    .04670,    .00376,    .00201,
     +     .00091,    .00301,    .00348,
     +     .22085,    .06924,    .04320,    .00362,    .00194,
     +     .00090,    .00290,    .00334,
     +     .21416,    .06696,    .04005,    .00347,    .00188,
     +     .00088,    .00278,    .00321,
     +     .20800,    .06486,    .03731,    .00334,    .00182,
     +     .00086,    .00268,    .00308,
     +     .20233,    .06293,    .03494,    .00322,    .00177,
     +     .00085,    .00260,    .00297 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .19681,    .06106,    .03272,    .00310,    .00172,
     +     .00083,    .00251,    .00286,
     +     .19144,    .05926,    .03071,    .00300,    .00166,
     +     .00081,    .00243,    .00275,
     +     .18649,    .05760,    .02892,    .00290,    .00162,
     +     .00080,    .00235,    .00265,
     +     .18191,    .05608,    .02734,    .00282,    .00157,
     +     .00078,    .00227,    .00256,
     +     .17738,    .05458,    .02586,    .00273,    .00153,
     +     .00077,    .00220,    .00247 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .53544,    .18252,    .54010,    .00530,    .00000,
     +     .00000,    .00291,    .00500,
     +     .51988,    .17637,    .49789,    .00550,    .00001,
     +     .00000,    .00323,    .00516,
     +     .49735,    .16756,    .43925,    .00569,    .00038,
     +     .00000,    .00360,    .00532,
     +     .48131,    .16138,    .39938,    .00577,    .00083,
     +     .00000,    .00378,    .00539,
     +     .46473,    .15506,    .36077,    .00580,    .00116,
     +     .00000,    .00392,    .00539,
     +     .45082,    .14980,    .33033,    .00580,    .00140,
     +     .00000,    .00400,    .00536,
     +     .43776,    .14488,    .30329,    .00577,    .00157,
     +     .00000,    .00405,    .00530,
     +     .42423,    .13983,    .27689,    .00571,    .00173,
     +     .00000,    .00407,    .00523 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41277,    .13557,    .25576,    .00564,    .00184,
     +     .00000,    .00407,    .00516,
     +     .40192,    .13156,    .23679,    .00556,    .00192,
     +     .00000,    .00405,    .00507,
     +     .39351,    .12847,    .22275,    .00549,    .00197,
     +     .00000,    .00402,    .00500,
     +     .37605,    .12210,    .19523,    .00533,    .00205,
     +     .00001,    .00395,    .00482,
     +     .36159,    .11686,    .17402,    .00517,    .00209,
     +     .00012,    .00387,    .00467,
     +     .34606,    .11127,    .15279,    .00496,    .00211,
     +     .00031,    .00375,    .00451,
     +     .33050,    .10571,    .13349,    .00476,    .00210,
     +     .00042,    .00362,    .00431,
     +     .31695,    .10094,    .11827,    .00459,    .00208,
     +     .00050,    .00350,    .00412 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30386,    .09636,    .10481,    .00440,    .00204,
     +     .00057,    .00337,    .00393,
     +     .29342,    .09270,    .09488,    .00424,    .00201,
     +     .00061,    .00326,    .00377,
     +     .28123,    .08847,    .08422,    .00404,    .00195,
     +     .00064,    .00313,    .00359,
     +     .27090,    .08490,    .07590,    .00387,    .00191,
     +     .00066,    .00301,    .00343,
     +     .26169,    .08175,    .06907,    .00373,    .00185,
     +     .00067,    .00289,    .00330,
     +     .25052,    .07794,    .06139,    .00355,    .00179,
     +     .00068,    .00275,    .00313,
     +     .24050,    .07454,    .05504,    .00337,    .00173,
     +     .00069,    .00262,    .00298,
     +     .23143,    .07149,    .04979,    .00323,    .00167,
     +     .00068,    .00252,    .00282 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .22275,    .06858,    .04510,    .00309,    .00161,
     +     .00068,    .00242,    .00268,
     +     .21455,    .06584,    .04100,    .00296,    .00155,
     +     .00067,    .00231,    .00255,
     +     .20709,    .06336,    .03753,    .00284,    .00150,
     +     .00066,    .00222,    .00244,
     +     .20031,    .06111,    .03458,    .00272,    .00145,
     +     .00065,    .00213,    .00235,
     +     .19375,    .05894,    .03189,    .00261,    .00140,
     +     .00063,    .00205,    .00225,
     +     .18750,    .05688,    .02949,    .00250,    .00135,
     +     .00062,    .00196,    .00215,
     +     .18176,    .05500,    .02741,    .00240,    .00130,
     +     .00061,    .00188,    .00206,
     +     .17646,    .05328,    .02560,    .00232,    .00126,
     +     .00060,    .00181,    .00198 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .17131,    .05161,    .02392,    .00224,    .00122,
     +     .00058,    .00175,    .00191,
     +     .16636,    .05001,    .02240,    .00216,    .00118,
     +     .00057,    .00169,    .00184,
     +     .16180,    .04853,    .02106,    .00208,    .00115,
     +     .00056,    .00163,    .00178,
     +     .15758,    .04717,    .01987,    .00201,    .00111,
     +     .00055,    .00158,    .00172,
     +     .15341,    .04583,    .01877,    .00195,    .00108,
     +     .00053,    .00153,    .00167 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .50113,    .16522,    .46946,    .00405,    .00000,
     +     .00000,    .00211,    .00317,
     +     .48526,    .15928,    .42912,    .00421,    .00000,
     +     .00000,    .00236,    .00334,
     +     .46237,    .15079,    .37400,    .00437,    .00029,
     +     .00000,    .00265,    .00353,
     +     .44619,    .14485,    .33717,    .00444,    .00064,
     +     .00000,    .00278,    .00362,
     +     .42958,    .13880,    .30193,    .00445,    .00089,
     +     .00000,    .00287,    .00363,
     +     .41570,    .13377,    .27444,    .00443,    .00108,
     +     .00000,    .00293,    .00363,
     +     .40267,    .12910,    .25030,    .00441,    .00121,
     +     .00000,    .00297,    .00360,
     +     .38922,    .12430,    .22693,    .00437,    .00132,
     +     .00000,    .00298,    .00355 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37787,    .12027,    .20835,    .00433,    .00140,
     +     .00000,    .00298,    .00349,
     +     .36718,    .11648,    .19183,    .00426,    .00146,
     +     .00000,    .00296,    .00344,
     +     .35893,    .11356,    .17969,    .00419,    .00149,
     +     .00000,    .00294,    .00340,
     +     .34185,    .10759,    .15609,    .00404,    .00155,
     +     .00001,    .00288,    .00328,
     +     .32774,    .10269,    .13809,    .00390,    .00157,
     +     .00009,    .00281,    .00317,
     +     .31264,    .09745,    .12024,    .00374,    .00158,
     +     .00023,    .00271,    .00308,
     +     .29757,    .09233,    .10422,    .00357,    .00156,
     +     .00031,    .00261,    .00292,
     +     .28453,    .08792,    .09171,    .00341,    .00154,
     +     .00037,    .00251,    .00279 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27197,    .08368,    .08073,    .00326,    .00151,
     +     .00041,    .00241,    .00267,
     +     .26197,    .08031,    .07271,    .00314,    .00147,
     +     .00044,    .00232,    .00256,
     +     .25036,    .07643,    .06416,    .00298,    .00143,
     +     .00047,    .00222,    .00243,
     +     .24056,    .07317,    .05752,    .00284,    .00139,
     +     .00048,    .00213,    .00232,
     +     .23187,    .07030,    .05212,    .00273,    .00135,
     +     .00049,    .00204,    .00222,
     +     .22133,    .06684,    .04607,    .00258,    .00129,
     +     .00049,    .00194,    .00210,
     +     .21190,    .06376,    .04110,    .00246,    .00124,
     +     .00049,    .00186,    .00199,
     +     .20340,    .06100,    .03702,    .00235,    .00120,
     +     .00049,    .00176,    .00189 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .19528,    .05838,    .03340,    .00225,    .00115,
     +     .00048,    .00168,    .00180,
     +     .18765,    .05592,    .03027,    .00214,    .00111,
     +     .00048,    .00160,    .00171,
     +     .18074,    .05370,    .02761,    .00205,    .00107,
     +     .00047,    .00152,    .00163,
     +     .17447,    .05170,    .02536,    .00196,    .00103,
     +     .00046,    .00146,    .00155,
     +     .16840,    .04976,    .02332,    .00187,    .00099,
     +     .00045,    .00140,    .00148,
     +     .16265,    .04793,    .02151,    .00177,    .00095,
     +     .00044,    .00135,    .00142,
     +     .15738,    .04626,    .01994,    .00170,    .00092,
     +     .00043,    .00130,    .00136,
     +     .15252,    .04474,    .01860,    .00164,    .00089,
     +     .00042,    .00125,    .00130 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14780,    .04326,    .01734,    .00159,    .00086,
     +     .00041,    .00120,    .00125,
     +     .14329,    .04183,    .01621,    .00152,    .00083,
     +     .00041,    .00116,    .00120,
     +     .13914,    .04052,    .01521,    .00145,    .00080,
     +     .00040,    .00111,    .00117,
     +     .13530,    .03933,    .01434,    .00140,    .00078,
     +     .00039,    .00107,    .00113,
     +     .13150,    .03816,    .01352,    .00136,    .00076,
     +     .00038,    .00103,    .00108 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .46441,    .14809,    .39966,    .00296,    .00000,
     +     .00000,    .00151,    .00203,
     +     .44851,    .14242,    .36239,    .00309,    .00000,
     +     .00000,    .00171,    .00218,
     +     .42568,    .13434,    .31223,    .00323,    .00023,
     +     .00000,    .00193,    .00233,
     +     .40966,    .12869,    .27919,    .00328,    .00049,
     +     .00000,    .00204,    .00238,
     +     .39324,    .12296,    .24792,    .00328,    .00068,
     +     .00000,    .00212,    .00243,
     +     .37956,    .11822,    .22374,    .00326,    .00082,
     +     .00000,    .00217,    .00245,
     +     .36679,    .11382,    .20271,    .00322,    .00091,
     +     .00000,    .00219,    .00243,
     +     .35366,    .10932,    .18251,    .00318,    .00099,
     +     .00000,    .00220,    .00240 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .34261,    .10555,    .16660,    .00313,    .00105,
     +     .00000,    .00219,    .00238,
     +     .33221,    .10202,    .15254,    .00307,    .00109,
     +     .00000,    .00217,    .00235,
     +     .32420,    .09932,    .14226,    .00301,    .00111,
     +     .00000,    .00214,    .00233,
     +     .30765,    .09378,    .12251,    .00292,    .00115,
     +     .00001,    .00209,    .00224,
     +     .29406,    .08926,    .10760,    .00284,    .00116,
     +     .00007,    .00204,    .00216,
     +     .27962,    .08445,    .09296,    .00270,    .00116,
     +     .00016,    .00197,    .00210,
     +     .26525,    .07973,    .07994,    .00255,    .00114,
     +     .00022,    .00189,    .00200,
     +     .25288,    .07568,    .06985,    .00242,    .00112,
     +     .00026,    .00181,    .00191 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .24101,    .07182,    .06109,    .00231,    .00109,
     +     .00030,    .00173,    .00181,
     +     .23158,    .06878,    .05474,    .00221,    .00106,
     +     .00032,    .00166,    .00173,
     +     .22064,    .06526,    .04803,    .00211,    .00103,
     +     .00033,    .00159,    .00165,
     +     .21144,    .06233,    .04285,    .00201,    .00099,
     +     .00035,    .00152,    .00157,
     +     .20335,    .05975,    .03865,    .00191,    .00096,
     +     .00035,    .00145,    .00150,
     +     .19355,    .05665,    .03398,    .00180,    .00092,
     +     .00036,    .00137,    .00142,
     +     .18476,    .05389,    .03018,    .00171,    .00088,
     +     .00036,    .00129,    .00135,
     +     .17690,    .05144,    .02708,    .00162,    .00085,
     +     .00035,    .00124,    .00128 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16943,    .04911,    .02434,    .00154,    .00081,
     +     .00035,    .00119,    .00120,
     +     .16244,    .04692,    .02198,    .00146,    .00078,
     +     .00034,    .00113,    .00115,
     +     .15610,    .04495,    .01999,    .00139,    .00075,
     +     .00034,    .00108,    .00110,
     +     .15036,    .04318,    .01831,    .00133,    .00072,
     +     .00033,    .00103,    .00105,
     +     .14482,    .04148,    .01680,    .00127,    .00069,
     +     .00033,    .00098,    .00100,
     +     .13957,    .03987,    .01546,    .00121,    .00066,
     +     .00032,    .00094,    .00096,
     +     .13478,    .03841,    .01431,    .00116,    .00064,
     +     .00031,    .00090,    .00092,
     +     .13038,    .03708,    .01332,    .00111,    .00062,
     +     .00031,    .00086,    .00088 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .12613,    .03580,    .01239,    .00107,    .00060,
     +     .00030,    .00083,    .00083,
     +     .12204,    .03456,    .01157,    .00103,    .00058,
     +     .00030,    .00080,    .00080,
     +     .11828,    .03343,    .01085,    .00100,    .00056,
     +     .00029,    .00077,    .00077,
     +     .11483,    .03239,    .01021,    .00096,    .00054,
     +     .00029,    .00074,    .00074,
     +     .11145,    .03137,    .00961,    .00092,    .00052,
     +     .00028,    .00072,    .00071 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .42608,    .13153,    .33340,    .00217,    .00000,
     +     .00000,    .00106,    .00121,
     +     .41042,    .12615,    .29993,    .00226,    .00000,
     +     .00000,    .00122,    .00135,
     +     .38804,    .11852,    .25550,    .00233,    .00017,
     +     .00000,    .00138,    .00151,
     +     .37236,    .11323,    .22665,    .00236,    .00037,
     +     .00000,    .00149,    .00157,
     +     .35636,    .10788,    .19962,    .00235,    .00051,
     +     .00000,    .00153,    .00163,
     +     .34309,    .10346,    .17892,    .00233,    .00061,
     +     .00000,    .00156,    .00167,
     +     .33078,    .09936,    .16106,    .00229,    .00068,
     +     .00000,    .00158,    .00166,
     +     .31814,    .09519,    .14405,    .00224,    .00074,
     +     .00000,    .00159,    .00165 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .30753,    .09171,    .13075,    .00219,    .00077,
     +     .00000,    .00159,    .00163,
     +     .29755,    .08846,    .11910,    .00215,    .00080,
     +     .00000,    .00158,    .00162,
     +     .28986,    .08597,    .11063,    .00213,    .00081,
     +     .00000,    .00155,    .00161,
     +     .27411,    .08090,    .09445,    .00205,    .00083,
     +     .00000,    .00151,    .00154,
     +     .26124,    .07677,    .08235,    .00195,    .00084,
     +     .00005,    .00147,    .00148,
     +     .24761,    .07239,    .07060,    .00182,    .00083,
     +     .00012,    .00141,    .00146,
     +     .23404,    .06812,    .06028,    .00175,    .00082,
     +     .00015,    .00136,    .00136,
     +     .22245,    .06448,    .05235,    .00166,    .00080,
     +     .00018,    .00130,    .00129 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .21137,    .06101,    .04550,    .00157,    .00078,
     +     .00020,    .00124,    .00123,
     +     .20258,    .05828,    .04057,    .00150,    .00075,
     +     .00022,    .00119,    .00118,
     +     .19244,    .05515,    .03538,    .00142,    .00072,
     +     .00023,    .00113,    .00112,
     +     .18393,    .05253,    .03141,    .00135,    .00070,
     +     .00024,    .00108,    .00107,
     +     .17646,    .05024,    .02823,    .00128,    .00068,
     +     .00024,    .00103,    .00102,
     +     .16747,    .04749,    .02471,    .00120,    .00065,
     +     .00024,    .00097,    .00097,
     +     .15947,    .04504,    .02185,    .00112,    .00062,
     +     .00024,    .00092,    .00091,
     +     .15229,    .04289,    .01953,    .00107,    .00059,
     +     .00024,    .00088,    .00086 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .14547,    .04085,    .01749,    .00103,    .00057,
     +     .00024,    .00083,    .00081,
     +     .13911,    .03894,    .01575,    .00097,    .00054,
     +     .00024,    .00079,    .00078,
     +     .13337,    .03722,    .01428,    .00092,    .00052,
     +     .00024,    .00075,    .00075,
     +     .12818,    .03568,    .01305,    .00087,    .00050,
     +     .00024,    .00071,    .00071,
     +     .12320,    .03421,    .01195,    .00083,    .00048,
     +     .00024,    .00068,    .00068,
     +     .11850,    .03282,    .01097,    .00078,    .00047,
     +     .00024,    .00065,    .00064,
     +     .11421,    .03155,    .01014,    .00075,    .00045,
     +     .00023,    .00063,    .00061,
     +     .11028,    .03039,    .00942,    .00072,    .00043,
     +     .00023,    .00060,    .00059 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .10648,    .02928,    .00875,    .00069,    .00042,
     +     .00022,    .00058,    .00057,
     +     .10286,    .02822,    .00816,    .00065,    .00041,
     +     .00022,    .00055,    .00054,
     +     .09955,    .02726,    .00764,    .00062,    .00039,
     +     .00022,    .00053,    .00052,
     +     .09649,    .02637,    .00718,    .00060,    .00038,
     +     .00022,    .00051,    .00050,
     +     .09348,    .02550,    .00676,    .00058,    .00037,
     +     .00021,    .00049,    .00047 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .38703,    .11576,    .27271,    .00162,    .00000,
     +     .00000,    .00067,    .00069,
     +     .37182,    .11076,    .24354,    .00169,    .00000,
     +     .00000,    .00079,    .00080,
     +     .35014,    .10371,    .20529,    .00177,    .00013,
     +     .00000,    .00092,    .00092,
     +     .33505,    .09881,    .18078,    .00178,    .00027,
     +     .00000,    .00099,    .00098,
     +     .31976,    .09387,    .15797,    .00175,    .00038,
     +     .00000,    .00104,    .00101,
     +     .30710,    .08981,    .14065,    .00174,    .00045,
     +     .00000,    .00107,    .00103,
     +     .29535,    .08606,    .12587,    .00172,    .00050,
     +     .00000,    .00108,    .00104,
     +     .28333,    .08225,    .11189,    .00169,    .00054,
     +     .00000,    .00108,    .00105 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .27327,    .07908,    .10101,    .00166,    .00057,
     +     .00000,    .00106,    .00104,
     +     .26385,    .07613,    .09155,    .00161,    .00059,
     +     .00000,    .00105,    .00103,
     +     .25663,    .07388,    .08472,    .00157,    .00060,
     +     .00000,    .00104,    .00102,
     +     .24188,    .06929,    .07178,    .00149,    .00061,
     +     .00000,    .00101,    .00100,
     +     .22984,    .06556,    .06220,    .00143,    .00061,
     +     .00003,    .00097,    .00096,
     +     .21707,    .06165,    .05295,    .00137,    .00061,
     +     .00008,    .00093,    .00091,
     +     .20451,    .05781,    .04489,    .00131,    .00059,
     +     .00011,    .00089,    .00088,
     +     .19380,    .05456,    .03876,    .00123,    .00058,
     +     .00012,    .00086,    .00084 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18360,    .05149,    .03350,    .00115,    .00056,
     +     .00014,    .00082,    .00079,
     +     .17557,    .04908,    .02974,    .00109,    .00054,
     +     .00015,    .00077,    .00076,
     +     .16630,    .04631,    .02582,    .00103,    .00052,
     +     .00015,    .00073,    .00070,
     +     .15855,    .04400,    .02283,    .00099,    .00050,
     +     .00016,    .00071,    .00066,
     +     .15176,    .04199,    .02044,    .00093,    .00049,
     +     .00016,    .00067,    .00064,
     +     .14359,    .03958,    .01781,    .00087,    .00046,
     +     .00016,    .00062,    .00060,
     +     .13635,    .03744,    .01570,    .00082,    .00044,
     +     .00016,    .00058,    .00057,
     +     .12990,    .03556,    .01399,    .00078,    .00043,
     +     .00016,    .00055,    .00054 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .12379,    .03379,    .01249,    .00074,    .00041,
     +     .00016,    .00052,    .00050,
     +     .11808,    .03214,    .01122,    .00071,    .00039,
     +     .00016,    .00049,    .00048,
     +     .11295,    .03066,    .01015,    .00068,    .00038,
     +     .00016,    .00046,    .00046,
     +     .10834,    .02933,    .00927,    .00064,    .00036,
     +     .00016,    .00045,    .00043,
     +     .10392,    .02806,    .00847,    .00060,    .00035,
     +     .00016,    .00043,    .00041,
     +     .09976,    .02686,    .00776,    .00056,    .00034,
     +     .00016,    .00041,    .00040,
     +     .09597,    .02578,    .00716,    .00053,    .00033,
     +     .00016,    .00039,    .00038,
     +     .09251,    .02479,    .00665,    .00051,    .00032,
     +     .00016,    .00037,    .00036 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08918,    .02384,    .00617,    .00049,    .00031,
     +     .00016,    .00036,    .00034,
     +     .08597,    .02295,    .00575,    .00048,    .00030,
     +     .00016,    .00034,    .00033,
     +     .08303,    .02213,    .00537,    .00047,    .00029,
     +     .00016,    .00033,    .00031,
     +     .08034,    .02137,    .00505,    .00045,    .00028,
     +     .00016,    .00031,    .00030,
     +     .07773,    .02064,    .00475,    .00043,    .00027,
     +     .00016,    .00030,    .00029 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34764,    .10050,    .21796,    .00103,    .00000,
     +     .00000,    .00051,    .00043,
     +     .33308,    .09591,    .19324,    .00108,    .00000,
     +     .00000,    .00059,    .00052,
     +     .31246,    .08946,    .16120,    .00113,    .00009,
     +     .00000,    .00067,    .00061,
     +     .29814,    .08500,    .14088,    .00114,    .00020,
     +     .00000,    .00072,    .00066,
     +     .28363,    .08052,    .12220,    .00116,    .00027,
     +     .00000,    .00075,    .00068,
     +     .27167,    .07685,    .10811,    .00116,    .00032,
     +     .00000,    .00077,    .00070,
     +     .26064,    .07347,    .09616,    .00114,    .00036,
     +     .00000,    .00077,    .00071,
     +     .24940,    .07005,    .08494,    .00111,    .00039,
     +     .00000,    .00077,    .00070 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .24001,    .06721,    .07629,    .00109,    .00041,
     +     .00000,    .00076,    .00069,
     +     .23124,    .06457,    .06880,    .00106,    .00042,
     +     .00000,    .00075,    .00069,
     +     .22452,    .06256,    .06341,    .00105,    .00042,
     +     .00000,    .00074,    .00069,
     +     .21085,    .05847,    .05329,    .00100,    .00043,
     +     .00000,    .00072,    .00066,
     +     .19975,    .05517,    .04588,    .00095,    .00043,
     +     .00002,    .00069,    .00064,
     +     .18804,    .05170,    .03880,    .00090,    .00043,
     +     .00005,    .00065,    .00061,
     +     .17653,    .04834,    .03267,    .00086,    .00041,
     +     .00007,    .00062,    .00058,
     +     .16677,    .04548,    .02805,    .00082,    .00040,
     +     .00008,    .00058,    .00056 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15751,    .04278,    .02411,    .00076,    .00039,
     +     .00009,    .00055,    .00053,
     +     .15022,    .04068,    .02131,    .00072,    .00038,
     +     .00009,    .00053,    .00050,
     +     .14187,    .03827,    .01841,    .00067,    .00036,
     +     .00009,    .00050,    .00047,
     +     .13491,    .03627,    .01621,    .00063,    .00035,
     +     .00009,    .00046,    .00045,
     +     .12881,    .03453,    .01446,    .00060,    .00034,
     +     .00009,    .00045,    .00042,
     +     .12150,    .03245,    .01255,    .00057,    .00032,
     +     .00009,    .00042,    .00039,
     +     .11504,    .03063,    .01103,    .00053,    .00031,
     +     .00009,    .00038,    .00037,
     +     .10931,    .02901,    .00980,    .00051,    .00030,
     +     .00009,    .00037,    .00035 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .10391,    .02749,    .00873,    .00048,    .00028,
     +     .00009,    .00035,    .00033,
     +     .09890,    .02608,    .00782,    .00044,    .00027,
     +     .00009,    .00033,    .00031,
     +     .09439,    .02482,    .00707,    .00042,    .00026,
     +     .00009,    .00031,    .00030,
     +     .09032,    .02371,    .00644,    .00040,    .00026,
     +     .00009,    .00029,    .00029,
     +     .08643,    .02263,    .00587,    .00038,    .00025,
     +     .00009,    .00028,    .00027,
     +     .08278,    .02162,    .00538,    .00036,    .00024,
     +     .00009,    .00027,    .00026,
     +     .07947,    .02071,    .00495,    .00034,    .00023,
     +     .00009,    .00025,    .00024,
     +     .07647,    .01988,    .00459,    .00033,    .00023,
     +     .00009,    .00024,    .00023 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .07357,    .01908,    .00426,    .00032,    .00022,
     +     .00009,    .00023,    .00022,
     +     .07080,    .01833,    .00396,    .00031,    .00022,
     +     .00009,    .00022,    .00021,
     +     .06826,    .01765,    .00370,    .00030,    .00021,
     +     .00009,    .00021,    .00020,
     +     .06595,    .01702,    .00348,    .00029,    .00021,
     +     .00009,    .00020,    .00019,
     +     .06369,    .01641,    .00327,    .00028,    .00020,
     +     .00009,    .00019,    .00018 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30873,    .08631,    .17035,    .00065,    .00000,
     +     .00000,    .00036,    .00027,
     +     .29500,    .08215,    .14994,    .00069,    .00000,
     +     .00000,    .00042,    .00034,
     +     .27562,    .07631,    .12380,    .00072,    .00006,
     +     .00000,    .00048,    .00042,
     +     .26220,    .07230,    .10742,    .00075,    .00014,
     +     .00000,    .00050,    .00045,
     +     .24869,    .06829,    .09245,    .00074,    .00019,
     +     .00000,    .00052,    .00046,
     +     .23758,    .06502,    .08127,    .00074,    .00022,
     +     .00000,    .00053,    .00046,
     +     .22735,    .06201,    .07187,    .00072,    .00024,
     +     .00000,    .00052,    .00048,
     +     .21696,    .05898,    .06310,    .00070,    .00026,
     +     .00000,    .00052,    .00048 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .20832,    .05646,    .05637,    .00068,    .00027,
     +     .00000,    .00052,    .00047,
     +     .20028,    .05413,    .05059,    .00067,    .00027,
     +     .00000,    .00051,    .00047,
     +     .19414,    .05235,    .04647,    .00065,    .00028,
     +     .00000,    .00050,    .00047,
     +     .18166,    .04874,    .03875,    .00062,    .00028,
     +     .00000,    .00049,    .00045,
     +     .17155,    .04584,    .03314,    .00059,    .00028,
     +     .00001,    .00048,    .00043,
     +     .16093,    .04281,    .02782,    .00057,    .00027,
     +     .00003,    .00045,    .00040,
     +     .15059,    .03990,    .02328,    .00052,    .00026,
     +     .00004,    .00043,    .00038,
     +     .14180,    .03743,    .01988,    .00050,    .00025,
     +     .00005,    .00040,    .00036 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13349,    .03510,    .01700,    .00047,    .00024,
     +     .00005,    .00038,    .00034,
     +     .12699,    .03329,    .01497,    .00043,    .00023,
     +     .00005,    .00036,    .00033,
     +     .11955,    .03122,    .01287,    .00041,    .00022,
     +     .00005,    .00034,    .00031,
     +     .11336,    .02950,    .01129,    .00039,    .00021,
     +     .00005,    .00032,    .00029,
     +     .10798,    .02802,    .01004,    .00037,    .00020,
     +     .00005,    .00030,    .00028,
     +     .10155,    .02625,    .00868,    .00034,    .00019,
     +     .00005,    .00028,    .00026,
     +     .09587,    .02471,    .00760,    .00032,    .00018,
     +     .00005,    .00026,    .00024,
     +     .09084,    .02335,    .00674,    .00031,    .00017,
     +     .00005,    .00025,    .00022 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08611,    .02207,    .00599,    .00030,    .00017,
     +     .00005,    .00023,    .00021,
     +     .08174,    .02089,    .00536,    .00028,    .00016,
     +     .00005,    .00022,    .00020,
     +     .07783,    .01983,    .00483,    .00026,    .00015,
     +     .00005,    .00020,    .00019,
     +     .07432,    .01889,    .00439,    .00025,    .00014,
     +     .00005,    .00020,    .00018,
     +     .07097,    .01799,    .00400,    .00023,    .00014,
     +     .00005,    .00019,    .00017,
     +     .06783,    .01715,    .00366,    .00022,    .00014,
     +     .00005,    .00017,    .00017,
     +     .06498,    .01640,    .00337,    .00021,    .00013,
     +     .00005,    .00016,    .00016,
     +     .06240,    .01572,    .00312,    .00020,    .00013,
     +     .00005,    .00016,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05991,    .01506,    .00289,    .00019,    .00013,
     +     .00005,    .00015,    .00014,
     +     .05755,    .01444,    .00269,    .00018,    .00013,
     +     .00005,    .00015,    .00013,
     +     .05540,    .01387,    .00251,    .00017,    .00013,
     +     .00005,    .00014,    .00012,
     +     .05344,    .01336,    .00236,    .00016,    .00013,
     +     .00005,    .00013,    .00012,
     +     .05153,    .01285,    .00222,    .00015,    .00013,
     +     .00005,    .00013,    .00011 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .27101,    .07335,    .13022,    .00047,    .00000,
     +     .00000,    .00020,    .00012,
     +     .25823,    .06963,    .11382,    .00049,    .00000,
     +     .00000,    .00024,    .00018,
     +     .24027,    .06442,    .09303,    .00052,    .00004,
     +     .00000,    .00029,    .00024,
     +     .22791,    .06086,    .08015,    .00052,    .00009,
     +     .00000,    .00032,    .00026,
     +     .21549,    .05730,    .06850,    .00053,    .00013,
     +     .00000,    .00033,    .00028,
     +     .20532,    .05441,    .05985,    .00053,    .00015,
     +     .00000,    .00034,    .00029,
     +     .19600,    .05178,    .05262,    .00051,    .00016,
     +     .00000,    .00033,    .00030,
     +     .18656,    .04912,    .04592,    .00049,    .00017,
     +     .00000,    .00033,    .00029 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .17873,    .04691,    .04082,    .00049,    .00018,
     +     .00000,    .00033,    .00028,
     +     .17145,    .04488,    .03647,    .00048,    .00018,
     +     .00000,    .00033,    .00027,
     +     .16588,    .04334,    .03337,    .00047,    .00018,
     +     .00000,    .00032,    .00027,
     +     .15463,    .04022,    .02763,    .00045,    .00018,
     +     .00000,    .00031,    .00027,
     +     .14556,    .03772,    .02349,    .00043,    .00018,
     +     .00001,    .00029,    .00027,
     +     .13609,    .03511,    .01961,    .00039,    .00018,
     +     .00002,    .00028,    .00024,
     +     .12691,    .03259,    .01630,    .00037,    .00017,
     +     .00002,    .00026,    .00023,
     +     .11912,    .03047,    .01385,    .00034,    .00016,
     +     .00002,    .00024,    .00023 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .11178,    .02849,    .01178,    .00031,    .00015,
     +     .00002,    .00023,    .00022,
     +     .10608,    .02694,    .01034,    .00030,    .00015,
     +     .00002,    .00022,    .00020,
     +     .09954,    .02519,    .00885,    .00028,    .00014,
     +     .00002,    .00021,    .00018,
     +     .09413,    .02375,    .00774,    .00027,    .00013,
     +     .00002,    .00019,    .00018,
     +     .08943,    .02251,    .00687,    .00026,    .00013,
     +     .00002,    .00018,    .00017,
     +     .08384,    .02103,    .00593,    .00024,    .00012,
     +     .00002,    .00017,    .00016,
     +     .07894,    .01973,    .00518,    .00022,    .00011,
     +     .00002,    .00015,    .00015,
     +     .07461,    .01859,    .00458,    .00021,    .00011,
     +     .00002,    .00014,    .00014 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .07055,    .01753,    .00406,    .00020,    .00010,
     +     .00002,    .00013,    .00013,
     +     .06681,    .01655,    .00363,    .00017,    .00009,
     +     .00002,    .00013,    .00012,
     +     .06346,    .01568,    .00327,    .00016,    .00009,
     +     .00002,    .00012,    .00012,
     +     .06046,    .01491,    .00297,    .00016,    .00008,
     +     .00002,    .00011,    .00011,
     +     .05759,    .01417,    .00270,    .00015,    .00008,
     +     .00002,    .00011,    .00010,
     +     .05492,    .01347,    .00247,    .00014,    .00008,
     +     .00002,    .00010,    .00010,
     +     .05251,    .01285,    .00227,    .00014,    .00007,
     +     .00002,    .00009,    .00010,
     +     .05033,    .01229,    .00210,    .00013,    .00007,
     +     .00002,    .00009,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04824,    .01176,    .00195,    .00012,    .00007,
     +     .00002,    .00009,    .00008,
     +     .04624,    .01126,    .00181,    .00012,    .00007,
     +     .00002,    .00008,    .00008,
     +     .04443,    .01080,    .00169,    .00012,    .00007,
     +     .00002,    .00008,    .00008,
     +     .04278,    .01038,    .00159,    .00012,    .00007,
     +     .00002,    .00008,    .00007,
     +     .04117,    .00997,    .00149,    .00011,    .00007,
     +     .00002,    .00007,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .23457,    .06127,    .09678,    .00023,    .00000,
     +     .00000,    .00015,    .00011,
     +     .22287,    .05800,    .08400,    .00025,    .00000,
     +     .00000,    .00018,    .00014,
     +     .20650,    .05345,    .06796,    .00028,    .00003,
     +     .00000,    .00022,    .00016,
     +     .19528,    .05034,    .05814,    .00029,    .00006,
     +     .00000,    .00023,    .00018,
     +     .18405,    .04726,    .04934,    .00029,    .00008,
     +     .00000,    .00023,    .00020,
     +     .17488,    .04475,    .04284,    .00029,    .00010,
     +     .00000,    .00024,    .00021,
     +     .16649,    .04247,    .03744,    .00029,    .00011,
     +     .00000,    .00024,    .00020,
     +     .15803,    .04018,    .03248,    .00029,    .00011,
     +     .00000,    .00024,    .00020 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .15102,    .03829,    .02872,    .00028,    .00011,
     +     .00000,    .00024,    .00019,
     +     .14454,    .03655,    .02554,    .00027,    .00012,
     +     .00000,    .00023,    .00019,
     +     .13961,    .03522,    .02328,    .00027,    .00012,
     +     .00000,    .00022,    .00019,
     +     .12966,    .03256,    .01914,    .00024,    .00011,
     +     .00000,    .00021,    .00019,
     +     .12166,    .03044,    .01618,    .00023,    .00011,
     +     .00000,    .00020,    .00018,
     +     .11331,    .02824,    .01341,    .00023,    .00011,
     +     .00000,    .00019,    .00017,
     +     .10526,    .02612,    .01109,    .00021,    .00010,
     +     .00000,    .00018,    .00015,
     +     .09847,    .02435,    .00937,    .00020,    .00010,
     +     .00000,    .00016,    .00014 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09210,    .02269,    .00794,    .00019,    .00009,
     +     .00000,    .00015,    .00013,
     +     .08715,    .02140,    .00694,    .00018,    .00009,
     +     .00000,    .00015,    .00012,
     +     .08152,    .01995,    .00592,    .00016,    .00008,
     +     .00000,    .00014,    .00012,
     +     .07687,    .01875,    .00517,    .00014,    .00008,
     +     .00000,    .00013,    .00012,
     +     .07284,    .01772,    .00457,    .00014,    .00007,
     +     .00000,    .00012,    .00011,
     +     .06806,    .01650,    .00393,    .00013,    .00007,
     +     .00000,    .00011,    .00010,
     +     .06387,    .01544,    .00342,    .00013,    .00007,
     +     .00000,    .00010,    .00010,
     +     .06021,    .01451,    .00302,    .00012,    .00006,
     +     .00000,    .00009,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05678,    .01364,    .00268,    .00010,    .00006,
     +     .00000,    .00009,    .00008,
     +     .05361,    .01285,    .00239,    .00010,    .00005,
     +     .00000,    .00008,    .00008,
     +     .05079,    .01214,    .00215,    .00009,    .00005,
     +     .00000,    .00008,    .00007,
     +     .04827,    .01151,    .00195,    .00009,    .00005,
     +     .00000,    .00008,    .00007,
     +     .04588,    .01091,    .00178,    .00008,    .00005,
     +     .00000,    .00007,    .00006,
     +     .04366,    .01036,    .00162,    .00008,    .00004,
     +     .00000,    .00007,    .00006,
     +     .04166,    .00986,    .00149,    .00007,    .00004,
     +     .00000,    .00006,    .00006,
     +     .03984,    .00941,    .00138,    .00007,    .00004,
     +     .00000,    .00006,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03811,    .00899,    .00128,    .00006,    .00004,
     +     .00000,    .00006,    .00005,
     +     .03646,    .00858,    .00119,    .00006,    .00004,
     +     .00000,    .00005,    .00005,
     +     .03497,    .00822,    .00111,    .00005,    .00004,
     +     .00000,    .00005,    .00005,
     +     .03361,    .00788,    .00104,    .00005,    .00004,
     +     .00000,    .00005,    .00005,
     +     .03229,    .00756,    .00098,    .00005,    .00004,
     +     .00000,    .00005,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .16829,    .04098,    .04919,    .00008,    .00000,
     +     .00000,    .00005,    .00003,
     +     .15893,    .03856,    .04209,    .00010,    .00000,
     +     .00000,    .00006,    .00004,
     +     .14595,    .03522,    .03337,    .00011,    .00001,
     +     .00000,    .00008,    .00005,
     +     .13713,    .03297,    .02814,    .00011,    .00002,
     +     .00000,    .00009,    .00006,
     +     .12838,    .03074,    .02353,    .00011,    .00003,
     +     .00000,    .00009,    .00007,
     +     .12129,    .02894,    .02018,    .00011,    .00003,
     +     .00000,    .00009,    .00007,
     +     .11484,    .02732,    .01745,    .00010,    .00003,
     +     .00000,    .00008,    .00008,
     +     .10837,    .02570,    .01496,    .00010,    .00003,
     +     .00000,    .00008,    .00007 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .10304,    .02437,    .01310,    .00010,    .00003,
     +     .00000,    .00009,    .00006,
     +     .09813,    .02315,    .01155,    .00010,    .00003,
     +     .00000,    .00008,    .00006,
     +     .09442,    .02223,    .01046,    .00010,    .00003,
     +     .00000,    .00008,    .00006,
     +     .08698,    .02039,    .00848,    .00010,    .00003,
     +     .00000,    .00008,    .00006,
     +     .08107,    .01893,    .00709,    .00009,    .00003,
     +     .00000,    .00007,    .00006,
     +     .07496,    .01743,    .00581,    .00007,    .00003,
     +     .00000,    .00007,    .00007,
     +     .06909,    .01599,    .00475,    .00007,    .00003,
     +     .00000,    .00006,    .00006,
     +     .06418,    .01480,    .00398,    .00006,    .00003,
     +     .00000,    .00006,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05961,    .01370,    .00335,    .00006,    .00003,
     +     .00000,    .00005,    .00006,
     +     .05607,    .01285,    .00291,    .00006,    .00003,
     +     .00000,    .00005,    .00005,
     +     .05209,    .01190,    .00247,    .00006,    .00003,
     +     .00000,    .00005,    .00004,
     +     .04883,    .01112,    .00215,    .00005,    .00003,
     +     .00000,    .00004,    .00004,
     +     .04602,    .01045,    .00189,    .00005,    .00003,
     +     .00000,    .00004,    .00004,
     +     .04272,    .00967,    .00162,    .00004,    .00003,
     +     .00000,    .00004,    .00004,
     +     .03984,    .00899,    .00141,    .00004,    .00003,
     +     .00000,    .00004,    .00004,
     +     .03734,    .00840,    .00124,    .00003,    .00003,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03501,    .00785,    .00110,    .00002,    .00003,
     +     .00000,    .00003,    .00003,
     +     .03286,    .00735,    .00098,    .00003,    .00003,
     +     .00000,    .00003,    .00002,
     +     .03096,    .00691,    .00088,    .00003,    .00003,
     +     .00000,    .00003,    .00002,
     +     .02929,    .00652,    .00080,    .00003,    .00003,
     +     .00000,    .00003,    .00002,
     +     .02770,    .00615,    .00073,    .00003,    .00003,
     +     .00000,    .00002,    .00002,
     +     .02623,    .00581,    .00067,    .00002,    .00002,
     +     .00000,    .00002,    .00002,
     +     .02491,    .00551,    .00061,    .00002,    .00002,
     +     .00000,    .00002,    .00002,
     +     .02372,    .00524,    .00057,    .00002,    .00002,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .02259,    .00498,    .00052,    .00002,    .00002,
     +     .00000,    .00002,    .00002,
     +     .02153,    .00473,    .00049,    .00002,    .00002,
     +     .00000,    .00002,    .00002,
     +     .02057,    .00451,    .00046,    .00002,    .00002,
     +     .00000,    .00002,    .00002,
     +     .01970,    .00431,    .00043,    .00001,    .00002,
     +     .00000,    .00002,    .00002,
     +     .01885,    .00412,    .00040,    .00001,    .00002,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .11224,    .02531,    .02174,    .00004,    .00000,
     +     .00000,    .00001,    .00000,
     +     .10532,    .02367,    .01833,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .09580,    .02142,    .01425,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .08936,    .01992,    .01185,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .08307,    .01844,    .00976,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .07799,    .01725,    .00827,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .07339,    .01619,    .00707,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06882,    .01514,    .00600,    .00004,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .06508,    .01428,    .00521,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06166,    .01349,    .00456,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05909,    .01290,    .00410,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05397,    .01173,    .00328,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04993,    .01082,    .00272,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04577,    .00988,    .00221,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04183,    .00899,    .00179,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03856,    .00826,    .00150,    .00003,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03555,    .00759,    .00125,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03324,    .00708,    .00108,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03065,    .00650,    .00092,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02854,    .00604,    .00079,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02675,    .00564,    .00070,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02464,    .00518,    .00060,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02282,    .00479,    .00052,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02125,    .00444,    .00046,    .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)/
     +     .01980,    .00413,    .00041,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01847,    .00384,    .00036,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01730,    .00359,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01628,    .00337,    .00030,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01531,    .00316,    .00027,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01442,    .00297,    .00025,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01363,    .00280,    .00023,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01293,    .00265,    .00021,    .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)/
     +     .01226,    .00251,    .00020,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01162,    .00238,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01106,    .00226,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01054,    .00215,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01005,    .00204,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .06802,    .01409,    .00799,    .00001,    .00000,
     +     .00000,   -.00001,    .00000,
     +     .06336,    .01309,    .00664,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05701,    .01172,    .00506,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05277,    .01081,    .00415,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04866,    .00993,    .00337,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04537,    .00923,    .00283,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04241,    .00860,    .00239,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03949,    .00799,    .00201,    .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)/
     +     .03712,    .00749,    .00173,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03497,    .00703,    .00150,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03336,    .00670,    .00135,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03017,    .00603,    .00107,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02767,    .00551,    .00088,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02513,    .00499,    .00071,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02276,    .00450,    .00057,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02081,    .00410,    .00048,    .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)/
     +     .01901,    .00374,    .00040,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01765,    .00346,    .00035,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01614,    .00315,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01493,    .00291,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01389,    .00270,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01269,    .00246,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01167,    .00225,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01078,    .00208,    .00015,    .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)/
     +     .00997,    .00192,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00924,    .00177,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00860,    .00164,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00804,    .00153,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00752,    .00143,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00705,    .00134,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00662,    .00125,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00625,    .00118,    .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)/
     +     .00589,    .00111,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00556,    .00105,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00526,    .00099,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00499,    .00094,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00474,    .00089,    .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)/
     +     .03588,    .00672,    .00226,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03315,    .00619,    .00185,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02946,    .00548,    .00138,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02703,    .00501,    .00112,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02468,    .00456,    .00090,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02283,    .00420,    .00075,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02117,    .00389,    .00063,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01956,    .00358,    .00052,    .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)/
     +     .01826,    .00333,    .00045,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01708,    .00311,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01621,    .00295,    .00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01449,    .00263,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01316,    .00238,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01183,    .00213,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01059,    .00190,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00959,    .00171,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00868,    .00155,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00799,    .00142,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00723,    .00128,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00663,    .00117,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00613,    .00108,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00554,    .00097,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00505,    .00088,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00462,    .00081,    .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)/
     +     .00424,    .00074,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00390,    .00068,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00360,    .00063,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00334,    .00058,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00311,    .00054,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00289,    .00050,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00270,    .00046,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00253,    .00043,    .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)/
     +     .00237,    .00041,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00222,    .00038,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00209,    .00036,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00034,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00186,    .00032,    .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)/
     +     .00449,    .00064,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00405,    .00057,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00347,    .00049,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00310,    .00044,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00276,    .00039,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00249,    .00035,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00226,    .00031,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00204,    .00028,    .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)/
     +     .00186,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00171,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00160,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00138,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00122,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00106,    .00015,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00092,    .00013,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00081,    .00011,    .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)/
     +     .00071,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00064,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00051,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00046,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00040,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00036,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00032,    .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)/
     +     .00029,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .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)/
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .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='lo09a.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