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

sfmrs_98a3.F

#include "pdf/pilot.h"
      subroutine sfmrs_98a3(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)/
     +     .00408,    .00237,   1.12142,    .87870,    .00000,
     +     .00000,    .46696,    .88815,
     +     .00424,    .00243,   2.37000,    .91425,    .00000,
     +     .00000,    .50714,    .92386,
     +     .00448,    .00253,   4.81686,    .99040,    .03290,
     +     .00000,    .58990,   1.00023,
     +     .00466,    .00260,   7.17814,   1.06354,    .11029,
     +     .00000,    .66770,   1.07352,
     +     .00485,    .00268,  10.19450,   1.16003,    .19842,
     +     .00000,    .76897,   1.17017,
     +     .00501,    .00275,  13.28564,   1.25984,    .29008,
     +     .00000,    .87279,   1.27010,
     +     .00516,    .00282,  16.76563,   1.36922,    .39514,
     +     .00000,    .98593,   1.37959,
     +     .00533,    .00289,  21.04811,   1.50104,    .52477,
     +     .00000,   1.12165,   1.51152 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00548,    .00296,  25.21732,   1.63088,    .64963,
     +     .00000,   1.25481,   1.64145,
     +     .00562,    .00302,  29.69568,   1.76926,    .78392,
     +     .00000,   1.39634,   1.77992,
     +     .00573,    .00307,  33.62181,   1.88804,    .90202,
     +     .00000,   1.51757,   1.89876,
     +     .00598,    .00318,  42.86912,   2.17165,   1.18099,
     +     .02218,   1.80630,   2.18251,
     +     .00619,    .00328,  51.86707,   2.44974,   1.45396,
     +     .34036,   2.08870,   2.46070,
     +     .00643,    .00339,  63.25751,   2.80034,   1.80032,
     +     .73816,   2.44399,   2.81140,
     +     .00668,    .00350,  76.64371,   3.21127,   2.20734,
     +    1.16250,   2.85969,   3.22244,
     +     .00691,    .00361,  90.18671,   3.62664,   2.61969,
     +    1.59281,   3.27926,   3.63790 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00714,    .00372, 105.25520,   4.08895,   3.07994,
     +    2.07133,   3.74571,   4.10028,
     +     .00734,    .00382, 118.79253,   4.50635,   3.49468,
     +    2.49774,   4.16649,   4.51775,
     +     .00758,    .00393, 136.46303,   5.05420,   4.03859,
     +    3.05489,   4.71835,   5.06566,
     +     .00780,    .00403, 153.36763,   5.57932,   4.56178,
     +    3.59335,   5.24693,   5.59084,
     +     .00800,    .00413, 169.93800,   6.09560,   5.07725,
     +    4.12424,   5.76633,   6.10717,
     +     .00825,    .00425, 192.16139,   6.79570,   5.77350,
     +    4.83461,   6.47032,   6.80733,
     +     .00849,    .00437, 214.54834,   7.50452,   6.48022,
     +    5.55764,   7.18270,   7.51619,
     +     .00872,    .00448, 236.93715,   8.21606,   7.19193,
     +    6.28827,   7.89752,   8.22777 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00895,    .00460, 260.21698,   8.96644,   7.93891,
     +    7.04782,   8.65112,   8.97818,
     +     .00918,    .00471, 284.31726,   9.74670,   8.71803,
     +    7.84316,   9.43447,   9.75846,
     +     .00940,    .00482, 308.24033,  10.52667,   9.49750,
     +    8.63875,  10.21731,  10.53846,
     +     .00961,    .00492, 331.52756,  11.29427,  10.26324,
     +    9.41745,  10.98758,  11.30609,
     +     .00982,    .00502, 356.10956,  12.10709,  11.07664,
     +   10.24768,  11.80303,  12.11892,
     +     .01003,    .00513, 380.80463,  12.93482,  11.90234,
     +   11.08581,  12.63332,  12.94667,
     +     .01023,    .00523, 405.44580,  13.76243,  12.73084,
     +   11.93051,  13.46332,  13.77429,
     +     .01042,    .00532, 429.08972,  14.56726,  13.53410,
     +   12.74528,  14.27038,  14.57913 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01061,    .00542, 453.93533,  15.41547,  14.38284,
     +   13.60876,  15.12081,  15.42735,
     +     .01080,    .00552, 478.92456,  16.27757,  15.24439,
     +   14.48328,  15.98507,  16.28945,
     +     .01099,    .00561, 503.44965,  17.12922,  16.09595,
     +   15.34782,  16.83876,  17.14110,
     +     .01117,    .00570, 527.41248,  17.96556,  16.93321,
     +   16.19884,  17.67701,  17.97746,
     +     .01135,    .00579, 551.84790,  18.82849,  17.79538,
     +   17.07224,  18.54185,  18.84039 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00570,    .00320,   1.03310,    .75182,    .00000,
     +     .00000,    .39899,    .75747,
     +     .00593,    .00330,   2.15359,    .78416,    .00000,
     +     .00000,    .43507,    .78991,
     +     .00627,    .00344,   4.30511,    .85093,    .02848,
     +     .00000,    .50715,    .85682,
     +     .00651,    .00355,   6.33978,    .91365,    .09494,
     +     .00000,    .57361,    .91963,
     +     .00678,    .00367,   8.89548,    .99504,    .16921,
     +     .00000,    .65882,   1.00112,
     +     .00700,    .00377,  11.47574,   1.07818,    .24551,
     +     .00000,    .74517,   1.08433,
     +     .00722,    .00387,  14.34528,   1.16851,    .33214,
     +     .00000,    .83850,   1.17473,
     +     .00745,    .00398,  17.83455,   1.27648,    .43800,
     +     .00000,    .94958,   1.28277 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00766,    .00407,  21.19213,   1.38191,    .53905,
     +     .00000,   1.05765,   1.38826,
     +     .00786,    .00416,  24.76344,   1.49351,    .64692,
     +     .00000,   1.17175,   1.49992,
     +     .00801,    .00423,  27.86952,   1.58880,    .74122,
     +     .00000,   1.26899,   1.59525,
     +     .00835,    .00439,  35.09740,   1.81439,    .96203,
     +     .01803,   1.49864,   1.82092,
     +     .00864,    .00453,  42.02779,   2.03339,   1.17584,
     +     .26670,   1.72104,   2.03999,
     +     .00897,    .00469,  50.68799,   2.30692,   1.44456,
     +     .57550,   1.99829,   2.31360,
     +     .00932,    .00486,  60.73025,   2.62439,   1.75718,
     +     .90094,   2.31951,   2.63113,
     +     .00964,    .00501,  70.76392,   2.94230,   2.07094,
     +    1.22779,   2.64074,   2.94910 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .00996,    .00517,  81.80051,   3.29309,   2.41813,
     +    1.58803,   2.99479,   3.29995,
     +     .01023,    .00530,  91.61332,   3.60732,   2.72853,
     +    1.90640,   3.31168,   3.61423,
     +     .01056,    .00546, 104.29307,   4.01656,   3.13246,
     +    2.31912,   3.72407,   4.02352,
     +     .01086,    .00561, 116.30483,   4.40585,   3.51812,
     +    2.71504,   4.11608,   4.41286,
     +     .01113,    .00574, 127.97827,   4.78603,   3.89560,
     +    3.10283,   4.49871,   4.79307,
     +     .01148,    .00591, 143.48306,   5.29771,   4.40164,
     +    3.61768,   5.01343,   5.30479,
     +     .01181,    .00608, 158.95288,   5.81184,   4.91150,
     +    4.13790,   5.53036,   5.81896,
     +     .01212,    .00624, 174.29153,   6.32441,   5.42157,
     +    4.66019,   6.04550,   6.33157 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01244,    .00639, 190.09596,   6.86116,   5.95310,
     +    5.19909,   6.58476,   6.86835,
     +     .01275,    .00655, 206.33009,   7.41576,   6.50416,
     +    5.76010,   7.14178,   7.42298,
     +     .01304,    .00670, 222.32335,   7.96680,   7.05220,
     +    6.31799,   7.69507,   7.97404,
     +     .01333,    .00684, 237.77411,   8.50589,   7.58741,
     +    6.86073,   8.23625,   8.51316,
     +     .01361,    .00699, 253.98309,   9.07381,   8.15317,
     +    7.43673,   8.80623,   9.08110,
     +     .01389,    .00713, 270.14569,   9.64883,   8.72412,
     +    8.01466,   9.38324,   9.65614,
     +     .01416,    .00727, 286.18436,  10.22109,   9.29454,
     +    8.59477,   9.95737,  10.22842,
     +     .01442,    .00740, 301.46918,  10.77467,   9.84461,
     +    9.15119,  10.51270,  10.78202 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01468,    .00753, 317.45087,  11.35565,  10.42354,
     +    9.73869,  11.09542,  11.36301,
     +     .01494,    .00766, 333.42682,  11.94331,  11.00838,
     +   10.33079,  11.68477,  11.95069,
     +     .01519,    .00779, 349.02484,  12.52137,  11.58406,
     +   10.91376,  12.26443,  12.52877,
     +     .01543,    .00792, 364.19305,  13.08684,  12.14796,
     +   11.48553,  12.83139,  13.09425,
     +     .01567,    .00804, 379.57153,  13.66771,  12.72600,
     +   12.06959,  13.41376,  13.67513 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00798,    .00432,    .95258,    .64292,    .00000,
     +     .00000,    .34096,    .64591,
     +     .00829,    .00447,   1.95794,    .67221,    .00000,
     +     .00000,    .37327,    .67526,
     +     .00877,    .00468,   3.84872,    .73069,    .02465,
     +     .00000,    .43602,    .73382,
     +     .00911,    .00485,   5.60015,    .78445,    .08170,
     +     .00000,    .49278,    .78763,
     +     .00948,    .00502,   7.76244,    .85306,    .14426,
     +     .00000,    .56445,    .85629,
     +     .00979,    .00517,   9.91241,    .92223,    .20775,
     +     .00000,    .63618,    .92551,
     +     .01010,    .00531,  12.27374,    .99671,    .27911,
     +     .00000,    .71306,   1.00004,
     +     .01042,    .00547,  15.11018,   1.08499,    .36548,
     +     .00000,    .80382,   1.08836 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01071,    .00560,  17.80711,   1.17041,    .44717,
     +     .00000,    .89134,   1.17382,
     +     .01098,    .00574,  20.64705,   1.26018,    .53371,
     +     .00000,    .98310,   1.26362,
     +     .01120,    .00584,  23.09710,   1.33642,    .60891,
     +     .00000,   1.06088,   1.33988,
     +     .01167,    .00607,  28.72801,   1.51533,    .78341,
     +     .01466,   1.24301,   1.51885,
     +     .01207,    .00627,  34.04599,   1.68721,    .95061,
     +     .20888,   1.41758,   1.69078,
     +     .01253,    .00650,  40.60380,   1.89986,   1.15870,
     +     .44847,   1.63316,   1.90348,
     +     .01301,    .00673,  48.10469,   2.14417,   1.39831,
     +     .69789,   1.88043,   2.14783,
     +     .01345,    .00695,  55.50371,   2.38650,   1.63650,
     +     .94595,   2.12537,   2.39021 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01389,    .00718,  63.54739,   2.65154,   1.89776,
     +    1.21687,   2.39299,   2.65530,
     +     .01426,    .00736,  70.62322,   2.88705,   2.12946,
     +    1.45429,   2.63058,   2.89084,
     +     .01472,    .00759,  79.67174,   3.19135,   2.42860,
     +    1.75960,   2.93735,   3.19518,
     +     .01512,    .00780,  88.15784,   3.47858,   2.71203,
     +    2.05028,   3.22671,   3.48244,
     +     .01549,    .00798,  96.33260,   3.75717,   2.98760,
     +    2.33307,   3.50722,   3.76107,
     +     .01597,    .00823, 107.08201,   4.12925,   3.35418,
     +    2.70551,   3.88168,   4.13319,
     +     .01642,    .00846, 117.70217,   4.50025,   3.72075,
     +    3.07904,   4.25486,   4.50421,
     +     .01685,    .00867, 128.13979,   4.86754,   4.08499,
     +    3.45157,   4.62416,   4.87155 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01728,    .00889, 138.79277,   5.24937,   4.46177,
     +    3.83297,   5.00796,   5.25341,
     +     .01770,    .00911, 149.64824,   5.64139,   4.84999,
     +    4.22767,   5.40186,   5.64546,
     +     .01810,    .00932, 160.25938,   6.02849,   5.23374,
     +    4.61779,   5.79071,   6.03258,
     +     .01848,    .00951, 170.43010,   6.40489,   5.60623,
     +    4.99495,   6.16874,   6.40901,
     +     .01887,    .00971, 181.03267,   6.79938,   5.99805,
     +    5.39335,   6.56483,   6.80352,
     +     .01925,    .00991, 191.52205,   7.19641,   6.39105,
     +    5.79054,   6.96342,   7.20058,
     +     .01961,    .01010, 201.87326,   7.58969,   6.78198,
     +    6.18762,   7.35816,   7.59389,
     +     .01996,    .01028, 211.66670,   7.96808,   7.15686,
     +    6.56624,   7.73790,   7.97229 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02031,    .01046, 221.85484,   8.36350,   7.54983,
     +    6.96451,   8.13467,   8.36774,
     +     .02066,    .01065, 231.97409,   8.76150,   7.94484,
     +    7.36386,   8.53398,   8.76576,
     +     .02100,    .01082, 241.80070,   9.15131,   8.33202,
     +    7.75542,   8.92504,   9.15559,
     +     .02132,    .01099, 251.30998,   9.53111,   8.70983,
     +    8.13802,   9.30600,   9.53541,
     +     .02164,    .01116, 260.89200,   9.91946,   9.09530,
     +    8.52693,   9.69551,   9.92377 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00971,    .00516,    .90909,    .58649,    .00000,
     +     .00000,    .31104,    .58840,
     +     .01009,    .00534,   1.85263,    .61409,    .00000,
     +     .00000,    .34129,    .61603,
     +     .01067,    .00561,   3.60529,    .66817,    .02265,
     +     .00000,    .39915,    .67017,
     +     .01109,    .00582,   5.20880,    .71726,    .07482,
     +     .00000,    .45089,    .71931,
     +     .01153,    .00603,   7.16815,    .77931,    .13138,
     +     .00000,    .51563,    .78140,
     +     .01192,    .00622,   9.09860,    .84138,    .18837,
     +     .00000,    .57995,    .84351,
     +     .01229,    .00640,  11.20310,    .90786,    .25206,
     +     .00000,    .64854,    .91002,
     +     .01268,    .00659,  13.71268,    .98625,    .32869,
     +     .00000,    .72910,    .98844 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01302,    .00676,  16.08177,   1.06168,    .40077,
     +     .00000,    .80637,   1.06390,
     +     .01336,    .00693,  18.56158,   1.14061,    .47679,
     +     .00000,    .88704,   1.14286,
     +     .01362,    .00706,  20.69062,   1.20742,    .54261,
     +     .00000,    .95521,   1.20969,
     +     .01419,    .00734,  25.54745,   1.36339,    .69454,
     +     .01298,   1.11398,   1.36570,
     +     .01468,    .00759,  30.09278,   1.51229,    .83919,
     +     .18099,   1.26524,   1.51464,
     +     .01523,    .00786,  35.65355,   1.69546,   1.01817,
     +     .38744,   1.45097,   1.69785,
     +     .01581,    .00816,  41.96204,   1.90462,   1.22302,
     +     .60081,   1.66271,   1.90706,
     +     .01634,    .00842,  48.13725,   2.11091,   1.42548,
     +     .81177,   1.87127,   2.11339 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01687,    .00870,  54.80348,   2.33535,   1.64640,
     +    1.04094,   2.09794,   2.33786,
     +     .01732,    .00893,  60.63017,   2.53382,   1.84137,
     +    1.24077,   2.29822,   2.53637,
     +     .01787,    .00921,  68.03490,   2.78904,   2.09191,
     +    1.49650,   2.55560,   2.79163,
     +     .01835,    .00946,  74.93766,   3.02884,   2.32822,
     +    1.73888,   2.79725,   3.03147,
     +     .01880,    .00969,  81.55212,   3.26049,   2.55706,
     +    1.97373,   3.03056,   3.26314,
     +     .01937,    .00998,  90.19733,   3.56845,   2.86005,
     +    2.28155,   3.34058,   3.57114,
     +     .01992,    .01026,  98.68818,   3.87410,   3.16168,
     +    2.58889,   3.64813,   3.87683,
     +     .02043,    .01052, 106.98922,   4.17546,   3.46020,
     +    2.89420,   3.95122,   4.17822 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02094,    .01079, 115.41262,   4.48738,   3.76761,
     +    3.20532,   4.26484,   4.49018,
     +     .02144,    .01105, 123.95512,   4.80640,   4.08319,
     +    3.52613,   4.58550,   4.80924,
     +     .02192,    .01130, 132.26602,   5.12027,   4.39402,
     +    3.84209,   4.90088,   5.12313,
     +     .02238,    .01154, 140.19391,   5.42434,   4.69461,
     +    4.14639,   5.20636,   5.42724,
     +     .02284,    .01178, 148.42725,   5.74205,   5.00989,
     +    4.46693,   5.52545,   5.74497,
     +     .02329,    .01202, 156.53333,   6.06066,   5.32495,
     +    4.78527,   5.84541,   6.06361,
     +     .02373,    .01225, 164.50620,   6.37540,   5.63753,
     +    5.10275,   6.16140,   6.37838,
     +     .02414,    .01246, 172.01596,   6.67721,   5.93627,
     +    5.40439,   6.46439,   6.68022 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02456,    .01268, 179.80486,   6.99183,   6.24868,
     +    5.72098,   6.78018,   6.99486,
     +     .02497,    .01290, 187.51030,   7.30755,   6.56177,
     +    6.03745,   7.09704,   7.31061,
     +     .02537,    .01311, 194.96852,   7.61599,   6.86789,
     +    6.34696,   7.40654,   7.61907,
     +     .02575,    .01331, 202.16466,   7.91579,   7.16590,
     +    6.64873,   7.70735,   7.91889,
     +     .02614,    .01351, 209.38814,   8.22148,   7.46909,
     +    6.95455,   8.01405,   8.22461 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01116,    .00585,    .87989,    .54939,    .00000,
     +     .00000,    .29143,    .55072,
     +     .01160,    .00606,   1.78190,    .57581,    .00000,
     +     .00000,    .32029,    .57718,
     +     .01226,    .00638,   3.44248,    .62696,    .02133,
     +     .00000,    .37490,    .62837,
     +     .01275,    .00662,   4.94824,    .67298,    .07028,
     +     .00000,    .42335,    .67443,
     +     .01326,    .00687,   6.77453,    .73075,    .12294,
     +     .00000,    .48357,    .73223,
     +     .01370,    .00709,   8.56205,    .78820,    .17571,
     +     .00000,    .54309,    .78971,
     +     .01412,    .00730,  10.50031,    .84950,    .23443,
     +     .00000,    .60631,    .85104,
     +     .01457,    .00753,  12.79954,    .92151,    .30481,
     +     .00000,    .68030,    .92308 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01497,    .00773,  14.95885,    .99052,    .37074,
     +     .00000,    .75100,    .99212,
     +     .01535,    .00792,  17.20934,   1.06251,    .44006,
     +     .00000,    .82458,   1.06414,
     +     .01565,    .00807,  19.13479,   1.12331,    .49992,
     +     .00000,    .88661,   1.12495,
     +     .01630,    .00840,  23.50362,   1.26468,    .63755,
     +     .01190,   1.03054,   1.26637,
     +     .01686,    .00868,  27.56535,   1.39904,    .76800,
     +     .16345,   1.16704,   1.40076,
     +     .01749,    .00901,  32.50612,   1.56363,    .92874,
     +     .34915,   1.33396,   1.56540,
     +     .01816,    .00935,  38.07817,   1.75077,   1.11190,
     +     .54008,   1.52344,   1.75258,
     +     .01876,    .00966,  43.50236,   1.93457,   1.29219,
     +     .72807,   1.70931,   1.93642 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01937,    .00997,  49.32821,   2.13379,   1.48817,
     +     .93150,   1.91055,   2.13568,
     +     .01988,    .01024,  54.39679,   2.30934,   1.66053,
     +    1.10823,   2.08775,   2.31127,
     +     .02051,    .01056,  60.80904,   2.53433,   1.88126,
     +    1.33363,   2.31469,   2.53630,
     +     .02106,    .01085,  66.76067,   2.74502,   2.08878,
     +    1.54657,   2.52706,   2.74702,
     +     .02157,    .01111,  72.44198,   2.94796,   2.28916,
     +    1.75230,   2.73150,   2.94999,
     +     .02222,    .01145,  79.83485,   3.21685,   2.55358,
     +    2.02100,   3.00226,   3.21893,
     +     .02284,    .01177,  87.06477,   3.48285,   2.81596,
     +    2.28843,   3.26997,   3.48497,
     +     .02342,    .01207,  94.10621,   3.74433,   3.07488,
     +    2.55334,   3.53303,   3.74649 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02400,    .01238, 101.22124,   4.01413,   3.34066,
     +    2.82237,   3.80436,   4.01632,
     +     .02457,    .01268, 108.41190,   4.28932,   3.61278,
     +    3.09908,   4.08103,   4.29155,
     +     .02511,    .01297, 115.38367,   4.55934,   3.88011,
     +    3.37088,   4.35242,   4.56160,
     +     .02563,    .01324, 122.01080,   4.82026,   4.13793,
     +    3.63194,   4.61460,   4.82255,
     +     .02615,    .01351, 128.87462,   5.09226,   4.40779,
     +    3.90638,   4.88787,   5.09459,
     +     .02666,    .01378, 135.60835,   5.36434,   4.67674,
     +    4.17817,   5.16115,   5.36670,
     +     .02716,    .01404, 142.21577,   5.63257,   4.94309,
     +    4.44876,   5.43053,   5.63496,
     +     .02762,    .01429, 148.41869,   5.88918,   5.19700,
     +    4.70518,   5.68819,   5.89160 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02810,    .01454, 154.83836,   6.15619,   5.46209,
     +    4.97388,   5.95626,   6.15864,
     +     .02857,    .01479, 161.17065,   6.42356,   5.72718,
     +    5.24187,   6.22466,   6.42604,
     +     .02902,    .01503, 167.28517,   6.68428,   5.98589,
     +    5.50350,   6.48634,   6.68679,
     +     .02944,    .01525, 173.17235,   6.93726,   6.23734,
     +    5.75817,   6.74024,   6.93980,
     +     .02988,    .01548, 179.06483,   7.19470,   6.49262,
     +    6.01570,   6.99858,   7.19726 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01243,    .00645,    .85823,    .52218,    .00000,
     +     .00000,    .27709,    .52316,
     +     .01293,    .00669,   1.72930,    .54771,    .00000,
     +     .00000,    .30491,    .54873,
     +     .01366,    .00706,   3.32167,    .59668,    .02036,
     +     .00000,    .35711,    .59774,
     +     .01420,    .00733,   4.75546,    .64044,    .06695,
     +     .00000,    .40315,    .64154,
     +     .01477,    .00761,   6.48434,    .69508,    .11675,
     +     .00000,    .46008,    .69621,
     +     .01526,    .00786,   8.16776,    .74918,    .16646,
     +     .00000,    .51610,    .75034,
     +     .01573,    .00810,   9.98547,    .80672,    .22159,
     +     .00000,    .57544,    .80790,
     +     .01624,    .00835,  12.13281,    .87411,    .28746,
     +     .00000,    .64469,    .87533 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01667,    .00857,  14.14130,    .93850,    .34896,
     +     .00000,    .71065,    .93975,
     +     .01710,    .00879,  16.22748,   1.00550,    .41347,
     +     .00000,    .77912,   1.00677,
     +     .01743,    .00896,  18.00750,   1.06197,    .46906,
     +     .00000,    .83675,   1.06327,
     +     .01815,    .00933,  22.02926,   1.19290,    .59650,
     +     .01113,    .97006,   1.19423,
     +     .01878,    .00965,  25.74892,   1.31689,    .71686,
     +     .15099,   1.09605,   1.31826,
     +     .01948,    .01001,  30.25326,   1.46829,    .86468,
     +     .32201,   1.24961,   1.46970,
     +     .02021,    .01039,  35.30952,   1.63982,   1.03254,
     +     .49712,   1.42333,   1.64128,
     +     .02088,    .01074,  40.21015,   1.80776,   1.19724,
     +     .66899,   1.59319,   1.80926 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02156,    .01109,  45.45269,   1.98924,   1.37573,
     +     .85439,   1.77655,   1.99079,
     +     .02213,    .01138,  49.99715,   2.14873,   1.53229,
     +    1.01501,   1.93757,   2.15031,
     +     .02282,    .01174,  55.72586,   2.35259,   1.73226,
     +    1.21931,   2.14323,   2.35421,
     +     .02343,    .01206,  61.02486,   2.54299,   1.91977,
     +    1.41182,   2.33519,   2.54465,
     +     .02399,    .01236,  66.06799,   2.72596,   2.10041,
     +    1.59739,   2.51956,   2.72766,
     +     .02471,    .01274,  72.60756,   2.96777,   2.33817,
     +    1.83910,   2.76310,   2.96951,
     +     .02539,    .01309,  78.98146,   3.20636,   2.57349,
     +    2.07906,   3.00328,   3.20815,
     +     .02603,    .01343,  85.17049,   3.44036,   2.80518,
     +    2.31622,   3.23874,   3.44218 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02667,    .01377,  91.40331,   3.68119,   3.04240,
     +    2.55643,   3.48099,   3.68306,
     +     .02731,    .01410,  97.68514,   3.92632,   3.28479,
     +    2.80299,   3.72749,   3.92822,
     +     .02791,    .01442, 103.75928,   4.16633,   3.52241,
     +    3.04469,   3.96878,   4.16828,
     +     .02847,    .01472, 109.51704,   4.39778,   3.75110,
     +    3.27633,   4.20140,   4.39976,
     +     .02905,    .01503, 115.46767,   4.63865,   3.99008,
     +    3.51947,   4.44343,   4.64066,
     +     .02961,    .01533, 121.28902,   4.87908,   4.22775,
     +    3.75972,   4.68498,   4.88113,
     +     .03015,    .01561, 126.99046,   5.11575,   4.46277,
     +    3.99858,   4.92271,   5.11784,
     +     .03067,    .01589, 132.32866,   5.34174,   4.68639,
     +    4.22447,   5.14968,   5.34386 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03119,    .01616, 137.84407,   5.57656,   4.91954,
     +    4.46089,   5.38548,   5.57871,
     +     .03170,    .01644, 143.27168,   5.81130,   5.15229,
     +    4.69626,   5.62116,   5.81348,
     +     .03220,    .01670, 148.50256,   6.03985,   5.37910,
     +    4.92571,   5.85062,   6.04208,
     +     .03267,    .01695, 153.53050,   6.26134,   5.59927,
     +    5.14879,   6.07295,   6.26359,
     +     .03315,    .01721, 158.55153,   6.48636,   5.82242,
     +    5.37397,   6.29881,   6.48864 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01739,    .00877,    .79696,    .44566,    .00000,
     +     .00000,    .23698,    .44614,
     +     .01809,    .00913,   1.57865,    .46855,    .00000,
     +     .00000,    .26176,    .46907,
     +     .01912,    .00966,   2.97566,    .51124,    .01760,
     +     .00000,    .30711,    .51181,
     +     .01988,    .01005,   4.20555,    .54862,    .05753,
     +     .00000,    .34635,    .54923,
     +     .02067,    .01047,   5.66113,    .59449,    .09937,
     +     .00000,    .39411,    .59514,
     +     .02136,    .01083,   7.05511,    .63927,    .14059,
     +     .00000,    .44047,    .63997,
     +     .02201,    .01117,   8.54016,    .68644,    .18585,
     +     .00000,    .48911,    .68717,
     +     .02272,    .01154,  10.27158,    .74117,    .23936,
     +     .00000,    .54535,    .74194 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02333,    .01186,  11.87006,    .79292,    .28885,
     +     .00000,    .59839,    .79373,
     +     .02391,    .01217,  13.51244,    .84634,    .34033,
     +     .00000,    .65302,    .84719,
     +     .02438,    .01242,  14.90168,    .89111,    .38442,
     +     .00000,    .69872,    .89198,
     +     .02538,    .01294,  17.99809,    .99388,    .48451,
     +     .00902,    .80344,    .99481,
     +     .02624,    .01340,  20.81430,   1.09010,    .57799,
     +     .11783,    .90128,   1.09109,
     +     .02721,    .01392,  24.17580,   1.20638,    .69161,
     +     .24999,   1.01931,   1.20742,
     +     .02822,    .01445,  27.89329,   1.33667,    .81922,
     +     .38359,   1.15137,   1.33778,
     +     .02915,    .01495,  31.44626,   1.46292,    .94315,
     +     .51336,   1.27918,   1.46409 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03008,    .01544,  35.19873,   1.59806,   1.07620,
     +     .65200,   1.41584,   1.59929,
     +     .03086,    .01586,  38.41350,   1.71579,   1.19189,
     +     .77104,   1.53481,   1.71707,
     +     .03180,    .01636,  42.41968,   1.86500,   1.33839,
     +     .92113,   1.68547,   1.86633,
     +     .03264,    .01681,  46.08481,   2.00320,   1.47465,
     +    1.06143,   1.82494,   2.00460,
     +     .03341,    .01723,  49.53928,   2.13505,   1.60498,
     +    1.19569,   1.95791,   2.13650,
     +     .03438,    .01775,  53.96853,   2.30785,   1.77507,
     +    1.36905,   2.13211,   2.30936,
     +     .03531,    .01825,  58.23886,   2.47695,   1.94206,
     +    1.53977,   2.30249,   2.47852,
     +     .03618,    .01872,  62.34541,   2.64157,   2.10529,
     +    1.70730,   2.46828,   2.64320 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03705,    .01918,  66.43568,   2.80965,   2.27105,
     +    1.87552,   2.63751,   2.81135,
     +     .03790,    .01964,  70.52200,   2.97958,   2.43930,
     +    2.04710,   2.80854,   2.98133,
     +     .03871,    .02008,  74.43867,   3.14486,   2.60316,
     +    2.21419,   2.97484,   3.14667,
     +     .03948,    .02050,  78.11737,   3.30318,   2.75981,
     +    2.37320,   3.13410,   3.30504,
     +     .04025,    .02091,  81.89332,   3.46705,   2.92264,
     +    2.53929,   3.29891,   3.46896,
     +     .04101,    .02132,  85.55244,   3.62953,   3.08348,
     +    2.70222,   3.46230,   3.63150,
     +     .04174,    .02172,  89.11514,   3.78871,   3.24181,
     +    2.86352,   3.62232,   3.79073,
     +     .04242,    .02209,  92.42132,   3.93977,   3.39149,
     +    3.01504,   3.77416,   3.94183 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04312,    .02247,  95.81867,   4.09603,   3.54691,
     +    3.17300,   3.93122,   4.09815,
     +     .04381,    .02284,  99.13606,   4.25139,   3.70118,
     +    3.32935,   4.08734,   4.25356,
     +     .04447,    .02320, 102.31346,   4.40196,   3.85084,
     +    3.48109,   4.23862,   4.40417,
     +     .04510,    .02354, 105.35080,   4.54724,   3.99551,
     +    3.62801,   4.38458,   4.54949,
     +     .04573,    .02388, 108.36037,   4.69407,   4.14135,
     +    3.77547,   4.53208,   4.69637 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02437,    .01203,    .74663,    .38003,    .00000,
     +     .00000,    .20289,    .38079,
     +     .02536,    .01255,   1.44855,    .40044,    .00000,
     +     .00000,    .22488,    .40126,
     +     .02680,    .01333,   2.67258,    .43750,    .01518,
     +     .00000,    .26419,    .43842,
     +     .02786,    .01390,   3.72465,    .46932,    .04933,
     +     .00000,    .29757,    .47031,
     +     .02897,    .01450,   4.94539,    .50768,    .08439,
     +     .00000,    .33752,    .50875,
     +     .02993,    .01502,   6.09407,    .54459,    .11847,
     +     .00000,    .37575,    .54572,
     +     .03085,    .01551,   7.30047,    .58306,    .15549,
     +     .00000,    .41545,    .58426,
     +     .03182,    .01604,   8.68756,    .62725,    .19880,
     +     .00000,    .46092,    .62852 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03267,    .01650,   9.95054,    .66860,    .23843,
     +     .00000,    .50335,    .66993,
     +     .03349,    .01695,  11.23338,    .71092,    .27932,
     +     .00000,    .54668,    .71231,
     +     .03414,    .01730,  12.30860,    .74616,    .31411,
     +     .00000,    .58271,    .74760,
     +     .03552,    .01805,  14.67057,    .82622,    .39230,
     +     .00728,    .66441,    .82776,
     +     .03671,    .01870,  16.78051,    .90028,    .46447,
     +     .09153,    .73983,    .90191,
     +     .03805,    .01943,  19.26068,    .98880,    .55123,
     +     .19317,    .82981,    .99052,
     +     .03944,    .02019,  21.96029,   1.08683,    .64756,
     +     .29455,    .92934,   1.08866,
     +     .04070,    .02088,  24.50216,   1.18080,    .74010,
     +     .39196,   1.02461,   1.18273 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04198,    .02158,  27.15031,   1.28039,    .83849,
     +     .49499,   1.12548,   1.28241,
     +     .04304,    .02217,  29.39051,   1.36635,    .92324,
     +     .58261,   1.21247,   1.36845,
     +     .04433,    .02287,  32.14794,   1.47431,   1.02962,
     +     .69211,   1.32166,   1.47651,
     +     .04547,    .02350,  34.64106,   1.57344,   1.12771,
     +     .79359,   1.42185,   1.57573,
     +     .04651,    .02407,  36.96659,   1.66730,   1.22083,
     +     .88997,   1.51665,   1.66967,
     +     .04784,    .02480,  39.91178,   1.78922,   1.34127,
     +    1.01326,   1.63975,   1.79169,
     +     .04909,    .02549,  42.71817,   1.90751,   1.45850,
     +    1.13366,   1.75911,   1.91007,
     +     .05027,    .02613,  45.38906,   2.02176,   1.57222,
     +    1.25092,   1.87436,   2.02443 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05144,    .02678,  48.01703,   2.13744,   1.68670,
     +    1.36760,   1.99099,   2.14019,
     +     .05259,    .02741,  50.61762,   2.25355,   1.80210,
     +    1.48580,   2.10803,   2.25639,
     +     .05368,    .02801,  53.08652,   2.36570,   1.91372,
     +    1.60011,   2.22104,   2.36863,
     +     .05470,    .02857,  55.38173,   2.47237,   2.01964,
     +    1.70810,   2.32850,   2.47537,
     +     .05574,    .02914,  57.72037,   2.58215,   2.12915,
     +    1.82029,   2.43907,   2.58524,
     +     .05675,    .02970,  59.96242,   2.69022,   2.23652,
     +    1.92950,   2.54790,   2.69339,
     +     .05772,    .03023,  62.13181,   2.79556,   2.34172,
     +    2.03715,   2.65396,   2.79881,
     +     .05864,    .03074,  64.12439,   2.89487,   2.44049,
     +    2.13754,   2.75393,   2.89819 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05956,    .03125,  66.16017,   2.99713,   2.54259,
     +    2.24175,   2.85685,   3.00052,
     +     .06048,    .03175,  68.13031,   3.09819,   2.64333,
     +    2.34428,   2.95856,   3.10166,
     +     .06135,    .03223,  70.00439,   3.19565,   2.74058,
     +    2.44329,   3.05663,   3.19919,
     +     .06219,    .03269,  71.78496,   3.28928,   2.83419,
     +    2.53876,   3.15082,   3.29288,
     +     .06302,    .03315,  73.53307,   3.38335,   2.92798,
     +    2.63399,   3.24547,   3.38702 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .02974,    .01457,    .72397,    .34619,    .00000,
     +     .00000,    .18542,    .34743,
     +     .03094,    .01522,   1.38335,    .36520,    .00000,
     +     .00000,    .20589,    .36654,
     +     .03270,    .01619,   2.51518,    .39924,    .01390,
     +     .00000,    .24198,    .40071,
     +     .03399,    .01690,   3.47344,    .42811,    .04502,
     +     .00000,    .27228,    .42968,
     +     .03534,    .01764,   4.57169,    .46256,    .07656,
     +     .00000,    .30818,    .46424,
     +     .03650,    .01828,   5.59381,    .49541,    .10698,
     +     .00000,    .34225,    .49718,
     +     .03762,    .01890,   6.65778,    .52944,    .13980,
     +     .00000,    .37740,    .53130,
     +     .03880,    .01955,   7.87052,    .56829,    .17795,
     +     .00000,    .41742,    .57024 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .03983,    .02012,   8.96526,    .60439,    .21264,
     +     .00000,    .45451,    .60643,
     +     .04082,    .02066,  10.06925,    .64115,    .24825,
     +     .00000,    .49220,    .64327,
     +     .04160,    .02110,  10.98931,    .67164,    .27842,
     +     .00000,    .52342,    .67383,
     +     .04327,    .02202,  12.99213,    .74048,    .34582,
     +     .00640,    .59375,    .74280,
     +     .04471,    .02282,  14.76102,    .80367,    .40756,
     +     .07867,    .65820,    .80611,
     +     .04632,    .02371,  16.82045,    .87868,    .48130,
     +     .16548,    .73457,    .88126,
     +     .04799,    .02464,  19.03987,    .96118,    .56260,
     +     .25136,    .81843,    .96388,
     +     .04951,    .02548,  21.11009,   1.03971,    .64018,
     +     .33334,    .89816,   1.04254 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05104,    .02633,  23.24838,   1.12242,    .72215,
     +     .41951,    .98206,   1.12539,
     +     .05231,    .02704,  25.04288,   1.19341,    .79237,
     +     .49237,   1.05401,   1.19648,
     +     .05385,    .02789,  27.23448,   1.28208,    .88001,
     +     .58291,   1.14380,   1.28527,
     +     .05521,    .02865,  29.20127,   1.36306,    .96040,
     +     .66638,   1.22575,   1.36637,
     +     .05646,    .02934,  31.02384,   1.43936,   1.03635,
     +     .74528,   1.30294,   1.44278,
     +     .05804,    .03022,  33.31383,   1.53794,   1.13405,
     +     .84564,   1.40260,   1.54149,
     +     .05953,    .03105,  35.47966,   1.63306,   1.22863,
     +     .94314,   1.49871,   1.63673,
     +     .06092,    .03182,  37.52734,   1.72451,   1.31996,
     +    1.03765,   1.59108,   1.72830 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06231,    .03259,  39.52609,   1.81659,   1.41139,
     +    1.13116,   1.68405,   1.82050,
     +     .06367,    .03335,  41.49203,   1.90862,   1.50316,
     +    1.22550,   1.77694,   1.91264,
     +     .06496,    .03407,  43.34694,   1.99712,   1.59154,
     +    1.31633,   1.86624,   2.00125,
     +     .06618,    .03474,  45.05972,   2.08091,   1.67503,
     +    1.40174,   1.95077,   2.08515,
     +     .06740,    .03542,  46.79683,   2.16686,   1.76106,
     +    1.49020,   2.03745,   2.17119,
     +     .06860,    .03608,  48.45017,   2.25108,   1.84501,
     +    1.57589,   2.12238,   2.25552,
     +     .06974,    .03672,  50.04372,   2.33292,   1.92703,
     +    1.66012,   2.20489,   2.33746,
     +     .07082,    .03731,  51.49714,   2.40975,   2.00369,
     +    1.73830,   2.28232,   2.41437 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07191,    .03792,  52.97672,   2.48864,   2.08273,
     +    1.81927,   2.36183,   2.49335,
     +     .07298,    .03851,  54.39988,   2.56631,   2.16042,
     +    1.89862,   2.44010,   2.57111,
     +     .07401,    .03908,  55.74752,   2.64098,   2.23519,
     +    1.97501,   2.51534,   2.64587,
     +     .07498,    .03962,  57.02283,   2.71251,   2.30696,
     +    2.04847,   2.58740,   2.71748,
     +     .07596,    .04016,  58.26686,   2.78412,   2.37861,
     +    2.12146,   2.65954,   2.78918 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03428,    .01677,    .71197,    .32410,    .00000,
     +     .00000,    .17404,    .32579,
     +     .03566,    .01754,   1.34288,    .34216,    .00000,
     +     .00000,    .19347,    .34397,
     +     .03770,    .01867,   2.41278,    .37414,    .01305,
     +     .00000,    .22739,    .37613,
     +     .03918,    .01949,   3.30835,    .40104,    .04214,
     +     .00000,    .25564,    .40315,
     +     .04073,    .02036,   4.32532,    .43290,    .07136,
     +     .00000,    .28887,    .43514,
     +     .04206,    .02110,   5.26401,    .46308,    .09938,
     +     .00000,    .32019,    .46544,
     +     .04334,    .02181,   6.23462,    .49419,    .12945,
     +     .00000,    .35238,    .49666,
     +     .04470,    .02257,   7.33379,    .52955,    .16424,
     +     .00000,    .38885,    .53214 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04587,    .02323,   8.31959,    .56226,    .19573,
     +     .00000,    .42248,    .56495,
     +     .04700,    .02386,   9.30841,    .59542,    .22794,
     +     .00000,    .45653,    .59821,
     +     .04790,    .02436,  10.12897,    .62286,    .25514,
     +     .00000,    .48465,    .62573,
     +     .04980,    .02543,  11.90301,    .68450,    .31563,
     +     .00583,    .54771,    .68753,
     +     .05144,    .02635,  13.45645,    .74077,    .37075,
     +     .07046,    .60517,    .74395,
     +     .05328,    .02737,  15.25203,    .80723,    .43624,
     +     .14787,    .67292,    .81057,
     +     .05518,    .02844,  17.17268,    .87993,    .50807,
     +     .22398,    .74691,    .88343,
     +     .05691,    .02941,  18.95158,    .94878,    .57628,
     +     .29628,    .81692,    .95244 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05865,    .03038,  20.77708,   1.02098,    .64802,
     +     .37192,    .89024,   1.02479,
     +     .06009,    .03119,  22.29982,   1.08268,    .70921,
     +     .43561,    .95284,   1.08661,
     +     .06183,    .03216,  24.14852,   1.15941,    .78527,
     +     .51442,   1.03065,   1.16350,
     +     .06337,    .03303,  25.79825,   1.22922,    .85476,
     +     .58680,   1.10139,   1.23344,
     +     .06479,    .03382,  27.31939,   1.29476,    .92019,
     +     .65497,   1.16777,   1.29911,
     +     .06657,    .03482,  29.21906,   1.37909,   1.00399,
     +     .74132,   1.25313,   1.38359,
     +     .06825,    .03576,  31.00550,   1.46013,   1.08482,
     +     .82488,   1.33513,   1.46478,
     +     .06982,    .03664,  32.68605,   1.53777,   1.16258,
     +     .90561,   1.41365,   1.54256 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07139,    .03751,  34.31623,   1.61564,   1.24011,
     +     .98513,   1.49236,   1.62056,
     +     .07292,    .03837,  35.91226,   1.69319,   1.31768,
     +    1.06511,   1.57074,   1.69825,
     +     .07437,    .03918,  37.41100,   1.76754,   1.39215,
     +    1.14188,   1.64586,   1.77273,
     +     .07573,    .03993,  38.78755,   1.83770,   1.46225,
     +    1.21381,   1.71672,   1.84300,
     +     .07710,    .04070,  40.17876,   1.90947,   1.53431,
     +    1.28813,   1.78919,   1.91489,
     +     .07844,    .04145,  41.49522,   1.97955,   1.60438,
     +    1.35985,   1.85995,   1.98509,
     +     .07972,    .04216,  42.76038,   2.04751,   1.67269,
     +    1.43022,   1.92855,   2.05316,
     +     .08092,    .04283,  43.90781,   2.11108,   1.73632,
     +    1.49532,   1.99272,   2.11684 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08214,    .04351,  45.07265,   2.17624,   1.80180,
     +    1.56260,   2.05846,   2.18210,
     +     .08334,    .04418,  46.18765,   2.24020,   1.86597,
     +    1.62834,   2.12300,   2.24617,
     +     .08449,    .04482,  47.23967,   2.30155,   1.92760,
     +    1.69149,   2.18490,   2.30762,
     +     .08557,    .04542,  48.23214,   2.36019,   1.98663,
     +    1.75210,   2.24406,   2.36636,
     +     .08667,    .04603,  49.19515,   2.41874,   2.04538,
     +    1.81214,   2.30311,   2.42500 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03833,    .01886,    .70694,    .30832,    .00000,
     +     .00000,    .16575,    .31021,
     +     .03987,    .01973,   1.31674,    .32564,    .00000,
     +     .00000,    .18437,    .32768,
     +     .04214,    .02101,   2.34002,    .35607,    .01240,
     +     .00000,    .21662,    .35830,
     +     .04379,    .02193,   3.18835,    .38147,    .03996,
     +     .00000,    .24330,    .38385,
     +     .04552,    .02291,   4.14422,    .41138,    .06744,
     +     .00000,    .27450,    .41391,
     +     .04700,    .02374,   5.02041,    .43956,    .09365,
     +     .00000,    .30377,    .44223,
     +     .04842,    .02454,   5.92129,    .46851,    .12168,
     +     .00000,    .33372,    .47130,
     +     .04993,    .02539,   6.93592,    .50128,    .15399,
     +     .00000,    .36754,    .50421 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05123,    .02613,   7.84102,    .53147,    .18311,
     +     .00000,    .39861,    .53452,
     +     .05248,    .02683,   8.74479,    .56200,    .21280,
     +     .00000,    .42997,    .56515,
     +     .05348,    .02739,   9.49209,    .58719,    .23781,
     +     .00000,    .45580,    .59043,
     +     .05559,    .02858,  11.09843,    .64356,    .29323,
     +     .00541,    .51352,    .64699,
     +     .05740,    .02961,  12.49486,    .69479,    .34350,
     +     .06445,    .56587,    .69838,
     +     .05943,    .03075,  14.09919,    .75504,    .40299,
     +     .13497,    .62734,    .75882,
     +     .06153,    .03193,  15.80451,    .82066,    .46795,
     +     .20397,    .69418,    .82462,
     +     .06343,    .03301,  17.37465,    .88255,    .52938,
     +     .26925,    .75716,    .88669 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06535,    .03408,  18.97720,    .94720,    .59375,
     +     .33729,    .82288,    .95151,
     +     .06694,    .03498,  20.30702,   1.00226,    .64847,
     +     .39437,    .87879,   1.00671,
     +     .06885,    .03606,  21.91353,   1.07049,    .71624,
     +     .46476,    .94805,   1.07512,
     +     .07054,    .03701,  23.34027,   1.13236,    .77796,
     +     .52920,   1.01080,   1.13714,
     +     .07209,    .03788,  24.65014,   1.19028,    .83590,
     +     .58973,   1.06951,   1.19520,
     +     .07405,    .03898,  26.27751,   1.26455,    .90986,
     +     .66612,   1.14476,   1.26964,
     +     .07589,    .04001,  27.80054,   1.33568,    .98096,
     +     .73980,   1.21680,   1.34094,
     +     .07761,    .04098,  29.22720,   1.40362,   1.04917,
     +     .81078,   1.28557,   1.40903 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07931,    .04193,  30.60371,   1.47154,   1.11694,
     +     .88046,   1.35429,   1.47710,
     +     .08099,    .04287,  31.94608,   1.53899,   1.18457,
     +     .95036,   1.42253,   1.54470,
     +     .08257,    .04376,  33.20148,   1.60348,   1.24931,
     +    1.01727,   1.48775,   1.60933,
     +     .08405,    .04459,  34.34915,   1.66416,   1.31009,
     +    1.07979,   1.54910,   1.67014,
     +     .08554,    .04542,  35.50551,   1.72611,   1.37244,
     +    1.14425,   1.61171,   1.73222,
     +     .08700,    .04624,  36.59424,   1.78642,   1.43288,
     +    1.20628,   1.67267,   1.79266,
     +     .08839,    .04701,  37.63799,   1.84479,   1.49170,
     +    1.26703,   1.73165,   1.85116,
     +     .08970,    .04774,  38.57983,   1.89925,   1.54635,
     +    1.32307,   1.78667,   1.90573 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09102,    .04848,  39.53376,   1.95497,   1.60249,
     +    1.38090,   1.84296,   1.96157,
     +     .09232,    .04921,  40.44273,   2.00952,   1.65737,
     +    1.43727,   1.89806,   2.01624,
     +     .09356,    .04990,  41.29761,   2.06175,   1.70997,
     +    1.49131,   1.95080,   2.06857,
     +     .09474,    .05055,  42.10199,   2.11159,   1.76028,
     +    1.54310,   2.00113,   2.11851,
     +     .09593,    .05121,  42.87880,   2.16123,   1.81023,
     +    1.59427,   2.05126,   2.16826 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05446,    .02755,    .70959,    .26429,    .00000,
     +     .00000,    .14291,    .26747,
     +     .05663,    .02881,   1.25759,    .27944,    .00000,
     +     .00000,    .15917,    .28283,
     +     .05981,    .03065,   2.14456,    .30532,    .01054,
     +     .00000,    .18662,    .30901,
     +     .06211,    .03199,   2.85638,    .32645,    .03376,
     +     .00000,    .20885,    .33036,
     +     .06452,    .03338,   3.63792,    .35082,    .05635,
     +     .00000,    .23435,    .35497,
     +     .06658,    .03457,   4.33781,    .37340,    .07755,
     +     .00000,    .25786,    .37775,
     +     .06854,    .03570,   5.04392,    .39630,    .09993,
     +     .00000,    .28164,    .40084,
     +     .07062,    .03690,   5.82473,    .42192,    .12538,
     +     .00000,    .30817,    .42665 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07241,    .03793,   6.50868,    .44521,    .14803,
     +     .00000,    .33222,    .45011,
     +     .07413,    .03892,   7.18133,    .46851,    .17088,
     +     .00000,    .35624,    .47357,
     +     .07549,    .03971,   7.73090,    .48758,    .18998,
     +     .00000,    .37588,    .49278,
     +     .07837,    .04136,   8.88927,    .52973,    .23175,
     +     .00424,    .41920,    .53520,
     +     .08084,    .04278,   9.87153,    .56745,    .26908,
     +     .04836,    .45789,    .57316,
     +     .08358,    .04435,  10.97702,    .61120,    .31266,
     +     .10062,    .50271,    .61717,
     +     .08641,    .04597,  12.12718,    .65815,    .35955,
     +     .15091,    .55074,    .66438,
     +     .08897,    .04743,  13.16477,    .70182,    .40330,
     +     .19785,    .59536,    .70830 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09153,    .04889,  14.20407,    .74687,    .44856,
     +     .24617,    .64134,    .75358,
     +     .09364,    .05009,  15.05132,    .78477,    .48659,
     +     .28622,    .68001,    .79169,
     +     .09619,    .05154,  16.05707,    .83120,    .53315,
     +     .33505,    .72734,    .83836,
     +     .09842,    .05281,  16.93557,    .87284,    .57510,
     +     .37928,    .76975,    .88020,
     +     .10047,    .05397,  17.73028,    .91144,    .61410,
     +     .42042,    .80906,    .91899,
     +     .10304,    .05542,  18.69945,    .96035,    .66330,
     +     .47174,    .85883,    .96814,
     +     .10544,    .05678,  19.59106,   1.00667,    .71008,
     +     .52072,    .90596,   1.01468,
     +     .10769,    .05805,  20.41378,   1.05048,    .75453,
     +     .56746,    .95051,   1.05870 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10991,    .05929,  21.19196,   1.09376,    .79818,
     +     .61279,    .99451,   1.10218,
     +     .11207,    .06051,  21.94018,   1.13636,    .84135,
     +     .65788,   1.03780,   1.14498,
     +     .11411,    .06166,  22.62959,   1.17670,    .88231,
     +     .70067,   1.07880,   1.18551,
     +     .11602,    .06272,  23.24891,   1.21430,    .92039,
     +     .74025,   1.11699,   1.22328,
     +     .11793,    .06380,  23.86632,   1.25240,    .95918,
     +     .78080,   1.15570,   1.26156,
     +     .11980,    .06484,  24.43624,   1.28912,    .99641,
     +     .81941,   1.19299,   1.29844,
     +     .12157,    .06583,  24.97796,   1.32444,   1.03243,
     +     .85703,   1.22886,   1.33392,
     +     .12323,    .06675,  25.45702,   1.35707,   1.06556,
     +     .89139,   1.26199,   1.36670 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12491,    .06769,  25.93824,   1.39026,   1.09942,
     +     .92666,   1.29570,   1.40005,
     +     .12655,    .06860,  26.38886,   1.42249,   1.13225,
     +     .96076,   1.32842,   1.43242,
     +     .12812,    .06947,  26.80750,   1.45313,   1.16351,
     +     .99325,   1.35952,   1.46320,
     +     .12960,    .07029,  27.19737,   1.48219,   1.19323,
     +    1.02421,   1.38904,   1.49240,
     +     .13108,    .07111,  27.56629,   1.51089,   1.22249,
     +    1.05453,   1.41817,   1.52123 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07828,    .04149,    .76010,    .22814,    .00000,
     +     .00000,    .12417,    .23335,
     +     .08133,    .04329,   1.24831,    .24124,    .00000,
     +     .00000,    .13825,    .24677,
     +     .08576,    .04590,   2.00571,    .26295,    .00891,
     +     .00000,    .16132,    .26893,
     +     .08896,    .04778,   2.59134,    .28024,    .02831,
     +     .00000,    .17958,    .28654,
     +     .09228,    .04972,   3.21551,    .29974,    .04667,
     +     .00000,    .20007,    .30639,
     +     .09510,    .05137,   3.75968,    .31746,    .06358,
     +     .00000,    .21862,    .32439,
     +     .09779,    .05293,   4.29668,    .33518,    .08116,
     +     .00000,    .23711,    .34238,
     +     .10063,    .05458,   4.87793,    .35472,    .10086,
     +     .00000,    .25745,    .36221 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10306,    .05599,   5.37636,    .37222,    .11812,
     +     .00000,    .27563,    .37995,
     +     .10538,    .05733,   5.85788,    .38951,    .13533,
     +     .00000,    .29357,    .39748,
     +     .10722,    .05840,   6.24580,    .40355,    .14958,
     +     .00000,    .30811,    .41169,
     +     .11108,    .06062,   7.04440,    .43409,    .18029,
     +     .00326,    .33970,    .44262,
     +     .11437,    .06251,   7.70122,    .46095,    .20726,
     +     .03544,    .36743,    .46981,
     +     .11801,    .06460,   8.42219,    .49160,    .23825,
     +     .07319,    .39904,    .50082,
     +     .12175,    .06673,   9.15305,    .52393,    .27104,
     +     .10884,    .43234,    .53351,
     +     .12511,    .06864,   9.79605,    .55353,    .30114,
     +     .14159,    .46279,    .56342 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12845,    .07054,  10.42520,    .58359,    .33184,
     +     .17481,    .49371,    .59381,
     +     .13120,    .07209,  10.92672,    .60854,    .35728,
     +     .20198,    .51934,    .61902,
     +     .13448,    .07394,  11.50883,    .63867,    .38801,
     +     .23468,    .55029,    .64947,
     +     .13736,    .07556,  12.00667,    .66535,    .41534,
     +     .26394,    .57767,    .67641,
     +     .13998,    .07703,  12.44854,    .68979,    .44047,
     +     .29085,    .60275,    .70110,
     +     .14325,    .07886,  12.97372,    .72031,    .47173,
     +     .32396,    .63408,    .73193,
     +     .14630,    .08056,  13.44600,    .74884,    .50108,
     +     .35518,    .66334,    .76075,
     +     .14913,    .08214,  13.87323,    .77551,    .52865,
     +     .38464,    .69069,    .78767 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15191,    .08368,  14.26569,    .80147,    .55535,
     +     .41282,    .71731,    .81388,
     +     .15462,    .08517,  14.63572,    .82674,    .58148,
     +     .44058,    .74322,    .83940,
     +     .15716,    .08657,  14.96937,    .85041,    .60601,
     +     .46664,    .76750,    .86330,
     +     .15951,    .08787,  15.26119,    .87219,    .62855,
     +     .49048,    .78983,    .88529,
     +     .16188,    .08917,  15.54790,    .89408,    .65133,
     +     .51472,    .81228,    .90740,
     +     .16416,    .09041,  15.80408,    .91489,    .67291,
     +     .53751,    .83363,    .92841,
     +     .16633,    .09160,  16.04488,    .93477,    .69366,
     +     .55958,    .85402,    .94849,
     +     .16835,    .09270,  16.25020,    .95290,    .71251,
     +     .57950,    .87262,    .96680 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17038,    .09381,  16.45403,    .97123,    .73166,
     +     .59983,    .89142,    .98530,
     +     .17237,    .09488,  16.63907,    .98882,    .75002,
     +     .61928,    .90947,   1.00306,
     +     .17425,    .09590,  16.80750,   1.00540,    .76737,
     +     .63768,    .92649,   1.01981,
     +     .17603,    .09686,  16.96158,   1.02102,    .78377,
     +     .65510,    .94252,   1.03558,
     +     .17780,    .09782,  17.10134,   1.03625,    .79972,
     +     .67198,    .95816,   1.05096 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09748,    .05332,    .82019,    .21015,    .00000,
     +     .00000,    .11501,    .21723,
     +     .10118,    .05551,   1.27312,    .22212,    .00000,
     +     .00000,    .12789,    .22959,
     +     .10653,    .05865,   1.95503,    .24151,    .00804,
     +     .00000,    .14860,    .24955,
     +     .11038,    .06090,   2.46926,    .25672,    .02544,
     +     .00000,    .16473,    .26515,
     +     .11435,    .06322,   3.00723,    .27362,    .04159,
     +     .00000,    .18257,    .28247,
     +     .11772,    .06518,   3.46790,    .28878,    .05628,
     +     .00000,    .19852,    .29798,
     +     .12092,    .06703,   3.91580,    .30380,    .07140,
     +     .00000,    .21427,    .31332,
     +     .12428,    .06897,   4.39375,    .32020,    .08818,
     +     .00000,    .23145,    .33007 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12715,    .07062,   4.79781,    .33474,    .10273,
     +     .00000,    .24664,    .34491,
     +     .12990,    .07220,   5.18344,    .34900,    .11712,
     +     .00000,    .26151,    .35944,
     +     .13206,    .07344,   5.49117,    .36050,    .12896,
     +     .00000,    .27350,    .37115,
     +     .13659,    .07602,   6.11430,    .38527,    .15422,
     +     .00276,    .29928,    .39638,
     +     .14043,    .07820,   6.61567,    .40680,    .17615,
     +     .02914,    .32165,    .41828,
     +     .14466,    .08060,   7.15656,    .43109,    .20107,
     +     .05989,    .34687,    .44299,
     +     .14899,    .08304,   7.69466,    .45642,    .22714,
     +     .08856,    .37314,    .46874,
     +     .15286,    .08521,   8.15944,    .47934,    .25083,
     +     .11462,    .39690,    .49204 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15670,    .08736,   8.60659,    .50239,    .27475,
     +     .14082,    .42077,    .51545,
     +     .15984,    .08910,   8.95717,    .52133,    .29438,
     +     .16205,    .44038,    .53470,
     +     .16359,    .09118,   9.35689,    .54400,    .31788,
     +     .18737,    .46384,    .55771,
     +     .16686,    .09299,   9.69318,    .56387,    .33861,
     +     .20984,    .48441,    .57789,
     +     .16982,    .09462,   9.98730,    .58194,    .35751,
     +     .23036,    .50310,    .59623,
     +     .17351,    .09664,  10.32986,    .60427,    .38082,
     +     .25538,    .52621,    .61890,
     +     .17692,    .09851,  10.63211,    .62495,    .40250,
     +     .27877,    .54761,    .63989,
     +     .18009,    .10024,  10.90093,    .64412,    .42272,
     +     .30069,    .56745,    .65935 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18319,    .10191,  11.14127,    .66258,    .44210,
     +     .32145,    .58656,    .67809,
     +     .18619,    .10353,  11.36425,    .68042,    .46094,
     +     .34177,    .60502,    .69619,
     +     .18899,    .10504,  11.56163,    .69699,    .47849,
     +     .36071,    .62218,    .71301,
     +     .19159,    .10644,  11.72955,    .71209,    .49448,
     +     .37790,    .63783,    .72833,
     +     .19419,    .10783,  11.89230,    .72718,    .51056,
     +     .39530,    .65347,    .74365,
     +     .19668,    .10916,  12.03262,    .74137,    .52566,
     +     .41151,    .66819,    .75806,
     +     .19905,    .11042,  12.16322,    .75487,    .54011,
     +     .42716,    .68219,    .77176,
     +     .20125,    .11158,  12.27003,    .76705,    .55311,
     +     .44115,    .69484,    .78413 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20345,    .11275,  12.37490,    .77931,    .56627,
     +     .45538,    .70756,    .79657,
     +     .20560,    .11388,  12.46635,    .79097,    .57879,
     +     .46889,    .71967,    .80840,
     +     .20762,    .11494,  12.54741,    .80189,    .59056,
     +     .48161,    .73102,    .81949,
     +     .20954,    .11595,  12.61997,    .81212,    .60162,
     +     .49360,    .74166,    .82988,
     +     .21143,    .11694,  12.68176,    .82199,    .61229,
     +     .50513,    .75194,    .83991 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11435,    .06400,    .88387,    .19876,    .00000,
     +     .00000,    .10930,    .20762,
     +     .11857,    .06648,   1.30840,    .20991,    .00000,
     +     .00000,    .12135,    .21923,
     +     .12466,    .07003,   1.93528,    .22771,    .00746,
     +     .00000,    .14043,    .23767,
     +     .12903,    .07256,   2.39891,    .24148,    .02351,
     +     .00000,    .15511,    .25191,
     +     .13351,    .07515,   2.87710,    .25662,    .03820,
     +     .00000,    .17118,    .26752,
     +     .13731,    .07733,   3.28099,    .27007,    .05143,
     +     .00000,    .18539,    .28135,
     +     .14090,    .07939,   3.66912,    .28328,    .06494,
     +     .00000,    .19933,    .29493,
     +     .14467,    .08154,   4.07870,    .29761,    .07980,
     +     .00000,    .21442,    .30965 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14788,    .08336,   4.42110,    .31021,    .09259,
     +     .00000,    .22767,    .32258,
     +     .15094,    .08509,   4.74475,    .32248,    .10516,
     +     .00000,    .24055,    .33516,
     +     .15334,    .08645,   5.00107,    .33233,    .11545,
     +     .00000,    .25088,    .34525,
     +     .15837,    .08928,   5.51311,    .35339,    .13724,
     +     .00244,    .27294,    .36681,
     +     .16261,    .09166,   5.91755,    .37151,    .15598,
     +     .02515,    .29189,    .38534,
     +     .16728,    .09426,   6.34754,    .39179,    .17709,
     +     .05150,    .31309,    .40607,
     +     .17203,    .09689,   6.76870,    .41272,    .19898,
     +     .07582,    .33496,    .42747,
     +     .17626,    .09922,   7.12686,    .43150,    .21870,
     +     .09776,    .35456,    .44665 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18045,    .10152,   7.46639,    .45023,    .23846,
     +     .11964,    .37411,    .46577,
     +     .18386,    .10338,   7.72863,    .46550,    .25456,
     +     .13724,    .39005,    .48135,
     +     .18791,    .10558,   8.02298,    .48363,    .27370,
     +     .15810,    .40896,    .49985,
     +     .19144,    .10749,   8.26698,    .49940,    .29046,
     +     .17649,    .42543,    .51595,
     +     .19463,    .10921,   8.47745,    .51364,    .30565,
     +     .19320,    .44030,    .53048,
     +     .19858,    .11133,   8.71766,    .53110,    .32424,
     +     .21341,    .45853,    .54829,
     +     .20223,    .11328,   8.92575,    .54714,    .34141,
     +     .23218,    .47529,    .56465,
     +     .20560,    .11507,   9.10783,    .56191,    .35733,
     +     .24968,    .49072,    .57971 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20888,    .11681,   9.26599,    .57600,    .37246,
     +     .26613,    .50546,    .59408,
     +     .21206,    .11848,   9.41013,    .58952,    .38709,
     +     .28214,    .51961,    .60787,
     +     .21502,    .12003,   9.53500,    .60199,    .40064,
     +     .29699,    .53268,    .62060,
     +     .21774,    .12145,   9.63784,    .61327,    .41289,
     +     .31038,    .54450,    .63210,
     +     .22046,    .12287,   9.73605,    .62448,    .42516,
     +     .32387,    .55626,    .64354,
     +     .22307,    .12422,   9.81678,    .63493,    .43659,
     +     .33636,    .56723,    .65420,
     +     .22554,    .12550,   9.89108,    .64483,    .44749,
     +     .34838,    .57763,    .66430,
     +     .22782,    .12667,   9.94812,    .65367,    .45723,
     +     .35905,    .58694,    .67332 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23011,    .12784,  10.00329,    .66254,    .46705,
     +     .36987,    .59627,    .68237,
     +     .23232,    .12897,  10.04831,    .67089,    .47634,
     +     .38009,    .60508,    .69090,
     +     .23441,    .13004,  10.08643,    .67868,    .48502,
     +     .38966,    .61330,    .69885,
     +     .23638,    .13103,  10.11921,    .68594,    .49315,
     +     .39866,    .62097,    .70626,
     +     .23832,    .13201,  10.14347,    .69287,    .50094,
     +     .40724,    .62831,    .71334 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12976,    .07388,    .94561,    .19057,    .00000,
     +     .00000,    .10530,    .20118,
     +     .13442,    .07659,   1.34622,    .20109,    .00000,
     +     .00000,    .11671,    .21219,
     +     .14112,    .08045,   1.92898,    .21764,    .00703,
     +     .00000,    .13454,    .22947,
     +     .14590,    .08319,   2.35312,    .23032,    .02207,
     +     .00000,    .14813,    .24265,
     +     .15081,    .08599,   2.78541,    .24412,    .03566,
     +     .00000,    .16285,    .25696,
     +     .15495,    .08834,   3.14634,    .25628,    .04781,
     +     .00000,    .17578,    .26954,
     +     .15886,    .09055,   3.48983,    .26815,    .06013,
     +     .00000,    .18838,    .28181,
     +     .16295,    .09285,   3.84891,    .28094,    .07360,
     +     .00000,    .20193,    .29502 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16643,    .09480,   4.14630,    .29211,    .08511,
     +     .00000,    .21375,    .30654,
     +     .16973,    .09664,   4.42504,    .30293,    .09636,
     +     .00000,    .22518,    .31769,
     +     .17233,    .09809,   4.64436,    .31158,    .10553,
     +     .00000,    .23431,    .32660,
     +     .17774,    .10108,   5.07739,    .32995,    .12483,
     +     .00220,    .25368,    .34550,
     +     .18229,    .10359,   5.41371,    .34563,    .14129,
     +     .02231,    .27019,    .36161,
     +     .18728,    .10632,   5.76660,    .36303,    .15971,
     +     .04554,    .28852,    .37949,
     +     .19235,    .10907,   6.10737,    .38086,    .17866,
     +     .06680,    .30729,    .39779,
     +     .19684,    .11150,   6.39307,    .39673,    .19561,
     +     .08585,    .32399,    .41408 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20127,    .11388,   6.66018,    .41244,    .21249,
     +     .10474,    .34052,    .43019,
     +     .20487,    .11581,   6.86345,    .42515,    .22615,
     +     .11984,    .35391,    .44323,
     +     .20914,    .11808,   7.08825,    .44014,    .24228,
     +     .13763,    .36970,    .45860,
     +     .21284,    .12003,   7.27188,    .45311,    .25634,
     +     .15324,    .38336,    .47189,
     +     .21618,    .12179,   7.42803,    .46475,    .26901,
     +     .16734,    .39563,    .48382,
     +     .22030,    .12395,   7.60234,    .47890,    .28441,
     +     .18431,    .41056,    .49833,
     +     .22409,    .12593,   7.75047,    .49181,    .29856,
     +     .19998,    .42419,    .51156,
     +     .22759,    .12774,   7.87788,    .50362,    .31160,
     +     .21452,    .43667,    .52366 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23099,    .12949,   7.98493,    .51479,    .32391,
     +     .22809,    .44850,    .53511,
     +     .23425,    .13117,   8.08027,    .52545,    .33576,
     +     .24126,    .45979,    .54603,
     +     .23729,    .13272,   8.16043,    .53521,    .34667,
     +     .25340,    .47014,    .55603,
     +     .24008,    .13413,   8.22373,    .54398,    .35648,
     +     .26429,    .47946,    .56502,
     +     .24286,    .13554,   8.28302,    .55266,    .36627,
     +     .27524,    .48869,    .57392,
     +     .24552,    .13687,   8.32818,    .56066,    .37532,
     +     .28531,    .49722,    .58213,
     +     .24804,    .13813,   8.36904,    .56822,    .38393,
     +     .29496,    .50528,    .58988,
     +     .25034,    .13928,   8.39690,    .57490,    .39156,
     +     .30349,    .51243,    .59673 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25265,    .14043,   8.42309,    .58158,    .39924,
     +     .31212,    .51958,    .60358,
     +     .25488,    .14153,   8.44128,    .58783,    .40645,
     +     .32022,    .52628,    .60999,
     +     .25698,    .14256,   8.45478,    .59361,    .41317,
     +     .32778,    .53250,    .61592,
     +     .25896,    .14353,   8.46494,    .59897,    .41944,
     +     .33487,    .53828,    .62143,
     +     .26090,    .14447,   8.46823,    .60404,    .42540,
     +     .34160,    .54375,    .62664 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15770,    .09192,   1.05942,    .17908,    .00000,
     +     .00000,    .09991,    .19308,
     +     .16307,    .09495,   1.42068,    .18859,    .00000,
     +     .00000,    .11032,    .20316,
     +     .17073,    .09926,   1.93328,    .20324,    .00639,
     +     .00000,    .12627,    .21861,
     +     .17617,    .10229,   2.29663,    .21426,    .01993,
     +     .00000,    .13822,    .23020,
     +     .18173,    .10537,   2.65991,    .22608,    .03194,
     +     .00000,    .15098,    .24258,
     +     .18639,    .10794,   2.95754,    .23634,    .04253,
     +     .00000,    .16202,    .25331,
     +     .19077,    .11034,   3.23616,    .24624,    .05314,
     +     .00000,    .17267,    .26365,
     +     .19534,    .11283,   3.52282,    .25681,    .06462,
     +     .00000,    .18402,    .27466 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19920,    .11493,   3.75640,    .26594,    .07432,
     +     .00000,    .19380,    .28416,
     +     .20287,    .11690,   3.97225,    .27469,    .08372,
     +     .00000,    .20318,    .29326,
     +     .20574,    .11844,   4.14023,    .28164,    .09133,
     +     .00000,    .21063,    .30049,
     +     .21169,    .12162,   4.46474,    .29623,    .10716,
     +     .00187,    .22624,    .31563,
     +     .21666,    .12425,   4.70891,    .30850,    .12049,
     +     .01840,    .23936,    .32835,
     +     .22208,    .12711,   4.95905,    .32196,    .13523,
     +     .03736,    .25376,    .34229,
     +     .22755,    .12996,   5.19431,    .33554,    .15021,
     +     .05448,    .26830,    .35636,
     +     .23237,    .13246,   5.38612,    .34747,    .16345,
     +     .06965,    .28108,    .36870 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23711,    .13490,   5.56050,    .35912,    .17648,
     +     .08454,    .29358,    .38076,
     +     .24093,    .13685,   5.68911,    .36844,    .18691,
     +     .09633,    .30359,    .39040,
     +     .24543,    .13914,   5.82689,    .37929,    .19911,
     +     .11009,    .31525,    .40161,
     +     .24932,    .14110,   5.93587,    .38856,    .20963,
     +     .12205,    .32522,    .41119,
     +     .25280,    .14285,   6.02559,    .39679,    .21904,
     +     .13278,    .33410,    .41970,
     +     .25708,    .14497,   6.12036,    .40666,    .23034,
     +     .14555,    .34476,    .42989,
     +     .26100,    .14691,   6.19682,    .41554,    .24062,
     +     .15724,    .35438,    .43907,
     +     .26459,    .14867,   6.25942,    .42358,    .25001,
     +     .16800,    .36310,    .44737 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26804,    .15035,   6.30660,    .43104,    .25876,
     +     .17794,    .37122,    .45508,
     +     .27136,    .15196,   6.34562,    .43808,    .26710,
     +     .18751,    .37891,    .46236,
     +     .27442,    .15343,   6.37504,    .44446,    .27472,
     +     .19627,    .38589,    .46895,
     +     .27722,    .15476,   6.39385,    .45008,    .28150,
     +     .20406,    .39207,    .47476,
     +     .28000,    .15608,   6.40966,    .45560,    .28822,
     +     .21183,    .39815,    .48047,
     +     .28263,    .15731,   6.41570,    .46060,    .29435,
     +     .21891,    .40368,    .48564,
     +     .28512,    .15848,   6.42006,    .46529,    .30015,
     +     .22567,    .40888,    .49048,
     +     .28738,    .15953,   6.41671,    .46934,    .30523,
     +     .23158,    .41340,    .49467 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28964,    .16057,   6.41213,    .47336,    .31031,
     +     .23753,    .41789,    .49883,
     +     .29181,    .16156,   6.40232,    .47704,    .31503,
     +     .24307,    .42203,    .50264,
     +     .29384,    .16249,   6.39037,    .48041,    .31939,
     +     .24821,    .42584,    .50612,
     +     .29574,    .16335,   6.37735,    .48350,    .32343,
     +     .25300,    .42934,    .50932,
     +     .29760,    .16418,   6.35948,    .48634,    .32722,
     +     .25750,    .43260,    .51227 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .19515,    .11599,   1.20606,    .16760,    .00000,
     +     .00000,    .09483,    .18647,
     +     .20126,    .11930,   1.51960,    .17593,    .00000,
     +     .00000,    .10411,    .19542,
     +     .20992,    .12395,   1.95134,    .18847,    .00570,
     +     .00000,    .11801,    .20882,
     +     .21602,    .12720,   2.24767,    .19770,    .01767,
     +     .00000,    .12821,    .21864,
     +     .22221,    .13047,   2.53719,    .20741,    .02804,
     +     .00000,    .13890,    .22894,
     +     .22738,    .13317,   2.76888,    .21569,    .03703,
     +     .00000,    .14800,    .23769,
     +     .23221,    .13568,   2.98139,    .22358,    .04593,
     +     .00000,    .15667,    .24602,
     +     .23722,    .13827,   3.19569,    .23189,    .05543,
     +     .00000,    .16579,    .25478 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24143,    .14043,   3.36663,    .23896,    .06335,
     +     .00000,    .17354,    .26222,
     +     .24539,    .14245,   3.52164,    .24566,    .07094,
     +     .00000,    .18090,    .26926,
     +     .24849,    .14402,   3.64056,    .25094,    .07703,
     +     .00000,    .18669,    .27480,
     +     .25486,    .14724,   3.86313,    .26185,    .08955,
     +     .00155,    .19866,    .28624,
     +     .26015,    .14987,   4.02282,    .27086,    .09992,
     +     .01469,    .20856,    .29567,
     +     .26587,    .15269,   4.18034,    .28057,    .11123,
     +     .02964,    .21924,    .30583,
     +     .27159,    .15549,   4.32232,    .29018,    .12254,
     +     .04294,    .22985,    .31588,
     +     .27659,    .15791,   4.43275,    .29847,    .13239,
     +     .05456,    .23902,    .32454 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28146,    .16024,   4.52828,    .30644,    .14196,
     +     .06583,    .24786,    .33285,
     +     .28536,    .16209,   4.59482,    .31269,    .14953,
     +     .07465,    .25481,    .33937,
     +     .28992,    .16422,   4.66104,    .31983,    .15825,
     +     .08483,    .26280,    .34682,
     +     .29383,    .16604,   4.70958,    .32584,    .16568,
     +     .09359,    .26953,    .35308,
     +     .29730,    .16765,   4.74639,    .33110,    .17226,
     +     .10136,    .27544,    .35855,
     +     .30153,    .16957,   4.77906,    .33724,    .18004,
     +     .11051,    .28240,    .36495,
     +     .30537,    .17130,   4.80067,    .34266,    .18702,
     +     .11880,    .28857,    .37059,
     +     .30886,    .17286,   4.81456,    .34748,    .19332,
     +     .12635,    .29408,    .37561 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31219,    .17432,   4.81772,    .35183,    .19910,
     +     .13323,    .29911,    .38013,
     +     .31535,    .17570,   4.81608,    .35586,    .20455,
     +     .13980,    .30380,    .38432,
     +     .31825,    .17695,   4.80961,    .35942,    .20947,
     +     .14575,    .30797,    .38803,
     +     .32088,    .17806,   4.79749,    .36247,    .21377,
     +     .15098,    .31158,    .39120,
     +     .32347,    .17915,   4.78347,    .36542,    .21800,
     +     .15617,    .31509,    .39426,
     +     .32589,    .18016,   4.76368,    .36798,    .22179,
     +     .16083,    .31820,    .39692,
     +     .32817,    .18110,   4.74428,    .37036,    .22536,
     +     .16526,    .32109,    .39940,
     +     .33021,    .18193,   4.72105,    .37232,    .22841,
     +     .16907,    .32352,    .40143 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .33225,    .18275,   4.69713,    .37424,    .23145,
     +     .17289,    .32592,    .40342,
     +     .33418,    .18352,   4.67037,    .37591,    .23422,
     +     .17641,    .32806,    .40516,
     +     .33598,    .18422,   4.64348,    .37740,    .23676,
     +     .17965,    .32998,    .40670,
     +     .33765,    .18487,   4.61712,    .37873,    .23908,
     +     .18264,    .33173,    .40808,
     +     .33926,    .18549,   4.58765,    .37987,    .24121,
     +     .18541,    .33327,    .40926 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25050,    .15065,   1.39364,    .15444,    .00000,
     +     .00000,    .08942,    .18089,
     +     .25731,    .15405,   1.64315,    .16126,    .00000,
     +     .00000,    .09726,    .18830,
     +     .26686,    .15877,   1.97293,    .17119,    .00488,
     +     .00000,    .10865,    .19902,
     +     .27353,    .16201,   2.18925,    .17829,    .01498,
     +     .00000,    .11678,    .20665,
     +     .28020,    .16523,   2.39377,    .18557,    .02350,
     +     .00000,    .12510,    .21442,
     +     .28572,    .16785,   2.55185,    .19162,    .03072,
     +     .00000,    .13202,    .22088,
     +     .29084,    .17027,   2.69252,    .19728,    .03775,
     +     .00000,    .13850,    .22690,
     +     .29609,    .17273,   2.83011,    .20313,    .04513,
     +     .00000,    .14521,    .23311 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .30048,    .17475,   2.93604,    .20800,    .05117,
     +     .00000,    .15080,    .23827,
     +     .30457,    .17662,   3.02909,    .21254,    .05688,
     +     .00000,    .15603,    .24307,
     +     .30774,    .17807,   3.09881,    .21607,    .06142,
     +     .00000,    .16009,    .24680,
     +     .31422,    .18097,   3.22161,    .22319,    .07057,
     +     .00121,    .16833,    .25430,
     +     .31951,    .18331,   3.30077,    .22890,    .07800,
     +     .01095,    .17497,    .26030,
     +     .32517,    .18577,   3.37255,    .23490,    .08595,
     +     .02194,    .18197,    .26659,
     +     .33074,    .18815,   3.43048,    .24065,    .09374,
     +     .03151,    .18875,    .27261,
     +     .33555,    .19017,   3.46946,    .24546,    .10038,
     +     .03973,    .19446,    .27763 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .34016,    .19207,   3.49749,    .24993,    .10671,
     +     .04758,    .19982,    .28229,
     +     .34381,    .19354,   3.51179,    .25333,    .11163,
     +     .05363,    .20395,    .28582,
     +     .34800,    .19521,   3.51968,    .25708,    .11720,
     +     .06051,    .20855,    .28971,
     +     .35154,    .19659,   3.52019,    .26012,    .12185,
     +     .06635,    .21233,    .29286,
     +     .35467,    .19778,   3.51581,    .26270,    .12591,
     +     .07147,    .21558,    .29552,
     +     .35838,    .19917,   3.50158,    .26556,    .13061,
     +     .07740,    .21926,    .29846,
     +     .36170,    .20039,   3.48298,    .26798,    .13474,
     +     .08268,    .22243,    .30092,
     +     .36469,    .20145,   3.46209,    .27003,    .13840,
     +     .08744,    .22518,    .30302 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36746,    .20240,   3.43487,    .27174,    .14167,
     +     .09170,    .22756,    .30474,
     +     .37006,    .20327,   3.40600,    .27323,    .14470,
     +     .09571,    .22971,    .30624,
     +     .37241,    .20403,   3.37629,    .27446,    .14738,
     +     .09930,    .23155,    .30747,
     +     .37448,    .20468,   3.34520,    .27541,    .14967,
     +     .10240,    .23305,    .30839,
     +     .37651,    .20531,   3.31340,    .27628,    .15189,
     +     .10545,    .23447,    .30923,
     +     .37835,    .20584,   3.27904,    .27688,    .15381,
     +     .10814,    .23562,    .30981,
     +     .38007,    .20633,   3.24653,    .27742,    .15560,
     +     .11067,    .23666,    .31032,
     +     .38157,    .20672,   3.21339,    .27774,    .15707,
     +     .11280,    .23744,    .31059 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .38305,    .20710,   3.18014,    .27802,    .15852,
     +     .11492,    .23819,    .31083,
     +     .38441,    .20743,   3.14594,    .27815,    .15979,
     +     .11684,    .23878,    .31091,
     +     .38565,    .20773,   3.11294,    .27821,    .16093,
     +     .11858,    .23926,    .31091,
     +     .38679,    .20798,   3.08152,    .27821,    .16195,
     +     .12018,    .23966,    .31085,
     +     .38785,    .20819,   3.04852,    .27808,    .16284,
     +     .12162,    .23992,    .31065 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .30012,    .18030,   1.52141,    .14416,    .00000,
     +     .00000,    .08537,    .17734,
     +     .30716,    .18351,   1.71876,    .14976,    .00000,
     +     .00000,    .09203,    .18339,
     +     .31697,    .18789,   1.96994,    .15768,    .00424,
     +     .00000,    .10147,    .19190,
     +     .32371,    .19086,   2.12761,    .16321,    .01294,
     +     .00000,    .10806,    .19780,
     +     .33039,    .19377,   2.27188,    .16875,    .02011,
     +     .00000,    .11467,    .20366,
     +     .33587,    .19609,   2.37936,    .17324,    .02609,
     +     .00000,    .12007,    .20841,
     +     .34091,    .19820,   2.47199,    .17736,    .03184,
     +     .00000,    .12504,    .21276,
     +     .34604,    .20032,   2.55955,    .18155,    .03779,
     +     .00000,    .13011,    .21717 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .35026,    .20204,   2.62406,    .18497,    .04259,
     +     .00000,    .13426,    .22074,
     +     .35418,    .20361,   2.67848,    .18810,    .04709,
     +     .00000,    .13808,    .22399,
     +     .35720,    .20480,   2.71806,    .19050,    .05062,
     +     .00000,    .14103,    .22649,
     +     .36329,    .20715,   2.78114,    .19523,    .05765,
     +     .00099,    .14689,    .23140,
     +     .36818,    .20899,   2.81385,    .19891,    .06326,
     +     .00860,    .15150,    .23516,
     +     .37334,    .21089,   2.83736,    .20265,    .06917,
     +     .01712,    .15625,    .23897,
     +     .37834,    .21266,   2.84956,    .20609,    .07485,
     +     .02442,    .16073,    .24247,
     +     .38259,    .21410,   2.85092,    .20885,    .07962,
     +     .03061,    .16439,    .24524 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38660,    .21541,   2.84439,    .21131,    .08409,
     +     .03644,    .16774,    .24770,
     +     .38970,    .21640,   2.83302,    .21309,    .08751,
     +     .04088,    .17024,    .24945,
     +     .39321,    .21746,   2.81291,    .21495,    .09131,
     +     .04587,    .17294,    .25125,
     +     .39612,    .21831,   2.79110,    .21637,    .09444,
     +     .05006,    .17509,    .25260,
     +     .39863,    .21900,   2.76821,    .21751,    .09713,
     +     .05370,    .17687,    .25365,
     +     .40157,    .21974,   2.73397,    .21861,    .10017,
     +     .05785,    .17879,    .25465,
     +     .40412,    .22035,   2.69891,    .21944,    .10280,
     +     .06151,    .18036,    .25535,
     +     .40636,    .22085,   2.66438,    .22007,    .10510,
     +     .06477,    .18166,    .25585 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40838,    .22122,   2.62632,    .22043,    .10708,
     +     .06764,    .18267,    .25606,
     +     .41022,    .22153,   2.58821,    .22066,    .10889,
     +     .07031,    .18353,    .25614,
     +     .41184,    .22176,   2.55114,    .22074,    .11045,
     +     .07268,    .18420,    .25607,
     +     .41321,    .22192,   2.51473,    .22066,    .11175,
     +     .07469,    .18466,    .25583,
     +     .41451,    .22204,   2.47831,    .22053,    .11299,
     +     .07666,    .18506,    .25554,
     +     .41565,    .22208,   2.44096,    .22023,    .11401,
     +     .07835,    .18527,    .25506,
     +     .41669,    .22209,   2.40602,    .21992,    .11495,
     +     .07995,    .18544,    .25460,
     +     .41753,    .22204,   2.37184,    .21948,    .11569,
     +     .08126,    .18545,    .25400 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41835,    .22198,   2.33787,    .21901,    .11640,
     +     .08255,    .18543,    .25337,
     +     .41904,    .22187,   2.30385,    .21846,    .11699,
     +     .08370,    .18530,    .25265,
     +     .41965,    .22174,   2.27152,    .21788,    .11749,
     +     .08473,    .18513,    .25192,
     +     .42019,    .22159,   2.24109,    .21731,    .11793,
     +     .08567,    .18494,    .25119,
     +     .42063,    .22139,   2.20986,    .21663,    .11827,
     +     .08649,    .18464,    .25035 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38733,    .22851,   1.64344,    .12685,    .00000,
     +     .00000,    .07832,    .17037,
     +     .39394,    .23087,   1.75996,    .13054,    .00000,
     +     .00000,    .08307,    .17408,
     +     .40288,    .23393,   1.89581,    .13549,    .00326,
     +     .00000,    .08955,    .17901,
     +     .40892,    .23589,   1.97200,    .13877,    .00984,
     +     .00000,    .09389,    .18223,
     +     .41472,    .23773,   2.03542,    .14190,    .01510,
     +     .00000,    .09808,    .18523,
     +     .41935,    .23911,   2.07731,    .14432,    .01936,
     +     .00000,    .10138,    .18751,
     +     .42353,    .24030,   2.10957,    .14645,    .02338,
     +     .00000,    .10433,    .18950,
     +     .42769,    .24144,   2.13606,    .14852,    .02746,
     +     .00000,    .10725,    .19141 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .43103,    .24230,   2.15131,    .15012,    .03067,
     +     .00000,    .10957,    .19283,
     +     .43405,    .24302,   2.16087,    .15151,    .03363,
     +     .00000,    .11163,    .19404,
     +     .43636,    .24354,   2.16616,    .15253,    .03592,
     +     .00000,    .11319,    .19493,
     +     .44079,    .24447,   2.16353,    .15442,    .04038,
     +     .00070,    .11614,    .19647,
     +     .44421,    .24508,   2.14736,    .15573,    .04383,
     +     .00569,    .11833,    .19744,
     +     .44766,    .24557,   2.12235,    .15690,    .04737,
     +     .01123,    .12046,    .19823,
     +     .45082,    .24589,   2.09046,    .15780,    .05067,
     +     .01586,    .12232,    .19871,
     +     .45334,    .24602,   2.05716,    .15835,    .05336,
     +     .01970,    .12372,    .19887 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45557,    .24601,   2.02039,    .15868,    .05580,
     +     .02325,    .12488,    .19879,
     +     .45716,    .24590,   1.98761,    .15879,    .05762,
     +     .02590,    .12564,    .19854,
     +     .45880,    .24565,   1.94566,    .15872,    .05957,
     +     .02882,    .12634,    .19803,
     +     .46006,    .24533,   1.90754,    .15852,    .06113,
     +     .03123,    .12681,    .19744,
     +     .46106,    .24495,   1.87199,    .15823,    .06243,
     +     .03328,    .12712,    .19680,
     +     .46200,    .24437,   1.82544,    .15768,    .06383,
     +     .03558,    .12730,    .19577,
     +     .46266,    .24374,   1.78152,    .15704,    .06500,
     +     .03756,    .12732,    .19466,
     +     .46314,    .24310,   1.74065,    .15636,    .06598,
     +     .03929,    .12725,    .19355 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46338,    .24233,   1.69912,    .15552,    .06676,
     +     .04077,    .12699,    .19228,
     +     .46349,    .24154,   1.65905,    .15464,    .06744,
     +     .04213,    .12667,    .19098,
     +     .46346,    .24073,   1.62151,    .15374,    .06799,
     +     .04330,    .12630,    .18968,
     +     .46328,    .23991,   1.58620,    .15282,    .06841,
     +     .04427,    .12585,    .18838,
     +     .46303,    .23907,   1.55153,    .15187,    .06879,
     +     .04521,    .12537,    .18705,
     +     .46261,    .23817,   1.51743,    .15084,    .06904,
     +     .04598,    .12479,    .18565,
     +     .46219,    .23732,   1.48590,    .14986,    .06927,
     +     .04670,    .12424,    .18431,
     +     .46163,    .23645,   1.45609,    .14888,    .06939,
     +     .04727,    .12363,    .18298 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46104,    .23558,   1.42676,    .14789,    .06950,
     +     .04782,    .12301,    .18163,
     +     .46037,    .23466,   1.39810,    .14685,    .06954,
     +     .04829,    .12234,    .18025,
     +     .45968,    .23376,   1.37126,    .14584,    .06956,
     +     .04871,    .12169,    .17893,
     +     .45898,    .23290,   1.34628,    .14488,    .06955,
     +     .04907,    .12106,    .17767,
     +     .45816,    .23200,   1.32119,    .14386,    .06948,
     +     .04936,    .12036,    .17633 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .46182,    .26517,   1.64371,    .11181,    .00000,
     +     .00000,    .07151,    .16147,
     +     .46714,    .26633,   1.70264,    .11409,    .00000,
     +     .00000,    .07481,    .16327,
     +     .47410,    .26761,   1.76049,    .11696,    .00252,
     +     .00000,    .07910,    .16544,
     +     .47858,    .26829,   1.78470,    .11875,    .00754,
     +     .00000,    .08187,    .16668,
     +     .48276,    .26876,   1.79852,    .12033,    .01147,
     +     .00000,    .08444,    .16767,
     +     .48593,    .26899,   1.80187,    .12144,    .01459,
     +     .00000,    .08638,    .16826,
     +     .48868,    .26908,   1.79988,    .12236,    .01748,
     +     .00000,    .08806,    .16867,
     +     .49131,    .26905,   1.79293,    .12317,    .02036,
     +     .00000,    .08965,    .16894 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49328,    .26891,   1.78223,    .12372,    .02260,
     +     .00000,    .09085,    .16900,
     +     .49497,    .26869,   1.76890,    .12413,    .02462,
     +     .00000,    .09187,    .16895,
     +     .49621,    .26847,   1.75714,    .12441,    .02617,
     +     .00000,    .09261,    .16886,
     +     .49838,    .26781,   1.72364,    .12475,    .02913,
     +     .00051,    .09393,    .16840,
     +     .49983,    .26707,   1.68627,    .12481,    .03137,
     +     .00396,    .09480,    .16776,
     +     .50104,    .26609,   1.64165,    .12467,    .03362,
     +     .00775,    .09553,    .16685,
     +     .50187,    .26490,   1.59350,    .12431,    .03565,
     +     .01086,    .09603,    .16568,
     +     .50227,    .26370,   1.54876,    .12381,    .03726,
     +     .01340,    .09628,    .16445 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50238,    .26237,   1.50320,    .12317,    .03869,
     +     .01571,    .09637,    .16308,
     +     .50221,    .26119,   1.46511,    .12253,    .03971,
     +     .01741,    .09632,    .16182,
     +     .50173,    .25964,   1.41896,    .12163,    .04078,
     +     .01925,    .09609,    .16021,
     +     .50111,    .25821,   1.37870,    .12076,    .04161,
     +     .02075,    .09580,    .15870,
     +     .50038,    .25685,   1.34236,    .11991,    .04227,
     +     .02201,    .09548,    .15725,
     +     .49917,    .25502,   1.29664,    .11871,    .04295,
     +     .02339,    .09492,    .15531,
     +     .49784,    .25325,   1.25475,    .11753,    .04348,
     +     .02456,    .09431,    .15344,
     +     .49646,    .25157,   1.21662,    .11639,    .04390,
     +     .02557,    .09368,    .15167 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49485,    .24978,   1.17904,    .11516,    .04419,
     +     .02641,    .09296,    .14980,
     +     .49317,    .24801,   1.14342,    .11393,    .04442,
     +     .02717,    .09222,    .14797,
     +     .49148,    .24630,   1.11064,    .11274,    .04459,
     +     .02781,    .09148,    .14623,
     +     .48973,    .24464,   1.08040,    .11158,    .04467,
     +     .02832,    .09072,    .14454,
     +     .48793,    .24299,   1.05101,    .11042,    .04474,
     +     .02881,    .08996,    .14286,
     +     .48600,    .24129,   1.02266,    .10923,    .04473,
     +     .02920,    .08915,    .14116,
     +     .48416,    .23970,    .99661,    .10812,    .04471,
     +     .02956,    .08839,    .13957,
     +     .48227,    .23814,    .97242,    .10702,    .04464,
     +     .02982,    .08763,    .13803 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .48037,    .23659,    .94878,    .10593,    .04456,
     +     .03008,    .08687,    .13649,
     +     .47840,    .23502,    .92595,    .10483,    .04444,
     +     .03028,    .08608,    .13495,
     +     .47647,    .23351,    .90475,    .10379,    .04431,
     +     .03045,    .08533,    .13349,
     +     .47463,    .23208,    .88516,    .10280,    .04418,
     +     .03060,    .08461,    .13211,
     +     .47267,    .23060,    .86571,    .10177,    .04401,
     +     .03070,    .08386,    .13070 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52522,    .29258,   1.56929,    .09849,    .00000,
     +     .00000,    .06476,    .15044,
     +     .52873,    .29237,   1.58770,    .09973,    .00000,
     +     .00000,    .06691,    .15079,
     +     .53294,    .29170,   1.59327,    .10112,    .00195,
     +     .00000,    .06959,    .15087,
     +     .53543,    .29100,   1.58434,    .10188,    .00579,
     +     .00000,    .07122,    .15068,
     +     .53748,    .29002,   1.56781,    .10242,    .00874,
     +     .00000,    .07266,    .15024,
     +     .53882,    .28903,   1.54847,    .10270,    .01104,
     +     .00000,    .07368,    .14968,
     +     .53980,    .28799,   1.52710,    .10285,    .01315,
     +     .00000,    .07451,    .14903,
     +     .54056,    .28679,   1.50196,    .10290,    .01523,
     +     .00000,    .07524,    .14822 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54092,    .28564,   1.47769,    .10282,    .01682,
     +     .00000,    .07574,    .14739,
     +     .54106,    .28446,   1.45290,    .10265,    .01824,
     +     .00000,    .07613,    .14653,
     +     .54108,    .28350,   1.43289,    .10248,    .01931,
     +     .00000,    .07638,    .14582,
     +     .54067,    .28129,   1.38558,    .10195,    .02134,
     +     .00038,    .07670,    .14416,
     +     .53990,    .27927,   1.34015,    .10134,    .02283,
     +     .00282,    .07679,    .14258,
     +     .53866,    .27689,   1.28916,    .10053,    .02430,
     +     .00550,    .07673,    .14069,
     +     .53699,    .27428,   1.23690,    .09953,    .02559,
     +     .00766,    .07650,    .13862,
     +     .53515,    .27183,   1.19037,    .09852,    .02659,
     +     .00940,    .07615,    .13666 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53302,    .26930,   1.14456,    .09743,    .02746,
     +     .01096,    .07569,    .13461,
     +     .53103,    .26714,   1.10740,    .09646,    .02806,
     +     .01209,    .07522,    .13288,
     +     .52838,    .26444,   1.06353,    .09522,    .02865,
     +     .01331,    .07457,    .13072,
     +     .52587,    .26202,   1.02607,    .09409,    .02910,
     +     .01429,    .07394,    .12878,
     +     .52345,    .25979,    .99284,    .09301,    .02944,
     +     .01510,    .07331,    .12700,
     +     .52010,    .25690,    .95192,    .09160,    .02976,
     +     .01597,    .07245,    .12470,
     +     .51682,    .25414,    .91507,    .09025,    .02999,
     +     .01669,    .07160,    .12254,
     +     .51368,    .25154,    .88199,    .08896,    .03016,
     +     .01731,    .07077,    .12052 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51031,    .24890,    .84997,    .08765,    .03024,
     +     .01782,    .06989,    .11849,
     +     .50694,    .24632,    .81995,    .08636,    .03028,
     +     .01826,    .06902,    .11650,
     +     .50368,    .24386,    .79264,    .08514,    .03028,
     +     .01863,    .06818,    .11464,
     +     .50049,    .24153,    .76775,    .08397,    .03024,
     +     .01892,    .06736,    .11287,
     +     .49727,    .23921,    .74373,    .08281,    .03018,
     +     .01919,    .06654,    .11112,
     +     .49396,    .23688,    .72084,    .08165,    .03009,
     +     .01940,    .06571,    .10940,
     +     .49084,    .23469,    .69992,    .08056,    .02999,
     +     .01958,    .06493,    .10779,
     +     .48776,    .23260,    .68070,    .07952,    .02986,
     +     .01971,    .06416,    .10625 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48468,    .23051,    .66199,    .07848,    .02973,
     +     .01983,    .06340,    .10473,
     +     .48156,    .22843,    .64408,    .07746,    .02957,
     +     .01992,    .06264,    .10323,
     +     .47856,    .22646,    .62755,    .07649,    .02942,
     +     .01998,    .06191,    .10181,
     +     .47571,    .22460,    .61233,    .07557,    .02926,
     +     .02004,    .06123,    .10049,
     +     .47277,    .22267,    .59735,    .07463,    .02909,
     +     .02006,    .06052,    .09915 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59021,    .31608,   1.41799,    .08397,    .00000,
     +     .00000,    .05649,    .13460,
     +     .59094,    .31415,   1.40366,    .08429,    .00000,
     +     .00000,    .05760,    .13361,
     +     .59111,    .31099,   1.36923,    .08442,    .00141,
     +     .00000,    .05884,    .13190,
     +     .59066,    .30858,   1.33652,    .08434,    .00415,
     +     .00000,    .05951,    .13049,
     +     .58970,    .30585,   1.29934,    .08407,    .00623,
     +     .00000,    .06000,    .12890,
     +     .58846,    .30340,   1.26541,    .08371,    .00782,
     +     .00000,    .06027,    .12742,
     +     .58701,    .30099,   1.23226,    .08329,    .00925,
     +     .00000,    .06042,    .12595,
     +     .58524,    .29839,   1.19674,    .08277,    .01065,
     +     .00000,    .06050,    .12434 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58344,    .29604,   1.16538,    .08222,    .01170,
     +     .00000,    .06047,    .12290,
     +     .58152,    .29376,   1.13513,    .08166,    .01263,
     +     .00000,    .06037,    .12147,
     +     .57992,    .29195,   1.11150,    .08119,    .01333,
     +     .00000,    .06026,    .12033,
     +     .57613,    .28797,   1.05952,    .08011,    .01461,
     +     .00027,    .05989,    .11785,
     +     .57252,    .28448,   1.01315,    .07908,    .01554,
     +     .00189,    .05947,    .11567,
     +     .56820,    .28052,    .96298,    .07785,    .01642,
     +     .00366,    .05889,    .11321,
     +     .56339,    .27636,    .91330,    .07651,    .01718,
     +     .00507,    .05819,    .11063,
     +     .55877,    .27258,    .87035,    .07525,    .01775,
     +     .00619,    .05748,    .10827 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55392,    .26876,    .82907,    .07396,    .01822,
     +     .00718,    .05671,    .10588,
     +     .54975,    .26555,    .79632,    .07286,    .01853,
     +     .00789,    .05604,    .10392,
     +     .54451,    .26164,    .75844,    .07149,    .01883,
     +     .00864,    .05517,    .10156,
     +     .53978,    .25820,    .72663,    .07027,    .01904,
     +     .00924,    .05439,    .09949,
     +     .53537,    .25507,    .69881,    .06916,    .01918,
     +     .00972,    .05365,    .09762,
     +     .52959,    .25108,    .66515,    .06773,    .01930,
     +     .01023,    .05268,    .09526,
     +     .52409,    .24734,    .63526,    .06639,    .01936,
     +     .01066,    .05176,    .09307,
     +     .51891,    .24387,    .60875,    .06514,    .01938,
     +     .01101,    .05089,    .09107 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51357,    .24039,    .58344,    .06389,    .01935,
     +     .01129,    .05002,    .08905,
     +     .50834,    .23702,    .55996,    .06268,    .01930,
     +     .01153,    .04916,    .08713,
     +     .50336,    .23387,    .53882,    .06154,    .01924,
     +     .01172,    .04834,    .08535,
     +     .49859,    .23089,    .51975,    .06048,    .01915,
     +     .01187,    .04757,    .08368,
     +     .49384,    .22794,    .50146,    .05943,    .01905,
     +     .01200,    .04680,    .08204,
     +     .48908,    .22501,    .48422,    .05839,    .01893,
     +     .01210,    .04603,    .08046,
     +     .48462,    .22227,    .46853,    .05742,    .01882,
     +     .01218,    .04531,    .07899,
     +     .48028,    .21969,    .45423,    .05650,    .01869,
     +     .01223,    .04463,    .07759 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47595,    .21712,    .44036,    .05560,    .01856,
     +     .01227,    .04396,    .07621,
     +     .47165,    .21459,    .42719,    .05471,    .01841,
     +     .01230,    .04330,    .07487,
     +     .46757,    .21219,    .41509,    .05387,    .01827,
     +     .01231,    .04267,    .07360,
     +     .46370,    .20994,    .40400,    .05309,    .01813,
     +     .01232,    .04208,    .07243,
     +     .45972,    .20766,    .39316,    .05231,    .01798,
     +     .01231,    .04148,    .07124 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .64043,    .32965,   1.23812,    .07152,    .00000,
     +     .00000,    .04862,    .11764,
     +     .63810,    .32603,   1.20532,    .07121,    .00000,
     +     .00000,    .04903,    .11582,
     +     .63386,    .32055,   1.15016,    .07055,    .00101,
     +     .00000,    .04933,    .11303,
     +     .63032,    .31651,   1.10646,    .06993,    .00297,
     +     .00000,    .04938,    .11096,
     +     .62620,    .31214,   1.06069,    .06917,    .00443,
     +     .00000,    .04931,    .10874,
     +     .62228,    .30837,   1.02153,    .06844,    .00553,
     +     .00000,    .04913,    .10677,
     +     .61834,    .30474,    .98478,    .06771,    .00651,
     +     .00000,    .04890,    .10488,
     +     .61399,    .30088,    .94678,    .06689,    .00746,
     +     .00000,    .04859,    .10289 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61001,    .29750,    .91443,    .06613,    .00817,
     +     .00000,    .04827,    .10116,
     +     .60604,    .29423,    .88401,    .06537,    .00878,
     +     .00000,    .04791,    .09949,
     +     .60286,    .29166,    .86063,    .06476,    .00924,
     +     .00000,    .04762,    .09819,
     +     .59575,    .28618,    .81102,    .06343,    .01006,
     +     .00020,    .04692,    .09540,
     +     .58940,    .28146,    .76847,    .06223,    .01065,
     +     .00129,    .04625,    .09302,
     +     .58212,    .27620,    .72345,    .06086,    .01119,
     +     .00248,    .04545,    .09040,
     +     .57435,    .27077,    .67979,    .05944,    .01165,
     +     .00342,    .04457,    .08770,
     +     .56718,    .26588,    .64277,    .05813,    .01198,
     +     .00415,    .04375,    .08530 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55985,    .26100,    .60778,    .05681,    .01224,
     +     .00479,    .04290,    .08293,
     +     .55368,    .25699,    .58041,    .05571,    .01241,
     +     .00525,    .04216,    .08101,
     +     .54614,    .25215,    .54919,    .05438,    .01255,
     +     .00573,    .04127,    .07872,
     +     .53945,    .24792,    .52328,    .05321,    .01264,
     +     .00610,    .04047,    .07673,
     +     .53329,    .24411,    .50083,    .05216,    .01270,
     +     .00640,    .03975,    .07496,
     +     .52538,    .23929,    .47400,    .05084,    .01272,
     +     .00671,    .03883,    .07274,
     +     .51796,    .23484,    .45043,    .04961,    .01271,
     +     .00697,    .03796,    .07071,
     +     .51107,    .23073,    .42971,    .04848,    .01269,
     +     .00718,    .03716,    .06887 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50408,    .22666,    .41014,    .04735,    .01263,
     +     .00734,    .03635,    .06707,
     +     .49729,    .22274,    .39209,    .04629,    .01256,
     +     .00747,    .03557,    .06534,
     +     .49089,    .21910,    .37592,    .04530,    .01248,
     +     .00758,    .03486,    .06373,
     +     .48484,    .21567,    .36148,    .04438,    .01239,
     +     .00765,    .03418,    .06226,
     +     .47886,    .21230,    .34769,    .04347,    .01230,
     +     .00772,    .03351,    .06082,
     +     .47290,    .20900,    .33475,    .04257,    .01219,
     +     .00776,    .03285,    .05944,
     +     .46733,    .20594,    .32301,    .04175,    .01209,
     +     .00780,    .03223,    .05816,
     +     .46202,    .20303,    .31241,    .04098,    .01198,
     +     .00782,    .03166,    .05696 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45675,    .20016,    .30217,    .04022,    .01187,
     +     .00783,    .03110,    .05577,
     +     .45153,    .19735,    .29248,    .03948,    .01175,
     +     .00783,    .03054,    .05462,
     +     .44659,    .19470,    .28359,    .03878,    .01164,
     +     .00783,    .03001,    .05356,
     +     .44195,    .19222,    .27549,    .03813,    .01153,
     +     .00782,    .02952,    .05257,
     +     .43724,    .18971,    .26761,    .03746,    .01141,
     +     .00780,    .02903,    .05159 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .67693,    .33498,   1.05370,    .06083,    .00000,
     +     .00000,    .04135,    .10070,
     +     .67140,    .32989,   1.01220,    .06015,    .00000,
     +     .00000,    .04127,    .09840,
     +     .66267,    .32234,    .94888,    .05900,    .00072,
     +     .00000,    .04095,    .09508,
     +     .65602,    .31688,    .90213,    .05810,    .00211,
     +     .00000,    .04065,    .09265,
     +     .64871,    .31113,    .85501,    .05708,    .00314,
     +     .00000,    .04021,    .09015,
     +     .64218,    .30621,    .81601,    .05616,    .00391,
     +     .00000,    .03978,    .08801,
     +     .63582,    .30153,    .78022,    .05527,    .00458,
     +     .00000,    .03933,    .08600,
     +     .62900,    .29661,    .74396,    .05431,    .00523,
     +     .00000,    .03883,    .08390 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62294,    .29236,    .71375,    .05345,    .00571,
     +     .00000,    .03836,    .08210,
     +     .61701,    .28830,    .68581,    .05262,    .00612,
     +     .00000,    .03788,    .08040,
     +     .61232,    .28513,    .66456,    .05197,    .00642,
     +     .00000,    .03750,    .07907,
     +     .60216,    .27841,    .62045,    .05057,    .00696,
     +     .00014,    .03665,    .07629,
     +     .59328,    .27271,    .58356,    .04936,    .00734,
     +     .00088,    .03590,    .07394,
     +     .58333,    .26642,    .54515,    .04799,    .00768,
     +     .00170,    .03504,    .07141,
     +     .57292,    .26001,    .50847,    .04660,    .00796,
     +     .00233,    .03414,    .06884,
     +     .56347,    .25430,    .47779,    .04535,    .00816,
     +     .00282,    .03331,    .06659 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55399,    .24863,    .44913,    .04409,    .00830,
     +     .00325,    .03247,    .06440,
     +     .54613,    .24399,    .42699,    .04305,    .00839,
     +     .00354,    .03178,    .06265,
     +     .53657,    .23849,    .40193,    .04184,    .00846,
     +     .00385,    .03095,    .06056,
     +     .52819,    .23372,    .38131,    .04080,    .00850,
     +     .00409,    .03022,    .05876,
     +     .52058,    .22943,    .36357,    .03986,    .00851,
     +     .00429,    .02956,    .05716,
     +     .51093,    .22406,    .34261,    .03866,    .00850,
     +     .00448,    .02873,    .05521,
     +     .50194,    .21913,    .32430,    .03759,    .00847,
     +     .00464,    .02796,    .05343,
     +     .49364,    .21463,    .30827,    .03662,    .00843,
     +     .00477,    .02725,    .05182 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48535,    .21015,    .29328,    .03563,    .00837,
     +     .00486,    .02656,    .05026,
     +     .47735,    .20588,    .27952,    .03470,    .00830,
     +     .00494,    .02590,    .04879,
     +     .46986,    .20192,    .26726,    .03386,    .00823,
     +     .00500,    .02529,    .04742,
     +     .46284,    .19824,    .25637,    .03306,    .00816,
     +     .00504,    .02472,    .04617,
     +     .45592,    .19463,    .24600,    .03229,    .00808,
     +     .00507,    .02415,    .04496,
     +     .44908,    .19111,    .23632,    .03154,    .00799,
     +     .00509,    .02361,    .04380,
     +     .44272,    .18785,    .22757,    .03085,    .00791,
     +     .00511,    .02311,    .04273,
     +     .43668,    .18478,    .21969,    .03021,    .00782,
     +     .00511,    .02263,    .04174 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43071,    .18175,    .21210,    .02958,    .00774,
     +     .00511,    .02217,    .04077,
     +     .42485,    .17880,    .20494,    .02896,    .00765,
     +     .00510,    .02172,    .03982,
     +     .41932,    .17602,    .19840,    .02838,    .00756,
     +     .00509,    .02130,    .03894,
     +     .41414,    .17343,    .19244,    .02784,    .00748,
     +     .00508,    .02091,    .03813,
     +     .40890,    .17083,    .18665,    .02731,    .00739,
     +     .00506,    .02051,    .03733 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70066,    .33364,    .87860,    .05167,    .00000,
     +     .00000,    .03473,    .08450,
     +     .69202,    .32724,    .83480,    .05075,    .00000,
     +     .00000,    .03436,    .08205,
     +     .67898,    .31787,    .77120,    .04930,    .00052,
     +     .00000,    .03370,    .07856,
     +     .66933,    .31122,    .72611,    .04824,    .00150,
     +     .00000,    .03318,    .07610,
     +     .65905,    .30429,    .68171,    .04709,    .00222,
     +     .00000,    .03257,    .07360,
     +     .65007,    .29842,    .64575,    .04609,    .00275,
     +     .00000,    .03201,    .07149,
     +     .64147,    .29289,    .61324,    .04515,    .00322,
     +     .00000,    .03148,    .06951,
     +     .63235,    .28712,    .58078,    .04415,    .00366,
     +     .00000,    .03090,    .06747 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62440,    .28217,    .55412,    .04327,    .00398,
     +     .00000,    .03038,    .06575,
     +     .61672,    .27747,    .52975,    .04243,    .00426,
     +     .00000,    .02987,    .06414,
     +     .61068,    .27382,    .51136,    .04178,    .00446,
     +     .00000,    .02946,    .06290,
     +     .59777,    .26617,    .47382,    .04041,    .00482,
     +     .00010,    .02861,    .06029,
     +     .58670,    .25971,    .44297,    .03922,    .00507,
     +     .00061,    .02786,    .05815,
     +     .57441,    .25266,    .41123,    .03794,    .00529,
     +     .00117,    .02703,    .05584,
     +     .56174,    .24553,    .38126,    .03664,    .00546,
     +     .00160,    .02617,    .05353,
     +     .55038,    .23923,    .35645,    .03548,    .00558,
     +     .00193,    .02540,    .05153 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .53907,    .23303,    .33348,    .03435,    .00566,
     +     .00222,    .02465,    .04959,
     +     .52976,    .22801,    .31587,    .03343,    .00571,
     +     .00242,    .02403,    .04804,
     +     .51861,    .22204,    .29611,    .03234,    .00574,
     +     .00262,    .02328,    .04623,
     +     .50890,    .21692,    .27997,    .03141,    .00575,
     +     .00278,    .02264,    .04469,
     +     .50012,    .21234,    .26617,    .03059,    .00574,
     +     .00290,    .02207,    .04331,
     +     .48910,    .20662,    .24990,    .02955,    .00572,
     +     .00303,    .02135,    .04165,
     +     .47891,    .20140,    .23581,    .02861,    .00569,
     +     .00313,    .02070,    .04016,
     +     .46955,    .19666,    .22357,    .02777,    .00565,
     +     .00320,    .02011,    .03880 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46028,    .19198,    .21213,    .02694,    .00560,
     +     .00326,    .01953,    .03750,
     +     .45139,    .18754,    .20168,    .02615,    .00554,
     +     .00331,    .01898,    .03627,
     +     .44311,    .18344,    .19241,    .02543,    .00548,
     +     .00334,    .01848,    .03513,
     +     .43538,    .17964,    .18421,    .02477,    .00542,
     +     .00336,    .01800,    .03411,
     +     .42779,    .17591,    .17641,    .02413,    .00536,
     +     .00338,    .01754,    .03313,
     +     .42035,    .17231,    .16917,    .02350,    .00529,
     +     .00339,    .01710,    .03218,
     +     .41345,    .16899,    .16264,    .02293,    .00523,
     +     .00339,    .01669,    .03130,
     +     .40693,    .16587,    .15679,    .02240,    .00517,
     +     .00339,    .01631,    .03050 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40050,    .16281,    .15115,    .02189,    .00510,
     +     .00338,    .01593,    .02971,
     +     .39421,    .15983,    .14585,    .02138,    .00504,
     +     .00338,    .01557,    .02896,
     +     .38831,    .15704,    .14100,    .02090,    .00497,
     +     .00336,    .01523,    .02827,
     +     .38279,    .15444,    .13660,    .02046,    .00491,
     +     .00335,    .01492,    .02762,
     +     .37724,    .15184,    .13234,    .02003,    .00485,
     +     .00333,    .01461,    .02698 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .71277,    .32677,    .72024,    .04371,    .00000,
     +     .00000,    .02884,    .06968,
     +     .70125,    .31923,    .67811,    .04262,    .00000,
     +     .00000,    .02832,    .06730,
     +     .68417,    .30839,    .61886,    .04104,    .00037,
     +     .00000,    .02749,    .06392,
     +     .67175,    .30079,    .57795,    .03993,    .00106,
     +     .00000,    .02687,    .06157,
     +     .65876,    .29290,    .53833,    .03874,    .00156,
     +     .00000,    .02620,    .05920,
     +     .64756,    .28630,    .50678,    .03774,    .00193,
     +     .00000,    .02561,    .05724,
     +     .63694,    .28012,    .47858,    .03679,    .00226,
     +     .00000,    .02505,    .05541,
     +     .62581,    .27371,    .45070,    .03580,    .00256,
     +     .00000,    .02447,    .05355 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61616,    .26827,    .42809,    .03496,    .00278,
     +     .00000,    .02395,    .05199,
     +     .60695,    .26311,    .40759,    .03416,    .00297,
     +     .00000,    .02346,    .05053,
     +     .59975,    .25911,    .39221,    .03354,    .00310,
     +     .00000,    .02307,    .04942,
     +     .58451,    .25078,    .36114,    .03226,    .00334,
     +     .00008,    .02224,    .04711,
     +     .57158,    .24380,    .33596,    .03117,    .00350,
     +     .00042,    .02155,    .04522,
     +     .55736,    .23624,    .31030,    .02999,    .00364,
     +     .00081,    .02080,    .04321,
     +     .54283,    .22865,    .28628,    .02881,    .00375,
     +     .00111,    .02003,    .04121,
     +     .52992,    .22198,    .26658,    .02778,    .00382,
     +     .00133,    .01935,    .03949 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51717,    .21547,    .24850,    .02677,    .00387,
     +     .00152,    .01868,    .03784,
     +     .50675,    .21023,    .23469,    .02597,    .00389,
     +     .00166,    .01814,    .03651,
     +     .49435,    .20402,    .21928,    .02501,    .00391,
     +     .00179,    .01750,    .03500,
     +     .48363,    .19871,    .20675,    .02420,    .00391,
     +     .00190,    .01696,    .03371,
     +     .47399,    .19398,    .19610,    .02350,    .00390,
     +     .00198,    .01649,    .03257,
     +     .46193,    .18814,    .18362,    .02262,    .00387,
     +     .00206,    .01588,    .03119,
     +     .45088,    .18282,    .17283,    .02183,    .00384,
     +     .00212,    .01534,    .02996,
     +     .44080,    .17799,    .16347,    .02111,    .00381,
     +     .00217,    .01485,    .02884 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43085,    .17325,    .15481,    .02041,    .00376,
     +     .00221,    .01438,    .02778,
     +     .42136,    .16876,    .14691,    .01975,    .00372,
     +     .00224,    .01393,    .02679,
     +     .41256,    .16465,    .13991,    .01915,    .00368,
     +     .00226,    .01352,    .02588,
     +     .40439,    .16085,    .13372,    .01860,    .00363,
     +     .00227,    .01313,    .02507,
     +     .39638,    .15715,    .12787,    .01806,    .00358,
     +     .00227,    .01276,    .02429,
     +     .38858,    .15358,    .12244,    .01756,    .00353,
     +     .00228,    .01241,    .02352,
     +     .38135,    .15028,    .11756,    .01709,    .00349,
     +     .00228,    .01210,    .02282,
     +     .37457,    .14721,    .11317,    .01665,    .00344,
     +     .00227,    .01179,    .02218 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36790,    .14419,    .10895,    .01622,    .00339,
     +     .00227,    .01149,    .02156,
     +     .36139,    .14127,    .10500,    .01583,    .00334,
     +     .00226,    .01121,    .02096,
     +     .35528,    .13855,    .10140,    .01546,    .00330,
     +     .00225,    .01095,    .02039,
     +     .34959,    .13602,    .09813,    .01512,    .00326,
     +     .00223,    .01071,    .01987,
     +     .34390,    .13349,    .09496,    .01477,    .00321,
     +     .00222,    .01046,    .01938 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .71437,    .31545,    .58197,    .03673,    .00000,
     +     .00000,    .02369,    .05653,
     +     .70016,    .30706,    .54379,    .03564,    .00000,
     +     .00000,    .02309,    .05430,
     +     .67940,    .29512,    .49124,    .03406,    .00026,
     +     .00000,    .02219,    .05120,
     +     .66455,    .28678,    .45575,    .03294,    .00074,
     +     .00000,    .02155,    .04906,
     +     .64914,    .27824,    .42173,    .03179,    .00110,
     +     .00000,    .02089,    .04692,
     +     .63602,    .27111,    .39500,    .03083,    .00135,
     +     .00000,    .02030,    .04517,
     +     .62367,    .26446,    .37132,    .02993,    .00158,
     +     .00000,    .01976,    .04356,
     +     .61081,    .25762,    .34810,    .02901,    .00179,
     +     .00000,    .01920,    .04192 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .59977,    .25182,    .32939,    .02823,    .00194,
     +     .00000,    .01873,    .04055,
     +     .58927,    .24636,    .31256,    .02749,    .00206,
     +     .00000,    .01827,    .03928,
     +     .58111,    .24215,    .30001,    .02693,    .00216,
     +     .00000,    .01790,    .03831,
     +     .56397,    .23342,    .27484,    .02576,    .00232,
     +     .00006,    .01718,    .03632,
     +     .54954,    .22613,    .25470,    .02477,    .00242,
     +     .00029,    .01656,    .03473,
     +     .53379,    .21830,    .23430,    .02373,    .00252,
     +     .00056,    .01588,    .03302,
     +     .51783,    .21047,    .21534,    .02269,    .00259,
     +     .00077,    .01522,    .03135,
     +     .50374,    .20364,    .19989,    .02179,    .00263,
     +     .00092,    .01464,    .02991 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48991,    .19701,    .18576,    .02093,    .00266,
     +     .00105,    .01408,    .02853,
     +     .47871,    .19166,    .17504,    .02023,    .00267,
     +     .00115,    .01363,    .02745,
     +     .46544,    .18540,    .16312,    .01940,    .00267,
     +     .00124,    .01310,    .02620,
     +     .45402,    .18006,    .15347,    .01870,    .00267,
     +     .00131,    .01264,    .02516,
     +     .44381,    .17531,    .14529,    .01809,    .00266,
     +     .00136,    .01224,    .02425,
     +     .43111,    .16947,    .13574,    .01734,    .00264,
     +     .00141,    .01175,    .02314,
     +     .41952,    .16419,    .12751,    .01669,    .00261,
     +     .00145,    .01131,    .02214,
     +     .40896,    .15942,    .12041,    .01611,    .00258,
     +     .00149,    .01091,    .02125 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .39864,    .15476,    .11382,    .01553,    .00255,
     +     .00151,    .01054,    .02039,
     +     .38883,    .15036,    .10783,    .01498,    .00252,
     +     .00152,    .01019,    .01959,
     +     .37977,    .14632,    .10255,    .01448,    .00248,
     +     .00153,    .00986,    .01887,
     +     .37139,    .14263,    .09789,    .01403,    .00245,
     +     .00154,    .00955,    .01823,
     +     .36319,    .13903,    .09348,    .01359,    .00241,
     +     .00154,    .00925,    .01762,
     +     .35523,    .13558,    .08939,    .01317,    .00238,
     +     .00154,    .00898,    .01702,
     +     .34788,    .13241,    .08571,    .01279,    .00234,
     +     .00154,    .00872,    .01648,
     +     .34104,    .12944,    .08243,    .01244,    .00231,
     +     .00154,    .00849,    .01599 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33432,    .12653,    .07928,    .01209,    .00228,
     +     .00153,    .00826,    .01551,
     +     .32777,    .12372,    .07632,    .01176,    .00224,
     +     .00152,    .00804,    .01505,
     +     .32165,    .12111,    .07363,    .01146,    .00221,
     +     .00151,    .00783,    .01462,
     +     .31595,    .11870,    .07119,    .01119,    .00218,
     +     .00150,    .00764,    .01423,
     +     .31025,    .11628,    .06883,    .01091,    .00215,
     +     .00149,    .00745,    .01385 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .70625,    .30095,    .46455,    .03093,    .00000,
     +     .00000,    .01907,    .04494,
     +     .68971,    .29193,    .43133,    .02983,    .00000,
     +     .00000,    .01846,    .04298,
     +     .66584,    .27917,    .38636,    .02827,    .00018,
     +     .00000,    .01762,    .04025,
     +     .64896,    .27028,    .35642,    .02717,    .00052,
     +     .00000,    .01701,    .03842,
     +     .63154,    .26130,    .32808,    .02608,    .00077,
     +     .00000,    .01639,    .03658,
     +     .61686,    .25380,    .30600,    .02517,    .00095,
     +     .00000,    .01586,    .03509,
     +     .60311,    .24687,    .28656,    .02433,    .00111,
     +     .00000,    .01537,    .03372,
     +     .58886,    .23976,    .26762,    .02349,    .00125,
     +     .00000,    .01487,    .03233 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .57673,    .23377,    .25250,    .02277,    .00135,
     +     .00000,    .01446,    .03115,
     +     .56525,    .22814,    .23894,    .02210,    .00144,
     +     .00000,    .01407,    .03009,
     +     .55635,    .22379,    .22885,    .02158,    .00150,
     +     .00000,    .01376,    .02929,
     +     .53776,    .21485,    .20886,    .02053,    .00161,
     +     .00004,    .01313,    .02766,
     +     .52219,    .20748,    .19296,    .01967,    .00168,
     +     .00021,    .01260,    .02632,
     +     .50535,    .19956,    .17695,    .01874,    .00174,
     +     .00039,    .01204,    .02491,
     +     .48841,    .19168,    .16212,    .01783,    .00179,
     +     .00054,    .01148,    .02355,
     +     .47353,    .18485,    .15010,    .01706,    .00181,
     +     .00064,    .01099,    .02238 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45899,    .17824,    .13919,    .01632,    .00183,
     +     .00073,    .01053,    .02126,
     +     .44729,    .17294,    .13091,    .01571,    .00183,
     +     .00080,    .01017,    .02039,
     +     .43349,    .16675,    .12175,    .01501,    .00183,
     +     .00086,    .00973,    .01941,
     +     .42166,    .16149,    .11435,    .01443,    .00183,
     +     .00090,    .00936,    .01858,
     +     .41111,    .15686,    .10810,    .01393,    .00182,
     +     .00094,    .00904,    .01784,
     +     .39809,    .15116,    .10081,    .01331,    .00180,
     +     .00098,    .00865,    .01695,
     +     .38624,    .14603,    .09453,    .01275,    .00178,
     +     .00100,    .00829,    .01617,
     +     .37549,    .14142,    .08911,    .01226,    .00176,
     +     .00102,    .00797,    .01548 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36505,    .13692,    .08413,    .01178,    .00174,
     +     .00103,    .00767,    .01483,
     +     .35514,    .13269,    .07960,    .01134,    .00171,
     +     .00104,    .00739,    .01422,
     +     .34600,    .12883,    .07561,    .01095,    .00169,
     +     .00105,    .00714,    .01366,
     +     .33761,    .12530,    .07208,    .01058,    .00166,
     +     .00105,    .00691,    .01316,
     +     .32945,    .12186,    .06875,    .01022,    .00164,
     +     .00105,    .00668,    .01267,
     +     .32153,    .11857,    .06567,    .00989,    .00161,
     +     .00105,    .00647,    .01222,
     +     .31423,    .11554,    .06291,    .00959,    .00158,
     +     .00105,    .00627,    .01181,
     +     .30746,    .11274,    .06044,    .00930,    .00156,
     +     .00105,    .00609,    .01144 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30083,    .11000,    .05807,    .00902,    .00153,
     +     .00104,    .00591,    .01107,
     +     .29438,    .10736,    .05585,    .00875,    .00151,
     +     .00103,    .00574,    .01072,
     +     .28836,    .10492,    .05383,    .00851,    .00149,
     +     .00103,    .00558,    .01039,
     +     .28278,    .10265,    .05200,    .00829,    .00146,
     +     .00102,    .00544,    .01009,
     +     .27722,    .10041,    .05023,    .00807,    .00144,
     +     .00101,    .00529,    .00981 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69025,    .28341,    .36642,    .02550,    .00000,
     +     .00000,    .01534,    .03539,
     +     .67171,    .27399,    .33842,    .02446,    .00000,
     +     .00000,    .01478,    .03368,
     +     .64519,    .26075,    .30106,    .02301,    .00013,
     +     .00000,    .01398,    .03136,
     +     .62656,    .25162,    .27647,    .02204,    .00036,
     +     .00000,    .01342,    .02976,
     +     .60754,    .24238,    .25342,    .02105,    .00054,
     +     .00000,    .01286,    .02822,
     +     .59154,    .23479,    .23553,    .02026,    .00066,
     +     .00000,    .01238,    .02694,
     +     .57670,    .22774,    .21990,    .01951,    .00077,
     +     .00000,    .01195,    .02579,
     +     .56144,    .22050,    .20479,    .01874,    .00087,
     +     .00000,    .01153,    .02464 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54844,    .21447,    .19279,    .01812,    .00094,
     +     .00000,    .01116,    .02369,
     +     .53620,    .20881,    .18206,    .01753,    .00100,
     +     .00000,    .01081,    .02283,
     +     .52676,    .20446,    .17410,    .01708,    .00104,
     +     .00000,    .01054,    .02217,
     +     .50716,    .19554,    .15836,    .01616,    .00111,
     +     .00003,    .01001,    .02082,
     +     .49085,    .18823,    .14595,    .01542,    .00116,
     +     .00014,    .00956,    .01974,
     +     .47327,    .18039,    .13349,    .01463,    .00120,
     +     .00027,    .00909,    .01862,
     +     .45569,    .17265,    .12202,    .01386,    .00123,
     +     .00037,    .00863,    .01753,
     +     .44034,    .16596,    .11276,    .01321,    .00125,
     +     .00045,    .00824,    .01659 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42545,    .15951,    .10434,    .01257,    .00126,
     +     .00051,    .00786,    .01571,
     +     .41348,    .15436,    .09799,    .01209,    .00126,
     +     .00055,    .00755,    .01504,
     +     .39943,    .14840,    .09098,    .01152,    .00126,
     +     .00059,    .00720,    .01424,
     +     .38746,    .14334,    .08533,    .01103,    .00125,
     +     .00062,    .00691,    .01359,
     +     .37686,    .13886,    .08057,    .01060,    .00124,
     +     .00065,    .00665,    .01303,
     +     .36378,    .13341,    .07500,    .01009,    .00123,
     +     .00067,    .00635,    .01234,
     +     .35194,    .12851,    .07024,    .00965,    .00121,
     +     .00069,    .00608,    .01173,
     +     .34127,    .12412,    .06615,    .00925,    .00120,
     +     .00070,    .00583,    .01118 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33090,    .11988,    .06236,    .00886,    .00118,
     +     .00071,    .00558,    .01068,
     +     .32108,    .11590,    .05893,    .00851,    .00116,
     +     .00072,    .00535,    .01021,
     +     .31207,    .11226,    .05591,    .00821,    .00114,
     +     .00072,    .00516,    .00978,
     +     .30383,    .10895,    .05325,    .00791,    .00113,
     +     .00072,    .00498,    .00939,
     +     .29583,    .10574,    .05073,    .00762,    .00111,
     +     .00072,    .00481,    .00902,
     +     .28810,    .10267,    .04841,    .00736,    .00109,
     +     .00072,    .00464,    .00869,
     +     .28100,    .09986,    .04632,    .00711,    .00107,
     +     .00071,    .00448,    .00839,
     +     .27443,    .09726,    .04446,    .00688,    .00105,
     +     .00071,    .00435,    .00810 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .26801,    .09471,    .04268,    .00666,    .00104,
     +     .00071,    .00422,    .00782,
     +     .26178,    .09227,    .04100,    .00646,    .00102,
     +     .00070,    .00409,    .00756,
     +     .25599,    .09002,    .03948,    .00627,    .00100,
     +     .00070,    .00397,    .00731,
     +     .25063,    .08793,    .03810,    .00610,    .00099,
     +     .00069,    .00386,    .00709,
     +     .24531,    .08586,    .03676,    .00592,    .00097,
     +     .00068,    .00375,    .00688 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .66694,    .26414,    .28620,    .02089,    .00000,
     +     .00000,    .01215,    .02738,
     +     .64686,    .25447,    .26323,    .01993,    .00000,
     +     .00000,    .01164,    .02597,
     +     .61826,    .24106,    .23287,    .01862,    .00009,
     +     .00000,    .01091,    .02404,
     +     .59832,    .23185,    .21308,    .01776,    .00025,
     +     .00000,    .01043,    .02272,
     +     .57809,    .22258,    .19463,    .01689,    .00037,
     +     .00000,    .00996,    .02142,
     +     .56124,    .21494,    .18044,    .01617,    .00046,
     +     .00000,    .00955,    .02040,
     +     .54561,    .20792,    .16810,    .01551,    .00053,
     +     .00000,    .00918,    .01949,
     +     .52956,    .20078,    .15619,    .01486,    .00060,
     +     .00000,    .00880,    .01856 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51602,    .19480,    .14675,    .01433,    .00065,
     +     .00000,    .00851,    .01777,
     +     .50332,    .18923,    .13834,    .01382,    .00069,
     +     .00000,    .00822,    .01707,
     +     .49355,    .18496,    .13213,    .01343,    .00072,
     +     .00000,    .00800,    .01654,
     +     .47334,    .17622,    .11990,    .01264,    .00077,
     +     .00002,    .00756,    .01549,
     +     .45665,    .16908,    .11029,    .01200,    .00080,
     +     .00010,    .00719,    .01464,
     +     .43871,    .16148,    .10068,    .01133,    .00083,
     +     .00019,    .00680,    .01376,
     +     .42088,    .15401,    .09185,    .01070,    .00085,
     +     .00026,    .00642,    .01289,
     +     .40540,    .14758,    .08473,    .01017,    .00086,
     +     .00031,    .00611,    .01214 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39044,    .14140,    .07830,    .00966,    .00086,
     +     .00035,    .00582,    .01144,
     +     .37846,    .13650,    .07345,    .00925,    .00086,
     +     .00038,    .00558,    .01092,
     +     .36448,    .13080,    .06809,    .00876,    .00086,
     +     .00041,    .00529,    .01034,
     +     .35260,    .12600,    .06377,    .00837,    .00085,
     +     .00043,    .00505,    .00984,
     +     .34207,    .12180,    .06014,    .00805,    .00085,
     +     .00045,    .00486,    .00939,
     +     .32923,    .11666,    .05591,    .00762,    .00084,
     +     .00047,    .00462,    .00887,
     +     .31763,    .11207,    .05230,    .00727,    .00083,
     +     .00048,    .00441,    .00841,
     +     .30716,    .10798,    .04920,    .00697,    .00082,
     +     .00049,    .00422,    .00799 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .29710,    .10401,    .04631,    .00664,    .00080,
     +     .00049,    .00404,    .00761,
     +     .28760,    .10031,    .04371,    .00635,    .00079,
     +     .00049,    .00386,    .00725,
     +     .27888,    .09695,    .04142,    .00610,    .00078,
     +     .00049,    .00369,    .00693,
     +     .27092,    .09388,    .03941,    .00586,    .00076,
     +     .00049,    .00356,    .00665,
     +     .26320,    .09092,    .03751,    .00564,    .00075,
     +     .00049,    .00343,    .00639,
     +     .25580,    .08810,    .03575,    .00543,    .00074,
     +     .00049,    .00330,    .00613,
     +     .24902,    .08552,    .03417,    .00525,    .00072,
     +     .00049,    .00319,    .00588,
     +     .24273,    .08315,    .03277,    .00507,    .00071,
     +     .00048,    .00309,    .00568 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .23659,    .08083,    .03142,    .00490,    .00070,
     +     .00048,    .00298,    .00549,
     +     .23068,    .07861,    .03016,    .00474,    .00069,
     +     .00048,    .00289,    .00530,
     +     .22519,    .07656,    .02901,    .00459,    .00068,
     +     .00047,    .00280,    .00511,
     +     .22013,    .07467,    .02797,    .00446,    .00067,
     +     .00047,    .00272,    .00495,
     +     .21510,    .07280,    .02697,    .00432,    .00065,
     +     .00046,    .00264,    .00479 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .63772,    .24348,    .22151,    .01681,    .00000,
     +     .00000,    .00953,    .02094,
     +     .61637,    .23388,    .20307,    .01599,    .00000,
     +     .00000,    .00907,    .01977,
     +     .58628,    .22054,    .17886,    .01487,    .00006,
     +     .00000,    .00845,    .01819,
     +     .56550,    .21138,    .16323,    .01409,    .00018,
     +     .00000,    .00805,    .01712,
     +     .54440,    .20229,    .14872,    .01335,    .00026,
     +     .00000,    .00764,    .01608,
     +     .52700,    .19476,    .13760,    .01274,    .00032,
     +     .00000,    .00730,    .01526,
     +     .51094,    .18788,    .12795,    .01217,    .00037,
     +     .00000,    .00699,    .01453,
     +     .49452,    .18092,    .11866,    .01158,    .00041,
     +     .00000,    .00668,    .01381 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48068,    .17512,    .11134,    .01112,    .00045,
     +     .00000,    .00641,    .01321,
     +     .46774,    .16975,    .10483,    .01072,    .00047,
     +     .00000,    .00619,    .01264,
     +     .45779,    .16565,    .10002,    .01042,    .00049,
     +     .00000,    .00603,    .01219,
     +     .43734,    .15726,    .09059,    .00978,    .00053,
     +     .00002,    .00568,    .01135,
     +     .42057,    .15039,    .08319,    .00927,    .00055,
     +     .00007,    .00537,    .01068,
     +     .40266,    .14312,    .07581,    .00872,    .00057,
     +     .00013,    .00505,    .01001,
     +     .38493,    .13602,    .06906,    .00816,    .00058,
     +     .00018,    .00475,    .00936,
     +     .36962,    .12993,    .06364,    .00769,    .00059,
     +     .00021,    .00450,    .00882 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35486,    .12411,    .05873,    .00728,    .00059,
     +     .00024,    .00425,    .00831,
     +     .34309,    .11951,    .05504,    .00696,    .00059,
     +     .00026,    .00408,    .00789,
     +     .32934,    .11420,    .05094,    .00662,    .00059,
     +     .00028,    .00387,    .00741,
     +     .31775,    .10974,    .04765,    .00631,    .00058,
     +     .00029,    .00368,    .00702,
     +     .30759,    .10581,    .04489,    .00602,    .00058,
     +     .00031,    .00351,    .00669,
     +     .29512,    .10106,    .04169,    .00569,    .00057,
     +     .00032,    .00334,    .00630,
     +     .28392,    .09681,    .03894,    .00540,    .00056,
     +     .00033,    .00317,    .00596,
     +     .27389,    .09301,    .03658,    .00516,    .00055,
     +     .00033,    .00303,    .00566 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26419,    .08940,    .03441,    .00492,    .00054,
     +     .00034,    .00288,    .00538,
     +     .25511,    .08601,    .03243,    .00469,    .00053,
     +     .00034,    .00275,    .00512,
     +     .24687,    .08293,    .03069,    .00448,    .00053,
     +     .00034,    .00263,    .00488,
     +     .23931,    .08015,    .02917,    .00430,    .00052,
     +     .00034,    .00253,    .00467,
     +     .23200,    .07746,    .02774,    .00413,    .00051,
     +     .00034,    .00243,    .00446,
     +     .22501,    .07491,    .02641,    .00397,    .00050,
     +     .00034,    .00234,    .00428,
     +     .21861,    .07258,    .02522,    .00383,    .00049,
     +     .00034,    .00225,    .00411,
     +     .21271,    .07043,    .02415,    .00369,    .00048,
     +     .00034,    .00218,    .00395 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .20696,    .06835,    .02314,    .00356,    .00047,
     +     .00033,    .00210,    .00380,
     +     .20143,    .06635,    .02218,    .00344,    .00047,
     +     .00033,    .00203,    .00366,
     +     .19631,    .06450,    .02132,    .00332,    .00046,
     +     .00033,    .00196,    .00354,
     +     .19159,    .06281,    .02054,    .00322,    .00045,
     +     .00033,    .00189,    .00342,
     +     .18694,    .06114,    .01978,    .00310,    .00044,
     +     .00033,    .00184,    .00331 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60344,    .22222,    .17004,    .01334,    .00000,
     +     .00000,    .00741,    .01576,
     +     .58131,    .21277,    .15550,    .01263,    .00000,
     +     .00000,    .00702,    .01482,
     +     .55040,    .19963,    .13654,    .01163,    .00004,
     +     .00000,    .00650,    .01360,
     +     .52904,    .19077,    .12431,    .01102,    .00012,
     +     .00000,    .00616,    .01274,
     +     .50762,    .18193,    .11306,    .01036,    .00018,
     +     .00000,    .00579,    .01196,
     +     .48994,    .17470,    .10445,    .00985,    .00022,
     +     .00000,    .00552,    .01131,
     +     .47367,    .16810,    .09699,    .00940,    .00025,
     +     .00000,    .00527,    .01071,
     +     .45711,    .16143,    .08983,    .00895,    .00028,
     +     .00000,    .00503,    .01011 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44326,    .15588,    .08419,    .00856,    .00030,
     +     .00000,    .00482,    .00966,
     +     .43036,    .15074,    .07920,    .00820,    .00032,
     +     .00000,    .00463,    .00924,
     +     .42047,    .14683,    .07552,    .00794,    .00034,
     +     .00000,    .00447,    .00892,
     +     .40017,    .13887,    .06828,    .00743,    .00036,
     +     .00001,    .00418,    .00829,
     +     .38363,    .13240,    .06262,    .00699,    .00038,
     +     .00005,    .00396,    .00776,
     +     .36599,    .12561,    .05699,    .00656,    .00039,
     +     .00009,    .00372,    .00722,
     +     .34860,    .11897,    .05184,    .00613,    .00040,
     +     .00012,    .00348,    .00673,
     +     .33367,    .11328,    .04771,    .00577,    .00040,
     +     .00014,    .00328,    .00633 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .31938,    .10787,    .04397,    .00542,    .00041,
     +     .00016,    .00310,    .00594,
     +     .30802,    .10362,    .04115,    .00516,    .00041,
     +     .00018,    .00295,    .00562,
     +     .29482,    .09871,    .03805,    .00487,    .00041,
     +     .00019,    .00279,    .00527,
     +     .28368,    .09459,    .03557,    .00464,    .00041,
     +     .00020,    .00265,    .00499,
     +     .27391,    .09099,    .03347,    .00442,    .00040,
     +     .00020,    .00254,    .00475,
     +     .26205,    .08665,    .03103,    .00416,    .00040,
     +     .00021,    .00240,    .00445,
     +     .25140,    .08280,    .02895,    .00395,    .00039,
     +     .00022,    .00227,    .00419,
     +     .24187,    .07937,    .02716,    .00377,    .00038,
     +     .00022,    .00215,    .00397 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23279,    .07607,    .02551,    .00355,    .00038,
     +     .00022,    .00205,    .00377,
     +     .22425,    .07301,    .02402,    .00337,    .00037,
     +     .00022,    .00195,    .00357,
     +     .21647,    .07025,    .02272,    .00323,    .00037,
     +     .00022,    .00186,    .00339,
     +     .20939,    .06775,    .02156,    .00310,    .00036,
     +     .00022,    .00179,    .00324,
     +     .20257,    .06534,    .02047,    .00297,    .00036,
     +     .00022,    .00172,    .00310,
     +     .19605,    .06307,    .01947,    .00285,    .00035,
     +     .00022,    .00165,    .00295,
     +     .19010,    .06100,    .01857,    .00275,    .00035,
     +     .00022,    .00159,    .00283,
     +     .18465,    .05909,    .01777,    .00264,    .00034,
     +     .00022,    .00153,    .00272 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .17934,    .05723,    .01700,    .00253,    .00034,
     +     .00022,    .00147,    .00261,
     +     .17425,    .05546,    .01628,    .00244,    .00033,
     +     .00022,    .00142,    .00251,
     +     .16954,    .05383,    .01563,    .00235,    .00033,
     +     .00022,    .00137,    .00242,
     +     .16520,    .05233,    .01504,    .00228,    .00032,
     +     .00022,    .00132,    .00234,
     +     .16089,    .05087,    .01447,    .00221,    .00032,
     +     .00022,    .00128,    .00226 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56525,    .20084,    .12970,    .01051,    .00000,
     +     .00000,    .00561,    .01165,
     +     .54274,    .19170,    .11839,    .00991,    .00000,
     +     .00000,    .00532,    .01091,
     +     .51145,    .17909,    .10371,    .00908,    .00003,
     +     .00000,    .00488,    .00996,
     +     .49003,    .17055,    .09430,    .00853,    .00008,
     +     .00000,    .00458,    .00933,
     +     .46855,    .16212,    .08564,    .00800,    .00012,
     +     .00000,    .00432,    .00872,
     +     .45097,    .15523,    .07904,    .00757,    .00014,
     +     .00000,    .00411,    .00820,
     +     .43484,    .14897,    .07332,    .00719,    .00017,
     +     .00000,    .00391,    .00775,
     +     .41846,    .14268,    .06784,    .00681,    .00019,
     +     .00000,    .00370,    .00732 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40479,    .13745,    .06354,    .00652,    .00020,
     +     .00000,    .00354,    .00695,
     +     .39209,    .13263,    .05973,    .00625,    .00022,
     +     .00000,    .00339,    .00662,
     +     .38238,    .12896,    .05691,    .00603,    .00023,
     +     .00000,    .00328,    .00638,
     +     .36265,    .12151,    .05138,    .00558,    .00024,
     +     .00001,    .00305,    .00591,
     +     .34650,    .11552,    .04710,    .00526,    .00025,
     +     .00003,    .00287,    .00552,
     +     .32942,    .10921,    .04280,    .00491,    .00026,
     +     .00006,    .00269,    .00514,
     +     .31268,    .10307,    .03888,    .00459,    .00027,
     +     .00008,    .00251,    .00476,
     +     .29836,    .09785,    .03573,    .00431,    .00027,
     +     .00010,    .00236,    .00444 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28468,    .09289,    .03289,    .00404,    .00027,
     +     .00011,    .00222,    .00416,
     +     .27383,    .08901,    .03076,    .00385,    .00027,
     +     .00012,    .00210,    .00393,
     +     .26132,    .08455,    .02840,    .00361,    .00027,
     +     .00012,    .00198,    .00368,
     +     .25082,    .08082,    .02651,    .00341,    .00027,
     +     .00013,    .00188,    .00348,
     +     .24163,    .07757,    .02492,    .00323,    .00027,
     +     .00013,    .00179,    .00330,
     +     .23046,    .07365,    .02307,    .00304,    .00027,
     +     .00013,    .00169,    .00309,
     +     .22052,    .07018,    .02150,    .00287,    .00027,
     +     .00013,    .00159,    .00290,
     +     .21167,    .06711,    .02015,    .00271,    .00027,
     +     .00013,    .00150,    .00272 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20316,    .06417,    .01890,    .00257,    .00027,
     +     .00013,    .00143,    .00258,
     +     .19522,    .06144,    .01777,    .00244,    .00027,
     +     .00013,    .00136,    .00245,
     +     .18804,    .05898,    .01678,    .00232,    .00027,
     +     .00013,    .00129,    .00233,
     +     .18152,    .05677,    .01591,    .00222,    .00027,
     +     .00013,    .00124,    .00222,
     +     .17525,    .05464,    .01509,    .00213,    .00027,
     +     .00013,    .00119,    .00211,
     +     .16927,    .05263,    .01433,    .00204,    .00027,
     +     .00013,    .00114,    .00201,
     +     .16381,    .05081,    .01365,    .00196,    .00027,
     +     .00013,    .00110,    .00192,
     +     .15882,    .04913,    .01305,    .00188,    .00026,
     +     .00013,    .00105,    .00184 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15398,    .04751,    .01247,    .00181,    .00026,
     +     .00013,    .00102,    .00176,
     +     .14933,    .04596,    .01193,    .00174,    .00026,
     +     .00013,    .00098,    .00169,
     +     .14504,    .04454,    .01145,    .00168,    .00026,
     +     .00013,    .00094,    .00163,
     +     .14111,    .04323,    .01100,    .00163,    .00025,
     +     .00013,    .00090,    .00157,
     +     .13724,    .04195,    .01058,    .00157,    .00025,
     +     .00013,    .00087,    .00152 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52419,    .17961,    .09830,    .00811,    .00000,
     +     .00000,    .00422,    .00851,
     +     .50169,    .17090,    .08962,    .00762,    .00000,
     +     .00000,    .00396,    .00796,
     +     .47055,    .15898,    .07841,    .00695,    .00002,
     +     .00000,    .00360,    .00722,
     +     .44936,    .15093,    .07124,    .00650,    .00005,
     +     .00000,    .00338,    .00673,
     +     .42821,    .14298,    .06462,    .00610,    .00008,
     +     .00000,    .00317,    .00626,
     +     .41094,    .13655,    .05959,    .00576,    .00010,
     +     .00000,    .00299,    .00588,
     +     .39518,    .13072,    .05524,    .00545,    .00011,
     +     .00000,    .00283,    .00554,
     +     .37926,    .12485,    .05108,    .00515,    .00013,
     +     .00000,    .00267,    .00521 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36599,    .12002,    .04781,    .00492,    .00014,
     +     .00000,    .00255,    .00492,
     +     .35372,    .11556,    .04491,    .00470,    .00014,
     +     .00000,    .00244,    .00467,
     +     .34437,    .11216,    .04277,    .00452,    .00015,
     +     .00000,    .00236,    .00448,
     +     .32534,    .10531,    .03858,    .00418,    .00016,
     +     .00001,    .00218,    .00415,
     +     .30989,    .09981,    .03532,    .00393,    .00016,
     +     .00002,    .00203,    .00388,
     +     .29362,    .09404,    .03206,    .00367,    .00017,
     +     .00004,    .00190,    .00357,
     +     .27774,    .08845,    .02909,    .00340,    .00017,
     +     .00005,    .00177,    .00329,
     +     .26419,    .08373,    .02670,    .00318,    .00017,
     +     .00006,    .00165,    .00307 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25130,    .07926,    .02454,    .00298,    .00017,
     +     .00007,    .00154,    .00287,
     +     .24113,    .07576,    .02293,    .00283,    .00017,
     +     .00007,    .00147,    .00270,
     +     .22944,    .07173,    .02114,    .00265,    .00017,
     +     .00007,    .00137,    .00251,
     +     .21964,    .06840,    .01971,    .00250,    .00017,
     +     .00007,    .00130,    .00236,
     +     .21107,    .06551,    .01850,    .00239,    .00017,
     +     .00007,    .00124,    .00223,
     +     .20069,    .06204,    .01711,    .00225,    .00017,
     +     .00007,    .00115,    .00208,
     +     .19151,    .05895,    .01592,    .00211,    .00017,
     +     .00007,    .00108,    .00196,
     +     .18340,    .05621,    .01490,    .00198,    .00017,
     +     .00007,    .00103,    .00185 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17558,    .05362,    .01396,    .00187,    .00017,
     +     .00007,    .00097,    .00174,
     +     .16832,    .05123,    .01310,    .00176,    .00017,
     +     .00007,    .00092,    .00163,
     +     .16179,    .04907,    .01236,    .00167,    .00017,
     +     .00007,    .00087,    .00154,
     +     .15585,    .04713,    .01170,    .00159,    .00017,
     +     .00007,    .00083,    .00146,
     +     .15013,    .04528,    .01108,    .00153,    .00017,
     +     .00007,    .00080,    .00140,
     +     .14472,    .04352,    .01051,    .00146,    .00017,
     +     .00007,    .00076,    .00133,
     +     .13979,    .04192,    .01000,    .00140,    .00017,
     +     .00007,    .00072,    .00128,
     +     .13530,    .04047,    .00955,    .00134,    .00017,
     +     .00007,    .00069,    .00122 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13095,    .03906,    .00911,    .00128,    .00017,
     +     .00007,    .00067,    .00117,
     +     .12678,    .03772,    .00871,    .00123,    .00017,
     +     .00007,    .00064,    .00113,
     +     .12294,    .03649,    .00834,    .00119,    .00017,
     +     .00007,    .00061,    .00108,
     +     .11941,    .03537,    .00801,    .00115,    .00017,
     +     .00007,    .00059,    .00104,
     +     .11594,    .03427,    .00769,    .00111,    .00017,
     +     .00007,    .00057,    .00100 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48117,    .15890,    .07397,    .00610,    .00000,
     +     .00000,    .00314,    .00615,
     +     .45905,    .15070,    .06741,    .00569,    .00000,
     +     .00000,    .00295,    .00572,
     +     .42854,    .13954,    .05892,    .00515,    .00001,
     +     .00000,    .00266,    .00517,
     +     .40785,    .13208,    .05348,    .00482,    .00003,
     +     .00000,    .00249,    .00480,
     +     .38737,    .12469,    .04847,    .00449,    .00005,
     +     .00000,    .00233,    .00444,
     +     .37068,    .11874,    .04466,    .00423,    .00006,
     +     .00000,    .00217,    .00416,
     +     .35550,    .11336,    .04138,    .00400,    .00007,
     +     .00000,    .00206,    .00391,
     +     .34023,    .10798,    .03823,    .00376,    .00008,
     +     .00000,    .00196,    .00366 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32754,    .10357,    .03574,    .00357,    .00009,
     +     .00000,    .00186,    .00345,
     +     .31582,    .09949,    .03355,    .00340,    .00009,
     +     .00000,    .00176,    .00328,
     +     .30691,    .09638,    .03194,    .00326,    .00009,
     +     .00000,    .00169,    .00316,
     +     .28890,    .09016,    .02877,    .00300,    .00010,
     +     .00000,    .00157,    .00291,
     +     .27431,    .08518,    .02630,    .00280,    .00010,
     +     .00001,    .00147,    .00270,
     +     .25898,    .07999,    .02384,    .00261,    .00010,
     +     .00003,    .00136,    .00248,
     +     .24412,    .07498,    .02160,    .00241,    .00010,
     +     .00003,    .00126,    .00229,
     +     .23149,    .07074,    .01981,    .00223,    .00010,
     +     .00004,    .00117,    .00214 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .21951,    .06674,    .01818,    .00208,    .00010,
     +     .00004,    .00109,    .00200,
     +     .21010,    .06363,    .01696,    .00197,    .00010,
     +     .00004,    .00104,    .00187,
     +     .19928,    .06010,    .01562,    .00184,    .00010,
     +     .00004,    .00097,    .00173,
     +     .19025,    .05716,    .01454,    .00174,    .00010,
     +     .00004,    .00092,    .00162,
     +     .18241,    .05460,    .01363,    .00164,    .00010,
     +     .00004,    .00087,    .00153,
     +     .17294,    .05155,    .01259,    .00153,    .00010,
     +     .00004,    .00082,    .00143,
     +     .16457,    .04885,    .01169,    .00144,    .00010,
     +     .00004,    .00076,    .00134,
     +     .15716,    .04646,    .01092,    .00135,    .00010,
     +     .00004,    .00071,    .00126 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15012,    .04421,    .01021,    .00127,    .00010,
     +     .00004,    .00069,    .00117,
     +     .14356,    .04213,    .00957,    .00120,    .00010,
     +     .00004,    .00065,    .00110,
     +     .13762,    .04027,    .00901,    .00114,    .00010,
     +     .00004,    .00061,    .00104,
     +     .13230,    .03860,    .00852,    .00108,    .00010,
     +     .00004,    .00058,    .00100,
     +     .12721,    .03701,    .00806,    .00103,    .00010,
     +     .00004,    .00055,    .00095,
     +     .12236,    .03550,    .00764,    .00099,    .00010,
     +     .00004,    .00052,    .00090,
     +     .11796,    .03413,    .00726,    .00095,    .00010,
     +     .00004,    .00050,    .00086,
     +     .11396,    .03288,    .00692,    .00090,    .00010,
     +     .00004,    .00048,    .00082 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11011,    .03168,    .00659,    .00085,    .00010,
     +     .00004,    .00046,    .00079,
     +     .10641,    .03055,    .00629,    .00082,    .00010,
     +     .00004,    .00044,    .00075,
     +     .10300,    .02951,    .00602,    .00079,    .00010,
     +     .00004,    .00043,    .00072,
     +     .09988,    .02856,    .00577,    .00076,    .00010,
     +     .00004,    .00041,    .00069,
     +     .09682,    .02762,    .00554,    .00074,    .00010,
     +     .00004,    .00040,    .00067 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .43713,    .13909,    .05537,    .00449,    .00000,
     +     .00000,    .00228,    .00437,
     +     .41566,    .13149,    .05042,    .00419,    .00000,
     +     .00000,    .00213,    .00405,
     +     .38622,    .12119,    .04402,    .00376,    .00001,
     +     .00000,    .00193,    .00365,
     +     .36636,    .11431,    .03993,    .00351,    .00002,
     +     .00000,    .00181,    .00335,
     +     .34680,    .10756,    .03616,    .00320,    .00003,
     +     .00000,    .00167,    .00312,
     +     .33091,    .10212,    .03330,    .00300,    .00004,
     +     .00000,    .00158,    .00292,
     +     .31647,    .09723,    .03082,    .00283,    .00004,
     +     .00000,    .00150,    .00273,
     +     .30198,    .09236,    .02845,    .00266,    .00005,
     +     .00000,    .00141,    .00253 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29003,    .08835,    .02658,    .00251,    .00005,
     +     .00000,    .00133,    .00241,
     +     .27902,    .08468,    .02493,    .00237,    .00005,
     +     .00000,    .00127,    .00229,
     +     .27067,    .08190,    .02371,    .00228,    .00005,
     +     .00000,    .00122,    .00220,
     +     .25379,    .07632,    .02134,    .00208,    .00005,
     +     .00000,    .00112,    .00202,
     +     .24020,    .07187,    .01948,    .00194,    .00005,
     +     .00001,    .00104,    .00188,
     +     .22600,    .06726,    .01763,    .00179,    .00005,
     +     .00001,    .00097,    .00172,
     +     .21226,    .06282,    .01595,    .00164,    .00005,
     +     .00001,    .00090,    .00158,
     +     .20064,    .05909,    .01460,    .00151,    .00005,
     +     .00001,    .00083,    .00146 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .18966,    .05559,    .01338,    .00140,    .00005,
     +     .00001,    .00077,    .00135,
     +     .18105,    .05287,    .01246,    .00133,    .00005,
     +     .00001,    .00073,    .00126,
     +     .17120,    .04976,    .01146,    .00123,    .00005,
     +     .00001,    .00069,    .00118,
     +     .16301,    .04719,    .01065,    .00116,    .00005,
     +     .00001,    .00064,    .00112,
     +     .15590,    .04497,    .00997,    .00110,    .00005,
     +     .00001,    .00061,    .00105,
     +     .14739,    .04233,    .00919,    .00101,    .00005,
     +     .00001,    .00057,    .00098,
     +     .13985,    .04001,    .00852,    .00095,    .00005,
     +     .00001,    .00053,    .00091,
     +     .13317,    .03798,    .00795,    .00090,    .00005,
     +     .00001,    .00050,    .00084 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12689,    .03604,    .00742,    .00084,    .00005,
     +     .00001,    .00047,    .00080,
     +     .12106,    .03425,    .00694,    .00078,    .00005,
     +     .00001,    .00045,    .00076,
     +     .11580,    .03266,    .00653,    .00074,    .00005,
     +     .00001,    .00042,    .00071,
     +     .11107,    .03123,    .00616,    .00070,    .00005,
     +     .00001,    .00040,    .00068,
     +     .10655,    .02987,    .00582,    .00066,    .00005,
     +     .00001,    .00038,    .00064,
     +     .10229,    .02860,    .00550,    .00063,    .00005,
     +     .00001,    .00036,    .00061,
     +     .09842,    .02745,    .00522,    .00060,    .00005,
     +     .00001,    .00035,    .00058,
     +     .09492,    .02641,    .00497,    .00057,    .00005,
     +     .00001,    .00033,    .00055 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09154,    .02540,    .00473,    .00053,    .00005,
     +     .00001,    .00032,    .00052,
     +     .08830,    .02444,    .00451,    .00052,    .00005,
     +     .00001,    .00030,    .00050,
     +     .08532,    .02357,    .00431,    .00051,    .00005,
     +     .00001,    .00029,    .00048,
     +     .08260,    .02277,    .00413,    .00050,    .00005,
     +     .00001,    .00028,    .00046,
     +     .07994,    .02199,    .00395,    .00048,    .00005,
     +     .00001,    .00027,    .00043 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39287,    .12055,    .04135,    .00339,    .00000,
     +     .00000,    .00157,    .00300,
     +     .37235,    .11363,    .03763,    .00317,    .00000,
     +     .00000,    .00146,    .00274,
     +     .34445,    .10423,    .03284,    .00279,    .00000,
     +     .00000,    .00132,    .00248,
     +     .32564,    .09802,    .02978,    .00263,    .00001,
     +     .00000,    .00122,    .00226,
     +     .30721,    .09193,    .02696,    .00239,    .00002,
     +     .00000,    .00112,    .00209,
     +     .29228,    .08705,    .02481,    .00222,    .00002,
     +     .00000,    .00104,    .00197,
     +     .27878,    .08267,    .02295,    .00208,    .00002,
     +     .00000,    .00098,    .00184,
     +     .26529,    .07831,    .02117,    .00194,    .00002,
     +     .00000,    .00093,    .00171 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25417,    .07474,    .01977,    .00184,    .00002,
     +     .00000,    .00087,    .00161,
     +     .24395,    .07148,    .01853,    .00176,    .00002,
     +     .00000,    .00082,    .00152,
     +     .23622,    .06902,    .01761,    .00170,    .00002,
     +     .00000,    .00080,    .00144,
     +     .22068,    .06407,    .01582,    .00155,    .00002,
     +     .00000,    .00073,    .00131,
     +     .20821,    .06017,    .01443,    .00146,    .00002,
     +     .00000,    .00067,    .00121,
     +     .19523,    .05612,    .01304,    .00133,    .00002,
     +     .00000,    .00062,    .00110,
     +     .18272,    .05225,    .01178,    .00121,    .00002,
     +     .00000,    .00057,    .00101,
     +     .17217,    .04899,    .01076,    .00112,    .00002,
     +     .00000,    .00052,    .00094 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16223,    .04594,    .00985,    .00104,    .00002,
     +     .00000,    .00048,    .00087,
     +     .15449,    .04359,    .00916,    .00098,    .00002,
     +     .00000,    .00046,    .00081,
     +     .14565,    .04092,    .00841,    .00091,    .00002,
     +     .00000,    .00043,    .00075,
     +     .13832,    .03871,    .00780,    .00086,    .00002,
     +     .00000,    .00040,    .00070,
     +     .13198,    .03681,    .00729,    .00081,    .00002,
     +     .00000,    .00037,    .00067,
     +     .12442,    .03454,    .00671,    .00074,    .00002,
     +     .00000,    .00034,    .00061,
     +     .11773,    .03255,    .00621,    .00069,    .00002,
     +     .00000,    .00032,    .00056,
     +     .11182,    .03082,    .00578,    .00066,    .00002,
     +     .00000,    .00030,    .00053 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10629,    .02918,    .00539,    .00060,    .00002,
     +     .00000,    .00029,    .00049,
     +     .10116,    .02768,    .00504,    .00056,    .00002,
     +     .00000,    .00027,    .00046,
     +     .09654,    .02634,    .00472,    .00054,    .00002,
     +     .00000,    .00025,    .00044,
     +     .09241,    .02514,    .00445,    .00052,    .00002,
     +     .00000,    .00024,    .00041,
     +     .08847,    .02399,    .00420,    .00049,    .00002,
     +     .00000,    .00023,    .00038,
     +     .08475,    .02292,    .00397,    .00047,    .00002,
     +     .00000,    .00022,    .00036,
     +     .08139,    .02196,    .00376,    .00044,    .00002,
     +     .00000,    .00021,    .00035,
     +     .07835,    .02108,    .00357,    .00042,    .00002,
     +     .00000,    .00020,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07542,    .02024,    .00340,    .00040,    .00002,
     +     .00000,    .00019,    .00031,
     +     .07262,    .01944,    .00323,    .00038,    .00002,
     +     .00000,    .00018,    .00030,
     +     .07006,    .01872,    .00309,    .00037,    .00002,
     +     .00000,    .00017,    .00028,
     +     .06773,    .01806,    .00295,    .00036,    .00002,
     +     .00000,    .00016,    .00027,
     +     .06545,    .01741,    .00282,    .00034,    .00002,
     +     .00000,    .00015,    .00026 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34904,    .10294,    .03052,    .00230,    .00000,
     +     .00000,    .00115,    .00209,
     +     .32974,    .09671,    .02777,    .00212,    .00000,
     +     .00000,    .00106,    .00192,
     +     .30347,    .08832,    .02424,    .00191,    .00000,
     +     .00000,    .00095,    .00170,
     +     .28590,    .08278,    .02196,    .00178,    .00000,
     +     .00000,    .00087,    .00157,
     +     .26880,    .07739,    .01986,    .00162,    .00000,
     +     .00000,    .00079,    .00143,
     +     .25500,    .07306,    .01827,    .00151,    .00000,
     +     .00000,    .00074,    .00133,
     +     .24256,    .06919,    .01689,    .00142,    .00000,
     +     .00000,    .00070,    .00124,
     +     .23013,    .06536,    .01557,    .00133,    .00000,
     +     .00000,    .00065,    .00115 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .21994,    .06223,    .01452,    .00126,    .00000,
     +     .00000,    .00062,    .00108,
     +     .21060,    .05938,    .01359,    .00119,    .00000,
     +     .00000,    .00058,    .00102,
     +     .20355,    .05724,    .01291,    .00114,    .00000,
     +     .00000,    .00055,    .00098,
     +     .18944,    .05296,    .01158,    .00103,    .00000,
     +     .00000,    .00050,    .00088,
     +     .17817,    .04957,    .01054,    .00094,    .00000,
     +     .00000,    .00046,    .00081,
     +     .16646,    .04606,    .00951,    .00087,    .00000,
     +     .00000,    .00043,    .00073,
     +     .15521,    .04273,    .00857,    .00080,    .00000,
     +     .00000,    .00039,    .00067,
     +     .14578,    .03995,    .00781,    .00074,    .00000,
     +     .00000,    .00036,    .00062 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13695,    .03734,    .00714,    .00068,    .00000,
     +     .00000,    .00033,    .00058,
     +     .13007,    .03534,    .00663,    .00064,    .00000,
     +     .00000,    .00031,    .00053,
     +     .12225,    .03306,    .00607,    .00059,    .00000,
     +     .00000,    .00028,    .00050,
     +     .11578,    .03119,    .00562,    .00055,    .00000,
     +     .00000,    .00026,    .00047,
     +     .11020,    .02959,    .00525,    .00052,    .00000,
     +     .00000,    .00024,    .00043,
     +     .10357,    .02768,    .00481,    .00047,    .00000,
     +     .00000,    .00023,    .00040,
     +     .09773,    .02602,    .00445,    .00043,    .00000,
     +     .00000,    .00021,    .00038,
     +     .09259,    .02457,    .00413,    .00041,    .00000,
     +     .00000,    .00020,    .00034 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08774,    .02320,    .00384,    .00039,    .00000,
     +     .00000,    .00018,    .00032,
     +     .08329,    .02195,    .00358,    .00037,    .00000,
     +     .00000,    .00017,    .00030,
     +     .07931,    .02084,    .00336,    .00035,    .00000,
     +     .00000,    .00016,    .00028,
     +     .07575,    .01984,    .00316,    .00033,    .00000,
     +     .00000,    .00015,    .00027,
     +     .07235,    .01890,    .00298,    .00031,    .00000,
     +     .00000,    .00014,    .00026,
     +     .06917,    .01802,    .00280,    .00030,    .00000,
     +     .00000,    .00013,    .00024,
     +     .06631,    .01723,    .00265,    .00028,    .00000,
     +     .00000,    .00013,    .00022,
     +     .06369,    .01651,    .00252,    .00027,    .00000,
     +     .00000,    .00012,    .00021 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06118,    .01582,    .00239,    .00027,    .00000,
     +     .00000,    .00012,    .00020,
     +     .05880,    .01517,    .00227,    .00026,    .00000,
     +     .00000,    .00011,    .00019,
     +     .05663,    .01458,    .00216,    .00024,    .00000,
     +     .00000,    .00011,    .00018,
     +     .05466,    .01404,    .00207,    .00023,    .00000,
     +     .00000,    .00010,    .00017,
     +     .05275,    .01352,    .00198,    .00022,    .00000,
     +     .00000,    .00009,    .00016 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30631,    .08683,    .02239,    .00157,    .00000,
     +     .00000,    .00081,    .00140,
     +     .28840,    .08130,    .02037,    .00144,    .00000,
     +     .00000,    .00074,    .00130,
     +     .26418,    .07390,    .01775,    .00126,    .00000,
     +     .00000,    .00065,    .00116,
     +     .24807,    .06903,    .01606,    .00115,    .00000,
     +     .00000,    .00060,    .00107,
     +     .23233,    .06431,    .01452,    .00108,    .00000,
     +     .00000,    .00057,    .00094,
     +     .21972,    .06053,    .01333,    .00101,    .00000,
     +     .00000,    .00052,    .00088,
     +     .20841,    .05716,    .01231,    .00094,    .00000,
     +     .00000,    .00048,    .00082,
     +     .19717,    .05384,    .01133,    .00087,    .00000,
     +     .00000,    .00044,    .00077 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18797,    .05114,    .01055,    .00082,    .00000,
     +     .00000,    .00042,    .00071,
     +     .17957,    .04868,    .00987,    .00077,    .00000,
     +     .00000,    .00040,    .00067,
     +     .17324,    .04684,    .00936,    .00074,    .00000,
     +     .00000,    .00038,    .00063,
     +     .16057,    .04316,    .00838,    .00067,    .00000,
     +     .00000,    .00035,    .00058,
     +     .15053,    .04026,    .00761,    .00060,    .00000,
     +     .00000,    .00033,    .00054,
     +     .14012,    .03728,    .00685,    .00055,    .00000,
     +     .00000,    .00029,    .00049,
     +     .13017,    .03446,    .00616,    .00051,    .00000,
     +     .00000,    .00026,    .00044,
     +     .12186,    .03211,    .00561,    .00046,    .00000,
     +     .00000,    .00024,    .00040 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11409,    .02992,    .00511,    .00042,    .00000,
     +     .00000,    .00022,    .00037,
     +     .10807,    .02824,    .00474,    .00039,    .00000,
     +     .00000,    .00020,    .00035,
     +     .10123,    .02634,    .00433,    .00037,    .00000,
     +     .00000,    .00019,    .00032,
     +     .09561,    .02478,    .00400,    .00035,    .00000,
     +     .00000,    .00018,    .00030,
     +     .09079,    .02344,    .00373,    .00031,    .00000,
     +     .00000,    .00017,    .00029,
     +     .08501,    .02187,    .00341,    .00031,    .00000,
     +     .00000,    .00016,    .00025,
     +     .07998,    .02050,    .00314,    .00028,    .00000,
     +     .00000,    .00014,    .00023,
     +     .07560,    .01930,    .00292,    .00025,    .00000,
     +     .00000,    .00013,    .00022 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07145,    .01818,    .00271,    .00024,    .00000,
     +     .00000,    .00013,    .00020,
     +     .06765,    .01716,    .00252,    .00023,    .00000,
     +     .00000,    .00012,    .00019,
     +     .06427,    .01625,    .00236,    .00021,    .00000,
     +     .00000,    .00011,    .00018,
     +     .06124,    .01544,    .00221,    .00020,    .00000,
     +     .00000,    .00010,    .00017,
     +     .05836,    .01467,    .00208,    .00019,    .00000,
     +     .00000,    .00009,    .00016,
     +     .05567,    .01396,    .00196,    .00018,    .00000,
     +     .00000,    .00009,    .00015,
     +     .05326,    .01331,    .00185,    .00017,    .00000,
     +     .00000,    .00009,    .00014,
     +     .05106,    .01274,    .00175,    .00017,    .00000,
     +     .00000,    .00008,    .00013 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04896,    .01218,    .00166,    .00016,    .00000,
     +     .00000,    .00008,    .00012,
     +     .04697,    .01166,    .00157,    .00015,    .00000,
     +     .00000,    .00007,    .00011,
     +     .04517,    .01119,    .00150,    .00014,    .00000,
     +     .00000,    .00007,    .00011,
     +     .04353,    .01076,    .00143,    .00013,    .00000,
     +     .00000,    .00007,    .00011,
     +     .04191,    .01034,    .00136,    .00013,    .00000,
     +     .00000,    .00007,    .00011 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26559,    .07237,    .01633,    .00109,    .00000,
     +     .00000,    .00051,    .00092,
     +     .24916,    .06754,    .01484,    .00100,    .00000,
     +     .00000,    .00046,    .00085,
     +     .22710,    .06110,    .01291,    .00091,    .00000,
     +     .00000,    .00040,    .00072,
     +     .21250,    .05688,    .01167,    .00083,    .00000,
     +     .00000,    .00037,    .00065,
     +     .19838,    .05280,    .01054,    .00073,    .00000,
     +     .00000,    .00033,    .00059,
     +     .18702,    .04956,    .00967,    .00068,    .00000,
     +     .00000,    .00031,    .00055,
     +     .17689,    .04668,    .00891,    .00064,    .00000,
     +     .00000,    .00029,    .00051,
     +     .16686,    .04384,    .00819,    .00060,    .00000,
     +     .00000,    .00027,    .00046 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15865,    .04153,    .00762,    .00057,    .00000,
     +     .00000,    .00025,    .00045,
     +     .15120,    .03943,    .00712,    .00053,    .00000,
     +     .00000,    .00024,    .00042,
     +     .14560,    .03785,    .00675,    .00050,    .00000,
     +     .00000,    .00023,    .00039,
     +     .13442,    .03476,    .00602,    .00045,    .00000,
     +     .00000,    .00020,    .00036,
     +     .12557,    .03233,    .00546,    .00043,    .00000,
     +     .00000,    .00019,    .00032,
     +     .11646,    .02983,    .00490,    .00039,    .00000,
     +     .00000,    .00017,    .00030,
     +     .10781,    .02746,    .00440,    .00034,    .00000,
     +     .00000,    .00015,    .00027,
     +     .10060,    .02550,    .00399,    .00031,    .00000,
     +     .00000,    .00014,    .00025 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09387,    .02368,    .00363,    .00029,    .00000,
     +     .00000,    .00013,    .00023,
     +     .08866,    .02229,    .00336,    .00027,    .00000,
     +     .00000,    .00012,    .00021,
     +     .08279,    .02073,    .00306,    .00026,    .00000,
     +     .00000,    .00011,    .00018,
     +     .07797,    .01945,    .00282,    .00024,    .00000,
     +     .00000,    .00010,    .00017,
     +     .07385,    .01836,    .00263,    .00022,    .00000,
     +     .00000,    .00009,    .00016,
     +     .06894,    .01707,    .00240,    .00021,    .00000,
     +     .00000,    .00009,    .00015,
     +     .06467,    .01595,    .00221,    .00019,    .00000,
     +     .00000,    .00008,    .00014,
     +     .06096,    .01498,    .00204,    .00017,    .00000,
     +     .00000,    .00008,    .00014 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05747,    .01407,    .00189,    .00016,    .00000,
     +     .00000,    .00007,    .00012,
     +     .05427,    .01325,    .00175,    .00015,    .00000,
     +     .00000,    .00006,    .00011,
     +     .05144,    .01252,    .00164,    .00014,    .00000,
     +     .00000,    .00006,    .00010,
     +     .04890,    .01187,    .00153,    .00013,    .00000,
     +     .00000,    .00006,    .00010,
     +     .04649,    .01126,    .00144,    .00013,    .00000,
     +     .00000,    .00005,    .00009,
     +     .04426,    .01068,    .00135,    .00012,    .00000,
     +     .00000,    .00005,    .00009,
     +     .04227,    .01017,    .00128,    .00010,    .00000,
     +     .00000,    .00005,    .00009,
     +     .04044,    .00971,    .00121,    .00011,    .00000,
     +     .00000,    .00005,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03868,    .00927,    .00114,    .00011,    .00000,
     +     .00000,    .00004,    .00008,
     +     .03704,    .00886,    .00108,    .00011,    .00000,
     +     .00000,    .00004,    .00007,
     +     .03555,    .00848,    .00103,    .00010,    .00000,
     +     .00000,    .00004,    .00007,
     +     .03420,    .00814,    .00098,    .00010,    .00000,
     +     .00000,    .00004,    .00006,
     +     .03288,    .00781,    .00093,    .00009,    .00000,
     +     .00000,    .00003,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22680,    .05922,    .01171,    .00066,    .00000,
     +     .00000,    .00036,    .00062,
     +     .21206,    .05508,    .01063,    .00059,    .00000,
     +     .00000,    .00033,    .00055,
     +     .19225,    .04959,    .00923,    .00055,    .00000,
     +     .00000,    .00029,    .00047,
     +     .17924,    .04599,    .00834,    .00051,    .00000,
     +     .00000,    .00026,    .00044,
     +     .16671,    .04251,    .00751,    .00044,    .00000,
     +     .00000,    .00024,    .00040,
     +     .15669,    .03979,    .00688,    .00041,    .00000,
     +     .00000,    .00022,    .00037,
     +     .14775,    .03737,    .00633,    .00038,    .00000,
     +     .00000,    .00021,    .00034,
     +     .13893,    .03499,    .00581,    .00035,    .00000,
     +     .00000,    .00020,    .00030 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13175,    .03307,    .00540,    .00034,    .00000,
     +     .00000,    .00017,    .00029,
     +     .12524,    .03132,    .00503,    .00032,    .00000,
     +     .00000,    .00016,    .00027,
     +     .12036,    .03002,    .00476,    .00030,    .00000,
     +     .00000,    .00016,    .00025,
     +     .11067,    .02744,    .00424,    .00026,    .00000,
     +     .00000,    .00014,    .00023,
     +     .10304,    .02542,    .00384,    .00024,    .00000,
     +     .00000,    .00014,    .00021,
     +     .09521,    .02337,    .00343,    .00021,    .00000,
     +     .00000,    .00012,    .00020,
     +     .08777,    .02143,    .00307,    .00019,    .00000,
     +     .00000,    .00010,    .00018,
     +     .08160,    .01983,    .00278,    .00018,    .00000,
     +     .00000,    .00010,    .00015 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07587,    .01836,    .00252,    .00017,    .00000,
     +     .00000,    .00009,    .00014,
     +     .07146,    .01723,    .00233,    .00016,    .00000,
     +     .00000,    .00008,    .00013,
     +     .06650,    .01597,    .00212,    .00014,    .00000,
     +     .00000,    .00007,    .00013,
     +     .06245,    .01494,    .00195,    .00013,    .00000,
     +     .00000,    .00007,    .00012,
     +     .05898,    .01407,    .00181,    .00012,    .00000,
     +     .00000,    .00006,    .00011,
     +     .05488,    .01304,    .00165,    .00012,    .00000,
     +     .00000,    .00006,    .00009,
     +     .05132,    .01214,    .00151,    .00011,    .00000,
     +     .00000,    .00005,    .00008,
     +     .04823,    .01137,    .00139,    .00010,    .00000,
     +     .00000,    .00005,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04534,    .01066,    .00129,    .00009,    .00000,
     +     .00000,    .00004,    .00008,
     +     .04270,    .01000,    .00119,    .00008,    .00000,
     +     .00000,    .00004,    .00007,
     +     .04036,    .00943,    .00111,    .00008,    .00000,
     +     .00000,    .00004,    .00006,
     +     .03829,    .00891,    .00104,    .00007,    .00000,
     +     .00000,    .00004,    .00006,
     +     .03634,    .00843,    .00097,    .00006,    .00000,
     +     .00000,    .00004,    .00006,
     +     .03451,    .00798,    .00091,    .00006,    .00000,
     +     .00000,    .00004,    .00006,
     +     .03286,    .00758,    .00086,    .00006,    .00000,
     +     .00000,    .00003,    .00006,
     +     .03138,    .00723,    .00081,    .00006,    .00000,
     +     .00000,    .00003,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .02997,    .00689,    .00077,    .00005,    .00000,
     +     .00000,    .00003,    .00005,
     +     .02864,    .00657,    .00072,    .00005,    .00000,
     +     .00000,    .00003,    .00004,
     +     .02743,    .00627,    .00069,    .00005,    .00000,
     +     .00000,    .00002,    .00004,
     +     .02634,    .00601,    .00065,    .00005,    .00000,
     +     .00000,    .00002,    .00004,
     +     .02528,    .00576,    .00062,    .00004,    .00000,
     +     .00000,    .00002,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .15788,    .03780,    .00578,    .00028,    .00000,
     +     .00000,    .00012,    .00021,
     +     .14652,    .03489,    .00523,    .00025,    .00000,
     +     .00000,    .00011,    .00020,
     +     .13147,    .03107,    .00452,    .00021,    .00000,
     +     .00000,    .00010,    .00018,
     +     .12164,    .02860,    .00406,    .00019,    .00000,
     +     .00000,    .00009,    .00016,
     +     .11225,    .02624,    .00364,    .00016,    .00000,
     +     .00000,    .00009,    .00014,
     +     .10479,    .02439,    .00332,    .00016,    .00000,
     +     .00000,    .00008,    .00013,
     +     .09820,    .02276,    .00305,    .00015,    .00000,
     +     .00000,    .00007,    .00012,
     +     .09174,    .02117,    .00279,    .00012,    .00000,
     +     .00000,    .00006,    .00012 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08651,    .01990,    .00258,    .00012,    .00000,
     +     .00000,    .00006,    .00011,
     +     .08180,    .01875,    .00240,    .00012,    .00000,
     +     .00000,    .00006,    .00010,
     +     .07829,    .01790,    .00226,    .00011,    .00000,
     +     .00000,    .00005,    .00009,
     +     .07136,    .01622,    .00200,    .00010,    .00000,
     +     .00000,    .00004,    .00008,
     +     .06595,    .01492,    .00180,    .00008,    .00000,
     +     .00000,    .00004,    .00007,
     +     .06044,    .01361,    .00160,    .00007,    .00000,
     +     .00000,    .00004,    .00007,
     +     .05526,    .01238,    .00143,    .00007,    .00000,
     +     .00000,    .00003,    .00006,
     +     .05100,    .01137,    .00128,    .00006,    .00000,
     +     .00000,    .00003,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04708,    .01045,    .00116,    .00006,    .00000,
     +     .00000,    .00003,    .00005,
     +     .04410,    .00975,    .00106,    .00005,    .00000,
     +     .00000,    .00003,    .00004,
     +     .04074,    .00897,    .00096,    .00006,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03801,    .00834,    .00088,    .00005,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03571,    .00781,    .00081,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03301,    .00719,    .00074,    .00003,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03067,    .00665,    .00067,    .00003,    .00000,
     +     .00000,    .00002,    .00003,
     +     .02865,    .00620,    .00062,    .00003,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02677,    .00577,    .00057,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02507,    .00538,    .00052,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02357,    .00505,    .00049,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02225,    .00475,    .00045,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02101,    .00447,    .00042,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .01985,    .00421,    .00039,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .01881,    .00398,    .00037,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .01789,    .00378,    .00035,    .00002,    .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)/
     +     .01702,    .00359,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01620,    .00341,    .00031,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01545,    .00324,    .00029,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01478,    .00310,    .00028,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01413,    .00295,    .00026,    .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)/
     +     .10169,    .02209,    .00259,    .00009,    .00000,
     +     .00000,    .00003,    .00007,
     +     .09360,    .02023,    .00234,    .00009,    .00000,
     +     .00000,    .00003,    .00007,
     +     .08302,    .01781,    .00201,    .00006,    .00000,
     +     .00000,    .00003,    .00005,
     +     .07619,    .01626,    .00180,    .00006,    .00000,
     +     .00000,    .00002,    .00005,
     +     .06968,    .01480,    .00161,    .00006,    .00000,
     +     .00000,    .00003,    .00004,
     +     .06460,    .01366,    .00146,    .00005,    .00000,
     +     .00000,    .00002,    .00004,
     +     .06012,    .01266,    .00134,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .05575,    .01170,    .00121,    .00006,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05228,    .01092,    .00112,    .00005,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04916,    .01024,    .00104,    .00004,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04684,    .00973,    .00098,    .00003,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04228,    .00874,    .00086,    .00004,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03876,    .00797,    .00077,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03522,    .00721,    .00068,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03192,    .00650,    .00060,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02922,    .00592,    .00054,    .00002,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02677,    .00540,    .00048,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02490,    .00501,    .00044,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02283,    .00457,    .00040,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02117,    .00422,    .00036,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01976,    .00393,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01812,    .00359,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01672,    .00330,    .00027,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01552,    .00305,    .00025,    .00001,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01441,    .00282,    .00023,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01341,    .00262,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01253,    .00244,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01177,    .00228,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01105,    .00214,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01039,    .00201,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00980,    .00189,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00927,    .00178,    .00013,    .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)/
     +     .00878,    .00168,    .00013,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00832,    .00159,    .00012,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00790,    .00151,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00753,    .00143,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00717,    .00136,    .00010,    .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)/
     +     .05908,    .01151,    .00100,    .00004,    .00000,
     +     .00000,    .00000,    .00001,
     +     .05389,    .01045,    .00091,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04717,    .00907,    .00078,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04290,    .00821,    .00069,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03886,    .00740,    .00062,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03574,    .00678,    .00056,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03302,    .00624,    .00051,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03039,    .00572,    .00046,    .00001,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02829,    .00530,    .00043,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02642,    .00494,    .00039,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02505,    .00467,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02238,    .00415,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02033,    .00375,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01829,    .00336,    .00025,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01641,    .00300,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01489,    .00271,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01352,    .00245,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01248,    .00225,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01135,    .00204,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01044,    .00187,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00968,    .00173,    .00012,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00880,    .00157,    .00010,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00806,    .00143,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00743,    .00131,    .00009,    .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)/
     +     .00684,    .00121,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00633,    .00111,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00587,    .00103,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00548,    .00096,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00511,    .00089,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00478,    .00083,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00448,    .00078,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00422,    .00073,    .00004,    .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)/
     +     .00397,    .00069,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00375,    .00064,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00354,    .00061,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00336,    .00058,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00318,    .00054,    .00003,    .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)/
     +     .02957,    .00505,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02669,    .00454,    .00028,    .00000,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02301,    .00389,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02070,    .00348,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01855,    .00310,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01690,    .00281,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01548,    .00257,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01411,    .00233,    .00014,    .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)/
     +     .01303,    .00215,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01208,    .00198,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01139,    .00186,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01005,    .00164,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00903,    .00147,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00803,    .00130,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00712,    .00114,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00640,    .00102,    .00006,    .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)/
     +     .00575,    .00092,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00526,    .00084,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00474,    .00075,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00432,    .00068,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00397,    .00062,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00358,    .00056,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00324,    .00051,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00296,    .00046,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00271,    .00042,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00248,    .00038,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00229,    .00035,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00033,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00196,    .00030,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00182,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00159,    .00024,    .00001,    .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)/
     +     .00149,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00139,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00131,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00123,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00116,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00313,    .00037,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00274,    .00032,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00226,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00171,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00152,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00135,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00120,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00108,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00098,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00091,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00078,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00068,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00058,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00050,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00043,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00038,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00034,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00030,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00021,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='ft11a.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