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

sfmrs_99d8.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d8(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)/
     +     .00643,    .00286,   1.15222,    .86448,    .00000,
     +     .00000,    .51878,    .87640,
     +     .00657,    .00291,   2.39078,    .90505,    .00000,
     +     .00000,    .56352,    .91702,
     +     .00676,    .00299,   4.81464,    .98865,    .01960,
     +     .00000,    .65313,   1.00069,
     +     .00691,    .00306,   7.12570,   1.06666,    .06910,
     +     .00000,    .73535,   1.07873,
     +     .00707,    .00312,   9.93371,   1.16515,    .18281,
     +     .00000,    .83813,   1.17724,
     +     .00720,    .00318,  12.84175,   1.26534,    .29061,
     +     .00000,    .94195,   1.27745,
     +     .00733,    .00324,  16.11380,   1.37328,    .40858,
     +     .00000,   1.05329,   1.38540,
     +     .00747,    .00331,  20.13676,   1.50140,    .55059,
     +     .00000,   1.18494,   1.51352 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00760,    .00336,  24.06347,   1.62621,    .68269,
     +     .00000,   1.31277,   1.63833,
     +     .00772,    .00342,  28.28434,   1.75811,    .82268,
     +     .00000,   1.44753,   1.77023,
     +     .00781,    .00346,  31.98470,   1.87059,    .94450,
     +     .00000,   1.56225,   1.88271,
     +     .00802,    .00356,  40.80279,   2.13739,   1.22712,
     +     .00000,   1.83367,   2.14948,
     +     .00820,    .00365,  48.61885,   2.39474,   1.49733,
     +     .36278,   2.09491,   2.40681,
     +     .00841,    .00375,  58.85320,   2.71616,   1.83505,
     +     .75384,   2.42059,   2.72820,
     +     .00863,    .00385,  70.90311,   3.08901,   2.22586,
     +    1.16298,   2.79773,   3.10100,
     +     .00883,    .00395,  83.09480,   3.46271,   2.61679,
     +    1.57247,   3.17524,   3.47465 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00904,    .00405,  96.67834,   3.87646,   3.04925,
     +    2.02361,   3.59274,   3.88835,
     +     .00921,    .00414, 108.90162,   4.24856,   3.43610,
     +    2.42247,   3.96788,   4.26041,
     +     .00942,    .00424, 124.88783,   4.73576,   3.94069,
     +    2.94066,   4.45870,   4.74754,
     +     .00962,    .00434, 140.20116,   5.20176,   4.42387,
     +    3.43919,   4.92782,   5.21350,
     +     .00980,    .00444, 155.23244,   5.65931,   4.89828,
     +    3.92900,   5.38817,   5.67099,
     +     .01003,    .00455, 175.45062,   6.27990,   5.53750,
     +    4.58244,   6.01226,   6.29151,
     +     .01024,    .00466, 195.85530,   6.90812,   6.18488,
     +    5.24606,   6.64368,   6.91965,
     +     .01044,    .00476, 216.29272,   7.53865,   6.83565,
     +    5.91550,   7.27715,   7.55013 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01066,    .00487, 237.61427,   8.20504,   7.51859,
     +    6.61095,   7.94643,   8.21645,
     +     .01086,    .00497, 259.72109,   8.89833,   8.23034,
     +    7.33870,   8.64247,   8.90967,
     +     .01106,    .00507, 281.70819,   9.59215,   8.94219,
     +    8.06645,   9.33886,   9.60343,
     +     .01125,    .00518, 303.16472,  10.27655,   9.64206,
     +    8.77907,  10.02562,  10.28775,
     +     .01144,    .00527, 325.84004,  11.00155,  10.38514,
     +    9.53869,  10.75297,  11.01271,
     +     .01163,    .00537, 348.68738,  11.74213,  11.14064,
     +   10.30642,  11.49581,  11.75321,
     +     .01181,    .00547, 371.50490,  12.48273,  11.89834,
     +   11.08002,  12.23854,  12.49375,
     +     .01199,    .00556, 393.46053,  13.20528,  12.63442,
     +   11.82739,  12.96307,  13.21625 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01217,    .00565, 416.55420,  13.96716,  13.41206,
     +   12.61949,  13.72689,  13.97806,
     +     .01234,    .00574, 439.83066,  14.74342,  14.20266,
     +   13.42280,  14.50506,  14.75426,
     +     .01251,    .00584, 462.70915,  15.51136,  14.98465,
     +   14.21752,  15.27480,  15.52214,
     +     .01268,    .00592, 485.09098,  16.26634,  15.75391,
     +   15.00025,  16.03147,  16.27707,
     +     .01284,    .00601, 507.96722,  17.04761,  16.54765,
     +   15.80501,  16.81441,  17.05829 /
        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.06318,    .73355,    .00000,
     +     .00000,    .43957,    .74056,
     +     .00892,    .00403,   2.18022,    .77089,    .00000,
     +     .00000,    .48013,    .77793,
     +     .00919,    .00415,   4.31768,    .84462,    .01790,
     +     .00000,    .55848,    .85169,
     +     .00939,    .00424,   6.31648,    .91168,    .05987,
     +     .00000,    .62880,    .91877,
     +     .00961,    .00434,   8.70451,    .99489,    .15588,
     +     .00000,    .71529,   1.00199,
     +     .00979,    .00442,  11.14190,   1.07839,    .24575,
     +     .00000,    .80157,   1.08549,
     +     .00997,    .00451,  13.85153,   1.16755,    .34311,
     +     .00000,    .89335,   1.17466,
     +     .01016,    .00460,  17.14387,   1.27252,    .45929,
     +     .00000,   1.00103,   1.27964 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .01033,    .00468,  20.32083,   1.37389,    .56636,
     +     .00000,   1.10472,   1.38100,
     +     .01050,    .00476,  23.70281,   1.48030,    .67906,
     +     .00000,   1.21331,   1.48740,
     +     .01063,    .00483,  26.64444,   1.57060,    .77657,
     +     .00000,   1.30532,   1.57769,
     +     .01091,    .00496,  33.57933,   1.78301,   1.00087,
     +     .00000,   1.52128,   1.79011,
     +     .01116,    .00509,  39.62250,   1.98606,   1.21328,
     +     .28557,   1.72732,   1.99315,
     +     .01145,    .00523,  47.45151,   2.23751,   1.47638,
     +     .59056,   1.98201,   2.24457,
     +     .01175,    .00538,  56.55169,   2.52654,   1.77800,
     +     .90598,   2.27433,   2.53358,
     +     .01203,    .00552,  65.64864,   2.81377,   2.07708,
     +    1.21884,   2.56448,   2.82080 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01232,    .00567,  75.67214,   3.12927,   2.40528,
     +    1.56063,   2.88284,   3.13626,
     +     .01255,    .00578,  84.60175,   3.41093,   2.69667,
     +    1.86045,   3.16684,   3.41791,
     +     .01284,    .00593,  96.16601,   3.77707,   3.07397,
     +    2.24705,   3.53573,   3.78401,
     +     .01309,    .00606, 107.13814,   4.12481,   3.43274,
     +    2.61639,   3.88585,   4.13172,
     +     .01334,    .00619, 117.81814,   4.46409,   3.78283,
     +    2.97700,   4.22729,   4.47098,
     +     .01365,    .00635, 132.04842,   4.92102,   4.25111,
     +    3.45446,   4.68687,   4.92787,
     +     .01395,    .00650, 146.27591,   5.38024,   4.72206,
     +    3.93599,   5.14855,   5.38706,
     +     .01422,    .00665, 160.40663,   5.83819,   5.19249,
     +    4.41874,   5.60875,   5.84497 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01450,    .00680, 175.01796,   6.31889,   5.68275,
     +    4.91659,   6.09164,   6.32564,
     +     .01478,    .00695, 190.05157,   6.81598,   6.19075,
     +    5.43465,   6.59085,   6.82270,
     +     .01505,    .00709, 204.89275,   7.31056,   6.69592,
     +    5.94976,   7.08740,   7.31726,
     +     .01530,    .00721, 219.26903,   7.79562,   7.18971,
     +    6.45117,   7.57428,   7.80228,
     +     .01556,    .00736, 234.36911,   8.30693,   7.71156,
     +    6.98329,   8.08738,   8.31356,
     +     .01581,    .00749, 249.47288,   8.82629,   8.23907,
     +    7.51786,   8.60848,   8.83288,
     +     .01606,    .00762, 264.47498,   9.34335,   8.76591,
     +    8.05441,   9.12715,   9.34992,
     +     .01629,    .00774, 278.81402,   9.84520,   9.27502,
     +    8.56991,   9.63053,   9.85175 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01653,    .00787, 293.82190,  10.37220,   9.81081,
     +    9.11429,  10.15903,  10.37871,
     +     .01676,    .00799, 308.85804,  10.90663,  10.35296,
     +    9.66372,  10.69493,  10.91311,
     +     .01699,    .00811, 323.56141,  11.43314,  10.88704,
     +   10.20511,  11.22281,  11.43959,
     +     .01721,    .00823, 337.87843,  11.94878,  11.41048,
     +   10.73641,  11.73974,  11.95521,
     +     .01743,    .00835, 352.42892,  12.48005,  11.94819,
     +   11.28016,  12.27230,  12.48646 /
        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,    .98016,    .62266,    .00000,
     +     .00000,    .37302,    .62628,
     +     .01212,    .00557,   1.98744,    .65676,    .00000,
     +     .00000,    .40960,    .66039,
     +     .01249,    .00574,   3.87117,    .72154,    .01652,
     +     .00000,    .47793,    .72518,
     +     .01276,    .00588,   5.59853,    .77907,    .05201,
     +     .00000,    .53795,    .78270,
     +     .01306,    .00602,   7.62684,    .84921,    .13298,
     +     .00000,    .61062,    .85285,
     +     .01332,    .00614,   9.66645,    .91865,    .20776,
     +     .00000,    .68219,    .92229,
     +     .01356,    .00626,  11.90606,    .99215,    .28800,
     +     .00000,    .75767,    .99578,
     +     .01382,    .00640,  14.59464,   1.07793,    .38288,
     +     .00000,    .84552,   1.08156 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01406,    .00651,  17.15863,   1.16003,    .46953,
     +     .00000,    .92939,   1.16366,
     +     .01429,    .00663,  19.86114,   1.24562,    .56007,
     +     .00000,   1.01664,   1.24925,
     +     .01446,    .00671,  22.19295,   1.31788,    .63798,
     +     .00000,   1.09021,   1.32151,
     +     .01484,    .00692,  27.63007,   1.48646,    .81565,
     +     .00000,   1.26148,   1.49007,
     +     .01520,    .00709,  32.28506,   1.64610,    .98226,
     +     .22420,   1.42339,   1.64971,
     +     .01558,    .00730,  38.25023,   1.84207,   1.18678,
     +     .46185,   1.62181,   1.84567,
     +     .01599,    .00751,  45.09329,   2.06524,   1.41902,
     +     .70476,   1.84749,   2.06884,
     +     .01636,    .00770,  51.84985,   2.28512,   1.64727,
     +     .94351,   2.06957,   2.28869 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01675,    .00791,  59.21041,   2.52467,   1.89567,
     +    1.20211,   2.31128,   2.52823,
     +     .01707,    .00807,  65.70031,   2.73694,   2.11454,
     +    1.42715,   2.52532,   2.74050,
     +     .01747,    .00829,  74.02059,   3.01084,   2.39585,
     +    1.71514,   2.80130,   3.01438,
     +     .01782,    .00846,  81.83791,   3.26909,   2.66143,
     +    1.98831,   3.06137,   3.27263,
     +     .01815,    .00864,  89.38195,   3.51948,   2.91894,
     +    2.25332,   3.31337,   3.52301,
     +     .01857,    .00886,  99.33618,   3.85422,   3.26084,
     +    2.60150,   3.65013,   3.85774,
     +     .01896,    .00907, 109.19308,   4.18822,   3.60224,
     +    2.95016,   3.98598,   4.19172,
     +     .01934,    .00928, 118.89874,   4.51910,   3.94107,
     +    3.29750,   4.31855,   4.52259 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01971,    .00948, 128.84197,   4.86398,   4.29165,
     +    3.65300,   4.66510,   4.86746,
     +     .02009,    .00968, 138.99248,   5.21846,   4.65278,
     +    4.02081,   5.02118,   5.22194,
     +     .02046,    .00987, 148.93655,   5.56907,   5.00982,
     +    4.38441,   5.37327,   5.57253,
     +     .02079,    .01006, 158.49521,   5.91090,   5.35672,
     +    4.73617,   5.71648,   5.91436,
     +     .02113,    .01024, 168.47246,   6.26944,   5.72161,
     +    5.10778,   6.07637,   6.27289,
     +     .02148,    .01043, 178.37605,   6.63150,   6.08826,
     +    5.47878,   6.43975,   6.63494,
     +     .02181,    .01061, 188.15859,   6.99035,   6.45292,
     +    5.84970,   6.79982,   6.99377,
     +     .02212,    .01078, 197.44295,   7.33677,   6.80335,
     +    6.20400,   7.14740,   7.34020 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02243,    .01096, 207.11174,   7.69907,   7.17072,
     +    6.57678,   7.51083,   7.70248,
     +     .02275,    .01112, 216.73795,   8.06469,   7.54064,
     +    6.95115,   7.87757,   8.06811,
     +     .02306,    .01129, 226.10107,   8.42337,   7.90354,
     +    7.31851,   8.23729,   8.42678,
     +     .02335,    .01144, 235.17419,   8.77328,   8.25788,
     +    7.67773,   8.58818,   8.77667,
     +     .02364,    .01161, 244.34017,   9.13217,   8.62019,
     +    8.04357,   8.94806,   9.13557 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01419,    .00658,    .93406,    .56596,    .00000,
     +     .00000,    .33925,    .56819,
     +     .01449,    .00672,   1.88230,    .59815,    .00000,
     +     .00000,    .37358,    .60038,
     +     .01493,    .00695,   3.63130,    .65808,    .01588,
     +     .00000,    .43655,    .66030,
     +     .01527,    .00711,   5.21676,    .71059,    .04799,
     +     .00000,    .49118,    .71281,
     +     .01562,    .00728,   7.05928,    .77398,    .12120,
     +     .00000,    .55673,    .77619,
     +     .01592,    .00744,   8.89557,    .83623,    .18828,
     +     .00000,    .62081,    .83845,
     +     .01622,    .00760,  10.89709,    .90175,    .25985,
     +     .00000,    .68805,    .90397,
     +     .01655,    .00776,  13.28256,    .97788,    .34405,
     +     .00000,    .76593,    .98009 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01682,    .00790,  15.54149,   1.05033,    .42052,
     +     .00000,    .83988,   1.05254,
     +     .01709,    .00805,  17.90836,   1.12554,    .50008,
     +     .00000,    .91651,   1.12775,
     +     .01731,    .00815,  19.94075,   1.18887,    .56833,
     +     .00000,    .98095,   1.19107,
     +     .01777,    .00840,  24.64894,   1.33582,    .72315,
     +     .00000,   1.13021,   1.33803,
     +     .01818,    .00862,  28.63723,   1.47423,    .86752,
     +     .19422,   1.27054,   1.47643,
     +     .01865,    .00886,  33.71456,   1.64325,   1.04379,
     +     .39947,   1.44165,   1.64544,
     +     .01914,    .00913,  39.49338,   1.83468,   1.24281,
     +     .60777,   1.63520,   1.83687,
     +     .01959,    .00936,  45.15702,   2.02229,   1.43738,
     +     .81143,   1.82468,   2.02448 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .02006,    .00960,  51.28501,   2.22571,   1.64811,
     +    1.03092,   2.02995,   2.22789,
     +     .02044,    .00981,  56.65475,   2.40517,   1.83296,
     +    1.22103,   2.21089,   2.40735,
     +     .02091,    .01007,  63.49725,   2.63570,   2.06946,
     +    1.46320,   2.44319,   2.63788,
     +     .02134,    .01029,  69.88848,   2.85216,   2.29179,
     +    1.69193,   2.66119,   2.85433,
     +     .02172,    .01050,  76.02458,   3.06121,   2.50656,
     +    1.91300,   2.87161,   3.06339,
     +     .02222,    .01077,  84.07352,   3.33948,   2.79046,
     +    2.20211,   3.15159,   3.34165,
     +     .02270,    .01103,  91.99775,   3.61593,   3.07271,
     +    2.49037,   3.42961,   3.61810,
     +     .02315,    .01127,  99.76008,   3.88873,   3.35179,
     +    2.77648,   3.70386,   3.89092 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02360,    .01152, 107.66784,   4.17190,   3.63930,
     +    3.06798,   3.98843,   4.17408,
     +     .02404,    .01176, 115.70248,   4.46190,   3.93441,
     +    3.36854,   4.27977,   4.46407,
     +     .02447,    .01199, 123.53740,   4.74770,   4.22517,
     +    3.66462,   4.56684,   4.74988,
     +     .02487,    .01221, 131.03342,   5.02537,   4.50667,
     +    3.95002,   4.84567,   5.02754,
     +     .02528,    .01244, 138.82866,   5.31576,   4.80192,
     +    4.25069,   5.13720,   5.31794,
     +     .02569,    .01265, 146.52992,   5.60798,   5.09753,
     +    4.54976,   5.43055,   5.61016,
     +     .02608,    .01287, 154.11222,   5.89683,   5.39080,
     +    4.84805,   5.72042,   5.89901,
     +     .02645,    .01307, 161.27705,   6.17479,   5.67169,
     +    5.13198,   5.99937,   6.17698 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02683,    .01328, 168.71624,   6.46477,   5.96550,
     +    5.43008,   6.29032,   6.46696,
     +     .02720,    .01349, 176.09401,   6.75657,   6.26046,
     +    5.72852,   6.58306,   6.75877,
     +     .02756,    .01369, 183.24711,   7.04211,   6.54911,
     +    6.02068,   6.86947,   7.04430,
     +     .02791,    .01388, 190.15851,   7.32002,   6.83031,
     +    6.30573,   7.14822,   7.32221,
     +     .02826,    .01407, 197.11478,   7.60428,   7.11703,
     +    6.59518,   7.43331,   7.60648 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01611,    .00752,    .90246,    .52903,    .00000,
     +     .00000,    .31739,    .53050,
     +     .01645,    .00770,   1.81102,    .55987,    .00000,
     +     .00000,    .35014,    .56133,
     +     .01695,    .00796,   3.47008,    .61651,    .01549,
     +     .00000,    .40950,    .61796,
     +     .01733,    .00815,   4.96181,    .66565,    .04537,
     +     .00000,    .46059,    .66711,
     +     .01773,    .00836,   6.68243,    .72459,    .11349,
     +     .00000,    .52147,    .72606,
     +     .01808,    .00853,   8.38620,    .78217,    .17556,
     +     .00000,    .58066,    .78362,
     +     .01841,    .00872,  10.23342,    .84253,    .24151,
     +     .00000,    .64255,    .84397,
     +     .01878,    .00890,  12.42358,    .91238,    .31881,
     +     .00000,    .71398,    .91383 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01911,    .00907,  14.48697,    .97863,    .38873,
     +     .00000,    .78156,    .98007,
     +     .01940,    .00922,  16.63972,   1.04719,    .46128,
     +     .00000,    .85140,   1.04863,
     +     .01966,    .00936,  18.48188,   1.10477,    .52335,
     +     .00000,    .90998,   1.10622,
     +     .02018,    .00963,  22.72926,   1.23797,    .66368,
     +     .00000,   1.04523,   1.23942,
     +     .02065,    .00989,  26.29988,   1.36292,    .79399,
     +     .17519,   1.17189,   1.36437,
     +     .02118,    .01017,  30.82371,   1.51492,    .95250,
     +     .36007,   1.32576,   1.51636,
     +     .02175,    .01047,  35.94329,   1.68640,   1.13074,
     +     .54679,   1.49913,   1.68785,
     +     .02226,    .01074,  40.93400,   1.85384,   1.30434,
     +     .72864,   1.66824,   1.85529 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02279,    .01103,  46.30739,   2.03476,   1.49170,
     +     .92391,   1.85079,   2.03621,
     +     .02323,    .01127,  50.99477,   2.19384,   1.65550,
     +    1.09247,   2.01122,   2.19530,
     +     .02375,    .01156,  56.94157,   2.39757,   1.86442,
     +    1.30649,   2.21652,   2.39903,
     +     .02423,    .01182,  62.47265,   2.58828,   2.06023,
     +    1.50804,   2.40858,   2.58975,
     +     .02467,    .01205,  67.76313,   2.77196,   2.24886,
     +    1.70229,   2.59349,   2.77343,
     +     .02525,    .01236,  74.67324,   3.01569,   2.49741,
     +    1.95549,   2.83874,   3.01717,
     +     .02579,    .01266,  81.44786,   3.25708,   2.74377,
     +    2.20719,   3.08153,   3.25856,
     +     .02629,    .01293,  88.05928,   3.49462,   2.98668,
     +    2.45631,   3.32035,   3.49611 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02680,    .01322,  94.76694,   3.74044,   3.23616,
     +    2.70931,   3.56742,   3.74194,
     +     .02731,    .01349, 101.55899,   3.99152,   3.49158,
     +    2.96953,   3.81971,   3.99303,
     +     .02779,    .01376, 108.16011,   4.23837,   3.74260,
     +    3.22522,   4.06766,   4.23988,
     +     .02824,    .01402, 114.45400,   4.47757,   3.98500,
     +    3.47103,   4.30790,   4.47908,
     +     .02871,    .01427, 120.98164,   4.72718,   4.23874,
     +    3.72951,   4.55855,   4.72872,
     +     .02916,    .01453, 127.40816,   4.97776,   4.49211,
     +    3.98588,   4.81011,   4.97930,
     +     .02960,    .01477, 133.72064,   5.22496,   4.74303,
     +    4.24117,   5.05824,   5.22652,
     +     .03002,    .01500, 139.66640,   5.46229,   4.98278,
     +    4.48356,   5.29644,   5.46386 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03044,    .01524, 145.82655,   5.70947,   5.23313,
     +    4.73763,   5.54447,   5.71103,
     +     .03087,    .01547, 151.91845,   5.95767,   5.48394,
     +    4.99145,   5.79351,   5.95924,
     +     .03127,    .01570, 157.81112,   6.20009,   5.72893,
     +    5.23948,   6.03671,   6.20167,
     +     .03167,    .01591, 163.49261,   6.43563,   5.96723,
     +    5.48109,   6.27301,   6.43723,
     +     .03205,    .01613, 169.19511,   6.67610,   6.20970,
     +    5.72590,   6.51421,   6.67771 /
        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,    .87890,    .50212,    .00000,
     +     .00000,    .30149,    .50310,
     +     .01814,    .00855,   1.75787,    .53192,    .00000,
     +     .00000,    .33306,    .53289,
     +     .01870,    .00884,   3.35024,    .58608,    .01523,
     +     .00000,    .38973,    .58704,
     +     .01913,    .00906,   4.77294,    .63277,    .04346,
     +     .00000,    .43820,    .63373,
     +     .01957,    .00929,   6.40442,    .68845,    .10783,
     +     .00000,    .49565,    .68942,
     +     .01995,    .00949,   8.01172,    .74259,    .16626,
     +     .00000,    .55130,    .74356,
     +     .02033,    .00969,   9.74706,    .79920,    .22812,
     +     .00000,    .60929,    .80016,
     +     .02074,    .00990,  11.79614,    .86452,    .30043,
     +     .00000,    .67608,    .86549 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02108,    .01009,  13.71888,    .92627,    .36564,
     +     .00000,    .73907,    .92725,
     +     .02143,    .01027,  15.71813,    .99004,    .43314,
     +     .00000,    .80401,    .99102,
     +     .02170,    .01041,  17.42432,   1.04353,    .49079,
     +     .00000,    .85840,   1.04450,
     +     .02228,    .01073,  21.34360,   1.16686,    .62075,
     +     .00000,    .98361,   1.16784,
     +     .02280,    .01100,  24.61922,   1.28220,    .74106,
     +     .16160,   1.10052,   1.28317,
     +     .02339,    .01133,  28.75345,   1.42210,    .88696,
     +     .33203,   1.24214,   1.42308,
     +     .02401,    .01166,  33.41104,   1.57943,   1.05051,
     +     .50349,   1.40121,   1.58043,
     +     .02458,    .01196,  37.93226,   1.73261,   1.20932,
     +     .66998,   1.55592,   1.73361 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02516,    .01228,  42.78128,   1.89768,   1.38026,
     +     .84826,   1.72249,   1.89869,
     +     .02564,    .01255,  46.99626,   2.04247,   1.52933,
     +    1.00175,   1.86850,   2.04348,
     +     .02623,    .01287,  52.32520,   2.22742,   1.71897,
     +    1.19614,   2.05490,   2.22845,
     +     .02676,    .01315,  57.26507,   2.40013,   1.89629,
     +    1.37876,   2.22886,   2.40117,
     +     .02725,    .01342,  61.97616,   2.56613,   2.06676,
     +    1.55440,   2.39598,   2.56719,
     +     .02786,    .01377,  68.10868,   2.78586,   2.29079,
     +    1.78274,   2.61710,   2.78692,
     +     .02846,    .01409,  74.10114,   3.00295,   2.51232,
     +    2.00918,   2.83548,   3.00403,
     +     .02902,    .01440,  79.93205,   3.21611,   2.73028,
     +    2.23283,   3.04980,   3.21720 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02958,    .01471,  85.82845,   3.43617,   2.95358,
     +    2.45937,   3.27101,   3.43726,
     +     .03013,    .01502,  91.78300,   3.66049,   3.18176,
     +    2.69193,   3.49644,   3.66160,
     +     .03067,    .01532,  97.55480,   3.88058,   3.40557,
     +    2.92000,   3.71756,   3.88170,
     +     .03117,    .01559, 103.04301,   4.09342,   3.62123,
     +    3.13878,   3.93135,   4.09457,
     +     .03168,    .01588, 108.72296,   4.31519,   3.84664,
     +    3.36850,   4.15405,   4.31635,
     +     .03218,    .01616, 114.29958,   4.53735,   4.07126,
     +    3.59586,   4.37711,   4.53851,
     +     .03266,    .01643, 119.76706,   4.75619,   4.29339,
     +    3.82196,   4.59681,   4.75738,
     +     .03312,    .01668, 124.90359,   4.96592,   4.50522,
     +    4.03618,   4.80733,   4.96712 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03359,    .01694, 130.21648,   5.18403,   4.72614,
     +    4.26048,   5.02623,   5.18525,
     +     .03405,    .01720, 135.45855,   5.40269,   4.94707,
     +    4.48414,   5.24565,   5.40392,
     +     .03449,    .01744, 140.51964,   5.61596,   5.16259,
     +    4.70240,   5.45964,   5.61720,
     +     .03491,    .01769, 145.39116,   5.82291,   5.37197,
     +    4.91477,   5.66728,   5.82417,
     +     .03535,    .01792, 150.26982,   6.03384,   5.58464,
     +    5.12957,   5.87888,   6.03511 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02418,    .01165,    .80921,    .42769,    .00000,
     +     .00000,    .25804,    .42786,
     +     .02468,    .01191,   1.60297,    .45424,    .00000,
     +     .00000,    .28599,    .45441,
     +     .02545,    .01232,   3.00427,    .50110,    .01464,
     +     .00000,    .33482,    .50128,
     +     .02603,    .01263,   4.23150,    .54065,    .03815,
     +     .00000,    .37576,    .54086,
     +     .02663,    .01296,   5.61252,    .58710,    .09200,
     +     .00000,    .42360,    .58730,
     +     .02716,    .01325,   6.95100,    .63166,    .14021,
     +     .00000,    .46932,    .63186,
     +     .02767,    .01352,   8.37683,    .67780,    .19075,
     +     .00000,    .51655,    .67802,
     +     .02822,    .01382,  10.03848,    .73060,    .24933,
     +     .00000,    .57049,    .73083 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02870,    .01408,  11.57767,    .78003,    .30164,
     +     .00000,    .62089,    .78029,
     +     .02917,    .01434,  13.16092,    .83072,    .35540,
     +     .00000,    .67247,    .83098,
     +     .02954,    .01454,  14.50038,    .87300,    .40106,
     +     .00000,    .71547,    .87327,
     +     .03033,    .01498,  17.54107,    .96965,    .50309,
     +     .00000,    .81359,    .96995,
     +     .03104,    .01537,  20.03454,   1.05916,    .59661,
     +     .12484,    .90431,   1.05947,
     +     .03184,    .01581,  23.14238,   1.16674,    .70898,
     +     .25686,   1.01321,   1.16708,
     +     .03267,    .01628,  26.59351,   1.28654,    .83369,
     +     .38807,   1.13436,   1.28691,
     +     .03344,    .01671,  29.89845,   1.40210,    .95367,
     +     .51429,   1.25110,   1.40249 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03423,    .01714,  33.39904,   1.52558,   1.08170,
     +     .64826,   1.37574,   1.52599,
     +     .03488,    .01751,  36.40739,   1.63301,   1.19246,
     +     .76264,   1.48413,   1.63346,
     +     .03568,    .01796,  40.16851,   1.76919,   1.33224,
     +     .90634,   1.62142,   1.76967,
     +     .03639,    .01836,  43.61773,   1.89540,   1.46196,
     +    1.04034,   1.74858,   1.89590,
     +     .03705,    .01874,  46.87627,   2.01590,   1.58583,
     +    1.16835,   1.86995,   2.01642,
     +     .03789,    .01921,  51.07156,   2.17414,   1.74732,
     +    1.33338,   2.02925,   2.17469,
     +     .03869,    .01966,  55.12760,   2.32927,   1.90579,
     +    1.49580,   2.18538,   2.32987,
     +     .03944,    .02008,  59.03703,   2.48056,   2.06066,
     +    1.65516,   2.33757,   2.48119 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04020,    .02051,  62.94842,   2.63555,   2.21806,
     +    1.81523,   2.49344,   2.63621,
     +     .04094,    .02094,  66.86430,   2.79253,   2.37791,
     +    1.97857,   2.65127,   2.79323,
     +     .04165,    .02134,  70.62756,   2.94558,   2.53369,
     +    2.13773,   2.80511,   2.94632,
     +     .04232,    .02172,  74.17406,   3.09265,   2.68285,
     +    2.28939,   2.95291,   3.09342,
     +     .04300,    .02210,  77.81965,   3.24508,   2.83794,
     +    2.44786,   3.10606,   3.24587,
     +     .04367,    .02249,  81.36630,   3.39680,   2.99148,
     +    2.60362,   3.25849,   3.39763,
     +     .04432,    .02285,  84.82322,   3.54557,   3.14265,
     +    2.75788,   3.40791,   3.54643,
     +     .04492,    .02320,  88.04302,   3.68728,   3.28591,
     +    2.90308,   3.55024,   3.68817 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04555,    .02355,  91.35551,   3.83404,   3.43472,
     +    3.05452,   3.69760,   3.83496,
     +     .04616,    .02390,  94.59918,   3.98038,   3.58272,
     +    3.20469,   3.84453,   3.98133,
     +     .04675,    .02424,  97.71190,   4.12246,   3.72645,
     +    3.35059,   3.98717,   4.12344,
     +     .04732,    .02455, 100.69183,   4.25976,   3.86552,
     +    3.49198,   4.12500,   4.26078,
     +     .04788,    .02488, 103.65378,   4.39899,   4.00603,
     +    3.63419,   4.26475,   4.40004 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03304,    .01633,    .74753,    .36589,    .00000,
     +     .00000,    .22264,    .36615,
     +     .03372,    .01669,   1.46580,    .38916,    .00000,
     +     .00000,    .24703,    .38945,
     +     .03475,    .01725,   2.69797,    .42916,    .01437,
     +     .00000,    .28864,    .42949,
     +     .03552,    .01769,   3.75516,    .46231,    .03366,
     +     .00000,    .32291,    .46267,
     +     .03634,    .01814,   4.92105,    .50066,    .07834,
     +     .00000,    .36239,    .50105,
     +     .03706,    .01854,   6.03143,    .53696,    .11781,
     +     .00000,    .39963,    .53737,
     +     .03774,    .01892,   7.19745,    .57421,    .15879,
     +     .00000,    .43777,    .57466,
     +     .03848,    .01934,   8.53743,    .61647,    .20585,
     +     .00000,    .48094,    .61696 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03912,    .01971,   9.76166,    .65568,    .24749,
     +     .00000,    .52093,    .65618,
     +     .03975,    .02006,  11.00653,    .69557,    .28997,
     +     .00000,    .56155,    .69611,
     +     .04026,    .02035,  12.05006,    .72867,    .32585,
     +     .00000,    .59522,    .72923,
     +     .04133,    .02096,  14.38938,    .80368,    .40533,
     +     .00000,    .67141,    .80429,
     +     .04228,    .02150,  16.27009,    .87246,    .47746,
     +     .09490,    .74117,    .87312,
     +     .04336,    .02212,  18.58128,    .95434,    .56329,
     +     .19653,    .82412,    .95506,
     +     .04450,    .02277,  21.10852,   1.04462,    .65760,
     +     .29626,    .91547,   1.04540,
     +     .04553,    .02337,  23.49380,   1.13087,    .74746,
     +     .39129,   1.00269,   1.13171 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04659,    .02397,  25.98678,   1.22223,    .84252,
     +     .49126,   1.09498,   1.22311,
     +     .04746,    .02448,  28.10305,   1.30108,    .92405,
     +     .57587,   1.17458,   1.30200,
     +     .04854,    .02510,  30.71721,   1.40019,   1.02612,
     +     .68130,   1.27460,   1.40118,
     +     .04950,    .02564,  33.08708,   1.49133,   1.12009,
     +     .77885,   1.36651,   1.49237,
     +     .05039,    .02616,  35.30330,   1.57774,   1.20921,
     +     .87139,   1.45362,   1.57883,
     +     .05151,    .02680,  38.12267,   1.69029,   1.32443,
     +     .98967,   1.56703,   1.69144,
     +     .05257,    .02743,  40.81733,   1.79976,   1.43658,
     +    1.10517,   1.67730,   1.80097,
     +     .05359,    .02800,  43.38827,   1.90572,   1.54541,
     +    1.21769,   1.78400,   1.90701 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05459,    .02859,  45.93026,   2.01343,   1.65510,
     +    1.32973,   1.89242,   2.01477,
     +     .05559,    .02917,  48.45150,   2.12179,   1.76576,
     +    1.44332,   2.00146,   2.12319,
     +     .05653,    .02972,  50.85191,   2.22674,   1.87291,
     +    1.55329,   2.10705,   2.22819,
     +     .05743,    .03023,  53.09165,   2.32690,   1.97477,
     +    1.65732,   2.20780,   2.32841,
     +     .05833,    .03076,  55.37741,   2.43015,   2.08015,
     +    1.76549,   2.31165,   2.43172,
     +     .05923,    .03127,  57.57817,   2.53222,   2.18372,
     +    1.87101,   2.41428,   2.53385,
     +     .06009,    .03176,  59.71002,   2.63182,   2.28524,
     +    1.97507,   2.51443,   2.63351,
     +     .06090,    .03223,  61.67610,   2.72611,   2.38081,
     +    2.07234,   2.60919,   2.72783 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06171,    .03270,  63.68723,   2.82330,   2.47965,
     +    2.17338,   2.70688,   2.82508,
     +     .06253,    .03318,  65.63965,   2.91966,   2.57737,
     +    2.27296,   2.80373,   2.92149,
     +     .06331,    .03363,  67.50075,   3.01277,   2.67184,
     +    2.36926,   2.89729,   3.01465,
     +     .06405,    .03405,  69.27191,   3.10236,   2.76284,
     +    2.46220,   2.98731,   3.10429,
     +     .06481,    .03448,  71.01684,   3.19270,   2.85425,
     +    2.55510,   3.07808,   3.19468 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03972,    .01993,    .71841,    .33499,    .00000,
     +     .00000,    .20522,    .33564,
     +     .04052,    .02037,   1.39671,    .35631,    .00000,
     +     .00000,    .22756,    .35701,
     +     .04173,    .02105,   2.53874,    .39249,    .01431,
     +     .00000,    .26517,    .39325,
     +     .04265,    .02158,   3.50634,    .42216,    .03131,
     +     .00000,    .29586,    .42297,
     +     .04363,    .02213,   4.55998,    .45621,    .07116,
     +     .00000,    .33092,    .45707,
     +     .04446,    .02261,   5.55246,    .48821,    .10607,
     +     .00000,    .36377,    .48911,
     +     .04528,    .02307,   6.58532,    .52088,    .14211,
     +     .00000,    .39724,    .52182,
     +     .04617,    .02358,   7.76193,    .55775,    .18329,
     +     .00000,    .43493,    .55875 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04693,    .02402,   8.82764,    .59176,    .21952,
     +     .00000,    .46965,    .59281,
     +     .04768,    .02446,   9.90353,    .62624,    .25635,
     +     .00000,    .50478,    .62730,
     +     .04828,    .02480,  10.80024,    .65474,    .28734,
     +     .00000,    .53381,    .65586,
     +     .04956,    .02555,  12.79474,    .71902,    .35563,
     +     .00000,    .59914,    .72020,
     +     .05070,    .02620,  14.37897,    .77760,    .41724,
     +     .07993,    .65861,    .77886,
     +     .05198,    .02695,  16.30771,    .84695,    .49015,
     +     .16672,    .72894,    .84829,
     +     .05332,    .02773,  18.39639,    .92295,    .56977,
     +     .25124,    .80591,    .92436,
     +     .05456,    .02845,  20.34977,    .99514,    .64522,
     +     .33134,    .87897,    .99664 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05580,    .02918,  22.37424,   1.07121,    .72457,
     +     .41511,    .95588,   1.07277,
     +     .05686,    .02979,  24.07948,   1.13651,    .79230,
     +     .48565,   1.02188,   1.13815,
     +     .05813,    .03054,  26.16988,   1.21822,    .87666,
     +     .57312,   1.10438,   1.21994,
     +     .05926,    .03120,  28.05117,   1.29297,    .95396,
     +     .65367,   1.17985,   1.29476,
     +     .06032,    .03182,  29.79919,   1.36355,   1.02695,
     +     .72975,   1.25106,   1.36541,
     +     .06166,    .03260,  32.00589,   1.45501,   1.12082,
     +     .82647,   1.34331,   1.45696,
     +     .06292,    .03334,  34.09962,   1.54354,   1.21177,
     +     .92047,   1.43256,   1.54557,
     +     .06411,    .03403,  36.08439,   1.62886,   1.29962,
     +    1.01164,   1.51856,   1.63097 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06530,    .03473,  38.03167,   1.71514,   1.38772,
     +    1.10195,   1.60549,   1.71733,
     +     .06648,    .03541,  39.95163,   1.80158,   1.47623,
     +    1.19315,   1.69256,   1.80385,
     +     .06759,    .03607,  41.76858,   1.88497,   1.56158,
     +    1.28107,   1.77653,   1.88731,
     +     .06865,    .03668,  43.45288,   1.96421,   1.64237,
     +    1.36388,   1.85631,   1.96662,
     +     .06972,    .03730,  45.16395,   2.04564,   1.72569,
     +    1.44972,   1.93827,   2.04812,
     +     .07077,    .03792,  46.79997,   2.12577,   1.80720,
     +    1.53306,   2.01893,   2.12833,
     +     .07177,    .03850,  48.37869,   2.20374,   1.88688,
     +    1.61504,   2.09739,   2.20637,
     +     .07273,    .03905,  49.82491,   2.27723,   1.96156,
     +    1.69132,   2.17134,   2.27993 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07369,    .03962,  51.29900,   2.35282,   2.03862,
     +    1.77037,   2.24736,   2.35557,
     +     .07464,    .04017,  52.72172,   2.42746,   2.11452,
     +    1.84800,   2.32246,   2.43029,
     +     .07556,    .04070,  54.07193,   2.49938,   2.18766,
     +    1.92283,   2.39480,   2.50226,
     +     .07642,    .04121,  55.35192,   2.56839,   2.25795,
     +    1.99487,   2.46421,   2.57134,
     +     .07730,    .04171,  56.60523,   2.63774,   2.32828,
     +    2.06661,   2.53394,   2.64074 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04527,    .02295,    .70455,    .31485,    .00000,
     +     .00000,    .19407,    .31602,
     +     .04618,    .02346,   1.35601,    .33483,    .00000,
     +     .00000,    .21498,    .33603,
     +     .04753,    .02424,   2.43722,    .36839,    .01425,
     +     .00000,    .24989,    .36967,
     +     .04858,    .02484,   3.34466,    .39574,    .02971,
     +     .00000,    .27817,    .39708,
     +     .04967,    .02546,   4.32335,    .42697,    .06634,
     +     .00000,    .31034,    .42837,
     +     .05062,    .02602,   5.23768,    .45616,    .09823,
     +     .00000,    .34030,    .45761,
     +     .05154,    .02656,   6.18277,    .48585,    .13103,
     +     .00000,    .37074,    .48735,
     +     .05254,    .02714,   7.25233,    .51923,    .16840,
     +     .00000,    .40489,    .52079 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05341,    .02765,   8.21483,    .54992,    .20111,
     +     .00000,    .43623,    .55153,
     +     .05426,    .02815,   9.18128,    .58091,    .23428,
     +     .00000,    .46783,    .58258,
     +     .05493,    .02855,   9.98334,    .60649,    .26214,
     +     .00000,    .49389,    .60819,
     +     .05639,    .02940,  11.75683,    .66394,    .32328,
     +     .00000,    .55233,    .66573,
     +     .05766,    .03015,  13.15284,    .71606,    .37820,
     +     .07038,    .60529,    .71794,
     +     .05912,    .03101,  14.84024,    .77752,    .44293,
     +     .14776,    .66765,    .77950,
     +     .06064,    .03190,  16.65433,    .84457,    .51330,
     +     .22270,    .73562,    .84664,
     +     .06203,    .03272,  18.33925,    .90799,    .57968,
     +     .29340,    .79985,    .91015 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06344,    .03356,  20.07442,    .97453,    .64926,
     +     .36708,    .86718,    .97679,
     +     .06464,    .03426,  21.52743,   1.03146,    .70840,
     +     .42888,    .92475,   1.03379,
     +     .06607,    .03511,  23.29835,   1.10241,    .78180,
     +     .50520,    .99647,   1.10483,
     +     .06736,    .03587,  24.88332,   1.16710,    .84882,
     +     .57526,   1.06182,   1.16961,
     +     .06854,    .03656,  26.34888,   1.22798,    .91190,
     +     .64121,   1.12330,   1.23056,
     +     .07004,    .03745,  28.18815,   1.30657,    .99271,
     +     .72473,   1.20263,   1.30926,
     +     .07147,    .03828,  29.92359,   1.38235,   1.07072,
     +     .80561,   1.27910,   1.38514,
     +     .07280,    .03907,  31.56065,   1.45515,   1.14584,
     +     .88381,   1.35254,   1.45804 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07415,    .03986,  33.15723,   1.52849,   1.22086,
     +     .96095,   1.42648,   1.53147,
     +     .07547,    .04064,  34.72426,   1.60175,   1.29602,
     +    1.03863,   1.50034,   1.60482,
     +     .07673,    .04138,  36.20041,   1.67219,   1.36827,
     +    1.11328,   1.57133,   1.67535,
     +     .07791,    .04207,  37.56183,   1.73892,   1.43644,
     +    1.18337,   1.63856,   1.74216,
     +     .07911,    .04278,  38.94010,   1.80731,   1.50657,
     +    1.25585,   1.70748,   1.81063,
     +     .08029,    .04346,  40.25070,   1.87441,   1.57496,
     +    1.32598,   1.77506,   1.87781,
     +     .08141,    .04412,  41.51173,   1.93954,   1.64166,
     +    1.39482,   1.84066,   1.94303,
     +     .08248,    .04474,  42.66075,   2.00075,   1.70397,
     +    1.45867,   1.90230,   2.00431 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08355,    .04537,  43.82874,   2.06355,   1.76815,
     +    1.52473,   1.96555,   2.06720,
     +     .08462,    .04599,  44.95082,   2.12543,   1.83119,
     +    1.58939,   2.02783,   2.12915,
     +     .08564,    .04659,  46.01202,   2.18490,   1.89180,
     +    1.65160,   2.08770,   2.18869,
     +     .08661,    .04716,  47.01502,   2.24185,   1.94993,
     +    1.71137,   2.14504,   2.24572,
     +     .08759,    .04772,  47.99223,   2.29892,   2.00795,
     +    1.77073,   2.20247,   2.30285 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05014,    .02573,    .70115,    .30110,    .00000,
     +     .00000,    .18614,    .30235,
     +     .05113,    .02629,   1.33225,    .32000,    .00000,
     +     .00000,    .20591,    .32131,
     +     .05263,    .02717,   2.36736,    .35156,    .01414,
     +     .00000,    .23869,    .35296,
     +     .05378,    .02784,   3.22925,    .37715,    .02843,
     +     .00000,    .26514,    .37860,
     +     .05497,    .02854,   4.15141,    .40623,    .06262,
     +     .00000,    .29510,    .40776,
     +     .05603,    .02916,   5.00692,    .43331,    .09227,
     +     .00000,    .32291,    .43492,
     +     .05705,    .02976,   5.88622,    .46078,    .12266,
     +     .00000,    .35106,    .46245,
     +     .05815,    .03041,   6.87582,    .49158,    .15718,
     +     .00000,    .38258,    .49332 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05910,    .03097,   7.76155,    .51980,    .18733,
     +     .00000,    .41140,    .52161,
     +     .06003,    .03153,   8.64692,    .54824,    .21780,
     +     .00000,    .44041,    .55011,
     +     .06078,    .03197,   9.37904,    .57167,    .24335,
     +     .00000,    .46428,    .57358,
     +     .06238,    .03292,  10.98997,    .62413,    .29926,
     +     .00000,    .51766,    .62614,
     +     .06379,    .03376,  12.24847,    .67157,    .34931,
     +     .06349,    .56588,    .67367,
     +     .06539,    .03470,  13.76061,    .72730,    .40810,
     +     .13400,    .62246,    .72951,
     +     .06707,    .03569,  15.37634,    .78787,    .47178,
     +     .20198,    .68388,    .79020,
     +     .06860,    .03661,  16.86836,    .84497,    .53164,
     +     .26590,    .74175,    .84741 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07016,    .03753,  18.39670,    .90468,    .59416,
     +     .33227,    .80220,    .90723,
     +     .07146,    .03829,  19.67014,    .95561,    .64715,
     +     .38777,    .85373,    .95825,
     +     .07304,    .03923,  21.21469,   1.01888,    .71271,
     +     .45612,    .91773,   1.02163,
     +     .07445,    .04007,  22.59069,   1.07641,    .77239,
     +     .51865,    .97588,   1.07926,
     +     .07574,    .04083,  23.85780,   1.13039,    .82842,
     +     .57738,   1.03043,   1.13333,
     +     .07740,    .04180,  25.44001,   1.19986,    .89998,
     +     .65151,   1.10060,   1.20293,
     +     .07895,    .04272,  26.92583,   1.26665,    .96882,
     +     .72307,   1.16803,   1.26983,
     +     .08042,    .04359,  28.32152,   1.33064,   1.03496,
     +     .79209,   1.23261,   1.33392 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08189,    .04445,  29.67583,   1.39489,   1.10078,
     +     .85994,   1.29745,   1.39827,
     +     .08333,    .04530,  30.99989,   1.45890,   1.16657,
     +     .92810,   1.36201,   1.46239,
     +     .08471,    .04610,  32.24219,   1.52029,   1.22965,
     +     .99345,   1.42393,   1.52388,
     +     .08599,    .04686,  33.38314,   1.57828,   1.28899,
     +    1.05461,   1.48242,   1.58197,
     +     .08730,    .04763,  34.53496,   1.63761,   1.34993,
     +    1.11776,   1.54223,   1.64140,
     +     .08858,    .04837,  35.62465,   1.69565,   1.40917,
     +    1.17866,   1.60072,   1.69953,
     +     .08981,    .04909,  36.67056,   1.75189,   1.46688,
     +    1.23838,   1.65741,   1.75585,
     +     .09097,    .04977,  37.61897,   1.80459,   1.52063,
     +    1.29359,   1.71053,   1.80865 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09214,    .05045,  38.58083,   1.85859,   1.57591,
     +    1.35062,   1.76493,   1.86273,
     +     .09330,    .05113,  39.50105,   1.91165,   1.63008,
     +    1.40634,   1.81840,   1.91588,
     +     .09441,    .05178,  40.36874,   1.96255,   1.68206,
     +    1.45983,   1.86969,   1.96688,
     +     .09545,    .05238,  41.18675,   2.01123,   1.73183,
     +    1.51113,   1.91872,   2.01562,
     +     .09652,    .05300,  41.98034,   2.05989,   1.78138,
     +    1.56197,   1.96773,   2.06436 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06907,    .03686,    .70980,    .26378,    .00000,
     +     .00000,    .16516,    .26604,
     +     .07038,    .03765,   1.28197,    .27928,    .00000,
     +     .00000,    .18137,    .28163,
     +     .07239,    .03887,   2.18255,    .30477,    .01358,
     +     .00000,    .20786,    .30724,
     +     .07394,    .03980,   2.91232,    .32514,    .02448,
     +     .00000,    .22896,    .32773,
     +     .07555,    .04078,   3.67240,    .34808,    .05174,
     +     .00000,    .25260,    .35077,
     +     .07696,    .04164,   4.36119,    .36920,    .07507,
     +     .00000,    .27432,    .37199,
     +     .07834,    .04247,   5.05557,    .39042,    .09875,
     +     .00000,    .29612,    .39332,
     +     .07983,    .04337,   5.82266,    .41403,    .12543,
     +     .00000,    .32033,    .41704 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08113,    .04416,   6.49684,    .43547,    .14849,
     +     .00000,    .34227,    .43858,
     +     .08239,    .04493,   7.16051,    .45691,    .17163,
     +     .00000,    .36419,    .46011,
     +     .08339,    .04554,   7.70268,    .47447,    .19093,
     +     .00000,    .38212,    .47773,
     +     .08555,    .04684,   8.87618,    .51341,    .23274,
     +     .00000,    .42185,    .51685,
     +     .08744,    .04798,   9.77000,    .54824,    .26976,
     +     .04470,    .45734,    .55182,
     +     .08959,    .04927,  10.82094,    .58871,    .31276,
     +     .09693,    .49852,    .59245,
     +     .09184,    .05062,  11.92068,    .63218,    .35878,
     +     .14653,    .54272,    .63609,
     +     .09389,    .05185,  12.91626,    .67267,    .40156,
     +     .19266,    .58387,    .67675 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09596,    .05308,  13.91757,    .71457,    .44576,
     +     .24004,    .62642,    .71881,
     +     .09769,    .05412,  14.73766,    .74993,    .48284,
     +     .27926,    .66231,    .75431,
     +     .09979,    .05536,  15.71556,    .79343,    .52824,
     +     .32705,    .70642,    .79796,
     +     .10166,    .05647,  16.57279,    .83258,    .56918,
     +     .37038,    .74611,    .83726,
     +     .10337,    .05749,  17.35097,    .86899,    .60727,
     +     .41071,    .78302,    .87381,
     +     .10554,    .05877,  18.30550,    .91536,    .65539,
     +     .46107,    .83000,    .92035,
     +     .10759,    .05997,  19.18710,    .95948,    .70124,
     +     .50921,    .87469,    .96463,
     +     .10951,    .06111,  20.00326,   1.00135,    .74488,
     +     .55523,    .91709,   1.00666 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11142,    .06223,  20.78037,   1.04295,    .78784,
     +     .59996,    .95920,   1.04840,
     +     .11330,    .06333,  21.52983,   1.08403,    .83042,
     +     .64455,   1.00077,   1.08963,
     +     .11509,    .06437,  22.22305,   1.12309,    .87090,
     +     .68693,   1.04030,   1.12884,
     +     .11676,    .06534,  22.84931,   1.15965,    .90863,
     +     .72623,   1.07729,   1.16553,
     +     .11844,    .06632,  23.47507,   1.19679,    .94712,
     +     .76655,   1.11487,   1.20281,
     +     .12010,    .06728,  24.05615,   1.23276,    .98419,
     +     .80507,   1.15127,   1.23892,
     +     .12168,    .06820,  24.60926,   1.26743,   1.02007,
     +     .84261,   1.18633,   1.27371,
     +     .12316,    .06905,  25.10145,   1.29961,   1.05320,
     +     .87702,   1.21887,   1.30600 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12465,    .06992,  25.59667,   1.33240,   1.08708,
     +     .91237,   1.25203,   1.33891,
     +     .12613,    .07077,  26.06279,   1.36435,   1.12002,
     +     .94663,   1.28435,   1.37098,
     +     .12754,    .07157,  26.49730,   1.39481,   1.15142,
     +     .97932,   1.31516,   1.40156,
     +     .12888,    .07234,  26.90297,   1.42377,   1.18134,
     +    1.01051,   1.34444,   1.43062,
     +     .13023,    .07310,  27.28923,   1.45247,   1.21086,
     +    1.04115,   1.37347,   1.45943 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09566,    .05323,    .78122,    .23410,    .00000,
     +     .00000,    .14820,    .23800,
     +     .09743,    .05433,   1.29555,    .24622,    .00000,
     +     .00000,    .16091,    .25025,
     +     .10016,    .05602,   2.06723,    .26595,    .01211,
     +     .00000,    .18150,    .27020,
     +     .10223,    .05732,   2.67221,    .28161,    .02001,
     +     .00000,    .19776,    .28602,
     +     .10442,    .05866,   3.28351,    .29910,    .04121,
     +     .00000,    .21587,    .30369,
     +     .10633,    .05984,   3.82263,    .31504,    .05910,
     +     .00000,    .23233,    .31979,
     +     .10818,    .06098,   4.35393,    .33094,    .07711,
     +     .00000,    .24872,    .33586,
     +     .11019,    .06221,   4.92833,    .34849,    .09722,
     +     .00000,    .26679,    .35357 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11194,    .06327,   5.42267,    .36428,    .11442,
     +     .00000,    .28302,    .36950,
     +     .11363,    .06431,   5.90060,    .37992,    .13155,
     +     .00000,    .29910,    .38530,
     +     .11499,    .06514,   6.28546,    .39268,    .14574,
     +     .00000,    .31218,    .39816,
     +     .11789,    .06688,   7.10286,    .42067,    .17619,
     +     .00000,    .34087,    .42641,
     +     .12041,    .06841,   7.70732,    .44540,    .20281,
     +     .02928,    .36618,    .45135,
     +     .12326,    .07011,   8.39782,    .47378,    .23336,
     +     .06699,    .39520,    .47997,
     +     .12624,    .07188,   9.10247,    .50383,    .26561,
     +     .10223,    .42593,    .51027,
     +     .12894,    .07348,   9.72500,    .53147,    .29520,
     +     .13458,    .45415,    .53814 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13167,    .07510,  10.33696,    .55971,    .32540,
     +     .16740,    .48298,    .56662,
     +     .13393,    .07642,  10.82744,    .58326,    .35044,
     +     .19425,    .50702,    .59036,
     +     .13667,    .07802,  11.39987,    .61186,    .38073,
     +     .22660,    .53620,    .61920,
     +     .13909,    .07943,  11.89153,    .63732,    .40774,
     +     .25561,    .56216,    .64485,
     +     .14131,    .08073,  12.32972,    .66075,    .43262,
     +     .28234,    .58606,    .66848,
     +     .14411,    .08233,  12.85444,    .69021,    .46366,
     +     .31531,    .61608,    .69818,
     +     .14673,    .08384,  13.32864,    .71789,    .49289,
     +     .34648,    .64430,    .72609,
     +     .14919,    .08526,  13.75936,    .74389,    .52041,
     +     .37596,    .67080,    .75229 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15162,    .08665,  14.15842,    .76936,    .54716,
     +     .40426,    .69676,    .77796,
     +     .15400,    .08799,  14.53625,    .79425,    .57342,
     +     .43220,    .72213,    .80307,
     +     .15625,    .08927,  14.87881,    .81769,    .59812,
     +     .45848,    .74601,    .82669,
     +     .15834,    .09045,  15.18063,    .83936,    .62090,
     +     .48261,    .76810,    .84854,
     +     .16046,    .09164,  15.47805,    .86119,    .64397,
     +     .50719,    .79036,    .87055,
     +     .16252,    .09279,  15.74610,    .88209,    .66590,
     +     .53038,    .81166,    .89162,
     +     .16447,    .09388,  15.99851,    .90209,    .68700,
     +     .55285,    .83204,    .91178,
     +     .16630,    .09491,  16.21587,    .92042,    .70626,
     +     .57322,    .85073,    .93027 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16816,    .09593,  16.43215,    .93899,    .72584,
     +     .59402,    .86966,    .94900,
     +     .16997,    .09694,  16.63032,    .95689,    .74468,
     +     .61399,    .88792,    .96704,
     +     .17169,    .09789,  16.81175,    .97382,    .76251,
     +     .63290,    .90518,    .98412,
     +     .17332,    .09879,  16.97844,    .98980,    .77938,
     +     .65083,    .92148,   1.00023,
     +     .17495,    .09968,  17.13138,   1.00546,    .79586,
     +     .66827,    .93747,   1.01603 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11594,    .06600,    .86701,    .21852,    .00000,
     +     .00000,    .13905,    .22385,
     +     .11807,    .06734,   1.34243,    .22875,    .00000,
     +     .00000,    .14984,    .23428,
     +     .12132,    .06939,   2.03813,    .24538,    .01049,
     +     .00000,    .16725,    .25118,
     +     .12382,    .07094,   2.57084,    .25854,    .01686,
     +     .00000,    .18098,    .26456,
     +     .12643,    .07257,   3.09852,    .27319,    .03493,
     +     .00000,    .19622,    .27945,
     +     .12871,    .07397,   3.55576,    .28648,    .05006,
     +     .00000,    .21001,    .29293,
     +     .13093,    .07533,   3.99967,    .29967,    .06519,
     +     .00000,    .22368,    .30632,
     +     .13332,    .07679,   4.47273,    .31415,    .08203,
     +     .00000,    .23865,    .32102 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13540,    .07804,   4.87420,    .32711,    .09631,
     +     .00000,    .25204,    .33416,
     +     .13740,    .07927,   5.25767,    .33990,    .11049,
     +     .00000,    .26523,    .34713,
     +     .13903,    .08023,   5.56352,    .35026,    .12218,
     +     .00000,    .27592,    .35765,
     +     .14245,    .08228,   6.20488,    .37289,    .14708,
     +     .00000,    .29923,    .38058,
     +     .14542,    .08404,   6.67006,    .39270,    .16868,
     +     .02157,    .31962,    .40065,
     +     .14877,    .08601,   7.18932,    .41525,    .19327,
     +     .05230,    .34280,    .42350,
     +     .15224,    .08804,   7.70981,    .43891,    .21900,
     +     .08071,    .36711,    .44747,
     +     .15538,    .08986,   8.16171,    .46046,    .24241,
     +     .10658,    .38926,    .46931 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15855,    .09170,   8.59875,    .48230,    .26609,
     +     .13262,    .41169,    .49143,
     +     .16117,    .09320,   8.94336,    .50036,    .28558,
     +     .15375,    .43024,    .50972,
     +     .16432,    .09500,   9.33916,    .52212,    .30897,
     +     .17902,    .45257,    .53176,
     +     .16710,    .09659,   9.67379,    .54132,    .32966,
     +     .20151,    .47229,    .55122,
     +     .16965,    .09802,   9.96770,    .55888,    .34861,
     +     .22211,    .49031,    .56899,
     +     .17283,    .09982,  10.31305,    .58073,    .37202,
     +     .24730,    .51274,    .59113,
     +     .17582,    .10148,  10.61974,    .60110,    .39389,
     +     .27092,    .53366,    .61176,
     +     .17861,    .10304,  10.89401,    .62008,    .41436,
     +     .29313,    .55314,    .63099 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18135,    .10455,  11.14190,    .63850,    .43406,
     +     .31427,    .57205,    .64964,
     +     .18403,    .10603,  11.37297,    .65637,    .45327,
     +     .33499,    .59042,    .66775,
     +     .18655,    .10741,  11.57878,    .67307,    .47122,
     +     .35438,    .60757,    .68466,
     +     .18890,    .10868,  11.75593,    .68839,    .48765,
     +     .37204,    .62330,    .70017,
     +     .19126,    .10996,  11.92847,    .70372,    .50420,
     +     .38993,    .63908,    .71572,
     +     .19353,    .11119,  12.07912,    .71826,    .51979,
     +     .40667,    .65403,    .73045,
     +     .19570,    .11236,  12.21973,    .73211,    .53474,
     +     .42285,    .66827,    .74448,
     +     .19772,    .11344,  12.33654,    .74469,    .54826,
     +     .43738,    .68122,    .75723 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19976,    .11453,  12.45163,    .75736,    .56195,
     +     .45217,    .69426,    .77008,
     +     .20174,    .11558,  12.55351,    .76948,    .57504,
     +     .46627,    .70675,    .78236,
     +     .20362,    .11658,  12.64471,    .78088,    .58735,
     +     .47956,    .71849,    .79392,
     +     .20541,    .11753,  12.72698,    .79159,    .59896,
     +     .49212,    .72953,    .80476,
     +     .20719,    .11846,  12.79871,    .80198,    .61019,
     +     .50423,    .74024,    .81531 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13301,    .07683,    .95252,    .20787,    .00000,
     +     .00000,    .13254,    .21450,
     +     .13544,    .07840,   1.39686,    .21685,    .00000,
     +     .00000,    .14204,    .22371,
     +     .13917,    .08075,   2.03673,    .23141,    .00883,
     +     .00000,    .15737,    .23862,
     +     .14201,    .08252,   2.51719,    .24292,    .01425,
     +     .00000,    .16945,    .25039,
     +     .14497,    .08434,   2.98587,    .25571,    .03029,
     +     .00000,    .18283,    .26348,
     +     .14756,    .08592,   3.38653,    .26728,    .04364,
     +     .00000,    .19487,    .27528,
     +     .15008,    .08744,   3.77100,    .27871,    .05695,
     +     .00000,    .20679,    .28696,
     +     .15278,    .08908,   4.17619,    .29123,    .07168,
     +     .00000,    .21979,    .29971 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15513,    .09049,   4.51630,    .30236,    .08413,
     +     .00000,    .23136,    .31107,
     +     .15741,    .09183,   4.83808,    .31331,    .09641,
     +     .00000,    .24272,    .32224,
     +     .15922,    .09292,   5.09278,    .32216,    .10652,
     +     .00000,    .25189,    .33125,
     +     .16306,    .09517,   5.62156,    .34137,    .12794,
     +     .00000,    .27179,    .35083,
     +     .16639,    .09711,   5.99943,    .35808,    .14640,
     +     .01661,    .28908,    .36784,
     +     .17010,    .09925,   6.41243,    .37696,    .16728,
     +     .04297,    .30861,    .38707,
     +     .17396,    .10146,   6.82026,    .39663,    .18898,
     +     .06716,    .32896,    .40710,
     +     .17744,    .10344,   7.16914,    .41443,    .20858,
     +     .08903,    .34735,    .42521 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18093,    .10540,   7.50183,    .43232,    .22829,
     +     .11091,    .36584,    .44342,
     +     .18380,    .10702,   7.76045,    .44701,    .24440,
     +     .12856,    .38105,    .45838,
     +     .18726,    .10895,   8.05318,    .46460,    .26361,
     +     .14953,    .39922,    .47629,
     +     .19030,    .11062,   8.29721,    .48002,    .28052,
     +     .16811,    .41518,    .49197,
     +     .19307,    .11214,   8.50881,    .49403,    .29591,
     +     .18503,    .42966,    .50623,
     +     .19654,    .11404,   8.75284,    .51135,    .31480,
     +     .20558,    .44757,    .52386,
     +     .19976,    .11579,   8.96592,    .52736,    .33234,
     +     .22476,    .46416,    .54016,
     +     .20278,    .11741,   9.15365,    .54220,    .34866,
     +     .24268,    .47952,    .55525 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20573,    .11899,   9.31902,    .55648,    .36425,
     +     .25961,    .49430,    .56979,
     +     .20860,    .12052,   9.47071,    .57025,    .37936,
     +     .27614,    .50857,    .58380,
     +     .21128,    .12194,   9.60323,    .58303,    .39342,
     +     .29151,    .52183,    .59681,
     +     .21378,    .12326,   9.71420,    .59465,    .40620,
     +     .30544,    .53389,    .60867,
     +     .21629,    .12458,   9.82090,    .60626,    .41902,
     +     .31950,    .54594,    .62048,
     +     .21871,    .12583,   9.91042,    .61716,    .43101,
     +     .33258,    .55727,    .63158,
     +     .22100,    .12702,   9.99315,    .62750,    .44248,
     +     .34517,    .56802,    .64211,
     +     .22313,    .12810,  10.05848,    .63681,    .45278,
     +     .35641,    .57771,    .65160 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22527,    .12920,  10.12207,    .64616,    .46317,
     +     .36782,    .58746,    .66113,
     +     .22734,    .13027,  10.17555,    .65505,    .47303,
     +     .37863,    .59671,    .67018,
     +     .22932,    .13127,  10.22182,    .66335,    .48228,
     +     .38878,    .60537,    .67865,
     +     .23117,    .13221,  10.26234,    .67111,    .49096,
     +     .39833,    .61347,    .68656,
     +     .23301,    .13314,  10.29441,    .67858,    .49931,
     +     .40749,    .62127,    .69419 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14791,    .08638,   1.03375,    .19940,    .00000,
     +     .00000,    .12720,    .20719,
     +     .15064,    .08811,   1.45185,    .20745,    .00000,
     +     .00000,    .13577,    .21550,
     +     .15480,    .09073,   2.04660,    .22052,    .00721,
     +     .00000,    .14961,    .22898,
     +     .15795,    .09266,   2.48551,    .23085,    .01197,
     +     .00000,    .16049,    .23963,
     +     .16124,    .09467,   2.90819,    .24232,    .02656,
     +     .00000,    .17254,    .25141,
     +     .16410,    .09640,   3.26556,    .25263,    .03863,
     +     .00000,    .18334,    .26200,
     +     .16688,    .09807,   3.60515,    .26281,    .05062,
     +     .00000,    .19400,    .27246,
     +     .16984,    .09983,   3.95973,    .27390,    .06386,
     +     .00000,    .20559,    .28384 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17243,    .10135,   4.25456,    .28374,    .07499,
     +     .00000,    .21587,    .29393,
     +     .17492,    .10282,   4.53129,    .29337,    .08595,
     +     .00000,    .22592,    .30381,
     +     .17690,    .10397,   4.74897,    .30113,    .09493,
     +     .00000,    .23402,    .31176,
     +     .18110,    .10640,   5.19702,    .31792,    .11390,
     +     .00000,    .25151,    .32895,
     +     .18472,    .10846,   5.51312,    .33243,    .13015,
     +     .01306,    .26661,    .34381,
     +     .18875,    .11073,   5.85186,    .34872,    .14842,
     +     .03634,    .28358,    .36048,
     +     .19290,    .11306,   6.18187,    .36558,    .16730,
     +     .05756,    .30113,    .37773,
     +     .19665,    .11514,   6.46026,    .38074,    .18426,
     +     .07665,    .31691,    .39323 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20040,    .11720,   6.72230,    .39589,    .20122,
     +     .09565,    .33268,    .40872,
     +     .20348,    .11888,   6.92331,    .40826,    .21500,
     +     .11089,    .34557,    .42138,
     +     .20717,    .12088,   7.14745,    .42297,    .23137,
     +     .12893,    .36090,    .43643,
     +     .21040,    .12262,   7.33181,    .43579,    .24569,
     +     .14482,    .37426,    .44956,
     +     .21334,    .12419,   7.48973,    .44738,    .25866,
     +     .15923,    .38635,    .46140,
     +     .21700,    .12613,   7.66826,    .46161,    .27450,
     +     .17664,    .40120,    .47596,
     +     .22040,    .12792,   7.82136,    .47469,    .28912,
     +     .19281,    .41485,    .48933,
     +     .22356,    .12958,   7.95410,    .48673,    .30265,
     +     .20784,    .42743,    .50165 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22665,    .13118,   8.06763,    .49822,    .31551,
     +     .22197,    .43945,    .51341,
     +     .22965,    .13271,   8.16986,    .50926,    .32793,
     +     .23572,    .45101,    .52470,
     +     .23245,    .13415,   8.25716,    .51943,    .33941,
     +     .24845,    .46168,    .53512,
     +     .23505,    .13546,   8.32750,    .52864,    .34978,
     +     .25991,    .47133,    .54453,
     +     .23764,    .13677,   8.39397,    .53777,    .36015,
     +     .27144,    .48092,    .55389,
     +     .24012,    .13803,   8.44657,    .54629,    .36981,
     +     .28213,    .48989,    .56262,
     +     .24249,    .13920,   8.49457,    .55433,    .37900,
     +     .29236,    .49836,    .57086,
     +     .24467,    .14028,   8.52943,    .56153,    .38722,
     +     .30147,    .50594,    .57823 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24687,    .14136,   8.56273,    .56871,    .39548,
     +     .31068,    .51353,    .58559,
     +     .24899,    .14241,   8.58797,    .57549,    .40328,
     +     .31937,    .52070,    .59255,
     +     .25100,    .14338,   8.60816,    .58180,    .41056,
     +     .32750,    .52737,    .59901,
     +     .25290,    .14431,   8.62465,    .58766,    .41737,
     +     .33513,    .53358,    .60503,
     +     .25477,    .14520,   8.63427,    .59325,    .42389,
     +     .34242,    .53953,    .61077 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17385,    .10291,   1.17722,    .18636,    .00000,
     +     .00000,    .11875,    .19635,
     +     .17708,    .10496,   1.55086,    .19311,    .00000,
     +     .00000,    .12603,    .20345,
     +     .18200,    .10799,   2.07369,    .20409,    .00422,
     +     .00000,    .13779,    .21496,
     +     .18570,    .11022,   2.44777,    .21274,    .00814,
     +     .00000,    .14703,    .22400,
     +     .18953,    .11249,   2.80028,    .22232,    .02072,
     +     .00000,    .15723,    .23399,
     +     .19285,    .11444,   3.09302,    .23090,    .03103,
     +     .00000,    .16632,    .24290,
     +     .19606,    .11631,   3.36680,    .23930,    .04122,
     +     .00000,    .17523,    .25163,
     +     .19949,    .11828,   3.64823,    .24841,    .05240,
     +     .00000,    .18488,    .26109 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20244,    .11997,   3.87860,    .25643,    .06172,
     +     .00000,    .19337,    .26941,
     +     .20529,    .12158,   4.09181,    .26422,    .07085,
     +     .00000,    .20162,    .27751,
     +     .20755,    .12284,   4.25774,    .27049,    .07832,
     +     .00000,    .20823,    .28399,
     +     .21230,    .12549,   4.59452,    .28391,    .09392,
     +     .00000,    .22240,    .29789,
     +     .21634,    .12770,   4.82699,    .29540,    .10718,
     +     .00816,    .23452,    .30975,
     +     .22083,    .13013,   5.06592,    .30816,    .12196,
     +     .02727,    .24801,    .32295,
     +     .22545,    .13259,   5.29296,    .32120,    .13707,
     +     .04452,    .26179,    .33644,
     +     .22957,    .13477,   5.47955,    .33280,    .15050,
     +     .05988,    .27405,    .34842 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23368,    .13692,   5.65066,    .34426,    .16382,
     +     .07504,    .28619,    .36027,
     +     .23704,    .13865,   5.77828,    .35352,    .17454,
     +     .08710,    .29600,    .36983,
     +     .24102,    .14070,   5.91633,    .36442,    .18716,
     +     .10126,    .30755,    .38108,
     +     .24450,    .14247,   6.02651,    .37381,    .19811,
     +     .11363,    .31754,    .39079,
     +     .24766,    .14406,   6.11809,    .38223,    .20795,
     +     .12478,    .32648,    .39949,
     +     .25155,    .14601,   6.21680,    .39243,    .21986,
     +     .13814,    .33733,    .41003,
     +     .25516,    .14779,   6.29772,    .40169,    .23074,
     +     .15042,    .34721,    .41960,
     +     .25850,    .14942,   6.36499,    .41013,    .24073,
     +     .16177,    .35623,    .42832 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26173,    .15099,   6.41762,    .41807,    .25012,
     +     .17233,    .36474,    .43653,
     +     .26485,    .15249,   6.46225,    .42561,    .25912,
     +     .18253,    .37283,    .44433,
     +     .26775,    .15387,   6.49729,    .43249,    .26737,
     +     .19191,    .38023,    .45145,
     +     .27043,    .15511,   6.52150,    .43864,    .27476,
     +     .20029,    .38685,    .45781,
     +     .27308,    .15637,   6.54280,    .44468,    .28210,
     +     .20867,    .39338,    .46406,
     +     .27562,    .15754,   6.55450,    .45022,    .28886,
     +     .21637,    .39939,    .46980,
     +     .27801,    .15865,   6.56427,    .45543,    .29526,
     +     .22371,    .40505,    .47519,
     +     .28021,    .15965,   6.56590,    .46000,    .30091,
     +     .23017,    .41002,    .47994 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28242,    .16065,   6.56632,    .46454,    .30658,
     +     .23669,    .41498,    .48464,
     +     .28454,    .16160,   6.56144,    .46875,    .31187,
     +     .24279,    .41960,    .48902,
     +     .28654,    .16248,   6.55420,    .47262,    .31678,
     +     .24847,    .42387,    .49304,
     +     .28841,    .16331,   6.54560,    .47620,    .32134,
     +     .25376,    .42781,    .49675,
     +     .29025,    .16412,   6.53209,    .47954,    .32565,
     +     .25876,    .43151,    .50022 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20649,    .12357,   1.35202,    .17145,    .00000,
     +     .00000,    .10879,    .18442,
     +     .21044,    .12596,   1.67059,    .17700,    .00000,
     +     .00000,    .11491,    .19044,
     +     .21635,    .12947,   2.11054,    .18597,    .00038,
     +     .00000,    .12477,    .20010,
     +     .22071,    .13199,   2.41232,    .19303,    .00363,
     +     .00000,    .13247,    .20764,
     +     .22521,    .13456,   2.68902,    .20080,    .01430,
     +     .00000,    .14091,    .21591,
     +     .22908,    .13673,   2.91383,    .20767,    .02298,
     +     .00000,    .14837,    .22322,
     +     .23281,    .13878,   3.12000,    .21437,    .03147,
     +     .00000,    .15563,    .23031,
     +     .23674,    .14093,   3.32793,    .22157,    .04071,
     +     .00000,    .16341,    .23792 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24013,    .14275,   3.49473,    .22783,    .04835,
     +     .00000,    .17019,    .24454,
     +     .24336,    .14448,   3.64632,    .23389,    .05577,
     +     .00000,    .17674,    .25093,
     +     .24593,    .14584,   3.76264,    .23870,    .06181,
     +     .00000,    .18195,    .25601,
     +     .25127,    .14862,   3.99436,    .24894,    .07432,
     +     .00000,    .19302,    .26678,
     +     .25575,    .15092,   4.14973,    .25755,    .08482,
     +     .00367,    .20234,    .27583,
     +     .26069,    .15341,   4.29850,    .26700,    .09638,
     +     .01891,    .21257,    .28575,
     +     .26572,    .15590,   4.43437,    .27652,    .10806,
     +     .03251,    .22290,    .29573,
     +     .27017,    .15808,   4.54120,    .28484,    .11832,
     +     .04448,    .23196,    .30446 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27457,    .16021,   4.63474,    .29295,    .12837,
     +     .05617,    .24080,    .31296,
     +     .27813,    .16191,   4.70073,    .29940,    .13639,
     +     .06540,    .24784,    .31973,
     +     .28234,    .16389,   4.76778,    .30687,    .14571,
     +     .07611,    .25604,    .32757,
     +     .28598,    .16558,   4.81780,    .31323,    .15372,
     +     .08539,    .26301,    .33423,
     +     .28925,    .16709,   4.85644,    .31885,    .16084,
     +     .09367,    .26919,    .34010,
     +     .29327,    .16890,   4.89257,    .32552,    .16935,
     +     .10350,    .27658,    .34711,
     +     .29694,    .17054,   4.91780,    .33149,    .17705,
     +     .11244,    .28321,    .35336,
     +     .30032,    .17204,   4.93528,    .33683,    .18405,
     +     .12064,    .28918,    .35897 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30355,    .17344,   4.94252,    .34176,    .19053,
     +     .12818,    .29471,    .36414,
     +     .30665,    .17476,   4.94497,    .34637,    .19668,
     +     .13539,    .29989,    .36898,
     +     .30953,    .17598,   4.94248,    .35048,    .20227,
     +     .14198,    .30456,    .37330,
     +     .31212,    .17706,   4.93426,    .35407,    .20719,
     +     .14778,    .30865,    .37707,
     +     .31471,    .17813,   4.92417,    .35756,    .21206,
     +     .15357,    .31266,    .38074,
     +     .31715,    .17911,   4.90814,    .36067,    .21647,
     +     .15881,    .31625,    .38401,
     +     .31944,    .18003,   4.89227,    .36356,    .22063,
     +     .16379,    .31962,    .38705,
     +     .32151,    .18085,   4.87237,    .36602,    .22425,
     +     .16813,    .32250,    .38963 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32359,    .18166,   4.85177,    .36842,    .22784,
     +     .17247,    .32535,    .39217,
     +     .32557,    .18241,   4.82810,    .37058,    .23115,
     +     .17650,    .32794,    .39446,
     +     .32742,    .18311,   4.80405,    .37253,    .23420,
     +     .18021,    .33029,    .39652,
     +     .32915,    .18375,   4.78035,    .37429,    .23700,
     +     .18366,    .33244,    .39839,
     +     .33082,    .18436,   4.75348,    .37587,    .23961,
     +     .18688,    .33439,    .40007 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25192,    .15141,   1.55250,    .15275,    .00000,
     +     .00000,    .09625,    .17061,
     +     .25684,    .15423,   1.79822,    .15711,    .00000,
     +     .00000,    .10130,    .17558,
     +     .26406,    .15822,   2.13524,    .16408,   -.00448,
     +     .00000,    .10931,    .18342,
     +     .26928,    .16100,   2.35126,    .16945,   -.00172,
     +     .00000,    .11547,    .18941,
     +     .27460,    .16379,   2.54098,    .17534,    .00705,
     +     .00000,    .12214,    .19587,
     +     .27913,    .16611,   2.69046,    .18046,    .01410,
     +     .00000,    .12793,    .20148,
     +     .28342,    .16828,   2.82372,    .18537,    .02090,
     +     .00000,    .13350,    .20685,
     +     .28792,    .17050,   2.95427,    .19058,    .02822,
     +     .00000,    .13941,    .21252 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29174,    .17237,   3.05560,    .19505,    .03420,
     +     .00000,    .14446,    .21736,
     +     .29537,    .17411,   3.14495,    .19930,    .03995,
     +     .00000,    .14929,    .22198,
     +     .29821,    .17547,   3.21204,    .20265,    .04458,
     +     .00000,    .15309,    .22560,
     +     .30407,    .17823,   3.34146,    .20967,    .05406,
     +     .00000,    .16104,    .23316,
     +     .30891,    .18041,   3.42374,    .21544,    .06188,
     +    -.00045,    .16761,    .23936,
     +     .31414,    .18274,   3.48939,    .22162,    .07036,
     +     .01100,    .17467,    .24599,
     +     .31939,    .18504,   3.54337,    .22769,    .07879,
     +     .02109,    .18164,    .25249,
     +     .32397,    .18700,   3.58036,    .23287,    .08607,
     +     .02983,    .18762,    .25803 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32844,    .18886,   3.60759,    .23779,    .09311,
     +     .03827,    .19334,    .26329,
     +     .33202,    .19031,   3.62227,    .24162,    .09863,
     +     .04483,    .19781,    .26737,
     +     .33619,    .19197,   3.63134,    .24592,    .10496,
     +     .05237,    .20290,    .27197,
     +     .33974,    .19335,   3.63336,    .24949,    .11031,
     +     .05881,    .20714,    .27577,
     +     .34289,    .19457,   3.63066,    .25257,    .11502,
     +     .06450,    .21082,    .27905,
     +     .34669,    .19598,   3.61917,    .25609,    .12053,
     +     .07115,    .21510,    .28281,
     +     .35012,    .19722,   3.60325,    .25914,    .12545,
     +     .07714,    .21885,    .28605,
     +     .35323,    .19832,   3.58491,    .26179,    .12986,
     +     .08254,    .22214,    .28886 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35616,    .19931,   3.56063,    .26410,    .13386,
     +     .08745,    .22507,    .29132,
     +     .35892,    .20023,   3.53453,    .26618,    .13760,
     +     .09210,    .22777,    .29354,
     +     .36143,    .20105,   3.50735,    .26798,    .14094,
     +     .09627,    .23013,    .29544,
     +     .36368,    .20175,   3.47860,    .26945,    .14384,
     +     .09993,    .23211,    .29700,
     +     .36588,    .20241,   3.44912,    .27082,    .14667,
     +     .10352,    .23402,    .29847,
     +     .36790,    .20299,   3.41684,    .27194,    .14918,
     +     .10673,    .23564,    .29965,
     +     .36980,    .20352,   3.38625,    .27295,    .15152,
     +     .10976,    .23713,    .30073,
     +     .37146,    .20397,   3.35478,    .27371,    .15350,
     +     .11234,    .23832,    .30153 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37312,    .20440,   3.32316,    .27442,    .15545,
     +     .11491,    .23947,    .30228,
     +     .37466,    .20477,   3.29040,    .27497,    .15722,
     +     .11727,    .24045,    .30285,
     +     .37607,    .20510,   3.25868,    .27542,    .15880,
     +     .11942,    .24129,    .30332,
     +     .37739,    .20540,   3.22840,    .27579,    .16025,
     +     .12139,    .24205,    .30370,
     +     .37862,    .20564,   3.19636,    .27601,    .16155,
     +     .12320,    .24265,    .30395 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28993,    .17390,   1.67237,    .13783,    .00000,
     +     .00000,    .08641,    .15987,
     +     .29572,    .17694,   1.86071,    .14143,    .00000,
     +     .00000,    .09084,    .16421,
     +     .30405,    .18118,   2.12009,    .14709,   -.00776,
     +     .00000,    .09772,    .17087,
     +     .30993,    .18406,   2.27464,    .15139,   -.00521,
     +     .00000,    .10289,    .17584,
     +     .31585,    .18688,   2.40410,    .15602,    .00235,
     +     .00000,    .10843,    .18112,
     +     .32081,    .18919,   2.50291,    .15999,    .00835,
     +     .00000,    .11316,    .18559,
     +     .32547,    .19132,   2.58842,    .16376,    .01410,
     +     .00000,    .11764,    .18981,
     +     .33029,    .19349,   2.66955,    .16769,    .02019,
     +     .00000,    .12233,    .19419 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33434,    .19526,   2.72995,    .17101,    .02513,
     +     .00000,    .12630,    .19788,
     +     .33815,    .19690,   2.78121,    .17412,    .02984,
     +     .00000,    .13003,    .20133,
     +     .34112,    .19817,   2.81863,    .17656,    .03360,
     +     .00000,    .13295,    .20400,
     +     .34717,    .20065,   2.88772,    .18155,    .04121,
     +     .00000,    .13896,    .20949,
     +     .35202,    .20258,   2.92797,    .18556,    .04741,
     +    -.00256,    .14382,    .21388,
     +     .35723,    .20457,   2.94761,    .18977,    .05405,
     +     .00656,    .14896,    .21844,
     +     .36236,    .20649,   2.95775,    .19379,    .06055,
     +     .01450,    .15392,    .22278,
     +     .36678,    .20806,   2.95847,    .19713,    .06609,
     +     .02132,    .15808,    .22639 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37102,    .20952,   2.95219,    .20020,    .07137,
     +     .02782,    .16199,    .22971,
     +     .37436,    .21063,   2.94162,    .20250,    .07548,
     +     .03284,    .16497,    .23218,
     +     .37817,    .21185,   2.92302,    .20503,    .08011,
     +     .03853,    .16827,    .23488,
     +     .38138,    .21283,   2.90282,    .20706,    .08399,
     +     .04336,    .17097,    .23701,
     +     .38419,    .21365,   2.88160,    .20872,    .08735,
     +     .04757,    .17327,    .23879,
     +     .38751,    .21456,   2.84965,    .21054,    .09124,
     +     .05244,    .17584,    .24071,
     +     .39044,    .21531,   2.81674,    .21203,    .09466,
     +     .05679,    .17804,    .24227,
     +     .39305,    .21595,   2.78419,    .21325,    .09769,
     +     .06068,    .17990,    .24355 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39543,    .21648,   2.74811,    .21420,    .10039,
     +     .06416,    .18148,    .24453,
     +     .39765,    .21692,   2.71184,    .21499,    .10288,
     +     .06743,    .18287,    .24533,
     +     .39964,    .21727,   2.67641,    .21560,    .10508,
     +     .07035,    .18403,    .24594,
     +     .40134,    .21754,   2.64137,    .21600,    .10695,
     +     .07286,    .18495,    .24632,
     +     .40298,    .21778,   2.60625,    .21635,    .10875,
     +     .07531,    .18579,    .24664,
     +     .40443,    .21793,   2.56997,    .21650,    .11032,
     +     .07748,    .18644,    .24674,
     +     .40578,    .21806,   2.53598,    .21662,    .11176,
     +     .07950,    .18700,    .24680,
     +     .40693,    .21811,   2.50250,    .21656,    .11295,
     +     .08121,    .18738,    .24671 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40805,    .21814,   2.46918,    .21648,    .11412,
     +     .08290,    .18772,    .24657,
     +     .40904,    .21812,   2.43566,    .21628,    .11513,
     +     .08441,    .18793,    .24632,
     +     .40993,    .21806,   2.40371,    .21604,    .11603,
     +     .08579,    .18807,    .24601,
     +     .41072,    .21799,   2.37355,    .21577,    .11684,
     +     .08705,    .18816,    .24568,
     +     .41143,    .21788,   2.34240,    .21540,    .11754,
     +     .08818,    .18815,    .24523 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .35490,    .20929,   1.74707,    .11463,    .00000,
     +     .00000,    .07231,    .14506,
     +     .36182,    .21242,   1.85276,    .11724,    .00000,
     +     .00000,    .07590,    .14837,
     +     .37148,    .21653,   2.00327,    .12112,   -.01129,
     +     .00000,    .08121,    .15317,
     +     .37798,    .21920,   2.07690,    .12398,   -.00893,
     +     .00000,    .08505,    .15653,
     +     .38440,    .22169,   2.12979,    .12697,   -.00298,
     +     .00000,    .08903,    .16000,
     +     .38963,    .22365,   2.16607,    .12942,    .00169,
     +     .00000,    .09233,    .16282,
     +     .39443,    .22539,   2.19429,    .13169,    .00607,
     +     .00000,    .09538,    .16538,
     +     .39931,    .22708,   2.21771,    .13399,    .01062,
     +     .00000,    .09848,    .16795 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40331,    .22842,   2.23143,    .13585,    .01426,
     +     .00000,    .10103,    .17002,
     +     .40697,    .22959,   2.24019,    .13755,    .01767,
     +     .00000,    .10338,    .17188,
     +     .40980,    .23047,   2.24514,    .13886,    .02036,
     +     .00000,    .10517,    .17329,
     +     .41536,    .23209,   2.24977,    .14143,    .02572,
     +     .00000,    .10879,    .17604,
     +     .41965,    .23319,   2.24623,    .14338,    .02998,
     +    -.00433,    .11159,    .17807,
     +     .42405,    .23423,   2.22100,    .14530,    .03445,
     +     .00197,    .11442,    .18004,
     +     .42823,    .23511,   2.18989,    .14698,    .03873,
     +     .00738,    .11704,    .18173,
     +     .43166,    .23572,   2.15787,    .14827,    .04230,
     +     .01194,    .11912,    .18296 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .43481,    .23618,   2.12272,    .14935,    .04563,
     +     .01622,    .12098,    .18393,
     +     .43719,    .23645,   2.09135,    .15005,    .04816,
     +     .01946,    .12231,    .18455,
     +     .43975,    .23662,   2.05113,    .15071,    .05098,
     +     .02310,    .12370,    .18505,
     +     .44180,    .23667,   2.01454,    .15112,    .05328,
     +     .02613,    .12475,    .18533,
     +     .44350,    .23664,   1.98035,    .15139,    .05523,
     +     .02873,    .12558,    .18543,
     +     .44535,    .23643,   1.93531,    .15150,    .05745,
     +     .03170,    .12638,    .18534,
     +     .44687,    .23614,   1.89262,    .15147,    .05933,
     +     .03429,    .12698,    .18508,
     +     .44811,    .23581,   1.85272,    .15134,    .06097,
     +     .03658,    .12742,    .18471 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .44909,    .23534,   1.81185,    .15102,    .06238,
     +     .03859,    .12767,    .18417,
     +     .44990,    .23482,   1.77228,    .15063,    .06365,
     +     .04044,    .12781,    .18353,
     +     .45051,    .23428,   1.73509,    .15018,    .06474,
     +     .04207,    .12785,    .18284,
     +     .45091,    .23370,   1.69984,    .14967,    .06564,
     +     .04344,    .12775,    .18207,
     +     .45124,    .23307,   1.66515,    .14911,    .06648,
     +     .04477,    .12762,    .18126,
     +     .45139,    .23239,   1.63077,    .14844,    .06717,
     +     .04591,    .12738,    .18036,
     +     .45148,    .23173,   1.59893,    .14779,    .06779,
     +     .04696,    .12712,    .17947,
     +     .45140,    .23102,   1.56862,    .14710,    .06827,
     +     .04784,    .12679,    .17855 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45130,    .23032,   1.53878,    .14639,    .06873,
     +     .04868,    .12642,    .17759,
     +     .45107,    .22956,   1.50943,    .14563,    .06910,
     +     .04943,    .12600,    .17658,
     +     .45079,    .22882,   1.48186,    .14488,    .06942,
     +     .05009,    .12558,    .17559,
     +     .45049,    .22809,   1.45614,    .14413,    .06968,
     +     .05068,    .12514,    .17464,
     +     .45005,    .22732,   1.43017,    .14334,    .06988,
     +     .05119,    .12463,    .17361 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .40948,    .23594,   1.69917,    .09659,    .00000,
     +     .00000,    .06231,    .13389,
     +     .41697,    .23872,   1.75120,    .09847,    .00000,
     +     .00000,    .06522,    .13623,
     +     .42700,    .24221,   1.83187,    .10115,   -.01238,
     +     .00000,    .06932,    .13940,
     +     .43352,    .24427,   1.85748,    .10302,   -.01020,
     +     .00000,    .07221,    .14149,
     +     .43976,    .24609,   1.86678,    .10493,   -.00534,
     +     .00000,    .07511,    .14356,
     +     .44469,    .24741,   1.86873,    .10645,   -.00157,
     +     .00000,    .07743,    .14515,
     +     .44909,    .24851,   1.86642,    .10781,    .00191,
     +     .00000,    .07953,    .14651,
     +     .45343,    .24952,   1.86000,    .10912,    .00547,
     +     .00000,    .08162,    .14778 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45690,    .25019,   1.85040,    .11014,    .00828,
     +     .00000,    .08328,    .14872,
     +     .45999,    .25073,   1.83851,    .11102,    .01089,
     +     .00000,    .08477,    .14952,
     +     .46230,    .25110,   1.82807,    .11167,    .01292,
     +     .00000,    .08588,    .15010,
     +     .46667,    .25162,   1.80306,    .11292,    .01693,
     +     .00000,    .08805,    .15107,
     +     .46980,    .25174,   1.78009,    .11375,    .02005,
     +    -.00467,    .08965,    .15165,
     +     .47281,    .25167,   1.73735,    .11447,    .02328,
     +    -.00005,    .09119,    .15202,
     +     .47543,    .25138,   1.69138,    .11498,    .02631,
     +     .00387,    .09251,    .15213,
     +     .47740,    .25093,   1.64854,    .11525,    .02880,
     +     .00714,    .09348,    .15201 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .47902,    .25031,   1.60473,    .11535,    .03107,
     +     .01015,    .09426,    .15168,
     +     .48006,    .24968,   1.56795,    .11531,    .03278,
     +     .01242,    .09475,    .15126,
     +     .48101,    .24878,   1.52310,    .11509,    .03464,
     +     .01493,    .09517,    .15060,
     +     .48160,    .24788,   1.48373,    .11480,    .03613,
     +     .01699,    .09542,    .14989,
     +     .48193,    .24697,   1.44802,    .11444,    .03738,
     +     .01874,    .09555,    .14915,
     +     .48203,    .24569,   1.40271,    .11386,    .03876,
     +     .02072,    .09553,    .14805,
     +     .48186,    .24441,   1.36092,    .11321,    .03991,
     +     .02242,    .09540,    .14691,
     +     .48153,    .24314,   1.32265,    .11255,    .04089,
     +     .02389,    .09520,    .14578 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48089,    .24177,   1.28460,    .11178,    .04171,
     +     .02518,    .09487,    .14452,
     +     .48014,    .24038,   1.24834,    .11096,    .04242,
     +     .02634,    .09450,    .14325,
     +     .47928,    .23901,   1.21478,    .11015,    .04302,
     +     .02734,    .09406,    .14200,
     +     .47829,    .23765,   1.18359,    .10932,    .04348,
     +     .02818,    .09359,    .14075,
     +     .47723,    .23628,   1.15320,    .10848,    .04391,
     +     .02898,    .09309,    .13948,
     +     .47600,    .23486,   1.12362,    .10758,    .04423,
     +     .02965,    .09253,    .13816,
     +     .47481,    .23350,   1.09641,    .10672,    .04453,
     +     .03026,    .09199,    .13692,
     +     .47350,    .23217,   1.07093,    .10585,    .04473,
     +     .03076,    .09140,    .13569 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47217,    .23083,   1.04597,    .10499,    .04492,
     +     .03124,    .09081,    .13445,
     +     .47072,    .22946,   1.02175,    .10410,    .04504,
     +     .03164,    .09019,    .13319,
     +     .46931,    .22814,    .99917,    .10324,    .04513,
     +     .03200,    .08958,    .13198,
     +     .46790,    .22688,    .97826,    .10242,    .04520,
     +     .03230,    .08899,    .13083,
     +     .46640,    .22556,    .95736,    .10155,    .04522,
     +     .03256,    .08836,    .12963 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45679,    .25655,   1.59119,    .08197,    .00000,
     +     .00000,    .05462,    .12431,
     +     .46437,    .25873,   1.60834,    .08328,    .00000,
     +     .00000,    .05693,    .12569,
     +     .47406,    .26120,   1.64372,    .08508,   -.01226,
     +     .00000,    .06006,    .12736,
     +     .48005,    .26247,   1.64048,    .08628,   -.01027,
     +     .00000,    .06216,    .12836,
     +     .48557,    .26341,   1.62478,    .08745,   -.00625,
     +     .00000,    .06421,    .12927,
     +     .48976,    .26395,   1.60767,    .08834,   -.00316,
     +     .00000,    .06581,    .12985,
     +     .49337,    .26426,   1.58895,    .08907,   -.00035,
     +     .00000,    .06722,    .13027,
     +     .49680,    .26440,   1.56692,    .08976,    .00251,
     +     .00000,    .06857,    .13058 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49935,    .26438,   1.54552,    .09025,    .00475,
     +     .00000,    .06961,    .13071,
     +     .50152,    .26420,   1.52353,    .09065,    .00679,
     +     .00000,    .07051,    .13072,
     +     .50308,    .26400,   1.50574,    .09092,    .00838,
     +     .00000,    .07118,    .13069,
     +     .50583,    .26328,   1.46714,    .09134,    .01147,
     +     .00000,    .07240,    .13044,
     +     .50738,    .26239,   1.43597,    .09154,    .01384,
     +    -.00452,    .07324,    .13002,
     +     .50862,    .26116,   1.38742,    .09160,    .01625,
     +    -.00102,    .07398,    .12935,
     +     .50938,    .25966,   1.33731,    .09147,    .01849,
     +     .00193,    .07451,    .12847,
     +     .50960,    .25814,   1.29233,    .09119,    .02031,
     +     .00437,    .07482,    .12751 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50943,    .25648,   1.24765,    .09081,    .02194,
     +     .00659,    .07496,    .12641,
     +     .50898,    .25500,   1.21106,    .09040,    .02315,
     +     .00825,    .07500,    .12539,
     +     .50810,    .25306,   1.16747,    .08978,    .02444,
     +     .01005,    .07488,    .12406,
     +     .50707,    .25127,   1.12994,    .08916,    .02547,
     +     .01153,    .07469,    .12281,
     +     .50592,    .24958,   1.09641,    .08855,    .02632,
     +     .01277,    .07445,    .12160,
     +     .50415,    .24729,   1.05465,    .08767,    .02723,
     +     .01415,    .07404,    .12001,
     +     .50224,    .24509,   1.01672,    .08679,    .02798,
     +     .01533,    .07357,    .11844,
     +     .50025,    .24301,    .98245,    .08594,    .02860,
     +     .01634,    .07306,    .11692 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49802,    .24083,    .94890,    .08501,    .02910,
     +     .01720,    .07248,    .11535,
     +     .49569,    .23868,    .91726,    .08406,    .02952,
     +     .01798,    .07188,    .11380,
     +     .49335,    .23661,    .88829,    .08316,    .02987,
     +     .01864,    .07125,    .11231,
     +     .49100,    .23460,    .86167,    .08225,    .03012,
     +     .01918,    .07064,    .11087,
     +     .48860,    .23259,    .83587,    .08136,    .03034,
     +     .01969,    .07001,    .10943,
     +     .48605,    .23055,    .81106,    .08042,    .03050,
     +     .02012,    .06933,    .10800,
     +     .48361,    .22863,    .78836,    .07955,    .03063,
     +     .02049,    .06868,    .10665,
     +     .48115,    .22677,    .76730,    .07869,    .03071,
     +     .02079,    .06805,    .10533 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47866,    .22490,    .74679,    .07782,    .03077,
     +     .02108,    .06741,    .10402,
     +     .47611,    .22303,    .72702,    .07696,    .03079,
     +     .02132,    .06675,    .10272,
     +     .47363,    .22125,    .70870,    .07613,    .03079,
     +     .02152,    .06610,    .10148,
     +     .47125,    .21956,    .69181,    .07535,    .03077,
     +     .02169,    .06549,    .10031,
     +     .46874,    .21783,    .67505,    .07454,    .03073,
     +     .02183,    .06486,    .09910 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50727,    .27497,   1.42585,    .06698,    .00000,
     +     .00000,    .04671,    .11246,
     +     .51400,    .27614,   1.41655,    .06783,    .00000,
     +     .00000,    .04832,    .11274,
     +     .52218,    .27696,   1.41695,    .06889,   -.01136,
     +     .00000,    .05049,    .11285,
     +     .52683,    .27702,   1.39346,    .06955,   -.00960,
     +     .00000,    .05185,    .11275,
     +     .53077,    .27671,   1.36115,    .07018,   -.00639,
     +     .00000,    .05314,    .11254,
     +     .53351,    .27615,   1.33176,    .07059,   -.00393,
     +     .00000,    .05411,    .11223,
     +     .53562,    .27543,   1.30291,    .07089,   -.00172,
     +     .00000,    .05492,    .11179,
     +     .53739,    .27448,   1.27173,    .07114,    .00048,
     +     .00000,    .05566,    .11122 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53849,    .27347,   1.24378,    .07124,    .00220,
     +     .00000,    .05619,    .11065,
     +     .53922,    .27237,   1.21651,    .07129,    .00376,
     +     .00000,    .05662,    .11004,
     +     .53961,    .27145,   1.19508,    .07128,    .00495,
     +     .00000,    .05691,    .10951,
     +     .53982,    .26925,   1.15026,    .07116,    .00725,
     +     .00000,    .05739,    .10828,
     +     .53922,    .26705,   1.11578,    .07092,    .00899,
     +    -.00402,    .05765,    .10713,
     +     .53798,    .26446,   1.06696,    .07057,    .01075,
     +    -.00146,    .05778,    .10570,
     +     .53613,    .26160,   1.01798,    .07004,    .01234,
     +     .00068,    .05775,    .10408,
     +     .53403,    .25886,    .97505,    .06946,    .01360,
     +     .00241,    .05761,    .10254 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .53151,    .25600,    .93328,    .06880,    .01474,
     +     .00399,    .05735,    .10092,
     +     .52915,    .25354,    .89974,    .06818,    .01555,
     +     .00515,    .05704,    .09954,
     +     .52595,    .25049,    .86044,    .06737,    .01641,
     +     .00640,    .05660,    .09781,
     +     .52290,    .24774,    .82709,    .06662,    .01708,
     +     .00741,    .05615,    .09625,
     +     .51994,    .24518,    .79767,    .06589,    .01763,
     +     .00826,    .05570,    .09481,
     +     .51587,    .24189,    .76161,    .06492,    .01820,
     +     .00918,    .05504,    .09294,
     +     .51184,    .23876,    .72929,    .06397,    .01866,
     +     .00996,    .05439,    .09118,
     +     .50795,    .23582,    .70041,    .06305,    .01902,
     +     .01061,    .05375,    .08952 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50382,    .23283,    .67250,    .06211,    .01930,
     +     .01116,    .05306,    .08784,
     +     .49969,    .22989,    .64644,    .06117,    .01953,
     +     .01166,    .05237,    .08623,
     +     .49572,    .22712,    .62278,    .06028,    .01971,
     +     .01207,    .05170,    .08470,
     +     .49181,    .22448,    .60126,    .05942,    .01982,
     +     .01240,    .05104,    .08323,
     +     .48787,    .22185,    .58055,    .05857,    .01992,
     +     .01270,    .05038,    .08179,
     +     .48384,    .21925,    .56081,    .05773,    .01998,
     +     .01295,    .04969,    .08037,
     +     .48003,    .21680,    .54285,    .05692,    .02001,
     +     .01318,    .04905,    .07903,
     +     .47632,    .21445,    .52633,    .05614,    .02002,
     +     .01335,    .04844,    .07778 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47261,    .21210,    .51033,    .05536,    .02001,
     +     .01350,    .04782,    .07653,
     +     .46886,    .20978,    .49502,    .05458,    .01997,
     +     .01362,    .04720,    .07530,
     +     .46526,    .20757,    .48091,    .05385,    .01993,
     +     .01373,    .04660,    .07415,
     +     .46182,    .20549,    .46796,    .05316,    .01988,
     +     .01381,    .04604,    .07307,
     +     .45828,    .20339,    .45521,    .05246,    .01981,
     +     .01388,    .04546,    .07195 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .54947,    .28715,   1.25561,    .05491,    .00000,
     +     .00000,    .03992,    .10043,
     +     .55480,    .28698,   1.23146,    .05544,    .00000,
     +     .00000,    .04106,    .09981,
     +     .56048,    .28597,   1.21177,    .05605,   -.01019,
     +     .00000,    .04243,    .09874,
     +     .56315,    .28470,   1.17816,    .05638,   -.00865,
     +     .00000,    .04329,    .09785,
     +     .56504,    .28300,   1.13831,    .05664,   -.00605,
     +     .00000,    .04408,    .09685,
     +     .56591,    .28127,   1.10385,    .05675,   -.00408,
     +     .00000,    .04462,    .09590,
     +     .56622,    .27947,   1.07112,    .05680,   -.00232,
     +     .00000,    .04503,    .09492,
     +     .56601,    .27739,   1.03678,    .05677,   -.00059,
     +     .00000,    .04538,    .09384 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56541,    .27543,   1.00698,    .05665,    .00076,
     +     .00000,    .04558,    .09285,
     +     .56447,    .27344,    .97857,    .05651,    .00197,
     +     .00000,    .04571,    .09184,
     +     .56354,    .27184,    .95656,    .05638,    .00288,
     +     .00000,    .04579,    .09100,
     +     .56096,    .26818,    .91135,    .05599,    .00463,
     +     .00000,    .04582,    .08924,
     +     .55798,    .26489,    .87725,    .05557,    .00595,
     +    -.00347,    .04574,    .08765,
     +     .55415,    .26104,    .83155,    .05500,    .00725,
     +    -.00156,    .04552,    .08584,
     +     .54963,    .25694,    .78645,    .05431,    .00842,
     +     .00003,    .04520,    .08389,
     +     .54514,    .25316,    .74756,    .05362,    .00933,
     +     .00131,    .04481,    .08211 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .54033,    .24927,    .71026,    .05286,    .01013,
     +     .00245,    .04433,    .08031,
     +     .53606,    .24603,    .68069,    .05219,    .01070,
     +     .00328,    .04389,    .07880,
     +     .53061,    .24205,    .64641,    .05136,    .01130,
     +     .00418,    .04330,    .07694,
     +     .52564,    .23853,    .61765,    .05058,    .01176,
     +     .00489,    .04276,    .07531,
     +     .52094,    .23531,    .59254,    .04986,    .01211,
     +     .00548,    .04222,    .07382,
     +     .51476,    .23116,    .56210,    .04890,    .01249,
     +     .00612,    .04151,    .07194,
     +     .50884,    .22729,    .53504,    .04799,    .01277,
     +     .00665,    .04081,    .07020,
     +     .50322,    .22369,    .51106,    .04711,    .01300,
     +     .00710,    .04016,    .06859 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49743,    .22008,    .48814,    .04623,    .01316,
     +     .00746,    .03946,    .06698,
     +     .49171,    .21658,    .46688,    .04538,    .01329,
     +     .00778,    .03879,    .06542,
     +     .48625,    .21329,    .44773,    .04458,    .01338,
     +     .00806,    .03813,    .06398,
     +     .48102,    .21020,    .43046,    .04382,    .01343,
     +     .00827,    .03751,    .06263,
     +     .47578,    .20714,    .41394,    .04307,    .01346,
     +     .00846,    .03688,    .06130,
     +     .47054,    .20412,    .39832,    .04230,    .01346,
     +     .00860,    .03626,    .06001,
     +     .46562,    .20129,    .38415,    .04158,    .01347,
     +     .00874,    .03569,    .05881,
     +     .46086,    .19861,    .37121,    .04091,    .01344,
     +     .00884,    .03513,    .05768 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45612,    .19593,    .35872,    .04023,    .01341,
     +     .00893,    .03457,    .05657,
     +     .45138,    .19332,    .34684,    .03957,    .01335,
     +     .00899,    .03402,    .05548,
     +     .44688,    .19086,    .33595,    .03895,    .01330,
     +     .00905,    .03350,    .05445,
     +     .44262,    .18855,    .32598,    .03837,    .01324,
     +     .00908,    .03301,    .05350,
     +     .43825,    .18621,    .31622,    .03779,    .01316,
     +     .00911,    .03250,    .05253 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .58396,    .29401,   1.09519,    .04531,    .00000,
     +     .00000,    .03395,    .08802,
     +     .58715,    .29251,   1.06312,    .04565,    .00000,
     +     .00000,    .03463,    .08679,
     +     .58962,    .28956,   1.03210,    .04596,   -.00901,
     +     .00000,    .03550,    .08489,
     +     .58992,    .28697,    .99396,    .04611,   -.00767,
     +     .00000,    .03596,    .08346,
     +     .58928,    .28395,    .95154,    .04616,   -.00554,
     +     .00000,    .03636,    .08197,
     +     .58801,    .28111,    .91573,    .04612,   -.00394,
     +     .00000,    .03660,    .08065,
     +     .58626,    .27826,    .88229,    .04602,   -.00251,
     +     .00000,    .03675,    .07936,
     +     .58390,    .27514,    .84784,    .04585,   -.00114,
     +     .00000,    .03683,    .07797 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .58140,    .27233,    .81851,    .04566,   -.00007,
     +     .00000,    .03683,    .07670,
     +     .57870,    .26952,    .79091,    .04541,    .00089,
     +     .00000,    .03677,    .07550,
     +     .57644,    .26724,    .76971,    .04517,    .00161,
     +     .00000,    .03669,    .07458,
     +     .57096,    .26235,    .72669,    .04465,    .00296,
     +     .00000,    .03648,    .07255,
     +     .56561,    .25802,    .69476,    .04412,    .00397,
     +    -.00296,    .03621,    .07081,
     +     .55919,    .25313,    .65337,    .04348,    .00495,
     +    -.00151,    .03582,    .06888,
     +     .55210,    .24800,    .61306,    .04274,    .00583,
     +    -.00030,    .03533,    .06686,
     +     .54538,    .24333,    .57873,    .04201,    .00650,
     +     .00065,    .03483,    .06503 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53835,    .23864,    .54616,    .04125,    .00708,
     +     .00150,    .03430,    .06321,
     +     .53232,    .23475,    .52055,    .04060,    .00750,
     +     .00212,    .03381,    .06172,
     +     .52485,    .23003,    .49121,    .03979,    .00792,
     +     .00277,    .03318,    .05993,
     +     .51816,    .22589,    .46679,    .03904,    .00823,
     +     .00329,    .03262,    .05837,
     +     .51195,    .22212,    .44564,    .03835,    .00848,
     +     .00371,    .03210,    .05696,
     +     .50391,    .21738,    .42020,    .03747,    .00873,
     +     .00416,    .03140,    .05522,
     +     .49630,    .21299,    .39781,    .03664,    .00892,
     +     .00454,    .03072,    .05361,
     +     .48919,    .20893,    .37811,    .03588,    .00906,
     +     .00484,    .03010,    .05211 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48196,    .20488,    .35943,    .03509,    .00914,
     +     .00509,    .02946,    .05066,
     +     .47491,    .20098,    .34222,    .03433,    .00922,
     +     .00531,    .02883,    .04929,
     +     .46824,    .19734,    .32683,    .03361,    .00926,
     +     .00549,    .02824,    .04803,
     +     .46194,    .19394,    .31300,    .03293,    .00928,
     +     .00563,    .02770,    .04684,
     +     .45569,    .19059,    .29984,    .03227,    .00928,
     +     .00575,    .02715,    .04567,
     +     .44947,    .18732,    .28750,    .03161,    .00927,
     +     .00585,    .02660,    .04455,
     +     .44364,    .18428,    .27635,    .03099,    .00924,
     +     .00592,    .02610,    .04352,
     +     .43809,    .18140,    .26622,    .03041,    .00921,
     +     .00599,    .02561,    .04255 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43258,    .17854,    .25646,    .02984,    .00917,
     +     .00603,    .02514,    .04160,
     +     .42710,    .17574,    .24724,    .02929,    .00912,
     +     .00607,    .02467,    .04068,
     +     .42191,    .17312,    .23882,    .02876,    .00906,
     +     .00609,    .02423,    .03982,
     +     .41704,    .17066,    .23115,    .02827,    .00901,
     +     .00611,    .02382,    .03902,
     +     .41210,    .16819,    .22367,    .02777,    .00894,
     +     .00612,    .02340,    .03823 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .61093,    .29640,    .94968,    .03764,    .00000,
     +     .00000,    .02848,    .07554,
     +     .61159,    .29352,    .91355,    .03782,    .00000,
     +     .00000,    .02896,    .07396,
     +     .61036,    .28856,    .87649,    .03797,   -.00792,
     +     .00000,    .02942,    .07158,
     +     .60803,    .28464,    .83697,    .03796,   -.00674,
     +     .00000,    .02964,    .06990,
     +     .60466,    .28035,    .79455,    .03790,   -.00498,
     +     .00000,    .02980,    .06818,
     +     .60106,    .27648,    .75933,    .03776,   -.00366,
     +     .00000,    .02984,    .06670,
     +     .59715,    .27269,    .72686,    .03754,   -.00251,
     +     .00000,    .02984,    .06530,
     +     .59259,    .26859,    .69385,    .03726,   -.00139,
     +     .00000,    .02975,    .06380 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58824,    .26496,    .66608,    .03699,   -.00053,
     +     .00000,    .02964,    .06250,
     +     .58375,    .26144,    .64022,    .03671,    .00023,
     +     .00000,    .02949,    .06122,
     +     .58005,    .25864,    .62051,    .03647,    .00080,
     +     .00000,    .02934,    .06024,
     +     .57180,    .25264,    .58081,    .03587,    .00186,
     +     .00000,    .02899,    .05819,
     +     .56412,    .24749,    .55168,    .03533,    .00264,
     +    -.00249,    .02864,    .05644,
     +     .55527,    .24172,    .51495,    .03464,    .00340,
     +    -.00137,    .02818,    .05456,
     +     .54577,    .23577,    .47957,    .03388,    .00406,
     +    -.00045,    .02764,    .05262,
     +     .53697,    .23039,    .44974,    .03318,    .00456,
     +     .00027,    .02712,    .05091 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52796,    .22504,    .42166,    .03245,    .00499,
     +     .00091,    .02657,    .04923,
     +     .52039,    .22066,    .39981,    .03185,    .00529,
     +     .00136,    .02610,    .04784,
     +     .51113,    .21541,    .37499,    .03108,    .00559,
     +     .00185,    .02549,    .04621,
     +     .50292,    .21083,    .35451,    .03038,    .00582,
     +     .00223,    .02495,    .04480,
     +     .49540,    .20671,    .33686,    .02977,    .00599,
     +     .00253,    .02446,    .04353,
     +     .48579,    .20154,    .31583,    .02896,    .00616,
     +     .00286,    .02380,    .04200,
     +     .47682,    .19676,    .29744,    .02821,    .00627,
     +     .00312,    .02320,    .04059,
     +     .46851,    .19238,    .28138,    .02750,    .00637,
     +     .00334,    .02264,    .03932 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46013,    .18808,    .26623,    .02681,    .00642,
     +     .00351,    .02207,    .03806,
     +     .45203,    .18396,    .25238,    .02615,    .00645,
     +     .00366,    .02153,    .03688,
     +     .44443,    .18011,    .24006,    .02554,    .00648,
     +     .00378,    .02102,    .03580,
     +     .43728,    .17654,    .22911,    .02495,    .00647,
     +     .00387,    .02054,    .03479,
     +     .43022,    .17303,    .21870,    .02438,    .00646,
     +     .00395,    .02007,    .03382,
     +     .42326,    .16963,    .20896,    .02383,    .00643,
     +     .00401,    .01961,    .03287,
     +     .41676,    .16648,    .20019,    .02332,    .00641,
     +     .00406,    .01920,    .03199,
     +     .41062,    .16352,    .19230,    .02281,    .00638,
     +     .00410,    .01880,    .03120 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40453,    .16059,    .18475,    .02232,    .00633,
     +     .00412,    .01839,    .03043,
     +     .39853,    .15773,    .17763,    .02186,    .00629,
     +     .00415,    .01800,    .02967,
     +     .39287,    .15506,    .17114,    .02142,    .00624,
     +     .00416,    .01763,    .02897,
     +     .38757,    .15257,    .16523,    .02103,    .00619,
     +     .00416,    .01730,    .02831,
     +     .38220,    .15008,    .15951,    .02062,    .00614,
     +     .00416,    .01696,    .02765 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .63072,    .29480,    .81924,    .03148,    .00000,
     +     .00000,    .02363,    .06346,
     +     .62853,    .29051,    .78155,    .03157,    .00000,
     +     .00000,    .02394,    .06169,
     +     .62323,    .28372,    .74160,    .03155,   -.00692,
     +     .00000,    .02417,    .05921,
     +     .61808,    .27857,    .70246,    .03145,   -.00589,
     +     .00000,    .02425,    .05745,
     +     .61193,    .27307,    .66155,    .03122,   -.00442,
     +     .00000,    .02430,    .05571,
     +     .60598,    .26827,    .62798,    .03104,   -.00333,
     +     .00000,    .02424,    .05418,
     +     .59988,    .26365,    .59744,    .03081,   -.00238,
     +     .00000,    .02413,    .05274,
     +     .59306,    .25874,    .56662,    .03052,   -.00147,
     +     .00000,    .02397,    .05124 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58687,    .25444,    .54098,    .03017,   -.00078,
     +     .00000,    .02381,    .04998,
     +     .58066,    .25030,    .51732,    .02982,   -.00017,
     +     .00000,    .02359,    .04881,
     +     .57565,    .24703,    .49943,    .02956,    .00028,
     +     .00000,    .02339,    .04789,
     +     .56471,    .24014,    .46365,    .02893,    .00112,
     +     .00000,    .02300,    .04596,
     +     .55498,    .23426,    .43758,    .02836,    .00174,
     +    -.00208,    .02259,    .04439,
     +     .54388,    .22781,    .40544,    .02771,    .00232,
     +    -.00122,    .02212,    .04264,
     +     .53224,    .22122,    .37477,    .02698,    .00282,
     +    -.00051,    .02158,    .04090,
     +     .52162,    .21536,    .34917,    .02630,    .00321,
     +     .00004,    .02107,    .03935 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51089,    .20958,    .32534,    .02564,    .00352,
     +     .00052,    .02055,    .03782,
     +     .50199,    .20484,    .30693,    .02505,    .00375,
     +     .00088,    .02009,    .03664,
     +     .49121,    .19920,    .28613,    .02436,    .00397,
     +     .00123,    .01955,    .03523,
     +     .48176,    .19436,    .26913,    .02374,    .00413,
     +     .00151,    .01906,    .03402,
     +     .47319,    .19001,    .25458,    .02316,    .00424,
     +     .00173,    .01860,    .03294,
     +     .46232,    .18460,    .23734,    .02246,    .00436,
     +     .00197,    .01804,    .03160,
     +     .45225,    .17964,    .22237,    .02181,    .00444,
     +     .00216,    .01751,    .03040,
     +     .44298,    .17510,    .20938,    .02119,    .00450,
     +     .00232,    .01703,    .02933 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43373,    .17066,    .19730,    .02057,    .00453,
     +     .00243,    .01654,    .02828,
     +     .42483,    .16643,    .18625,    .02000,    .00455,
     +     .00254,    .01607,    .02732,
     +     .41652,    .16252,    .17645,    .01949,    .00455,
     +     .00262,    .01565,    .02642,
     +     .40877,    .15891,    .16779,    .01899,    .00454,
     +     .00268,    .01525,    .02560,
     +     .40113,    .15539,    .15962,    .01851,    .00452,
     +     .00273,    .01485,    .02479,
     +     .39370,    .15194,    .15201,    .01803,    .00450,
     +     .00277,    .01448,    .02404,
     +     .38678,    .14875,    .14523,    .01758,    .00447,
     +     .00280,    .01412,    .02334,
     +     .38024,    .14579,    .13910,    .01718,    .00444,
     +     .00282,    .01379,    .02269 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37378,    .14289,    .13326,    .01678,    .00441,
     +     .00284,    .01347,    .02204,
     +     .36745,    .14006,    .12778,    .01639,    .00436,
     +     .00285,    .01315,    .02144,
     +     .36151,    .13742,    .12280,    .01603,    .00432,
     +     .00285,    .01285,    .02089,
     +     .35596,    .13496,    .11831,    .01569,    .00428,
     +     .00285,    .01257,    .02037,
     +     .35038,    .13250,    .11397,    .01535,    .00424,
     +     .00285,    .01231,    .01986 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64379,    .28945,    .70229,    .02624,    .00000,
     +     .00000,    .01952,    .05231,
     +     .63838,    .28400,    .66470,    .02630,    .00000,
     +     .00000,    .01966,    .05054,
     +     .62876,    .27557,    .62403,    .02623,   -.00601,
     +     .00000,    .01971,    .04806,
     +     .62069,    .26937,    .58648,    .02613,   -.00510,
     +     .00000,    .01970,    .04631,
     +     .61164,    .26293,    .54799,    .02593,   -.00388,
     +     .00000,    .01959,    .04465,
     +     .60338,    .25733,    .51683,    .02566,   -.00298,
     +     .00000,    .01947,    .04321,
     +     .59517,    .25201,    .48864,    .02539,   -.00219,
     +     .00000,    .01931,    .04187,
     +     .58621,    .24644,    .46048,    .02506,   -.00145,
     +     .00000,    .01911,    .04049 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57827,    .24157,    .43726,    .02475,   -.00089,
     +     .00000,    .01890,    .03934,
     +     .57047,    .23693,    .41601,    .02440,   -.00040,
     +     .00000,    .01867,    .03827,
     +     .56426,    .23333,    .40000,    .02410,   -.00003,
     +     .00000,    .01849,    .03744,
     +     .55084,    .22578,    .36835,    .02352,    .00064,
     +     .00000,    .01805,    .03567,
     +     .53922,    .21944,    .34537,    .02295,    .00112,
     +    -.00172,    .01766,    .03428,
     +     .52624,    .21248,    .31767,    .02232,    .00157,
     +    -.00105,    .01720,    .03275,
     +     .51276,    .20543,    .29146,    .02164,    .00196,
     +    -.00051,    .01670,    .03126,
     +     .50060,    .19923,    .26982,    .02100,    .00226,
     +    -.00008,    .01622,    .02995 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48845,    .19316,    .24981,    .02037,    .00250,
     +     .00029,    .01575,    .02866,
     +     .47845,    .18826,    .23447,    .01986,    .00266,
     +     .00055,    .01534,    .02763,
     +     .46649,    .18244,    .21732,    .01921,    .00281,
     +     .00081,    .01487,    .02642,
     +     .45607,    .17742,    .20336,    .01865,    .00293,
     +     .00102,    .01444,    .02542,
     +     .44666,    .17296,    .19144,    .01816,    .00301,
     +     .00118,    .01405,    .02455,
     +     .43485,    .16745,    .17752,    .01753,    .00310,
     +     .00136,    .01357,    .02345,
     +     .42397,    .16244,    .16552,    .01696,    .00315,
     +     .00150,    .01312,    .02245,
     +     .41401,    .15790,    .15512,    .01643,    .00319,
     +     .00161,    .01272,    .02157 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40418,    .15341,    .14552,    .01590,    .00321,
     +     .00170,    .01231,    .02075,
     +     .39477,    .14918,    .13681,    .01541,    .00321,
     +     .00177,    .01193,    .01996,
     +     .38604,    .14528,    .12915,    .01498,    .00321,
     +     .00182,    .01158,    .01922,
     +     .37791,    .14171,    .12240,    .01455,    .00320,
     +     .00187,    .01125,    .01855,
     +     .36995,    .13823,    .11604,    .01414,    .00318,
     +     .00190,    .01093,    .01791,
     +     .36220,    .13486,    .11018,    .01373,    .00315,
     +     .00192,    .01062,    .01733,
     +     .35503,    .13174,    .10494,    .01337,    .00313,
     +     .00195,    .01032,    .01679,
     +     .34829,    .12885,    .10027,    .01303,    .00310,
     +     .00195,    .01005,    .01629 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34165,    .12602,    .09580,    .01270,    .00307,
     +     .00196,    .00980,    .01579,
     +     .33518,    .12328,    .09163,    .01237,    .00304,
     +     .00197,    .00954,    .01533,
     +     .32913,    .12071,    .08788,    .01206,    .00301,
     +     .00197,    .00931,    .01489,
     +     .32348,    .11833,    .08448,    .01179,    .00297,
     +     .00196,    .00910,    .01448,
     +     .31782,    .11597,    .08121,    .01153,    .00294,
     +     .00196,    .00889,    .01408 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64887,    .28228,    .59755,    .02292,    .00000,
     +     .00000,    .01532,    .04155,
     +     .64053,    .27554,    .56094,    .02284,    .00000,
     +     .00000,    .01547,    .03996,
     +     .62680,    .26550,    .52093,    .02252,   -.00519,
     +     .00000,    .01554,    .03779,
     +     .61599,    .25835,    .48558,    .02229,   -.00439,
     +     .00000,    .01550,    .03628,
     +     .60444,    .25088,    .45008,    .02190,   -.00337,
     +     .00000,    .01540,    .03487,
     +     .59399,    .24463,    .42155,    .02162,   -.00261,
     +     .00000,    .01528,    .03362,
     +     .58387,    .23869,    .39602,    .02128,   -.00197,
     +     .00000,    .01513,    .03246,
     +     .57305,    .23251,    .37076,    .02089,   -.00136,
     +     .00000,    .01493,    .03128 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .56344,    .22731,    .35016,    .02058,   -.00090,
     +     .00000,    .01472,    .03024,
     +     .55422,    .22231,    .33139,    .02022,   -.00050,
     +     .00000,    .01451,    .02930,
     +     .54697,    .21838,    .31738,    .01991,   -.00021,
     +     .00000,    .01434,    .02861,
     +     .53147,    .21034,    .28980,    .01927,    .00032,
     +     .00000,    .01397,    .02713,
     +     .51828,    .20360,    .26993,    .01873,    .00071,
     +    -.00141,    .01360,    .02596,
     +     .50369,    .19635,    .24637,    .01810,    .00106,
     +    -.00088,    .01319,    .02471,
     +     .48864,    .18907,    .22435,    .01748,    .00136,
     +    -.00046,    .01275,    .02342,
     +     .47524,    .18268,    .20629,    .01691,    .00158,
     +    -.00014,    .01237,    .02232 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46203,    .17645,    .18977,    .01631,    .00176,
     +     .00014,    .01197,    .02128,
     +     .45124,    .17145,    .17718,    .01582,    .00188,
     +     .00034,    .01160,    .02047,
     +     .43837,    .16554,    .16319,    .01524,    .00200,
     +     .00054,    .01119,    .01951,
     +     .42726,    .16052,    .15190,    .01476,    .00208,
     +     .00069,    .01084,    .01869,
     +     .41726,    .15606,    .14239,    .01432,    .00214,
     +     .00082,    .01052,    .01795,
     +     .40486,    .15054,    .13128,    .01377,    .00220,
     +     .00095,    .01012,    .01708,
     +     .39348,    .14555,    .12181,    .01326,    .00223,
     +     .00104,    .00976,    .01630,
     +     .38310,    .14105,    .11367,    .01279,    .00225,
     +     .00112,    .00941,    .01562 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37288,    .13670,    .10615,    .01235,    .00227,
     +     .00118,    .00909,    .01497,
     +     .36318,    .13256,    .09939,    .01192,    .00227,
     +     .00123,    .00878,    .01435,
     +     .35425,    .12878,    .09347,    .01152,    .00226,
     +     .00127,    .00849,    .01379,
     +     .34596,    .12530,    .08828,    .01117,    .00225,
     +     .00130,    .00822,    .01329,
     +     .33786,    .12192,    .08344,    .01082,    .00224,
     +     .00133,    .00795,    .01281,
     +     .33001,    .11868,    .07898,    .01049,    .00221,
     +     .00134,    .00772,    .01233,
     +     .32275,    .11570,    .07500,    .01019,    .00219,
     +     .00135,    .00750,    .01191,
     +     .31596,    .11293,    .07148,    .00990,    .00217,
     +     .00136,    .00728,    .01153 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30931,    .11023,    .06815,    .00961,    .00214,
     +     .00136,    .00706,    .01115,
     +     .30282,    .10761,    .06503,    .00936,    .00212,
     +     .00136,    .00686,    .01080,
     +     .29678,    .10519,    .06221,    .00912,    .00209,
     +     .00136,    .00669,    .01045,
     +     .29117,    .10294,    .05968,    .00891,    .00206,
     +     .00136,    .00652,    .01015,
     +     .28559,    .10069,    .05726,    .00867,    .00204,
     +     .00135,    .00635,    .00985 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .64850,    .27148,    .50191,    .01924,    .00000,
     +     .00000,    .01232,    .03269,
     +     .63699,    .26377,    .46732,    .01917,    .00000,
     +     .00000,    .01240,    .03125,
     +     .61903,    .25258,    .42921,    .01886,   -.00443,
     +     .00000,    .01240,    .02935,
     +     .60564,    .24462,    .39682,    .01848,   -.00373,
     +     .00000,    .01231,    .02813,
     +     .59137,    .23665,    .36474,    .01821,   -.00288,
     +     .00000,    .01220,    .02680,
     +     .57895,    .22986,    .33922,    .01787,   -.00226,
     +     .00000,    .01207,    .02576,
     +     .56702,    .22354,    .31661,    .01754,   -.00173,
     +     .00000,    .01190,    .02479,
     +     .55442,    .21700,    .29444,    .01718,   -.00124,
     +     .00000,    .01168,    .02378 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54357,    .21138,    .27643,    .01678,   -.00086,
     +     .00000,    .01151,    .02298,
     +     .53310,    .20611,    .26023,    .01644,   -.00054,
     +     .00000,    .01130,    .02221,
     +     .52489,    .20206,    .24814,    .01617,   -.00031,
     +     .00000,    .01114,    .02161,
     +     .50764,    .19370,    .22474,    .01558,    .00011,
     +     .00000,    .01078,    .02037,
     +     .49305,    .18689,    .20784,    .01511,    .00041,
     +    -.00114,    .01047,    .01937,
     +     .47710,    .17948,    .18820,    .01454,    .00069,
     +    -.00074,    .01012,    .01833,
     +     .46094,    .17209,    .16997,    .01396,    .00092,
     +    -.00041,    .00974,    .01733,
     +     .44664,    .16568,    .15521,    .01343,    .00109,
     +    -.00016,    .00938,    .01645 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43259,    .15948,    .14181,    .01291,    .00122,
     +     .00004,    .00901,    .01562,
     +     .42124,    .15447,    .13170,    .01249,    .00132,
     +     .00020,    .00875,    .01494,
     +     .40779,    .14866,    .12058,    .01196,    .00140,
     +     .00034,    .00841,    .01417,
     +     .39621,    .14371,    .11165,    .01152,    .00147,
     +     .00046,    .00812,    .01353,
     +     .38586,    .13933,    .10415,    .01114,    .00150,
     +     .00055,    .00783,    .01302,
     +     .37305,    .13397,    .09547,    .01068,    .00154,
     +     .00064,    .00751,    .01232,
     +     .36141,    .12913,    .08811,    .01025,    .00157,
     +     .00071,    .00721,    .01172,
     +     .35086,    .12476,    .08181,    .00987,    .00158,
     +     .00077,    .00693,    .01121 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34056,    .12056,    .07608,    .00949,    .00159,
     +     .00082,    .00667,    .01067,
     +     .33078,    .11661,    .07095,    .00912,    .00159,
     +     .00085,    .00641,    .01020,
     +     .32180,    .11301,    .06648,    .00881,    .00158,
     +     .00088,    .00618,    .00977,
     +     .31351,    .10971,    .06258,    .00851,    .00157,
     +     .00090,    .00598,    .00937,
     +     .30545,    .10650,    .05893,    .00823,    .00156,
     +     .00092,    .00578,    .00900,
     +     .29766,    .10343,    .05563,    .00796,    .00154,
     +     .00093,    .00558,    .00865,
     +     .29049,    .10061,    .05269,    .00770,    .00152,
     +     .00093,    .00540,    .00834,
     +     .28381,    .09800,    .05010,    .00748,    .00150,
     +     .00093,    .00524,    .00804 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27727,    .09546,    .04762,    .00726,    .00149,
     +     .00094,    .00508,    .00776,
     +     .27094,    .09302,    .04534,    .00704,    .00147,
     +     .00094,    .00494,    .00750,
     +     .26504,    .09075,    .04329,    .00683,    .00145,
     +     .00094,    .00479,    .00727,
     +     .25958,    .08865,    .04145,    .00664,    .00143,
     +     .00094,    .00465,    .00705,
     +     .25413,    .08658,    .03969,    .00648,    .00140,
     +     .00092,    .00453,    .00683 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .64145,    .25905,    .41499,    .01647,    .00000,
     +     .00000,    .00959,    .02489,
     +     .62704,    .25049,    .38305,    .01626,    .00000,
     +     .00000,    .00965,    .02379,
     +     .60527,    .23827,    .34777,    .01585,   -.00375,
     +     .00000,    .00965,    .02223,
     +     .58936,    .22980,    .31865,    .01559,   -.00315,
     +     .00000,    .00957,    .02117,
     +     .57284,    .22131,    .29032,    .01523,   -.00244,
     +     .00000,    .00946,    .02011,
     +     .55875,    .21411,    .26799,    .01484,   -.00192,
     +     .00000,    .00935,    .01927,
     +     .54531,    .20747,    .24837,    .01449,   -.00149,
     +     .00000,    .00921,    .01848,
     +     .53118,    .20071,    .22927,    .01413,   -.00109,
     +     .00000,    .00903,    .01767 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51910,    .19497,    .21398,    .01379,   -.00079,
     +     .00000,    .00884,    .01702,
     +     .50762,    .18959,    .20029,    .01344,   -.00053,
     +     .00000,    .00867,    .01641,
     +     .49868,    .18546,    .19017,    .01317,   -.00035,
     +     .00000,    .00855,    .01592,
     +     .47999,    .17698,    .17060,    .01265,   -.00001,
     +     .00000,    .00824,    .01494,
     +     .46447,    .17005,    .15664,    .01217,    .00022,
     +    -.00092,    .00796,    .01416,
     +     .44763,    .16267,    .14062,    .01162,    .00044,
     +    -.00060,    .00763,    .01338,
     +     .43065,    .15534,    .12594,    .01107,    .00062,
     +    -.00035,    .00731,    .01260,
     +     .41579,    .14898,    .11411,    .01060,    .00074,
     +    -.00017,    .00703,    .01192 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40130,    .14284,    .10351,    .01012,    .00084,
     +    -.00001,    .00677,    .01124,
     +     .38955,    .13801,    .09558,    .00977,    .00091,
     +     .00011,    .00652,    .01074,
     +     .37577,    .13234,    .08688,    .00935,    .00098,
     +     .00022,    .00622,    .01017,
     +     .36398,    .12754,    .07998,    .00898,    .00102,
     +     .00030,    .00598,    .00969,
     +     .35350,    .12335,    .07423,    .00867,    .00105,
     +     .00037,    .00578,    .00924,
     +     .34065,    .11820,    .06763,    .00825,    .00108,
     +     .00044,    .00551,    .00871,
     +     .32899,    .11359,    .06208,    .00788,    .00110,
     +     .00049,    .00527,    .00826,
     +     .31844,    .10948,    .05739,    .00755,    .00111,
     +     .00053,    .00505,    .00784 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30824,    .10546,    .05309,    .00722,    .00111,
     +     .00056,    .00485,    .00749,
     +     .29857,    .10173,    .04929,    .00694,    .00110,
     +     .00059,    .00465,    .00714,
     +     .28968,    .09835,    .04602,    .00669,    .00110,
     +     .00060,    .00447,    .00680,
     +     .28156,    .09525,    .04318,    .00645,    .00109,
     +     .00062,    .00431,    .00651,
     +     .27368,    .09225,    .04053,    .00620,    .00108,
     +     .00063,    .00415,    .00624,
     +     .26607,    .08939,    .03813,    .00601,    .00107,
     +     .00064,    .00401,    .00599,
     +     .25910,    .08678,    .03602,    .00582,    .00106,
     +     .00064,    .00387,    .00575,
     +     .25264,    .08438,    .03416,    .00562,    .00104,
     +     .00065,    .00374,    .00554 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24635,    .08203,    .03241,    .00542,    .00103,
     +     .00065,    .00361,    .00533,
     +     .24025,    .07977,    .03080,    .00524,    .00101,
     +     .00064,    .00350,    .00514,
     +     .23459,    .07768,    .02934,    .00508,    .00099,
     +     .00064,    .00339,    .00498,
     +     .22934,    .07575,    .02807,    .00492,    .00098,
     +     .00064,    .00329,    .00482,
     +     .22414,    .07386,    .02683,    .00478,    .00096,
     +     .00063,    .00319,    .00466 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62876,    .24476,    .33557,    .01389,    .00000,
     +     .00000,    .00738,    .01855,
     +     .61160,    .23555,    .30687,    .01365,    .00000,
     +     .00000,    .00741,    .01771,
     +     .58621,    .22268,    .27519,    .01329,   -.00313,
     +     .00000,    .00742,    .01646,
     +     .56833,    .21373,    .24972,    .01289,   -.00261,
     +     .00000,    .00740,    .01562,
     +     .54987,    .20491,    .22531,    .01252,   -.00203,
     +     .00000,    .00728,    .01485,
     +     .53417,    .19759,    .20632,    .01216,   -.00161,
     +     .00000,    .00713,    .01420,
     +     .51945,    .19081,    .18978,    .01183,   -.00126,
     +     .00000,    .00700,    .01359,
     +     .50419,    .18389,    .17381,    .01147,   -.00094,
     +     .00000,    .00687,    .01295 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49120,    .17810,    .16110,    .01116,   -.00069,
     +     .00000,    .00674,    .01240,
     +     .47892,    .17270,    .14983,    .01085,   -.00049,
     +     .00000,    .00660,    .01192,
     +     .46941,    .16857,    .14158,    .01060,   -.00035,
     +     .00000,    .00647,    .01155,
     +     .44977,    .16007,    .12574,    .01006,   -.00008,
     +     .00000,    .00624,    .01080,
     +     .43357,    .15324,    .11451,    .00963,    .00010,
     +    -.00073,    .00598,    .01024,
     +     .41604,    .14602,    .10183,    .00920,    .00026,
     +    -.00049,    .00571,    .00961,
     +     .39860,    .13886,    .09028,    .00873,    .00040,
     +    -.00030,    .00547,    .00898,
     +     .38343,    .13272,    .08115,    .00830,    .00049,
     +    -.00016,    .00523,    .00845 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36868,    .12685,    .07298,    .00791,    .00058,
     +    -.00003,    .00497,    .00797,
     +     .35682,    .12218,    .06694,    .00761,    .00063,
     +     .00005,    .00479,    .00757,
     +     .34295,    .11678,    .06039,    .00725,    .00067,
     +     .00013,    .00456,    .00714,
     +     .33125,    .11223,    .05524,    .00692,    .00070,
     +     .00019,    .00437,    .00678,
     +     .32094,    .10820,    .05097,    .00662,    .00073,
     +     .00025,    .00423,    .00647,
     +     .30812,    .10336,    .04613,    .00632,    .00074,
     +     .00029,    .00400,    .00607,
     +     .29661,    .09902,    .04209,    .00603,    .00076,
     +     .00033,    .00381,    .00573,
     +     .28631,    .09515,    .03869,    .00576,    .00077,
     +     .00037,    .00365,    .00544 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27632,    .09143,    .03561,    .00550,    .00077,
     +     .00039,    .00349,    .00516,
     +     .26693,    .08795,    .03291,    .00525,    .00076,
     +     .00040,    .00334,    .00491,
     +     .25836,    .08479,    .03059,    .00503,    .00076,
     +     .00042,    .00320,    .00469,
     +     .25053,    .08194,    .02860,    .00484,    .00075,
     +     .00042,    .00307,    .00449,
     +     .24295,    .07920,    .02676,    .00464,    .00074,
     +     .00043,    .00295,    .00429,
     +     .23567,    .07658,    .02509,    .00447,    .00073,
     +     .00043,    .00283,    .00410,
     +     .22898,    .07419,    .02362,    .00431,    .00072,
     +     .00044,    .00273,    .00393,
     +     .22283,    .07198,    .02236,    .00417,    .00071,
     +     .00044,    .00264,    .00377 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21685,    .06984,    .02118,    .00403,    .00070,
     +     .00043,    .00254,    .00362,
     +     .21108,    .06779,    .02006,    .00389,    .00069,
     +     .00044,    .00246,    .00348,
     +     .20574,    .06590,    .01908,    .00376,    .00068,
     +     .00044,    .00237,    .00336,
     +     .20081,    .06416,    .01821,    .00364,    .00067,
     +     .00043,    .00230,    .00324,
     +     .19591,    .06245,    .01738,    .00352,    .00065,
     +     .00043,    .00223,    .00313 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61063,    .22901,    .26336,    .01146,    .00000,
     +     .00000,    .00570,    .01359,
     +     .59114,    .21930,    .23829,    .01118,    .00000,
     +     .00000,    .00578,    .01295,
     +     .56280,    .20591,    .21096,    .01073,   -.00257,
     +     .00000,    .00574,    .01203,
     +     .54292,    .19688,    .18936,    .01044,   -.00214,
     +     .00000,    .00571,    .01138,
     +     .52290,    .18792,    .16901,    .01006,   -.00166,
     +     .00000,    .00560,    .01076,
     +     .50601,    .18050,    .15336,    .00977,   -.00132,
     +     .00000,    .00548,    .01022,
     +     .49032,    .17371,    .13981,    .00944,   -.00104,
     +     .00000,    .00537,    .00979,
     +     .47419,    .16681,    .12690,    .00909,   -.00079,
     +     .00000,    .00523,    .00932 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .46051,    .16109,    .11674,    .00882,   -.00060,
     +     .00000,    .00512,    .00890,
     +     .44768,    .15575,    .10777,    .00857,   -.00044,
     +     .00000,    .00498,    .00853,
     +     .43777,    .15169,    .10121,    .00836,   -.00033,
     +     .00000,    .00486,    .00825,
     +     .41748,    .14345,    .08884,    .00787,   -.00012,
     +     .00000,    .00464,    .00770,
     +     .40088,    .13683,    .08017,    .00751,    .00002,
     +    -.00056,    .00449,    .00724,
     +     .38309,    .12983,    .07045,    .00712,    .00015,
     +    -.00038,    .00427,    .00679,
     +     .36547,    .12297,    .06175,    .00672,    .00025,
     +    -.00024,    .00405,    .00635,
     +     .35022,    .11712,    .05489,    .00639,    .00032,
     +    -.00014,    .00385,    .00597 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33551,    .11153,    .04891,    .00608,    .00038,
     +    -.00004,    .00366,    .00557,
     +     .32382,    .10713,    .04447,    .00581,    .00042,
     +     .00002,    .00354,    .00528,
     +     .31018,    .10202,    .03976,    .00549,    .00045,
     +     .00008,    .00335,    .00497,
     +     .29864,    .09774,    .03610,    .00522,    .00048,
     +     .00012,    .00317,    .00472,
     +     .28851,    .09402,    .03306,    .00498,    .00050,
     +     .00016,    .00303,    .00450,
     +     .27615,    .08950,    .02970,    .00469,    .00050,
     +     .00019,    .00288,    .00420,
     +     .26503,    .08547,    .02689,    .00445,    .00052,
     +     .00022,    .00275,    .00396,
     +     .25507,    .08189,    .02451,    .00425,    .00052,
     +     .00024,    .00262,    .00377 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24546,    .07850,    .02246,    .00405,    .00052,
     +     .00026,    .00249,    .00353,
     +     .23647,    .07533,    .02066,    .00388,    .00051,
     +     .00027,    .00238,    .00332,
     +     .22832,    .07245,    .01909,    .00370,    .00051,
     +     .00027,    .00227,    .00316,
     +     .22086,    .06984,    .01777,    .00355,    .00051,
     +     .00028,    .00217,    .00303,
     +     .21366,    .06733,    .01658,    .00340,    .00050,
     +     .00029,    .00208,    .00289,
     +     .20680,    .06495,    .01550,    .00327,    .00050,
     +     .00029,    .00200,    .00275,
     +     .20053,    .06279,    .01454,    .00314,    .00049,
     +     .00030,    .00192,    .00264,
     +     .19476,    .06081,    .01372,    .00303,    .00048,
     +     .00029,    .00186,    .00253 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18915,    .05889,    .01297,    .00292,    .00048,
     +     .00030,    .00178,    .00243,
     +     .18377,    .05706,    .01228,    .00280,    .00046,
     +     .00029,    .00172,    .00232,
     +     .17878,    .05538,    .01165,    .00270,    .00045,
     +     .00029,    .00165,    .00222,
     +     .17420,    .05383,    .01110,    .00261,    .00045,
     +     .00029,    .00160,    .00214,
     +     .16964,    .05229,    .01058,    .00254,    .00044,
     +     .00029,    .00155,    .00208 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58760,    .21262,    .19831,    .00959,    .00000,
     +     .00000,    .00420,    .00952,
     +     .56587,    .20272,    .17735,    .00930,    .00000,
     +     .00000,    .00425,    .00909,
     +     .53514,    .18909,    .15458,    .00883,   -.00208,
     +     .00000,    .00428,    .00845,
     +     .51385,    .17995,    .13705,    .00851,   -.00172,
     +     .00000,    .00419,    .00800,
     +     .49262,    .17094,    .12059,    .00817,   -.00134,
     +     .00000,    .00414,    .00760,
     +     .47488,    .16361,    .10814,    .00789,   -.00107,
     +     .00000,    .00409,    .00719,
     +     .45853,    .15690,    .09753,    .00757,   -.00084,
     +     .00000,    .00399,    .00686,
     +     .44184,    .15013,    .08747,    .00725,   -.00064,
     +     .00000,    .00386,    .00655 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42772,    .14454,    .07969,    .00705,   -.00050,
     +     .00000,    .00377,    .00622,
     +     .41461,    .13937,    .07292,    .00676,   -.00037,
     +     .00000,    .00368,    .00594,
     +     .40457,    .13542,    .06802,    .00654,   -.00029,
     +     .00000,    .00358,    .00575,
     +     .38390,    .12747,    .05885,    .00622,   -.00012,
     +     .00000,    .00343,    .00531,
     +     .36724,    .12117,    .05244,    .00587,   -.00002,
     +    -.00044,    .00325,    .00501,
     +     .34954,    .11450,    .04534,    .00553,    .00007,
     +    -.00030,    .00308,    .00469,
     +     .33209,    .10800,    .03909,    .00518,    .00015,
     +    -.00019,    .00293,    .00434,
     +     .31708,    .10248,    .03431,    .00485,    .00020,
     +    -.00012,    .00277,    .00408 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30270,    .09725,    .03008,    .00458,    .00025,
     +    -.00004,    .00263,    .00384,
     +     .29126,    .09314,    .02708,    .00435,    .00028,
     +     .00000,    .00250,    .00364,
     +     .27802,    .08840,    .02391,    .00413,    .00030,
     +     .00004,    .00236,    .00338,
     +     .26685,    .08446,    .02143,    .00394,    .00032,
     +     .00007,    .00226,    .00317,
     +     .25704,    .08102,    .01945,    .00376,    .00033,
     +     .00010,    .00215,    .00301,
     +     .24518,    .07688,    .01723,    .00354,    .00034,
     +     .00012,    .00205,    .00282,
     +     .23458,    .07320,    .01544,    .00335,    .00035,
     +     .00015,    .00194,    .00265,
     +     .22514,    .06993,    .01397,    .00317,    .00035,
     +     .00016,    .00184,    .00248 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21604,    .06685,    .01267,    .00301,    .00035,
     +     .00017,    .00174,    .00235,
     +     .20755,    .06398,    .01156,    .00288,    .00035,
     +     .00018,    .00166,    .00222,
     +     .19986,    .06139,    .01063,    .00275,    .00034,
     +     .00019,    .00158,    .00210,
     +     .19292,    .05903,    .00985,    .00262,    .00034,
     +     .00019,    .00152,    .00200,
     +     .18625,    .05678,    .00912,    .00250,    .00033,
     +     .00019,    .00147,    .00190,
     +     .17986,    .05467,    .00850,    .00238,    .00033,
     +     .00020,    .00139,    .00181,
     +     .17404,    .05277,    .00796,    .00227,    .00032,
     +     .00019,    .00133,    .00172,
     +     .16871,    .05099,    .00749,    .00218,    .00032,
     +     .00020,    .00128,    .00165 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16353,    .04927,    .00704,    .00209,    .00032,
     +     .00020,    .00123,    .00159,
     +     .15856,    .04765,    .00665,    .00202,    .00031,
     +     .00019,    .00117,    .00153,
     +     .15395,    .04614,    .00631,    .00195,    .00031,
     +     .00020,    .00113,    .00146,
     +     .14974,    .04477,    .00600,    .00188,    .00030,
     +     .00020,    .00109,    .00142,
     +     .14560,    .04343,    .00572,    .00182,    .00029,
     +     .00019,    .00105,    .00136 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .56010,    .19561,    .14031,    .00792,    .00000,
     +     .00000,    .00303,    .00651,
     +     .53685,    .18560,    .12350,    .00761,    .00000,
     +     .00000,    .00311,    .00622,
     +     .50422,    .17207,    .10569,    .00717,   -.00165,
     +     .00000,    .00309,    .00575,
     +     .48198,    .16300,    .09199,    .00688,   -.00136,
     +     .00000,    .00308,    .00542,
     +     .45992,    .15421,    .07952,    .00652,   -.00106,
     +     .00000,    .00301,    .00513,
     +     .44170,    .14702,    .07015,    .00625,   -.00085,
     +     .00000,    .00293,    .00491,
     +     .42491,    .14053,    .06225,    .00603,   -.00068,
     +     .00000,    .00286,    .00466,
     +     .40784,    .13401,    .05497,    .00578,   -.00052,
     +     .00000,    .00276,    .00438 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39367,    .12862,    .04932,    .00555,   -.00041,
     +     .00000,    .00268,    .00420,
     +     .38045,    .12369,    .04448,    .00533,   -.00031,
     +     .00000,    .00259,    .00403,
     +     .37034,    .11993,    .04103,    .00515,   -.00025,
     +     .00000,    .00252,    .00389,
     +     .34994,    .11233,    .03466,    .00476,   -.00012,
     +     .00000,    .00243,    .00359,
     +     .33346,    .10635,    .03030,    .00452,   -.00004,
     +    -.00033,    .00232,    .00337,
     +     .31597,    .10016,    .02549,    .00430,    .00003,
     +    -.00023,    .00219,    .00310,
     +     .29893,    .09410,    .02136,    .00401,    .00008,
     +    -.00015,    .00204,    .00289,
     +     .28437,    .08897,    .01822,    .00377,    .00013,
     +    -.00009,    .00193,    .00271 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27043,    .08412,    .01557,    .00356,    .00016,
     +    -.00005,    .00183,    .00251,
     +     .25946,    .08032,    .01373,    .00337,    .00018,
     +    -.00001,    .00174,    .00237,
     +     .24685,    .07601,    .01177,    .00315,    .00020,
     +     .00002,    .00164,    .00221,
     +     .23624,    .07240,    .01032,    .00297,    .00021,
     +     .00005,    .00155,    .00208,
     +     .22696,    .06924,    .00917,    .00284,    .00022,
     +     .00006,    .00147,    .00197,
     +     .21573,    .06549,    .00794,    .00266,    .00023,
     +     .00008,    .00138,    .00184,
     +     .20577,    .06219,    .00694,    .00251,    .00023,
     +     .00010,    .00131,    .00172,
     +     .19691,    .05926,    .00616,    .00237,    .00023,
     +     .00011,    .00123,    .00161 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18846,    .05647,    .00550,    .00222,    .00023,
     +     .00012,    .00117,    .00151,
     +     .18059,    .05390,    .00492,    .00211,    .00024,
     +     .00012,    .00111,    .00142,
     +     .17348,    .05155,    .00446,    .00199,    .00023,
     +     .00012,    .00107,    .00135,
     +     .16702,    .04949,    .00408,    .00191,    .00023,
     +     .00013,    .00101,    .00129,
     +     .16084,    .04751,    .00373,    .00183,    .00022,
     +     .00013,    .00097,    .00123,
     +     .15497,    .04564,    .00346,    .00175,    .00022,
     +     .00013,    .00091,    .00116,
     +     .14964,    .04394,    .00322,    .00167,    .00022,
     +     .00013,    .00087,    .00112,
     +     .14478,    .04238,    .00301,    .00160,    .00021,
     +     .00013,    .00085,    .00106 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14005,    .04087,    .00282,    .00153,    .00021,
     +     .00013,    .00081,    .00100,
     +     .13553,    .03944,    .00266,    .00148,    .00021,
     +     .00014,    .00078,    .00095,
     +     .13136,    .03814,    .00254,    .00142,    .00020,
     +     .00013,    .00075,    .00091,
     +     .12754,    .03695,    .00241,    .00138,    .00020,
     +     .00013,    .00071,    .00087,
     +     .12379,    .03579,    .00231,    .00132,    .00019,
     +     .00013,    .00069,    .00084 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .52912,    .17786,    .08960,    .00616,    .00000,
     +     .00000,    .00227,    .00442,
     +     .50456,    .16803,    .07706,    .00594,    .00000,
     +     .00000,    .00228,    .00420,
     +     .47056,    .15475,    .06413,    .00553,   -.00129,
     +     .00000,    .00226,    .00395,
     +     .44777,    .14597,    .05414,    .00529,   -.00105,
     +     .00000,    .00223,    .00371,
     +     .42525,    .13747,    .04521,    .00507,   -.00082,
     +     .00000,    .00220,    .00350,
     +     .40677,    .13063,    .03870,    .00484,   -.00066,
     +     .00000,    .00215,    .00332,
     +     .38995,    .12441,    .03337,    .00458,   -.00052,
     +     .00000,    .00209,    .00315,
     +     .37298,    .11818,    .02851,    .00434,   -.00041,
     +     .00000,    .00201,    .00301 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35880,    .11312,    .02486,    .00415,   -.00032,
     +     .00000,    .00194,    .00282,
     +     .34570,    .10843,    .02175,    .00401,   -.00025,
     +     .00000,    .00190,    .00269,
     +     .33574,    .10491,    .01956,    .00387,   -.00020,
     +     .00000,    .00184,    .00260,
     +     .31564,    .09785,    .01568,    .00359,   -.00010,
     +     .00000,    .00172,    .00243,
     +     .29964,    .09229,    .01311,    .00336,   -.00005,
     +    -.00024,    .00164,    .00225,
     +     .28283,    .08651,    .01022,    .00311,    .00000,
     +    -.00017,    .00155,    .00211,
     +     .26643,    .08093,    .00786,    .00290,    .00004,
     +    -.00012,    .00146,    .00195,
     +     .25249,    .07624,    .00614,    .00271,    .00007,
     +    -.00007,    .00138,    .00180 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23928,    .07184,    .00475,    .00251,    .00010,
     +    -.00003,    .00129,    .00168,
     +     .22885,    .06839,    .00381,    .00241,    .00011,
     +    -.00002,    .00123,    .00159,
     +     .21687,    .06448,    .00289,    .00225,    .00013,
     +     .00001,    .00115,    .00147,
     +     .20692,    .06124,    .00226,    .00211,    .00013,
     +     .00002,    .00109,    .00137,
     +     .19828,    .05843,    .00176,    .00197,    .00014,
     +     .00003,    .00103,    .00131,
     +     .18785,    .05505,    .00126,    .00185,    .00014,
     +     .00005,    .00097,    .00120,
     +     .17860,    .05209,    .00089,    .00173,    .00015,
     +     .00006,    .00092,    .00112,
     +     .17040,    .04950,    .00065,    .00163,    .00015,
     +     .00007,    .00086,    .00106 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16261,    .04703,    .00044,    .00155,    .00015,
     +     .00008,    .00081,    .00099,
     +     .15539,    .04477,    .00027,    .00145,    .00015,
     +     .00008,    .00076,    .00095,
     +     .14888,    .04275,    .00016,    .00138,    .00015,
     +     .00008,    .00073,    .00091,
     +     .14302,    .04093,    .00010,    .00131,    .00015,
     +     .00008,    .00070,    .00084,
     +     .13740,    .03920,    .00004,    .00124,    .00014,
     +     .00008,    .00066,    .00079,
     +     .13209,    .03756,    .00001,    .00118,    .00014,
     +     .00008,    .00063,    .00076,
     +     .12728,    .03608,   -.00002,    .00112,    .00014,
     +     .00009,    .00061,    .00073,
     +     .12286,    .03474,   -.00003,    .00109,    .00014,
     +     .00009,    .00057,    .00068 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11859,    .03345,   -.00001,    .00104,    .00013,
     +     .00008,    .00055,    .00065,
     +     .11454,    .03221,   -.00002,    .00100,    .00013,
     +     .00008,    .00053,    .00062,
     +     .11084,    .03107,   -.00001,    .00094,    .00013,
     +     .00008,    .00051,    .00061,
     +     .10744,    .03005,   -.00001,    .00089,    .00013,
     +     .00009,    .00049,    .00059,
     +     .10411,    .02906,    .00000,    .00086,    .00013,
     +     .00009,    .00047,    .00057 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .49497,    .16027,    .04643,    .00459,    .00000,
     +     .00000,    .00166,    .00295,
     +     .46952,    .15069,    .03786,    .00446,    .00000,
     +     .00000,    .00171,    .00283,
     +     .43487,    .13776,    .02968,    .00414,   -.00099,
     +     .00000,    .00172,    .00261,
     +     .41179,    .12931,    .02337,    .00388,   -.00080,
     +     .00000,    .00164,    .00249,
     +     .38929,    .12124,    .01776,    .00360,   -.00063,
     +     .00000,    .00165,    .00236,
     +     .37084,    .11472,    .01379,    .00348,   -.00051,
     +     .00000,    .00159,    .00226,
     +     .35414,    .10887,    .01066,    .00332,   -.00041,
     +     .00000,    .00156,    .00213,
     +     .33745,    .10305,    .00790,    .00313,   -.00031,
     +     .00000,    .00154,    .00199 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .32361,    .09831,    .00598,    .00295,   -.00025,
     +     .00000,    .00146,    .00192,
     +     .31093,    .09398,    .00434,    .00278,   -.00019,
     +     .00000,    .00141,    .00183,
     +     .30132,    .09069,    .00327,    .00266,   -.00016,
     +     .00000,    .00138,    .00176,
     +     .28183,    .08418,    .00143,    .00249,   -.00010,
     +     .00000,    .00131,    .00165,
     +     .26646,    .07910,    .00034,    .00230,   -.00005,
     +    -.00018,    .00122,    .00155,
     +     .25044,    .07382,   -.00095,    .00212,   -.00001,
     +    -.00012,    .00115,    .00143,
     +     .23489,    .06878,   -.00190,    .00198,    .00001,
     +    -.00009,    .00108,    .00131,
     +     .22170,    .06456,   -.00248,    .00186,    .00004,
     +    -.00005,    .00101,    .00122 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20926,    .06060,   -.00290,    .00173,    .00005,
     +    -.00004,    .00095,    .00115,
     +     .19958,    .05751,   -.00309,    .00163,    .00007,
     +    -.00001,    .00089,    .00108,
     +     .18854,    .05402,   -.00325,    .00150,    .00008,
     +     .00000,    .00085,    .00099,
     +     .17933,    .05114,   -.00329,    .00139,    .00009,
     +     .00001,    .00080,    .00094,
     +     .17132,    .04866,   -.00329,    .00131,    .00009,
     +     .00003,    .00075,    .00088,
     +     .16172,    .04572,   -.00324,    .00123,    .00009,
     +     .00003,    .00071,    .00081,
     +     .15326,    .04312,   -.00312,    .00115,    .00009,
     +     .00004,    .00066,    .00075,
     +     .14581,    .04086,   -.00303,    .00106,    .00010,
     +     .00005,    .00064,    .00071 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13871,    .03872,   -.00287,    .00101,    .00010,
     +     .00005,    .00058,    .00066,
     +     .13215,    .03676,   -.00273,    .00095,    .00009,
     +     .00005,    .00054,    .00063,
     +     .12630,    .03499,   -.00257,    .00089,    .00010,
     +     .00006,    .00052,    .00058,
     +     .12104,    .03342,   -.00244,    .00084,    .00010,
     +     .00005,    .00050,    .00056,
     +     .11602,    .03192,   -.00230,    .00079,    .00009,
     +     .00005,    .00047,    .00054,
     +     .11126,    .03052,   -.00216,    .00076,    .00009,
     +     .00005,    .00045,    .00050,
     +     .10698,    .02926,   -.00203,    .00073,    .00009,
     +     .00005,    .00042,    .00046,
     +     .10305,    .02812,   -.00189,    .00069,    .00009,
     +     .00006,    .00040,    .00045 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09927,    .02701,   -.00179,    .00067,    .00009,
     +     .00006,    .00039,    .00043,
     +     .09570,    .02596,   -.00169,    .00064,    .00009,
     +     .00006,    .00036,    .00042,
     +     .09243,    .02502,   -.00158,    .00060,    .00008,
     +     .00006,    .00035,    .00040,
     +     .08944,    .02414,   -.00147,    .00057,    .00008,
     +     .00005,    .00034,    .00038,
     +     .08650,    .02330,   -.00139,    .00055,    .00008,
     +     .00005,    .00033,    .00037 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .45845,    .14360,    .00990,    .00403,    .00000,
     +     .00000,    .00098,    .00158,
     +     .43304,    .13431,    .00523,    .00363,    .00000,
     +     .00000,    .00101,    .00163,
     +     .39822,    .12200,    .00141,    .00345,   -.00074,
     +     .00000,    .00104,    .00151,
     +     .37536,    .11406,   -.00193,    .00321,   -.00060,
     +     .00000,    .00104,    .00150,
     +     .35310,    .10646,   -.00450,    .00302,   -.00047,
     +     .00000,    .00103,    .00137,
     +     .33517,    .10031,   -.00608,    .00278,   -.00037,
     +     .00000,    .00100,    .00131,
     +     .31898,    .09486,   -.00726,    .00260,   -.00030,
     +     .00000,    .00096,    .00127,
     +     .30276,    .08951,   -.00819,    .00242,   -.00024,
     +     .00000,    .00091,    .00124 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .28938,    .08509,   -.00877,    .00236,   -.00019,
     +     .00000,    .00091,    .00115,
     +     .27715,    .08109,   -.00908,    .00223,   -.00015,
     +     .00000,    .00088,    .00108,
     +     .26793,    .07809,   -.00925,    .00213,   -.00012,
     +     .00000,    .00083,    .00107,
     +     .24941,    .07214,   -.00939,    .00197,   -.00008,
     +     .00000,    .00079,    .00098,
     +     .23493,    .06752,   -.00925,    .00183,   -.00004,
     +    -.00013,    .00076,    .00089,
     +     .21986,    .06276,   -.00923,    .00168,   -.00002,
     +    -.00009,    .00070,    .00081,
     +     .20533,    .05827,   -.00904,    .00154,    .00000,
     +    -.00007,    .00064,    .00074,
     +     .19314,    .05448,   -.00878,    .00142,    .00002,
     +    -.00004,    .00062,    .00070 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18167,    .05093,   -.00837,    .00130,    .00003,
     +    -.00003,    .00057,    .00066,
     +     .17270,    .04823,   -.00805,    .00123,    .00004,
     +    -.00001,    .00053,    .00061,
     +     .16251,    .04514,   -.00762,    .00114,    .00005,
     +     .00000,    .00052,    .00056,
     +     .15411,    .04261,   -.00722,    .00107,    .00005,
     +     .00001,    .00049,    .00054,
     +     .14684,    .04042,   -.00682,    .00098,    .00005,
     +     .00001,    .00045,    .00052,
     +     .13812,    .03785,   -.00636,    .00091,    .00006,
     +     .00002,    .00041,    .00048,
     +     .13047,    .03559,   -.00592,    .00085,    .00006,
     +     .00002,    .00039,    .00045,
     +     .12377,    .03362,   -.00552,    .00081,    .00006,
     +     .00003,    .00035,    .00042 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11745,    .03176,   -.00512,    .00075,    .00006,
     +     .00003,    .00033,    .00038,
     +     .11161,    .03006,   -.00475,    .00069,    .00006,
     +     .00003,    .00031,    .00035,
     +     .10636,    .02856,   -.00445,    .00066,    .00006,
     +     .00003,    .00030,    .00034,
     +     .10165,    .02723,   -.00414,    .00064,    .00006,
     +     .00004,    .00028,    .00031,
     +     .09718,    .02595,   -.00386,    .00061,    .00006,
     +     .00004,    .00026,    .00029,
     +     .09300,    .02475,   -.00361,    .00057,    .00006,
     +     .00004,    .00025,    .00028,
     +     .08922,    .02367,   -.00338,    .00054,    .00006,
     +     .00004,    .00024,    .00027,
     +     .08578,    .02270,   -.00317,    .00053,    .00006,
     +     .00004,    .00023,    .00025 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08246,    .02178,   -.00296,    .00052,    .00005,
     +     .00003,    .00023,    .00023,
     +     .07933,    .02089,   -.00277,    .00048,    .00005,
     +     .00003,    .00022,    .00022,
     +     .07648,    .02009,   -.00258,    .00046,    .00005,
     +     .00003,    .00019,    .00021,
     +     .07388,    .01936,   -.00245,    .00043,    .00005,
     +     .00003,    .00020,    .00021,
     +     .07134,    .01865,   -.00230,    .00041,    .00005,
     +     .00003,    .00018,    .00020 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .42010,    .12633,   -.01904,    .00272,    .00000,
     +     .00000,    .00076,    .00115,
     +     .39458,    .11768,   -.02028,    .00265,    .00000,
     +     .00000,    .00078,    .00102,
     +     .36042,    .10621,   -.02017,    .00234,   -.00054,
     +     .00000,    .00081,    .00098,
     +     .33806,    .09883,   -.02070,    .00218,   -.00043,
     +     .00000,    .00077,    .00096,
     +     .31656,    .09179,   -.02078,    .00204,   -.00034,
     +     .00000,    .00074,    .00089,
     +     .29927,    .08620,   -.02061,    .00189,   -.00027,
     +     .00000,    .00072,    .00088,
     +     .28368,    .08126,   -.02023,    .00178,   -.00022,
     +     .00000,    .00070,    .00083,
     +     .26814,    .07635,   -.01960,    .00170,   -.00017,
     +     .00000,    .00066,    .00077 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25554,    .07237,   -.01905,    .00160,   -.00014,
     +     .00000,    .00065,    .00075,
     +     .24397,    .06876,   -.01840,    .00153,   -.00012,
     +     .00000,    .00062,    .00070,
     +     .23523,    .06608,   -.01786,    .00150,   -.00009,
     +     .00000,    .00060,    .00065,
     +     .21801,    .06076,   -.01664,    .00132,   -.00006,
     +     .00000,    .00054,    .00062,
     +     .20448,    .05667,   -.01560,    .00123,   -.00004,
     +    -.00009,    .00052,    .00057,
     +     .19048,    .05248,   -.01464,    .00115,   -.00002,
     +    -.00006,    .00047,    .00053,
     +     .17714,    .04845,   -.01358,    .00103,   -.00001,
     +    -.00005,    .00041,    .00048,
     +     .16598,    .04512,   -.01266,    .00094,    .00000,
     +    -.00004,    .00041,    .00045 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15550,    .04207,   -.01178,    .00087,    .00001,
     +    -.00002,    .00039,    .00042,
     +     .14735,    .03970,   -.01103,    .00084,    .00002,
     +    -.00001,    .00036,    .00038,
     +     .13814,    .03703,   -.01018,    .00077,    .00003,
     +     .00000,    .00033,    .00035,
     +     .13056,    .03484,   -.00946,    .00072,    .00003,
     +     .00000,    .00030,    .00033,
     +     .12403,    .03296,   -.00886,    .00070,    .00003,
     +     .00000,    .00030,    .00032,
     +     .11626,    .03075,   -.00810,    .00064,    .00004,
     +     .00001,    .00027,    .00028,
     +     .10949,    .02882,   -.00743,    .00058,    .00003,
     +     .00001,    .00026,    .00026,
     +     .10357,    .02714,   -.00685,    .00052,    .00003,
     +     .00001,    .00024,    .00025 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09794,    .02557,   -.00629,    .00049,    .00004,
     +     .00002,    .00021,    .00023,
     +     .09280,    .02414,   -.00581,    .00047,    .00004,
     +     .00002,    .00020,    .00022,
     +     .08821,    .02286,   -.00538,    .00044,    .00004,
     +     .00002,    .00019,    .00020,
     +     .08412,    .02173,   -.00500,    .00041,    .00004,
     +     .00002,    .00017,    .00019,
     +     .08022,    .02068,   -.00465,    .00040,    .00003,
     +     .00002,    .00018,    .00018,
     +     .07659,    .01967,   -.00430,    .00038,    .00003,
     +     .00002,    .00017,    .00017,
     +     .07332,    .01877,   -.00401,    .00035,    .00003,
     +     .00002,    .00015,    .00015,
     +     .07034,    .01796,   -.00375,    .00033,    .00003,
     +     .00002,    .00014,    .00015 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06749,    .01720,   -.00350,    .00032,    .00003,
     +     .00002,    .00013,    .00014,
     +     .06479,    .01648,   -.00328,    .00031,    .00003,
     +     .00002,    .00013,    .00013,
     +     .06234,    .01582,   -.00309,    .00029,    .00003,
     +     .00002,    .00013,    .00012,
     +     .06010,    .01521,   -.00290,    .00028,    .00004,
     +     .00003,    .00012,    .00012,
     +     .05793,    .01462,   -.00271,    .00026,    .00003,
     +     .00003,    .00012,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .38063,    .10994,   -.04082,    .00175,    .00000,
     +     .00000,    .00057,    .00071,
     +     .35559,    .10187,   -.03916,    .00169,    .00000,
     +     .00000,    .00059,    .00070,
     +     .32244,    .09132,   -.03581,    .00152,   -.00039,
     +     .00000,    .00057,    .00071,
     +     .30091,    .08457,   -.03412,    .00146,   -.00031,
     +     .00000,    .00057,    .00062,
     +     .28037,    .07822,   -.03227,    .00139,   -.00024,
     +     .00000,    .00055,    .00058,
     +     .26394,    .07316,   -.03058,    .00128,   -.00019,
     +     .00000,    .00052,    .00057,
     +     .24926,    .06867,   -.02889,    .00117,   -.00016,
     +     .00000,    .00049,    .00055,
     +     .23476,    .06430,   -.02717,    .00110,   -.00012,
     +     .00000,    .00048,    .00051 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22292,    .06076,   -.02570,    .00105,   -.00010,
     +     .00000,    .00046,    .00047,
     +     .21217,    .05757,   -.02433,    .00098,   -.00008,
     +     .00000,    .00044,    .00045,
     +     .20411,    .05519,   -.02327,    .00094,   -.00007,
     +     .00000,    .00044,    .00042,
     +     .18815,    .05051,   -.02111,    .00083,   -.00004,
     +     .00000,    .00038,    .00042,
     +     .17577,    .04689,   -.01942,    .00078,   -.00003,
     +    -.00006,    .00035,    .00040,
     +     .16306,    .04321,   -.01775,    .00069,   -.00002,
     +    -.00005,    .00033,    .00036,
     +     .15090,    .03975,   -.01615,    .00064,    .00000,
     +    -.00003,    .00033,    .00032,
     +     .14078,    .03688,   -.01479,    .00059,    .00000,
     +    -.00002,    .00029,    .00030 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13139,    .03424,   -.01353,    .00054,    .00001,
     +    -.00001,    .00026,    .00028,
     +     .12413,    .03220,   -.01251,    .00052,    .00001,
     +    -.00001,    .00025,    .00024,
     +     .11595,    .02991,   -.01140,    .00046,    .00002,
     +     .00000,    .00022,    .00024,
     +     .10923,    .02805,   -.01049,    .00042,    .00002,
     +     .00000,    .00021,    .00023,
     +     .10344,    .02649,   -.00969,    .00039,    .00002,
     +     .00000,    .00018,    .00020,
     +     .09661,    .02461,   -.00879,    .00036,    .00002,
     +     .00001,    .00017,    .00019,
     +     .09065,    .02300,   -.00801,    .00034,    .00002,
     +     .00001,    .00016,    .00018,
     +     .08545,    .02159,   -.00734,    .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)/
     +     .08060,    .02027,   -.00673,    .00030,    .00002,
     +     .00001,    .00014,    .00017,
     +     .07615,    .01909,   -.00617,    .00027,    .00002,
     +     .00001,    .00014,    .00015,
     +     .07217,    .01804,   -.00568,    .00026,    .00002,
     +     .00001,    .00013,    .00013,
     +     .06864,    .01709,   -.00525,    .00025,    .00002,
     +     .00001,    .00013,    .00012,
     +     .06529,    .01621,   -.00487,    .00024,    .00002,
     +     .00001,    .00012,    .00012,
     +     .06217,    .01539,   -.00450,    .00023,    .00002,
     +     .00001,    .00012,    .00012,
     +     .05938,    .01465,   -.00418,    .00022,    .00003,
     +     .00002,    .00010,    .00010,
     +     .05685,    .01399,   -.00390,    .00021,    .00002,
     +     .00002,    .00010,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05442,    .01337,   -.00364,    .00019,    .00002,
     +     .00002,    .00010,    .00009,
     +     .05214,    .01278,   -.00339,    .00018,    .00002,
     +     .00002,    .00009,    .00009,
     +     .05008,    .01224,   -.00316,    .00017,    .00002,
     +     .00002,    .00008,    .00008,
     +     .04819,    .01175,   -.00297,    .00015,    .00002,
     +     .00002,    .00008,    .00008,
     +     .04635,    .01127,   -.00279,    .00016,    .00002,
     +     .00002,    .00008,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34115,    .09501,   -.05713,    .00146,    .00000,
     +     .00000,    .00027,    .00032,
     +     .31719,    .08757,   -.05302,    .00134,    .00000,
     +     .00000,    .00026,    .00034,
     +     .28538,    .07797,   -.04696,    .00128,   -.00027,
     +     .00000,    .00029,    .00032,
     +     .26519,    .07188,   -.04343,    .00109,   -.00022,
     +     .00000,    .00026,    .00030,
     +     .24577,    .06612,   -.04000,    .00103,   -.00016,
     +     .00000,    .00026,    .00033,
     +     .23043,    .06163,   -.03717,    .00094,   -.00014,
     +     .00000,    .00028,    .00029,
     +     .21679,    .05767,   -.03462,    .00090,   -.00011,
     +     .00000,    .00029,    .00026,
     +     .20336,    .05377,   -.03209,    .00084,   -.00008,
     +     .00000,    .00029,    .00025 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19245,    .05062,   -.02991,    .00077,   -.00007,
     +     .00000,    .00026,    .00024,
     +     .18257,    .04781,   -.02798,    .00074,   -.00006,
     +     .00000,    .00023,    .00024,
     +     .17520,    .04574,   -.02657,    .00072,   -.00005,
     +     .00000,    .00023,    .00024,
     +     .16071,    .04161,   -.02370,    .00063,   -.00003,
     +     .00000,    .00023,    .00020,
     +     .14953,    .03849,   -.02152,    .00055,   -.00003,
     +    -.00005,    .00021,    .00020,
     +     .13805,    .03532,   -.01943,    .00051,   -.00002,
     +    -.00003,    .00017,    .00020,
     +     .12719,    .03233,   -.01744,    .00047,   -.00001,
     +    -.00002,    .00017,    .00019,
     +     .11820,    .02989,   -.01579,    .00044,    .00000,
     +    -.00001,    .00014,    .00016 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10987,    .02765,   -.01428,    .00040,    .00000,
     +    -.00001,    .00013,    .00013,
     +     .10344,    .02592,   -.01316,    .00037,    .00000,
     +    -.00001,    .00013,    .00015,
     +     .09626,    .02398,   -.01188,    .00035,    .00000,
     +    -.00001,    .00013,    .00013,
     +     .09037,    .02242,   -.01085,    .00032,    .00001,
     +     .00000,    .00011,    .00012,
     +     .08532,    .02110,   -.00999,    .00032,    .00001,
     +     .00000,    .00012,    .00010,
     +     .07940,    .01954,   -.00897,    .00026,    .00001,
     +     .00000,    .00010,    .00009,
     +     .07424,    .01818,   -.00813,    .00025,    .00001,
     +     .00000,    .00009,    .00009,
     +     .06976,    .01703,   -.00741,    .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)/
     +     .06558,    .01593,   -.00676,    .00022,    .00001,
     +     .00000,    .00008,    .00008,
     +     .06176,    .01496,   -.00618,    .00021,    .00001,
     +     .00000,    .00007,    .00008,
     +     .05839,    .01410,   -.00567,    .00020,    .00002,
     +     .00001,    .00007,    .00007,
     +     .05539,    .01334,   -.00523,    .00018,    .00002,
     +     .00001,    .00007,    .00006,
     +     .05258,    .01260,   -.00480,    .00015,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04995,    .01194,   -.00446,    .00016,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04759,    .01134,   -.00412,    .00014,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04547,    .01081,   -.00384,    .00013,    .00001,
     +     .00001,    .00006,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04344,    .01030,   -.00355,    .00013,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04152,    .00983,   -.00330,    .00011,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03978,    .00940,   -.00309,    .00012,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03821,    .00900,   -.00289,    .00012,    .00001,
     +     .00001,    .00005,    .00003,
     +     .03669,    .00862,   -.00271,    .00010,    .00001,
     +     .00001,    .00003,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .30126,    .08031,   -.06697,    .00087,    .00000,
     +     .00000,    .00027,    .00027,
     +     .27867,    .07372,   -.06107,    .00078,    .00000,
     +     .00000,    .00028,    .00021,
     +     .24906,    .06515,   -.05309,    .00066,   -.00018,
     +     .00000,    .00024,    .00027,
     +     .23013,    .05977,   -.04843,    .00064,   -.00015,
     +     .00000,    .00024,    .00027,
     +     .21235,    .05475,   -.04384,    .00053,   -.00012,
     +     .00000,    .00024,    .00021,
     +     .19821,    .05079,   -.04027,    .00051,   -.00009,
     +     .00000,    .00022,    .00021,
     +     .18568,    .04734,   -.03712,    .00049,   -.00007,
     +     .00000,    .00022,    .00021,
     +     .17342,    .04398,   -.03399,    .00048,   -.00006,
     +     .00000,    .00022,    .00018 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16358,    .04129,   -.03145,    .00043,   -.00005,
     +     .00000,    .00019,    .00017,
     +     .15470,    .03888,   -.02920,    .00039,   -.00004,
     +     .00000,    .00018,    .00017,
     +     .14807,    .03709,   -.02752,    .00036,   -.00004,
     +     .00000,    .00017,    .00015,
     +     .13504,    .03357,   -.02426,    .00033,   -.00003,
     +     .00000,    .00014,    .00017,
     +     .12506,    .03092,   -.02184,    .00031,   -.00002,
     +    -.00003,    .00013,    .00014,
     +     .11493,    .02825,   -.01950,    .00028,   -.00001,
     +    -.00002,    .00013,    .00012,
     +     .10538,    .02575,   -.01736,    .00025,   -.00001,
     +    -.00001,    .00012,    .00012,
     +     .09751,    .02369,   -.01559,    .00024,   -.00001,
     +    -.00001,    .00011,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09024,    .02182,   -.01399,    .00021,    .00000,
     +     .00000,    .00011,    .00010,
     +     .08470,    .02038,   -.01280,    .00020,    .00000,
     +     .00000,    .00009,    .00010,
     +     .07849,    .01880,   -.01147,    .00017,    .00000,
     +     .00000,    .00008,    .00008,
     +     .07342,    .01751,   -.01042,    .00016,    .00000,
     +     .00000,    .00008,    .00007,
     +     .06912,    .01643,   -.00955,    .00016,    .00000,
     +     .00000,    .00007,    .00007,
     +     .06407,    .01515,   -.00855,    .00014,    .00000,
     +     .00000,    .00007,    .00007,
     +     .05969,    .01405,   -.00768,    .00012,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05588,    .01311,   -.00698,    .00012,    .00001,
     +     .00001,    .00006,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05238,    .01224,   -.00633,    .00011,    .00001,
     +     .00001,    .00005,    .00006,
     +     .04918,    .01145,   -.00575,    .00009,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04635,    .01077,   -.00527,    .00010,    .00001,
     +     .00001,    .00005,    .00003,
     +     .04386,    .01014,   -.00484,    .00008,    .00001,
     +     .00001,    .00005,    .00003,
     +     .04152,    .00957,   -.00445,    .00008,    .00001,
     +     .00001,    .00005,    .00003,
     +     .03933,    .00904,   -.00409,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03738,    .00857,   -.00379,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03561,    .00815,   -.00352,    .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)/
     +     .03394,    .00775,   -.00327,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03237,    .00737,   -.00304,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03095,    .00703,   -.00283,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02968,    .00672,   -.00264,    .00006,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02843,    .00643,   -.00247,    .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)/
     +     .22537,    .05519,   -.07243,    .00030,    .00000,
     +     .00000,    .00007,    .00008,
     +     .20606,    .05012,   -.06472,    .00033,    .00000,
     +     .00000,    .00006,    .00013,
     +     .18128,    .04368,   -.05476,    .00029,   -.00007,
     +     .00000,    .00010,    .00005,
     +     .16574,    .03966,   -.04881,    .00027,   -.00006,
     +     .00000,    .00009,    .00005,
     +     .15128,    .03592,   -.04339,    .00023,   -.00005,
     +     .00000,    .00011,    .00007,
     +     .13994,    .03307,   -.03920,    .00023,   -.00004,
     +     .00000,    .00009,    .00007,
     +     .13003,    .03058,   -.03553,    .00021,   -.00003,
     +     .00000,    .00008,    .00006,
     +     .12046,    .02814,   -.03200,    .00017,   -.00003,
     +     .00000,    .00005,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11277,    .02622,   -.02929,    .00016,   -.00002,
     +     .00000,    .00005,    .00006,
     +     .10590,    .02451,   -.02687,    .00014,   -.00002,
     +     .00000,    .00006,    .00004,
     +     .10081,    .02327,   -.02511,    .00014,   -.00002,
     +     .00000,    .00005,    .00005,
     +     .09091,    .02084,   -.02178,    .00014,   -.00001,
     +     .00000,    .00005,    .00005,
     +     .08345,    .01902,   -.01935,    .00010,   -.00001,
     +    -.00001,    .00005,    .00005,
     +     .07593,    .01721,   -.01701,    .00010,   -.00001,
     +    -.00001,    .00005,    .00003,
     +     .06893,    .01553,   -.01490,    .00009,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06320,    .01417,   -.01319,    .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)/
     +     .05798,    .01293,   -.01172,    .00008,   -.00001,
     +    -.00001,    .00004,    .00002,
     +     .05404,    .01200,   -.01062,    .00007,    .00000,
     +     .00000,    .00004,    .00003,
     +     .04966,    .01098,   -.00942,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04612,    .01014,   -.00847,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04313,    .00946,   -.00768,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03963,    .00866,   -.00682,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03666,    .00797,   -.00609,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03409,    .00739,   -.00548,    .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)/
     +     .03171,    .00684,   -.00493,    .00004,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02958,    .00636,   -.00445,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02773,    .00594,   -.00404,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02609,    .00557,   -.00369,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02454,    .00522,   -.00337,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02312,    .00491,   -.00308,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02185,    .00463,   -.00285,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02073,    .00438,   -.00263,    .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)/
     +     .01967,    .00414,   -.00243,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01867,    .00392,   -.00224,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01778,    .00373,   -.00208,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01697,    .00356,   -.00194,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01619,    .00338,   -.00182,    .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)/
     +     .15664,    .03502,   -.06396,    .00015,    .00000,
     +     .00000,    .00003,   -.00002,
     +     .14167,    .03144,   -.05623,    .00010,    .00000,
     +     .00000,    .00004,    .00001,
     +     .12257,    .02696,   -.04665,    .00012,   -.00003,
     +     .00000,    .00002,    .00002,
     +     .11084,    .02421,   -.04097,    .00008,   -.00002,
     +     .00000,    .00003,    .00005,
     +     .09999,    .02171,   -.03581,    .00008,   -.00002,
     +     .00000,    .00001,    .00003,
     +     .09164,    .01978,   -.03193,    .00008,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .08438,    .01812,   -.02864,    .00008,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .07740,    .01655,   -.02555,    .00008,   -.00001,
     +     .00000,    .00003,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .07190,    .01531,   -.02315,    .00006,   -.00001,
     +     .00000,    .00003,    .00001,
     +     .06703,    .01421,   -.02106,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06346,    .01340,   -.01953,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05652,    .01186,   -.01668,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05138,    .01073,   -.01468,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04625,    .00959,   -.01275,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04152,    .00856,   -.01100,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03770,    .00774,   -.00965,    .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)/
     +     .03428,    .00701,   -.00846,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03170,    .00646,   -.00760,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02886,    .00584,   -.00667,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02658,    .00538,   -.00596,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02468,    .00496,   -.00537,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02249,    .00450,   -.00471,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02063,    .00411,   -.00418,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01904,    .00378,   -.00373,    .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)/
     +     .01758,    .00348,   -.00333,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01628,    .00321,   -.00299,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01515,    .00298,   -.00270,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01416,    .00278,   -.00245,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01324,    .00259,   -.00222,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01241,    .00242,   -.00203,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01167,    .00227,   -.00185,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01100,    .00213,   -.00170,    .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)/
     +     .01038,    .00200,   -.00157,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00980,    .00189,   -.00145,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00929,    .00179,   -.00134,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00882,    .00169,   -.00124,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00838,    .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)/
     +     .09927,    .02001,   -.04826,    .00007,    .00000,
     +     .00000,   -.00001,    .00001,
     +     .08860,    .01775,   -.04180,    .00007,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .07533,    .01495,   -.03397,    .00002,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06723,    .01328,   -.02947,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05992,    .01176,   -.02545,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05432,    .01061,   -.02241,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04952,    .00962,   -.01989,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04498,    .00870,   -.01756,    .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)/
     +     .04141,    .00798,   -.01577,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03826,    .00733,   -.01421,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03597,    .00689,   -.01310,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03163,    .00602,   -.01106,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02842,    .00538,   -.00961,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02529,    .00475,   -.00824,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02242,    .00419,   -.00704,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02015,    .00375,   -.00611,    .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)/
     +     .01812,    .00336,   -.00530,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01661,    .00306,   -.00470,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01496,    .00275,   -.00409,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01366,    .00249,   -.00362,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01260,    .00230,   -.00324,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01136,    .00206,   -.00282,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01031,    .00187,   -.00247,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00943,    .00170,   -.00219,    .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)/
     +     .00863,    .00156,   -.00194,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00794,    .00142,   -.00173,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00734,    .00131,   -.00156,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00680,    .00121,   -.00140,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00632,    .00112,   -.00127,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00588,    .00104,   -.00114,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00549,    .00097,   -.00104,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00515,    .00091,   -.00095,    .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)/
     +     .00483,    .00084,   -.00086,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00454,    .00079,   -.00080,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00427,    .00075,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00404,    .00070,   -.00068,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00382,    .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)/
     +     .05502,    .00971,   -.03053,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04842,    .00852,   -.02614,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04032,    .00705,   -.02089,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03548,    .00617,   -.01786,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03116,    .00539,   -.01520,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02792,    .00483,   -.01329,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02515,    .00430,   -.01162,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02257,    .00386,   -.01017,    .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)/
     +     .02056,    .00352,   -.00906,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01882,    .00321,   -.00808,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01757,    .00300,   -.00741,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01520,    .00255,   -.00614,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01348,    .00226,   -.00528,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01182,    .00198,   -.00446,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01033,    .00172,   -.00375,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00916,    .00152,   -.00322,    .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)/
     +     .00814,    .00134,   -.00277,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00738,    .00122,   -.00244,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00657,    .00108,   -.00210,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00593,    .00096,   -.00184,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00541,    .00088,   -.00162,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00482,    .00078,   -.00140,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00070,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00392,    .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)/
     +     .00356,    .00056,   -.00093,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00323,    .00052,   -.00082,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00296,    .00047,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00272,    .00044,   -.00065,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00250,    .00040,   -.00058,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00231,    .00037,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00034,   -.00048,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00200,    .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)/
     +     .00187,    .00030,   -.00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00174,    .00027,   -.00036,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00163,    .00026,   -.00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00153,    .00023,   -.00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00143,    .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,    .00104,   -.00553,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00662,    .00086,   -.00454,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00518,    .00067,   -.00342,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00438,    .00057,   -.00282,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00367,    .00048,   -.00230,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00317,    .00039,   -.00193,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00277,    .00036,   -.00166,    .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,
     +     .00189,    .00023,   -.00105,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00172,    .00021,   -.00095,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00018,   -.00076,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00122,    .00015,   -.00063,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00102,    .00013,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00086,    .00011,   -.00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00074,    .00009,   -.00035,    .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,
     +     .00056,    .00007,   -.00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00005,   -.00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .00005,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00032,    .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)/
     +     .00022,    .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='cor08dis.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