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

sfmrs_99a7.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a7(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)/
     +     .00593,    .00280,   1.09369,    .87912,    .00000,
     +     .00000,    .46847,    .89226,
     +     .00610,    .00287,   2.29498,    .91211,    .00000,
     +     .00000,    .50661,    .92529,
     +     .00636,    .00298,   4.72222,    .98369,    .00000,
     +     .00000,    .58551,    .99693,
     +     .00655,    .00306,   6.96486,   1.05413,    .02936,
     +     .00000,    .66107,   1.06741,
     +     .00674,    .00315,   9.68380,   1.14571,    .13789,
     +     .00000,    .75782,   1.15901,
     +     .00691,    .00322,  12.49986,   1.23979,    .24423,
     +     .00000,    .85625,   1.25310,
     +     .00708,    .00329,  15.67183,   1.34237,    .35728,
     +     .00000,    .96291,   1.35569,
     +     .00726,    .00337,  19.56554,   1.46536,    .49404,
     +     .00000,   1.09011,   1.47868 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00741,    .00344,  23.32154,   1.58705,    .61908,
     +     .00000,   1.21540,   1.60037,
     +     .00756,    .00351,  27.41296,   1.71554,    .75647,
     +     .00000,   1.34729,   1.72885,
     +     .00768,    .00357,  30.95137,   1.82626,    .87326,
     +     .00000,   1.46065,   1.83957,
     +     .00793,    .00369,  39.25506,   2.08950,   1.15028,
     +     .00466,   1.72939,   2.10279,
     +     .00815,    .00379,  47.12934,   2.34543,   1.41787,
     +     .28738,   1.98989,   2.35868,
     +     .00839,    .00391,  56.98521,   2.66576,   1.75244,
     +     .68391,   2.31521,   2.67898,
     +     .00865,    .00403,  68.62319,   3.03924,   2.14154,
     +    1.09096,   2.69373,   3.05242,
     +     .00889,    .00415,  80.41689,   3.41436,   2.53211,
     +    1.50154,   3.07330,   3.42750 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00913,    .00427,  93.57658,   3.83068,   2.96523,
     +    1.95401,   3.49399,   3.84376,
     +     .00933,    .00437, 105.33086,   4.20475,   3.34937,
     +    2.34389,   3.87162,   4.21779,
     +     .00958,    .00449, 120.84866,   4.69590,   3.85620,
     +    2.86617,   4.36698,   4.70888,
     +     .00980,    .00460, 135.75476,   5.16636,   4.34270,
     +    3.36989,   4.84108,   5.17929,
     +     .01000,    .00470, 150.25150,   5.62677,   4.81552,
     +    3.85331,   5.30477,   5.63965,
     +     .01026,    .00484, 169.94716,   6.25328,   5.45898,
     +    4.51255,   5.93534,   6.26609,
     +     .01051,    .00496, 189.86986,   6.88793,   6.11138,
     +    5.18260,   6.57372,   6.90067,
     +     .01074,    .00508, 209.68399,   7.52259,   6.76220,
     +    5.84874,   7.21180,   7.53526 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01098,    .00520, 230.52727,   8.19515,   7.44988,
     +    6.54999,   7.88772,   8.20776,
     +     .01121,    .00532, 252.21912,   8.89581,   8.16816,
     +    7.28588,   8.59159,   8.90836,
     +     .01143,    .00544, 273.55798,   9.59245,   8.87898,
     +    8.00934,   9.29121,   9.60493,
     +     .01164,    .00555, 294.69269,  10.28429,   9.58607,
     +    8.73129,   9.98582,  10.29670,
     +     .01185,    .00566, 316.73856,  11.01149,  10.32786,
     +    9.48672,  10.71575,  11.02384,
     +     .01206,    .00577, 339.29648,  11.75987,  11.09115,
     +   10.26433,  11.46677,  11.77216,
     +     .01226,    .00587, 361.51331,  12.50201,  11.84730,
     +   11.03385,  12.21138,  12.51424,
     +     .01246,    .00597, 383.27066,  13.23269,  12.59182,
     +   11.79191,  12.94437,  13.24486 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01265,    .00608, 405.79202,  13.99540,  13.36755,
     +   12.57994,  13.70936,  14.00751,
     +     .01284,    .00618, 428.90662,  14.78026,  14.16709,
     +   13.39426,  14.49644,  14.79231,
     +     .01303,    .00628, 451.25125,  15.54827,  14.94683,
     +   14.18491,  15.26656,  15.56027,
     +     .01321,    .00637, 473.35059,  16.30805,  15.72011,
     +   14.97187,  16.02830,  16.31999,
     +     .01339,    .00647, 495.92761,  17.09321,  16.51702,
     +   15.78000,  16.81541,  17.10510 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00794,    .00376,   1.01377,    .74405,    .00000,
     +     .00000,    .39571,    .75167,
     +     .00818,    .00386,   2.09677,    .77480,    .00000,
     +     .00000,    .43050,    .78245,
     +     .00854,    .00402,   4.24036,    .83849,    .00000,
     +     .00000,    .49993,    .84616,
     +     .00880,    .00414,   6.18156,    .89940,    .02516,
     +     .00000,    .56484,    .90708,
     +     .00907,    .00427,   8.49604,    .97715,    .11712,
     +     .00000,    .64663,    .98485,
     +     .00930,    .00438,  10.85960,   1.05600,    .20632,
     +     .00000,    .72887,   1.06370,
     +     .00953,    .00448,  13.49044,   1.14123,    .30015,
     +     .00000,    .81727,   1.14893,
     +     .00977,    .00460,  16.68235,   1.24256,    .41265,
     +     .00000,    .92189,   1.25027 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00998,    .00470,  19.72540,   1.34184,    .51452,
     +     .00000,   1.02397,   1.34955,
     +     .01018,    .00480,  23.01028,   1.44605,    .62574,
     +     .00000,   1.13081,   1.45376,
     +     .01034,    .00488,  25.82768,   1.53532,    .71968,
     +     .00000,   1.22213,   1.54301,
     +     .01069,    .00505,  32.36455,   1.74587,    .94065,
     +     .00392,   1.43695,   1.75355,
     +     .01099,    .00519,  38.47684,   1.94864,   1.15199,
     +     .22681,   1.64327,   1.95632,
     +     .01132,    .00536,  46.03140,   2.20023,   1.41381,
     +     .53746,   1.89871,   2.20788,
     +     .01168,    .00554,  54.83932,   2.49081,   1.71536,
     +     .85256,   2.19319,   2.49844,
     +     .01200,    .00570,  63.65927,   2.78011,   2.01536,
     +    1.16748,   2.48594,   2.78772 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01233,    .00587,  73.39298,   3.09855,   2.34526,
     +    1.51154,   2.80777,   3.10614,
     +     .01260,    .00601,  81.99745,   3.38243,   2.63548,
     +    1.80542,   3.09439,   3.38999,
     +     .01293,    .00618,  93.25142,   3.75252,   3.01573,
     +    2.19643,   3.46773,   3.76005,
     +     .01323,    .00634, 103.96005,   4.10446,   3.37810,
     +    2.57083,   3.82248,   4.11196,
     +     .01350,    .00648, 114.28291,   4.44653,   3.72784,
     +    2.92753,   4.16708,   4.45401,
     +     .01385,    .00666, 128.18306,   4.90878,   4.20053,
     +    3.41063,   4.63247,   4.91623,
     +     .01419,    .00683, 142.11301,   5.37363,   4.67635,
     +    3.89815,   5.10019,   5.38104,
     +     .01450,    .00700, 155.84567,   5.83527,   5.14776,
     +    4.37943,   5.56448,   5.84265 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01481,    .00717, 170.16934,   6.32123,   5.64255,
     +    4.88265,   6.05302,   6.32858,
     +     .01513,    .00733, 184.96431,   6.82444,   6.15635,
     +    5.40776,   6.55871,   6.83176,
     +     .01542,    .00749, 199.40181,   7.32159,   6.66157,
     +    5.92057,   7.05817,   7.32887,
     +     .01570,    .00764, 213.60645,   7.81267,   7.16154,
     +    6.42975,   7.55138,   7.81993,
     +     .01599,    .00779, 228.32204,   8.32605,   7.68319,
     +    6.95960,   8.06687,   8.33327,
     +     .01627,    .00794, 243.28188,   8.85163,   8.21721,
     +    7.50225,   8.59448,   8.85882,
     +     .01654,    .00808, 257.92383,   9.37020,   8.74363,
     +    8.03659,   9.11496,   9.37736,
     +     .01679,    .00822, 272.18073,   9.87840,   9.25959,
     +    8.56062,   9.62494,   9.88554 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01705,    .00836, 286.85123,  10.40638,   9.79466,
     +    9.10276,  10.15469,  10.41349,
     +     .01731,    .00850, 301.83295,  10.94745,  10.34399,
     +    9.66090,  10.69748,  10.95453,
     +     .01756,    .00863, 316.22681,  11.47437,  10.87707,
     +   10.20001,  11.22602,  11.48142,
     +     .01780,    .00876, 330.40469,  11.99381,  11.40404,
     +   10.73503,  11.74698,  12.00084,
     +     .01804,    .00889, 344.80646,  12.52822,  11.94464,
     +   11.28185,  12.28291,  12.53523 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01065,    .00504,    .94063,    .62938,    .00000,
     +     .00000,    .33433,    .63315,
     +     .01098,    .00520,   1.91678,    .65779,    .00000,
     +     .00000,    .36591,    .66156,
     +     .01147,    .00543,   3.80876,    .71430,    .00000,
     +     .00000,    .42691,    .71808,
     +     .01182,    .00560,   5.48728,    .76692,    .02155,
     +     .00000,    .48265,    .77071,
     +     .01220,    .00579,   7.45460,    .83291,    .09945,
     +     .00000,    .55178,    .83669,
     +     .01252,    .00595,   9.43479,    .89895,    .17425,
     +     .00000,    .62046,    .90274,
     +     .01283,    .00610,  11.61236,    .96969,    .25208,
     +     .00000,    .69367,    .97348,
     +     .01316,    .00627,  14.22296,   1.05308,    .34456,
     +     .00000,    .77961,   1.05687 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01345,    .00642,  16.68192,   1.13394,    .42749,
     +     .00000,    .86263,   1.13773,
     +     .01372,    .00656,  19.31194,   1.21830,    .51743,
     +     .00000,    .94904,   1.22209,
     +     .01394,    .00667,  21.54858,   1.29011,    .59290,
     +     .00000,   1.02244,   1.29390,
     +     .01442,    .00691,  26.67790,   1.45811,    .76894,
     +     .00330,   1.19373,   1.46189,
     +     .01482,    .00712,  31.40513,   1.61834,    .93562,
     +     .17893,   1.35670,   1.62211,
     +     .01528,    .00736,  37.17269,   1.81533,   1.14017,
     +     .42218,   1.55666,   1.81909,
     +     .01576,    .00761,  43.81026,   2.04066,   1.37345,
     +     .66593,   1.78500,   2.04442,
     +     .01620,    .00784,  50.37632,   2.26299,   1.60340,
     +     .90730,   2.00998,   2.26674 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01664,    .00808,  57.54142,   2.50566,   1.85413,
     +    1.16867,   2.25525,   2.50940,
     +     .01701,    .00827,  63.80788,   2.72022,   2.07285,
     +    1.38994,   2.47193,   2.72396,
     +     .01746,    .00851,  71.92619,   2.99793,   2.35738,
     +    1.68230,   2.75213,   3.00165,
     +     .01786,    .00873,  79.57693,   3.26007,   2.62655,
     +    1.96018,   3.01643,   3.26379,
     +     .01823,    .00892,  86.88499,   3.51308,   2.88448,
     +    2.22295,   3.27137,   3.51679,
     +     .01871,    .00918,  96.63587,   3.85255,   3.23064,
     +    2.57633,   3.61325,   3.85625,
     +     .01915,    .00942, 106.31487,   4.19140,   3.57653,
     +    2.93036,   3.95430,   4.19508,
     +     .01957,    .00964, 115.77056,   4.52553,   3.91681,
     +    3.27734,   4.29046,   4.52921 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .02000,    .00987, 125.54707,   4.87486,   4.27150,
     +    3.63759,   4.64176,   4.87852,
     +     .02041,    .01010, 135.56781,   5.23437,   4.63765,
     +    4.01136,   5.00318,   5.23803,
     +     .02081,    .01032, 145.26491,   5.58725,   4.99529,
     +    4.37387,   5.35782,   5.59090,
     +     .02118,    .01052, 154.74101,   5.93392,   5.34736,
     +    4.73197,   5.70612,   5.93756,
     +     .02156,    .01073, 164.48814,   6.29430,   5.71263,
     +    5.10248,   6.06812,   6.29794,
     +     .02194,    .01093, 174.33119,   6.66128,   6.08462,
     +    5.47998,   6.43666,   6.66491,
     +     .02230,    .01113, 183.90256,   7.02151,   6.44943,
     +    5.84978,   6.79835,   7.02513,
     +     .02264,    .01132, 193.16708,   7.37286,   6.80535,
     +    6.21078,   7.15106,   7.37648 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02298,    .01151, 202.64172,   7.73613,   7.17265,
     +    6.58241,   7.51569,   7.73974,
     +     .02333,    .01169, 212.26840,   8.10684,   7.54822,
     +    6.96355,   7.88772,   8.11045,
     +     .02366,    .01188, 221.45680,   8.46606,   7.91083,
     +    7.32971,   8.24818,   8.46966,
     +     .02397,    .01205, 230.47055,   8.81895,   8.26811,
     +    7.69202,   8.60222,   8.82254,
     +     .02429,    .01223, 239.57101,   9.18033,   8.63290,
     +    8.06048,   8.96477,   9.18392 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01265,    .00599,    .90107,    .57051,    .00000,
     +     .00000,    .30301,    .57268,
     +     .01304,    .00619,   1.81963,    .59752,    .00000,
     +     .00000,    .33277,    .59970,
     +     .01363,    .00648,   3.57782,    .65015,    .00000,
     +     .00000,    .38928,    .65232,
     +     .01406,    .00670,   5.11861,    .69843,    .01968,
     +     .00000,    .44027,    .70061,
     +     .01451,    .00692,   6.90611,    .75835,    .09035,
     +     .00000,    .50291,    .76053,
     +     .01489,    .00712,   8.68982,    .81786,    .15781,
     +     .00000,    .56469,    .82004,
     +     .01527,    .00732,  10.63718,    .88126,    .22755,
     +     .00000,    .63023,    .88344,
     +     .01566,    .00752,  12.95520,    .95561,    .30998,
     +     .00000,    .70677,    .95779 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01601,    .00770,  15.12282,   1.02725,    .38346,
     +     .00000,    .78028,   1.02943,
     +     .01634,    .00788,  17.42855,   1.10173,    .46285,
     +     .00000,    .85652,   1.10391,
     +     .01661,    .00801,  19.37945,   1.16488,    .52921,
     +     .00000,    .92104,   1.16706,
     +     .01717,    .00831,  23.82242,   1.31190,    .68321,
     +     .00299,   1.07090,   1.31408,
     +     .01766,    .00857,  27.88165,   1.45130,    .82815,
     +     .15570,   1.21265,   1.45348,
     +     .01821,    .00886,  32.79590,   1.62174,   1.00504,
     +     .36643,   1.38564,   1.62392,
     +     .01878,    .00917,  38.40767,   1.81558,   1.20557,
     +     .57609,   1.58206,   1.81776,
     +     .01931,    .00945,  43.91859,   2.00580,   1.40216,
     +     .78256,   1.77455,   2.00797 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01984,    .00973,  49.89189,   2.21237,   1.61543,
     +    1.00497,   1.98336,   2.21455,
     +     .02028,    .00997,  55.08252,   2.39413,   1.80054,
     +    1.19225,   2.16692,   2.39630,
     +     .02082,    .01026,  61.76888,   2.62835,   2.04032,
     +    1.43867,   2.40328,   2.63053,
     +     .02129,    .01052,  68.03386,   2.84848,   2.26615,
     +    1.67188,   2.62526,   2.85066,
     +     .02173,    .01076,  73.98544,   3.06004,   2.48164,
     +    1.89141,   2.83847,   3.06222,
     +     .02230,    .01107,  81.88290,   3.34270,   2.76961,
     +    2.18540,   3.12319,   3.34488,
     +     .02283,    .01136,  89.67739,   3.62359,   3.05611,
     +    2.47864,   3.40596,   3.62577,
     +     .02333,    .01164,  97.25059,   3.89939,   3.33675,
     +    2.76481,   3.68350,   3.90158 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02383,    .01191, 105.03940,   4.18656,   3.62807,
     +    3.06067,   3.97235,   4.18874,
     +     .02432,    .01218, 112.98611,   4.48103,   3.92775,
     +    3.36658,   4.26844,   4.48321,
     +     .02479,    .01244, 120.63712,   4.76892,   4.21929,
     +    3.66204,   4.55785,   4.77111,
     +     .02524,    .01269, 128.08334,   5.05084,   4.50539,
     +    3.95301,   4.84116,   5.05303,
     +     .02569,    .01294, 135.70959,   5.34292,   4.80122,
     +    4.25304,   5.13462,   5.34512,
     +     .02613,    .01318, 143.37973,   5.63941,   5.10154,
     +    4.55777,   5.43244,   5.64161,
     +     .02656,    .01342, 150.80899,   5.92954,   5.39516,
     +    4.85536,   5.72382,   5.93175,
     +     .02696,    .01364, 157.97444,   6.21173,   5.68083,
     +    5.14507,   6.00717,   6.21394 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02737,    .01387, 165.27484,   6.50264,   5.97476,
     +    5.44242,   6.29923,   6.50485,
     +     .02777,    .01409, 172.66954,   6.79877,   6.27461,
     +    5.74668,   6.59649,   6.80099,
     +     .02816,    .01431, 179.69943,   7.08485,   6.56319,
     +    6.03803,   6.88363,   7.08707,
     +     .02853,    .01452, 186.57898,   7.36532,   6.84700,
     +    6.32581,   7.16509,   7.36754,
     +     .02891,    .01473, 193.49869,   7.65173,   7.13593,
     +    6.61758,   7.45249,   7.65396 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01429,    .00677,    .87452,    .53203,    .00000,
     +     .00000,    .28262,    .53333,
     +     .01474,    .00700,   1.75429,    .55805,    .00000,
     +     .00000,    .31113,    .55936,
     +     .01541,    .00735,   3.42307,    .60805,    .00000,
     +     .00000,    .36465,    .60936,
     +     .01590,    .00760,   4.87264,    .65346,    .01845,
     +     .00000,    .41250,    .65477,
     +     .01641,    .00787,   6.54192,    .70940,    .08440,
     +     .00000,    .47090,    .71071,
     +     .01685,    .00810,   8.19731,    .76466,    .14707,
     +     .00000,    .52821,    .76597,
     +     .01728,    .00832,   9.99520,    .82330,    .21157,
     +     .00000,    .58877,    .82461,
     +     .01773,    .00856,  12.12433,    .89180,    .28752,
     +     .00000,    .65926,    .89312 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01812,    .00877,  14.10491,    .95752,    .35494,
     +     .00000,    .72665,    .95884,
     +     .01850,    .00897,  16.20340,   1.02566,    .42757,
     +     .00000,    .79637,   1.02697,
     +     .01880,    .00913,  17.97246,   1.08327,    .48812,
     +     .00000,    .85522,   1.08459,
     +     .01945,    .00948,  21.98110,   1.21692,    .62812,
     +     .00278,    .99142,   1.21825,
     +     .02000,    .00978,  25.62050,   1.34311,    .75932,
     +     .14103,   1.11972,   1.34443,
     +     .02062,    .01011,  30.00189,   1.49678,    .91878,
     +     .33131,   1.27568,   1.49811,
     +     .02127,    .01047,  34.97718,   1.67081,   1.09881,
     +     .51966,   1.45203,   1.67215,
     +     .02187,    .01079,  39.83741,   1.84092,   1.27459,
     +     .70441,   1.62419,   1.84227 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02247,    .01112,  45.07981,   2.02500,   1.46459,
     +     .90266,   1.81026,   2.02635,
     +     .02297,    .01139,  49.61412,   2.18638,   1.62891,
     +    1.06897,   1.97326,   2.18773,
     +     .02358,    .01173,  55.43111,   2.39370,   1.84109,
     +    1.28714,   2.18250,   2.39507,
     +     .02412,    .01202,  60.85882,   2.58793,   2.04032,
     +    1.49296,   2.37839,   2.58930,
     +     .02462,    .01230,  65.99456,   2.77403,   2.22982,
     +    1.68608,   2.56597,   2.77541,
     +     .02526,    .01265,  72.78240,   3.02191,   2.48230,
     +    1.94393,   2.81569,   3.02330,
     +     .02586,    .01298,  79.45409,   3.26745,   2.73269,
     +    2.20031,   3.06292,   3.26885,
     +     .02642,    .01329,  85.91076,   3.50781,   2.97721,
     +    2.44972,   3.30483,   3.50922 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02699,    .01361,  92.52569,   3.75733,   3.23028,
     +    2.70680,   3.55587,   3.75875,
     +     .02755,    .01392,  99.25246,   4.01253,   3.48995,
     +    2.97196,   3.81252,   4.01396,
     +     .02808,    .01421, 105.70480,   4.26133,   3.74184,
     +    3.22728,   4.06266,   4.26276,
     +     .02858,    .01449, 111.96591,   4.50439,   3.98846,
     +    3.47817,   4.30697,   4.50583,
     +     .02908,    .01478, 118.35835,   4.75560,   4.24285,
     +    3.73622,   4.55941,   4.75706,
     +     .02958,    .01506, 124.76872,   5.01002,   4.50051,
     +    3.99773,   4.81502,   5.01148,
     +     .03006,    .01532, 130.96004,   5.25843,   4.75188,
     +    4.25255,   5.06455,   5.25991,
     +     .03052,    .01558, 136.91595,   5.49954,   4.99593,
     +    4.50012,   5.30670,   5.50103 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03098,    .01584, 142.96730,   5.74759,   5.24652,
     +    4.75366,   5.55578,   5.74909,
     +     .03143,    .01609, 149.08351,   5.99963,   5.50171,
     +    5.01267,   5.80883,   6.00114,
     +     .03187,    .01634, 154.88031,   6.24259,   5.74676,
     +    5.26010,   6.05274,   6.24411,
     +     .03228,    .01657, 160.54361,   6.48042,   5.98742,
     +    5.50419,   6.29146,   6.48196,
     +     .03270,    .01681, 166.22397,   6.72281,   6.23191,
     +    5.75112,   6.53473,   6.72435 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01570,    .00745,    .85486,    .50394,    .00000,
     +     .00000,    .26778,    .50471,
     +     .01621,    .00771,   1.70569,    .52920,    .00000,
     +     .00000,    .29534,    .52997,
     +     .01695,    .00810,   3.30810,    .57723,    .00000,
     +     .00000,    .34664,    .57800,
     +     .01749,    .00839,   4.69038,    .62052,    .01755,
     +     .00000,    .39219,    .62130,
     +     .01806,    .00869,   6.27295,    .67355,    .08004,
     +     .00000,    .44749,    .67433,
     +     .01855,    .00895,   7.83469,    .72571,    .13923,
     +     .00000,    .50154,    .72649,
     +     .01902,    .00920,   9.52392,    .78089,    .19993,
     +     .00000,    .55850,    .78167,
     +     .01952,    .00947,  11.51634,    .84516,    .27118,
     +     .00000,    .62460,    .84595 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01995,    .00970,  13.36212,    .90660,    .33423,
     +     .00000,    .68759,    .90739,
     +     .02037,    .00993,  15.31173,    .97016,    .40201,
     +     .00000,    .75262,    .97096,
     +     .02070,    .01011,  16.95057,   1.02380,    .45839,
     +     .00000,    .80739,   1.02460,
     +     .02141,    .01049,  20.64946,   1.14787,    .58837,
     +     .00263,    .93381,   1.14868,
     +     .02203,    .01083,  23.99100,   1.26461,    .70977,
     +     .13058,   1.05250,   1.26542,
     +     .02271,    .01120,  27.99609,   1.40633,    .85686,
     +     .30634,   1.19634,   1.40716,
     +     .02343,    .01160,  32.52406,   1.56631,   1.02236,
     +     .47961,   1.35845,   1.56715,
     +     .02409,    .01196,  36.92902,   1.72221,   1.18346,
     +     .64905,   1.51622,   1.72306 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02475,    .01232,  41.66219,   1.89041,   1.35710,
     +     .83034,   1.68627,   1.89128,
     +     .02530,    .01263,  45.74099,   2.03746,   1.50683,
     +     .98196,   1.83481,   2.03834,
     +     .02597,    .01300,  50.95682,   2.22593,   1.69971,
     +    1.18040,   2.02504,   2.22681,
     +     .02657,    .01333,  55.80763,   2.40204,   1.88037,
     +    1.36714,   2.20268,   2.40294,
     +     .02712,    .01364,  60.38308,   2.57038,   2.05179,
     +    1.54191,   2.37238,   2.57129,
     +     .02782,    .01403,  66.41145,   2.79407,   2.27963,
     +    1.77471,   2.59776,   2.79499,
     +     .02848,    .01440,  72.31745,   3.01508,   2.50503,
     +    2.00561,   2.82032,   3.01603,
     +     .02910,    .01474,  78.01519,   3.23092,   2.72461,
     +    2.22968,   3.03759,   3.23188 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02972,    .01509,  83.83485,   3.45446,   2.95134,
     +    2.46008,   3.26252,   3.45544,
     +     .03034,    .01544,  89.73749,   3.68262,   3.18351,
     +    2.69727,   3.49201,   3.68361,
     +     .03092,    .01576,  95.38264,   3.90455,   3.40821,
     +    2.92511,   3.71518,   3.90556,
     +     .03147,    .01607, 100.84777,   4.12097,   3.62783,
     +    3.14862,   3.93275,   4.12200,
     +     .03203,    .01638, 106.41362,   4.34423,   3.85392,
     +    3.37805,   4.15713,   4.34527,
     +     .03257,    .01669, 111.98215,   4.56992,   4.08251,
     +    3.61014,   4.38392,   4.57098,
     +     .03310,    .01699, 117.34817,   4.78990,   4.30512,
     +    3.83589,   4.60493,   4.79097,
     +     .03359,    .01727, 122.49950,   5.00308,   4.52092,
     +    4.05488,   4.81906,   5.00417 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03410,    .01755, 127.72186,   5.22202,   4.74212,
     +    4.27876,   5.03895,   5.22312,
     +     .03460,    .01783, 132.99103,   5.44418,   4.96709,
     +    4.50718,   5.26204,   5.44530,
     +     .03507,    .01810, 137.97316,   5.65796,   5.18272,
     +    4.72497,   5.47669,   5.65910,
     +     .03553,    .01836, 142.83395,   5.86699,   5.39427,
     +    4.93962,   5.68653,   5.86814,
     +     .03599,    .01862, 147.69849,   6.07968,   5.60883,
     +    5.15638,   5.90003,   6.08084 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02110,    .01006,    .79955,    .42566,    .00000,
     +     .00000,    .22670,    .42546,
     +     .02179,    .01044,   1.56655,    .44856,    .00000,
     +     .00000,    .25144,    .44838,
     +     .02281,    .01101,   2.97826,    .49087,    .00000,
     +     .00000,    .29632,    .49070,
     +     .02355,    .01142,   4.16926,    .52812,    .01500,
     +     .00000,    .33537,    .52797,
     +     .02433,    .01185,   5.50773,    .57298,    .06780,
     +     .00000,    .38202,    .57284,
     +     .02500,    .01223,   6.80804,    .61650,    .11731,
     +     .00000,    .42704,    .61638,
     +     .02564,    .01259,   8.19624,    .66210,    .16749,
     +     .00000,    .47405,    .66200,
     +     .02633,    .01297,   9.81266,    .71471,    .22586,
     +     .00000,    .52811,    .71463 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02692,    .01330,  11.29045,    .76444,    .27696,
     +     .00000,    .57905,    .76437,
     +     .02749,    .01363,  12.83607,    .81554,    .33153,
     +     .00000,    .63131,    .81549,
     +     .02795,    .01388,  14.12340,    .85836,    .37660,
     +     .00000,    .67502,    .85832,
     +     .02892,    .01443,  16.99238,    .95651,    .47958,
     +     .00221,    .77502,    .95650,
     +     .02975,    .01490,  19.54307,   1.04788,    .57473,
     +     .10264,    .86792,   1.04790,
     +     .03068,    .01543,  22.55730,   1.15769,    .68888,
     +     .23974,    .97939,   1.15774,
     +     .03166,    .01599,  25.91726,   1.28034,    .81595,
     +     .37319,   1.10372,   1.28043,
     +     .03255,    .01649,  29.14284,   1.39869,    .93843,
     +     .50241,   1.22354,   1.39881 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03344,    .01700,  32.56649,   1.52522,   1.06924,
     +     .63939,   1.35151,   1.52538,
     +     .03419,    .01743,  35.48193,   1.63485,   1.18101,
     +     .75285,   1.46230,   1.63503,
     +     .03510,    .01794,  39.17186,   1.77425,   1.32389,
     +     .90026,   1.60308,   1.77447,
     +     .03590,    .01840,  42.56770,   1.90350,   1.45666,
     +    1.03790,   1.73351,   1.90375,
     +     .03664,    .01882,  45.73826,   2.02608,   1.58166,
     +    1.16566,   1.85716,   2.02636,
     +     .03758,    .01936,  49.87381,   2.18773,   1.74654,
     +    1.33456,   2.02013,   2.18805,
     +     .03846,    .01987,  53.88319,   2.34617,   1.90836,
     +    1.50077,   2.17978,   2.34653,
     +     .03930,    .02035,  57.71231,   2.49972,   2.06479,
     +    1.66080,   2.33444,   2.50011 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04013,    .02082,  61.58481,   2.65755,   2.22509,
     +    1.82409,   2.49336,   2.65798,
     +     .04095,    .02129,  65.47977,   2.81760,   2.38821,
     +    1.99115,   2.65445,   2.81807,
     +     .04173,    .02174,  69.16900,   2.97217,   2.54491,
     +    2.15041,   2.80998,   2.97268,
     +     .04246,    .02216,  72.71396,   3.12202,   2.69720,
     +    2.30577,   2.96073,   3.12257,
     +     .04320,    .02258,  76.29505,   3.27566,   2.85301,
     +    2.46425,   3.11525,   3.27624,
     +     .04393,    .02300,  79.85084,   3.43009,   3.00965,
     +    2.62366,   3.27053,   3.43070,
     +     .04462,    .02340,  83.25208,   3.57976,   3.16134,
     +    2.77783,   3.42100,   3.58041,
     +     .04528,    .02378,  86.49535,   3.72406,   3.30764,
     +    2.92664,   3.56605,   3.72474 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04595,    .02416,  89.75961,   3.87147,   3.45679,
     +    3.07793,   3.71420,   3.87219,
     +     .04661,    .02454,  93.03490,   4.02039,   3.60783,
     +    3.23165,   3.86384,   4.02114,
     +     .04724,    .02490,  96.10690,   4.16289,   3.75175,
     +    3.37731,   4.00701,   4.16367,
     +     .04784,    .02525,  99.09173,   4.30171,   3.89249,
     +    3.52044,   4.14648,   4.30253,
     +     .04845,    .02560, 102.05600,   4.44223,   4.03444,
     +    3.66416,   4.28762,   4.44307 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02840,    .01369,    .75536,    .35964,    .00000,
     +     .00000,    .19239,    .35940,
     +     .02936,    .01425,   1.44719,    .38025,    .00000,
     +     .00000,    .21449,    .38004,
     +     .03077,    .01506,   2.68906,    .41733,    .00000,
     +     .00000,    .25366,    .41718,
     +     .03179,    .01566,   3.71236,    .44927,    .01279,
     +     .00000,    .28705,    .44916,
     +     .03285,    .01628,   4.83995,    .48708,    .05728,
     +     .00000,    .32631,    .48701,
     +     .03377,    .01681,   5.91732,    .52325,    .09854,
     +     .00000,    .36370,    .52322,
     +     .03465,    .01733,   7.05172,    .56078,    .13989,
     +     .00000,    .40236,    .56079,
     +     .03558,    .01787,   8.35474,    .60365,    .18751,
     +     .00000,    .44640,    .60370 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03639,    .01835,   9.52942,    .64368,    .22875,
     +     .00000,    .48742,    .64377,
     +     .03718,    .01880,  10.74531,    .68453,    .27248,
     +     .00000,    .52920,    .68466,
     +     .03780,    .01917,  11.74818,    .71851,    .30833,
     +     .00000,    .56390,    .71867,
     +     .03912,    .01994,  13.95335,    .79564,    .38950,
     +     .00185,    .64254,    .79586,
     +     .04025,    .02060,  15.88054,    .86664,    .46366,
     +     .08031,    .71477,    .86691,
     +     .04152,    .02135,  18.12384,    .95106,    .55168,
     +     .18674,    .80053,    .95141,
     +     .04284,    .02212,  20.58721,   1.04431,    .64860,
     +     .28898,    .89513,   1.04472,
     +     .04404,    .02282,  22.91889,   1.13335,    .74105,
     +     .38698,    .98536,   1.13382 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04525,    .02353,  25.36160,   1.22762,    .83884,
     +     .48985,   1.08081,   1.22816,
     +     .04625,    .02412,  27.41523,   1.30852,    .92159,
     +     .57421,   1.16264,   1.30912,
     +     .04747,    .02484,  29.98607,   1.41056,   1.02653,
     +     .68296,   1.26580,   1.41122,
     +     .04856,    .02547,  32.32563,   1.50437,   1.12324,
     +     .78368,   1.36057,   1.50510,
     +     .04955,    .02605,  34.48604,   1.59262,   1.21353,
     +     .87637,   1.44969,   1.59340,
     +     .05081,    .02679,  37.27366,   1.70806,   1.33167,
     +     .99793,   1.56619,   1.70891,
     +     .05199,    .02748,  39.94604,   1.82025,   1.44666,
     +    1.11657,   1.67937,   1.82117,
     +     .05310,    .02813,  42.47043,   1.92810,   1.55691,
     +    1.22985,   1.78812,   1.92909 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05422,    .02878,  44.99600,   2.03807,   1.66899,
     +    1.34450,   1.89897,   2.03913,
     +     .05531,    .02942,  47.51360,   2.14884,   1.78227,
     +    1.46105,   2.01058,   2.14996,
     +     .05634,    .03002,  49.87281,   2.25498,   1.89024,
     +    1.57124,   2.11751,   2.25617,
     +     .05731,    .03059,  52.12160,   2.35727,   1.99455,
     +    1.67812,   2.22052,   2.35851,
     +     .05829,    .03117,  54.37295,   2.46145,   2.10056,
     +    1.78640,   2.32542,   2.46275,
     +     .05926,    .03173,  56.59001,   2.56552,   2.20650,
     +    1.89467,   2.43019,   2.56689,
     +     .06018,    .03226,  58.69339,   2.66580,   2.30847,
     +    1.99875,   2.53111,   2.66722,
     +     .06105,    .03277,  60.68434,   2.76195,   2.40629,
     +    2.09867,   2.62787,   2.76342 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06193,    .03328,  62.67190,   2.85961,   2.50543,
     +    2.19965,   2.72614,   2.86114,
     +     .06280,    .03379,  64.65436,   2.95782,   2.60539,
     +    2.30183,   2.82493,   2.95940,
     +     .06363,    .03427,  66.49650,   3.05120,   2.70002,
     +    2.39799,   2.91887,   3.05284,
     +     .06442,    .03473,  68.27868,   3.14185,   2.79225,
     +    2.49220,   3.01005,   3.14354,
     +     .06521,    .03520,  70.03294,   3.23307,   2.88471,
     +    2.58619,   3.10178,   3.23481 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03387,    .01652,    .73674,    .32622,    .00000,
     +     .00000,    .17513,    .32627,
     +     .03502,    .01720,   1.38833,    .34552,    .00000,
     +     .00000,    .19576,    .34563,
     +     .03672,    .01821,   2.53917,    .37974,    .00000,
     +     .00000,    .23186,    .37994,
     +     .03795,    .01894,   3.47358,    .40886,    .01162,
     +     .00000,    .26228,    .40912,
     +     .03923,    .01971,   4.49066,    .44297,    .05177,
     +     .00000,    .29769,    .44329,
     +     .04033,    .02036,   5.45239,    .47534,    .08877,
     +     .00000,    .33114,    .47572,
     +     .04139,    .02100,   6.45633,    .50871,    .12558,
     +     .00000,    .36554,    .50915,
     +     .04251,    .02167,   7.59977,    .54661,    .16772,
     +     .00000,    .40449,    .54712 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04348,    .02225,   8.62160,    .58173,    .20398,
     +     .00000,    .44049,    .58229,
     +     .04442,    .02281,   9.67246,    .61742,    .24226,
     +     .00000,    .47702,    .61804,
     +     .04517,    .02325,  10.53396,    .64698,    .27350,
     +     .00000,    .50722,    .64763,
     +     .04675,    .02419,  12.41239,    .71366,    .34383,
     +     .00166,    .57526,    .71441,
     +     .04810,    .02500,  14.03638,    .77461,    .40765,
     +     .06931,    .63731,    .77543,
     +     .04962,    .02590,  15.90889,    .84661,    .48292,
     +     .16072,    .71052,    .84753,
     +     .05119,    .02684,  17.94589,    .92558,    .56521,
     +     .24783,    .79071,    .92659,
     +     .05262,    .02769,  19.85700,   1.00050,    .64323,
     +     .33081,    .86671,   1.00160 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05406,    .02855,  21.84273,   1.07935,    .72525,
     +     .41739,    .94662,   1.08055,
     +     .05526,    .02925,  23.49865,   1.14661,    .79424,
     +     .48796,   1.01473,   1.14788,
     +     .05671,    .03011,  25.55742,   1.23102,    .88130,
     +     .57850,   1.10015,   1.23239,
     +     .05799,    .03088,  27.41780,   1.30823,    .96113,
     +     .66193,   1.17822,   1.30967,
     +     .05917,    .03157,  29.12367,   1.38048,   1.03527,
     +     .73830,   1.25126,   1.38200,
     +     .06066,    .03245,  31.30977,   1.47452,   1.13179,
     +     .83797,   1.34627,   1.47614,
     +     .06206,    .03328,  33.39062,   1.56544,   1.22526,
     +     .93474,   1.43808,   1.56715,
     +     .06337,    .03406,  35.34251,   1.65239,   1.31441,
     +    1.02667,   1.52585,   1.65419 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06469,    .03484,  37.28175,   1.74062,   1.40459,
     +    1.11924,   1.61488,   1.74251,
     +     .06597,    .03559,  39.20397,   1.82911,   1.49537,
     +    1.21297,   1.70414,   1.83108,
     +     .06719,    .03631,  40.99271,   1.91350,   1.58146,
     +    1.30113,   1.78924,   1.91555,
     +     .06833,    .03698,  42.68896,   1.99451,   1.66432,
     +    1.38633,   1.87091,   1.99664,
     +     .06949,    .03766,  44.37726,   2.07668,   1.74820,
     +    1.47230,   1.95374,   2.07889,
     +     .07062,    .03833,  46.03092,   2.15846,   1.83168,
     +    1.55793,   2.03615,   2.16075,
     +     .07170,    .03896,  47.59145,   2.23696,   1.91175,
     +    1.63994,   2.11524,   2.23932,
     +     .07272,    .03956,  49.06146,   2.31198,   1.98830,
     +    1.71841,   2.19081,   2.31440 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07375,    .04016,  50.52103,   2.38789,   2.06560,
     +    1.79741,   2.26728,   2.39039,
     +     .07476,    .04076,  51.97138,   2.46401,   2.14332,
     +    1.87715,   2.34395,   2.46658,
     +     .07573,    .04132,  53.31041,   2.53611,   2.21659,
     +    1.95186,   2.41655,   2.53874,
     +     .07666,    .04186,  54.60260,   2.60595,   2.28786,
     +    2.02492,   2.48686,   2.60865,
     +     .07759,    .04241,  55.86669,   2.67596,   2.35903,
     +    2.09752,   2.55735,   2.67872 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03842,    .01895,    .72803,    .30475,    .00000,
     +     .00000,    .16406,    .30510,
     +     .03974,    .01975,   1.35260,    .32314,    .00000,
     +     .00000,    .18369,    .32357,
     +     .04168,    .02093,   2.44201,    .35542,    .00000,
     +     .00000,    .21770,    .35595,
     +     .04308,    .02178,   3.31682,    .38263,    .01084,
     +     .00000,    .24612,    .38325,
     +     .04454,    .02266,   4.26032,    .41428,    .04811,
     +     .00000,    .27898,    .41499,
     +     .04580,    .02342,   5.14556,    .44413,    .08229,
     +     .00000,    .30985,    .44492,
     +     .04701,    .02415,   6.06367,    .47477,    .11611,
     +     .00000,    .34144,    .47563,
     +     .04829,    .02492,   7.10276,    .50941,    .15467,
     +     .00000,    .37706,    .51036 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04939,    .02559,   8.02526,    .54135,    .18769,
     +     .00000,    .40982,    .54236,
     +     .05046,    .02623,   8.96941,    .57369,    .22243,
     +     .00000,    .44294,    .57477,
     +     .05131,    .02674,   9.73991,    .60038,    .25070,
     +     .00000,    .47024,    .60151,
     +     .05310,    .02782,  11.40933,    .66034,    .31406,
     +     .00154,    .53146,    .66159,
     +     .05464,    .02875,  12.84088,    .71485,    .37126,
     +     .06227,    .58701,    .71620,
     +     .05636,    .02978,  14.47974,    .77894,    .43840,
     +     .14410,    .65223,    .78040,
     +     .05814,    .03085,  16.25006,    .84887,    .51144,
     +     .22162,    .72331,    .85045,
     +     .05976,    .03182,  17.89993,    .91490,    .58035,
     +     .29513,    .79034,    .91659 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06139,    .03280,  19.60368,    .98409,    .65249,
     +     .37148,    .86052,    .98589,
     +     .06274,    .03361,  21.01566,   1.04283,    .71289,
     +     .43343,    .92006,   1.04473,
     +     .06438,    .03459,  22.76212,   1.11628,    .78883,
     +     .51264,    .99446,   1.11829,
     +     .06582,    .03545,  24.33191,   1.18320,    .85820,
     +     .58535,   1.06221,   1.18531,
     +     .06715,    .03624,  25.76359,   1.24560,    .92238,
     +     .65164,   1.12533,   1.24779,
     +     .06882,    .03724,  27.58880,   1.32649,   1.00563,
     +     .73785,   1.20714,   1.32880,
     +     .07040,    .03818,  29.31678,   1.40440,   1.08592,
     +     .82124,   1.28590,   1.40683,
     +     .07188,    .03905,  30.92899,   1.47863,   1.16223,
     +     .90014,   1.36090,   1.48116 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07335,    .03993,  32.52217,   1.55367,   1.23912,
     +     .97930,   1.43669,   1.55630,
     +     .07479,    .04078,  34.09464,   1.62869,   1.31629,
     +    1.05922,   1.51244,   1.63143,
     +     .07615,    .04159,  35.54992,   1.69998,   1.38919,
     +    1.13410,   1.58440,   1.70280,
     +     .07744,    .04234,  36.92458,   1.76821,   1.45918,
     +    1.20627,   1.65326,   1.77113,
     +     .07873,    .04310,  38.28658,   1.83722,   1.52979,
     +    1.27887,   1.72289,   1.84023,
     +     .07999,    .04385,  39.61507,   1.90569,   1.59988,
     +    1.35097,   1.79196,   1.90880,
     +     .08120,    .04456,  40.86355,   1.97123,   1.66691,
     +    1.41983,   1.85807,   1.97443,
     +     .08234,    .04523,  42.03522,   2.03371,   1.73083,
     +    1.48556,   1.92107,   2.03698 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08348,    .04590,  43.19358,   2.09676,   1.79520,
     +    1.55155,   1.98465,   2.10012,
     +     .08462,    .04657,  44.34132,   2.15985,   1.85980,
     +    1.61802,   2.04826,   2.16329,
     +     .08570,    .04720,  45.39550,   2.21942,   1.92050,
     +    1.68010,   2.10831,   2.22294,
     +     .08672,    .04780,  46.41086,   2.27704,   1.97946,
     +    1.74072,   2.16638,   2.28063,
     +     .08776,    .04840,  47.39918,   2.33463,   2.03816,
     +    1.80079,   2.22442,   2.33829 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04243,    .02127,    .72628,    .28990,    .00000,
     +     .00000,    .15620,    .29028,
     +     .04390,    .02216,   1.33061,    .30759,    .00000,
     +     .00000,    .17504,    .30807,
     +     .04605,    .02348,   2.37343,    .33837,    .00000,
     +     .00000,    .20744,    .33899,
     +     .04761,    .02444,   3.20313,    .36414,    .01025,
     +     .00000,    .23433,    .36485,
     +     .04923,    .02542,   4.09116,    .39392,    .04533,
     +     .00000,    .26525,    .39474,
     +     .05063,    .02627,   4.91891,    .42188,    .07738,
     +     .00000,    .29415,    .42279,
     +     .05197,    .02709,   5.77274,    .45047,    .10897,
     +     .00000,    .32363,    .45147,
     +     .05338,    .02795,   6.73393,    .48268,    .14486,
     +     .00000,    .35675,    .48377 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05461,    .02869,   7.58260,    .51224,    .17546,
     +     .00000,    .38708,    .51342,
     +     .05579,    .02941,   8.44769,    .54210,    .20758,
     +     .00000,    .41767,    .54336,
     +     .05672,    .02998,   9.15100,    .56668,    .23365,
     +     .00000,    .44281,    .56800,
     +     .05870,    .03118,  10.66674,    .62169,    .29186,
     +     .00144,    .49900,    .62315,
     +     .06040,    .03221,  11.95758,    .67149,    .34420,
     +     .05709,    .54978,    .67307,
     +     .06229,    .03335,  13.42652,    .72981,    .40539,
     +     .13188,    .60916,    .73152,
     +     .06426,    .03453,  15.00392,    .79318,    .47169,
     +     .20240,    .67359,    .79503,
     +     .06604,    .03561,  16.46577,    .85277,    .53399,
     +     .26901,    .73413,    .85475 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06783,    .03668,  17.96750,    .91498,    .59898,
     +     .33794,    .79727,    .91709,
     +     .06931,    .03757,  19.20560,    .96761,    .65319,
     +     .39366,    .85065,    .96982,
     +     .07111,    .03865,  20.73031,   1.03321,    .72115,
     +     .46470,    .91714,   1.03555,
     +     .07269,    .03960,  22.09465,   1.09279,    .78302,
     +     .52971,    .97749,   1.09525,
     +     .07414,    .04046,  23.33324,   1.14816,    .84008,
     +     .58879,   1.03355,   1.15072,
     +     .07598,    .04156,  24.90543,   1.21972,    .91388,
     +     .66538,   1.10598,   1.22242,
     +     .07771,    .04258,  26.38709,   1.28843,    .98483,
     +     .73923,   1.17547,   1.29125,
     +     .07932,    .04354,  27.76315,   1.35367,   1.05204,
     +     .80890,   1.24144,   1.35661 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08093,    .04450,  29.11672,   1.41943,   1.11956,
     +     .87857,   1.30791,   1.42249,
     +     .08250,    .04543,  30.44781,   1.48500,   1.18715,
     +     .94874,   1.37417,   1.48818,
     +     .08398,    .04630,  31.67388,   1.54711,   1.25081,
     +    1.01428,   1.43692,   1.55040,
     +     .08538,    .04713,  32.82810,   1.60642,   1.31177,
     +    1.07731,   1.49683,   1.60982,
     +     .08678,    .04795,  33.96706,   1.66626,   1.37313,
     +    1.14054,   1.55725,   1.66976,
     +     .08816,    .04876,  35.07429,   1.72549,   1.43389,
     +    1.20320,   1.61705,   1.72909,
     +     .08947,    .04953,  36.11132,   1.78204,   1.49186,
     +    1.26290,   1.67414,   1.78574,
     +     .09070,    .05026,  37.08115,   1.83583,   1.54703,
     +    1.31977,   1.72843,   1.83963 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09195,    .05099,  38.03595,   1.89000,   1.60245,
     +    1.37673,   1.78308,   1.89388,
     +     .09318,    .05171,  38.97975,   1.94410,   1.65797,
     +    1.43401,   1.83767,   1.94807,
     +     .09435,    .05239,  39.84298,   1.99506,   1.71001,
     +    1.48737,   1.88909,   1.99912,
     +     .09546,    .05304,  40.67314,   2.04427,   1.76050,
     +    1.53941,   1.93874,   2.04842,
     +     .09658,    .05369,  41.47746,   2.09335,   1.81064,
     +    1.59085,   1.98824,   2.09758 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05810,    .03080,    .74174,    .24927,    .00000,
     +     .00000,    .13494,    .25027,
     +     .06015,    .03208,   1.28646,    .26485,    .00000,
     +     .00000,    .15147,    .26601,
     +     .06315,    .03396,   2.19208,    .29124,    .00000,
     +     .00000,    .17922,    .29263,
     +     .06531,    .03531,   2.89081,    .31282,    .00856,
     +     .00000,    .20173,    .31437,
     +     .06754,    .03670,   3.61971,    .33729,    .03746,
     +     .00000,    .22715,    .33902,
     +     .06946,    .03789,   4.28437,    .35991,    .06355,
     +     .00000,    .25056,    .36178,
     +     .07130,    .03903,   4.95753,    .38275,    .08890,
     +     .00000,    .27414,    .38477,
     +     .07324,    .04022,   5.70198,    .40818,    .11737,
     +     .00000,    .30034,    .41035 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07491,    .04125,   6.34735,    .43119,    .14133,
     +     .00000,    .32400,    .43349,
     +     .07652,    .04224,   6.99629,    .45423,    .16626,
     +     .00000,    .34766,    .45666,
     +     .07779,    .04302,   7.51719,    .47301,    .18632,
     +     .00000,    .36693,    .47555,
     +     .08048,    .04467,   8.61974,    .51458,    .23060,
     +     .00118,    .40949,    .51732,
     +     .08277,    .04606,   9.53677,    .55168,    .26987,
     +     .04314,    .44742,    .55460,
     +     .08532,    .04761,  10.55916,    .59454,    .31518,
     +     .09913,    .49118,    .59767,
     +     .08796,    .04921,  11.63520,    .64045,    .36360,
     +     .15106,    .53801,    .64380,
     +     .09034,    .05064,  12.61354,    .68307,    .40852,
     +     .19951,    .58144,    .68660 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09273,    .05208,  13.60085,    .72701,    .45481,
     +     .24904,    .62619,    .73074,
     +     .09470,    .05326,  14.40013,    .76373,    .49295,
     +     .28858,    .66354,    .76761,
     +     .09707,    .05468,  15.36985,    .80901,    .54028,
     +     .33851,    .70960,    .81309,
     +     .09917,    .05593,  16.22423,    .84971,    .58292,
     +     .38374,    .75096,    .85395,
     +     .10108,    .05706,  16.98749,    .88712,    .62183,
     +     .42439,    .78897,    .89151,
     +     .10348,    .05849,  17.94148,    .93497,    .67163,
     +     .47658,    .83757,    .93956,
     +     .10574,    .05982,  18.82623,    .98041,    .71901,
     +     .52638,    .88371,    .98518,
     +     .10784,    .06105,  19.63465,   1.02309,    .76341,
     +     .57286,    .92703,   1.02804 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10993,    .06228,  20.41679,   1.06566,    .80755,
     +     .61886,    .97023,   1.07078,
     +     .11196,    .06347,  21.17618,   1.10775,    .85137,
     +     .66481,   1.01292,   1.11303,
     +     .11388,    .06459,  21.86357,   1.14718,    .89220,
     +     .70727,   1.05291,   1.15262,
     +     .11568,    .06564,  22.50300,   1.18455,    .93101,
     +     .74782,   1.09081,   1.19013,
     +     .11748,    .06668,  23.12481,   1.22191,    .96972,
     +     .78813,   1.12869,   1.22764,
     +     .11924,    .06770,  23.72138,   1.25860,   1.00775,
     +     .82777,   1.16587,   1.26447,
     +     .12091,    .06866,  24.27268,   1.29334,   1.04375,
     +     .86525,   1.20109,   1.29935,
     +     .12248,    .06957,  24.78204,   1.32615,   1.07777,
     +     .90070,   1.23435,   1.33228 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12406,    .07048,  25.27625,   1.35891,   1.11167,
     +     .93592,   1.26755,   1.36517,
     +     .12562,    .07138,  25.76047,   1.39145,   1.14545,
     +     .97115,   1.30053,   1.39784,
     +     .12709,    .07222,  26.19522,   1.42182,   1.17681,
     +    1.00366,   1.33130,   1.42832,
     +     .12850,    .07302,  26.61121,   1.45102,   1.20712,
     +    1.03527,   1.36090,   1.45764,
     +     .12990,    .07382,  27.00680,   1.47988,   1.23695,
     +    1.06622,   1.39015,   1.48662 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .08077,    .04585,    .81385,    .21755,    .00000,
     +     .00000,    .11822,    .21970,
     +     .08364,    .04765,   1.29947,    .23111,    .00000,
     +     .00000,    .13261,    .23353,
     +     .08781,    .05027,   2.07218,    .25340,    .00000,
     +     .00000,    .15606,    .25619,
     +     .09081,    .05213,   2.64835,    .27117,    .00706,
     +     .00000,    .17464,    .27422,
     +     .09389,    .05403,   3.23198,    .29089,    .03053,
     +     .00000,    .19519,    .29422,
     +     .09652,    .05565,   3.75085,    .30880,    .05142,
     +     .00000,    .21379,    .31236,
     +     .09903,    .05718,   4.26531,    .32664,    .07141,
     +     .00000,    .23228,    .33042,
     +     .10167,    .05880,   4.82268,    .34623,    .09356,
     +     .00000,    .25255,    .35024 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10394,    .06017,   5.29577,    .36367,    .11192,
     +     .00000,    .27057,    .36789,
     +     .10612,    .06149,   5.76392,    .38096,    .13085,
     +     .00000,    .28840,    .38537,
     +     .10784,    .06253,   6.13415,    .39491,    .14592,
     +     .00000,    .30278,    .39948,
     +     .11145,    .06470,   6.90108,    .42536,    .17876,
     +     .00094,    .33412,    .43025,
     +     .11451,    .06653,   7.52066,    .45209,    .20743,
     +     .03183,    .36159,    .45725,
     +     .11789,    .06854,   8.19445,    .48251,    .24002,
     +     .07267,    .39282,    .48796,
     +     .12138,    .07060,   8.88666,    .51455,    .27429,
     +     .10987,    .42569,    .52032,
     +     .12451,    .07244,   9.50145,    .54384,    .30562,
     +     .14407,    .45571,    .54988 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12764,    .07427,  10.10846,    .57360,    .33745,
     +     .17857,    .48621,    .57992,
     +     .13020,    .07576,  10.58874,    .59811,    .36329,
     +     .20571,    .51130,    .60465,
     +     .13328,    .07755,  11.16069,    .62797,    .39500,
     +     .23962,    .54187,    .63478,
     +     .13599,    .07911,  11.65487,    .65446,    .42323,
     +     .26997,    .56898,    .66151,
     +     .13844,    .08052,  12.08704,    .67850,    .44866,
     +     .29691,    .59357,    .68576,
     +     .14152,    .08228,  12.61650,    .70887,    .48082,
     +     .33110,    .62464,    .71640,
     +     .14439,    .08392,  13.09737,    .73734,    .51105,
     +     .36335,    .65375,    .74512,
     +     .14705,    .08543,  13.52712,    .76374,    .53902,
     +     .39307,    .68075,    .77176 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14968,    .08691,  13.93354,    .78973,    .56648,
     +     .42213,    .70733,    .79797,
     +     .15224,    .08836,  14.32157,    .81516,    .59347,
     +     .45090,    .73333,    .82362,
     +     .15463,    .08969,  14.66388,    .83867,    .61831,
     +     .47715,    .75737,    .84734,
     +     .15687,    .09094,  14.97711,    .86075,    .64171,
     +     .50200,    .77993,    .86961,
     +     .15910,    .09218,  15.27518,    .88257,    .66480,
     +     .52645,    .80225,    .89162,
     +     .16128,    .09339,  15.55549,    .90379,    .68727,
     +     .55028,    .82395,    .91303,
     +     .16333,    .09452,  15.80918,    .92368,    .70834,
     +     .57260,    .84429,    .93310,
     +     .16526,    .09558,  16.03934,    .94230,    .72808,
     +     .59354,    .86333,    .95188 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16719,    .09663,  16.25754,    .96070,    .74756,
     +     .61415,    .88216,    .97044,
     +     .16909,    .09767,  16.46862,    .97885,    .76685,
     +     .63465,    .90073,    .98875,
     +     .17087,    .09864,  16.65184,    .99558,    .78454,
     +     .65334,    .91784,   1.00563,
     +     .17257,    .09957,  16.82620,   1.01159,    .80157,
     +     .67144,    .93423,   1.02178,
     +     .17426,    .10048,  16.98609,   1.02723,    .81815,
     +     .68897,    .95024,   1.03756 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09886,    .05844,    .89141,    .20232,    .00000,
     +     .00000,    .11029,    .20571,
     +     .10235,    .06059,   1.34113,    .21474,    .00000,
     +     .00000,    .12349,    .21846,
     +     .10741,    .06370,   2.03514,    .23471,    .00000,
     +     .00000,    .14458,    .23892,
     +     .11101,    .06590,   2.54105,    .25036,    .00625,
     +     .00000,    .16102,    .25491,
     +     .11471,    .06814,   3.04398,    .26752,    .02686,
     +     .00000,    .17897,    .27242,
     +     .11785,    .07003,   3.48370,    .28290,    .04503,
     +     .00000,    .19502,    .28810,
     +     .12085,    .07182,   3.91357,    .29809,    .06223,
     +     .00000,    .21084,    .30357,
     +     .12400,    .07370,   4.37303,    .31461,    .08113,
     +     .00000,    .22803,    .32039 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12668,    .07529,   4.75755,    .32917,    .09664,
     +     .00000,    .24315,    .33520,
     +     .12926,    .07681,   5.13396,    .34351,    .11253,
     +     .00000,    .25802,    .34978,
     +     .13129,    .07800,   5.42867,    .35500,    .12510,
     +     .00000,    .26992,    .36145,
     +     .13554,    .08049,   6.03005,    .37984,    .15225,
     +     .00082,    .29563,    .38669,
     +     .13912,    .08257,   6.50588,    .40141,    .17569,
     +     .02625,    .31793,    .40859,
     +     .14307,    .08485,   7.01421,    .42569,    .20208,
     +     .05970,    .34302,    .43324,
     +     .14712,    .08718,   7.52764,    .45099,    .22955,
     +     .08980,    .36914,    .45891,
     +     .15074,    .08924,   7.97618,    .47387,    .25440,
     +     .11722,    .39275,    .48212 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15435,    .09129,   8.41205,    .49690,    .27942,
     +     .14462,    .41650,    .50548,
     +     .15729,    .09294,   8.75089,    .51566,    .29953,
     +     .16597,    .43585,    .52451,
     +     .16082,    .09492,   9.14894,    .53833,    .32402,
     +     .19245,    .45922,    .54750,
     +     .16390,    .09663,   9.48791,    .55827,    .34565,
     +     .21598,    .47978,    .56772,
     +     .16669,    .09818,   9.77949,    .57621,    .36496,
     +     .23669,    .49827,    .58590,
     +     .17018,    .10010,  10.13102,    .59867,    .38920,
     +     .26277,    .52143,    .60867,
     +     .17342,    .10188,  10.44505,    .61953,    .41178,
     +     .28717,    .54294,    .62983,
     +     .17642,    .10351,  10.72087,    .63870,    .43250,
     +     .30949,    .56271,    .64926 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17936,    .10510,  10.97634,    .65739,    .45267,
     +     .33112,    .58199,    .66821,
     +     .18222,    .10665,  11.21684,    .67555,    .47237,
     +     .35241,    .60072,    .68663,
     +     .18487,    .10807,  11.42408,    .69219,    .49033,
     +     .37167,    .61789,    .70349,
     +     .18736,    .10940,  11.61103,    .70770,    .50714,
     +     .38980,    .63389,    .71921,
     +     .18982,    .11070,  11.78526,    .72291,    .52362,
     +     .40751,    .64960,    .73464,
     +     .19222,    .11197,  11.94618,    .73758,    .53955,
     +     .42467,    .66476,    .74952,
     +     .19448,    .11316,  12.08894,    .75123,    .55438,
     +     .44064,    .67887,    .76337,
     +     .19659,    .11426,  12.21597,    .76393,    .56820,
     +     .45554,    .69199,    .77624 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19869,    .11536,  12.33312,    .77639,    .58173,
     +     .47010,    .70488,    .78888,
     +     .20076,    .11644,  12.44506,    .78861,    .59507,
     +     .48453,    .71753,    .80128,
     +     .20269,    .11744,  12.53836,    .79976,    .60721,
     +     .49758,    .72907,    .81259,
     +     .20453,    .11839,  12.62683,    .81040,    .61886,
     +     .51019,    .74009,    .82339,
     +     .20635,    .11933,  12.70427,    .82069,    .63010,
     +     .52231,    .75075,    .83383 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11474,    .06966,    .97068,    .19289,    .00000,
     +     .00000,    .10545,    .19756,
     +     .11873,    .07207,   1.39006,    .20445,    .00000,
     +     .00000,    .11779,    .20953,
     +     .12451,    .07554,   2.02590,    .22278,    .00000,
     +     .00000,    .13724,    .22843,
     +     .12861,    .07799,   2.48166,    .23697,    .00571,
     +     .00000,    .15221,    .24302,
     +     .13279,    .08046,   2.92804,    .25235,    .02440,
     +     .00000,    .16838,    .25881,
     +     .13635,    .08255,   3.31339,    .26602,    .04075,
     +     .00000,    .18272,    .27283,
     +     .13972,    .08452,   3.68599,    .27942,    .05611,
     +     .00000,    .19676,    .28656,
     +     .14326,    .08657,   4.08005,    .29389,    .07288,
     +     .00000,    .21190,    .30137 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14628,    .08831,   4.40627,    .30654,    .08653,
     +     .00000,    .22511,    .31431,
     +     .14916,    .08996,   4.72287,    .31892,    .10044,
     +     .00000,    .23803,    .32697,
     +     .15142,    .09126,   4.96881,    .32879,    .11138,
     +     .00000,    .24832,    .33706,
     +     .15615,    .09394,   5.46453,    .34998,    .13487,
     +     .00074,    .27039,    .35870,
     +     .16013,    .09619,   5.84992,    .36822,    .15499,
     +     .02270,    .28937,    .37732,
     +     .16450,    .09863,   6.25560,    .38858,    .17746,
     +     .05146,    .31055,    .39809,
     +     .16896,    .10111,   6.65962,    .40961,    .20065,
     +     .07711,    .33241,    .41953,
     +     .17293,    .10330,   7.00766,    .42847,    .22147,
     +     .10029,    .35201,    .43876 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17688,    .10547,   7.34131,    .44730,    .24229,
     +     .12330,    .37158,    .45796,
     +     .18008,    .10721,   7.59670,    .46251,    .25889,
     +     .14110,    .38739,    .47346,
     +     .18392,    .10928,   7.89316,    .48077,    .27898,
     +     .16305,    .40636,    .49207,
     +     .18727,    .11108,   8.14238,    .49672,    .29661,
     +     .18244,    .42294,    .50832,
     +     .19028,    .11268,   8.35346,    .51095,    .31225,
     +     .19939,    .43774,    .52283,
     +     .19404,    .11467,   8.60421,    .52865,    .33174,
     +     .22062,    .45615,    .54086,
     +     .19752,    .11651,   8.82473,    .54497,    .34979,
     +     .24035,    .47314,    .55749,
     +     .20072,    .11818,   9.01501,    .55985,    .36624,
     +     .25829,    .48863,    .57265 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20386,    .11982,   9.18769,    .57424,    .38214,
     +     .27556,    .50362,    .58732,
     +     .20690,    .12139,   9.34803,    .58815,    .39759,
     +     .29248,    .51811,    .60149,
     +     .20972,    .12283,   9.48265,    .60077,    .41156,
     +     .30768,    .53128,    .61436,
     +     .21235,    .12417,   9.60223,    .61248,    .42459,
     +     .32193,    .54350,    .62629,
     +     .21494,    .12549,   9.71104,    .62388,    .43728,
     +     .33577,    .55541,    .63791,
     +     .21746,    .12676,   9.80935,    .63480,    .44948,
     +     .34911,    .56683,    .64905,
     +     .21983,    .12795,   9.89440,    .64490,    .46077,
     +     .36147,    .57740,    .65935,
     +     .22204,    .12905,   9.96825,    .65424,    .47125,
     +     .37295,    .58718,    .66888 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22423,    .13014,  10.03392,    .66333,    .48144,
     +     .38411,    .59671,    .67816,
     +     .22638,    .13121,  10.09567,    .67222,    .49146,
     +     .39512,    .60603,    .68723,
     +     .22839,    .13219,  10.14394,    .68025,    .50050,
     +     .40503,    .61447,    .69542,
     +     .23029,    .13313,  10.18959,    .68790,    .50916,
     +     .41457,    .62250,    .70323,
     +     .23217,    .13404,  10.22637,    .69523,    .51746,
     +     .42369,    .63021,    .71070 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12925,    .07992,   1.04399,    .18615,    .00000,
     +     .00000,    .10207,    .19215,
     +     .13367,    .08254,   1.43849,    .19703,    .00000,
     +     .00000,    .11374,    .20348,
     +     .14005,    .08629,   2.02743,    .21407,    .00000,
     +     .00000,    .13191,    .22117,
     +     .14456,    .08891,   2.44368,    .22711,    .00530,
     +     .00000,    .14575,    .23467,
     +     .14915,    .09155,   2.84640,    .24113,    .02255,
     +     .00000,    .16059,    .24915,
     +     .15304,    .09378,   3.19037,    .25350,    .03756,
     +     .00000,    .17364,    .26190,
     +     .15672,    .09587,   3.51992,    .26555,    .05156,
     +     .00000,    .18634,    .27432,
     +     .16058,    .09805,   3.86539,    .27849,    .06674,
     +     .00000,    .19996,    .28764 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16385,    .09988,   4.14876,    .28971,    .07903,
     +     .00000,    .21176,    .29918,
     +     .16698,    .10163,   4.42181,    .30066,    .09151,
     +     .00000,    .22325,    .31042,
     +     .16943,    .10299,   4.63250,    .30934,    .10127,
     +     .00000,    .23237,    .31934,
     +     .17454,    .10581,   5.05259,    .32786,    .12212,
     +     .00068,    .25180,    .33836,
     +     .17882,    .10815,   5.37396,    .34369,    .13986,
     +     .02016,    .26839,    .35460,
     +     .18351,    .11069,   5.70783,    .36124,    .15954,
     +     .04558,    .28677,    .37259,
     +     .18828,    .11326,   6.03619,    .37922,    .17971,
     +     .06806,    .30560,    .39102,
     +     .19252,    .11552,   6.31543,    .39522,    .19771,
     +     .08827,    .32237,    .40741 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19671,    .11774,   6.57990,    .41110,    .21558,
     +     .10821,    .33900,    .42368,
     +     .20011,    .11952,   6.77918,    .42382,    .22975,
     +     .12354,    .35234,    .43671,
     +     .20417,    .12164,   7.00795,    .43901,    .24681,
     +     .14236,    .36827,    .45227,
     +     .20770,    .12346,   7.19793,    .45220,    .26169,
     +     .15890,    .38211,    .46578,
     +     .21086,    .12509,   7.35633,    .46389,    .27482,
     +     .17329,    .39438,    .47775,
     +     .21480,    .12710,   7.54174,    .47833,    .29110,
     +     .19121,    .40955,    .49254,
     +     .21844,    .12894,   7.70211,    .49156,    .30608,
     +     .20779,    .42347,    .50609,
     +     .22178,    .13062,   7.83771,    .50354,    .31966,
     +     .22277,    .43608,    .51836 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22504,    .13224,   7.95815,    .51505,    .33271,
     +     .23713,    .44820,    .53015,
     +     .22819,    .13380,   8.06833,    .52610,    .34533,
     +     .25113,    .45986,    .54147,
     +     .23110,    .13523,   8.15790,    .53605,    .35667,
     +     .26363,    .47037,    .55168,
     +     .23381,    .13655,   8.23597,    .54524,    .36720,
     +     .27532,    .48008,    .56109,
     +     .23647,    .13784,   8.30477,    .55413,    .37740,
     +     .28661,    .48949,    .57020,
     +     .23906,    .13909,   8.36508,    .56259,    .38717,
     +     .29745,    .49847,    .57888,
     +     .24147,    .14024,   8.41536,    .57037,    .39616,
     +     .30745,    .50673,    .58686,
     +     .24372,    .14131,   8.45749,    .57752,    .40447,
     +     .31670,    .51433,    .59419 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24595,    .14237,   8.49279,    .58443,    .41251,
     +     .32565,    .52169,    .60129,
     +     .24813,    .14339,   8.52509,    .59116,    .42038,
     +     .33447,    .52886,    .60819,
     +     .25016,    .14434,   8.54719,    .59718,    .42744,
     +     .34234,    .53530,    .61437,
     +     .25209,    .14523,   8.56804,    .60291,    .43420,
     +     .34993,    .54142,    .62025,
     +     .25398,    .14611,   8.58148,    .60834,    .44062,
     +     .35713,    .54725,    .62583 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15566,    .09845,   1.17408,    .17664,    .00000,
     +     .00000,    .09747,    .18535,
     +     .16078,    .10134,   1.52715,    .18641,    .00000,
     +     .00000,    .10808,    .19566,
     +     .16812,    .10544,   2.04123,    .20143,    .00000,
     +     .00000,    .12430,    .21144,
     +     .17329,    .10829,   2.39636,    .21273,    .00470,
     +     .00000,    .13645,    .22327,
     +     .17851,    .11115,   2.73290,    .22471,    .01984,
     +     .00000,    .14928,    .23578,
     +     .18291,    .11354,   3.01545,    .23514,    .03289,
     +     .00000,    .16044,    .24665,
     +     .18707,    .11577,   3.28207,    .24520,    .04493,
     +     .00000,    .17119,    .25712,
     +     .19140,    .11809,   3.55743,    .25589,    .05786,
     +     .00000,    .18261,    .26824 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19506,    .12003,   3.77981,    .26506,    .06822,
     +     .00000,    .19239,    .27777,
     +     .19855,    .12187,   3.99146,    .27394,    .07866,
     +     .00000,    .20185,    .28698,
     +     .20127,    .12330,   4.15289,    .28092,    .08678,
     +     .00000,    .20929,    .29423,
     +     .20692,    .12624,   4.46856,    .29568,    .10395,
     +     .00059,    .22501,    .30952,
     +     .21163,    .12865,   4.70296,    .30812,    .11839,
     +     .01664,    .23826,    .32241,
     +     .21675,    .13126,   4.94050,    .32175,    .13425,
     +     .03745,    .25278,    .33653,
     +     .22194,    .13388,   5.16878,    .33554,    .15032,
     +     .05564,    .26747,    .35079,
     +     .22653,    .13616,   5.35822,    .34766,    .16449,
     +     .07182,    .28040,    .36332 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23104,    .13839,   5.53317,    .35953,    .17844,
     +     .08765,    .29307,    .37560,
     +     .23468,    .14017,   5.66118,    .36892,    .18937,
     +     .09968,    .30311,    .38532,
     +     .23899,    .14226,   5.80460,    .38001,    .20241,
     +     .11435,    .31499,    .39679,
     +     .24272,    .14405,   5.92050,    .38955,    .21370,
     +     .12714,    .32521,    .40665,
     +     .24605,    .14564,   6.01391,    .39789,    .22356,
     +     .13816,    .33417,    .41528,
     +     .25018,    .14758,   6.11948,    .40808,    .23567,
     +     .15179,    .34513,    .42582,
     +     .25397,    .14935,   6.20725,    .41730,    .24671,
     +     .16429,    .35507,    .43536,
     +     .25742,    .15094,   6.27772,    .42554,    .25662,
     +     .17548,    .36397,    .44388 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26078,    .15248,   6.33639,    .43335,    .26604,
     +     .18611,    .37243,    .45196,
     +     .26401,    .15394,   6.38774,    .44077,    .27508,
     +     .19641,    .38049,    .45965,
     +     .26697,    .15527,   6.42514,    .44736,    .28312,
     +     .20552,    .38766,    .46647,
     +     .26971,    .15648,   6.45566,    .45337,    .29053,
     +     .21398,    .39423,    .47270,
     +     .27240,    .15767,   6.47924,    .45910,    .29764,
     +     .22209,    .40051,    .47864,
     +     .27499,    .15880,   6.49698,    .46450,    .30439,
     +     .22982,    .40644,    .48424,
     +     .27740,    .15984,   6.50868,    .46940,    .31056,
     +     .23689,    .41185,    .48932,
     +     .27964,    .16080,   6.51592,    .47386,    .31620,
     +     .24340,    .41677,    .49394 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28184,    .16173,   6.51821,    .47810,    .32162,
     +     .24965,    .42148,    .49835,
     +     .28400,    .16263,   6.51871,    .48219,    .32689,
     +     .25577,    .42604,    .50260,
     +     .28597,    .16346,   6.51294,    .48578,    .33156,
     +     .26118,    .43006,    .50632,
     +     .28785,    .16424,   6.50752,    .48918,    .33601,
     +     .26638,    .43387,    .50986,
     +     .28968,    .16499,   6.49688,    .49232,    .34019,
     +     .27127,    .43742,    .51313 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .19132,    .12273,   1.33191,    .16682,    .00000,
     +     .00000,    .09299,    .17966,
     +     .19720,    .12582,   1.63421,    .17528,    .00000,
     +     .00000,    .10238,    .18874,
     +     .20556,    .13016,   2.06220,    .18802,    .00000,
     +     .00000,    .11642,    .20233,
     +     .21139,    .13315,   2.34981,    .19740,    .00408,
     +     .00000,    .12674,    .21230,
     +     .21725,    .13611,   2.61535,    .20719,    .01703,
     +     .00000,    .13746,    .22266,
     +     .22216,    .13857,   2.83363,    .21558,    .02807,
     +     .00000,    .14665,    .23153,
     +     .22677,    .14086,   3.03586,    .22357,    .03813,
     +     .00000,    .15539,    .23997,
     +     .23157,    .14321,   3.24101,    .23195,    .04882,
     +     .00000,    .16457,    .24882 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23558,    .14516,   3.40332,    .23905,    .05727,
     +     .00000,    .17233,    .25629,
     +     .23939,    .14700,   3.55538,    .24584,    .06572,
     +     .00000,    .17977,    .26344,
     +     .24235,    .14842,   3.66957,    .25114,    .07224,
     +     .00000,    .18557,    .26901,
     +     .24846,    .15132,   3.88680,    .26220,    .08588,
     +     .00050,    .19766,    .28062,
     +     .25350,    .15368,   4.04092,    .27137,    .09719,
     +     .01328,    .20772,    .29024,
     +     .25896,    .15619,   4.19122,    .28127,    .10946,
     +     .02975,    .21857,    .30062,
     +     .26443,    .15868,   4.33053,    .29110,    .12172,
     +     .04394,    .22938,    .31092,
     +     .26923,    .16084,   4.44160,    .29960,    .13241,
     +     .05641,    .23875,    .31982 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27392,    .16292,   4.53997,    .30780,    .14278,
     +     .06847,    .24780,    .32840,
     +     .27766,    .16455,   4.60777,    .31416,    .15081,
     +     .07753,    .25487,    .33507,
     +     .28208,    .16645,   4.68049,    .32157,    .16030,
     +     .08849,    .26311,    .34283,
     +     .28587,    .16807,   4.73614,    .32783,    .16842,
     +     .09795,    .27011,    .34939,
     +     .28923,    .16948,   4.77719,    .33322,    .17542,
     +     .10602,    .27615,    .35504,
     +     .29336,    .17118,   4.81947,    .33969,    .18392,
     +     .11589,    .28344,    .36182,
     +     .29712,    .17272,   4.85069,    .34545,    .19159,
     +     .12486,    .28996,    .36785,
     +     .30052,    .17408,   4.87147,    .35048,    .19838,
     +     .13281,    .29569,    .37312 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30379,    .17537,   4.88382,    .35514,    .20474,
     +     .14027,    .30104,    .37802,
     +     .30692,    .17659,   4.89171,    .35951,    .21080,
     +     .14744,    .30608,    .38260,
     +     .30975,    .17768,   4.89147,    .36328,    .21611,
     +     .15371,    .31046,    .38655,
     +     .31237,    .17866,   4.88812,    .36666,    .22095,
     +     .15949,    .31442,    .39010,
     +     .31491,    .17961,   4.88006,    .36981,    .22554,
     +     .16498,    .31814,    .39341,
     +     .31733,    .18049,   4.86858,    .37271,    .22985,
     +     .17016,    .32160,    .39647,
     +     .31957,    .18129,   4.85435,    .37529,    .23374,
     +     .17486,    .32469,    .39917,
     +     .32163,    .18203,   4.83847,    .37757,    .23726,
     +     .17915,    .32746,    .40158 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32365,    .18272,   4.81922,    .37967,    .24060,
     +     .18323,    .33005,    .40379,
     +     .32561,    .18340,   4.79934,    .38168,    .24382,
     +     .18720,    .33253,    .40591,
     +     .32739,    .18399,   4.77651,    .38334,    .24661,
     +     .19066,    .33464,    .40767,
     +     .32908,    .18455,   4.75513,    .38490,    .24927,
     +     .19398,    .33664,    .40933,
     +     .33070,    .18507,   4.73023,    .38627,    .25172,
     +     .19705,    .33843,    .41078 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24461,    .15692,   1.51282,    .15475,    .00000,
     +     .00000,    .08787,    .17444,
     +     .25122,    .16000,   1.74814,    .16152,    .00000,
     +     .00000,    .09567,    .18184,
     +     .26054,    .16426,   2.06960,    .17140,    .00000,
     +     .00000,    .10705,    .19258,
     +     .26697,    .16714,   2.27747,    .17850,    .00336,
     +     .00000,    .11519,    .20026,
     +     .27336,    .16995,   2.46185,    .18573,    .01385,
     +     .00000,    .12348,    .20806,
     +     .27865,    .17226,   2.60901,    .19181,    .02267,
     +     .00000,    .13045,    .21460,
     +     .28358,    .17438,   2.74174,    .19751,    .03058,
     +     .00000,    .13698,    .22070,
     +     .28867,    .17653,   2.87272,    .20338,    .03887,
     +     .00000,    .14373,    .22700 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29289,    .17828,   2.97295,    .20824,    .04532,
     +     .00000,    .14933,    .23220,
     +     .29686,    .17992,   3.06464,    .21284,    .05171,
     +     .00000,    .15463,    .23712,
     +     .29993,    .18117,   3.13176,    .21638,    .05658,
     +     .00000,    .15871,    .24089,
     +     .30621,    .18369,   3.25288,    .22361,    .06663,
     +     .00041,    .16709,    .24860,
     +     .31132,    .18569,   3.33078,    .22948,    .07483,
     +     .00990,    .17391,    .25484,
     +     .31677,    .18779,   3.40041,    .23566,    .08358,
     +     .02203,    .18113,    .26140,
     +     .32218,    .18981,   3.45948,    .24163,    .09217,
     +     .03230,    .18815,    .26773,
     +     .32686,    .19151,   3.50153,    .24664,    .09952,
     +     .04119,    .19410,    .27304 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33137,    .19312,   3.53409,    .25136,    .10655,
     +     .04967,    .19973,    .27804,
     +     .33491,    .19435,   3.55140,    .25488,    .11189,
     +     .05595,    .20400,    .28177,
     +     .33904,    .19575,   3.56594,    .25889,    .11812,
     +     .06346,    .20889,    .28601,
     +     .34256,    .19690,   3.57301,    .26218,    .12336,
     +     .06986,    .21296,    .28950,
     +     .34562,    .19788,   3.57290,    .26491,    .12781,
     +     .07524,    .21638,    .29238,
     +     .34932,    .19903,   3.56666,    .26807,    .13313,
     +     .08175,    .22040,    .29572,
     +     .35264,    .20003,   3.55563,    .27078,    .13785,
     +     .08758,    .22390,    .29857,
     +     .35560,    .20088,   3.54022,    .27305,    .14195,
     +     .09268,    .22689,    .30096 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35840,    .20165,   3.51991,    .27502,    .14572,
     +     .09739,    .22957,    .30304,
     +     .36104,    .20235,   3.49786,    .27680,    .14925,
     +     .10188,    .23203,    .30491,
     +     .36338,    .20294,   3.47258,    .27821,    .15228,
     +     .10574,    .23409,    .30640,
     +     .36551,    .20345,   3.44725,    .27943,    .15501,
     +     .10925,    .23589,    .30767,
     +     .36755,    .20391,   3.41932,    .28046,    .15754,
     +     .11255,    .23751,    .30876,
     +     .36946,    .20432,   3.39011,    .28135,    .15987,
     +     .11563,    .23895,    .30968,
     +     .37119,    .20467,   3.36075,    .28205,    .16193,
     +     .11838,    .24019,    .31042,
     +     .37277,    .20497,   3.33192,    .28261,    .16377,
     +     .12086,    .24124,    .31100 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37426,    .20523,   3.30133,    .28304,    .16546,
     +     .12318,    .24216,    .31144,
     +     .37571,    .20547,   3.27100,    .28342,    .16708,
     +     .12542,    .24301,    .31183,
     +     .37698,    .20565,   3.24012,    .28361,    .16843,
     +     .12734,    .24365,    .31202,
     +     .37819,    .20581,   3.21131,    .28379,    .16971,
     +     .12916,    .24425,    .31219,
     +     .37930,    .20594,   3.18058,    .28382,    .17084,
     +     .13082,    .24470,    .31222 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29293,    .18551,   1.61503,    .14455,    .00000,
     +     .00000,    .08373,    .17071,
     +     .29984,    .18832,   1.79773,    .14995,    .00000,
     +     .00000,    .09027,    .17667,
     +     .30946,    .19213,   2.03990,    .15767,    .00000,
     +     .00000,    .09959,    .18515,
     +     .31604,    .19468,   2.19093,    .16310,    .00284,
     +     .00000,    .10614,    .19106,
     +     .32246,    .19711,   2.31921,    .16854,    .01159,
     +     .00000,    .11270,    .19694,
     +     .32776,    .19907,   2.41860,    .17302,    .01887,
     +     .00000,    .11812,    .20177,
     +     .33266,    .20084,   2.50592,    .17714,    .02533,
     +     .00000,    .12313,    .20622,
     +     .33767,    .20261,   2.58967,    .18134,    .03201,
     +     .00000,    .12825,    .21073 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34178,    .20403,   2.65112,    .18474,    .03715,
     +     .00000,    .13242,    .21437,
     +     .34562,    .20533,   2.70576,    .18791,    .04220,
     +     .00000,    .13634,    .21777,
     +     .34857,    .20632,   2.74441,    .19032,    .04602,
     +     .00000,    .13932,    .22034,
     +     .35453,    .20823,   2.80895,    .19516,    .05382,
     +     .00034,    .14535,    .22549,
     +     .35932,    .20971,   2.84336,    .19898,    .06010,
     +     .00777,    .15016,    .22954,
     +     .36435,    .21121,   2.86813,    .20290,    .06670,
     +     .01721,    .15515,    .23369,
     +     .36925,    .21261,   2.88398,    .20658,    .07310,
     +     .02509,    .15990,    .23755,
     +     .37344,    .21374,   2.89009,    .20956,    .07850,
     +     .03183,    .16383,    .24067 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37742,    .21476,   2.88914,    .21226,    .08359,
     +     .03820,    .16748,    .24349,
     +     .38047,    .21549,   2.88157,    .21420,    .08740,
     +     .04285,    .17016,    .24549,
     +     .38399,    .21628,   2.86810,    .21631,    .09179,
     +     .04837,    .17316,    .24767,
     +     .38694,    .21689,   2.85245,    .21797,    .09545,
     +     .05303,    .17559,    .24938,
     +     .38946,    .21736,   2.83379,    .21926,    .09850,
     +     .05690,    .17757,    .25070,
     +     .39244,    .21788,   2.80637,    .22065,    .10209,
     +     .06154,    .17982,    .25211,
     +     .39507,    .21828,   2.77757,    .22176,    .10523,
     +     .06565,    .18171,    .25320,
     +     .39735,    .21857,   2.74758,    .22259,    .10792,
     +     .06920,    .18325,    .25399 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39944,    .21878,   2.71476,    .22319,    .11035,
     +     .07245,    .18456,    .25456,
     +     .40138,    .21893,   2.68172,    .22367,    .11259,
     +     .07551,    .18571,    .25500,
     +     .40305,    .21899,   2.64795,    .22392,    .11446,
     +     .07810,    .18659,    .25519,
     +     .40454,    .21902,   2.61557,    .22407,    .11612,
     +     .08045,    .18731,    .25528,
     +     .40591,    .21898,   2.58178,    .22409,    .11764,
     +     .08262,    .18790,    .25522,
     +     .40715,    .21892,   2.54786,    .22401,    .11900,
     +     .08462,    .18836,    .25505,
     +     .40824,    .21881,   2.51497,    .22385,    .12018,
     +     .08639,    .18870,    .25480,
     +     .40919,    .21868,   2.48346,    .22362,    .12120,
     +     .08797,    .18894,    .25448 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41007,    .21851,   2.45096,    .22328,    .12212,
     +     .08943,    .18908,    .25405,
     +     .41090,    .21832,   2.41915,    .22292,    .12299,
     +     .09082,    .18918,    .25360,
     +     .41157,    .21808,   2.38788,    .22246,    .12367,
     +     .09199,    .18914,    .25304,
     +     .41220,    .21786,   2.35881,    .22202,    .12432,
     +     .09310,    .18910,    .25252,
     +     .41273,    .21759,   2.32861,    .22148,    .12485,
     +     .09409,    .18896,    .25187 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .37894,    .23066,   1.66542,    .12615,    .00000,
     +     .00000,    .07622,    .16329,
     +     .38549,    .23253,   1.77193,    .12954,    .00000,
     +     .00000,    .08079,    .16690,
     +     .39442,    .23492,   1.90480,    .13418,    .00000,
     +     .00000,    .08710,    .17179,
     +     .40035,    .23641,   1.98083,    .13732,    .00211,
     +     .00000,    .09138,    .17504,
     +     .40599,    .23774,   2.03760,    .14035,    .00846,
     +     .00000,    .09556,    .17814,
     +     .41055,    .23872,   2.07801,    .14274,    .01366,
     +     .00000,    .09891,    .18058,
     +     .41469,    .23955,   2.11069,    .14488,    .01820,
     +     .00000,    .10193,    .18274,
     +     .41881,    .24033,   2.13894,    .14698,    .02282,
     +     .00000,    .10496,    .18482 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42210,    .24087,   2.15592,    .14859,    .02630,
     +     .00000,    .10734,    .18640,
     +     .42514,    .24133,   2.16908,    .15006,    .02969,
     +     .00000,    .10953,    .18782,
     +     .42741,    .24163,   2.17653,    .15113,    .03221,
     +     .00000,    .11116,    .18884,
     +     .43187,    .24213,   2.18066,    .15318,    .03729,
     +     .00025,    .11435,    .19074,
     +     .43529,    .24239,   2.17069,    .15467,    .04129,
     +     .00518,    .11681,    .19209,
     +     .43874,    .24253,   2.15157,    .15608,    .04541,
     +     .01138,    .11924,    .19331,
     +     .44194,    .24251,   2.12663,    .15724,    .04931,
     +     .01645,    .12143,    .19424,
     +     .44453,    .24237,   2.09998,    .15805,    .05253,
     +     .02071,    .12313,    .19481 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44686,    .24211,   2.06991,    .15864,    .05549,
     +     .02467,    .12460,    .19515,
     +     .44850,    .24178,   2.04174,    .15893,    .05766,
     +     .02751,    .12558,    .19521,
     +     .45029,    .24129,   2.00608,    .15913,    .06010,
     +     .03083,    .12661,    .19512,
     +     .45168,    .24079,   1.97328,    .15918,    .06208,
     +     .03360,    .12736,    .19490,
     +     .45273,    .24026,   1.94154,    .15907,    .06369,
     +     .03585,    .12788,    .19453,
     +     .45384,    .23949,   1.90026,    .15879,    .06555,
     +     .03851,    .12837,    .19391,
     +     .45470,    .23871,   1.86084,    .15840,    .06712,
     +     .04082,    .12868,    .19319,
     +     .45531,    .23790,   1.82316,    .15791,    .06841,
     +     .04278,    .12884,    .19237 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45572,    .23702,   1.78481,    .15729,    .06953,
     +     .04453,    .12885,    .19144,
     +     .45601,    .23612,   1.74763,    .15663,    .07054,
     +     .04616,    .12878,    .19047,
     +     .45609,    .23519,   1.71187,    .15589,    .07134,
     +     .04751,    .12858,    .18942,
     +     .45609,    .23430,   1.67853,    .15515,    .07202,
     +     .04871,    .12834,    .18838,
     +     .45595,    .23336,   1.64498,    .15434,    .07260,
     +     .04979,    .12802,    .18727,
     +     .45572,    .23240,   1.61222,    .15349,    .07311,
     +     .05076,    .12765,    .18612,
     +     .45541,    .23146,   1.58128,    .15264,    .07351,
     +     .05161,    .12723,    .18498,
     +     .45504,    .23054,   1.55229,    .15180,    .07384,
     +     .05235,    .12680,    .18386 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45457,    .22959,   1.52314,    .15089,    .07409,
     +     .05301,    .12630,    .18268,
     +     .45407,    .22865,   1.49494,    .14999,    .07432,
     +     .05363,    .12579,    .18151,
     +     .45346,    .22770,   1.46795,    .14908,    .07446,
     +     .05413,    .12524,    .18032,
     +     .45289,    .22681,   1.44299,    .14823,    .07458,
     +     .05460,    .12472,    .17921,
     +     .45221,    .22587,   1.41769,    .14731,    .07464,
     +     .05499,    .12413,    .17803 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45325,    .26377,   1.59850,    .10951,    .00000,
     +     .00000,    .06902,    .15432,
     +     .45859,    .26442,   1.65567,    .11154,    .00000,
     +     .00000,    .07216,    .15611,
     +     .46560,    .26505,   1.72080,    .11420,    .00000,
     +     .00000,    .07637,    .15835,
     +     .47010,    .26525,   1.75249,    .11588,    .00161,
     +     .00000,    .07915,    .15974,
     +     .47420,    .26526,   1.76885,    .11745,    .00636,
     +     .00000,    .08178,    .16093,
     +     .47736,    .26513,   1.77697,    .11863,    .01022,
     +     .00000,    .08383,    .16176,
     +     .48013,    .26491,   1.78062,    .11963,    .01354,
     +     .00000,    .08563,    .16240,
     +     .48280,    .26457,   1.78027,    .12054,    .01687,
     +     .00000,    .08739,    .16294 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .48479,    .26415,   1.77511,    .12117,    .01936,
     +     .00000,    .08871,    .16324,
     +     .48656,    .26370,   1.76816,    .12171,    .02175,
     +     .00000,    .08989,    .16344,
     +     .48782,    .26329,   1.76085,    .12206,    .02351,
     +     .00000,    .09076,    .16352,
     +     .49010,    .26228,   1.73771,    .12265,    .02702,
     +     .00020,    .09237,    .16351,
     +     .49166,    .26128,   1.70915,    .12296,    .02973,
     +     .00365,    .09354,    .16329,
     +     .49300,    .26003,   1.67288,    .12312,    .03248,
     +     .00798,    .09460,    .16285,
     +     .49399,    .25860,   1.63318,    .12308,    .03503,
     +     .01147,    .09545,    .16217,
     +     .49456,    .25720,   1.59566,    .12288,    .03710,
     +     .01436,    .09603,    .16138 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .49485,    .25572,   1.55673,    .12252,    .03896,
     +     .01700,    .09644,    .16044,
     +     .49479,    .25438,   1.52317,    .12209,    .04028,
     +     .01887,    .09660,    .15950,
     +     .49454,    .25269,   1.48252,    .12147,    .04175,
     +     .02104,    .09669,    .15828,
     +     .49413,    .25116,   1.44662,    .12084,    .04293,
     +     .02282,    .09667,    .15713,
     +     .49354,    .24969,   1.41333,    .12018,    .04385,
     +     .02425,    .09654,    .15596,
     +     .49257,    .24777,   1.37134,    .11925,    .04488,
     +     .02591,    .09626,    .15440,
     +     .49149,    .24592,   1.33240,    .11830,    .04573,
     +     .02734,    .09591,    .15287,
     +     .49029,    .24414,   1.29622,    .11735,    .04640,
     +     .02852,    .09549,    .15137 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48891,    .24231,   1.26034,    .11632,    .04696,
     +     .02956,    .09498,    .14979,
     +     .48746,    .24051,   1.22609,    .11529,    .04743,
     +     .03052,    .09444,    .14823,
     +     .48591,    .23875,   1.19391,    .11424,    .04778,
     +     .03129,    .09385,    .14670,
     +     .48439,    .23708,   1.16429,    .11324,    .04806,
     +     .03196,    .09326,    .14524,
     +     .48274,    .23537,   1.13498,    .11220,    .04827,
     +     .03256,    .09263,    .14373,
     +     .48103,    .23368,   1.10673,    .11116,    .04843,
     +     .03308,    .09197,    .14223,
     +     .47931,    .23206,   1.08038,    .11015,    .04854,
     +     .03352,    .09132,    .14078,
     +     .47763,    .23051,   1.05595,    .10918,    .04860,
     +     .03390,    .09068,    .13940 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47587,    .22893,   1.03169,    .10817,    .04862,
     +     .03423,    .09000,    .13800,
     +     .47410,    .22737,   1.00838,    .10718,    .04862,
     +     .03453,    .08932,    .13661,
     +     .47230,    .22585,    .98636,    .10620,    .04858,
     +     .03475,    .08864,    .13526,
     +     .47060,    .22443,    .96607,    .10528,    .04853,
     +     .03497,    .08800,    .13400,
     +     .46878,    .22295,    .94576,    .10433,    .04844,
     +     .03513,    .08732,    .13269 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .51695,    .28758,   1.47784,    .09469,    .00000,
     +     .00000,    .06200,    .14364,
     +     .52050,    .28693,   1.50321,    .09579,    .00000,
     +     .00000,    .06410,    .14405,
     +     .52487,    .28566,   1.52637,    .09713,    .00000,
     +     .00000,    .06683,    .14437,
     +     .52741,    .28455,   1.53161,    .09794,    .00125,
     +     .00000,    .06857,    .14441,
     +     .52945,    .28323,   1.52484,    .09861,    .00488,
     +     .00000,    .07015,    .14427,
     +     .53086,    .28196,   1.51506,    .09903,    .00781,
     +     .00000,    .07135,    .14401,
     +     .53195,    .28067,   1.50312,    .09934,    .01030,
     +     .00000,    .07236,    .14366,
     +     .53281,    .27923,   1.48790,    .09958,    .01278,
     +     .00000,    .07330,    .14317 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .53324,    .27788,   1.47159,    .09965,    .01460,
     +     .00000,    .07397,    .14262,
     +     .53350,    .27654,   1.45479,    .09967,    .01634,
     +     .00000,    .07454,    .14204,
     +     .53358,    .27544,   1.44047,    .09963,    .01762,
     +     .00000,    .07493,    .14154,
     +     .53336,    .27301,   1.40523,    .09942,    .02012,
     +     .00016,    .07560,    .14034,
     +     .53278,    .27083,   1.36948,    .09912,    .02204,
     +     .00266,    .07600,    .13919,
     +     .53177,    .26828,   1.32744,    .09864,    .02395,
     +     .00580,    .07628,    .13779,
     +     .53035,    .26556,   1.28352,    .09799,    .02568,
     +     .00829,    .07639,    .13621,
     +     .52874,    .26304,   1.24364,    .09731,    .02707,
     +     .01033,    .07635,    .13466 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .52688,    .26044,   1.20362,    .09653,    .02830,
     +     .01218,    .07619,    .13300,
     +     .52506,    .25819,   1.17020,    .09577,    .02915,
     +     .01347,    .07594,    .13156,
     +     .52269,    .25546,   1.13051,    .09481,    .03007,
     +     .01494,    .07556,    .12977,
     +     .52043,    .25304,   1.09614,    .09391,    .03079,
     +     .01614,    .07517,    .12815,
     +     .51818,    .25077,   1.06491,    .09303,    .03135,
     +     .01710,    .07473,    .12661,
     +     .51514,    .24787,   1.02619,    .09187,    .03194,
     +     .01819,    .07410,    .12463,
     +     .51214,    .24513,    .99083,    .09075,    .03241,
     +     .01912,    .07345,    .12275,
     +     .50919,    .24253,    .95849,    .08965,    .03277,
     +     .01987,    .07279,    .12097 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50608,    .23991,    .92689,    .08850,    .03303,
     +     .02053,    .07208,    .11915,
     +     .50299,    .23737,    .89704,    .08739,    .03325,
     +     .02112,    .07136,    .11739,
     +     .49988,    .23494,    .86936,    .08630,    .03339,
     +     .02158,    .07063,    .11568,
     +     .49692,    .23265,    .84409,    .08527,    .03348,
     +     .02199,    .06994,    .11408,
     +     .49388,    .23033,    .81934,    .08421,    .03353,
     +     .02233,    .06922,    .11247,
     +     .49080,    .22806,    .79568,    .08317,    .03354,
     +     .02263,    .06849,    .11089,
     +     .48782,    .22591,    .77377,    .08217,    .03352,
     +     .02287,    .06777,    .10939,
     +     .48496,    .22387,    .75362,    .08123,    .03348,
     +     .02307,    .06709,    .10797 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48202,    .22180,    .73377,    .08026,    .03341,
     +     .02323,    .06639,    .10655,
     +     .47912,    .21977,    .71478,    .07931,    .03333,
     +     .02338,    .06570,    .10515,
     +     .47623,    .21782,    .69702,    .07840,    .03322,
     +     .02348,    .06502,    .10381,
     +     .47354,    .21600,    .68070,    .07755,    .03311,
     +     .02357,    .06439,    .10255,
     +     .47073,    .21414,    .66447,    .07667,    .03298,
     +     .02363,    .06373,    .10127 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .58258,    .30686,   1.30305,    .07874,    .00000,
     +     .00000,    .05365,    .12851,
     +     .58341,    .30458,   1.30456,    .07914,    .00000,
     +     .00000,    .05484,    .12772,
     +     .58377,    .30102,   1.29714,    .07948,    .00000,
     +     .00000,    .05630,    .12639,
     +     .58346,    .29833,   1.28405,    .07961,    .00093,
     +     .00000,    .05715,    .12530,
     +     .58258,    .29541,   1.26210,    .07962,    .00357,
     +     .00000,    .05789,    .12409,
     +     .58149,    .29280,   1.24105,    .07952,    .00569,
     +     .00000,    .05840,    .12296,
     +     .58021,    .29027,   1.21963,    .07935,    .00748,
     +     .00000,    .05878,    .12182,
     +     .57860,    .28757,   1.19574,    .07910,    .00923,
     +     .00000,    .05909,    .12056 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .57691,    .28514,   1.17333,    .07880,    .01051,
     +     .00000,    .05926,    .11940,
     +     .57517,    .28279,   1.15143,    .07848,    .01172,
     +     .00000,    .05937,    .11825,
     +     .57367,    .28091,   1.13368,    .07818,    .01260,
     +     .00000,    .05941,    .11732,
     +     .57017,    .27688,   1.09340,    .07747,    .01429,
     +     .00012,    .05939,    .11531,
     +     .56682,    .27339,   1.05585,    .07679,    .01557,
     +     .00185,    .05926,    .11353,
     +     .56280,    .26946,   1.01350,    .07594,    .01682,
     +     .00401,    .05901,    .11151,
     +     .55831,    .26535,    .97048,    .07498,    .01794,
     +     .00571,    .05864,    .10934,
     +     .55402,    .26161,    .93243,    .07405,    .01881,
     +     .00708,    .05821,    .10734 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .54950,    .25785,    .89505,    .07306,    .01956,
     +     .00830,    .05770,    .10531,
     +     .54553,    .25468,    .86456,    .07216,    .02007,
     +     .00915,    .05719,    .10360,
     +     .54062,    .25088,    .82886,    .07106,    .02061,
     +     .01010,    .05655,    .10153,
     +     .53618,    .24755,    .79839,    .07008,    .02102,
     +     .01087,    .05595,    .09970,
     +     .53197,    .24447,    .77113,    .06915,    .02131,
     +     .01147,    .05535,    .09800,
     +     .52651,    .24060,    .73781,    .06795,    .02161,
     +     .01215,    .05455,    .09588,
     +     .52131,    .23699,    .70778,    .06681,    .02183,
     +     .01271,    .05378,    .09390,
     +     .51637,    .23359,    .68065,    .06571,    .02198,
     +     .01316,    .05304,    .09205 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51129,    .23023,    .65447,    .06461,    .02207,
     +     .01354,    .05227,    .09021,
     +     .50632,    .22700,    .62996,    .06355,    .02214,
     +     .01388,    .05151,    .08844,
     +     .50153,    .22392,    .60748,    .06252,    .02215,
     +     .01413,    .05077,    .08676,
     +     .49700,    .22105,    .58713,    .06156,    .02213,
     +     .01435,    .05007,    .08521,
     +     .49240,    .21819,    .56737,    .06060,    .02209,
     +     .01453,    .04936,    .08365,
     +     .48786,    .21539,    .54862,    .05966,    .02203,
     +     .01467,    .04866,    .08214,
     +     .48352,    .21274,    .53139,    .05876,    .02196,
     +     .01479,    .04799,    .08073,
     +     .47941,    .21027,    .51563,    .05791,    .02187,
     +     .01488,    .04735,    .07940 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47521,    .20778,    .50022,    .05707,    .02176,
     +     .01494,    .04670,    .07808,
     +     .47109,    .20536,    .48554,    .05625,    .02165,
     +     .01500,    .04607,    .07679,
     +     .46710,    .20304,    .47193,    .05545,    .02153,
     +     .01503,    .04546,    .07557,
     +     .46337,    .20088,    .45947,    .05472,    .02141,
     +     .01505,    .04489,    .07443,
     +     .45955,    .19868,    .44717,    .05396,    .02127,
     +     .01505,    .04430,    .07328 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .63347,    .31675,   1.13234,    .06558,    .00000,
     +     .00000,    .04588,    .11230,
     +     .63125,    .31296,   1.12048,    .06553,    .00000,
     +     .00000,    .04646,    .11078,
     +     .62727,    .30726,   1.09668,    .06529,    .00000,
     +     .00000,    .04710,    .10845,
     +     .62388,    .30313,   1.07434,    .06504,    .00070,
     +     .00000,    .04742,    .10672,
     +     .61993,    .29877,   1.04549,    .06468,    .00266,
     +     .00000,    .04765,    .10489,
     +     .61624,    .29497,   1.01963,    .06428,    .00422,
     +     .00000,    .04773,    .10332,
     +     .61252,    .29134,    .99447,    .06386,    .00552,
     +     .00000,    .04775,    .10178,
     +     .60840,    .28753,    .96748,    .06337,    .00679,
     +     .00000,    .04770,    .10013 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .60458,    .28416,    .94327,    .06287,    .00770,
     +     .00000,    .04758,    .09868,
     +     .60081,    .28095,    .92008,    .06238,    .00856,
     +     .00000,    .04743,    .09727,
     +     .59773,    .27842,    .90169,    .06197,    .00917,
     +     .00000,    .04729,    .09614,
     +     .59097,    .27306,    .86145,    .06105,    .01035,
     +     .00009,    .04692,    .09377,
     +     .58497,    .26848,    .82551,    .06021,    .01122,
     +     .00132,    .04652,    .09175,
     +     .57807,    .26340,    .78589,    .05923,    .01206,
     +     .00285,    .04600,    .08950,
     +     .57071,    .25817,    .74635,    .05815,    .01280,
     +     .00403,    .04539,    .08716,
     +     .56390,    .25347,    .71192,    .05714,    .01336,
     +     .00497,    .04478,    .08506 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55694,    .24880,    .67858,    .05612,    .01383,
     +     .00580,    .04414,    .08294,
     +     .55099,    .24495,    .65177,    .05523,    .01413,
     +     .00637,    .04355,    .08120,
     +     .54378,    .24033,    .62073,    .05415,    .01445,
     +     .00701,    .04282,    .07913,
     +     .53738,    .23630,    .59454,    .05319,    .01468,
     +     .00751,    .04217,    .07733,
     +     .53144,    .23263,    .57136,    .05229,    .01483,
     +     .00790,    .04154,    .07569,
     +     .52388,    .22803,    .54327,    .05115,    .01498,
     +     .00833,    .04074,    .07365,
     +     .51679,    .22378,    .51819,    .05008,    .01507,
     +     .00868,    .03997,    .07176,
     +     .51009,    .21987,    .49577,    .04910,    .01512,
     +     .00896,    .03925,    .07001 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50336,    .21598,    .47433,    .04810,    .01513,
     +     .00918,    .03851,    .06831,
     +     .49685,    .21225,    .45439,    .04714,    .01512,
     +     .00938,    .03780,    .06668,
     +     .49064,    .20873,    .43629,    .04622,    .01508,
     +     .00952,    .03711,    .06516,
     +     .48482,    .20549,    .42000,    .04538,    .01503,
     +     .00964,    .03647,    .06375,
     +     .47896,    .20228,    .40425,    .04454,    .01496,
     +     .00973,    .03584,    .06235,
     +     .47322,    .19916,    .38942,    .04373,    .01487,
     +     .00980,    .03521,    .06100,
     +     .46779,    .19621,    .37588,    .04295,    .01478,
     +     .00985,    .03461,    .05976,
     +     .46268,    .19345,    .36357,    .04222,    .01468,
     +     .00989,    .03405,    .05860 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45753,    .19070,    .35158,    .04150,    .01457,
     +     .00991,    .03349,    .05743,
     +     .45250,    .18803,    .34022,    .04079,    .01446,
     +     .00992,    .03295,    .05631,
     +     .44765,    .18549,    .32973,    .04013,    .01435,
     +     .00992,    .03242,    .05526,
     +     .44312,    .18313,    .32015,    .03951,    .01424,
     +     .00991,    .03194,    .05429,
     +     .43852,    .18075,    .31076,    .03888,    .01411,
     +     .00989,    .03144,    .05331 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .67047,    .31911,    .97908,    .05485,    .00000,
     +     .00000,    .03878,    .09594,
     +     .66512,    .31397,    .95976,    .05455,    .00000,
     +     .00000,    .03897,    .09402,
     +     .65667,    .30643,    .92730,    .05398,    .00000,
     +     .00000,    .03908,    .09117,
     +     .65023,    .30103,    .90053,    .05348,    .00054,
     +     .00000,    .03906,    .08916,
     +     .64320,    .29545,    .86896,    .05293,    .00200,
     +     .00000,    .03896,    .08709,
     +     .63694,    .29068,    .84153,    .05239,    .00317,
     +     .00000,    .03880,    .08530,
     +     .63084,    .28616,    .81540,    .05184,    .00413,
     +     .00000,    .03861,    .08359,
     +     .62429,    .28142,    .78796,    .05124,    .00505,
     +     .00000,    .03835,    .08179 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .61842,    .27731,    .76392,    .05066,    .00571,
     +     .00000,    .03808,    .08025,
     +     .61272,    .27342,    .74119,    .05010,    .00633,
     +     .00000,    .03779,    .07877,
     +     .60815,    .27037,    .72339,    .04966,    .00677,
     +     .00000,    .03754,    .07760,
     +     .59837,    .26395,    .68531,    .04868,    .00760,
     +     .00007,    .03698,    .07516,
     +     .58991,    .25852,    .65220,    .04779,    .00820,
     +     .00095,    .03646,    .07313,
     +     .58038,    .25257,    .61633,    .04678,    .00878,
     +     .00205,    .03584,    .07091,
     +     .57042,    .24650,    .58098,    .04571,    .00926,
     +     .00288,    .03515,    .06862,
     +     .56140,    .24109,    .55058,    .04472,    .00963,
     +     .00354,    .03450,    .06660 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55228,    .23576,    .52149,    .04372,    .00993,
     +     .00412,    .03382,    .06462,
     +     .54465,    .23137,    .49833,    .04288,    .01011,
     +     .00451,    .03323,    .06299,
     +     .53547,    .22618,    .47173,    .04187,    .01029,
     +     .00494,    .03251,    .06106,
     +     .52743,    .22168,    .44948,    .04098,    .01042,
     +     .00528,    .03187,    .05941,
     +     .52003,    .21760,    .42999,    .04016,    .01049,
     +     .00553,    .03127,    .05792,
     +     .51072,    .21251,    .40654,    .03913,    .01056,
     +     .00581,    .03052,    .05608,
     +     .50206,    .20786,    .38578,    .03817,    .01058,
     +     .00604,    .02982,    .05440,
     +     .49395,    .20359,    .36739,    .03729,    .01058,
     +     .00621,    .02916,    .05286 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48590,    .19939,    .34993,    .03642,    .01055,
     +     .00634,    .02850,    .05136,
     +     .47816,    .19538,    .33377,    .03558,    .01051,
     +     .00646,    .02787,    .04992,
     +     .47081,    .19164,    .31919,    .03480,    .01045,
     +     .00654,    .02728,    .04859,
     +     .46399,    .18818,    .30614,    .03407,    .01039,
     +     .00660,    .02672,    .04737,
     +     .45719,    .18475,    .29363,    .03335,    .01031,
     +     .00665,    .02616,    .04619,
     +     .45056,    .18144,    .28191,    .03264,    .01023,
     +     .00668,    .02562,    .04505,
     +     .44431,    .17834,    .27126,    .03199,    .01014,
     +     .00670,    .02512,    .04399,
     +     .43846,    .17545,    .26161,    .03137,    .01005,
     +     .00671,    .02465,    .04301 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43259,    .17257,    .25228,    .03076,    .00995,
     +     .00670,    .02417,    .04205,
     +     .42688,    .16978,    .24346,    .03017,    .00986,
     +     .00670,    .02372,    .04111,
     +     .42140,    .16716,    .23535,    .02963,    .00976,
     +     .00668,    .02328,    .04023,
     +     .41630,    .16473,    .22795,    .02912,    .00966,
     +     .00667,    .02287,    .03942,
     +     .41116,    .16227,    .22075,    .02860,    .00956,
     +     .00664,    .02248,    .03861 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .69462,    .31539,    .84632,    .04611,    .00000,
     +     .00000,    .03241,    .08018,
     +     .68617,    .30911,    .82275,    .04564,    .00000,
     +     .00000,    .03235,    .07813,
     +     .67341,    .30001,    .78577,    .04484,    .00000,
     +     .00000,    .03215,    .07517,
     +     .66404,    .29357,    .75707,    .04424,    .00041,
     +     .00000,    .03194,    .07307,
     +     .65410,    .28700,    .72488,    .04356,    .00152,
     +     .00000,    .03165,    .07097,
     +     .64546,    .28141,    .69745,    .04294,    .00239,
     +     .00000,    .03136,    .06919,
     +     .63715,    .27616,    .67171,    .04233,    .00310,
     +     .00000,    .03105,    .06749,
     +     .62833,    .27072,    .64504,    .04169,    .00378,
     +     .00000,    .03070,    .06571 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62059,    .26603,    .62206,    .04109,    .00426,
     +     .00000,    .03036,    .06422,
     +     .61317,    .26160,    .60055,    .04050,    .00471,
     +     .00000,    .03001,    .06280,
     +     .60728,    .25813,    .58386,    .04004,    .00502,
     +     .00000,    .02972,    .06169,
     +     .59483,    .25090,    .54874,    .03903,    .00561,
     +     .00006,    .02910,    .05941,
     +     .58418,    .24487,    .51886,    .03816,    .00603,
     +     .00069,    .02854,    .05751,
     +     .57238,    .23830,    .48688,    .03718,    .00642,
     +     .00149,    .02790,    .05545,
     +     .56019,    .23163,    .45571,    .03616,    .00675,
     +     .00208,    .02721,    .05336,
     +     .54923,    .22575,    .42921,    .03524,    .00699,
     +     .00255,    .02656,    .05154 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .53836,    .21995,    .40406,    .03429,    .00718,
     +     .00295,    .02591,    .04978,
     +     .52929,    .21525,    .38424,    .03354,    .00728,
     +     .00322,    .02536,    .04832,
     +     .51849,    .20969,    .36167,    .03262,    .00739,
     +     .00351,    .02470,    .04662,
     +     .50910,    .20490,    .34293,    .03181,    .00745,
     +     .00374,    .02413,    .04517,
     +     .50054,    .20057,    .32663,    .03108,    .00748,
     +     .00391,    .02360,    .04388,
     +     .48981,    .19525,    .30718,    .03017,    .00750,
     +     .00409,    .02293,    .04229,
     +     .47991,    .19039,    .29009,    .02933,    .00749,
     +     .00423,    .02231,    .04085,
     +     .47077,    .18592,    .27504,    .02857,    .00746,
     +     .00434,    .02173,    .03954 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46173,    .18153,    .26084,    .02780,    .00742,
     +     .00442,    .02117,    .03829,
     +     .45308,    .17737,    .24778,    .02706,    .00737,
     +     .00449,    .02063,    .03710,
     +     .44491,    .17353,    .23611,    .02639,    .00731,
     +     .00454,    .02013,    .03598,
     +     .43737,    .16999,    .22571,    .02577,    .00724,
     +     .00457,    .01966,    .03496,
     +     .42989,    .16649,    .21576,    .02516,    .00717,
     +     .00459,    .01920,    .03397,
     +     .42262,    .16312,    .20649,    .02457,    .00709,
     +     .00460,    .01875,    .03303,
     +     .41581,    .15997,    .19812,    .02401,    .00702,
     +     .00460,    .01832,    .03218,
     +     .40944,    .15706,    .19056,    .02350,    .00694,
     +     .00460,    .01793,    .03138 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40308,    .15416,    .18326,    .02301,    .00686,
     +     .00459,    .01755,    .03059,
     +     .39692,    .15137,    .17640,    .02252,    .00678,
     +     .00457,    .01718,    .02983,
     +     .39108,    .14873,    .17013,    .02205,    .00669,
     +     .00455,    .01682,    .02912,
     +     .38566,    .14629,    .16443,    .02161,    .00662,
     +     .00453,    .01650,    .02848,
     +     .38018,    .14384,    .15889,    .02119,    .00654,
     +     .00451,    .01617,    .02783 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .70695,    .30682,    .73252,    .03890,    .00000,
     +     .00000,    .02678,    .06565,
     +     .69559,    .29960,    .70654,    .03832,    .00000,
     +     .00000,    .02660,    .06363,
     +     .67882,    .28925,    .66730,    .03741,    .00000,
     +     .00000,    .02621,    .06077,
     +     .66675,    .28199,    .63802,    .03671,    .00032,
     +     .00000,    .02590,    .05879,
     +     .65416,    .27465,    .60634,    .03599,    .00115,
     +     .00000,    .02551,    .05680,
     +     .64333,    .26847,    .57971,    .03534,    .00181,
     +     .00000,    .02517,    .05510,
     +     .63304,    .26270,    .55501,    .03472,    .00234,
     +     .00000,    .02482,    .05353,
     +     .62225,    .25672,    .52971,    .03405,    .00284,
     +     .00000,    .02442,    .05192 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61287,    .25160,    .50824,    .03344,    .00319,
     +     .00000,    .02404,    .05056,
     +     .60394,    .24678,    .48828,    .03286,    .00351,
     +     .00000,    .02368,    .04928,
     +     .59691,    .24303,    .47291,    .03240,    .00373,
     +     .00000,    .02340,    .04828,
     +     .58216,    .23524,    .44103,    .03142,    .00415,
     +     .00005,    .02278,    .04623,
     +     .56969,    .22880,    .41436,    .03059,    .00444,
     +     .00051,    .02224,    .04454,
     +     .55596,    .22184,    .38616,    .02967,    .00471,
     +     .00108,    .02163,    .04273,
     +     .54194,    .21481,    .35898,    .02872,    .00493,
     +     .00151,    .02098,    .04092,
     +     .52948,    .20863,    .33608,    .02786,    .00508,
     +     .00184,    .02040,    .03934 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51712,    .20261,    .31453,    .02702,    .00520,
     +     .00212,    .01981,    .03781,
     +     .50696,    .19772,    .29771,    .02633,    .00526,
     +     .00231,    .01932,    .03659,
     +     .49493,    .19197,    .27868,    .02551,    .00531,
     +     .00251,    .01874,    .03516,
     +     .48452,    .18705,    .26299,    .02480,    .00534,
     +     .00266,    .01824,    .03393,
     +     .47507,    .18265,    .24944,    .02415,    .00535,
     +     .00278,    .01778,    .03284,
     +     .46334,    .17721,    .23339,    .02335,    .00534,
     +     .00290,    .01720,    .03152,
     +     .45257,    .17226,    .21939,    .02263,    .00532,
     +     .00299,    .01667,    .03033,
     +     .44264,    .16777,    .20713,    .02197,    .00528,
     +     .00305,    .01619,    .02924 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43292,    .16338,    .19566,    .02131,    .00524,
     +     .00310,    .01571,    .02820,
     +     .42366,    .15921,    .18516,    .02068,    .00519,
     +     .00314,    .01526,    .02723,
     +     .41496,    .15534,    .17580,    .02010,    .00513,
     +     .00316,    .01484,    .02636,
     +     .40695,    .15181,    .16751,    .01957,    .00507,
     +     .00318,    .01445,    .02555,
     +     .39903,    .14835,    .15965,    .01906,    .00501,
     +     .00318,    .01407,    .02476,
     +     .39137,    .14503,    .15235,    .01858,    .00494,
     +     .00318,    .01370,    .02400,
     +     .38421,    .14194,    .14576,    .01813,    .00488,
     +     .00318,    .01336,    .02330,
     +     .37755,    .13909,    .13984,    .01771,    .00481,
     +     .00317,    .01305,    .02267 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37092,    .13625,    .13416,    .01729,    .00475,
     +     .00316,    .01273,    .02205,
     +     .36453,    .13353,    .12883,    .01688,    .00468,
     +     .00314,    .01243,    .02145,
     +     .35848,    .13096,    .12398,    .01650,    .00461,
     +     .00312,    .01216,    .02089,
     +     .35288,    .12858,    .11959,    .01614,    .00455,
     +     .00310,    .01190,    .02038,
     +     .34725,    .12621,    .11533,    .01579,    .00449,
     +     .00308,    .01164,    .01987 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .70860,    .29441,    .63461,    .03286,    .00000,
     +     .00000,    .02194,    .05265,
     +     .69459,    .28648,    .60732,    .03223,    .00000,
     +     .00000,    .02163,    .05081,
     +     .67414,    .27526,    .56728,    .03127,    .00000,
     +     .00000,    .02116,    .04817,
     +     .65965,    .26742,    .53831,    .03056,    .00024,
     +     .00000,    .02078,    .04637,
     +     .64473,    .25955,    .50768,    .02982,    .00087,
     +     .00000,    .02037,    .04458,
     +     .63203,    .25295,    .48233,    .02918,    .00136,
     +     .00000,    .02000,    .04307,
     +     .62006,    .24680,    .45909,    .02856,    .00175,
     +     .00000,    .01963,    .04169,
     +     .60760,    .24046,    .43554,    .02788,    .00212,
     +     .00000,    .01922,    .04030 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .59684,    .23509,    .41571,    .02729,    .00238,
     +     .00000,    .01887,    .03910,
     +     .58665,    .23004,    .39744,    .02673,    .00261,
     +     .00000,    .01853,    .03798,
     +     .57868,    .22612,    .38349,    .02629,    .00277,
     +     .00000,    .01825,    .03713,
     +     .56201,    .21805,    .35489,    .02538,    .00307,
     +     .00004,    .01767,    .03536,
     +     .54808,    .21138,    .33136,    .02461,    .00327,
     +     .00037,    .01717,    .03392,
     +     .53287,    .20422,    .30675,    .02377,    .00345,
     +     .00079,    .01661,    .03238,
     +     .51743,    .19702,    .28323,    .02291,    .00360,
     +     .00109,    .01604,    .03086,
     +     .50383,    .19073,    .26360,    .02213,    .00369,
     +     .00133,    .01553,    .02954 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49043,    .18462,    .24530,    .02136,    .00376,
     +     .00153,    .01502,    .02828,
     +     .47945,    .17970,    .23112,    .02076,    .00380,
     +     .00166,    .01459,    .02726,
     +     .46651,    .17394,    .21520,    .02004,    .00382,
     +     .00179,    .01410,    .02608,
     +     .45540,    .16901,    .20217,    .01941,    .00383,
     +     .00190,    .01367,    .02508,
     +     .44538,    .16462,    .19099,    .01885,    .00383,
     +     .00197,    .01329,    .02421,
     +     .43298,    .15922,    .17784,    .01815,    .00381,
     +     .00205,    .01280,    .02316,
     +     .42164,    .15433,    .16643,    .01753,    .00378,
     +     .00211,    .01236,    .02221,
     +     .41128,    .14991,    .15650,    .01695,    .00374,
     +     .00215,    .01196,    .02134 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40113,    .14561,    .14729,    .01640,    .00370,
     +     .00218,    .01158,    .02051,
     +     .39147,    .14154,    .13890,    .01588,    .00365,
     +     .00220,    .01121,    .01974,
     +     .38252,    .13778,    .13145,    .01539,    .00360,
     +     .00221,    .01087,    .01904,
     +     .37429,    .13435,    .12488,    .01494,    .00355,
     +     .00222,    .01056,    .01840,
     +     .36616,    .13098,    .11867,    .01452,    .00350,
     +     .00222,    .01026,    .01778,
     +     .35833,    .12776,    .11293,    .01412,    .00345,
     +     .00221,    .00997,    .01719,
     +     .35103,    .12479,    .10777,    .01374,    .00340,
     +     .00220,    .00970,    .01666,
     +     .34428,    .12205,    .10316,    .01339,    .00335,
     +     .00219,    .00944,    .01617 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33759,    .11934,    .09876,    .01304,    .00329,
     +     .00218,    .00919,    .01569,
     +     .33114,    .11674,    .09464,    .01270,    .00324,
     +     .00216,    .00895,    .01523,
     +     .32506,    .11428,    .09088,    .01239,    .00319,
     +     .00215,    .00874,    .01481,
     +     .31943,    .11201,    .08748,    .01211,    .00314,
     +     .00213,    .00854,    .01442,
     +     .31377,    .10977,    .08421,    .01183,    .00309,
     +     .00211,    .00834,    .01403 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .70034,    .27947,    .54947,    .02804,    .00000,
     +     .00000,    .01756,    .04120,
     +     .68405,    .27102,    .52161,    .02734,    .00000,
     +     .00000,    .01724,    .03960,
     +     .66057,    .25910,    .48171,    .02632,    .00000,
     +     .00000,    .01676,    .03733,
     +     .64405,    .25086,    .45359,    .02558,    .00019,
     +     .00000,    .01639,    .03579,
     +     .62723,    .24263,    .42452,    .02482,    .00066,
     +     .00000,    .01599,    .03426,
     +     .61299,    .23577,    .40075,    .02417,    .00102,
     +     .00000,    .01565,    .03299,
     +     .59967,    .22940,    .37917,    .02355,    .00132,
     +     .00000,    .01531,    .03182,
     +     .58587,    .22285,    .35752,    .02289,    .00159,
     +     .00000,    .01494,    .03065 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .57399,    .21736,    .33950,    .02234,    .00177,
     +     .00000,    .01461,    .02965,
     +     .56281,    .21221,    .32301,    .02182,    .00194,
     +     .00000,    .01431,    .02872,
     +     .55411,    .20822,    .31051,    .02140,    .00205,
     +     .00000,    .01406,    .02801,
     +     .53606,    .20001,    .28518,    .02054,    .00226,
     +     .00003,    .01354,    .02655,
     +     .52104,    .19327,    .26459,    .01984,    .00240,
     +     .00027,    .01311,    .02535,
     +     .50475,    .18607,    .24330,    .01907,    .00252,
     +     .00057,    .01263,    .02410,
     +     .48830,    .17889,    .22319,    .01829,    .00262,
     +     .00079,    .01214,    .02287,
     +     .47387,    .17264,    .20654,    .01760,    .00268,
     +     .00096,    .01171,    .02181 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45984,    .16657,    .19112,    .01689,    .00272,
     +     .00110,    .01126,    .02082,
     +     .44833,    .16174,    .17931,    .01636,    .00274,
     +     .00119,    .01092,    .01998,
     +     .43485,    .15607,    .16611,    .01574,    .00274,
     +     .00128,    .01050,    .01905,
     +     .42332,    .15124,    .15536,    .01521,    .00274,
     +     .00136,    .01014,    .01827,
     +     .41296,    .14695,    .14622,    .01472,    .00273,
     +     .00140,    .00983,    .01757,
     +     .40020,    .14171,    .13552,    .01412,    .00271,
     +     .00146,    .00946,    .01674,
     +     .38859,    .13698,    .12629,    .01358,    .00268,
     +     .00149,    .00910,    .01600,
     +     .37803,    .13270,    .11833,    .01311,    .00265,
     +     .00152,    .00877,    .01533 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36774,    .12855,    .11095,    .01264,    .00261,
     +     .00153,    .00847,    .01469,
     +     .35799,    .12466,    .10425,    .01220,    .00257,
     +     .00154,    .00818,    .01409,
     +     .34897,    .12107,    .09837,    .01180,    .00253,
     +     .00155,    .00791,    .01356,
     +     .34069,    .11781,    .09320,    .01143,    .00249,
     +     .00155,    .00765,    .01307,
     +     .33254,    .11462,    .08834,    .01108,    .00245,
     +     .00154,    .00740,    .01260,
     +     .32474,    .11158,    .08385,    .01074,    .00240,
     +     .00154,    .00717,    .01216,
     +     .31750,    .10877,    .07984,    .01042,    .00236,
     +     .00153,    .00697,    .01174,
     +     .31081,    .10618,    .07625,    .01013,    .00232,
     +     .00152,    .00678,    .01137 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30417,    .10363,    .07284,    .00985,    .00228,
     +     .00151,    .00659,    .01100,
     +     .29779,    .10119,    .06964,    .00959,    .00224,
     +     .00149,    .00640,    .01066,
     +     .29181,    .09889,    .06676,    .00932,    .00220,
     +     .00148,    .00623,    .01035,
     +     .28628,    .09677,    .06415,    .00908,    .00216,
     +     .00147,    .00608,    .01007,
     +     .28076,    .09468,    .06166,    .00885,    .00213,
     +     .00145,    .00592,    .00978 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .68415,    .26191,    .47377,    .02347,    .00000,
     +     .00000,    .01409,    .03182,
     +     .66587,    .25318,    .44609,    .02280,    .00000,
     +     .00000,    .01376,    .03043,
     +     .63979,    .24090,    .40725,    .02178,    .00000,
     +     .00000,    .01328,    .02852,
     +     .62158,    .23251,    .38046,    .02108,    .00014,
     +     .00000,    .01292,    .02722,
     +     .60314,    .22418,    .35336,    .02039,    .00049,
     +     .00000,    .01253,    .02593,
     +     .58769,    .21724,    .33144,    .01978,    .00076,
     +     .00000,    .01220,    .02488,
     +     .57328,    .21082,    .31170,    .01920,    .00097,
     +     .00000,    .01189,    .02391,
     +     .55842,    .20427,    .29206,    .01860,    .00117,
     +     .00000,    .01156,    .02292 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54575,    .19874,    .27593,    .01810,    .00130,
     +     .00000,    .01128,    .02212,
     +     .53386,    .19358,    .26127,    .01761,    .00142,
     +     .00000,    .01100,    .02138,
     +     .52464,    .18959,    .25023,    .01722,    .00150,
     +     .00000,    .01077,    .02081,
     +     .50555,    .18147,    .22805,    .01644,    .00164,
     +     .00002,    .01032,    .01965,
     +     .48978,    .17483,    .21031,    .01581,    .00174,
     +     .00020,    .00995,    .01870,
     +     .47280,    .16773,    .19214,    .01514,    .00182,
     +     .00041,    .00955,    .01768,
     +     .45576,    .16071,    .17510,    .01445,    .00188,
     +     .00057,    .00913,    .01670,
     +     .44087,    .15463,    .16113,    .01384,    .00192,
     +     .00069,    .00876,    .01588 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42638,    .14875,    .14829,    .01325,    .00194,
     +     .00078,    .00841,    .01509,
     +     .41466,    .14405,    .13855,    .01281,    .00195,
     +     .00084,    .00812,    .01444,
     +     .40096,    .13858,    .12772,    .01226,    .00195,
     +     .00091,    .00780,    .01371,
     +     .38927,    .13394,    .11896,    .01180,    .00194,
     +     .00096,    .00752,    .01311,
     +     .37883,    .12985,    .11155,    .01139,    .00193,
     +     .00099,    .00725,    .01257,
     +     .36602,    .12485,    .10293,    .01088,    .00191,
     +     .00102,    .00693,    .01194,
     +     .35441,    .12035,    .09554,    .01043,    .00188,
     +     .00105,    .00664,    .01138,
     +     .34387,    .11630,    .08919,    .01004,    .00185,
     +     .00106,    .00639,    .01086 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33363,    .11239,    .08335,    .00966,    .00182,
     +     .00107,    .00615,    .01038,
     +     .32396,    .10873,    .07809,    .00929,    .00179,
     +     .00108,    .00591,    .00994,
     +     .31502,    .10539,    .07348,    .00897,    .00176,
     +     .00107,    .00570,    .00952,
     +     .30688,    .10234,    .06943,    .00868,    .00173,
     +     .00107,    .00551,    .00915,
     +     .29892,    .09936,    .06564,    .00838,    .00169,
     +     .00107,    .00532,    .00880,
     +     .29131,    .09652,    .06215,    .00810,    .00166,
     +     .00106,    .00515,    .00847,
     +     .28426,    .09389,    .05906,    .00784,    .00163,
     +     .00105,    .00499,    .00819,
     +     .27775,    .09149,    .05630,    .00760,    .00160,
     +     .00105,    .00484,    .00792 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27132,    .08913,    .05368,    .00737,    .00157,
     +     .00104,    .00470,    .00764,
     +     .26515,    .08688,    .05124,    .00716,    .00154,
     +     .00103,    .00456,    .00738,
     +     .25936,    .08477,    .04904,    .00696,    .00151,
     +     .00101,    .00443,    .00714,
     +     .25401,    .08283,    .04706,    .00679,    .00148,
     +     .00100,    .00431,    .00693,
     +     .24869,    .08091,    .04515,    .00660,    .00145,
     +     .00099,    .00419,    .00672 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .66056,    .24306,    .40609,    .01965,    .00000,
     +     .00000,    .01110,    .02399,
     +     .64075,    .23420,    .37918,    .01896,    .00000,
     +     .00000,    .01079,    .02288,
     +     .61265,    .22185,    .34216,    .01800,    .00000,
     +     .00000,    .01033,    .02133,
     +     .59318,    .21343,    .31707,    .01733,    .00010,
     +     .00000,    .01001,    .02027,
     +     .57366,    .20508,    .29222,    .01664,    .00036,
     +     .00000,    .00968,    .01925,
     +     .55732,    .19819,    .27231,    .01608,    .00056,
     +     .00000,    .00938,    .01841,
     +     .54216,    .19185,    .25456,    .01556,    .00071,
     +     .00000,    .00910,    .01764,
     +     .52661,    .18538,    .23708,    .01501,    .00085,
     +     .00000,    .00881,    .01687 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51339,    .17996,    .22284,    .01455,    .00094,
     +     .00000,    .00859,    .01620,
     +     .50103,    .17489,    .20999,    .01412,    .00103,
     +     .00000,    .00837,    .01560,
     +     .49148,    .17099,    .20036,    .01379,    .00109,
     +     .00000,    .00817,    .01515,
     +     .47183,    .16307,    .18124,    .01310,    .00119,
     +     .00002,    .00779,    .01424,
     +     .45567,    .15663,    .16614,    .01253,    .00125,
     +     .00014,    .00747,    .01352,
     +     .43834,    .14979,    .15082,    .01193,    .00131,
     +     .00029,    .00713,    .01275,
     +     .42104,    .14304,    .13658,    .01135,    .00134,
     +     .00041,    .00678,    .01199,
     +     .40599,    .13722,    .12502,    .01085,    .00137,
     +     .00049,    .00649,    .01135 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39143,    .13160,    .11449,    .01034,    .00138,
     +     .00056,    .00621,    .01073,
     +     .37970,    .12714,    .10651,    .00995,    .00138,
     +     .00060,    .00599,    .01026,
     +     .36603,    .12197,    .09772,    .00948,    .00137,
     +     .00064,    .00572,    .00972,
     +     .35441,    .11760,    .09068,    .00910,    .00137,
     +     .00067,    .00548,    .00927,
     +     .34409,    .11374,    .08471,    .00876,    .00135,
     +     .00069,    .00528,    .00887,
     +     .33145,    .10904,    .07784,    .00834,    .00133,
     +     .00072,    .00503,    .00839,
     +     .32004,    .10484,    .07200,    .00797,    .00131,
     +     .00073,    .00480,    .00797,
     +     .30972,    .10106,    .06700,    .00764,    .00129,
     +     .00074,    .00461,    .00759 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .29975,    .09744,    .06242,    .00733,    .00127,
     +     .00074,    .00442,    .00722,
     +     .29036,    .09404,    .05830,    .00704,    .00124,
     +     .00074,    .00425,    .00688,
     +     .28174,    .09093,    .05471,    .00677,    .00122,
     +     .00074,    .00408,    .00659,
     +     .27389,    .08811,    .05158,    .00652,    .00119,
     +     .00074,    .00393,    .00633,
     +     .26622,    .08536,    .04865,    .00628,    .00117,
     +     .00074,    .00379,    .00606,
     +     .25890,    .08276,    .04598,    .00605,    .00114,
     +     .00073,    .00366,    .00582,
     +     .25213,    .08037,    .04361,    .00585,    .00112,
     +     .00072,    .00352,    .00561,
     +     .24589,    .07818,    .04150,    .00567,    .00110,
     +     .00072,    .00341,    .00541 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .23975,    .07603,    .03949,    .00550,    .00107,
     +     .00071,    .00331,    .00521,
     +     .23387,    .07399,    .03763,    .00533,    .00105,
     +     .00070,    .00321,    .00503,
     +     .22839,    .07207,    .03596,    .00516,    .00103,
     +     .00069,    .00311,    .00486,
     +     .22334,    .07031,    .03446,    .00501,    .00101,
     +     .00068,    .00302,    .00471,
     +     .21832,    .06857,    .03302,    .00486,    .00099,
     +     .00067,    .00293,    .00456 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .63097,    .22324,    .34491,    .01621,    .00000,
     +     .00000,    .00867,    .01779,
     +     .60999,    .21445,    .31935,    .01557,    .00000,
     +     .00000,    .00841,    .01688,
     +     .58046,    .20225,    .28481,    .01465,    .00000,
     +     .00000,    .00798,    .01567,
     +     .56014,    .19394,    .26183,    .01404,    .00008,
     +     .00000,    .00770,    .01484,
     +     .53987,    .18576,    .23944,    .01341,    .00026,
     +     .00000,    .00739,    .01406,
     +     .52300,    .17903,    .22170,    .01291,    .00040,
     +     .00000,    .00715,    .01338,
     +     .50740,    .17285,    .20603,    .01244,    .00051,
     +     .00000,    .00691,    .01278,
     +     .49147,    .16656,    .19072,    .01195,    .00061,
     +     .00000,    .00665,    .01220 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .47799,    .16131,    .17837,    .01155,    .00068,
     +     .00000,    .00645,    .01170,
     +     .46541,    .15645,    .16730,    .01117,    .00074,
     +     .00000,    .00626,    .01124,
     +     .45572,    .15272,    .15907,    .01087,    .00078,
     +     .00000,    .00611,    .01088,
     +     .43583,    .14514,    .14283,    .01030,    .00084,
     +     .00001,    .00581,    .01017,
     +     .41962,    .13900,    .13016,    .00980,    .00089,
     +     .00010,    .00555,    .00962,
     +     .40228,    .13249,    .11744,    .00929,    .00092,
     +     .00021,    .00527,    .00905,
     +     .38505,    .12609,    .10572,    .00880,    .00095,
     +     .00029,    .00500,    .00847,
     +     .37016,    .12060,    .09626,    .00838,    .00096,
     +     .00034,    .00475,    .00798 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35577,    .11535,    .08771,    .00796,    .00097,
     +     .00039,    .00450,    .00755,
     +     .34426,    .11116,    .08129,    .00763,    .00096,
     +     .00042,    .00433,    .00719,
     +     .33088,    .10633,    .07425,    .00725,    .00096,
     +     .00045,    .00413,    .00678,
     +     .31956,    .10227,    .06863,    .00693,    .00095,
     +     .00047,    .00395,    .00644,
     +     .30951,    .09869,    .06393,    .00664,    .00094,
     +     .00048,    .00380,    .00614,
     +     .29726,    .09434,    .05853,    .00631,    .00092,
     +     .00050,    .00362,    .00579,
     +     .28624,    .09046,    .05395,    .00601,    .00091,
     +     .00050,    .00345,    .00549,
     +     .27630,    .08701,    .05005,    .00576,    .00089,
     +     .00051,    .00329,    .00522 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26673,    .08368,    .04649,    .00551,    .00087,
     +     .00051,    .00315,    .00495,
     +     .25775,    .08057,    .04330,    .00528,    .00085,
     +     .00051,    .00302,    .00470,
     +     .24954,    .07772,    .04054,    .00506,    .00083,
     +     .00051,    .00289,    .00449,
     +     .24207,    .07516,    .03814,    .00486,    .00081,
     +     .00051,    .00278,    .00431,
     +     .23479,    .07268,    .03590,    .00467,    .00080,
     +     .00050,    .00268,    .00412,
     +     .22788,    .07034,    .03386,    .00449,    .00078,
     +     .00050,    .00258,    .00395,
     +     .22150,    .06818,    .03206,    .00433,    .00076,
     +     .00049,    .00248,    .00380,
     +     .21565,    .06620,    .03046,    .00418,    .00074,
     +     .00049,    .00239,    .00366 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .20988,    .06427,    .02894,    .00405,    .00073,
     +     .00048,    .00231,    .00351,
     +     .20438,    .06243,    .02754,    .00391,    .00071,
     +     .00048,    .00223,    .00337,
     +     .19926,    .06071,    .02628,    .00378,    .00070,
     +     .00047,    .00216,    .00326,
     +     .19455,    .05914,    .02515,    .00366,    .00068,
     +     .00046,    .00210,    .00316,
     +     .18987,    .05759,    .02408,    .00355,    .00067,
     +     .00046,    .00203,    .00305 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .59646,    .20297,    .28959,    .01312,    .00000,
     +     .00000,    .00671,    .01297,
     +     .57471,    .19441,    .26589,    .01255,    .00000,
     +     .00000,    .00646,    .01226,
     +     .54429,    .18254,    .23439,    .01175,    .00000,
     +     .00000,    .00612,    .01129,
     +     .52351,    .17451,    .21378,    .01122,    .00006,
     +     .00000,    .00584,    .01066,
     +     .50287,    .16662,    .19401,    .01066,    .00018,
     +     .00000,    .00560,    .01005,
     +     .48579,    .16016,    .17851,    .01020,    .00029,
     +     .00000,    .00539,    .00957,
     +     .47004,    .15425,    .16492,    .00979,    .00036,
     +     .00000,    .00519,    .00912,
     +     .45399,    .14826,    .15176,    .00938,    .00043,
     +     .00000,    .00499,    .00865 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44052,    .14326,    .14122,    .00903,    .00048,
     +     .00000,    .00482,    .00828,
     +     .42797,    .13863,    .13184,    .00871,    .00052,
     +     .00000,    .00466,    .00793,
     +     .41832,    .13509,    .12492,    .00846,    .00055,
     +     .00000,    .00455,    .00767,
     +     .39861,    .12794,    .11140,    .00796,    .00059,
     +     .00001,    .00429,    .00714,
     +     .38258,    .12215,    .10096,    .00755,    .00062,
     +     .00007,    .00408,    .00673,
     +     .36555,    .11606,    .09055,    .00712,    .00064,
     +     .00015,    .00386,    .00631,
     +     .34870,    .11011,    .08104,    .00672,    .00066,
     +     .00020,    .00364,    .00589,
     +     .33418,    .10501,    .07343,    .00637,    .00066,
     +     .00024,    .00347,    .00552 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32023,    .10013,    .06661,    .00602,    .00067,
     +     .00027,    .00328,    .00520,
     +     .30907,    .09626,    .06151,    .00576,    .00066,
     +     .00029,    .00314,    .00495,
     +     .29617,    .09181,    .05596,    .00545,    .00066,
     +     .00031,    .00298,    .00466,
     +     .28529,    .08808,    .05156,    .00520,    .00065,
     +     .00032,    .00284,    .00442,
     +     .27569,    .08481,    .04787,    .00497,    .00064,
     +     .00033,    .00272,    .00420,
     +     .26400,    .08085,    .04367,    .00471,    .00063,
     +     .00034,    .00257,    .00395,
     +     .25352,    .07732,    .04012,    .00447,    .00062,
     +     .00034,    .00245,    .00373,
     +     .24412,    .07418,    .03711,    .00425,    .00060,
     +     .00035,    .00233,    .00353 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23509,    .07118,    .03439,    .00406,    .00059,
     +     .00035,    .00223,    .00334,
     +     .22664,    .06838,    .03196,    .00388,    .00058,
     +     .00035,    .00213,    .00317,
     +     .21890,    .06583,    .02987,    .00371,    .00056,
     +     .00035,    .00204,    .00303,
     +     .21190,    .06353,    .02805,    .00356,    .00055,
     +     .00034,    .00195,    .00289,
     +     .20510,    .06131,    .02635,    .00342,    .00054,
     +     .00034,    .00186,    .00276,
     +     .19864,    .05921,    .02480,    .00329,    .00052,
     +     .00034,    .00179,    .00263,
     +     .19270,    .05729,    .02344,    .00317,    .00051,
     +     .00033,    .00173,    .00252,
     +     .18727,    .05553,    .02224,    .00306,    .00050,
     +     .00033,    .00167,    .00242 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18195,    .05382,    .02111,    .00294,    .00049,
     +     .00032,    .00160,    .00233,
     +     .17689,    .05220,    .02006,    .00284,    .00048,
     +     .00032,    .00154,    .00225,
     +     .17217,    .05068,    .01912,    .00273,    .00046,
     +     .00032,    .00149,    .00216,
     +     .16784,    .04929,    .01827,    .00264,    .00045,
     +     .00031,    .00144,    .00209,
     +     .16355,    .04793,    .01747,    .00256,    .00044,
     +     .00031,    .00139,    .00201 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .55798,    .18293,    .23994,    .01060,    .00000,
     +     .00000,    .00506,    .00920,
     +     .53593,    .17464,    .21853,    .01007,    .00000,
     +     .00000,    .00484,    .00869,
     +     .50518,    .16328,    .19044,    .00937,    .00000,
     +     .00000,    .00455,    .00796,
     +     .48432,    .15561,    .17235,    .00889,    .00004,
     +     .00000,    .00435,    .00747,
     +     .46369,    .14810,    .15523,    .00840,    .00013,
     +     .00000,    .00413,    .00704,
     +     .44671,    .14198,    .14196,    .00802,    .00020,
     +     .00000,    .00396,    .00667,
     +     .43109,    .13640,    .13042,    .00767,    .00025,
     +     .00000,    .00382,    .00632,
     +     .41522,    .13076,    .11931,    .00733,    .00030,
     +     .00000,    .00367,    .00598 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40197,    .12606,    .11052,    .00700,    .00033,
     +     .00000,    .00352,    .00573,
     +     .38964,    .12173,    .10274,    .00673,    .00036,
     +     .00000,    .00339,    .00549,
     +     .38015,    .11844,    .09702,    .00654,    .00038,
     +     .00000,    .00329,    .00529,
     +     .36096,    .11176,    .08594,    .00613,    .00041,
     +     .00001,    .00309,    .00491,
     +     .34538,    .10641,    .07746,    .00579,    .00043,
     +     .00005,    .00293,    .00461,
     +     .32891,    .10079,    .06908,    .00543,    .00044,
     +     .00010,    .00276,    .00430,
     +     .31270,    .09528,    .06151,    .00508,    .00045,
     +     .00014,    .00260,    .00399,
     +     .29876,    .09060,    .05550,    .00480,    .00045,
     +     .00016,    .00246,    .00375 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28546,    .08615,    .05013,    .00452,    .00045,
     +     .00019,    .00233,    .00351,
     +     .27481,    .08264,    .04614,    .00432,    .00045,
     +     .00020,    .00222,    .00333,
     +     .26257,    .07860,    .04181,    .00408,    .00045,
     +     .00021,    .00210,    .00312,
     +     .25229,    .07522,    .03840,    .00387,    .00044,
     +     .00022,    .00199,    .00295,
     +     .24321,    .07225,    .03558,    .00369,    .00044,
     +     .00023,    .00190,    .00282,
     +     .23224,    .06868,    .03235,    .00347,    .00043,
     +     .00023,    .00180,    .00264,
     +     .22244,    .06552,    .02964,    .00329,    .00042,
     +     .00023,    .00170,    .00247,
     +     .21362,    .06270,    .02735,    .00315,    .00041,
     +     .00024,    .00161,    .00234 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20521,    .06002,    .02529,    .00299,    .00040,
     +     .00024,    .00153,    .00221,
     +     .19738,    .05754,    .02345,    .00284,    .00039,
     +     .00024,    .00146,    .00210,
     +     .19025,    .05527,    .02187,    .00269,    .00038,
     +     .00023,    .00140,    .00200,
     +     .18379,    .05323,    .02050,    .00257,    .00037,
     +     .00023,    .00134,    .00190,
     +     .17752,    .05128,    .01924,    .00247,    .00036,
     +     .00023,    .00128,    .00181,
     +     .17160,    .04942,    .01808,    .00236,    .00035,
     +     .00023,    .00122,    .00173,
     +     .16618,    .04772,    .01707,    .00227,    .00034,
     +     .00022,    .00117,    .00166,
     +     .16122,    .04618,    .01617,    .00219,    .00033,
     +     .00022,    .00113,    .00159 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15635,    .04469,    .01533,    .00211,    .00032,
     +     .00022,    .00109,    .00151,
     +     .15172,    .04327,    .01455,    .00204,    .00032,
     +     .00021,    .00105,    .00145,
     +     .14742,    .04194,    .01385,    .00196,    .00031,
     +     .00021,    .00101,    .00140,
     +     .14348,    .04073,    .01323,    .00189,    .00030,
     +     .00021,    .00098,    .00136,
     +     .13961,    .03954,    .01263,    .00183,    .00029,
     +     .00020,    .00095,    .00131 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .51667,    .16318,    .19577,    .00836,    .00000,
     +     .00000,    .00378,    .00644,
     +     .49466,    .15535,    .17683,    .00792,    .00000,
     +     .00000,    .00359,    .00604,
     +     .46418,    .14457,    .15242,    .00732,    .00000,
     +     .00000,    .00334,    .00551,
     +     .44358,    .13736,    .13693,    .00690,    .00003,
     +     .00000,    .00317,    .00515,
     +     .42329,    .13037,    .12243,    .00652,    .00009,
     +     .00000,    .00301,    .00481,
     +     .40662,    .12465,    .11133,    .00620,    .00014,
     +     .00000,    .00287,    .00455,
     +     .39138,    .11944,    .10174,    .00590,    .00017,
     +     .00000,    .00275,    .00431,
     +     .37597,    .11422,    .09256,    .00561,    .00021,
     +     .00000,    .00263,    .00406 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36313,    .10988,    .08536,    .00535,    .00023,
     +     .00000,    .00251,    .00387,
     +     .35123,    .10589,    .07902,    .00513,    .00025,
     +     .00000,    .00241,    .00369,
     +     .34212,    .10285,    .07438,    .00497,    .00026,
     +     .00000,    .00233,    .00355,
     +     .32365,    .09673,    .06548,    .00462,    .00028,
     +     .00001,    .00218,    .00330,
     +     .30872,    .09183,    .05875,    .00438,    .00029,
     +     .00003,    .00206,    .00308,
     +     .29300,    .08670,    .05215,    .00411,    .00030,
     +     .00007,    .00193,    .00285,
     +     .27761,    .08171,    .04620,    .00383,    .00030,
     +     .00009,    .00181,    .00265,
     +     .26444,    .07747,    .04150,    .00361,    .00031,
     +     .00011,    .00172,    .00247 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25193,    .07344,    .03734,    .00338,    .00031,
     +     .00013,    .00162,    .00231,
     +     .24196,    .07028,    .03427,    .00321,    .00030,
     +     .00013,    .00154,    .00219,
     +     .23051,    .06666,    .03096,    .00302,    .00030,
     +     .00014,    .00144,    .00205,
     +     .22090,    .06364,    .02836,    .00287,    .00030,
     +     .00015,    .00136,    .00192,
     +     .21246,    .06101,    .02621,    .00274,    .00029,
     +     .00015,    .00130,    .00182,
     +     .20229,    .05784,    .02376,    .00257,    .00028,
     +     .00016,    .00122,    .00171,
     +     .19323,    .05503,    .02172,    .00242,    .00028,
     +     .00016,    .00115,    .00161,
     +     .18516,    .05254,    .02000,    .00230,    .00027,
     +     .00016,    .00109,    .00152 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17746,    .05017,    .01846,    .00216,    .00026,
     +     .00016,    .00104,    .00143,
     +     .17029,    .04798,    .01709,    .00203,    .00026,
     +     .00016,    .00099,    .00134,
     +     .16374,    .04600,    .01591,    .00196,    .00025,
     +     .00016,    .00094,    .00127,
     +     .15784,    .04422,    .01489,    .00188,    .00024,
     +     .00015,    .00090,    .00121,
     +     .15215,    .04251,    .01395,    .00180,    .00024,
     +     .00015,    .00086,    .00115,
     +     .14678,    .04089,    .01310,    .00172,    .00023,
     +     .00015,    .00082,    .00110,
     +     .14187,    .03942,    .01235,    .00164,    .00022,
     +     .00015,    .00079,    .00104,
     +     .13738,    .03807,    .01169,    .00158,    .00022,
     +     .00015,    .00076,    .00100 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13300,    .03677,    .01107,    .00152,    .00021,
     +     .00014,    .00072,    .00096,
     +     .12884,    .03553,    .01050,    .00146,    .00021,
     +     .00014,    .00069,    .00093,
     +     .12498,    .03439,    .00999,    .00141,    .00020,
     +     .00014,    .00066,    .00089,
     +     .12146,    .03336,    .00953,    .00136,    .00020,
     +     .00014,    .00064,    .00085,
     +     .11798,    .03234,    .00909,    .00131,    .00019,
     +     .00014,    .00062,    .00082 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .47356,    .14400,    .15682,    .00640,    .00000,
     +     .00000,    .00280,    .00444,
     +     .45190,    .13669,    .14053,    .00604,    .00000,
     +     .00000,    .00265,    .00413,
     +     .42207,    .12663,    .11983,    .00555,    .00000,
     +     .00000,    .00245,    .00376,
     +     .40204,    .11995,    .10687,    .00521,    .00002,
     +     .00000,    .00232,    .00351,
     +     .38244,    .11348,    .09490,    .00486,    .00006,
     +     .00000,    .00218,    .00328,
     +     .36634,    .10820,    .08578,    .00462,    .00009,
     +     .00000,    .00207,    .00309,
     +     .35167,    .10342,    .07797,    .00440,    .00012,
     +     .00000,    .00198,    .00291,
     +     .33690,    .09864,    .07057,    .00415,    .00014,
     +     .00000,    .00188,    .00275 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32460,    .09467,    .06481,    .00397,    .00015,
     +     .00000,    .00180,    .00260,
     +     .31326,    .09103,    .05977,    .00380,    .00016,
     +     .00000,    .00173,    .00247,
     +     .30460,    .08826,    .05610,    .00367,    .00017,
     +     .00000,    .00168,    .00237,
     +     .28712,    .08272,    .04909,    .00340,    .00018,
     +     .00000,    .00156,    .00219,
     +     .27304,    .07830,    .04384,    .00319,    .00019,
     +     .00002,    .00146,    .00205,
     +     .25828,    .07368,    .03873,    .00296,    .00020,
     +     .00005,    .00136,    .00191,
     +     .24388,    .06921,    .03415,    .00275,    .00020,
     +     .00006,    .00128,    .00176,
     +     .23160,    .06543,    .03056,    .00258,    .00020,
     +     .00007,    .00120,    .00164 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .21995,    .06185,    .02741,    .00240,    .00020,
     +     .00008,    .00111,    .00153,
     +     .21072,    .05903,    .02509,    .00228,    .00020,
     +     .00009,    .00106,    .00145,
     +     .20015,    .05583,    .02260,    .00214,    .00020,
     +     .00009,    .00100,    .00135,
     +     .19133,    .05317,    .02064,    .00202,    .00019,
     +     .00010,    .00094,    .00126,
     +     .18358,    .05085,    .01903,    .00191,    .00019,
     +     .00010,    .00090,    .00121,
     +     .17429,    .04808,    .01722,    .00179,    .00019,
     +     .00010,    .00084,    .00113,
     +     .16604,    .04562,    .01572,    .00167,    .00018,
     +     .00010,    .00079,    .00105,
     +     .15870,    .04345,    .01444,    .00158,    .00018,
     +     .00010,    .00075,    .00098 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15170,    .04139,    .01331,    .00150,    .00017,
     +     .00010,    .00071,    .00093,
     +     .14521,    .03949,    .01230,    .00142,    .00017,
     +     .00010,    .00067,    .00089,
     +     .13935,    .03776,    .01144,    .00134,    .00016,
     +     .00010,    .00064,    .00083,
     +     .13406,    .03622,    .01069,    .00127,    .00016,
     +     .00010,    .00061,    .00079,
     +     .12894,    .03475,    .01001,    .00123,    .00015,
     +     .00010,    .00059,    .00075,
     +     .12414,    .03336,    .00938,    .00117,    .00015,
     +     .00010,    .00056,    .00071,
     +     .11977,    .03210,    .00883,    .00110,    .00014,
     +     .00010,    .00053,    .00068,
     +     .11579,    .03095,    .00835,    .00105,    .00014,
     +     .00010,    .00050,    .00066 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11188,    .02984,    .00790,    .00102,    .00014,
     +     .00009,    .00048,    .00063,
     +     .10819,    .02879,    .00749,    .00098,    .00013,
     +     .00009,    .00046,    .00061,
     +     .10477,    .02782,    .00711,    .00094,    .00013,
     +     .00009,    .00045,    .00058,
     +     .10165,    .02694,    .00678,    .00091,    .00013,
     +     .00009,    .00043,    .00056,
     +     .09860,    .02608,    .00646,    .00088,    .00012,
     +     .00009,    .00042,    .00053 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .42947,    .12579,    .12323,    .00483,    .00000,
     +     .00000,    .00204,    .00299,
     +     .40849,    .11903,    .10961,    .00454,    .00000,
     +     .00000,    .00192,    .00277,
     +     .37981,    .10976,    .09244,    .00411,    .00000,
     +     .00000,    .00176,    .00252,
     +     .36057,    .10364,    .08187,    .00383,    .00001,
     +     .00000,    .00167,    .00236,
     +     .34185,    .09771,    .07222,    .00353,    .00004,
     +     .00000,    .00157,    .00222,
     +     .32654,    .09291,    .06492,    .00336,    .00006,
     +     .00000,    .00149,    .00207,
     +     .31264,    .08859,    .05872,    .00319,    .00008,
     +     .00000,    .00142,    .00193,
     +     .29870,    .08426,    .05290,    .00297,    .00009,
     +     .00000,    .00136,    .00181 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .28712,    .08069,    .04839,    .00282,    .00010,
     +     .00000,    .00129,    .00174,
     +     .27645,    .07742,    .04446,    .00269,    .00011,
     +     .00000,    .00123,    .00166,
     +     .26831,    .07493,    .04160,    .00259,    .00011,
     +     .00000,    .00118,    .00160,
     +     .25198,    .06995,    .03621,    .00239,    .00012,
     +     .00000,    .00110,    .00147,
     +     .23891,    .06602,    .03220,    .00222,    .00012,
     +     .00002,    .00103,    .00137,
     +     .22522,    .06192,    .02833,    .00207,    .00013,
     +     .00003,    .00097,    .00126,
     +     .21191,    .05796,    .02489,    .00193,    .00013,
     +     .00004,    .00091,    .00115,
     +     .20063,    .05463,    .02220,    .00178,    .00013,
     +     .00005,    .00085,    .00108 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .18995,    .05148,    .01985,    .00165,    .00013,
     +     .00006,    .00079,    .00100,
     +     .18153,    .04902,    .01813,    .00156,    .00013,
     +     .00006,    .00075,    .00095,
     +     .17192,    .04624,    .01629,    .00145,    .00013,
     +     .00006,    .00070,    .00088,
     +     .16392,    .04392,    .01485,    .00136,    .00012,
     +     .00006,    .00066,    .00082,
     +     .15691,    .04190,    .01367,    .00129,    .00012,
     +     .00007,    .00063,    .00077,
     +     .14851,    .03949,    .01234,    .00121,    .00012,
     +     .00007,    .00058,    .00072,
     +     .14109,    .03738,    .01124,    .00113,    .00012,
     +     .00007,    .00054,    .00068,
     +     .13453,    .03551,    .01032,    .00105,    .00011,
     +     .00007,    .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)/
     +     .12828,    .03375,    .00949,    .00099,    .00011,
     +     .00007,    .00049,    .00060,
     +     .12248,    .03212,    .00876,    .00094,    .00011,
     +     .00007,    .00047,    .00056,
     +     .11726,    .03066,    .00814,    .00090,    .00010,
     +     .00007,    .00044,    .00053,
     +     .11257,    .02935,    .00760,    .00085,    .00010,
     +     .00007,    .00042,    .00050,
     +     .10807,    .02809,    .00711,    .00079,    .00010,
     +     .00007,    .00040,    .00048,
     +     .10383,    .02691,    .00666,    .00075,    .00009,
     +     .00006,    .00038,    .00046,
     +     .09997,    .02584,    .00626,    .00072,    .00009,
     +     .00006,    .00036,    .00043,
     +     .09645,    .02488,    .00591,    .00070,    .00009,
     +     .00006,    .00035,    .00041 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09303,    .02394,    .00559,    .00067,    .00009,
     +     .00006,    .00033,    .00040,
     +     .08979,    .02306,    .00529,    .00065,    .00008,
     +     .00006,    .00032,    .00038,
     +     .08682,    .02225,    .00503,    .00062,    .00008,
     +     .00006,    .00031,    .00036,
     +     .08411,    .02151,    .00479,    .00060,    .00008,
     +     .00006,    .00030,    .00034,
     +     .08144,    .02079,    .00456,    .00058,    .00008,
     +     .00006,    .00029,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .38530,    .10886,    .09501,    .00369,    .00000,
     +     .00000,    .00137,    .00193,
     +     .36534,    .10266,    .08392,    .00343,    .00000,
     +     .00000,    .00128,    .00180,
     +     .33810,    .09428,    .07010,    .00310,    .00000,
     +     .00000,    .00118,    .00161,
     +     .31998,    .08876,    .06170,    .00288,    .00001,
     +     .00000,    .00111,    .00148,
     +     .30232,    .08343,    .05412,    .00267,    .00003,
     +     .00000,    .00104,    .00138,
     +     .28799,    .07912,    .04842,    .00252,    .00004,
     +     .00000,    .00098,    .00129,
     +     .27502,    .07525,    .04360,    .00238,    .00005,
     +     .00000,    .00093,    .00121,
     +     .26202,    .07139,    .03911,    .00222,    .00006,
     +     .00000,    .00087,    .00114 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25127,    .06820,    .03566,    .00212,    .00006,
     +     .00000,    .00082,    .00108,
     +     .24140,    .06530,    .03266,    .00202,    .00007,
     +     .00000,    .00079,    .00103,
     +     .23391,    .06311,    .03051,    .00194,    .00007,
     +     .00000,    .00076,    .00097,
     +     .21887,    .05874,    .02643,    .00177,    .00008,
     +     .00000,    .00070,    .00088,
     +     .20690,    .05526,    .02343,    .00165,    .00008,
     +     .00001,    .00066,    .00082,
     +     .19441,    .05165,    .02054,    .00151,    .00008,
     +     .00002,    .00061,    .00077,
     +     .18230,    .04820,    .01799,    .00141,    .00008,
     +     .00003,    .00056,    .00071,
     +     .17207,    .04531,    .01601,    .00132,    .00008,
     +     .00003,    .00052,    .00065 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16243,    .04257,    .01428,    .00121,    .00008,
     +     .00004,    .00049,    .00061,
     +     .15485,    .04045,    .01303,    .00115,    .00008,
     +     .00004,    .00046,    .00057,
     +     .14622,    .03803,    .01169,    .00106,    .00008,
     +     .00004,    .00043,    .00053,
     +     .13906,    .03603,    .01064,    .00099,    .00008,
     +     .00004,    .00040,    .00050,
     +     .13282,    .03431,    .00978,    .00093,    .00008,
     +     .00004,    .00038,    .00047,
     +     .12536,    .03225,    .00882,    .00086,    .00008,
     +     .00004,    .00035,    .00044,
     +     .11878,    .03044,    .00802,    .00080,    .00007,
     +     .00004,    .00033,    .00041,
     +     .11297,    .02884,    .00736,    .00076,    .00007,
     +     .00004,    .00031,    .00039 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10745,    .02734,    .00676,    .00072,    .00007,
     +     .00004,    .00029,    .00036,
     +     .10236,    .02597,    .00624,    .00068,    .00007,
     +     .00004,    .00028,    .00033,
     +     .09776,    .02474,    .00579,    .00065,    .00007,
     +     .00004,    .00026,    .00032,
     +     .09365,    .02364,    .00540,    .00061,    .00006,
     +     .00004,    .00025,    .00030,
     +     .08973,    .02258,    .00504,    .00058,    .00006,
     +     .00004,    .00023,    .00028,
     +     .08603,    .02160,    .00472,    .00055,    .00006,
     +     .00004,    .00022,    .00026,
     +     .08266,    .02070,    .00444,    .00052,    .00006,
     +     .00004,    .00021,    .00026,
     +     .07961,    .01989,    .00419,    .00050,    .00006,
     +     .00004,    .00020,    .00025 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07667,    .01911,    .00396,    .00049,    .00005,
     +     .00004,    .00020,    .00023,
     +     .07389,    .01837,    .00374,    .00047,    .00005,
     +     .00004,    .00019,    .00021,
     +     .07132,    .01770,    .00355,    .00045,    .00005,
     +     .00004,    .00018,    .00020,
     +     .06899,    .01709,    .00338,    .00042,    .00005,
     +     .00004,    .00017,    .00020,
     +     .06670,    .01649,    .00322,    .00040,    .00005,
     +     .00004,    .00016,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34158,    .09284,    .07135,    .00257,    .00000,
     +     .00000,    .00102,    .00129,
     +     .32282,    .08727,    .06260,    .00239,    .00000,
     +     .00000,    .00096,    .00119,
     +     .29736,    .07979,    .05184,    .00212,    .00000,
     +     .00000,    .00084,    .00107,
     +     .28043,    .07487,    .04534,    .00198,    .00001,
     +     .00000,    .00079,    .00098,
     +     .26408,    .07013,    .03955,    .00185,    .00002,
     +     .00000,    .00074,    .00090,
     +     .25089,    .06633,    .03524,    .00172,    .00002,
     +     .00000,    .00069,    .00083,
     +     .23895,    .06293,    .03162,    .00161,    .00003,
     +     .00000,    .00065,    .00078,
     +     .22698,    .05955,    .02825,    .00152,    .00004,
     +     .00000,    .00060,    .00073 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .21714,    .05677,    .02567,    .00144,    .00004,
     +     .00000,    .00057,    .00068,
     +     .20813,    .05424,    .02345,    .00137,    .00004,
     +     .00000,    .00055,    .00064,
     +     .20131,    .05231,    .02185,    .00132,    .00004,
     +     .00000,    .00053,    .00062,
     +     .18767,    .04851,    .01886,    .00120,    .00005,
     +     .00000,    .00048,    .00058,
     +     .17683,    .04550,    .01668,    .00111,    .00005,
     +     .00001,    .00044,    .00054,
     +     .16560,    .04240,    .01458,    .00102,    .00005,
     +     .00001,    .00041,    .00050,
     +     .15476,    .03943,    .01274,    .00093,    .00005,
     +     .00002,    .00038,    .00046,
     +     .14560,    .03694,    .01131,    .00087,    .00005,
     +     .00002,    .00035,    .00042 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13700,    .03461,    .01007,    .00080,    .00005,
     +     .00002,    .00032,    .00038,
     +     .13029,    .03281,    .00918,    .00075,    .00005,
     +     .00002,    .00030,    .00035,
     +     .12265,    .03076,    .00822,    .00070,    .00005,
     +     .00003,    .00028,    .00033,
     +     .11631,    .02906,    .00747,    .00066,    .00005,
     +     .00003,    .00025,    .00031,
     +     .11083,    .02761,    .00686,    .00062,    .00005,
     +     .00003,    .00024,    .00029,
     +     .10429,    .02588,    .00618,    .00057,    .00005,
     +     .00003,    .00023,    .00027,
     +     .09853,    .02436,    .00562,    .00054,    .00005,
     +     .00003,    .00022,    .00025,
     +     .09344,    .02303,    .00515,    .00052,    .00004,
     +     .00003,    .00021,    .00022 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08867,    .02178,    .00472,    .00048,    .00004,
     +     .00003,    .00019,    .00021,
     +     .08428,    .02064,    .00435,    .00044,    .00004,
     +     .00003,    .00017,    .00021,
     +     .08031,    .01961,    .00403,    .00042,    .00004,
     +     .00003,    .00016,    .00019,
     +     .07677,    .01869,    .00376,    .00040,    .00004,
     +     .00003,    .00016,    .00018,
     +     .07339,    .01782,    .00351,    .00038,    .00004,
     +     .00003,    .00015,    .00017,
     +     .07021,    .01701,    .00329,    .00036,    .00004,
     +     .00003,    .00014,    .00016,
     +     .06733,    .01627,    .00309,    .00035,    .00004,
     +     .00003,    .00013,    .00015,
     +     .06473,    .01561,    .00291,    .00033,    .00003,
     +     .00003,    .00013,    .00015 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06223,    .01497,    .00275,    .00031,    .00003,
     +     .00002,    .00012,    .00014,
     +     .05987,    .01437,    .00259,    .00029,    .00003,
     +     .00002,    .00012,    .00013,
     +     .05768,    .01382,    .00246,    .00028,    .00003,
     +     .00002,    .00011,    .00013,
     +     .05569,    .01332,    .00234,    .00027,    .00003,
     +     .00002,    .00011,    .00012,
     +     .05375,    .01283,    .00223,    .00026,    .00003,
     +     .00002,    .00010,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .29916,    .07821,    .05229,    .00175,    .00000,
     +     .00000,    .00071,    .00086,
     +     .28178,    .07329,    .04558,    .00163,    .00000,
     +     .00000,    .00067,    .00076,
     +     .25829,    .06668,    .03742,    .00146,    .00000,
     +     .00000,    .00059,    .00069,
     +     .24279,    .06238,    .03256,    .00134,    .00000,
     +     .00000,    .00055,    .00061,
     +     .22785,    .05825,    .02825,    .00124,    .00001,
     +     .00000,    .00051,    .00056,
     +     .21583,    .05493,    .02507,    .00114,    .00001,
     +     .00000,    .00047,    .00054,
     +     .20499,    .05196,    .02242,    .00106,    .00002,
     +     .00000,    .00044,    .00051,
     +     .19417,    .04903,    .01997,    .00100,    .00002,
     +     .00000,    .00042,    .00047 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18532,    .04663,    .01810,    .00093,    .00002,
     +     .00000,    .00039,    .00044,
     +     .17723,    .04445,    .01650,    .00088,    .00003,
     +     .00000,    .00037,    .00042,
     +     .17109,    .04280,    .01535,    .00085,    .00003,
     +     .00000,    .00036,    .00040,
     +     .15887,    .03955,    .01321,    .00077,    .00003,
     +     .00000,    .00032,    .00036,
     +     .14921,    .03698,    .01164,    .00071,    .00003,
     +     .00000,    .00030,    .00033,
     +     .13923,    .03433,    .01016,    .00066,    .00003,
     +     .00001,    .00027,    .00031,
     +     .12965,    .03181,    .00886,    .00059,    .00003,
     +     .00001,    .00025,    .00029,
     +     .12161,    .02971,    .00786,    .00054,    .00003,
     +     .00001,    .00023,    .00027 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11404,    .02776,    .00699,    .00051,    .00003,
     +     .00001,    .00022,    .00024,
     +     .10817,    .02623,    .00636,    .00048,    .00003,
     +     .00002,    .00021,    .00022,
     +     .10153,    .02451,    .00569,    .00044,    .00003,
     +     .00002,    .00019,    .00020,
     +     .09604,    .02311,    .00517,    .00040,    .00003,
     +     .00002,    .00017,    .00020,
     +     .09126,    .02189,    .00474,    .00038,    .00003,
     +     .00002,    .00016,    .00019,
     +     .08561,    .02046,    .00427,    .00036,    .00003,
     +     .00002,    .00015,    .00017,
     +     .08066,    .01921,    .00387,    .00033,    .00003,
     +     .00002,    .00014,    .00016,
     +     .07630,    .01811,    .00355,    .00030,    .00003,
     +     .00002,    .00014,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07219,    .01709,    .00326,    .00029,    .00003,
     +     .00002,    .00013,    .00014,
     +     .06842,    .01615,    .00300,    .00028,    .00003,
     +     .00002,    .00011,    .00012,
     +     .06506,    .01531,    .00278,    .00026,    .00002,
     +     .00002,    .00011,    .00011,
     +     .06205,    .01456,    .00259,    .00025,    .00002,
     +     .00002,    .00010,    .00010,
     +     .05918,    .01385,    .00241,    .00024,    .00002,
     +     .00002,    .00010,    .00010,
     +     .05651,    .01319,    .00226,    .00023,    .00002,
     +     .00002,    .00009,    .00010,
     +     .05409,    .01259,    .00212,    .00021,    .00002,
     +     .00002,    .00009,    .00010,
     +     .05191,    .01206,    .00199,    .00020,    .00002,
     +     .00002,    .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)/
     +     .04982,    .01154,    .00188,    .00018,    .00002,
     +     .00002,    .00008,    .00009,
     +     .04784,    .01106,    .00177,    .00017,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04601,    .01061,    .00168,    .00016,    .00002,
     +     .00001,    .00007,    .00008,
     +     .04435,    .01021,    .00160,    .00016,    .00002,
     +     .00001,    .00007,    .00007,
     +     .04272,    .00983,    .00152,    .00016,    .00002,
     +     .00001,    .00007,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .25876,    .06513,    .03739,    .00125,    .00000,
     +     .00000,    .00043,    .00051,
     +     .24294,    .06084,    .03241,    .00112,    .00000,
     +     .00000,    .00040,    .00047,
     +     .22156,    .05510,    .02642,    .00102,    .00000,
     +     .00000,    .00036,    .00042,
     +     .20758,    .05137,    .02288,    .00094,    .00000,
     +     .00000,    .00034,    .00037,
     +     .19416,    .04781,    .01977,    .00085,    .00001,
     +     .00000,    .00030,    .00034,
     +     .18335,    .04497,    .01749,    .00079,    .00001,
     +     .00000,    .00028,    .00031,
     +     .17366,    .04243,    .01560,    .00074,    .00001,
     +     .00000,    .00027,    .00029,
     +     .16404,    .03991,    .01386,    .00069,    .00001,
     +     .00000,    .00025,    .00028 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15614,    .03786,    .01254,    .00066,    .00001,
     +     .00000,    .00023,    .00026,
     +     .14897,    .03601,    .01141,    .00062,    .00002,
     +     .00000,    .00021,    .00024,
     +     .14357,    .03461,    .01060,    .00058,    .00002,
     +     .00000,    .00020,    .00023,
     +     .13281,    .03186,    .00910,    .00053,    .00002,
     +     .00000,    .00019,    .00021,
     +     .12434,    .02970,    .00802,    .00049,    .00002,
     +     .00000,    .00018,    .00019,
     +     .11560,    .02749,    .00699,    .00045,    .00002,
     +     .00001,    .00016,    .00017,
     +     .10725,    .02538,    .00609,    .00041,    .00002,
     +     .00001,    .00014,    .00016,
     +     .10028,    .02362,    .00539,    .00037,    .00002,
     +     .00001,    .00013,    .00015 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09375,    .02200,    .00480,    .00034,    .00002,
     +     .00001,    .00012,    .00014,
     +     .08868,    .02074,    .00436,    .00032,    .00002,
     +     .00001,    .00011,    .00012,
     +     .08297,    .01933,    .00390,    .00030,    .00002,
     +     .00001,    .00010,    .00011,
     +     .07827,    .01817,    .00354,    .00028,    .00002,
     +     .00001,    .00009,    .00011,
     +     .07420,    .01717,    .00325,    .00026,    .00002,
     +     .00001,    .00009,    .00011,
     +     .06938,    .01600,    .00293,    .00025,    .00002,
     +     .00001,    .00008,    .00010,
     +     .06518,    .01498,    .00265,    .00023,    .00002,
     +     .00001,    .00007,    .00009,
     +     .06149,    .01409,    .00243,    .00021,    .00002,
     +     .00001,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05806,    .01325,    .00223,    .00019,    .00002,
     +     .00001,    .00007,    .00007,
     +     .05491,    .01249,    .00205,    .00017,    .00002,
     +     .00001,    .00007,    .00007,
     +     .05206,    .01182,    .00190,    .00017,    .00001,
     +     .00001,    .00006,    .00007,
     +     .04953,    .01122,    .00177,    .00017,    .00001,
     +     .00001,    .00006,    .00006,
     +     .04714,    .01065,    .00165,    .00016,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04492,    .01012,    .00154,    .00015,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04292,    .00964,    .00144,    .00014,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04111,    .00922,    .00136,    .00013,    .00001,
     +     .00001,    .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)/
     +     .03936,    .00880,    .00128,    .00012,    .00001,
     +     .00001,    .00004,    .00005,
     +     .03772,    .00842,    .00121,    .00011,    .00001,
     +     .00001,    .00004,    .00005,
     +     .03622,    .00807,    .00114,    .00011,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03486,    .00775,    .00108,    .00010,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03354,    .00744,    .00103,    .00010,    .00001,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22046,    .05326,    .02584,    .00076,    .00000,
     +     .00000,    .00031,    .00034,
     +     .20623,    .04958,    .02228,    .00069,    .00000,
     +     .00000,    .00029,    .00030,
     +     .18718,    .04469,    .01805,    .00060,    .00000,
     +     .00000,    .00026,    .00026,
     +     .17472,    .04153,    .01558,    .00056,    .00000,
     +     .00000,    .00023,    .00024,
     +     .16282,    .03849,    .01342,    .00052,    .00000,
     +     .00000,    .00022,    .00023,
     +     .15329,    .03609,    .01185,    .00048,    .00000,
     +     .00000,    .00020,    .00021,
     +     .14477,    .03396,    .01054,    .00045,    .00001,
     +     .00000,    .00018,    .00019,
     +     .13634,    .03186,    .00935,    .00041,    .00001,
     +     .00000,    .00017,    .00017 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .12943,    .03016,    .00844,    .00040,    .00001,
     +     .00000,    .00016,    .00017,
     +     .12318,    .02861,    .00767,    .00037,    .00001,
     +     .00000,    .00015,    .00017,
     +     .11850,    .02744,    .00712,    .00034,    .00001,
     +     .00000,    .00014,    .00016,
     +     .10918,    .02515,    .00611,    .00031,    .00001,
     +     .00000,    .00013,    .00013,
     +     .10185,    .02338,    .00538,    .00029,    .00001,
     +     .00000,    .00012,    .00011,
     +     .09436,    .02156,    .00468,    .00026,    .00001,
     +     .00000,    .00011,    .00011,
     +     .08722,    .01983,    .00408,    .00024,    .00001,
     +     .00000,    .00010,    .00010,
     +     .08126,    .01840,    .00362,    .00022,    .00001,
     +     .00000,    .00009,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07572,    .01707,    .00321,    .00020,    .00001,
     +     .00001,    .00009,    .00009,
     +     .07143,    .01606,    .00292,    .00019,    .00001,
     +     .00001,    .00008,    .00007,
     +     .06660,    .01492,    .00261,    .00017,    .00001,
     +     .00001,    .00007,    .00006,
     +     .06264,    .01398,    .00237,    .00016,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05923,    .01318,    .00218,    .00015,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05521,    .01224,    .00196,    .00014,    .00001,
     +     .00001,    .00005,    .00006,
     +     .05171,    .01142,    .00177,    .00013,    .00001,
     +     .00001,    .00005,    .00006,
     +     .04866,    .01071,    .00162,    .00012,    .00001,
     +     .00001,    .00005,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04580,    .01005,    .00149,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04318,    .00945,    .00137,    .00010,    .00001,
     +     .00001,    .00004,    .00005,
     +     .04085,    .00892,    .00126,    .00009,    .00001,
     +     .00001,    .00004,    .00005,
     +     .03879,    .00844,    .00118,    .00009,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03683,    .00800,    .00110,    .00008,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03501,    .00758,    .00102,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03337,    .00721,    .00096,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03190,    .00688,    .00090,    .00007,    .00001,
     +     .00001,    .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)/
     +     .03048,    .00656,    .00085,    .00007,    .00001,
     +     .00001,    .00003,    .00002,
     +     .02915,    .00626,    .00080,    .00007,    .00001,
     +     .00001,    .00003,    .00002,
     +     .02794,    .00599,    .00076,    .00006,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02685,    .00574,    .00072,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02578,    .00550,    .00068,    .00005,    .00001,
     +     .00001,    .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)/
     +     .15269,    .03398,    .01120,    .00030,    .00000,
     +     .00000,    .00010,    .00012,
     +     .14176,    .03140,    .00959,    .00029,    .00000,
     +     .00000,    .00010,    .00010,
     +     .12730,    .02800,    .00771,    .00025,    .00000,
     +     .00000,    .00009,    .00010,
     +     .11794,    .02583,    .00662,    .00023,    .00000,
     +     .00000,    .00008,    .00008,
     +     .10909,    .02377,    .00569,    .00021,    .00000,
     +     .00000,    .00007,    .00007,
     +     .10207,    .02215,    .00502,    .00018,    .00000,
     +     .00000,    .00006,    .00007,
     +     .09581,    .02072,    .00446,    .00016,    .00000,
     +     .00000,    .00006,    .00006,
     +     .08966,    .01932,    .00395,    .00015,    .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)/
     +     .08467,    .01818,    .00357,    .00014,    .00000,
     +     .00000,    .00005,    .00005,
     +     .08017,    .01716,    .00325,    .00013,    .00000,
     +     .00000,    .00005,    .00005,
     +     .07679,    .01640,    .00302,    .00013,    .00000,
     +     .00000,    .00005,    .00005,
     +     .07016,    .01491,    .00259,    .00011,    .00000,
     +     .00000,    .00004,    .00004,
     +     .06500,    .01376,    .00229,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05975,    .01259,    .00199,    .00009,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05479,    .01149,    .00174,    .00008,    .00000,
     +     .00000,    .00004,    .00003,
     +     .05068,    .01059,    .00154,    .00007,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04689,    .00976,    .00137,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04398,    .00912,    .00125,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04073,    .00842,    .00112,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03808,    .00784,    .00101,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03581,    .00735,    .00093,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03315,    .00678,    .00084,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03086,    .00629,    .00076,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02887,    .00587,    .00069,    .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=25,32)/
     +     .02702,    .00547,    .00063,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02534,    .00512,    .00058,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02385,    .00480,    .00054,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02254,    .00453,    .00050,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02130,    .00427,    .00046,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02015,    .00403,    .00043,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01911,    .00381,    .00040,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01819,    .00362,    .00038,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01731,    .00344,    .00036,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01648,    .00327,    .00033,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01574,    .00311,    .00032,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01507,    .00298,    .00030,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01441,    .00284,    .00028,    .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=1,8)/
     +     .09771,    .01989,    .00412,    .00011,    .00000,
     +     .00000,    .00003,    .00004,
     +     .09001,    .01823,    .00353,    .00010,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07992,    .01608,    .00284,    .00009,    .00000,
     +     .00000,    .00002,    .00002,
     +     .07346,    .01472,    .00245,    .00007,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06738,    .01344,    .00212,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06260,    .01244,    .00188,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05837,    .01156,    .00168,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05424,    .01070,    .00149,    .00006,    .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)/
     +     .05092,    .01002,    .00135,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04795,    .00940,    .00124,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04574,    .00895,    .00115,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04141,    .00806,    .00099,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03807,    .00738,    .00088,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03470,    .00670,    .00077,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03155,    .00606,    .00068,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02895,    .00554,    .00060,    .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)/
     +     .02658,    .00507,    .00054,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02478,    .00471,    .00049,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02278,    .00431,    .00044,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02116,    .00399,    .00040,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01978,    .00372,    .00036,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01818,    .00341,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01681,    .00314,    .00029,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01562,    .00291,    .00027,    .00001,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01452,    .00270,    .00025,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01354,    .00251,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01267,    .00234,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01191,    .00220,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01119,    .00206,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01053,    .00193,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00994,    .00182,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00942,    .00172,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00892,    .00163,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00846,    .00154,    .00013,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00805,    .00146,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00767,    .00139,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00731,    .00132,    .00011,    .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)/
     +     .05636,    .01038,    .00123,    .00004,    .00000,
     +     .00000,    .00000,    .00001,
     +     .05146,    .00944,    .00107,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04511,    .00822,    .00088,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04109,    .00746,    .00077,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03734,    .00675,    .00068,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03442,    .00620,    .00061,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03187,    .00572,    .00055,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02939,    .00525,    .00049,    .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)/
     +     .02741,    .00489,    .00045,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02565,    .00456,    .00041,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02434,    .00431,    .00039,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02180,    .00385,    .00034,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01987,    .00349,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01794,    .00314,    .00027,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01615,    .00282,    .00023,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01471,    .00255,    .00021,    .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)/
     +     .01339,    .00232,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01239,    .00214,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01129,    .00194,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01042,    .00178,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00967,    .00165,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00881,    .00150,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00808,    .00137,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00746,    .00126,    .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)/
     +     .00689,    .00116,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00638,    .00107,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00593,    .00100,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00554,    .00093,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00517,    .00086,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00484,    .00081,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00455,    .00076,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00429,    .00071,    .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)/
     +     .00404,    .00067,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00381,    .00063,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00361,    .00060,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00342,    .00056,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00325,    .00053,    .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)/
     +     .02796,    .00458,    .00028,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02527,    .00412,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02182,    .00354,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01966,    .00318,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01769,    .00284,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01616,    .00259,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01483,    .00237,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01355,    .00216,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
     +     .01254,    .00199,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01165,    .00185,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01100,    .00174,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00973,    .00153,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00878,    .00138,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00784,    .00122,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00698,    .00109,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00629,    .00097,    .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)/
     +     .00567,    .00088,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00520,    .00080,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00470,    .00072,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00429,    .00066,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00396,    .00060,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00357,    .00054,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00325,    .00049,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00297,    .00045,    .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)/
     +     .00272,    .00041,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00250,    .00038,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00230,    .00035,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00214,    .00032,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00198,    .00030,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00184,    .00027,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00172,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00161,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00151,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00133,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00126,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00119,    .00017,    .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)/
     +     .00288,    .00034,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00253,    .00030,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00209,    .00024,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00183,    .00021,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00159,    .00018,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00016,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00127,    .00015,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00113,    .00013,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00102,    .00012,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00093,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00086,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00074,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00065,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .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)/
     +     .00037,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00033,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .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='cor07.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