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

sfmrs_98a1.F

#include "pdf/pilot.h"
      subroutine sfmrs_98a1(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)/
     +     .00561,    .00197,   1.10471,    .90600,    .00000,
     +     .00000,    .48249,    .91923,
     +     .00578,    .00203,   2.36773,    .94053,    .00000,
     +     .00000,    .52228,    .95384,
     +     .00602,    .00212,   4.85065,   1.01613,    .03353,
     +     .00000,    .60536,   1.02952,
     +     .00620,    .00220,   7.24471,   1.08931,    .11230,
     +     .00000,    .68380,   1.10274,
     +     .00639,    .00227,  10.29794,   1.18627,    .20172,
     +     .00000,    .78613,   1.19974,
     +     .00656,    .00234,  13.42391,   1.28676,    .29456,
     +     .00000,    .89113,   1.30026,
     +     .00671,    .00241,  16.94081,   1.39695,    .40086,
     +     .00000,   1.00554,   1.41047,
     +     .00688,    .00248,  21.26545,   1.52977,    .53187,
     +     .00000,   1.14272,   1.54330 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00703,    .00254,  25.47171,   1.66063,    .65795,
     +     .00000,   1.27728,   1.67416,
     +     .00718,    .00260,  29.98664,   1.80007,    .79345,
     +     .00000,   1.42023,   1.81361,
     +     .00729,    .00265,  33.94270,   1.91972,    .91255,
     +     .00000,   1.54261,   1.93325,
     +     .00754,    .00276,  43.25138,   2.20531,   1.19366,
     +     .02232,   1.83388,   2.21884,
     +     .00775,    .00286,  52.29885,   2.48517,   1.46846,
     +     .34284,   2.11850,   2.49868,
     +     .00799,    .00297,  63.74070,   2.83776,   1.81685,
     +     .74324,   2.47627,   2.85124,
     +     .00824,    .00308,  77.17352,   3.25071,   2.22591,
     +    1.16993,   2.89446,   3.26415,
     +     .00848,    .00319,  90.75123,   3.66780,   2.63998,
     +    1.60230,   3.31617,   3.68120 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00871,    .00330, 105.84562,   4.13171,   3.10183,
     +    2.08276,   3.78462,   4.14507,
     +     .00891,    .00339, 119.39506,   4.55033,   3.51777,
     +    2.51062,   4.20692,   4.56364,
     +     .00915,    .00350, 137.06960,   5.09943,   4.06291,
     +    3.06933,   4.76038,   5.11268,
     +     .00937,    .00360, 153.96635,   5.62542,   4.58697,
     +    3.60897,   5.29015,   5.63862,
     +     .00957,    .00370, 170.51894,   6.14230,   5.10305,
     +    4.14077,   5.81041,   6.15545,
     +     .00982,    .00382, 192.70662,   6.84285,   5.79974,
     +    4.85192,   6.51515,   6.85592,
     +     .01007,    .00394, 215.04366,   7.55173,   6.50652,
     +    5.57537,   7.22789,   7.56473,
     +     .01029,    .00405, 237.36935,   8.26299,   7.21796,
     +    6.30608,   7.94268,   8.27592 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01053,    .00416, 260.57272,   9.01277,   7.96432,
     +    7.06533,   8.69592,   9.02563,
     +     .01075,    .00427, 284.58243,   9.79204,   8.74248,
     +    7.86004,   9.47850,   9.80483,
     +     .01097,    .00438, 308.40543,  10.57068,   9.52067,
     +    8.65469,  10.26023,  10.58341,
     +     .01118,    .00448, 331.58652,  11.33677,  10.28490,
     +    9.43216,  11.02917,  11.34943,
     +     .01139,    .00458, 356.04791,  12.14770,  11.09644,
     +   10.26084,  11.84290,  12.16029,
     +     .01160,    .00468, 380.61456,  12.97325,  11.91995,
     +   11.09709,  12.67118,  12.98578,
     +     .01180,    .00478, 405.12000,  13.79840,  12.74602,
     +   11.93965,  13.49886,  13.81086,
     +     .01199,    .00488, 428.62674,  14.60066,  13.54674,
     +   12.75214,  14.30350,  14.61306 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01218,    .00497, 453.32101,  15.44594,  14.39258,
     +   13.61299,  15.15113,  15.45827,
     +     .01238,    .00507, 478.15240,  16.30483,  15.25098,
     +   14.48462,  16.01231,  16.31710,
     +     .01256,    .00516, 502.51834,  17.15307,  16.09923,
     +   15.34610,  16.86271,  17.16528,
     +     .01274,    .00525, 526.31989,  17.98590,  16.93307,
     +   16.19394,  17.69755,  17.99805,
     +     .01292,    .00534, 550.58600,  18.84514,  17.79156,
     +   17.06390,  18.55881,  18.85723 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00753,    .00271,   1.03309,    .76815,    .00000,
     +     .00000,    .40841,    .77580,
     +     .00776,    .00281,   2.17036,    .80012,    .00000,
     +     .00000,    .44453,    .80781,
     +     .00810,    .00295,   4.35702,    .86694,    .02905,
     +     .00000,    .51723,    .87467,
     +     .00835,    .00306,   6.42141,    .92994,    .09674,
     +     .00000,    .58437,    .93769,
     +     .00862,    .00317,   9.00923,   1.01187,    .17212,
     +     .00000,    .67051,   1.01965,
     +     .00885,    .00327,  11.61842,   1.09563,    .24944,
     +     .00000,    .75779,   1.10341,
     +     .00907,    .00337,  14.51723,   1.18662,    .33708,
     +     .00000,    .85209,   1.19442,
     +     .00930,    .00347,  18.03845,   1.29538,    .44407,
     +     .00000,    .96425,   1.30318 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00951,    .00357,  21.42296,   1.40156,    .54607,
     +     .00000,   1.07333,   1.40937,
     +     .00970,    .00366,  25.01979,   1.51391,    .65488,
     +     .00000,   1.18841,   1.52171,
     +     .00986,    .00373,  28.14594,   1.60980,    .74993,
     +     .00000,   1.28642,   1.61760,
     +     .01020,    .00389,  35.41249,   1.83670,    .97229,
     +     .01814,   1.51775,   1.84450,
     +     .01049,    .00402,  42.37106,   2.05680,   1.18739,
     +     .26843,   1.74155,   2.06459,
     +     .01082,    .00418,  51.05703,   2.33152,   1.45746,
     +     .57898,   2.02030,   2.33929,
     +     .01117,    .00434,  61.11814,   2.65009,   1.77136,
     +     .90590,   2.34293,   2.65785,
     +     .01149,    .00450,  71.16084,   2.96887,   2.08612,
     +    1.23397,   2.66529,   2.97660 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01181,    .00465,  82.19777,   3.32037,   2.43417,
     +    1.59526,   3.02031,   3.32808,
     +     .01208,    .00478,  92.00263,   3.63506,   2.74512,
     +    1.91435,   3.33785,   3.64274,
     +     .01241,    .00494, 104.66382,   4.04464,   3.14953,
     +    2.32772,   3.75081,   4.05229,
     +     .01271,    .00509, 116.64974,   4.43401,   3.53540,
     +    2.72403,   4.14310,   4.44164,
     +     .01298,    .00522, 128.29099,   4.81409,   3.91289,
     +    3.11200,   4.52579,   4.82169,
     +     .01333,    .00539, 143.74535,   5.32535,   4.41867,
     +    3.62678,   5.04030,   5.33292,
     +     .01366,    .00556, 159.15561,   5.83881,   4.92799,
     +    4.14666,   5.55674,   5.84634,
     +     .01397,    .00571, 174.42664,   6.35047,   5.43728,
     +    4.66836,   6.07113,   6.35797 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01428,    .00587, 190.15471,   6.88604,   5.96775,
     +    5.20637,   6.60938,   6.89351,
     +     .01459,    .00602, 206.30344,   7.43919,   6.51749,
     +    5.76624,   7.16509,   7.44663,
     +     .01488,    .00617, 222.20613,   7.98857,   7.06401,
     +    6.32278,   7.71684,   7.99597,
     +     .01516,    .00631, 237.56445,   8.52590,   7.59755,
     +    6.86401,   8.25637,   8.53327,
     +     .01544,    .00646, 253.67119,   9.09177,   8.16138,
     +    7.43825,   8.82442,   9.09911,
     +     .01572,    .00660, 269.72839,   9.66455,   8.73020,
     +    8.01419,   9.39930,   9.67185,
     +     .01599,    .00674, 285.65811,  10.23440,   9.29832,
     +    8.59216,   9.97111,  10.24167,
     +     .01625,    .00687, 300.83502,  10.78556,   9.84607,
     +    9.14638,  10.52411,  10.79280 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01650,    .00700, 316.69989,  11.36384,  10.42240,
     +    9.73143,  11.10421,  11.37105,
     +     .01676,    .00713, 332.55670,  11.94862,  11.00450,
     +   10.32092,  11.69076,  11.95580,
     +     .01701,    .00726, 348.03583,  12.52372,  11.57735,
     +   10.90119,  12.26753,  12.53087,
     +     .01725,    .00738, 363.08539,  13.08618,  12.13837,
     +   11.47021,  12.83155,  13.09331,
     +     .01749,    .00750, 378.34149,  13.66394,  12.71339,
     +   12.05136,  13.41087,  13.67104 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01011,    .00374,    .96718,    .65095,    .00000,
     +     .00000,    .34580,    .65472,
     +     .01043,    .00388,   1.99070,    .68033,    .00000,
     +     .00000,    .37843,    .68411,
     +     .01091,    .00410,   3.91487,    .73926,    .02517,
     +     .00000,    .44199,    .74306,
     +     .01125,    .00426,   5.69270,    .79347,    .08332,
     +     .00000,    .49943,    .79727,
     +     .01162,    .00443,   7.88244,    .86266,    .14684,
     +     .00000,    .57192,    .86647,
     +     .01194,    .00457,  10.05591,    .93240,    .21118,
     +     .00000,    .64441,    .93621,
     +     .01224,    .00472,  12.43985,   1.00746,    .28338,
     +     .00000,    .72205,   1.01128,
     +     .01256,    .00487,  15.29970,   1.09638,    .37065,
     +     .00000,    .81362,   1.10020 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01285,    .00501,  18.01539,   1.18237,    .45308,
     +     .00000,    .90186,   1.18619,
     +     .01312,    .00514,  20.87217,   1.27268,    .54033,
     +     .00000,    .99430,   1.27650,
     +     .01334,    .00524,  23.33471,   1.34934,    .61609,
     +     .00000,   1.07262,   1.35316,
     +     .01380,    .00547,  28.98742,   1.52912,    .79170,
     +     .01473,   1.25583,   1.53294,
     +     .01421,    .00567,  34.31840,   1.70168,    .95977,
     +     .21007,   1.43126,   1.70550,
     +     .01466,    .00589,  40.88451,   1.91500,   1.16872,
     +     .45080,   1.64768,   1.91881,
     +     .01514,    .00613,  48.38616,   2.15985,   1.40908,
     +     .70111,   1.89568,   2.16365,
     +     .01557,    .00634,  55.77837,   2.40252,   1.64778,
     +     .94981,   2.14111,   2.40631 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01602,    .00657,  63.80739,   2.66775,   1.90939,
     +    1.22122,   2.40905,   2.67154,
     +     .01638,    .00675,  70.86452,   2.90328,   2.14124,
     +    1.45889,   2.64678,   2.90706,
     +     .01683,    .00698,  79.88329,   3.20740,   2.44038,
     +    1.76431,   2.95351,   3.21117,
     +     .01723,    .00718,  88.33579,   3.49430,   2.72364,
     +    2.05491,   3.24264,   3.49806,
     +     .01760,    .00737,  96.47317,   3.77243,   2.99888,
     +    2.33748,   3.52279,   3.77618,
     +     .01807,    .00761, 107.16874,   4.14370,   3.36482,
     +    2.70939,   3.89655,   4.14744,
     +     .01852,    .00784, 117.72968,   4.51370,   3.73055,
     +    3.08220,   4.26884,   4.51743,
     +     .01894,    .00806, 128.10362,   4.87985,   4.09379,
     +    3.45383,   4.63708,   4.88357 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01936,    .00828, 138.68785,   5.26033,   4.46936,
     +    3.83413,   5.01962,   5.26405,
     +     .01978,    .00849, 149.46895,   5.65081,   4.85618,
     +    4.22752,   5.41206,   5.65451,
     +     .02017,    .00870, 160.00351,   6.03624,   5.23841,
     +    4.61622,   5.79931,   6.03993,
     +     .02055,    .00890, 170.09836,   6.41092,   5.60929,
     +    4.99187,   6.17568,   6.41461,
     +     .02093,    .00910, 180.61845,   6.80349,   5.99931,
     +    5.38856,   6.56992,   6.80717,
     +     .02131,    .00929, 191.02507,   7.19849,   6.39039,
     +    5.78391,   6.96652,   7.20216,
     +     .02166,    .00948, 201.29182,   7.58963,   6.77930,
     +    6.17905,   7.35918,   7.59330,
     +     .02201,    .00966, 211.00383,   7.96592,   7.15217,
     +    6.55574,   7.73687,   7.96957 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02235,    .00985, 221.10471,   8.35904,   7.54294,
     +    6.95188,   8.13139,   8.36269,
     +     .02270,    .01003, 231.13649,   8.75464,   7.93567,
     +    7.34903,   8.52834,   8.75828,
     +     .02303,    .01020, 240.87697,   9.14201,   8.32055,
     +    7.73834,   8.91699,   9.14565,
     +     .02334,    .01037, 250.30145,   9.51937,   8.69603,
     +    8.11869,   9.29555,   9.52300,
     +     .02366,    .01054, 259.79730,   9.90523,   9.07909,
     +    8.50525,   9.68260,   9.90885 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01201,    .00452,    .93144,    .59072,    .00000,
     +     .00000,    .31378,    .59289,
     +     .01240,    .00470,   1.89359,    .61858,    .00000,
     +     .00000,    .34448,    .62076,
     +     .01298,    .00497,   3.67831,    .67328,    .02314,
     +     .00000,    .40319,    .67546,
     +     .01340,    .00517,   5.30621,    .72290,    .07633,
     +     .00000,    .45562,    .72508,
     +     .01384,    .00538,   7.29032,    .78555,    .13378,
     +     .00000,    .52114,    .78774,
     +     .01422,    .00557,   9.24132,    .84817,    .19154,
     +     .00000,    .58614,    .85036,
     +     .01459,    .00575,  11.36494,    .91519,    .25597,
     +     .00000,    .65538,    .91738,
     +     .01498,    .00594,  13.89359,    .99415,    .33339,
     +     .00000,    .73664,    .99635 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01532,    .00611,  16.27741,   1.07008,    .40611,
     +     .00000,    .81451,   1.07227,
     +     .01565,    .00627,  18.76988,   1.14946,    .48273,
     +     .00000,    .89573,   1.15166,
     +     .01592,    .00640,  20.90785,   1.21663,    .54901,
     +     .00000,    .96433,   1.21883,
     +     .01648,    .00668,  25.77876,   1.37328,    .70184,
     +     .01304,   1.12394,   1.37548,
     +     .01696,    .00693,  30.33041,   1.52269,    .84717,
     +     .18194,   1.27582,   1.52489,
     +     .01751,    .00720,  35.89206,   1.70632,   1.02679,
     +     .38925,   1.46212,   1.70852,
     +     .01808,    .00749,  42.19401,   1.91581,   1.23215,
     +     .60325,   1.67431,   1.91801,
     +     .01861,    .00776,  48.35643,   2.12224,   1.43491,
     +     .81463,   1.88312,   2.12444 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01914,    .00803,  55.00278,   2.34667,   1.65597,
     +    1.04405,   2.10988,   2.34887,
     +     .01958,    .00826,  60.80730,   2.54501,   1.85093,
     +    1.24394,   2.31010,   2.54721,
     +     .02012,    .00854,  68.17922,   2.79989,   2.10129,
     +    1.49957,   2.56721,   2.80209,
     +     .02059,    .00879,  75.04684,   3.03923,   2.33727,
     +    1.74171,   2.80847,   3.04143,
     +     .02104,    .00902,  81.62362,   3.27031,   2.56566,
     +    1.97619,   3.04128,   3.27251,
     +     .02160,    .00932,  90.21609,   3.57736,   2.86791,
     +    2.28334,   3.35046,   3.57956,
     +     .02213,    .00959,  98.65054,   3.88196,   3.16862,
     +    2.58986,   3.65702,   3.88416,
     +     .02263,    .00986, 106.89218,   4.18214,   3.46608,
     +    2.89420,   3.95899,   4.18435 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02313,    .01013, 115.25281,   4.49272,   3.77228,
     +    3.20418,   4.27132,   4.49493,
     +     .02363,    .01039, 123.72848,   4.81025,   4.08649,
     +    3.52369,   4.59054,   4.81246,
     +     .02410,    .01064, 131.97169,   5.12252,   4.39585,
     +    3.83826,   4.90437,   5.12474,
     +     .02455,    .01088, 139.83319,   5.42499,   4.69493,
     +    4.14112,   5.20828,   5.42721,
     +     .02500,    .01112, 147.99515,   5.74092,   5.00852,
     +    4.46005,   5.52563,   5.74314,
     +     .02544,    .01136, 156.03061,   6.05767,   5.32182,
     +    4.77669,   5.84376,   6.05990,
     +     .02587,    .01158, 163.93205,   6.37048,   5.63257,
     +    5.09239,   6.15786,   6.37271,
     +     .02628,    .01180, 171.37337,   6.67041,   5.92951,
     +    5.39229,   6.45899,   6.67264 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02669,    .01202, 179.08960,   6.98298,   6.23996,
     +    5.70697,   6.77276,   6.98522,
     +     .02709,    .01224, 186.72308,   7.29659,   6.55104,
     +    6.02148,   7.08753,   7.29884,
     +     .02748,    .01245, 194.11092,   7.60289,   6.85513,
     +    6.32902,   7.39492,   7.60514,
     +     .02785,    .01265, 201.23827,   7.90058,   7.15112,
     +    6.62882,   7.69363,   7.90283,
     +     .02823,    .01286, 208.39236,   8.20412,   7.45223,
     +    6.93261,   7.99820,   8.20638 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01358,    .00517,    .90746,    .55133,    .00000,
     +     .00000,    .29292,    .55263,
     +     .01402,    .00538,   1.82824,    .57812,    .00000,
     +     .00000,    .32229,    .57942,
     +     .01468,    .00570,   3.51983,    .62997,    .02180,
     +     .00000,    .37778,    .63128,
     +     .01516,    .00594,   5.04854,    .67656,    .07173,
     +     .00000,    .42691,    .67787,
     +     .01567,    .00618,   6.89770,    .73494,    .12521,
     +     .00000,    .48788,    .73625,
     +     .01611,    .00640,   8.70376,    .79293,    .17869,
     +     .00000,    .54802,    .79425,
     +     .01653,    .00661,  10.65883,    .85474,    .23810,
     +     .00000,    .61184,    .85606,
     +     .01698,    .00684,  12.97433,    .92730,    .30919,
     +     .00000,    .68647,    .92862 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01737,    .00703,  15.14581,    .99676,    .37570,
     +     .00000,    .75769,    .99808,
     +     .01774,    .00722,  17.40632,   1.06916,    .44554,
     +     .00000,    .83174,   1.07048,
     +     .01804,    .00738,  19.33850,   1.13027,    .50581,
     +     .00000,    .89414,   1.13160,
     +     .01868,    .00770,  23.71672,   1.27223,    .64421,
     +     .01196,   1.03876,   1.27356,
     +     .01924,    .00799,  27.78081,   1.40700,    .77522,
     +     .16425,   1.17576,   1.40834,
     +     .01986,    .00831,  32.71822,   1.57194,    .93647,
     +     .35065,   1.34311,   1.57329,
     +     .02051,    .00865,  38.27973,   1.75929,   1.12000,
     +     .54205,   1.53288,   1.76064,
     +     .02111,    .00896,  43.68794,   1.94313,   1.30047,
     +     .73033,   1.71886,   1.94449 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02171,    .00927,  49.49134,   2.14224,   1.49647,
     +     .93387,   1.92007,   2.14361,
     +     .02221,    .00954,  54.53625,   2.31759,   1.66873,
     +    1.11057,   2.09710,   2.31896,
     +     .02283,    .00986,  60.91462,   2.54216,   1.88918,
     +    1.33577,   2.32367,   2.54354,
     +     .02337,    .01015,  66.83087,   2.75233,   2.09630,
     +    1.54837,   2.53557,   2.75372,
     +     .02387,    .01041,  72.47507,   2.95466,   2.29617,
     +    1.75367,   2.73945,   2.95606,
     +     .02451,    .01075,  79.81692,   3.22261,   2.55979,
     +    2.02165,   3.00932,   3.22402,
     +     .02511,    .01107,  86.99306,   3.48755,   2.82122,
     +    2.28821,   3.27601,   3.48897,
     +     .02568,    .01138,  93.97863,   3.74788,   3.07908,
     +    2.55213,   3.53794,   3.74930 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02625,    .01168, 101.03549,   4.01637,   3.34366,
     +    2.82003,   3.80800,   4.01780,
     +     .02681,    .01198, 108.16467,   4.29012,   3.61445,
     +    3.09546,   4.08326,   4.29157,
     +     .02734,    .01227, 115.07483,   4.55863,   3.88037,
     +    3.36593,   4.35317,   4.56009,
     +     .02785,    .01254, 121.64210,   4.81803,   4.13676,
     +    3.62561,   4.61386,   4.81950,
     +     .02836,    .01282, 128.44205,   5.08838,   4.40504,
     +    3.89853,   4.88548,   5.08986,
     +     .02886,    .01309, 135.11304,   5.35873,   4.67235,
     +    4.16873,   5.15706,   5.36022,
     +     .02934,    .01335, 141.65729,   5.62518,   4.93699,
     +    4.43767,   5.42468,   5.62669,
     +     .02980,    .01360, 147.80029,   5.88007,   5.18925,
     +    4.69247,   5.68063,   5.88158 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03026,    .01385, 154.15656,   6.14522,   5.45255,
     +    4.95943,   5.94685,   6.14674,
     +     .03072,    .01410, 160.42653,   6.41068,   5.71580,
     +    5.22563,   6.21335,   6.41222,
     +     .03116,    .01434, 166.48042,   6.66947,   5.97268,
     +    5.48547,   6.47312,   6.67102,
     +     .03158,    .01457, 172.30847,   6.92056,   6.22230,
     +    5.73837,   6.72513,   6.92212,
     +     .03200,    .01480, 178.14191,   7.17608,   6.47571,
     +    5.99406,   6.98156,   7.17765 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01493,    .00574,    .88973,    .52256,    .00000,
     +     .00000,    .27773,    .52332,
     +     .01543,    .00598,   1.77962,    .54853,    .00000,
     +     .00000,    .30609,    .54930,
     +     .01616,    .00634,   3.40212,    .59826,    .02081,
     +     .00000,    .35919,    .59903,
     +     .01669,    .00661,   4.85772,    .64261,    .06834,
     +     .00000,    .40591,    .64339,
     +     .01726,    .00689,   6.60803,    .69787,    .11893,
     +     .00000,    .46356,    .69865,
     +     .01774,    .00714,   8.30848,    .75250,    .16931,
     +     .00000,    .52018,    .75328,
     +     .01821,    .00737,  10.14129,    .81054,    .22508,
     +     .00000,    .58007,    .81133,
     +     .01871,    .00763,  12.30287,    .87845,    .29161,
     +     .00000,    .64991,    .87925 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01914,    .00785,  14.32166,    .94326,    .35364,
     +     .00000,    .71634,    .94406,
     +     .01956,    .00806,  16.41601,   1.01064,    .41862,
     +     .00000,    .78524,   1.01144,
     +     .01989,    .00824,  18.20122,   1.06740,    .47458,
     +     .00000,    .84319,   1.06821,
     +     .02060,    .00860,  22.22913,   1.19885,    .60269,
     +     .01118,    .97710,   1.19967,
     +     .02121,    .00892,  25.94849,   1.32319,    .72353,
     +     .15168,   1.10349,   1.32402,
     +     .02190,    .00929,  30.44667,   1.47486,    .87177,
     +     .32329,   1.25739,   1.47570,
     +     .02262,    .00966,  35.48980,   1.64654,   1.03990,
     +     .49878,   1.43131,   1.64739,
     +     .02328,    .01001,  40.37254,   1.81445,   1.20470,
     +     .67084,   1.60119,   1.81532 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02395,    .01037,  45.59117,   1.99577,   1.38314,
     +     .85627,   1.78444,   1.99665,
     +     .02450,    .01066,  50.11121,   2.15501,   1.53954,
     +    1.01680,   1.94524,   2.15590,
     +     .02518,    .01102,  55.80572,   2.35840,   1.73916,
     +    1.22082,   2.15047,   2.35931,
     +     .02578,    .01134,  61.06963,   2.54826,   1.92622,
     +    1.41295,   2.34191,   2.54918,
     +     .02633,    .01164,  66.07640,   2.73061,   2.10633,
     +    1.59805,   2.52569,   2.73154,
     +     .02703,    .01202,  72.56657,   2.97148,   2.34326,
     +    1.83900,   2.76831,   2.97243,
     +     .02770,    .01238,  78.88902,   3.20902,   2.57762,
     +    2.07807,   3.00747,   3.20998,
     +     .02832,    .01271,  85.02518,   3.44188,   2.80826,
     +    2.31425,   3.24181,   3.44286 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02895,    .01305,  91.20335,   3.68145,   3.04431,
     +    2.55334,   3.48282,   3.68244,
     +     .02957,    .01339,  97.42794,   3.92519,   3.28540,
     +    2.79867,   3.72795,   3.92621,
     +     .03015,    .01371, 103.44499,   4.16377,   3.52166,
     +    3.03908,   3.96781,   4.16481,
     +     .03071,    .01401, 109.14778,   4.39378,   3.74899,
     +    3.26940,   4.19900,   4.39483,
     +     .03127,    .01432, 115.03999,   4.63308,   3.98647,
     +    3.51108,   4.43948,   4.63415,
     +     .03182,    .01462, 120.80424,   4.87190,   4.22258,
     +    3.74983,   4.67943,   4.87298,
     +     .03235,    .01491, 126.44851,   5.10692,   4.45601,
     +    3.98715,   4.91551,   5.10802,
     +     .03285,    .01518, 131.73289,   5.33130,   4.67808,
     +    4.21153,   5.14088,   5.33242 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03336,    .01546, 137.19148,   5.56440,   4.90956,
     +    4.44632,   5.37496,   5.56554,
     +     .03386,    .01574, 142.56342,   5.79738,   5.14061,
     +    4.68003,   5.60889,   5.79853,
     +     .03434,    .01600, 147.74062,   6.02417,   5.36573,
     +    4.90784,   5.83659,   6.02534,
     +     .03480,    .01626, 152.71625,   6.24392,   5.58423,
     +    5.12928,   6.05718,   6.24510,
     +     .03526,    .01651, 157.68529,   6.46719,   5.80566,
     +    5.35278,   6.28128,   6.46839 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02008,    .00797,    .84033,    .44233,    .00000,
     +     .00000,    .23560,    .44214,
     +     .02077,    .00833,   1.64061,    .46580,    .00000,
     +     .00000,    .26098,    .46562,
     +     .02178,    .00886,   3.06466,    .50937,    .01799,
     +     .00000,    .30724,    .50922,
     +     .02252,    .00926,   4.31277,    .54739,    .05875,
     +     .00000,    .34714,    .54725,
     +     .02330,    .00967,   5.78532,    .59389,    .10126,
     +     .00000,    .39554,    .59377,
     +     .02397,    .01003,   7.19188,    .63918,    .14304,
     +     .00000,    .44241,    .63908,
     +     .02461,    .01037,   8.68714,    .68681,    .18881,
     +     .00000,    .49151,    .68672,
     +     .02530,    .01074,  10.42709,    .74200,    .24283,
     +     .00000,    .54822,    .74193 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02589,    .01106,  12.03085,    .79411,    .29271,
     +     .00000,    .60161,    .79406,
     +     .02647,    .01137,  13.67645,    .84783,    .34453,
     +     .00000,    .65655,    .84780,
     +     .02693,    .01162,  15.06682,    .89283,    .38887,
     +     .00000,    .70248,    .89281,
     +     .02790,    .01215,  18.16119,    .99597,    .48940,
     +     .00905,    .80757,    .99598,
     +     .02874,    .01261,  20.97062,   1.09241,    .58314,
     +     .11825,    .90562,   1.09245,
     +     .02968,    .01313,  24.31951,   1.20881,    .69694,
     +     .25073,   1.02377,   1.20888,
     +     .03067,    .01367,  28.01839,   1.33909,    .82459,
     +     .38446,   1.15581,   1.33920,
     +     .03157,    .01416,  31.54977,   1.46520,    .94842,
     +     .51420,   1.28346,   1.46534 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03247,    .01467,  35.27606,   1.60008,   1.08124,
     +     .65269,   1.41986,   1.60026,
     +     .03323,    .01508,  38.46587,   1.71749,   1.19664,
     +     .77149,   1.53849,   1.71770,
     +     .03415,    .01559,  42.43884,   1.86618,   1.34267,
     +     .92118,   1.68862,   1.86643,
     +     .03496,    .01604,  46.07128,   2.00382,   1.47840,
     +    1.06100,   1.82750,   2.00410,
     +     .03571,    .01646,  49.49306,   2.13506,   1.60814,
     +    1.19473,   1.95986,   2.13537,
     +     .03666,    .01699,  53.87927,   2.30697,   1.77738,
     +    1.36730,   2.13314,   2.30732,
     +     .03756,    .01749,  58.10613,   2.47511,   1.94344,
     +    1.53715,   2.30254,   2.47551,
     +     .03840,    .01796,  62.16907,   2.63872,   2.10568,
     +    1.70374,   2.46732,   2.63916 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03924,    .01844,  66.21565,   2.80571,   2.27037,
     +    1.87096,   2.63543,   2.80619,
     +     .04007,    .01890,  70.25707,   2.97447,   2.43748,
     +    2.04144,   2.80527,   2.97498,
     +     .04086,    .01934,  74.12991,   3.13855,   2.60017,
     +    2.20740,   2.97036,   3.13911,
     +     .04160,    .01976,  77.76720,   3.29569,   2.75566,
     +    2.36530,   3.12842,   3.29629,
     +     .04235,    .02018,  81.49979,   3.45830,   2.91724,
     +    2.53017,   3.29195,   3.45894,
     +     .04309,    .02060,  85.11754,   3.61951,   3.07681,
     +    2.69188,   3.45404,   3.62018,
     +     .04380,    .02100,  88.63921,   3.77739,   3.23384,
     +    2.85193,   3.61275,   3.77809,
     +     .04446,    .02137,  91.90739,   3.92720,   3.38229,
     +    3.00226,   3.76333,   3.92794 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04514,    .02175,  95.26519,   4.08215,   3.53640,
     +    3.15893,   3.91905,   4.08293,
     +     .04581,    .02213,  98.54448,   4.23617,   3.68935,
     +    3.31401,   4.07382,   4.23699,
     +     .04645,    .02249, 101.68561,   4.38542,   3.83771,
     +    3.46447,   4.22376,   4.38626,
     +     .04706,    .02284, 104.68798,   4.52941,   3.98110,
     +    3.61015,   4.36842,   4.53029,
     +     .04767,    .02318, 107.66338,   4.67496,   4.12565,
     +    3.75635,   4.51462,   4.67587 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02708,    .01116,    .80246,    .37459,    .00000,
     +     .00000,    .20034,    .37436,
     +     .02803,    .01169,   1.52211,    .39565,    .00000,
     +     .00000,    .22294,    .39546,
     +     .02943,    .01248,   2.76949,    .43366,    .01553,
     +     .00000,    .26313,    .43352,
     +     .03046,    .01305,   3.83596,    .46612,    .05039,
     +     .00000,    .29712,    .46603,
     +     .03153,    .01365,   5.06918,    .50511,    .08601,
     +     .00000,    .33765,    .50506,
     +     .03246,    .01418,   6.22619,    .54249,    .12054,
     +     .00000,    .37632,    .54249,
     +     .03334,    .01468,   7.43833,    .58139,    .15795,
     +     .00000,    .41641,    .58143,
     +     .03429,    .01521,   8.82899,    .62600,    .20163,
     +     .00000,    .46226,    .62608 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03511,    .01568,  10.09306,    .66765,    .24154,
     +     .00000,    .50495,    .66777,
     +     .03590,    .01612,  11.37511,    .71022,    .28266,
     +     .00000,    .54850,    .71038,
     +     .03652,    .01648,  12.44831,    .74565,    .31760,
     +     .00000,    .58469,    .74584,
     +     .03786,    .01724,  14.80219,    .82599,    .39603,
     +     .00730,    .66661,    .82625,
     +     .03901,    .01790,  16.90095,    .90019,    .46829,
     +     .09175,    .74211,    .90051,
     +     .04030,    .01864,  19.36457,    .98875,    .55505,
     +     .19350,    .83208,    .98913,
     +     .04164,    .01941,  22.04278,   1.08670,    .65126,
     +     .29483,    .93147,   1.08716,
     +     .04287,    .02011,  24.56185,   1.18048,    .74357,
     +     .39208,   1.02650,   1.18100 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04410,    .02081,  27.18393,   1.27977,    .84161,
     +     .49484,   1.12701,   1.28036,
     +     .04512,    .02140,  29.40049,   1.36540,    .92601,
     +     .58216,   1.21364,   1.36605,
     +     .04637,    .02212,  32.12756,   1.47286,   1.03185,
     +     .69119,   1.32227,   1.47358,
     +     .04747,    .02275,  34.59180,   1.57148,   1.12939,
     +     .79216,   1.42189,   1.57227,
     +     .04848,    .02333,  36.88927,   1.66479,   1.22192,
     +     .88801,   1.51611,   1.66563,
     +     .04976,    .02407,  39.79858,   1.78593,   1.34154,
     +    1.01054,   1.63836,   1.78685,
     +     .05097,    .02477,  42.56972,   1.90339,   1.45791,
     +    1.13014,   1.75685,   1.90439,
     +     .05210,    .02542,  45.20610,   2.01681,   1.57075,
     +    1.24657,   1.87122,   2.01788 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05323,    .02607,  47.80038,   2.13159,   1.68430,
     +    1.36237,   1.98691,   2.13272,
     +     .05434,    .02671,  50.36703,   2.24676,   1.79872,
     +    1.47964,   2.10295,   2.24796,
     +     .05539,    .02732,  52.80343,   2.35796,   1.90935,
     +    1.59301,   2.21498,   2.35923,
     +     .05638,    .02789,  55.06860,   2.46370,   2.01432,
     +    1.70008,   2.32147,   2.46503,
     +     .05738,    .02847,  57.37626,   2.57251,   2.12282,
     +    1.81130,   2.43103,   2.57390,
     +     .05837,    .02904,  59.58937,   2.67960,   2.22917,
     +    1.91954,   2.53884,   2.68106,
     +     .05930,    .02958,  61.73043,   2.78397,   2.33335,
     +    2.02621,   2.64389,   2.78549,
     +     .06019,    .03009,  63.69740,   2.88235,   2.43116,
     +    2.12567,   2.74289,   2.88392 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06108,    .03061,  65.70678,   2.98364,   2.53225,
     +    2.22892,   2.84481,   2.98527,
     +     .06197,    .03112,  67.65197,   3.08373,   2.63199,
     +    2.33048,   2.94551,   3.08542,
     +     .06281,    .03161,  69.50253,   3.18023,   2.72827,
     +    2.42855,   3.04259,   3.18198,
     +     .06362,    .03207,  71.26080,   3.27293,   2.82092,
     +    2.52310,   3.13583,   3.27473,
     +     .06443,    .03254,  72.98759,   3.36610,   2.91377,
     +    2.61740,   3.22953,   3.36795 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03233,    .01369,    .78827,    .34027,    .00000,
     +     .00000,    .18256,    .34033,
     +     .03348,    .01435,   1.46449,    .35995,    .00000,
     +     .00000,    .20363,    .36008,
     +     .03518,    .01533,   2.61709,    .39494,    .01422,
     +     .00000,    .24057,    .39515,
     +     .03642,    .01604,   3.58730,    .42445,    .04598,
     +     .00000,    .27145,    .42473,
     +     .03771,    .01680,   4.69528,    .45951,    .07802,
     +     .00000,    .30789,    .45986,
     +     .03883,    .01744,   5.72321,    .49282,    .10882,
     +     .00000,    .34235,    .49323,
     +     .03990,    .01807,   6.79040,    .52725,    .14197,
     +     .00000,    .37786,    .52772,
     +     .04104,    .01873,   8.00400,    .56649,    .18042,
     +     .00000,    .41820,    .56702 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04203,    .01930,   9.09760,    .60287,    .21532,
     +     .00000,    .45552,    .60346,
     +     .04298,    .01986,  10.19877,    .63985,    .25110,
     +     .00000,    .49338,    .64050,
     +     .04373,    .02030,  11.11526,    .67050,    .28138,
     +     .00000,    .52472,    .67120,
     +     .04533,    .02123,  13.10713,    .73958,    .34890,
     +     .00641,    .59521,    .74037,
     +     .04672,    .02204,  14.86296,    .80287,    .41067,
     +     .07879,    .65968,    .80375,
     +     .04826,    .02295,  16.90434,    .87789,    .48433,
     +     .16561,    .73598,    .87886,
     +     .04987,    .02389,  19.10159,    .96027,    .56541,
     +     .25137,    .81965,    .96134,
     +     .05133,    .02474,  21.14904,   1.03860,    .64271,
     +     .33313,    .89911,   1.03977 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05281,    .02561,  23.26204,   1.12102,    .72430,
     +     .41898,    .98264,   1.12228,
     +     .05403,    .02632,  25.03414,   1.19169,    .79413,
     +     .49151,   1.05420,   1.19303,
     +     .05551,    .02719,  27.19753,   1.27988,    .88122,
     +     .58156,   1.14345,   1.28132,
     +     .05682,    .02796,  29.13803,   1.36038,    .96105,
     +     .66453,   1.22486,   1.36190,
     +     .05802,    .02866,  30.93543,   1.43618,   1.03643,
     +     .74291,   1.30148,   1.43778,
     +     .05955,    .02956,  33.19375,   1.53404,   1.13334,
     +     .84255,   1.40036,   1.53575,
     +     .06098,    .03039,  35.32897,   1.62843,   1.22712,
     +     .93930,   1.49569,   1.63023,
     +     .06232,    .03118,  37.34712,   1.71914,   1.31763,
     +    1.03305,   1.58725,   1.72103 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06366,    .03197,  39.31748,   1.81044,   1.40821,
     +    1.12576,   1.67938,   1.81242,
     +     .06497,    .03274,  41.25521,   1.90165,   1.49910,
     +    1.21926,   1.77139,   1.90372,
     +     .06622,    .03346,  43.08339,   1.98934,   1.58660,
     +    1.30926,   1.85982,   1.99149,
     +     .06739,    .03415,  44.77184,   2.07235,   1.66925,
     +    1.39387,   1.94352,   2.07458,
     +     .06857,    .03484,  46.48406,   2.15746,   1.75439,
     +    1.48148,   2.02932,   2.15978,
     +     .06972,    .03551,  48.11451,   2.24087,   1.83746,
     +    1.56634,   2.11338,   2.24327,
     +     .07082,    .03616,  49.68582,   2.32190,   1.91860,
     +    1.64973,   2.19503,   2.32437,
     +     .07186,    .03676,  51.11943,   2.39795,   1.99445,
     +    1.72714,   2.27166,   2.40050 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07291,    .03738,  52.57870,   2.47604,   2.07264,
     +    1.80729,   2.35033,   2.47867,
     +     .07395,    .03798,  53.98299,   2.55292,   2.14949,
     +    1.88582,   2.42776,   2.55562,
     +     .07494,    .03856,  55.31301,   2.62682,   2.22344,
     +    1.96143,   2.50218,   2.62958,
     +     .07588,    .03911,  56.57180,   2.69760,   2.29442,
     +    2.03414,   2.57347,   2.70044,
     +     .07683,    .03966,  57.80016,   2.76848,   2.36529,
     +    2.10638,   2.64484,   2.77138 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03671,    .01589,    .78335,    .31820,    .00000,
     +     .00000,    .17114,    .31856,
     +     .03804,    .01667,   1.43022,    .33693,    .00000,
     +     .00000,    .19116,    .33737,
     +     .03998,    .01782,   2.51874,    .36986,    .01334,
     +     .00000,    .22590,    .37041,
     +     .04140,    .01865,   3.42436,    .39739,    .04303,
     +     .00000,    .25471,    .39803,
     +     .04288,    .01953,   4.44895,    .42983,    .07270,
     +     .00000,    .28844,    .43057,
     +     .04416,    .02028,   5.39161,    .46045,    .10105,
     +     .00000,    .32013,    .46127,
     +     .04538,    .02101,   6.36363,    .49195,    .13141,
     +     .00000,    .35262,    .49285,
     +     .04668,    .02178,   7.46176,    .52768,    .16646,
     +     .00000,    .38939,    .52866 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04781,    .02244,   8.44492,    .56064,    .19812,
     +     .00000,    .42322,    .56169,
     +     .04889,    .02309,   9.42955,    .59401,    .23044,
     +     .00000,    .45741,    .59513,
     +     .04975,    .02360,  10.24552,    .62159,    .25772,
     +     .00000,    .48563,    .62277,
     +     .05158,    .02468,  12.00681,    .68344,    .31827,
     +     .00584,    .54880,    .68473,
     +     .05315,    .02561,  13.54606,    .73978,    .37335,
     +     .07052,    .60624,    .74118,
     +     .05491,    .02666,  15.32280,    .80623,    .43871,
     +     .14787,    .67388,    .80775,
     +     .05674,    .02774,  17.22101,    .87879,    .51028,
     +     .22381,    .74766,    .88043,
     +     .05840,    .02872,  18.97739,    .94744,    .57816,
     +     .29585,    .81736,    .94920 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06007,    .02972,  20.77837,   1.01934,    .64949,
     +     .37116,    .89030,   1.02121,
     +     .06145,    .03054,  22.27977,   1.08072,    .71029,
     +     .43449,    .95253,   1.08269,
     +     .06313,    .03153,  24.10194,   1.15700,    .78579,
     +     .51282,   1.02981,   1.15909,
     +     .06461,    .03241,  25.72724,   1.22635,    .85473,
     +     .58470,   1.10002,   1.22854,
     +     .06597,    .03321,  27.22529,   1.29142,    .91960,
     +     .65237,   1.16586,   1.29371,
     +     .06768,    .03423,  29.09624,   1.37509,   1.00265,
     +     .73803,   1.25049,   1.37750,
     +     .06930,    .03518,  30.85527,   1.45546,   1.08271,
     +     .82087,   1.33174,   1.45799,
     +     .07081,    .03608,  32.50962,   1.53242,   1.15970,
     +     .90088,   1.40951,   1.53505 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07232,    .03697,  34.11497,   1.60958,   1.23644,
     +     .97967,   1.48745,   1.61232,
     +     .07379,    .03784,  35.68650,   1.68640,   1.31319,
     +    1.05888,   1.56503,   1.68925,
     +     .07519,    .03866,  37.16227,   1.76002,   1.38685,
     +    1.13489,   1.63936,   1.76297,
     +     .07650,    .03943,  38.51814,   1.82948,   1.45619,
     +    1.20610,   1.70947,   1.83253,
     +     .07782,    .04021,  39.88832,   1.90052,   1.52745,
     +    1.27965,   1.78116,   1.90366,
     +     .07911,    .04097,  41.18573,   1.96989,   1.59673,
     +    1.35064,   1.85115,   1.97313,
     +     .08035,    .04170,  42.43249,   2.03714,   1.66425,
     +    1.42027,   1.91899,   2.04046,
     +     .08151,    .04238,  43.56369,   2.10005,   1.72716,
     +    1.48467,   1.98245,   2.10346 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08269,    .04307,  44.71201,   2.16451,   1.79189,
     +    1.55123,   2.04746,   2.16801,
     +     .08384,    .04375,  45.81179,   2.22779,   1.85533,
     +    1.61627,   2.11127,   2.23138,
     +     .08495,    .04440,  46.84977,   2.28848,   1.91624,
     +    1.67874,   2.17246,   2.29215,
     +     .08600,    .04502,  47.82915,   2.34649,   1.97458,
     +    1.73870,   2.23095,   2.35024,
     +     .08706,    .04563,  48.77991,   2.40442,   2.03266,
     +    1.79809,   2.28934,   2.40824 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04060,    .01799,    .78674,    .30289,    .00000,
     +     .00000,    .16303,    .30329,
     +     .04207,    .01887,   1.41105,    .32089,    .00000,
     +     .00000,    .18223,    .32138,
     +     .04424,    .02016,   2.45070,    .35223,    .01267,
     +     .00000,    .21527,    .35287,
     +     .04582,    .02111,   3.30734,    .37826,    .04080,
     +     .00000,    .24248,    .37900,
     +     .04747,    .02210,   4.26889,    .40873,    .06868,
     +     .00000,    .27415,    .40958,
     +     .04889,    .02295,   5.14742,    .43733,    .09519,
     +     .00000,    .30374,    .43827,
     +     .05025,    .02376,   6.04814,    .46663,    .12347,
     +     .00000,    .33398,    .46767,
     +     .05169,    .02462,   7.06014,    .49974,    .15599,
     +     .00000,    .36806,    .50088 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05294,    .02537,   7.96131,    .53016,    .18525,
     +     .00000,    .39929,    .53139,
     +     .05414,    .02609,   8.85977,    .56087,    .21503,
     +     .00000,    .43076,    .56218,
     +     .05509,    .02666,   9.60167,    .58618,    .24009,
     +     .00000,    .45667,    .58756,
     +     .05711,    .02787,  11.19382,    .64272,    .29552,
     +     .00541,    .51445,    .64424,
     +     .05885,    .02891,  12.57521,    .69399,    .34571,
     +     .06445,    .56675,    .69563,
     +     .06080,    .03007,  14.16015,    .75420,    .40502,
     +     .13488,    .62808,    .75598,
     +     .06281,    .03128,  15.84293,    .81966,    .46968,
     +     .20367,    .69467,    .82159,
     +     .06464,    .03237,  17.39080,    .88133,    .53077,
     +     .26866,    .75734,    .88339 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06648,    .03347,  18.96938,    .94568,    .59471,
     +     .33634,    .82266,    .94787,
     +     .06800,    .03438,  20.27868,   1.00042,    .64901,
     +     .39307,    .87819,   1.00272,
     +     .06985,    .03548,  21.86003,   1.06820,    .71623,
     +     .46297,    .94691,   1.07064,
     +     .07147,    .03644,  23.26394,   1.12962,    .77740,
     +     .52692,   1.00914,   1.13219,
     +     .07296,    .03733,  24.55252,   1.18709,    .83480,
     +     .58695,   1.06733,   1.18977,
     +     .07485,    .03845,  26.15343,   1.26073,    .90803,
     +     .66267,   1.14187,   1.26354,
     +     .07661,    .03950,  27.65143,   1.33123,    .97839,
     +     .73567,   1.21319,   1.33417,
     +     .07827,    .04048,  29.05442,   1.39853,   1.04587,
     +     .80597,   1.28127,   1.40160 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07992,    .04146,  30.40873,   1.46579,   1.11289,
     +     .87495,   1.34926,   1.46898,
     +     .08153,    .04241,  31.72937,   1.53257,   1.17975,
     +     .94414,   1.41676,   1.53588,
     +     .08305,    .04331,  32.96459,   1.59640,   1.24375,
     +    1.01035,   1.48125,   1.59982,
     +     .08448,    .04416,  34.09420,   1.65644,   1.30382,
     +    1.07220,   1.54191,   1.65997,
     +     .08592,    .04501,  35.23233,   1.71772,   1.36543,
     +    1.13596,   1.60381,   1.72137,
     +     .08733,    .04584,  36.30480,   1.77738,   1.42515,
     +    1.19731,   1.66406,   1.78114,
     +     .08867,    .04663,  37.33294,   1.83512,   1.48327,
     +    1.25740,   1.72235,   1.83897,
     +     .08994,    .04737,  38.26123,   1.88898,   1.53726,
     +    1.31281,   1.77673,   1.89293 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09121,    .04812,  39.20142,   1.94408,   1.59271,
     +    1.37000,   1.83236,   1.94813,
     +     .09247,    .04886,  40.09787,   1.99804,   1.64694,
     +    1.42574,   1.88682,   2.00219,
     +     .09367,    .04957,  40.94124,   2.04969,   1.69890,
     +    1.47918,   1.93894,   2.05392,
     +     .09481,    .05023,  41.73490,   2.09897,   1.74860,
     +    1.53039,   1.98868,   2.10330,
     +     .09595,    .05090,  42.50183,   2.14806,   1.79794,
     +    1.58099,   2.03821,   2.15247 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05584,    .02678,    .81719,    .26098,    .00000,
     +     .00000,    .14104,    .26202,
     +     .05792,    .02807,   1.37475,    .27677,    .00000,
     +     .00000,    .15783,    .27797,
     +     .06095,    .02995,   2.26990,    .30348,    .01076,
     +     .00000,    .18594,    .30491,
     +     .06315,    .03131,   2.98375,    .32514,    .03440,
     +     .00000,    .20859,    .32674,
     +     .06545,    .03273,   3.76455,    .34998,    .05727,
     +     .00000,    .23444,    .35176,
     +     .06742,    .03394,   4.46156,    .37289,    .07865,
     +     .00000,    .25818,    .37482,
     +     .06930,    .03510,   5.16264,    .39605,    .10116,
     +     .00000,    .28213,    .39814,
     +     .07129,    .03632,   5.93600,    .42190,    .12670,
     +     .00000,    .30879,    .42415 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07301,    .03737,   6.61240,    .44533,    .14938,
     +     .00000,    .33291,    .44772,
     +     .07466,    .03838,   7.27662,    .46873,    .17222,
     +     .00000,    .35695,    .47124,
     +     .07596,    .03918,   7.81855,    .48787,    .19129,
     +     .00000,    .37659,    .49048,
     +     .07873,    .04087,   8.95910,    .53004,    .23292,
     +     .00423,    .41982,    .53289,
     +     .08109,    .04231,   9.92439,    .56771,    .27005,
     +     .04822,    .45836,    .57074,
     +     .08373,    .04391,  11.00955,    .61132,    .31333,
     +     .10026,    .50293,    .61457,
     +     .08645,    .04557,  12.13756,    .65804,    .35984,
     +     .15024,    .55062,    .66151,
     +     .08891,    .04706,  13.15445,    .70144,    .40318,
     +     .19683,    .59488,    .70511 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09138,    .04855,  14.17247,    .74615,    .44797,
     +     .24474,    .64043,    .75002,
     +     .09342,    .04977,  15.00223,    .78374,    .48558,
     +     .28443,    .67870,    .78777,
     +     .09587,    .05124,  15.98729,    .82975,    .53159,
     +     .33278,    .72551,    .83398,
     +     .09803,    .05254,  16.84766,    .87097,    .57302,
     +     .37654,    .76744,    .87538,
     +     .10000,    .05372,  17.62598,    .90917,    .61152,
     +     .41724,    .80627,    .91374,
     +     .10248,    .05520,  18.57553,    .95754,    .66007,
     +     .46797,    .85543,    .96231,
     +     .10481,    .05659,  19.44923,   1.00334,    .70622,
     +     .51637,    .90195,   1.00830,
     +     .10698,    .05788,  20.25551,   1.04663,    .75005,
     +     .56255,    .94592,   1.05177 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10912,    .05915,  21.01887,   1.08939,    .79309,
     +     .60732,    .98933,   1.09470,
     +     .11122,    .06039,  21.75303,   1.13147,    .83565,
     +     .65185,   1.03204,   1.13695,
     +     .11320,    .06156,  22.42978,   1.17132,    .87603,
     +     .69410,   1.07248,   1.17697,
     +     .11504,    .06264,  23.03823,   1.20844,    .91357,
     +     .73318,   1.11015,   1.21424,
     +     .11690,    .06374,  23.64490,   1.24607,    .95181,
     +     .77322,   1.14832,   1.25201,
     +     .11871,    .06480,  24.20573,   1.28232,    .98851,
     +     .81134,   1.18510,   1.28842,
     +     .12043,    .06581,  24.73889,   1.31720,   1.02401,
     +     .84848,   1.22048,   1.32343,
     +     .12204,    .06675,  25.21092,   1.34942,   1.05668,
     +     .88241,   1.25316,   1.35579 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12367,    .06770,  25.68515,   1.38220,   1.09007,
     +     .91724,   1.28641,   1.38870,
     +     .12526,    .06863,  26.12973,   1.41402,   1.12244,
     +     .95091,   1.31868,   1.42065,
     +     .12678,    .06951,  26.54305,   1.44429,   1.15326,
     +     .98300,   1.34938,   1.45104,
     +     .12822,    .07035,  26.92812,   1.47300,   1.18258,
     +    1.01358,   1.37849,   1.47987,
     +     .12966,    .07119,  27.29297,   1.50135,   1.21144,
     +    1.04353,   1.40725,   1.50834 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07814,    .04101,    .90128,    .22819,    .00000,
     +     .00000,    .12369,    .23041,
     +     .08106,    .04285,   1.39289,    .24185,    .00000,
     +     .00000,    .13821,    .24433,
     +     .08532,    .04552,   2.14724,    .26418,    .00905,
     +     .00000,    .16175,    .26705,
     +     .08839,    .04743,   2.72646,    .28184,    .02871,
     +     .00000,    .18027,    .28498,
     +     .09158,    .04942,   3.34241,    .30164,    .04719,
     +     .00000,    .20094,    .30507,
     +     .09430,    .05110,   3.87785,    .31954,    .06415,
     +     .00000,    .21956,    .32321,
     +     .09689,    .05270,   4.40463,    .33737,    .08174,
     +     .00000,    .23809,    .34128,
     +     .09963,    .05438,   4.97356,    .35699,    .10139,
     +     .00000,    .25843,    .36114 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10197,    .05582,   5.46100,    .37451,    .11857,
     +     .00000,    .27655,    .37886,
     +     .10422,    .05719,   5.93131,    .39178,    .13567,
     +     .00000,    .29439,    .39634,
     +     .10599,    .05827,   6.30971,    .40578,    .14981,
     +     .00000,    .30885,    .41050,
     +     .10972,    .06054,   7.08776,    .43619,    .18023,
     +     .00324,    .34019,    .44124,
     +     .11291,    .06247,   7.72666,    .46286,    .20689,
     +     .03516,    .36764,    .46819,
     +     .11643,    .06460,   8.42757,    .49325,    .23749,
     +     .07258,    .39889,    .49889,
     +     .12006,    .06677,   9.13776,    .52524,    .26981,
     +     .10783,    .43176,    .53121,
     +     .12331,    .06872,   9.76241,    .55449,    .29946,
     +     .14019,    .46179,    .56074 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12656,    .07065,  10.37371,    .58417,    .32967,
     +     .17300,    .49224,    .59071,
     +     .12923,    .07224,  10.86131,    .60878,    .35469,
     +     .19980,    .51747,    .61556,
     +     .13242,    .07412,  11.42742,    .63849,    .38490,
     +     .23204,    .54793,    .64555,
     +     .13522,    .07577,  11.91173,    .66477,    .41177,
     +     .26088,    .57486,    .67208,
     +     .13777,    .07727,  12.34186,    .68884,    .43645,
     +     .28740,    .59952,    .69637,
     +     .14095,    .07914,  12.85398,    .71889,    .46717,
     +     .32002,    .63030,    .72669,
     +     .14392,    .08087,  13.31479,    .74698,    .49599,
     +     .35076,    .65906,    .75504,
     +     .14668,    .08247,  13.73179,    .77322,    .52307,
     +     .37978,    .68594,    .78152 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14940,    .08404,  14.11582,    .79877,    .54930,
     +     .40753,    .71210,    .80731,
     +     .15204,    .08556,  14.47819,    .82364,    .57497,
     +     .43487,    .73756,    .83240,
     +     .15452,    .08699,  14.80534,    .84694,    .59907,
     +     .46055,    .76142,    .85591,
     +     .15682,    .08831,  15.09186,    .86838,    .62122,
     +     .48403,    .78338,    .87755,
     +     .15913,    .08963,  15.37349,    .88993,    .64361,
     +     .50792,    .80545,    .89930,
     +     .16136,    .09090,  15.62590,    .91043,    .66484,
     +     .53039,    .82644,    .91999,
     +     .16348,    .09211,  15.86327,    .93001,    .68524,
     +     .55215,    .84650,    .93975,
     +     .16546,    .09323,  16.06632,    .94786,    .70379,
     +     .57179,    .86480,    .95777 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16745,    .09435,  16.26802,    .96591,    .72263,
     +     .59184,    .88329,    .97598,
     +     .16940,    .09545,  16.45149,    .98324,    .74071,
     +     .61104,    .90106,    .99348,
     +     .17124,    .09648,  16.61867,    .99959,    .75780,
     +     .62919,    .91782,   1.00998,
     +     .17298,    .09746,  16.77188,   1.01499,    .77395,
     +     .64639,    .93361,   1.02553,
     +     .17472,    .09843,  16.91154,   1.03002,    .78967,
     +     .66306,    .94903,   1.04070 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09608,    .05314,    .98317,    .21247,    .00000,
     +     .00000,    .11546,    .21595,
     +     .09965,    .05537,   1.43084,    .22486,    .00000,
     +     .00000,    .12866,    .22869,
     +     .10483,    .05858,   2.10160,    .24470,    .00813,
     +     .00000,    .14967,    .24902,
     +     .10854,    .06088,   2.60406,    .26013,    .02565,
     +     .00000,    .16592,    .26480,
     +     .11239,    .06325,   3.12879,    .27718,    .04182,
     +     .00000,    .18382,    .28222,
     +     .11566,    .06524,   3.57716,    .29240,    .05647,
     +     .00000,    .19974,    .29775,
     +     .11876,    .06713,   4.01189,    .30742,    .07151,
     +     .00000,    .21543,    .31306,
     +     .12202,    .06911,   4.47493,    .32379,    .08814,
     +     .00000,    .23249,    .32973 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12481,    .07080,   4.86632,    .33825,    .10254,
     +     .00000,    .24755,    .34446,
     +     .12748,    .07240,   5.23947,    .35240,    .11676,
     +     .00000,    .26226,    .35886,
     +     .12958,    .07367,   5.53687,    .36380,    .12844,
     +     .00000,    .27410,    .37046,
     +     .13399,    .07630,   6.13871,    .38831,    .15333,
     +     .00274,    .29953,    .39537,
     +     .13773,    .07853,   6.62223,    .40955,    .17490,
     +     .02879,    .32155,    .41697,
     +     .14185,    .08097,   7.14371,    .43350,    .19938,
     +     .05914,    .34634,    .44129,
     +     .14608,    .08345,   7.66270,    .45842,    .22497,
     +     .08738,    .37213,    .46660,
     +     .14985,    .08566,   8.11124,    .48096,    .24819,
     +     .11304,    .39544,    .48948 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15361,    .08785,   8.54303,    .50359,    .27162,
     +     .13882,    .41885,    .51246,
     +     .15668,    .08963,   8.88178,    .52219,    .29086,
     +     .15969,    .43806,    .53133,
     +     .16034,    .09174,   9.26870,    .54442,    .31388,
     +     .18458,    .46104,    .55390,
     +     .16354,    .09358,   9.59458,    .56392,    .33417,
     +     .20666,    .48119,    .57368,
     +     .16645,    .09524,   9.87988,    .58163,    .35269,
     +     .22683,    .49949,    .59165,
     +     .17006,    .09730,  10.21283,    .60353,    .37551,
     +     .25141,    .52212,    .61387,
     +     .17341,    .09920,  10.50707,    .62380,    .39675,
     +     .27440,    .54308,    .63444,
     +     .17652,    .10095,  10.76916,    .64259,    .41655,
     +     .29594,    .56250,    .65350 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17956,    .10266,  11.00433,    .66070,    .43555,
     +     .31636,    .58123,    .67187,
     +     .18251,    .10431,  11.22277,    .67819,    .45402,
     +     .33634,    .59932,    .68962,
     +     .18527,    .10585,  11.41642,    .69444,    .47124,
     +     .35498,    .61614,    .70611,
     +     .18782,    .10726,  11.58188,    .70926,    .48693,
     +     .37190,    .63149,    .72115,
     +     .19038,    .10867,  11.74253,    .72408,    .50272,
     +     .38903,    .64683,    .73619,
     +     .19284,    .11003,  11.88151,    .73803,    .51755,
     +     .40501,    .66129,    .75035,
     +     .19517,    .11131,  12.01095,    .75130,    .53175,
     +     .42042,    .67504,    .76382,
     +     .19733,    .11249,  12.11747,    .76327,    .54454,
     +     .43422,    .68747,    .77597 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19951,    .11367,  12.22217,    .77532,    .55748,
     +     .44826,    .69997,    .78820,
     +     .20162,    .11482,  12.31399,    .78679,    .56981,
     +     .46160,    .71188,    .79985,
     +     .20362,    .11590,  12.39568,    .79754,    .58140,
     +     .47416,    .72305,    .81077,
     +     .20551,    .11692,  12.46902,    .80761,    .59231,
     +     .48600,    .73352,    .82100,
     +     .20738,    .11792,  12.53212,    .81735,    .60283,
     +     .49740,    .74366,    .83089 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11193,    .06410,   1.05668,    .20272,    .00000,
     +     .00000,    .11040,    .20752,
     +     .11603,    .06663,   1.47094,    .21417,    .00000,
     +     .00000,    .12267,    .21938,
     +     .12195,    .07025,   2.08040,    .23223,    .00750,
     +     .00000,    .14189,    .23802,
     +     .12618,    .07283,   2.52838,    .24610,    .02356,
     +     .00000,    .15658,    .25231,
     +     .13055,    .07548,   2.98989,    .26126,    .03817,
     +     .00000,    .17258,    .26790,
     +     .13425,    .07770,   3.37908,    .27466,    .05129,
     +     .00000,    .18669,    .28165,
     +     .13776,    .07980,   3.75219,    .28778,    .06465,
     +     .00000,    .20048,    .29512,
     +     .14143,    .08199,   4.14534,    .30197,    .07931,
     +     .00000,    .21538,    .30967 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14457,    .08385,   4.47412,    .31442,    .09190,
     +     .00000,    .22843,    .32242,
     +     .14756,    .08561,   4.78468,    .32652,    .10426,
     +     .00000,    .24110,    .33481,
     +     .14991,    .08700,   5.03040,    .33622,    .11436,
     +     .00000,    .25125,    .34474,
     +     .15483,    .08988,   5.52112,    .35692,    .13572,
     +     .00241,    .27288,    .36590,
     +     .15898,    .09229,   5.90825,    .37470,    .15406,
     +     .02475,    .29144,    .38407,
     +     .16355,    .09494,   6.31994,    .39456,    .17472,
     +     .05066,    .31217,    .40436,
     +     .16822,    .09762,   6.72360,    .41505,    .19611,
     +     .07453,    .33354,    .42528,
     +     .17237,    .09999,   7.06730,    .43341,    .21537,
     +     .09606,    .35268,    .44402 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17648,    .10232,   7.39351,    .45171,    .23467,
     +     .11752,    .37177,    .46270,
     +     .17983,    .10422,   7.64580,    .46662,    .25039,
     +     .13478,    .38732,    .47791,
     +     .18382,    .10646,   7.92970,    .48432,    .26907,
     +     .15524,    .40578,    .49597,
     +     .18729,    .10840,   8.16545,    .49972,    .28544,
     +     .17327,    .42184,    .51168,
     +     .19044,    .11014,   8.36915,    .51362,    .30028,
     +     .18965,    .43635,    .52587,
     +     .19433,    .11230,   8.60233,    .53067,    .31845,
     +     .20948,    .45416,    .54327,
     +     .19793,    .11427,   8.80485,    .54633,    .33524,
     +     .22790,    .47052,    .55925,
     +     .20126,    .11610,   8.98249,    .56075,    .35081,
     +     .24508,    .48559,    .57396 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20450,    .11786,   9.13764,    .57453,    .36562,
     +     .26123,    .50000,    .58801,
     +     .20764,    .11956,   9.27933,    .58775,    .37995,
     +     .27697,    .51384,    .60150,
     +     .21056,    .12113,   9.40241,    .59995,    .39323,
     +     .29157,    .52663,    .61396,
     +     .21326,    .12258,   9.50448,    .61099,    .40525,
     +     .30475,    .53821,    .62522,
     +     .21596,    .12401,   9.60224,    .62197,    .41730,
     +     .31803,    .54973,    .63643,
     +     .21854,    .12538,   9.68317,    .63222,    .42853,
     +     .33034,    .56050,    .64689,
     +     .22099,    .12668,   9.75777,    .64193,    .43925,
     +     .34218,    .57071,    .65681,
     +     .22324,    .12787,   9.81575,    .65061,    .44883,
     +     .35271,    .57985,    .66567 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22551,    .12906,   9.87197,    .65931,    .45850,
     +     .36340,    .58901,    .67456,
     +     .22770,    .13020,   9.91845,    .66752,    .46766,
     +     .37349,    .59768,    .68295,
     +     .22978,    .13128,   9.95818,    .67518,    .47622,
     +     .38296,    .60577,    .69078,
     +     .23173,    .13229,   9.99263,    .68232,    .48425,
     +     .39186,    .61332,    .69808,
     +     .23366,    .13328,  10.01898,    .68916,    .49194,
     +     .40037,    .62057,    .70507 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12647,    .07424,   1.12138,    .19576,    .00000,
     +     .00000,    .10687,    .20190,
     +     .13101,    .07700,   1.50810,    .20645,    .00000,
     +     .00000,    .11838,    .21306,
     +     .13755,    .08094,   2.06849,    .22310,    .00701,
     +     .00000,    .13622,    .23038,
     +     .14223,    .08373,   2.47401,    .23576,    .02197,
     +     .00000,    .14972,    .24351,
     +     .14703,    .08659,   2.88719,    .24947,    .03542,
     +     .00000,    .16430,    .25770,
     +     .15108,    .08898,   3.23184,    .26149,    .04740,
     +     .00000,    .17704,    .27012,
     +     .15492,    .09123,   3.55915,    .27319,    .05951,
     +     .00000,    .18942,    .28219,
     +     .15893,    .09357,   3.90094,    .28577,    .07272,
     +     .00000,    .20272,    .29517 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16234,    .09555,   4.18414,    .29672,    .08400,
     +     .00000,    .21429,    .30646,
     +     .16558,    .09743,   4.44961,    .30732,    .09501,
     +     .00000,    .22547,    .31737,
     +     .16813,    .09890,   4.65839,    .31579,    .10397,
     +     .00000,    .23440,    .32608,
     +     .17345,    .10195,   5.07049,    .33373,    .12280,
     +     .00217,    .25329,    .34452,
     +     .17793,    .10449,   5.39029,    .34900,    .13885,
     +     .02187,    .26938,    .36023,
     +     .18284,    .10727,   5.72608,    .36596,    .15680,
     +     .04463,    .28722,    .37764,
     +     .18784,    .11007,   6.05104,    .38330,    .17526,
     +     .06544,    .30548,    .39545,
     +     .19226,    .11253,   6.32397,    .39873,    .19177,
     +     .08408,    .32171,    .41128 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19664,    .11496,   6.57949,    .41400,    .20819,
     +     .10256,    .33779,    .42695,
     +     .20020,    .11691,   6.77448,    .42636,    .22150,
     +     .11733,    .35081,    .43964,
     +     .20442,    .11921,   6.99079,    .44093,    .23722,
     +     .13474,    .36617,    .45459,
     +     .20808,    .12120,   7.16794,    .45353,    .25092,
     +     .15002,    .37946,    .46751,
     +     .21138,    .12299,   7.31899,    .46484,    .26329,
     +     .16383,    .39140,    .47912,
     +     .21546,    .12517,   7.48838,    .47861,    .27832,
     +     .18045,    .40594,    .49324,
     +     .21923,    .12718,   7.63284,    .49117,    .29213,
     +     .19581,    .41922,    .50613,
     +     .22270,    .12902,   7.75750,    .50267,    .30488,
     +     .21007,    .43139,    .51792 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22606,    .13079,   7.86300,    .51356,    .31693,
     +     .22340,    .44293,    .52909,
     +     .22931,    .13249,   7.95740,    .52395,    .32853,
     +     .23634,    .45397,    .53976,
     +     .23233,    .13406,   8.03727,    .53348,    .33923,
     +     .24828,    .46410,    .54955,
     +     .23511,    .13549,   8.10101,    .54204,    .34886,
     +     .25900,    .47321,    .55833,
     +     .23787,    .13691,   8.16099,    .55051,    .35847,
     +     .26978,    .48224,    .56704,
     +     .24051,    .13827,   8.20740,    .55835,    .36738,
     +     .27971,    .49062,    .57508,
     +     .24301,    .13954,   8.24954,    .56575,    .37585,
     +     .28924,    .49853,    .58268,
     +     .24531,    .14070,   8.27918,    .57231,    .38338,
     +     .29766,    .50556,    .58942 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24762,    .14186,   8.30726,    .57886,    .39096,
     +     .30619,    .51259,    .59616,
     +     .24984,    .14298,   8.32764,    .58499,    .39808,
     +     .31421,    .51920,    .60247,
     +     .25193,    .14402,   8.34336,    .59068,    .40473,
     +     .32171,    .52533,    .60832,
     +     .25390,    .14500,   8.35573,    .59596,    .41094,
     +     .32873,    .53103,    .61375,
     +     .25584,    .14596,   8.36156,    .60096,    .41685,
     +     .33541,    .53645,    .61890 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15303,    .09276,   1.22913,    .18594,    .00000,
     +     .00000,    .10205,    .19485,
     +     .15830,    .09585,   1.57078,    .19540,    .00000,
     +     .00000,    .11239,    .20487,
     +     .16585,    .10023,   2.05397,    .20987,    .00629,
     +     .00000,    .12811,    .22011,
     +     .17121,    .10331,   2.39485,    .22069,    .01959,
     +     .00000,    .13982,    .23147,
     +     .17669,    .10644,   2.73603,    .23223,    .03134,
     +     .00000,    .15228,    .24357,
     +     .18129,    .10905,   3.01554,    .24220,    .04166,
     +     .00000,    .16303,    .25400,
     +     .18562,    .11149,   3.27692,    .25182,    .05200,
     +     .00000,    .17338,    .26404,
     +     .19014,    .11402,   3.54582,    .26206,    .06315,
     +     .00000,    .18438,    .27472 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19396,    .11615,   3.76526,    .27088,    .07257,
     +     .00000,    .19385,    .28391,
     +     .19758,    .11815,   3.96817,    .27933,    .08168,
     +     .00000,    .20293,    .29272,
     +     .20042,    .11971,   4.12608,    .28604,    .08906,
     +     .00000,    .21013,    .29970,
     +     .20632,    .12294,   4.43129,    .30010,    .10439,
     +     .00183,    .22521,    .31431,
     +     .21125,    .12561,   4.66107,    .31191,    .11730,
     +     .01792,    .23789,    .32659,
     +     .21663,    .12850,   4.89682,    .32486,    .13158,
     +     .03638,    .25179,    .34003,
     +     .22207,    .13140,   5.11934,    .33793,    .14609,
     +     .05305,    .26583,    .35359,
     +     .22686,    .13393,   5.30140,    .34941,    .15892,
     +     .06783,    .27817,    .36550 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23157,    .13640,   5.46748,    .36062,    .17156,
     +     .08233,    .29024,    .37714,
     +     .23538,    .13837,   5.59075,    .36959,    .18170,
     +     .09383,    .29991,    .38644,
     +     .23986,    .14069,   5.72328,    .38005,    .19355,
     +     .10725,    .31120,    .39728,
     +     .24373,    .14267,   5.82855,    .38899,    .20379,
     +     .11893,    .32087,    .40654,
     +     .24721,    .14444,   5.91567,    .39692,    .21295,
     +     .12941,    .32947,    .41477,
     +     .25148,    .14659,   6.00879,    .40645,    .22398,
     +     .14191,    .33982,    .42465,
     +     .25540,    .14854,   6.08449,    .41503,    .23401,
     +     .15336,    .34917,    .43356,
     +     .25899,    .15033,   6.14689,    .42281,    .24319,
     +     .16392,    .35765,    .44162 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26245,    .15202,   6.19480,    .43004,    .25177,
     +     .17368,    .36558,    .44913,
     +     .26577,    .15364,   6.23507,    .43687,    .25996,
     +     .18309,    .37308,    .45622,
     +     .26884,    .15513,   6.26623,    .44306,    .26746,
     +     .19171,    .37991,    .46265,
     +     .27164,    .15647,   6.28700,    .44854,    .27413,
     +     .19939,    .38597,    .46834,
     +     .27443,    .15780,   6.30489,    .45392,    .28076,
     +     .20707,    .39193,    .47392,
     +     .27707,    .15905,   6.31370,    .45879,    .28682,
     +     .21407,    .39737,    .47899,
     +     .27956,    .16022,   6.32078,    .46336,    .29256,
     +     .22076,    .40247,    .48374,
     +     .28183,    .16128,   6.32012,    .46732,    .29760,
     +     .22662,    .40694,    .48787 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28410,    .16233,   6.31827,    .47126,    .30265,
     +     .23253,    .41138,    .49197,
     +     .28628,    .16333,   6.31152,    .47488,    .30735,
     +     .23804,    .41549,    .49574,
     +     .28833,    .16426,   6.30268,    .47819,    .31170,
     +     .24316,    .41926,    .49919,
     +     .29024,    .16513,   6.29261,    .48124,    .31574,
     +     .24794,    .42275,    .50237,
     +     .29211,    .16597,   6.27779,    .48405,    .31954,
     +     .25243,    .42600,    .50531 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18904,    .11743,   1.34864,    .17582,    .00000,
     +     .00000,    .09736,    .18894,
     +     .19509,    .12079,   1.63714,    .18386,    .00000,
     +     .00000,    .10636,    .19760,
     +     .20371,    .12550,   2.03390,    .19587,    .00551,
     +     .00000,    .11976,    .21049,
     +     .20978,    .12879,   2.30537,    .20468,    .01706,
     +     .00000,    .12956,    .21990,
     +     .21595,    .13210,   2.57136,    .21391,    .02705,
     +     .00000,    .13980,    .22974,
     +     .22108,    .13484,   2.78460,    .22177,    .03570,
     +     .00000,    .14850,    .23809,
     +     .22590,    .13738,   2.98025,    .22925,    .04425,
     +     .00000,    .15679,    .24603,
     +     .23089,    .14000,   3.17781,    .23711,    .05337,
     +     .00000,    .16549,    .25436 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23510,    .14218,   3.33590,    .24379,    .06097,
     +     .00000,    .17289,    .26143,
     +     .23906,    .14423,   3.47956,    .25013,    .06826,
     +     .00000,    .17991,    .26813,
     +     .24215,    .14582,   3.58989,    .25512,    .07411,
     +     .00000,    .18544,    .27340,
     +     .24852,    .14906,   3.79684,    .26544,    .08613,
     +     .00150,    .19686,    .28428,
     +     .25382,    .15172,   3.94557,    .27395,    .09611,
     +     .01419,    .20632,    .29326,
     +     .25956,    .15457,   4.09303,    .28313,    .10700,
     +     .02865,    .21653,    .30293,
     +     .26529,    .15739,   4.22685,    .29223,    .11791,
     +     .04151,    .22669,    .31251,
     +     .27030,    .15983,   4.33170,    .30009,    .12742,
     +     .05278,    .23547,    .32077 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27520,    .16218,   4.42315,    .30764,    .13668,
     +     .06372,    .24396,    .32872,
     +     .27912,    .16404,   4.48742,    .31358,    .14402,
     +     .07229,    .25065,    .33497,
     +     .28371,    .16620,   4.55232,    .32037,    .15250,
     +     .08220,    .25834,    .34212,
     +     .28764,    .16802,   4.60056,    .32609,    .15974,
     +     .09074,    .26484,    .34813,
     +     .29114,    .16964,   4.63771,    .33109,    .16615,
     +     .09833,    .27055,    .35340,
     +     .29541,    .17157,   4.67199,    .33697,    .17377,
     +     .10729,    .27731,    .35957,
     +     .29928,    .17331,   4.69574,    .34216,    .18062,
     +     .11541,    .28331,    .36504,
     +     .30281,    .17488,   4.71204,    .34678,    .18682,
     +     .12283,    .28869,    .36991 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30617,    .17635,   4.71831,    .35096,    .19252,
     +     .12961,    .29360,    .37431,
     +     .30937,    .17773,   4.71992,    .35484,    .19792,
     +     .13610,    .29819,    .37839,
     +     .31231,    .17898,   4.71674,    .35828,    .20280,
     +     .14198,    .30230,    .38203,
     +     .31496,    .18010,   4.70823,    .36124,    .20709,
     +     .14717,    .30587,    .38514,
     +     .31759,    .18120,   4.69794,    .36411,    .21131,
     +     .15232,    .30935,    .38816,
     +     .32004,    .18221,   4.68187,    .36660,    .21511,
     +     .15697,    .31244,    .39080,
     +     .32236,    .18315,   4.66594,    .36892,    .21869,
     +     .16138,    .31531,    .39325,
     +     .32444,    .18397,   4.64631,    .37083,    .22178,
     +     .16520,    .31775,    .39528 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32652,    .18479,   4.62600,    .37271,    .22485,
     +     .16903,    .32015,    .39727,
     +     .32848,    .18556,   4.60286,    .37436,    .22766,
     +     .17257,    .32231,    .39902,
     +     .33031,    .18627,   4.57940,    .37584,    .23024,
     +     .17583,    .32426,    .40058,
     +     .33201,    .18692,   4.55628,    .37716,    .23261,
     +     .17885,    .32603,    .40198,
     +     .33365,    .18753,   4.53010,    .37829,    .23480,
     +     .18165,    .32762,    .40320 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24302,    .15283,   1.46886,    .16339,    .00000,
     +     .00000,    .09201,    .18347,
     +     .24987,    .15626,   1.69062,    .16961,    .00000,
     +     .00000,    .09933,    .19032,
     +     .25946,    .16102,   1.98432,    .17865,    .00460,
     +     .00000,    .10994,    .20023,
     +     .26617,    .16428,   2.17701,    .18510,    .01412,
     +     .00000,    .11752,    .20729,
     +     .27289,    .16752,   2.36034,    .19172,    .02215,
     +     .00000,    .12527,    .21447,
     +     .27845,    .17016,   2.50275,    .19722,    .02897,
     +     .00000,    .13173,    .22045,
     +     .28361,    .17259,   2.62990,    .20237,    .03561,
     +     .00000,    .13778,    .22602,
     +     .28891,    .17506,   2.75481,    .20769,    .04259,
     +     .00000,    .14405,    .23176 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29335,    .17709,   2.85167,    .21212,    .04832,
     +     .00000,    .14928,    .23655,
     +     .29749,    .17897,   2.93723,    .21626,    .05375,
     +     .00000,    .15417,    .24101,
     +     .30070,    .18043,   3.00158,    .21948,    .05807,
     +     .00000,    .15798,    .24447,
     +     .30725,    .18334,   3.11566,    .22600,    .06680,
     +     .00117,    .16573,    .25146,
     +     .31260,    .18568,   3.19005,    .23124,    .07390,
     +     .01049,    .17199,    .25707,
     +     .31834,    .18814,   3.25840,    .23673,    .08153,
     +     .02103,    .17862,    .26296,
     +     .32401,    .19053,   3.31488,    .24203,    .08904,
     +     .03024,    .18506,    .26861,
     +     .32888,    .19254,   3.35404,    .24646,    .09547,
     +     .03818,    .19051,    .27334 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33357,    .19445,   3.38335,    .25060,    .10162,
     +     .04578,    .19564,    .27776,
     +     .33729,    .19592,   3.39983,    .25375,    .10642,
     +     .05165,    .19960,    .28111,
     +     .34156,    .19758,   3.41102,    .25724,    .11187,
     +     .05836,    .20404,    .28482,
     +     .34518,    .19895,   3.41496,    .26008,    .11646,
     +     .06407,    .20771,    .28784,
     +     .34837,    .20014,   3.41412,    .26249,    .12047,
     +     .06909,    .21088,    .29040,
     +     .35218,    .20152,   3.40518,    .26517,    .12513,
     +     .07492,    .21448,    .29325,
     +     .35558,    .20272,   3.39170,    .26744,    .12926,
     +     .08014,    .21760,    .29566,
     +     .35864,    .20378,   3.37566,    .26939,    .13294,
     +     .08485,    .22033,    .29772 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36149,    .20472,   3.35378,    .27100,    .13624,
     +     .08909,    .22271,    .29943,
     +     .36417,    .20558,   3.33005,    .27243,    .13932,
     +     .09310,    .22487,    .30093,
     +     .36660,    .20633,   3.30516,    .27361,    .14206,
     +     .09669,    .22674,    .30217,
     +     .36873,    .20697,   3.27871,    .27452,    .14442,
     +     .09981,    .22828,    .30313,
     +     .37082,    .20758,   3.25153,    .27536,    .14671,
     +     .10289,    .22974,    .30401,
     +     .37273,    .20810,   3.22166,    .27596,    .14872,
     +     .10561,    .23095,    .30464,
     +     .37451,    .20857,   3.19331,    .27651,    .15059,
     +     .10818,    .23206,    .30520,
     +     .37607,    .20896,   3.16409,    .27682,    .15215,
     +     .11036,    .23291,    .30553 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37760,    .20934,   3.13469,    .27711,    .15369,
     +     .11254,    .23372,    .30582,
     +     .37902,    .20965,   3.10425,    .27726,    .15506,
     +     .11451,    .23438,    .30596,
     +     .38032,    .20993,   3.07476,    .27734,    .15629,
     +     .11631,    .23494,    .30603,
     +     .38151,    .21017,   3.04657,    .27737,    .15741,
     +     .11797,    .23542,    .30604,
     +     .38262,    .21037,   3.01672,    .27726,    .15839,
     +     .11947,    .23576,    .30591 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29206,    .18299,   1.52277,    .15287,    .00000,
     +     .00000,    .08770,    .17948,
     +     .29921,    .18621,   1.69443,    .15767,    .00000,
     +     .00000,    .09372,    .18487,
     +     .30913,    .19060,   1.91428,    .16452,    .00392,
     +     .00000,    .10227,    .19244,
     +     .31598,    .19357,   2.05299,    .16929,    .01197,
     +     .00000,    .10826,    .19771,
     +     .32279,    .19647,   2.18125,    .17408,    .01864,
     +     .00000,    .11428,    .20297,
     +     .32834,    .19879,   2.27783,    .17800,    .02422,
     +     .00000,    .11921,    .20724,
     +     .33347,    .20090,   2.36172,    .18159,    .02960,
     +     .00000,    .12377,    .21116,
     +     .33871,    .20301,   2.44178,    .18525,    .03519,
     +     .00000,    .12843,    .21512 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34302,    .20472,   2.50164,    .18824,    .03972,
     +     .00000,    .13226,    .21835,
     +     .34701,    .20628,   2.55273,    .19099,    .04396,
     +     .00000,    .13580,    .22132,
     +     .35010,    .20747,   2.59021,    .19310,    .04732,
     +     .00000,    .13854,    .22359,
     +     .35631,    .20981,   2.65134,    .19727,    .05402,
     +     .00095,    .14400,    .22807,
     +     .36133,    .21164,   2.68466,    .20052,    .05940,
     +     .00819,    .14831,    .23154,
     +     .36663,    .21351,   2.71057,    .20383,    .06509,
     +     .01635,    .15280,    .23506,
     +     .37177,    .21526,   2.72667,    .20690,    .07061,
     +     .02337,    .15705,    .23831,
     +     .37612,    .21669,   2.73260,    .20937,    .07526,
     +     .02935,    .16055,    .24091 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38025,    .21798,   2.73149,    .21158,    .07966,
     +     .03502,    .16378,    .24322,
     +     .38345,    .21895,   2.72505,    .21319,    .08304,
     +     .03935,    .16620,    .24489,
     +     .38708,    .21998,   2.71142,    .21486,    .08683,
     +     .04424,    .16885,    .24661,
     +     .39010,    .22080,   2.69552,    .21615,    .08997,
     +     .04837,    .17097,    .24793,
     +     .39271,    .22148,   2.67811,    .21717,    .09269,
     +     .05196,    .17275,    .24896,
     +     .39575,    .22220,   2.65100,    .21819,    .09579,
     +     .05608,    .17469,    .24996,
     +     .39841,    .22278,   2.62264,    .21895,    .09849,
     +     .05974,    .17629,    .25069,
     +     .40077,    .22325,   2.59430,    .21952,    .10087,
     +     .06301,    .17764,    .25123 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40288,    .22361,   2.56241,    .21985,    .10295,
     +     .06590,    .17873,    .25150,
     +     .40482,    .22390,   2.53014,    .22006,    .10487,
     +     .06862,    .17966,    .25164,
     +     .40653,    .22411,   2.49843,    .22014,    .10654,
     +     .07103,    .18041,    .25165,
     +     .40798,    .22423,   2.46694,    .22007,    .10795,
     +     .07310,    .18096,    .25149,
     +     .40938,    .22433,   2.43530,    .21995,    .10930,
     +     .07512,    .18145,    .25128,
     +     .41059,    .22434,   2.40250,    .21967,    .11044,
     +     .07688,    .18175,    .25090,
     +     .41171,    .22434,   2.37172,    .21938,    .11149,
     +     .07853,    .18201,    .25052,
     +     .41262,    .22427,   2.34132,    .21897,    .11234,
     +     .07991,    .18212,    .25001 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41351,    .22419,   2.31104,    .21855,    .11317,
     +     .08128,    .18220,    .24948,
     +     .41427,    .22406,   2.28048,    .21804,    .11387,
     +     .08250,    .18218,    .24886,
     +     .41495,    .22391,   2.25132,    .21750,    .11449,
     +     .08360,    .18210,    .24821,
     +     .41555,    .22375,   2.22378,    .21696,    .11504,
     +     .08460,    .18200,    .24756,
     +     .41605,    .22354,   2.19532,    .21633,    .11549,
     +     .08549,    .18179,    .24681 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .37941,    .23172,   1.51558,    .13374,    .00000,
     +     .00000,    .07987,    .17139,
     +     .38620,    .23405,   1.61749,    .13655,    .00000,
     +     .00000,    .08396,    .17441,
     +     .39538,    .23707,   1.73896,    .14037,    .00295,
     +     .00000,    .08956,    .17844,
     +     .40158,    .23900,   1.80891,    .14291,    .00894,
     +     .00000,    .09335,    .18109,
     +     .40759,    .24080,   1.86923,    .14535,    .01377,
     +     .00000,    .09706,    .18359,
     +     .41239,    .24213,   1.91087,    .14724,    .01773,
     +     .00000,    .10000,    .18550,
     +     .41672,    .24329,   1.94426,    .14891,    .02148,
     +     .00000,    .10265,    .18717,
     +     .42103,    .24438,   1.97321,    .15054,    .02531,
     +     .00000,    .10529,    .18877 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42450,    .24521,   1.99180,    .15181,    .02835,
     +     .00000,    .10740,    .18998,
     +     .42764,    .24591,   2.00531,    .15292,    .03117,
     +     .00000,    .10929,    .19102,
     +     .43003,    .24641,   2.01403,    .15374,    .03337,
     +     .00000,    .11073,    .19179,
     +     .43469,    .24727,   2.02015,    .15524,    .03768,
     +     .00067,    .11349,    .19312,
     +     .43828,    .24783,   2.01272,    .15627,    .04105,
     +     .00545,    .11557,    .19397,
     +     .44191,    .24827,   1.99794,    .15718,    .04455,
     +     .01078,    .11761,    .19467,
     +     .44525,    .24854,   1.97695,    .15787,    .04786,
     +     .01528,    .11943,    .19510,
     +     .44792,    .24862,   1.95356,    .15828,    .05058,
     +     .01904,    .12082,    .19525 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45031,    .24856,   1.92661,    .15851,    .05309,
     +     .02254,    .12201,    .19519,
     +     .45204,    .24841,   1.90181,    .15855,    .05497,
     +     .02518,    .12282,    .19498,
     +     .45383,    .24811,   1.86923,    .15843,    .05703,
     +     .02810,    .12360,    .19454,
     +     .45520,    .24776,   1.83904,    .15821,    .05869,
     +     .03053,    .12415,    .19401,
     +     .45630,    .24736,   1.81046,    .15791,    .06009,
     +     .03262,    .12455,    .19343,
     +     .45740,    .24672,   1.77234,    .15736,    .06165,
     +     .03497,    .12484,    .19251,
     +     .45822,    .24603,   1.73585,    .15673,    .06295,
     +     .03701,    .12498,    .19153,
     +     .45883,    .24534,   1.70153,    .15608,    .06407,
     +     .03881,    .12502,    .19054 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45917,    .24454,   1.66609,    .15528,    .06499,
     +     .04036,    .12490,    .18940,
     +     .45939,    .24371,   1.63160,    .15444,    .06581,
     +     .04179,    .12471,    .18822,
     +     .45947,    .24287,   1.59899,    .15359,    .06651,
     +     .04304,    .12445,    .18704,
     +     .45937,    .24202,   1.56800,    .15271,    .06705,
     +     .04409,    .12412,    .18584,
     +     .45921,    .24115,   1.53743,    .15181,    .06755,
     +     .04510,    .12375,    .18462,
     +     .45888,    .24021,   1.50700,    .15084,    .06794,
     +     .04595,    .12329,    .18333,
     +     .45854,    .23932,   1.47876,    .14992,    .06828,
     +     .04674,    .12285,    .18211,
     +     .45807,    .23842,   1.45181,    .14898,    .06852,
     +     .04738,    .12235,    .18088 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45757,    .23751,   1.42521,    .14803,    .06874,
     +     .04800,    .12184,    .17963,
     +     .45696,    .23657,   1.39902,    .14704,    .06889,
     +     .04854,    .12127,    .17836,
     +     .45633,    .23565,   1.37438,    .14609,    .06900,
     +     .04901,    .12071,    .17712,
     +     .45569,    .23477,   1.35136,    .14517,    .06909,
     +     .04944,    .12016,    .17594,
     +     .45495,    .23383,   1.32808,    .14420,    .06912,
     +     .04979,    .11956,    .17470 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45482,    .26850,   1.42982,    .11631,    .00000,
     +     .00000,    .07230,    .16153,
     +     .46038,    .26959,   1.48757,    .11781,    .00000,
     +     .00000,    .07503,    .16277,
     +     .46764,    .27077,   1.54953,    .11973,    .00229,
     +     .00000,    .07866,    .16426,
     +     .47236,    .27138,   1.57986,    .12092,    .00687,
     +     .00000,    .08102,    .16509,
     +     .47674,    .27179,   1.60229,    .12198,    .01051,
     +     .00000,    .08326,    .16573,
     +     .48010,    .27195,   1.61429,    .12272,    .01343,
     +     .00000,    .08498,    .16609,
     +     .48302,    .27198,   1.62122,    .12331,    .01617,
     +     .00000,    .08647,    .16632,
     +     .48582,    .27190,   1.62419,    .12383,    .01894,
     +     .00000,    .08792,    .16645 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .48795,    .27170,   1.62249,    .12417,    .02111,
     +     .00000,    .08903,    .16642,
     +     .48978,    .27143,   1.61799,    .12441,    .02309,
     +     .00000,    .08999,    .16629,
     +     .49112,    .27118,   1.61320,    .12457,    .02462,
     +     .00000,    .09070,    .16614,
     +     .49351,    .27044,   1.59479,    .12471,    .02757,
     +     .00050,    .09198,    .16564,
     +     .49514,    .26964,   1.57046,    .12464,    .02984,
     +     .00386,    .09286,    .16501,
     +     .49655,    .26859,   1.53985,    .12441,    .03216,
     +     .00759,    .09363,    .16413,
     +     .49757,    .26733,   1.50547,    .12398,    .03429,
     +     .01068,    .09420,    .16304,
     +     .49814,    .26606,   1.47241,    .12346,    .03601,
     +     .01323,    .09455,    .16189 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .49840,    .26467,   1.43782,    .12282,    .03756,
     +     .01557,    .09475,    .16061,
     +     .49837,    .26343,   1.40824,    .12219,    .03870,
     +     .01731,    .09479,    .15945,
     +     .49804,    .26182,   1.37162,    .12132,    .03991,
     +     .01922,    .09470,    .15795,
     +     .49755,    .26034,   1.33912,    .12049,    .04087,
     +     .02078,    .09453,    .15656,
     +     .49694,    .25894,   1.30937,    .11968,    .04165,
     +     .02210,    .09431,    .15523,
     +     .49587,    .25705,   1.27123,    .11854,    .04249,
     +     .02356,    .09389,    .15344,
     +     .49467,    .25522,   1.23577,    .11742,    .04316,
     +     .02482,    .09343,    .15171,
     +     .49342,    .25346,   1.20314,    .11633,    .04372,
     +     .02591,    .09294,    .15006 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49191,    .25164,   1.17045,    .11518,    .04415,
     +     .02683,    .09235,    .14833,
     +     .49033,    .24983,   1.13917,    .11402,    .04451,
     +     .02766,    .09173,    .14662,
     +     .48872,    .24808,   1.11010,    .11289,    .04480,
     +     .02838,    .09110,    .14498,
     +     .48706,    .24639,   1.08298,    .11180,    .04499,
     +     .02897,    .09046,    .14340,
     +     .48535,    .24469,   1.05646,    .11070,    .04516,
     +     .02953,    .08980,    .14182,
     +     .48351,    .24295,   1.03057,    .10956,    .04525,
     +     .02998,    .08909,    .14022,
     +     .48176,    .24132,   1.00670,    .10849,    .04533,
     +     .03039,    .08842,    .13872,
     +     .47994,    .23973,    .98428,    .10745,    .04534,
     +     .03072,    .08775,    .13726 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47810,    .23814,    .96230,    .10641,    .04534,
     +     .03103,    .08706,    .13581,
     +     .47619,    .23654,    .94090,    .10536,    .04531,
     +     .03128,    .08636,    .13435,
     +     .47433,    .23500,    .92093,    .10436,    .04525,
     +     .03150,    .08568,    .13296,
     +     .47254,    .23355,    .90240,    .10341,    .04519,
     +     .03169,    .08503,    .13165,
     +     .47063,    .23204,    .88385,    .10242,    .04508,
     +     .03184,    .08435,    .13030 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .51948,    .29576,   1.31301,    .10061,    .00000,
     +     .00000,    .06487,    .14982,
     +     .52324,    .29545,   1.34230,    .10127,    .00000,
     +     .00000,    .06663,    .14978,
     +     .52776,    .29466,   1.36730,    .10201,    .00180,
     +     .00000,    .06888,    .14940,
     +     .53049,    .29384,   1.37408,    .10237,    .00539,
     +     .00000,    .07029,    .14897,
     +     .53276,    .29280,   1.37453,    .10260,    .00819,
     +     .00000,    .07157,    .14833,
     +     .53425,    .29176,   1.36987,    .10268,    .01042,
     +     .00000,    .07248,    .14767,
     +     .53540,    .29066,   1.36236,    .10266,    .01248,
     +     .00000,    .07324,    .14694,
     +     .53634,    .28938,   1.35158,    .10255,    .01454,
     +     .00000,    .07395,    .14610 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .53686,    .28816,   1.33946,    .10237,    .01613,
     +     .00000,    .07444,    .14528,
     +     .53714,    .28691,   1.32600,    .10214,    .01758,
     +     .00000,    .07483,    .14443,
     +     .53726,    .28590,   1.31467,    .10193,    .01868,
     +     .00000,    .07511,    .14373,
     +     .53706,    .28361,   1.28506,    .10136,    .02079,
     +     .00038,    .07552,    .14212,
     +     .53648,    .28150,   1.25397,    .10074,    .02238,
     +     .00283,    .07570,    .14063,
     +     .53541,    .27904,   1.21768,    .09994,    .02397,
     +     .00554,    .07575,    .13884,
     +     .53391,    .27637,   1.17920,    .09899,    .02541,
     +     .00776,    .07564,    .13689,
     +     .53223,    .27384,   1.14390,    .09804,    .02655,
     +     .00957,    .07543,    .13506 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53026,    .27122,   1.10825,    .09701,    .02756,
     +     .01121,    .07511,    .13315,
     +     .52837,    .26902,   1.07867,    .09611,    .02827,
     +     .01241,    .07475,    .13151,
     +     .52586,    .26626,   1.04299,    .09495,    .02902,
     +     .01371,    .07425,    .12949,
     +     .52347,    .26378,   1.01198,    .09388,    .02959,
     +     .01477,    .07374,    .12768,
     +     .52114,    .26150,    .98407,    .09288,    .03004,
     +     .01565,    .07323,    .12601,
     +     .51793,    .25853,    .94903,    .09156,    .03050,
     +     .01661,    .07250,    .12384,
     +     .51476,    .25571,    .91698,    .09029,    .03086,
     +     .01743,    .07177,    .12181,
     +     .51171,    .25308,    .88785,    .08909,    .03113,
     +     .01812,    .07106,    .11990 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50842,    .25040,    .85917,    .08785,    .03132,
     +     .01870,    .07029,    .11796,
     +     .50514,    .24777,    .83201,    .08664,    .03146,
     +     .01922,    .06952,    .11608,
     +     .50197,    .24526,    .80703,    .08548,    .03155,
     +     .01965,    .06877,    .11431,
     +     .49885,    .24289,    .78400,    .08437,    .03159,
     +     .01999,    .06803,    .11263,
     +     .49571,    .24053,    .76163,    .08327,    .03161,
     +     .02032,    .06730,    .11095,
     +     .49246,    .23816,    .74005,    .08217,    .03157,
     +     .02057,    .06654,    .10930,
     +     .48940,    .23594,    .72025,    .08113,    .03154,
     +     .02080,    .06582,    .10776,
     +     .48637,    .23382,    .70183,    .08014,    .03146,
     +     .02097,    .06512,    .10627 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48334,    .23171,    .68385,    .07915,    .03138,
     +     .02113,    .06442,    .10480,
     +     .48027,    .22959,    .66648,    .07816,    .03128,
     +     .02125,    .06371,    .10336,
     +     .47733,    .22758,    .65036,    .07722,    .03117,
     +     .02135,    .06303,    .10201,
     +     .47454,    .22568,    .63548,    .07633,    .03105,
     +     .02143,    .06238,    .10073,
     +     .47162,    .22375,    .62070,    .07543,    .03091,
     +     .02148,    .06172,    .09942 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .58613,    .31884,   1.15812,    .08361,    .00000,
     +     .00000,    .05598,    .13337,
     +     .58707,    .31681,   1.16546,    .08365,    .00000,
     +     .00000,    .05691,    .13218,
     +     .58753,    .31352,   1.16299,    .08350,    .00136,
     +     .00000,    .05800,    .13029,
     +     .58733,    .31097,   1.15301,    .08326,    .00405,
     +     .00000,    .05861,    .12885,
     +     .58654,    .30816,   1.13840,    .08292,    .00613,
     +     .00000,    .05911,    .12721,
     +     .58546,    .30564,   1.12271,    .08253,    .00775,
     +     .00000,    .05942,    .12572,
     +     .58416,    .30317,   1.10596,    .08210,    .00923,
     +     .00000,    .05962,    .12428,
     +     .58254,    .30049,   1.08671,    .08159,    .01070,
     +     .00000,    .05975,    .12273 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58085,    .29809,   1.06847,    .08109,    .01182,
     +     .00000,    .05978,    .12134,
     +     .57905,    .29573,   1.05002,    .08057,    .01282,
     +     .00000,    .05975,    .11998,
     +     .57755,    .29386,   1.03520,    .08013,    .01358,
     +     .00000,    .05971,    .11891,
     +     .57394,    .28979,   1.00038,    .07914,    .01501,
     +     .00029,    .05950,    .11655,
     +     .57047,    .28623,    .96714,    .07820,    .01607,
     +     .00199,    .05920,    .11449,
     +     .56628,    .28220,    .92987,    .07710,    .01710,
     +     .00388,    .05877,    .11216,
     +     .56163,    .27795,    .89167,    .07589,    .01802,
     +     .00540,    .05824,    .10971,
     +     .55715,    .27409,    .85765,    .07474,    .01872,
     +     .00662,    .05768,    .10749 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55241,    .27020,    .82412,    .07357,    .01932,
     +     .00771,    .05704,    .10525,
     +     .54833,    .26693,    .79687,    .07256,    .01974,
     +     .00850,    .05647,    .10340,
     +     .54321,    .26297,    .76463,    .07130,    .02015,
     +     .00934,    .05573,    .10115,
     +     .53857,    .25948,    .73706,    .07018,    .02045,
     +     .01002,    .05505,    .09919,
     +     .53423,    .25630,    .71257,    .06915,    .02068,
     +     .01058,    .05441,    .09740,
     +     .52854,    .25224,    .68234,    .06783,    .02089,
     +     .01117,    .05355,    .09513,
     +     .52312,    .24846,    .65506,    .06658,    .02104,
     +     .01167,    .05272,    .09303,
     +     .51800,    .24495,    .63054,    .06542,    .02114,
     +     .01208,    .05194,    .09109 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51272,    .24143,    .60675,    .06425,    .02117,
     +     .01242,    .05113,    .08917,
     +     .50755,    .23802,    .58443,    .06311,    .02118,
     +     .01271,    .05033,    .08732,
     +     .50264,    .23482,    .56410,    .06203,    .02117,
     +     .01295,    .04958,    .08559,
     +     .49792,    .23180,    .54553,    .06101,    .02112,
     +     .01313,    .04885,    .08398,
     +     .49322,    .22882,    .52760,    .06001,    .02106,
     +     .01330,    .04813,    .08239,
     +     .48850,    .22587,    .51049,    .05901,    .02097,
     +     .01342,    .04740,    .08084,
     +     .48407,    .22311,    .49488,    .05808,    .02088,
     +     .01353,    .04673,    .07940,
     +     .47977,    .22049,    .48049,    .05721,    .02077,
     +     .01360,    .04608,    .07803 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47548,    .21790,    .46650,    .05634,    .02066,
     +     .01367,    .04544,    .07669,
     +     .47121,    .21534,    .45309,    .05548,    .02053,
     +     .01371,    .04480,    .07537,
     +     .46715,    .21292,    .44071,    .05467,    .02040,
     +     .01374,    .04418,    .07414,
     +     .46332,    .21064,    .42932,    .05391,    .02028,
     +     .01376,    .04361,    .07298,
     +     .45939,    .20833,    .41809,    .05314,    .02013,
     +     .01376,    .04302,    .07183 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .63786,    .33189,   1.01236,    .06944,    .00000,
     +     .00000,    .04767,    .11590,
     +     .63570,    .32819,   1.00680,    .06911,    .00000,
     +     .00000,    .04807,    .11405,
     +     .63170,    .32258,    .98886,    .06847,    .00105,
     +     .00000,    .04844,    .11130,
     +     .62835,    .31842,    .96998,    .06794,    .00310,
     +     .00000,    .04859,    .10928,
     +     .62436,    .31398,    .94771,    .06729,    .00466,
     +     .00000,    .04862,    .10712,
     +     .62059,    .31012,    .92673,    .06667,    .00586,
     +     .00000,    .04856,    .10524,
     +     .61678,    .30640,    .90581,    .06604,    .00695,
     +     .00000,    .04845,    .10346,
     +     .61255,    .30246,    .88300,    .06533,    .00802,
     +     .00000,    .04827,    .10159 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .60867,    .29902,    .86248,    .06468,    .00882,
     +     .00000,    .04805,    .09995,
     +     .60478,    .29571,    .84239,    .06403,    .00954,
     +     .00000,    .04780,    .09837,
     +     .60165,    .29310,    .82656,    .06351,    .01007,
     +     .00000,    .04759,    .09714,
     +     .59470,    .28752,    .79105,    .06235,    .01107,
     +     .00022,    .04705,    .09453,
     +     .58845,    .28273,    .75867,    .06133,    .01178,
     +     .00143,    .04653,    .09226,
     +     .58127,    .27740,    .72321,    .06014,    .01247,
     +     .00278,    .04590,    .08976,
     +     .57362,    .27188,    .68762,    .05886,    .01306,
     +     .00385,    .04516,    .08723,
     +     .56653,    .26694,    .65649,    .05770,    .01350,
     +     .00469,    .04445,    .08495 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55928,    .26201,    .62629,    .05653,    .01386,
     +     .00544,    .04373,    .08268,
     +     .55320,    .25793,    .60210,    .05553,    .01411,
     +     .00597,    .04308,    .08085,
     +     .54570,    .25304,    .57386,    .05432,    .01433,
     +     .00654,    .04229,    .07864,
     +     .53905,    .24879,    .54998,    .05327,    .01449,
     +     .00698,    .04157,    .07673,
     +     .53295,    .24493,    .52898,    .05231,    .01459,
     +     .00735,    .04091,    .07502,
     +     .52511,    .24006,    .50335,    .05107,    .01468,
     +     .00772,    .04006,    .07288,
     +     .51775,    .23556,    .48048,    .04993,    .01472,
     +     .00803,    .03925,    .07091,
     +     .51089,    .23143,    .46010,    .04888,    .01473,
     +     .00829,    .03850,    .06912 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50393,    .22732,    .44052,    .04782,    .01470,
     +     .00848,    .03774,    .06735,
     +     .49719,    .22337,    .42228,    .04680,    .01465,
     +     .00865,    .03701,    .06566,
     +     .49085,    .21967,    .40581,    .04585,    .01459,
     +     .00879,    .03632,    .06411,
     +     .48483,    .21622,    .39090,    .04496,    .01451,
     +     .00889,    .03566,    .06267,
     +     .47886,    .21283,    .37659,    .04409,    .01443,
     +     .00897,    .03500,    .06126,
     +     .47294,    .20950,    .36301,    .04324,    .01432,
     +     .00903,    .03436,    .05989,
     +     .46740,    .20640,    .35067,    .04245,    .01422,
     +     .00908,    .03377,    .05862,
     +     .46212,    .20347,    .33938,    .04169,    .01411,
     +     .00910,    .03320,    .05744 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45688,    .20058,    .32845,    .04094,    .01399,
     +     .00912,    .03264,    .05627,
     +     .45168,    .19775,    .31804,    .04022,    .01387,
     +     .00913,    .03209,    .05514,
     +     .44675,    .19508,    .30846,    .03955,    .01375,
     +     .00913,    .03157,    .05407,
     +     .44213,    .19259,    .29969,    .03891,    .01364,
     +     .00912,    .03108,    .05308,
     +     .43743,    .19006,    .29109,    .03827,    .01351,
     +     .00910,    .03059,    .05211 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .67560,    .33672,    .88325,    .05778,    .00000,
     +     .00000,    .04011,    .09845,
     +     .67025,    .33150,    .86992,    .05725,    .00000,
     +     .00000,    .04016,    .09630,
     +     .66169,    .32385,    .84315,    .05640,    .00081,
     +     .00000,    .04009,    .09312,
     +     .65516,    .31829,    .81960,    .05570,    .00239,
     +     .00000,    .03995,    .09086,
     +     .64798,    .31245,    .79356,    .05490,    .00358,
     +     .00000,    .03970,    .08850,
     +     .64155,    .30745,    .77027,    .05418,    .00449,
     +     .00000,    .03943,    .08651,
     +     .63528,    .30270,    .74773,    .05347,    .00530,
     +     .00000,    .03914,    .08462,
     +     .62853,    .29773,    .72380,    .05270,    .00609,
     +     .00000,    .03879,    .08265 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62253,    .29343,    .70285,    .05200,    .00667,
     +     .00000,    .03844,    .08096,
     +     .61667,    .28932,    .68271,    .05131,    .00719,
     +     .00000,    .03808,    .07937,
     +     .61203,    .28611,    .66702,    .05078,    .00757,
     +     .00000,    .03778,    .07812,
     +     .60195,    .27932,    .63278,    .04961,    .00827,
     +     .00017,    .03711,    .07550,
     +     .59317,    .27353,    .60252,    .04856,    .00876,
     +     .00105,    .03649,    .07330,
     +     .58327,    .26719,    .56989,    .04739,    .00922,
     +     .00202,    .03578,    .07089,
     +     .57292,    .26072,    .53763,    .04617,    .00961,
     +     .00279,    .03499,    .06846,
     +     .56354,    .25495,    .50981,    .04506,    .00989,
     +     .00338,    .03426,    .06631 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55411,    .24924,    .48315,    .04395,    .01011,
     +     .00391,    .03353,    .06421,
     +     .54625,    .24459,    .46201,    .04304,    .01025,
     +     .00428,    .03290,    .06249,
     +     .53673,    .23904,    .43762,    .04194,    .01036,
     +     .00466,    .03212,    .06048,
     +     .52839,    .23423,    .41720,    .04098,    .01044,
     +     .00496,    .03145,    .05876,
     +     .52083,    .22990,    .39939,    .04009,    .01048,
     +     .00520,    .03083,    .05723,
     +     .51121,    .22448,    .37785,    .03899,    .01049,
     +     .00544,    .03005,    .05531,
     +     .50226,    .21951,    .35878,    .03798,    .01048,
     +     .00564,    .02932,    .05357,
     +     .49397,    .21498,    .34192,    .03705,    .01045,
     +     .00580,    .02864,    .05200 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48570,    .21048,    .32588,    .03613,    .01039,
     +     .00591,    .02796,    .05047,
     +     .47772,    .20618,    .31103,    .03525,    .01032,
     +     .00601,    .02731,    .04902,
     +     .47025,    .20221,    .29771,    .03443,    .01025,
     +     .00609,    .02670,    .04768,
     +     .46323,    .19852,    .28572,    .03368,    .01016,
     +     .00614,    .02614,    .04644,
     +     .45630,    .19489,    .27426,    .03294,    .01007,
     +     .00618,    .02559,    .04523,
     +     .44949,    .19134,    .26346,    .03221,    .00997,
     +     .00620,    .02504,    .04408,
     +     .44315,    .18805,    .25368,    .03154,    .00988,
     +     .00622,    .02453,    .04302,
     +     .43713,    .18497,    .24481,    .03091,    .00978,
     +     .00622,    .02405,    .04204 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43116,    .18194,    .23624,    .03029,    .00967,
     +     .00622,    .02358,    .04107,
     +     .42530,    .17898,    .22812,    .02968,    .00957,
     +     .00621,    .02312,    .04013,
     +     .41979,    .17619,    .22069,    .02911,    .00946,
     +     .00620,    .02269,    .03925,
     +     .41462,    .17360,    .21390,    .02858,    .00936,
     +     .00618,    .02229,    .03844,
     +     .40937,    .17098,    .20728,    .02806,    .00926,
     +     .00615,    .02188,    .03763 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70037,    .33485,    .77167,    .04823,    .00000,
     +     .00000,    .03334,    .08179,
     +     .69188,    .32832,    .75347,    .04758,    .00000,
     +     .00000,    .03319,    .07957,
     +     .67894,    .31887,    .72157,    .04658,    .00064,
     +     .00000,    .03287,    .07637,
     +     .66938,    .31213,    .69560,    .04582,    .00186,
     +     .00000,    .03256,    .07411,
     +     .65918,    .30512,    .66788,    .04496,    .00278,
     +     .00000,    .03218,    .07181,
     +     .65026,    .29919,    .64383,    .04420,    .00346,
     +     .00000,    .03181,    .06985,
     +     .64170,    .29360,    .62102,    .04346,    .00407,
     +     .00000,    .03143,    .06803,
     +     .63263,    .28780,    .59719,    .04267,    .00465,
     +     .00000,    .03099,    .06616 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62469,    .28283,    .57665,    .04199,    .00508,
     +     .00000,    .03059,    .06454,
     +     .61704,    .27809,    .55721,    .04131,    .00545,
     +     .00000,    .03020,    .06304,
     +     .61104,    .27440,    .54222,    .04077,    .00573,
     +     .00000,    .02989,    .06187,
     +     .59819,    .26668,    .51011,    .03964,    .00622,
     +     .00013,    .02917,    .05945,
     +     .58715,    .26018,    .48235,    .03864,    .00656,
     +     .00077,    .02855,    .05743,
     +     .57489,    .25307,    .45283,    .03753,    .00687,
     +     .00149,    .02783,    .05525,
     +     .56226,    .24589,    .42404,    .03639,    .00712,
     +     .00204,    .02708,    .05305,
     +     .55092,    .23956,    .39949,    .03537,    .00729,
     +     .00246,    .02640,    .05113 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .53963,    .23333,    .37621,    .03436,    .00742,
     +     .00283,    .02570,    .04928,
     +     .53033,    .22829,    .35795,    .03354,    .00750,
     +     .00309,    .02512,    .04777,
     +     .51919,    .22229,    .33705,    .03254,    .00756,
     +     .00335,    .02443,    .04602,
     +     .50950,    .21712,    .31969,    .03168,    .00758,
     +     .00355,    .02382,    .04454,
     +     .50074,    .21250,    .30465,    .03091,    .00759,
     +     .00371,    .02327,    .04322,
     +     .48971,    .20678,    .28662,    .02995,    .00756,
     +     .00387,    .02258,    .04157,
     +     .47953,    .20154,    .27079,    .02907,    .00752,
     +     .00400,    .02194,    .04011,
     +     .47019,    .19676,    .25690,    .02826,    .00748,
     +     .00410,    .02136,    .03879 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46090,    .19210,    .24379,    .02747,    .00741,
     +     .00417,    .02078,    .03750,
     +     .45199,    .18765,    .23174,    .02672,    .00734,
     +     .00422,    .02023,    .03628,
     +     .44372,    .18352,    .22096,    .02603,    .00726,
     +     .00426,    .01972,    .03517,
     +     .43598,    .17971,    .21133,    .02540,    .00718,
     +     .00429,    .01924,    .03416,
     +     .42836,    .17599,    .20216,    .02478,    .00710,
     +     .00430,    .01877,    .03317,
     +     .42093,    .17238,    .19358,    .02416,    .00701,
     +     .00431,    .01832,    .03223,
     +     .41404,    .16903,    .18584,    .02360,    .00693,
     +     .00431,    .01790,    .03136,
     +     .40753,    .16590,    .17885,    .02307,    .00684,
     +     .00430,    .01751,    .03057 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40110,    .16282,    .17214,    .02256,    .00675,
     +     .00429,    .01712,    .02978,
     +     .39482,    .15984,    .16580,    .02206,    .00666,
     +     .00428,    .01675,    .02902,
     +     .38891,    .15705,    .16002,    .02159,    .00658,
     +     .00426,    .01640,    .02831,
     +     .38339,    .15445,    .15474,    .02116,    .00649,
     +     .00424,    .01608,    .02766,
     +     .37781,    .15184,    .14960,    .02073,    .00641,
     +     .00421,    .01575,    .02702 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .71328,    .32749,    .67582,    .04034,    .00000,
     +     .00000,    .02740,    .06656,
     +     .70181,    .31989,    .65448,    .03963,    .00000,
     +     .00000,    .02714,    .06444,
     +     .68477,    .30898,    .61959,    .03855,    .00050,
     +     .00000,    .02668,    .06145,
     +     .67243,    .30129,    .59250,    .03775,    .00145,
     +     .00000,    .02630,    .05934,
     +     .65946,    .29336,    .56431,    .03688,    .00215,
     +     .00000,    .02586,    .05720,
     +     .64828,    .28672,    .54031,    .03613,    .00267,
     +     .00000,    .02546,    .05540,
     +     .63769,    .28049,    .51790,    .03540,    .00313,
     +     .00000,    .02505,    .05374,
     +     .62658,    .27404,    .49483,    .03462,    .00356,
     +     .00000,    .02460,    .05206 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61697,    .26854,    .47524,    .03394,    .00388,
     +     .00000,    .02421,    .05063,
     +     .60775,    .26337,    .45687,    .03330,    .00415,
     +     .00000,    .02381,    .04927,
     +     .60053,    .25937,    .44279,    .03281,    .00434,
     +     .00000,    .02350,    .04822,
     +     .58531,    .25099,    .41323,    .03171,    .00469,
     +     .00010,    .02283,    .04609,
     +     .57240,    .24398,    .38810,    .03079,    .00493,
     +     .00057,    .02224,    .04432,
     +     .55817,    .23639,    .36167,    .02978,    .00514,
     +     .00110,    .02157,    .04241,
     +     .54364,    .22876,    .33622,    .02876,    .00530,
     +     .00150,    .02088,    .04052,
     +     .53073,    .22207,    .31476,    .02784,    .00540,
     +     .00180,    .02026,    .03888 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51797,    .21555,    .29460,    .02693,    .00547,
     +     .00206,    .01965,    .03729,
     +     .50756,    .21026,    .27892,    .02619,    .00551,
     +     .00224,    .01914,    .03603,
     +     .49514,    .20405,    .26113,    .02532,    .00552,
     +     .00242,    .01853,    .03457,
     +     .48441,    .19873,    .24645,    .02457,    .00552,
     +     .00256,    .01800,    .03333,
     +     .47478,    .19397,    .23380,    .02389,    .00551,
     +     .00267,    .01752,    .03224,
     +     .46274,    .18809,    .21882,    .02306,    .00547,
     +     .00277,    .01693,    .03090,
     +     .45168,    .18275,    .20577,    .02230,    .00543,
     +     .00285,    .01640,    .02969,
     +     .44157,    .17792,    .19437,    .02162,    .00537,
     +     .00291,    .01591,    .02861 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43158,    .17322,    .18368,    .02097,    .00531,
     +     .00295,    .01542,    .02754,
     +     .42207,    .16873,    .17390,    .02033,    .00524,
     +     .00298,    .01496,    .02656,
     +     .41329,    .16457,    .16523,    .01973,    .00517,
     +     .00300,    .01454,    .02569,
     +     .40511,    .16077,    .15750,    .01918,    .00510,
     +     .00301,    .01415,    .02488,
     +     .39709,    .15708,    .15016,    .01866,    .00503,
     +     .00302,    .01377,    .02409,
     +     .38928,    .15350,    .14337,    .01815,    .00495,
     +     .00301,    .01340,    .02334,
     +     .38206,    .15020,    .13727,    .01768,    .00488,
     +     .00300,    .01305,    .02266,
     +     .37527,    .14712,    .13176,    .01725,    .00481,
     +     .00299,    .01273,    .02203 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36858,    .14409,    .12647,    .01683,    .00474,
     +     .00298,    .01243,    .02141,
     +     .36206,    .14116,    .12151,    .01643,    .00466,
     +     .00296,    .01213,    .02082,
     +     .35594,    .13843,    .11701,    .01605,    .00460,
     +     .00294,    .01185,    .02027,
     +     .35025,    .13590,    .11292,    .01570,    .00453,
     +     .00292,    .01160,    .01977,
     +     .34456,    .13336,    .10895,    .01533,    .00446,
     +     .00290,    .01134,    .01927 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .71545,    .31575,    .59310,    .03370,    .00000,
     +     .00000,    .02227,    .05311,
     +     .70123,    .30733,    .56971,    .03299,    .00000,
     +     .00000,    .02195,    .05119,
     +     .68049,    .29533,    .53317,    .03192,    .00039,
     +     .00000,    .02143,    .04848,
     +     .66563,    .28696,    .50583,    .03113,    .00113,
     +     .00000,    .02102,    .04661,
     +     .65025,    .27836,    .47787,    .03027,    .00167,
     +     .00000,    .02057,    .04473,
     +     .63712,    .27120,    .45450,    .02955,    .00206,
     +     .00000,    .02016,    .04316,
     +     .62477,    .26453,    .43293,    .02886,    .00240,
     +     .00000,    .01976,    .04171,
     +     .61190,    .25766,    .41097,    .02813,    .00273,
     +     .00000,    .01933,    .04024 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60085,    .25184,    .39258,    .02750,    .00295,
     +     .00000,    .01896,    .03900,
     +     .59035,    .24637,    .37551,    .02690,    .00315,
     +     .00000,    .01859,    .03783,
     +     .58218,    .24214,    .36253,    .02644,    .00329,
     +     .00000,    .01831,    .03693,
     +     .56503,    .23337,    .33556,    .02545,    .00354,
     +     .00008,    .01768,    .03513,
     +     .55056,    .22609,    .31306,    .02462,    .00370,
     +     .00043,    .01715,    .03362,
     +     .53479,    .21824,    .28965,    .02370,    .00384,
     +     .00081,    .01655,    .03204,
     +     .51883,    .21039,    .26734,    .02278,    .00394,
     +     .00110,    .01593,    .03047,
     +     .50473,    .20354,    .24873,    .02195,    .00400,
     +     .00132,    .01540,    .02913 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49090,    .19688,    .23141,    .02115,    .00403,
     +     .00150,    .01487,    .02783,
     +     .47968,    .19153,    .21801,    .02051,    .00405,
     +     .00163,    .01444,    .02680,
     +     .46637,    .18526,    .20295,    .01975,    .00404,
     +     .00175,    .01393,    .02559,
     +     .45493,    .17991,    .19065,    .01910,    .00403,
     +     .00185,    .01349,    .02458,
     +     .44469,    .17515,    .18015,    .01853,    .00401,
     +     .00192,    .01311,    .02370,
     +     .43199,    .16930,    .16773,    .01780,    .00397,
     +     .00199,    .01260,    .02264,
     +     .42038,    .16401,    .15699,    .01716,    .00392,
     +     .00204,    .01215,    .02168,
     +     .40981,    .15925,    .14768,    .01659,    .00387,
     +     .00207,    .01176,    .02081 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .39947,    .15459,    .13901,    .01602,    .00381,
     +     .00209,    .01136,    .01998,
     +     .38961,    .15019,    .13111,    .01549,    .00375,
     +     .00211,    .01099,    .01921,
     +     .38051,    .14618,    .12412,    .01500,    .00369,
     +     .00212,    .01065,    .01851,
     +     .37210,    .14248,    .11795,    .01457,    .00363,
     +     .00212,    .01034,    .01788,
     +     .36389,    .13888,    .11213,    .01415,    .00357,
     +     .00212,    .01003,    .01726,
     +     .35594,    .13540,    .10676,    .01371,    .00351,
     +     .00211,    .00974,    .01669,
     +     .34861,    .13220,    .10195,    .01331,    .00345,
     +     .00210,    .00947,    .01617,
     +     .34173,    .12925,    .09761,    .01296,    .00339,
     +     .00209,    .00922,    .01568 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33497,    .12636,    .09346,    .01262,    .00334,
     +     .00208,    .00898,    .01520,
     +     .32841,    .12355,    .08959,    .01229,    .00328,
     +     .00206,    .00874,    .01474,
     +     .32229,    .12093,    .08608,    .01199,    .00322,
     +     .00204,    .00852,    .01431,
     +     .31660,    .11850,    .08291,    .01170,    .00317,
     +     .00203,    .00832,    .01393,
     +     .31089,    .11610,    .07985,    .01142,    .00312,
     +     .00201,    .00812,    .01356 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .70762,    .30098,    .52096,    .02841,    .00000,
     +     .00000,    .01770,    .04132,
     +     .69108,    .29191,    .49623,    .02765,    .00000,
     +     .00000,    .01738,    .03972,
     +     .66718,    .27912,    .45898,    .02658,    .00030,
     +     .00000,    .01689,    .03740,
     +     .65027,    .27021,    .43192,    .02578,    .00088,
     +     .00000,    .01651,    .03582,
     +     .63287,    .26116,    .40474,    .02495,    .00129,
     +     .00000,    .01609,    .03424,
     +     .61816,    .25366,    .38234,    .02425,    .00159,
     +     .00000,    .01573,    .03291,
     +     .60437,    .24672,    .36190,    .02360,    .00185,
     +     .00000,    .01537,    .03170,
     +     .59009,    .23960,    .34133,    .02293,    .00208,
     +     .00000,    .01498,    .03047 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .57795,    .23359,    .32430,    .02233,    .00225,
     +     .00000,    .01465,    .02945,
     +     .56645,    .22795,    .30862,    .02176,    .00239,
     +     .00000,    .01432,    .02852,
     +     .55753,    .22360,    .29677,    .02132,    .00249,
     +     .00000,    .01406,    .02780,
     +     .53891,    .21466,    .27246,    .02042,    .00266,
     +     .00006,    .01353,    .02631,
     +     .52332,    .20728,    .25254,    .01968,    .00277,
     +     .00032,    .01307,    .02507,
     +     .50644,    .19934,    .23202,    .01884,    .00286,
     +     .00060,    .01257,    .02379,
     +     .48944,    .19145,    .21259,    .01802,    .00292,
     +     .00081,    .01205,    .02254,
     +     .47453,    .18461,    .19654,    .01731,    .00296,
     +     .00097,    .01160,    .02145 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45999,    .17800,    .18176,    .01662,    .00297,
     +     .00110,    .01115,    .02041,
     +     .44823,    .17270,    .17047,    .01606,    .00297,
     +     .00119,    .01079,    .01961,
     +     .43439,    .16651,    .15783,    .01541,    .00296,
     +     .00127,    .01037,    .01865,
     +     .42255,    .16126,    .14756,    .01485,    .00294,
     +     .00133,    .01002,    .01785,
     +     .41200,    .15662,    .13886,    .01435,    .00291,
     +     .00138,    .00969,    .01717,
     +     .39889,    .15094,    .12865,    .01377,    .00287,
     +     .00143,    .00929,    .01633,
     +     .38703,    .14579,    .11988,    .01322,    .00283,
     +     .00146,    .00894,    .01559,
     +     .37633,    .14115,    .11231,    .01270,    .00278,
     +     .00148,    .00861,    .01494 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36584,    .13667,    .10531,    .01224,    .00273,
     +     .00149,    .00831,    .01429,
     +     .35591,    .13245,    .09898,    .01180,    .00268,
     +     .00150,    .00801,    .01370,
     +     .34677,    .12859,    .09342,    .01138,    .00263,
     +     .00150,    .00773,    .01318,
     +     .33832,    .12507,    .08852,    .01103,    .00258,
     +     .00150,    .00749,    .01270,
     +     .33009,    .12166,    .08390,    .01069,    .00253,
     +     .00149,    .00725,    .01222,
     +     .32217,    .11837,    .07965,    .01035,    .00248,
     +     .00148,    .00702,    .01177,
     +     .31489,    .11535,    .07585,    .01003,    .00244,
     +     .00147,    .00681,    .01137,
     +     .30810,    .11255,    .07247,    .00974,    .00239,
     +     .00146,    .00662,    .01099 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30144,    .10981,    .06924,    .00947,    .00235,
     +     .00145,    .00644,    .01063,
     +     .29498,    .10717,    .06624,    .00920,    .00230,
     +     .00144,    .00626,    .01030,
     +     .28897,    .10471,    .06353,    .00895,    .00226,
     +     .00142,    .00608,    .00999,
     +     .28339,    .10245,    .06108,    .00871,    .00222,
     +     .00141,    .00592,    .00971,
     +     .27781,    .10020,    .05872,    .00849,    .00218,
     +     .00139,    .00577,    .00943 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69183,    .28316,    .45656,    .02349,    .00000,
     +     .00000,    .01409,    .03173,
     +     .67324,    .27374,    .43119,    .02279,    .00000,
     +     .00000,    .01379,    .03035,
     +     .64667,    .26047,    .39414,    .02175,    .00023,
     +     .00000,    .01331,    .02845,
     +     .62800,    .25133,    .36787,    .02103,    .00067,
     +     .00000,    .01295,    .02713,
     +     .60892,    .24210,    .34180,    .02028,    .00098,
     +     .00000,    .01255,    .02583,
     +     .59295,    .23443,    .32068,    .01962,    .00121,
     +     .00000,    .01220,    .02478,
     +     .57806,    .22738,    .30162,    .01902,    .00140,
     +     .00000,    .01189,    .02379,
     +     .56270,    .22019,    .28263,    .01841,    .00157,
     +     .00000,    .01156,    .02278 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54967,    .21416,    .26705,    .01789,    .00169,
     +     .00000,    .01126,    .02195,
     +     .53741,    .20851,    .25284,    .01739,    .00179,
     +     .00000,    .01097,    .02118,
     +     .52795,    .20416,    .24217,    .01700,    .00187,
     +     .00000,    .01075,    .02060,
     +     .50828,    .19525,    .22057,    .01621,    .00198,
     +     .00005,    .01030,    .01941,
     +     .49195,    .18789,    .20306,    .01554,    .00206,
     +     .00023,    .00992,    .01843,
     +     .47434,    .18006,    .18521,    .01483,    .00211,
     +     .00044,    .00949,    .01741,
     +     .45670,    .17232,    .16854,    .01413,    .00215,
     +     .00059,    .00905,    .01643,
     +     .44134,    .16562,    .15491,    .01350,    .00217,
     +     .00070,    .00867,    .01560 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42645,    .15917,    .14242,    .01289,    .00217,
     +     .00079,    .00831,    .01479,
     +     .41441,    .15408,    .13294,    .01242,    .00216,
     +     .00085,    .00802,    .01414,
     +     .40032,    .14810,    .12242,    .01189,    .00214,
     +     .00091,    .00767,    .01341,
     +     .38832,    .14304,    .11394,    .01143,    .00212,
     +     .00095,    .00738,    .01280,
     +     .37770,    .13857,    .10679,    .01100,    .00210,
     +     .00099,    .00713,    .01227,
     +     .36457,    .13313,    .09846,    .01049,    .00206,
     +     .00101,    .00681,    .01164,
     +     .35270,    .12825,    .09136,    .01006,    .00202,
     +     .00103,    .00653,    .01107,
     +     .34200,    .12387,    .08527,    .00967,    .00199,
     +     .00105,    .00627,    .01055 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33157,    .11962,    .07966,    .00929,    .00194,
     +     .00105,    .00603,    .01008,
     +     .32175,    .11564,    .07461,    .00893,    .00190,
     +     .00105,    .00580,    .00964,
     +     .31276,    .11201,    .07018,    .00858,    .00186,
     +     .00105,    .00558,    .00925,
     +     .30450,    .10870,    .06631,    .00828,    .00182,
     +     .00105,    .00539,    .00888,
     +     .29646,    .10550,    .06269,    .00800,    .00179,
     +     .00104,    .00521,    .00852,
     +     .28873,    .10243,    .05937,    .00773,    .00175,
     +     .00103,    .00503,    .00820,
     +     .28162,    .09962,    .05642,    .00748,    .00171,
     +     .00103,    .00487,    .00790,
     +     .27503,    .09702,    .05379,    .00725,    .00168,
     +     .00102,    .00472,    .00763 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .26858,    .09449,    .05128,    .00702,    .00164,
     +     .00101,    .00458,    .00737,
     +     .26234,    .09206,    .04896,    .00681,    .00161,
     +     .00100,    .00444,    .00711,
     +     .25652,    .08981,    .04686,    .00662,    .00157,
     +     .00098,    .00431,    .00688,
     +     .25114,    .08773,    .04497,    .00644,    .00154,
     +     .00097,    .00419,    .00667,
     +     .24580,    .08566,    .04316,    .00626,    .00151,
     +     .00096,    .00408,    .00647 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .66859,    .26370,    .39867,    .01937,    .00000,
     +     .00000,    .01102,    .02383,
     +     .64840,    .25408,    .37326,    .01870,    .00000,
     +     .00000,    .01074,    .02273,
     +     .61975,    .24065,    .33704,    .01774,    .00018,
     +     .00000,    .01030,    .02120,
     +     .59981,    .23139,    .31195,    .01706,    .00051,
     +     .00000,    .00999,    .02016,
     +     .57948,    .22216,    .28742,    .01639,    .00075,
     +     .00000,    .00966,    .01909,
     +     .56256,    .21453,    .26782,    .01581,    .00091,
     +     .00000,    .00936,    .01825,
     +     .54689,    .20751,    .25027,    .01526,    .00105,
     +     .00000,    .00908,    .01748,
     +     .53082,    .20037,    .23292,    .01470,    .00118,
     +     .00000,    .00879,    .01670 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51726,    .19439,    .21890,    .01423,    .00126,
     +     .00000,    .00855,    .01604,
     +     .50451,    .18882,    .20620,    .01379,    .00134,
     +     .00000,    .00831,    .01546,
     +     .49469,    .18457,    .19671,    .01346,    .00139,
     +     .00000,    .00811,    .01502,
     +     .47444,    .17585,    .17769,    .01276,    .00147,
     +     .00004,    .00773,    .01408,
     +     .45767,    .16872,    .16253,    .01220,    .00151,
     +     .00017,    .00741,    .01332,
     +     .43969,    .16113,    .14722,    .01159,    .00155,
     +     .00032,    .00706,    .01255,
     +     .42183,    .15365,    .13305,    .01097,    .00157,
     +     .00043,    .00673,    .01178,
     +     .40632,    .14722,    .12156,    .01045,    .00157,
     +     .00051,    .00643,    .01113 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39131,    .14106,    .11113,    .00996,    .00157,
     +     .00057,    .00613,    .01052,
     +     .37927,    .13617,    .10326,    .00958,    .00156,
     +     .00061,    .00590,    .01005,
     +     .36527,    .13050,    .09461,    .00910,    .00154,
     +     .00065,    .00562,    .00950,
     +     .35338,    .12571,    .08767,    .00871,    .00152,
     +     .00068,    .00538,    .00904,
     +     .34286,    .12150,    .08183,    .00838,    .00150,
     +     .00070,    .00518,    .00864,
     +     .32992,    .11639,    .07512,    .00797,    .00147,
     +     .00072,    .00494,    .00816,
     +     .31828,    .11180,    .06942,    .00761,    .00144,
     +     .00073,    .00472,    .00774,
     +     .30783,    .10769,    .06455,    .00729,    .00141,
     +     .00074,    .00452,    .00736 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .29770,    .10375,    .06008,    .00697,    .00137,
     +     .00074,    .00433,    .00701,
     +     .28818,    .10005,    .05609,    .00668,    .00134,
     +     .00074,    .00414,    .00669,
     +     .27947,    .09670,    .05262,    .00641,    .00131,
     +     .00074,    .00398,    .00640,
     +     .27149,    .09364,    .04958,    .00618,    .00128,
     +     .00073,    .00384,    .00613,
     +     .26375,    .09069,    .04675,    .00596,    .00125,
     +     .00073,    .00370,    .00587,
     +     .25634,    .08788,    .04417,    .00573,    .00122,
     +     .00072,    .00357,    .00563,
     +     .24956,    .08531,    .04188,    .00551,    .00119,
     +     .00071,    .00344,    .00542,
     +     .24324,    .08294,    .03985,    .00534,    .00117,
     +     .00070,    .00333,    .00523 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .23707,    .08063,    .03792,    .00518,    .00114,
     +     .00069,    .00322,    .00504,
     +     .23114,    .07842,    .03613,    .00502,    .00112,
     +     .00069,    .00312,    .00486,
     +     .22564,    .07636,    .03453,    .00486,    .00109,
     +     .00068,    .00302,    .00470,
     +     .22057,    .07447,    .03308,    .00472,    .00107,
     +     .00067,    .00294,    .00454,
     +     .21553,    .07261,    .03169,    .00458,    .00105,
     +     .00066,    .00285,    .00439 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .63927,    .24297,    .34590,    .01575,    .00000,
     +     .00000,    .00853,    .01759,
     +     .61788,    .23336,    .32102,    .01514,    .00000,
     +     .00000,    .00829,    .01671,
     +     .58776,    .21997,    .28632,    .01424,    .00013,
     +     .00000,    .00791,    .01553,
     +     .56686,    .21088,    .26273,    .01366,    .00038,
     +     .00000,    .00763,    .01471,
     +     .54575,    .20176,    .24010,    .01305,    .00056,
     +     .00000,    .00735,    .01390,
     +     .52830,    .19427,    .22214,    .01252,    .00068,
     +     .00000,    .00710,    .01325,
     +     .51215,    .18742,    .20624,    .01205,    .00078,
     +     .00000,    .00687,    .01265,
     +     .49564,    .18049,    .19072,    .01157,    .00087,
     +     .00000,    .00662,    .01205 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48176,    .17468,    .17826,    .01118,    .00093,
     +     .00000,    .00640,    .01157,
     +     .46880,    .16930,    .16708,    .01080,    .00098,
     +     .00000,    .00621,    .01111,
     +     .45886,    .16520,    .15878,    .01051,    .00102,
     +     .00000,    .00607,    .01074,
     +     .43839,    .15681,    .14229,    .00994,    .00107,
     +     .00003,    .00576,    .01002,
     +     .42158,    .14996,    .12928,    .00944,    .00110,
     +     .00012,    .00550,    .00947,
     +     .40360,    .14273,    .11627,    .00891,    .00112,
     +     .00023,    .00522,    .00889,
     +     .38580,    .13565,    .10437,    .00840,    .00113,
     +     .00031,    .00494,    .00833,
     +     .37040,    .12959,    .09480,    .00798,    .00113,
     +     .00036,    .00470,    .00784 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35557,    .12379,    .08617,    .00759,    .00112,
     +     .00041,    .00447,    .00736,
     +     .34379,    .11920,    .07973,    .00726,    .00111,
     +     .00044,    .00428,    .00702,
     +     .33007,    .11388,    .07268,    .00690,    .00110,
     +     .00046,    .00407,    .00662,
     +     .31844,    .10942,    .06707,    .00659,    .00108,
     +     .00048,    .00389,    .00628,
     +     .30819,    .10552,    .06238,    .00631,    .00106,
     +     .00050,    .00373,    .00599,
     +     .29574,    .10077,    .05701,    .00596,    .00104,
     +     .00051,    .00353,    .00564,
     +     .28452,    .09653,    .05247,    .00567,    .00101,
     +     .00051,    .00336,    .00534,
     +     .27443,    .09276,    .04862,    .00542,    .00099,
     +     .00051,    .00322,    .00507 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26473,    .08915,    .04511,    .00519,    .00096,
     +     .00051,    .00308,    .00480,
     +     .25563,    .08577,    .04198,    .00495,    .00094,
     +     .00051,    .00295,    .00457,
     +     .24734,    .08271,    .03926,    .00473,    .00092,
     +     .00051,    .00282,    .00437,
     +     .23977,    .07992,    .03691,    .00454,    .00089,
     +     .00051,    .00271,    .00418,
     +     .23244,    .07724,    .03472,    .00437,    .00087,
     +     .00050,    .00260,    .00400,
     +     .22545,    .07469,    .03273,    .00420,    .00085,
     +     .00050,    .00250,    .00382,
     +     .21906,    .07237,    .03096,    .00403,    .00083,
     +     .00049,    .00241,    .00367,
     +     .21313,    .07023,    .02940,    .00390,    .00081,
     +     .00048,    .00233,    .00353 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .20736,    .06815,    .02793,    .00376,    .00079,
     +     .00048,    .00224,    .00340,
     +     .20181,    .06616,    .02657,    .00364,    .00077,
     +     .00047,    .00217,    .00327,
     +     .19668,    .06432,    .02534,    .00353,    .00076,
     +     .00046,    .00210,    .00314,
     +     .19194,    .06264,    .02425,    .00343,    .00074,
     +     .00046,    .00204,    .00303,
     +     .18726,    .06097,    .02321,    .00332,    .00072,
     +     .00045,    .00197,    .00293 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60492,    .22159,    .29752,    .01259,    .00000,
     +     .00000,    .00655,    .01276,
     +     .58275,    .21216,    .27367,    .01203,    .00000,
     +     .00000,    .00634,    .01210,
     +     .55171,    .19909,    .24117,    .01125,    .00010,
     +     .00000,    .00601,    .01119,
     +     .53027,    .19025,    .21944,    .01076,    .00028,
     +     .00000,    .00578,    .01054,
     +     .50878,    .18140,    .19877,    .01023,    .00041,
     +     .00000,    .00553,    .00995,
     +     .49107,    .17419,    .18265,    .00978,    .00050,
     +     .00000,    .00533,    .00945,
     +     .47476,    .16761,    .16850,    .00938,    .00057,
     +     .00000,    .00514,    .00898,
     +     .45814,    .16097,    .15477,    .00899,    .00063,
     +     .00000,    .00495,    .00852 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44425,    .15543,    .14386,    .00862,    .00068,
     +     .00000,    .00477,    .00817,
     +     .43132,    .15030,    .13416,    .00830,    .00071,
     +     .00000,    .00462,    .00784,
     +     .42142,    .14638,    .12700,    .00805,    .00073,
     +     .00000,    .00451,    .00758,
     +     .40106,    .13845,    .11293,    .00760,    .00077,
     +     .00002,    .00423,    .00706,
     +     .38445,    .13201,    .10195,    .00718,    .00079,
     +     .00009,    .00404,    .00664,
     +     .36678,    .12523,    .09107,    .00675,    .00080,
     +     .00016,    .00382,    .00620,
     +     .34936,    .11861,    .08119,    .00634,    .00081,
     +     .00021,    .00360,    .00578,
     +     .33438,    .11295,    .07332,    .00599,    .00080,
     +     .00025,    .00341,    .00543 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32003,    .10756,    .06630,    .00565,    .00080,
     +     .00028,    .00322,    .00511,
     +     .30862,    .10332,    .06110,    .00540,    .00079,
     +     .00030,    .00308,    .00484,
     +     .29540,    .09842,    .05544,    .00511,    .00077,
     +     .00032,    .00292,    .00455,
     +     .28425,    .09432,    .05095,    .00486,    .00076,
     +     .00034,    .00279,    .00432,
     +     .27445,    .09074,    .04721,    .00464,    .00074,
     +     .00035,    .00267,    .00411,
     +     .26253,    .08641,    .04295,    .00439,    .00072,
     +     .00036,    .00252,    .00385,
     +     .25188,    .08255,    .03938,    .00416,    .00071,
     +     .00036,    .00239,    .00363,
     +     .24237,    .07912,    .03637,    .00395,    .00069,
     +     .00036,    .00229,    .00343 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23318,    .07586,    .03364,    .00377,    .00067,
     +     .00037,    .00217,    .00325,
     +     .22460,    .07282,    .03122,    .00360,    .00065,
     +     .00036,    .00207,    .00308,
     +     .21682,    .07005,    .02913,    .00344,    .00063,
     +     .00036,    .00198,    .00293,
     +     .20974,    .06755,    .02732,    .00330,    .00062,
     +     .00036,    .00190,    .00280,
     +     .20291,    .06515,    .02564,    .00316,    .00060,
     +     .00036,    .00182,    .00269,
     +     .19641,    .06287,    .02411,    .00302,    .00059,
     +     .00035,    .00175,    .00257,
     +     .19048,    .06080,    .02276,    .00290,    .00057,
     +     .00035,    .00168,    .00246,
     +     .18499,    .05890,    .02158,    .00280,    .00056,
     +     .00034,    .00162,    .00235 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .17965,    .05706,    .02046,    .00269,    .00054,
     +     .00034,    .00155,    .00225,
     +     .17454,    .05530,    .01944,    .00260,    .00053,
     +     .00033,    .00150,    .00216,
     +     .16982,    .05368,    .01852,    .00251,    .00052,
     +     .00033,    .00146,    .00208,
     +     .16548,    .05219,    .01769,    .00243,    .00051,
     +     .00033,    .00141,    .00200,
     +     .16118,    .05072,    .01691,    .00234,    .00050,
     +     .00032,    .00136,    .00194 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56657,    .20021,    .25342,    .01000,    .00000,
     +     .00000,    .00490,    .00903,
     +     .54401,    .19109,    .23104,    .00954,    .00000,
     +     .00000,    .00472,    .00851,
     +     .51259,    .17853,    .20108,    .00885,    .00007,
     +     .00000,    .00444,    .00787,
     +     .49113,    .17001,    .18145,    .00838,    .00021,
     +     .00000,    .00425,    .00742,
     +     .46962,    .16159,    .16296,    .00794,    .00030,
     +     .00000,    .00406,    .00697,
     +     .45195,    .15474,    .14873,    .00757,    .00036,
     +     .00000,    .00390,    .00659,
     +     .43576,    .14849,    .13635,    .00723,    .00041,
     +     .00000,    .00375,    .00627,
     +     .41934,    .14220,    .12446,    .00688,    .00045,
     +     .00000,    .00359,    .00595 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40560,    .13703,    .11507,    .00662,    .00049,
     +     .00000,    .00347,    .00565,
     +     .39287,    .13224,    .10677,    .00636,    .00051,
     +     .00000,    .00335,    .00540,
     +     .38317,    .12858,    .10068,    .00616,    .00053,
     +     .00000,    .00326,    .00521,
     +     .36334,    .12114,    .08883,    .00576,    .00055,
     +     .00001,    .00305,    .00483,
     +     .34722,    .11515,    .07968,    .00541,    .00056,
     +     .00006,    .00288,    .00456,
     +     .33008,    .10888,    .07071,    .00508,    .00057,
     +     .00011,    .00272,    .00425,
     +     .31331,    .10276,    .06266,    .00475,    .00057,
     +     .00015,    .00256,    .00394,
     +     .29896,    .09755,    .05629,    .00446,    .00056,
     +     .00018,    .00242,    .00369 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28523,    .09262,    .05063,    .00421,    .00056,
     +     .00020,    .00229,    .00345,
     +     .27436,    .08875,    .04644,    .00401,    .00055,
     +     .00021,    .00217,    .00327,
     +     .26183,    .08430,    .04193,    .00378,    .00054,
     +     .00022,    .00204,    .00306,
     +     .25130,    .08058,    .03839,    .00359,    .00053,
     +     .00023,    .00194,    .00289,
     +     .24206,    .07734,    .03546,    .00342,    .00052,
     +     .00024,    .00186,    .00274,
     +     .23085,    .07343,    .03215,    .00323,    .00050,
     +     .00024,    .00175,    .00256,
     +     .22086,    .06997,    .02938,    .00305,    .00049,
     +     .00024,    .00166,    .00240,
     +     .21198,    .06691,    .02704,    .00289,    .00048,
     +     .00024,    .00158,    .00228 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20351,    .06397,    .02494,    .00272,    .00046,
     +     .00024,    .00150,    .00217,
     +     .19556,    .06125,    .02308,    .00258,    .00045,
     +     .00024,    .00142,    .00205,
     +     .18831,    .05882,    .02148,    .00248,    .00044,
     +     .00024,    .00135,    .00195,
     +     .18179,    .05661,    .02011,    .00237,    .00043,
     +     .00024,    .00130,    .00185,
     +     .17552,    .05449,    .01883,    .00227,    .00042,
     +     .00024,    .00125,    .00175,
     +     .16955,    .05247,    .01768,    .00216,    .00041,
     +     .00024,    .00120,    .00167,
     +     .16411,    .05064,    .01667,    .00206,    .00040,
     +     .00024,    .00115,    .00161,
     +     .15909,    .04898,    .01578,    .00199,    .00039,
     +     .00024,    .00110,    .00154 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15421,    .04736,    .01494,    .00192,    .00038,
     +     .00024,    .00106,    .00147,
     +     .14955,    .04583,    .01416,    .00185,    .00037,
     +     .00024,    .00101,    .00141,
     +     .14525,    .04442,    .01347,    .00178,    .00037,
     +     .00024,    .00097,    .00135,
     +     .14131,    .04312,    .01285,    .00172,    .00036,
     +     .00024,    .00094,    .00130,
     +     .13742,    .04185,    .01227,    .00167,    .00035,
     +     .00024,    .00091,    .00125 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52539,    .17896,    .21321,    .00774,    .00000,
     +     .00000,    .00362,    .00633,
     +     .50280,    .17031,    .19267,    .00736,    .00000,
     +     .00000,    .00346,    .00593,
     +     .47155,    .15843,    .16571,    .00681,    .00005,
     +     .00000,    .00325,    .00543,
     +     .45029,    .15042,    .14826,    .00645,    .00015,
     +     .00000,    .00309,    .00509,
     +     .42910,    .14252,    .13210,    .00607,    .00021,
     +     .00000,    .00293,    .00478,
     +     .41181,    .13608,    .11973,    .00577,    .00025,
     +     .00000,    .00280,    .00452,
     +     .39599,    .13026,    .10909,    .00550,    .00029,
     +     .00000,    .00268,    .00427,
     +     .37999,    .12442,    .09896,    .00523,    .00032,
     +     .00000,    .00256,    .00402 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36672,    .11960,    .09101,    .00499,    .00034,
     +     .00000,    .00246,    .00382,
     +     .35442,    .11515,    .08404,    .00478,    .00036,
     +     .00000,    .00236,    .00364,
     +     .34505,    .11177,    .07895,    .00462,    .00037,
     +     .00000,    .00228,    .00351,
     +     .32595,    .10496,    .06912,    .00432,    .00039,
     +     .00001,    .00214,    .00326,
     +     .31044,    .09948,    .06166,    .00408,    .00040,
     +     .00004,    .00202,    .00304,
     +     .29417,    .09373,    .05438,    .00380,    .00041,
     +     .00008,    .00189,    .00282,
     +     .27826,    .08817,    .04788,    .00352,    .00041,
     +     .00010,    .00177,    .00261,
     +     .26466,    .08346,    .04278,    .00330,    .00040,
     +     .00012,    .00167,    .00244 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25175,    .07901,    .03829,    .00310,    .00040,
     +     .00013,    .00157,    .00228,
     +     .24153,    .07552,    .03501,    .00295,    .00039,
     +     .00014,    .00149,    .00215,
     +     .22979,    .07153,    .03148,    .00278,    .00039,
     +     .00015,    .00140,    .00200,
     +     .21998,    .06820,    .02871,    .00263,    .00038,
     +     .00015,    .00132,    .00188,
     +     .21142,    .06531,    .02643,    .00250,    .00037,
     +     .00015,    .00126,    .00178,
     +     .20102,    .06185,    .02387,    .00236,    .00036,
     +     .00015,    .00118,    .00166,
     +     .19181,    .05878,    .02174,    .00222,    .00035,
     +     .00015,    .00111,    .00156,
     +     .18366,    .05606,    .01996,    .00208,    .00035,
     +     .00015,    .00105,    .00147 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17585,    .05347,    .01837,    .00197,    .00034,
     +     .00015,    .00100,    .00139,
     +     .16858,    .05108,    .01696,    .00186,    .00033,
     +     .00015,    .00095,    .00132,
     +     .16200,    .04892,    .01574,    .00177,    .00032,
     +     .00015,    .00090,    .00125,
     +     .15604,    .04699,    .01470,    .00170,    .00032,
     +     .00015,    .00086,    .00119,
     +     .15032,    .04514,    .01374,    .00164,    .00031,
     +     .00015,    .00083,    .00113,
     +     .14492,    .04339,    .01288,    .00155,    .00031,
     +     .00015,    .00079,    .00107,
     +     .14001,    .04181,    .01212,    .00147,    .00030,
     +     .00015,    .00076,    .00102,
     +     .13548,    .04036,    .01146,    .00142,    .00029,
     +     .00015,    .00072,    .00097 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13110,    .03897,    .01083,    .00137,    .00029,
     +     .00015,    .00069,    .00092,
     +     .12692,    .03763,    .01026,    .00132,    .00028,
     +     .00015,    .00067,    .00089,
     +     .12308,    .03641,    .00975,    .00127,    .00028,
     +     .00015,    .00064,    .00085,
     +     .11955,    .03529,    .00929,    .00122,    .00028,
     +     .00015,    .00062,    .00082,
     +     .11608,    .03419,    .00885,    .00118,    .00027,
     +     .00015,    .00059,    .00079 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48216,    .15833,    .17673,    .00586,    .00000,
     +     .00000,    .00267,    .00430,
     +     .45993,    .15020,    .15834,    .00554,    .00000,
     +     .00000,    .00255,    .00405,
     +     .42934,    .13909,    .13452,    .00509,    .00004,
     +     .00000,    .00237,    .00370,
     +     .40859,    .13162,    .11937,    .00480,    .00010,
     +     .00000,    .00223,    .00348,
     +     .38810,    .12426,    .10548,    .00449,    .00015,
     +     .00000,    .00212,    .00326,
     +     .37137,    .11833,    .09494,    .00425,    .00017,
     +     .00000,    .00202,    .00307,
     +     .35615,    .11298,    .08597,    .00402,    .00020,
     +     .00000,    .00193,    .00289,
     +     .34083,    .10762,    .07750,    .00380,    .00022,
     +     .00000,    .00184,    .00271 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32811,    .10321,    .07090,    .00364,    .00023,
     +     .00000,    .00176,    .00258,
     +     .31635,    .09914,    .06515,    .00349,    .00025,
     +     .00000,    .00169,    .00245,
     +     .30742,    .09606,    .06099,    .00338,    .00025,
     +     .00000,    .00164,    .00235,
     +     .28937,    .08988,    .05302,    .00309,    .00026,
     +     .00001,    .00151,    .00220,
     +     .27476,    .08492,    .04700,    .00289,    .00027,
     +     .00003,    .00142,    .00205,
     +     .25941,    .07974,    .04119,    .00269,    .00027,
     +     .00005,    .00133,    .00189,
     +     .24450,    .07475,    .03605,    .00249,    .00027,
     +     .00007,    .00125,    .00174,
     +     .23183,    .07053,    .03205,    .00233,    .00027,
     +     .00008,    .00117,    .00162 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .21980,    .06656,    .02854,    .00219,    .00027,
     +     .00008,    .00109,    .00151,
     +     .21036,    .06348,    .02599,    .00208,    .00027,
     +     .00009,    .00103,    .00142,
     +     .19956,    .05994,    .02328,    .00194,    .00027,
     +     .00009,    .00097,    .00131,
     +     .19054,    .05699,    .02116,    .00182,    .00027,
     +     .00009,    .00092,    .00123,
     +     .18266,    .05445,    .01943,    .00173,    .00027,
     +     .00009,    .00088,    .00117,
     +     .17319,    .05139,    .01749,    .00160,    .00027,
     +     .00009,    .00082,    .00110,
     +     .16480,    .04870,    .01588,    .00150,    .00027,
     +     .00009,    .00077,    .00103,
     +     .15738,    .04635,    .01453,    .00143,    .00027,
     +     .00009,    .00073,    .00096 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15030,    .04410,    .01333,    .00134,    .00026,
     +     .00009,    .00068,    .00091,
     +     .14373,    .04202,    .01228,    .00126,    .00026,
     +     .00009,    .00065,    .00086,
     +     .13783,    .04016,    .01139,    .00120,    .00026,
     +     .00009,    .00062,    .00082,
     +     .13248,    .03850,    .01062,    .00114,    .00025,
     +     .00009,    .00059,    .00078,
     +     .12735,    .03691,    .00990,    .00109,    .00025,
     +     .00009,    .00055,    .00074,
     +     .12251,    .03541,    .00926,    .00103,    .00025,
     +     .00009,    .00053,    .00069,
     +     .11811,    .03405,    .00870,    .00099,    .00024,
     +     .00009,    .00051,    .00065,
     +     .11409,    .03281,    .00821,    .00095,    .00024,
     +     .00009,    .00048,    .00062 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11021,    .03161,    .00776,    .00091,    .00024,
     +     .00009,    .00046,    .00060,
     +     .10651,    .03047,    .00734,    .00087,    .00023,
     +     .00009,    .00045,    .00057,
     +     .10312,    .02943,    .00696,    .00083,    .00023,
     +     .00009,    .00043,    .00055,
     +     .10001,    .02848,    .00663,    .00080,    .00023,
     +     .00009,    .00042,    .00053,
     +     .09694,    .02755,    .00631,    .00077,    .00023,
     +     .00009,    .00039,    .00051 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .43787,    .13862,    .14424,    .00437,    .00000,
     +     .00000,    .00191,    .00289,
     +     .41637,    .13103,    .12811,    .00408,    .00000,
     +     .00000,    .00183,    .00272,
     +     .38687,    .12078,    .10752,    .00372,    .00002,
     +     .00000,    .00167,    .00248,
     +     .36697,    .11390,    .09463,    .00348,    .00007,
     +     .00000,    .00159,    .00232,
     +     .34737,    .10718,    .08291,    .00320,    .00010,
     +     .00000,    .00149,    .00219,
     +     .33144,    .10177,    .07415,    .00302,    .00012,
     +     .00000,    .00144,    .00203,
     +     .31697,    .09690,    .06674,    .00286,    .00013,
     +     .00000,    .00138,    .00191,
     +     .30244,    .09205,    .05978,    .00270,    .00015,
     +     .00000,    .00130,    .00181 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29047,    .08806,    .05441,    .00255,    .00015,
     +     .00000,    .00124,    .00173,
     +     .27944,    .08440,    .04976,    .00243,    .00016,
     +     .00000,    .00119,    .00165,
     +     .27105,    .08164,    .04641,    .00234,    .00017,
     +     .00000,    .00115,    .00159,
     +     .25416,    .07611,    .04006,    .00215,    .00017,
     +     .00001,    .00107,    .00145,
     +     .24056,    .07167,    .03531,    .00200,    .00017,
     +     .00002,    .00101,    .00134,
     +     .22633,    .06706,    .03076,    .00185,    .00017,
     +     .00003,    .00094,    .00125,
     +     .21253,    .06264,    .02678,    .00172,    .00017,
     +     .00004,    .00087,    .00115,
     +     .20087,    .05893,    .02369,    .00160,    .00017,
     +     .00005,    .00081,    .00108 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .18988,    .05543,    .02100,    .00147,    .00017,
     +     .00005,    .00076,    .00101,
     +     .18127,    .05271,    .01905,    .00138,    .00017,
     +     .00005,    .00072,    .00095,
     +     .17141,    .04962,    .01700,    .00128,    .00017,
     +     .00005,    .00067,    .00089,
     +     .16322,    .04707,    .01541,    .00121,    .00017,
     +     .00005,    .00064,    .00083,
     +     .15610,    .04486,    .01410,    .00115,    .00017,
     +     .00005,    .00061,    .00076,
     +     .14758,    .04223,    .01265,    .00106,    .00017,
     +     .00005,    .00057,    .00071,
     +     .14004,    .03991,    .01146,    .00099,    .00017,
     +     .00005,    .00054,    .00067,
     +     .13336,    .03787,    .01047,    .00093,    .00017,
     +     .00005,    .00051,    .00064 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12705,    .03594,    .00958,    .00087,    .00017,
     +     .00005,    .00047,    .00060,
     +     .12121,    .03417,    .00881,    .00081,    .00017,
     +     .00005,    .00044,    .00057,
     +     .11595,    .03258,    .00815,    .00076,    .00017,
     +     .00005,    .00042,    .00054,
     +     .11121,    .03116,    .00758,    .00073,    .00017,
     +     .00005,    .00040,    .00050,
     +     .10667,    .02981,    .00706,    .00070,    .00017,
     +     .00005,    .00038,    .00047,
     +     .10241,    .02854,    .00660,    .00066,    .00017,
     +     .00005,    .00037,    .00045,
     +     .09855,    .02739,    .00619,    .00062,    .00017,
     +     .00005,    .00035,    .00043,
     +     .09503,    .02635,    .00584,    .00059,    .00017,
     +     .00005,    .00033,    .00041 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09163,    .02534,    .00550,    .00057,    .00017,
     +     .00005,    .00032,    .00039,
     +     .08839,    .02439,    .00520,    .00054,    .00017,
     +     .00005,    .00030,    .00038,
     +     .08541,    .02351,    .00493,    .00052,    .00017,
     +     .00005,    .00029,    .00036,
     +     .08270,    .02271,    .00469,    .00050,    .00017,
     +     .00005,    .00028,    .00035,
     +     .08004,    .02194,    .00446,    .00049,    .00017,
     +     .00005,    .00027,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39348,    .12014,    .11587,    .00328,    .00000,
     +     .00000,    .00126,    .00188,
     +     .37293,    .11324,    .10209,    .00307,    .00000,
     +     .00000,    .00120,    .00175,
     +     .34493,    .10390,    .08472,    .00276,    .00002,
     +     .00000,    .00111,    .00158,
     +     .32612,    .09769,    .07400,    .00257,    .00004,
     +     .00000,    .00107,    .00146,
     +     .30758,    .09166,    .06435,    .00241,    .00006,
     +     .00000,    .00099,    .00136,
     +     .29264,    .08678,    .05718,    .00225,    .00008,
     +     .00000,    .00094,    .00130,
     +     .27913,    .08241,    .05117,    .00212,    .00009,
     +     .00000,    .00088,    .00122,
     +     .26560,    .07807,    .04558,    .00201,    .00009,
     +     .00000,    .00083,    .00112 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25448,    .07452,    .04131,    .00190,    .00010,
     +     .00000,    .00079,    .00106,
     +     .24427,    .07126,    .03762,    .00180,    .00010,
     +     .00000,    .00076,    .00101,
     +     .23654,    .06879,    .03497,    .00172,    .00010,
     +     .00000,    .00073,    .00097,
     +     .22094,    .06391,    .02998,    .00157,    .00010,
     +     .00000,    .00066,    .00090,
     +     .20845,    .06000,    .02630,    .00147,    .00010,
     +     .00001,    .00063,    .00082,
     +     .19543,    .05597,    .02278,    .00137,    .00010,
     +     .00002,    .00059,    .00074,
     +     .18291,    .05210,    .01973,    .00126,    .00010,
     +     .00002,    .00054,    .00069,
     +     .17237,    .04886,    .01738,    .00116,    .00010,
     +     .00002,    .00050,    .00065 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16244,    .04583,    .01536,    .00106,    .00010,
     +     .00002,    .00046,    .00061,
     +     .15466,    .04348,    .01390,    .00100,    .00010,
     +     .00002,    .00045,    .00056,
     +     .14581,    .04081,    .01235,    .00094,    .00010,
     +     .00002,    .00041,    .00053,
     +     .13849,    .03861,    .01116,    .00088,    .00010,
     +     .00002,    .00038,    .00050,
     +     .13217,    .03672,    .01020,    .00081,    .00010,
     +     .00002,    .00036,    .00047,
     +     .12456,    .03445,    .00913,    .00076,    .00010,
     +     .00002,    .00033,    .00043,
     +     .11785,    .03248,    .00825,    .00072,    .00010,
     +     .00002,    .00031,    .00040,
     +     .11194,    .03075,    .00751,    .00068,    .00010,
     +     .00002,    .00030,    .00037 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10639,    .02912,    .00687,    .00063,    .00010,
     +     .00002,    .00027,    .00035,
     +     .10125,    .02761,    .00630,    .00059,    .00010,
     +     .00002,    .00026,    .00033,
     +     .09664,    .02627,    .00582,    .00055,    .00010,
     +     .00002,    .00025,    .00031,
     +     .09250,    .02508,    .00541,    .00052,    .00010,
     +     .00002,    .00023,    .00029,
     +     .08855,    .02395,    .00503,    .00050,    .00010,
     +     .00002,    .00021,    .00027,
     +     .08482,    .02288,    .00469,    .00048,    .00010,
     +     .00002,    .00020,    .00025,
     +     .08145,    .02191,    .00440,    .00047,    .00010,
     +     .00002,    .00019,    .00024,
     +     .07840,    .02104,    .00414,    .00045,    .00010,
     +     .00002,    .00019,    .00023 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07546,    .02020,    .00390,    .00043,    .00010,
     +     .00002,    .00018,    .00022,
     +     .07268,    .01941,    .00368,    .00040,    .00010,
     +     .00002,    .00017,    .00021,
     +     .07013,    .01869,    .00349,    .00038,    .00010,
     +     .00002,    .00016,    .00020,
     +     .06780,    .01803,    .00331,    .00036,    .00010,
     +     .00002,    .00016,    .00020,
     +     .06550,    .01739,    .00315,    .00035,    .00010,
     +     .00002,    .00015,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34948,    .10262,    .09107,    .00223,    .00000,
     +     .00000,    .00092,    .00125,
     +     .33014,    .09642,    .07956,    .00206,    .00000,
     +     .00000,    .00087,    .00117,
     +     .30386,    .08806,    .06527,    .00186,    .00001,
     +     .00000,    .00079,    .00106,
     +     .28629,    .08253,    .05658,    .00174,    .00003,
     +     .00000,    .00074,    .00098,
     +     .26913,    .07714,    .04883,    .00161,    .00004,
     +     .00000,    .00068,    .00090,
     +     .25530,    .07285,    .04314,    .00150,    .00004,
     +     .00000,    .00065,    .00083,
     +     .24283,    .06901,    .03839,    .00141,    .00005,
     +     .00000,    .00062,    .00077,
     +     .23038,    .06519,    .03400,    .00133,    .00005,
     +     .00000,    .00058,    .00072 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22016,    .06207,    .03067,    .00126,    .00006,
     +     .00000,    .00054,    .00069,
     +     .21083,    .05923,    .02781,    .00119,    .00006,
     +     .00000,    .00051,    .00065,
     +     .20378,    .05709,    .02577,    .00115,    .00006,
     +     .00000,    .00049,    .00062,
     +     .18964,    .05282,    .02196,    .00104,    .00006,
     +     .00000,    .00046,    .00057,
     +     .17836,    .04943,    .01916,    .00096,    .00006,
     +     .00000,    .00043,    .00053,
     +     .16664,    .04595,    .01652,    .00089,    .00006,
     +     .00000,    .00039,    .00048,
     +     .15537,    .04263,    .01423,    .00082,    .00006,
     +     .00000,    .00036,    .00044,
     +     .14592,    .03985,    .01249,    .00076,    .00006,
     +     .00000,    .00033,    .00041 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13707,    .03726,    .01099,    .00069,    .00006,
     +     .00000,    .00030,    .00039,
     +     .13017,    .03526,    .00992,    .00066,    .00006,
     +     .00000,    .00029,    .00035,
     +     .12236,    .03300,    .00879,    .00060,    .00006,
     +     .00000,    .00027,    .00032,
     +     .11588,    .03114,    .00792,    .00057,    .00006,
     +     .00000,    .00025,    .00029,
     +     .11027,    .02955,    .00722,    .00055,    .00006,
     +     .00000,    .00023,    .00028,
     +     .10363,    .02764,    .00645,    .00049,    .00006,
     +     .00000,    .00022,    .00026,
     +     .09780,    .02598,    .00581,    .00045,    .00006,
     +     .00000,    .00020,    .00024,
     +     .09266,    .02453,    .00528,    .00043,    .00006,
     +     .00000,    .00019,    .00022 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08782,    .02317,    .00482,    .00040,    .00006,
     +     .00000,    .00018,    .00021,
     +     .08336,    .02192,    .00441,    .00037,    .00006,
     +     .00000,    .00017,    .00020,
     +     .07937,    .02081,    .00407,    .00036,    .00006,
     +     .00000,    .00015,    .00019,
     +     .07580,    .01981,    .00378,    .00034,    .00006,
     +     .00000,    .00014,    .00018,
     +     .07240,    .01887,    .00351,    .00032,    .00006,
     +     .00000,    .00013,    .00018,
     +     .06922,    .01800,    .00327,    .00030,    .00006,
     +     .00000,    .00013,    .00016,
     +     .06636,    .01721,    .00306,    .00029,    .00006,
     +     .00000,    .00012,    .00015,
     +     .06374,    .01650,    .00288,    .00028,    .00006,
     +     .00000,    .00012,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06123,    .01581,    .00271,    .00027,    .00006,
     +     .00000,    .00011,    .00013,
     +     .05885,    .01516,    .00255,    .00025,    .00006,
     +     .00000,    .00011,    .00013,
     +     .05669,    .01456,    .00242,    .00024,    .00006,
     +     .00000,    .00010,    .00012,
     +     .05472,    .01403,    .00229,    .00023,    .00006,
     +     .00000,    .00010,    .00012,
     +     .05279,    .01351,    .00218,    .00022,    .00006,
     +     .00000,    .00010,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30669,    .08660,    .07011,    .00148,    .00000,
     +     .00000,    .00065,    .00081,
     +     .28869,    .08109,    .06075,    .00141,    .00000,
     +     .00000,    .00060,    .00074,
     +     .26442,    .07372,    .04929,    .00124,    .00001,
     +     .00000,    .00053,    .00067,
     +     .24831,    .06885,    .04240,    .00113,    .00002,
     +     .00000,    .00050,    .00063,
     +     .23258,    .06414,    .03631,    .00104,    .00002,
     +     .00000,    .00047,    .00059,
     +     .21997,    .06038,    .03189,    .00097,    .00002,
     +     .00000,    .00044,    .00054,
     +     .20862,    .05704,    .02822,    .00092,    .00002,
     +     .00000,    .00041,    .00050,
     +     .19733,    .05373,    .02486,    .00087,    .00002,
     +     .00000,    .00038,    .00047 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18810,    .05103,    .02232,    .00083,    .00002,
     +     .00000,    .00037,    .00044,
     +     .17971,    .04858,    .02016,    .00077,    .00002,
     +     .00000,    .00035,    .00042,
     +     .17340,    .04674,    .01862,    .00072,    .00002,
     +     .00000,    .00033,    .00040,
     +     .16068,    .04308,    .01578,    .00067,    .00002,
     +     .00000,    .00031,    .00036,
     +     .15066,    .04018,    .01370,    .00060,    .00002,
     +     .00000,    .00028,    .00034,
     +     .14026,    .03722,    .01175,    .00054,    .00002,
     +     .00000,    .00025,    .00030,
     +     .13028,    .03440,    .01008,    .00050,    .00002,
     +     .00000,    .00024,    .00027,
     +     .12194,    .03205,    .00881,    .00046,    .00002,
     +     .00000,    .00022,    .00025 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11417,    .02987,    .00773,    .00042,    .00002,
     +     .00000,    .00020,    .00024,
     +     .10815,    .02819,    .00696,    .00039,    .00002,
     +     .00000,    .00019,    .00022,
     +     .10133,    .02630,    .00615,    .00036,    .00002,
     +     .00000,    .00018,    .00020,
     +     .09570,    .02475,    .00553,    .00033,    .00002,
     +     .00000,    .00017,    .00019,
     +     .09086,    .02341,    .00503,    .00031,    .00002,
     +     .00000,    .00016,    .00018,
     +     .08508,    .02184,    .00448,    .00030,    .00002,
     +     .00000,    .00014,    .00016,
     +     .08004,    .02047,    .00403,    .00028,    .00002,
     +     .00000,    .00013,    .00015,
     +     .07564,    .01928,    .00365,    .00026,    .00002,
     +     .00000,    .00013,    .00014 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07150,    .01816,    .00333,    .00024,    .00002,
     +     .00000,    .00012,    .00013,
     +     .06770,    .01714,    .00305,    .00022,    .00002,
     +     .00000,    .00011,    .00013,
     +     .06432,    .01623,    .00281,    .00021,    .00002,
     +     .00000,    .00010,    .00012,
     +     .06129,    .01542,    .00260,    .00019,    .00002,
     +     .00000,    .00009,    .00011,
     +     .05841,    .01465,    .00241,    .00018,    .00002,
     +     .00000,    .00009,    .00011,
     +     .05571,    .01394,    .00225,    .00018,    .00002,
     +     .00000,    .00008,    .00010,
     +     .05328,    .01331,    .00210,    .00018,    .00002,
     +     .00000,    .00008,    .00009,
     +     .05109,    .01273,    .00197,    .00017,    .00002,
     +     .00000,    .00008,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .04899,    .01217,    .00186,    .00016,    .00002,
     +     .00000,    .00007,    .00009,
     +     .04700,    .01165,    .00175,    .00015,    .00002,
     +     .00000,    .00007,    .00008,
     +     .04518,    .01118,    .00165,    .00014,    .00002,
     +     .00000,    .00006,    .00008,
     +     .04354,    .01075,    .00156,    .00013,    .00002,
     +     .00000,    .00006,    .00007,
     +     .04193,    .01033,    .00148,    .00012,    .00002,
     +     .00000,    .00006,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26578,    .07222,    .05286,    .00106,    .00000,
     +     .00000,    .00039,    .00048,
     +     .24937,    .06739,    .04545,    .00098,    .00000,
     +     .00000,    .00036,    .00044,
     +     .22728,    .06099,    .03648,    .00086,    .00000,
     +     .00000,    .00033,    .00038,
     +     .21267,    .05676,    .03115,    .00080,    .00001,
     +     .00000,    .00031,    .00036,
     +     .19850,    .05269,    .02650,    .00071,    .00001,
     +     .00000,    .00028,    .00035,
     +     .18718,    .04946,    .02314,    .00066,    .00001,
     +     .00000,    .00027,    .00031,
     +     .17705,    .04659,    .02037,    .00061,    .00001,
     +     .00000,    .00025,    .00029,
     +     .16700,    .04376,    .01785,    .00056,    .00001,
     +     .00000,    .00022,    .00028 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15878,    .04147,    .01597,    .00055,    .00001,
     +     .00000,    .00021,    .00025,
     +     .15131,    .03938,    .01437,    .00052,    .00001,
     +     .00000,    .00020,    .00024,
     +     .14570,    .03781,    .01324,    .00049,    .00001,
     +     .00000,    .00019,    .00023,
     +     .13451,    .03471,    .01114,    .00045,    .00001,
     +     .00000,    .00018,    .00020,
     +     .12566,    .03228,    .00964,    .00041,    .00001,
     +     .00000,    .00016,    .00018,
     +     .11653,    .02979,    .00824,    .00038,    .00001,
     +     .00000,    .00015,    .00017,
     +     .10785,    .02743,    .00704,    .00035,    .00001,
     +     .00000,    .00014,    .00016,
     +     .10062,    .02548,    .00614,    .00032,    .00001,
     +     .00000,    .00013,    .00014 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09389,    .02367,    .00537,    .00030,    .00001,
     +     .00000,    .00011,    .00012,
     +     .08872,    .02227,    .00482,    .00027,    .00001,
     +     .00000,    .00010,    .00012,
     +     .08283,    .02072,    .00425,    .00025,    .00001,
     +     .00000,    .00010,    .00011,
     +     .07801,    .01944,    .00381,    .00024,    .00001,
     +     .00000,    .00009,    .00011,
     +     .07390,    .01835,    .00346,    .00022,    .00001,
     +     .00000,    .00008,    .00010,
     +     .06899,    .01706,    .00308,    .00020,    .00001,
     +     .00000,    .00008,    .00009,
     +     .06472,    .01595,    .00277,    .00018,    .00001,
     +     .00000,    .00007,    .00008,
     +     .06100,    .01498,    .00251,    .00017,    .00001,
     +     .00000,    .00006,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05749,    .01407,    .00228,    .00016,    .00001,
     +     .00000,    .00006,    .00007,
     +     .05429,    .01324,    .00208,    .00015,    .00001,
     +     .00000,    .00005,    .00006,
     +     .05145,    .01251,    .00192,    .00014,    .00001,
     +     .00000,    .00005,    .00005,
     +     .04892,    .01186,    .00178,    .00013,    .00001,
     +     .00000,    .00005,    .00005,
     +     .04654,    .01125,    .00165,    .00012,    .00001,
     +     .00000,    .00005,    .00006,
     +     .04429,    .01068,    .00153,    .00011,    .00001,
     +     .00000,    .00005,    .00005,
     +     .04227,    .01017,    .00143,    .00011,    .00001,
     +     .00000,    .00004,    .00005,
     +     .04045,    .00971,    .00134,    .00011,    .00001,
     +     .00000,    .00004,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03870,    .00927,    .00126,    .00011,    .00001,
     +     .00000,    .00004,    .00004,
     +     .03707,    .00886,    .00118,    .00010,    .00001,
     +     .00000,    .00004,    .00004,
     +     .03558,    .00848,    .00112,    .00009,    .00001,
     +     .00000,    .00004,    .00004,
     +     .03423,    .00814,    .00106,    .00009,    .00001,
     +     .00000,    .00003,    .00004,
     +     .03291,    .00781,    .00100,    .00008,    .00001,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22693,    .05913,    .03870,    .00062,    .00000,
     +     .00000,    .00028,    .00033,
     +     .21215,    .05500,    .03302,    .00058,    .00000,
     +     .00000,    .00025,    .00029,
     +     .19239,    .04949,    .02623,    .00051,    .00000,
     +     .00000,    .00022,    .00027,
     +     .17935,    .04592,    .02224,    .00048,    .00000,
     +     .00000,    .00020,    .00024,
     +     .16678,    .04246,    .01879,    .00044,    .00000,
     +     .00000,    .00019,    .00022,
     +     .15679,    .03975,    .01631,    .00038,    .00000,
     +     .00000,    .00018,    .00020,
     +     .14785,    .03733,    .01429,    .00035,    .00000,
     +     .00000,    .00016,    .00018,
     +     .13901,    .03495,    .01247,    .00033,    .00000,
     +     .00000,    .00015,    .00018 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13184,    .03303,    .01111,    .00031,    .00000,
     +     .00000,    .00014,    .00016,
     +     .12532,    .03129,    .00996,    .00029,    .00000,
     +     .00000,    .00013,    .00016,
     +     .12042,    .02999,    .00915,    .00028,    .00000,
     +     .00000,    .00013,    .00015,
     +     .11073,    .02742,    .00767,    .00025,    .00000,
     +     .00000,    .00011,    .00014,
     +     .10309,    .02541,    .00660,    .00022,    .00000,
     +     .00000,    .00010,    .00013,
     +     .09524,    .02336,    .00562,    .00021,    .00000,
     +     .00000,    .00010,    .00011,
     +     .08779,    .02143,    .00479,    .00020,    .00000,
     +     .00000,    .00009,    .00009,
     +     .08162,    .01983,    .00416,    .00019,    .00000,
     +     .00000,    .00008,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07589,    .01836,    .00363,    .00017,    .00000,
     +     .00000,    .00008,    .00008,
     +     .07150,    .01723,    .00325,    .00015,    .00000,
     +     .00000,    .00007,    .00008,
     +     .06654,    .01597,    .00286,    .00014,    .00000,
     +     .00000,    .00006,    .00007,
     +     .06248,    .01494,    .00257,    .00013,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05902,    .01407,    .00233,    .00011,    .00000,
     +     .00000,    .00005,    .00006,
     +     .05492,    .01304,    .00206,    .00010,    .00000,
     +     .00000,    .00005,    .00006,
     +     .05135,    .01215,    .00185,    .00010,    .00000,
     +     .00000,    .00005,    .00005,
     +     .04825,    .01138,    .00168,    .00010,    .00000,
     +     .00000,    .00004,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04538,    .01066,    .00152,    .00008,    .00000,
     +     .00000,    .00004,    .00005,
     +     .04274,    .01001,    .00139,    .00007,    .00000,
     +     .00000,    .00004,    .00004,
     +     .04040,    .00943,    .00128,    .00006,    .00000,
     +     .00000,    .00003,    .00004,
     +     .03831,    .00892,    .00118,    .00006,    .00000,
     +     .00000,    .00003,    .00004,
     +     .03634,    .00844,    .00109,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03451,    .00799,    .00102,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03287,    .00760,    .00095,    .00006,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03139,    .00724,    .00089,    .00006,    .00000,
     +     .00000,    .00003,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .02997,    .00689,    .00083,    .00006,    .00000,
     +     .00000,    .00003,    .00002,
     +     .02865,    .00657,    .00078,    .00005,    .00000,
     +     .00000,    .00003,    .00002,
     +     .02744,    .00628,    .00074,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02635,    .00602,    .00070,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02529,    .00577,    .00066,    .00004,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .15792,    .03780,    .01908,    .00027,    .00000,
     +     .00000,    .00010,    .00011,
     +     .14657,    .03489,    .01603,    .00023,    .00000,
     +     .00000,    .00008,    .00010,
     +     .13150,    .03107,    .01248,    .00019,    .00000,
     +     .00000,    .00007,    .00008,
     +     .12168,    .02860,    .01044,    .00017,    .00000,
     +     .00000,    .00007,    .00008,
     +     .11226,    .02626,    .00871,    .00015,    .00000,
     +     .00000,    .00006,    .00007,
     +     .10481,    .02442,    .00749,    .00014,    .00000,
     +     .00000,    .00006,    .00007,
     +     .09822,    .02278,    .00651,    .00013,    .00000,
     +     .00000,    .00005,    .00007,
     +     .09176,    .02119,    .00563,    .00012,    .00000,
     +     .00000,    .00005,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08655,    .01992,    .00498,    .00010,    .00000,
     +     .00000,    .00005,    .00005,
     +     .08184,    .01878,    .00444,    .00010,    .00000,
     +     .00000,    .00004,    .00005,
     +     .07832,    .01792,    .00406,    .00010,    .00000,
     +     .00000,    .00004,    .00005,
     +     .07139,    .01624,    .00338,    .00008,    .00000,
     +     .00000,    .00004,    .00005,
     +     .06596,    .01494,    .00289,    .00008,    .00000,
     +     .00000,    .00003,    .00004,
     +     .06046,    .01363,    .00245,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05528,    .01240,    .00207,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05101,    .01139,    .00180,    .00006,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04710,    .01047,    .00156,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04410,    .00977,    .00140,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04076,    .00899,    .00122,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03804,    .00836,    .00110,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03573,    .00783,    .00099,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03301,    .00721,    .00088,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03067,    .00667,    .00079,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02866,    .00621,    .00071,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02678,    .00578,    .00064,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02508,    .00540,    .00059,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02358,    .00506,    .00054,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02226,    .00476,    .00050,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02101,    .00448,    .00046,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01986,    .00423,    .00042,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01883,    .00400,    .00040,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01790,    .00379,    .00037,    .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)/
     +     .01703,    .00360,    .00035,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01620,    .00342,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01546,    .00325,    .00031,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01478,    .00311,    .00029,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01414,    .00296,    .00027,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .10171,    .02214,    .00812,    .00007,    .00000,
     +     .00000,    .00002,    .00003,
     +     .09361,    .02028,    .00674,    .00008,    .00000,
     +     .00000,    .00002,    .00003,
     +     .08300,    .01787,    .00516,    .00007,    .00000,
     +     .00000,    .00002,    .00001,
     +     .07619,    .01631,    .00427,    .00006,    .00000,
     +     .00000,    .00002,    .00001,
     +     .06968,    .01485,    .00353,    .00005,    .00000,
     +     .00000,    .00001,    .00002,
     +     .06460,    .01370,    .00301,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06014,    .01271,    .00260,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05579,    .01174,    .00224,    .00003,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05230,    .01097,    .00197,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04917,    .01027,    .00175,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04684,    .00976,    .00160,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04230,    .00877,    .00132,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03878,    .00801,    .00113,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03523,    .00724,    .00095,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03192,    .00653,    .00080,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02923,    .00595,    .00070,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02677,    .00543,    .00060,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02491,    .00503,    .00054,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02284,    .00460,    .00047,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02117,    .00425,    .00042,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01976,    .00395,    .00038,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01813,    .00361,    .00034,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01672,    .00332,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01552,    .00307,    .00027,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01441,    .00284,    .00025,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01342,    .00264,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01254,    .00246,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01177,    .00230,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01105,    .00215,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01039,    .00202,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00980,    .00190,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00928,    .00180,    .00014,    .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)/
     +     .00878,    .00170,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00832,    .00160,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00791,    .00152,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00753,    .00144,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00717,    .00137,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05910,    .01157,    .00285,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .05391,    .01051,    .00234,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04718,    .00913,    .00177,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04291,    .00826,    .00146,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03887,    .00745,    .00120,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03575,    .00682,    .00102,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03303,    .00628,    .00088,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03040,    .00576,    .00075,    .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)/
     +     .02830,    .00534,    .00066,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02643,    .00497,    .00059,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02506,    .00470,    .00054,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02239,    .00418,    .00044,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02034,    .00378,    .00038,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01830,    .00338,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01642,    .00302,    .00027,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01490,    .00273,    .00023,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01352,    .00247,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01249,    .00227,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01136,    .00206,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01045,    .00189,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00969,    .00174,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00881,    .00158,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00807,    .00144,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00743,    .00132,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00685,    .00122,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00633,    .00112,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00588,    .00104,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00548,    .00097,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00512,    .00090,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00478,    .00084,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00449,    .00078,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00423,    .00074,    .00005,    .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)/
     +     .00398,    .00069,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00375,    .00065,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00355,    .00061,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00336,    .00058,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00319,    .00055,    .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)/
     +     .02959,    .00510,    .00076,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02671,    .00459,    .00062,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02303,    .00393,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02072,    .00352,    .00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01857,    .00314,    .00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01691,    .00285,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01549,    .00260,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01412,    .00236,    .00020,    .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)/
     +     .01305,    .00217,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01209,    .00201,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01140,    .00189,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01006,    .00166,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00904,    .00148,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00804,    .00131,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00713,    .00116,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00640,    .00104,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00575,    .00093,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00527,    .00085,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00474,    .00076,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00069,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00398,    .00063,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00358,    .00057,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00325,    .00051,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00297,    .00047,    .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=25,32)/
     +     .00271,    .00043,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00249,    .00039,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00229,    .00036,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00033,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00196,    .00031,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00182,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00159,    .00025,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00149,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00139,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00131,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00124,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00117,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00314,    .00038,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00275,    .00033,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00227,    .00027,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00198,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00172,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00152,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00136,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00121,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00109,    .00013,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00099,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00092,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00078,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00068,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00058,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00050,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00044,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00038,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00034,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00030,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00021,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00015,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='ft08a.dat',status='old')
        do 20 n=1,nx-1
        do 20 m=1,nq
