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

sfmrsc2.F

#include "pdf/pilot.h"
      subroutine sfmrsc2(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)/
     +     .00259,    .00689,   1.16588,    .85968,    .00000,
     +     .00000,    .45917,    .86498,
     +     .00277,    .00698,   2.47333,    .89867,    .00000,
     +     .00000,    .50263,    .90444,
     +     .00305,    .00711,   5.05545,    .98084,    .00000,
     +     .00000,    .59117,    .98728,
     +     .00326,    .00720,   7.52955,   1.05873,    .04478,
     +     .00000,    .67353,   1.06564,
     +     .00347,    .00730,  10.66043,   1.16020,    .15649,
     +     .00000,    .77957,   1.16758,
     +     .00366,    .00739,  13.86666,   1.26472,    .26541,
     +     .00000,    .88794,   1.27249,
     +     .00384,    .00747,  17.47517,   1.37895,    .38692,
     +     .00000,   1.00577,   1.38709,
     +     .00403,    .00756,  21.91471,   1.51631,    .53530,
     +     .00000,   1.14687,   1.52483 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00420,    .00764,  26.23272,   1.65120,    .67433,
     +     .00000,   1.28494,   1.66003,
     +     .00437,    .00772,  30.86727,   1.79471,    .82244,
     +     .00000,   1.43147,   1.80384,
     +     .00450,    .00778,  34.92763,   1.91783,    .95177,
     +     .00000,   1.55694,   1.92719,
     +     .00477,    .00792,  44.44169,   2.21112,   1.25254,
     +     .02795,   1.85514,   2.22095,
     +     .00502,    .00803,  53.63533,   2.49757,   1.54204,
     +     .43875,   2.14571,   2.50779,
     +     .00529,    .00816,  65.27377,   2.85801,   1.90559,
     +     .92366,   2.51064,   2.86864,
     +     .00558,    .00830,  78.95992,   3.27952,   2.32879,
     +    1.40887,   2.93670,   3.29056,
     +     .00584,    .00843,  92.80008,   3.70473,   2.75454,
     +    1.88258,   3.36594,   3.71613 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00611,    .00856, 108.18814,   4.17736,   3.22753,
     +    2.39486,   3.84254,   4.18910,
     +     .00633,    .00866, 121.99876,   4.60353,   3.65231,
     +    2.84312,   4.27193,   4.61554,
     +     .00660,    .00880, 140.00491,   5.16221,   4.20806,
     +    3.42186,   4.83444,   5.17453,
     +     .00685,    .00892, 157.20923,   5.69719,   4.74153,
     +    3.97575,   5.37272,   5.70977,
     +     .00707,    .00902, 174.05409,   6.22270,   5.26627,
     +    4.51828,   5.90121,   6.23552,
     +     .00736,    .00917, 196.61212,   6.93450,   5.97429,
     +    5.24225,   6.61672,   6.94760,
     +     .00763,    .00930, 219.30446,   7.65447,   6.69196,
     +    5.97620,   7.34009,   7.66782,
     +     .00789,    .00943, 241.97026,   8.37659,   7.41381,
     +    6.71536,   8.06534,   8.39017 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00815,    .00955, 265.50397,   9.13732,   8.17098,
     +    7.48438,   8.82913,   9.15111,
     +     .00841,    .00968, 289.83975,   9.92771,   8.95989,
     +    8.28770,   9.62246,   9.94169,
     +     .00865,    .00980, 313.97021,  10.71716,   9.74846,
     +    9.09036,  10.41464,  10.73132,
     +     .00888,    .00992, 337.43375,  11.49349,  10.52271,
     +    9.87606,  11.19352,  11.50781,
     +     .00912,    .01003, 362.18018,  12.31508,  11.34441,
     +   10.71216,  12.01760,  12.32955,
     +     .00935,    .01015, 387.01361,  13.15097,  12.17814,
     +   11.55689,  12.85592,  13.16559,
     +     .00957,    .01026, 411.77390,  13.98628,  13.01400,
     +   12.40653,  13.69351,  14.00103,
     +     .00979,    .01037, 435.51117,  14.79805,  13.82405,
     +   13.22674,  14.50739,  14.81291 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01000,    .01047, 460.43759,  15.65316,  14.67933,
     +   14.09469,  15.36460,  15.66814,
     +     .01021,    .01058, 485.48840,  16.52166,  15.54712,
     +   14.97378,  16.23516,  16.53675,
     +     .01042,    .01068, 510.05765,  17.37914,  16.40437,
     +   15.84230,  17.09458,  17.39433,
     +     .01062,    .01078, 534.04871,  18.22086,  17.24677,
     +   16.69648,  17.93811,  18.23614,
     +     .01082,    .01088, 558.49670,  19.08892,  18.11395,
     +   17.57351,  18.80798,  19.10429 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00427,    .00843,   1.08559,    .74097,    .00000,
     +     .00000,    .39537,    .74512,
     +     .00453,    .00855,   2.26608,    .77635,    .00000,
     +     .00000,    .43435,    .78080,
     +     .00491,    .00874,   4.54492,    .84837,    .00000,
     +     .00000,    .51151,    .85324,
     +     .00519,    .00888,   6.68209,    .91521,    .03838,
     +     .00000,    .58194,    .92037,
     +     .00548,    .00902,   9.33707,   1.00087,    .13346,
     +     .00000,    .67128,   1.00634,
     +     .00574,    .00915,  12.01393,   1.08802,    .22476,
     +     .00000,    .76151,   1.09373,
     +     .00598,    .00927,  14.98798,   1.18243,    .32543,
     +     .00000,    .85880,   1.18837,
     +     .00625,    .00940,  18.60115,   1.29499,    .44708,
     +     .00000,    .97435,   1.30118 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00647,    .00951,  22.07317,   1.40455,    .55988,
     +     .00000,   1.08645,   1.41094,
     +     .00670,    .00962,  25.76194,   1.52030,    .67906,
     +     .00000,   1.20460,   1.52687,
     +     .00687,    .00970,  28.96707,   1.61905,    .78245,
     +     .00000,   1.30523,   1.62577,
     +     .00725,    .00989,  36.38287,   1.85225,   1.02059,
     +     .02285,   1.54233,   1.85927,
     +     .00758,    .01005,  43.43904,   2.07766,   1.24726,
     +     .34582,   1.77102,   2.08494,
     +     .00795,    .01023,  52.25513,   2.35860,   1.52901,
     +     .72372,   2.05552,   2.36614,
     +     .00834,    .01042,  62.48365,   2.68380,   1.85356,
     +    1.09633,   2.38434,   2.69161,
     +     .00869,    .01060,  72.69753,   3.00875,   2.17690,
     +    1.45612,   2.71247,   3.01679 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .00905,    .01078,  83.92340,   3.36675,   2.53292,
     +    1.84135,   3.07361,   3.37502,
     +     .00935,    .01092,  93.89393,   3.68697,   2.85008,
     +    2.17544,   3.39638,   3.69541,
     +     .00972,    .01111, 106.76203,   4.10346,   3.26177,
     +    2.60323,   3.81589,   4.11211,
     +     .01005,    .01127, 118.93644,   4.49920,   3.65397,
     +    3.00950,   4.21425,   4.50802,
     +     .01035,    .01142, 130.75394,   4.88529,   4.03720,
     +    3.40475,   4.60269,   4.89427,
     +     .01074,    .01161, 146.42671,   5.40430,   4.55035,
     +    3.92801,   5.12461,   5.41347,
     +     .01110,    .01179, 162.04227,   5.92524,   5.06665,
     +    4.45459,   5.64824,   5.93458,
     +     .01145,    .01196, 177.50587,   6.44412,   5.58248,
     +    4.98143,   6.16958,   6.45361 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01180,    .01213, 193.41631,   6.98688,   6.11969,
     +    5.52547,   6.71475,   6.99651,
     +     .01214,    .01230, 209.74129,   7.54721,   6.67602,
     +    6.09043,   7.27740,   7.55698,
     +     .01246,    .01246, 225.80667,   8.10346,   7.22882,
     +    6.65161,   7.83581,   8.11335,
     +     .01277,    .01262, 241.31096,   8.64722,   7.76836,
     +    7.19763,   8.38157,   8.65723,
     +     .01309,    .01277, 257.56226,   9.21971,   8.33819,
     +    7.77597,   8.95603,   9.22982,
     +     .01340,    .01293, 273.75073,   9.79881,   8.91298,
     +    8.35676,   9.53704,   9.80903,
     +     .01369,    .01307, 289.80313,  10.37479,   9.48674,
     +    8.93854,  10.11481,  10.38510,
     +     .01397,    .01321, 305.08841,  10.93163,  10.03981,
     +    9.49706,  10.67332,  10.94203 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01426,    .01336, 321.05981,  11.51572,  10.62146,
     +   10.08587,  11.25907,  11.52620,
     +     .01454,    .01350, 337.01422,  12.10612,  11.20879,
     +   10.67935,  11.85109,  12.11668,
     +     .01482,    .01363, 352.58127,  12.68655,  11.78661,
     +   11.26332,  12.43304,  12.69718,
     +     .01508,    .01376, 367.71094,  13.25408,  12.35229,
     +   11.83556,  13.00200,  13.26478,
     +     .01534,    .01389, 383.04120,  13.83681,  12.93200,
     +   12.42041,  13.58615,  13.84757 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00671,    .01032,   1.01212,    .63825,    .00000,
     +     .00000,    .34046,    .64160,
     +     .00706,    .01050,   2.07769,    .67025,    .00000,
     +     .00000,    .37537,    .67376,
     +     .00759,    .01076,   4.08741,    .73332,    .00000,
     +     .00000,    .44258,    .73708,
     +     .00797,    .01095,   5.93123,    .79064,    .03290,
     +     .00000,    .50280,    .79457,
     +     .00838,    .01116,   8.17877,    .86289,    .11381,
     +     .00000,    .57800,    .86700,
     +     .00873,    .01133,  10.40896,    .93544,    .19030,
     +     .00000,    .65302,    .93969,
     +     .00906,    .01150,  12.85429,   1.01331,    .27365,
     +     .00000,    .73321,   1.01771,
     +     .00942,    .01168,  15.78714,   1.10535,    .37331,
     +     .00000,    .82763,   1.10988 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .00974,    .01184,  18.57069,   1.19411,    .46473,
     +     .00000,    .91842,   1.19876,
     +     .01004,    .01199,  21.49739,   1.28718,    .56053,
     +     .00000,   1.01341,   1.29194,
     +     .01028,    .01211,  24.01901,   1.36614,    .64308,
     +     .00000,   1.09386,   1.37099,
     +     .01079,    .01236,  29.77809,   1.55093,    .83134,
     +     .01868,   1.28176,   1.55597,
     +     .01124,    .01259,  35.17113,   1.72766,   1.00849,
     +     .27246,   1.46108,   1.73284,
     +     .01174,    .01284,  41.81951,   1.94575,   1.22642,
     +     .56680,   1.68201,   1.95110,
     +     .01227,    .01310,  49.42761,   2.19560,   1.47475,
     +     .85271,   1.93471,   2.20110,
     +     .01275,    .01334,  56.92745,   2.44281,   1.71970,
     +    1.12569,   2.18444,   2.44846 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01324,    .01358,  65.07363,   2.71273,   1.98698,
     +    1.41503,   2.45684,   2.71852,
     +     .01365,    .01378,  72.23181,   2.95218,   2.22310,
     +    1.66367,   2.69831,   2.95808,
     +     .01414,    .01403,  81.37452,   3.26113,   2.52715,
     +    1.97936,   3.00964,   3.26716,
     +     .01459,    .01425,  89.93745,   3.55238,   2.81458,
     +    2.27681,   3.30294,   3.55852,
     +     .01499,    .01445,  98.17611,   3.83456,   3.09351,
     +    2.56418,   3.58697,   3.84080,
     +     .01551,    .01471, 108.99378,   4.21096,   3.46412,
     +    2.94153,   3.96567,   4.21732,
     +     .01600,    .01495, 119.66624,   4.58582,   3.83417,
     +    3.31841,   4.34265,   4.59229,
     +     .01647,    .01518, 130.14194,   4.95658,   4.20137,
     +    3.69295,   4.71533,   4.96315 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01693,    .01541, 140.81921,   5.34158,   4.58098,
     +    4.07674,   5.10223,   5.34824,
     +     .01739,    .01564, 151.68756,   5.73649,   4.97166,
     +    4.47289,   5.49896,   5.74324,
     +     .01782,    .01585, 162.30002,   6.12609,   5.35751,
     +    4.86401,   5.89025,   6.13293,
     +     .01824,    .01606, 172.46210,   6.50463,   5.73180,
     +    5.24220,   6.27036,   6.51154,
     +     .01865,    .01627, 183.04675,   6.90108,   6.12516,
     +    5.64089,   6.66836,   6.90807,
     +     .01906,    .01647, 193.50883,   7.29975,   6.51955,
     +    6.03874,   7.06852,   7.30681,
     +     .01946,    .01666, 203.82547,   7.69439,   6.91149,
     +    6.43564,   7.46457,   7.70152,
     +     .01983,    .01685, 213.57904,   8.07386,   7.28721,
     +    6.81446,   7.84535,   8.08105 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02021,    .01704, 223.71922,   8.47020,   7.68077,
     +    7.21231,   8.24299,   8.47745,
     +     .02059,    .01722, 233.78458,   8.86885,   8.07621,
     +    7.61130,   8.64291,   8.87617,
     +     .02095,    .01740, 243.55313,   9.25908,   8.46360,
     +    8.00226,   9.03434,   9.26645,
     +     .02129,    .01757, 253.00122,   9.63912,   8.84141,
     +    8.38395,   9.41550,   9.64654,
     +     .02164,    .01775, 262.51675,  10.02757,   9.22679,
     +    8.77216,   9.80506,  10.03504 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00860,    .01162,    .97251,    .58467,    .00000,
     +     .00000,    .31196,    .58771,
     +     .00903,    .01184,   1.97602,    .61479,    .00000,
     +     .00000,    .34467,    .61795,
     +     .00966,    .01216,   3.84259,    .67312,    .00000,
     +     .00000,    .40665,    .67645,
     +     .01013,    .01239,   5.53271,    .72549,    .03005,
     +     .00000,    .46158,    .72894,
     +     .01062,    .01264,   7.56962,    .79084,    .10367,
     +     .00000,    .52954,    .79442,
     +     .01104,    .01285,   9.57162,    .85596,    .17262,
     +     .00000,    .59683,    .85964,
     +     .01144,    .01305,  11.74953,    .92547,    .24723,
     +     .00000,    .66837,    .92925,
     +     .01188,    .01327,  14.34165,   1.00717,    .33588,
     +     .00000,    .75218,   1.01106 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01225,    .01346,  16.78363,   1.08553,    .41667,
     +     .00000,    .83232,   1.08950,
     +     .01262,    .01364,  19.33527,   1.16733,    .50091,
     +     .00000,    .91580,   1.17138,
     +     .01291,    .01379,  21.52275,   1.23649,    .57323,
     +     .00000,    .98628,   1.24060,
     +     .01352,    .01410,  26.47986,   1.39747,    .73716,
     +     .01659,   1.14998,   1.40171,
     +     .01406,    .01436,  31.07749,   1.55043,    .89036,
     +     .23690,   1.30521,   1.55478,
     +     .01466,    .01466,  36.70005,   1.73809,   1.07767,
     +     .49111,   1.49535,   1.74256,
     +     .01529,    .01498,  43.08162,   1.95173,   1.28974,
     +     .73584,   1.71149,   1.95632,
     +     .01587,    .01526,  49.32399,   2.16189,   1.49767,
     +     .96795,   1.92385,   2.16659 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01645,    .01555,  56.05666,   2.39012,   1.72333,
     +    1.21247,   2.15425,   2.39493,
     +     .01694,    .01580,  61.93496,   2.59160,   1.92171,
     +    1.42147,   2.35748,   2.59649,
     +     .01753,    .01609,  69.39609,   2.85032,   2.17592,
     +    1.68547,   2.61827,   2.85530,
     +     .01806,    .01635,  76.34207,   3.09306,   2.41512,
     +    1.93305,   2.86281,   3.09813,
     +     .01854,    .01659,  82.98962,   3.32729,   2.64632,
     +    2.17124,   3.09864,   3.33244,
     +     .01916,    .01690,  91.66563,   3.63827,   2.95207,
     +    2.48249,   3.41163,   3.64352,
     +     .01974,    .01719, 100.17468,   3.94656,   3.25597,
     +    2.79195,   3.72175,   3.95189,
     +     .02029,    .01746, 108.48296,   4.25018,   3.55631,
     +    3.09826,   4.02706,   4.25560 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02084,    .01773, 116.90254,   4.56411,   3.86542,
     +    3.41066,   4.34263,   4.56959,
     +     .02139,    .01800, 125.43188,   4.88488,   4.18237,
     +    3.73198,   4.66498,   4.89044,
     +     .02190,    .01826, 133.72142,   5.20017,   4.49426,
     +    4.04806,   4.98174,   5.20580,
     +     .02239,    .01850, 141.62149,   5.50539,   4.79571,
     +    4.35254,   5.28832,   5.51109,
     +     .02288,    .01874, 149.81917,   5.82407,   5.11158,
     +    4.67262,   5.60835,   5.82983,
     +     .02337,    .01898, 157.88332,   6.14338,   5.42712,
     +    4.99082,   5.92896,   6.14920,
     +     .02383,    .01921, 165.80916,   6.45860,   5.73988,
     +    5.30747,   6.24539,   6.46447,
     +     .02428,    .01943, 173.26941,   6.76071,   6.03870,
     +    5.60865,   6.54864,   6.76663 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02472,    .01965, 181.00221,   7.07544,   6.35095,
     +    5.92423,   6.86450,   7.08142,
     +     .02517,    .01987, 188.64784,   7.39109,   6.66376,
     +    6.23976,   7.18125,   7.39711,
     +     .02559,    .02008, 196.04414,   7.69926,   6.96944,
     +    6.54817,   7.49046,   7.70534,
     +     .02600,    .02028, 203.17697,   7.99868,   7.26687,
     +    6.84860,   7.79085,   8.00480,
     +     .02641,    .02048, 210.33369,   8.30388,   7.56940,
     +    7.15325,   8.09703,   8.31005 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01020,    .01264,    .94605,    .54929,    .00000,
     +     .00000,    .29321,    .55219,
     +     .01069,    .01289,   1.90770,    .57812,    .00000,
     +     .00000,    .32442,    .58112,
     +     .01142,    .01326,   3.67858,    .63328,    .00000,
     +     .00000,    .38294,    .63641,
     +     .01195,    .01353,   5.26693,    .68238,    .02819,
     +     .00000,    .43440,    .68561,
     +     .01251,    .01381,   7.16554,    .74322,    .09702,
     +     .00000,    .49763,    .74655,
     +     .01299,    .01405,   9.01882,    .80350,    .16107,
     +     .00000,    .55990,    .80692,
     +     .01345,    .01429,  11.02353,    .86759,    .23002,
     +     .00000,    .62585,    .87108,
     +     .01395,    .01453,  13.39635,    .94263,    .31158,
     +     .00000,    .70281,    .94620 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01438,    .01475,  15.61979,   1.01430,    .38556,
     +     .00000,    .77611,   1.01794,
     +     .01479,    .01496,  17.93268,   1.08887,    .46243,
     +     .00000,    .85222,   1.09258,
     +     .01512,    .01512,  19.90834,   1.15177,    .52823,
     +     .00000,    .91632,   1.15553,
     +     .01583,    .01547,  24.36031,   1.29760,    .67675,
     +     .01525,   1.06463,   1.30146,
     +     .01644,    .01578,  28.46070,   1.43552,    .81488,
     +     .21447,   1.20462,   1.43947,
     +     .01712,    .01612,  33.44630,   1.60400,    .98300,
     +     .44350,   1.37537,   1.60805,
     +     .01784,    .01648,  39.07153,   1.79496,   1.17247,
     +     .66258,   1.56860,   1.79910,
     +     .01849,    .01680,  44.54351,   1.98201,   1.35744,
     +     .86937,   1.75765,   1.98624 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01916,    .01713,  50.41530,   2.18437,   1.55740,
     +    1.08627,   1.96198,   2.18869,
     +     .01971,    .01741,  55.51825,   2.36237,   1.73255,
     +    1.27093,   2.14158,   2.36676,
     +     .02038,    .01774,  61.96604,   2.59015,   1.95623,
     +    1.50333,   2.37124,   2.59462,
     +     .02097,    .01803,  67.94250,   2.80315,   2.16600,
     +    1.72055,   2.58587,   2.80770,
     +     .02152,    .01831,  73.64030,   3.00807,   2.36817,
     +    1.92890,   2.79225,   3.01268,
     +     .02222,    .01865,  81.04428,   3.27924,   2.63461,
     +    2.20019,   3.06524,   3.28393,
     +     .02288,    .01898,  88.27478,   3.54716,   2.89858,
     +    2.46904,   3.33482,   3.55193,
     +     .02350,    .01928,  95.30785,   3.81024,   3.15870,
     +    2.73439,   3.59943,   3.81508 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02412,    .01959, 102.40522,   4.08138,   3.42555,
     +    3.00410,   3.87207,   4.08629,
     +     .02474,    .01989, 109.57033,   4.35769,   3.69844,
     +    3.28079,   4.14980,   4.36266,
     +     .02532,    .02018, 116.51038,   4.62854,   3.96628,
     +    3.55226,   4.42199,   4.63357,
     +     .02587,    .02045, 123.10139,   4.89006,   4.22446,
     +    3.81305,   4.68475,   4.89515,
     +     .02642,    .02073, 129.92206,   5.16250,   4.49441,
     +    4.08665,   4.95841,   5.16765,
     +     .02697,    .02100, 136.60822,   5.43478,   4.76337,
     +    4.35789,   5.23187,   5.43999,
     +     .02749,    .02125, 143.16418,   5.70303,   5.02948,
     +    4.62734,   5.50122,   5.70829,
     +     .02799,    .02150, 149.31487,   5.95952,   5.28308,
     +    4.88295,   5.75874,   5.96482 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02849,    .02175, 155.67656,   6.22625,   5.54765,
     +    5.15037,   6.02649,   6.23161,
     +     .02899,    .02199, 161.94843,   6.49318,   5.81211,
     +    5.41715,   6.29442,   6.49858,
     +     .02947,    .02223, 168.00150,   6.75330,   6.07007,
     +    5.67744,   6.55548,   6.75875,
     +     .02992,    .02245, 173.82651,   7.00560,   6.32066,
     +    5.93058,   6.80866,   7.01109,
     +     .03038,    .02268, 179.65471,   7.26227,   6.57501,
     +    6.18673,   7.06621,   7.26780 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01161,    .01350,    .92656,    .52325,    .00000,
     +     .00000,    .27946,    .52610,
     +     .01216,    .01378,   1.85696,    .55111,    .00000,
     +     .00000,    .30955,    .55405,
     +     .01297,    .01419,   3.55679,    .60391,    .00000,
     +     .00000,    .36551,    .60696,
     +     .01356,    .01449,   5.07008,    .65062,    .02682,
     +     .00000,    .41442,    .65374,
     +     .01418,    .01480,   6.86732,    .70816,    .09215,
     +     .00000,    .47419,    .71137,
     +     .01471,    .01507,   8.61220,    .76492,    .15263,
     +     .00000,    .53282,    .76820,
     +     .01523,    .01533,  10.49125,    .82507,    .21748,
     +     .00000,    .59470,    .82841,
     +     .01577,    .01560,  12.70570,    .89528,    .29391,
     +     .00000,    .66672,    .89870 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01625,    .01584,  14.77200,    .96212,    .36300,
     +     .00000,    .73509,    .96560,
     +     .01671,    .01607,  16.91389,   1.03150,    .43458,
     +     .00000,    .80590,   1.03503,
     +     .01708,    .01625,  18.73832,   1.08990,    .49571,
     +     .00000,    .86542,   1.09348,
     +     .01786,    .01664,  22.83125,   1.22488,    .63324,
     +     .01428,   1.00272,   1.22855,
     +     .01853,    .01698,  26.58023,   1.35207,    .76065,
     +     .19850,   1.13184,   1.35582,
     +     .01929,    .01735,  31.11792,   1.50693,    .91519,
     +     .40968,   1.28881,   1.51076,
     +     .02008,    .01775,  36.21401,   1.68183,   1.08871,
     +     .61068,   1.46582,   1.68574,
     +     .02080,    .01811,  41.14960,   1.85258,   1.25755,
     +     .79969,   1.63844,   1.85657 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02153,    .01847,  46.42466,   2.03675,   1.43951,
     +     .99726,   1.82444,   2.04082,
     +     .02214,    .01877,  50.99228,   2.19830,   1.59844,
     +    1.16495,   1.98748,   2.20243,
     +     .02288,    .01914,  56.74313,   2.40446,   1.80086,
     +    1.37538,   2.19540,   2.40867,
     +     .02354,    .01946,  62.05534,   2.59675,   1.99020,
     +    1.57154,   2.38920,   2.60102,
     +     .02414,    .01976,  67.10463,   2.78130,   2.17224,
     +    1.75925,   2.57512,   2.78564,
     +     .02491,    .02014,  73.64314,   3.02489,   2.41154,
     +    2.00299,   2.82039,   3.02930,
     +     .02563,    .02050,  80.00702,   3.26493,   2.64801,
     +    2.24391,   3.06197,   3.26941,
     +     .02632,    .02083,  86.17851,   3.50008,   2.88050,
     +    2.48115,   3.29854,   3.50462 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02700,    .02117,  92.38571,   3.74184,   3.11839,
     +    2.72166,   3.54169,   3.74645,
     +     .02767,    .02150,  98.63516,   3.98766,   3.36117,
     +    2.96788,   3.78885,   3.99233,
     +     .02831,    .02182, 104.67200,   4.22814,   3.59896,
     +    3.20897,   4.03056,   4.23287,
     +     .02891,    .02212, 110.38937,   4.45985,   3.82769,
     +    3.44007,   4.26341,   4.46463,
     +     .02952,    .02241, 116.29341,   4.70082,   4.06646,
     +    3.68213,   4.50552,   4.70566,
     +     .03012,    .02271, 122.06469,   4.94115,   4.30385,
     +    3.92158,   4.74694,   4.94604,
     +     .03070,    .02299, 127.71309,   5.17756,   4.53838,
     +    4.15913,   4.98438,   5.18250,
     +     .03124,    .02326, 132.99858,   5.40318,   4.76146,
     +    4.38402,   5.21095,   5.40817 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03179,    .02353, 138.45605,   5.63748,   4.99387,
     +    4.61901,   5.44620,   5.64251,
     +     .03233,    .02380, 143.82413,   5.87155,   5.22579,
     +    4.85301,   5.68120,   5.87664,
     +     .03286,    .02405, 148.99524,   6.09933,   5.45168,
     +    5.08100,   5.90986,   6.10446,
     +     .03335,    .02430, 153.96327,   6.31996,   5.67084,
     +    5.30245,   6.13131,   6.32513,
     +     .03386,    .02454, 158.92271,   6.54405,   5.89293,
     +    5.52614,   6.35622,   6.54926 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01715,    .01661,    .87277,    .44957,    .00000,
     +     .00000,    .24078,    .45259,
     +     .01792,    .01699,   1.71242,    .47455,    .00000,
     +     .00000,    .26761,    .47762,
     +     .01905,    .01756,   3.20791,    .52059,    .00000,
     +     .00000,    .31627,    .52375,
     +     .01987,    .01796,   4.50783,    .56048,    .02296,
     +     .00000,    .35799,    .56371,
     +     .02073,    .01839,   6.02003,    .60879,    .07848,
     +     .00000,    .40813,    .61208,
     +     .02147,    .01876,   7.46301,    .65576,    .12905,
     +     .00000,    .45664,    .65910,
     +     .02218,    .01911,   8.99500,    .70502,    .18258,
     +     .00000,    .50734,    .70842,
     +     .02293,    .01948,  10.77555,    .76197,    .24496,
     +     .00000,    .56576,    .76542 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02359,    .01981,  12.41473,    .81562,    .30070,
     +     .00000,    .62067,    .81912,
     +     .02422,    .02012,  14.09488,    .87085,    .35794,
     +     .00000,    .67707,    .87439,
     +     .02472,    .02037,  15.51315,    .91705,    .40648,
     +     .00000,    .72420,    .92063,
     +     .02579,    .02090,  18.64980,   1.02277,    .51453,
     +     .01164,    .83182,   1.02644,
     +     .02672,    .02135,  21.47223,   1.12123,    .61338,
     +     .15584,    .93186,   1.12496,
     +     .02775,    .02186,  24.83922,   1.23983,    .73197,
     +     .31966,   1.05218,   1.24364,
     +     .02883,    .02240,  28.56471,   1.37227,    .86358,
     +     .47313,   1.18635,   1.37615,
     +     .02981,    .02288,  32.12263,   1.50022,    .99026,
     +     .61572,   1.31582,   1.50417 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03080,    .02337,  35.87682,   1.63688,   1.12547,
     +     .76316,   1.45398,   1.64091,
     +     .03163,    .02377,  39.08961,   1.75571,   1.24251,
     +     .88707,   1.57402,   1.75980,
     +     .03262,    .02426,  43.08856,   1.90605,   1.39028,
     +    1.04115,   1.72578,   1.91021,
     +     .03351,    .02470,  46.74202,   2.04509,   1.52736,
     +    1.18356,   1.86606,   2.04932,
     +     .03432,    .02510,  50.18121,   2.17757,   1.65820,
     +    1.31882,   1.99964,   2.18185,
     +     .03536,    .02560,  54.58500,   2.35096,   1.82872,
     +    1.49289,   2.17440,   2.35532,
     +     .03633,    .02608,  58.82491,   2.52041,   1.99586,
     +    1.66355,   2.34511,   2.52484,
     +     .03725,    .02653,  62.89719,   2.68518,   2.15898,
     +    1.83039,   2.51102,   2.68968 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03816,    .02698,  66.94860,   2.85323,   2.32454,
     +    1.99807,   2.68020,   2.85780,
     +     .03906,    .02742,  70.99192,   3.02295,   2.49238,
     +    2.16864,   2.85100,   3.02759,
     +     .03991,    .02783,  74.86384,   3.18788,   2.65569,
     +    2.33455,   3.01693,   3.19258,
     +     .04071,    .02823,  78.49768,   3.34574,   2.81172,
     +    2.49248,   3.17572,   3.35050,
     +     .04152,    .02862,  82.22470,   3.50902,   2.97375,
     +    2.65708,   3.33991,   3.51383,
     +     .04231,    .02901,  85.83414,   3.67079,   3.13375,
     +    2.81875,   3.50257,   3.67566,
     +     .04307,    .02938,  89.34600,   3.82914,   3.29110,
     +    2.97844,   3.66176,   3.83407,
     +     .04379,    .02973,  92.60355,   3.97936,   3.43983,
     +    3.12863,   3.81275,   3.98434 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04452,    .03009,  95.94897,   4.13466,   3.59412,
     +    3.28493,   3.96882,   4.13970,
     +     .04524,    .03044,  99.21456,   4.28897,   3.74725,
     +    3.43970,   4.12388,   4.29406,
     +     .04592,    .03077, 102.34113,   4.43843,   3.89571,
     +    3.58981,   4.27405,   4.44358,
     +     .04658,    .03109, 105.32854,   4.58259,   4.03915,
     +    3.73502,   4.41887,   4.58778,
     +     .04724,    .03141, 108.28811,   4.72826,   4.18373,
     +    3.88089,   4.56520,   4.73350 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02499,    .02057,    .83274,    .38572,    .00000,
     +     .00000,    .20759,    .38943,
     +     .02606,    .02109,   1.59057,    .40800,    .00000,
     +     .00000,    .23145,    .41179,
     +     .02764,    .02185,   2.90362,    .44798,    .00000,
     +     .00000,    .27365,    .45189,
     +     .02878,    .02241,   4.01626,    .48193,    .01964,
     +     .00000,    .30915,    .48593,
     +     .02997,    .02299,   5.28237,    .52230,    .06675,
     +     .00000,    .35108,    .52638,
     +     .03099,    .02349,   6.46863,    .56097,    .10892,
     +     .00000,    .39105,    .56513,
     +     .03197,    .02397,   7.70922,    .60109,    .15297,
     +     .00000,    .43240,    .60533,
     +     .03302,    .02448,   9.13011,    .64699,    .20370,
     +     .00000,    .47955,    .65131 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03392,    .02492,  10.41964,    .68975,    .24847,
     +     .00000,    .52338,    .69414,
     +     .03479,    .02534,  11.72577,    .73339,    .29402,
     +     .00000,    .56801,    .73784,
     +     .03548,    .02567,  12.81790,    .76966,    .33236,
     +     .00000,    .60506,    .77417,
     +     .03694,    .02639,  15.19669,    .85178,    .41675,
     +     .00945,    .68879,    .85640,
     +     .03820,    .02700,  17.29655,    .92730,    .49297,
     +     .12180,    .76565,    .93201,
     +     .03961,    .02769,  19.76334,   1.01726,    .58333,
     +     .24827,    .85706,   1.02208,
     +     .04108,    .02841,  22.45011,   1.11652,    .68239,
     +     .36478,    .95779,   1.12145,
     +     .04241,    .02905,  24.97807,   1.21134,    .77668,
     +     .47168,   1.05390,   1.21638 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04375,    .02971,  27.60936,   1.31161,    .87627,
     +     .58097,   1.15544,   1.31675,
     +     .04486,    .03025,  29.83308,   1.39798,    .96168,
     +     .67186,   1.24283,   1.40321,
     +     .04621,    .03091,  32.56718,   1.50627,   1.06851,
     +     .78380,   1.35232,   1.51160,
     +     .04740,    .03148,  35.03583,   1.60554,   1.16676,
     +     .88634,   1.45264,   1.61097,
     +     .04850,    .03202,  37.33576,   1.69939,   1.25981,
     +     .98297,   1.54743,   1.70491,
     +     .04988,    .03269,  40.24498,   1.82115,   1.38000,
     +    1.10615,   1.67034,   1.82677,
     +     .05118,    .03332,  43.01345,   1.93911,   1.49678,
     +    1.22588,   1.78936,   1.94484,
     +     .05240,    .03392,  45.64511,   2.05292,   1.60990,
     +    1.34205,   1.90415,   2.05874 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05361,    .03451,  48.23194,   2.16802,   1.72370,
     +    1.45774,   2.02020,   2.17394,
     +     .05481,    .03509,  50.78930,   2.28343,   1.83826,
     +    1.57462,   2.13652,   2.28944,
     +     .05593,    .03563,  53.21513,   2.39480,   1.94897,
     +    1.68752,   2.24874,   2.40091,
     +     .05700,    .03615,  55.46895,   2.50065,   2.05398,
     +    1.79420,   2.35538,   2.50684,
     +     .05806,    .03667,  57.76374,   2.60950,   2.16244,
     +    1.90480,   2.46501,   2.61578,
     +     .05911,    .03718,  59.96282,   2.71660,   2.26875,
     +    2.01260,   2.57285,   2.72296,
     +     .06011,    .03766,  62.08920,   2.82090,   2.37280,
     +    2.11861,   2.67786,   2.82734,
     +     .06106,    .03812,  64.04182,   2.91919,   2.47048,
     +    2.21760,   2.77681,   2.92571 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06201,    .03858,  66.03574,   3.02035,   2.57138,
     +    2.32019,   2.87862,   3.02694,
     +     .06295,    .03904,  67.96502,   3.12026,   2.67091,
     +    2.42115,   2.97917,   3.12694,
     +     .06385,    .03947,  69.79971,   3.21657,   2.76695,
     +    2.51860,   3.07608,   3.22331,
     +     .06471,    .03989,  71.54227,   3.30904,   2.85934,
     +    2.61248,   3.16912,   3.31586,
     +     .06557,    .04030,  73.25313,   3.40196,   2.95191,
     +    2.70621,   3.26260,   3.40885 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03103,    .02343,    .81886,    .35249,    .00000,
     +     .00000,    .19044,    .35686,
     +     .03233,    .02405,   1.53249,    .37326,    .00000,
     +     .00000,    .21267,    .37774,
     +     .03423,    .02497,   2.74733,    .40997,    .00000,
     +     .00000,    .25143,    .41462,
     +     .03561,    .02564,   3.76042,    .44078,    .01790,
     +     .00000,    .28366,    .44555,
     +     .03705,    .02633,   4.89741,    .47700,    .06064,
     +     .00000,    .32132,    .48190,
     +     .03829,    .02693,   5.95067,    .51139,    .09849,
     +     .00000,    .35691,    .51639,
     +     .03947,    .02750,   7.04186,    .54683,    .13770,
     +     .00000,    .39348,    .55193,
     +     .04073,    .02811,   8.28028,    .58711,    .18251,
     +     .00000,    .43492,    .59233 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04181,    .02863,   9.39427,    .62439,    .22177,
     +     .00000,    .47317,    .62969,
     +     .04286,    .02914,  10.51428,    .66222,    .26147,
     +     .00000,    .51193,    .66761,
     +     .04369,    .02954,  11.44526,    .69354,    .29474,
     +     .00000,    .54396,    .69901,
     +     .04544,    .03039,  13.45376,    .76398,    .36746,
     +     .00834,    .61589,    .76960,
     +     .04695,    .03112,  15.20533,    .82826,    .43260,
     +     .10507,    .68141,    .83401,
     +     .04864,    .03194,  17.24334,    .90429,    .50928,
     +     .21333,    .75878,    .91018,
     +     .05039,    .03279,  19.44138,    .98757,    .59271,
     +     .31203,    .84341,    .99361,
     +     .05197,    .03355,  21.49028,   1.06658,    .67155,
     +     .40191,    .92362,   1.07276 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05357,    .03433,  23.60481,   1.14960,    .75432,
     +     .49313,   1.00781,   1.15592,
     +     .05489,    .03497,  25.37773,   1.22070,    .82487,
     +     .56852,   1.07986,   1.22714,
     +     .05649,    .03574,  27.54071,   1.30934,    .91262,
     +     .66081,   1.16962,   1.31592,
     +     .05790,    .03643,  29.47928,   1.39017,    .99288,
     +     .74490,   1.25142,   1.39687,
     +     .05919,    .03705,  31.27358,   1.46622,   1.06855,
     +     .82374,   1.32833,   1.47303,
     +     .06083,    .03785,  33.52554,   1.56433,   1.16572,
     +     .92367,   1.42752,   1.57129,
     +     .06236,    .03859,  35.65273,   1.65888,   1.25964,
     +    1.02028,   1.52305,   1.66597,
     +     .06380,    .03929,  37.66159,   1.74965,   1.35019,
     +    1.11357,   1.61474,   1.75687 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06523,    .03998,  39.62078,   1.84098,   1.44078,
     +    1.20596,   1.70695,   1.84832,
     +     .06663,    .04066,  41.54605,   1.93214,   1.53159,
     +    1.29890,   1.79896,   1.93961,
     +     .06796,    .04130,  43.36118,   2.01974,   1.61896,
     +    1.38829,   1.88735,   2.02732,
     +     .06920,    .04190,  45.03644,   2.10262,   1.70146,
     +    1.47236,   1.97096,   2.11031,
     +     .07045,    .04250,  46.73437,   2.18755,   1.78639,
     +    1.55925,   2.05663,   2.19536,
     +     .07168,    .04310,  48.34994,   2.27074,   1.86924,
     +    1.64352,   2.14051,   2.27865,
     +     .07285,    .04366,  49.90612,   2.35151,   1.95011,
     +    1.72618,   2.22194,   2.35953,
     +     .07395,    .04419,  51.32536,   2.42731,   2.02569,
     +    1.80300,   2.29835,   2.43542 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07506,    .04473,  52.76942,   2.50510,   2.10356,
     +    1.88243,   2.37675,   2.51331,
     +     .07615,    .04526,  54.15844,   2.58165,   2.18008,
     +    1.96029,   2.45390,   2.58996,
     +     .07720,    .04577,  55.47347,   2.65521,   2.25369,
     +    2.03522,   2.52802,   2.66361,
     +     .07819,    .04625,  56.71765,   2.72565,   2.32431,
     +    2.10721,   2.59898,   2.73413,
     +     .07919,    .04673,  57.93145,   2.79616,   2.39481,
     +    2.17881,   2.67002,   2.80473 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03614,    .02579,    .81522,    .33065,    .00000,
     +     .00000,    .17920,    .33560,
     +     .03763,    .02650,   1.49886,    .35039,    .00000,
     +     .00000,    .20031,    .35548,
     +     .03981,    .02755,   2.64707,    .38489,    .00000,
     +     .00000,    .23675,    .39018,
     +     .04139,    .02830,   3.59318,    .41359,    .01676,
     +     .00000,    .26680,    .41903,
     +     .04303,    .02910,   4.64402,    .44706,    .05661,
     +     .00000,    .30164,    .45266,
     +     .04444,    .02978,   5.60926,    .47862,    .09161,
     +     .00000,    .33434,    .48436,
     +     .04579,    .03043,   6.60224,    .51100,    .12764,
     +     .00000,    .36778,    .51686,
     +     .04722,    .03111,   7.72155,    .54762,    .16861,
     +     .00000,    .40550,    .55362 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04846,    .03171,   8.72175,    .58133,    .20428,
     +     .00000,    .44014,    .58744,
     +     .04965,    .03228,   9.72180,    .61541,    .24021,
     +     .00000,    .47510,    .62164,
     +     .05059,    .03274,  10.54943,    .64354,    .27021,
     +     .00000,    .50391,    .64985,
     +     .05258,    .03370,  12.32210,    .70650,    .33545,
     +     .00761,    .56828,    .71300,
     +     .05429,    .03453,  13.85385,    .76361,    .39354,
     +     .09436,    .62658,    .77027,
     +     .05620,    .03545,  15.62333,    .83083,    .46155,
     +     .19104,    .69507,    .83767,
     +     .05818,    .03641,  17.51778,    .90404,    .53513,
     +     .27851,    .76958,    .91107,
     +     .05997,    .03727,  19.27134,    .97315,    .60431,
     +     .35770,    .83982,    .98034 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06177,    .03814,  21.06950,   1.04543,    .67658,
     +     .43765,    .91322,   1.05279,
     +     .06326,    .03886,  22.56817,   1.10706,    .73792,
     +     .50341,    .97576,   1.11457,
     +     .06506,    .03974,  24.38587,   1.18358,    .81389,
     +     .58357,   1.05334,   1.19125,
     +     .06665,    .04050,  26.00589,   1.25306,    .88310,
     +     .65629,   1.12375,   1.26088,
     +     .06810,    .04121,  27.49795,   1.31821,    .94811,
     +     .72423,   1.18973,   1.32617,
     +     .06994,    .04209,  29.35940,   1.40192,   1.03125,
     +     .80997,   1.27446,   1.41005,
     +     .07166,    .04293,  31.10782,   1.48226,   1.11130,
     +     .89254,   1.35575,   1.49054,
     +     .07327,    .04370,  32.75081,   1.55912,   1.18819,
     +     .97199,   1.43348,   1.56756 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07487,    .04448,  34.34341,   1.63613,   1.26481,
     +    1.05034,   1.51134,   1.64472,
     +     .07643,    .04523,  35.90129,   1.71276,   1.34137,
     +    1.12891,   1.58878,   1.72149,
     +     .07791,    .04595,  37.36319,   1.78615,   1.41479,
     +    1.20424,   1.66293,   1.79502,
     +     .07930,    .04662,  38.70544,   1.85536,   1.48388,
     +    1.27484,   1.73284,   1.86436,
     +     .08069,    .04729,  40.06111,   1.92610,   1.55483,
     +    1.34763,   1.80428,   1.93523,
     +     .08206,    .04795,  41.34380,   1.99515,   1.62381,
     +    1.41798,   1.87400,   2.00440,
     +     .08336,    .04858,  42.57575,   2.06204,   1.69099,
     +    1.48683,   1.94153,   2.07142,
     +     .08458,    .04917,  43.69314,   2.12461,   1.75357,
     +    1.55062,   2.00469,   2.13410 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08581,    .04977,  44.82699,   2.18869,   1.81792,
     +    1.61643,   2.06936,   2.19830,
     +     .08703,    .05035,  45.91246,   2.25158,   1.88097,
     +    1.68077,   2.13281,   2.26130,
     +     .08819,    .05091,  46.93651,   2.31186,   1.94149,
     +    1.74254,   2.19364,   2.32169,
     +     .08929,    .05144,  47.90242,   2.36947,   1.99944,
     +    1.80178,   2.25176,   2.37940,
     +     .09039,    .05198,  48.83993,   2.42699,   2.05712,
     +    1.86052,   2.30978,   2.43702 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04074,    .02793,    .82042,    .31491,    .00000,
     +     .00000,    .17092,    .32017,
     +     .04239,    .02872,   1.48036,    .33384,    .00000,
     +     .00000,    .19115,    .33925,
     +     .04480,    .02989,   2.57725,    .36666,    .00000,
     +     .00000,    .22579,    .37230,
     +     .04655,    .03073,   3.47230,    .39376,    .01590,
     +     .00000,    .25417,    .39957,
     +     .04837,    .03161,   4.45770,    .42516,    .05359,
     +     .00000,    .28686,    .43114,
     +     .04992,    .03236,   5.35652,    .45462,    .08646,
     +     .00000,    .31739,    .46075,
     +     .05141,    .03308,   6.27576,    .48472,    .12013,
     +     .00000,    .34849,    .49098,
     +     .05299,    .03385,   7.30607,    .51862,    .15823,
     +     .00000,    .38344,    .52504 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05435,    .03451,   8.22173,    .54971,    .19126,
     +     .00000,    .41540,    .55626,
     +     .05566,    .03514,   9.13302,    .58103,    .22440,
     +     .00000,    .44755,    .58770,
     +     .05669,    .03564,   9.88440,    .60682,    .25199,
     +     .00000,    .47398,    .61359,
     +     .05888,    .03670,  11.48415,    .66431,    .31174,
     +     .00707,    .53281,    .67129,
     +     .06076,    .03762,  12.85572,    .71622,    .36467,
     +     .08650,    .58583,    .72338,
     +     .06286,    .03863,  14.43072,    .77705,    .42636,
     +     .17471,    .64787,    .78440,
     +     .06503,    .03969,  16.10662,    .84300,    .49280,
     +     .25400,    .71504,    .85057,
     +     .06699,    .04064,  17.64877,    .90500,    .55499,
     +     .32543,    .77811,    .91275 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06895,    .04159,  19.22162,    .96958,    .61971,
     +     .39724,    .84376,    .97752,
     +     .07058,    .04238,  20.52595,   1.02446,    .67444,
     +     .45608,    .89949,   1.03256,
     +     .07254,    .04334,  22.10015,   1.09235,    .74199,
     +     .52752,    .96839,   1.10063,
     +     .07427,    .04418,  23.49651,   1.15380,    .80333,
     +     .59212,   1.03072,   1.16225,
     +     .07586,    .04495,  24.77714,   1.21124,    .86077,
     +     .65230,   1.08894,   1.21984,
     +     .07785,    .04591,  26.36691,   1.28479,    .93398,
     +     .72797,   1.16346,   1.29357,
     +     .07972,    .04682,  27.85298,   1.35514,   1.00423,
     +     .80059,   1.23471,   1.36410,
     +     .08147,    .04767,  29.24351,   1.42225,   1.07152,
     +     .87029,   1.30265,   1.43138 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08321,    .04851,  30.58422,   1.48927,   1.13834,
     +     .93876,   1.37046,   1.49856,
     +     .08490,    .04933,  31.89071,   1.55577,   1.20493,
     +    1.00726,   1.43774,   1.56522,
     +     .08651,    .05011,  33.11189,   1.61929,   1.26863,
     +    1.07275,   1.50198,   1.62889,
     +     .08801,    .05084,  34.22799,   1.67901,   1.32839,
     +    1.13396,   1.56237,   1.68876,
     +     .08952,    .05157,  35.35188,   1.73993,   1.38964,
     +    1.19694,   1.62396,   1.74982,
     +     .09099,    .05228,  36.40997,   1.79922,   1.44901,
     +    1.25763,   1.68388,   1.80925,
     +     .09239,    .05296,  37.42374,   1.85655,   1.50673,
     +    1.31693,   1.74182,   1.86671,
     +     .09371,    .05360,  38.33871,   1.91004,   1.56036,
     +    1.37171,   1.79586,   1.92032 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09505,    .05424,  39.26503,   1.96472,   1.61541,
     +    1.42814,   1.85111,   1.97513,
     +     .09635,    .05487,  40.14816,   2.01825,   1.66922,
     +    1.48318,   1.90519,   2.02879,
     +     .09760,    .05547,  40.97885,   2.06948,   1.72077,
     +    1.53592,   1.95693,   2.08013,
     +     .09878,    .05605,  41.76035,   2.11835,   1.77005,
     +    1.58642,   2.00628,   2.12911,
     +     .09997,    .05662,  42.51538,   2.16700,   1.81899,
     +    1.63637,   2.05542,   2.17788 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05893,    .03628,    .86421,    .27074,    .00000,
     +     .00000,    .14803,    .27772,
     +     .06120,    .03739,   1.45459,    .28731,    .00000,
     +     .00000,    .16572,    .29453,
     +     .06450,    .03902,   2.39944,    .31522,    .00000,
     +     .00000,    .19519,    .32277,
     +     .06687,    .04018,   3.14509,    .33774,    .01348,
     +     .00000,    .21881,    .34553,
     +     .06934,    .04140,   3.94238,    .36328,    .04508,
     +     .00000,    .24546,    .37133,
     +     .07144,    .04244,   4.65284,    .38682,    .07201,
     +     .00000,    .26992,    .39508,
     +     .07345,    .04343,   5.36522,    .41055,    .09911,
     +     .00000,    .29451,    .41901,
     +     .07557,    .04447,   6.14863,    .43693,    .12929,
     +     .00000,    .32179,    .44561 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07739,    .04537,   6.83220,    .46079,    .15503,
     +     .00000,    .34641,    .46966,
     +     .07914,    .04623,   7.50205,    .48457,    .18056,
     +     .00000,    .37090,    .49361,
     +     .08052,    .04691,   8.04761,    .50399,    .20161,
     +     .00000,    .39088,    .51317,
     +     .08344,    .04835,   9.18543,    .54671,    .24652,
     +     .00558,    .43475,    .55618,
     +     .08593,    .04957,  10.13511,    .58467,    .28565,
     +     .06536,    .47368,    .59439,
     +     .08870,    .05094,  11.20374,    .62851,    .33059,
     +     .13096,    .51857,    .63851,
     +     .09155,    .05234,  12.31748,    .67534,    .37823,
     +     .18866,    .56646,    .68563,
     +     .09412,    .05360,  13.32205,    .71874,    .42218,
     +     .23983,    .61079,    .72928 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09669,    .05487,  14.32798,    .76337,    .46733,
     +     .29052,    .65634,    .77416,
     +     .09880,    .05591,  15.14782,    .80083,    .50505,
     +     .33151,    .69455,    .81184,
     +     .10135,    .05716,  16.12047,    .84664,    .55106,
     +     .38068,    .74124,    .85789,
     +     .10358,    .05825,  16.96927,    .88763,    .59237,
     +     .42465,    .78300,    .89911,
     +     .10562,    .05925,  17.73653,    .92557,    .63069,
     +     .46520,    .82164,    .93725,
     +     .10818,    .06051,  18.67191,    .97359,    .67896,
     +     .51557,    .87051,    .98552,
     +     .11057,    .06168,  19.53168,   1.01900,    .72477,
     +     .56340,    .91671,   1.03117,
     +     .11281,    .06277,  20.32438,   1.06189,    .76822,
     +     .60886,    .96033,   1.07428 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11501,    .06385,  21.07405,   1.10423,    .81088,
     +     .65300,   1.00338,   1.11683,
     +     .11715,    .06489,  21.79456,   1.14587,    .85301,
     +     .69677,   1.04570,   1.15867,
     +     .11918,    .06588,  22.45834,   1.18527,    .89296,
     +     .73826,   1.08574,   1.19827,
     +     .12106,    .06680,  23.05482,   1.22196,    .93008,
     +     .77666,   1.12302,   1.23514,
     +     .12296,    .06772,  23.64926,   1.25912,    .96787,
     +     .81592,   1.16077,   1.27248,
     +     .12480,    .06861,  24.19827,   1.29492,   1.00413,
     +     .85336,   1.19714,   1.30846,
     +     .12655,    .06946,  24.71991,   1.32933,   1.03918,
     +     .88975,   1.23208,   1.34304,
     +     .12819,    .07026,  25.18163,   1.36112,   1.07143,
     +     .92304,   1.26437,   1.37498 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12984,    .07106,  25.64535,   1.39344,   1.10437,
     +     .95717,   1.29719,   1.40746,
     +     .13146,    .07184,  26.08010,   1.42482,   1.13629,
     +     .99017,   1.32906,   1.43899,
     +     .13300,    .07259,  26.48425,   1.45465,   1.16669,
     +    1.02161,   1.35934,   1.46897,
     +     .13446,    .07329,  26.86069,   1.48293,   1.19558,
     +    1.05155,   1.38807,   1.49739,
     +     .13592,    .07400,  27.21735,   1.51086,   1.22404,
     +    1.08090,   1.41642,   1.52545 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .08507,    .04875,    .98693,    .23448,    .00000,
     +     .00000,    .12924,    .24390,
     +     .08814,    .05031,   1.50764,    .24891,    .00000,
     +     .00000,    .14462,    .25867,
     +     .09259,    .05257,   2.30162,    .27232,    .00000,
     +     .00000,    .16938,    .28256,
     +     .09578,    .05418,   2.90415,    .29073,    .01137,
     +     .00000,    .18873,    .30131,
     +     .09907,    .05584,   3.52784,    .31109,    .03770,
     +     .00000,    .21005,    .32203,
     +     .10187,    .05726,   4.06909,    .32947,    .05950,
     +     .00000,    .22922,    .34071,
     +     .10453,    .05860,   4.59943,    .34771,    .08096,
     +     .00000,    .24822,    .35924,
     +     .10732,    .06001,   5.16998,    .36770,    .10443,
     +     .00000,    .26898,    .37952 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10972,    .06122,   5.65754,    .38548,    .12405,
     +     .00000,    .28742,    .39755,
     +     .11201,    .06237,   6.12678,    .40297,    .14323,
     +     .00000,    .30553,    .41529,
     +     .11382,    .06328,   6.50351,    .41712,    .15887,
     +     .00000,    .32018,    .42963,
     +     .11762,    .06518,   7.26968,    .44777,    .19168,
     +     .00432,    .35183,    .46067,
     +     .12084,    .06680,   7.88815,    .47450,    .21971,
     +     .04819,    .37941,    .48774,
     +     .12441,    .06859,   8.56742,    .50487,    .25133,
     +     .09567,    .41070,    .51847,
     +     .12807,    .07041,   9.25813,    .53672,    .28425,
     +     .13640,    .44350,    .55071,
     +     .13134,    .07204,   9.86627,    .56575,    .31413,
     +     .17185,    .47336,    .58007 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13461,    .07367,  10.46169,    .59516,    .34434,
     +     .20639,    .50358,    .60981,
     +     .13728,    .07499,  10.93669,    .61949,    .36924,
     +     .23390,    .52859,    .63442,
     +     .14048,    .07658,  11.48797,    .64884,    .39919,
     +     .26643,    .55872,    .66408,
     +     .14328,    .07796,  11.95926,    .67475,    .42574,
     +     .29516,    .58533,    .69028,
     +     .14582,    .07922,  12.37753,    .69846,    .45010,
     +     .32135,    .60965,    .71423,
     +     .14900,    .08078,  12.87523,    .72803,    .48035,
     +     .35343,    .64000,    .74412,
     +     .15195,    .08223,  13.32259,    .75563,    .50870,
     +     .38351,    .66831,    .77201,
     +     .15469,    .08357,  13.72703,    .78140,    .53529,
     +     .41180,    .69475,    .79805 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15739,    .08489,  14.09904,    .80648,    .56104,
     +     .43888,    .72046,    .82339,
     +     .16000,    .08616,  14.44990,    .83086,    .58621,
     +     .46549,    .74547,    .84802,
     +     .16246,    .08736,  14.76653,    .85368,    .60983,
     +     .49044,    .76888,    .87108,
     +     .16473,    .08846,  15.04382,    .87468,    .63152,
     +     .51328,    .79042,    .89229,
     +     .16702,    .08957,  15.31627,    .89578,    .65344,
     +     .53645,    .81206,    .91361,
     +     .16922,    .09063,  15.56026,    .91583,    .67421,
     +     .55829,    .83263,    .93387,
     +     .17131,    .09165,  15.78960,    .93498,    .69416,
     +     .57939,    .85228,    .95321,
     +     .17326,    .09258,  15.98583,    .95244,    .71230,
     +     .59846,    .87020,    .97085 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17522,    .09352,  16.18072,    .97008,    .73071,
     +     .61791,    .88830,    .98867,
     +     .17713,    .09444,  16.35798,    .98701,    .74838,
     +     .63652,    .90568,   1.00578,
     +     .17894,    .09531,  16.51950,   1.00297,    .76507,
     +     .65413,    .92207,   1.02191,
     +     .18065,    .09613,  16.66745,   1.01800,    .78084,
     +     .67079,    .93751,   1.03710,
     +     .18235,    .09694,  16.80220,   1.03268,    .79620,
     +     .68696,    .95259,   1.05193 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .10541,    .05896,   1.11059,    .21672,    .00000,
     +     .00000,    .12020,    .22827,
     +     .10906,    .06083,   1.58141,    .22988,    .00000,
     +     .00000,    .13425,    .24185,
     +     .11431,    .06354,   2.28314,    .25076,    .00000,
     +     .00000,    .15638,    .26331,
     +     .11806,    .06546,   2.80221,    .26688,    .01024,
     +     .00000,    .17338,    .27985,
     +     .12193,    .06744,   3.32794,    .28442,    .03371,
     +     .00000,    .19183,    .29782,
     +     .12520,    .06911,   3.77654,    .30005,    .05278,
     +     .00000,    .20820,    .31380,
     +     .12830,    .07070,   4.20946,    .31539,    .07128,
     +     .00000,    .22425,    .32948,
     +     .13155,    .07235,   4.66851,    .33203,    .09125,
     +     .00000,    .24162,    .34646 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13433,    .07376,   5.05541,    .34667,    .10774,
     +     .00000,    .25689,    .36141,
     +     .13699,    .07511,   5.42335,    .36096,    .12370,
     +     .00000,    .27177,    .37598,
     +     .13907,    .07616,   5.71594,    .37244,    .13661,
     +     .00000,    .28372,    .38768,
     +     .14345,    .07837,   6.30057,    .39704,    .16338,
     +     .00367,    .30928,    .41275,
     +     .14715,    .08023,   6.76095,    .41823,    .18596,
     +     .03967,    .33128,    .43432,
     +     .15122,    .08228,   7.25831,    .44204,    .21113,
     +     .07829,    .35597,    .45855,
     +     .15539,    .08436,   7.75545,    .46671,    .23703,
     +     .11087,    .38154,    .48365,
     +     .15910,    .08621,   8.18569,    .48894,    .26026,
     +     .13889,    .40457,    .50626 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16279,    .08805,   8.60024,    .51123,    .28353,
     +     .16589,    .42765,    .52892,
     +     .16580,    .08954,   8.92564,    .52949,    .30252,
     +     .18718,    .44656,    .54748,
     +     .16939,    .09131,   9.29712,    .55130,    .32516,
     +     .21213,    .46913,    .56964,
     +     .17253,    .09285,   9.60980,    .57038,    .34506,
     +     .23398,    .48889,    .58904,
     +     .17536,    .09424,   9.88343,    .58770,    .36318,
     +     .25374,    .50681,    .60663,
     +     .17889,    .09596,  10.20252,    .60909,    .38547,
     +     .27773,    .52895,    .62837,
     +     .18215,    .09756,  10.48436,    .62888,    .40619,
     +     .30005,    .54943,    .64846,
     +     .18518,    .09903,  10.73530,    .64720,    .42547,
     +     .32088,    .56840,    .66707 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18813,    .10046,  10.96035,    .66484,    .44397,
     +     .34064,    .58666,    .68499,
     +     .19100,    .10184,  11.16913,    .68186,    .46193,
     +     .35992,    .60430,    .70228,
     +     .19367,    .10312,  11.35402,    .69768,    .47866,
     +     .37789,    .62069,    .71834,
     +     .19615,    .10431,  11.51186,    .71209,    .49391,
     +     .39421,    .63564,    .73298,
     +     .19862,    .10549,  11.66501,    .72649,    .50923,
     +     .41069,    .65056,    .74760,
     +     .20100,    .10663,  11.79786,    .74004,    .52362,
     +     .42609,    .66463,    .76137,
     +     .20326,    .10770,  11.92162,    .75291,    .53739,
     +     .44091,    .67799,    .77445,
     +     .20535,    .10869,  12.02327,    .76453,    .54980,
     +     .45420,    .69007,    .78625 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20745,    .10968,  12.12315,    .77622,    .56235,
     +     .46770,    .70221,    .79813,
     +     .20949,    .11064,  12.21075,    .78735,    .57431,
     +     .48054,    .71378,    .80943,
     +     .21141,    .11154,  12.28870,    .79778,    .58554,
     +     .49262,    .72464,    .82003,
     +     .21323,    .11240,  12.35868,    .80755,    .59610,
     +     .50400,    .73480,    .82996,
     +     .21503,    .11324,  12.41891,    .81699,    .60631,
     +     .51496,    .74465,    .83955 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12276,    .06805,   1.22246,    .20570,    .00000,
     +     .00000,    .11465,    .21920,
     +     .12685,    .07017,   1.65465,    .21792,    .00000,
     +     .00000,    .12773,    .23189,
     +     .13274,    .07322,   2.28680,    .23697,    .00000,
     +     .00000,    .14799,    .25161,
     +     .13693,    .07539,   2.74527,    .25148,    .00944,
     +     .00000,    .16336,    .26658,
     +     .14124,    .07760,   3.20182,    .26707,    .03094,
     +     .00000,    .17983,    .28265,
     +     .14487,    .07946,   3.58647,    .28081,    .04815,
     +     .00000,    .19430,    .29679,
     +     .14831,    .08122,   3.95336,    .29419,    .06465,
     +     .00000,    .20837,    .31055,
     +     .15191,    .08305,   4.33806,    .30859,    .08228,
     +     .00000,    .22349,    .32533 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15498,    .08461,   4.65887,    .32115,    .09670,
     +     .00000,    .23666,    .33822,
     +     .15790,    .08609,   4.96109,    .33333,    .11054,
     +     .00000,    .24941,    .35071,
     +     .16019,    .08725,   5.19961,    .34306,    .12168,
     +     .00000,    .25961,    .36069,
     +     .16499,    .08967,   5.66928,    .36375,    .14458,
     +     .00323,    .28124,    .38188,
     +     .16903,    .09170,   6.03135,    .38139,    .16368,
     +     .03419,    .29968,    .39994,
     +     .17347,    .09391,   6.41721,    .40103,    .18480,
     +     .06717,    .32020,    .42003,
     +     .17799,    .09616,   6.79756,    .42120,    .20632,
     +     .09465,    .34125,    .44065,
     +     .18201,    .09815,   7.12201,    .43920,    .22545,
     +     .11806,    .36005,    .45906 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18599,    .10012,   7.43036,    .45710,    .24447,
     +     .14044,    .37874,    .47736,
     +     .18923,    .10170,   7.66904,    .47165,    .25988,
     +     .15795,    .39394,    .49223,
     +     .19307,    .10358,   7.93756,    .48890,    .27812,
     +     .17832,    .41194,    .50984,
     +     .19642,    .10521,   8.16043,    .50388,    .29404,
     +     .19604,    .42759,    .52515,
     +     .19944,    .10668,   8.35295,    .51739,    .30845,
     +     .21199,    .44170,    .53894,
     +     .20318,    .10849,   8.57319,    .53393,    .32606,
     +     .23120,    .45900,    .55583,
     +     .20664,    .11015,   8.76438,    .54912,    .34231,
     +     .24896,    .47488,    .57133,
     +     .20984,    .11168,   8.93202,    .56308,    .35735,
     +     .26545,    .48949,    .58560 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21295,    .11316,   9.07837,    .57641,    .37166,
     +     .28097,    .50345,    .59920,
     +     .21595,    .11458,   9.21187,    .58920,    .38549,
     +     .29605,    .51685,    .61225,
     +     .21875,    .11591,   9.32769,    .60099,    .39830,
     +     .31003,    .52922,    .62430,
     +     .22133,    .11712,   9.42362,    .61166,    .40989,
     +     .32264,    .54042,    .63519,
     +     .22390,    .11832,   9.51542,    .62226,    .42150,
     +     .33534,    .55156,    .64601,
     +     .22637,    .11947,   9.59169,    .63215,    .43232,
     +     .34712,    .56196,    .65611,
     +     .22871,    .12056,   9.66200,    .64151,    .44265,
     +     .35843,    .57182,    .66567,
     +     .23086,    .12155,   9.71651,    .64988,    .45188,
     +     .36850,    .58065,    .67422 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23302,    .12255,   9.76932,    .65827,    .46119,
     +     .37870,    .58949,    .68279,
     +     .23511,    .12351,   9.81298,    .66619,    .47001,
     +     .38835,    .59787,    .69088,
     +     .23708,    .12442,   9.85029,    .67358,    .47825,
     +     .39739,    .60568,    .69843,
     +     .23894,    .12526,   9.88263,    .68046,    .48598,
     +     .40589,    .61296,    .70546,
     +     .24077,    .12610,   9.90732,    .68706,    .49339,
     +     .41402,    .61996,    .71220 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13822,    .07640,   1.32095,    .19793,    .00000,
     +     .00000,    .11082,    .21330,
     +     .14269,    .07873,   1.72019,    .20936,    .00000,
     +     .00000,    .12310,    .22525,
     +     .14910,    .08205,   2.29535,    .22695,    .00000,
     +     .00000,    .14189,    .24356,
     +     .15365,    .08440,   2.70570,    .24019,    .00882,
     +     .00000,    .15598,    .25731,
     +     .15831,    .08680,   3.10852,    .25428,    .02877,
     +     .00000,    .17093,    .27190,
     +     .16223,    .08880,   3.44443,    .26658,    .04455,
     +     .00000,    .18396,    .28463,
     +     .16594,    .09069,   3.76173,    .27847,    .05954,
     +     .00000,    .19655,    .29693,
     +     .16982,    .09266,   4.09138,    .29118,    .07543,
     +     .00000,    .20998,    .31005 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17311,    .09433,   4.36381,    .30220,    .08832,
     +     .00000,    .22161,    .32143,
     +     .17624,    .09590,   4.61840,    .31282,    .10062,
     +     .00000,    .23280,    .33237,
     +     .17869,    .09714,   4.81808,    .32128,    .11046,
     +     .00000,    .24172,    .34108,
     +     .18381,    .09970,   5.20623,    .33911,    .13056,
     +     .00292,    .26051,    .35945,
     +     .18811,    .10184,   5.49960,    .35420,    .14718,
     +     .03023,    .27640,    .37497,
     +     .19282,    .10418,   5.80842,    .37088,    .16542,
     +     .05917,    .29395,    .39211,
     +     .19761,    .10653,   6.10920,    .38785,    .18387,
     +     .08305,    .31182,    .40956,
     +     .20185,    .10861,   6.36241,    .40289,    .20015,
     +     .10324,    .32766,    .42501 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20603,    .11065,   6.59988,    .41773,    .21623,
     +     .12241,    .34330,    .44025,
     +     .20942,    .11229,   6.78132,    .42973,    .22918,
     +     .13731,    .35594,    .45257,
     +     .21345,    .11423,   6.98269,    .44383,    .24441,
     +     .15455,    .37082,    .46705,
     +     .21694,    .11591,   7.14750,    .45601,    .25764,
     +     .16947,    .38367,    .47955,
     +     .22008,    .11741,   7.28793,    .46693,    .26956,
     +     .18282,    .39520,    .49076,
     +     .22397,    .11925,   7.44545,    .48021,    .28402,
     +     .19883,    .40924,    .50438,
     +     .22754,    .12094,   7.57970,    .49231,    .29730,
     +     .21355,    .42205,    .51680,
     +     .23083,    .12249,   7.69547,    .50337,    .30953,
     +     .22715,    .43377,    .52815 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23403,    .12398,   7.79325,    .51384,    .32110,
     +     .23987,    .44487,    .53889,
     +     .23711,    .12541,   7.88073,    .52383,    .33221,
     +     .25219,    .45549,    .54914,
     +     .23997,    .12673,   7.95479,    .53299,    .34246,
     +     .26355,    .46524,    .55854,
     +     .24260,    .12794,   8.01365,    .54121,    .35169,
     +     .27375,    .47400,    .56697,
     +     .24521,    .12913,   8.06892,    .54935,    .36090,
     +     .28399,    .48268,    .57532,
     +     .24771,    .13027,   8.11184,    .55687,    .36943,
     +     .29344,    .49072,    .58304,
     +     .25007,    .13134,   8.15083,    .56397,    .37754,
     +     .30248,    .49832,    .59033,
     +     .25225,    .13232,   8.17803,    .57026,    .38475,
     +     .31050,    .50508,    .59679 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25442,    .13329,   8.20373,    .57655,    .39200,
     +     .31859,    .51183,    .60324,
     +     .25652,    .13423,   8.22241,    .58242,    .39883,
     +     .32621,    .51816,    .60927,
     +     .25850,    .13511,   8.23685,    .58787,    .40520,
     +     .33333,    .52404,    .61487,
     +     .26036,    .13593,   8.24809,    .59293,    .41114,
     +     .34000,    .52951,    .62006,
     +     .26218,    .13673,   8.25302,    .59773,    .41680,
     +     .34635,    .53472,    .62499 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .16551,    .09164,   1.48155,    .18729,    .00000,
     +     .00000,    .10571,    .20620,
     +     .17057,    .09426,   1.82492,    .19742,    .00000,
     +     .00000,    .11670,    .21690,
     +     .17780,    .09798,   2.30802,    .21266,    .00000,
     +     .00000,    .13316,    .23294,
     +     .18291,    .10059,   2.64366,    .22392,    .00783,
     +     .00000,    .14529,    .24476,
     +     .18812,    .10324,   2.96526,    .23571,    .02538,
     +     .00000,    .15796,    .25710,
     +     .19249,    .10544,   3.22902,    .24585,    .03902,
     +     .00000,    .16885,    .26770,
     +     .19660,    .10750,   3.47428,    .25555,    .05178,
     +     .00000,    .17926,    .27783,
     +     .20088,    .10964,   3.72522,    .26581,    .06514,
     +     .00000,    .19026,    .28853 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20450,    .11144,   3.92956,    .27460,    .07583,
     +     .00000,    .19967,    .29768,
     +     .20793,    .11313,   4.11793,    .28299,    .08593,
     +     .00000,    .20866,    .30641,
     +     .21062,    .11446,   4.26409,    .28962,    .09396,
     +     .00000,    .21577,    .31331,
     +     .21619,    .11719,   4.54147,    .30346,    .11016,
     +     .00246,    .23058,    .32769,
     +     .22084,    .11945,   4.74326,    .31500,    .12338,
     +     .02469,    .24295,    .33967,
     +     .22592,    .12190,   4.95106,    .32758,    .13772,
     +     .04806,    .25644,    .35274,
     +     .23104,    .12436,   5.14892,    .34022,    .15203,
     +     .06705,    .27001,    .36584,
     +     .23556,    .12650,   5.31141,    .35127,    .16452,
     +     .08291,    .28189,    .37730 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23999,    .12859,   5.46006,    .36205,    .17673,
     +     .09781,    .29349,    .38847,
     +     .24357,    .13026,   5.57056,    .37065,    .18646,
     +     .10928,    .30276,    .39738,
     +     .24778,    .13222,   5.68936,    .38064,    .19780,
     +     .12243,    .31356,    .40772,
     +     .25142,    .13390,   5.78375,    .38918,    .20756,
     +     .13372,    .32279,    .41656,
     +     .25469,    .13540,   5.86192,    .39676,    .21628,
     +     .14374,    .33100,    .42441,
     +     .25870,    .13722,   5.94513,    .40583,    .22676,
     +     .15564,    .34087,    .43380,
     +     .26237,    .13888,   6.01275,    .41400,    .23629,
     +     .16650,    .34977,    .44226,
     +     .26573,    .14039,   6.06850,    .42140,    .24500,
     +     .17645,    .35785,    .44991 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26897,    .14182,   6.11099,    .42829,    .25314,
     +     .18568,    .36540,    .45703,
     +     .27207,    .14319,   6.14659,    .43478,    .26091,
     +     .19455,    .37255,    .46375,
     +     .27495,    .14445,   6.17401,    .44067,    .26802,
     +     .20267,    .37904,    .46985,
     +     .27757,    .14559,   6.19204,    .44587,    .27435,
     +     .20990,    .38480,    .47523,
     +     .28017,    .14671,   6.20747,    .45098,    .28063,
     +     .21713,    .39047,    .48051,
     +     .28264,    .14776,   6.21460,    .45561,    .28639,
     +     .22373,    .39565,    .48531,
     +     .28497,    .14875,   6.22021,    .45996,    .29184,
     +     .23002,    .40051,    .48981,
     +     .28709,    .14964,   6.21885,    .46373,    .29663,
     +     .23555,    .40476,    .49371 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28922,    .15053,   6.21640,    .46747,    .30142,
     +     .24111,    .40899,    .49759,
     +     .29125,    .15137,   6.20942,    .47091,    .30589,
     +     .24630,    .41290,    .50115,
     +     .29315,    .15215,   6.20054,    .47407,    .31003,
     +     .25112,    .41650,    .50442,
     +     .29493,    .15288,   6.19061,    .47696,    .31387,
     +     .25562,    .41982,    .50742,
     +     .29668,    .15359,   6.17640,    .47964,    .31749,
     +     .25986,    .42291,    .51019 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20090,    .11207,   1.64592,    .17699,    .00000,
     +     .00000,    .10096,    .20081,
     +     .20662,    .11495,   1.92154,    .18550,    .00000,
     +     .00000,    .11038,    .20993,
     +     .21472,    .11900,   2.29915,    .19800,    .00000,
     +     .00000,    .12418,    .22326,
     +     .22041,    .12181,   2.55334,    .20704,    .00671,
     +     .00000,    .13415,    .23288,
     +     .22616,    .12463,   2.78944,    .21633,    .02159,
     +     .00000,    .14438,    .24273,
     +     .23096,    .12697,   2.97939,    .22419,    .03293,
     +     .00000,    .15304,    .25106,
     +     .23546,    .12915,   3.15272,    .23161,    .04339,
     +     .00000,    .16121,    .25890,
     +     .24011,    .13138,   3.32683,    .23936,    .05417,
     +     .00000,    .16974,    .26708 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24403,    .13325,   3.46597,    .24591,    .06268,
     +     .00000,    .17696,    .27397,
     +     .24772,    .13500,   3.59205,    .25208,    .07065,
     +     .00000,    .18377,    .28048,
     +     .25061,    .13636,   3.68861,    .25693,    .07692,
     +     .00000,    .18912,    .28558,
     +     .25655,    .13913,   3.86531,    .26689,    .08941,
     +     .00200,    .20013,    .29604,
     +     .26148,    .14141,   3.98604,    .27505,    .09946,
     +     .01937,    .20917,    .30461,
     +     .26681,    .14385,   4.10636,    .28381,    .11021,
     +     .03749,    .21890,    .31380,
     +     .27215,    .14626,   4.21703,    .29246,    .12079,
     +     .05196,    .22854,    .32286,
     +     .27682,    .14835,   4.30417,    .29988,    .12990,
     +     .06390,    .23685,    .33064 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28137,    .15036,   4.38039,    .30701,    .13870,
     +     .07498,    .24485,    .33809,
     +     .28502,    .15195,   4.43407,    .31259,    .14563,
     +     .08342,    .25115,    .34394,
     +     .28928,    .15379,   4.48814,    .31898,    .15362,
     +     .09300,    .25839,    .35062,
     +     .29293,    .15535,   4.52818,    .32435,    .16043,
     +     .10114,    .26450,    .35623,
     +     .29618,    .15673,   4.55888,    .32905,    .16645,
     +     .10831,    .26987,    .36114,
     +     .30014,    .15838,   4.58681,    .33456,    .17360,
     +     .11673,    .27622,    .36688,
     +     .30374,    .15986,   4.60571,    .33943,    .18003,
     +     .12433,    .28186,    .37196,
     +     .30701,    .16120,   4.61822,    .34376,    .18585,
     +     .13125,    .28691,    .37649 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31013,    .16245,   4.62202,    .34769,    .19122,
     +     .13759,    .29154,    .38057,
     +     .31309,    .16362,   4.62184,    .35133,    .19629,
     +     .14363,    .29585,    .38436,
     +     .31582,    .16469,   4.61762,    .35455,    .20089,
     +     .14912,    .29971,    .38772,
     +     .31828,    .16564,   4.60876,    .35733,    .20493,
     +     .15397,    .30308,    .39061,
     +     .32071,    .16657,   4.59834,    .36002,    .20891,
     +     .15878,    .30636,    .39341,
     +     .32299,    .16742,   4.58279,    .36236,    .21250,
     +     .16312,    .30928,    .39585,
     +     .32514,    .16821,   4.56746,    .36454,    .21588,
     +     .16724,    .31200,    .39811,
     +     .32706,    .16891,   4.54887,    .36635,    .21881,
     +     .17081,    .31431,    .39999 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32897,    .16961,   4.52967,    .36813,    .22173,
     +     .17440,    .31659,    .40183,
     +     .33079,    .17026,   4.50794,    .36969,    .22440,
     +     .17770,    .31863,    .40345,
     +     .33248,    .17085,   4.48599,    .37108,    .22685,
     +     .18076,    .32048,    .40488,
     +     .33405,    .17140,   4.46438,    .37233,    .22911,
     +     .18358,    .32217,    .40618,
     +     .33557,    .17191,   4.44004,    .37341,    .23120,
     +     .18622,    .32368,    .40729 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25174,    .14184,   1.76917,    .16539,    .00000,
     +     .00000,    .09585,    .19654,
     +     .25810,    .14484,   1.96006,    .17173,    .00000,
     +     .00000,    .10319,    .20343,
     +     .26703,    .14899,   2.21311,    .18076,    .00000,
     +     .00000,    .11369,    .21321,
     +     .27324,    .15183,   2.37625,    .18713,    .00533,
     +     .00000,    .12109,    .22009,
     +     .27945,    .15464,   2.52033,    .19351,    .01703,
     +     .00000,    .12853,    .22695,
     +     .28459,    .15694,   2.63345,    .19880,    .02577,
     +     .00000,    .13471,    .23263,
     +     .28937,    .15904,   2.73406,    .20371,    .03369,
     +     .00000,    .14046,    .23788,
     +     .29428,    .16118,   2.83250,    .20875,    .04174,
     +     .00000,    .14637,    .24326 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29837,    .16295,   2.90889,    .21293,    .04799,
     +     .00000,    .15130,    .24772,
     +     .30219,    .16458,   2.97624,    .21682,    .05378,
     +     .00000,    .15589,    .25185,
     +     .30516,    .16584,   3.02678,    .21983,    .05829,
     +     .00000,    .15946,    .25505,
     +     .31122,    .16838,   3.11265,    .22590,    .06715,
     +     .00153,    .16669,    .26148,
     +     .31619,    .17041,   3.16304,    .23073,    .07414,
     +     .01404,    .17249,    .26659,
     +     .32149,    .17254,   3.20940,    .23580,    .08151,
     +     .02699,    .17862,    .27194,
     +     .32673,    .17461,   3.24833,    .24067,    .08865,
     +     .03716,    .18457,    .27705,
     +     .33125,    .17636,   3.27515,    .24472,    .09471,
     +     .04542,    .18958,    .28130 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33560,    .17800,   3.29487,    .24849,    .10046,
     +     .05299,    .19431,    .28526,
     +     .33903,    .17927,   3.30535,    .25137,    .10494,
     +     .05868,    .19796,    .28826,
     +     .34300,    .18071,   3.31136,    .25456,    .11002,
     +     .06506,    .20206,    .29158,
     +     .34634,    .18190,   3.31202,    .25715,    .11429,
     +     .07042,    .20545,    .29427,
     +     .34929,    .18292,   3.30911,    .25936,    .11803,
     +     .07510,    .20837,    .29655,
     +     .35282,    .18410,   3.29899,    .26181,    .12239,
     +     .08052,    .21172,    .29908,
     +     .35598,    .18513,   3.28546,    .26389,    .12626,
     +     .08536,    .21463,    .30121,
     +     .35880,    .18604,   3.27011,    .26568,    .12972,
     +     .08971,    .21716,    .30302 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36143,    .18684,   3.24980,    .26717,    .13284,
     +     .09364,    .21940,    .30453,
     +     .36391,    .18757,   3.22801,    .26849,    .13576,
     +     .09736,    .22143,    .30585,
     +     .36616,    .18821,   3.20538,    .26957,    .13836,
     +     .10069,    .22319,    .30694,
     +     .36814,    .18875,   3.18146,    .27042,    .14061,
     +     .10360,    .22465,    .30776,
     +     .37007,    .18927,   3.15689,    .27120,    .14280,
     +     .10646,    .22604,    .30852,
     +     .37183,    .18970,   3.13002,    .27177,    .14473,
     +     .10900,    .22720,    .30904,
     +     .37347,    .19010,   3.10453,    .27228,    .14654,
     +     .11141,    .22827,    .30951,
     +     .37490,    .19042,   3.07823,    .27258,    .14806,
     +     .11345,    .22909,    .30977 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37632,    .19073,   3.05176,    .27286,    .14956,
     +     .11549,    .22988,    .31000,
     +     .37762,    .19099,   3.02432,    .27301,    .15091,
     +     .11735,    .23054,    .31009,
     +     .37882,    .19121,   2.99773,    .27309,    .15212,
     +     .11904,    .23109,    .31011,
     +     .37992,    .19140,   2.97229,    .27312,    .15322,
     +     .12059,    .23157,    .31008,
     +     .38094,    .19156,   2.94531,    .27304,    .15421,
     +     .12202,    .23193,    .30993 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29666,    .16771,   1.76672,    .15613,    .00000,
     +     .00000,    .09188,    .19357,
     +     .30331,    .17058,   1.89781,    .16072,    .00000,
     +     .00000,    .09759,    .19859,
     +     .31254,    .17446,   2.06699,    .16714,    .00000,
     +     .00000,    .10562,    .20556,
     +     .31887,    .17709,   2.17189,    .17158,    .00433,
     +     .00000,    .11119,    .21036,
     +     .32519,    .17963,   2.25957,    .17594,    .01375,
     +     .00000,    .11670,    .21506,
     +     .33033,    .18168,   2.32696,    .17950,    .02072,
     +     .00000,    .12122,    .21885,
     +     .33508,    .18353,   2.38549,    .18275,    .02697,
     +     .00000,    .12538,    .22231,
     +     .33992,    .18539,   2.44128,    .18603,    .03325,
     +     .00000,    .12961,    .22580 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34393,    .18690,   2.48312,    .18870,    .03809,
     +     .00000,    .13309,    .22863,
     +     .34764,    .18827,   2.51883,    .19115,    .04253,
     +     .00000,    .13630,    .23121,
     +     .35051,    .18931,   2.54500,    .19303,    .04598,
     +     .00000,    .13877,    .23318,
     +     .35628,    .19137,   2.58432,    .19674,    .05267,
     +     .00122,    .14371,    .23705,
     +     .36094,    .19298,   2.60029,    .19961,    .05789,
     +     .01077,    .14761,    .24002,
     +     .36587,    .19461,   2.61150,    .20253,    .06334,
     +     .02064,    .15167,    .24303,
     +     .37065,    .19614,   2.61741,    .20523,    .06855,
     +     .02829,    .15551,    .24578,
     +     .37470,    .19739,   2.61740,    .20740,    .07292,
     +     .03443,    .15868,    .24796 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37854,    .19853,   2.61273,    .20934,    .07704,
     +     .04002,    .16161,    .24989,
     +     .38153,    .19937,   2.60509,    .21074,    .08020,
     +     .04418,    .16382,    .25127,
     +     .38491,    .20026,   2.59165,    .21221,    .08375,
     +     .04880,    .16624,    .25269,
     +     .38773,    .20097,   2.57696,    .21333,    .08671,
     +     .05266,    .16820,    .25375,
     +     .39016,    .20156,   2.56141,    .21424,    .08927,
     +     .05600,    .16985,    .25459,
     +     .39300,    .20217,   2.53771,    .21513,    .09222,
     +     .05982,    .17166,    .25537,
     +     .39549,    .20266,   2.51313,    .21580,    .09480,
     +     .06321,    .17317,    .25592,
     +     .39769,    .20305,   2.48868,    .21631,    .09709,
     +     .06624,    .17444,    .25631 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39964,    .20335,   2.46131,    .21661,    .09911,
     +     .06893,    .17549,    .25646,
     +     .40144,    .20359,   2.43359,    .21681,    .10099,
     +     .07146,    .17641,    .25650,
     +     .40304,    .20376,   2.40630,    .21687,    .10264,
     +     .07372,    .17715,    .25641,
     +     .40440,    .20384,   2.37912,    .21680,    .10404,
     +     .07565,    .17770,    .25620,
     +     .40571,    .20391,   2.35174,    .21668,    .10539,
     +     .07755,    .17820,    .25594,
     +     .40683,    .20390,   2.32328,    .21643,    .10655,
     +     .07922,    .17854,    .25552,
     +     .40787,    .20388,   2.29652,    .21617,    .10763,
     +     .08078,    .17884,    .25511,
     +     .40871,    .20379,   2.26997,    .21581,    .10851,
     +     .08209,    .17899,    .25459 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40954,    .20370,   2.24346,    .21542,    .10937,
     +     .08339,    .17911,    .25404,
     +     .41025,    .20356,   2.21663,    .21496,    .11012,
     +     .08456,    .17914,    .25340,
     +     .41086,    .20341,   2.19097,    .21447,    .11079,
     +     .08561,    .17912,    .25275,
     +     .41141,    .20325,   2.16666,    .21398,    .11138,
     +     .08657,    .17907,    .25211,
     +     .41188,    .20304,   2.14144,    .21340,    .11188,
     +     .08743,    .17893,    .25137 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .37582,    .21061,   1.56911,    .13939,    .00000,
     +     .00000,    .08458,    .18634,
     +     .38226,    .21272,   1.63066,    .14151,    .00000,
     +     .00000,    .08796,    .18852,
     +     .39098,    .21545,   1.70711,    .14438,    .00000,
     +     .00000,    .09260,    .19141,
     +     .39686,    .21719,   1.75092,    .14628,    .00301,
     +     .00000,    .09577,    .19329,
     +     .40253,    .21880,   1.78243,    .14809,    .00951,
     +     .00000,    .09883,    .19503,
     +     .40707,    .22002,   1.80562,    .14951,    .01426,
     +     .00000,    .10129,    .19635,
     +     .41118,    .22106,   1.82456,    .15075,    .01848,
     +     .00000,    .10352,    .19748,
     +     .41528,    .22205,   1.84125,    .15196,    .02267,
     +     .00000,    .10574,    .19855 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .41858,    .22279,   1.85227,    .15289,    .02586,
     +     .00000,    .10752,    .19935,
     +     .42157,    .22341,   1.86038,    .15371,    .02877,
     +     .00000,    .10914,    .20001,
     +     .42385,    .22387,   1.86567,    .15431,    .03100,
     +     .00000,    .11037,    .20048,
     +     .42830,    .22464,   1.86692,    .15541,    .03530,
     +     .00085,    .11277,    .20129,
     +     .43175,    .22513,   1.85691,    .15614,    .03860,
     +     .00704,    .11457,    .20175,
     +     .43523,    .22551,   1.84265,    .15677,    .04199,
     +     .01341,    .11636,    .20205,
     +     .43845,    .22575,   1.82547,    .15722,    .04518,
     +     .01828,    .11798,    .20212,
     +     .44103,    .22582,   1.80746,    .15746,    .04781,
     +     .02213,    .11924,    .20200 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44335,    .22575,   1.78724,    .15754,    .05025,
     +     .02559,    .12033,    .20172,
     +     .44503,    .22561,   1.76877,    .15749,    .05209,
     +     .02813,    .12108,    .20136,
     +     .44679,    .22531,   1.74446,    .15729,    .05412,
     +     .03092,    .12183,    .20076,
     +     .44815,    .22497,   1.72179,    .15702,    .05579,
     +     .03322,    .12237,    .20012,
     +     .44924,    .22459,   1.70017,    .15670,    .05720,
     +     .03519,    .12278,    .19946,
     +     .45032,    .22400,   1.67095,    .15616,    .05880,
     +     .03741,    .12312,    .19847,
     +     .45114,    .22337,   1.64266,    .15554,    .06017,
     +     .03934,    .12332,    .19743,
     +     .45177,    .22273,   1.61580,    .15490,    .06135,
     +     .04105,    .12342,    .19639 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45214,    .22198,   1.58763,    .15415,    .06237,
     +     .04253,    .12339,    .19523,
     +     .45238,    .22121,   1.55997,    .15337,    .06328,
     +     .04391,    .12329,    .19404,
     +     .45249,    .22044,   1.53358,    .15256,    .06407,
     +     .04513,    .12312,    .19286,
     +     .45244,    .21965,   1.50818,    .15173,    .06470,
     +     .04614,    .12288,    .19167,
     +     .45232,    .21884,   1.48296,    .15089,    .06530,
     +     .04713,    .12261,    .19046,
     +     .45204,    .21798,   1.45755,    .14999,    .06579,
     +     .04797,    .12225,    .18918,
     +     .45174,    .21717,   1.43386,    .14913,    .06624,
     +     .04875,    .12189,    .18797,
     +     .45131,    .21634,   1.41098,    .14825,    .06657,
     +     .04938,    .12149,    .18675 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45086,    .21551,   1.38832,    .14736,    .06689,
     +     .05001,    .12107,    .18553,
     +     .45031,    .21463,   1.36579,    .14643,    .06714,
     +     .05055,    .12060,    .18428,
     +     .44974,    .21379,   1.34446,    .14554,    .06735,
     +     .05103,    .12013,    .18307,
     +     .44915,    .21297,   1.32445,    .14468,    .06752,
     +     .05146,    .11967,    .18191,
     +     .44846,    .21211,   1.30400,    .14377,    .06764,
     +     .05183,    .11915,    .18070 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .44484,    .24387,   1.28701,    .12339,    .00000,
     +     .00000,    .07722,    .17615,
     +     .45031,    .24488,   1.32047,    .12401,    .00000,
     +     .00000,    .07914,    .17643,
     +     .45745,    .24599,   1.36148,    .12480,    .00000,
     +     .00000,    .08174,    .17665,
     +     .46210,    .24657,   1.38349,    .12529,    .00224,
     +     .00000,    .08351,    .17670,
     +     .46644,    .24694,   1.39669,    .12569,    .00707,
     +     .00000,    .08517,    .17661,
     +     .46977,    .24709,   1.40579,    .12595,    .01058,
     +     .00000,    .08649,    .17644,
     +     .47268,    .24713,   1.41248,    .12613,    .01367,
     +     .00000,    .08765,    .17619,
     +     .47549,    .24706,   1.41744,    .12627,    .01672,
     +     .00000,    .08879,    .17585 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .47764,    .24689,   1.41947,    .12631,    .01903,
     +     .00000,    .08967,    .17548,
     +     .47951,    .24664,   1.41975,    .12630,    .02112,
     +     .00000,    .09045,    .17507,
     +     .48089,    .24640,   1.41923,    .12627,    .02272,
     +     .00000,    .09103,    .17472,
     +     .48336,    .24574,   1.41093,    .12609,    .02576,
     +     .00064,    .09209,    .17383,
     +     .48507,    .24500,   1.39575,    .12581,    .02806,
     +     .00504,    .09284,    .17293,
     +     .48660,    .24403,   1.37686,    .12538,    .03041,
     +     .00956,    .09353,    .17180,
     +     .48776,    .24288,   1.35584,    .12480,    .03259,
     +     .01297,    .09406,    .17049,
     +     .48847,    .24171,   1.33527,    .12417,    .03435,
     +     .01564,    .09439,    .16920 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .48887,    .24044,   1.31326,    .12345,    .03596,
     +     .01801,    .09461,    .16780,
     +     .48897,    .23929,   1.29394,    .12278,    .03717,
     +     .01973,    .09469,    .16657,
     +     .48880,    .23782,   1.26933,    .12189,    .03847,
     +     .02160,    .09468,    .16500,
     +     .48845,    .23646,   1.24694,    .12105,    .03951,
     +     .02312,    .09458,    .16355,
     +     .48798,    .23516,   1.22600,    .12024,    .04039,
     +     .02440,    .09443,    .16219,
     +     .48709,    .23343,   1.19837,    .11912,    .04136,
     +     .02584,    .09411,    .16039,
     +     .48607,    .23175,   1.17209,    .11803,    .04216,
     +     .02707,    .09375,    .15865,
     +     .48497,    .23015,   1.14746,    .11698,    .04284,
     +     .02814,    .09337,    .15699 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48363,    .22846,   1.12212,    .11585,    .04339,
     +     .02906,    .09289,    .15526,
     +     .48222,    .22679,   1.09749,    .11473,    .04388,
     +     .02989,    .09237,    .15356,
     +     .48078,    .22518,   1.07425,    .11365,    .04428,
     +     .03061,    .09184,    .15194,
     +     .47927,    .22362,   1.05215,    .11259,    .04459,
     +     .03121,    .09130,    .15037,
     +     .47770,    .22207,   1.03036,    .11153,    .04487,
     +     .03178,    .09074,    .14879,
     +     .47600,    .22047,   1.00867,    .11044,    .04507,
     +     .03224,    .09013,    .14720,
     +     .47438,    .21897,    .98856,    .10942,    .04525,
     +     .03268,    .08955,    .14571,
     +     .47271,    .21751,    .96933,    .10841,    .04535,
     +     .03301,    .08895,    .14425 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47102,    .21604,    .95038,    .10740,    .04545,
     +     .03334,    .08835,    .14281,
     +     .46924,    .21457,    .93170,    .10639,    .04550,
     +     .03361,    .08772,    .14135,
     +     .46749,    .21317,    .91412,    .10542,    .04553,
     +     .03385,    .08711,    .13997,
     +     .46582,    .21183,    .89771,    .10450,    .04554,
     +     .03405,    .08652,    .13866,
     +     .46403,    .21045,    .88110,    .10354,    .04551,
     +     .03421,    .08590,    .13732 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .50535,    .26906,   1.02328,    .10801,    .00000,
     +     .00000,    .06970,    .16350,
     +     .50926,    .26881,   1.04988,    .10780,    .00000,
     +     .00000,    .07074,    .16253,
     +     .51409,    .26808,   1.08254,    .10743,    .00000,
     +     .00000,    .07214,    .16106,
     +     .51701,    .26736,   1.09995,    .10714,    .00178,
     +     .00000,    .07305,    .15997,
     +     .51949,    .26642,   1.11006,    .10679,    .00561,
     +     .00000,    .07390,    .15874,
     +     .52121,    .26546,   1.11662,    .10644,    .00836,
     +     .00000,    .07454,    .15765,
     +     .52257,    .26444,   1.12103,    .10607,    .01078,
     +     .00000,    .07508,    .15658,
     +     .52374,    .26326,   1.12375,    .10564,    .01315,
     +     .00000,    .07559,    .15540 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .52445,    .26215,   1.12402,    .10522,    .01493,
     +     .00000,    .07596,    .15435,
     +     .52493,    .26101,   1.12272,    .10480,    .01652,
     +     .00000,    .07626,    .15330,
     +     .52521,    .26009,   1.12103,    .10444,    .01774,
     +     .00000,    .07647,    .15246,
     +     .52535,    .25799,   1.11128,    .10363,    .02002,
     +     .00051,    .07680,    .15061,
     +     .52505,    .25605,   1.09622,    .10284,    .02173,
     +     .00383,    .07695,    .14893,
     +     .52432,    .25378,   1.07759,    .10190,    .02345,
     +     .00723,    .07701,    .14700,
     +     .52317,    .25131,   1.05692,    .10084,    .02503,
     +     .00977,    .07694,    .14494,
     +     .52180,    .24899,   1.03689,    .09981,    .02628,
     +     .01173,    .07678,    .14301 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .52015,    .24659,   1.01565,    .09872,    .02741,
     +     .01345,    .07654,    .14103,
     +     .51855,    .24453,    .99718,    .09778,    .02823,
     +     .01469,    .07625,    .13937,
     +     .51634,    .24199,    .97387,    .09660,    .02910,
     +     .01601,    .07583,    .13731,
     +     .51422,    .23972,    .95286,    .09553,    .02979,
     +     .01708,    .07541,    .13547,
     +     .51216,    .23761,    .93339,    .09451,    .03035,
     +     .01797,    .07498,    .13378,
     +     .50927,    .23486,    .90794,    .09319,    .03095,
     +     .01895,    .07436,    .13160,
     +     .50639,    .23227,    .88394,    .09192,    .03143,
     +     .01978,    .07373,    .12955,
     +     .50360,    .22984,    .86163,    .09073,    .03183,
     +     .02049,    .07310,    .12764 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50057,    .22737,    .83891,    .08950,    .03213,
     +     .02108,    .07241,    .12568,
     +     .49754,    .22496,    .81699,    .08830,    .03238,
     +     .02161,    .07172,    .12377,
     +     .49459,    .22266,    .79646,    .08715,    .03256,
     +     .02206,    .07105,    .12198,
     +     .49169,    .22047,    .77710,    .08605,    .03269,
     +     .02242,    .07037,    .12028,
     +     .48876,    .21828,    .75811,    .08495,    .03280,
     +     .02276,    .06970,    .11861,
     +     .48573,    .21610,    .73936,    .08385,    .03285,
     +     .02302,    .06899,    .11693,
     +     .48286,    .21407,    .72205,    .08281,    .03288,
     +     .02327,    .06833,    .11537,
     +     .48004,    .21210,    .70564,    .08181,    .03287,
     +     .02344,    .06767,    .11388 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47720,    .21013,    .68952,    .08082,    .03286,
     +     .02361,    .06701,    .11240,
     +     .47432,    .20818,    .67376,    .07983,    .03281,
     +     .02375,    .06634,    .11093,
     +     .47154,    .20633,    .65901,    .07889,    .03275,
     +     .02385,    .06570,    .10954,
     +     .46889,    .20459,    .64529,    .07800,    .03268,
     +     .02394,    .06510,    .10823,
     +     .46612,    .20281,    .63148,    .07710,    .03258,
     +     .02399,    .06446,    .10689 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .56969,    .29081,    .77593,    .09007,    .00000,
     +     .00000,    .06035,    .14551,
     +     .57113,    .28891,    .80542,    .08936,    .00000,
     +     .00000,    .06079,    .14366,
     +     .57226,    .28588,    .84087,    .08834,    .00000,
     +     .00000,    .06133,    .14100,
     +     .57254,    .28354,    .85991,    .08761,    .00143,
     +     .00000,    .06168,    .13909,
     +     .57228,    .28093,    .87169,    .08682,    .00449,
     +     .00000,    .06195,    .13708,
     +     .57166,    .27857,    .87888,    .08611,    .00666,
     +     .00000,    .06211,    .13537,
     +     .57079,    .27628,    .88348,    .08542,    .00855,
     +     .00000,    .06221,    .13373,
     +     .56959,    .27381,    .88604,    .08468,    .01037,
     +     .00000,    .06227,    .13198 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .56826,    .27160,    .88586,    .08401,    .01172,
     +     .00000,    .06228,    .13045,
     +     .56680,    .26942,    .88399,    .08335,    .01292,
     +     .00000,    .06225,    .12898,
     +     .56557,    .26769,    .88179,    .08282,    .01383,
     +     .00000,    .06220,    .12783,
     +     .56256,    .26390,    .87141,    .08165,    .01551,
     +     .00040,    .06200,    .12535,
     +     .55955,    .26062,    .85661,    .08060,    .01674,
     +     .00286,    .06174,    .12319,
     +     .55590,    .25687,    .83824,    .07938,    .01795,
     +     .00537,    .06138,    .12078,
     +     .55178,    .25294,    .81780,    .07807,    .01903,
     +     .00721,    .06090,    .11827,
     +     .54776,    .24936,    .79810,    .07686,    .01987,
     +     .00861,    .06040,    .11600 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .54348,    .24575,    .77740,    .07563,    .02061,
     +     .00982,    .05985,    .11370,
     +     .53977,    .24273,    .75956,    .07458,    .02113,
     +     .01068,    .05934,    .11180,
     +     .53504,    .23907,    .73730,    .07330,    .02166,
     +     .01158,    .05866,    .10950,
     +     .53076,    .23585,    .71746,    .07215,    .02206,
     +     .01229,    .05804,    .10749,
     +     .52676,    .23290,    .69925,    .07109,    .02238,
     +     .01288,    .05745,    .10565,
     +     .52148,    .22914,    .67573,    .06972,    .02269,
     +     .01351,    .05664,    .10334,
     +     .51642,    .22564,    .65383,    .06845,    .02292,
     +     .01402,    .05586,    .10119,
     +     .51163,    .22241,    .63366,    .06726,    .02310,
     +     .01446,    .05512,    .09920 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50669,    .21914,    .61340,    .06604,    .02321,
     +     .01481,    .05435,    .09722,
     +     .50183,    .21598,    .59402,    .06487,    .02328,
     +     .01512,    .05359,    .09532,
     +     .49718,    .21303,    .57601,    .06377,    .02332,
     +     .01537,    .05285,    .09354,
     +     .49271,    .21024,    .55922,    .06273,    .02332,
     +     .01556,    .05214,    .09186,
     +     .48826,    .20748,    .54286,    .06170,    .02330,
     +     .01573,    .05144,    .09021,
     +     .48376,    .20476,    .52690,    .06068,    .02324,
     +     .01586,    .05072,    .08859,
     +     .47954,    .20221,    .51224,    .05973,    .02319,
     +     .01597,    .05005,    .08709,
     +     .47545,    .19980,    .49848,    .05882,    .02310,
     +     .01603,    .04940,    .08567 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47137,    .19740,    .48505,    .05792,    .02301,
     +     .01610,    .04875,    .08427,
     +     .46729,    .19504,    .47200,    .05703,    .02290,
     +     .01613,    .04811,    .08289,
     +     .46340,    .19281,    .45986,    .05620,    .02279,
     +     .01616,    .04749,    .08159,
     +     .45972,    .19072,    .44863,    .05541,    .02267,
     +     .01617,    .04691,    .08038,
     +     .45595,    .18859,    .43742,    .05461,    .02254,
     +     .01616,    .04632,    .07915 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .62175,    .30330,    .62929,    .07388,    .00000,
     +     .00000,    .05137,    .12658,
     +     .62030,    .29981,    .66244,    .07304,    .00000,
     +     .00000,    .05152,    .12434,
     +     .61729,    .29454,    .70037,    .07183,    .00000,
     +     .00000,    .05167,    .12115,
     +     .61462,    .29067,    .71999,    .07096,    .00120,
     +     .00000,    .05171,    .11888,
     +     .61133,    .28655,    .73161,    .07003,    .00375,
     +     .00000,    .05168,    .11653,
     +     .60816,    .28293,    .73779,    .06921,    .00553,
     +     .00000,    .05160,    .11455,
     +     .60489,    .27947,    .74103,    .06843,    .00705,
     +     .00000,    .05147,    .11266,
     +     .60121,    .27582,    .74183,    .06759,    .00850,
     +     .00000,    .05130,    .11067 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .59779,    .27260,    .73990,    .06683,    .00956,
     +     .00000,    .05111,    .10897,
     +     .59434,    .26951,    .73626,    .06609,    .01049,
     +     .00000,    .05089,    .10735,
     +     .59156,    .26709,    .73265,    .06551,    .01118,
     +     .00000,    .05070,    .10607,
     +     .58529,    .26189,    .71969,    .06425,    .01244,
     +     .00032,    .05025,    .10336,
     +     .57962,    .25743,    .70340,    .06313,    .01334,
     +     .00220,    .04977,    .10104,
     +     .57305,    .25248,    .68356,    .06187,    .01420,
     +     .00411,    .04919,    .09849,
     +     .56601,    .24735,    .66187,    .06053,    .01494,
     +     .00548,    .04852,    .09586,
     +     .55945,    .24274,    .64138,    .05931,    .01550,
     +     .00651,    .04786,    .09351 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55269,    .23816,    .62022,    .05809,    .01597,
     +     .00738,    .04716,    .09118,
     +     .54698,    .23439,    .60231,    .05706,    .01629,
     +     .00799,    .04655,    .08926,
     +     .53995,    .22985,    .58035,    .05580,    .01660,
     +     .00861,    .04579,    .08698,
     +     .53369,    .22591,    .56106,    .05470,    .01682,
     +     .00910,    .04509,    .08498,
     +     .52791,    .22234,    .54357,    .05371,    .01698,
     +     .00949,    .04445,    .08318,
     +     .52049,    .21782,    .52134,    .05242,    .01711,
     +     .00990,    .04359,    .08096,
     +     .51349,    .21365,    .50092,    .05123,    .01719,
     +     .01022,    .04279,    .07890,
     +     .50696,    .20982,    .48235,    .05013,    .01724,
     +     .01049,    .04203,    .07701 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50035,    .20600,    .46397,    .04902,    .01723,
     +     .01069,    .04125,    .07515,
     +     .49390,    .20233,    .44658,    .04796,    .01721,
     +     .01087,    .04050,    .07338,
     +     .48780,    .19893,    .43059,    .04697,    .01716,
     +     .01100,    .03978,    .07173,
     +     .48202,    .19575,    .41585,    .04605,    .01708,
     +     .01109,    .03910,    .07018,
     +     .47628,    .19262,    .40158,    .04514,    .01700,
     +     .01117,    .03843,    .06867,
     +     .47057,    .18955,    .38782,    .04425,    .01690,
     +     .01122,    .03776,    .06720,
     +     .46523,    .18670,    .37527,    .04342,    .01679,
     +     .01126,    .03714,    .06583,
     +     .46011,    .18400,    .36360,    .04264,    .01667,
     +     .01127,    .03654,    .06456 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45503,    .18133,    .35226,    .04186,    .01655,
     +     .01127,    .03595,    .06330,
     +     .45000,    .17872,    .34134,    .04110,    .01642,
     +     .01126,    .03537,    .06208,
     +     .44523,    .17626,    .33126,    .04039,    .01629,
     +     .01125,    .03481,    .06093,
     +     .44074,    .17396,    .32199,    .03972,    .01616,
     +     .01122,    .03430,    .05986,
     +     .43618,    .17163,    .31283,    .03905,    .01602,
     +     .01118,    .03377,    .05879 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .66174,    .30799,    .56341,    .05968,    .00000,
     +     .00000,    .04301,    .10789,
     +     .65715,    .30310,    .59566,    .05892,    .00000,
     +     .00000,    .04303,    .10553,
     +     .64976,    .29584,    .62991,    .05774,    .00000,
     +     .00000,    .04298,    .10220,
     +     .64400,    .29063,    .64591,    .05689,    .00103,
     +     .00000,    .04286,    .09984,
     +     .63759,    .28519,    .65329,    .05599,    .00318,
     +     .00000,    .04267,    .09743,
     +     .63181,    .28051,    .65550,    .05520,    .00466,
     +     .00000,    .04244,    .09537,
     +     .62614,    .27607,    .65488,    .05442,    .00590,
     +     .00000,    .04219,    .09345,
     +     .61999,    .27141,    .65161,    .05358,    .00706,
     +     .00000,    .04189,    .09144 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .61449,    .26740,    .64625,    .05285,    .00790,
     +     .00000,    .04160,    .08971,
     +     .60908,    .26356,    .63949,    .05214,    .00862,
     +     .00000,    .04130,    .08806,
     +     .60479,    .26057,    .63350,    .05158,    .00915,
     +     .00000,    .04104,    .08678,
     +     .59543,    .25424,    .61623,    .05036,    .01009,
     +     .00026,    .04043,    .08409,
     +     .58722,    .24885,    .59714,    .04929,    .01075,
     +     .00171,    .03987,    .08180,
     +     .57792,    .24294,    .57474,    .04809,    .01136,
     +     .00318,    .03919,    .07930,
     +     .56817,    .23690,    .55099,    .04683,    .01187,
     +     .00422,    .03843,    .07678,
     +     .55929,    .23153,    .52921,    .04569,    .01223,
     +     .00498,    .03772,    .07454 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55032,    .22623,    .50726,    .04455,    .01252,
     +     .00561,    .03699,    .07232,
     +     .54284,    .22190,    .48907,    .04360,    .01270,
     +     .00604,    .03636,    .07052,
     +     .53376,    .21675,    .46721,    .04245,    .01286,
     +     .00648,    .03558,    .06839,
     +     .52578,    .21228,    .44833,    .04145,    .01296,
     +     .00681,    .03489,    .06655,
     +     .51851,    .20825,    .43146,    .04054,    .01302,
     +     .00707,    .03426,    .06491,
     +     .50923,    .20324,    .41043,    .03941,    .01305,
     +     .00734,    .03344,    .06285,
     +     .50061,    .19864,    .39140,    .03836,    .01304,
     +     .00754,    .03267,    .06098,
     +     .49264,    .19443,    .37430,    .03740,    .01301,
     +     .00770,    .03195,    .05929 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48462,    .19026,    .35763,    .03644,    .01294,
     +     .00782,    .03123,    .05763,
     +     .47688,    .18630,    .34204,    .03552,    .01286,
     +     .00791,    .03053,    .05604,
     +     .46963,    .18263,    .32786,    .03467,    .01277,
     +     .00797,    .02989,    .05457,
     +     .46281,    .17921,    .31493,    .03388,    .01266,
     +     .00801,    .02927,    .05323,
     +     .45608,    .17584,    .30252,    .03310,    .01255,
     +     .00804,    .02867,    .05192,
     +     .44942,    .17259,    .29068,    .03235,    .01243,
     +     .00804,    .02807,    .05064,
     +     .44321,    .16957,    .27994,    .03166,    .01231,
     +     .00804,    .02752,    .04945,
     +     .43733,    .16673,    .27006,    .03100,    .01218,
     +     .00802,    .02700,    .04835 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43152,    .16393,    .26051,    .03035,    .01205,
     +     .00800,    .02649,    .04727,
     +     .42579,    .16119,    .25141,    .02971,    .01191,
     +     .00797,    .02598,    .04623,
     +     .42038,    .15862,    .24304,    .02912,    .01178,
     +     .00794,    .02551,    .04526,
     +     .41531,    .15623,    .23539,    .02857,    .01165,
     +     .00790,    .02506,    .04435,
     +     .41016,    .15383,    .22788,    .02802,    .01152,
     +     .00785,    .02461,    .04345 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .68995,    .30624,    .55011,    .04751,    .00000,
     +     .00000,    .03543,    .09021,
     +     .68224,    .30007,    .57588,    .04685,    .00000,
     +     .00000,    .03541,    .08795,
     +     .67043,    .29114,    .59980,    .04582,    .00000,
     +     .00000,    .03526,    .08473,
     +     .66165,    .28479,    .60816,    .04507,    .00087,
     +     .00000,    .03507,    .08246,
     +     .65222,    .27824,    .60793,    .04424,    .00268,
     +     .00000,    .03480,    .08015,
     +     .64393,    .27267,    .60390,    .04350,    .00391,
     +     .00000,    .03453,    .07819,
     +     .63595,    .26744,    .59767,    .04278,    .00492,
     +     .00000,    .03422,    .07634,
     +     .62747,    .26199,    .58889,    .04203,    .00585,
     +     .00000,    .03388,    .07442 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .61999,    .25735,    .57918,    .04136,    .00650,
     +     .00000,    .03354,    .07276,
     +     .61277,    .25293,    .56860,    .04070,    .00706,
     +     .00000,    .03320,    .07121,
     +     .60709,    .24948,    .55981,    .04018,    .00746,
     +     .00000,    .03291,    .07001,
     +     .59490,    .24227,    .53763,    .03906,    .00817,
     +     .00021,    .03228,    .06749,
     +     .58437,    .23620,    .51545,    .03809,    .00864,
     +     .00133,    .03167,    .06538,
     +     .57265,    .22958,    .49043,    .03701,    .00906,
     +     .00246,    .03097,    .06307,
     +     .56053,    .22290,    .46476,    .03588,    .00940,
     +     .00324,    .03023,    .06074,
     +     .54962,    .21701,    .44187,    .03486,    .00962,
     +     .00380,    .02953,    .05869 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .53873,    .21122,    .41937,    .03384,    .00979,
     +     .00426,    .02882,    .05670,
     +     .52976,    .20652,    .40115,    .03300,    .00988,
     +     .00457,    .02822,    .05510,
     +     .51895,    .20096,    .37969,    .03200,    .00994,
     +     .00488,    .02748,    .05320,
     +     .50952,    .19619,    .36147,    .03114,    .00997,
     +     .00510,    .02684,    .05156,
     +     .50100,    .19191,    .34540,    .03036,    .00997,
     +     .00528,    .02627,    .05009,
     +     .49025,    .18661,    .32576,    .02940,    .00993,
     +     .00544,    .02551,    .04830,
     +     .48030,    .18177,    .30824,    .02851,    .00987,
     +     .00557,    .02481,    .04666,
     +     .47116,    .17738,    .29268,    .02770,    .00980,
     +     .00566,    .02418,    .04518 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46209,    .17303,    .27775,    .02688,    .00970,
     +     .00572,    .02354,    .04376,
     +     .45337,    .16892,    .26392,    .02610,    .00959,
     +     .00576,    .02293,    .04241,
     +     .44524,    .16513,    .25146,    .02540,    .00948,
     +     .00579,    .02237,    .04115,
     +     .43764,    .16162,    .24025,    .02475,    .00937,
     +     .00579,    .02184,    .04001,
     +     .43018,    .15817,    .22956,    .02411,    .00925,
     +     .00579,    .02131,    .03891,
     +     .42284,    .15485,    .21948,    .02349,    .00912,
     +     .00577,    .02080,    .03784,
     +     .41602,    .15178,    .21038,    .02293,    .00901,
     +     .00575,    .02033,    .03686,
     +     .40961,    .14890,    .20211,    .02238,    .00888,
     +     .00572,    .01989,    .03595 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40329,    .14607,    .19415,    .02185,    .00876,
     +     .00569,    .01945,    .03506,
     +     .39708,    .14331,    .18663,    .02134,    .00864,
     +     .00565,    .01903,    .03419,
     +     .39123,    .14074,    .17976,    .02086,    .00851,
     +     .00561,    .01864,    .03339,
     +     .38577,    .13835,    .17351,    .02042,    .00840,
     +     .00557,    .01827,    .03264,
     +     .38025,    .13597,    .16740,    .01998,    .00828,
     +     .00552,    .01790,    .03190 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .70692,    .29914,    .56309,    .03727,    .00000,
     +     .00000,    .02875,    .07413,
     +     .69620,    .29192,    .57811,    .03671,    .00000,
     +     .00000,    .02871,    .07208,
     +     .68014,    .28163,    .58705,    .03586,    .00000,
     +     .00000,    .02853,    .06909,
     +     .66852,    .27435,    .58544,    .03519,    .00073,
     +     .00000,    .02831,    .06703,
     +     .65623,    .26696,    .57585,    .03448,    .00223,
     +     .00000,    .02802,    .06488,
     +     .64563,    .26071,    .56466,    .03383,    .00323,
     +     .00000,    .02773,    .06308,
     +     .63554,    .25487,    .55224,    .03320,    .00404,
     +     .00000,    .02742,    .06139,
     +     .62491,    .24885,    .53762,    .03252,    .00478,
     +     .00000,    .02706,    .05964 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61568,    .24373,    .52356,    .03194,    .00528,
     +     .00000,    .02671,    .05815,
     +     .60683,    .23888,    .50929,    .03135,    .00571,
     +     .00000,    .02636,    .05675,
     +     .59992,    .23512,    .49788,    .03089,    .00601,
     +     .00000,    .02608,    .05567,
     +     .58524,    .22730,    .47134,    .02991,    .00653,
     +     .00017,    .02544,    .05341,
     +     .57269,    .22080,    .44663,    .02908,    .00686,
     +     .00103,    .02488,    .05149,
     +     .55888,    .21374,    .41968,    .02813,    .00715,
     +     .00189,    .02421,    .04945,
     +     .54476,    .20664,    .39284,    .02716,    .00736,
     +     .00247,    .02351,    .04741,
     +     .53216,    .20043,    .36953,    .02629,    .00749,
     +     .00288,    .02286,    .04562 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51968,    .19438,    .34712,    .02542,    .00757,
     +     .00322,    .02221,    .04388,
     +     .50948,    .18950,    .32932,    .02471,    .00760,
     +     .00343,    .02167,    .04248,
     +     .49731,    .18375,    .30876,    .02388,    .00761,
     +     .00364,    .02101,    .04083,
     +     .48676,    .17883,    .29160,    .02316,    .00759,
     +     .00380,    .02044,    .03942,
     +     .47726,    .17445,    .27667,    .02251,    .00755,
     +     .00391,    .01993,    .03819,
     +     .46540,    .16903,    .25866,    .02170,    .00748,
     +     .00401,    .01927,    .03667,
     +     .45450,    .16411,    .24284,    .02095,    .00740,
     +     .00409,    .01867,    .03530,
     +     .44454,    .15965,    .22897,    .02028,    .00731,
     +     .00414,    .01812,    .03406 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43470,    .15530,    .21586,    .01961,    .00721,
     +     .00416,    .01758,    .03286,
     +     .42528,    .15118,    .20383,    .01899,    .00710,
     +     .00418,    .01707,    .03173,
     +     .41653,    .14739,    .19310,    .01843,    .00699,
     +     .00418,    .01659,    .03070,
     +     .40841,    .14389,    .18354,    .01790,    .00688,
     +     .00417,    .01614,    .02976,
     +     .40046,    .14049,    .17448,    .01737,    .00677,
     +     .00415,    .01571,    .02886,
     +     .39269,    .13722,    .16603,    .01688,    .00665,
     +     .00413,    .01528,    .02798,
     +     .38549,    .13421,    .15845,    .01644,    .00654,
     +     .00410,    .01489,    .02717,
     +     .37874,    .13139,    .15160,    .01602,    .00644,
     +     .00407,    .01454,    .02642 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37209,    .12862,    .14505,    .01561,    .00633,
     +     .00403,    .01419,    .02569,
     +     .36559,    .12593,    .13889,    .01521,    .00622,
     +     .00400,    .01384,    .02500,
     +     .35950,    .12343,    .13330,    .01482,    .00612,
     +     .00396,    .01352,    .02438,
     +     .35383,    .12111,    .12824,    .01447,    .00602,
     +     .00392,    .01322,    .02379,
     +     .34814,    .11881,    .12334,    .01414,    .00592,
     +     .00388,    .01292,    .02319 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .71336,    .28772,    .58204,    .02876,    .00000,
     +     .00000,    .02299,    .05993,
     +     .69974,    .27975,    .58416,    .02833,    .00000,
     +     .00000,    .02293,    .05809,
     +     .67980,    .26841,    .57626,    .02766,    .00000,
     +     .00000,    .02270,    .05544,
     +     .66550,    .26053,    .56408,    .02714,    .00060,
     +     .00000,    .02249,    .05357,
     +     .65065,    .25251,    .54513,    .02654,    .00182,
     +     .00000,    .02219,    .05166,
     +     .63801,    .24577,    .52711,    .02598,    .00262,
     +     .00000,    .02190,    .05007,
     +     .62605,    .23953,    .50903,    .02545,    .00326,
     +     .00000,    .02159,    .04858,
     +     .61353,    .23313,    .48930,    .02489,    .00383,
     +     .00000,    .02124,    .04704 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60277,    .22772,    .47157,    .02439,    .00422,
     +     .00000,    .02091,    .04573,
     +     .59252,    .22262,    .45436,    .02390,    .00454,
     +     .00000,    .02058,    .04449,
     +     .58454,    .21870,    .44093,    .02352,    .00476,
     +     .00000,    .02032,    .04352,
     +     .56780,    .21051,    .41132,    .02267,    .00514,
     +     .00013,    .01973,    .04158,
     +     .55362,    .20374,    .38513,    .02195,    .00537,
     +     .00078,    .01921,    .03995,
     +     .53810,    .19648,    .35733,    .02118,    .00555,
     +     .00143,    .01861,    .03817,
     +     .52235,    .18924,    .33034,    .02037,    .00568,
     +     .00186,    .01799,    .03641,
     +     .50845,    .18290,    .30746,    .01965,    .00575,
     +     .00216,    .01742,    .03489 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49479,    .17673,    .28588,    .01893,    .00578,
     +     .00240,    .01685,    .03343,
     +     .48368,    .17180,    .26904,    .01834,    .00578,
     +     .00255,    .01638,    .03225,
     +     .47053,    .16600,    .24990,    .01763,    .00575,
     +     .00270,    .01582,    .03088,
     +     .45919,    .16108,    .23415,    .01703,    .00571,
     +     .00280,    .01532,    .02973,
     +     .44901,    .15673,    .22063,    .01649,    .00566,
     +     .00287,    .01488,    .02872,
     +     .43635,    .15136,    .20458,    .01585,    .00558,
     +     .00294,    .01433,    .02747,
     +     .42480,    .14650,    .19064,    .01526,    .00549,
     +     .00298,    .01384,    .02633,
     +     .41430,    .14211,    .17853,    .01473,    .00540,
     +     .00300,    .01339,    .02529 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40395,    .13785,    .16722,    .01421,    .00530,
     +     .00301,    .01294,    .02432,
     +     .39412,    .13383,    .15695,    .01372,    .00520,
     +     .00301,    .01252,    .02342,
     +     .38506,    .13015,    .14788,    .01326,    .00510,
     +     .00300,    .01213,    .02259,
     +     .37663,    .12677,    .13988,    .01285,    .00501,
     +     .00298,    .01177,    .02184,
     +     .36838,    .12348,    .13234,    .01246,    .00491,
     +     .00296,    .01141,    .02112,
     +     .36043,    .12032,    .12537,    .01207,    .00481,
     +     .00293,    .01108,    .02043,
     +     .35309,    .11741,    .11914,    .01172,    .00472,
     +     .00291,    .01077,    .01979,
     +     .34621,    .11472,    .11358,    .01138,    .00463,
     +     .00288,    .01048,    .01919 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33945,    .11209,    .10828,    .01105,    .00454,
     +     .00285,    .01021,    .01861,
     +     .33285,    .10954,    .10333,    .01075,    .00445,
     +     .00281,    .00993,    .01807,
     +     .32667,    .10717,    .09886,    .01047,    .00436,
     +     .00278,    .00967,    .01757,
     +     .32094,    .10497,    .09482,    .01022,    .00428,
     +     .00274,    .00943,    .01710,
     +     .31523,    .10278,    .09094,    .00994,    .00420,
     +     .00271,    .00920,    .01664 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .70969,    .27331,    .59375,    .02214,    .00000,
     +     .00000,    .01790,    .04748,
     +     .69355,    .26474,    .58265,    .02179,    .00000,
     +     .00000,    .01785,    .04590,
     +     .67019,    .25268,    .55861,    .02123,    .00000,
     +     .00000,    .01768,    .04360,
     +     .65365,    .24434,    .53679,    .02078,    .00049,
     +     .00000,    .01747,    .04201,
     +     .63659,    .23594,    .50977,    .02029,    .00146,
     +     .00000,    .01721,    .04036,
     +     .62219,    .22892,    .48612,    .01981,    .00209,
     +     .00000,    .01693,    .03901,
     +     .60869,    .22243,    .46359,    .01935,    .00259,
     +     .00000,    .01666,    .03774,
     +     .59467,    .21581,    .44005,    .01886,    .00303,
     +     .00000,    .01636,    .03641 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58268,    .21023,    .41982,    .01843,    .00332,
     +     .00000,    .01606,    .03532,
     +     .57130,    .20500,    .40071,    .01803,    .00355,
     +     .00000,    .01576,    .03428,
     +     .56247,    .20098,    .38607,    .01772,    .00372,
     +     .00000,    .01552,    .03348,
     +     .54408,    .19268,    .35498,    .01701,    .00398,
     +     .00010,    .01502,    .03182,
     +     .52862,    .18587,    .32851,    .01642,    .00413,
     +     .00059,    .01456,    .03045,
     +     .51182,    .17857,    .30104,    .01578,    .00425,
     +     .00107,    .01406,    .02897,
     +     .49492,    .17129,    .27498,    .01511,    .00432,
     +     .00139,    .01351,    .02753,
     +     .48010,    .16498,    .25331,    .01451,    .00435,
     +     .00161,    .01302,    .02630 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46561,    .15889,    .23321,    .01392,    .00435,
     +     .00178,    .01255,    .02509,
     +     .45387,    .15404,    .21779,    .01343,    .00433,
     +     .00188,    .01217,    .02412,
     +     .44003,    .14836,    .20051,    .01289,    .00429,
     +     .00198,    .01170,    .02301,
     +     .42817,    .14354,    .18646,    .01242,    .00424,
     +     .00204,    .01130,    .02208,
     +     .41760,    .13929,    .17452,    .01200,    .00418,
     +     .00209,    .01094,    .02125,
     +     .40449,    .13410,    .16053,    .01149,    .00410,
     +     .00213,    .01049,    .02024,
     +     .39260,    .12941,    .14855,    .01102,    .00402,
     +     .00215,    .01010,    .01933,
     +     .38186,    .12520,    .13825,    .01057,    .00394,
     +     .00216,    .00974,    .01853 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37128,    .12110,    .12873,    .01019,    .00385,
     +     .00215,    .00938,    .01775,
     +     .36128,    .11726,    .12015,    .00982,    .00377,
     +     .00215,    .00905,    .01703,
     +     .35209,    .11375,    .11264,    .00945,    .00368,
     +     .00213,    .00874,    .01638,
     +     .34362,    .11055,    .10605,    .00913,    .00360,
     +     .00211,    .00846,    .01579,
     +     .33536,    .10744,    .09989,    .00882,    .00352,
     +     .00209,    .00818,    .01522,
     +     .32736,    .10447,    .09424,    .00854,    .00344,
     +     .00207,    .00791,    .01468,
     +     .31998,    .10174,    .08921,    .00828,    .00336,
     +     .00204,    .00767,    .01418,
     +     .31314,    .09921,    .08476,    .00802,    .00329,
     +     .00202,    .00744,    .01373 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30644,    .09673,    .08054,    .00776,    .00322,
     +     .00199,    .00723,    .01329,
     +     .29992,    .09434,    .07663,    .00752,    .00315,
     +     .00196,    .00702,    .01288,
     +     .29383,    .09214,    .07310,    .00731,    .00308,
     +     .00194,    .00683,    .01249,
     +     .28818,    .09010,    .06993,    .00712,    .00302,
     +     .00191,    .00665,    .01214,
     +     .28255,    .08807,    .06690,    .00693,    .00295,
     +     .00188,    .00647,    .01179 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69759,    .25593,    .59047,    .01650,    .00000,
     +     .00000,    .01393,    .03719,
     +     .67915,    .24710,    .56763,    .01627,    .00000,
     +     .00000,    .01386,    .03582,
     +     .65283,    .23465,    .52995,    .01585,    .00000,
     +     .00000,    .01366,    .03387,
     +     .63436,    .22610,    .50053,    .01548,    .00038,
     +     .00000,    .01347,    .03253,
     +     .61550,    .21752,    .46755,    .01507,    .00114,
     +     .00000,    .01322,    .03114,
     +     .59963,    .21043,    .44000,    .01471,    .00162,
     +     .00000,    .01297,    .02999,
     +     .58483,    .20390,    .41465,    .01436,    .00200,
     +     .00000,    .01271,    .02892,
     +     .56957,    .19724,    .38894,    .01397,    .00233,
     +     .00000,    .01243,    .02783 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55661,    .19165,    .36742,    .01363,    .00254,
     +     .00000,    .01218,    .02691,
     +     .54439,    .18643,    .34757,    .01330,    .00271,
     +     .00000,    .01193,    .02604,
     +     .53495,    .18243,    .33259,    .01304,    .00283,
     +     .00000,    .01172,    .02537,
     +     .51530,    .17420,    .30160,    .01249,    .00301,
     +     .00008,    .01128,    .02402,
     +     .49897,    .16746,    .27602,    .01200,    .00311,
     +     .00043,    .01090,    .02289,
     +     .48134,    .16026,    .24998,    .01148,    .00318,
     +     .00079,    .01049,    .02170,
     +     .46365,    .15317,    .22573,    .01095,    .00321,
     +     .00102,    .01004,    .02053,
     +     .44820,    .14706,    .20592,    .01048,    .00322,
     +     .00117,    .00964,    .01952 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43318,    .14118,    .18783,    .01003,    .00320,
     +     .00129,    .00925,    .01856,
     +     .42113,    .13649,    .17412,    .00966,    .00318,
     +     .00136,    .00893,    .01778,
     +     .40695,    .13105,    .15892,    .00923,    .00313,
     +     .00142,    .00856,    .01689,
     +     .39486,    .12646,    .14673,    .00887,    .00308,
     +     .00147,    .00823,    .01614,
     +     .38413,    .12242,    .13650,    .00854,    .00303,
     +     .00150,    .00795,    .01548,
     +     .37088,    .11746,    .12466,    .00816,    .00296,
     +     .00151,    .00759,    .01470,
     +     .35890,    .11301,    .11459,    .00781,    .00289,
     +     .00152,    .00728,    .01399,
     +     .34810,    .10904,    .10599,    .00748,    .00282,
     +     .00153,    .00699,    .01337 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33756,    .10521,    .09815,    .00718,    .00275,
     +     .00152,    .00671,    .01278,
     +     .32760,    .10162,    .09113,    .00690,    .00268,
     +     .00151,    .00645,    .01223,
     +     .31849,    .09835,    .08504,    .00665,    .00261,
     +     .00149,    .00621,    .01172,
     +     .31013,    .09537,    .07975,    .00640,    .00255,
     +     .00148,    .00599,    .01126,
     +     .30201,    .09248,    .07482,    .00616,    .00248,
     +     .00146,    .00578,    .01083,
     +     .29417,    .08972,    .07033,    .00594,    .00242,
     +     .00144,    .00558,    .01042,
     +     .28695,    .08720,    .06636,    .00574,    .00236,
     +     .00142,    .00540,    .01006,
     +     .28027,    .08487,    .06285,    .00555,    .00230,
     +     .00140,    .00523,    .00972 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27373,    .08259,    .05954,    .00536,    .00225,
     +     .00138,    .00506,    .00938,
     +     .26740,    .08041,    .05648,    .00519,    .00219,
     +     .00135,    .00490,    .00907,
     +     .26150,    .07839,    .05375,    .00504,    .00214,
     +     .00133,    .00476,    .00878,
     +     .25604,    .07653,    .05130,    .00489,    .00209,
     +     .00131,    .00462,    .00851,
     +     .25063,    .07468,    .04896,    .00474,    .00205,
     +     .00129,    .00449,    .00825 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67745,    .23700,    .57028,    .01220,    .00000,
     +     .00000,    .01057,    .02859,
     +     .65721,    .22803,    .53823,    .01201,    .00000,
     +     .00000,    .01052,    .02745,
     +     .62851,    .21547,    .49048,    .01167,    .00000,
     +     .00000,    .01035,    .02585,
     +     .60850,    .20695,    .45598,    .01142,    .00029,
     +     .00000,    .01017,    .02469,
     +     .58824,    .19838,    .41945,    .01109,    .00087,
     +     .00000,    .00996,    .02356,
     +     .57130,    .19134,    .38993,    .01080,    .00123,
     +     .00000,    .00974,    .02263,
     +     .55558,    .18487,    .36339,    .01051,    .00151,
     +     .00000,    .00952,    .02176,
     +     .53945,    .17830,    .33706,    .01021,    .00175,
     +     .00000,    .00930,    .02086 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52583,    .17281,    .31551,    .00993,    .00191,
     +     .00000,    .00906,    .02013,
     +     .51303,    .16771,    .29595,    .00967,    .00203,
     +     .00000,    .00885,    .01944,
     +     .50315,    .16381,    .28137,    .00946,    .00211,
     +     .00000,    .00868,    .01890,
     +     .48271,    .15585,    .25185,    .00905,    .00223,
     +     .00006,    .00832,    .01781,
     +     .46583,    .14932,    .22813,    .00866,    .00229,
     +     .00032,    .00800,    .01692,
     +     .44769,    .14239,    .20430,    .00825,    .00233,
     +     .00057,    .00765,    .01598,
     +     .42966,    .13558,    .18247,    .00784,    .00235,
     +     .00073,    .00730,    .01505,
     +     .41399,    .12974,    .16493,    .00747,    .00234,
     +     .00084,    .00699,    .01424 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39879,    .12416,    .14913,    .00714,    .00232,
     +     .00092,    .00669,    .01347,
     +     .38664,    .11972,    .13731,    .00687,    .00229,
     +     .00097,    .00645,    .01286,
     +     .37242,    .11460,    .12436,    .00654,    .00225,
     +     .00101,    .00615,    .01218,
     +     .36034,    .11028,    .11408,    .00626,    .00221,
     +     .00104,    .00589,    .01162,
     +     .34969,    .10648,    .10551,    .00601,    .00216,
     +     .00105,    .00567,    .01113,
     +     .33656,    .10187,    .09569,    .00572,    .00210,
     +     .00106,    .00539,    .01051,
     +     .32474,    .09774,    .08743,    .00546,    .00205,
     +     .00107,    .00514,    .00998,
     +     .31413,    .09405,    .08044,    .00521,    .00199,
     +     .00107,    .00492,    .00951 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30381,    .09052,    .07413,    .00500,    .00193,
     +     .00106,    .00472,    .00904,
     +     .29412,    .08721,    .06852,    .00479,    .00188,
     +     .00105,    .00453,    .00862,
     +     .28528,    .08420,    .06366,    .00459,    .00183,
     +     .00103,    .00435,    .00825,
     +     .27716,    .08147,    .05947,    .00441,    .00178,
     +     .00102,    .00418,    .00792,
     +     .26928,    .07883,    .05559,    .00424,    .00173,
     +     .00101,    .00402,    .00759,
     +     .26173,    .07632,    .05209,    .00408,    .00168,
     +     .00099,    .00387,    .00729,
     +     .25481,    .07402,    .04900,    .00393,    .00163,
     +     .00097,    .00374,    .00701,
     +     .24840,    .07191,    .04628,    .00379,    .00159,
     +     .00096,    .00362,    .00676 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24214,    .06985,    .04372,    .00367,    .00155,
     +     .00094,    .00350,    .00652,
     +     .23610,    .06788,    .04138,    .00354,    .00151,
     +     .00092,    .00338,    .00629,
     +     .23050,    .06606,    .03930,    .00343,    .00147,
     +     .00091,    .00327,    .00608,
     +     .22532,    .06438,    .03743,    .00333,    .00144,
     +     .00089,    .00317,    .00588,
     +     .22018,    .06274,    .03566,    .00322,    .00140,
     +     .00088,    .00308,    .00569 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .65050,    .21697,    .53412,    .00883,    .00000,
     +     .00000,    .00794,    .02163,
     +     .62884,    .20803,    .49586,    .00869,    .00000,
     +     .00000,    .00788,    .02071,
     +     .59841,    .19562,    .44212,    .00841,    .00000,
     +     .00000,    .00771,    .01941,
     +     .57730,    .18724,    .40504,    .00822,    .00022,
     +     .00000,    .00757,    .01848,
     +     .55607,    .17886,    .36738,    .00795,    .00065,
     +     .00000,    .00739,    .01756,
     +     .53840,    .17201,    .33769,    .00773,    .00092,
     +     .00000,    .00719,    .01682,
     +     .52210,    .16574,    .31148,    .00752,    .00112,
     +     .00000,    .00700,    .01613,
     +     .50544,    .15940,    .28592,    .00728,    .00129,
     +     .00000,    .00681,    .01542 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49139,    .15413,    .26534,    .00709,    .00140,
     +     .00000,    .00664,    .01481,
     +     .47827,    .14923,    .24696,    .00688,    .00148,
     +     .00000,    .00647,    .01426,
     +     .46819,    .14549,    .23340,    .00672,    .00154,
     +     .00000,    .00633,    .01384,
     +     .44742,    .13786,    .20636,    .00639,    .00162,
     +     .00005,    .00605,    .01298,
     +     .43033,    .13168,    .18506,    .00611,    .00166,
     +     .00022,    .00579,    .01228,
     +     .41208,    .12514,    .16405,    .00580,    .00168,
     +     .00040,    .00550,    .01156,
     +     .39399,    .11874,    .14508,    .00550,    .00168,
     +     .00052,    .00523,    .01084,
     +     .37833,    .11327,    .13001,    .00525,    .00166,
     +     .00059,    .00499,    .01022 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36327,    .10804,    .11660,    .00498,    .00164,
     +     .00065,    .00474,    .00965,
     +     .35130,    .10391,    .10668,    .00477,    .00162,
     +     .00068,    .00456,    .00919,
     +     .33732,    .09915,    .09594,    .00454,    .00158,
     +     .00071,    .00434,    .00866,
     +     .32550,    .09515,    .08747,    .00433,    .00155,
     +     .00072,    .00415,    .00822,
     +     .31509,    .09165,    .08046,    .00415,    .00151,
     +     .00073,    .00397,    .00786,
     +     .30232,    .08742,    .07250,    .00394,    .00147,
     +     .00074,    .00376,    .00739,
     +     .29085,    .08366,    .06588,    .00376,    .00142,
     +     .00074,    .00358,    .00698,
     +     .28058,    .08031,    .06034,    .00359,    .00138,
     +     .00073,    .00342,    .00663 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27069,    .07708,    .05534,    .00340,    .00134,
     +     .00073,    .00326,    .00631,
     +     .26141,    .07407,    .05093,    .00324,    .00129,
     +     .00072,    .00311,    .00601,
     +     .25295,    .07134,    .04716,    .00310,    .00125,
     +     .00071,    .00298,    .00574,
     +     .24522,    .06887,    .04391,    .00298,    .00122,
     +     .00070,    .00286,    .00549,
     +     .23774,    .06651,    .04091,    .00286,    .00118,
     +     .00068,    .00275,    .00525,
     +     .23056,    .06426,    .03822,    .00276,    .00115,
     +     .00067,    .00264,    .00502,
     +     .22400,    .06221,    .03586,    .00267,    .00111,
     +     .00066,    .00254,    .00481,
     +     .21797,    .06032,    .03381,    .00258,    .00108,
     +     .00065,    .00246,    .00462 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21209,    .05849,    .03187,    .00248,    .00105,
     +     .00064,    .00237,    .00445,
     +     .20641,    .05674,    .03010,    .00239,    .00102,
     +     .00062,    .00229,    .00428,
     +     .20115,    .05513,    .02852,    .00231,    .00100,
     +     .00061,    .00220,    .00414,
     +     .19630,    .05365,    .02712,    .00223,    .00097,
     +     .00060,    .00213,    .00400,
     +     .19151,    .05218,    .02579,    .00215,    .00095,
     +     .00059,    .00206,    .00386 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61785,    .19632,    .48520,    .00621,    .00000,
     +     .00000,    .00589,    .01613,
     +     .59521,    .18764,    .44388,    .00613,    .00000,
     +     .00000,    .00584,    .01535,
     +     .56357,    .17565,    .38798,    .00592,    .00000,
     +     .00000,    .00569,    .01430,
     +     .54181,    .16753,    .35074,    .00576,    .00016,
     +     .00000,    .00553,    .01361,
     +     .51998,    .15952,    .31405,    .00557,    .00047,
     +     .00000,    .00536,    .01290,
     +     .50196,    .15295,    .28559,    .00541,    .00066,
     +     .00000,    .00521,    .01231,
     +     .48538,    .14697,    .26090,    .00526,    .00081,
     +     .00000,    .00507,    .01176,
     +     .46850,    .14095,    .23720,    .00508,    .00092,
     +     .00000,    .00492,    .01119 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45435,    .13595,    .21840,    .00492,    .00100,
     +     .00000,    .00478,    .01074,
     +     .44117,    .13133,    .20177,    .00476,    .00105,
     +     .00000,    .00465,    .01031,
     +     .43108,    .12780,    .18960,    .00464,    .00109,
     +     .00000,    .00455,    .00998,
     +     .41036,    .12065,    .16573,    .00440,    .00114,
     +     .00003,    .00431,    .00934,
     +     .39340,    .11488,    .14728,    .00420,    .00117,
     +     .00016,    .00412,    .00878,
     +     .37534,    .10879,    .12931,    .00399,    .00118,
     +     .00028,    .00391,    .00820,
     +     .35755,    .10286,    .11328,    .00377,    .00117,
     +     .00036,    .00369,    .00767,
     +     .34225,    .09781,    .10071,    .00357,    .00116,
     +     .00041,    .00350,    .00722 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32758,    .09300,    .08965,    .00338,    .00114,
     +     .00045,    .00332,    .00678,
     +     .31593,    .08922,    .08155,    .00323,    .00112,
     +     .00047,    .00317,    .00646,
     +     .30241,    .08488,    .07285,    .00306,    .00109,
     +     .00049,    .00300,    .00606,
     +     .29100,    .08125,    .06605,    .00293,    .00106,
     +     .00050,    .00286,    .00573,
     +     .28097,    .07808,    .06048,    .00281,    .00104,
     +     .00050,    .00275,    .00543,
     +     .26878,    .07423,    .05420,    .00265,    .00100,
     +     .00050,    .00259,    .00512,
     +     .25789,    .07082,    .04901,    .00251,    .00097,
     +     .00050,    .00246,    .00484,
     +     .24816,    .06781,    .04469,    .00238,    .00094,
     +     .00050,    .00234,    .00457 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23876,    .06493,    .04083,    .00227,    .00091,
     +     .00049,    .00223,    .00433,
     +     .22998,    .06225,    .03744,    .00216,    .00088,
     +     .00048,    .00213,    .00410,
     +     .22203,    .05983,    .03455,    .00205,    .00085,
     +     .00048,    .00203,    .00391,
     +     .21477,    .05764,    .03208,    .00196,    .00082,
     +     .00047,    .00194,    .00374,
     +     .20776,    .05554,    .02981,    .00189,    .00080,
     +     .00046,    .00186,    .00357,
     +     .20108,    .05354,    .02778,    .00182,    .00077,
     +     .00045,    .00178,    .00341,
     +     .19499,    .05173,    .02600,    .00175,    .00075,
     +     .00044,    .00171,    .00326,
     +     .18938,    .05007,    .02447,    .00169,    .00073,
     +     .00043,    .00165,    .00313 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18392,    .04846,    .02303,    .00162,    .00071,
     +     .00043,    .00160,    .00300,
     +     .17869,    .04693,    .02171,    .00155,    .00069,
     +     .00042,    .00154,    .00288,
     +     .17386,    .04551,    .02054,    .00148,    .00067,
     +     .00041,    .00148,    .00278,
     +     .16941,    .04422,    .01950,    .00142,    .00065,
     +     .00040,    .00142,    .00269,
     +     .16500,    .04294,    .01852,    .00137,    .00063,
     +     .00040,    .00137,    .00259 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58041,    .17590,    .42802,    .00442,    .00000,
     +     .00000,    .00424,    .01170,
     +     .55722,    .16756,    .38630,    .00435,    .00000,
     +     .00000,    .00419,    .01110,
     +     .52510,    .15606,    .33157,    .00413,    .00000,
     +     .00000,    .00404,    .01037,
     +     .50309,    .14838,    .29614,    .00402,    .00011,
     +     .00000,    .00393,    .00980,
     +     .48111,    .14080,    .26195,    .00389,    .00033,
     +     .00000,    .00381,    .00921,
     +     .46308,    .13461,    .23594,    .00376,    .00047,
     +     .00000,    .00370,    .00878,
     +     .44652,    .12901,    .21366,    .00364,    .00057,
     +     .00000,    .00358,    .00837,
     +     .42971,    .12338,    .19252,    .00352,    .00065,
     +     .00000,    .00345,    .00795 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41571,    .11872,    .17593,    .00341,    .00070,
     +     .00000,    .00335,    .00758,
     +     .40269,    .11442,    .16142,    .00331,    .00074,
     +     .00000,    .00324,    .00726,
     +     .39274,    .11116,    .15089,    .00322,    .00076,
     +     .00000,    .00315,    .00701,
     +     .37245,    .10455,    .13052,    .00303,    .00079,
     +     .00002,    .00300,    .00653,
     +     .35589,    .09921,    .11502,    .00288,    .00081,
     +     .00011,    .00285,    .00615,
     +     .33836,    .09362,    .10009,    .00272,    .00081,
     +     .00019,    .00269,    .00574,
     +     .32117,    .08821,    .08693,    .00256,    .00080,
     +     .00024,    .00253,    .00532,
     +     .30644,    .08363,    .07672,    .00242,    .00079,
     +     .00028,    .00239,    .00498 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29237,    .07929,    .06784,    .00228,    .00078,
     +     .00030,    .00226,    .00466,
     +     .28124,    .07586,    .06138,    .00219,    .00076,
     +     .00032,    .00216,    .00440,
     +     .26837,    .07195,    .05450,    .00206,    .00074,
     +     .00033,    .00203,    .00413,
     +     .25756,    .06869,    .04917,    .00196,    .00072,
     +     .00034,    .00193,    .00391,
     +     .24809,    .06584,    .04483,    .00187,    .00070,
     +     .00035,    .00185,    .00372,
     +     .23661,    .06243,    .03998,    .00176,    .00068,
     +     .00035,    .00174,    .00347,
     +     .22637,    .05940,    .03600,    .00166,    .00065,
     +     .00035,    .00164,    .00327,
     +     .21726,    .05671,    .03270,    .00157,    .00063,
     +     .00035,    .00155,    .00309 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20848,    .05419,    .02977,    .00151,    .00061,
     +     .00034,    .00147,    .00290,
     +     .20031,    .05183,    .02722,    .00144,    .00059,
     +     .00034,    .00140,    .00274,
     +     .19294,    .04970,    .02505,    .00137,    .00057,
     +     .00034,    .00134,    .00261,
     +     .18624,    .04778,    .02321,    .00130,    .00055,
     +     .00033,    .00128,    .00248,
     +     .17979,    .04594,    .02152,    .00124,    .00053,
     +     .00033,    .00122,    .00235,
     +     .17366,    .04420,    .02002,    .00119,    .00051,
     +     .00033,    .00117,    .00225,
     +     .16807,    .04262,    .01870,    .00114,    .00050,
     +     .00032,    .00112,    .00215,
     +     .16294,    .04117,    .01757,    .00109,    .00048,
     +     .00031,    .00107,    .00206 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15797,    .03978,    .01650,    .00103,    .00047,
     +     .00031,    .00103,    .00198,
     +     .15318,    .03845,    .01554,    .00100,    .00046,
     +     .00030,    .00099,    .00190,
     +     .14875,    .03723,    .01468,    .00097,    .00045,
     +     .00030,    .00095,    .00182,
     +     .14469,    .03612,    .01393,    .00095,    .00044,
     +     .00029,    .00092,    .00176,
     +     .14071,    .03502,    .01322,    .00092,    .00042,
     +     .00029,    .00088,    .00169 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .53944,    .15576,    .36669,    .00302,    .00000,
     +     .00000,    .00300,    .00840,
     +     .51622,    .14786,    .32695,    .00294,    .00000,
     +     .00000,    .00294,    .00796,
     +     .48397,    .13717,    .27597,    .00286,    .00000,
     +     .00000,    .00281,    .00733,
     +     .46213,    .12996,    .24370,    .00276,    .00008,
     +     .00000,    .00272,    .00691,
     +     .44042,    .12291,    .21324,    .00267,    .00023,
     +     .00000,    .00262,    .00648,
     +     .42267,    .11719,    .19035,    .00258,    .00032,
     +     .00000,    .00254,    .00613,
     +     .40645,    .11201,    .17094,    .00248,    .00039,
     +     .00000,    .00245,    .00582,
     +     .39006,    .10682,    .15273,    .00238,    .00045,
     +     .00000,    .00235,    .00552 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37636,    .10256,    .13863,    .00233,    .00048,
     +     .00000,    .00227,    .00526,
     +     .36372,    .09863,    .12640,    .00226,    .00050,
     +     .00000,    .00219,    .00502,
     +     .35411,    .09563,    .11758,    .00219,    .00052,
     +     .00000,    .00213,    .00484,
     +     .33450,    .08961,    .10075,    .00207,    .00054,
     +     .00002,    .00201,    .00449,
     +     .31859,    .08478,    .08810,    .00198,    .00055,
     +     .00007,    .00191,    .00419,
     +     .30182,    .07976,    .07604,    .00186,    .00055,
     +     .00013,    .00179,    .00389,
     +     .28550,    .07487,    .06554,    .00173,    .00054,
     +     .00016,    .00168,    .00361,
     +     .27155,    .07074,    .05747,    .00163,    .00053,
     +     .00018,    .00158,    .00337 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25823,    .06686,    .05049,    .00155,    .00052,
     +     .00020,    .00149,    .00314,
     +     .24774,    .06382,    .04547,    .00149,    .00051,
     +     .00021,    .00142,    .00296,
     +     .23570,    .06035,    .04017,    .00140,    .00049,
     +     .00022,    .00133,    .00276,
     +     .22560,    .05746,    .03609,    .00132,    .00048,
     +     .00022,    .00126,    .00260,
     +     .21677,    .05496,    .03278,    .00126,    .00047,
     +     .00022,    .00121,    .00246,
     +     .20611,    .05196,    .02911,    .00118,    .00045,
     +     .00022,    .00113,    .00229,
     +     .19663,    .04931,    .02612,    .00112,    .00044,
     +     .00022,    .00106,    .00215,
     +     .18819,    .04697,    .02365,    .00108,    .00042,
     +     .00022,    .00099,    .00202 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18015,    .04476,    .02148,    .00103,    .00041,
     +     .00022,    .00094,    .00190,
     +     .17269,    .04270,    .01958,    .00097,    .00040,
     +     .00022,    .00089,    .00180,
     +     .16599,    .04086,    .01798,    .00089,    .00039,
     +     .00022,    .00085,    .00171,
     +     .15988,    .03920,    .01663,    .00085,    .00038,
     +     .00022,    .00082,    .00163,
     +     .15399,    .03761,    .01539,    .00081,    .00037,
     +     .00022,    .00078,    .00154,
     +     .14843,    .03611,    .01429,    .00078,    .00036,
     +     .00022,    .00074,    .00146,
     +     .14337,    .03475,    .01334,    .00076,    .00035,
     +     .00022,    .00070,    .00139,
     +     .13873,    .03352,    .01251,    .00073,    .00034,
     +     .00022,    .00067,    .00133 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13423,    .03233,    .01174,    .00071,    .00033,
     +     .00022,    .00064,    .00127,
     +     .12995,    .03119,    .01104,    .00067,    .00032,
     +     .00022,    .00062,    .00121,
     +     .12601,    .03015,    .01042,    .00064,    .00032,
     +     .00022,    .00060,    .00116,
     +     .12239,    .02920,    .00988,    .00062,    .00031,
     +     .00022,    .00058,    .00112,
     +     .11882,    .02827,    .00936,    .00060,    .00030,
     +     .00022,    .00056,    .00107 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .49595,    .13627,    .30513,    .00198,    .00000,
     +     .00000,    .00212,    .00590,
     +     .47295,    .12898,    .26896,    .00192,    .00000,
     +     .00000,    .00206,    .00558,
     +     .44129,    .11906,    .22349,    .00185,    .00000,
     +     .00000,    .00195,    .00513,
     +     .41993,    .11245,    .19529,    .00180,    .00005,
     +     .00000,    .00189,    .00477,
     +     .39879,    .10599,    .16908,    .00173,    .00015,
     +     .00000,    .00182,    .00447,
     +     .38154,    .10077,    .14961,    .00168,    .00021,
     +     .00000,    .00174,    .00422,
     +     .36588,    .09605,    .13332,    .00161,    .00026,
     +     .00000,    .00167,    .00400,
     +     .35013,    .09133,    .11820,    .00153,    .00030,
     +     .00000,    .00161,    .00377 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33699,    .08747,    .10662,    .00151,    .00032,
     +     .00000,    .00154,    .00358,
     +     .32490,    .08392,    .09663,    .00145,    .00034,
     +     .00000,    .00148,    .00342,
     +     .31573,    .08123,    .08946,    .00140,    .00035,
     +     .00000,    .00144,    .00331,
     +     .29710,    .07585,    .07592,    .00132,    .00036,
     +     .00001,    .00136,    .00302,
     +     .28208,    .07154,    .06592,    .00124,    .00037,
     +     .00005,    .00128,    .00281,
     +     .26632,    .06702,    .05649,    .00114,    .00037,
     +     .00008,    .00120,    .00261,
     +     .25095,    .06269,    .04834,    .00108,    .00037,
     +     .00010,    .00113,    .00242,
     +     .23788,    .05907,    .04213,    .00103,    .00037,
     +     .00012,    .00106,    .00225 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22551,    .05566,    .03680,    .00096,    .00036,
     +     .00013,    .00099,    .00208,
     +     .21580,    .05298,    .03301,    .00092,    .00036,
     +     .00013,    .00094,    .00196,
     +     .20463,    .04995,    .02902,    .00088,    .00035,
     +     .00013,    .00088,    .00182,
     +     .19533,    .04744,    .02597,    .00083,    .00034,
     +     .00013,    .00083,    .00171,
     +     .18727,    .04525,    .02352,    .00077,    .00033,
     +     .00013,    .00078,    .00162,
     +     .17752,    .04265,    .02082,    .00072,    .00032,
     +     .00013,    .00073,    .00150,
     +     .16887,    .04036,    .01862,    .00068,    .00031,
     +     .00013,    .00069,    .00140,
     +     .16122,    .03834,    .01681,    .00065,    .00030,
     +     .00013,    .00066,    .00132 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15396,    .03644,    .01523,    .00060,    .00030,
     +     .00013,    .00062,    .00124,
     +     .14720,    .03468,    .01386,    .00057,    .00029,
     +     .00013,    .00059,    .00117,
     +     .14108,    .03311,    .01270,    .00056,    .00028,
     +     .00013,    .00057,    .00109,
     +     .13560,    .03170,    .01173,    .00053,    .00028,
     +     .00013,    .00054,    .00104,
     +     .13035,    .03035,    .01084,    .00049,    .00027,
     +     .00013,    .00050,    .00099,
     +     .12538,    .02908,    .01005,    .00047,    .00026,
     +     .00013,    .00048,    .00094,
     +     .12086,    .02793,    .00937,    .00045,    .00026,
     +     .00013,    .00046,    .00089,
     +     .11673,    .02689,    .00878,    .00043,    .00025,
     +     .00013,    .00044,    .00085 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11273,    .02589,    .00823,    .00042,    .00025,
     +     .00013,    .00042,    .00081,
     +     .10893,    .02493,    .00774,    .00041,    .00024,
     +     .00013,    .00040,    .00078,
     +     .10544,    .02406,    .00730,    .00039,    .00024,
     +     .00013,    .00039,    .00075,
     +     .10224,    .02326,    .00691,    .00037,    .00024,
     +     .00013,    .00037,    .00072,
     +     .09910,    .02248,    .00655,    .00035,    .00023,
     +     .00013,    .00035,    .00069 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .45089,    .11789,    .24675,    .00127,    .00000,
     +     .00000,    .00144,    .00408,
     +     .42850,    .11121,    .21519,    .00123,    .00000,
     +     .00000,    .00140,    .00383,
     +     .39790,    .10214,    .17619,    .00115,    .00000,
     +     .00000,    .00133,    .00350,
     +     .37733,    .09612,    .15235,    .00111,    .00003,
     +     .00000,    .00128,    .00327,
     +     .35707,    .09029,    .13062,    .00108,    .00010,
     +     .00000,    .00123,    .00303,
     +     .34062,    .08559,    .11466,    .00103,    .00014,
     +     .00000,    .00118,    .00286,
     +     .32570,    .08135,    .10143,    .00099,    .00017,
     +     .00000,    .00114,    .00269,
     +     .31073,    .07714,    .08926,    .00095,    .00019,
     +     .00000,    .00109,    .00252 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29837,    .07368,    .08000,    .00091,    .00020,
     +     .00000,    .00105,    .00240,
     +     .28699,    .07053,    .07212,    .00086,    .00021,
     +     .00000,    .00101,    .00228,
     +     .27836,    .06815,    .06651,    .00083,    .00022,
     +     .00000,    .00098,    .00219,
     +     .26092,    .06338,    .05596,    .00077,    .00023,
     +     .00001,    .00092,    .00203,
     +     .24688,    .05958,    .04827,    .00073,    .00023,
     +     .00003,    .00085,    .00189,
     +     .23222,    .05564,    .04107,    .00068,    .00024,
     +     .00005,    .00080,    .00174,
     +     .21803,    .05186,    .03492,    .00063,    .00024,
     +     .00006,    .00075,    .00160,
     +     .20602,    .04870,    .03028,    .00059,    .00024,
     +     .00007,    .00070,    .00148 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19468,    .04573,    .02633,    .00056,    .00024,
     +     .00007,    .00066,    .00138,
     +     .18580,    .04342,    .02353,    .00054,    .00024,
     +     .00007,    .00062,    .00130,
     +     .17565,    .04080,    .02060,    .00049,    .00024,
     +     .00007,    .00058,    .00120,
     +     .16721,    .03865,    .01838,    .00046,    .00024,
     +     .00007,    .00054,    .00112,
     +     .15988,    .03678,    .01661,    .00044,    .00024,
     +     .00007,    .00051,    .00105,
     +     .15111,    .03456,    .01465,    .00040,    .00024,
     +     .00007,    .00048,    .00098,
     +     .14335,    .03261,    .01307,    .00037,    .00023,
     +     .00007,    .00045,    .00092,
     +     .13648,    .03090,    .01178,    .00036,    .00023,
     +     .00007,    .00043,    .00085 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12998,    .02929,    .01065,    .00033,    .00023,
     +     .00007,    .00040,    .00080,
     +     .12397,    .02781,    .00968,    .00031,    .00023,
     +     .00007,    .00038,    .00075,
     +     .11856,    .02649,    .00886,    .00029,    .00022,
     +     .00007,    .00036,    .00070,
     +     .11370,    .02530,    .00817,    .00028,    .00022,
     +     .00007,    .00034,    .00067,
     +     .10905,    .02417,    .00755,    .00026,    .00021,
     +     .00007,    .00033,    .00063,
     +     .10466,    .02311,    .00699,    .00025,    .00021,
     +     .00007,    .00031,    .00060,
     +     .10069,    .02215,    .00651,    .00023,    .00021,
     +     .00007,    .00030,    .00058,
     +     .09707,    .02129,    .00610,    .00023,    .00021,
     +     .00007,    .00029,    .00054 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09357,    .02045,    .00572,    .00022,    .00020,
     +     .00007,    .00027,    .00051,
     +     .09025,    .01967,    .00537,    .00021,    .00020,
     +     .00007,    .00026,    .00049,
     +     .08720,    .01895,    .00506,    .00021,    .00020,
     +     .00007,    .00025,    .00046,
     +     .08441,    .01829,    .00479,    .00020,    .00019,
     +     .00007,    .00024,    .00045,
     +     .08167,    .01765,    .00454,    .00020,    .00019,
     +     .00007,    .00023,    .00042 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .40528,    .10089,    .19408,    .00093,    .00000,
     +     .00000,    .00090,    .00268,
     +     .38389,    .09485,    .16758,    .00088,    .00000,
     +     .00000,    .00086,    .00250,
     +     .35474,    .08674,    .13540,    .00082,    .00000,
     +     .00000,    .00083,    .00227,
     +     .33525,    .08136,    .11606,    .00081,    .00002,
     +     .00000,    .00080,    .00210,
     +     .31618,    .07617,    .09863,    .00075,    .00006,
     +     .00000,    .00076,    .00193,
     +     .30071,    .07199,    .08593,    .00073,    .00009,
     +     .00000,    .00072,    .00181,
     +     .28675,    .06825,    .07551,    .00069,    .00010,
     +     .00000,    .00069,    .00172,
     +     .27280,    .06455,    .06602,    .00066,    .00012,
     +     .00000,    .00066,    .00162 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .26125,    .06153,    .05888,    .00066,    .00013,
     +     .00000,    .00063,    .00151,
     +     .25069,    .05876,    .05283,    .00063,    .00013,
     +     .00000,    .00060,    .00143,
     +     .24272,    .05667,    .04854,    .00059,    .00014,
     +     .00000,    .00058,    .00138,
     +     .22668,    .05251,    .04057,    .00054,    .00014,
     +     .00001,    .00053,    .00128,
     +     .21379,    .04920,    .03479,    .00053,    .00014,
     +     .00002,    .00050,    .00117,
     +     .20037,    .04579,    .02943,    .00049,    .00014,
     +     .00003,    .00047,    .00107,
     +     .18744,    .04254,    .02489,    .00046,    .00014,
     +     .00003,    .00043,    .00098,
     +     .17656,    .03982,    .02149,    .00043,    .00014,
     +     .00003,    .00040,    .00090 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16634,    .03728,    .01861,    .00040,    .00014,
     +     .00004,    .00037,    .00084,
     +     .15833,    .03531,    .01659,    .00038,    .00014,
     +     .00004,    .00035,    .00079,
     +     .14921,    .03309,    .01449,    .00036,    .00014,
     +     .00004,    .00033,    .00073,
     +     .14166,    .03126,    .01290,    .00034,    .00014,
     +     .00004,    .00031,    .00069,
     +     .13512,    .02967,    .01163,    .00033,    .00014,
     +     .00004,    .00029,    .00065,
     +     .12731,    .02780,    .01024,    .00030,    .00014,
     +     .00004,    .00026,    .00059,
     +     .12042,    .02617,    .00912,    .00028,    .00014,
     +     .00004,    .00024,    .00055,
     +     .11436,    .02474,    .00821,    .00027,    .00014,
     +     .00004,    .00023,    .00051 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10863,    .02339,    .00742,    .00025,    .00014,
     +     .00004,    .00022,    .00047,
     +     .10336,    .02215,    .00674,    .00024,    .00014,
     +     .00004,    .00021,    .00044,
     +     .09865,    .02104,    .00616,    .00022,    .00014,
     +     .00004,    .00020,    .00041,
     +     .09439,    .02006,    .00568,    .00021,    .00014,
     +     .00004,    .00019,    .00039,
     +     .09033,    .01912,    .00524,    .00021,    .00014,
     +     .00004,    .00018,    .00037,
     +     .08651,    .01825,    .00486,    .00020,    .00014,
     +     .00004,    .00017,    .00034,
     +     .08307,    .01747,    .00452,    .00019,    .00014,
     +     .00004,    .00016,    .00032,
     +     .07994,    .01675,    .00423,    .00017,    .00014,
     +     .00004,    .00015,    .00031 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07694,    .01607,    .00396,    .00016,    .00014,
     +     .00004,    .00015,    .00031,
     +     .07406,    .01542,    .00372,    .00015,    .00014,
     +     .00004,    .00014,    .00029,
     +     .07142,    .01483,    .00351,    .00016,    .00014,
     +     .00004,    .00013,    .00028,
     +     .06902,    .01430,    .00332,    .00016,    .00014,
     +     .00004,    .00013,    .00026,
     +     .06669,    .01377,    .00314,    .00015,    .00014,
     +     .00004,    .00012,    .00025 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .35974,    .08493,    .14785,    .00048,    .00000,
     +     .00000,    .00064,    .00179,
     +     .33960,    .07959,    .12646,    .00047,    .00000,
     +     .00000,    .00060,    .00167,
     +     .31226,    .07242,    .10088,    .00043,    .00000,
     +     .00000,    .00054,    .00152,
     +     .29404,    .06774,    .08571,    .00044,    .00001,
     +     .00000,    .00052,    .00138,
     +     .27627,    .06319,    .07220,    .00043,    .00004,
     +     .00000,    .00049,    .00128,
     +     .26200,    .05956,    .06251,    .00040,    .00005,
     +     .00000,    .00047,    .00119,
     +     .24913,    .05630,    .05460,    .00038,    .00006,
     +     .00000,    .00044,    .00112,
     +     .23629,    .05308,    .04745,    .00037,    .00007,
     +     .00000,    .00041,    .00105 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22575,    .05046,    .04210,    .00035,    .00007,
     +     .00000,    .00040,    .00097,
     +     .21610,    .04809,    .03759,    .00035,    .00007,
     +     .00000,    .00039,    .00091,
     +     .20880,    .04630,    .03441,    .00036,    .00007,
     +     .00000,    .00037,    .00087,
     +     .19425,    .04274,    .02858,    .00030,    .00007,
     +     .00000,    .00034,    .00081,
     +     .18260,    .03992,    .02438,    .00029,    .00007,
     +     .00001,    .00032,    .00074,
     +     .17052,    .03703,    .02052,    .00027,    .00007,
     +     .00001,    .00030,    .00067,
     +     .15894,    .03427,    .01728,    .00024,    .00007,
     +     .00001,    .00027,    .00062,
     +     .14921,    .03197,    .01487,    .00023,    .00007,
     +     .00001,    .00024,    .00057 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .14006,    .02984,    .01284,    .00022,    .00007,
     +     .00001,    .00023,    .00052,
     +     .13300,    .02820,    .01141,    .00020,    .00007,
     +     .00001,    .00022,    .00048,
     +     .12494,    .02634,    .00994,    .00020,    .00007,
     +     .00001,    .00020,    .00045,
     +     .11828,    .02481,    .00884,    .00019,    .00007,
     +     .00001,    .00018,    .00042,
     +     .11253,    .02350,    .00795,    .00019,    .00007,
     +     .00001,    .00017,    .00039,
     +     .10571,    .02194,    .00700,    .00015,    .00007,
     +     .00001,    .00016,    .00036,
     +     .09970,    .02059,    .00623,    .00015,    .00007,
     +     .00001,    .00015,    .00033,
     +     .09442,    .01942,    .00560,    .00015,    .00007,
     +     .00001,    .00014,    .00030 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08944,    .01831,    .00506,    .00015,    .00007,
     +     .00001,    .00013,    .00029,
     +     .08488,    .01730,    .00459,    .00014,    .00007,
     +     .00001,    .00012,    .00027,
     +     .08082,    .01640,    .00419,    .00013,    .00007,
     +     .00001,    .00012,    .00025,
     +     .07716,    .01560,    .00387,    .00012,    .00007,
     +     .00001,    .00011,    .00023,
     +     .07369,    .01484,    .00357,    .00012,    .00007,
     +     .00001,    .00010,    .00022,
     +     .07041,    .01413,    .00330,    .00011,    .00007,
     +     .00001,    .00010,    .00021,
     +     .06746,    .01349,    .00307,    .00010,    .00007,
     +     .00001,    .00009,    .00020,
     +     .06479,    .01292,    .00288,    .00010,    .00007,
     +     .00001,    .00009,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06223,    .01237,    .00269,    .00010,    .00007,
     +     .00001,    .00008,    .00018,
     +     .05980,    .01185,    .00253,    .00009,    .00007,
     +     .00001,    .00008,    .00017,
     +     .05758,    .01137,    .00238,    .00009,    .00007,
     +     .00001,    .00007,    .00016,
     +     .05556,    .01094,    .00225,    .00009,    .00007,
     +     .00001,    .00007,    .00015,
     +     .05360,    .01053,    .00213,    .00008,    .00007,
     +     .00001,    .00007,    .00014 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .31531,    .07055,    .10921,    .00024,    .00000,
     +     .00000,    .00042,    .00116,
     +     .29657,    .06589,    .09260,    .00023,    .00000,
     +     .00000,    .00040,    .00107,
     +     .27128,    .05968,    .07295,    .00024,    .00000,
     +     .00000,    .00036,    .00095,
     +     .25459,    .05561,    .06147,    .00022,    .00001,
     +     .00000,    .00035,    .00087,
     +     .23831,    .05168,    .05139,    .00022,    .00002,
     +     .00000,    .00031,    .00081,
     +     .22528,    .04857,    .04420,    .00022,    .00003,
     +     .00000,    .00031,    .00075,
     +     .21361,    .04579,    .03838,    .00020,    .00003,
     +     .00000,    .00029,    .00070,
     +     .20202,    .04304,    .03316,    .00018,    .00003,
     +     .00000,    .00026,    .00066 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .19253,    .04082,    .02929,    .00018,    .00003,
     +     .00000,    .00025,    .00060,
     +     .18384,    .03880,    .02605,    .00017,    .00003,
     +     .00000,    .00024,    .00057,
     +     .17729,    .03729,    .02377,    .00017,    .00003,
     +     .00000,    .00023,    .00055,
     +     .16421,    .03429,    .01963,    .00017,    .00003,
     +     .00000,    .00022,    .00049,
     +     .15385,    .03193,    .01667,    .00015,    .00003,
     +     .00000,    .00021,    .00045,
     +     .14315,    .02950,    .01397,    .00013,    .00003,
     +     .00000,    .00018,    .00041,
     +     .13289,    .02720,    .01172,    .00014,    .00003,
     +     .00000,    .00017,    .00037,
     +     .12433,    .02529,    .01005,    .00013,    .00003,
     +     .00000,    .00016,    .00034 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11638,    .02352,    .00867,    .00009,    .00003,
     +     .00000,    .00014,    .00032,
     +     .11017,    .02216,    .00769,    .00011,    .00003,
     +     .00000,    .00013,    .00030,
     +     .10313,    .02063,    .00669,    .00010,    .00003,
     +     .00000,    .00012,    .00028,
     +     .09736,    .01939,    .00594,    .00010,    .00003,
     +     .00000,    .00011,    .00025,
     +     .09239,    .01832,    .00534,    .00010,    .00003,
     +     .00000,    .00010,    .00023,
     +     .08650,    .01705,    .00470,    .00009,    .00003,
     +     .00000,    .00010,    .00021,
     +     .08135,    .01595,    .00418,    .00008,    .00003,
     +     .00000,    .00009,    .00020,
     +     .07683,    .01500,    .00376,    .00008,    .00003,
     +     .00000,    .00009,    .00018 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07259,    .01410,    .00339,    .00007,    .00003,
     +     .00000,    .00008,    .00017,
     +     .06871,    .01329,    .00308,    .00007,    .00003,
     +     .00000,    .00008,    .00016,
     +     .06525,    .01257,    .00281,    .00006,    .00003,
     +     .00000,    .00008,    .00015,
     +     .06215,    .01192,    .00259,    .00006,    .00003,
     +     .00000,    .00007,    .00014,
     +     .05921,    .01132,    .00239,    .00006,    .00003,
     +     .00000,    .00006,    .00013,
     +     .05646,    .01075,    .00222,    .00006,    .00003,
     +     .00000,    .00006,    .00013,
     +     .05399,    .01025,    .00206,    .00006,    .00003,
     +     .00000,    .00006,    .00012,
     +     .05175,    .00979,    .00193,    .00005,    .00003,
     +     .00000,    .00006,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04960,    .00936,    .00181,    .00005,    .00003,
     +     .00000,    .00005,    .00011,
     +     .04758,    .00895,    .00170,    .00004,    .00003,
     +     .00000,    .00005,    .00010,
     +     .04573,    .00857,    .00160,    .00004,    .00003,
     +     .00000,    .00005,    .00010,
     +     .04405,    .00824,    .00151,    .00004,    .00003,
     +     .00000,    .00005,    .00009,
     +     .04242,    .00791,    .00143,    .00004,    .00003,
     +     .00000,    .00004,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .27270,    .05784,    .07827,    .00017,    .00000,
     +     .00000,    .00023,    .00071,
     +     .25557,    .05386,    .06581,    .00018,    .00000,
     +     .00000,    .00021,    .00063,
     +     .23260,    .04854,    .05126,    .00017,    .00000,
     +     .00000,    .00019,    .00057,
     +     .21751,    .04507,    .04287,    .00016,    .00000,
     +     .00000,    .00018,    .00051,
     +     .20291,    .04174,    .03558,    .00015,    .00001,
     +     .00000,    .00017,    .00045,
     +     .19120,    .03911,    .03043,    .00015,    .00001,
     +     .00000,    .00016,    .00043,
     +     .18074,    .03676,    .02631,    .00015,    .00001,
     +     .00000,    .00016,    .00040,
     +     .17040,    .03445,    .02263,    .00015,    .00001,
     +     .00000,    .00015,    .00037 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .16197,    .03260,    .01990,    .00013,    .00001,
     +     .00000,    .00013,    .00035,
     +     .15429,    .03091,    .01764,    .00012,    .00001,
     +     .00000,    .00012,    .00033,
     +     .14852,    .02964,    .01607,    .00012,    .00001,
     +     .00000,    .00012,    .00031,
     +     .13703,    .02714,    .01321,    .00010,    .00001,
     +     .00000,    .00011,    .00029,
     +     .12793,    .02518,    .01118,    .00010,    .00001,
     +     .00000,    .00009,    .00026,
     +     .11857,    .02319,    .00934,    .00010,    .00001,
     +     .00000,    .00009,    .00024,
     +     .10967,    .02130,    .00782,    .00010,    .00001,
     +     .00000,    .00009,    .00021,
     +     .10226,    .01974,    .00670,    .00009,    .00001,
     +     .00000,    .00008,    .00019 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09537,    .01830,    .00576,    .00008,    .00001,
     +     .00000,    .00007,    .00017,
     +     .09006,    .01720,    .00511,    .00007,    .00001,
     +     .00000,    .00007,    .00016,
     +     .08405,    .01596,    .00445,    .00007,    .00001,
     +     .00000,    .00006,    .00014,
     +     .07911,    .01495,    .00395,    .00007,    .00001,
     +     .00000,    .00006,    .00013,
     +     .07487,    .01410,    .00355,    .00008,    .00001,
     +     .00000,    .00005,    .00012,
     +     .06989,    .01308,    .00312,    .00006,    .00001,
     +     .00000,    .00005,    .00011,
     +     .06552,    .01220,    .00278,    .00006,    .00001,
     +     .00000,    .00004,    .00011,
     +     .06171,    .01144,    .00250,    .00006,    .00001,
     +     .00000,    .00004,    .00010 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05815,    .01073,    .00226,    .00005,    .00001,
     +     .00000,    .00004,    .00010,
     +     .05489,    .01008,    .00205,    .00005,    .00001,
     +     .00000,    .00004,    .00009,
     +     .05199,    .00951,    .00187,    .00004,    .00001,
     +     .00000,    .00003,    .00009,
     +     .04941,    .00901,    .00172,    .00004,    .00001,
     +     .00000,    .00003,    .00008,
     +     .04696,    .00853,    .00159,    .00004,    .00001,
     +     .00000,    .00003,    .00008,
     +     .04469,    .00809,    .00147,    .00004,    .00001,
     +     .00000,    .00003,    .00007,
     +     .04265,    .00769,    .00137,    .00004,    .00001,
     +     .00000,    .00003,    .00006,
     +     .04079,    .00734,    .00129,    .00004,    .00001,
     +     .00000,    .00003,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03902,    .00700,    .00120,    .00004,    .00001,
     +     .00000,    .00002,    .00005,
     +     .03735,    .00668,    .00113,    .00004,    .00001,
     +     .00000,    .00002,    .00005,
     +     .03584,    .00639,    .00106,    .00003,    .00001,
     +     .00000,    .00002,    .00005,
     +     .03447,    .00613,    .00101,    .00003,    .00001,
     +     .00000,    .00002,    .00005,
     +     .03313,    .00587,    .00095,    .00003,    .00001,
     +     .00000,    .00002,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .23208,    .04650,    .05398,    .00006,    .00000,
     +     .00000,    .00017,    .00043,
     +     .21675,    .04312,    .04504,    .00004,    .00000,
     +     .00000,    .00014,    .00040,
     +     .19624,    .03866,    .03472,    .00006,    .00000,
     +     .00000,    .00013,    .00035,
     +     .18284,    .03576,    .02883,    .00004,    .00000,
     +     .00000,    .00012,    .00033,
     +     .16990,    .03301,    .02378,    .00004,    .00000,
     +     .00000,    .00012,    .00028,
     +     .15959,    .03082,    .02023,    .00004,    .00000,
     +     .00000,    .00010,    .00027,
     +     .15040,    .02889,    .01740,    .00004,    .00000,
     +     .00000,    .00009,    .00025,
     +     .14135,    .02699,    .01490,    .00004,    .00000,
     +     .00000,    .00008,    .00023 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13399,    .02546,    .01307,    .00003,    .00000,
     +     .00000,    .00009,    .00022,
     +     .12729,    .02409,    .01155,    .00004,    .00000,
     +     .00000,    .00009,    .00020,
     +     .12226,    .02306,    .01050,    .00005,    .00000,
     +     .00000,    .00008,    .00019,
     +     .11232,    .02102,    .00860,    .00004,    .00000,
     +     .00000,    .00006,    .00019,
     +     .10450,    .01944,    .00726,    .00004,    .00000,
     +     .00000,    .00006,    .00016,
     +     .09649,    .01783,    .00606,    .00003,    .00000,
     +     .00000,    .00006,    .00014,
     +     .08889,    .01632,    .00506,    .00003,    .00000,
     +     .00000,    .00006,    .00012,
     +     .08258,    .01507,    .00433,    .00004,    .00000,
     +     .00000,    .00005,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07673,    .01392,    .00373,    .00004,    .00000,
     +     .00000,    .00004,    .00010,
     +     .07225,    .01305,    .00331,    .00003,    .00000,
     +     .00000,    .00004,    .00010,
     +     .06720,    .01206,    .00288,    .00003,    .00000,
     +     .00000,    .00004,    .00009,
     +     .06307,    .01127,    .00255,    .00003,    .00000,
     +     .00000,    .00003,    .00008,
     +     .05952,    .01059,    .00230,    .00003,    .00000,
     +     .00000,    .00003,    .00007,
     +     .05536,    .00979,    .00202,    .00002,    .00000,
     +     .00000,    .00003,    .00007,
     +     .05174,    .00911,    .00180,    .00002,    .00000,
     +     .00000,    .00003,    .00006,
     +     .04858,    .00852,    .00162,    .00003,    .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=25,32)/
     +     .04565,    .00796,    .00147,    .00002,    .00000,
     +     .00000,    .00003,    .00005,
     +     .04298,    .00746,    .00133,    .00002,    .00000,
     +     .00000,    .00003,    .00005,
     +     .04061,    .00702,    .00122,    .00001,    .00000,
     +     .00000,    .00002,    .00005,
     +     .03850,    .00663,    .00112,    .00002,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03650,    .00627,    .00103,    .00002,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03465,    .00593,    .00096,    .00002,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03299,    .00563,    .00089,    .00001,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03150,    .00535,    .00083,    .00001,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03007,    .00510,    .00078,    .00002,    .00000,
     +     .00000,    .00002,    .00003,
     +     .02872,    .00485,    .00073,    .00001,    .00000,
     +     .00000,    .00002,    .00003,
     +     .02750,    .00463,    .00069,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02640,    .00444,    .00065,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02532,    .00424,    .00062,    .00001,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .16006,    .02849,    .02298,    .00004,    .00000,
     +     .00000,    .00004,    .00013,
     +     .14833,    .02623,    .01890,    .00003,    .00000,
     +     .00000,    .00005,    .00012,
     +     .13286,    .02326,    .01431,    .00001,    .00000,
     +     .00000,    .00003,    .00011,
     +     .12278,    .02136,    .01175,    .00002,    .00000,
     +     .00000,    .00003,    .00009,
     +     .11320,    .01954,    .00959,    .00001,    .00000,
     +     .00000,    .00003,    .00008,
     +     .10561,    .01813,    .00810,    .00001,    .00000,
     +     .00000,    .00003,    .00008,
     +     .09890,    .01689,    .00693,    .00001,    .00000,
     +     .00000,    .00002,    .00008,
     +     .09234,    .01567,    .00590,    .00000,    .00000,
     +     .00000,    .00002,    .00008 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08703,    .01470,    .00516,    .00000,    .00000,
     +     .00000,    .00003,    .00007,
     +     .08224,    .01383,    .00455,    .00000,    .00000,
     +     .00000,    .00003,    .00006,
     +     .07867,    .01319,    .00413,    .00001,    .00000,
     +     .00000,    .00003,    .00005,
     +     .07164,    .01192,    .00337,    .00000,    .00000,
     +     .00000,    .00002,    .00005,
     +     .06615,    .01094,    .00284,    .00000,    .00000,
     +     .00000,    .00002,    .00005,
     +     .06057,    .00995,    .00237,    .00001,    .00000,
     +     .00000,    .00002,    .00004,
     +     .05533,    .00903,    .00199,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .05102,    .00828,    .00171,    .00001,    .00000,
     +     .00000,    .00001,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04707,    .00759,    .00147,    .00000,    .00000,
     +     .00000,    .00001,    .00003,
     +     .04405,    .00707,    .00131,    .00000,    .00000,
     +     .00000,    .00001,    .00003,
     +     .04067,    .00649,    .00114,    .00000,    .00000,
     +     .00000,    .00001,    .00003,
     +     .03793,    .00603,    .00102,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03561,    .00563,    .00092,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03288,    .00517,    .00081,    .00000,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03052,    .00478,    .00072,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02849,    .00444,    .00065,    .00001,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02661,    .00413,    .00059,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02491,    .00385,    .00054,    .00000,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02340,    .00360,    .00049,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02207,    .00338,    .00045,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02083,    .00318,    .00042,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01967,    .00300,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01863,    .00283,    .00036,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01771,    .00268,    .00034,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01684,    .00254,    .00032,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01602,    .00241,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01528,    .00229,    .00028,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01461,    .00218,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01396,    .00208,    .00025,    .00000,    .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=1,8)/
     +     .10163,    .01587,    .00813,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .09342,    .01449,    .00662,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .08268,    .01269,    .00497,    .00001,    .00000,
     +     .00000,    .00000,    .00002,
     +     .07577,    .01156,    .00405,    .00001,    .00000,
     +     .00000,    .00000,    .00002,
     +     .06925,    .01049,    .00330,    .00000,    .00000,
     +     .00000,    .00000,    .00002,
     +     .06414,    .00967,    .00278,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .05965,    .00894,    .00238,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .05529,    .00824,    .00203,    .00001,    .00000,
     +     .00000,    .00000,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05179,    .00769,    .00178,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04865,    .00719,    .00157,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04632,    .00682,    .00143,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04181,    .00611,    .00117,   -.00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03828,    .00556,    .00099,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03474,    .00501,    .00084,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03145,    .00451,    .00070,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02877,    .00410,    .00061,    .00000,    .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=17,24)/
     +     .02632,    .00373,    .00053,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02447,    .00345,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02242,    .00315,    .00041,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02077,    .00290,    .00037,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01938,    .00269,    .00033,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01776,    .00246,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01637,    .00225,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01518,    .00208,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01408,    .00192,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01310,    .00178,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01224,    .00166,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01148,    .00155,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01077,    .00145,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01012,    .00136,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00954,    .00128,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00903,    .00120,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00854,    .00113,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00809,    .00107,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00768,    .00101,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00731,    .00096,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00696,    .00091,    .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=1,8)/
     +     .05789,    .00779,    .00228,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05272,    .00705,    .00185,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04604,    .00610,    .00140,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04180,    .00550,    .00115,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03785,    .00494,    .00094,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03477,    .00452,    .00080,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03208,    .00415,    .00069,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02949,    .00379,    .00059,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02745,    .00351,    .00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02562,    .00326,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02427,    .00308,    .00043,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02165,    .00273,    .00036,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01964,    .00247,    .00031,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01766,    .00220,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01583,    .00196,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01435,    .00177,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01301,    .00159,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01201,    .00146,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01090,    .00132,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01002,    .00121,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00928,    .00112,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00844,    .00101,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00772,    .00092,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00710,    .00084,    .00008,    .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)/
     +     .00654,    .00077,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00604,    .00071,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00561,    .00066,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00523,    .00061,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00487,    .00057,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00455,    .00053,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00427,    .00049,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00402,    .00046,    .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)/
     +     .00378,    .00043,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00356,    .00041,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00336,    .00038,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00319,    .00036,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00302,    .00034,    .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)/
     +     .02817,    .00317,    .00046,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02538,    .00284,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02183,    .00242,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01961,    .00216,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01755,    .00192,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01598,    .00174,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01461,    .00158,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01331,    .00144,    .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)/
     +     .01228,    .00132,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01138,    .00122,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01072,    .00114,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00944,    .00100,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00848,    .00089,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00753,    .00079,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00667,    .00069,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00598,    .00062,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00537,    .00055,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00491,    .00050,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00442,    .00045,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00402,    .00041,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00370,    .00037,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00332,    .00033,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00301,    .00030,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00275,    .00027,    .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)/
     +     .00251,    .00025,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00230,    .00023,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00021,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00196,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00181,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00168,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00157,    .00015,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00014,    .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)/
     +     .00137,    .00013,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00128,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00121,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00114,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00107,    .00010,    .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)/
     +     .00270,    .00018,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00236,    .00016,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00194,    .00013,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00169,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00146,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00129,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00115,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00102,    .00007,    .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=9,16)/
     +     .00092,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00084,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00077,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00066,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00057,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00049,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .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=17,24)/
     +     .00032,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00028,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00022,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .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=25,32)/
     +     .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,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .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)/
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .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=2,file='mrschm2.dat',status='old')
        do 20 n=1,nx-1
        do 20 m=1,nq
C        read(2,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