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

sfmrs_98d5.F

#include "pdf/pilot.h"
      subroutine sfmrs_98d5(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)/
     +     .00538,    .00208,   1.18692,    .82770,    .00000,
     +     .00000,    .44796,    .83742,
     +     .00553,    .00214,   2.48810,    .87715,    .00000,
     +     .00000,    .50206,    .88700,
     +     .00574,    .00224,   5.07391,    .97590,    .02391,
     +     .00000,    .60742,    .98594,
     +     .00591,    .00231,   7.59054,   1.06951,    .12162,
     +     .00000,    .70567,   1.07966,
     +     .00608,    .00238,  10.89055,   1.18833,    .23766,
     +     .00000,    .82921,   1.19859,
     +     .00622,    .00245,  14.30614,   1.30888,    .35086,
     +     .00000,    .95372,   1.31923,
     +     .00637,    .00251,  18.13641,   1.44020,    .47654,
     +     .00000,   1.08871,   1.45062,
     +     .00652,    .00258,  22.84442,   1.59694,    .62924,
     +     .00000,   1.24926,   1.60744 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00666,    .00264,  27.51741,   1.74827,    .77940,
     +     .00000,   1.40382,   1.75882,
     +     .00679,    .00270,  32.52043,   1.90887,    .93745,
     +     .00000,   1.56746,   1.91946,
     +     .00689,    .00276,  36.82547,   2.04641,   1.07191,
     +     .00000,   1.70738,   2.05705,
     +     .00711,    .00286,  47.15055,   2.37090,   1.39353,
     +     .00000,   2.03680,   2.38160,
     +     .00731,    .00295,  57.23297,   2.68639,   1.70765,
     +     .25923,   2.35643,   2.69713,
     +     .00754,    .00306,  69.89858,   3.08074,   2.10045,
     +     .72654,   2.75529,   3.09153,
     +     .00777,    .00317,  84.75495,   3.53995,   2.55840,
     +    1.20596,   3.21906,   3.55078,
     +     .00800,    .00328,  99.75118,   4.00124,   3.01900,
     +    1.69036,   3.68435,   4.01208 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00822,    .00339, 116.37136,   4.51186,   3.52943,
     +    2.22344,   4.19892,   4.52273,
     +     .00841,    .00348, 131.28504,   4.97099,   3.98788,
     +    2.69795,   4.66124,   4.98187,
     +     .00863,    .00359, 150.69511,   5.57124,   4.58636,
     +    3.31366,   5.26529,   5.58214,
     +     .00885,    .00369, 169.15860,   6.14401,   5.15826,
     +    3.90317,   5.84132,   6.15490,
     +     .00904,    .00378, 187.25596,   6.70599,   5.72142,
     +    4.48741,   6.40625,   6.71689,
     +     .00928,    .00391, 211.50574,   7.46657,   6.48094,
     +    5.26674,   7.17046,   7.47746,
     +     .00952,    .00402, 235.70283,   8.23216,   7.24499,
     +    6.04844,   7.93940,   8.24304,
     +     .00973,    .00413, 259.74336,   8.99716,   8.00998,
     +    6.83348,   8.70746,   9.00803 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00996,    .00424, 285.11374,   9.80957,   8.82352,
     +    7.66947,   9.52286,   9.82042,
     +     .01017,    .00436, 310.81589,  10.64419,   9.65629,
     +    8.51779,  10.36035,  10.65502,
     +     .01039,    .00447, 336.40709,  11.47919,  10.49184,
     +    9.37305,  11.19801,  11.49000,
     +     .01059,    .00457, 361.37973,  12.30217,  11.31467,
     +   10.21288,  12.02348,  12.31298,
     +     .01079,    .00467, 387.34310,  13.16539,  12.17774,
     +   11.09327,  12.88913,  13.17618,
     +     .01100,    .00478, 413.86263,  14.05329,  13.06634,
     +   12.00050,  13.77938,  14.06405,
     +     .01119,    .00487, 439.66459,  14.92723,  13.93981,
     +   12.88946,  14.65553,  14.93796,
     +     .01138,    .00497, 464.95543,  15.78863,  14.80198,
     +   13.76858,  15.51899,  15.79935 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01157,    .00507, 490.97503,  16.68421,  15.69754,
     +   14.67967,  16.41661,  16.69492,
     +     .01176,    .00516, 517.40083,  17.60026,  16.61411,
     +   15.61245,  17.33464,  17.61094,
     +     .01194,    .00526, 543.21470,  18.50224,  17.51681,
     +   16.53108,  18.23849,  18.51289,
     +     .01211,    .00535, 568.09547,  19.38052,  18.39493,
     +   17.42279,  19.11852,  19.39115,
     +     .01229,    .00544, 594.17630,  20.30327,  19.31960,
     +   18.36502,  20.04301,  20.31388 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00746,    .00298,   1.06298,    .71034,    .00000,
     +     .00000,    .38395,    .71612,
     +     .00767,    .00307,   2.21197,    .75410,    .00000,
     +     .00000,    .43143,    .75995,
     +     .00796,    .00321,   4.45154,    .83903,    .02099,
     +     .00000,    .52162,    .84498,
     +     .00820,    .00332,   6.58911,    .91780,    .10296,
     +     .00000,    .60410,    .92382,
     +     .00843,    .00343,   9.34762,   1.01640,    .19892,
     +     .00000,    .70644,   1.02248,
     +     .00864,    .00352,  12.16107,   1.11526,    .29128,
     +     .00000,    .80842,   1.12138,
     +     .00884,    .00361,  15.27718,   1.22195,    .39282,
     +     .00000,    .91803,   1.22812,
     +     .00905,    .00371,  19.06189,   1.34825,    .51505,
     +     .00000,   1.04734,   1.35446 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00923,    .00381,  22.77770,   1.46927,    .63427,
     +     .00000,   1.17090,   1.47551,
     +     .00941,    .00389,  26.71627,   1.59681,    .75883,
     +     .00000,   1.30084,   1.60307,
     +     .00955,    .00396,  30.07641,   1.70537,    .86415,
     +     .00000,   1.41127,   1.71165,
     +     .00986,    .00411,  38.04541,   1.95954,   1.11410,
     +     .00000,   1.66932,   1.96586,
     +     .01013,    .00425,  45.71872,   2.20430,   1.35587,
     +     .19874,   1.91735,   2.21066,
     +     .01045,    .00440,  55.22882,   2.50746,   1.65546,
     +     .55593,   2.22404,   2.51384,
     +     .01077,    .00456,  66.23729,   2.85714,   2.00146,
     +     .91806,   2.57728,   2.86355,
     +     .01108,    .00471,  77.21247,   3.20523,   2.34639,
     +    1.28062,   2.92852,   3.21166 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01138,    .00486,  89.23834,   3.58736,   2.72556,
     +    1.67622,   3.31375,   3.59382,
     +     .01164,    .00499,  99.91991,   3.92838,   3.06360,
     +    2.02562,   3.65726,   3.93484,
     +     .01195,    .00515, 113.68324,   4.37092,   3.50169,
     +    2.47559,   4.10276,   4.37738,
     +     .01223,    .00529, 126.64787,   4.79007,   3.91734,
     +    2.90331,   4.52448,   4.79655,
     +     .01249,    .00542, 139.25001,   5.19873,   4.32418,
     +    3.32467,   4.93542,   5.20522,
     +     .01282,    .00560, 155.97671,   5.74785,   4.86898,
     +    3.88256,   5.48738,   5.75434,
     +     .01314,    .00575, 172.50496,   6.29649,   5.41306,
     +    4.43803,   6.03863,   6.30298,
     +     .01345,    .00591, 188.78603,   6.84105,   5.95434,
     +    4.99236,   6.58558,   6.84754 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01375,    .00607, 205.82951,   7.41571,   6.52650,
     +    5.57913,   7.16258,   7.42221,
     +     .01405,    .00622, 222.94626,   8.00221,   7.10831,
     +    6.17043,   7.75131,   8.00869,
     +     .01434,    .00637, 239.86919,   8.58563,   7.68896,
     +    6.76352,   8.33682,   8.59213,
     +     .01461,    .00651, 256.26471,   9.15748,   8.25763,
     +    7.34266,   8.91059,   9.16396,
     +     .01489,    .00665, 273.19583,   9.75408,   8.85104,
     +    7.94663,   9.50910,   9.76056,
     +     .01516,    .00680, 290.38141,  10.36467,   9.45906,
     +    8.56608,  10.12153,  10.37114,
     +     .01542,    .00693, 306.99051,  10.96255,  10.05365,
     +    9.16986,  10.72114,  10.96903,
     +     .01567,    .00706, 323.18349,  11.54930,  10.63812,
     +    9.76456,  11.30947,  11.55577 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01593,    .00720, 339.74313,  12.15648,  11.24243,
     +   10.37798,  11.91825,  12.16294,
     +     .01618,    .00733, 356.47244,  12.77487,  11.85836,
     +   11.00347,  12.53820,  12.78133,
     +     .01642,    .00746, 372.72830,  13.38122,  12.46251,
     +   11.61698,  13.14600,  13.38768,
     +     .01665,    .00759, 388.31303,  13.96919,  13.04776,
     +   12.20999,  13.73535,  13.97564,
     +     .01690,    .00771, 404.58673,  14.58486,  13.66215,
     +   12.83483,  14.35237,  14.59129 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01034,    .00428,    .95121,    .60945,    .00000,
     +     .00000,    .32924,    .61249,
     +     .01062,    .00442,   1.96580,    .64808,    .00000,
     +     .00000,    .37086,    .65115,
     +     .01104,    .00461,   3.90492,    .72101,    .01844,
     +     .00000,    .44799,    .72414,
     +     .01135,    .00476,   5.71922,    .78719,    .08712,
     +     .00000,    .51710,    .79033,
     +     .01168,    .00492,   8.02260,    .86882,    .16638,
     +     .00000,    .60171,    .87199,
     +     .01196,    .00506,  10.33669,    .94967,    .24162,
     +     .00000,    .68503,    .95286,
     +     .01224,    .00519,  12.86740,   1.03611,    .32352,
     +     .00000,    .77377,   1.03933,
     +     .01252,    .00533,  15.90381,   1.13753,    .42118,
     +     .00000,    .87757,   1.14077 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01278,    .00547,  18.85181,   1.23398,    .51568,
     +     .00000,    .97602,   1.23722,
     +     .01303,    .00558,  21.94462,   1.33487,    .61367,
     +     .00000,   1.07880,   1.33813,
     +     .01322,    .00568,  24.56007,   1.42023,    .69598,
     +     .00000,   1.16562,   1.42350,
     +     .01365,    .00589,  30.69231,   1.61853,    .88985,
     +     .00000,   1.36697,   1.62183,
     +     .01403,    .00608,  36.51314,   1.80763,   1.07554,
     +     .15164,   1.55863,   1.81095,
     +     .01446,    .00630,  43.62650,   2.03968,   1.30352,
     +     .42442,   1.79344,   2.04300,
     +     .01491,    .00653,  51.74974,   2.30475,   1.56431,
     +     .69769,   2.06129,   2.30809,
     +     .01532,    .00675,  59.74598,   2.56622,   1.82199,
     +     .96877,   2.32522,   2.56958 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01574,    .00697,  68.40600,   2.85085,   2.10288,
     +    1.26197,   2.61226,   2.85423,
     +     .01610,    .00715,  76.01769,   3.10292,   2.35146,
     +    1.51893,   2.86627,   3.10631,
     +     .01653,    .00737,  85.72474,   3.42757,   2.67120,
     +    1.84730,   3.19321,   3.43097,
     +     .01691,    .00757,  94.77690,   3.73278,   2.97238,
     +    2.15715,   3.50040,   3.73618,
     +     .01726,    .00776, 103.50134,   4.02842,   3.26536,
     +    2.46054,   3.79783,   4.03183,
     +     .01771,    .00799, 114.96790,   4.42281,   3.65485,
     +    2.85918,   4.19442,   4.42624,
     +     .01815,    .00822, 126.18494,   4.81388,   4.04094,
     +    3.25308,   4.58752,   4.81732,
     +     .01855,    .00843, 137.13730,   5.19943,   4.42256,
     +    3.64367,   4.97492,   5.20287 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01897,    .00865, 148.50742,   5.60368,   4.82346,
     +    4.05457,   5.38098,   5.60713,
     +     .01937,    .00886, 159.82326,   6.01349,   5.22835,
     +    4.46567,   5.79252,   6.01696,
     +     .01976,    .00908, 170.93020,   6.41882,   5.63024,
     +    4.87588,   6.19947,   6.42229,
     +     .02012,    .00927, 181.61082,   6.81385,   6.02162,
     +    5.27414,   6.59598,   6.81732,
     +     .02050,    .00946, 192.56348,   7.22375,   6.42787,
     +    5.68727,   7.00736,   7.22724,
     +     .02087,    .00966, 203.60877,   7.64112,   6.84208,
     +    6.10893,   7.42615,   7.64462,
     +     .02122,    .00985, 214.20908,   8.04766,   7.24500,
     +    6.51768,   7.83402,   8.05116,
     +     .02156,    .01003, 224.48675,   8.44484,   7.63939,
     +    6.91864,   8.23244,   8.44835 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02190,    .01022, 234.93131,   8.85390,   8.04521,
     +    7.33022,   8.64274,   8.85743,
     +     .02224,    .01040, 245.42474,   9.26872,   8.45711,
     +    7.74813,   9.05875,   9.27224,
     +     .02257,    .01057, 255.56544,   9.67370,   8.85943,
     +    8.15634,   9.46486,   9.67723,
     +     .02288,    .01074, 265.23272,  10.06473,   9.24749,
     +    8.54917,   9.85695,  10.06827,
     +     .02319,    .01091, 275.28801,  10.47278,   9.65363,
     +    8.96193,  10.26607,  10.47633 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01251,    .00528,    .89067,    .55717,    .00000,
     +     .00000,    .30105,    .55909,
     +     .01284,    .00544,   1.83413,    .59304,    .00000,
     +     .00000,    .33953,    .59498,
     +     .01333,    .00569,   3.61632,    .65968,    .01712,
     +     .00000,    .40988,    .66164,
     +     .01371,    .00587,   5.26421,    .71936,    .07901,
     +     .00000,    .47213,    .72135,
     +     .01412,    .00608,   7.33598,    .79236,    .14981,
     +     .00000,    .54772,    .79435,
     +     .01445,    .00625,   9.39870,    .86411,    .21647,
     +     .00000,    .62164,    .86612,
     +     .01479,    .00641,  11.63744,    .94039,    .28861,
     +     .00000,    .69992,    .94241,
     +     .01514,    .00659,  14.30398,   1.02943,    .37417,
     +     .00000,    .79104,   1.03147 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01545,    .00675,  16.87567,   1.11371,    .45656,
     +     .00000,    .87707,   1.11575,
     +     .01575,    .00690,  19.55713,   1.20149,    .54161,
     +     .00000,    .96650,   1.20354,
     +     .01599,    .00702,  21.81276,   1.27548,    .61279,
     +     .00000,   1.04176,   1.27754,
     +     .01650,    .00729,  27.06532,   1.44659,    .77965,
     +     .00000,   1.21552,   1.44867,
     +     .01696,    .00752,  32.00929,   1.60882,    .93858,
     +     .12899,   1.37996,   1.61091,
     +     .01747,    .00779,  37.99941,   1.80679,   1.13263,
     +     .36182,   1.58034,   1.80889,
     +     .01802,    .00807,  44.78460,   2.03164,   1.35335,
     +     .59341,   1.80760,   2.03376,
     +     .01851,    .00832,  51.41287,   2.25225,   1.57029,
     +     .82191,   2.03034,   2.25438 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01902,    .00859,  58.54117,   2.49120,   1.80563,
     +    1.06781,   2.27135,   2.49334,
     +     .01944,    .00881,  64.76718,   2.70185,   2.01295,
     +    1.28229,   2.48369,   2.70401,
     +     .01996,    .00909,  72.65797,   2.97195,   2.27844,
     +    1.55513,   2.75578,   2.97412,
     +     .02041,    .00933,  79.97202,   3.22476,   2.52745,
     +    1.81147,   3.01030,   3.22694,
     +     .02084,    .00956,  86.98538,   3.46872,   2.76880,
     +    2.06156,   3.25580,   3.47092,
     +     .02138,    .00984,  96.14840,   3.79275,   3.08826,
     +    2.38867,   3.58173,   3.79496,
     +     .02190,    .01013, 105.05767,   4.11262,   3.40353,
     +    2.71043,   3.90333,   4.11485,
     +     .02240,    .01038, 113.71070,   4.42670,   3.71395,
     +    3.02826,   4.21902,   4.42895 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02288,    .01064, 122.64891,   4.75478,   4.03885,
     +    3.36140,   4.54865,   4.75704,
     +     .02337,    .01090, 131.49537,   5.08603,   4.36564,
     +    3.69327,   4.88139,   5.08830,
     +     .02383,    .01115, 140.14071,   5.41254,   4.68896,
     +    4.02337,   5.20931,   5.41483,
     +     .02426,    .01139, 148.41667,   5.72968,   5.00276,
     +    4.34276,   5.52772,   5.73199,
     +     .02471,    .01163, 156.86733,   6.05771,   5.32747,
     +    4.67303,   5.85701,   6.06002,
     +     .02515,    .01187, 165.35625,   6.39069,   5.65755,
     +    5.00913,   6.19123,   6.39303,
     +     .02556,    .01209, 173.46809,   6.71401,   5.97762,
     +    5.33388,   6.51570,   6.71636,
     +     .02597,    .01231, 181.30700,   7.02906,   6.29012,
     +    5.65165,   6.83181,   7.03141 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02638,    .01253, 189.24244,   7.35261,   6.61075,
     +    5.97687,   7.15641,   7.35498,
     +     .02678,    .01276, 197.18841,   7.67983,   6.93537,
     +    6.30628,   7.48469,   7.68222,
     +     .02717,    .01296, 204.84146,   7.99850,   7.25163,
     +    6.62723,   7.80432,   8.00090,
     +     .02753,    .01316, 212.11195,   8.30540,   7.55591,
     +    6.93527,   8.11213,   8.30781,
     +     .02791,    .01337, 219.65704,   8.62503,   7.87378,
     +    7.25840,   8.43268,   8.62746 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01429,    .00614,    .84967,    .52281,    .00000,
     +     .00000,    .28259,    .52413,
     +     .01468,    .00632,   1.74574,    .55682,    .00000,
     +     .00000,    .31899,    .55815,
     +     .01525,    .00660,   3.42423,    .61930,    .01627,
     +     .00000,    .38484,    .62064,
     +     .01568,    .00683,   4.96323,    .67472,    .07370,
     +     .00000,    .44262,    .67607,
     +     .01614,    .00706,   6.88450,    .74208,    .13902,
     +     .00000,    .51235,    .74344,
     +     .01653,    .00726,   8.78495,    .80793,    .20016,
     +     .00000,    .58018,    .80932,
     +     .01691,    .00746,  10.83630,    .87767,    .26604,
     +     .00000,    .65175,    .87905,
     +     .01732,    .00766,  13.26681,    .95877,    .34388,
     +     .00000,    .73473,    .96016 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01768,    .00783,  15.59963,   1.03527,    .41858,
     +     .00000,    .81282,   1.03667,
     +     .01801,    .00802,  18.02119,   1.11471,    .49545,
     +     .00000,    .89375,   1.11611,
     +     .01829,    .00816,  20.05045,   1.18148,    .55962,
     +     .00000,    .96168,   1.18290,
     +     .01887,    .00847,  24.75259,   1.33542,    .70953,
     +     .00000,   1.11801,   1.33684,
     +     .01940,    .00873,  29.15214,   1.48074,    .85174,
     +     .11476,   1.26535,   1.48218,
     +     .01998,    .00904,  34.44911,   1.65739,   1.02470,
     +     .32275,   1.44417,   1.65885,
     +     .02060,    .00936,  40.41401,   1.85719,   1.22063,
     +     .52860,   1.64617,   1.85867,
     +     .02117,    .00967,  46.20884,   2.05249,   1.41246,
     +     .73090,   1.84338,   2.05398 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02174,    .00997,  52.40936,   2.26325,   1.61985,
     +     .94782,   2.05602,   2.26476,
     +     .02222,    .01023,  57.80029,   2.44846,   1.80196,
     +    1.13640,   2.24275,   2.44999,
     +     .02281,    .01055,  64.60198,   2.68518,   2.03444,
     +    1.37551,   2.48126,   2.68673,
     +     .02334,    .01082,  70.87904,   2.90604,   2.25180,
     +    1.59945,   2.70367,   2.90760,
     +     .02382,    .01108,  76.87587,   3.11859,   2.46193,
     +    1.81737,   2.91761,   3.12017,
     +     .02444,    .01142,  84.67699,   3.40003,   2.73919,
     +    2.10145,   3.20077,   3.40163,
     +     .02503,    .01173,  92.22855,   3.67696,   3.01196,
     +    2.38001,   3.47928,   3.67859,
     +     .02558,    .01203,  99.53477,   3.94812,   3.27977,
     +    2.65439,   3.75186,   3.94976 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02614,    .01233, 107.05441,   4.23057,   3.55935,
     +    2.94123,   4.03573,   4.23223,
     +     .02669,    .01262, 114.46685,   4.51493,   3.83970,
     +    3.22608,   4.32144,   4.51661,
     +     .02721,    .01291, 121.68796,   4.79454,   4.11645,
     +    3.50879,   4.60230,   4.79624,
     +     .02771,    .01319, 128.57762,   5.06547,   4.38439,
     +    3.78164,   4.87438,   5.06719,
     +     .02820,    .01345, 135.59095,   5.34505,   4.66100,
     +    4.06313,   5.15510,   5.34679,
     +     .02871,    .01373, 142.61583,   5.62823,   4.94161,
     +    4.34899,   5.43939,   5.62999,
     +     .02918,    .01399, 149.30764,   5.90258,   5.21307,
     +    4.62454,   5.71477,   5.90435,
     +     .02963,    .01423, 155.75879,   6.16939,   5.47763,
     +    4.89370,   5.98254,   6.17118 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03009,    .01448, 162.27058,   6.44283,   5.74852,
     +    5.16858,   6.25694,   6.44464,
     +     .03054,    .01474, 168.77528,   6.71888,   6.02226,
     +    5.44650,   6.53391,   6.72070,
     +     .03099,    .01498, 175.02485,   6.98720,   6.28848,
     +    5.71678,   6.80312,   6.98904,
     +     .03140,    .01520, 180.94667,   7.24513,   6.54413,
     +    5.97569,   7.06188,   7.24700,
     +     .03182,    .01544, 187.08216,   7.51339,   6.81086,
     +    6.24696,   7.33095,   7.51528 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01588,    .00689,    .81893,    .49765,    .00000,
     +     .00000,    .26910,    .49858,
     +     .01629,    .00710,   1.67995,    .53026,    .00000,
     +     .00000,    .30395,    .53119,
     +     .01693,    .00743,   3.28215,    .58965,    .01564,
     +     .00000,    .36648,    .59059,
     +     .01741,    .00767,   4.74166,    .64195,    .06984,
     +     .00000,    .42098,    .64290,
     +     .01791,    .00793,   6.55361,    .70521,    .13117,
     +     .00000,    .48646,    .70618,
     +     .01835,    .00816,   8.33678,    .76681,    .18831,
     +     .00000,    .54989,    .76778,
     +     .01877,    .00837,  10.25324,    .83181,    .24968,
     +     .00000,    .61660,    .83280,
     +     .01922,    .00860,  12.51457,    .90719,    .32199,
     +     .00000,    .69373,    .90818 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01961,    .00881,  14.67680,    .97811,    .39119,
     +     .00000,    .76614,    .97911,
     +     .02000,    .00900,  16.91345,   1.05157,    .46223,
     +     .00000,    .84098,   1.05258,
     +     .02030,    .00916,  18.78211,   1.11319,    .52141,
     +     .00000,    .90369,   1.11421,
     +     .02095,    .00950,  23.09543,   1.25489,    .65930,
     +     .00000,   1.04761,   1.25593,
     +     .02152,    .00981,  27.11275,   1.38823,    .78969,
     +     .10465,   1.18283,   1.38928,
     +     .02218,    .01015,  31.92561,   1.54980,    .94780,
     +     .29516,   1.34643,   1.55088,
     +     .02286,    .01051,  37.32018,   1.73198,   1.12635,
     +     .48296,   1.53065,   1.73308,
     +     .02349,    .01086,  42.53818,   1.90951,   1.30065,
     +     .66699,   1.70995,   1.91062 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02412,    .01120,  48.09913,   2.10057,   1.48856,
     +     .86374,   1.90275,   2.10170,
     +     .02466,    .01148,  52.91660,   2.26804,   1.65316,
     +    1.03434,   2.07163,   2.26919,
     +     .02531,    .01182,  58.97317,   2.48153,   1.86276,
     +    1.25009,   2.28681,   2.48272,
     +     .02589,    .01214,  64.54327,   2.68025,   2.05824,
     +    1.45167,   2.48695,   2.68145,
     +     .02642,    .01243,  69.84927,   2.87108,   2.24685,
     +    1.64742,   2.67907,   2.87230,
     +     .02711,    .01280,  76.72796,   3.12315,   2.49510,
     +    1.90198,   2.93273,   3.12440,
     +     .02775,    .01315,  83.36342,   3.37055,   2.73871,
     +    2.15093,   3.18159,   3.37182,
     +     .02836,    .01349,  89.76383,   3.61225,   2.97737,
     +    2.39562,   3.42462,   3.61354 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02897,    .01381,  96.33229,   3.86348,   3.22600,
     +    2.65088,   3.67716,   3.86479,
     +     .02958,    .01415, 102.78612,   4.11584,   3.47475,
     +    2.90377,   3.93077,   4.11719,
     +     .03016,    .01446, 109.05774,   4.36352,   3.71984,
     +    3.15431,   4.17961,   4.36488,
     +     .03070,    .01477, 115.02584,   4.60303,   3.95669,
     +    3.39563,   4.42018,   4.60442,
     +     .03126,    .01507, 121.08596,   4.84975,   4.20076,
     +    3.64415,   4.66796,   4.85115,
     +     .03180,    .01537, 127.14237,   5.09922,   4.44795,
     +    3.89612,   4.91845,   5.10065,
     +     .03232,    .01565, 132.89711,   5.34047,   4.68663,
     +    4.13853,   5.16066,   5.34193,
     +     .03282,    .01593, 138.43430,   5.57474,   4.91892,
     +    4.37499,   5.39584,   5.57623 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03332,    .01620, 144.01092,   5.81446,   5.15637,
     +    4.61607,   5.63643,   5.81596,
     +     .03383,    .01648, 149.57049,   6.05609,   5.39598,
     +    4.85947,   5.87893,   6.05762,
     +     .03430,    .01674, 154.90168,   6.29063,   5.62868,
     +    5.09585,   6.11428,   6.29218,
     +     .03477,    .01700, 159.94277,   6.51575,   5.85181,
     +    5.32194,   6.34016,   6.51732,
     +     .03523,    .01726, 165.15911,   6.74963,   6.08437,
     +    5.55860,   6.57481,   6.75122 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02200,    .00995,    .72870,    .42699,    .00000,
     +     .00000,    .23150,    .42732,
     +     .02258,    .01024,   1.48976,    .45549,    .00000,
     +     .00000,    .26184,    .45582,
     +     .02345,    .01069,   2.87625,    .50602,    .01391,
     +     .00000,    .31495,    .50639,
     +     .02412,    .01104,   4.11304,    .54953,    .05901,
     +     .00000,    .36026,    .54991,
     +     .02481,    .01140,   5.62151,    .60135,    .10928,
     +     .00000,    .41389,    .60175,
     +     .02541,    .01173,   7.08181,    .65114,    .15545,
     +     .00000,    .46518,    .65155,
     +     .02599,    .01204,   8.62978,    .70315,    .20454,
     +     .00000,    .51857,    .70359,
     +     .02660,    .01236,  10.43225,    .76290,    .26183,
     +     .00000,    .57975,    .76336 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02714,    .01265,  12.13498,    .81868,    .31621,
     +     .00000,    .63671,    .81914,
     +     .02767,    .01294,  13.87664,    .87599,    .37161,
     +     .00000,    .69518,    .87648,
     +     .02808,    .01316,  15.31778,    .92377,    .41746,
     +     .00000,    .74382,    .92427,
     +     .02897,    .01363,  18.60323,   1.03273,    .52346,
     +     .00000,    .85459,   1.03327,
     +     .02976,    .01407,  21.61941,   1.13424,    .62270,
     +     .07761,    .95760,   1.13480,
     +     .03066,    .01455,  25.17332,   1.25603,    .74189,
     +     .22228,   1.08103,   1.25664,
     +     .03159,    .01507,  29.09796,   1.39201,    .87516,
     +     .36313,   1.21864,   1.39264,
     +     .03245,    .01554,  32.84139,   1.52324,   1.00406,
     +     .49987,   1.35132,   1.52392 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03332,    .01602,  36.77986,   1.66325,   1.14182,
     +     .64474,   1.49273,   1.66397,
     +     .03404,    .01642,  40.15236,   1.78500,   1.26154,
     +     .76933,   1.61562,   1.78576,
     +     .03493,    .01691,  44.34394,   1.93900,   1.41280,
     +     .92564,   1.77095,   1.93980,
     +     .03572,    .01734,  48.15611,   2.08122,   1.55281,
     +    1.07056,   1.91432,   2.08206,
     +     .03644,    .01775,  51.75371,   2.21689,   1.68701,
     +    1.21039,   2.05102,   2.21776,
     +     .03736,    .01826,  56.36609,   2.39473,   1.86228,
     +    1.39074,   2.23014,   2.39564,
     +     .03824,    .01875,  60.76509,   2.56788,   2.03291,
     +    1.56570,   2.40445,   2.56884,
     +     .03906,    .01921,  64.96688,   2.73584,   2.19891,
     +    1.73648,   2.57348,   2.73684 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03990,    .01967,  69.23915,   2.90926,   2.37072,
     +    1.91348,   2.74795,   2.91031,
     +     .04071,    .02012,  73.39247,   3.08220,   2.54133,
     +    2.08746,   2.92188,   3.08329,
     +     .04148,    .02056,  77.39640,   3.25090,   2.70846,
     +    2.25886,   3.09152,   3.25204,
     +     .04221,    .02097,  81.17374,   3.41306,   2.86898,
     +    2.42293,   3.25454,   3.41423,
     +     .04296,    .02138,  84.97857,   3.57913,   3.03344,
     +    2.59090,   3.42146,   3.58035,
     +     .04369,    .02179,  88.75323,   3.74615,   3.19913,
     +    2.76032,   3.58929,   3.74741,
     +     .04439,    .02218,  92.31007,   3.90673,   3.35818,
     +    2.92233,   3.75063,   3.90802,
     +     .04505,    .02256,  95.71135,   4.06194,   3.51228,
     +    3.07967,   3.90656,   4.06328 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04572,    .02293,  99.11091,   4.21993,   3.66897,
     +    3.23922,   4.06525,   4.22129,
     +     .04639,    .02331, 102.47873,   4.37844,   3.82635,
     +    3.39955,   4.22446,   4.37984,
     +     .04703,    .02367, 105.68745,   4.53158,   3.97850,
     +    3.55456,   4.37824,   4.53303,
     +     .04764,    .02401, 108.70053,   4.67788,   4.12368,
     +    3.70208,   4.52516,   4.67937,
     +     .04826,    .02436, 111.80609,   4.82935,   4.27454,
     +    3.85607,   4.67724,   4.83086 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03065,    .01442,    .64532,    .36674,    .00000,
     +     .00000,    .19982,    .36726,
     +     .03143,    .01482,   1.31905,    .39142,    .00000,
     +     .00000,    .22606,    .39197,
     +     .03260,    .01545,   2.51862,    .43402,    .01248,
     +     .00000,    .27085,    .43462,
     +     .03348,    .01593,   3.56532,    .46988,    .04976,
     +     .00000,    .30821,    .47052,
     +     .03443,    .01645,   4.81810,    .51192,    .09065,
     +     .00000,    .35177,    .51261,
     +     .03524,    .01688,   6.00980,    .55177,    .12767,
     +     .00000,    .39288,    .55249,
     +     .03603,    .01731,   7.25465,    .59296,    .16663,
     +     .00000,    .43524,    .59374,
     +     .03687,    .01778,   8.68389,    .63986,    .21166,
     +     .00000,    .48333,    .64068 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03759,    .01819,  10.01678,    .68325,    .25407,
     +     .00000,    .52774,    .68411,
     +     .03831,    .01858,  11.36394,    .72752,    .29693,
     +     .00000,    .57295,    .72841,
     +     .03887,    .01889,  12.46723,    .76417,    .33217,
     +     .00000,    .61032,    .76509,
     +     .04008,    .01957,  14.94949,    .84708,    .41303,
     +     .00000,    .69475,    .84807,
     +     .04117,    .02018,  17.19575,    .92351,    .48795,
     +     .05595,    .77244,    .92455,
     +     .04238,    .02086,  19.79300,   1.01432,    .57708,
     +     .16512,    .86463,   1.01545,
     +     .04365,    .02158,  22.61604,   1.11467,    .67572,
     +     .27007,    .96634,   1.11586,
     +     .04482,    .02223,  25.26866,   1.21058,    .77022,
     +     .37097,   1.06346,   1.21184 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04599,    .02290,  28.02128,   1.31199,    .87034,
     +     .47692,   1.16605,   1.31333,
     +     .04697,    .02346,  30.34903,   1.39947,    .95663,
     +     .56726,   1.25448,   1.40086,
     +     .04817,    .02414,  33.20649,   1.50921,   1.06478,
     +     .67966,   1.36534,   1.51068,
     +     .04924,    .02475,  35.77428,   1.60975,   1.16408,
     +     .78305,   1.46684,   1.61128,
     +     .05021,    .02530,  38.17339,   1.70500,   1.25864,
     +     .88216,   1.56295,   1.70659,
     +     .05146,    .02602,  41.21204,   1.82885,   1.38111,
     +    1.00888,   1.68789,   1.83054,
     +     .05264,    .02668,  44.07444,   1.94846,   1.49937,
     +    1.13079,   1.80847,   1.95022,
     +     .05375,    .02732,  46.77959,   2.06363,   1.61359,
     +    1.24895,   1.92453,   2.06546 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05486,    .02795,  49.50254,   2.18171,   1.73099,
     +    1.37056,   2.04350,   2.18361,
     +     .05596,    .02857,  52.11849,   2.29856,   1.84664,
     +    1.48911,   2.16118,   2.30053,
     +     .05700,    .02917,  54.61862,   2.41184,   1.95928,
     +    1.60523,   2.27525,   2.41389,
     +     .05797,    .02972,  56.95475,   2.52004,   2.06674,
     +    1.71564,   2.38416,   2.52214,
     +     .05896,    .03029,  59.28685,   2.63016,   2.17619,
     +    1.82800,   2.49499,   2.63233,
     +     .05994,    .03085,  61.58199,   2.74028,   2.28583,
     +    1.94069,   2.60581,   2.74252,
     +     .06087,    .03138,  63.72411,   2.84552,   2.39042,
     +    2.04776,   2.71170,   2.84782,
     +     .06175,    .03188,  65.75888,   2.94674,   2.49128,
     +    2.15127,   2.81352,   2.94910 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06264,    .03239,  67.77503,   3.04920,   2.59326,
     +    2.25563,   2.91657,   3.05162,
     +     .06352,    .03290,  69.75841,   3.15148,   2.69519,
     +    2.35999,   3.01945,   3.15397,
     +     .06437,    .03338,  71.63428,   3.24982,   2.79325,
     +    2.46040,   3.11834,   3.25236,
     +     .06518,    .03384,  73.38180,   3.34329,   2.88634,
     +    2.55545,   3.21232,   3.34589,
     +     .06599,    .03431,  75.17548,   3.43973,   2.98275,
     +    2.65436,   3.30927,   3.44238 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03724,    .01792,    .59982,    .33583,    .00000,
     +     .00000,    .18376,    .33677,
     +     .03816,    .01840,   1.22787,    .35839,    .00000,
     +     .00000,    .20773,    .35936,
     +     .03954,    .01916,   2.32971,    .39669,    .01178,
     +     .00000,    .24805,    .39778,
     +     .04059,    .01974,   3.27809,    .42852,    .04494,
     +     .00000,    .28126,    .42964,
     +     .04172,    .02037,   4.39975,    .46549,    .08100,
     +     .00000,    .31962,    .46669,
     +     .04268,    .02090,   5.45507,    .50024,    .11334,
     +     .00000,    .35553,    .50151,
     +     .04362,    .02144,   6.54735,    .53597,    .14719,
     +     .00000,    .39233,    .53729,
     +     .04462,    .02200,   7.79043,    .57640,    .18612,
     +     .00000,    .43386,    .57778 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04550,    .02249,   8.94042,    .61363,    .22258,
     +     .00000,    .47201,    .61507,
     +     .04635,    .02297,  10.09405,    .65143,    .25927,
     +     .00000,    .51069,    .65292,
     +     .04701,    .02335,  11.03277,    .68261,    .28933,
     +     .00000,    .54253,    .68415,
     +     .04847,    .02418,  13.12740,    .75280,    .35795,
     +     .00000,    .61412,    .75444,
     +     .04976,    .02491,  15.00697,    .81710,    .42116,
     +     .04531,    .67959,    .81882,
     +     .05121,    .02575,  17.15329,    .89307,    .49592,
     +     .13747,    .75681,    .89488,
     +     .05273,    .02661,  19.46305,    .97647,    .57817,
     +     .22539,    .84148,    .97839,
     +     .05412,    .02741,  21.61294,   1.05575,    .65651,
     +     .30943,    .92186,   1.05776 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05553,    .02822,  23.82456,   1.13910,    .73906,
     +     .39718,   1.00631,   1.14122,
     +     .05669,    .02890,  25.68002,   1.21065,    .80985,
     +     .47163,   1.07874,   1.21284,
     +     .05812,    .02972,  27.93986,   1.29997,    .89814,
     +     .56379,   1.16908,   1.30225,
     +     .05938,    .03045,  29.95517,   1.38139,    .97881,
     +     .64815,   1.25141,   1.38376,
     +     .06056,    .03112,  31.82619,   1.45821,   1.05532,
     +     .72870,   1.32903,   1.46067,
     +     .06204,    .03197,  34.17750,   1.55762,   1.15394,
     +     .83117,   1.42942,   1.56019,
     +     .06343,    .03278,  36.37486,   1.65311,   1.24865,
     +     .92922,   1.52584,   1.65578,
     +     .06475,    .03354,  38.43743,   1.74466,   1.33974,
     +    1.02384,   1.61821,   1.74742 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06606,    .03430,  40.50021,   1.83812,   1.43296,
     +    1.12081,   1.71249,   1.84097,
     +     .06735,    .03504,  42.46646,   1.93016,   1.52434,
     +    1.21486,   1.80532,   1.93311,
     +     .06858,    .03575,  44.33530,   2.01906,   1.61301,
     +    1.30666,   1.89495,   2.02210,
     +     .06974,    .03642,  46.07064,   2.10362,   1.69726,
     +    1.39357,   1.98017,   2.10674,
     +     .07090,    .03710,  47.79278,   2.18935,   1.78276,
     +    1.48170,   2.06658,   2.19257,
     +     .07206,    .03775,  49.47876,   2.27480,   1.86811,
     +    1.56978,   2.15268,   2.27810,
     +     .07315,    .03839,  51.04236,   2.35614,   1.94920,
     +    1.65313,   2.23461,   2.35952,
     +     .07419,    .03898,  52.52111,   2.43413,   2.02717,
     +    1.73347,   2.31318,   2.43759 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07524,    .03959,  53.97780,   2.51280,   2.10572,
     +    1.81418,   2.39240,   2.51633,
     +     .07628,    .04018,  55.40417,   2.59111,   2.18401,
     +    1.89466,   2.47126,   2.59472,
     +     .07727,    .04075,  56.74665,   2.66616,   2.25909,
     +    1.97185,   2.54682,   2.66983,
     +     .07821,    .04130,  57.99034,   2.73726,   2.33014,
     +    2.04469,   2.61841,   2.74101,
     +     .07916,    .04185,  59.26380,   2.81046,   2.40358,
     +    2.12034,   2.69209,   2.81428 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04275,    .02087,    .56994,    .31551,    .00000,
     +     .00000,    .17336,    .31697,
     +     .04378,    .02144,   1.16776,    .33659,    .00000,
     +     .00000,    .19579,    .33813,
     +     .04534,    .02230,   2.20471,    .37205,    .01131,
     +     .00000,    .23312,    .37366,
     +     .04653,    .02297,   3.08797,    .40120,    .04176,
     +     .00000,    .26358,    .40290,
     +     .04779,    .02369,   4.12333,    .43486,    .07464,
     +     .00000,    .29856,    .43663,
     +     .04890,    .02431,   5.08942,    .46633,    .10395,
     +     .00000,    .33111,    .46817,
     +     .04996,    .02491,   6.08248,    .49852,    .13449,
     +     .00000,    .36432,    .50044,
     +     .05108,    .02557,   7.20520,    .53482,    .16948,
     +     .00000,    .40165,    .53680 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05208,    .02613,   8.23762,    .56812,    .20214,
     +     .00000,    .43584,    .57017,
     +     .05304,    .02669,   9.26749,    .60182,    .23491,
     +     .00000,    .47036,    .60394,
     +     .05381,    .02713,  10.10144,    .62954,    .26167,
     +     .00000,    .49872,    .63170,
     +     .05545,    .02808,  11.95096,    .69172,    .32257,
     +     .00000,    .56221,    .69401,
     +     .05691,    .02892,  13.60009,    .74843,    .37842,
     +     .03868,    .62002,    .75080,
     +     .05856,    .02988,  15.46542,    .81512,    .44420,
     +     .12018,    .68793,    .81763,
     +     .06029,    .03089,  17.45785,    .88803,    .51626,
     +     .19749,    .76203,    .89065,
     +     .06186,    .03179,  19.29920,    .95702,    .58459,
     +     .27107,    .83207,    .95975 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06345,    .03273,  21.18102,   1.02927,    .65631,
     +     .34759,    .90536,   1.03213,
     +     .06478,    .03349,  22.75034,   1.09106,    .71761,
     +     .41228,    .96799,   1.09401,
     +     .06639,    .03444,  24.65029,   1.16792,    .79375,
     +     .49205,   1.04583,   1.17098,
     +     .06781,    .03526,  26.33486,   1.23772,    .86308,
     +     .56481,   1.11648,   1.24089,
     +     .06913,    .03603,  27.89136,   1.30337,    .92863,
     +     .63406,   1.18291,   1.30665,
     +     .07081,    .03701,  29.83568,   1.38802,   1.01281,
     +     .72182,   1.26850,   1.39142,
     +     .07238,    .03792,  31.64164,   1.46903,   1.09335,
     +     .80549,   1.35038,   1.47254,
     +     .07386,    .03877,  33.32804,   1.54642,   1.17055,
     +     .88597,   1.42857,   1.55005 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07534,    .03965,  35.00631,   1.62518,   1.24932,
     +     .96819,   1.50812,   1.62891,
     +     .07680,    .04048,  36.59628,   1.70247,   1.32624,
     +    1.04762,   1.58614,   1.70631,
     +     .07818,    .04128,  38.10115,   1.77690,   1.40067,
     +    1.12494,   1.66127,   1.78084,
     +     .07948,    .04204,  39.49164,   1.84747,   1.47120,
     +    1.19794,   1.73250,   1.85152,
     +     .08078,    .04279,  40.86524,   1.91885,   1.54254,
     +    1.27173,   1.80451,   1.92299,
     +     .08208,    .04355,  42.20453,   1.98978,   1.61359,
     +    1.34531,   1.87606,   1.99403,
     +     .08331,    .04426,  43.44034,   2.05710,   1.68090,
     +    1.41472,   1.94397,   2.06144,
     +     .08447,    .04493,  44.60519,   2.12152,   1.74546,
     +    1.48148,   2.00893,   2.12594 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08564,    .04560,  45.74729,   2.18631,   1.81034,
     +    1.54837,   2.07426,   2.19082,
     +     .08680,    .04627,  46.86152,   2.25066,   1.87485,
     +    1.61492,   2.13913,   2.25526,
     +     .08790,    .04691,  47.90618,   2.31217,   1.93659,
     +    1.67860,   2.20115,   2.31686,
     +     .08896,    .04751,  48.86966,   2.37032,   1.99485,
     +    1.73853,   2.25977,   2.37509,
     +     .09003,    .04813,  49.85437,   2.43009,   2.05500,
     +    1.80071,   2.32001,   2.43495 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04762,    .02359,    .54876,    .30105,    .00000,
     +     .00000,    .16572,    .30263,
     +     .04874,    .02421,   1.12465,    .32100,    .00000,
     +     .00000,    .18693,    .32265,
     +     .05045,    .02517,   2.11349,    .35425,    .01097,
     +     .00000,    .22195,    .35601,
     +     .05177,    .02593,   2.94837,    .38140,    .03936,
     +     .00000,    .25032,    .38325,
     +     .05316,    .02673,   3.91949,    .41258,    .06988,
     +     .00000,    .28273,    .41453,
     +     .05437,    .02742,   4.81932,    .44160,    .09694,
     +     .00000,    .31278,    .44364,
     +     .05554,    .02809,   5.73894,    .47120,    .12504,
     +     .00000,    .34333,    .47331,
     +     .05679,    .02881,   6.77284,    .50445,    .15714,
     +     .00000,    .37756,    .50666 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05789,    .02945,   7.71876,    .53489,    .18703,
     +     .00000,    .40882,    .53717,
     +     .05896,    .03008,   8.65794,    .56561,    .21692,
     +     .00000,    .44031,    .56796,
     +     .05980,    .03056,   9.41537,    .59081,    .24130,
     +     .00000,    .46611,    .59322,
     +     .06161,    .03162,  11.08647,    .64719,    .29660,
     +     .00000,    .52374,    .64974,
     +     .06323,    .03256,  12.56894,    .69843,    .34713,
     +     .03405,    .57602,    .70109,
     +     .06505,    .03362,  14.23254,    .75846,    .40645,
     +     .10783,    .63719,    .76126,
     +     .06694,    .03473,  15.99821,    .82386,    .47118,
     +     .17749,    .70372,    .82679,
     +     .06868,    .03575,  17.62031,    .88552,    .53236,
     +     .24356,    .76638,    .88858 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07043,    .03677,  19.26897,    .94988,    .59637,
     +     .31206,    .83172,    .95308,
     +     .07189,    .03762,  20.63689,   1.00475,    .65090,
     +     .36977,    .88739,   1.00806,
     +     .07365,    .03866,  22.28449,   1.07279,    .71843,
     +     .44072,    .95638,   1.07624,
     +     .07523,    .03958,  23.73831,   1.13441,    .77975,
     +     .50525,   1.01880,   1.13798,
     +     .07668,    .04042,  25.07627,   1.19221,    .83758,
     +     .56652,   1.07734,   1.19590,
     +     .07850,    .04149,  26.73894,   1.26651,    .91160,
     +     .64392,   1.15253,   1.27034,
     +     .08023,    .04249,  28.27512,   1.33738,    .98220,
     +     .71746,   1.22423,   1.34134,
     +     .08185,    .04344,  29.70340,   1.40490,   1.04970,
     +     .78802,   1.29252,   1.40899 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08347,    .04438,  31.11900,   1.47343,   1.11837,
     +     .85991,   1.36179,   1.47764,
     +     .08506,    .04530,  32.45275,   1.54047,   1.18524,
     +     .92915,   1.42955,   1.54480,
     +     .08656,    .04618,  33.71062,   1.60488,   1.24979,
     +     .99639,   1.49462,   1.60933,
     +     .08798,    .04700,  34.86806,   1.66581,   1.31079,
     +    1.05972,   1.55617,   1.67037,
     +     .08941,    .04783,  36.00673,   1.72727,   1.37237,
     +    1.12358,   1.61824,   1.73195,
     +     .09081,    .04864,  37.11299,   1.78821,   1.43355,
     +    1.18712,   1.67977,   1.79300,
     +     .09214,    .04941,  38.12938,   1.84590,   1.49137,
     +    1.24691,   1.73802,   1.85080,
     +     .09340,    .05014,  39.08473,   1.90101,   1.54674,
     +    1.30433,   1.79365,   1.90600 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09467,    .05088,  40.01741,   1.95631,   1.60225,
     +    1.36172,   1.84947,   1.96140,
     +     .09593,    .05160,  40.92440,   2.01113,   1.65734,
     +    1.41871,   1.90480,   2.01633,
     +     .09714,    .05229,  41.77185,   2.06344,   1.70995,
     +    1.47314,   1.95758,   2.06873,
     +     .09827,    .05295,  42.55028,   2.11277,   1.75951,
     +    1.52426,   2.00736,   2.11815,
     +     .09942,    .05362,  43.34467,   2.16342,   1.81060,
     +    1.57724,   2.05846,   2.16888 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06666,    .03454,    .48556,    .26112,    .00000,
     +     .00000,    .14519,    .26387,
     +     .06813,    .03539,    .99991,    .27756,    .00000,
     +     .00000,    .16269,    .28041,
     +     .07043,    .03674,   1.85255,    .30428,    .01004,
     +     .00000,    .19091,    .30730,
     +     .07220,    .03779,   2.55101,    .32562,    .03262,
     +     .00000,    .21331,    .32878,
     +     .07408,    .03890,   3.34261,    .34978,    .05649,
     +     .00000,    .23852,    .35307,
     +     .07571,    .03988,   4.05886,    .37197,    .07733,
     +     .00000,    .26160,    .37540,
     +     .07730,    .04081,   4.77658,    .39438,    .09878,
     +     .00000,    .28482,    .39793,
     +     .07899,    .04182,   5.56851,    .41933,    .12304,
     +     .00000,    .31061,    .42301 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08048,    .04272,   6.28077,    .44196,    .14545,
     +     .00000,    .33396,    .44576,
     +     .08192,    .04357,   6.97675,    .46462,    .16768,
     +     .00000,    .35729,    .46853,
     +     .08307,    .04426,   7.53038,    .48308,    .18566,
     +     .00000,    .37627,    .48708,
     +     .08552,    .04571,   8.73069,    .52403,    .22614,
     +     .00000,    .41830,    .52823,
     +     .08770,    .04701,   9.77768,    .56078,    .26271,
     +     .02174,    .45597,    .56517,
     +     .09015,    .04846,  10.91961,    .60339,    .30516,
     +     .07530,    .49957,    .60797,
     +     .09270,    .04997,  12.10582,    .64923,    .35095,
     +     .12513,    .54641,    .65403,
     +     .09501,    .05135,  13.17339,    .69197,    .39373,
     +     .17185,    .59004,    .69696 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09736,    .05273,  14.23796,    .73610,    .43801,
     +     .21977,    .63504,    .74127,
     +     .09930,    .05387,  15.10588,    .77334,    .47536,
     +     .25973,    .67298,    .77867,
     +     .10164,    .05526,  16.13292,    .81906,    .52117,
     +     .30838,    .71953,    .82459,
     +     .10372,    .05648,  17.02379,    .86004,    .56233,
     +     .35218,    .76124,    .86575,
     +     .10563,    .05760,  17.83221,    .89817,    .60084,
     +     .39344,    .80002,    .90404,
     +     .10804,    .05901,  18.81860,    .94667,    .64964,
     +     .44503,    .84933,    .95273,
     +     .11030,    .06033,  19.71309,    .99244,    .69568,
     +     .49352,    .89584,    .99870,
     +     .11241,    .06157,  20.53176,   1.03563,    .73930,
     +     .53962,    .93972,   1.04207 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11453,    .06279,  21.33106,   1.07909,    .78329,
     +     .58620,    .98385,   1.08570,
     +     .11659,    .06399,  22.06934,   1.12114,    .82567,
     +     .63058,   1.02655,   1.12793,
     +     .11853,    .06511,  22.75677,   1.16124,    .86629,
     +     .67338,   1.06725,   1.16819,
     +     .12036,    .06617,  23.37929,   1.19884,    .90434,
     +     .71333,   1.10541,   1.20594,
     +     .12219,    .06723,  23.98262,   1.23646,    .94244,
     +     .75331,   1.14358,   1.24371,
     +     .12399,    .06827,  24.56123,   1.27349,    .98004,
     +     .79281,   1.18115,   1.28089,
     +     .12569,    .06924,  25.08368,   1.30824,   1.01526,
     +     .82967,   1.21641,   1.31578,
     +     .12731,    .07017,  25.56955,   1.34122,   1.04879,
     +     .86485,   1.24987,   1.34890 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12892,    .07110,  26.03612,   1.37405,   1.08215,
     +     .89974,   1.28317,   1.38187,
     +     .13051,    .07201,  26.48431,   1.40639,   1.11504,
     +     .93418,   1.31597,   1.41434,
     +     .13203,    .07287,  26.89745,   1.43703,   1.14624,
     +     .96686,   1.34705,   1.44511,
     +     .13346,    .07369,  27.27074,   1.46573,   1.17542,
     +     .99734,   1.37615,   1.47391,
     +     .13493,    .07452,  27.64984,   1.49506,   1.20540,
     +    1.02881,   1.40591,   1.50337 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09362,    .05067,    .43102,    .22877,    .00000,
     +     .00000,    .12883,    .23339,
     +     .09558,    .05186,    .89300,    .24162,    .00000,
     +     .00000,    .14259,    .24641,
     +     .09866,    .05375,   1.62612,    .26213,    .00929,
     +     .00000,    .16440,    .26718,
     +     .10104,    .05520,   2.20554,    .27826,    .02674,
     +     .00000,    .18143,    .28350,
     +     .10358,    .05675,   2.84220,    .29628,    .04489,
     +     .00000,    .20038,    .30175,
     +     .10579,    .05809,   3.40217,    .31267,    .06052,
     +     .00000,    .21754,    .31833,
     +     .10793,    .05939,   3.95038,    .32906,    .07646,
     +     .00000,    .23465,    .33490,
     +     .11022,    .06078,   4.54202,    .34715,    .09434,
     +     .00000,    .25348,    .35319 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11223,    .06199,   5.06350,    .36344,    .11070,
     +     .00000,    .27040,    .36965,
     +     .11417,    .06316,   5.56351,    .37960,    .12680,
     +     .00000,    .28717,    .38599,
     +     .11570,    .06409,   5.95475,    .39268,    .13974,
     +     .00000,    .30071,    .39921,
     +     .11901,    .06607,   6.78553,    .42143,    .16859,
     +     .00000,    .33043,    .42826,
     +     .12191,    .06780,   7.49685,    .44692,    .19434,
     +     .01233,    .35674,    .45400,
     +     .12516,    .06972,   8.24455,    .47610,    .22386,
     +     .05023,    .38681,    .48347,
     +     .12853,    .07171,   9.00118,    .50708,    .25528,
     +     .08493,    .41870,    .51474,
     +     .13158,    .07351,   9.66505,    .53558,    .28427,
     +     .11706,    .44802,    .54352 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13465,    .07531,  10.31152,    .56465,    .31392,
     +     .14962,    .47788,    .57287,
     +     .13717,    .07679,  10.82697,    .58891,    .33864,
     +     .17646,    .50279,    .59734,
     +     .14022,    .07856,  11.42332,    .61833,    .36860,
     +     .20877,    .53298,    .62704,
     +     .14291,    .08012,  11.92920,    .64441,    .39523,
     +     .23754,    .55972,    .65335,
     +     .14537,    .08154,  12.38000,    .66841,    .41991,
     +     .26439,    .58434,    .67757,
     +     .14845,    .08331,  12.91672,    .69859,    .45080,
     +     .29756,    .61526,    .70802,
     +     .15134,    .08496,  13.39128,    .72669,    .47959,
     +     .32836,    .64407,    .73638,
     +     .15402,    .08650,  13.81643,    .75294,    .50658,
     +     .35735,    .67094,    .76285 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15669,    .08803,  14.22297,    .77905,    .53351,
     +     .38634,    .69769,    .78919,
     +     .15926,    .08948,  14.58775,    .80399,    .55914,
     +     .41362,    .72325,    .81436,
     +     .16169,    .09085,  14.92137,    .82755,    .58349,
     +     .43972,    .74737,    .83812,
     +     .16396,    .09214,  15.21613,    .84940,    .60608,
     +     .46384,    .76976,    .86016,
     +     .16624,    .09341,  15.49539,    .87104,    .62846,
     +     .48775,    .79193,    .88200,
     +     .16845,    .09466,  15.75810,    .89216,    .65037,
     +     .51118,    .81356,    .90332,
     +     .17054,    .09582,  15.98834,    .91176,    .67069,
     +     .53283,    .83365,    .92310,
     +     .17252,    .09692,  16.19894,    .93022,    .68990,
     +     .55336,    .85256,    .94172 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17448,    .09801,  16.39553,    .94841,    .70881,
     +     .57352,    .87120,    .96007,
     +     .17642,    .09908,  16.58062,    .96617,    .72733,
     +     .59328,    .88941,    .97800,
     +     .17825,    .10010,  16.74726,    .98287,    .74475,
     +     .61189,    .90652,    .99485,
     +     .17997,    .10104,  16.89321,    .99835,    .76090,
     +     .62909,    .92240,   1.01047,
     +     .18173,    .10200,  17.04060,   1.01409,    .77742,
     +     .64678,    .93855,   1.02637 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11420,    .06325,    .40898,    .21251,    .00000,
     +     .00000,    .12089,    .21871,
     +     .11654,    .06473,    .84354,    .22327,    .00000,
     +     .00000,    .13249,    .22967,
     +     .12022,    .06702,   1.51289,    .24032,    .00889,
     +     .00000,    .15075,    .24707,
     +     .12306,    .06878,   2.02948,    .25364,    .02364,
     +     .00000,    .16492,    .26065,
     +     .12609,    .07064,   2.58526,    .26848,    .03888,
     +     .00000,    .18064,    .27577,
     +     .12875,    .07226,   3.06481,    .28190,    .05189,
     +     .00000,    .19478,    .28944,
     +     .13130,    .07382,   3.52698,    .29526,    .06509,
     +     .00000,    .20883,    .30304,
     +     .13402,    .07547,   4.01825,    .30995,    .07983,
     +     .00000,    .22422,    .31798 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13641,    .07692,   4.44532,    .32311,    .09326,
     +     .00000,    .23799,    .33135,
     +     .13872,    .07830,   4.84952,    .33613,    .10641,
     +     .00000,    .25158,    .34458,
     +     .14054,    .07939,   5.16224,    .34660,    .11692,
     +     .00000,    .26251,    .35524,
     +     .14443,    .08171,   5.81684,    .36952,    .14026,
     +     .00000,    .28635,    .37851,
     +     .14785,    .08373,   6.37097,    .38965,    .16089,
     +     .00793,    .30729,    .39896,
     +     .15164,    .08596,   6.93726,    .41253,    .18439,
     +     .03848,    .33103,    .42219,
     +     .15557,    .08824,   7.49973,    .43660,    .20918,
     +     .06616,    .35599,    .44663,
     +     .15911,    .09030,   7.98420,    .45856,    .23186,
     +     .09159,    .37875,    .46891 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16266,    .09234,   8.44783,    .48078,    .25486,
     +     .11714,    .40175,    .49145,
     +     .16558,    .09402,   8.81152,    .49917,    .27391,
     +     .13805,    .42077,    .51009,
     +     .16908,    .09602,   9.22499,    .52128,    .29680,
     +     .16304,    .44365,    .53253,
     +     .17213,    .09776,   9.56979,    .54073,    .31701,
     +     .18513,    .46376,    .55225,
     +     .17494,    .09934,   9.87281,    .55852,    .33561,
     +     .20562,    .48214,    .57029,
     +     .17844,    .10131,  10.22645,    .58067,    .35870,
     +     .23072,    .50504,    .59276,
     +     .18169,    .10313,  10.53246,    .60113,    .38003,
     +     .25385,    .52619,    .61350,
     +     .18470,    .10481,  10.80181,    .62007,    .39989,
     +     .27547,    .54578,    .63270 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18770,    .10648,  11.05492,    .63878,    .41958,
     +     .29695,    .56511,    .65167,
     +     .19057,    .10806,  11.27578,    .65649,    .43814,
     +     .31699,    .58343,    .66963,
     +     .19327,    .10955,  11.47475,    .67311,    .45567,
     +     .33605,    .60061,    .68647,
     +     .19579,    .11093,  11.64666,    .68839,    .47182,
     +     .35356,    .61643,    .70198,
     +     .19830,    .11229,  11.80577,    .70342,    .48772,
     +     .37080,    .63199,    .71721,
     +     .20074,    .11363,  11.95249,    .71798,    .50319,
     +     .38760,    .64707,    .73200,
     +     .20302,    .11486,  12.07715,    .73139,    .51743,
     +     .40302,    .66096,    .74560,
     +     .20517,    .11601,  12.18932,    .74395,    .53082,
     +     .41757,    .67397,    .75833 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20732,    .11717,  12.29042,    .75623,    .54392,
     +     .43177,    .68670,    .77078,
     +     .20942,    .11829,  12.38330,    .76814,    .55668,
     +     .44562,    .69906,    .78287,
     +     .21140,    .11935,  12.46448,    .77927,    .56861,
     +     .45859,    .71060,    .79416,
     +     .21326,    .12033,  12.53255,    .78950,    .57960,
     +     .47051,    .72123,    .80454,
     +     .21514,    .12133,  12.60102,    .79989,    .59081,
     +     .48274,    .73202,    .81507 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13147,    .07393,    .40136,    .20202,    .00000,
     +     .00000,    .11585,    .20963,
     +     .13414,    .07564,    .81749,    .21127,    .00000,
     +     .00000,    .12589,    .21913,
     +     .13834,    .07830,   1.44365,    .22595,    .00858,
     +     .00000,    .14173,    .23422,
     +     .14158,    .08030,   1.91798,    .23741,    .02156,
     +     .00000,    .15402,    .24599,
     +     .14505,    .08243,   2.41998,    .25013,    .03490,
     +     .00000,    .16759,    .25906,
     +     .14804,    .08425,   2.84661,    .26164,    .04621,
     +     .00000,    .17981,    .27084,
     +     .15093,    .08600,   3.25263,    .27306,    .05769,
     +     .00000,    .19190,    .28256,
     +     .15403,    .08788,   3.67908,    .28558,    .07044,
     +     .00000,    .20512,    .29538 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15672,    .08949,   4.04582,    .29675,    .08203,
     +     .00000,    .21689,    .30681,
     +     .15931,    .09104,   4.38927,    .30778,    .09333,
     +     .00000,    .22848,    .31809,
     +     .16136,    .09224,   4.65256,    .31662,    .10234,
     +     .00000,    .23777,    .32713,
     +     .16573,    .09483,   5.19740,    .33589,    .12224,
     +     .00000,    .25796,    .34681,
     +     .16953,    .09703,   5.65473,    .35272,    .13975,
     +     .00524,    .27558,    .36399,
     +     .17375,    .09947,   6.11083,    .37170,    .15954,
     +     .03127,    .29544,    .38338,
     +     .17809,    .10197,   6.55682,    .39156,    .18029,
     +     .05466,    .31618,    .40364,
     +     .18200,    .10419,   6.93501,    .40954,    .19916,
     +     .07602,    .33496,    .42197 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18589,    .10640,   7.29158,    .42761,    .21817,
     +     .09734,    .35381,    .44040,
     +     .18908,    .10819,   7.56719,    .44247,    .23381,
     +     .11470,    .36931,    .45555,
     +     .19289,    .11033,   7.87570,    .46023,    .25251,
     +     .13531,    .38784,    .47366,
     +     .19623,    .11217,   8.12904,    .47574,    .26891,
     +     .15343,    .40401,    .48947,
     +     .19927,    .11386,   8.34891,    .48985,    .28393,
     +     .17016,    .41873,    .50385,
     +     .20304,    .11593,   8.60056,    .50730,    .30245,
     +     .19053,    .43693,    .52163,
     +     .20653,    .11784,   8.81388,    .52328,    .31945,
     +     .20918,    .45361,    .53792,
     +     .20976,    .11959,   8.99839,    .53799,    .33518,
     +     .22652,    .46896,    .55290 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21296,    .12132,   9.16870,    .55242,    .35069,
     +     .24365,    .48403,    .56761,
     +     .21601,    .12295,   9.31291,    .56597,    .36521,
     +     .25954,    .49820,    .58142,
     +     .21889,    .12448,   9.44070,    .57861,    .37886,
     +     .27458,    .51141,    .59430,
     +     .22155,    .12589,   9.54819,    .59016,    .39135,
     +     .28831,    .52350,    .60607,
     +     .22417,    .12728,   9.64500,    .60144,    .40360,
     +     .30178,    .53532,    .61758,
     +     .22674,    .12864,   9.73217,    .61231,    .41544,
     +     .31484,    .54671,    .62866,
     +     .22913,    .12989,   9.80309,    .62225,    .42629,
     +     .32677,    .55713,    .63879,
     +     .23138,    .13106,   9.86551,    .63150,    .43644,
     +     .33797,    .56685,    .64822 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23361,    .13221,   9.91891,    .64049,    .44631,
     +     .34885,    .57629,    .65740,
     +     .23579,    .13333,   9.96614,    .64917,    .45588,
     +     .35942,    .58542,    .66624,
     +     .23784,    .13439,  10.00537,    .65722,    .46481,
     +     .36929,    .59389,    .67445,
     +     .23975,    .13537,  10.03561,    .66457,    .47297,
     +     .37830,    .60165,    .68195,
     +     .24170,    .13636,  10.06594,    .67200,    .48127,
     +     .38753,    .60949,    .68954 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14648,    .08330,    .40419,    .19413,    .00000,
     +     .00000,    .11207,    .20291,
     +     .14948,    .08523,    .80617,    .20221,    .00000,
     +     .00000,    .12093,    .21130,
     +     .15418,    .08820,   1.39959,    .21512,    .00824,
     +     .00000,    .13495,    .22469,
     +     .15778,    .09043,   1.84214,    .22519,    .01993,
     +     .00000,    .14584,    .23514,
     +     .16161,    .09277,   2.30406,    .23640,    .03191,
     +     .00000,    .15789,    .24673,
     +     .16492,    .09479,   2.69158,    .24652,    .04203,
     +     .00000,    .16871,    .25718,
     +     .16812,    .09671,   3.05651,    .25655,    .05226,
     +     .00000,    .17941,    .26754,
     +     .17152,    .09873,   3.43597,    .26753,    .06361,
     +     .00000,    .19107,    .27885 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17449,    .10049,   3.75924,    .27730,    .07390,
     +     .00000,    .20145,    .28893,
     +     .17733,    .10217,   4.05930,    .28691,    .08390,
     +     .00000,    .21163,    .29882,
     +     .17956,    .10348,   4.28746,    .29462,    .09186,
     +     .00000,    .21976,    .30674,
     +     .18432,    .10624,   4.75486,    .31132,    .10937,
     +     .00000,    .23741,    .32391,
     +     .18845,    .10860,   5.14483,    .32583,    .12469,
     +     .00336,    .25272,    .33881,
     +     .19301,    .11120,   5.52490,    .34211,    .14194,
     +     .02624,    .26988,    .35553,
     +     .19768,    .11383,   5.89132,    .35904,    .15991,
     +     .04668,    .28771,    .37290,
     +     .20187,    .11617,   6.19774,    .37428,    .17615,
     +     .06522,    .30375,    .38853 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20604,    .11848,   6.48267,    .38951,    .19243,
     +     .08366,    .31978,    .40414,
     +     .20943,    .12035,   6.69965,    .40196,    .20576,
     +     .09859,    .33287,    .41691,
     +     .21348,    .12256,   6.93917,    .41676,    .22161,
     +     .11624,    .34844,    .43207,
     +     .21700,    .12448,   7.13296,    .42960,    .23544,
     +     .13168,    .36197,    .44522,
     +     .22020,    .12621,   7.29908,    .44123,    .24804,
     +     .14587,    .37421,    .45714,
     +     .22418,    .12833,   7.48518,    .45552,    .26351,
     +     .16306,    .38926,    .47177,
     +     .22783,    .13028,   7.63971,    .46851,    .27763,
     +     .17873,    .40297,    .48509,
     +     .23121,    .13205,   7.77085,    .48040,    .29062,
     +     .19321,    .41552,    .49726 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23454,    .13380,   7.88948,    .49200,    .30337,
     +     .20747,    .42776,    .50913,
     +     .23770,    .13544,   7.98623,    .50280,    .31523,
     +     .22062,    .43919,    .52021,
     +     .24066,    .13698,   8.07027,    .51283,    .32633,
     +     .23301,    .44980,    .53048,
     +     .24340,    .13839,   8.13850,    .52194,    .33645,
     +     .24428,    .45945,    .53981,
     +     .24610,    .13978,   8.19769,    .53078,    .34631,
     +     .25529,    .46883,    .54886,
     +     .24873,    .14111,   8.24923,    .53926,    .35582,
     +     .26592,    .47784,    .55755,
     +     .25117,    .14234,   8.28837,    .54694,    .36445,
     +     .27557,    .48602,    .56543,
     +     .25347,    .14350,   8.32155,    .55407,    .37253,
     +     .28463,    .49361,    .57275 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25573,    .14462,   8.34717,    .56094,    .38033,
     +     .29337,    .50096,    .57979,
     +     .25793,    .14572,   8.36799,    .56754,    .38788,
     +     .30184,    .50801,    .58656,
     +     .26001,    .14675,   8.38314,    .57362,    .39487,
     +     .30972,    .51452,    .59280,
     +     .26193,    .14769,   8.39189,    .57914,    .40124,
     +     .31688,    .52045,    .59846,
     +     .26390,    .14865,   8.40060,    .58471,    .40771,
     +     .32420,    .52643,    .60418 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17244,    .09951,    .42509,    .18282,    .00000,
     +     .00000,    .10673,    .19382,
     +     .17604,    .10183,    .80553,    .18915,    .00000,
     +     .00000,    .11382,    .20056,
     +     .18162,    .10533,   1.35007,    .19943,    .00752,
     +     .00000,    .12522,    .21149,
     +     .18585,    .10792,   1.74561,    .20755,    .01741,
     +     .00000,    .13414,    .22005,
     +     .19033,    .11062,   2.14900,    .21660,    .02750,
     +     .00000,    .14406,    .22960,
     +     .19419,    .11291,   2.48028,    .22479,    .03598,
     +     .00000,    .15294,    .23819,
     +     .19787,    .11508,   2.78670,    .23289,    .04452,
     +     .00000,    .16172,    .24668,
     +     .20178,    .11737,   3.09984,    .24171,    .05397,
     +     .00000,    .17126,    .25592 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20518,    .11933,   3.36240,    .24957,    .06251,
     +     .00000,    .17973,    .26412,
     +     .20842,    .12119,   3.60239,    .25725,    .07076,
     +     .00000,    .18800,    .27214,
     +     .21095,    .12263,   3.78238,    .26338,    .07730,
     +     .00000,    .19459,    .27852,
     +     .21633,    .12565,   4.14468,    .27661,    .09159,
     +     .00000,    .20878,    .29228,
     +     .22094,    .12821,   4.44410,    .28798,    .10400,
     +     .00082,    .22098,    .30410,
     +     .22600,    .13098,   4.72341,    .30064,    .11784,
     +     .01950,    .23455,    .31724,
     +     .23115,    .13377,   4.98584,    .31365,    .13213,
     +     .03601,    .24850,    .33074,
     +     .23573,    .13623,   5.19938,    .32525,    .14492,
     +     .05087,    .26092,    .34276 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .24025,    .13864,   5.39257,    .33672,    .15763,
     +     .06551,    .27322,    .35464,
     +     .24392,    .14058,   5.53565,    .34600,    .16794,
     +     .07726,    .28318,    .36424,
     +     .24828,    .14283,   5.68865,    .35691,    .18009,
     +     .09105,    .29489,    .37555,
     +     .25204,    .14479,   5.80852,    .36629,    .19060,
     +     .10302,    .30497,    .38525,
     +     .25544,    .14653,   5.90856,    .37471,    .20013,
     +     .11396,    .31402,    .39395,
     +     .25961,    .14865,   6.01545,    .38492,    .21168,
     +     .12708,    .32502,    .40451,
     +     .26344,    .15058,   6.09936,    .39409,    .22212,
     +     .13892,    .33492,    .41400,
     +     .26696,    .15232,   6.16714,    .40239,    .23165,
     +     .14980,    .34390,    .42258 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .27040,    .15403,   6.22519,    .41039,    .24092,
     +     .16042,    .35258,    .43086,
     +     .27363,    .15562,   6.26721,    .41774,    .24947,
     +     .17013,    .36056,    .43846,
     +     .27666,    .15709,   6.30127,    .42449,    .25739,
     +     .17922,    .36792,    .44543,
     +     .27945,    .15842,   6.32510,    .43055,    .26455,
     +     .18742,    .37453,    .45171,
     +     .28218,    .15972,   6.34225,    .43636,    .27147,
     +     .19537,    .38090,    .45771,
     +     .28481,    .16097,   6.35434,    .44186,    .27810,
     +     .20301,    .38695,    .46341,
     +     .28725,    .16211,   6.35858,    .44678,    .28406,
     +     .20988,    .39237,    .46850,
     +     .28951,    .16317,   6.35989,    .45131,    .28959,
     +     .21629,    .39737,    .47319 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .29175,    .16420,   6.35575,    .45560,    .29490,
     +     .22244,    .40214,    .47764,
     +     .29390,    .16520,   6.34869,    .45968,    .29998,
     +     .22836,    .40669,    .48187,
     +     .29592,    .16612,   6.33879,    .46339,    .30466,
     +     .23382,    .41084,    .48571,
     +     .29779,    .16697,   6.32562,    .46670,    .30887,
     +     .23875,    .41456,    .48915,
     +     .29968,    .16781,   6.31238,    .47002,    .31314,
     +     .24378,    .41831,    .49260 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20479,    .11970,    .48332,    .17067,    .00000,
     +     .00000,    .10081,    .18455,
     +     .20924,    .12251,    .83814,    .17521,    .00000,
     +     .00000,    .10613,    .18966,
     +     .21602,    .12668,   1.32946,    .18289,    .00617,
     +     .00000,    .11498,    .19820,
     +     .22105,    .12966,   1.67435,    .18910,    .01439,
     +     .00000,    .12205,    .20500,
     +     .22632,    .13275,   2.01634,    .19609,    .02274,
     +     .00000,    .12993,    .21259,
     +     .23083,    .13534,   2.28994,    .20242,    .02970,
     +     .00000,    .13700,    .21943,
     +     .23511,    .13776,   2.53736,    .20869,    .03671,
     +     .00000,    .14400,    .22617,
     +     .23961,    .14028,   2.78481,    .21551,    .04442,
     +     .00000,    .15158,    .23346 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24349,    .14242,   2.98811,    .22155,    .05134,
     +     .00000,    .15827,    .23991,
     +     .24716,    .14444,   3.17024,    .22743,    .05799,
     +     .00000,    .16477,    .24618,
     +     .25003,    .14598,   3.30439,    .23211,    .06323,
     +     .00000,    .16992,    .25113,
     +     .25605,    .14920,   3.56805,    .24210,    .07461,
     +     .00000,    .18095,    .26173,
     +     .26112,    .15186,   3.78429,    .25058,    .08438,
     +    -.00154,    .19031,    .27069,
     +     .26665,    .15472,   3.97237,    .25991,    .09515,
     +     .01333,    .20060,    .28052,
     +     .27222,    .15756,   4.14235,    .26938,    .10614,
     +     .02633,    .21104,    .29049,
     +     .27712,    .16002,   4.27497,    .27769,    .11587,
     +     .03790,    .22023,    .29924 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28191,    .16240,   4.38961,    .28578,    .12542,
     +     .04918,    .22920,    .30774,
     +     .28577,    .16429,   4.47046,    .29226,    .13309,
     +     .05815,    .23638,    .31453,
     +     .29030,    .16648,   4.55177,    .29973,    .14202,
     +     .06857,    .24469,    .32239,
     +     .29418,    .16833,   4.61137,    .30607,    .14966,
     +     .07752,    .25177,    .32903,
     +     .29765,    .16998,   4.65827,    .31170,    .15651,
     +     .08563,    .25805,    .33491,
     +     .30190,    .17196,   4.70250,    .31837,    .16473,
     +     .09525,    .26555,    .34191,
     +     .30573,    .17372,   4.73178,    .32426,    .17206,
     +     .10386,    .27219,    .34808,
     +     .30922,    .17529,   4.75130,    .32950,    .17867,
     +     .11167,    .27814,    .35357 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31261,    .17681,   4.76385,    .33447,    .18504,
     +     .11925,    .28380,    .35878,
     +     .31577,    .17820,   4.76561,    .33892,    .19082,
     +     .12608,    .28892,    .36344,
     +     .31870,    .17948,   4.76352,    .34296,    .19614,
     +     .13244,    .29357,    .36766,
     +     .32135,    .18061,   4.75602,    .34649,    .20087,
     +     .13811,    .29768,    .37136,
     +     .32393,    .18172,   4.74395,    .34981,    .20540,
     +     .14356,    .30157,    .37483,
     +     .32641,    .18275,   4.72906,    .35290,    .20970,
     +     .14875,    .30521,    .37806,
     +     .32868,    .18368,   4.71024,    .35557,    .21350,
     +     .15338,    .30841,    .38087,
     +     .33077,    .18454,   4.69093,    .35800,    .21701,
     +     .15766,    .31132,    .38341 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .33281,    .18535,   4.66790,    .36024,    .22032,
     +     .16173,    .31403,    .38575,
     +     .33477,    .18613,   4.64343,    .36231,    .22347,
     +     .16562,    .31659,    .38792,
     +     .33658,    .18683,   4.61829,    .36414,    .22632,
     +     .16917,    .31886,    .38984,
     +     .33823,    .18748,   4.59217,    .36573,    .22887,
     +     .17236,    .32086,    .39150,
     +     .33991,    .18811,   4.56611,    .36730,    .23143,
     +     .17559,    .32286,    .39314 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24920,    .14690,    .61262,    .15572,    .00000,
     +     .00000,    .09310,    .17432,
     +     .25488,    .15035,    .93054,    .15843,    .00000,
     +     .00000,    .09669,    .17781,
     +     .26333,    .15528,   1.35401,    .16349,    .00351,
     +     .00000,    .10308,    .18396,
     +     .26941,    .15869,   1.63649,    .16777,    .01016,
     +     .00000,    .10833,    .18896,
     +     .27569,    .16214,   1.90606,    .17269,    .01688,
     +     .00000,    .11425,    .19461,
     +     .28097,    .16498,   2.11391,    .17719,    .02243,
     +     .00000,    .11959,    .19967,
     +     .28592,    .16759,   2.29598,    .18164,    .02798,
     +     .00000,    .12483,    .20464,
     +     .29107,    .17026,   2.47234,    .18646,    .03404,
     +     .00000,    .13049,    .20999 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29547,    .17250,   2.61294,    .19068,    .03943,
     +     .00000,    .13544,    .21466,
     +     .29957,    .17456,   2.73503,    .19478,    .04456,
     +     .00000,    .14021,    .21915,
     +     .30273,    .17613,   2.82233,    .19801,    .04857,
     +     .00000,    .14396,    .22266,
     +     .30930,    .17934,   2.98735,    .20482,    .05718,
     +     .00000,    .15189,    .23006,
     +     .31472,    .18191,   3.12239,    .21048,    .06444,
     +    -.00383,    .15849,    .23618,
     +     .32052,    .18461,   3.22363,    .21659,    .07234,
     +     .00744,    .16564,    .24276,
     +     .32628,    .18722,   3.30785,    .22264,    .08025,
     +     .01714,    .17274,    .24924,
     +     .33127,    .18943,   3.36716,    .22782,    .08713,
     +     .02564,    .17885,    .25478 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33605,    .19153,   3.41248,    .23275,    .09377,
     +     .03381,    .18469,    .26003,
     +     .33986,    .19315,   3.43949,    .23659,    .09902,
     +     .04022,    .18928,    .26412,
     +     .34425,    .19498,   3.46042,    .24091,    .10504,
     +     .04756,    .19448,    .26872,
     +     .34795,    .19649,   3.47045,    .24447,    .11010,
     +     .05379,    .19880,    .27248,
     +     .35123,    .19781,   3.47445,    .24755,    .11458,
     +     .05937,    .20256,    .27574,
     +     .35514,    .19933,   3.46941,    .25108,    .11986,
     +     .06590,    .20694,    .27947,
     +     .35862,    .20064,   3.45697,    .25406,    .12447,
     +     .07164,    .21071,    .28262,
     +     .36173,    .20179,   3.44061,    .25663,    .12857,
     +     .07680,    .21398,    .28531 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36470,    .20286,   3.42026,    .25898,    .13245,
     +     .08172,    .21704,    .28777,
     +     .36741,    .20378,   3.39413,    .26095,    .13589,
     +     .08610,    .21968,    .28983,
     +     .36987,    .20461,   3.36759,    .26266,    .13901,
     +     .09013,    .22202,    .29162,
     +     .37207,    .20532,   3.33960,    .26408,    .14174,
     +     .09367,    .22401,    .29309,
     +     .37416,    .20597,   3.30916,    .26533,    .14430,
     +     .09703,    .22583,    .29439,
     +     .37614,    .20657,   3.27785,    .26643,    .14669,
     +     .10020,    .22748,    .29554,
     +     .37790,    .20706,   3.24574,    .26728,    .14875,
     +     .10298,    .22885,    .29641,
     +     .37950,    .20751,   3.21489,    .26802,    .15063,
     +     .10552,    .23006,    .29716 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .38102,    .20791,   3.18206,    .26861,    .15235,
     +     .10790,    .23112,    .29773,
     +     .38246,    .20828,   3.14906,    .26909,    .15396,
     +     .11016,    .23207,    .29821,
     +     .38377,    .20857,   3.11692,    .26945,    .15539,
     +     .11219,    .23287,    .29856,
     +     .38492,    .20883,   3.08544,    .26968,    .15663,
     +     .11399,    .23351,    .29879,
     +     .38609,    .20907,   3.05420,    .26991,    .15787,
     +     .11580,    .23413,    .29899 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28576,    .16893,    .76339,    .14261,    .00000,
     +     .00000,    .08560,    .16507,
     +     .29263,    .17284,   1.04375,    .14428,    .00000,
     +     .00000,    .08830,    .16775,
     +     .30253,    .17824,   1.40970,    .14787,    .00051,
     +     .00000,    .09338,    .17262,
     +     .30947,    .18188,   1.64108,    .15107,    .00633,
     +     .00000,    .09763,    .17662,
     +     .31653,    .18547,   1.85457,    .15477,    .01217,
     +     .00000,    .10244,    .18111,
     +     .32236,    .18837,   2.01359,    .15818,    .01694,
     +     .00000,    .10676,    .18512,
     +     .32776,    .19100,   2.14865,    .16154,    .02166,
     +     .00000,    .11098,    .18901,
     +     .33330,    .19362,   2.27539,    .16515,    .02677,
     +     .00000,    .11550,    .19313 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33794,    .19579,   2.37333,    .16829,    .03127,
     +     .00000,    .11942,    .19669,
     +     .34226,    .19776,   2.45552,    .17131,    .03550,
     +     .00000,    .12315,    .20006,
     +     .34557,    .19924,   2.51229,    .17364,    .03879,
     +     .00000,    .12606,    .20267,
     +     .35231,    .20220,   2.61450,    .17853,    .04575,
     +     .00000,    .13211,    .20808,
     +     .35775,    .20449,   2.69942,    .18249,    .05154,
     +    -.00515,    .13707,    .21242,
     +     .36345,    .20683,   2.74862,    .18668,    .05774,
     +     .00396,    .14232,    .21695,
     +     .36901,    .20903,   2.78311,    .19071,    .06385,
     +     .01171,    .14743,    .22129,
     +     .37374,    .21083,   2.80123,    .19405,    .06908,
     +     .01840,    .15172,    .22489 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37821,    .21247,   2.80863,    .19715,    .07406,
     +     .02477,    .15574,    .22818,
     +     .38170,    .21371,   2.80717,    .19949,    .07794,
     +     .02972,    .15882,    .23063,
     +     .38563,    .21504,   2.79698,    .20202,    .08232,
     +     .03530,    .16223,    .23329,
     +     .38890,    .21610,   2.78222,    .20401,    .08594,
     +     .03999,    .16500,    .23538,
     +     .39174,    .21698,   2.76540,    .20569,    .08911,
     +     .04414,    .16735,    .23711,
     +     .39505,    .21795,   2.73746,    .20749,    .09278,
     +     .04895,    .17000,    .23898,
     +     .39792,    .21872,   2.70639,    .20890,    .09593,
     +     .05312,    .17219,    .24041,
     +     .40042,    .21935,   2.67463,    .21004,    .09868,
     +     .05683,    .17403,    .24154 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40276,    .21990,   2.64077,    .21101,    .10124,
     +     .06032,    .17568,    .24247,
     +     .40480,    .22032,   2.60402,    .21169,    .10347,
     +     .06339,    .17701,    .24311,
     +     .40663,    .22065,   2.56860,    .21223,    .10545,
     +     .06618,    .17814,    .24359,
     +     .40821,    .22089,   2.53369,    .21258,    .10714,
     +     .06861,    .17904,    .24388,
     +     .40966,    .22107,   2.49758,    .21279,    .10871,
     +     .07089,    .17982,    .24403,
     +     .41100,    .22119,   2.46169,    .21291,    .11014,
     +     .07302,    .18045,    .24406,
     +     .41213,    .22124,   2.42643,    .21288,    .11134,
     +     .07484,    .18091,    .24394,
     +     .41314,    .22126,   2.39318,    .21279,    .11242,
     +     .07652,    .18129,    .24376 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41404,    .22123,   2.35895,    .21259,    .11337,
     +     .07806,    .18154,    .24346,
     +     .41486,    .22117,   2.32514,    .21232,    .11425,
     +     .07949,    .18171,    .24309,
     +     .41557,    .22107,   2.29282,    .21201,    .11501,
     +     .08079,    .18182,    .24267,
     +     .41615,    .22093,   2.26180,    .21163,    .11563,
     +     .08190,    .18182,    .24218,
     +     .41674,    .22079,   2.23112,    .21124,    .11625,
     +     .08301,    .18181,    .24169 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .34760,    .20405,   1.03973,    .11981,    .00000,
     +     .00000,    .07213,    .15039,
     +     .35623,    .20840,   1.24736,    .12065,    .00000,
     +     .00000,    .07417,    .15222,
     +     .36814,    .21408,   1.51123,    .12284,   -.00496,
     +     .00000,    .07810,    .15562,
     +     .37605,    .21766,   1.65826,    .12487,    .00008,
     +     .00000,    .08132,    .15834,
     +     .38384,    .22102,   1.78450,    .12725,    .00504,
     +     .00000,    .08492,    .16130,
     +     .39011,    .22362,   1.87133,    .12937,    .00898,
     +     .00000,    .08805,    .16387,
     +     .39575,    .22588,   1.93955,    .13144,    .01278,
     +     .00000,    .09103,    .16627,
     +     .40137,    .22807,   1.99827,    .13361,    .01680,
     +     .00000,    .09413,    .16873 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40597,    .22979,   2.03962,    .13544,    .02026,
     +     .00000,    .09677,    .17077,
     +     .41014,    .23129,   2.07028,    .13715,    .02345,
     +     .00000,    .09923,    .17265,
     +     .41325,    .23236,   2.08855,    .13844,    .02589,
     +     .00000,    .10109,    .17402,
     +     .41944,    .23439,   2.11404,    .14104,    .03093,
     +     .00000,    .10486,    .17675,
     +     .42415,    .23578,   2.13911,    .14300,    .03499,
     +    -.00635,    .10781,    .17875,
     +     .42890,    .23706,   2.12953,    .14493,    .03923,
     +     .00018,    .11078,    .18068,
     +     .43332,    .23810,   2.11017,    .14664,    .04328,
     +     .00563,    .11354,    .18232,
     +     .43688,    .23882,   2.08554,    .14792,    .04666,
     +     .01025,    .11574,    .18349 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44007,    .23936,   2.05531,    .14899,    .04977,
     +     .01453,    .11767,    .18439,
     +     .44242,    .23965,   2.02667,    .14968,    .05213,
     +     .01779,    .11906,    .18491,
     +     .44490,    .23984,   1.98834,    .15028,    .05473,
     +     .02141,    .12048,    .18529,
     +     .44681,    .23986,   1.95228,    .15064,    .05682,
     +     .02439,    .12154,    .18544,
     +     .44839,    .23979,   1.91836,    .15086,    .05859,
     +     .02698,    .12238,    .18543,
     +     .45003,    .23956,   1.87302,    .15090,    .06059,
     +     .02992,    .12320,    .18519,
     +     .45127,    .23918,   1.82910,    .15077,    .06225,
     +     .03242,    .12374,    .18475,
     +     .45223,    .23874,   1.78775,    .15051,    .06364,
     +     .03459,    .12411,    .18420 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45300,    .23823,   1.74643,    .15015,    .06489,
     +     .03661,    .12436,    .18354,
     +     .45348,    .23759,   1.70513,    .14963,    .06592,
     +     .03833,    .12440,    .18271,
     +     .45380,    .23695,   1.66669,    .14906,    .06680,
     +     .03988,    .12437,    .18185,
     +     .45392,    .23628,   1.63052,    .14846,    .06753,
     +     .04120,    .12424,    .18094,
     +     .45393,    .23554,   1.59441,    .14778,    .06816,
     +     .04241,    .12402,    .17994,
     +     .45382,    .23477,   1.55947,    .14703,    .06870,
     +     .04350,    .12374,    .17891,
     +     .45358,    .23398,   1.52634,    .14626,    .06913,
     +     .04444,    .12338,    .17784,
     +     .45328,    .23322,   1.49564,    .14551,    .06948,
     +     .04526,    .12301,    .17681 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45285,    .23238,   1.46489,    .14468,    .06977,
     +     .04601,    .12257,    .17571,
     +     .45236,    .23154,   1.43507,    .14383,    .07000,
     +     .04670,    .12209,    .17457,
     +     .45182,    .23071,   1.40706,    .14299,    .07018,
     +     .04729,    .12160,    .17346,
     +     .45121,    .22988,   1.38073,    .14215,    .07028,
     +     .04778,    .12108,    .17236,
     +     .45060,    .22905,   1.35484,    .14131,    .07039,
     +     .04829,    .12056,    .17126 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .39929,    .23118,   1.24983,    .09985,    .00000,
     +     .00000,    .06015,    .13727,
     +     .40909,    .23543,   1.38841,    .10059,    .00000,
     +     .00000,    .06221,    .13874,
     +     .42197,    .24067,   1.56302,    .10238,   -.00903,
     +     .00000,    .06576,    .14125,
     +     .43011,    .24373,   1.64258,    .10390,   -.00435,
     +     .00000,    .06849,    .14311,
     +     .43787,    .24644,   1.70326,    .10561,    .00016,
     +     .00000,    .07140,    .14501,
     +     .44390,    .24841,   1.73862,    .10707,    .00365,
     +     .00000,    .07384,    .14656,
     +     .44917,    .25000,   1.76135,    .10842,    .00693,
     +     .00000,    .07608,    .14792,
     +     .45424,    .25142,   1.77567,    .10975,    .01029,
     +     .00000,    .07833,    .14920 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45828,    .25244,   1.78140,    .11086,    .01313,
     +     .00000,    .08019,    .15019,
     +     .46184,    .25323,   1.78084,    .11181,    .01570,
     +     .00000,    .08186,    .15103,
     +     .46438,    .25373,   1.77648,    .11251,    .01763,
     +     .00000,    .08309,    .15160,
     +     .46923,    .25453,   1.75869,    .11380,    .02153,
     +     .00000,    .08547,    .15257,
     +     .47262,    .25482,   1.75087,    .11468,    .02460,
     +    -.00652,    .08724,    .15310,
     +     .47578,    .25486,   1.71195,    .11542,    .02771,
     +    -.00156,    .08892,    .15338,
     +     .47844,    .25460,   1.66744,    .11592,    .03061,
     +     .00254,    .09035,    .15338,
     +     .48032,    .25414,   1.62430,    .11615,    .03296,
     +     .00592,    .09139,    .15315 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .48179,    .25347,   1.57904,    .11620,    .03508,
     +     .00902,    .09221,    .15268,
     +     .48269,    .25277,   1.54054,    .11609,    .03664,
     +     .01133,    .09271,    .15212,
     +     .48335,    .25176,   1.49306,    .11580,    .03831,
     +     .01387,    .09313,    .15129,
     +     .48363,    .25076,   1.45109,    .11542,    .03962,
     +     .01592,    .09333,    .15040,
     +     .48368,    .24976,   1.41313,    .11499,    .04070,
     +     .01767,    .09342,    .14951,
     +     .48339,    .24835,   1.36493,    .11429,    .04189,
     +     .01964,    .09337,    .14820,
     +     .48281,    .24689,   1.32021,    .11349,    .04282,
     +     .02128,    .09317,    .14685,
     +     .48205,    .24546,   1.27933,    .11268,    .04358,
     +     .02268,    .09288,    .14551 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48110,    .24397,   1.23950,    .11181,    .04423,
     +     .02395,    .09251,    .14409,
     +     .47989,    .24241,   1.20094,    .11086,    .04474,
     +     .02503,    .09203,    .14261,
     +     .47863,    .24088,   1.16564,    .10992,    .04516,
     +     .02597,    .09152,    .14119,
     +     .47731,    .23938,   1.13311,    .10898,    .04547,
     +     .02676,    .09099,    .13979,
     +     .47583,    .23784,   1.10122,    .10800,    .04571,
     +     .02747,    .09039,    .13833,
     +     .47429,    .23630,   1.07076,    .10702,    .04590,
     +     .02810,    .08978,    .13690,
     +     .47267,    .23479,   1.04239,    .10604,    .04602,
     +     .02863,    .08914,    .13549,
     +     .47111,    .23334,   1.01637,    .10510,    .04609,
     +     .02908,    .08851,    .13414 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .46940,    .23185,    .99066,    .10412,    .04613,
     +     .02948,    .08784,    .13275,
     +     .46766,    .23037,    .96598,    .10315,    .04613,
     +     .02984,    .08717,    .13139,
     +     .46594,    .22893,    .94303,    .10220,    .04611,
     +     .03015,    .08650,    .13007,
     +     .46421,    .22754,    .92171,    .10129,    .04605,
     +     .03039,    .08584,    .12880,
     +     .46248,    .22614,    .90082,    .10037,    .04599,
     +     .03063,    .08519,    .12753 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .44432,    .25289,   1.37635,    .08299,    .00000,
     +     .00000,    .05022,    .12571,
     +     .45467,    .25671,   1.45438,    .08390,    .00000,
     +     .00000,    .05240,    .12683,
     +     .46771,    .26100,   1.55391,    .08558,   -.01148,
     +     .00000,    .05577,    .12856,
     +     .47554,    .26323,   1.58132,    .08685,   -.00708,
     +     .00000,    .05815,    .12965,
     +     .48267,    .26499,   1.59374,    .08813,   -.00293,
     +     .00000,    .06054,    .13064,
     +     .48797,    .26607,   1.59291,    .08917,    .00021,
     +     .00000,    .06246,    .13131,
     +     .49240,    .26681,   1.58485,    .09005,    .00309,
     +     .00000,    .06415,    .13179,
     +     .49646,    .26731,   1.57021,    .09088,    .00598,
     +     .00000,    .06578,    .13217 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49953,    .26750,   1.55362,    .09150,    .00836,
     +     .00000,    .06707,    .13235,
     +     .50206,    .26750,   1.53412,    .09199,    .01049,
     +     .00000,    .06818,    .13243,
     +     .50378,    .26738,   1.51652,    .09232,    .01205,
     +     .00000,    .06896,    .13237,
     +     .50677,    .26681,   1.47454,    .09283,    .01518,
     +     .00000,    .07041,    .13210,
     +     .50847,    .26591,   1.44849,    .09304,    .01756,
     +    -.00620,    .07140,    .13159,
     +     .50965,    .26463,   1.39570,    .09309,    .01993,
     +    -.00233,    .07225,    .13081,
     +     .51019,    .26305,   1.34050,    .09292,    .02210,
     +     .00084,    .07287,    .12974,
     +     .51014,    .26141,   1.29053,    .09259,    .02380,
     +     .00341,    .07321,    .12858 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50964,    .25957,   1.24072,    .09211,    .02530,
     +     .00573,    .07336,    .12729,
     +     .50888,    .25793,   1.20000,    .09161,    .02639,
     +     .00745,    .07338,    .12609,
     +     .50756,    .25578,   1.15156,    .09088,    .02752,
     +     .00929,    .07323,    .12456,
     +     .50609,    .25380,   1.10995,    .09013,    .02839,
     +     .01077,    .07299,    .12312,
     +     .50457,    .25193,   1.07308,    .08940,    .02910,
     +     .01202,    .07270,    .12174,
     +     .50226,    .24945,   1.02748,    .08839,    .02982,
     +     .01339,    .07221,    .11991,
     +     .49980,    .24703,    .98615,    .08736,    .03038,
     +     .01452,    .07164,    .11812,
     +     .49733,    .24469,    .94899,    .08635,    .03081,
     +     .01547,    .07106,    .11642 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49471,    .24233,    .91334,    .08530,    .03116,
     +     .01633,    .07043,    .11469,
     +     .49186,    .23994,    .87951,    .08422,    .03141,
     +     .01703,    .06973,    .11294,
     +     .48907,    .23768,    .84887,    .08318,    .03159,
     +     .01764,    .06904,    .11129,
     +     .48632,    .23550,    .82098,    .08219,    .03172,
     +     .01815,    .06836,    .10971,
     +     .48345,    .23330,    .79393,    .08115,    .03179,
     +     .01859,    .06764,    .10813,
     +     .48055,    .23111,    .76833,    .08012,    .03183,
     +     .01898,    .06694,    .10656,
     +     .47767,    .22902,    .74477,    .07914,    .03183,
     +     .01930,    .06622,    .10507,
     +     .47490,    .22703,    .72328,    .07822,    .03179,
     +     .01957,    .06553,    .10366 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47204,    .22502,    .70227,    .07726,    .03174,
     +     .01980,    .06482,    .10223,
     +     .46917,    .22302,    .68226,    .07631,    .03165,
     +     .02000,    .06411,    .10085,
     +     .46638,    .22111,    .66377,    .07541,    .03155,
     +     .02016,    .06343,    .09951,
     +     .46367,    .21928,    .64670,    .07454,    .03144,
     +     .02028,    .06277,    .09824,
     +     .46094,    .21745,    .63004,    .07369,    .03132,
     +     .02041,    .06212,    .09699 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .49317,    .27354,   1.42960,    .06593,    .00000,
     +     .00000,    .04033,    .11237,
     +     .50319,    .27625,   1.44803,    .06711,    .00000,
     +     .00000,    .04254,    .11296,
     +     .51497,    .27882,   1.47570,    .06876,   -.01272,
     +     .00000,    .04561,    .11358,
     +     .52146,    .27969,   1.45734,    .06984,   -.00871,
     +     .00000,    .04762,    .11380,
     +     .52697,    .27999,   1.42936,    .07079,   -.00499,
     +     .00000,    .04948,    .11380,
     +     .53070,    .27983,   1.39954,    .07147,   -.00224,
     +     .00000,    .05088,    .11360,
     +     .53352,    .27935,   1.36781,    .07199,    .00021,
     +     .00000,    .05206,    .11327,
     +     .53582,    .27855,   1.33196,    .07241,    .00261,
     +     .00000,    .05311,    .11280 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53728,    .27765,   1.29968,    .07267,    .00455,
     +     .00000,    .05389,    .11227,
     +     .53821,    .27660,   1.26752,    .07283,    .00625,
     +     .00000,    .05455,    .11162,
     +     .53865,    .27566,   1.24144,    .07289,    .00749,
     +     .00000,    .05498,    .11106,
     +     .53887,    .27337,   1.18517,    .07284,    .00991,
     +     .00000,    .05568,    .10976,
     +     .53812,    .27104,   1.14816,    .07260,    .01170,
     +    -.00543,    .05606,    .10844,
     +     .53660,    .26819,   1.08982,    .07216,    .01344,
     +    -.00254,    .05627,    .10685,
     +     .53430,    .26505,   1.03172,    .07157,    .01499,
     +    -.00019,    .05630,    .10502,
     +     .53171,    .26205,    .98127,    .07091,    .01618,
     +     .00167,    .05615,    .10327 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .52868,    .25888,    .93263,    .07012,    .01721,
     +     .00334,    .05587,    .10144,
     +     .52584,    .25619,    .89398,    .06940,    .01792,
     +     .00454,    .05554,    .09988,
     +     .52204,    .25283,    .84917,    .06846,    .01865,
     +     .00584,    .05506,    .09792,
     +     .51844,    .24981,    .81149,    .06757,    .01920,
     +     .00685,    .05456,    .09616,
     +     .51497,    .24703,    .77865,    .06674,    .01962,
     +     .00769,    .05405,    .09455,
     +     .51028,    .24343,    .73889,    .06562,    .02004,
     +     .00862,    .05333,    .09248,
     +     .50566,    .23999,    .70351,    .06452,    .02034,
     +     .00936,    .05261,    .09052,
     +     .50119,    .23676,    .67217,    .06347,    .02057,
     +     .00998,    .05190,    .08869 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .49662,    .23353,    .64249,    .06241,    .02073,
     +     .01052,    .05116,    .08687,
     +     .49193,    .23035,    .61476,    .06134,    .02082,
     +     .01096,    .05039,    .08508,
     +     .48745,    .22735,    .58990,    .06033,    .02087,
     +     .01133,    .04967,    .08341,
     +     .48313,    .22452,    .56751,    .05939,    .02089,
     +     .01163,    .04896,    .08185,
     +     .47873,    .22167,    .54601,    .05843,    .02087,
     +     .01189,    .04824,    .08031,
     +     .47437,    .21890,    .52586,    .05748,    .02083,
     +     .01212,    .04752,    .07881,
     +     .47015,    .21623,    .50746,    .05658,    .02077,
     +     .01230,    .04683,    .07738,
     +     .46616,    .21375,    .49082,    .05573,    .02069,
     +     .01244,    .04620,    .07604 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .46206,    .21124,    .47467,    .05488,    .02059,
     +     .01256,    .04554,    .07470,
     +     .45800,    .20879,    .45936,    .05405,    .02049,
     +     .01266,    .04490,    .07341,
     +     .45410,    .20645,    .44533,    .05327,    .02038,
     +     .01274,    .04427,    .07219,
     +     .45038,    .20424,    .43247,    .05252,    .02026,
     +     .01279,    .04368,    .07104,
     +     .44665,    .20205,    .41996,    .05177,    .02012,
     +     .01284,    .04309,    .06990 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .53524,    .28850,   1.39066,    .05300,    .00000,
     +     .00000,    .03290,    .10010,
     +     .54393,    .28975,   1.36770,    .05424,    .00000,
     +     .00000,    .03499,    .10003,
     +     .55336,    .29007,   1.34623,    .05576,   -.01255,
     +     .00000,    .03766,    .09961,
     +     .55781,    .28936,   1.30011,    .05662,   -.00898,
     +     .00000,    .03931,    .09901,
     +     .56102,    .28803,   1.24896,    .05731,   -.00573,
     +     .00000,    .04070,    .09826,
     +     .56269,    .28650,   1.20365,    .05774,   -.00337,
     +     .00000,    .04170,    .09739,
     +     .56347,    .28476,   1.16008,    .05801,   -.00130,
     +     .00000,    .04246,    .09647,
     +     .56358,    .28266,   1.11439,    .05816,    .00069,
     +     .00000,    .04313,    .09537 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56315,    .28063,   1.07549,    .05817,    .00226,
     +     .00000,    .04358,    .09434,
     +     .56230,    .27853,   1.03851,    .05810,    .00362,
     +     .00000,    .04389,    .09331,
     +     .56127,    .27678,   1.00966,    .05799,    .00460,
     +     .00000,    .04405,    .09245,
     +     .55840,    .27287,    .94981,    .05764,    .00648,
     +     .00000,    .04426,    .09050,
     +     .55502,    .26922,    .90974,    .05718,    .00785,
     +    -.00459,    .04428,    .08873,
     +     .55064,    .26498,    .85302,    .05654,    .00917,
     +    -.00240,    .04414,    .08668,
     +     .54547,    .26044,    .79811,    .05574,    .01030,
     +    -.00064,    .04382,    .08452,
     +     .54036,    .25624,    .75157,    .05492,    .01115,
     +     .00074,    .04343,    .08252 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .53482,    .25197,    .70762,    .05405,    .01187,
     +     .00195,    .04295,    .08046,
     +     .52999,    .24837,    .67333,    .05326,    .01236,
     +     .00283,    .04247,    .07880,
     +     .52385,    .24401,    .63420,    .05228,    .01285,
     +     .00375,    .04184,    .07674,
     +     .51823,    .24014,    .60178,    .05137,    .01320,
     +     .00446,    .04125,    .07494,
     +     .51301,    .23660,    .57381,    .05053,    .01347,
     +     .00506,    .04068,    .07331,
     +     .50617,    .23212,    .54045,    .04945,    .01373,
     +     .00569,    .03991,    .07124,
     +     .49959,    .22788,    .51115,    .04840,    .01390,
     +     .00619,    .03915,    .06934,
     +     .49335,    .22397,    .48546,    .04740,    .01401,
     +     .00661,    .03844,    .06759 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .48708,    .22012,    .46137,    .04643,    .01407,
     +     .00696,    .03772,    .06587,
     +     .48078,    .21634,    .43909,    .04549,    .01411,
     +     .00725,    .03699,    .06419,
     +     .47485,    .21282,    .41929,    .04459,    .01411,
     +     .00749,    .03631,    .06265,
     +     .46923,    .20952,    .40163,    .04372,    .01408,
     +     .00767,    .03564,    .06123,
     +     .46355,    .20623,    .38479,    .04288,    .01403,
     +     .00783,    .03498,    .05983,
     +     .45797,    .20304,    .36909,    .04206,    .01396,
     +     .00796,    .03435,    .05847,
     +     .45264,    .20003,    .35485,    .04129,    .01389,
     +     .00807,    .03374,    .05720,
     +     .44762,    .19723,    .34202,    .04057,    .01380,
     +     .00814,    .03318,    .05602 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .44255,    .19440,    .32966,    .03983,    .01371,
     +     .00821,    .03260,    .05485,
     +     .43758,    .19164,    .31801,    .03911,    .01360,
     +     .00826,    .03203,    .05373,
     +     .43284,    .18904,    .30738,    .03844,    .01350,
     +     .00829,    .03150,    .05268,
     +     .42833,    .18660,    .29770,    .03782,    .01340,
     +     .00832,    .03099,    .05167,
     +     .42383,    .18418,    .28831,    .03720,    .01329,
     +     .00833,    .03050,    .05069 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .57105,    .29851,   1.29106,    .04340,    .00000,
     +     .00000,    .02727,    .08838,
     +     .57760,    .29806,   1.24258,    .04456,    .00000,
     +     .00000,    .02909,    .08764,
     +     .58344,    .29607,   1.19118,    .04593,   -.01160,
     +     .00000,    .03124,    .08624,
     +     .58523,    .29374,   1.13078,    .04659,   -.00850,
     +     .00000,    .03244,    .08503,
     +     .58567,    .29072,   1.06891,    .04705,   -.00572,
     +     .00000,    .03344,    .08363,
     +     .58488,    .28787,   1.01724,    .04729,   -.00370,
     +     .00000,    .03408,    .08232,
     +     .58337,    .28488,    .96961,    .04737,   -.00199,
     +     .00000,    .03454,    .08098,
     +     .58107,    .28149,    .92132,    .04732,   -.00035,
     +     .00000,    .03488,    .07951 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57858,    .27844,    .88128,    .04719,    .00092,
     +     .00000,    .03507,    .07821,
     +     .57570,    .27541,    .84413,    .04700,    .00202,
     +     .00000,    .03518,    .07691,
     +     .57317,    .27292,    .81575,    .04676,    .00279,
     +     .00000,    .03520,    .07587,
     +     .56716,    .26750,    .75807,    .04621,    .00427,
     +     .00000,    .03512,    .07363,
     +     .56119,    .26268,    .71932,    .04565,    .00532,
     +    -.00379,    .03491,    .07169,
     +     .55400,    .25720,    .66766,    .04489,    .00631,
     +    -.00213,    .03455,    .06952,
     +     .54606,    .25147,    .61856,    .04401,    .00716,
     +    -.00080,    .03408,    .06726,
     +     .53852,    .24630,    .57764,    .04317,    .00778,
     +     .00024,    .03357,    .06524 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53071,    .24110,    .53954,    .04227,    .00830,
     +     .00114,    .03300,    .06322,
     +     .52402,    .23680,    .51017,    .04150,    .00865,
     +     .00178,    .03250,    .06157,
     +     .51574,    .23165,    .47705,    .04057,    .00899,
     +     .00245,    .03185,    .05959,
     +     .50837,    .22711,    .44994,    .03971,    .00922,
     +     .00296,    .03123,    .05790,
     +     .50162,    .22299,    .42677,    .03888,    .00939,
     +     .00338,    .03066,    .05640,
     +     .49287,    .21785,    .39938,    .03789,    .00955,
     +     .00383,    .02994,    .05449,
     +     .48460,    .21308,    .37558,    .03695,    .00965,
     +     .00418,    .02923,    .05275,
     +     .47687,    .20870,    .35488,    .03607,    .00971,
     +     .00446,    .02857,    .05117 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .46918,    .20439,    .33562,    .03520,    .00973,
     +     .00470,    .02791,    .04965,
     +     .46161,    .20020,    .31794,    .03434,    .00972,
     +     .00489,    .02727,    .04818,
     +     .45453,    .19632,    .30231,    .03355,    .00970,
     +     .00504,    .02667,    .04682,
     +     .44786,    .19273,    .28846,    .03282,    .00966,
     +     .00517,    .02611,    .04557,
     +     .44118,    .18917,    .27533,    .03209,    .00961,
     +     .00527,    .02554,    .04435,
     +     .43469,    .18572,    .26315,    .03140,    .00954,
     +     .00535,    .02498,    .04319,
     +     .42851,    .18247,    .25218,    .03073,    .00947,
     +     .00541,    .02446,    .04212,
     +     .42276,    .17947,    .24235,    .03010,    .00940,
     +     .00546,    .02398,    .04112 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .41695,    .17646,    .23292,    .02948,    .00932,
     +     .00550,    .02350,    .04015,
     +     .41126,    .17356,    .22406,    .02890,    .00923,
     +     .00552,    .02303,    .03920,
     +     .40589,    .17082,    .21600,    .02834,    .00914,
     +     .00554,    .02259,    .03832,
     +     .40080,    .16824,    .20870,    .02782,    .00905,
     +     .00554,    .02217,    .03750,
     +     .39575,    .16570,    .20163,    .02731,    .00896,
     +     .00554,    .02177,    .03669 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .60067,    .30423,   1.15818,    .03624,    .00000,
     +     .00000,    .02281,    .07695,
     +     .60432,    .30198,   1.09646,    .03729,    .00000,
     +     .00000,    .02427,    .07564,
     +     .60597,    .29746,   1.02961,    .03832,   -.01031,
     +     .00000,    .02596,    .07353,
     +     .60470,    .29346,    .96420,    .03877,   -.00766,
     +     .00000,    .02680,    .07194,
     +     .60195,    .28888,    .89969,    .03902,   -.00531,
     +     .00000,    .02747,    .07016,
     +     .59855,    .28469,    .84754,    .03908,   -.00364,
     +     .00000,    .02787,    .06854,
     +     .59461,    .28048,    .80054,    .03902,   -.00222,
     +     .00000,    .02809,    .06701,
     +     .58978,    .27593,    .75379,    .03882,   -.00088,
     +     .00000,    .02824,    .06538 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58516,    .27192,    .71571,    .03857,    .00015,
     +     .00000,    .02827,    .06396,
     +     .58037,    .26796,    .68095,    .03825,    .00103,
     +     .00000,    .02822,    .06261,
     +     .57631,    .26484,    .65471,    .03799,    .00165,
     +     .00000,    .02813,    .06152,
     +     .56717,    .25814,    .60222,    .03733,    .00280,
     +     .00000,    .02786,    .05922,
     +     .55868,    .25233,    .56678,    .03668,    .00362,
     +    -.00309,    .02754,    .05729,
     +     .54884,    .24584,    .52146,    .03590,    .00438,
     +    -.00182,    .02709,    .05516,
     +     .53832,    .23918,    .47897,    .03502,    .00501,
     +    -.00081,    .02656,    .05299,
     +     .52858,    .23322,    .44399,    .03418,    .00547,
     +    -.00003,    .02603,    .05108 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .51867,    .22730,    .41180,    .03332,    .00585,
     +     .00065,    .02543,    .04922,
     +     .51041,    .22247,    .38722,    .03258,    .00610,
     +     .00112,    .02494,    .04772,
     +     .50031,    .21670,    .35977,    .03169,    .00634,
     +     .00161,    .02432,    .04593,
     +     .49140,    .21169,    .33749,    .03090,    .00650,
     +     .00198,    .02375,    .04440,
     +     .48329,    .20721,    .31857,    .03018,    .00661,
     +     .00228,    .02324,    .04304,
     +     .47295,    .20165,    .29640,    .02929,    .00671,
     +     .00260,    .02257,    .04137,
     +     .46336,    .19649,    .27727,    .02843,    .00676,
     +     .00285,    .02195,    .03987,
     +     .45446,    .19178,    .26075,    .02765,    .00679,
     +     .00304,    .02137,    .03851 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .44568,    .18718,    .24549,    .02689,    .00679,
     +     .00322,    .02078,    .03719,
     +     .43709,    .18276,    .23159,    .02614,    .00677,
     +     .00334,    .02024,    .03595,
     +     .42910,    .17869,    .21937,    .02547,    .00675,
     +     .00345,    .01973,    .03481,
     +     .42161,    .17493,    .20858,    .02484,    .00671,
     +     .00353,    .01924,    .03378,
     +     .41419,    .17122,    .19842,    .02423,    .00665,
     +     .00359,    .01875,    .03277,
     +     .40701,    .16768,    .18905,    .02363,    .00659,
     +     .00364,    .01828,    .03181,
     +     .40024,    .16434,    .18063,    .02307,    .00654,
     +     .00368,    .01787,    .03090,
     +     .39394,    .16124,    .17309,    .02254,    .00648,
     +     .00371,    .01748,    .03009 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .38762,    .15819,    .16592,    .02204,    .00640,
     +     .00372,    .01708,    .02927,
     +     .38146,    .15525,    .15919,    .02156,    .00633,
     +     .00373,    .01670,    .02849,
     +     .37567,    .15247,    .15310,    .02110,    .00626,
     +     .00374,    .01634,    .02778,
     +     .37025,    .14985,    .14758,    .02064,    .00619,
     +     .00375,    .01601,    .02713,
     +     .36489,    .14726,    .14226,    .02020,    .00612,
     +     .00374,    .01568,    .02649 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .62415,    .30604,   1.01238,    .03089,    .00000,
     +     .00000,    .01916,    .06580,
     +     .62450,    .30185,    .94605,    .03164,    .00000,
     +     .00000,    .02034,    .06416,
     +     .62136,    .29484,    .87387,    .03234,   -.00895,
     +     .00000,    .02154,    .06167,
     +     .61684,    .28918,    .80931,    .03255,   -.00672,
     +     .00000,    .02215,    .05986,
     +     .61075,    .28307,    .74712,    .03258,   -.00476,
     +     .00000,    .02257,    .05792,
     +     .60461,    .27766,    .69784,    .03248,   -.00336,
     +     .00000,    .02275,    .05626,
     +     .59814,    .27241,    .65411,    .03228,   -.00220,
     +     .00000,    .02283,    .05467,
     +     .59077,    .26684,    .61121,    .03198,   -.00112,
     +     .00000,    .02281,    .05301 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58405,    .26201,    .57664,    .03167,   -.00029,
     +     .00000,    .02274,    .05158,
     +     .57728,    .25736,    .54541,    .03133,    .00042,
     +     .00000,    .02260,    .05023,
     +     .57175,    .25365,    .52203,    .03101,    .00091,
     +     .00000,    .02247,    .04919,
     +     .55966,    .24590,    .47586,    .03029,    .00182,
     +     .00000,    .02210,    .04702,
     +     .54885,    .23929,    .44463,    .02963,    .00246,
     +    -.00251,    .02173,    .04518,
     +     .53662,    .23201,    .40583,    .02883,    .00304,
     +    -.00153,    .02126,    .04324,
     +     .52377,    .22460,    .36985,    .02798,    .00353,
     +    -.00075,    .02070,    .04128,
     +     .51213,    .21806,    .34052,    .02720,    .00387,
     +    -.00017,    .02018,    .03956 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50045,    .21165,    .31380,    .02637,    .00415,
     +     .00035,    .01963,    .03790,
     +     .49077,    .20644,    .29355,    .02571,    .00434,
     +     .00070,    .01917,    .03656,
     +     .47914,    .20029,    .27110,    .02490,    .00449,
     +     .00106,    .01859,    .03502,
     +     .46895,    .19499,    .25299,    .02421,    .00461,
     +     .00133,    .01809,    .03371,
     +     .45977,    .19026,    .23773,    .02357,    .00469,
     +     .00156,    .01762,    .03255,
     +     .44831,    .18439,    .21997,    .02271,    .00475,
     +     .00178,    .01706,    .03114,
     +     .43758,    .17907,    .20478,    .02200,    .00478,
     +     .00196,    .01651,    .02988,
     +     .42773,    .17421,    .19173,    .02133,    .00479,
     +     .00210,    .01600,    .02874 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .41816,    .16948,    .17971,    .02065,    .00479,
     +     .00222,    .01555,    .02767,
     +     .40885,    .16498,    .16888,    .02001,    .00476,
     +     .00230,    .01507,    .02661,
     +     .40022,    .16084,    .15938,    .01944,    .00473,
     +     .00238,    .01463,    .02567,
     +     .39221,    .15704,    .15103,    .01892,    .00470,
     +     .00243,    .01423,    .02483,
     +     .38429,    .15329,    .14321,    .01839,    .00465,
     +     .00247,    .01383,    .02401,
     +     .37668,    .14972,    .13601,    .01787,    .00460,
     +     .00251,    .01347,    .02323,
     +     .36951,    .14639,    .12960,    .01740,    .00455,
     +     .00253,    .01311,    .02251,
     +     .36287,    .14332,    .12388,    .01697,    .00450,
     +     .00254,    .01278,    .02185 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .35625,    .14029,    .11844,    .01655,    .00444,
     +     .00256,    .01246,    .02122,
     +     .34983,    .13735,    .11336,    .01614,    .00438,
     +     .00256,    .01214,    .02062,
     +     .34380,    .13462,    .10878,    .01576,    .00433,
     +     .00256,    .01186,    .02006,
     +     .33816,    .13205,    .10466,    .01541,    .00427,
     +     .00255,    .01159,    .01954,
     +     .33260,    .12954,    .10067,    .01505,    .00422,
     +     .00255,    .01132,    .01904 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64196,    .30388,    .86730,    .02635,    .00000,
     +     .00000,    .01621,    .05545,
     +     .63835,    .29804,    .80213,    .02695,    .00000,
     +     .00000,    .01700,    .05356,
     +     .62991,    .28876,    .73108,    .02740,   -.00767,
     +     .00000,    .01781,    .05088,
     +     .62177,    .28178,    .67083,    .02753,   -.00581,
     +     .00000,    .01820,    .04889,
     +     .61227,    .27430,    .61362,    .02743,   -.00418,
     +     .00000,    .01837,    .04699,
     +     .60342,    .26782,    .56892,    .02719,   -.00303,
     +     .00000,    .01843,    .04538,
     +     .59447,    .26168,    .52960,    .02692,   -.00207,
     +     .00000,    .01840,    .04386,
     +     .58467,    .25522,    .49148,    .02655,   -.00118,
     +     .00000,    .01830,    .04225 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57595,    .24969,    .46102,    .02620,   -.00051,
     +     .00000,    .01817,    .04092,
     +     .56737,    .24442,    .43373,    .02582,    .00005,
     +     .00000,    .01798,    .03969,
     +     .56046,    .24030,    .41347,    .02549,    .00044,
     +     .00000,    .01781,    .03872,
     +     .54574,    .23168,    .37377,    .02475,    .00117,
     +     .00000,    .01742,    .03673,
     +     .53291,    .22443,    .34687,    .02408,    .00166,
     +    -.00204,    .01704,    .03514,
     +     .51850,    .21661,    .31421,    .02334,    .00212,
     +    -.00128,    .01655,    .03339,
     +     .50366,    .20876,    .28417,    .02254,    .00249,
     +    -.00067,    .01605,    .03168,
     +     .49043,    .20183,    .25996,    .02179,    .00275,
     +    -.00022,    .01558,    .03021 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .47726,    .19508,    .23805,    .02106,    .00296,
     +     .00016,    .01509,    .02878,
     +     .46650,    .18969,    .22156,    .02043,    .00309,
     +     .00042,    .01467,    .02767,
     +     .45368,    .18328,    .20344,    .01969,    .00321,
     +     .00070,    .01416,    .02637,
     +     .44258,    .17781,    .18890,    .01905,    .00329,
     +     .00090,    .01370,    .02529,
     +     .43260,    .17298,    .17671,    .01846,    .00334,
     +     .00106,    .01330,    .02435,
     +     .42016,    .16703,    .16262,    .01779,    .00338,
     +     .00123,    .01282,    .02315,
     +     .40872,    .16165,    .15064,    .01714,    .00340,
     +     .00136,    .01237,    .02210,
     +     .39827,    .15677,    .14043,    .01657,    .00340,
     +     .00146,    .01197,    .02117 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .38810,    .15204,    .13109,    .01599,    .00339,
     +     .00154,    .01157,    .02031,
     +     .37831,    .14756,    .12270,    .01545,    .00337,
     +     .00160,    .01117,    .01948,
     +     .36930,    .14346,    .11539,    .01495,    .00334,
     +     .00165,    .01081,    .01874,
     +     .36099,    .13970,    .10898,    .01450,    .00331,
     +     .00169,    .01049,    .01806,
     +     .35281,    .13602,    .10302,    .01404,    .00327,
     +     .00171,    .01017,    .01742,
     +     .34497,    .13251,    .09754,    .01361,    .00323,
     +     .00173,    .00987,    .01682,
     +     .33761,    .12927,    .09270,    .01322,    .00318,
     +     .00174,    .00957,    .01625,
     +     .33081,    .12631,    .08840,    .01286,    .00315,
     +     .00176,    .00931,    .01572 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .32407,    .12338,    .08430,    .01252,    .00311,
     +     .00176,    .00905,    .01522,
     +     .31756,    .12055,    .08049,    .01219,    .00305,
     +     .00176,    .00882,    .01474,
     +     .31147,    .11792,    .07706,    .01188,    .00301,
     +     .00176,    .00860,    .01431,
     +     .30579,    .11545,    .07399,    .01159,    .00297,
     +     .00175,    .00838,    .01391,
     +     .30018,    .11304,    .07106,    .01129,    .00293,
     +     .00175,    .00818,    .01352 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .65226,    .29979,    .73206,    .02373,    .00000,
     +     .00000,    .01289,    .04496,
     +     .64487,    .29208,    .67102,    .02396,    .00000,
     +     .00000,    .01356,    .04320,
     +     .63126,    .28058,    .60449,    .02398,   -.00655,
     +     .00000,    .01423,    .04066,
     +     .61988,    .27212,    .54996,    .02381,   -.00498,
     +     .00000,    .01448,    .03896,
     +     .60712,    .26342,    .49878,    .02352,   -.00362,
     +     .00000,    .01463,    .03717,
     +     .59566,    .25607,    .45917,    .02322,   -.00267,
     +     .00000,    .01463,    .03568,
     +     .58444,    .24912,    .42470,    .02284,   -.00188,
     +     .00000,    .01454,    .03433,
     +     .57241,    .24190,    .39151,    .02237,   -.00115,
     +     .00000,    .01440,    .03299 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .56191,    .23580,    .36519,    .02193,   -.00061,
     +     .00000,    .01426,    .03185,
     +     .55176,    .23001,    .34182,    .02149,   -.00016,
     +     .00000,    .01407,    .03076,
     +     .54368,    .22556,    .32454,    .02115,    .00016,
     +     .00000,    .01392,    .02990,
     +     .52655,    .21632,    .29098,    .02042,    .00073,
     +     .00000,    .01355,    .02820,
     +     .51193,    .20864,    .26823,    .01974,    .00112,
     +    -.00164,    .01320,    .02684,
     +     .49585,    .20041,    .24108,    .01900,    .00148,
     +    -.00104,    .01278,    .02538,
     +     .47942,    .19221,    .21637,    .01824,    .00176,
     +    -.00058,    .01233,    .02394,
     +     .46489,    .18506,    .19662,    .01755,    .00196,
     +    -.00024,    .01188,    .02274 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45061,    .17817,    .17885,    .01687,    .00212,
     +     .00006,    .01146,    .02157,
     +     .43907,    .17263,    .16561,    .01630,    .00222,
     +     .00026,    .01109,    .02064,
     +     .42532,    .16618,    .15110,    .01563,    .00230,
     +     .00046,    .01070,    .01960,
     +     .41351,    .16071,    .13960,    .01506,    .00235,
     +     .00061,    .01033,    .01871,
     +     .40301,    .15587,    .13001,    .01455,    .00239,
     +     .00073,    .00998,    .01793,
     +     .38995,    .14998,    .11898,    .01395,    .00241,
     +     .00085,    .00959,    .01700,
     +     .37807,    .14461,    .10966,    .01339,    .00243,
     +     .00095,    .00921,    .01618,
     +     .36728,    .13980,    .10179,    .01287,    .00242,
     +     .00102,    .00886,    .01544 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .35680,    .13523,    .09460,    .01240,    .00241,
     +     .00107,    .00854,    .01472,
     +     .34679,    .13084,    .08819,    .01193,    .00239,
     +     .00111,    .00823,    .01408,
     +     .33760,    .12685,    .08265,    .01151,    .00237,
     +     .00115,    .00794,    .01350,
     +     .32916,    .12322,    .07784,    .01112,    .00233,
     +     .00117,    .00767,    .01299,
     +     .32089,    .11968,    .07333,    .01075,    .00231,
     +     .00119,    .00741,    .01249,
     +     .31298,    .11632,    .06921,    .01040,    .00227,
     +     .00120,    .00717,    .01202,
     +     .30563,    .11321,    .06558,    .01007,    .00224,
     +     .00121,    .00695,    .01159,
     +     .29887,    .11036,    .06238,    .00976,    .00221,
     +     .00122,    .00674,    .01120 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .29215,    .10756,    .05936,    .00948,    .00217,
     +     .00122,    .00655,    .01081,
     +     .28565,    .10488,    .05657,    .00921,    .00213,
     +     .00121,    .00636,    .01046,
     +     .27962,    .10239,    .05406,    .00896,    .00211,
     +     .00122,    .00617,    .01012,
     +     .27402,    .10008,    .05180,    .00871,    .00207,
     +     .00121,    .00601,    .00981,
     +     .26851,    .09782,    .04964,    .00847,    .00204,
     +     .00121,    .00584,    .00951 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .65778,    .29165,    .60905,    .02037,    .00000,
     +     .00000,    .01058,    .03623,
     +     .64622,    .28243,    .55382,    .02046,    .00000,
     +     .00000,    .01108,    .03456,
     +     .62721,    .26911,    .49369,    .02038,   -.00557,
     +     .00000,    .01156,    .03218,
     +     .61235,    .25970,    .44546,    .02015,   -.00426,
     +     .00000,    .01168,    .03062,
     +     .59644,    .24998,    .40065,    .01978,   -.00312,
     +     .00000,    .01172,    .02906,
     +     .58255,    .24187,    .36631,    .01936,   -.00233,
     +     .00000,    .01166,    .02782,
     +     .56918,    .23436,    .33666,    .01895,   -.00168,
     +     .00000,    .01158,    .02662,
     +     .55502,    .22668,    .30825,    .01853,   -.00109,
     +     .00000,    .01142,    .02541 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54282,    .22022,    .28594,    .01814,   -.00065,
     +     .00000,    .01124,    .02440,
     +     .53120,    .21414,    .26621,    .01772,   -.00029,
     +     .00000,    .01105,    .02350,
     +     .52211,    .20939,    .25170,    .01736,   -.00004,
     +     .00000,    .01090,    .02282,
     +     .50302,    .19973,    .22380,    .01664,    .00042,
     +     .00000,    .01054,    .02140,
     +     .48690,    .19190,    .20481,    .01603,    .00074,
     +    -.00131,    .01023,    .02022,
     +     .46943,    .18345,    .18256,    .01532,    .00102,
     +    -.00085,    .00987,    .01902,
     +     .45184,    .17510,    .16249,    .01460,    .00123,
     +    -.00050,    .00945,    .01790,
     +     .43635,    .16794,    .14658,    .01398,    .00139,
     +    -.00023,    .00907,    .01692 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42120,    .16104,    .13241,    .01340,    .00150,
     +    -.00001,    .00872,    .01594,
     +     .40908,    .15551,    .12193,    .01288,    .00157,
     +     .00014,    .00842,    .01525,
     +     .39474,    .14918,    .11054,    .01232,    .00163,
     +     .00029,    .00807,    .01438,
     +     .38249,    .14381,    .10155,    .01185,    .00167,
     +     .00040,    .00776,    .01366,
     +     .37165,    .13907,    .09410,    .01144,    .00170,
     +     .00049,    .00747,    .01304,
     +     .35840,    .13328,    .08561,    .01084,    .00171,
     +     .00058,    .00714,    .01234,
     +     .34627,    .12811,    .07849,    .01037,    .00172,
     +     .00065,    .00683,    .01171,
     +     .33533,    .12348,    .07250,    .00995,    .00171,
     +     .00070,    .00655,    .01115 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .32479,    .11904,    .06709,    .00953,    .00171,
     +     .00074,    .00628,    .01060,
     +     .31473,    .11488,    .06228,    .00916,    .00169,
     +     .00077,    .00604,    .01010,
     +     .30558,    .11110,    .05814,    .00882,    .00166,
     +     .00079,    .00583,    .00963,
     +     .29724,    .10763,    .05455,    .00849,    .00165,
     +     .00082,    .00563,    .00923,
     +     .28905,    .10429,    .05124,    .00819,    .00162,
     +     .00082,    .00542,    .00884,
     +     .28124,    .10114,    .04825,    .00791,    .00159,
     +     .00083,    .00522,    .00848,
     +     .27400,    .09821,    .04561,    .00763,    .00157,
     +     .00084,    .00503,    .00815,
     +     .26737,    .09555,    .04325,    .00739,    .00155,
     +     .00084,    .00487,    .00786 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .26082,    .09294,    .04105,    .00714,    .00152,
     +     .00084,    .00472,    .00758,
     +     .25454,    .09043,    .03903,    .00693,    .00149,
     +     .00084,    .00457,    .00732,
     +     .24869,    .08810,    .03722,    .00672,    .00147,
     +     .00084,    .00443,    .00707,
     +     .24326,    .08596,    .03560,    .00653,    .00144,
     +     .00083,    .00431,    .00685,
     +     .23793,    .08387,    .03405,    .00634,    .00141,
     +     .00082,    .00419,    .00663 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .65672,    .28159,    .50026,    .01786,    .00000,
     +     .00000,    .00832,    .02817,
     +     .64112,    .27108,    .45121,    .01780,    .00000,
     +     .00000,    .00874,    .02673,
     +     .61712,    .25609,    .39815,    .01745,   -.00473,
     +     .00000,    .00905,    .02482,
     +     .59921,    .24566,    .35615,    .01711,   -.00363,
     +     .00000,    .00919,    .02352,
     +     .58040,    .23523,    .31750,    .01665,   -.00267,
     +     .00000,    .00920,    .02222,
     +     .56424,    .22662,    .28810,    .01624,   -.00202,
     +     .00000,    .00916,    .02115,
     +     .54899,    .21866,    .26291,    .01584,   -.00148,
     +     .00000,    .00902,    .02017,
     +     .53313,    .21055,    .23900,    .01538,   -.00100,
     +     .00000,    .00886,    .01920 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51959,    .20380,    .22028,    .01495,   -.00064,
     +     .00000,    .00872,    .01840,
     +     .50677,    .19752,    .20388,    .01457,   -.00034,
     +     .00000,    .00857,    .01763,
     +     .49676,    .19273,    .19192,    .01425,   -.00015,
     +     .00000,    .00843,    .01705,
     +     .47611,    .18291,    .16900,    .01353,    .00023,
     +     .00000,    .00813,    .01592,
     +     .45894,    .17489,    .15350,    .01294,    .00047,
     +    -.00105,    .00783,    .01504,
     +     .44035,    .16645,    .13556,    .01231,    .00068,
     +    -.00070,    .00747,    .01411,
     +     .42187,    .15818,    .11955,    .01166,    .00085,
     +    -.00042,    .00714,    .01319,
     +     .40580,    .15108,    .10696,    .01111,    .00097,
     +    -.00021,    .00685,    .01238 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39020,    .14431,    .09586,    .01058,    .00106,
     +    -.00005,    .00656,    .01161,
     +     .37772,    .13897,    .08770,    .01015,    .00111,
     +     .00007,    .00629,    .01105,
     +     .36314,    .13277,    .07888,    .00965,    .00117,
     +     .00019,    .00602,    .01039,
     +     .35074,    .12755,    .07202,    .00922,    .00119,
     +     .00027,    .00577,    .00987,
     +     .33982,    .12297,    .06638,    .00883,    .00121,
     +     .00034,    .00555,    .00942,
     +     .32642,    .11748,    .05999,    .00841,    .00121,
     +     .00039,    .00527,    .00882,
     +     .31434,    .11256,    .05467,    .00801,    .00122,
     +     .00044,    .00502,    .00833,
     +     .30349,    .10816,    .05024,    .00765,    .00121,
     +     .00048,    .00480,    .00790 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .29310,    .10399,    .04624,    .00731,    .00120,
     +     .00051,    .00461,    .00747,
     +     .28323,    .10004,    .04274,    .00698,    .00118,
     +     .00053,    .00440,    .00712,
     +     .27426,    .09648,    .03973,    .00669,    .00117,
     +     .00055,    .00420,    .00680,
     +     .26606,    .09326,    .03715,    .00645,    .00116,
     +     .00056,    .00404,    .00648,
     +     .25812,    .09014,    .03478,    .00619,    .00113,
     +     .00057,    .00390,    .00621,
     +     .25058,    .08719,    .03264,    .00592,    .00112,
     +     .00058,    .00375,    .00594,
     +     .24359,    .08449,    .03077,    .00572,    .00110,
     +     .00058,    .00361,    .00569,
     +     .23718,    .08203,    .02911,    .00555,    .00108,
     +     .00058,    .00350,    .00547 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .23090,    .07961,    .02757,    .00536,    .00105,
     +     .00057,    .00337,    .00527,
     +     .22489,    .07732,    .02615,    .00515,    .00104,
     +     .00057,    .00325,    .00508,
     +     .21931,    .07519,    .02490,    .00498,    .00102,
     +     .00057,    .00315,    .00491,
     +     .21413,    .07324,    .02376,    .00484,    .00100,
     +     .00057,    .00306,    .00471,
     +     .20905,    .07134,    .02269,    .00469,    .00098,
     +     .00057,    .00297,    .00455 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .65012,    .26915,    .40483,    .01531,    .00000,
     +     .00000,    .00643,    .02143,
     +     .63069,    .25748,    .36204,    .01513,    .00000,
     +     .00000,    .00680,    .02027,
     +     .60185,    .24132,    .31587,    .01475,   -.00401,
     +     .00000,    .00710,    .01867,
     +     .58109,    .23026,    .27986,    .01433,   -.00308,
     +     .00000,    .00716,    .01765,
     +     .55972,    .21922,    .24690,    .01389,   -.00228,
     +     .00000,    .00715,    .01666,
     +     .54167,    .21022,    .22217,    .01346,   -.00173,
     +     .00000,    .00704,    .01585,
     +     .52481,    .20203,    .20115,    .01301,   -.00130,
     +     .00000,    .00696,    .01507,
     +     .50749,    .19375,    .18129,    .01254,   -.00089,
     +     .00000,    .00686,    .01425 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49288,    .18690,    .16590,    .01215,   -.00060,
     +     .00000,    .00672,    .01360,
     +     .47910,    .18054,    .15251,    .01176,   -.00037,
     +     .00000,    .00657,    .01306,
     +     .46845,    .17567,    .14281,    .01146,   -.00021,
     +     .00000,    .00646,    .01260,
     +     .44655,    .16587,    .12430,    .01086,    .00009,
     +     .00000,    .00618,    .01168,
     +     .42856,    .15799,    .11196,    .01035,    .00028,
     +    -.00084,    .00592,    .01098,
     +     .40934,    .14970,    .09777,    .00978,    .00045,
     +    -.00056,    .00567,    .01024,
     +     .39031,    .14160,    .08522,    .00924,    .00058,
     +    -.00035,    .00538,    .00954,
     +     .37389,    .13469,    .07550,    .00876,    .00067,
     +    -.00019,    .00514,    .00894 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35811,    .12815,    .06701,    .00828,    .00074,
     +    -.00006,    .00487,    .00838,
     +     .34559,    .12298,    .06085,    .00791,    .00078,
     +     .00003,    .00468,    .00794,
     +     .33095,    .11709,    .05427,    .00750,    .00082,
     +     .00011,    .00444,    .00740,
     +     .31863,    .11214,    .04915,    .00715,    .00084,
     +     .00017,    .00425,    .00699,
     +     .30784,    .10782,    .04500,    .00683,    .00084,
     +     .00022,    .00406,    .00667,
     +     .29461,    .10263,    .04034,    .00646,    .00085,
     +     .00027,    .00384,    .00623,
     +     .28279,    .09800,    .03653,    .00611,    .00085,
     +     .00030,    .00365,    .00586,
     +     .27222,    .09387,    .03334,    .00581,    .00085,
     +     .00033,    .00349,    .00554 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26212,    .08997,    .03051,    .00552,    .00085,
     +     .00036,    .00333,    .00524,
     +     .25257,    .08632,    .02806,    .00527,    .00083,
     +     .00036,    .00317,    .00496,
     +     .24392,    .08303,    .02595,    .00505,    .00082,
     +     .00038,    .00304,    .00471,
     +     .23608,    .08006,    .02417,    .00482,    .00081,
     +     .00038,    .00292,    .00450,
     +     .22844,    .07721,    .02253,    .00464,    .00079,
     +     .00039,    .00281,    .00429,
     +     .22120,    .07450,    .02107,    .00446,    .00078,
     +     .00039,    .00269,    .00411,
     +     .21456,    .07204,    .01979,    .00429,    .00077,
     +     .00040,    .00259,    .00394,
     +     .20851,    .06981,    .01871,    .00411,    .00074,
     +     .00039,    .00249,    .00377 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .20259,    .06762,    .01767,    .00395,    .00073,
     +     .00039,    .00239,    .00361,
     +     .19692,    .06554,    .01673,    .00381,    .00072,
     +     .00040,    .00229,    .00347,
     +     .19168,    .06362,    .01589,    .00368,    .00070,
     +     .00039,    .00222,    .00333,
     +     .18683,    .06185,    .01515,    .00355,    .00070,
     +     .00039,    .00214,    .00323,
     +     .18209,    .06012,    .01445,    .00343,    .00068,
     +     .00039,    .00207,    .00310 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .63798,    .25480,    .32131,    .01272,    .00000,
     +     .00000,    .00496,    .01597,
     +     .61495,    .24227,    .28450,    .01251,    .00000,
     +     .00000,    .00524,    .01511,
     +     .58183,    .22517,    .24507,    .01207,   -.00338,
     +     .00000,    .00549,    .01392,
     +     .55857,    .21365,    .21456,    .01171,   -.00260,
     +     .00000,    .00556,    .01313,
     +     .53491,    .20239,    .18707,    .01132,   -.00193,
     +     .00000,    .00556,    .01225,
     +     .51543,    .19317,    .16658,    .01085,   -.00148,
     +     .00000,    .00552,    .01163,
     +     .49727,    .18490,    .14928,    .01049,   -.00112,
     +     .00000,    .00540,    .01106,
     +     .47870,    .17662,    .13321,    .01010,   -.00078,
     +     .00000,    .00526,    .01045 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .46322,    .16980,    .12088,    .00972,   -.00055,
     +     .00000,    .00515,    .00993,
     +     .44882,    .16344,    .11019,    .00935,   -.00036,
     +     .00000,    .00505,    .00950,
     +     .43773,    .15863,    .10247,    .00909,   -.00023,
     +     .00000,    .00492,    .00918,
     +     .41512,    .14899,    .08795,    .00852,    .00000,
     +     .00000,    .00471,    .00849,
     +     .39668,    .14129,    .07838,    .00811,    .00015,
     +    -.00066,    .00453,    .00789,
     +     .37712,    .13326,    .06749,    .00765,    .00029,
     +    -.00045,    .00426,    .00735,
     +     .35797,    .12549,    .05798,    .00714,    .00039,
     +    -.00029,    .00403,    .00682,
     +     .34153,    .11893,    .05071,    .00672,    .00046,
     +    -.00016,    .00383,    .00635 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32576,    .11271,    .04442,    .00636,    .00051,
     +    -.00007,    .00363,    .00591,
     +     .31338,    .10782,    .03993,    .00601,    .00054,
     +     .00000,    .00347,    .00565,
     +     .29897,    .10227,    .03522,    .00569,    .00056,
     +     .00006,    .00326,    .00525,
     +     .28689,    .09764,    .03158,    .00540,    .00057,
     +     .00010,    .00311,    .00493,
     +     .27636,    .09361,    .02866,    .00513,    .00059,
     +     .00014,    .00297,    .00467,
     +     .26357,    .08877,    .02541,    .00484,    .00059,
     +     .00018,    .00280,    .00436,
     +     .25216,    .08449,    .02280,    .00456,    .00059,
     +     .00021,    .00265,    .00408,
     +     .24198,    .08070,    .02065,    .00432,    .00059,
     +     .00023,    .00251,    .00385 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23228,    .07710,    .01875,    .00410,    .00059,
     +     .00025,    .00239,    .00363,
     +     .22318,    .07379,    .01712,    .00390,    .00058,
     +     .00026,    .00227,    .00343,
     +     .21496,    .07081,    .01574,    .00371,    .00057,
     +     .00027,    .00217,    .00324,
     +     .20755,    .06811,    .01459,    .00354,    .00056,
     +     .00028,    .00207,    .00309,
     +     .20038,    .06552,    .01356,    .00337,    .00055,
     +     .00028,    .00197,    .00294,
     +     .19359,    .06308,    .01262,    .00322,    .00053,
     +     .00028,    .00189,    .00279,
     +     .18736,    .06087,    .01182,    .00309,    .00053,
     +     .00028,    .00181,    .00267,
     +     .18168,    .05885,    .01114,    .00298,    .00052,
     +     .00029,    .00174,    .00256 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .17613,    .05690,    .01050,    .00288,    .00051,
     +     .00028,    .00168,    .00244,
     +     .17086,    .05503,    .00989,    .00278,    .00049,
     +     .00028,    .00161,    .00236,
     +     .16598,    .05332,    .00939,    .00268,    .00049,
     +     .00028,    .00156,    .00225,
     +     .16148,    .05176,    .00894,    .00259,    .00048,
     +     .00028,    .00151,    .00216,
     +     .15710,    .05023,    .00851,    .00251,    .00046,
     +     .00028,    .00145,    .00207 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .62032,    .23939,    .24845,    .01078,    .00000,
     +     .00000,    .00350,    .01132,
     +     .59415,    .22619,    .21715,    .01050,    .00000,
     +     .00000,    .00383,    .01078,
     +     .55735,    .20851,    .18418,    .01002,   -.00283,
     +     .00000,    .00409,    .00989,
     +     .53218,    .19671,    .15887,    .00957,   -.00217,
     +     .00000,    .00416,    .00940,
     +     .50677,    .18535,    .13632,    .00920,   -.00162,
     +     .00000,    .00412,    .00882,
     +     .48602,    .17611,    .11979,    .00878,   -.00124,
     +     .00000,    .00408,    .00836,
     +     .46694,    .16787,    .10599,    .00844,   -.00095,
     +     .00000,    .00401,    .00790,
     +     .44760,    .15965,    .09328,    .00806,   -.00067,
     +     .00000,    .00392,    .00747 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .43156,    .15292,    .08360,    .00772,   -.00049,
     +     .00000,    .00384,    .00714,
     +     .41674,    .14680,    .07537,    .00743,   -.00033,
     +     .00000,    .00375,    .00676,
     +     .40539,    .14211,    .06953,    .00718,   -.00023,
     +     .00000,    .00365,    .00650,
     +     .38236,    .13277,    .05861,    .00672,   -.00005,
     +     .00000,    .00346,    .00597,
     +     .36382,    .12542,    .05145,    .00635,    .00007,
     +    -.00051,    .00330,    .00555,
     +     .34432,    .11775,    .04336,    .00593,    .00018,
     +    -.00035,    .00313,    .00514,
     +     .32534,    .11036,    .03648,    .00551,    .00025,
     +    -.00023,    .00294,    .00477,
     +     .30911,    .10413,    .03131,    .00516,    .00031,
     +    -.00014,    .00277,    .00445 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29377,    .09832,    .02690,    .00480,    .00034,
     +    -.00007,    .00262,    .00416,
     +     .28159,    .09380,    .02381,    .00460,    .00036,
     +    -.00002,    .00250,    .00387,
     +     .26770,    .08862,    .02060,    .00431,    .00039,
     +     .00003,    .00236,    .00358,
     +     .25604,    .08434,    .01819,    .00408,    .00039,
     +     .00006,    .00223,    .00337,
     +     .24588,    .08062,    .01626,    .00388,    .00040,
     +     .00009,    .00212,    .00321,
     +     .23371,    .07618,    .01418,    .00360,    .00041,
     +     .00012,    .00199,    .00299,
     +     .22284,    .07226,    .01252,    .00338,    .00041,
     +     .00013,    .00188,    .00280,
     +     .21320,    .06882,    .01120,    .00320,    .00041,
     +     .00015,    .00178,    .00262 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20405,    .06560,    .01007,    .00303,    .00041,
     +     .00016,    .00168,    .00244,
     +     .19547,    .06258,    .00910,    .00288,    .00040,
     +     .00017,    .00159,    .00230,
     +     .18778,    .05988,    .00829,    .00274,    .00040,
     +     .00018,    .00152,    .00219,
     +     .18087,    .05744,    .00761,    .00260,    .00039,
     +     .00018,    .00145,    .00209,
     +     .17421,    .05513,    .00701,    .00247,    .00038,
     +     .00019,    .00138,    .00198,
     +     .16793,    .05297,    .00649,    .00236,    .00037,
     +     .00019,    .00132,    .00188,
     +     .16217,    .05099,    .00604,    .00226,    .00037,
     +     .00020,    .00126,    .00179,
     +     .15694,    .04920,    .00566,    .00218,    .00036,
     +     .00020,    .00122,    .00171 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15182,    .04747,    .00533,    .00209,    .00035,
     +     .00020,    .00117,    .00162,
     +     .14697,    .04584,    .00503,    .00201,    .00035,
     +     .00021,    .00112,    .00154,
     +     .14251,    .04434,    .00476,    .00193,    .00034,
     +     .00021,    .00107,    .00149,
     +     .13842,    .04296,    .00453,    .00185,    .00034,
     +     .00021,    .00103,    .00143,
     +     .13444,    .04161,    .00432,    .00177,    .00033,
     +     .00021,    .00098,    .00137 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .59795,    .22275,    .18432,    .00887,    .00000,
     +     .00000,    .00241,    .00780,
     +     .56911,    .20925,    .15849,    .00862,    .00000,
     +     .00000,    .00265,    .00745,
     +     .52941,    .19132,    .13161,    .00811,   -.00234,
     +     .00000,    .00289,    .00695,
     +     .50242,    .17962,    .11124,    .00780,   -.00179,
     +     .00000,    .00297,    .00651,
     +     .47583,    .16830,    .09323,    .00745,   -.00134,
     +     .00000,    .00299,    .00611,
     +     .45417,    .15927,    .08036,    .00710,   -.00103,
     +     .00000,    .00294,    .00580,
     +     .43454,    .15117,    .06974,    .00676,   -.00079,
     +     .00000,    .00293,    .00546,
     +     .41484,    .14315,    .06014,    .00642,   -.00057,
     +     .00000,    .00286,    .00513 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39856,    .13663,    .05299,    .00615,   -.00043,
     +     .00000,    .00276,    .00487,
     +     .38355,    .13072,    .04689,    .00590,   -.00030,
     +     .00000,    .00268,    .00465,
     +     .37214,    .12627,    .04260,    .00569,   -.00022,
     +     .00000,    .00261,    .00447,
     +     .34915,    .11738,    .03479,    .00528,   -.00007,
     +     .00000,    .00247,    .00410,
     +     .33078,    .11040,    .02979,    .00496,    .00003,
     +    -.00039,    .00235,    .00381,
     +     .31158,    .10318,    .02416,    .00463,    .00011,
     +    -.00027,    .00223,    .00351,
     +     .29298,    .09628,    .01953,    .00430,    .00017,
     +    -.00018,    .00208,    .00320,
     +     .27729,    .09050,    .01612,    .00402,    .00021,
     +    -.00011,    .00194,    .00298 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26248,    .08509,    .01330,    .00373,    .00024,
     +    -.00006,    .00182,    .00279,
     +     .25087,    .08090,    .01137,    .00351,    .00025,
     +    -.00003,    .00173,    .00262,
     +     .23756,    .07616,    .00941,    .00329,    .00027,
     +     .00001,    .00164,    .00242,
     +     .22648,    .07224,    .00801,    .00310,    .00028,
     +     .00003,    .00154,    .00227,
     +     .21689,    .06887,    .00695,    .00291,    .00029,
     +     .00004,    .00146,    .00212,
     +     .20538,    .06483,    .00580,    .00272,    .00029,
     +     .00006,    .00136,    .00197,
     +     .19513,    .06131,    .00493,    .00257,    .00029,
     +     .00007,    .00127,    .00183,
     +     .18615,    .05824,    .00424,    .00242,    .00029,
     +     .00008,    .00121,    .00171 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17770,    .05533,    .00369,    .00223,    .00029,
     +     .00009,    .00114,    .00162,
     +     .16975,    .05265,    .00321,    .00212,    .00030,
     +     .00010,    .00107,    .00151,
     +     .16263,    .05025,    .00285,    .00202,    .00029,
     +     .00010,    .00102,    .00143,
     +     .15622,    .04811,    .00258,    .00191,    .00029,
     +     .00011,    .00096,    .00135,
     +     .15008,    .04605,    .00233,    .00182,    .00028,
     +     .00011,    .00092,    .00128,
     +     .14433,    .04412,    .00209,    .00174,    .00029,
     +     .00012,    .00087,    .00121,
     +     .13908,    .04238,    .00194,    .00165,    .00028,
     +     .00012,    .00084,    .00115,
     +     .13434,    .04081,    .00180,    .00157,    .00027,
     +     .00012,    .00081,    .00110 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .12970,    .03929,    .00168,    .00151,    .00028,
     +     .00013,    .00078,    .00105,
     +     .12531,    .03785,    .00159,    .00144,    .00027,
     +     .00013,    .00074,    .00101,
     +     .12128,    .03654,    .00150,    .00140,    .00027,
     +     .00013,    .00071,    .00096,
     +     .11756,    .03534,    .00144,    .00134,    .00026,
     +     .00013,    .00067,    .00092,
     +     .11397,    .03419,    .00138,    .00129,    .00026,
     +     .00013,    .00064,    .00089 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .57122,    .20502,    .12824,    .00690,    .00000,
     +     .00000,    .00161,    .00531,
     +     .54018,    .19149,    .10747,    .00672,    .00000,
     +     .00000,    .00190,    .00507,
     +     .49804,    .17371,    .08642,    .00637,   -.00190,
     +     .00000,    .00210,    .00475,
     +     .47010,    .16219,    .07060,    .00608,   -.00146,
     +     .00000,    .00218,    .00446,
     +     .44266,    .15109,    .05711,    .00570,   -.00109,
     +     .00000,    .00220,    .00423,
     +     .42055,    .14236,    .04748,    .00548,   -.00084,
     +     .00000,    .00216,    .00399,
     +     .40063,    .13457,    .03983,    .00520,   -.00065,
     +     .00000,    .00209,    .00377,
     +     .38081,    .12690,    .03296,    .00491,   -.00047,
     +     .00000,    .00207,    .00355 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .36459,    .12067,    .02799,    .00468,   -.00036,
     +     .00000,    .00202,    .00337,
     +     .34963,    .11504,    .02387,    .00447,   -.00025,
     +     .00000,    .00194,    .00319,
     +     .33834,    .11084,    .02104,    .00432,   -.00020,
     +     .00000,    .00189,    .00306,
     +     .31576,    .10249,    .01593,    .00396,   -.00007,
     +     .00000,    .00179,    .00282,
     +     .29786,    .09597,    .01284,    .00367,   -.00001,
     +    -.00030,    .00169,    .00264,
     +     .27928,    .08927,    .00934,    .00336,    .00005,
     +    -.00021,    .00160,    .00242,
     +     .26141,    .08291,    .00655,    .00308,    .00010,
     +    -.00014,    .00150,    .00222,
     +     .24637,    .07761,    .00463,    .00287,    .00014,
     +    -.00009,    .00140,    .00206 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23222,    .07268,    .00313,    .00267,    .00017,
     +    -.00005,    .00129,    .00189,
     +     .22121,    .06888,    .00217,    .00249,    .00019,
     +    -.00003,    .00124,    .00177,
     +     .20869,    .06460,    .00125,    .00230,    .00021,
     +    -.00001,    .00114,    .00164,
     +     .19829,    .06107,    .00061,    .00217,    .00021,
     +     .00000,    .00108,    .00154,
     +     .18928,    .05807,    .00016,    .00208,    .00022,
     +     .00001,    .00102,    .00144,
     +     .17862,    .05446,   -.00025,    .00189,    .00024,
     +     .00003,    .00096,    .00133,
     +     .16918,    .05135,   -.00050,    .00177,    .00023,
     +     .00003,    .00089,    .00124,
     +     .16085,    .04860,   -.00068,    .00166,    .00024,
     +     .00004,    .00083,    .00115 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15303,    .04604,   -.00082,    .00158,    .00024,
     +     .00005,    .00079,    .00108,
     +     .14582,    .04366,   -.00089,    .00147,    .00023,
     +     .00005,    .00075,    .00101,
     +     .13935,    .04156,   -.00091,    .00138,    .00023,
     +     .00006,    .00072,    .00095,
     +     .13353,    .03968,   -.00093,    .00132,    .00023,
     +     .00006,    .00068,    .00090,
     +     .12796,    .03790,   -.00090,    .00125,    .00022,
     +     .00006,    .00065,    .00084,
     +     .12274,    .03625,   -.00087,    .00117,    .00023,
     +     .00007,    .00060,    .00078,
     +     .11802,    .03474,   -.00084,    .00110,    .00023,
     +     .00007,    .00058,    .00075,
     +     .11376,    .03337,   -.00078,    .00105,    .00022,
     +     .00007,    .00054,    .00072 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .10962,    .03207,   -.00075,    .00100,    .00022,
     +     .00007,    .00052,    .00068,
     +     .10568,    .03084,   -.00071,    .00097,    .00021,
     +     .00007,    .00051,    .00065,
     +     .10208,    .02972,   -.00068,    .00094,    .00022,
     +     .00008,    .00049,    .00062,
     +     .09879,    .02868,   -.00062,    .00089,    .00022,
     +     .00008,    .00046,    .00060,
     +     .09559,    .02768,   -.00058,    .00085,    .00022,
     +     .00008,    .00045,    .00058 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .54059,    .18685,    .07915,    .00524,    .00000,
     +     .00000,    .00117,    .00342,
     +     .50790,    .17337,    .06346,    .00504,    .00000,
     +     .00000,    .00142,    .00337,
     +     .46421,    .15587,    .04832,    .00476,   -.00153,
     +     .00000,    .00158,    .00320,
     +     .43558,    .14472,    .03680,    .00447,   -.00116,
     +     .00000,    .00162,    .00309,
     +     .40792,    .13409,    .02727,    .00413,   -.00087,
     +     .00000,    .00165,    .00297,
     +     .38574,    .12569,    .02084,    .00389,   -.00067,
     +     .00000,    .00163,    .00279,
     +     .36587,    .11830,    .01574,    .00368,   -.00051,
     +     .00000,    .00162,    .00267,
     +     .34619,    .11109,    .01144,    .00345,   -.00039,
     +     .00000,    .00156,    .00253 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .33018,    .10531,    .00842,    .00323,   -.00029,
     +     .00000,    .00151,    .00239,
     +     .31557,    .10003,    .00603,    .00306,   -.00022,
     +     .00000,    .00149,    .00227,
     +     .30453,    .09612,    .00441,    .00296,   -.00017,
     +     .00000,    .00145,    .00218,
     +     .28265,    .08841,    .00167,    .00273,   -.00009,
     +     .00000,    .00138,    .00197,
     +     .26549,    .08240,    .00017,    .00250,   -.00003,
     +    -.00022,    .00128,    .00185,
     +     .24768,    .07632,   -.00156,    .00232,    .00001,
     +    -.00016,    .00117,    .00168,
     +     .23067,    .07055,   -.00281,    .00213,    .00005,
     +    -.00011,    .00110,    .00152,
     +     .21647,    .06578,   -.00356,    .00197,    .00008,
     +    -.00007,    .00104,    .00139 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20320,    .06134,   -.00403,    .00183,    .00010,
     +    -.00005,    .00095,    .00131,
     +     .19293,    .05795,   -.00428,    .00172,    .00011,
     +    -.00004,    .00090,    .00123,
     +     .18129,    .05415,   -.00442,    .00159,    .00013,
     +    -.00002,    .00084,    .00113,
     +     .17172,    .05101,   -.00441,    .00148,    .00014,
     +    -.00001,    .00078,    .00104,
     +     .16348,    .04832,   -.00437,    .00138,    .00015,
     +     .00000,    .00075,    .00097,
     +     .15362,    .04517,   -.00422,    .00126,    .00015,
     +     .00000,    .00069,    .00090,
     +     .14500,    .04244,   -.00406,    .00118,    .00016,
     +     .00001,    .00065,    .00084,
     +     .13745,    .04004,   -.00388,    .00109,    .00017,
     +     .00002,    .00060,    .00080 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13038,    .03781,   -.00367,    .00100,    .00017,
     +     .00002,    .00057,    .00075,
     +     .12384,    .03577,   -.00345,    .00095,    .00017,
     +     .00002,    .00052,    .00068,
     +     .11799,    .03397,   -.00326,    .00089,    .00018,
     +     .00003,    .00048,    .00064,
     +     .11280,    .03235,   -.00309,    .00085,    .00018,
     +     .00003,    .00047,    .00061,
     +     .10781,    .03082,   -.00290,    .00080,    .00018,
     +     .00003,    .00045,    .00057,
     +     .10315,    .02940,   -.00272,    .00078,    .00018,
     +     .00003,    .00041,    .00053,
     +     .09897,    .02811,   -.00256,    .00073,    .00019,
     +     .00004,    .00040,    .00050,
     +     .09519,    .02695,   -.00240,    .00069,    .00019,
     +     .00004,    .00039,    .00047 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09154,    .02584,   -.00226,    .00065,    .00019,
     +     .00004,    .00037,    .00045,
     +     .08808,    .02480,   -.00212,    .00062,    .00019,
     +     .00004,    .00034,    .00044,
     +     .08491,    .02384,   -.00198,    .00059,    .00019,
     +     .00004,    .00033,    .00041,
     +     .08202,    .02297,   -.00186,    .00056,    .00019,
     +     .00004,    .00032,    .00040,
     +     .07922,    .02214,   -.00175,    .00054,    .00019,
     +     .00004,    .00031,    .00038 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .50684,    .16946,    .03629,    .00446,    .00000,
     +     .00000,    .00038,    .00188,
     +     .47324,    .15630,    .02546,    .00422,    .00000,
     +     .00000,    .00067,    .00191,
     +     .42889,    .13933,    .01584,    .00390,   -.00120,
     +     .00000,    .00087,    .00192,
     +     .40016,    .12862,    .00839,    .00366,   -.00091,
     +     .00000,    .00096,    .00186,
     +     .37261,    .11850,    .00260,    .00339,   -.00068,
     +     .00000,    .00099,    .00175,
     +     .35060,    .11064,   -.00113,    .00323,   -.00052,
     +     .00000,    .00100,    .00169,
     +     .33119,    .10372,   -.00377,    .00299,   -.00041,
     +     .00000,    .00102,    .00157,
     +     .31202,    .09698,   -.00586,    .00279,   -.00031,
     +     .00000,    .00098,    .00149 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .29643,    .09158,   -.00719,    .00266,   -.00024,
     +     .00000,    .00094,    .00143,
     +     .28237,    .08672,   -.00818,    .00255,   -.00018,
     +     .00000,    .00093,    .00135,
     +     .27182,    .08309,   -.00869,    .00240,   -.00014,
     +     .00000,    .00090,    .00130,
     +     .25093,    .07602,   -.00935,    .00215,   -.00008,
     +     .00000,    .00083,    .00118,
     +     .23460,    .07056,   -.00952,    .00198,   -.00004,
     +    -.00016,    .00077,    .00110,
     +     .21789,    .06501,   -.00984,    .00178,   -.00001,
     +    -.00012,    .00070,    .00104,
     +     .20201,    .05983,   -.00980,    .00163,    .00002,
     +    -.00009,    .00066,    .00092,
     +     .18879,    .05556,   -.00963,    .00152,    .00004,
     +    -.00007,    .00063,    .00084 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .17655,    .05161,   -.00931,    .00138,    .00006,
     +    -.00005,    .00059,    .00080,
     +     .16709,    .04862,   -.00894,    .00129,    .00007,
     +    -.00004,    .00055,    .00071,
     +     .15637,    .04524,   -.00844,    .00119,    .00008,
     +    -.00003,    .00051,    .00065,
     +     .14756,    .04249,   -.00799,    .00112,    .00009,
     +    -.00002,    .00048,    .00062,
     +     .14003,    .04016,   -.00759,    .00106,    .00009,
     +    -.00002,    .00046,    .00058,
     +     .13116,    .03739,   -.00705,    .00096,    .00010,
     +    -.00001,    .00043,    .00053,
     +     .12336,    .03500,   -.00653,    .00090,    .00010,
     +    -.00001,    .00038,    .00048,
     +     .11656,    .03294,   -.00609,    .00084,    .00011,
     +     .00000,    .00036,    .00045 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11023,    .03102,   -.00564,    .00079,    .00011,
     +     .00000,    .00034,    .00041,
     +     .10439,    .02924,   -.00523,    .00073,    .00011,
     +     .00000,    .00031,    .00040,
     +     .09921,    .02768,   -.00487,    .00069,    .00011,
     +     .00000,    .00029,    .00038,
     +     .09459,    .02630,   -.00454,    .00065,    .00012,
     +     .00001,    .00028,    .00035,
     +     .09022,    .02499,   -.00422,    .00062,    .00012,
     +     .00001,    .00025,    .00033,
     +     .08614,    .02379,   -.00393,    .00057,    .00012,
     +     .00001,    .00024,    .00030,
     +     .08243,    .02270,   -.00367,    .00054,    .00012,
     +     .00001,    .00023,    .00028,
     +     .07911,    .02172,   -.00343,    .00052,    .00012,
     +     .00001,    .00022,    .00027 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07591,    .02078,   -.00320,    .00048,    .00012,
     +     .00001,    .00021,    .00025,
     +     .07291,    .01989,   -.00301,    .00046,    .00012,
     +     .00001,    .00020,    .00024,
     +     .07016,    .01909,   -.00281,    .00042,    .00012,
     +     .00001,    .00019,    .00024,
     +     .06764,    .01837,   -.00264,    .00041,    .00012,
     +     .00001,    .00018,    .00023,
     +     .06522,    .01767,   -.00248,    .00040,    .00012,
     +     .00001,    .00016,    .00022 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .47020,    .15093,    .00034,    .00305,    .00000,
     +     .00000,    .00031,    .00119,
     +     .43619,    .13839,   -.00581,    .00289,    .00000,
     +     .00000,    .00043,    .00133,
     +     .39175,    .12243,   -.01028,    .00277,   -.00091,
     +     .00000,    .00064,    .00121,
     +     .36331,    .11243,   -.01385,    .00255,   -.00069,
     +     .00000,    .00067,    .00119,
     +     .33631,    .10302,   -.01643,    .00236,   -.00051,
     +     .00000,    .00068,    .00117,
     +     .31508,    .09571,   -.01770,    .00219,   -.00040,
     +     .00000,    .00071,    .00109,
     +     .29621,    .08936,   -.01834,    .00210,   -.00032,
     +     .00000,    .00068,    .00104,
     +     .27778,    .08320,   -.01856,    .00195,   -.00024,
     +     .00000,    .00066,    .00098 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .26301,    .07827,   -.01846,    .00182,   -.00019,
     +     .00000,    .00064,    .00094,
     +     .24963,    .07387,   -.01818,    .00170,   -.00015,
     +     .00000,    .00063,    .00087,
     +     .23966,    .07062,   -.01786,    .00163,   -.00012,
     +     .00000,    .00060,    .00082,
     +     .21998,    .06422,   -.01700,    .00149,   -.00008,
     +     .00000,    .00056,    .00078,
     +     .20472,    .05936,   -.01609,    .00138,   -.00005,
     +    -.00012,    .00052,    .00072,
     +     .18921,    .05447,   -.01528,    .00125,   -.00003,
     +    -.00010,    .00050,    .00061,
     +     .17457,    .04987,   -.01436,    .00114,   -.00001,
     +    -.00008,    .00047,    .00059,
     +     .16243,    .04610,   -.01343,    .00105,    .00001,
     +    -.00006,    .00042,    .00056 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15120,    .04267,   -.01243,    .00095,    .00002,
     +    -.00005,    .00038,    .00048,
     +     .14257,    .04004,   -.01167,    .00089,    .00003,
     +    -.00004,    .00037,    .00047,
     +     .13295,    .03711,   -.01077,    .00081,    .00003,
     +    -.00004,    .00033,    .00044,
     +     .12508,    .03473,   -.01001,    .00074,    .00004,
     +    -.00003,    .00031,    .00040,
     +     .11835,    .03272,   -.00930,    .00069,    .00004,
     +    -.00003,    .00027,    .00038,
     +     .11037,    .03037,   -.00849,    .00065,    .00005,
     +    -.00002,    .00024,    .00034,
     +     .10349,    .02831,   -.00778,    .00058,    .00005,
     +    -.00002,    .00025,    .00030,
     +     .09748,    .02655,   -.00714,    .00053,    .00005,
     +    -.00002,    .00022,    .00028 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09187,    .02493,   -.00657,    .00050,    .00006,
     +    -.00001,    .00021,    .00027,
     +     .08674,    .02344,   -.00606,    .00047,    .00006,
     +    -.00001,    .00021,    .00026,
     +     .08220,    .02213,   -.00558,    .00044,    .00006,
     +    -.00001,    .00018,    .00023,
     +     .07817,    .02097,   -.00519,    .00042,    .00006,
     +    -.00001,    .00017,    .00022,
     +     .07435,    .01988,   -.00481,    .00039,    .00006,
     +    -.00001,    .00017,    .00020,
     +     .07080,    .01887,   -.00445,    .00037,    .00006,
     +    -.00001,    .00016,    .00019,
     +     .06761,    .01797,   -.00414,    .00036,    .00006,
     +    -.00001,    .00015,    .00018,
     +     .06475,    .01716,   -.00387,    .00033,    .00006,
     +    -.00001,    .00015,    .00017 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06199,    .01638,   -.00362,    .00032,    .00006,
     +    -.00001,    .00013,    .00017,
     +     .05939,    .01565,   -.00336,    .00030,    .00007,
     +     .00000,    .00012,    .00016,
     +     .05704,    .01499,   -.00316,    .00029,    .00007,
     +     .00000,    .00012,    .00016,
     +     .05489,    .01440,   -.00296,    .00029,    .00007,
     +     .00000,    .00011,    .00014,
     +     .05282,    .01383,   -.00277,    .00027,    .00007,
     +     .00000,    .00011,    .00013 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .43140,    .13297,   -.02885,    .00197,    .00000,
     +     .00000,    .00027,    .00069,
     +     .39747,    .12118,   -.03068,    .00195,    .00000,
     +     .00000,    .00037,    .00074,
     +     .35385,    .10629,   -.03028,    .00181,   -.00069,
     +     .00000,    .00046,    .00076,
     +     .32629,    .09697,   -.03083,    .00168,   -.00051,
     +     .00000,    .00050,    .00080,
     +     .30028,    .08835,   -.03059,    .00153,   -.00038,
     +     .00000,    .00054,    .00077,
     +     .27988,    .08173,   -.02981,    .00144,   -.00030,
     +     .00000,    .00053,    .00075,
     +     .26194,    .07596,   -.02869,    .00137,   -.00024,
     +     .00000,    .00049,    .00070,
     +     .24448,    .07041,   -.02735,    .00127,   -.00019,
     +     .00000,    .00049,    .00065 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .23051,    .06601,   -.02612,    .00120,   -.00015,
     +     .00000,    .00047,    .00063,
     +     .21798,    .06208,   -.02489,    .00114,   -.00013,
     +     .00000,    .00043,    .00061,
     +     .20871,    .05916,   -.02390,    .00107,   -.00011,
     +     .00000,    .00041,    .00059,
     +     .19053,    .05353,   -.02182,    .00093,   -.00007,
     +     .00000,    .00041,    .00054,
     +     .17650,    .04925,   -.02011,    .00086,   -.00005,
     +    -.00008,    .00040,    .00047,
     +     .16227,    .04496,   -.01849,    .00080,   -.00004,
     +    -.00007,    .00036,    .00042,
     +     .14895,    .04097,   -.01681,    .00070,   -.00002,
     +    -.00005,    .00031,    .00039,
     +     .13799,    .03772,   -.01541,    .00064,   -.00001,
     +    -.00004,    .00028,    .00038 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .12792,    .03474,   -.01406,    .00058,    .00000,
     +    -.00003,    .00028,    .00034,
     +     .12025,    .03249,   -.01301,    .00054,    .00000,
     +    -.00003,    .00025,    .00031,
     +     .11166,    .02999,   -.01183,    .00048,    .00001,
     +    -.00002,    .00023,    .00028,
     +     .10466,    .02798,   -.01084,    .00044,    .00001,
     +    -.00002,    .00020,    .00026,
     +     .09870,    .02627,   -.01001,    .00041,    .00001,
     +    -.00002,    .00019,    .00025,
     +     .09170,    .02427,   -.00905,    .00039,    .00002,
     +    -.00001,    .00019,    .00022,
     +     .08565,    .02257,   -.00822,    .00035,    .00002,
     +    -.00001,    .00018,    .00019,
     +     .08042,    .02110,   -.00750,    .00033,    .00002,
     +    -.00001,    .00017,    .00017 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07554,    .01975,   -.00685,    .00031,    .00002,
     +    -.00001,    .00016,    .00017,
     +     .07109,    .01851,   -.00625,    .00029,    .00002,
     +    -.00001,    .00013,    .00015,
     +     .06719,    .01743,   -.00574,    .00027,    .00002,
     +    -.00001,    .00013,    .00014,
     +     .06373,    .01647,   -.00529,    .00024,    .00002,
     +    -.00001,    .00012,    .00012,
     +     .06046,    .01557,   -.00488,    .00023,    .00002,
     +    -.00001,    .00010,    .00013,
     +     .05745,    .01474,   -.00451,    .00020,    .00003,
     +     .00000,    .00010,    .00012,
     +     .05470,    .01400,   -.00419,    .00020,    .00003,
     +     .00000,    .00009,    .00012,
     +     .05223,    .01334,   -.00389,    .00020,    .00003,
     +     .00000,    .00009,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04991,    .01271,   -.00360,    .00018,    .00003,
     +     .00000,    .00008,    .00009,
     +     .04774,    .01212,   -.00336,    .00015,    .00003,
     +     .00000,    .00008,    .00009,
     +     .04576,    .01159,   -.00314,    .00014,    .00003,
     +     .00000,    .00008,    .00009,
     +     .04395,    .01110,   -.00295,    .00014,    .00003,
     +     .00000,    .00007,    .00009,
     +     .04221,    .01064,   -.00276,    .00014,    .00003,
     +     .00000,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .39180,    .11638,   -.05244,    .00166,    .00000,
     +     .00000,   -.00011,    .00022,
     +     .35872,    .10536,   -.05049,    .00155,    .00000,
     +     .00000,    .00008,    .00032,
     +     .31655,    .09159,   -.04590,    .00139,   -.00050,
     +     .00000,    .00018,    .00039,
     +     .29013,    .08312,   -.04366,    .00130,   -.00037,
     +     .00000,    .00022,    .00043,
     +     .26532,    .07531,   -.04086,    .00116,   -.00028,
     +     .00000,    .00026,    .00039,
     +     .24608,    .06933,   -.03831,    .00111,   -.00022,
     +     .00000,    .00024,    .00035,
     +     .22934,    .06416,   -.03593,    .00101,   -.00018,
     +     .00000,    .00026,    .00036,
     +     .21311,    .05919,   -.03348,    .00096,   -.00014,
     +     .00000,    .00028,    .00034 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .20015,    .05527,   -.03135,    .00091,   -.00012,
     +     .00000,    .00027,    .00033,
     +     .18867,    .05179,   -.02933,    .00080,   -.00010,
     +     .00000,    .00027,    .00030,
     +     .18011,    .04922,   -.02784,    .00077,   -.00008,
     +     .00000,    .00026,    .00030,
     +     .16341,    .04426,   -.02480,    .00068,   -.00006,
     +     .00000,    .00021,    .00031,
     +     .15066,    .04054,   -.02250,    .00061,   -.00005,
     +    -.00006,    .00019,    .00029,
     +     .13783,    .03684,   -.02029,    .00056,   -.00003,
     +    -.00004,    .00019,    .00025,
     +     .12588,    .03339,   -.01816,    .00052,   -.00002,
     +    -.00003,    .00017,    .00021,
     +     .11612,    .03061,   -.01641,    .00046,   -.00002,
     +    -.00003,    .00016,    .00018 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10717,    .02808,   -.01480,    .00043,   -.00001,
     +    -.00002,    .00015,    .00016,
     +     .10038,    .02616,   -.01357,    .00038,   -.00001,
     +    -.00002,    .00014,    .00016,
     +     .09280,    .02406,   -.01218,    .00035,   -.00001,
     +    -.00002,    .00011,    .00014,
     +     .08666,    .02237,   -.01109,    .00032,    .00000,
     +    -.00001,    .00010,    .00013,
     +     .08146,    .02095,   -.01018,    .00030,    .00000,
     +    -.00001,    .00010,    .00012,
     +     .07538,    .01926,   -.00912,    .00028,    .00000,
     +    -.00001,    .00009,    .00012,
     +     .07014,    .01785,   -.00822,    .00025,    .00000,
     +    -.00001,    .00008,    .00010,
     +     .06563,    .01662,   -.00748,    .00024,    .00000,
     +    -.00001,    .00008,    .00011 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06147,    .01550,   -.00679,    .00022,    .00000,
     +    -.00001,    .00007,    .00010,
     +     .05769,    .01448,   -.00617,    .00019,    .00000,
     +    -.00001,    .00007,    .00008,
     +     .05434,    .01359,   -.00564,    .00018,    .00001,
     +     .00000,    .00005,    .00008,
     +     .05139,    .01281,   -.00519,    .00017,    .00001,
     +     .00000,    .00006,    .00008,
     +     .04861,    .01209,   -.00477,    .00017,    .00001,
     +     .00000,    .00006,    .00007,
     +     .04605,    .01142,   -.00439,    .00015,    .00001,
     +     .00000,    .00006,    .00005,
     +     .04377,    .01081,   -.00405,    .00014,    .00001,
     +     .00000,    .00004,    .00006,
     +     .04175,    .01028,   -.00376,    .00012,    .00001,
     +     .00000,    .00004,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03978,    .00977,   -.00349,    .00012,    .00001,
     +     .00000,    .00004,    .00006,
     +     .03794,    .00930,   -.00324,    .00012,    .00001,
     +     .00000,    .00005,    .00004,
     +     .03629,    .00886,   -.00303,    .00012,    .00001,
     +     .00000,    .00003,    .00005,
     +     .03478,    .00848,   -.00282,    .00010,    .00001,
     +     .00000,    .00003,    .00005,
     +     .03333,    .00812,   -.00265,    .00011,    .00001,
     +     .00000,    .00003,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .35086,    .09954,   -.06897,    .00085,    .00000,
     +     .00000,    .00006,    .00021,
     +     .31911,    .08960,   -.06380,    .00083,    .00000,
     +     .00000,    .00014,    .00025,
     +     .27910,    .07726,   -.05582,    .00075,   -.00035,
     +     .00000,    .00017,    .00027,
     +     .25421,    .06975,   -.05142,    .00074,   -.00027,
     +     .00000,    .00022,    .00027,
     +     .23106,    .06284,   -.04686,    .00070,   -.00020,
     +     .00000,    .00021,    .00027,
     +     .21323,    .05755,   -.04311,    .00064,   -.00016,
     +     .00000,    .00022,    .00028,
     +     .19778,    .05301,   -.03973,    .00060,   -.00013,
     +     .00000,    .00023,    .00026,
     +     .18289,    .04868,   -.03634,    .00055,   -.00010,
     +     .00000,    .00020,    .00024 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .17112,    .04529,   -.03360,    .00051,   -.00008,
     +     .00000,    .00017,    .00025,
     +     .16061,    .04228,   -.03109,    .00048,   -.00007,
     +     .00000,    .00015,    .00023,
     +     .15287,    .04009,   -.02926,    .00044,   -.00006,
     +     .00000,    .00017,    .00021,
     +     .13787,    .03587,   -.02568,    .00040,   -.00005,
     +     .00000,    .00014,    .00020,
     +     .12652,    .03269,   -.02305,    .00036,   -.00004,
     +    -.00004,    .00014,    .00017,
     +     .11514,    .02951,   -.02047,    .00032,   -.00003,
     +    -.00003,    .00013,    .00016,
     +     .10456,    .02663,   -.01810,    .00028,   -.00002,
     +    -.00002,    .00012,    .00015,
     +     .09597,    .02429,   -.01617,    .00026,   -.00002,
     +    -.00002,    .00011,    .00014 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .08815,    .02218,   -.01442,    .00023,   -.00001,
     +    -.00001,    .00009,    .00012,
     +     .08228,    .02061,   -.01314,    .00021,   -.00001,
     +    -.00001,    .00008,    .00011,
     +     .07572,    .01887,   -.01172,    .00019,   -.00001,
     +    -.00001,    .00009,    .00010,
     +     .07045,    .01747,   -.01059,    .00017,   -.00001,
     +    -.00001,    .00007,    .00009,
     +     .06601,    .01629,   -.00965,    .00016,   -.00001,
     +    -.00001,    .00007,    .00007,
     +     .06083,    .01494,   -.00859,    .00015,   -.00001,
     +    -.00001,    .00006,    .00007,
     +     .05638,    .01378,   -.00770,    .00014,   -.00001,
     +    -.00001,    .00006,    .00007,
     +     .05256,    .01279,   -.00693,    .00012,    .00000,
     +     .00000,    .00004,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04904,    .01189,   -.00628,    .00012,    .00000,
     +     .00000,    .00005,    .00005,
     +     .04587,    .01107,   -.00569,    .00011,    .00000,
     +     .00000,    .00005,    .00005,
     +     .04308,    .01036,   -.00519,    .00010,    .00000,
     +     .00000,    .00005,    .00005,
     +     .04064,    .00974,   -.00474,    .00008,    .00000,
     +     .00000,    .00003,    .00005,
     +     .03833,    .00916,   -.00434,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03621,    .00862,   -.00399,    .00008,    .00000,
     +     .00000,    .00003,    .00005,
     +     .03433,    .00815,   -.00367,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03265,    .00772,   -.00341,    .00007,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03105,    .00732,   -.00315,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .02955,    .00695,   -.00291,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .02820,    .00662,   -.00271,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02697,    .00632,   -.00253,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02580,    .00603,   -.00236,    .00005,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .27008,    .07030,   -.08515,    .00039,    .00000,
     +     .00000,   -.00002,    .00001,
     +     .24231,    .06244,   -.07543,    .00035,    .00000,
     +     .00000,   -.00001,    .00003,
     +     .20793,    .05283,   -.06306,    .00029,   -.00015,
     +     .00000,    .00002,    .00011,
     +     .18701,    .04710,   -.05594,    .00027,   -.00011,
     +     .00000,    .00007,    .00009,
     +     .16777,    .04191,   -.04928,    .00027,   -.00009,
     +     .00000,    .00007,    .00009,
     +     .15323,    .03799,   -.04416,    .00024,   -.00007,
     +     .00000,    .00006,    .00010,
     +     .14072,    .03466,   -.03977,    .00021,   -.00005,
     +     .00000,    .00006,    .00011,
     +     .12882,    .03152,   -.03559,    .00020,   -.00004,
     +     .00000,    .00005,    .00010 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11950,    .02908,   -.03232,    .00018,   -.00003,
     +     .00000,    .00005,    .00008,
     +     .11131,    .02695,   -.02950,    .00015,   -.00003,
     +     .00000,    .00008,    .00008,
     +     .10530,    .02538,   -.02741,    .00013,   -.00003,
     +     .00000,    .00006,    .00008,
     +     .09376,    .02241,   -.02352,    .00014,   -.00002,
     +     .00000,    .00006,    .00006,
     +     .08514,    .02024,   -.02071,    .00012,   -.00001,
     +    -.00001,    .00005,    .00005,
     +     .07661,    .01809,   -.01806,    .00011,   -.00001,
     +    -.00001,    .00005,    .00005,
     +     .06881,    .01613,   -.01568,    .00012,   -.00001,
     +    -.00001,    .00003,    .00005,
     +     .06255,    .01458,   -.01378,    .00010,   -.00001,
     +    -.00001,    .00004,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05694,    .01318,   -.01212,    .00008,   -.00001,
     +    -.00001,    .00004,    .00004,
     +     .05270,    .01215,   -.01090,    .00007,    .00000,
     +     .00000,    .00003,    .00004,
     +     .04807,    .01103,   -.00960,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04435,    .01012,   -.00858,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04125,    .00938,   -.00777,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03769,    .00852,   -.00682,    .00005,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03466,    .00780,   -.00606,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03207,    .00719,   -.00543,    .00005,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02972,    .00663,   -.00486,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02761,    .00614,   -.00435,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02577,    .00571,   -.00394,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02415,    .00533,   -.00358,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02265,    .00498,   -.00326,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02127,    .00466,   -.00298,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02005,    .00439,   -.00274,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01898,    .00414,   -.00251,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01795,    .00390,   -.00232,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01700,    .00368,   -.00214,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01613,    .00349,   -.00198,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01538,    .00332,   -.00184,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01464,    .00315,   -.00172,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .19400,    .04587,   -.08162,    .00015,    .00000,
     +     .00000,   -.00004,   -.00003,
     +     .17151,    .04018,   -.07051,    .00012,    .00000,
     +     .00000,   -.00001,    .00002,
     +     .14427,    .03337,   -.05706,    .00009,   -.00006,
     +     .00000,    .00002,    .00002,
     +     .12799,    .02934,   -.04935,    .00012,   -.00004,
     +     .00000,    .00001,   -.00001,
     +     .11329,    .02578,   -.04250,    .00008,   -.00003,
     +     .00000,    .00002,    .00002,
     +     .10227,    .02311,   -.03742,    .00008,   -.00002,
     +     .00000,    .00002,    .00002,
     +     .09294,    .02085,   -.03317,    .00010,   -.00002,
     +     .00000,    .00000,    .00003,
     +     .08419,    .01877,   -.02919,    .00006,   -.00001,
     +     .00000,    .00001,    .00003 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .07742,    .01717,   -.02621,    .00006,   -.00001,
     +     .00000,    .00001,    .00003,
     +     .07146,    .01578,   -.02362,    .00008,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06714,    .01478,   -.02178,    .00008,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05900,    .01288,   -.01833,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05299,    .01149,   -.01590,    .00004,   -.00001,
     +    -.00001,    .00001,    .00000,
     +     .04712,    .01014,   -.01365,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04183,    .00894,   -.01165,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03762,    .00800,   -.01012,    .00000,    .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)/
     +     .03387,    .00716,   -.00881,    .00003,    .00000,
     +     .00000,    .00000,    .00002,
     +     .03109,    .00654,   -.00783,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .02807,    .00587,   -.00682,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .02568,    .00536,   -.00604,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02372,    .00492,   -.00541,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02145,    .00443,   -.00472,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01955,    .00403,   -.00414,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01794,    .00367,   -.00367,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01650,    .00336,   -.00327,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01520,    .00309,   -.00291,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01408,    .00286,   -.00261,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01312,    .00264,   -.00236,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01222,    .00246,   -.00214,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01141,    .00229,   -.00194,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01069,    .00214,   -.00177,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01006,    .00201,   -.00162,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00946,    .00188,   -.00148,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00892,    .00177,   -.00136,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00843,    .00167,   -.00125,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00799,    .00158,   -.00116,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00757,    .00149,   -.00108,    .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)/
     +     .12753,    .02707,   -.06558,    .00009,    .00000,
     +     .00000,   -.00004,   -.00001,
     +     .11100,    .02334,   -.05543,    .00009,    .00000,
     +     .00000,   -.00003,   -.00003,
     +     .09129,    .01898,   -.04367,    .00009,   -.00002,
     +     .00000,   -.00002,   -.00002,
     +     .07978,    .01647,   -.03704,    .00004,   -.00001,
     +     .00000,   -.00001,    .00001,
     +     .06959,    .01424,   -.03129,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06202,    .01262,   -.02711,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05572,    .01126,   -.02367,    .00002,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .04986,    .01002,   -.02057,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04538,    .00908,   -.01825,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04150,    .00826,   -.01627,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03873,    .00767,   -.01488,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03350,    .00660,   -.01234,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02969,    .00580,   -.01058,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .02606,    .00506,   -.00894,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02282,    .00440,   -.00752,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02028,    .00389,   -.00645,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01804,    .00344,   -.00552,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01641,    .00311,   -.00487,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01465,    .00277,   -.00420,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01328,    .00250,   -.00368,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01216,    .00228,   -.00327,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01088,    .00202,   -.00282,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00981,    .00182,   -.00245,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00893,    .00165,   -.00216,    .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)/
     +     .00813,    .00149,   -.00190,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00743,    .00137,   -.00169,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00683,    .00125,   -.00150,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00632,    .00115,   -.00134,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00584,    .00107,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00542,    .00099,   -.00109,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00504,    .00091,   -.00098,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00471,    .00085,   -.00090,    .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)/
     +     .00440,    .00079,   -.00081,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00412,    .00074,   -.00074,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00387,    .00070,   -.00068,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00366,    .00066,   -.00063,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00344,    .00062,   -.00058,    .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)/
     +     .07383,    .01359,   -.04375,   -.00001,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .06314,    .01156,   -.03635,   -.00001,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .05068,    .00921,   -.02795,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04356,    .00785,   -.02330,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03730,    .00670,   -.01935,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03280,    .00585,   -.01653,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02906,    .00515,   -.01424,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02566,    .00454,   -.01222,    .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)/
     +     .02307,    .00407,   -.01072,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02086,    .00364,   -.00943,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01929,    .00336,   -.00856,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01639,    .00284,   -.00697,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01434,    .00248,   -.00591,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01236,    .00213,   -.00490,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01066,    .00182,   -.00407,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00934,    .00158,   -.00344,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00819,    .00140,   -.00292,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00737,    .00124,   -.00254,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00650,    .00110,   -.00218,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00581,    .00096,   -.00187,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00526,    .00086,   -.00163,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00465,    .00078,   -.00141,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00415,    .00068,   -.00120,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00373,    .00060,   -.00105,    .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)/
     +     .00335,    .00054,   -.00091,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00304,    .00049,   -.00080,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00277,    .00045,   -.00071,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00254,    .00042,   -.00063,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00232,    .00037,   -.00055,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00214,    .00034,   -.00050,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00198,    .00032,   -.00045,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00182,    .00029,   -.00040,    .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)/
     +     .00171,    .00027,   -.00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00158,    .00025,   -.00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00148,    .00023,   -.00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00138,    .00022,   -.00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00130,    .00020,   -.00025,    .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)/
     +     .01215,    .00161,   -.00910,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00982,    .00129,   -.00716,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00730,    .00095,   -.00513,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00597,    .00078,   -.00408,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00485,    .00062,   -.00321,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00408,    .00052,   -.00263,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00348,    .00046,   -.00220,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00296,    .00037,   -.00181,    .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)/
     +     .00256,    .00032,   -.00153,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00225,    .00029,   -.00132,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00202,    .00026,   -.00116,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00163,    .00021,   -.00091,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00136,    .00016,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00113,    .00014,   -.00059,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00092,    .00011,   -.00046,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00077,    .00009,   -.00038,    .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)/
     +     .00065,    .00007,   -.00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00057,    .00007,   -.00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00005,   -.00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00005,   -.00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .00005,   -.00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00031,    .00003,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00028,    .00003,   -.00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,   -.00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00021,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00008,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='ft23d.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