C        read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
C     .             f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
      do 25 i=1,np
  25   f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
  20  continue
      do 31 j=1,ntenth-1
      xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
      do 31 i=1,8
      if(i.eq.5.or.i.eq.7) goto 31
      do 30 k=1,nq
  30  f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
  31  continue
  50  format(8f10.5)
      do 40 i=1,np
      do 40 m=1,nq
  40  f(i,nx,m)=ZEROD
      init=1
  10  continue
      if(x.lt.xmin) x=xmin
      if(x.gt.xmax) x=xmax
      if(qsq.lt.qsqmin) qsq=qsqmin
      if(qsq.gt.qsqmax) qsq=qsqmax
      xxx=x
      if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
      n=0
  70  n=n+1
      if(xxx.gt.xx(n+1)) goto 70
      a=(xxx-xx(n))/(xx(n+1)-xx(n))
      m=0
  80  m=m+1
      if(qsq.gt.qq(m+1)) goto 80
      b=(qsq-qq(m))/(qq(m+1)-qq(m))
      do 60 i=1,np
      g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
     .        +      a*(ONED-b)*f(i,n+1,m) +     a*b*f(i,n+1,m+1)
      if(n.ge.ntenth) goto 65
      if(i.eq.5.or.i.eq.7) goto 65
        fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
        g(i)=fac*10d0**(g(i)-fac)
  65  continue
      g(i)=g(i)*(ONED-x)**n0(i)
  60  continue
      upv=g(1)
      dnv=g(2)
      usea=g(4)
      dsea=g(8)
      str=g(6)
      chm=g(5)
      glu=g(3) 
      bot=g(7)
        x=xsave
        qsq=q2save
      return
      end
      


Generated by  Doxygen 1.6.0   Back to index