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

sfmrs_99d10.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d10(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)/
     +     .00644,    .00286,   1.15921,    .88630,    .00000,
     +     .00000,    .47638,    .89841,
     +     .00657,    .00291,   2.40762,    .92722,    .00000,
     +     .00000,    .52217,    .93940,
     +     .00677,    .00300,   4.86269,   1.01168,    .01974,
     +     .00000,    .61359,   1.02395,
     +     .00692,    .00306,   7.27698,   1.09045,    .02401,
     +     .00000,    .69728,   1.10277,
     +     .00707,    .00313,  10.27009,   1.19170,    .05075,
     +     .00000,    .80353,   1.20408,
     +     .00720,    .00318,  13.20634,   1.29316,    .17049,
     +     .00000,    .90916,   1.30556,
     +     .00734,    .00324,  16.50387,   1.40290,    .30737,
     +     .00000,   1.02282,   1.41534,
     +     .00748,    .00331,  20.57943,   1.53355,    .45373,
     +     .00000,   1.15754,   1.54601 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00761,    .00337,  24.54548,   1.66008,    .58832,
     +     .00000,   1.28755,   1.67255,
     +     .00773,    .00342,  28.80896,   1.79382,    .73158,
     +     .00000,   1.42459,   1.80631,
     +     .00782,    .00347,  32.54614,   1.90791,    .85644,
     +     .00000,   1.54124,   1.92039,
     +     .00803,    .00357,  41.44735,   2.17811,   1.14458,
     +     .00000,   1.81679,   2.19060,
     +     .00821,    .00365,  49.33257,   2.43853,   1.41937,
     +     .36708,   2.08170,   2.45102,
     +     .00842,    .00376,  59.65310,   2.76356,   1.76270,
     +     .76286,   2.41162,   2.77604,
     +     .00864,    .00387,  71.79965,   3.14034,   2.15960,
     +    1.17656,   2.79336,   3.15280,
     +     .00884,    .00396,  84.08485,   3.51778,   2.55634,
     +    1.59038,   3.17519,   3.53022 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00905,    .00406,  97.76816,   3.93547,   2.99497,
     +    2.04602,   3.59720,   3.94788,
     +     .00923,    .00414, 110.07838,   4.31095,   3.38688,
     +    2.44869,   3.97620,   4.32335,
     +     .00944,    .00425, 126.17461,   4.80242,   3.89766,
     +    2.97160,   4.47184,   4.81477,
     +     .00964,    .00434, 141.58936,   5.27234,   4.38674,
     +    3.47452,   4.94536,   5.28466,
     +     .00981,    .00444, 156.71695,   5.73356,   4.86682,
     +    3.96848,   5.40983,   5.74585,
     +     .01004,    .00456, 177.06027,   6.35902,   5.51296,
     +    4.62725,   6.03932,   6.37125,
     +     .01025,    .00467, 197.58642,   6.99196,   6.16724,
     +    5.29607,   6.67598,   7.00415,
     +     .01047,    .00477, 218.14121,   7.62706,   6.82495,
     +    5.97059,   7.31447,   7.63921 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01067,    .00488, 239.58248,   8.29814,   7.51443,
     +    6.67114,   7.98889,   8.31023,
     +     .01087,    .00498, 261.80860,   8.99615,   8.23303,
     +    7.40406,   8.69010,   9.00820,
     +     .01108,    .00508, 283.91061,   9.69455,   8.95158,
     +    8.13683,   9.39146,   9.70655,
     +     .01127,    .00518, 305.47799,  10.38335,   9.65762,
     +    8.85422,  10.08302,  10.39530,
     +     .01145,    .00528, 328.26726,  11.11291,  10.40737,
     +    9.61879,  10.81529,  11.12481,
     +     .01164,    .00538, 351.22649,  11.85802,  11.16915,
     +   10.39142,  11.56303,  11.86987,
     +     .01183,    .00548, 374.15233,  12.60304,  11.93334,
     +   11.16985,  12.31052,  12.61485,
     +     .01200,    .00556, 396.20929,  13.32985,  12.67524,
     +   11.92178,  13.03961,  13.34159 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01218,    .00566, 419.40595,  14.09609,  13.45915,
     +   12.71862,  13.80814,  14.10780,
     +     .01236,    .00575, 442.78589,  14.87669,  14.25583,
     +   13.52662,  14.59096,  14.88834,
     +     .01253,    .00584, 465.76421,  15.64879,  15.04377,
     +   14.32590,  15.36515,  15.66041,
     +     .01269,    .00593, 488.24113,  16.40782,  15.81886,
     +   15.11304,  16.12613,  16.41940,
     +     .01286,    .00602, 511.21274,  17.19330,  16.61826,
     +   15.92222,  16.91356,  17.20483 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00875,    .00395,   1.06964,    .75187,    .00000,
     +     .00000,    .40415,    .75898,
     +     .00893,    .00403,   2.19535,    .78957,    .00000,
     +     .00000,    .44561,    .79671,
     +     .00920,    .00415,   4.35972,    .86402,    .01802,
     +     .00000,    .52547,    .87121,
     +     .00940,    .00424,   6.44656,    .93172,    .02149,
     +     .00000,    .59698,    .93893,
     +     .00962,    .00434,   8.99044,   1.01714,    .04392,
     +     .00000,    .68625,   1.02438,
     +     .00981,    .00443,  11.44899,   1.10164,    .14346,
     +     .00000,    .77397,   1.10890,
     +     .00999,    .00452,  14.17711,   1.19223,    .25664,
     +     .00000,    .86759,   1.19950,
     +     .01017,    .00461,  17.50962,   1.29921,    .37624,
     +     .00000,    .97769,   1.30648 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .01034,    .00469,  20.71570,   1.40191,    .48524,
     +     .00000,   1.08308,   1.40919,
     +     .01052,    .00477,  24.12906,   1.50974,    .60046,
     +     .00000,   1.19344,   1.51702,
     +     .01064,    .00483,  27.09760,   1.60127,    .70031,
     +     .00000,   1.28695,   1.60857,
     +     .01093,    .00497,  34.09254,   1.81629,    .92877,
     +     .00000,   1.50608,   1.82359,
     +     .01118,    .00510,  40.18456,   2.02165,   1.14454,
     +     .28878,   1.71488,   2.02895,
     +     .01147,    .00524,  48.07370,   2.27579,   1.41175,
     +     .59731,   1.97278,   2.28308,
     +     .01177,    .00539,  57.24030,   2.56773,   1.71775,
     +     .91609,   2.26852,   2.57501,
     +     .01205,    .00552,  66.40055,   2.85768,   2.02096,
     +    1.23211,   2.56186,   2.86495 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01233,    .00567,  76.49078,   3.17602,   2.35350,
     +    1.57714,   2.88351,   3.18328,
     +     .01256,    .00579,  85.47780,   3.46011,   2.64840,
     +    1.87969,   3.17030,   3.46736,
     +     .01285,    .00594,  97.11393,   3.82927,   3.02994,
     +    2.26964,   3.54265,   3.83650,
     +     .01311,    .00608, 108.15137,   4.17975,   3.39272,
     +    2.64206,   3.89591,   4.18697,
     +     .01335,    .00620, 118.89272,   4.52160,   3.74664,
     +    3.00557,   4.24024,   4.52880,
     +     .01366,    .00636, 133.20189,   4.98188,   4.21951,
     +    3.48671,   4.70361,   4.98905,
     +     .01396,    .00651, 147.50503,   5.44433,   4.69501,
     +    3.97180,   5.16891,   5.45150,
     +     .01423,    .00666, 161.70784,   5.90538,   5.17001,
     +    4.45800,   5.63257,   5.91251 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01452,    .00681, 176.39184,   6.38923,   5.66448,
     +    4.95928,   6.11897,   6.39634,
     +     .01480,    .00696, 191.49708,   6.88948,   6.17687,
     +    5.48079,   6.62167,   6.89656,
     +     .01507,    .00710, 206.40661,   7.38708,   6.68631,
     +    5.99923,   7.12156,   7.39415,
     +     .01532,    .00723, 220.84823,   7.87504,   7.18400,
     +    6.50378,   7.61164,   7.88209,
     +     .01557,    .00737, 236.01473,   8.38934,   7.71004,
     +    7.03912,   8.12802,   8.39636,
     +     .01583,    .00750, 251.18331,   8.91163,   8.24145,
     +    7.57688,   8.65233,   8.91863,
     +     .01608,    .00763, 266.24741,   9.43153,   8.77233,
     +    8.11654,   9.17412,   9.43851,
     +     .01631,    .00775, 280.64375,   9.93611,   9.28500,
     +    8.63496,   9.68045,   9.94306 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01655,    .00788, 295.70942,  10.46589,   9.82462,
     +    9.18236,  10.21199,  10.47283,
     +     .01678,    .00800, 310.80340,  11.00307,  10.37047,
     +    9.73477,  10.75087,  11.00998,
     +     .01701,    .00813, 325.56158,  11.53219,  10.90814,
     +   10.27902,  11.28160,  11.53908,
     +     .01723,    .00825, 339.93023,  12.05035,  11.43510,
     +   10.81309,  11.80128,  12.05723,
     +     .01745,    .00836, 354.53256,  12.58425,  11.97617,
     +   11.35957,  12.33667,  12.59110 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01187,    .00545,    .98611,    .63807,    .00000,
     +     .00000,    .34343,    .64172,
     +     .01212,    .00557,   2.00106,    .67247,    .00000,
     +     .00000,    .38075,    .67614,
     +     .01250,    .00574,   3.90794,    .73789,    .01663,
     +     .00000,    .45034,    .74157,
     +     .01277,    .00588,   5.71032,    .79594,    .01935,
     +     .00000,    .51134,    .79963,
     +     .01307,    .00603,   7.86979,    .86786,    .03807,
     +     .00000,    .58622,    .87155,
     +     .01333,    .00615,   9.92496,    .93808,    .12069,
     +     .00000,    .65892,    .94177,
     +     .01358,    .00627,  12.17764,   1.01270,    .21417,
     +     .00000,    .73586,   1.01639,
     +     .01384,    .00641,  14.89659,   1.10006,    .31176,
     +     .00000,    .82563,   1.10376 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01407,    .00653,  17.48186,   1.18319,    .39990,
     +     .00000,    .91082,   1.18689,
     +     .01430,    .00663,  20.20714,   1.26987,    .49241,
     +     .00000,    .99943,   1.27357,
     +     .01448,    .00673,  22.55831,   1.34308,    .57214,
     +     .00000,   1.07416,   1.34678,
     +     .01487,    .00693,  28.03826,   1.51362,    .75295,
     +     .00000,   1.24784,   1.51732,
     +     .01521,    .00711,  32.72708,   1.67499,    .92208,
     +     .22658,   1.41184,   1.67870,
     +     .01560,    .00731,  38.73340,   1.87295,   1.12962,
     +     .46687,   1.61267,   1.87665,
     +     .01601,    .00752,  45.62123,   2.09826,   1.36506,
     +     .71224,   1.84088,   2.10195,
     +     .01639,    .00771,  52.41979,   2.32010,   1.59627,
     +     .95329,   2.06529,   2.32378 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01677,    .00792,  59.82397,   2.56169,   1.84776,
     +    1.21423,   2.30941,   2.56537,
     +     .01709,    .00809,  66.35098,   2.77568,   2.06910,
     +    1.44123,   2.52544,   2.77935,
     +     .01749,    .00830,  74.71708,   3.05170,   2.35333,
     +    1.73158,   2.80389,   3.05537,
     +     .01784,    .00848,  82.57549,   3.31187,   2.62167,
     +    2.00691,   3.06617,   3.31554,
     +     .01817,    .00866,  90.15766,   3.56403,   2.88178,
     +    2.27392,   3.32021,   3.56769,
     +     .01859,    .00888, 100.16024,   3.90106,   3.22676,
     +    2.62463,   3.65960,   3.90472,
     +     .01899,    .00908, 110.06274,   4.23724,   3.57118,
     +    2.97572,   3.99794,   4.24090,
     +     .01937,    .00929, 119.81132,   4.57020,   3.91305,
     +    3.32538,   4.33288,   4.57384 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01975,    .00950, 129.79740,   4.91717,   4.26636,
     +    3.68317,   4.68179,   4.92082,
     +     .02012,    .00969, 139.98956,   5.27374,   4.63035,
     +    4.05328,   5.04022,   5.27737,
     +     .02048,    .00988, 149.97282,   5.62632,   4.99012,
     +    4.41906,   5.39453,   5.62995,
     +     .02082,    .01007, 159.56854,   5.97003,   5.33950,
     +    4.77287,   5.73985,   5.97365,
     +     .02117,    .01026, 169.58317,   6.33049,   5.70707,
     +    5.14658,   6.10189,   6.33411,
     +     .02151,    .01044, 179.52271,   6.69442,   6.07614,
     +    5.51962,   6.46736,   6.69804,
     +     .02184,    .01062, 189.33952,   7.05508,   6.44332,
     +    5.89252,   6.82944,   7.05868,
     +     .02215,    .01080, 198.65490,   7.40322,   6.79593,
     +    6.24868,   7.17893,   7.40682 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02247,    .01097, 208.35473,   7.76725,   7.16567,
     +    6.62336,   7.54429,   7.77085,
     +     .02279,    .01114, 218.01134,   8.13458,   7.53784,
     +    6.99958,   7.91292,   8.13818,
     +     .02309,    .01130, 227.40339,   8.49487,   7.90292,
     +    7.36873,   8.27443,   8.49848,
     +     .02338,    .01146, 236.50350,   8.84634,   8.25940,
     +    7.72966,   8.62705,   8.84994,
     +     .02367,    .01162, 245.69586,   9.20684,   8.62371,
     +    8.09718,   8.98869,   9.21043 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01420,    .00658,    .93972,    .57988,    .00000,
     +     .00000,    .31261,    .58213,
     +     .01449,    .00673,   1.89510,    .61236,    .00000,
     +     .00000,    .34760,    .61460,
     +     .01494,    .00695,   3.66528,    .67287,    .01597,
     +     .00000,    .41171,    .67511,
     +     .01528,    .00712,   5.31902,    .72583,    .01828,
     +     .00000,    .46719,    .72808,
     +     .01564,    .00730,   7.27999,    .79077,    .03505,
     +     .00000,    .53470,    .79302,
     +     .01595,    .00745,   9.12915,    .85370,    .10908,
     +     .00000,    .59974,    .85595,
     +     .01624,    .00761,  11.14117,    .92021,    .19257,
     +     .00000,    .66824,    .92245,
     +     .01655,    .00778,  13.55232,    .99769,    .27913,
     +     .00000,    .74778,    .99993 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01684,    .00792,  15.82880,   1.07102,    .35690,
     +     .00000,    .82288,   1.07326,
     +     .01711,    .00806,  18.21441,   1.14718,    .43817,
     +     .00000,    .90068,   1.14941,
     +     .01733,    .00817,  20.26268,   1.21130,    .50799,
     +     .00000,    .96611,   1.21354,
     +     .01779,    .00841,  25.00559,   1.35992,    .66549,
     +     .00000,   1.11742,   1.36217,
     +     .01820,    .00863,  29.02098,   1.49980,    .81199,
     +     .19622,   1.25953,   1.50203,
     +     .01868,    .00887,  34.13096,   1.67047,    .99081,
     +     .40367,   1.43266,   1.67271,
     +     .01916,    .00914,  39.94489,   1.86367,   1.19250,
     +     .61404,   1.62833,   1.86591,
     +     .01962,    .00937,  45.64119,   2.05291,   1.38954,
     +     .81961,   1.81976,   2.05515 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .02008,    .00962,  51.80277,   2.25800,   1.60281,
     +    1.04101,   2.02701,   2.26025,
     +     .02047,    .00983,  57.20083,   2.43886,   1.78967,
     +    1.23272,   2.20961,   2.44110,
     +     .02094,    .01008,  64.07807,   2.67110,   2.02855,
     +    1.47682,   2.44392,   2.67336,
     +     .02136,    .01030,  70.50017,   2.88910,   2.25311,
     +    1.70730,   2.66371,   2.89135,
     +     .02176,    .01052,  76.66462,   3.09957,   2.46998,
     +    1.92998,   2.87579,   3.10182,
     +     .02225,    .01078,  84.74927,   3.37966,   2.75632,
     +    2.22111,   3.15787,   3.38191,
     +     .02272,    .01105,  92.70690,   3.65785,   3.04099,
     +    2.51131,   3.43790,   3.66011,
     +     .02317,    .01128, 100.50042,   3.93229,   3.32247,
     +    2.79926,   3.71401,   3.93454 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02363,    .01153, 108.43895,   4.21709,   3.61211,
     +    3.09256,   4.00046,   4.21935,
     +     .02407,    .01178, 116.50323,   4.50870,   3.90945,
     +    3.39491,   4.29365,   4.51096,
     +     .02450,    .01201, 124.36579,   4.79604,   4.20234,
     +    3.69270,   4.58246,   4.79830,
     +     .02491,    .01223, 131.88777,   5.07516,   4.48574,
     +    3.97968,   4.86294,   5.07742,
     +     .02531,    .01245, 139.70894,   5.36702,   4.78306,
     +    4.28198,   5.15615,   5.36929,
     +     .02572,    .01268, 147.43514,   5.66067,   5.08052,
     +    4.58260,   5.45110,   5.66293,
     +     .02612,    .01289, 155.04083,   5.95088,   5.37573,
     +    4.88242,   5.74254,   5.95316,
     +     .02648,    .01310, 162.22683,   6.23014,   5.65826,
     +    5.16775,   6.02294,   6.23242 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02686,    .01330, 169.68690,   6.52144,   5.95385,
     +    5.46729,   6.31536,   6.52373,
     +     .02723,    .01351, 177.08502,   6.81451,   6.25051,
     +    5.76715,   6.60954,   6.81681,
     +     .02760,    .01371, 184.25737,   7.10124,   6.54079,
     +    6.06065,   6.89731,   7.10354,
     +     .02794,    .01390, 191.18652,   7.38031,   6.82360,
     +    6.34698,   7.17735,   7.38261,
     +     .02829,    .01409, 198.15988,   7.66577,   7.11180,
     +    6.63769,   7.46377,   7.66807 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01611,    .00753,    .90796,    .54197,    .00000,
     +     .00000,    .29265,    .54345,
     +     .01646,    .00770,   1.82327,    .57310,    .00000,
     +     .00000,    .32602,    .57457,
     +     .01696,    .00797,   3.50225,    .63026,    .01558,
     +     .00000,    .38642,    .63174,
     +     .01735,    .00816,   5.05775,    .67985,    .01759,
     +     .00000,    .43830,    .68133,
     +     .01775,    .00837,   6.88852,    .74021,    .03307,
     +     .00000,    .50093,    .74167,
     +     .01810,    .00855,   8.60351,    .79837,    .10150,
     +     .00000,    .56101,    .79984,
     +     .01845,    .00873,  10.45964,    .85961,    .17853,
     +     .00000,    .62403,    .86108,
     +     .01881,    .00891,  12.67249,    .93070,    .25797,
     +     .00000,    .69698,    .93217 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01913,    .00908,  14.75115,    .99773,    .32908,
     +     .00000,    .76558,    .99920,
     +     .01944,    .00925,  16.92014,   1.06713,    .40317,
     +     .00000,    .83646,   1.06859,
     +     .01968,    .00937,  18.77601,   1.12543,    .46667,
     +     .00000,    .89593,   1.12690,
     +     .02021,    .00966,  23.05325,   1.26011,    .60941,
     +     .00000,   1.03302,   1.26158,
     +     .02068,    .00991,  26.64686,   1.38634,    .74161,
     +     .17695,   1.16126,   1.38782,
     +     .02122,    .01019,  31.19819,   1.53981,    .90238,
     +     .36378,   1.31692,   1.54129,
     +     .02177,    .01049,  36.34717,   1.71284,   1.08298,
     +     .55230,   1.49216,   1.71431,
     +     .02228,    .01076,  41.36501,   1.88169,   1.25874,
     +     .73581,   1.66295,   1.88317 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02281,    .01105,  46.76607,   2.06405,   1.44834,
     +     .93277,   1.84725,   2.06554,
     +     .02325,    .01129,  51.47665,   2.22435,   1.61389,
     +    1.10270,   2.00910,   2.22584,
     +     .02379,    .01157,  57.45177,   2.42956,   1.82487,
     +    1.31839,   2.21615,   2.43105,
     +     .02426,    .01183,  63.00780,   2.62157,   2.02260,
     +    1.52144,   2.40977,   2.62308,
     +     .02471,    .01208,  68.32113,   2.80646,   2.21305,
     +    1.71708,   2.59609,   2.80797,
     +     .02528,    .01238,  75.25975,   3.05175,   2.46369,
     +    1.97201,   2.84316,   3.05326,
     +     .02582,    .01268,  82.06081,   3.29459,   2.71209,
     +    2.22534,   3.08764,   3.29612,
     +     .02632,    .01296,  88.69679,   3.53351,   2.95705,
     +    2.47602,   3.32806,   3.53504 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02683,    .01324,  95.42850,   3.78069,   3.20832,
     +    2.73053,   3.57670,   3.78222,
     +     .02734,    .01351, 102.24357,   4.03313,   3.46563,
     +    2.99227,   3.83056,   4.03468,
     +     .02782,    .01378, 108.86595,   4.28123,   3.71844,
     +    3.24939,   4.07998,   4.28280,
     +     .02828,    .01404, 115.17984,   4.52163,   3.96242,
     +    3.49651,   4.32159,   4.52320,
     +     .02875,    .01429, 121.72715,   4.77248,   4.21789,
     +    3.75634,   4.57363,   4.77406,
     +     .02920,    .01455, 128.17264,   5.02422,   4.47279,
     +    4.01400,   4.82654,   5.02581,
     +     .02964,    .01479, 134.50280,   5.27254,   4.72532,
     +    4.27055,   5.07595,   5.27414,
     +     .03006,    .01502, 140.46421,   5.51094,   4.96642,
     +    4.51409,   5.31535,   5.51254 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03048,    .01526, 146.63986,   5.75917,   5.21825,
     +    4.76934,   5.56460,   5.76079,
     +     .03091,    .01549, 152.74671,   6.00839,   5.47044,
     +    5.02431,   5.81481,   6.01002,
     +     .03131,    .01571, 158.65339,   6.25179,   5.71678,
     +    5.27343,   6.05913,   6.25343,
     +     .03170,    .01593, 164.34764,   6.48828,   5.95639,
     +    5.51609,   6.29648,   6.48992,
     +     .03209,    .01615, 170.06252,   6.72970,   6.20006,
     +    5.76192,   6.53877,   6.73136 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01777,    .00837,    .88425,    .51437,    .00000,
     +     .00000,    .27813,    .51534,
     +     .01815,    .00855,   1.76971,    .54443,    .00000,
     +     .00000,    .31029,    .54541,
     +     .01872,    .00885,   3.38104,    .59911,    .01531,
     +     .00000,    .36795,    .60008,
     +     .01915,    .00907,   4.86420,    .64620,    .01708,
     +     .00000,    .41713,    .64717,
     +     .01960,    .00931,   6.59965,    .70318,    .03161,
     +     .00000,    .47623,    .70415,
     +     .01999,    .00951,   8.21699,    .75788,    .09597,
     +     .00000,    .53268,    .75884,
     +     .02035,    .00971,   9.96017,    .81529,    .16830,
     +     .00000,    .59174,    .81626,
     +     .02076,    .00992,  12.02985,    .88175,    .24260,
     +     .00000,    .65990,    .88273 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02112,    .01010,  13.96625,    .94424,    .30890,
     +     .00000,    .72383,    .94521,
     +     .02146,    .01028,  15.98002,   1.00877,    .37784,
     +     .00000,    .78974,   1.00975,
     +     .02173,    .01043,  17.69841,   1.06290,    .43681,
     +     .00000,    .84494,   1.06389,
     +     .02232,    .01074,  21.64418,   1.18759,    .56899,
     +     .00000,    .97183,   1.18857,
     +     .02284,    .01103,  24.93999,   1.30408,    .69104,
     +     .16318,   1.09019,   1.30508,
     +     .02342,    .01134,  29.09822,   1.44531,    .83899,
     +     .33538,   1.23342,   1.44631,
     +     .02405,    .01168,  33.78132,   1.60404,   1.00469,
     +     .50848,   1.39418,   1.60504,
     +     .02461,    .01199,  38.32592,   1.75849,   1.16547,
     +     .67647,   1.55043,   1.75951 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02519,    .01229,  43.19866,   1.92485,   1.33842,
     +     .85625,   1.71856,   1.92587,
     +     .02567,    .01256,  47.43348,   2.07071,   1.48906,
     +    1.01097,   1.86585,   2.07175,
     +     .02626,    .01289,  52.78640,   2.25697,   1.68055,
     +    1.20685,   2.05381,   2.25802,
     +     .02679,    .01318,  57.74733,   2.43085,   1.85961,
     +    1.39081,   2.22915,   2.43190,
     +     .02728,    .01344,  62.47764,   2.59792,   2.03168,
     +    1.56767,   2.39754,   2.59898,
     +     .02791,    .01379,  68.63394,   2.81900,   2.25757,
     +    1.79753,   2.62025,   2.82008,
     +     .02850,    .01411,  74.64829,   3.03736,   2.48092,
     +    2.02542,   2.84013,   3.03846,
     +     .02905,    .01442,  80.49935,   3.25171,   2.70069,
     +    2.25044,   3.05586,   3.25282 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02962,    .01473,  86.41550,   3.47297,   2.92557,
     +    2.47831,   3.27846,   3.47409,
     +     .03017,    .01504,  92.38881,   3.69846,   3.15540,
     +    2.71219,   3.50524,   3.69960,
     +     .03071,    .01534,  98.17788,   3.91965,   3.38076,
     +    2.94148,   3.72764,   3.92080,
     +     .03121,    .01561, 103.68221,   4.13353,   3.59783,
     +    3.16142,   3.94263,   4.13470,
     +     .03172,    .01590, 109.37799,   4.35634,   3.82473,
     +    3.39229,   4.16653,   4.35752,
     +     .03222,    .01618, 114.96969,   4.57950,   4.05067,
     +    3.62075,   4.39076,   4.58069,
     +     .03271,    .01645, 120.45120,   4.79930,   4.27421,
     +    3.84794,   4.61156,   4.80051,
     +     .03316,    .01671, 125.60004,   5.00992,   4.48719,
     +    4.06315,   4.82312,   5.01115 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03363,    .01697, 130.92490,   5.22894,   4.70939,
     +    4.28846,   5.04306,   5.23018,
     +     .03409,    .01722, 136.17852,   5.44847,   4.93152,
     +    4.51311,   5.26349,   5.44973,
     +     .03454,    .01747, 141.25046,   5.66255,   5.14820,
     +    4.73230,   5.47842,   5.66383,
     +     .03496,    .01771, 146.13185,   5.87029,   5.35868,
     +    4.94554,   5.68696,   5.87158,
     +     .03540,    .01795, 151.01980,   6.08204,   5.57239,
     +    5.16121,   5.89950,   6.08333 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02419,    .01165,    .81414,    .43800,    .00000,
     +     .00000,    .23846,    .43817,
     +     .02470,    .01193,   1.61363,    .46478,    .00000,
     +     .00000,    .26689,    .46497,
     +     .02548,    .01233,   3.03118,    .51208,    .01470,
     +     .00000,    .31653,    .51227,
     +     .02606,    .01265,   4.30967,    .55196,    .01574,
     +     .00000,    .35806,    .55216,
     +     .02667,    .01298,   5.77773,    .59942,    .02751,
     +     .00000,    .40718,    .59962,
     +     .02720,    .01327,   7.12310,    .64439,    .08052,
     +     .00000,    .45352,    .64461,
     +     .02771,    .01354,   8.55386,    .69117,    .13983,
     +     .00000,    .50158,    .69139,
     +     .02826,    .01384,  10.23060,    .74484,    .19997,
     +     .00000,    .55659,    .74507 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02874,    .01410,  11.77924,    .79483,    .25316,
     +     .00000,    .60772,    .79507,
     +     .02920,    .01436,  13.37247,    .84608,    .30807,
     +     .00000,    .66004,    .84634,
     +     .02957,    .01457,  14.72028,    .88886,    .35477,
     +     .00000,    .70365,    .88912,
     +     .03037,    .01500,  17.77885,    .98651,    .45854,
     +     .00000,    .80303,    .98681,
     +     .03107,    .01540,  20.28536,   1.07688,    .55339,
     +     .12597,    .89482,   1.07719,
     +     .03188,    .01584,  23.40845,   1.18542,    .66733,
     +     .25930,   1.00493,   1.18574,
     +     .03271,    .01631,  26.87546,   1.30621,    .79367,
     +     .39170,   1.12731,   1.30657,
     +     .03348,    .01674,  30.19462,   1.42266,    .91512,
     +     .51900,   1.24516,   1.42305 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03427,    .01718,  33.70937,   1.54705,   1.04464,
     +     .65403,   1.37091,   1.54746,
     +     .03492,    .01754,  36.72932,   1.65523,   1.15654,
     +     .76928,   1.48020,   1.65568,
     +     .03572,    .01799,  40.50425,   1.79231,   1.29767,
     +     .91403,   1.61859,   1.79278,
     +     .03644,    .01839,  43.96534,   1.91930,   1.42862,
     +    1.04894,   1.74672,   1.91980,
     +     .03709,    .01877,  47.23445,   2.04049,   1.55365,
     +    1.17779,   1.86893,   2.04102,
     +     .03794,    .01924,  51.44261,   2.19964,   1.71645,
     +    1.34384,   2.02934,   2.20020,
     +     .03874,    .01969,  55.51021,   2.35561,   1.87619,
     +    1.50724,   2.18647,   2.35620,
     +     .03949,    .02011,  59.43000,   2.50766,   2.03231,
     +    1.66749,   2.33959,   2.50828 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04025,    .02054,  63.35131,   2.66340,   2.19079,
     +    1.82843,   2.49638,   2.66407,
     +     .04099,    .02096,  67.27637,   2.82113,   2.35176,
     +    1.99262,   2.65510,   2.82182,
     +     .04170,    .02137,  71.04786,   2.97487,   2.50859,
     +    2.15256,   2.80977,   2.97559,
     +     .04237,    .02175,  74.60186,   3.12257,   2.65866,
     +    2.30495,   2.95833,   3.12332,
     +     .04305,    .02213,  78.25466,   3.27564,   2.81477,
     +    2.46416,   3.11225,   3.27642,
     +     .04373,    .02252,  81.80811,   3.42796,   2.96916,
     +    2.62060,   3.26540,   3.42878,
     +     .04437,    .02288,  85.27114,   3.57730,   3.12125,
     +    2.77552,   3.41551,   3.57815,
     +     .04498,    .02323,  88.49607,   3.71955,   3.26526,
     +    2.92133,   3.55848,   3.72043 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04561,    .02359,  91.81332,   3.86683,   3.41488,
     +    3.07338,   3.70648,   3.86774,
     +     .04622,    .02393,  95.06154,   4.01368,   3.56365,
     +    3.22415,   3.85402,   4.01462,
     +     .04681,    .02427,  98.17837,   4.15624,   3.70812,
     +    3.37060,   3.99723,   4.15720,
     +     .04737,    .02458, 101.16196,   4.29398,   3.84789,
     +    3.51251,   4.13560,   4.29498,
     +     .04794,    .02491, 104.12711,   4.43368,   3.98903,
     +    3.65522,   4.27591,   4.43470 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03305,    .01633,    .75212,    .37461,    .00000,
     +     .00000,    .20613,    .37487,
     +     .03374,    .01670,   1.47542,    .39809,    .00000,
     +     .00000,    .23095,    .39838,
     +     .03478,    .01727,   2.72150,    .43845,    .01442,
     +     .00000,    .27322,    .43878,
     +     .03557,    .01771,   3.82201,    .47184,    .01467,
     +     .00000,    .30794,    .47220,
     +     .03640,    .01816,   5.06053,    .51096,    .02395,
     +     .00000,    .34840,    .51134,
     +     .03710,    .01856,   6.17534,    .54757,    .06727,
     +     .00000,    .38611,    .54799,
     +     .03779,    .01895,   7.34408,    .58531,    .11556,
     +     .00000,    .42490,    .58575,
     +     .03853,    .01937,   8.69479,    .62824,    .16389,
     +     .00000,    .46890,    .62872 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03918,    .01974,   9.92529,    .66785,    .20622,
     +     .00000,    .50942,    .66836,
     +     .03981,    .02009,  11.17674,    .70817,    .24962,
     +     .00000,    .55061,    .70871,
     +     .04031,    .02038,  12.22572,    .74165,    .28633,
     +     .00000,    .58475,    .74220,
     +     .04139,    .02099,  14.57653,    .81739,    .36718,
     +     .00000,    .66188,    .81799,
     +     .04234,    .02154,  16.46521,    .88678,    .44034,
     +     .09567,    .73244,    .88743,
     +     .04342,    .02216,  18.78547,    .96935,    .52740,
     +     .19826,    .81626,    .97006,
     +     .04455,    .02280,  21.32188,   1.06032,    .62295,
     +     .29885,    .90851,   1.06110,
     +     .04559,    .02340,  23.71514,   1.14721,    .71394,
     +     .39466,    .99651,   1.14804 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04664,    .02401,  26.21585,   1.23919,    .81011,
     +     .49537,   1.08959,   1.24006,
     +     .04753,    .02451,  28.33830,   1.31853,    .89251,
     +     .58059,   1.16983,   1.31946,
     +     .04860,    .02513,  30.95964,   1.41825,    .99557,
     +     .68674,   1.27060,   1.41923,
     +     .04957,    .02569,  33.33548,   1.50990,   1.09046,
     +     .78492,   1.36318,   1.51094,
     +     .05045,    .02620,  35.55685,   1.59677,   1.18042,
     +     .87802,   1.45087,   1.59786,
     +     .05157,    .02685,  38.38230,   1.70990,   1.29656,
     +     .99698,   1.56501,   1.71105,
     +     .05264,    .02746,  41.08218,   1.81990,   1.40963,
     +    1.11311,   1.67595,   1.82110,
     +     .05366,    .02804,  43.65758,   1.92635,   1.51935,
     +    1.22621,   1.78326,   1.92762 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05466,    .02863,  46.20367,   2.03453,   1.62980,
     +    1.33881,   1.89227,   2.03585,
     +     .05566,    .02921,  48.72850,   2.14333,   1.74124,
     +    1.45295,   2.00189,   2.14472,
     +     .05660,    .02976,  51.13197,   2.24869,   1.84912,
     +    1.56341,   2.10800,   2.25014,
     +     .05750,    .03028,  53.37441,   2.34922,   1.95162,
     +    1.66790,   2.20923,   2.35072,
     +     .05841,    .03080,  55.66261,   2.45286,   2.05768,
     +    1.77651,   2.31355,   2.45441,
     +     .05931,    .03131,  57.86554,   2.55528,   2.16183,
     +    1.88244,   2.41663,   2.55689,
     +     .06016,    .03181,  59.99917,   2.65520,   2.26397,
     +    1.98691,   2.51719,   2.65687,
     +     .06097,    .03227,  61.96654,   2.74978,   2.36003,
     +    2.08453,   2.61234,   2.75149 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06179,    .03274,  63.97870,   2.84727,   2.45941,
     +    2.18592,   2.71042,   2.84903,
     +     .06260,    .03322,  65.93201,   2.94391,   2.55764,
     +    2.28586,   2.80762,   2.94572,
     +     .06339,    .03367,  67.79377,   3.03727,   2.65258,
     +    2.38247,   2.90152,   3.03914,
     +     .06413,    .03410,  69.56535,   3.12710,   2.74406,
     +    2.47571,   2.99186,   3.12901,
     +     .06488,    .03453,  71.31043,   3.21769,   2.83589,
     +    2.56891,   3.08295,   3.21965 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03974,    .01994,    .72282,    .34291,    .00000,
     +     .00000,    .19024,    .34356,
     +     .04055,    .02038,   1.40579,    .36444,    .00000,
     +     .00000,    .21297,    .36513,
     +     .04178,    .02107,   2.56049,    .40092,    .01435,
     +     .00000,    .25116,    .40169,
     +     .04271,    .02161,   3.56725,    .43079,    .01412,
     +     .00000,    .28223,    .43160,
     +     .04368,    .02217,   4.68602,    .46549,    .02203,
     +     .00000,    .31812,    .46635,
     +     .04453,    .02264,   5.68174,    .49775,    .06031,
     +     .00000,    .35138,    .49865,
     +     .04535,    .02312,   6.71629,    .53083,    .10293,
     +     .00000,    .38540,    .53178,
     +     .04622,    .02361,   7.90152,    .56828,    .14522,
     +     .00000,    .42380,    .56926 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04700,    .02406,   8.97201,    .60263,    .18206,
     +     .00000,    .45898,    .60367,
     +     .04774,    .02450,  10.05289,    .63745,    .21969,
     +     .00000,    .49457,    .63853,
     +     .04835,    .02484,  10.95372,    .66626,    .25141,
     +     .00000,    .52399,    .66739,
     +     .04962,    .02558,  12.95670,    .73115,    .32090,
     +     .00000,    .59013,    .73234,
     +     .05076,    .02625,  14.54675,    .79024,    .38342,
     +     .08053,    .65025,    .79149,
     +     .05204,    .02698,  16.48184,    .86015,    .45738,
     +     .16811,    .72129,    .86149,
     +     .05340,    .02777,  18.57678,    .93672,    .53808,
     +     .25335,    .79901,    .93813,
     +     .05462,    .02850,  20.53550,   1.00941,    .61448,
     +     .33407,    .87272,   1.01090 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05589,    .02922,  22.56501,   1.08597,    .69479,
     +     .41845,    .95027,   1.08753,
     +     .05693,    .02983,  24.27419,   1.15167,    .76325,
     +     .48949,   1.01678,   1.15330,
     +     .05821,    .03058,  26.36907,   1.23383,    .84844,
     +     .57752,   1.09989,   1.23555,
     +     .05935,    .03124,  28.25396,   1.30900,    .92651,
     +     .65856,   1.17588,   1.31079,
     +     .06039,    .03186,  30.00499,   1.37993,   1.00021,
     +     .73508,   1.24755,   1.38179,
     +     .06173,    .03264,  32.21513,   1.47183,   1.09486,
     +     .83234,   1.34038,   1.47378,
     +     .06300,    .03338,  34.31164,   1.56075,   1.18657,
     +     .92683,   1.43015,   1.56278,
     +     .06419,    .03408,  36.29862,   1.64644,   1.27516,
     +    1.01846,   1.51661,   1.64853 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06538,    .03478,  38.24785,   1.73305,   1.36387,
     +    1.10918,   1.60399,   1.73524,
     +     .06656,    .03547,  40.16936,   1.81983,   1.45302,
     +    1.20079,   1.69150,   1.82210,
     +     .06768,    .03611,  41.98753,   1.90351,   1.53897,
     +    1.28908,   1.77587,   1.90584,
     +     .06873,    .03673,  43.67280,   1.98302,   1.62028,
     +    1.37223,   1.85601,   1.98543,
     +     .06981,    .03735,  45.38465,   2.06472,   1.70415,
     +    1.45840,   1.93833,   2.06719,
     +     .07086,    .03797,  47.02125,   2.14509,   1.78613,
     +    1.54205,   2.01931,   2.14764,
     +     .07186,    .03856,  48.60032,   2.22329,   1.86631,
     +    1.62432,   2.09809,   2.22591,
     +     .07282,    .03910,  50.04653,   2.29700,   1.94140,
     +    1.70087,   2.17232,   2.29967 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07378,    .03967,  51.52039,   2.37276,   2.01888,
     +    1.78018,   2.24863,   2.37551,
     +     .07473,    .04022,  52.94282,   2.44760,   2.09518,
     +    1.85804,   2.32397,   2.45041,
     +     .07565,    .04075,  54.29262,   2.51968,   2.16870,
     +    1.93310,   2.39655,   2.52256,
     +     .07652,    .04126,  55.57205,   2.58886,   2.23936,
     +    2.00536,   2.46619,   2.59180,
     +     .07741,    .04177,  56.82463,   2.65836,   2.31002,
     +    2.07730,   2.53615,   2.66136 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04529,    .02296,    .70884,    .32227,    .00000,
     +     .00000,    .18006,    .32344,
     +     .04620,    .02348,   1.36472,    .34242,    .00000,
     +     .00000,    .20133,    .34364,
     +     .04757,    .02426,   2.45779,    .37628,    .01428,
     +     .00000,    .23676,    .37756,
     +     .04864,    .02487,   3.40160,    .40381,    .01370,
     +     .00000,    .26538,    .40516,
     +     .04974,    .02551,   4.44050,    .43559,    .02069,
     +     .00000,    .29829,    .43699,
     +     .05068,    .02606,   5.35729,    .46501,    .05567,
     +     .00000,    .32862,    .46647,
     +     .05162,    .02661,   6.30339,    .49507,    .09456,
     +     .00000,    .35955,    .49658,
     +     .05262,    .02719,   7.38027,    .52896,    .13291,
     +     .00000,    .39433,    .53053 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05348,    .02770,   8.34661,    .55995,    .16621,
     +     .00000,    .42607,    .56156,
     +     .05433,    .02819,   9.31708,    .59125,    .20010,
     +     .00000,    .45810,    .59292,
     +     .05501,    .02859,  10.12240,    .61711,    .22862,
     +     .00000,    .48451,    .61881,
     +     .05646,    .02944,  11.90269,    .67507,    .29084,
     +     .00000,    .54364,    .67687,
     +     .05774,    .03019,  13.30308,    .72765,    .34659,
     +     .07089,    .59717,    .72952,
     +     .05920,    .03106,  14.99522,    .78959,    .41228,
     +     .14896,    .66018,    .79156,
     +     .06072,    .03195,  16.81389,    .85711,    .48361,
     +     .22450,    .72876,    .85918,
     +     .06211,    .03277,  18.50262,    .92096,    .55085,
     +     .29574,    .79356,    .92311 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06354,    .03361,  20.24130,    .98792,    .62128,
     +     .36994,    .86144,    .99016,
     +     .06472,    .03431,  21.69699,   1.04517,    .68108,
     +     .43216,    .91946,   1.04750,
     +     .06616,    .03516,  23.47085,   1.11651,    .75522,
     +     .50896,    .99168,   1.11894,
     +     .06744,    .03592,  25.05812,   1.18154,    .82292,
     +     .57944,   1.05748,   1.18404,
     +     .06862,    .03661,  26.52553,   1.24270,    .88662,
     +     .64576,   1.11934,   1.24528,
     +     .07014,    .03750,  28.36678,   1.32164,    .96813,
     +     .72973,   1.19915,   1.32434,
     +     .07156,    .03833,  30.10370,   1.39775,   1.04680,
     +     .81101,   1.27605,   1.40054,
     +     .07289,    .03913,  31.74181,   1.47084,   1.12256,
     +     .88958,   1.34987,   1.47372 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07424,    .03991,  33.33921,   1.54446,   1.19813,
     +     .96707,   1.42421,   1.54743,
     +     .07556,    .04069,  34.90677,   1.61796,   1.27384,
     +    1.04508,   1.49841,   1.62104,
     +     .07682,    .04143,  36.38318,   1.68865,   1.34662,
     +    1.12004,   1.56973,   1.69180,
     +     .07801,    .04213,  37.74469,   1.75558,   1.41523,
     +    1.19040,   1.63726,   1.75882,
     +     .07921,    .04282,  39.12288,   1.82418,   1.48584,
     +    1.26314,   1.70646,   1.82750,
     +     .08039,    .04351,  40.43328,   1.89145,   1.55462,
     +    1.33351,   1.77430,   1.89487,
     +     .08151,    .04418,  41.69398,   1.95676,   1.62176,
     +    1.40259,   1.84015,   1.96025,
     +     .08258,    .04480,  42.84239,   2.01812,   1.68442,
     +    1.46664,   1.90202,   2.02169 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08365,    .04543,  44.00960,   2.08108,   1.74897,
     +    1.53290,   1.96548,   2.08472,
     +     .08472,    .04605,  45.13085,   2.14309,   1.81235,
     +    1.59776,   2.02798,   2.14680,
     +     .08575,    .04665,  46.19116,   2.20268,   1.87329,
     +    1.66014,   2.08803,   2.20647,
     +     .08672,    .04722,  47.19318,   2.25975,   1.93174,
     +    1.72007,   2.14553,   2.26360,
     +     .08769,    .04778,  48.16921,   2.31694,   1.99002,
     +    1.77958,   2.20316,   2.32087 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05015,    .02574,    .70533,    .30816,    .00000,
     +     .00000,    .17282,    .30941,
     +     .05116,    .02631,   1.34069,    .32723,    .00000,
     +     .00000,    .19292,    .32854,
     +     .05268,    .02720,   2.38704,    .35907,    .01416,
     +     .00000,    .22620,    .36045,
     +     .05383,    .02788,   3.28315,    .38479,    .01332,
     +     .00000,    .25296,    .38625,
     +     .05505,    .02858,   4.26166,    .41439,    .01963,
     +     .00000,    .28357,    .41592,
     +     .05610,    .02920,   5.11912,    .44168,    .05213,
     +     .00000,    .31171,    .44328,
     +     .05712,    .02981,   5.99898,    .46947,    .08824,
     +     .00000,    .34031,    .47114,
     +     .05822,    .03045,   6.99492,    .50074,    .12368,
     +     .00000,    .37241,    .50248 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05918,    .03102,   7.88386,    .52924,    .15436,
     +     .00000,    .40160,    .53103,
     +     .06012,    .03158,   8.77255,    .55795,    .18551,
     +     .00000,    .43099,    .55981,
     +     .06087,    .03202,   9.50732,    .58161,    .21167,
     +     .00000,    .45517,    .58352,
     +     .06247,    .03297,  11.12389,    .63454,    .26858,
     +     .00000,    .50917,    .63655,
     +     .06388,    .03381,  12.38577,    .68238,    .31939,
     +     .06392,    .55790,    .68448,
     +     .06548,    .03475,  13.90154,    .73853,    .37906,
     +     .13505,    .61505,    .74075,
     +     .06716,    .03574,  15.52078,    .79953,    .44362,
     +     .20357,    .67704,    .80186,
     +     .06870,    .03666,  17.01565,    .85700,    .50426,
     +     .26796,    .73540,    .85944 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07025,    .03758,  18.54650,    .91707,    .56757,
     +     .33480,    .79634,    .91962,
     +     .07155,    .03835,  19.82182,    .96829,    .62116,
     +     .39066,    .84826,    .97093,
     +     .07314,    .03929,  21.36821,   1.03189,    .68738,
     +     .45943,    .91270,   1.03464,
     +     .07454,    .04012,  22.74554,   1.08970,    .74769,
     +     .52233,    .97123,   1.09254,
     +     .07585,    .04089,  24.01369,   1.14394,    .80428,
     +     .58138,   1.02612,   1.14687,
     +     .07750,    .04186,  25.59698,   1.21371,    .87645,
     +     .65589,   1.09671,   1.21677,
     +     .07905,    .04278,  27.08358,   1.28077,    .94590,
     +     .72780,   1.16452,   1.28394,
     +     .08052,    .04365,  28.47983,   1.34499,   1.01261,
     +     .79714,   1.22943,   1.34827 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08199,    .04451,  29.83414,   1.40947,   1.07891,
     +     .86527,   1.29458,   1.41285,
     +     .08343,    .04536,  31.15809,   1.47368,   1.14520,
     +     .93372,   1.35946,   1.47717,
     +     .08481,    .04616,  32.40022,   1.53527,   1.20874,
     +     .99931,   1.42165,   1.53886,
     +     .08609,    .04692,  33.54046,   1.59343,   1.26848,
     +    1.06071,   1.48038,   1.59712,
     +     .08741,    .04769,  34.69123,   1.65292,   1.32985,
     +    1.12407,   1.54043,   1.65670,
     +     .08868,    .04844,  35.78031,   1.71110,   1.38945,
     +    1.18519,   1.59915,   1.71498,
     +     .08992,    .04916,  36.82553,   1.76747,   1.44753,
     +    1.24508,   1.65603,   1.77144,
     +     .09108,    .04984,  37.77323,   1.82030,   1.50159,
     +    1.30047,   1.70934,   1.82435 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09224,    .05051,  38.73423,   1.87441,   1.55720,
     +    1.35767,   1.76393,   1.87856,
     +     .09341,    .05119,  39.65346,   1.92758,   1.61167,
     +    1.41354,   1.81757,   1.93181,
     +     .09452,    .05184,  40.52009,   1.97859,   1.66393,
     +    1.46716,   1.86901,   1.98289,
     +     .09557,    .05245,  41.33694,   2.02733,   1.71398,
     +    1.51860,   1.91818,   2.03172,
     +     .09663,    .05307,  42.12898,   2.07608,   1.76378,
     +    1.56956,   1.96732,   2.08054 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06909,    .03687,    .71374,    .26986,    .00000,
     +     .00000,    .15364,    .27212,
     +     .07041,    .03767,   1.28968,    .28551,    .00000,
     +     .00000,    .17013,    .28786,
     +     .07245,    .03890,   2.19968,    .31120,    .01358,
     +     .00000,    .19700,    .31369,
     +     .07402,    .03985,   2.95763,    .33168,    .01194,
     +     .00000,    .21831,    .33427,
     +     .07566,    .04085,   3.76333,    .35496,    .01628,
     +     .00000,    .24241,    .35766,
     +     .07707,    .04170,   4.45264,    .37622,    .04182,
     +     .00000,    .26438,    .37902,
     +     .07844,    .04254,   5.14643,    .39769,    .07017,
     +     .00000,    .28651,    .40060,
     +     .07994,    .04344,   5.91732,    .42163,    .09758,
     +     .00000,    .31115,    .42465 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08123,    .04422,   6.59303,    .44326,    .12107,
     +     .00000,    .33336,    .44638,
     +     .08249,    .04499,   7.25828,    .46490,    .14476,
     +     .00000,    .35554,    .46810,
     +     .08350,    .04560,   7.80166,    .48262,    .16453,
     +     .00000,    .37370,    .48590,
     +     .08567,    .04691,   8.97774,    .52190,    .20712,
     +     .00000,    .41388,    .52534,
     +     .08756,    .04805,   9.87269,    .55699,    .24474,
     +     .04494,    .44972,    .56057,
     +     .08971,    .04934,  10.92466,    .59775,    .28842,
     +     .09760,    .49131,    .60149,
     +     .09196,    .05069,  12.02525,    .64148,    .33513,
     +     .14758,    .53590,    .64540,
     +     .09401,    .05192,  13.02133,    .68222,    .37850,
     +     .19402,    .57738,    .68630 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09608,    .05316,  14.02284,    .72434,    .42329,
     +     .24171,    .62025,    .72858,
     +     .09781,    .05419,  14.84294,    .75988,    .46082,
     +     .28116,    .65639,    .76426,
     +     .09992,    .05544,  15.82061,    .80357,    .50673,
     +     .32923,    .70080,    .80812,
     +     .10178,    .05654,  16.67743,    .84288,    .54811,
     +     .37278,    .74074,    .84758,
     +     .10349,    .05756,  17.45510,    .87944,    .58662,
     +     .41331,    .77786,    .88427,
     +     .10567,    .05885,  18.40882,    .92598,    .63521,
     +     .46391,    .82511,    .93098,
     +     .10772,    .06005,  19.28956,    .97024,    .68149,
     +     .51226,    .87002,    .97540,
     +     .10964,    .06118,  20.10479,   1.01224,    .72555,
     +     .55846,    .91262,   1.01756 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11156,    .06231,  20.88066,   1.05395,    .76887,
     +     .60338,    .95493,   1.05941,
     +     .11344,    .06341,  21.62884,   1.09514,    .81180,
     +     .64812,    .99669,   1.10076,
     +     .11523,    .06445,  22.32083,   1.13429,    .85261,
     +     .69064,   1.03637,   1.14005,
     +     .11690,    .06542,  22.94561,   1.17093,    .89062,
     +     .73007,   1.07351,   1.17682,
     +     .11858,    .06640,  23.56967,   1.20813,    .92943,
     +     .77052,   1.11122,   1.21417,
     +     .12024,    .06736,  24.14937,   1.24418,    .96674,
     +     .80914,   1.14774,   1.25034,
     +     .12182,    .06828,  24.70114,   1.27889,   1.00290,
     +     .84679,   1.18291,   1.28518,
     +     .12330,    .06913,  25.19207,   1.31112,   1.03623,
     +     .88127,   1.21556,   1.31752 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12480,    .07000,  25.68593,   1.34395,   1.07034,
     +     .91670,   1.24882,   1.35047,
     +     .12627,    .07085,  26.15066,   1.37594,   1.10350,
     +     .95105,   1.28123,   1.38258,
     +     .12768,    .07165,  26.58376,   1.40643,   1.13510,
     +     .98380,   1.31212,   1.41318,
     +     .12902,    .07242,  26.98799,   1.43541,   1.16520,
     +    1.01505,   1.34147,   1.44226,
     +     .13037,    .07319,  27.37267,   1.46413,   1.19489,
     +    1.04574,   1.37057,   1.47110 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09569,    .05325,    .78494,    .23943,    .00000,
     +     .00000,    .13805,    .24334,
     +     .09748,    .05437,   1.30253,    .25166,    .00000,
     +     .00000,    .15097,    .25571,
     +     .10024,    .05607,   2.08198,    .27156,    .01209,
     +     .00000,    .17184,    .27582,
     +     .10234,    .05738,   2.70968,    .28726,    .00975,
     +     .00000,    .18825,    .29169,
     +     .10455,    .05875,   3.35711,    .30495,    .01240,
     +     .00000,    .20665,    .30956,
     +     .10647,    .05992,   3.89564,    .32099,    .03200,
     +     .00000,    .22329,    .32576,
     +     .10833,    .06106,   4.42562,    .33707,    .05375,
     +     .00000,    .23993,    .34200,
     +     .11033,    .06230,   5.00191,    .35485,    .07444,
     +     .00000,    .25830,    .35994 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11208,    .06337,   5.49649,    .37077,    .09198,
     +     .00000,    .27472,    .37600,
     +     .11377,    .06439,   5.97475,    .38656,    .10955,
     +     .00000,    .29100,    .39194,
     +     .11514,    .06523,   6.35987,    .39942,    .12411,
     +     .00000,    .30424,    .40491,
     +     .11803,    .06698,   7.17777,    .42762,    .15518,
     +     .00000,    .33324,    .43336,
     +     .12057,    .06850,   7.78203,    .45251,    .18225,
     +     .02937,    .35880,    .45847,
     +     .12342,    .07020,   8.47200,    .48107,    .21333,
     +     .06738,    .38809,    .48727,
     +     .12639,    .07197,   9.17579,    .51129,    .24611,
     +     .10287,    .41907,    .51775,
     +     .12910,    .07357,   9.79730,    .53908,    .27616,
     +     .13542,    .44752,    .54576 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13183,    .07518,  10.40822,    .56743,    .30681,
     +     .16844,    .47656,    .57435,
     +     .13409,    .07652,  10.89796,    .59108,    .33219,
     +     .19543,    .50076,    .59819,
     +     .13683,    .07811,  11.46919,    .61980,    .36287,
     +     .22795,    .53013,    .62714,
     +     .13925,    .07952,  11.95961,    .64534,    .39022,
     +     .25710,    .55625,    .65289,
     +     .14147,    .08081,  12.39660,    .66885,    .41541,
     +     .28395,    .58028,    .67659,
     +     .14427,    .08243,  12.91979,    .69838,    .44680,
     +     .31705,    .61047,    .70636,
     +     .14689,    .08394,  13.39242,    .72612,    .47636,
     +     .34834,    .63882,    .73433,
     +     .14935,    .08535,  13.82152,    .75217,    .50420,
     +     .37793,    .66544,    .76059 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15179,    .08673,  14.21894,    .77769,    .53120,
     +     .40632,    .69151,    .78631,
     +     .15417,    .08809,  14.59514,    .80263,    .55772,
     +     .43434,    .71699,    .81145,
     +     .15641,    .08937,  14.93616,    .82609,    .58268,
     +     .46071,    .74096,    .83510,
     +     .15852,    .09055,  15.23656,    .84779,    .60566,
     +     .48490,    .76313,    .85698,
     +     .16062,    .09174,  15.53250,    .86965,    .62895,
     +     .50953,    .78548,    .87903,
     +     .16268,    .09289,  15.79904,    .89056,    .65107,
     +     .53277,    .80684,    .90010,
     +     .16464,    .09398,  16.04998,    .91055,    .67238,
     +     .55530,    .82728,    .92027,
     +     .16648,    .09500,  16.26621,    .92890,    .69179,
     +     .57569,    .84603,    .93877 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16832,    .09602,  16.48139,    .94747,    .71154,
     +     .59653,    .86502,    .95748,
     +     .17013,    .09703,  16.67809,    .96537,    .73053,
     +     .61653,    .88332,    .97554,
     +     .17186,    .09798,  16.85788,    .98228,    .74852,
     +     .63547,    .90062,    .99259,
     +     .17349,    .09887,  17.02311,    .99824,    .76553,
     +     .65343,    .91695,   1.00870,
     +     .17512,    .09978,  17.17478,   1.01391,    .78213,
     +     .67088,    .93297,   1.02449 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11598,    .06601,    .87050,    .22350,    .00000,
     +     .00000,    .12954,    .22883,
     +     .11812,    .06737,   1.34894,    .23383,    .00000,
     +     .00000,    .14049,    .23935,
     +     .12142,    .06946,   2.05151,    .25059,    .01045,
     +     .00000,    .15816,    .25638,
     +     .12394,    .07103,   2.60395,    .26375,    .00780,
     +     .00000,    .17199,    .26979,
     +     .12660,    .07267,   3.16272,    .27854,    .00966,
     +     .00000,    .18746,    .28481,
     +     .12888,    .07407,   3.61894,    .29191,    .02623,
     +     .00000,    .20138,    .29839,
     +     .13110,    .07543,   4.06120,    .30524,    .04464,
     +     .00000,    .21526,    .31191,
     +     .13349,    .07689,   4.53524,    .31991,    .06197,
     +     .00000,    .23048,    .32680 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13556,    .07814,   4.93646,    .33296,    .07656,
     +     .00000,    .24402,    .34003,
     +     .13759,    .07937,   5.31975,    .34585,    .09111,
     +     .00000,    .25737,    .35310,
     +     .13919,    .08034,   5.62546,    .35631,    .10313,
     +     .00000,    .26819,    .36370,
     +     .14262,    .08238,   6.26646,    .37909,    .12858,
     +     .00000,    .29175,    .38680,
     +     .14560,    .08414,   6.73084,    .39903,    .15058,
     +     .02162,    .31234,    .40700,
     +     .14895,    .08612,   7.24899,    .42170,    .17563,
     +     .05257,    .33573,    .42997,
     +     .15242,    .08814,   7.76825,    .44548,    .20181,
     +     .08117,    .36025,    .45406,
     +     .15556,    .08997,   8.21887,    .46713,    .22561,
     +     .10719,    .38257,    .47600 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15874,    .09180,   8.65455,    .48906,    .24969,
     +     .13337,    .40517,    .49821,
     +     .16135,    .09330,   8.99813,    .50718,    .26946,
     +     .15461,    .42383,    .51656,
     +     .16450,    .09511,   9.39226,    .52901,    .29319,
     +     .18001,    .44632,    .53867,
     +     .16729,    .09669,   9.72532,    .54827,    .31418,
     +     .20260,    .46616,    .55817,
     +     .16983,    .09813,  10.01788,    .56586,    .33339,
     +     .22328,    .48428,    .57599,
     +     .17302,    .09992,  10.36163,    .58776,    .35710,
     +     .24857,    .50684,    .59817,
     +     .17601,    .10158,  10.66658,    .60816,    .37926,
     +     .27228,    .52785,    .61883,
     +     .17880,    .10314,  10.93906,    .62716,    .39999,
     +     .29456,    .54743,    .63808 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18154,    .10466,  11.18562,    .64561,    .41992,
     +     .31575,    .56644,    .65676,
     +     .18422,    .10613,  11.41536,    .66350,    .43935,
     +     .33654,    .58488,    .67488,
     +     .18674,    .10751,  11.61990,    .68020,    .45751,
     +     .35596,    .60209,    .69179,
     +     .18908,    .10879,  11.79555,    .69550,    .47412,
     +     .37366,    .61788,    .70730,
     +     .19144,    .11006,  11.96645,    .71085,    .49085,
     +     .39158,    .63371,    .72285,
     +     .19372,    .11129,  12.11573,    .72537,    .50662,
     +     .40837,    .64872,    .73757,
     +     .19588,    .11246,  12.25505,    .73922,    .52174,
     +     .42457,    .66300,    .75160,
     +     .19791,    .11355,  12.37075,    .75179,    .53540,
     +     .43913,    .67599,    .76434 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19994,    .11464,  12.48474,    .76444,    .54924,
     +     .45394,    .68907,    .77717,
     +     .20192,    .11569,  12.58539,    .77655,    .56245,
     +     .46805,    .70160,    .78944,
     +     .20381,    .11668,  12.67538,    .78793,    .57489,
     +     .48135,    .71337,    .80098,
     +     .20559,    .11763,  12.75653,    .79862,    .58662,
     +     .49392,    .72443,    .81181,
     +     .20737,    .11855,  12.82723,    .80899,    .59797,
     +     .50604,    .73518,    .82233 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13305,    .07687,    .95593,    .21263,    .00000,
     +     .00000,    .12342,    .21927,
     +     .13550,    .07843,   1.40303,    .22167,    .00000,
     +     .00000,    .13308,    .22855,
     +     .13927,    .08081,   2.04909,    .23634,    .00879,
     +     .00000,    .14862,    .24357,
     +     .14214,    .08259,   2.54728,    .24786,    .00602,
     +     .00000,    .16077,    .25535,
     +     .14517,    .08444,   3.04367,    .26075,    .00740,
     +     .00000,    .17433,    .26853,
     +     .14776,    .08602,   3.44307,    .27237,    .02203,
     +     .00000,    .18650,    .28039,
     +     .15027,    .08755,   3.82572,    .28393,    .03830,
     +     .00000,    .19859,    .29218,
     +     .15297,    .08918,   4.23136,    .29659,    .05348,
     +     .00000,    .21181,    .30510 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15533,    .09059,   4.57094,    .30781,    .06620,
     +     .00000,    .22352,    .31653,
     +     .15759,    .09194,   4.89228,    .31884,    .07883,
     +     .00000,    .23501,    .32778,
     +     .15941,    .09303,   5.14662,    .32776,    .08923,
     +     .00000,    .24430,    .33687,
     +     .16326,    .09528,   5.67462,    .34710,    .11115,
     +     .00000,    .26441,    .35657,
     +     .16658,    .09721,   6.05142,    .36390,    .12998,
     +     .01663,    .28187,    .37369,
     +     .17030,    .09936,   6.46302,    .38289,    .15128,
     +     .04317,    .30158,    .39302,
     +     .17416,    .10157,   6.86941,    .40264,    .17338,
     +     .06750,    .32210,    .41312,
     +     .17763,    .10355,   7.21686,    .42050,    .19334,
     +     .08950,    .34064,    .43130 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18114,    .10552,   7.54803,    .43846,    .21340,
     +     .11150,    .35928,    .44957,
     +     .18400,    .10713,   7.80553,    .45319,    .22978,
     +     .12923,    .37458,    .46458,
     +     .18747,    .10905,   8.09654,    .47084,    .24929,
     +     .15031,    .39289,    .48253,
     +     .19050,    .11073,   8.33903,    .48629,    .26647,
     +     .16896,    .40894,    .49826,
     +     .19327,    .11226,   8.54928,    .50032,    .28209,
     +     .18594,    .42351,    .51254,
     +     .19673,    .11415,   8.79169,    .51766,    .30125,
     +     .20657,    .44153,    .53019,
     +     .19996,    .11590,   9.00308,    .53370,    .31905,
     +     .22580,    .45820,    .54650,
     +     .20298,    .11752,   9.18913,    .54854,    .33561,
     +     .24378,    .47362,    .56161 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20593,    .11910,   9.35321,    .56282,    .35140,
     +     .26075,    .48849,    .57614,
     +     .20880,    .12062,   9.50361,    .57659,    .36673,
     +     .27733,    .50282,    .59016,
     +     .21148,    .12205,   9.63492,    .58936,    .38098,
     +     .29274,    .51613,    .60317,
     +     .21399,    .12336,   9.74455,    .60098,    .39391,
     +     .30669,    .52825,    .61500,
     +     .21649,    .12467,   9.84979,    .61257,    .40691,
     +     .32078,    .54034,    .62680,
     +     .21890,    .12592,   9.93808,    .62345,    .41905,
     +     .33388,    .55172,    .63789,
     +     .22119,    .12711,  10.01967,    .63378,    .43067,
     +     .34648,    .56251,    .64841,
     +     .22332,    .12821,  10.08400,    .64308,    .44109,
     +     .35773,    .57224,    .65789 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22546,    .12931,  10.14660,    .65241,    .45161,
     +     .36915,    .58200,    .66739,
     +     .22754,    .13037,  10.19902,    .66127,    .46161,
     +     .37998,    .59129,    .67643,
     +     .22950,    .13138,  10.24425,    .66955,    .47097,
     +     .39013,    .59998,    .68486,
     +     .23136,    .13231,  10.28382,    .67729,    .47976,
     +     .39970,    .60810,    .69275,
     +     .23321,    .13324,  10.31502,    .68473,    .48822,
     +     .40886,    .61594,    .70035 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14796,    .08640,   1.03703,    .20400,    .00000,
     +     .00000,    .11838,    .21179,
     +     .15071,    .08815,   1.45769,    .21211,    .00000,
     +     .00000,    .12707,    .22018,
     +     .15490,    .09079,   2.05814,    .22527,    .00716,
     +     .00000,    .14110,    .23374,
     +     .15810,    .09276,   2.51327,    .23558,    .00436,
     +     .00000,    .15205,    .24436,
     +     .16145,    .09478,   2.96118,    .24711,    .00546,
     +     .00000,    .16423,    .25623,
     +     .16431,    .09652,   3.31708,    .25748,    .01869,
     +     .00000,    .17516,    .26688,
     +     .16707,    .09819,   3.65478,    .26776,    .03341,
     +     .00000,    .18597,    .27743,
     +     .17005,    .09996,   4.00948,    .27899,    .04705,
     +     .00000,    .19777,    .28894 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17263,    .10147,   4.30364,    .28888,    .05845,
     +     .00000,    .20816,    .29911,
     +     .17513,    .10293,   4.57972,    .29859,    .06973,
     +     .00000,    .21833,    .30905,
     +     .17712,    .10409,   4.79688,    .30641,    .07898,
     +     .00000,    .22653,    .31706,
     +     .18132,    .10652,   5.24399,    .32330,    .09840,
     +     .00000,    .24421,    .33435,
     +     .18493,    .10857,   5.55893,    .33789,    .11500,
     +     .01305,    .25947,    .34928,
     +     .18895,    .11085,   5.89603,    .35427,    .13366,
     +     .03649,    .27659,    .36604,
     +     .19312,    .11318,   6.22440,    .37120,    .15293,
     +     .05784,    .29431,    .38336,
     +     .19686,    .11526,   6.50134,    .38639,    .17022,
     +     .07704,    .31020,    .39892 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20062,    .11731,   6.76184,    .40159,    .18750,
     +     .09612,    .32610,    .41445,
     +     .20369,    .11900,   6.96152,    .41399,    .20154,
     +     .11145,    .33908,    .42713,
     +     .20737,    .12099,   7.18406,    .42874,    .21818,
     +     .12956,    .35452,    .44221,
     +     .21061,    .12273,   7.36701,    .44158,    .23275,
     +     .14551,    .36798,    .45535,
     +     .21355,    .12430,   7.52362,    .45319,    .24594,
     +     .15997,    .38015,    .46721,
     +     .21721,    .12624,   7.70060,    .46742,    .26203,
     +     .17745,    .39507,    .48177,
     +     .22061,    .12803,   7.85217,    .48049,    .27689,
     +     .19366,    .40880,    .49515,
     +     .22377,    .12968,   7.98345,    .49253,    .29065,
     +     .20875,    .42146,    .50747 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22686,    .13128,   8.09573,    .50402,    .30369,
     +     .22291,    .43355,    .51923,
     +     .22986,    .13282,   8.19658,    .51505,    .31629,
     +     .23668,    .44516,    .53051,
     +     .23266,    .13425,   8.28239,    .52521,    .32795,
     +     .24943,    .45588,    .54091,
     +     .23526,    .13557,   8.35158,    .53439,    .33849,
     +     .26092,    .46558,    .55032,
     +     .23784,    .13688,   8.41699,    .54351,    .34902,
     +     .27247,    .47522,    .55965,
     +     .24033,    .13812,   8.46859,    .55200,    .35882,
     +     .28317,    .48421,    .56835,
     +     .24269,    .13931,   8.51565,    .56004,    .36815,
     +     .29342,    .49272,    .57657,
     +     .24487,    .14038,   8.54953,    .56720,    .37647,
     +     .30253,    .50034,    .58392 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24706,    .14146,   8.58181,    .57439,    .38487,
     +     .31175,    .50797,    .59128,
     +     .24919,    .14250,   8.60610,    .58114,    .39278,
     +     .32045,    .51516,    .59820,
     +     .25120,    .14348,   8.62542,    .58742,    .40017,
     +     .32858,    .52186,    .60464,
     +     .25309,    .14439,   8.64108,    .59325,    .40709,
     +     .33621,    .52810,    .61063,
     +     .25496,    .14529,   8.64986,    .59882,    .41370,
     +     .34349,    .53407,    .61635 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17389,    .10294,   1.18026,    .19073,    .00000,
     +     .00000,    .11031,    .20071,
     +     .17715,    .10500,   1.55613,    .19754,    .00000,
     +     .00000,    .11771,    .20789,
     +     .18213,    .10806,   2.08392,    .20856,    .00417,
     +     .00000,    .12963,    .21946,
     +     .18587,    .11031,   2.47199,    .21718,    .00144,
     +     .00000,    .13892,    .22847,
     +     .18976,    .11262,   2.84619,    .22679,    .00224,
     +     .00000,    .14920,    .23848,
     +     .19307,    .11458,   3.13729,    .23541,    .01354,
     +     .00000,    .15840,    .24744,
     +     .19629,    .11643,   3.40905,    .24389,    .02611,
     +     .00000,    .16745,    .25625,
     +     .19972,    .11840,   3.69014,    .25310,    .03766,
     +     .00000,    .17726,    .26581 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20267,    .12009,   3.91969,    .26117,    .04723,
     +     .00000,    .18585,    .27417,
     +     .20551,    .12170,   4.13213,    .26902,    .05665,
     +     .00000,    .19420,    .28232,
     +     .20778,    .12297,   4.29741,    .27532,    .06435,
     +     .00000,    .20090,    .28886,
     +     .21252,    .12561,   4.63275,    .28883,    .08038,
     +     .00000,    .21524,    .30282,
     +     .21658,    .12782,   4.86410,    .30035,    .09394,
     +     .00813,    .22748,    .31474,
     +     .22107,    .13025,   5.10139,    .31317,    .10907,
     +     .02736,    .24110,    .32798,
     +     .22568,    .13271,   5.32672,    .32625,    .12451,
     +     .04470,    .25503,    .34151,
     +     .22980,    .13489,   5.51182,    .33788,    .13824,
     +     .06014,    .26740,    .35352 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23391,    .13704,   5.68139,    .34936,    .15185,
     +     .07538,    .27964,    .36539,
     +     .23726,    .13877,   5.80770,    .35864,    .16280,
     +     .08749,    .28953,    .37497,
     +     .24124,    .14082,   5.94430,    .36954,    .17567,
     +     .10171,    .30118,    .38624,
     +     .24474,    .14258,   6.05322,    .37895,    .18684,
     +     .11413,    .31123,    .39595,
     +     .24788,    .14417,   6.14364,    .38735,    .19688,
     +     .12531,    .32024,    .40463,
     +     .25178,    .14612,   6.24079,    .39754,    .20900,
     +     .13870,    .33117,    .41516,
     +     .25538,    .14789,   6.32034,    .40679,    .22010,
     +     .15102,    .34113,    .42472,
     +     .25872,    .14952,   6.38642,    .41522,    .23029,
     +     .16240,    .35021,    .43343 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26195,    .15108,   6.43768,    .42315,    .23986,
     +     .17299,    .35878,    .44164,
     +     .26507,    .15258,   6.48110,    .43067,    .24903,
     +     .18321,    .36693,    .44941,
     +     .26796,    .15396,   6.51513,    .43753,    .25744,
     +     .19261,    .37438,    .45651,
     +     .27062,    .15522,   6.53839,    .44364,    .26497,
     +     .20099,    .38103,    .46284,
     +     .27329,    .15646,   6.55870,    .44967,    .27245,
     +     .20939,    .38761,    .46907,
     +     .27582,    .15763,   6.56956,    .45518,    .27934,
     +     .21709,    .39365,    .47478,
     +     .27822,    .15873,   6.57855,    .46035,    .28587,
     +     .22444,    .39933,    .48014,
     +     .28041,    .15973,   6.57939,    .46490,    .29163,
     +     .23091,    .40436,    .48485 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28262,    .16073,   6.57903,    .46940,    .29741,
     +     .23743,    .40934,    .48953,
     +     .28474,    .16167,   6.57342,    .47359,    .30281,
     +     .24353,    .41400,    .49388,
     +     .28673,    .16257,   6.56552,    .47744,    .30781,
     +     .24920,    .41829,    .49787,
     +     .28861,    .16340,   6.55628,    .48099,    .31247,
     +     .25450,    .42225,    .50156,
     +     .29044,    .16419,   6.54211,    .48431,    .31687,
     +     .25950,    .42599,    .50499 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20654,    .12359,   1.35471,    .17560,    .00000,
     +     .00000,    .10073,    .18857,
     +     .21052,    .12601,   1.67516,    .18117,    .00000,
     +     .00000,    .10695,    .19462,
     +     .21648,    .12954,   2.11921,    .19019,    .00032,
     +     .00000,    .11694,    .20434,
     +     .22089,    .13209,   2.43278,    .19719,   -.00212,
     +     .00000,    .12467,    .21183,
     +     .22548,    .13469,   2.72762,    .20494,   -.00145,
     +     .00000,    .13318,    .22009,
     +     .22935,    .13686,   2.95068,    .21185,    .00805,
     +     .00000,    .14073,    .22741,
     +     .23307,    .13890,   3.15490,    .21860,    .01857,
     +     .00000,    .14810,    .23457,
     +     .23700,    .14106,   3.36218,    .22587,    .02814,
     +     .00000,    .15603,    .24225 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24038,    .14287,   3.52799,    .23216,    .03600,
     +     .00000,    .16290,    .24891,
     +     .24362,    .14460,   3.67868,    .23825,    .04369,
     +     .00000,    .16954,    .25532,
     +     .24617,    .14596,   3.79431,    .24309,    .04993,
     +     .00000,    .17483,    .26043,
     +     .25152,    .14875,   4.02457,    .25337,    .06281,
     +     .00000,    .18603,    .27124,
     +     .25600,    .15104,   4.17870,    .26202,    .07358,
     +     .00362,    .19547,    .28032,
     +     .26093,    .15352,   4.32583,    .27150,    .08545,
     +     .01895,    .20583,    .29025,
     +     .26595,    .15601,   4.46011,    .28102,    .09743,
     +     .03262,    .21627,    .30025,
     +     .27041,    .15819,   4.56547,    .28935,    .10796,
     +     .04465,    .22543,    .30899 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27479,    .16033,   4.65748,    .29747,    .11828,
     +     .05641,    .23435,    .31749,
     +     .27836,    .16202,   4.72248,    .30392,    .12648,
     +     .06566,    .24147,    .32425,
     +     .28257,    .16399,   4.78803,    .31139,    .13603,
     +     .07642,    .24976,    .33208,
     +     .28620,    .16568,   4.83684,    .31772,    .14424,
     +     .08573,    .25681,    .33874,
     +     .28948,    .16719,   4.87460,    .32332,    .15153,
     +     .09403,    .26305,    .34460,
     +     .29348,    .16900,   4.90930,    .32998,    .16025,
     +     .10389,    .27051,    .35158,
     +     .29716,    .17064,   4.93339,    .33592,    .16813,
     +     .11285,    .27721,    .35780,
     +     .30052,    .17213,   4.94998,    .34124,    .17530,
     +     .12106,    .28323,    .36339 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30376,    .17352,   4.95625,    .34614,    .18194,
     +     .12861,    .28881,    .36853,
     +     .30686,    .17485,   4.95774,    .35070,    .18824,
     +     .13583,    .29406,    .37333,
     +     .30972,    .17606,   4.95434,    .35480,    .19396,
     +     .14242,    .29877,    .37762,
     +     .31233,    .17714,   4.94531,    .35836,    .19902,
     +     .14824,    .30293,    .38137,
     +     .31491,    .17820,   4.93444,    .36182,    .20402,
     +     .15403,    .30697,    .38502,
     +     .31734,    .17918,   4.91764,    .36491,    .20855,
     +     .15929,    .31062,    .38826,
     +     .31964,    .18009,   4.90106,    .36776,    .21282,
     +     .16427,    .31402,    .39127,
     +     .32171,    .18091,   4.88058,    .37018,    .21652,
     +     .16860,    .31693,    .39383 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32377,    .18172,   4.85944,    .37256,    .22022,
     +     .17294,    .31981,    .39633,
     +     .32574,    .18248,   4.83529,    .37469,    .22363,
     +     .17697,    .32244,    .39858,
     +     .32759,    .18317,   4.81079,    .37661,    .22677,
     +     .18068,    .32481,    .40061,
     +     .32931,    .18382,   4.78665,    .37835,    .22966,
     +     .18412,    .32699,    .40245,
     +     .33098,    .18443,   4.75927,    .37990,    .23235,
     +     .18734,    .32897,    .40408 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25196,    .15143,   1.55471,    .15666,    .00000,
     +     .00000,    .08860,    .17451,
     +     .25692,    .15426,   1.80181,    .16102,    .00000,
     +     .00000,    .09375,    .17951,
     +     .26421,    .15827,   2.14196,    .16799,   -.00454,
     +     .00000,    .10188,    .18736,
     +     .26950,    .16109,   2.36738,    .17330,   -.00640,
     +     .00000,    .10806,    .19328,
     +     .27489,    .16391,   2.57154,    .17913,   -.00565,
     +     .00000,    .11477,    .19970,
     +     .27940,    .16622,   2.71927,    .18425,    .00204,
     +     .00000,    .12066,    .20532,
     +     .28369,    .16840,   2.85065,    .18921,    .01049,
     +     .00000,    .12634,    .21072,
     +     .28819,    .17062,   2.98033,    .19445,    .01810,
     +     .00000,    .13236,    .21642 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29201,    .17249,   3.08063,    .19894,    .02427,
     +     .00000,    .13750,    .22128,
     +     .29562,    .17424,   3.16906,    .20321,    .03024,
     +     .00000,    .14240,    .22590,
     +     .29848,    .17559,   3.23542,    .20658,    .03505,
     +     .00000,    .14628,    .22954,
     +     .30434,    .17833,   3.36338,    .21360,    .04484,
     +     .00000,    .15435,    .23711,
     +     .30915,    .18053,   3.44455,    .21937,    .05290,
     +    -.00050,    .16102,    .24332,
     +     .31437,    .18285,   3.50878,    .22556,    .06165,
     +     .01101,    .16819,    .24994,
     +     .31962,    .18514,   3.56133,    .23162,    .07035,
     +     .02114,    .17528,    .25641,
     +     .32420,    .18708,   3.59703,    .23678,    .07785,
     +     .02993,    .18136,    .26195 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32868,    .18894,   3.62309,    .24168,    .08511,
     +     .03840,    .18717,    .26719,
     +     .33225,    .19040,   3.63683,    .24549,    .09079,
     +     .04498,    .19170,    .27126,
     +     .33640,    .19205,   3.64475,    .24977,    .09731,
     +     .05254,    .19688,    .27583,
     +     .33994,    .19344,   3.64577,    .25331,    .10284,
     +     .05900,    .20119,    .27960,
     +     .34309,    .19465,   3.64220,    .25637,    .10769,
     +     .06470,    .20493,    .28285,
     +     .34689,    .19605,   3.62975,    .25986,    .11339,
     +     .07137,    .20930,    .28658,
     +     .35031,    .19729,   3.61298,    .26287,    .11846,
     +     .07736,    .21311,    .28979,
     +     .35343,    .19839,   3.59393,    .26548,    .12302,
     +     .08279,    .21646,    .29256 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35633,    .19938,   3.56894,    .26776,    .12715,
     +     .08770,    .21947,    .29499,
     +     .35908,    .20029,   3.54214,    .26980,    .13103,
     +     .09235,    .22222,    .29716,
     +     .36160,    .20110,   3.51430,    .27156,    .13450,
     +     .09653,    .22463,    .29902,
     +     .36384,    .20178,   3.48493,    .27298,    .13750,
     +     .10018,    .22667,    .30055,
     +     .36603,    .20245,   3.45484,    .27433,    .14044,
     +     .10378,    .22863,    .30197,
     +     .36804,    .20303,   3.42206,    .27542,    .14305,
     +     .10699,    .23030,    .30313,
     +     .36993,    .20357,   3.39103,    .27640,    .14549,
     +     .11001,    .23183,    .30416,
     +     .37160,    .20400,   3.35914,    .27711,    .14756,
     +     .11260,    .23306,    .30492 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37325,    .20443,   3.32710,    .27780,    .14959,
     +     .11517,    .23425,    .30566,
     +     .37479,    .20479,   3.29398,    .27832,    .15144,
     +     .11753,    .23527,    .30621,
     +     .37621,    .20512,   3.26193,    .27874,    .15310,
     +     .11967,    .23617,    .30665,
     +     .37750,    .20542,   3.23136,    .27908,    .15462,
     +     .12164,    .23694,    .30699,
     +     .37873,    .20566,   3.19902,    .27927,    .15599,
     +     .12344,    .23758,    .30720 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29002,    .17390,   1.67416,    .14152,    .00000,
     +     .00000,    .07912,    .16358,
     +     .29580,    .17699,   1.86361,    .14513,    .00000,
     +     .00000,    .08363,    .16792,
     +     .30418,    .18124,   2.12531,    .15078,   -.00781,
     +     .00000,    .09063,    .17458,
     +     .31012,    .18415,   2.28764,    .15501,   -.00913,
     +     .00000,    .09583,    .17946,
     +     .31613,    .18700,   2.42911,    .15956,   -.00821,
     +     .00000,    .10140,    .18466,
     +     .32108,    .18931,   2.52631,    .16354,   -.00168,
     +     .00000,    .10623,    .18914,
     +     .32572,    .19143,   2.61006,    .16731,    .00543,
     +     .00000,    .11082,    .19338,
     +     .33055,    .19359,   2.69023,    .17126,    .01180,
     +     .00000,    .11561,    .19779 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33460,    .19537,   2.74970,    .17457,    .01690,
     +     .00000,    .11966,    .20148,
     +     .33841,    .19700,   2.80008,    .17769,    .02180,
     +     .00000,    .12347,    .20492,
     +     .34138,    .19825,   2.83682,    .18013,    .02572,
     +     .00000,    .12645,    .20760,
     +     .34741,    .20074,   2.90454,    .18512,    .03361,
     +     .00000,    .13259,    .21307,
     +     .35227,    .20265,   2.94382,    .18912,    .04002,
     +    -.00262,    .13755,    .21743,
     +     .35746,    .20465,   2.96218,    .19330,    .04689,
     +     .00655,    .14280,    .22199,
     +     .36259,    .20655,   2.97104,    .19730,    .05362,
     +     .01453,    .14786,    .22631,
     +     .36700,    .20812,   2.97068,    .20060,    .05937,
     +     .02138,    .15213,    .22987 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37123,    .20958,   2.96337,    .20365,    .06484,
     +     .02790,    .15613,    .23315,
     +     .37455,    .21069,   2.95200,    .20594,    .06908,
     +     .03292,    .15919,    .23560,
     +     .37835,    .21191,   2.93249,    .20842,    .07390,
     +     .03864,    .16259,    .23826,
     +     .38156,    .21288,   2.91151,    .21041,    .07792,
     +     .04347,    .16536,    .24037,
     +     .38437,    .21369,   2.88959,    .21206,    .08141,
     +     .04769,    .16772,    .24213,
     +     .38767,    .21460,   2.85684,    .21382,    .08547,
     +     .05259,    .17038,    .24399,
     +     .39059,    .21534,   2.82324,    .21526,    .08903,
     +     .05694,    .17264,    .24550,
     +     .39320,    .21598,   2.79005,    .21645,    .09218,
     +     .06083,    .17457,    .24673 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39557,    .21649,   2.75343,    .21737,    .09501,
     +     .06432,    .17622,    .24768,
     +     .39777,    .21694,   2.71665,    .21812,    .09761,
     +     .06758,    .17768,    .24845,
     +     .39974,    .21730,   2.68077,    .21870,    .09991,
     +     .07050,    .17891,    .24902,
     +     .40144,    .21755,   2.64529,    .21907,    .10188,
     +     .07302,    .17988,    .24937,
     +     .40309,    .21778,   2.60974,    .21937,    .10377,
     +     .07547,    .18078,    .24965,
     +     .40455,    .21792,   2.57310,    .21947,    .10543,
     +     .07763,    .18147,    .24973,
     +     .40591,    .21804,   2.53879,    .21954,    .10695,
     +     .07966,    .18208,    .24976,
     +     .40702,    .21809,   2.50501,    .21947,    .10822,
     +     .08136,    .18250,    .24963 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40813,    .21812,   2.47143,    .21936,    .10946,
     +     .08305,    .18288,    .24945,
     +     .40912,    .21810,   2.43763,    .21913,    .11055,
     +     .08457,    .18315,    .24916,
     +     .40999,    .21804,   2.40544,    .21886,    .11152,
     +     .08594,    .18334,    .24882,
     +     .41078,    .21797,   2.37507,    .21857,    .11239,
     +     .08719,    .18347,    .24844,
     +     .41148,    .21786,   2.34371,    .21816,    .11315,
     +     .08831,    .18349,    .24797 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .35494,    .20932,   1.74816,    .11803,    .00000,
     +     .00000,    .06558,    .14848,
     +     .36191,    .21245,   1.85447,    .12061,    .00000,
     +     .00000,    .06926,    .15176,
     +     .37159,    .21657,   2.00649,    .12446,   -.01133,
     +     .00000,    .07471,    .15649,
     +     .37818,    .21924,   2.08579,    .12720,   -.01179,
     +     .00000,    .07858,    .15978,
     +     .38466,    .22176,   2.14736,    .13009,   -.01061,
     +     .00000,    .08261,    .16314,
     +     .38989,    .22372,   2.18231,    .13253,   -.00558,
     +     .00000,    .08599,    .16594,
     +     .39467,    .22545,   2.20909,    .13479,   -.00020,
     +     .00000,    .08914,    .16851,
     +     .39954,    .22714,   2.23162,    .13708,    .00456,
     +     .00000,    .09237,    .17106 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40352,    .22848,   2.24461,    .13894,    .00834,
     +     .00000,    .09500,    .17310,
     +     .40718,    .22964,   2.25262,    .14062,    .01191,
     +     .00000,    .09743,    .17495,
     +     .41000,    .23050,   2.25699,    .14190,    .01472,
     +     .00000,    .09930,    .17634,
     +     .41556,    .23212,   2.26045,    .14444,    .02030,
     +     .00000,    .10304,    .17906,
     +     .41981,    .23323,   2.25609,    .14636,    .02473,
     +    -.00437,    .10595,    .18104,
     +     .42421,    .23426,   2.22989,    .14825,    .02939,
     +     .00196,    .10892,    .18297,
     +     .42836,    .23512,   2.19789,    .14990,    .03385,
     +     .00739,    .11164,    .18462,
     +     .43179,    .23573,   2.16508,    .15114,    .03759,
     +     .01197,    .11383,    .18581 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .43493,    .23618,   2.12916,    .15217,    .04106,
     +     .01625,    .11578,    .18675,
     +     .43728,    .23643,   2.09718,    .15284,    .04371,
     +     .01951,    .11719,    .18733,
     +     .43985,    .23660,   2.05635,    .15344,    .04665,
     +     .02314,    .11869,    .18780,
     +     .44189,    .23664,   2.01925,    .15382,    .04906,
     +     .02617,    .11982,    .18802,
     +     .44358,    .23661,   1.98459,    .15404,    .05113,
     +     .02879,    .12072,    .18809,
     +     .44543,    .23640,   1.93903,    .15412,    .05345,
     +     .03176,    .12162,    .18793,
     +     .44692,    .23611,   1.89586,    .15404,    .05546,
     +     .03436,    .12230,    .18763,
     +     .44815,    .23576,   1.85556,    .15386,    .05720,
     +     .03665,    .12282,    .18723 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .44911,    .23530,   1.81436,    .15351,    .05870,
     +     .03866,    .12314,    .18663,
     +     .44992,    .23478,   1.77448,    .15307,    .06006,
     +     .04052,    .12335,    .18596,
     +     .45053,    .23422,   1.73696,    .15259,    .06122,
     +     .04213,    .12344,    .18523,
     +     .45092,    .23362,   1.70147,    .15203,    .06219,
     +     .04352,    .12343,    .18442,
     +     .45123,    .23301,   1.66655,    .15143,    .06311,
     +     .04485,    .12336,    .18358,
     +     .45137,    .23232,   1.63197,    .15074,    .06387,
     +     .04599,    .12318,    .18262,
     +     .45145,    .23165,   1.59995,    .15005,    .06456,
     +     .04703,    .12298,    .18171,
     +     .45138,    .23095,   1.56945,    .14933,    .06510,
     +     .04790,    .12269,    .18074 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45126,    .23023,   1.53943,    .14858,    .06562,
     +     .04875,    .12239,    .17975,
     +     .45102,    .22947,   1.50993,    .14779,    .06604,
     +     .04949,    .12202,    .17871,
     +     .45074,    .22873,   1.48224,    .14701,    .06641,
     +     .05015,    .12163,    .17770,
     +     .45043,    .22800,   1.45642,    .14624,    .06672,
     +     .05073,    .12124,    .17672,
     +     .44999,    .22722,   1.43033,    .14542,    .06696,
     +     .05125,    .12077,    .17566 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .40953,    .23594,   1.69985,    .09972,    .00000,
     +     .00000,    .05610,    .13701,
     +     .41707,    .23873,   1.75213,    .10153,    .00000,
     +     .00000,    .05913,    .13931,
     +     .42709,    .24222,   1.83382,    .10415,   -.01241,
     +     .00000,    .06337,    .14240,
     +     .43368,    .24428,   1.86368,    .10593,   -.01235,
     +     .00000,    .06631,    .14440,
     +     .43997,    .24611,   1.87955,    .10772,   -.01104,
     +     .00000,    .06928,    .14634,
     +     .44486,    .24744,   1.88046,    .10922,   -.00702,
     +     .00000,    .07172,    .14788,
     +     .44925,    .24853,   1.87699,    .11056,   -.00279,
     +     .00000,    .07393,    .14921,
     +     .45361,    .24950,   1.86976,    .11184,    .00095,
     +     .00000,    .07612,    .15047 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45706,    .25019,   1.85954,    .11282,    .00388,
     +     .00000,    .07788,    .15140,
     +     .46013,    .25072,   1.84705,    .11369,    .00661,
     +     .00000,    .07944,    .15217,
     +     .46242,    .25109,   1.83614,    .11433,    .00874,
     +     .00000,    .08063,    .15273,
     +     .46681,    .25159,   1.81023,    .11550,    .01292,
     +     .00000,    .08293,    .15366,
     +     .46989,    .25172,   1.78667,    .11630,    .01619,
     +    -.00470,    .08464,    .15417,
     +     .47288,    .25165,   1.74316,    .11698,    .01956,
     +    -.00007,    .08631,    .15450,
     +     .47547,    .25134,   1.69643,    .11744,    .02273,
     +     .00387,    .08777,    .15455,
     +     .47743,    .25088,   1.65302,    .11765,    .02534,
     +     .00714,    .08883,    .15436 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .47905,    .25025,   1.60868,    .11770,    .02774,
     +     .01017,    .08973,    .15400,
     +     .48009,    .24960,   1.57148,    .11761,    .02953,
     +     .01243,    .09030,    .15356,
     +     .48101,    .24869,   1.52618,    .11736,    .03150,
     +     .01495,    .09081,    .15283,
     +     .48158,    .24779,   1.48646,    .11702,    .03308,
     +     .01701,    .09115,    .15208,
     +     .48190,    .24690,   1.45043,    .11664,    .03442,
     +     .01877,    .09136,    .15129,
     +     .48196,    .24561,   1.40476,    .11600,    .03589,
     +     .02075,    .09144,    .15016,
     +     .48180,    .24432,   1.36264,    .11531,    .03713,
     +     .02245,    .09140,    .14897,
     +     .48145,    .24306,   1.32412,    .11459,    .03818,
     +     .02392,    .09128,    .14779 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48082,    .24166,   1.28584,    .11377,    .03907,
     +     .02520,    .09103,    .14650,
     +     .48005,    .24026,   1.24935,    .11292,    .03986,
     +     .02637,    .09072,    .14518,
     +     .47918,    .23890,   1.21562,    .11206,    .04052,
     +     .02738,    .09037,    .14389,
     +     .47818,    .23754,   1.18428,    .11120,    .04105,
     +     .02821,    .08995,    .14261,
     +     .47711,    .23616,   1.15372,    .11032,    .04154,
     +     .02901,    .08952,    .14129,
     +     .47587,    .23473,   1.12401,    .10938,    .04191,
     +     .02968,    .08901,    .13995,
     +     .47466,    .23338,   1.09669,    .10849,    .04225,
     +     .03030,    .08852,    .13868,
     +     .47336,    .23204,   1.07109,    .10761,    .04249,
     +     .03078,    .08800,    .13742 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47202,    .23068,   1.04605,    .10671,    .04273,
     +     .03126,    .08747,    .13615,
     +     .47059,    .22931,   1.02173,    .10580,    .04289,
     +     .03166,    .08689,    .13485,
     +     .46915,    .22799,    .99908,    .10491,    .04303,
     +     .03202,    .08633,    .13362,
     +     .46775,    .22673,    .97810,    .10406,    .04313,
     +     .03232,    .08578,    .13245,
     +     .46622,    .22542,    .95714,    .10317,    .04319,
     +     .03258,    .08519,    .13122 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45685,    .25653,   1.59151,    .08481,    .00000,
     +     .00000,    .04894,    .12717,
     +     .46440,    .25872,   1.60881,    .08608,    .00000,
     +     .00000,    .05136,    .12848,
     +     .47412,    .26117,   1.64478,    .08779,   -.01228,
     +     .00000,    .05465,    .13006,
     +     .48017,    .26243,   1.64487,    .08886,   -.01192,
     +     .00000,    .05682,    .13094,
     +     .48570,    .26340,   1.63429,    .08993,   -.01061,
     +     .00000,    .05895,    .13171,
     +     .48988,    .26392,   1.61628,    .09079,   -.00733,
     +     .00000,    .06068,    .13225,
     +     .49347,    .26422,   1.59659,    .09150,   -.00393,
     +     .00000,    .06219,    .13266,
     +     .49686,    .26437,   1.57392,    .09215,   -.00094,
     +     .00000,    .06365,    .13293 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49940,    .26432,   1.55200,    .09261,    .00140,
     +     .00000,    .06479,    .13302,
     +     .50157,    .26415,   1.52955,    .09296,    .00354,
     +     .00000,    .06580,    .13300,
     +     .50313,    .26392,   1.51140,    .09321,    .00521,
     +     .00000,    .06653,    .13293,
     +     .50580,    .26323,   1.47207,    .09360,    .00843,
     +     .00000,    .06790,    .13263,
     +     .50738,    .26230,   1.44039,    .09374,    .01092,
     +    -.00454,    .06884,    .13217,
     +     .50861,    .26106,   1.39124,    .09374,    .01346,
     +    -.00103,    .06971,    .13145,
     +     .50934,    .25957,   1.34063,    .09354,    .01582,
     +     .00194,    .07036,    .13050,
     +     .50953,    .25803,   1.29521,    .09323,    .01772,
     +     .00436,    .07078,    .12950 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50935,    .25636,   1.25012,    .09279,    .01945,
     +     .00660,    .07103,    .12835,
     +     .50890,    .25486,   1.21325,    .09233,    .02073,
     +     .00825,    .07115,    .12728,
     +     .50799,    .25292,   1.16932,    .09167,    .02212,
     +     .01007,    .07114,    .12590,
     +     .50694,    .25114,   1.13153,    .09101,    .02321,
     +     .01154,    .07105,    .12460,
     +     .50579,    .24943,   1.09778,    .09036,    .02412,
     +     .01278,    .07089,    .12336,
     +     .50400,    .24714,   1.05578,    .08943,    .02511,
     +     .01416,    .07056,    .12171,
     +     .50207,    .24495,   1.01764,    .08850,    .02592,
     +     .01534,    .07017,    .12009,
     +     .50007,    .24287,    .98318,    .08760,    .02661,
     +     .01635,    .06975,    .11854 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49782,    .24068,    .94946,    .08663,    .02717,
     +     .01722,    .06925,    .11693,
     +     .49549,    .23852,    .91768,    .08565,    .02765,
     +     .01799,    .06872,    .11534,
     +     .49315,    .23645,    .88860,    .08471,    .02803,
     +     .01865,    .06816,    .11382,
     +     .49079,    .23444,    .86187,    .08378,    .02834,
     +     .01920,    .06760,    .11236,
     +     .48838,    .23241,    .83600,    .08283,    .02860,
     +     .01970,    .06702,    .11090,
     +     .48582,    .23038,    .81109,    .08187,    .02881,
     +     .02013,    .06641,    .10942,
     +     .48337,    .22846,    .78831,    .08096,    .02898,
     +     .02050,    .06583,    .10803,
     +     .48091,    .22659,    .76718,    .08007,    .02909,
     +     .02081,    .06524,    .10669 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47841,    .22473,    .74661,    .07920,    .02919,
     +     .02109,    .06464,    .10535,
     +     .47585,    .22287,    .72678,    .07831,    .02924,
     +     .02133,    .06403,    .10401,
     +     .47335,    .22109,    .70842,    .07746,    .02927,
     +     .02153,    .06343,    .10274,
     +     .47097,    .21940,    .69149,    .07666,    .02929,
     +     .02170,    .06288,    .10154,
     +     .46846,    .21766,    .67471,    .07583,    .02927,
     +     .02183,    .06228,    .10032 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50725,    .27498,   1.42597,    .06951,    .00000,
     +     .00000,    .04166,    .11495,
     +     .51407,    .27607,   1.41663,    .07027,    .00000,
     +     .00000,    .04341,    .11520,
     +     .52220,    .27692,   1.41734,    .07125,   -.01137,
     +     .00000,    .04574,    .11519,
     +     .52684,    .27697,   1.39633,    .07182,   -.01082,
     +     .00000,    .04717,    .11497,
     +     .53079,    .27662,   1.36781,    .07232,   -.00957,
     +     .00000,    .04857,    .11464,
     +     .53350,    .27606,   1.33777,    .07268,   -.00699,
     +     .00000,    .04966,    .11426,
     +     .53562,    .27531,   1.30816,    .07294,   -.00435,
     +     .00000,    .05059,    .11379,
     +     .53737,    .27434,   1.27643,    .07314,   -.00203,
     +     .00000,    .05145,    .11318 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53846,    .27333,   1.24810,    .07320,   -.00024,
     +     .00000,    .05208,    .11259,
     +     .53917,    .27223,   1.22049,    .07320,    .00140,
     +     .00000,    .05259,    .11194,
     +     .53957,    .27128,   1.19877,    .07318,    .00265,
     +     .00000,    .05296,    .11139,
     +     .53975,    .26906,   1.15342,    .07300,    .00506,
     +     .00000,    .05359,    .11009,
     +     .53912,    .26689,   1.11856,    .07272,    .00689,
     +    -.00404,    .05395,    .10888,
     +     .53785,    .26429,   1.06933,    .07230,    .00873,
     +    -.00148,    .05420,    .10740,
     +     .53596,    .26144,   1.01995,    .07173,    .01041,
     +     .00067,    .05430,    .10572,
     +     .53382,    .25869,    .97672,    .07111,    .01176,
     +     .00241,    .05427,    .10412 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .53130,    .25583,    .93470,    .07038,    .01296,
     +     .00399,    .05411,    .10246,
     +     .52893,    .25337,    .90093,    .06974,    .01383,
     +     .00515,    .05389,    .10103,
     +     .52570,    .25032,    .86142,    .06888,    .01476,
     +     .00640,    .05354,    .09924,
     +     .52262,    .24758,    .82790,    .06810,    .01549,
     +     .00742,    .05317,    .09764,
     +     .51965,    .24503,    .79833,    .06732,    .01608,
     +     .00825,    .05279,    .09618,
     +     .51558,    .24171,    .76212,    .06631,    .01671,
     +     .00919,    .05224,    .09426,
     +     .51156,    .23857,    .72965,    .06530,    .01721,
     +     .00996,    .05167,    .09245,
     +     .50767,    .23561,    .70065,    .06435,    .01764,
     +     .01062,    .05110,    .09077 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50353,    .23262,    .67262,    .06336,    .01796,
     +     .01117,    .05049,    .08906,
     +     .49939,    .22968,    .64648,    .06240,    .01823,
     +     .01166,    .04985,    .08739,
     +     .49539,    .22691,    .62274,    .06148,    .01845,
     +     .01208,    .04925,    .08583,
     +     .49148,    .22426,    .60118,    .06059,    .01859,
     +     .01240,    .04865,    .08435,
     +     .48755,    .22163,    .58043,    .05970,    .01873,
     +     .01271,    .04805,    .08288,
     +     .48353,    .21902,    .56064,    .05882,    .01881,
     +     .01295,    .04742,    .08142,
     +     .47972,    .21658,    .54263,    .05798,    .01888,
     +     .01318,    .04683,    .08008,
     +     .47597,    .21423,    .52608,    .05718,    .01891,
     +     .01335,    .04625,    .07879 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47223,    .21190,    .51002,    .05641,    .01893,
     +     .01351,    .04567,    .07751,
     +     .46847,    .20956,    .49470,    .05560,    .01892,
     +     .01363,    .04510,    .07626,
     +     .46489,    .20736,    .48057,    .05483,    .01890,
     +     .01373,    .04454,    .07509,
     +     .46148,    .20528,    .46760,    .05412,    .01887,
     +     .01381,    .04402,    .07399,
     +     .45793,    .20317,    .45483,    .05340,    .01882,
     +     .01387,    .04347,    .07288 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .54947,    .28712,   1.25556,    .05715,    .00000,
     +     .00000,    .03549,    .10262,
     +     .55470,    .28700,   1.23132,    .05763,    .00000,
     +     .00000,    .03676,    .10191,
     +     .56041,    .28591,   1.21177,    .05809,   -.01020,
     +     .00000,    .03834,    .10072,
     +     .56313,    .28456,   1.18000,    .05828,   -.00956,
     +     .00000,    .03931,    .09972,
     +     .56496,    .28284,   1.14303,    .05846,   -.00842,
     +     .00000,    .04017,    .09862,
     +     .56578,    .28112,   1.10807,    .05853,   -.00636,
     +     .00000,    .04082,    .09763,
     +     .56607,    .27930,   1.07470,    .05852,   -.00427,
     +     .00000,    .04135,    .09663,
     +     .56589,    .27720,   1.03995,    .05843,   -.00244,
     +     .00000,    .04179,    .09551 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56524,    .27524,   1.00987,    .05832,   -.00104,
     +     .00000,    .04210,    .09444,
     +     .56429,    .27325,    .98119,    .05814,    .00023,
     +     .00000,    .04233,    .09339,
     +     .56336,    .27162,    .95897,    .05796,    .00119,
     +     .00000,    .04245,    .09255,
     +     .56071,    .26802,    .91337,    .05753,    .00303,
     +     .00000,    .04262,    .09070,
     +     .55772,    .26468,    .87899,    .05706,    .00440,
     +    -.00349,    .04266,    .08906,
     +     .55386,    .26084,    .83299,    .05643,    .00578,
     +    -.00157,    .04257,    .08720,
     +     .54935,    .25672,    .78762,    .05566,    .00702,
     +     .00002,    .04235,    .08522,
     +     .54485,    .25293,    .74851,    .05492,    .00799,
     +     .00130,    .04205,    .08339 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .53998,    .24907,    .71100,    .05414,    .00884,
     +     .00245,    .04169,    .08153,
     +     .53570,    .24581,    .68127,    .05344,    .00946,
     +     .00328,    .04134,    .07999,
     +     .53028,    .24181,    .64688,    .05254,    .01011,
     +     .00418,    .04084,    .07808,
     +     .52530,    .23827,    .61802,    .05172,    .01061,
     +     .00490,    .04036,    .07640,
     +     .52058,    .23507,    .59280,    .05098,    .01100,
     +     .00548,    .03991,    .07488,
     +     .51439,    .23094,    .56220,    .04997,    .01142,
     +     .00613,    .03927,    .07296,
     +     .50846,    .22705,    .53508,    .04901,    .01175,
     +     .00665,    .03865,    .07118,
     +     .50284,    .22346,    .51104,    .04813,    .01200,
     +     .00710,    .03804,    .06955 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49702,    .21984,    .48809,    .04722,    .01220,
     +     .00746,    .03742,    .06790,
     +     .49130,    .21635,    .46676,    .04634,    .01236,
     +     .00778,    .03681,    .06632,
     +     .48583,    .21305,    .44758,    .04550,    .01248,
     +     .00805,    .03621,    .06484,
     +     .48059,    .20997,    .43026,    .04470,    .01256,
     +     .00826,    .03564,    .06347,
     +     .47536,    .20691,    .41370,    .04393,    .01262,
     +     .00845,    .03506,    .06211,
     +     .47009,    .20389,    .39805,    .04314,    .01265,
     +     .00861,    .03449,    .06080,
     +     .46516,    .20106,    .38387,    .04241,    .01266,
     +     .00874,    .03396,    .05959,
     +     .46043,    .19836,    .37092,    .04171,    .01266,
     +     .00884,    .03344,    .05844 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45570,    .19570,    .35843,    .04100,    .01264,
     +     .00892,    .03292,    .05730,
     +     .45096,    .19309,    .34652,    .04032,    .01262,
     +     .00899,    .03241,    .05620,
     +     .44644,    .19061,    .33561,    .03969,    .01258,
     +     .00904,    .03190,    .05516,
     +     .44218,    .18829,    .32564,    .03910,    .01253,
     +     .00908,    .03144,    .05419,
     +     .43781,    .18595,    .31586,    .03850,    .01248,
     +     .00911,    .03098,    .05322 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .58391,    .29399,   1.09505,    .04721,    .00000,
     +     .00000,    .03008,    .08998,
     +     .58707,    .29247,   1.06282,    .04752,    .00000,
     +     .00000,    .03094,    .08858,
     +     .58951,    .28943,   1.03188,    .04771,   -.00902,
     +     .00000,    .03194,    .08660,
     +     .58974,    .28682,    .99514,    .04776,   -.00836,
     +     .00000,    .03254,    .08502,
     +     .58906,    .28374,    .95493,    .04772,   -.00732,
     +     .00000,    .03302,    .08343,
     +     .58777,    .28089,    .91872,    .04763,   -.00565,
     +     .00000,    .03339,    .08204,
     +     .58599,    .27806,    .88483,    .04747,   -.00399,
     +     .00000,    .03364,    .08071,
     +     .58361,    .27493,    .85003,    .04725,   -.00252,
     +     .00000,    .03383,    .07929 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .58113,    .27207,    .82048,    .04700,   -.00141,
     +     .00000,    .03390,    .07803,
     +     .57841,    .26926,    .79265,    .04673,   -.00041,
     +     .00000,    .03393,    .07680,
     +     .57608,    .26703,    .77131,    .04648,    .00034,
     +     .00000,    .03394,    .07581,
     +     .57062,    .26209,    .72794,    .04589,    .00177,
     +     .00000,    .03384,    .07374,
     +     .56525,    .25777,    .69585,    .04533,    .00282,
     +    -.00297,    .03367,    .07195,
     +     .55881,    .25288,    .65426,    .04464,    .00386,
     +    -.00151,    .03339,    .06997,
     +     .55168,    .24775,    .61372,    .04386,    .00479,
     +    -.00031,    .03301,    .06789,
     +     .54493,    .24309,    .57922,    .04309,    .00551,
     +     .00065,    .03261,    .06603 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53791,    .23837,    .54651,    .04226,    .00614,
     +     .00150,    .03217,    .06417,
     +     .53190,    .23448,    .52081,    .04159,    .00659,
     +     .00212,    .03175,    .06262,
     +     .52440,    .22975,    .49138,    .04073,    .00705,
     +     .00277,    .03120,    .06081,
     +     .51770,    .22561,    .46691,    .03993,    .00740,
     +     .00329,    .03071,    .05923,
     +     .51152,    .22184,    .44569,    .03922,    .00767,
     +     .00371,    .03024,    .05779,
     +     .50343,    .21712,    .42018,    .03832,    .00795,
     +     .00416,    .02961,    .05600,
     +     .49582,    .21272,    .39773,    .03746,    .00817,
     +     .00454,    .02902,    .05435,
     +     .48871,    .20865,    .37798,    .03665,    .00834,
     +     .00484,    .02845,    .05285 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48151,    .20459,    .35927,    .03582,    .00845,
     +     .00509,    .02786,    .05139,
     +     .47444,    .20071,    .34203,    .03502,    .00855,
     +     .00531,    .02728,    .04998,
     +     .46775,    .19710,    .32658,    .03431,    .00861,
     +     .00548,    .02675,    .04868,
     +     .46143,    .19370,    .31275,    .03362,    .00865,
     +     .00562,    .02624,    .04747,
     +     .45517,    .19036,    .29958,    .03293,    .00868,
     +     .00575,    .02573,    .04629,
     +     .44895,    .18708,    .28722,    .03224,    .00868,
     +     .00584,    .02523,    .04515,
     +     .44314,    .18403,    .27605,    .03162,    .00868,
     +     .00592,    .02476,    .04410,
     +     .43757,    .18115,    .26592,    .03103,    .00866,
     +     .00598,    .02431,    .04311 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43203,    .17832,    .25617,    .03045,    .00863,
     +     .00602,    .02387,    .04214,
     +     .42657,    .17552,    .24695,    .02988,    .00859,
     +     .00606,    .02343,    .04121,
     +     .42139,    .17288,    .23851,    .02933,    .00855,
     +     .00609,    .02303,    .04034,
     +     .41652,    .17043,    .23084,    .02882,    .00851,
     +     .00611,    .02264,    .03954,
     +     .41158,    .16796,    .22335,    .02830,    .00845,
     +     .00611,    .02225,    .03872 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .61088,    .29635,    .94951,    .03930,    .00000,
     +     .00000,    .02516,    .07717,
     +     .61154,    .29338,    .91323,    .03937,    .00000,
     +     .00000,    .02575,    .07555,
     +     .61016,    .28846,    .87610,    .03943,   -.00791,
     +     .00000,    .02641,    .07304,
     +     .60777,    .28444,    .83760,    .03933,   -.00726,
     +     .00000,    .02673,    .07127,
     +     .60434,    .28006,    .79693,    .03916,   -.00633,
     +     .00000,    .02700,    .06941,
     +     .60070,    .27624,    .76135,    .03900,   -.00496,
     +     .00000,    .02718,    .06787,
     +     .59676,    .27246,    .72856,    .03877,   -.00361,
     +     .00000,    .02728,    .06638,
     +     .59216,    .26834,    .69529,    .03845,   -.00244,
     +     .00000,    .02731,    .06481 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58782,    .26469,    .66735,    .03813,   -.00155,
     +     .00000,    .02727,    .06351,
     +     .58331,    .26116,    .64133,    .03780,   -.00076,
     +     .00000,    .02717,    .06223,
     +     .57961,    .25839,    .62147,    .03754,   -.00016,
     +     .00000,    .02708,    .06122,
     +     .57129,    .25240,    .58161,    .03690,    .00097,
     +     .00000,    .02686,    .05907,
     +     .56364,    .24721,    .55230,    .03629,    .00179,
     +    -.00249,    .02659,    .05735,
     +     .55479,    .24142,    .51541,    .03556,    .00259,
     +    -.00137,    .02623,    .05541,
     +     .54530,    .23545,    .47989,    .03476,    .00329,
     +    -.00045,    .02580,    .05343,
     +     .53648,    .23009,    .44994,    .03403,    .00383,
     +     .00027,    .02535,    .05169 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52744,    .22476,    .42180,    .03326,    .00429,
     +     .00091,    .02486,    .04996,
     +     .51987,    .22037,    .39990,    .03261,    .00462,
     +     .00136,    .02444,    .04857,
     +     .51060,    .21511,    .37501,    .03180,    .00495,
     +     .00185,    .02392,    .04689,
     +     .50239,    .21054,    .35446,    .03109,    .00520,
     +     .00222,    .02343,    .04547,
     +     .49490,    .20641,    .33677,    .03042,    .00539,
     +     .00253,    .02298,    .04421,
     +     .48527,    .20126,    .31568,    .02959,    .00559,
     +     .00286,    .02239,    .04260,
     +     .47628,    .19649,    .29726,    .02883,    .00573,
     +     .00312,    .02185,    .04116,
     +     .46795,    .19212,    .28117,    .02811,    .00585,
     +     .00334,    .02135,    .03986 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45955,    .18781,    .26604,    .02740,    .00592,
     +     .00351,    .02083,    .03858,
     +     .45145,    .18369,    .25217,    .02672,    .00598,
     +     .00366,    .02034,    .03738,
     +     .44387,    .17986,    .23982,    .02606,    .00601,
     +     .00378,    .01987,    .03626,
     +     .43674,    .17629,    .22884,    .02547,    .00602,
     +     .00387,    .01944,    .03524,
     +     .42970,    .17278,    .21845,    .02486,    .00602,
     +     .00394,    .01899,    .03427,
     +     .42273,    .16938,    .20872,    .02429,    .00602,
     +     .00401,    .01856,    .03331,
     +     .41622,    .16625,    .19996,    .02377,    .00601,
     +     .00406,    .01815,    .03244,
     +     .41005,    .16329,    .19206,    .02327,    .00598,
     +     .00409,    .01779,    .03162 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40395,    .16036,    .18448,    .02278,    .00596,
     +     .00412,    .01743,    .03082,
     +     .39795,    .15750,    .17734,    .02229,    .00592,
     +     .00414,    .01706,    .03007,
     +     .39232,    .15482,    .17086,    .02184,    .00588,
     +     .00415,    .01672,    .02935,
     +     .38704,    .15232,    .16496,    .02142,    .00584,
     +     .00415,    .01640,    .02869,
     +     .38168,    .14983,    .15924,    .02100,    .00579,
     +     .00416,    .01609,    .02804 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .63068,    .29472,    .81901,    .03285,    .00000,
     +     .00000,    .02083,    .06486,
     +     .62841,    .29040,    .78115,    .03289,    .00000,
     +     .00000,    .02125,    .06303,
     +     .62299,    .28353,    .74110,    .03275,   -.00691,
     +     .00000,    .02165,    .06045,
     +     .61775,    .27833,    .70282,    .03255,   -.00628,
     +     .00000,    .02182,    .05858,
     +     .61147,    .27276,    .66321,    .03230,   -.00544,
     +     .00000,    .02199,    .05668,
     +     .60552,    .26794,    .62944,    .03204,   -.00432,
     +     .00000,    .02201,    .05515,
     +     .59941,    .26332,    .59857,    .03175,   -.00322,
     +     .00000,    .02199,    .05369,
     +     .59256,    .25843,    .56756,    .03140,   -.00227,
     +     .00000,    .02192,    .05218 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58634,    .25412,    .54177,    .03106,   -.00155,
     +     .00000,    .02182,    .05089,
     +     .58012,    .24997,    .51801,    .03071,   -.00091,
     +     .00000,    .02168,    .04965,
     +     .57510,    .24673,    .50001,    .03043,   -.00043,
     +     .00000,    .02156,    .04868,
     +     .56417,    .23980,    .46409,    .02973,    .00045,
     +     .00000,    .02124,    .04673,
     +     .55439,    .23397,    .43790,    .02915,    .00109,
     +    -.00209,    .02092,    .04509,
     +     .54330,    .22754,    .40565,    .02844,    .00171,
     +    -.00122,    .02054,    .04332,
     +     .53165,    .22093,    .37490,    .02767,    .00225,
     +    -.00051,    .02008,    .04152,
     +     .52104,    .21505,    .34923,    .02698,    .00266,
     +     .00004,    .01965,    .03995 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51031,    .20926,    .32532,    .02627,    .00301,
     +     .00052,    .01919,    .03841,
     +     .50139,    .20454,    .30687,    .02566,    .00326,
     +     .00087,    .01880,    .03718,
     +     .49061,    .19894,    .28604,    .02491,    .00350,
     +     .00123,    .01830,    .03574,
     +     .48116,    .19410,    .26897,    .02427,    .00368,
     +     .00151,    .01787,    .03451,
     +     .47255,    .18976,    .25440,    .02370,    .00381,
     +     .00173,    .01745,    .03341,
     +     .46169,    .18431,    .23715,    .02296,    .00394,
     +     .00196,    .01695,    .03207,
     +     .45162,    .17935,    .22220,    .02228,    .00404,
     +     .00215,    .01646,    .03086,
     +     .44231,    .17484,    .20921,    .02167,    .00412,
     +     .00231,    .01602,    .02975 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43310,    .17039,    .19709,    .02102,    .00416,
     +     .00243,    .01559,    .02870,
     +     .42423,    .16615,    .18604,    .02042,    .00420,
     +     .00254,    .01516,    .02769,
     +     .41597,    .16223,    .17624,    .01987,    .00421,
     +     .00261,    .01475,    .02679,
     +     .40822,    .15863,    .16755,    .01937,    .00421,
     +     .00268,    .01438,    .02595,
     +     .40058,    .15510,    .15937,    .01887,    .00421,
     +     .00274,    .01403,    .02513,
     +     .39309,    .15168,    .15179,    .01840,    .00420,
     +     .00277,    .01368,    .02436,
     +     .38614,    .14852,    .14500,    .01795,    .00418,
     +     .00280,    .01334,    .02366,
     +     .37964,    .14554,    .13890,    .01752,    .00416,
     +     .00282,    .01303,    .02300 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37323,    .14261,    .13306,    .01709,    .00413,
     +     .00284,    .01273,    .02237,
     +     .36691,    .13978,    .12758,    .01669,    .00410,
     +     .00284,    .01243,    .02174,
     +     .36095,    .13715,    .12262,    .01632,    .00406,
     +     .00284,    .01215,    .02118,
     +     .35541,    .13471,    .11812,    .01598,    .00403,
     +     .00284,    .01191,    .02065,
     +     .34981,    .13225,    .11378,    .01565,    .00399,
     +     .00284,    .01164,    .02011 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64362,    .28945,    .70203,    .02742,    .00000,
     +     .00000,    .01718,    .05344,
     +     .63822,    .28387,    .66425,    .02742,    .00000,
     +     .00000,    .01742,    .05162,
     +     .62844,    .27540,    .62349,    .02730,   -.00601,
     +     .00000,    .01765,    .04899,
     +     .62026,    .26912,    .58651,    .02708,   -.00540,
     +     .00000,    .01772,    .04722,
     +     .61109,    .26258,    .54913,    .02680,   -.00465,
     +     .00000,    .01768,    .04543,
     +     .60279,    .25701,    .51776,    .02651,   -.00373,
     +     .00000,    .01765,    .04396,
     +     .59460,    .25167,    .48929,    .02619,   -.00284,
     +     .00000,    .01758,    .04263,
     +     .58568,    .24603,    .46097,    .02580,   -.00205,
     +     .00000,    .01743,    .04124 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57763,    .24124,    .43770,    .02547,   -.00147,
     +     .00000,    .01730,    .04003,
     +     .56981,    .23662,    .41638,    .02512,   -.00095,
     +     .00000,    .01714,    .03890,
     +     .56360,    .23299,    .40035,    .02483,   -.00058,
     +     .00000,    .01698,    .03804,
     +     .55019,    .22545,    .36855,    .02414,    .00013,
     +     .00000,    .01667,    .03629,
     +     .53861,    .21908,    .34551,    .02355,    .00064,
     +    -.00172,    .01633,    .03485,
     +     .52560,    .21214,    .31773,    .02291,    .00112,
     +    -.00105,    .01595,    .03328,
     +     .51206,    .20515,    .29150,    .02218,    .00153,
     +    -.00051,    .01551,    .03173,
     +     .49987,    .19897,    .26977,    .02154,    .00185,
     +    -.00008,    .01512,    .03039 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48773,    .19290,    .24971,    .02088,    .00211,
     +     .00029,    .01472,    .02907,
     +     .47779,    .18794,    .23435,    .02033,    .00229,
     +     .00054,    .01435,    .02804,
     +     .46583,    .18211,    .21719,    .01966,    .00247,
     +     .00082,    .01390,    .02683,
     +     .45541,    .17711,    .20320,    .01908,    .00260,
     +     .00102,    .01351,    .02581,
     +     .44603,    .17266,    .19126,    .01856,    .00270,
     +     .00119,    .01318,    .02490,
     +     .43419,    .16716,    .17731,    .01791,    .00279,
     +     .00136,    .01273,    .02379,
     +     .42332,    .16215,    .16530,    .01732,    .00286,
     +     .00150,    .01232,    .02279,
     +     .41340,    .15758,    .15495,    .01676,    .00291,
     +     .00161,    .01195,    .02190 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40356,    .15313,    .14534,    .01624,    .00294,
     +     .00170,    .01157,    .02104,
     +     .39415,    .14890,    .13662,    .01573,    .00296,
     +     .00177,    .01122,    .02025,
     +     .38542,    .14502,    .12894,    .01526,    .00296,
     +     .00182,    .01088,    .01953,
     +     .37731,    .14144,    .12218,    .01483,    .00296,
     +     .00186,    .01059,    .01885,
     +     .36935,    .13797,    .11583,    .01443,    .00295,
     +     .00189,    .01031,    .01818,
     +     .36161,    .13460,    .10997,    .01401,    .00293,
     +     .00192,    .01002,    .01758,
     +     .35445,    .13150,    .10474,    .01363,    .00292,
     +     .00194,    .00976,    .01702,
     +     .34772,    .12862,    .10006,    .01327,    .00290,
     +     .00195,    .00952,    .01650 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34109,    .12579,    .09561,    .01294,    .00287,
     +     .00196,    .00928,    .01599,
     +     .33462,    .12304,    .09144,    .01260,    .00285,
     +     .00196,    .00903,    .01551,
     +     .32856,    .12048,    .08768,    .01230,    .00282,
     +     .00196,    .00881,    .01508,
     +     .32291,    .11811,    .08428,    .01201,    .00279,
     +     .00196,    .00859,    .01468,
     +     .31727,    .11574,    .08103,    .01172,    .00277,
     +     .00196,    .00839,    .01428 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64879,    .28216,    .59729,    .02385,    .00000,
     +     .00000,    .01340,    .04253,
     +     .64041,    .27533,    .56049,    .02369,    .00000,
     +     .00000,    .01363,    .04090,
     +     .62643,    .26530,    .52032,    .02337,   -.00518,
     +     .00000,    .01386,    .03857,
     +     .61551,    .25805,    .48550,    .02304,   -.00462,
     +     .00000,    .01389,    .03700,
     +     .60371,    .25056,    .45080,    .02263,   -.00395,
     +     .00000,    .01385,    .03550,
     +     .59335,    .24426,    .42210,    .02226,   -.00318,
     +     .00000,    .01380,    .03425,
     +     .58320,    .23836,    .39643,    .02190,   -.00245,
     +     .00000,    .01373,    .03304,
     +     .57230,    .23221,    .37109,    .02150,   -.00182,
     +     .00000,    .01362,    .03179 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .56283,    .22688,    .35039,    .02111,   -.00134,
     +     .00000,    .01346,    .03080,
     +     .55362,    .22188,    .33159,    .02072,   -.00093,
     +     .00000,    .01329,    .02986,
     +     .54634,    .21799,    .31748,    .02039,   -.00062,
     +     .00000,    .01318,    .02914,
     +     .53080,    .20997,    .28985,    .01978,   -.00006,
     +     .00000,    .01285,    .02760,
     +     .51755,    .20329,    .26994,    .01922,    .00035,
     +    -.00141,    .01259,    .02636,
     +     .50290,    .19605,    .24635,    .01858,    .00072,
     +    -.00088,    .01225,    .02505,
     +     .48793,    .18876,    .22425,    .01790,    .00104,
     +    -.00046,    .01185,    .02379,
     +     .47459,    .18235,    .20617,    .01727,    .00128,
     +    -.00014,    .01148,    .02270 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46139,    .17611,    .18960,    .01665,    .00148,
     +     .00014,    .01111,    .02165,
     +     .45059,    .17110,    .17702,    .01615,    .00161,
     +     .00034,    .01081,    .02081,
     +     .43768,    .16524,    .16302,    .01558,    .00175,
     +     .00054,    .01046,    .01981,
     +     .42654,    .16024,    .15174,    .01506,    .00184,
     +     .00069,    .01013,    .01898,
     +     .41656,    .15576,    .14221,    .01460,    .00191,
     +     .00081,    .00984,    .01828,
     +     .40417,    .15026,    .13113,    .01404,    .00198,
     +     .00094,    .00947,    .01737,
     +     .39281,    .14527,    .12164,    .01352,    .00202,
     +     .00104,    .00914,    .01656,
     +     .38245,    .14080,    .11348,    .01304,    .00205,
     +     .00112,    .00884,    .01585 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37226,    .13642,    .10596,    .01259,    .00207,
     +     .00118,    .00854,    .01520,
     +     .36258,    .13229,    .09921,    .01213,    .00208,
     +     .00123,    .00825,    .01457,
     +     .35367,    .12851,    .09329,    .01170,    .00208,
     +     .00127,    .00798,    .01402,
     +     .34535,    .12503,    .08813,    .01135,    .00208,
     +     .00129,    .00773,    .01349,
     +     .33721,    .12167,    .08327,    .01103,    .00207,
     +     .00132,    .00750,    .01299,
     +     .32938,    .11843,    .07882,    .01067,    .00206,
     +     .00133,    .00726,    .01252,
     +     .32217,    .11543,    .07486,    .01035,    .00204,
     +     .00135,    .00705,    .01209,
     +     .31537,    .11268,    .07134,    .01007,    .00202,
     +     .00136,    .00686,    .01169 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30870,    .10999,    .06799,    .00981,    .00200,
     +     .00135,    .00667,    .01130,
     +     .30224,    .10738,    .06488,    .00954,    .00198,
     +     .00136,    .00649,    .01094,
     +     .29621,    .10496,    .06206,    .00928,    .00196,
     +     .00136,    .00631,    .01062,
     +     .29061,    .10271,    .05954,    .00904,    .00194,
     +     .00135,    .00616,    .01031,
     +     .28502,    .10047,    .05712,    .00882,    .00191,
     +     .00135,    .00599,    .01001 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .64838,    .27136,    .50165,    .02002,    .00000,
     +     .00000,    .01072,    .03350,
     +     .63676,    .26364,    .46691,    .01985,    .00000,
     +     .00000,    .01091,    .03201,
     +     .61864,    .25238,    .42865,    .01949,   -.00443,
     +     .00000,    .01100,    .03003,
     +     .60503,    .24439,    .39656,    .01916,   -.00391,
     +     .00000,    .01102,    .02865,
     +     .59062,    .23625,    .36511,    .01876,   -.00332,
     +     .00000,    .01097,    .02733,
     +     .57815,    .22952,    .33956,    .01841,   -.00269,
     +     .00000,    .01090,    .02622,
     +     .56623,    .22319,    .31683,    .01804,   -.00210,
     +     .00000,    .01078,    .02524,
     +     .55365,    .21663,    .29454,    .01764,   -.00158,
     +     .00000,    .01062,    .02424 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54274,    .21108,    .27654,    .01727,   -.00119,
     +     .00000,    .01048,    .02339,
     +     .53226,    .20581,    .26026,    .01690,   -.00085,
     +     .00000,    .01034,    .02260,
     +     .52407,    .20172,    .24817,    .01661,   -.00062,
     +     .00000,    .01021,    .02199,
     +     .50676,    .19342,    .22462,    .01601,   -.00017,
     +     .00000,    .00992,    .02073,
     +     .49225,    .18654,    .20774,    .01547,    .00014,
     +    -.00114,    .00965,    .01973,
     +     .47636,    .17915,    .18809,    .01487,    .00044,
     +    -.00074,    .00934,    .01867,
     +     .46017,    .17180,    .16987,    .01426,    .00068,
     +    -.00041,    .00901,    .01764,
     +     .44588,    .16539,    .15508,    .01371,    .00087,
     +    -.00017,    .00870,    .01675 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43186,    .15916,    .14168,    .01316,    .00101,
     +     .00004,    .00839,    .01589,
     +     .42049,    .15417,    .13156,    .01271,    .00112,
     +     .00020,    .00813,    .01524,
     +     .40706,    .14835,    .12043,    .01219,    .00121,
     +     .00034,    .00784,    .01443,
     +     .39550,    .14342,    .11146,    .01176,    .00129,
     +     .00046,    .00759,    .01377,
     +     .38516,    .13907,    .10395,    .01138,    .00134,
     +     .00055,    .00733,    .01319,
     +     .37240,    .13369,    .09528,    .01089,    .00139,
     +     .00065,    .00702,    .01251,
     +     .36077,    .12886,    .08792,    .01045,    .00141,
     +     .00071,    .00675,    .01191,
     +     .35021,    .12451,    .08166,    .01006,    .00144,
     +     .00078,    .00649,    .01137 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33992,    .12030,    .07591,    .00967,    .00145,
     +     .00081,    .00626,    .01085,
     +     .33017,    .11634,    .07079,    .00929,    .00145,
     +     .00085,    .00602,    .01037,
     +     .32119,    .11275,    .06631,    .00896,    .00146,
     +     .00088,    .00581,    .00992,
     +     .31294,    .10945,    .06242,    .00865,    .00145,
     +     .00090,    .00562,    .00953,
     +     .30488,    .10624,    .05882,    .00835,    .00144,
     +     .00091,    .00544,    .00916,
     +     .29707,    .10319,    .05549,    .00809,    .00143,
     +     .00092,    .00526,    .00881,
     +     .28988,    .10039,    .05253,    .00785,    .00142,
     +     .00093,    .00510,    .00849,
     +     .28321,    .09778,    .04995,    .00761,    .00140,
     +     .00093,    .00494,    .00819 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27670,    .09524,    .04749,    .00737,    .00139,
     +     .00094,    .00479,    .00791,
     +     .27038,    .09280,    .04521,    .00715,    .00137,
     +     .00094,    .00465,    .00764,
     +     .26449,    .09053,    .04318,    .00695,    .00136,
     +     .00094,    .00451,    .00738,
     +     .25904,    .08844,    .04135,    .00677,    .00134,
     +     .00093,    .00440,    .00714,
     +     .25359,    .08638,    .03959,    .00658,    .00132,
     +     .00092,    .00427,    .00692 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .64137,    .25891,    .41470,    .01710,    .00000,
     +     .00000,    .00828,    .02555,
     +     .62670,    .25042,    .38260,    .01694,    .00000,
     +     .00000,    .00843,    .02431,
     +     .60478,    .23809,    .34719,    .01646,   -.00374,
     +     .00000,    .00855,    .02270,
     +     .58883,    .22941,    .31836,    .01599,   -.00327,
     +     .00000,    .00853,    .02170,
     +     .57202,    .22090,    .29047,    .01564,   -.00276,
     +     .00000,    .00848,    .02053,
     +     .55788,    .21376,    .26810,    .01527,   -.00224,
     +     .00000,    .00839,    .01968,
     +     .54447,    .20711,    .24842,    .01488,   -.00176,
     +     .00000,    .00831,    .01887,
     +     .53041,    .20032,    .22931,    .01449,   -.00134,
     +     .00000,    .00819,    .01803 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51832,    .19462,    .21397,    .01412,   -.00103,
     +     .00000,    .00808,    .01731,
     +     .50687,    .18922,    .20023,    .01376,   -.00077,
     +     .00000,    .00794,    .01669,
     +     .49795,    .18508,    .19009,    .01345,   -.00057,
     +     .00000,    .00781,    .01621,
     +     .47923,    .17658,    .17051,    .01290,   -.00022,
     +     .00000,    .00756,    .01525,
     +     .46374,    .16966,    .15651,    .01241,    .00002,
     +    -.00092,    .00732,    .01448,
     +     .44688,    .16230,    .14046,    .01187,    .00025,
     +    -.00060,    .00705,    .01366,
     +     .42991,    .15498,    .12576,    .01132,    .00045,
     +    -.00035,    .00679,    .01281,
     +     .41504,    .14865,    .11396,    .01085,    .00058,
     +    -.00017,    .00654,    .01210 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40054,    .14257,    .10336,    .01037,    .00069,
     +    -.00001,    .00626,    .01143,
     +     .38883,    .13772,    .09539,    .00998,    .00077,
     +     .00011,    .00606,    .01090,
     +     .37505,    .13206,    .08672,    .00953,    .00085,
     +     .00022,    .00580,    .01034,
     +     .36329,    .12729,    .07982,    .00915,    .00089,
     +     .00030,    .00557,    .00986,
     +     .35287,    .12309,    .07410,    .00879,    .00093,
     +     .00036,    .00538,    .00939,
     +     .34001,    .11794,    .06750,    .00838,    .00096,
     +     .00044,    .00514,    .00888,
     +     .32834,    .11333,    .06192,    .00803,    .00099,
     +     .00049,    .00493,    .00841,
     +     .31780,    .10921,    .05724,    .00770,    .00100,
     +     .00053,    .00474,    .00797 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30754,    .10523,    .05300,    .00738,    .00101,
     +     .00056,    .00453,    .00760,
     +     .29788,    .10151,    .04920,    .00709,    .00101,
     +     .00058,    .00435,    .00724,
     +     .28907,    .09810,    .04593,    .00680,    .00101,
     +     .00060,    .00418,    .00693,
     +     .28097,    .09502,    .04308,    .00653,    .00101,
     +     .00062,    .00404,    .00664,
     +     .27313,    .09202,    .04042,    .00629,    .00100,
     +     .00063,    .00391,    .00635,
     +     .26554,    .08917,    .03803,    .00608,    .00099,
     +     .00064,    .00376,    .00610,
     +     .25857,    .08657,    .03591,    .00588,    .00098,
     +     .00064,    .00363,    .00586,
     +     .25212,    .08417,    .03407,    .00569,    .00097,
     +     .00064,    .00352,    .00564 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24581,    .08183,    .03231,    .00550,    .00096,
     +     .00065,    .00341,    .00543,
     +     .23974,    .07958,    .03070,    .00531,    .00094,
     +     .00064,    .00331,    .00522,
     +     .23409,    .07749,    .02925,    .00515,    .00093,
     +     .00064,    .00320,    .00504,
     +     .22886,    .07557,    .02796,    .00501,    .00092,
     +     .00064,    .00311,    .00488,
     +     .22365,    .07368,    .02673,    .00487,    .00090,
     +     .00063,    .00301,    .00471 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62850,    .24477,    .33533,    .01442,    .00000,
     +     .00000,    .00630,    .01907,
     +     .61130,    .23542,    .30646,    .01414,    .00000,
     +     .00000,    .00646,    .01818,
     +     .58587,    .22240,    .27464,    .01364,   -.00312,
     +     .00000,    .00656,    .01689,
     +     .56762,    .21346,    .24945,    .01327,   -.00270,
     +     .00000,    .00655,    .01600,
     +     .54896,    .20449,    .22534,    .01287,   -.00227,
     +     .00000,    .00655,    .01512,
     +     .53331,    .19714,    .20635,    .01249,   -.00185,
     +     .00000,    .00645,    .01448,
     +     .51857,    .19040,    .18974,    .01216,   -.00146,
     +     .00000,    .00634,    .01382,
     +     .50330,    .18352,    .17372,    .01179,   -.00112,
     +     .00000,    .00626,    .01316 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49036,    .17770,    .16102,    .01142,   -.00087,
     +     .00000,    .00613,    .01267,
     +     .47811,    .17229,    .14974,    .01107,   -.00066,
     +     .00000,    .00602,    .01217,
     +     .46863,    .16815,    .14145,    .01083,   -.00050,
     +     .00000,    .00593,    .01178,
     +     .44895,    .15973,    .12562,    .01030,   -.00023,
     +     .00000,    .00570,    .01101,
     +     .43274,    .15294,    .11441,    .00987,   -.00005,
     +    -.00073,    .00549,    .01040,
     +     .41530,    .14570,    .10166,    .00939,    .00013,
     +    -.00049,    .00528,    .00976,
     +     .39783,    .13856,    .09013,    .00890,    .00028,
     +    -.00030,    .00504,    .00916,
     +     .38261,    .13242,    .08101,    .00845,    .00038,
     +    -.00016,    .00482,    .00865 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36788,    .12654,    .07285,    .00805,    .00047,
     +    -.00003,    .00463,    .00815,
     +     .35608,    .12186,    .06682,    .00775,    .00052,
     +     .00005,    .00444,    .00775,
     +     .34228,    .11650,    .06029,    .00736,    .00057,
     +     .00013,    .00425,    .00729,
     +     .33058,    .11195,    .05512,    .00702,    .00061,
     +     .00019,    .00408,    .00690,
     +     .32025,    .10794,    .05084,    .00673,    .00064,
     +     .00025,    .00393,    .00659,
     +     .30748,    .10310,    .04602,    .00641,    .00066,
     +     .00029,    .00373,    .00619,
     +     .29600,    .09878,    .04196,    .00612,    .00068,
     +     .00033,    .00356,    .00585,
     +     .28570,    .09491,    .03857,    .00585,    .00070,
     +     .00036,    .00341,    .00554 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27572,    .09122,    .03552,    .00559,    .00070,
     +     .00039,    .00326,    .00525,
     +     .26634,    .08775,    .03283,    .00533,    .00069,
     +     .00040,    .00313,    .00499,
     +     .25777,    .08459,    .03051,    .00511,    .00070,
     +     .00041,    .00300,    .00477,
     +     .24997,    .08174,    .02851,    .00490,    .00069,
     +     .00042,    .00288,    .00456,
     +     .24241,    .07899,    .02670,    .00469,    .00068,
     +     .00043,    .00275,    .00436,
     +     .23514,    .07637,    .02504,    .00452,    .00068,
     +     .00043,    .00266,    .00416,
     +     .22849,    .07399,    .02358,    .00436,    .00067,
     +     .00043,    .00257,    .00398,
     +     .22236,    .07178,    .02230,    .00421,    .00066,
     +     .00044,    .00248,    .00384 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21640,    .06963,    .02110,    .00405,    .00065,
     +     .00043,    .00239,    .00369,
     +     .21063,    .06760,    .01999,    .00392,    .00064,
     +     .00044,    .00231,    .00356,
     +     .20527,    .06572,    .01901,    .00380,    .00064,
     +     .00044,    .00223,    .00343,
     +     .20032,    .06400,    .01815,    .00368,    .00062,
     +     .00043,    .00216,    .00331,
     +     .19546,    .06228,    .01732,    .00356,    .00061,
     +     .00042,    .00209,    .00320 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61044,    .22893,    .26313,    .01187,    .00000,
     +     .00000,    .00488,    .01398,
     +     .59074,    .21923,    .23794,    .01152,    .00000,
     +     .00000,    .00505,    .01329,
     +     .56227,    .20570,    .21048,    .01107,   -.00257,
     +     .00000,    .00508,    .01234,
     +     .54228,    .19652,    .18902,    .01072,   -.00220,
     +     .00000,    .00509,    .01165,
     +     .52195,    .18753,    .16896,    .01033,   -.00184,
     +     .00000,    .00496,    .01103,
     +     .50509,    .18016,    .15324,    .01003,   -.00149,
     +     .00000,    .00494,    .01043,
     +     .48941,    .17338,    .13971,    .00968,   -.00119,
     +     .00000,    .00487,    .00996,
     +     .47329,    .16649,    .12676,    .00930,   -.00092,
     +     .00000,    .00475,    .00952 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45963,    .16076,    .11663,    .00903,   -.00073,
     +     .00000,    .00463,    .00909,
     +     .44677,    .15543,    .10762,    .00878,   -.00056,
     +     .00000,    .00454,    .00871,
     +     .43688,    .15137,    .10106,    .00854,   -.00044,
     +     .00000,    .00446,    .00843,
     +     .41661,    .14311,    .08869,    .00806,   -.00022,
     +     .00000,    .00426,    .00786,
     +     .40008,    .13648,    .08000,    .00765,   -.00008,
     +    -.00056,    .00411,    .00744,
     +     .38233,    .12952,    .07031,    .00723,    .00005,
     +    -.00038,    .00390,    .00696,
     +     .36473,    .12268,    .06160,    .00683,    .00017,
     +    -.00024,    .00372,    .00649,
     +     .34951,    .11683,    .05477,    .00649,    .00024,
     +    -.00014,    .00357,    .00607 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33483,    .11125,    .04878,    .00615,    .00031,
     +    -.00004,    .00341,    .00569,
     +     .32316,    .10685,    .04437,    .00587,    .00035,
     +     .00002,    .00327,    .00539,
     +     .30952,    .10176,    .03965,    .00557,    .00039,
     +     .00008,    .00310,    .00509,
     +     .29799,    .09751,    .03598,    .00530,    .00041,
     +     .00012,    .00297,    .00481,
     +     .28786,    .09379,    .03297,    .00507,    .00044,
     +     .00016,    .00286,    .00453,
     +     .27552,    .08928,    .02957,    .00479,    .00046,
     +     .00020,    .00269,    .00427,
     +     .26441,    .08527,    .02678,    .00454,    .00047,
     +     .00022,    .00256,    .00402,
     +     .25445,    .08170,    .02445,    .00434,    .00048,
     +     .00025,    .00244,    .00380 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24486,    .07831,    .02239,    .00414,    .00047,
     +     .00026,    .00233,    .00358,
     +     .23590,    .07514,    .02058,    .00396,    .00047,
     +     .00027,    .00223,    .00338,
     +     .22779,    .07226,    .01904,    .00375,    .00047,
     +     .00027,    .00213,    .00323,
     +     .22034,    .06965,    .01771,    .00360,    .00046,
     +     .00028,    .00204,    .00310,
     +     .21313,    .06714,    .01649,    .00346,    .00046,
     +     .00029,    .00197,    .00297,
     +     .20629,    .06478,    .01542,    .00333,    .00046,
     +     .00029,    .00189,    .00282,
     +     .20003,    .06261,    .01447,    .00321,    .00046,
     +     .00030,    .00182,    .00268,
     +     .19429,    .06064,    .01366,    .00307,    .00045,
     +     .00029,    .00175,    .00257 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18871,    .05873,    .01291,    .00294,    .00044,
     +     .00030,    .00167,    .00247,
     +     .18333,    .05689,    .01222,    .00283,    .00043,
     +     .00029,    .00162,    .00237,
     +     .17837,    .05521,    .01161,    .00272,    .00042,
     +     .00029,    .00157,    .00228,
     +     .17379,    .05367,    .01105,    .00263,    .00042,
     +     .00029,    .00153,    .00219,
     +     .16925,    .05215,    .01053,    .00256,    .00041,
     +     .00029,    .00147,    .00211 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58734,    .21253,    .19813,    .00991,    .00000,
     +     .00000,    .00358,    .00983,
     +     .56556,    .20258,    .17696,    .00960,    .00000,
     +     .00000,    .00368,    .00937,
     +     .53455,    .18892,    .15422,    .00912,   -.00208,
     +     .00000,    .00371,    .00866,
     +     .51316,    .17967,    .13665,    .00873,   -.00177,
     +     .00000,    .00371,    .00824,
     +     .49170,    .17055,    .12048,    .00840,   -.00147,
     +     .00000,    .00371,    .00771,
     +     .47403,    .16321,    .10804,    .00803,   -.00120,
     +     .00000,    .00364,    .00738,
     +     .45766,    .15655,    .09741,    .00772,   -.00095,
     +     .00000,    .00357,    .00705,
     +     .44090,    .14982,    .08740,    .00742,   -.00074,
     +     .00000,    .00348,    .00668 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42685,    .14422,    .07960,    .00715,   -.00059,
     +     .00000,    .00340,    .00639,
     +     .41376,    .13903,    .07282,    .00688,   -.00046,
     +     .00000,    .00332,    .00609,
     +     .40370,    .13508,    .06788,    .00667,   -.00037,
     +     .00000,    .00328,    .00587,
     +     .38307,    .12718,    .05872,    .00632,   -.00020,
     +     .00000,    .00313,    .00544,
     +     .36647,    .12084,    .05231,    .00595,   -.00010,
     +    -.00044,    .00300,    .00513,
     +     .34879,    .11421,    .04523,    .00561,    .00000,
     +    -.00030,    .00287,    .00476,
     +     .33135,    .10772,    .03899,    .00525,    .00009,
     +    -.00019,    .00272,    .00444,
     +     .31634,    .10221,    .03418,    .00495,    .00015,
     +    -.00012,    .00258,    .00417 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30191,    .09701,    .03000,    .00468,    .00020,
     +    -.00004,    .00245,    .00389,
     +     .29055,    .09289,    .02699,    .00445,    .00023,
     +     .00000,    .00232,    .00369,
     +     .27736,    .08817,    .02381,    .00417,    .00026,
     +     .00004,    .00221,    .00346,
     +     .26625,    .08423,    .02136,    .00396,    .00027,
     +     .00007,    .00210,    .00326,
     +     .25650,    .08078,    .01936,    .00379,    .00029,
     +     .00010,    .00201,    .00310,
     +     .24457,    .07666,    .01716,    .00360,    .00030,
     +     .00012,    .00192,    .00287,
     +     .23399,    .07301,    .01538,    .00339,    .00031,
     +     .00015,    .00180,    .00269,
     +     .22460,    .06976,    .01390,    .00320,    .00031,
     +     .00016,    .00171,    .00256 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21556,    .06665,    .01261,    .00303,    .00031,
     +     .00017,    .00162,    .00242,
     +     .20708,    .06378,    .01151,    .00287,    .00032,
     +     .00018,    .00155,    .00229,
     +     .19940,    .06118,    .01058,    .00277,    .00032,
     +     .00018,    .00148,    .00216,
     +     .19246,    .05886,    .00980,    .00263,    .00032,
     +     .00019,    .00142,    .00204,
     +     .18579,    .05663,    .00908,    .00251,    .00031,
     +     .00019,    .00136,    .00194,
     +     .17939,    .05452,    .00845,    .00241,    .00031,
     +     .00020,    .00130,    .00185,
     +     .17357,    .05260,    .00792,    .00231,    .00030,
     +     .00019,    .00124,    .00176,
     +     .16823,    .05085,    .00744,    .00222,    .00030,
     +     .00020,    .00120,    .00169 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16307,    .04914,    .00701,    .00213,    .00029,
     +     .00020,    .00117,    .00161,
     +     .15811,    .04751,    .00662,    .00205,    .00029,
     +     .00019,    .00112,    .00155,
     +     .15354,    .04603,    .00628,    .00197,    .00029,
     +     .00020,    .00107,    .00149,
     +     .14934,    .04465,    .00600,    .00189,    .00028,
     +     .00019,    .00102,    .00144,
     +     .14519,    .04332,    .00569,    .00184,    .00027,
     +     .00019,    .00099,    .00139 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .56000,    .19547,    .14010,    .00809,    .00000,
     +     .00000,    .00258,    .00676,
     +     .53651,    .18549,    .12325,    .00784,    .00000,
     +     .00000,    .00259,    .00644,
     +     .50373,    .17177,    .10531,    .00735,   -.00165,
     +     .00000,    .00267,    .00603,
     +     .48122,    .16273,    .09170,    .00707,   -.00139,
     +     .00000,    .00266,    .00562,
     +     .45892,    .15382,    .07934,    .00667,   -.00115,
     +     .00000,    .00265,    .00534,
     +     .44068,    .14667,    .07005,    .00642,   -.00094,
     +     .00000,    .00258,    .00506,
     +     .42396,    .14019,    .06215,    .00615,   -.00074,
     +     .00000,    .00255,    .00481,
     +     .40698,    .13364,    .05479,    .00586,   -.00058,
     +     .00000,    .00250,    .00456 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39278,    .12832,    .04920,    .00565,   -.00046,
     +     .00000,    .00244,    .00428,
     +     .37959,    .12339,    .04439,    .00544,   -.00037,
     +     .00000,    .00238,    .00405,
     +     .36950,    .11965,    .04094,    .00526,   -.00029,
     +     .00000,    .00231,    .00391,
     +     .34906,    .11207,    .03455,    .00490,   -.00018,
     +     .00000,    .00218,    .00367,
     +     .33262,    .10611,    .03022,    .00463,   -.00009,
     +    -.00033,    .00209,    .00343,
     +     .31523,    .09990,    .02543,    .00435,   -.00002,
     +    -.00023,    .00200,    .00317,
     +     .29826,    .09384,    .02131,    .00404,    .00004,
     +    -.00015,    .00189,    .00292,
     +     .28376,    .08873,    .01820,    .00378,    .00009,
     +    -.00009,    .00178,    .00273 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26988,    .08388,    .01553,    .00356,    .00012,
     +    -.00005,    .00167,    .00258,
     +     .25889,    .08008,    .01367,    .00338,    .00015,
     +    -.00001,    .00158,    .00245,
     +     .24620,    .07578,    .01172,    .00320,    .00017,
     +     .00002,    .00150,    .00227,
     +     .23560,    .07219,    .01026,    .00303,    .00018,
     +     .00005,    .00143,    .00213,
     +     .22636,    .06907,    .00911,    .00288,    .00019,
     +     .00006,    .00135,    .00202,
     +     .21519,    .06530,    .00790,    .00269,    .00020,
     +     .00008,    .00127,    .00187,
     +     .20523,    .06199,    .00693,    .00253,    .00021,
     +     .00009,    .00120,    .00175,
     +     .19638,    .05907,    .00614,    .00240,    .00021,
     +     .00011,    .00117,    .00163 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18795,    .05630,    .00548,    .00226,    .00021,
     +     .00011,    .00110,    .00154,
     +     .18011,    .05372,    .00491,    .00213,    .00022,
     +     .00012,    .00103,    .00146,
     +     .17300,    .05141,    .00444,    .00203,    .00021,
     +     .00012,    .00099,    .00139,
     +     .16657,    .04933,    .00406,    .00193,    .00021,
     +     .00013,    .00094,    .00133,
     +     .16039,    .04735,    .00371,    .00185,    .00021,
     +     .00013,    .00092,    .00124,
     +     .15455,    .04548,    .00343,    .00176,    .00020,
     +     .00013,    .00087,    .00119,
     +     .14925,    .04378,    .00320,    .00168,    .00020,
     +     .00013,    .00084,    .00113,
     +     .14439,    .04223,    .00299,    .00161,    .00020,
     +     .00013,    .00079,    .00108 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13967,    .04075,    .00280,    .00155,    .00019,
     +     .00013,    .00076,    .00104,
     +     .13516,    .03933,    .00263,    .00149,    .00020,
     +     .00014,    .00073,    .00099,
     +     .13100,    .03802,    .00251,    .00143,    .00019,
     +     .00013,    .00069,    .00096,
     +     .12719,    .03684,    .00239,    .00138,    .00019,
     +     .00013,    .00067,    .00091,
     +     .12345,    .03566,    .00229,    .00132,    .00018,
     +     .00013,    .00064,    .00089 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .52888,    .17786,    .08951,    .00632,    .00000,
     +     .00000,    .00186,    .00459,
     +     .50416,    .16796,    .07686,    .00608,    .00000,
     +     .00000,    .00192,    .00438,
     +     .47002,    .15457,    .06380,    .00571,   -.00129,
     +     .00000,    .00201,    .00404,
     +     .44696,    .14576,    .05398,    .00542,   -.00108,
     +     .00000,    .00195,    .00379,
     +     .42425,    .13715,    .04513,    .00516,   -.00088,
     +     .00000,    .00195,    .00357,
     +     .40583,    .13028,    .03867,    .00489,   -.00072,
     +     .00000,    .00190,    .00341,
     +     .38900,    .12407,    .03332,    .00467,   -.00057,
     +     .00000,    .00186,    .00325,
     +     .37201,    .11788,    .02839,    .00444,   -.00045,
     +     .00000,    .00182,    .00307 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35790,    .11281,    .02477,    .00423,   -.00037,
     +     .00000,    .00175,    .00295,
     +     .34485,    .10815,    .02166,    .00406,   -.00029,
     +     .00000,    .00170,    .00281,
     +     .33489,    .10462,    .01951,    .00392,   -.00024,
     +     .00000,    .00167,    .00270,
     +     .31489,    .09758,    .01563,    .00363,   -.00014,
     +     .00000,    .00157,    .00248,
     +     .29889,    .09205,    .01303,    .00342,   -.00008,
     +    -.00024,    .00151,    .00229,
     +     .28206,    .08627,    .01015,    .00320,   -.00003,
     +    -.00017,    .00143,    .00212,
     +     .26570,    .08071,    .00783,    .00298,    .00001,
     +    -.00012,    .00132,    .00198,
     +     .25179,    .07602,    .00610,    .00278,    .00005,
     +    -.00007,    .00125,    .00185 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23861,    .07161,    .00470,    .00257,    .00008,
     +    -.00003,    .00119,    .00172,
     +     .22822,    .06822,    .00377,    .00246,    .00009,
     +    -.00002,    .00115,    .00158,
     +     .21633,    .06428,    .00286,    .00227,    .00011,
     +     .00001,    .00107,    .00148,
     +     .20641,    .06104,    .00221,    .00212,    .00011,
     +     .00002,    .00101,    .00140,
     +     .19774,    .05826,    .00173,    .00202,    .00012,
     +     .00003,    .00096,    .00131,
     +     .18729,    .05489,    .00122,    .00191,    .00013,
     +     .00005,    .00089,    .00121,
     +     .17808,    .05195,    .00087,    .00177,    .00013,
     +     .00006,    .00085,    .00114,
     +     .16993,    .04936,    .00060,    .00166,    .00014,
     +     .00007,    .00081,    .00108 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16215,    .04690,    .00040,    .00157,    .00014,
     +     .00008,    .00076,    .00103,
     +     .15492,    .04465,    .00025,    .00148,    .00014,
     +     .00008,    .00073,    .00096,
     +     .14843,    .04263,    .00016,    .00141,    .00014,
     +     .00008,    .00070,    .00090,
     +     .14259,    .04080,    .00009,    .00134,    .00014,
     +     .00008,    .00066,    .00084,
     +     .13701,    .03906,    .00004,    .00125,    .00013,
     +     .00008,    .00062,    .00080,
     +     .13170,    .03743,   -.00001,    .00121,    .00014,
     +     .00009,    .00060,    .00076,
     +     .12687,    .03596,   -.00003,    .00116,    .00013,
     +     .00009,    .00057,    .00073,
     +     .12250,    .03462,   -.00004,    .00110,    .00013,
     +     .00009,    .00054,    .00069 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11828,    .03333,   -.00003,    .00103,    .00013,
     +     .00008,    .00052,    .00067,
     +     .11422,    .03212,   -.00003,    .00098,    .00012,
     +     .00008,    .00049,    .00063,
     +     .11048,    .03099,   -.00003,    .00096,    .00012,
     +     .00008,    .00048,    .00061,
     +     .10707,    .02997,   -.00002,    .00094,    .00012,
     +     .00009,    .00046,    .00059,
     +     .10375,    .02897,    .00001,    .00090,    .00012,
     +     .00009,    .00044,    .00055 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .49464,    .16019,    .04623,    .00483,    .00000,
     +     .00000,    .00141,    .00306,
     +     .46916,    .15055,    .03767,    .00462,    .00000,
     +     .00000,    .00145,    .00292,
     +     .43437,    .13754,    .02949,    .00420,   -.00099,
     +     .00000,    .00150,    .00272,
     +     .41103,    .12906,    .02312,    .00394,   -.00082,
     +     .00000,    .00148,    .00263,
     +     .38831,    .12088,    .01769,    .00368,   -.00067,
     +     .00000,    .00146,    .00244,
     +     .36996,    .11442,    .01375,    .00351,   -.00055,
     +     .00000,    .00142,    .00233,
     +     .35333,    .10858,    .01060,    .00334,   -.00043,
     +     .00000,    .00139,    .00221,
     +     .33662,    .10277,    .00783,    .00316,   -.00034,
     +     .00000,    .00136,    .00208 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .32274,    .09803,    .00590,    .00304,   -.00028,
     +     .00000,    .00132,    .00197,
     +     .31003,    .09371,    .00428,    .00288,   -.00022,
     +     .00000,    .00128,    .00189,
     +     .30043,    .09044,    .00318,    .00276,   -.00018,
     +     .00000,    .00124,    .00185,
     +     .28108,    .08394,    .00142,    .00251,   -.00012,
     +     .00000,    .00119,    .00169,
     +     .26574,    .07886,    .00027,    .00237,   -.00007,
     +    -.00018,    .00112,    .00156,
     +     .24976,    .07360,   -.00096,    .00216,   -.00003,
     +    -.00012,    .00105,    .00146,
     +     .23428,    .06857,   -.00195,    .00200,    .00001,
     +    -.00008,    .00099,    .00136,
     +     .22113,    .06435,   -.00252,    .00186,    .00003,
     +    -.00005,    .00094,    .00126 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20874,    .06039,   -.00290,    .00172,    .00004,
     +    -.00004,    .00088,    .00117,
     +     .19905,    .05732,   -.00309,    .00161,    .00006,
     +    -.00001,    .00082,    .00110,
     +     .18797,    .05388,   -.00326,    .00152,    .00007,
     +     .00000,    .00078,    .00099,
     +     .17876,    .05100,   -.00328,    .00143,    .00007,
     +     .00001,    .00074,    .00093,
     +     .17080,    .04852,   -.00328,    .00133,    .00008,
     +     .00003,    .00069,    .00089,
     +     .16122,    .04557,   -.00323,    .00124,    .00008,
     +     .00003,    .00065,    .00082,
     +     .15279,    .04298,   -.00312,    .00116,    .00008,
     +     .00004,    .00061,    .00077,
     +     .14535,    .04072,   -.00301,    .00110,    .00009,
     +     .00005,    .00058,    .00074 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13831,    .03859,   -.00288,    .00102,    .00009,
     +     .00005,    .00055,    .00069,
     +     .13178,    .03663,   -.00274,    .00096,    .00008,
     +     .00005,    .00052,    .00064,
     +     .12592,    .03489,   -.00258,    .00090,    .00009,
     +     .00006,    .00048,    .00060,
     +     .12066,    .03331,   -.00243,    .00086,    .00009,
     +     .00005,    .00046,    .00056,
     +     .11567,    .03182,   -.00230,    .00081,    .00008,
     +     .00005,    .00044,    .00054,
     +     .11093,    .03042,   -.00216,    .00078,    .00008,
     +     .00005,    .00041,    .00051,
     +     .10663,    .02918,   -.00203,    .00074,    .00008,
     +     .00005,    .00040,    .00047,
     +     .10272,    .02804,   -.00192,    .00071,    .00009,
     +     .00006,    .00038,    .00045 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09895,    .02693,   -.00179,    .00067,    .00008,
     +     .00006,    .00037,    .00042,
     +     .09539,    .02589,   -.00168,    .00064,    .00008,
     +     .00006,    .00034,    .00041,
     +     .09212,    .02495,   -.00159,    .00062,    .00008,
     +     .00006,    .00033,    .00039,
     +     .08914,    .02408,   -.00148,    .00060,    .00008,
     +     .00005,    .00032,    .00038,
     +     .08623,    .02323,   -.00138,    .00056,    .00007,
     +     .00005,    .00031,    .00036 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .45839,    .14350,    .00974,    .00403,    .00000,
     +     .00000,    .00075,    .00177,
     +     .43264,    .13417,    .00506,    .00379,    .00000,
     +     .00000,    .00081,    .00175,
     +     .39779,    .12183,    .00119,    .00344,   -.00074,
     +     .00000,    .00086,    .00166,
     +     .37457,    .11379,   -.00203,    .00329,   -.00061,
     +     .00000,    .00087,    .00157,
     +     .35220,    .10608,   -.00450,    .00302,   -.00049,
     +     .00000,    .00088,    .00147,
     +     .33421,    .10004,   -.00616,    .00289,   -.00040,
     +     .00000,    .00090,    .00134,
     +     .31806,    .09459,   -.00736,    .00273,   -.00032,
     +     .00000,    .00087,    .00129,
     +     .30194,    .08918,   -.00821,    .00249,   -.00026,
     +     .00000,    .00080,    .00128 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .28865,    .08481,   -.00879,    .00234,   -.00021,
     +     .00000,    .00080,    .00123,
     +     .27645,    .08083,   -.00909,    .00223,   -.00016,
     +     .00000,    .00076,    .00114,
     +     .26722,    .07785,   -.00925,    .00217,   -.00014,
     +     .00000,    .00075,    .00107,
     +     .24881,    .07192,   -.00940,    .00195,   -.00009,
     +     .00000,    .00071,    .00101,
     +     .23431,    .06731,   -.00923,    .00180,   -.00006,
     +    -.00013,    .00068,    .00094,
     +     .21925,    .06257,   -.00921,    .00167,   -.00003,
     +    -.00010,    .00062,    .00087,
     +     .20471,    .05806,   -.00904,    .00157,   -.00001,
     +    -.00007,    .00059,    .00079,
     +     .19250,    .05429,   -.00876,    .00147,    .00001,
     +    -.00004,    .00055,    .00073 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18106,    .05078,   -.00837,    .00134,    .00002,
     +    -.00003,    .00052,    .00068,
     +     .17217,    .04807,   -.00805,    .00124,    .00003,
     +    -.00001,    .00050,    .00063,
     +     .16201,    .04498,   -.00759,    .00115,    .00004,
     +     .00000,    .00045,    .00059,
     +     .15361,    .04246,   -.00722,    .00108,    .00005,
     +     .00001,    .00044,    .00057,
     +     .14638,    .04028,   -.00686,    .00101,    .00005,
     +     .00001,    .00043,    .00053,
     +     .13774,    .03772,   -.00634,    .00090,    .00005,
     +     .00002,    .00038,    .00050,
     +     .13010,    .03547,   -.00590,    .00085,    .00005,
     +     .00002,    .00035,    .00046,
     +     .12335,    .03350,   -.00553,    .00084,    .00006,
     +     .00003,    .00035,    .00044 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11704,    .03166,   -.00513,    .00077,    .00006,
     +     .00003,    .00032,    .00040,
     +     .11124,    .02996,   -.00475,    .00070,    .00005,
     +     .00003,    .00030,    .00037,
     +     .10604,    .02846,   -.00444,    .00067,    .00005,
     +     .00003,    .00028,    .00036,
     +     .10136,    .02712,   -.00416,    .00063,    .00006,
     +     .00004,    .00027,    .00034,
     +     .09689,    .02585,   -.00386,    .00060,    .00006,
     +     .00004,    .00024,    .00031,
     +     .09271,    .02466,   -.00360,    .00057,    .00006,
     +     .00004,    .00023,    .00029,
     +     .08893,    .02359,   -.00337,    .00057,    .00005,
     +     .00004,    .00022,    .00027,
     +     .08551,    .02263,   -.00315,    .00053,    .00005,
     +     .00003,    .00021,    .00026 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08221,    .02170,   -.00295,    .00050,    .00005,
     +     .00003,    .00021,    .00024,
     +     .07909,    .02082,   -.00276,    .00048,    .00005,
     +     .00003,    .00020,    .00023,
     +     .07625,    .02001,   -.00259,    .00045,    .00005,
     +     .00003,    .00019,    .00022,
     +     .07365,    .01929,   -.00245,    .00044,    .00005,
     +     .00003,    .00017,    .00022,
     +     .07111,    .01857,   -.00229,    .00041,    .00004,
     +     .00003,    .00017,    .00021 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .42002,    .12628,   -.01913,    .00273,    .00000,
     +     .00000,    .00060,    .00121,
     +     .39431,    .11757,   -.02032,    .00265,    .00000,
     +     .00000,    .00061,    .00113,
     +     .35981,    .10608,   -.02022,    .00245,   -.00054,
     +     .00000,    .00067,    .00100,
     +     .33742,    .09858,   -.02075,    .00222,   -.00044,
     +     .00000,    .00064,    .00101,
     +     .31559,    .09149,   -.02087,    .00208,   -.00035,
     +     .00000,    .00065,    .00099,
     +     .29837,    .08595,   -.02059,    .00192,   -.00029,
     +     .00000,    .00064,    .00091,
     +     .28285,    .08098,   -.02016,    .00181,   -.00023,
     +     .00000,    .00060,    .00084,
     +     .26738,    .07610,   -.01964,    .00174,   -.00019,
     +     .00000,    .00061,    .00079 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25475,    .07215,   -.01902,    .00165,   -.00015,
     +     .00000,    .00058,    .00074,
     +     .24324,    .06855,   -.01840,    .00156,   -.00012,
     +     .00000,    .00057,    .00072,
     +     .23458,    .06585,   -.01791,    .00148,   -.00010,
     +     .00000,    .00055,    .00074,
     +     .21733,    .06059,   -.01664,    .00136,   -.00007,
     +     .00000,    .00049,    .00064,
     +     .20384,    .05647,   -.01560,    .00126,   -.00005,
     +    -.00009,    .00045,    .00061,
     +     .18991,    .05227,   -.01468,    .00117,   -.00002,
     +    -.00006,    .00045,    .00055,
     +     .17658,    .04830,   -.01363,    .00107,   -.00001,
     +    -.00005,    .00042,    .00048,
     +     .16542,    .04499,   -.01267,    .00096,    .00001,
     +    -.00003,    .00038,    .00047 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15499,    .04192,   -.01177,    .00089,    .00001,
     +    -.00002,    .00034,    .00045,
     +     .14686,    .03957,   -.01106,    .00087,    .00002,
     +    -.00001,    .00032,    .00041,
     +     .13770,    .03691,   -.01018,    .00079,    .00003,
     +     .00000,    .00030,    .00037,
     +     .13013,    .03473,   -.00944,    .00072,    .00002,
     +     .00000,    .00028,    .00035,
     +     .12363,    .03285,   -.00882,    .00070,    .00002,
     +     .00000,    .00027,    .00032,
     +     .11590,    .03064,   -.00806,    .00063,    .00003,
     +     .00001,    .00024,    .00030,
     +     .10913,    .02872,   -.00741,    .00058,    .00003,
     +     .00001,    .00023,    .00027,
     +     .10321,    .02706,   -.00684,    .00053,    .00003,
     +     .00001,    .00021,    .00026 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09763,    .02548,   -.00630,    .00050,    .00004,
     +     .00002,    .00020,    .00024,
     +     .09250,    .02406,   -.00582,    .00048,    .00004,
     +     .00002,    .00019,    .00023,
     +     .08792,    .02279,   -.00538,    .00045,    .00003,
     +     .00002,    .00018,    .00021,
     +     .08385,    .02166,   -.00500,    .00043,    .00003,
     +     .00002,    .00016,    .00020,
     +     .07996,    .02060,   -.00465,    .00041,    .00003,
     +     .00002,    .00017,    .00019,
     +     .07632,    .01960,   -.00432,    .00038,    .00003,
     +     .00002,    .00016,    .00018,
     +     .07308,    .01872,   -.00402,    .00035,    .00003,
     +     .00002,    .00014,    .00017,
     +     .07010,    .01791,   -.00376,    .00034,    .00003,
     +     .00002,    .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)/
     +     .06725,    .01713,   -.00351,    .00033,    .00003,
     +     .00002,    .00013,    .00014,
     +     .06458,    .01641,   -.00328,    .00031,    .00003,
     +     .00002,    .00012,    .00014,
     +     .06214,    .01574,   -.00307,    .00028,    .00003,
     +     .00002,    .00011,    .00015,
     +     .05992,    .01513,   -.00288,    .00025,    .00003,
     +     .00003,    .00011,    .00013,
     +     .05774,    .01456,   -.00271,    .00025,    .00003,
     +     .00003,    .00011,    .00013 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .38029,    .10988,   -.04082,    .00187,    .00000,
     +     .00000,    .00050,    .00070,
     +     .35525,    .10180,   -.03920,    .00173,    .00000,
     +     .00000,    .00052,    .00071,
     +     .32201,    .09115,   -.03584,    .00154,   -.00038,
     +     .00000,    .00051,    .00070,
     +     .30024,    .08438,   -.03411,    .00150,   -.00031,
     +     .00000,    .00052,    .00062,
     +     .27955,    .07794,   -.03225,    .00138,   -.00025,
     +     .00000,    .00049,    .00062,
     +     .26313,    .07289,   -.03052,    .00128,   -.00020,
     +     .00000,    .00047,    .00062,
     +     .24848,    .06846,   -.02891,    .00119,   -.00016,
     +     .00000,    .00046,    .00060,
     +     .23398,    .06411,   -.02716,    .00114,   -.00013,
     +     .00000,    .00041,    .00053 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22222,    .06055,   -.02571,    .00107,   -.00011,
     +     .00000,    .00041,    .00051,
     +     .21150,    .05737,   -.02431,    .00100,   -.00008,
     +     .00000,    .00039,    .00048,
     +     .20347,    .05500,   -.02321,    .00094,   -.00007,
     +     .00000,    .00039,    .00043,
     +     .18756,    .05033,   -.02109,    .00085,   -.00005,
     +     .00000,    .00038,    .00043,
     +     .17523,    .04672,   -.01933,    .00076,   -.00004,
     +    -.00006,    .00034,    .00038,
     +     .16251,    .04306,   -.01769,    .00070,   -.00002,
     +    -.00004,    .00030,    .00036,
     +     .15039,    .03961,   -.01607,    .00064,   -.00001,
     +    -.00003,    .00028,    .00032,
     +     .14031,    .03676,   -.01477,    .00060,    .00000,
     +    -.00002,    .00026,    .00030 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13095,    .03412,   -.01350,    .00055,    .00001,
     +    -.00001,    .00025,    .00028,
     +     .12375,    .03208,   -.01249,    .00050,    .00000,
     +    -.00001,    .00022,    .00027,
     +     .11559,    .02981,   -.01138,    .00044,    .00001,
     +     .00000,    .00021,    .00026,
     +     .10888,    .02795,   -.01046,    .00042,    .00001,
     +     .00000,    .00020,    .00023,
     +     .10308,    .02637,   -.00969,    .00042,    .00001,
     +     .00000,    .00019,    .00021,
     +     .09630,    .02453,   -.00879,    .00038,    .00002,
     +     .00001,    .00018,    .00019,
     +     .09036,    .02292,   -.00800,    .00034,    .00002,
     +     .00001,    .00017,    .00018,
     +     .08515,    .02152,   -.00733,    .00032,    .00002,
     +     .00001,    .00015,    .00017 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08030,    .02021,   -.00672,    .00031,    .00002,
     +     .00001,    .00014,    .00016,
     +     .07587,    .01901,   -.00615,    .00029,    .00002,
     +     .00001,    .00013,    .00014,
     +     .07193,    .01796,   -.00566,    .00026,    .00002,
     +     .00001,    .00011,    .00014,
     +     .06840,    .01703,   -.00523,    .00024,    .00002,
     +     .00001,    .00012,    .00013,
     +     .06507,    .01616,   -.00484,    .00023,    .00002,
     +     .00001,    .00010,    .00011,
     +     .06197,    .01534,   -.00446,    .00021,    .00001,
     +     .00001,    .00009,    .00012,
     +     .05918,    .01460,   -.00416,    .00020,    .00002,
     +     .00002,    .00009,    .00012,
     +     .05666,    .01395,   -.00388,    .00019,    .00002,
     +     .00002,    .00009,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05425,    .01331,   -.00362,    .00018,    .00002,
     +     .00002,    .00008,    .00010,
     +     .05196,    .01272,   -.00338,    .00018,    .00002,
     +     .00002,    .00008,    .00009,
     +     .04987,    .01219,   -.00315,    .00018,    .00002,
     +     .00002,    .00008,    .00008,
     +     .04798,    .01171,   -.00296,    .00018,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04617,    .01124,   -.00279,    .00017,    .00002,
     +     .00002,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34090,    .09493,   -.05716,    .00149,    .00000,
     +     .00000,    .00019,    .00041,
     +     .31685,    .08746,   -.05308,    .00137,    .00000,
     +     .00000,    .00026,    .00038,
     +     .28500,    .07784,   -.04692,    .00126,   -.00027,
     +     .00000,    .00023,    .00034,
     +     .26451,    .07170,   -.04351,    .00118,   -.00022,
     +     .00000,    .00025,    .00034,
     +     .24506,    .06588,   -.04000,    .00103,   -.00017,
     +     .00000,    .00023,    .00035,
     +     .22976,    .06139,   -.03716,    .00097,   -.00014,
     +     .00000,    .00024,    .00030,
     +     .21615,    .05744,   -.03456,    .00089,   -.00011,
     +     .00000,    .00024,    .00028,
     +     .20276,    .05358,   -.03197,    .00081,   -.00009,
     +     .00000,    .00023,    .00028 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19184,    .05045,   -.02986,    .00077,   -.00008,
     +     .00000,    .00022,    .00028,
     +     .18199,    .04763,   -.02797,    .00074,   -.00006,
     +     .00000,    .00023,    .00025,
     +     .17464,    .04554,   -.02651,    .00071,   -.00005,
     +     .00000,    .00022,    .00024,
     +     .16010,    .04147,   -.02366,    .00068,   -.00003,
     +     .00000,    .00020,    .00020,
     +     .14898,    .03836,   -.02150,    .00060,   -.00002,
     +    -.00004,    .00019,    .00020,
     +     .13758,    .03520,   -.01943,    .00053,   -.00002,
     +    -.00003,    .00018,    .00019,
     +     .12676,    .03222,   -.01741,    .00047,   -.00001,
     +    -.00002,    .00016,    .00019,
     +     .11777,    .02978,   -.01574,    .00044,    .00000,
     +    -.00001,    .00013,    .00016 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10946,    .02754,   -.01424,    .00040,    .00000,
     +    -.00001,    .00014,    .00013,
     +     .10308,    .02581,   -.01311,    .00037,    .00000,
     +    -.00001,    .00012,    .00014,
     +     .09589,    .02389,   -.01184,    .00036,    .00000,
     +    -.00001,    .00011,    .00013,
     +     .09003,    .02234,   -.01082,    .00034,    .00001,
     +     .00000,    .00010,    .00012,
     +     .08503,    .02102,   -.00995,    .00029,    .00001,
     +     .00000,    .00008,    .00012,
     +     .07913,    .01946,   -.00895,    .00026,    .00001,
     +     .00000,    .00007,    .00011,
     +     .07399,    .01812,   -.00810,    .00025,    .00001,
     +     .00000,    .00007,    .00009,
     +     .06949,    .01696,   -.00740,    .00025,    .00001,
     +     .00000,    .00008,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06534,    .01588,   -.00674,    .00022,    .00001,
     +     .00000,    .00007,    .00007,
     +     .06155,    .01491,   -.00615,    .00021,    .00001,
     +     .00000,    .00007,    .00007,
     +     .05819,    .01404,   -.00564,    .00019,    .00002,
     +     .00001,    .00007,    .00007,
     +     .05519,    .01328,   -.00521,    .00018,    .00002,
     +     .00001,    .00005,    .00007,
     +     .05237,    .01256,   -.00481,    .00017,    .00002,
     +     .00001,    .00006,    .00007,
     +     .04974,    .01189,   -.00443,    .00017,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04739,    .01130,   -.00411,    .00015,    .00001,
     +     .00001,    .00006,    .00006,
     +     .04530,    .01077,   -.00382,    .00014,    .00001,
     +     .00001,    .00006,    .00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04329,    .01026,   -.00355,    .00013,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04137,    .00978,   -.00330,    .00012,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03964,    .00935,   -.00309,    .00012,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03807,    .00897,   -.00290,    .00012,    .00001,
     +     .00001,    .00003,    .00005,
     +     .03654,    .00859,   -.00271,    .00012,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .30118,    .08024,   -.06690,    .00080,    .00000,
     +     .00000,    .00024,    .00029,
     +     .27842,    .07364,   -.06115,    .00078,    .00000,
     +     .00000,    .00023,    .00029,
     +     .24858,    .06506,   -.05308,    .00071,   -.00018,
     +     .00000,    .00023,    .00026,
     +     .22962,    .05964,   -.04841,    .00062,   -.00014,
     +     .00000,    .00024,    .00025,
     +     .21160,    .05457,   -.04374,    .00053,   -.00012,
     +     .00000,    .00020,    .00022,
     +     .19747,    .05064,   -.04020,    .00055,   -.00010,
     +     .00000,    .00020,    .00022,
     +     .18502,    .04717,   -.03705,    .00054,   -.00007,
     +     .00000,    .00020,    .00021,
     +     .17284,    .04381,   -.03392,    .00049,   -.00006,
     +     .00000,    .00018,    .00019 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16303,    .04113,   -.03139,    .00043,   -.00005,
     +     .00000,    .00017,    .00019,
     +     .15418,    .03871,   -.02909,    .00039,   -.00004,
     +     .00000,    .00014,    .00018,
     +     .14757,    .03692,   -.02744,    .00037,   -.00003,
     +     .00000,    .00013,    .00018,
     +     .13455,    .03345,   -.02418,    .00036,   -.00003,
     +     .00000,    .00012,    .00015,
     +     .12461,    .03081,   -.02181,    .00032,   -.00002,
     +    -.00003,    .00013,    .00014,
     +     .11452,    .02813,   -.01947,    .00028,   -.00001,
     +    -.00002,    .00012,    .00014,
     +     .10500,    .02564,   -.01730,    .00025,   -.00001,
     +    -.00001,    .00011,    .00012,
     +     .09716,    .02360,   -.01554,    .00024,   -.00001,
     +    -.00001,    .00009,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .08994,    .02172,   -.01395,    .00021,    .00000,
     +     .00000,    .00008,    .00011,
     +     .08439,    .02031,   -.01274,    .00020,    .00000,
     +     .00000,    .00008,    .00008,
     +     .07819,    .01873,   -.01145,    .00019,    .00000,
     +     .00000,    .00008,    .00008,
     +     .07315,    .01745,   -.01038,    .00016,    .00000,
     +     .00000,    .00007,    .00007,
     +     .06887,    .01636,   -.00952,    .00015,    .00000,
     +     .00000,    .00007,    .00007,
     +     .06382,    .01508,   -.00850,    .00015,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05947,    .01400,   -.00768,    .00014,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05571,    .01306,   -.00695,    .00011,    .00001,
     +     .00001,    .00004,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05218,    .01219,   -.00631,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04898,    .01141,   -.00574,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04616,    .01071,   -.00526,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04369,    .01010,   -.00483,    .00010,    .00001,
     +     .00001,    .00005,    .00003,
     +     .04135,    .00953,   -.00443,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03916,    .00901,   -.00408,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03721,    .00854,   -.00378,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03547,    .00811,   -.00350,    .00007,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03381,    .00772,   -.00325,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03224,    .00734,   -.00301,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03084,    .00699,   -.00282,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02955,    .00669,   -.00262,    .00006,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02831,    .00639,   -.00245,    .00006,    .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)/
     +     .22514,    .05518,   -.07241,    .00038,    .00000,
     +     .00000,    .00004,    .00006,
     +     .20584,    .05007,   -.06469,    .00033,    .00000,
     +     .00000,    .00007,    .00009,
     +     .18100,    .04358,   -.05465,    .00025,   -.00007,
     +     .00000,    .00008,    .00008,
     +     .16531,    .03953,   -.04870,    .00025,   -.00006,
     +     .00000,    .00004,    .00008,
     +     .15062,    .03581,   -.04326,    .00027,   -.00005,
     +     .00000,    .00007,    .00007,
     +     .13939,    .03293,   -.03901,    .00023,   -.00004,
     +     .00000,    .00004,    .00008,
     +     .12954,    .03044,   -.03540,    .00019,   -.00003,
     +     .00000,    .00006,    .00008,
     +     .11998,    .02803,   -.03194,    .00016,   -.00003,
     +     .00000,    .00006,    .00008 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11232,    .02612,   -.02923,    .00017,   -.00002,
     +     .00000,    .00006,    .00006,
     +     .10546,    .02443,   -.02682,    .00015,   -.00002,
     +     .00000,    .00006,    .00006,
     +     .10038,    .02318,   -.02506,    .00015,   -.00002,
     +     .00000,    .00005,    .00007,
     +     .09056,    .02077,   -.02171,    .00012,   -.00001,
     +     .00000,    .00005,    .00007,
     +     .08309,    .01895,   -.01929,    .00013,   -.00001,
     +    -.00001,    .00003,    .00005,
     +     .07561,    .01713,   -.01695,    .00011,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06865,    .01547,   -.01484,    .00009,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06295,    .01411,   -.01315,    .00008,   -.00001,
     +    -.00001,    .00004,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05774,    .01288,   -.01165,    .00008,   -.00001,
     +    -.00001,    .00004,    .00002,
     +     .05380,    .01196,   -.01058,    .00008,    .00000,
     +     .00000,    .00004,    .00003,
     +     .04944,    .01094,   -.00935,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04593,    .01011,   -.00842,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04295,    .00941,   -.00767,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03947,    .00862,   -.00680,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03649,    .00794,   -.00606,    .00004,    .00000,
     +     .00000,    .00003,    .00001,
     +     .03395,    .00735,   -.00545,    .00004,    .00000,
     +     .00000,    .00003,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03158,    .00681,   -.00490,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02946,    .00634,   -.00443,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02760,    .00592,   -.00402,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02597,    .00555,   -.00368,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02444,    .00520,   -.00336,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02303,    .00489,   -.00308,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02176,    .00461,   -.00284,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02064,    .00436,   -.00262,    .00003,    .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)/
     +     .01957,    .00413,   -.00242,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01858,    .00391,   -.00224,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01769,    .00372,   -.00207,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01689,    .00353,   -.00193,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01612,    .00336,   -.00181,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .15654,    .03501,   -.06399,    .00015,    .00000,
     +     .00000,    .00003,    .00001,
     +     .14148,    .03140,   -.05619,    .00012,    .00000,
     +     .00000,   -.00001,    .00004,
     +     .12234,    .02690,   -.04655,    .00011,   -.00003,
     +     .00000,    .00002,    .00002,
     +     .11048,    .02414,   -.04084,    .00011,   -.00002,
     +     .00000,    .00003,    .00000,
     +     .09955,    .02161,   -.03565,    .00010,   -.00002,
     +     .00000,    .00001,   -.00001,
     +     .09124,    .01969,   -.03184,    .00008,   -.00001,
     +     .00000,    .00003,    .00003,
     +     .08401,    .01805,   -.02856,    .00008,   -.00001,
     +     .00000,    .00001,    .00003,
     +     .07710,    .01647,   -.02543,    .00006,   -.00001,
     +     .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)/
     +     .07163,    .01524,   -.02304,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06676,    .01414,   -.02095,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06318,    .01335,   -.01946,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05630,    .01181,   -.01663,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05117,    .01068,   -.01461,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04604,    .00956,   -.01270,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04133,    .00852,   -.01097,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03755,    .00770,   -.00961,    .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)/
     +     .03413,    .00697,   -.00844,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03156,    .00642,   -.00757,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02872,    .00582,   -.00664,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02647,    .00534,   -.00595,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02457,    .00494,   -.00534,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02238,    .00448,   -.00469,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02053,    .00409,   -.00415,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01896,    .00377,   -.00372,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01750,    .00347,   -.00332,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01621,    .00319,   -.00297,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01509,    .00297,   -.00269,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01410,    .00276,   -.00244,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01318,    .00258,   -.00221,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01235,    .00241,   -.00202,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01161,    .00226,   -.00184,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01096,    .00212,   -.00169,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .01034,    .00200,   -.00156,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00976,    .00188,   -.00144,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00924,    .00178,   -.00133,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00877,    .00169,   -.00123,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00834,    .00160,   -.00114,    .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)/
     +     .09919,    .02000,   -.04821,    .00007,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .08848,    .01772,   -.04172,    .00004,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .07509,    .01492,   -.03393,    .00007,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06700,    .01324,   -.02938,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05963,    .01170,   -.02534,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .05406,    .01056,   -.02231,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04928,    .00957,   -.01979,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04476,    .00866,   -.01748,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04119,    .00793,   -.01567,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03808,    .00730,   -.01415,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03580,    .00685,   -.01304,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03148,    .00599,   -.01100,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02830,    .00535,   -.00958,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02517,    .00472,   -.00819,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02232,    .00418,   -.00699,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02005,    .00374,   -.00608,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01803,    .00334,   -.00528,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01652,    .00305,   -.00469,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01490,    .00273,   -.00409,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01360,    .00248,   -.00360,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01252,    .00229,   -.00323,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01130,    .00206,   -.00281,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01026,    .00185,   -.00246,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00938,    .00168,   -.00217,    .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)/
     +     .00860,    .00154,   -.00193,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00789,    .00142,   -.00172,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00729,    .00130,   -.00154,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00677,    .00120,   -.00139,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00629,    .00112,   -.00126,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00584,    .00104,   -.00113,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00547,    .00096,   -.00104,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00513,    .00090,   -.00094,    .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)/
     +     .00481,    .00084,   -.00086,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00452,    .00079,   -.00080,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00425,    .00074,   -.00072,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00402,    .00070,   -.00067,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00379,    .00066,   -.00062,    .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)/
     +     .05495,    .00974,   -.03053,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04834,    .00850,   -.02609,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04022,    .00703,   -.02084,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03535,    .00613,   -.01778,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03099,    .00535,   -.01511,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02777,    .00481,   -.01322,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02502,    .00431,   -.01160,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02243,    .00383,   -.01009,    .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)/
     +     .02046,    .00351,   -.00901,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01872,    .00319,   -.00804,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01748,    .00297,   -.00737,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01510,    .00255,   -.00610,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01341,    .00224,   -.00525,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01177,    .00196,   -.00444,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01028,    .00170,   -.00373,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00911,    .00150,   -.00320,    .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)/
     +     .00808,    .00134,   -.00275,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00733,    .00120,   -.00242,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00653,    .00108,   -.00209,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00590,    .00096,   -.00183,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00539,    .00087,   -.00161,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00480,    .00078,   -.00140,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00431,    .00070,   -.00121,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00391,    .00063,   -.00106,    .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)/
     +     .00354,    .00056,   -.00093,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00322,    .00050,   -.00081,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00295,    .00047,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00271,    .00043,   -.00065,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00249,    .00040,   -.00058,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00230,    .00037,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00214,    .00034,   -.00048,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00199,    .00031,   -.00043,    .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)/
     +     .00185,    .00028,   -.00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00172,    .00027,   -.00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00161,    .00026,   -.00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00153,    .00023,   -.00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00022,   -.00027,    .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)/
     +     .00785,    .00101,   -.00551,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00660,    .00086,   -.00453,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00515,    .00067,   -.00341,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00435,    .00057,   -.00281,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00364,    .00048,   -.00229,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00315,    .00039,   -.00192,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00275,    .00034,   -.00164,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00238,    .00031,   -.00139,    .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)/
     +     .00211,    .00026,   -.00120,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00187,    .00023,   -.00104,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00021,   -.00094,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00018,   -.00076,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00120,    .00015,   -.00062,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00101,    .00013,   -.00051,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00086,    .00011,   -.00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00072,    .00009,   -.00034,    .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)/
     +     .00062,    .00007,   -.00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00054,    .00007,   -.00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00005,   -.00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00036,    .00005,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00031,    .00003,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00027,    .00003,   -.00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,   -.00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00021,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00003,   -.00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      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='cor10dis.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