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

sfmrs_99d9.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d9(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.15221,    .90723,    .00000,
     +     .00000,    .43298,    .91946,
     +     .00657,    .00291,   2.39079,    .94735,    .00000,
     +     .00000,    .47857,    .95967,
     +     .00676,    .00299,   4.81465,   1.03033,    .01960,
     +     .00000,    .56938,   1.04276,
     +     .00691,    .00306,   7.12570,   1.10789,    .06910,
     +     .00000,    .65247,   1.12039,
     +     .00707,    .00312,   9.93370,   1.20594,    .18281,
     +     .00000,    .75610,   1.21849,
     +     .00720,    .00318,  12.84175,   1.30576,    .29061,
     +     .00000,    .86063,   1.31835,
     +     .00733,    .00324,  16.11380,   1.41334,    .40858,
     +     .00000,    .97267,   1.42598,
     +     .00747,    .00331,  20.13676,   1.54108,    .55059,
     +     .00000,   1.10502,   1.55377 /
        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.66558,    .68269,
     +     .00000,   1.23344,   1.67828,
     +     .00772,    .00342,  28.28434,   1.79717,    .82268,
     +     .00000,   1.36878,   1.80992,
     +     .00781,    .00346,  31.98470,   1.90944,    .94450,
     +     .00000,   1.48394,   1.92218,
     +     .00802,    .00356,  40.80279,   2.17574,   1.22712,
     +     .00000,   1.75629,   2.18851,
     +     .00820,    .00365,  48.61885,   2.43269,   1.49733,
     +     .36278,   2.01831,   2.44548,
     +     .00841,    .00375,  58.85319,   2.75366,   1.83505,
     +     .75384,   2.34482,   2.76646,
     +     .00863,    .00385,  70.90311,   3.12605,   2.22586,
     +    1.16298,   2.72284,   3.13886,
     +     .00883,    .00395,  83.09480,   3.49936,   2.61679,
     +    1.57247,   3.10110,   3.51215 /
        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.91271,   3.04925,
     +    2.02361,   3.51934,   3.92550,
     +     .00921,    .00414, 108.90162,   4.28448,   3.43610,
     +    2.42247,   3.89509,   4.29727,
     +     .00942,    .00424, 124.88783,   4.77129,   3.94069,
     +    2.94066,   4.38664,   4.78407,
     +     .00962,    .00434, 140.20115,   5.23696,   4.42387,
     +    3.43919,   4.85640,   5.24972,
     +     .00980,    .00444, 155.23244,   5.69421,   4.89828,
     +    3.92900,   5.31732,   5.70695,
     +     .01003,    .00455, 175.45062,   6.31443,   5.53750,
     +    4.58244,   5.94211,   6.32714,
     +     .01024,    .00466, 195.85529,   6.94230,   6.18488,
     +    5.24606,   6.57418,   6.95498,
     +     .01044,    .00476, 216.29272,   7.57252,   6.83565,
     +    5.91550,   7.20825,   7.58516 /
        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.23860,   7.51859,
     +    6.61095,   7.87812,   8.25122,
     +     .01086,    .00497, 259.72108,   8.93159,   8.23034,
     +    7.33870,   8.57473,   8.94416,
     +     .01106,    .00507, 281.70818,   9.62513,   8.94219,
     +    8.06645,   9.27164,   9.63768,
     +     .01125,    .00518, 303.16472,  10.30926,   9.64206,
     +    8.77907,   9.95891,  10.32177,
     +     .01144,    .00527, 325.84003,  11.03400,  10.38514,
     +    9.53869,  10.68674,  11.04649,
     +     .01163,    .00537, 348.68738,  11.77433,  11.14064,
     +   10.30642,  11.43005,  11.78677,
     +     .01181,    .00547, 371.50490,  12.51470,  11.89834,
     +   11.08002,  12.17321,  12.52711,
     +     .01199,    .00556, 393.46053,  13.23703,  12.63442,
     +   11.82739,  12.89816,  13.24941 /
        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.55419,  13.99868,  13.41206,
     +   12.61949,  13.66240,  14.01102,
     +     .01234,    .00574, 439.83066,  14.77473,  14.20266,
     +   13.42280,  14.44098,  14.78703,
     +     .01251,    .00584, 462.70915,  15.54247,  14.98465,
     +   14.21752,  15.21109,  15.55474,
     +     .01268,    .00592, 485.09098,  16.29726,  15.75391,
     +   15.00025,  15.96812,  16.30949,
     +     .01284,    .00601, 507.96722,  17.07835,  16.54765,
     +   15.80501,  16.75142,  17.09055 /
        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,    .76935,    .00000,
     +     .00000,    .36781,    .77651,
     +     .00892,    .00403,   2.18022,    .80636,    .00000,
     +     .00000,    .40906,    .81356,
     +     .00919,    .00415,   4.31767,    .87959,    .01790,
     +     .00000,    .48838,    .88684,
     +     .00939,    .00424,   6.31648,    .94630,    .05987,
     +     .00000,    .55938,    .95359,
     +     .00961,    .00434,   8.70451,   1.02914,    .15588,
     +     .00000,    .64656,   1.03646,
     +     .00979,    .00442,  11.14190,   1.11234,    .24575,
     +     .00000,    .73342,   1.11968,
     +     .00997,    .00451,  13.85152,   1.20123,    .34311,
     +     .00000,    .82575,   1.20860,
     +     .01016,    .00460,  17.14388,   1.30591,    .45929,
     +     .00000,    .93399,   1.31329 /
        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.40702,    .56636,
     +     .00000,   1.03814,   1.41443,
     +     .01050,    .00476,  23.70281,   1.51320,    .67906,
     +     .00000,   1.14720,   1.52061,
     +     .01063,    .00483,  26.64444,   1.60331,    .77657,
     +     .00000,   1.23956,   1.61073,
     +     .01091,    .00496,  33.57932,   1.81535,   1.00087,
     +     .00000,   1.45627,   1.82279,
     +     .01116,    .00509,  39.62250,   2.01809,   1.21328,
     +     .28557,   1.66291,   2.02553,
     +     .01145,    .00523,  47.45151,   2.26917,   1.47638,
     +     .59056,   1.91827,   2.27662,
     +     .01175,    .00538,  56.55169,   2.55786,   1.77800,
     +     .90598,   2.21128,   2.56531,
     +     .01203,    .00552,  65.64864,   2.84478,   2.07708,
     +    1.21884,   2.50204,   2.85223 /
        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.15997,   2.40528,
     +    1.56063,   2.82100,   3.16742,
     +     .01255,    .00578,  84.60175,   3.44139,   2.69667,
     +    1.86045,   3.10547,   3.44883,
     +     .01284,    .00593,  96.16601,   3.80722,   3.07397,
     +    2.24705,   3.47494,   3.81466,
     +     .01309,    .00606, 107.13814,   4.15470,   3.43274,
     +    2.61639,   3.82556,   4.16213,
     +     .01334,    .00619, 117.81814,   4.49375,   3.78283,
     +    2.97700,   4.16744,   4.50118,
     +     .01365,    .00635, 132.04842,   4.95037,   4.25111,
     +    3.45446,   4.62758,   4.95778,
     +     .01395,    .00650, 146.27591,   5.40933,   4.72206,
     +    3.93599,   5.08978,   5.41674,
     +     .01422,    .00665, 160.40662,   5.86703,   5.19249,
     +    4.41874,   5.55045,   5.87443 /
        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.34749,   5.68275,
     +    4.91659,   6.03381,   6.35486,
     +     .01478,    .00695, 190.05157,   6.84436,   6.19075,
     +    5.43465,   6.53347,   6.85172,
     +     .01505,    .00709, 204.89275,   7.33872,   6.69592,
     +    5.94976,   7.03042,   7.34607,
     +     .01530,    .00721, 219.26903,   7.82358,   7.18971,
     +    6.45117,   7.51768,   7.83092,
     +     .01556,    .00736, 234.36911,   8.33469,   7.71156,
     +    6.98329,   8.03118,   8.34201,
     +     .01581,    .00749, 249.47288,   8.85385,   8.23907,
     +    7.51786,   8.55264,   8.86116,
     +     .01606,    .00762, 264.47498,   9.37073,   8.76591,
     +    8.05441,   9.07167,   9.37802,
     +     .01629,    .00774, 278.81402,   9.87241,   9.27502,
     +    8.56991,   9.57537,   9.87970 /
        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.82189,  10.39924,   9.81081,
     +    9.11429,  10.10419,  10.40650,
     +     .01676,    .00799, 308.85804,  10.93351,  10.35296,
     +    9.66372,  10.64041,  10.94076,
     +     .01699,    .00811, 323.56141,  11.45986,  10.88704,
     +   10.20511,  11.16858,  11.46710,
     +     .01721,    .00823, 337.87843,  11.97536,  11.41048,
     +   10.73641,  11.68580,  11.98258,
     +     .01743,    .00835, 352.42892,  12.50648,  11.94819,
     +   11.28016,  12.21864,  12.51368 /
        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,    .65266,    .00000,
     +     .00000,    .31299,    .65632,
     +     .01212,    .00557,   1.98744,    .68648,    .00000,
     +     .00000,    .35011,    .69016,
     +     .01249,    .00574,   3.87117,    .75086,    .01652,
     +     .00000,    .41921,    .75458,
     +     .01276,    .00588,   5.59852,    .80812,    .05201,
     +     .00000,    .47979,    .81183,
     +     .01306,    .00602,   7.62684,    .87798,    .13298,
     +     .00000,    .55301,    .88169,
     +     .01332,    .00614,   9.66645,    .94718,    .20776,
     +     .00000,    .62503,    .95092,
     +     .01356,    .00626,  11.90605,   1.02045,    .28800,
     +     .00000,    .70096,   1.02419,
     +     .01382,    .00640,  14.59464,   1.10601,    .38288,
     +     .00000,    .78927,   1.10976 /
        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.18791,    .46953,
     +     .00000,    .87351,   1.19166,
     +     .01429,    .00663,  19.86115,   1.27331,    .56007,
     +     .00000,    .96112,   1.27706,
     +     .01446,    .00671,  22.19294,   1.34544,    .63798,
     +     .00000,   1.03497,   1.34919,
     +     .01484,    .00692,  27.63007,   1.51371,    .81565,
     +     .00000,   1.20683,   1.51746,
     +     .01520,    .00709,  32.28506,   1.67310,    .98226,
     +     .22420,   1.36924,   1.67685,
     +     .01558,    .00730,  38.25023,   1.86879,   1.18678,
     +     .46185,   1.56820,   1.87255,
     +     .01599,    .00751,  45.09328,   2.09170,   1.41902,
     +     .70476,   1.79442,   2.09546,
     +     .01636,    .00770,  51.84985,   2.31132,   1.64727,
     +     .94351,   2.01697,   2.31509 /
        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.55063,   1.89567,
     +    1.20211,   2.25916,   2.55440,
     +     .01707,    .00807,  65.70031,   2.76270,   2.11454,
     +    1.42715,   2.47358,   2.76647,
     +     .01747,    .00829,  74.02059,   3.03637,   2.39585,
     +    1.71514,   2.75001,   3.04013,
     +     .01782,    .00846,  81.83791,   3.29443,   2.66143,
     +    1.98831,   3.01048,   3.29820,
     +     .01815,    .00864,  89.38195,   3.54463,   2.91894,
     +    2.25332,   3.26283,   3.54839,
     +     .01857,    .00886,  99.33618,   3.87915,   3.26084,
     +    2.60150,   3.60003,   3.88291,
     +     .01896,    .00907, 109.19308,   4.21294,   3.60224,
     +    2.95016,   3.93629,   4.21669,
     +     .01934,    .00928, 118.89874,   4.54362,   3.94107,
     +    3.29750,   4.26923,   4.54738 /
        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.88833,   4.29165,
     +    3.65300,   4.61615,   4.89207,
     +     .02009,    .00968, 138.99248,   5.24262,   4.65278,
     +    4.02081,   4.97258,   5.24638,
     +     .02046,    .00987, 148.93655,   5.59306,   5.00982,
     +    4.38441,   5.32499,   5.59682,
     +     .02079,    .01006, 158.49521,   5.93473,   5.35672,
     +    4.73617,   5.66850,   5.93849,
     +     .02113,    .01024, 168.47246,   6.29312,   5.72161,
     +    5.10778,   6.02870,   6.29687,
     +     .02148,    .01043, 178.37605,   6.65504,   6.08826,
     +    5.47878,   6.39237,   6.65879,
     +     .02181,    .01061, 188.15859,   7.01373,   6.45292,
     +    5.84970,   6.75271,   7.01748,
     +     .02212,    .01078, 197.44295,   7.36005,   6.80335,
     +    6.20400,   7.10054,   7.36380 /
        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.72221,   7.17072,
     +    6.57678,   7.46423,   7.72595,
     +     .02275,    .01112, 216.73795,   8.08770,   7.54064,
     +    6.95115,   7.83121,   8.09145,
     +     .02306,    .01129, 226.10106,   8.44626,   7.90354,
     +    7.31851,   8.19117,   8.45002,
     +     .02335,    .01144, 235.17419,   8.79606,   8.25788,
     +    7.67773,   8.54228,   8.79981,
     +     .02364,    .01161, 244.34017,   9.15484,   8.62019,
     +    8.04357,   8.90237,   9.15859 /
        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,    .93405,    .59301,    .00000,
     +     .00000,    .28513,    .59526,
     +     .01449,    .00672,   1.88230,    .62495,    .00000,
     +     .00000,    .31994,    .62721,
     +     .01493,    .00695,   3.63129,    .68454,    .01588,
     +     .00000,    .38360,    .68679,
     +     .01527,    .00711,   5.21676,    .73679,    .04799,
     +     .00000,    .43872,    .73905,
     +     .01562,    .00728,   7.05928,    .79993,    .12120,
     +     .00000,    .50476,    .80220,
     +     .01592,    .00744,   8.89557,    .86199,    .18828,
     +     .00000,    .56923,    .86425,
     +     .01622,    .00760,  10.89709,    .92733,    .25985,
     +     .00000,    .63685,    .92960,
     +     .01655,    .00776,  13.28256,   1.00325,    .34405,
     +     .00000,    .71513,   1.00551 /
        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.54150,   1.07552,    .42052,
     +     .00000,    .78942,   1.07779,
     +     .01709,    .00805,  17.90836,   1.15058,    .50008,
     +     .00000,    .86638,   1.15285,
     +     .01731,    .00815,  19.94076,   1.21377,    .56833,
     +     .00000,    .93105,   1.21604,
     +     .01777,    .00840,  24.64893,   1.36048,    .72315,
     +     .00000,   1.08083,   1.36275,
     +     .01818,    .00862,  28.63723,   1.49866,    .86752,
     +     .19422,   1.22159,   1.50094,
     +     .01865,    .00886,  33.71456,   1.66744,   1.04379,
     +     .39947,   1.39318,   1.66972,
     +     .01914,    .00913,  39.49339,   1.85863,   1.24281,
     +     .60777,   1.58720,   1.86091,
     +     .01959,    .00936,  45.15702,   2.04603,   1.43738,
     +     .81143,   1.77710,   2.04832 /
        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.24925,   1.64811,
     +    1.03092,   1.98278,   2.25153,
     +     .02044,    .00981,  56.65475,   2.42853,   1.83296,
     +    1.22103,   2.16406,   2.43082,
     +     .02091,    .01007,  63.49726,   2.65886,   2.06946,
     +    1.46320,   2.39676,   2.66115,
     +     .02134,    .01029,  69.88848,   2.87514,   2.29179,
     +    1.69193,   2.61509,   2.87744,
     +     .02172,    .01050,  76.02458,   3.08404,   2.50656,
     +    1.91300,   2.82583,   3.08633,
     +     .02222,    .01077,  84.07352,   3.36212,   2.79046,
     +    2.20211,   3.10619,   3.36442,
     +     .02270,    .01103,  91.99775,   3.63839,   3.07271,
     +    2.49037,   3.38456,   3.64069,
     +     .02315,    .01127,  99.76008,   3.91103,   3.35179,
     +    2.77648,   3.65913,   3.91334 /
        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.19404,   3.63930,
     +    3.06798,   3.94402,   4.19635,
     +     .02404,    .01176, 115.70248,   4.48387,   3.93441,
     +    3.36854,   4.23568,   4.48620,
     +     .02447,    .01199, 123.53741,   4.76954,   4.22517,
     +    3.66462,   4.52303,   4.77186,
     +     .02487,    .01221, 131.03342,   5.04708,   4.50667,
     +    3.95002,   4.80211,   5.04941,
     +     .02528,    .01244, 138.82866,   5.33732,   4.80192,
     +    4.25069,   5.09391,   5.33966,
     +     .02569,    .01265, 146.52992,   5.62942,   5.09753,
     +    4.54976,   5.38750,   5.63176,
     +     .02608,    .01287, 154.11222,   5.91815,   5.39080,
     +    4.84805,   5.67763,   5.92049,
     +     .02645,    .01307, 161.27705,   6.19601,   5.67169,
     +    5.13198,   5.95678,   6.19835 /
        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.48587,   5.96550,
     +    5.43008,   6.24795,   6.48823,
     +     .02720,    .01349, 176.09401,   6.77756,   6.26046,
     +    5.72852,   6.54090,   6.77993,
     +     .02756,    .01369, 183.24710,   7.06299,   6.54911,
     +    6.02068,   6.82752,   7.06536,
     +     .02791,    .01388, 190.15851,   7.34080,   6.83031,
     +    6.30573,   7.10645,   7.34318,
     +     .02826,    .01407, 197.11478,   7.62497,   7.11703,
     +    6.59518,   7.39174,   7.62736 /
        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,    .90247,    .55416,    .00000,
     +     .00000,    .26710,    .55564,
     +     .01645,    .00770,   1.81102,    .58478,    .00000,
     +     .00000,    .30029,    .58627,
     +     .01695,    .00796,   3.47009,    .64110,    .01549,
     +     .00000,    .36028,    .64258,
     +     .01733,    .00815,   4.96180,    .69004,    .04537,
     +     .00000,    .41181,    .69152,
     +     .01773,    .00836,   6.68244,    .74876,    .11349,
     +     .00000,    .47312,    .75023,
     +     .01808,    .00853,   8.38620,    .80614,    .17556,
     +     .00000,    .53269,    .80761,
     +     .01841,    .00872,  10.23343,    .86632,    .24151,
     +     .00000,    .59493,    .86779,
     +     .01878,    .00890,  12.42357,    .93599,    .31881,
     +     .00000,    .66673,    .93747 /
        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.48696,   1.00208,    .38873,
     +     .00000,    .73462,   1.00357,
     +     .01940,    .00922,  16.63972,   1.07050,    .46128,
     +     .00000,    .80474,   1.07198,
     +     .01966,    .00936,  18.48187,   1.12798,    .52335,
     +     .00000,    .86355,   1.12946,
     +     .02018,    .00963,  22.72926,   1.26093,    .66368,
     +     .00000,    .99927,   1.26242,
     +     .02065,    .00989,  26.29988,   1.38567,    .79399,
     +     .17519,   1.12633,   1.38717,
     +     .02118,    .01017,  30.82370,   1.53747,    .95250,
     +     .36007,   1.28063,   1.53896,
     +     .02175,    .01047,  35.94329,   1.70873,   1.13074,
     +     .54679,   1.45443,   1.71022,
     +     .02226,    .01074,  40.93400,   1.87597,   1.30434,
     +     .72864,   1.62391,   1.87747 /
        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.30740,   2.05670,   1.49170,
     +     .92391,   1.80685,   2.05821,
     +     .02323,    .01127,  50.99478,   2.21564,   1.65550,
     +    1.09247,   1.96757,   2.21715,
     +     .02375,    .01156,  56.94157,   2.41919,   1.86442,
     +    1.30649,   2.17324,   2.42072,
     +     .02423,    .01182,  62.47266,   2.60973,   2.06023,
     +    1.50804,   2.36560,   2.61126,
     +     .02467,    .01205,  67.76314,   2.79327,   2.24886,
     +    1.70229,   2.55080,   2.79481,
     +     .02525,    .01236,  74.67324,   3.03683,   2.49741,
     +    1.95549,   2.79640,   3.03837,
     +     .02579,    .01266,  81.44785,   3.27806,   2.74377,
     +    2.20719,   3.03950,   3.27961,
     +     .02629,    .01293,  88.05928,   3.51545,   2.98668,
     +    2.45631,   3.27861,   3.51702 /
        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.76111,   3.23616,
     +    2.70931,   3.52597,   3.76269,
     +     .02731,    .01349, 101.55898,   4.01207,   3.49158,
     +    2.96953,   3.77854,   4.01366,
     +     .02779,    .01376, 108.16011,   4.25878,   3.74260,
     +    3.22522,   4.02676,   4.26037,
     +     .02824,    .01402, 114.45400,   4.49786,   3.98500,
     +    3.47103,   4.26722,   4.49947,
     +     .02871,    .01427, 120.98164,   4.74737,   4.23874,
     +    3.72951,   4.51811,   4.74898,
     +     .02916,    .01453, 127.40816,   4.99782,   4.49211,
     +    3.98588,   4.76990,   4.99945,
     +     .02960,    .01477, 133.72064,   5.24492,   4.74303,
     +    4.24117,   5.01825,   5.24655,
     +     .03002,    .01500, 139.66640,   5.48216,   4.98278,
     +    4.48356,   5.25665,   5.48379 /
        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.82654,   5.72922,   5.23313,
     +    4.73763,   5.50488,   5.73088,
     +     .03087,    .01547, 151.91845,   5.97731,   5.48394,
     +    4.99145,   5.75410,   5.97899,
     +     .03127,    .01570, 157.81112,   6.21965,   5.72893,
     +    5.23948,   5.99749,   6.22133,
     +     .03167,    .01591, 163.49260,   6.45512,   5.96723,
     +    5.48109,   6.23396,   6.45680,
     +     .03205,    .01613, 169.19511,   6.69549,   6.20970,
     +    5.72590,   6.47533,   6.69719 /
        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,    .52587,    .00000,
     +     .00000,    .25399,    .52685,
     +     .01814,    .00855,   1.75787,    .55546,    .00000,
     +     .00000,    .28597,    .55644,
     +     .01870,    .00884,   3.35024,    .60933,    .01523,
     +     .00000,    .34322,    .61030,
     +     .01913,    .00906,   4.77294,    .65581,    .04346,
     +     .00000,    .39209,    .65679,
     +     .01957,    .00929,   6.40443,    .71129,    .10783,
     +     .00000,    .44997,    .71227,
     +     .01995,    .00949,   8.01172,    .76526,    .16626,
     +     .00000,    .50595,    .76623,
     +     .02033,    .00969,   9.74706,    .82170,    .22812,
     +     .00000,    .56428,    .82268,
     +     .02074,    .00990,  11.79614,    .88685,    .30043,
     +     .00000,    .63140,    .88784 /
        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,    .94846,    .36564,
     +     .00000,    .69467,    .94945,
     +     .02143,    .01027,  15.71814,   1.01210,    .43314,
     +     .00000,    .75988,   1.01309,
     +     .02170,    .01041,  17.42432,   1.06548,    .49079,
     +     .00000,    .81448,   1.06646,
     +     .02228,    .01073,  21.34360,   1.18859,    .62075,
     +     .00000,    .94014,   1.18958,
     +     .02280,    .01100,  24.61922,   1.30375,    .74106,
     +     .16160,   1.05740,   1.30474,
     +     .02339,    .01133,  28.75345,   1.44344,    .88696,
     +     .33203,   1.19942,   1.44445,
     +     .02401,    .01166,  33.41104,   1.60058,   1.05051,
     +     .50349,   1.35890,   1.60160,
     +     .02458,    .01196,  37.93226,   1.75358,   1.20932,
     +     .66998,   1.51396,   1.75460 /
        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.91847,   1.38026,
     +     .84826,   1.68089,   1.91951,
     +     .02564,    .01255,  46.99625,   2.06311,   1.52933,
     +    1.00175,   1.82718,   2.06416,
     +     .02623,    .01287,  52.32520,   2.24790,   1.71897,
     +    1.19614,   2.01391,   2.24896,
     +     .02676,    .01315,  57.26507,   2.42047,   1.89629,
     +    1.37876,   2.18816,   2.42154,
     +     .02725,    .01342,  61.97616,   2.58634,   2.06676,
     +    1.55440,   2.35555,   2.58742,
     +     .02786,    .01377,  68.10867,   2.80590,   2.29079,
     +    1.78274,   2.57699,   2.80699,
     +     .02846,    .01409,  74.10114,   3.02284,   2.51232,
     +    2.00918,   2.79565,   3.02395,
     +     .02902,    .01440,  79.93205,   3.23586,   2.73028,
     +    2.23283,   3.01026,   3.23698 /
        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.45579,   2.95358,
     +    2.45937,   3.23173,   3.45692,
     +     .03013,    .01502,  91.78300,   3.67998,   3.18176,
     +    2.69193,   3.45742,   3.68113,
     +     .03067,    .01532,  97.55480,   3.89996,   3.40557,
     +    2.92000,   3.67877,   3.90111,
     +     .03117,    .01559, 103.04301,   4.11269,   3.62123,
     +    3.13878,   3.89279,   4.11387,
     +     .03168,    .01588, 108.72295,   4.33434,   3.84664,
     +    3.36850,   4.11571,   4.33554,
     +     .03218,    .01616, 114.29958,   4.55639,   4.07126,
     +    3.59586,   4.33898,   4.55760,
     +     .03266,    .01643, 119.76706,   4.77514,   4.29339,
     +    3.82196,   4.55887,   4.77636,
     +     .03312,    .01668, 124.90359,   4.98477,   4.50522,
     +    4.03618,   4.76958,   4.98602 /
        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.20279,   4.72614,
     +    4.26048,   4.98866,   5.20405,
     +     .03405,    .01720, 135.45855,   5.42136,   4.94707,
     +    4.48414,   5.20826,   5.42263,
     +     .03449,    .01744, 140.51963,   5.63454,   5.16259,
     +    4.70240,   5.42242,   5.63583,
     +     .03491,    .01769, 145.39116,   5.84141,   5.37197,
     +    4.91477,   5.63021,   5.84272,
     +     .03535,    .01792, 150.26982,   6.05227,   5.58464,
     +    5.12957,   5.84198,   6.05359 /
        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,    .44763,    .00000,
     +     .00000,    .21815,    .44781,
     +     .02468,    .01191,   1.60297,    .47401,    .00000,
     +     .00000,    .24641,    .47420,
     +     .02545,    .01232,   3.00427,    .52064,    .01464,
     +     .00000,    .29573,    .52082,
     +     .02603,    .01263,   4.23150,    .56004,    .03815,
     +     .00000,    .33701,    .56023,
     +     .02663,    .01296,   5.61252,    .60632,    .09200,
     +     .00000,    .38517,    .60652,
     +     .02716,    .01325,   6.95100,    .65073,    .14021,
     +     .00000,    .43117,    .65094,
     +     .02767,    .01352,   8.37683,    .69675,    .19075,
     +     .00000,    .47867,    .69697,
     +     .02822,    .01382,  10.03848,    .74941,    .24933,
     +     .00000,    .53286,    .74964 /
        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,    .79873,    .30164,
     +     .00000,    .58350,    .79898,
     +     .02917,    .01434,  13.16091,    .84932,    .35540,
     +     .00000,    .63530,    .84956,
     +     .02954,    .01454,  14.50038,    .89151,    .40106,
     +     .00000,    .67846,    .89177,
     +     .03033,    .01498,  17.54106,    .98799,    .50309,
     +     .00000,    .77693,    .98828,
     +     .03104,    .01537,  20.03454,   1.07735,    .59661,
     +     .12484,    .86795,   1.07765,
     +     .03184,    .01581,  23.14238,   1.18477,    .70898,
     +     .25686,    .97716,   1.18510,
     +     .03267,    .01628,  26.59351,   1.30441,    .83369,
     +     .38807,   1.09862,   1.30476,
     +     .03344,    .01671,  29.89845,   1.41983,    .95367,
     +     .51429,   1.21566,   1.42021 /
        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.54316,   1.08170,
     +     .64826,   1.34057,   1.54357,
     +     .03488,    .01751,  36.40739,   1.65049,   1.19246,
     +     .76264,   1.44918,   1.65093,
     +     .03568,    .01796,  40.16851,   1.78655,   1.33224,
     +     .90634,   1.58675,   1.78701,
     +     .03639,    .01836,  43.61773,   1.91264,   1.46196,
     +    1.04034,   1.71415,   1.91312,
     +     .03705,    .01874,  46.87627,   2.03302,   1.58583,
     +    1.16835,   1.83570,   2.03354,
     +     .03789,    .01921,  51.07156,   2.19113,   1.74732,
     +    1.33338,   1.99528,   2.19168,
     +     .03869,    .01966,  55.12760,   2.34615,   1.90579,
     +    1.49580,   2.15163,   2.34674,
     +     .03944,    .02008,  59.03703,   2.49733,   2.06066,
     +    1.65516,   2.30405,   2.49794 /
        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.65222,   2.21806,
     +    1.81523,   2.46012,   2.65286,
     +     .04094,    .02094,  66.86430,   2.80910,   2.37791,
     +    1.97857,   2.61816,   2.80978,
     +     .04165,    .02134,  70.62756,   2.96205,   2.53369,
     +    2.13773,   2.77219,   2.96276,
     +     .04232,    .02172,  74.17406,   3.10904,   2.68285,
     +    2.28939,   2.92016,   3.10977,
     +     .04300,    .02210,  77.81965,   3.26138,   2.83794,
     +    2.44786,   3.07349,   3.26214,
     +     .04367,    .02249,  81.36629,   3.41302,   2.99148,
     +    2.60362,   3.22608,   3.41382,
     +     .04432,    .02285,  84.82322,   3.56170,   3.14265,
     +    2.75788,   3.37566,   3.56254,
     +     .04492,    .02320,  88.04302,   3.70335,   3.28591,
     +    2.90308,   3.51813,   3.70421 /
        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.85004,   3.43472,
     +    3.05452,   3.66564,   3.85092,
     +     .04616,    .02390,  94.59917,   3.99631,   3.58272,
     +    3.20469,   3.81271,   3.99722,
     +     .04675,    .02424,  97.71190,   4.13831,   3.72645,
     +    3.35059,   3.95549,   4.13926,
     +     .04732,    .02455, 100.69182,   4.27556,   3.86552,
     +    3.49198,   4.09344,   4.27653,
     +     .04788,    .02488, 103.65377,   4.41473,   4.00603,
     +    3.63419,   4.23332,   4.41574 /
        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,    .38272,    .00000,
     +     .00000,    .18899,    .38298,
     +     .03372,    .01669,   1.46581,    .40586,    .00000,
     +     .00000,    .21364,    .40614,
     +     .03475,    .01725,   2.69797,    .44567,    .01437,
     +     .00000,    .25564,    .44599,
     +     .03552,    .01769,   3.75516,    .47868,    .03366,
     +     .00000,    .29017,    .47904,
     +     .03634,    .01814,   4.92105,    .51690,    .07834,
     +     .00000,    .32990,    .51728,
     +     .03706,    .01854,   6.03143,    .55309,    .11781,
     +     .00000,    .36738,    .55350,
     +     .03774,    .01892,   7.19745,    .59023,    .15879,
     +     .00000,    .40573,    .59068,
     +     .03848,    .01934,   8.53743,    .63239,    .20585,
     +     .00000,    .44911,    .63287 /
        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,    .67149,    .24749,
     +     .00000,    .48928,    .67200,
     +     .03975,    .02006,  11.00653,    .71131,    .28997,
     +     .00000,    .53007,    .71184,
     +     .04026,    .02035,  12.05006,    .74434,    .32585,
     +     .00000,    .56388,    .74490,
     +     .04133,    .02096,  14.38938,    .81921,    .40533,
     +     .00000,    .64036,    .81982,
     +     .04228,    .02150,  16.27009,    .88787,    .47746,
     +     .09490,    .71035,    .88852,
     +     .04336,    .02212,  18.58128,    .96963,    .56329,
     +     .19653,    .79355,    .97033,
     +     .04450,    .02277,  21.10852,   1.05978,    .65760,
     +     .29626,    .88517,   1.06054,
     +     .04553,    .02337,  23.49380,   1.14593,    .74746,
     +     .39129,    .97260,   1.14674 /
        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.23717,    .84252,
     +     .49126,   1.06512,   1.23804,
     +     .04746,    .02448,  28.10305,   1.31592,    .92405,
     +     .57587,   1.14490,   1.31683,
     +     .04854,    .02510,  30.71721,   1.41493,   1.02612,
     +     .68130,   1.24513,   1.41591,
     +     .04950,    .02564,  33.08708,   1.50598,   1.12009,
     +     .77885,   1.33723,   1.50701,
     +     .05039,    .02616,  35.30330,   1.59230,   1.20921,
     +     .87139,   1.42450,   1.59338,
     +     .05151,    .02680,  38.12267,   1.70476,   1.32443,
     +     .98967,   1.53812,   1.70589,
     +     .05257,    .02743,  40.81733,   1.81413,   1.43658,
     +    1.10517,   1.64857,   1.81532,
     +     .05359,    .02800,  43.38827,   1.92002,   1.54541,
     +    1.21769,   1.75545,   1.92128 /
        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.93025,   2.02764,   1.65510,
     +    1.32973,   1.86403,   2.02895,
     +     .05559,    .02917,  48.45150,   2.13591,   1.76576,
     +    1.44332,   1.97324,   2.13729,
     +     .05653,    .02972,  50.85191,   2.24079,   1.87291,
     +    1.55329,   2.07899,   2.24222,
     +     .05743,    .03023,  53.09165,   2.34088,   1.97477,
     +    1.65732,   2.17987,   2.34236,
     +     .05833,    .03076,  55.37741,   2.44406,   2.08015,
     +    1.76549,   2.28386,   2.44561,
     +     .05923,    .03127,  57.57817,   2.54607,   2.18372,
     +    1.87101,   2.38662,   2.54766,
     +     .06009,    .03176,  59.71002,   2.64561,   2.28524,
     +    1.97507,   2.48688,   2.64726,
     +     .06090,    .03223,  61.67610,   2.73983,   2.38081,
     +    2.07234,   2.58178,   2.74152 /
        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.83697,   2.47965,
     +    2.17338,   2.67958,   2.83871,
     +     .06253,    .03318,  65.63966,   2.93327,   2.57737,
     +    2.27296,   2.77654,   2.93506,
     +     .06331,    .03363,  67.50075,   3.02633,   2.67184,
     +    2.36926,   2.87021,   3.02818,
     +     .06405,    .03405,  69.27191,   3.11587,   2.76284,
     +    2.46220,   2.96033,   3.11776,
     +     .06481,    .03448,  71.01684,   3.20617,   2.85425,
     +    2.55510,   3.05120,   3.20810 /
        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,    .71842,    .35027,    .00000,
     +     .00000,    .17466,    .35092,
     +     .04052,    .02037,   1.39671,    .37147,    .00000,
     +     .00000,    .19725,    .37218,
     +     .04173,    .02105,   2.53874,    .40748,    .01431,
     +     .00000,    .23519,    .40824,
     +     .04265,    .02158,   3.50634,    .43704,    .03131,
     +     .00000,    .26611,    .43784,
     +     .04363,    .02213,   4.55997,    .47097,    .07116,
     +     .00000,    .30140,    .47183,
     +     .04446,    .02261,   5.55246,    .50287,    .10607,
     +     .00000,    .33445,    .50377,
     +     .04528,    .02307,   6.58532,    .53545,    .14211,
     +     .00000,    .36809,    .53639,
     +     .04617,    .02358,   7.76194,    .57223,    .18329,
     +     .00000,    .40598,    .57321 /
        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,    .60617,    .21952,
     +     .00000,    .44085,    .60719,
     +     .04768,    .02446,   9.90353,    .64056,    .25635,
     +     .00000,    .47614,    .64163,
     +     .04828,    .02480,  10.80024,    .66901,    .28734,
     +     .00000,    .50529,    .67012,
     +     .04956,    .02555,  12.79474,    .73315,    .35563,
     +     .00000,    .57086,    .73434,
     +     .05070,    .02620,  14.37897,    .79163,    .41724,
     +     .07993,    .63054,    .79289,
     +     .05198,    .02695,  16.30771,    .86087,    .49015,
     +     .16672,    .70108,    .86220,
     +     .05332,    .02773,  18.39639,    .93677,    .56977,
     +     .25124,    .77829,    .93817,
     +     .05456,    .02845,  20.34977,   1.00887,    .64522,
     +     .33134,    .85155,   1.01035 /
        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.37425,   1.08483,    .72457,
     +     .41511,    .92865,   1.08638,
     +     .05686,    .02979,  24.07949,   1.15005,    .79230,
     +     .48565,    .99480,   1.15169,
     +     .05813,    .03054,  26.16988,   1.23166,    .87666,
     +     .57312,   1.07750,   1.23337,
     +     .05926,    .03120,  28.05117,   1.30635,    .95396,
     +     .65367,   1.15313,   1.30813,
     +     .06032,    .03182,  29.79919,   1.37685,   1.02695,
     +     .72975,   1.22449,   1.37869,
     +     .06166,    .03260,  32.00589,   1.46823,   1.12082,
     +     .82647,   1.31691,   1.47016,
     +     .06292,    .03334,  34.09961,   1.55667,   1.21177,
     +     .92047,   1.40633,   1.55868,
     +     .06411,    .03403,  36.08439,   1.64191,   1.29962,
     +    1.01164,   1.49247,   1.64400 /
        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.72812,   1.38772,
     +    1.10195,   1.57955,   1.73028,
     +     .06648,    .03541,  39.95163,   1.81449,   1.47623,
     +    1.19315,   1.66677,   1.81674,
     +     .06759,    .03607,  41.76858,   1.89781,   1.56158,
     +    1.28107,   1.75087,   1.90013,
     +     .06865,    .03668,  43.45288,   1.97699,   1.64237,
     +    1.36388,   1.83077,   1.97938,
     +     .06972,    .03730,  45.16396,   2.05835,   1.72569,
     +    1.44972,   1.91286,   2.06081,
     +     .07077,    .03792,  46.79997,   2.13843,   1.80720,
     +    1.53306,   1.99363,   2.14096,
     +     .07177,    .03850,  48.37869,   2.21635,   1.88688,
     +    1.61504,   2.07220,   2.21895,
     +     .07273,    .03905,  49.82491,   2.28979,   1.96156,
     +    1.69132,   2.14625,   2.29246 /
        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.36531,   2.03862,
     +    1.77037,   2.22239,   2.36804,
     +     .07464,    .04017,  52.72172,   2.43992,   2.11452,
     +    1.84800,   2.29758,   2.44271,
     +     .07556,    .04070,  54.07193,   2.51178,   2.18766,
     +    1.92283,   2.37001,   2.51464,
     +     .07642,    .04121,  55.35192,   2.58075,   2.25795,
     +    1.99487,   2.43950,   2.58367,
     +     .07730,    .04171,  56.60523,   2.65005,   2.32828,
     +    2.06661,   2.50933,   2.65303 /
        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,    .32914,    .00000,
     +     .00000,    .16549,    .33031,
     +     .04618,    .02346,   1.35602,    .34901,    .00000,
     +     .00000,    .18662,    .35021,
     +     .04753,    .02424,   2.43722,    .38242,    .01425,
     +     .00000,    .22182,    .38371,
     +     .04858,    .02484,   3.34466,    .40967,    .02971,
     +     .00000,    .25032,    .41100,
     +     .04967,    .02546,   4.32335,    .44079,    .06634,
     +     .00000,    .28270,    .44218,
     +     .05062,    .02602,   5.23768,    .46989,    .09823,
     +     .00000,    .31285,    .47134,
     +     .05154,    .02656,   6.18277,    .49950,    .13103,
     +     .00000,    .34345,    .50100,
     +     .05254,    .02714,   7.25232,    .53280,    .16840,
     +     .00000,    .37777,    .53436 /
        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,    .56341,    .20111,
     +     .00000,    .40925,    .56502,
     +     .05426,    .02815,   9.18127,    .59434,    .23428,
     +     .00000,    .44100,    .59600,
     +     .05493,    .02855,   9.98334,    .61986,    .26214,
     +     .00000,    .46716,    .62155,
     +     .05639,    .02940,  11.75683,    .67719,    .32328,
     +     .00000,    .52583,    .67898,
     +     .05766,    .03015,  13.15284,    .72922,    .37820,
     +     .07038,    .57897,    .73110,
     +     .05912,    .03101,  14.84024,    .79059,    .44293,
     +     .14776,    .64154,    .79255,
     +     .06064,    .03190,  16.65433,    .85754,    .51330,
     +     .22270,    .70970,    .85959,
     +     .06203,    .03272,  18.33926,    .92086,    .57968,
     +     .29340,    .77410,    .92302 /
        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.07441,    .98732,    .64926,
     +     .36708,    .84163,    .98956,
     +     .06464,    .03426,  21.52743,   1.04418,    .70840,
     +     .42888,    .89935,   1.04650,
     +     .06607,    .03511,  23.29834,   1.11503,    .78180,
     +     .50520,    .97122,   1.11746,
     +     .06736,    .03587,  24.88333,   1.17965,    .84882,
     +     .57526,   1.03672,   1.18215,
     +     .06854,    .03656,  26.34888,   1.24046,    .91190,
     +     .64121,   1.09833,   1.24305,
     +     .07004,    .03745,  28.18815,   1.31898,    .99271,
     +     .72473,   1.17782,   1.32165,
     +     .07147,    .03828,  29.92359,   1.39469,   1.07072,
     +     .80561,   1.25444,   1.39746,
     +     .07280,    .03907,  31.56065,   1.46741,   1.14584,
     +     .88381,   1.32801,   1.47030 /
        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.54069,   1.22086,
     +     .96095,   1.40210,   1.54365,
     +     .07547,    .04064,  34.72426,   1.61388,   1.29602,
     +    1.03863,   1.47609,   1.61694,
     +     .07673,    .04138,  36.20041,   1.68426,   1.36827,
     +    1.11328,   1.54721,   1.68740,
     +     .07791,    .04207,  37.56182,   1.75094,   1.43644,
     +    1.18337,   1.61456,   1.75416,
     +     .07911,    .04278,  38.94010,   1.81927,   1.50657,
     +    1.25585,   1.68357,   1.82259,
     +     .08029,    .04346,  40.25070,   1.88631,   1.57496,
     +    1.32598,   1.75126,   1.88971,
     +     .08141,    .04412,  41.51173,   1.95139,   1.64166,
     +    1.39482,   1.81696,   1.95487,
     +     .08248,    .04474,  42.66075,   2.01256,   1.70397,
     +    1.45867,   1.87870,   2.01611 /
        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.07532,   1.76815,
     +    1.52473,   1.94203,   2.07894,
     +     .08462,    .04599,  44.95082,   2.13714,   1.83119,
     +    1.58939,   2.00442,   2.14085,
     +     .08564,    .04659,  46.01202,   2.19658,   1.89180,
     +    1.65160,   2.06438,   2.20035,
     +     .08661,    .04716,  47.01502,   2.25348,   1.94993,
     +    1.71137,   2.12179,   2.25733,
     +     .08759,    .04772,  47.99223,   2.31051,   2.00795,
     +    1.77073,   2.17931,   2.31443 /
        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,    .31469,    .00000,
     +     .00000,    .15897,    .31594,
     +     .05113,    .02629,   1.33225,    .33350,    .00000,
     +     .00000,    .17893,    .33480,
     +     .05263,    .02717,   2.36736,    .36492,    .01414,
     +     .00000,    .21199,    .36630,
     +     .05378,    .02784,   3.22925,    .39040,    .02843,
     +     .00000,    .23864,    .39186,
     +     .05497,    .02854,   4.15141,    .41939,    .06262,
     +     .00000,    .26878,    .42091,
     +     .05603,    .02916,   5.00692,    .44639,    .09227,
     +     .00000,    .29676,    .44799,
     +     .05705,    .02976,   5.88622,    .47378,    .12266,
     +     .00000,    .32507,    .47544,
     +     .05815,    .03041,   6.87582,    .50451,    .15718,
     +     .00000,    .35674,    .50623 /
        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,    .53266,    .18733,
     +     .00000,    .38570,    .53445,
     +     .06003,    .03153,   8.64692,    .56104,    .21780,
     +     .00000,    .41483,    .56289,
     +     .06078,    .03197,   9.37904,    .58442,    .24335,
     +     .00000,    .43880,    .58631,
     +     .06238,    .03292,  10.98997,    .63677,    .29926,
     +     .00000,    .49239,    .63877,
     +     .06379,    .03376,  12.24847,    .68412,    .34931,
     +     .06349,    .54078,    .68622,
     +     .06539,    .03470,  13.76061,    .73976,    .40810,
     +     .13400,    .59754,    .74196,
     +     .06707,    .03569,  15.37633,    .80024,    .47178,
     +     .20198,    .65916,    .80256,
     +     .06860,    .03661,  16.86835,    .85726,    .53164,
     +     .26590,    .71719,    .85968 /
        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,    .91689,    .59416,
     +     .33227,    .77781,    .91942,
     +     .07146,    .03829,  19.67014,    .96776,    .64715,
     +     .38777,    .82947,    .97037,
     +     .07304,    .03923,  21.21468,   1.03094,    .71271,
     +     .45612,    .89362,   1.03368,
     +     .07445,    .04007,  22.59069,   1.08841,    .77239,
     +     .51865,    .95191,   1.09124,
     +     .07574,    .04083,  23.85779,   1.14232,    .82842,
     +     .57738,   1.00658,   1.14525,
     +     .07740,    .04180,  25.44001,   1.21172,    .89998,
     +     .65151,   1.07691,   1.21477,
     +     .07895,    .04272,  26.92582,   1.27845,    .96882,
     +     .72307,   1.14448,   1.28160,
     +     .08042,    .04359,  28.32152,   1.34236,   1.03496,
     +     .79209,   1.20919,   1.34562 /
        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.40655,   1.10078,
     +     .85994,   1.27415,   1.40992,
     +     .08333,    .04530,  30.99989,   1.47050,   1.16657,
     +     .92810,   1.33884,   1.47397,
     +     .08471,    .04610,  32.24219,   1.53183,   1.22965,
     +     .99345,   1.40086,   1.53540,
     +     .08599,    .04686,  33.38313,   1.58978,   1.28899,
     +    1.05461,   1.45946,   1.59344,
     +     .08730,    .04763,  34.53495,   1.64905,   1.34993,
     +    1.11776,   1.51937,   1.65281,
     +     .08858,    .04837,  35.62464,   1.70704,   1.40917,
     +    1.17866,   1.57797,   1.71089,
     +     .08981,    .04909,  36.67056,   1.76323,   1.46688,
     +    1.23838,   1.63475,   1.76718,
     +     .09097,    .04977,  37.61897,   1.81589,   1.52063,
     +    1.29359,   1.68795,   1.81992 /
        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.86984,   1.57591,
     +    1.35062,   1.74245,   1.87396,
     +     .09330,    .05113,  39.50105,   1.92286,   1.63008,
     +    1.40634,   1.79599,   1.92707,
     +     .09441,    .05178,  40.36873,   1.97374,   1.68206,
     +    1.45983,   1.84737,   1.97802,
     +     .09545,    .05238,  41.18675,   2.02237,   1.73183,
     +    1.51113,   1.89648,   2.02673,
     +     .09652,    .05300,  41.98034,   2.07099,   1.78138,
     +    1.56197,   1.94557,   2.07543 /
        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,    .27551,    .00000,
     +     .00000,    .14168,    .27777,
     +     .07038,    .03765,   1.28197,    .29095,    .00000,
     +     .00000,    .15805,    .29329,
     +     .07239,    .03887,   2.18256,    .31631,    .01358,
     +     .00000,    .18474,    .31880,
     +     .07394,    .03980,   2.91232,    .33663,    .02448,
     +     .00000,    .20600,    .33921,
     +     .07555,    .04078,   3.67240,    .35948,    .05174,
     +     .00000,    .22980,    .36218,
     +     .07696,    .04164,   4.36119,    .38053,    .07507,
     +     .00000,    .25164,    .38333,
     +     .07834,    .04247,   5.05557,    .40171,    .09875,
     +     .00000,    .27357,    .40460,
     +     .07983,    .04337,   5.82266,    .42525,    .12543,
     +     .00000,    .29789,    .42826 /
        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.49683,    .44664,    .14849,
     +     .00000,    .31995,    .44974,
     +     .08239,    .04493,   7.16051,    .46802,    .17163,
     +     .00000,    .34195,    .47122,
     +     .08339,    .04554,   7.70268,    .48554,    .19093,
     +     .00000,    .35997,    .48881,
     +     .08555,    .04684,   8.87618,    .52441,    .23274,
     +     .00000,    .39986,    .52785,
     +     .08744,    .04798,   9.76999,    .55917,    .26976,
     +     .04470,    .43548,    .56275,
     +     .08959,    .04927,  10.82093,    .59958,    .31276,
     +     .09693,    .47681,    .60331,
     +     .09184,    .05062,  11.92067,    .64296,    .35878,
     +     .14653,    .52116,    .64687,
     +     .09389,    .05185,  12.91626,    .68339,    .40156,
     +     .19266,    .56245,    .68746 /
        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.91756,    .72522,    .44576,
     +     .24004,    .60511,    .72946,
     +     .09769,    .05412,  14.73765,    .76053,    .48284,
     +     .27926,    .64111,    .76490,
     +     .09979,    .05536,  15.71555,    .80397,    .52824,
     +     .32705,    .68535,    .80850,
     +     .10166,    .05647,  16.57278,    .84306,    .56918,
     +     .37038,    .72516,    .84774,
     +     .10337,    .05749,  17.35096,    .87943,    .60727,
     +     .41071,    .76216,    .88424,
     +     .10554,    .05877,  18.30549,    .92573,    .65539,
     +     .46107,    .80927,    .93072,
     +     .10759,    .05997,  19.18709,    .96979,    .70124,
     +     .50921,    .85406,    .97494,
     +     .10951,    .06111,  20.00325,   1.01161,    .74488,
     +     .55523,    .89658,   1.01692 /
        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.78036,   1.05316,    .78784,
     +     .59996,    .93878,   1.05861,
     +     .11330,    .06333,  21.52982,   1.09419,    .83042,
     +     .64455,    .98046,   1.09979,
     +     .11509,    .06437,  22.22304,   1.13320,    .87090,
     +     .68693,   1.02009,   1.13895,
     +     .11676,    .06534,  22.84931,   1.16971,    .90863,
     +     .72623,   1.05716,   1.17559,
     +     .11844,    .06632,  23.47506,   1.20681,    .94712,
     +     .76655,   1.09482,   1.21283,
     +     .12010,    .06728,  24.05614,   1.24275,    .98419,
     +     .80507,   1.13131,   1.24889,
     +     .12168,    .06820,  24.60925,   1.27738,   1.02007,
     +     .84261,   1.16644,   1.28365,
     +     .12316,    .06905,  25.10144,   1.30952,   1.05320,
     +     .87702,   1.19907,   1.31590 /
        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.59666,   1.34227,   1.08708,
     +     .91237,   1.23230,   1.34877,
     +     .12613,    .07077,  26.06279,   1.37418,   1.12002,
     +     .94663,   1.26469,   1.38081,
     +     .12754,    .07157,  26.49729,   1.40462,   1.15142,
     +     .97932,   1.29556,   1.41135,
     +     .12888,    .07234,  26.90296,   1.43353,   1.18134,
     +    1.01051,   1.32491,   1.44038,
     +     .13023,    .07310,  27.28923,   1.46221,   1.21086,
     +    1.04115,   1.35400,   1.46917 /
        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,    .24444,    .00000,
     +     .00000,    .12754,    .24832,
     +     .09743,    .05433,   1.29555,    .25649,    .00000,
     +     .00000,    .14036,    .26053,
     +     .10016,    .05602,   2.06724,    .27614,    .01211,
     +     .00000,    .16111,    .28040,
     +     .10223,    .05732,   2.67221,    .29174,    .02001,
     +     .00000,    .17750,    .29616,
     +     .10442,    .05866,   3.28351,    .30917,    .04121,
     +     .00000,    .19572,    .31377,
     +     .10633,    .05984,   3.82262,    .32507,    .05910,
     +     .00000,    .21228,    .32982,
     +     .10818,    .06098,   4.35393,    .34092,    .07711,
     +     .00000,    .22877,    .34583,
     +     .11019,    .06221,   4.92833,    .35841,    .09722,
     +     .00000,    .24694,    .36349 /
        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,    .37415,    .11442,
     +     .00000,    .26325,    .37938,
     +     .11363,    .06431,   5.90060,    .38978,    .13155,
     +     .00000,    .27941,    .39514,
     +     .11499,    .06514,   6.28546,    .40250,    .14574,
     +     .00000,    .29255,    .40798,
     +     .11789,    .06688,   7.10286,    .43043,    .17619,
     +     .00000,    .32138,    .43616,
     +     .12041,    .06841,   7.70731,    .45509,    .20281,
     +     .02928,    .34680,    .46104,
     +     .12326,    .07011,   8.39781,    .48341,    .23336,
     +     .06699,    .37595,    .48959,
     +     .12624,    .07188,   9.10247,    .51340,    .26561,
     +     .10223,    .40678,    .51984,
     +     .12894,    .07348,   9.72500,    .54098,    .29520,
     +     .13458,    .43512,    .54765 /
        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.33695,    .56917,    .32540,
     +     .16740,    .46406,    .57607,
     +     .13393,    .07642,  10.82744,    .59267,    .35044,
     +     .19425,    .48819,    .59977,
     +     .13667,    .07802,  11.39987,    .62123,    .38073,
     +     .22660,    .51748,    .62856,
     +     .13909,    .07943,  11.89152,    .64663,    .40774,
     +     .25561,    .54354,    .65417,
     +     .14131,    .08073,  12.32971,    .67003,    .43262,
     +     .28234,    .56751,    .67775,
     +     .14411,    .08233,  12.85444,    .69944,    .46366,
     +     .31531,    .59765,    .70739,
     +     .14673,    .08384,  13.32863,    .72707,    .49289,
     +     .34648,    .62597,    .73526,
     +     .14919,    .08526,  13.75936,    .75301,    .52041,
     +     .37596,    .65255,    .76141 /
        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.15841,    .77843,    .54716,
     +     .40426,    .67860,    .78704,
     +     .15400,    .08799,  14.53624,    .80330,    .57342,
     +     .43220,    .70406,    .81210,
     +     .15625,    .08927,  14.87880,    .82669,    .59812,
     +     .45848,    .72803,    .83568,
     +     .15834,    .09045,  15.18063,    .84832,    .62090,
     +     .48261,    .75019,    .85749,
     +     .16046,    .09164,  15.47805,    .87011,    .64397,
     +     .50719,    .77252,    .87947,
     +     .16252,    .09279,  15.74609,    .89098,    .66590,
     +     .53038,    .79390,    .90050,
     +     .16447,    .09388,  15.99851,    .91093,    .68700,
     +     .55285,    .81435,    .92062,
     +     .16630,    .09491,  16.21587,    .92924,    .70626,
     +     .57322,    .83311,    .93908 /
        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.43214,    .94776,    .72584,
     +     .59402,    .85211,    .95777,
     +     .16997,    .09694,  16.63032,    .96564,    .74468,
     +     .61399,    .87044,    .97579,
     +     .17169,    .09789,  16.81175,    .98254,    .76251,
     +     .63290,    .88776,    .99283,
     +     .17332,    .09879,  16.97843,    .99848,    .77938,
     +     .65083,    .90412,   1.00891,
     +     .17495,    .09968,  17.13138,   1.01412,    .79586,
     +     .66827,    .92016,   1.02468 /
        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,    .86702,    .22818,    .00000,
     +     .00000,    .11970,    .23352,
     +     .11807,    .06734,   1.34242,    .23838,    .00000,
     +     .00000,    .13060,    .24389,
     +     .12132,    .06939,   2.03812,    .25493,    .01049,
     +     .00000,    .14817,    .26073,
     +     .12382,    .07094,   2.57083,    .26804,    .01686,
     +     .00000,    .16201,    .27406,
     +     .12643,    .07257,   3.09852,    .28264,    .03493,
     +     .00000,    .17735,    .28889,
     +     .12871,    .07397,   3.55577,    .29587,    .05006,
     +     .00000,    .19122,    .30232,
     +     .13093,    .07533,   3.99967,    .30902,    .06519,
     +     .00000,    .20497,    .31568,
     +     .13332,    .07679,   4.47273,    .32347,    .08203,
     +     .00000,    .22004,    .33033 /
        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.87421,    .33639,    .09631,
     +     .00000,    .23349,    .34343,
     +     .13740,    .07927,   5.25767,    .34913,    .11049,
     +     .00000,    .24677,    .35636,
     +     .13903,    .08023,   5.56352,    .35947,    .12218,
     +     .00000,    .25751,    .36685,
     +     .14245,    .08228,   6.20487,    .38204,    .14708,
     +     .00000,    .28094,    .38972,
     +     .14542,    .08404,   6.67005,    .40180,    .16868,
     +     .02157,    .30143,    .40975,
     +     .14877,    .08601,   7.18932,    .42429,    .19327,
     +     .05230,    .32472,    .43254,
     +     .15224,    .08804,   7.70979,    .44789,    .21900,
     +     .08071,    .34916,    .45646,
     +     .15538,    .08986,   8.16170,    .46940,    .24241,
     +     .10658,    .37141,    .47824 /
        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,    .49117,    .26609,
     +     .13262,    .39394,    .50030,
     +     .16117,    .09320,   8.94335,    .50920,    .28558,
     +     .15375,    .41257,    .51856,
     +     .16432,    .09500,   9.33916,    .53090,    .30897,
     +     .17902,    .43501,    .54054,
     +     .16710,    .09659,   9.67378,    .55007,    .32966,
     +     .20151,    .45481,    .55995,
     +     .16965,    .09802,   9.96770,    .56757,    .34861,
     +     .22211,    .47291,    .57769,
     +     .17283,    .09982,  10.31305,    .58938,    .37202,
     +     .24730,    .49545,    .59978,
     +     .17582,    .10148,  10.61973,    .60970,    .39389,
     +     .27092,    .51646,    .62036,
     +     .17861,    .10304,  10.89400,    .62864,    .41436,
     +     .29313,    .53604,    .63954 /
        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,    .64701,    .43406,
     +     .31427,    .55504,    .65814,
     +     .18403,    .10603,  11.37297,    .66484,    .45327,
     +     .33499,    .57349,    .67620,
     +     .18655,    .10741,  11.57878,    .68150,    .47122,
     +     .35438,    .59072,    .69309,
     +     .18890,    .10868,  11.75593,    .69677,    .48765,
     +     .37204,    .60654,    .70856,
     +     .19126,    .10996,  11.92847,    .71208,    .50420,
     +     .38993,    .62238,    .72406,
     +     .19353,    .11119,  12.07913,    .72658,    .51979,
     +     .40667,    .63740,    .73875,
     +     .19570,    .11236,  12.21973,    .74038,    .53474,
     +     .42285,    .65172,    .75275,
     +     .19772,    .11344,  12.33654,    .75293,    .54826,
     +     .43738,    .66473,    .76547 /
        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,    .76557,    .56195,
     +     .45217,    .67785,    .77828,
     +     .20174,    .11558,  12.55351,    .77766,    .57504,
     +     .46627,    .69040,    .79054,
     +     .20362,    .11658,  12.64471,    .78903,    .58735,
     +     .47956,    .70221,    .80205,
     +     .20541,    .11753,  12.72698,    .79969,    .59896,
     +     .49212,    .71330,    .81288,
     +     .20719,    .11846,  12.79871,    .81006,    .61019,
     +     .50423,    .72408,    .82339 /
        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,    .21713,    .00000,
     +     .00000,    .11403,    .22377,
     +     .13544,    .07840,   1.39688,    .22606,    .00000,
     +     .00000,    .12362,    .23291,
     +     .13917,    .08075,   2.03673,    .24055,    .00883,
     +     .00000,    .13908,    .24775,
     +     .14201,    .08252,   2.51719,    .25201,    .01425,
     +     .00000,    .15126,    .25949,
     +     .14497,    .08434,   2.98587,    .26476,    .03029,
     +     .00000,    .16474,    .27252,
     +     .14756,    .08592,   3.38652,    .27629,    .04364,
     +     .00000,    .17688,    .28429,
     +     .15008,    .08744,   3.77099,    .28768,    .05695,
     +     .00000,    .18886,    .29592,
     +     .15278,    .08908,   4.17618,    .30015,    .07168,
     +     .00000,    .20196,    .30864 /
        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.51629,    .31125,    .08413,
     +     .00000,    .21360,    .31996,
     +     .15741,    .09183,   4.83808,    .32216,    .09641,
     +     .00000,    .22502,    .33109,
     +     .15922,    .09292,   5.09278,    .33098,    .10652,
     +     .00000,    .23425,    .34008,
     +     .16306,    .09517,   5.62156,    .35014,    .12794,
     +     .00000,    .25426,    .35960,
     +     .16639,    .09711,   5.99943,    .36679,    .14640,
     +     .01661,    .27166,    .37656,
     +     .17010,    .09925,   6.41243,    .38562,    .16728,
     +     .04297,    .29129,    .39573,
     +     .17396,    .10146,   6.82027,    .40523,    .18898,
     +     .06716,    .31174,    .41569,
     +     .17744,    .10344,   7.16913,    .42298,    .20858,
     +     .08903,    .33024,    .43376 /
        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,    .44081,    .22829,
     +     .11091,    .34884,    .45191,
     +     .18380,    .10702,   7.76044,    .45548,    .24440,
     +     .12856,    .36413,    .46684,
     +     .18726,    .10895,   8.05317,    .47302,    .26361,
     +     .14953,    .38242,    .48469,
     +     .19030,    .11062,   8.29721,    .48839,    .28052,
     +     .16811,    .39845,    .50034,
     +     .19307,    .11214,   8.50881,    .50236,    .29591,
     +     .18503,    .41303,    .51455,
     +     .19654,    .11404,   8.75284,    .51962,    .31480,
     +     .20558,    .43104,    .53212,
     +     .19976,    .11579,   8.96592,    .53559,    .33234,
     +     .22476,    .44771,    .54837,
     +     .20278,    .11741,   9.15365,    .55038,    .34866,
     +     .24268,    .46316,    .56343 /
        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,    .56461,    .36425,
     +     .25961,    .47804,    .57792,
     +     .20860,    .12052,   9.47070,    .57833,    .37936,
     +     .27614,    .49240,    .59189,
     +     .21128,    .12194,   9.60323,    .59107,    .39342,
     +     .29151,    .50574,    .60486,
     +     .21378,    .12326,   9.71419,    .60266,    .40620,
     +     .30544,    .51789,    .61666,
     +     .21629,    .12458,   9.82090,    .61422,    .41902,
     +     .31950,    .53001,    .62844,
     +     .21871,    .12583,   9.91041,    .62509,    .43101,
     +     .33258,    .54142,    .63951,
     +     .22100,    .12702,   9.99315,    .63539,    .44248,
     +     .34517,    .55225,    .65001,
     +     .22313,    .12810,  10.05847,    .64467,    .45278,
     +     .35641,    .56201,    .65946 /
        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.12206,    .65399,    .46317,
     +     .36782,    .57182,    .66895,
     +     .22734,    .13027,  10.17554,    .66283,    .47303,
     +     .37863,    .58114,    .67798,
     +     .22932,    .13127,  10.22182,    .67111,    .48228,
     +     .38878,    .58986,    .68641,
     +     .23117,    .13221,  10.26233,    .67883,    .49096,
     +     .39833,    .59803,    .69428,
     +     .23301,    .13314,  10.29441,    .68627,    .49931,
     +     .40749,    .60590,    .70187 /
        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.03376,    .20835,    .00000,
     +     .00000,    .10929,    .21614,
     +     .15064,    .08811,   1.45186,    .21637,    .00000,
     +     .00000,    .11794,    .22442,
     +     .15480,    .09073,   2.04660,    .22937,    .00721,
     +     .00000,    .13191,    .23783,
     +     .15795,    .09266,   2.48551,    .23965,    .01197,
     +     .00000,    .14289,    .24843,
     +     .16124,    .09467,   2.90819,    .25107,    .02656,
     +     .00000,    .15502,    .26018,
     +     .16410,    .09640,   3.26555,    .26135,    .03863,
     +     .00000,    .16592,    .27072,
     +     .16688,    .09807,   3.60515,    .27149,    .05062,
     +     .00000,    .17664,    .28113,
     +     .16984,    .09983,   3.95972,    .28253,    .06386,
     +     .00000,    .18832,    .29248 /
        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,    .29234,    .07499,
     +     .00000,    .19867,    .30253,
     +     .17492,    .10282,   4.53128,    .30194,    .08595,
     +     .00000,    .20879,    .31237,
     +     .17690,    .10397,   4.74897,    .30968,    .09493,
     +     .00000,    .21694,    .32031,
     +     .18110,    .10640,   5.19702,    .32640,    .11390,
     +     .00000,    .23454,    .33744,
     +     .18472,    .10846,   5.51312,    .34086,    .13015,
     +     .01306,    .24975,    .35224,
     +     .18875,    .11073,   5.85186,    .35711,    .14842,
     +     .03634,    .26683,    .36886,
     +     .19290,    .11306,   6.18187,    .37391,    .16730,
     +     .05756,    .28449,    .38605,
     +     .19665,    .11514,   6.46025,    .38900,    .18426,
     +     .07665,    .30037,    .40150 /
        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.72229,    .40410,    .20122,
     +     .09565,    .31626,    .41695,
     +     .20348,    .11888,   6.92331,    .41643,    .21500,
     +     .11089,    .32922,    .42957,
     +     .20717,    .12088,   7.14745,    .43109,    .23137,
     +     .12893,    .34466,    .44456,
     +     .21040,    .12262,   7.33180,    .44388,    .24569,
     +     .14482,    .35812,    .45763,
     +     .21334,    .12419,   7.48972,    .45542,    .25866,
     +     .15923,    .37029,    .46944,
     +     .21700,    .12613,   7.66825,    .46959,    .27450,
     +     .17664,    .38524,    .48393,
     +     .22040,    .12792,   7.82136,    .48262,    .28912,
     +     .19281,    .39899,    .49726,
     +     .22356,    .12958,   7.95410,    .49461,    .30265,
     +     .20784,    .41167,    .50952 /
        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,    .50606,    .31551,
     +     .22197,    .42379,    .52125,
     +     .22965,    .13271,   8.16986,    .51704,    .32793,
     +     .23572,    .43543,    .53249,
     +     .23245,    .13415,   8.25716,    .52718,    .33941,
     +     .24845,    .44619,    .54286,
     +     .23505,    .13546,   8.32750,    .53634,    .34978,
     +     .25991,    .45592,    .55224,
     +     .23764,    .13677,   8.39397,    .54544,    .36015,
     +     .27144,    .46560,    .56155,
     +     .24012,    .13803,   8.44657,    .55391,    .36981,
     +     .28213,    .47464,    .57024,
     +     .24249,    .13920,   8.49457,    .56192,    .37900,
     +     .29236,    .48319,    .57845,
     +     .24467,    .14028,   8.52943,    .56908,    .38722,
     +     .30147,    .49084,    .58577 /
        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,    .57623,    .39548,
     +     .31068,    .49850,    .59310,
     +     .24899,    .14241,   8.58796,    .58297,    .40328,
     +     .31937,    .50574,    .60002,
     +     .25100,    .14338,   8.60815,    .58923,    .41056,
     +     .32750,    .51248,    .60646,
     +     .25290,    .14431,   8.62464,    .59507,    .41737,
     +     .33513,    .51876,    .61244,
     +     .25477,    .14520,   8.63427,    .60064,    .42389,
     +     .34242,    .52478,    .61816 /
        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.17721,    .19491,    .00000,
     +     .00000,    .10167,    .20490,
     +     .17708,    .10496,   1.55085,    .20162,    .00000,
     +     .00000,    .10902,    .21197,
     +     .18200,    .10799,   2.07368,    .21253,    .00422,
     +     .00000,    .12090,    .22341,
     +     .18570,    .11022,   2.44776,    .22114,    .00814,
     +     .00000,    .13023,    .23240,
     +     .18953,    .11249,   2.80028,    .23067,    .02072,
     +     .00000,    .14052,    .24235,
     +     .19285,    .11444,   3.09302,    .23921,    .03103,
     +     .00000,    .14969,    .25121,
     +     .19606,    .11631,   3.36679,    .24758,    .04122,
     +     .00000,    .15868,    .25992,
     +     .19949,    .11828,   3.64823,    .25663,    .05240,
     +     .00000,    .16841,    .26934 /
        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.87859,    .26462,    .06172,
     +     .00000,    .17697,    .27762,
     +     .20529,    .12158,   4.09181,    .27239,    .07085,
     +     .00000,    .18528,    .28567,
     +     .20755,    .12284,   4.25773,    .27863,    .07832,
     +     .00000,    .19196,    .29213,
     +     .21230,    .12549,   4.59451,    .29199,    .09392,
     +     .00000,    .20625,    .30597,
     +     .21634,    .12770,   4.82698,    .30342,    .10718,
     +     .00816,    .21847,    .31778,
     +     .22083,    .13013,   5.06592,    .31612,    .12196,
     +     .02727,    .23207,    .33092,
     +     .22545,    .13259,   5.29295,    .32911,    .13707,
     +     .04452,    .24598,    .34435,
     +     .22957,    .13477,   5.47954,    .34066,    .15050,
     +     .05988,    .25834,    .35627 /
        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,    .35206,    .16382,
     +     .07504,    .27059,    .36806,
     +     .23704,    .13865,   5.77827,    .36127,    .17454,
     +     .08710,    .28050,    .37759,
     +     .24102,    .14070,   5.91633,    .37211,    .18716,
     +     .10126,    .29216,    .38879,
     +     .24450,    .14247,   6.02650,    .38146,    .19811,
     +     .11363,    .30225,    .39845,
     +     .24766,    .14406,   6.11809,    .38982,    .20795,
     +     .12478,    .31128,    .40709,
     +     .25155,    .14601,   6.21679,    .39997,    .21986,
     +     .13814,    .32226,    .41757,
     +     .25516,    .14779,   6.29771,    .40918,    .23074,
     +     .15042,    .33225,    .42709,
     +     .25850,    .14942,   6.36498,    .41757,    .24073,
     +     .16177,    .34136,    .43577 /
        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.41761,    .42546,    .25012,
     +     .17233,    .34997,    .44393,
     +     .26485,    .15249,   6.46225,    .43295,    .25912,
     +     .18253,    .35816,    .45167,
     +     .26775,    .15387,   6.49728,    .43978,    .26737,
     +     .19191,    .36565,    .45875,
     +     .27043,    .15511,   6.52150,    .44588,    .27476,
     +     .20029,    .37236,    .46505,
     +     .27308,    .15637,   6.54279,    .45188,    .28210,
     +     .20867,    .37897,    .47127,
     +     .27562,    .15754,   6.55450,    .45738,    .28886,
     +     .21637,    .38508,    .47696,
     +     .27801,    .15865,   6.56426,    .46254,    .29526,
     +     .22371,    .39081,    .48232,
     +     .28021,    .15965,   6.56590,    .46707,    .30091,
     +     .23017,    .39588,    .48701 /
        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.56631,    .47158,    .30658,
     +     .23669,    .40092,    .49168,
     +     .28454,    .16160,   6.56143,    .47575,    .31187,
     +     .24279,    .40561,    .49601,
     +     .28654,    .16248,   6.55419,    .47959,    .31678,
     +     .24847,    .40995,    .50000,
     +     .28841,    .16331,   6.54560,    .48312,    .32134,
     +     .25376,    .41396,    .50367,
     +     .29025,    .16412,   6.53208,    .48643,    .32565,
     +     .25876,    .41774,    .50711 /
        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,    .17959,    .00000,
     +     .00000,    .09251,    .19256,
     +     .21044,    .12596,   1.67059,    .18509,    .00000,
     +     .00000,    .09871,    .19853,
     +     .21635,    .12947,   2.11053,    .19402,    .00038,
     +     .00000,    .10868,    .20814,
     +     .22071,    .13199,   2.41232,    .20102,    .00363,
     +     .00000,    .11648,    .21564,
     +     .22521,    .13456,   2.68902,    .20875,    .01430,
     +     .00000,    .12503,    .22387,
     +     .22908,    .13673,   2.91382,    .21558,    .02298,
     +     .00000,    .13256,    .23112,
     +     .23281,    .13878,   3.12000,    .22224,    .03147,
     +     .00000,    .13990,    .23817,
     +     .23674,    .14093,   3.32792,    .22939,    .04071,
     +     .00000,    .14778,    .24574 /
        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,    .23561,    .04835,
     +     .00000,    .15463,    .25232,
     +     .24336,    .14448,   3.64631,    .24163,    .05577,
     +     .00000,    .16126,    .25867,
     +     .24593,    .14584,   3.76264,    .24641,    .06181,
     +     .00000,    .16654,    .26372,
     +     .25127,    .14862,   3.99435,    .25658,    .07432,
     +     .00000,    .17773,    .27443,
     +     .25575,    .15092,   4.14972,    .26515,    .08482,
     +     .00367,    .18717,    .28342,
     +     .26069,    .15341,   4.29849,    .27453,    .09638,
     +     .01891,    .19753,    .29328,
     +     .26572,    .15590,   4.43436,    .28398,    .10806,
     +     .03251,    .20799,    .30318,
     +     .27017,    .15808,   4.54119,    .29223,    .11832,
     +     .04448,    .21717,    .31186 /
        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.63473,    .30028,    .12837,
     +     .05617,    .22614,    .32030,
     +     .27813,    .16191,   4.70072,    .30669,    .13639,
     +     .06540,    .23328,    .32701,
     +     .28234,    .16389,   4.76777,    .31409,    .14571,
     +     .07611,    .24160,    .33479,
     +     .28598,    .16558,   4.81779,    .32040,    .15372,
     +     .08539,    .24869,    .34140,
     +     .28925,    .16709,   4.85644,    .32595,    .16084,
     +     .09367,    .25497,    .34722,
     +     .29327,    .16890,   4.89256,    .33256,    .16935,
     +     .10350,    .26249,    .35416,
     +     .29694,    .17054,   4.91779,    .33847,    .17705,
     +     .11244,    .26924,    .36035,
     +     .30032,    .17204,   4.93527,    .34376,    .18405,
     +     .12064,    .27532,    .36592 /
        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.94251,    .34864,    .19053,
     +     .12818,    .28097,    .37102,
     +     .30665,    .17476,   4.94496,    .35318,    .19668,
     +     .13539,    .28626,    .37579,
     +     .30953,    .17598,   4.94247,    .35724,    .20227,
     +     .14198,    .29104,    .38006,
     +     .31212,    .17706,   4.93425,    .36078,    .20719,
     +     .14778,    .29523,    .38379,
     +     .31471,    .17813,   4.92416,    .36423,    .21206,
     +     .15357,    .29932,    .38741,
     +     .31715,    .17911,   4.90813,    .36729,    .21647,
     +     .15881,    .30303,    .39063,
     +     .31944,    .18003,   4.89226,    .37013,    .22063,
     +     .16379,    .30647,    .39362,
     +     .32151,    .18085,   4.87236,    .37254,    .22425,
     +     .16813,    .30945,    .39617 /
        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.85176,    .37490,    .22784,
     +     .17247,    .31238,    .39867,
     +     .32557,    .18241,   4.82810,    .37703,    .23115,
     +     .17650,    .31506,    .40090,
     +     .32742,    .18311,   4.80405,    .37894,    .23420,
     +     .18021,    .31749,    .40293,
     +     .32915,    .18375,   4.78034,    .38066,    .23700,
     +     .18366,    .31972,    .40475,
     +     .33082,    .18436,   4.75347,    .38219,    .23961,
     +     .18688,    .32175,    .40639 /
        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,    .16045,    .00000,
     +     .00000,    .08085,    .17831,
     +     .25684,    .15423,   1.79822,    .16476,    .00000,
     +     .00000,    .08600,    .18323,
     +     .26406,    .15822,   2.13525,    .17165,   -.00448,
     +     .00000,    .09414,    .19100,
     +     .26928,    .16100,   2.35126,    .17698,   -.00172,
     +     .00000,    .10040,    .19694,
     +     .27460,    .16379,   2.54097,    .18281,    .00705,
     +     .00000,    .10719,    .20336,
     +     .27913,    .16611,   2.69046,    .18787,    .01410,
     +     .00000,    .11310,    .20891,
     +     .28342,    .16828,   2.82371,    .19275,    .02090,
     +     .00000,    .11877,    .21423,
     +     .28792,    .17050,   2.95426,    .19790,    .02822,
     +     .00000,    .12477,    .21985 /
        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.05559,    .20232,    .03420,
     +     .00000,    .12992,    .22465,
     +     .29537,    .17411,   3.14494,    .20653,    .03995,
     +     .00000,    .13484,    .22921,
     +     .29821,    .17547,   3.21203,    .20985,    .04458,
     +     .00000,    .13871,    .23281,
     +     .30407,    .17823,   3.34146,    .21678,    .05406,
     +     .00000,    .14681,    .24027,
     +     .30891,    .18041,   3.42374,    .22248,    .06188,
     +    -.00045,    .15351,    .24641,
     +     .31414,    .18274,   3.48939,    .22859,    .07036,
     +     .01100,    .16074,    .25295,
     +     .31939,    .18504,   3.54337,    .23458,    .07879,
     +     .02109,    .16786,    .25938,
     +     .32397,    .18700,   3.58035,    .23969,    .08607,
     +     .02983,    .17399,    .26484 /
        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.60758,    .24454,    .09311,
     +     .03827,    .17985,    .27004,
     +     .33202,    .19031,   3.62226,    .24830,    .09863,
     +     .04483,    .18445,    .27405,
     +     .33619,    .19197,   3.63134,    .25254,    .10496,
     +     .05237,    .18967,    .27858,
     +     .33974,    .19335,   3.63335,    .25604,    .11031,
     +     .05881,    .19404,    .28232,
     +     .34289,    .19457,   3.63065,    .25906,    .11502,
     +     .06450,    .19785,    .28554,
     +     .34669,    .19598,   3.61917,    .26251,    .12053,
     +     .07115,    .20229,    .28922,
     +     .35012,    .19722,   3.60324,    .26548,    .12545,
     +     .07714,    .20617,    .29238,
     +     .35323,    .19832,   3.58490,    .26807,    .12986,
     +     .08254,    .20960,    .29514 /
        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,    .27030,    .13386,
     +     .08745,    .21266,    .29753,
     +     .35892,    .20023,   3.53453,    .27233,    .13760,
     +     .09210,    .21549,    .29968,
     +     .36143,    .20105,   3.50734,    .27407,    .14094,
     +     .09627,    .21797,    .30152,
     +     .36368,    .20175,   3.47859,    .27547,    .14384,
     +     .09993,    .22007,    .30302,
     +     .36588,    .20241,   3.44912,    .27678,    .14667,
     +     .10352,    .22208,    .30443,
     +     .36790,    .20299,   3.41683,    .27785,    .14918,
     +     .10673,    .22382,    .30557,
     +     .36980,    .20352,   3.38624,    .27882,    .15152,
     +     .10976,    .22541,    .30659,
     +     .37146,    .20397,   3.35477,    .27952,    .15350,
     +     .11234,    .22670,    .30734 /
        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,    .28019,    .15545,
     +     .11491,    .22794,    .30803,
     +     .37466,    .20477,   3.29039,    .28069,    .15722,
     +     .11727,    .22902,    .30857,
     +     .37607,    .20510,   3.25867,    .28109,    .15880,
     +     .11942,    .22997,    .30899,
     +     .37739,    .20540,   3.22839,    .28141,    .16025,
     +     .12139,    .23080,    .30934,
     +     .37862,    .20564,   3.19635,    .28160,    .16155,
     +     .12320,    .23149,    .30953 /
        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.67238,    .14517,    .00000,
     +     .00000,    .07173,    .16721,
     +     .29572,    .17694,   1.86071,    .14871,    .00000,
     +     .00000,    .07627,    .17151,
     +     .30405,    .18118,   2.12010,    .15430,   -.00776,
     +     .00000,    .08330,    .17808,
     +     .30993,    .18406,   2.27464,    .15853,   -.00521,
     +     .00000,    .08861,    .18298,
     +     .31585,    .18688,   2.40409,    .16311,    .00235,
     +     .00000,    .09427,    .18820,
     +     .32081,    .18919,   2.50291,    .16701,    .00835,
     +     .00000,    .09913,    .19260,
     +     .32547,    .19132,   2.58842,    .17072,    .01410,
     +     .00000,    .10372,    .19676,
     +     .33029,    .19349,   2.66954,    .17458,    .02019,
     +     .00000,    .10854,    .20110 /
        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,    .17785,    .02513,
     +     .00000,    .11261,    .20473,
     +     .33815,    .19690,   2.78120,    .18091,    .02984,
     +     .00000,    .11645,    .20811,
     +     .34112,    .19817,   2.81862,    .18330,    .03360,
     +     .00000,    .11945,    .21075,
     +     .34717,    .20065,   2.88771,    .18822,    .04121,
     +     .00000,    .12564,    .21616,
     +     .35202,    .20258,   2.92796,    .19215,    .04741,
     +    -.00256,    .13066,    .22046,
     +     .35723,    .20457,   2.94760,    .19627,    .05405,
     +     .00656,    .13597,    .22495,
     +     .36236,    .20649,   2.95774,    .20020,    .06055,
     +     .01450,    .14112,    .22920,
     +     .36678,    .20806,   2.95847,    .20345,    .06609,
     +     .02132,    .14544,    .23271 /
        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.95218,    .20644,    .07137,
     +     .02782,    .14951,    .23594,
     +     .37436,    .21063,   2.94160,    .20868,    .07548,
     +     .03284,    .15263,    .23835,
     +     .37817,    .21185,   2.92301,    .21112,    .08011,
     +     .03853,    .15611,    .24096,
     +     .38138,    .21283,   2.90281,    .21306,    .08399,
     +     .04336,    .15895,    .24304,
     +     .38419,    .21365,   2.88158,    .21467,    .08735,
     +     .04757,    .16138,    .24474,
     +     .38751,    .21456,   2.84964,    .21640,    .09124,
     +     .05244,    .16412,    .24658,
     +     .39044,    .21531,   2.81674,    .21781,    .09466,
     +     .05679,    .16645,    .24806,
     +     .39305,    .21595,   2.78418,    .21897,    .09769,
     +     .06068,    .16846,    .24927 /
        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.74810,    .21985,    .10039,
     +     .06416,    .17019,    .25017,
     +     .39765,    .21692,   2.71183,    .22057,    .10288,
     +     .06743,    .17173,    .25091,
     +     .39964,    .21727,   2.67640,    .22110,    .10508,
     +     .07035,    .17302,    .25145,
     +     .40134,    .21754,   2.64137,    .22146,    .10695,
     +     .07286,    .17406,    .25177,
     +     .40298,    .21778,   2.60625,    .22173,    .10875,
     +     .07531,    .17503,    .25202,
     +     .40443,    .21793,   2.56996,    .22183,    .11032,
     +     .07748,    .17579,    .25207,
     +     .40578,    .21806,   2.53598,    .22189,    .11176,
     +     .07950,    .17646,    .25208,
     +     .40693,    .21811,   2.50249,    .22178,    .11295,
     +     .08121,    .17694,    .25192 /
        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,    .22165,    .11412,
     +     .08290,    .17739,    .25173,
     +     .40904,    .21812,   2.43565,    .22140,    .11513,
     +     .08441,    .17771,    .25142,
     +     .40993,    .21806,   2.40370,    .22110,    .11603,
     +     .08579,    .17796,    .25107,
     +     .41072,    .21799,   2.37355,    .22079,    .11684,
     +     .08705,    .17813,    .25069,
     +     .41143,    .21788,   2.34239,    .22036,    .11754,
     +     .08818,    .17821,    .25019 /
        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,    .12139,    .00000,
     +     .00000,    .05878,    .15183,
     +     .36182,    .21242,   1.85275,    .12393,    .00000,
     +     .00000,    .06252,    .15506,
     +     .37148,    .21653,   2.00327,    .12770,   -.01129,
     +     .00000,    .06804,    .15975,
     +     .37798,    .21920,   2.07690,    .13046,   -.00893,
     +     .00000,    .07206,    .16304,
     +     .38440,    .22169,   2.12980,    .13336,   -.00298,
     +     .00000,    .07621,    .16641,
     +     .38963,    .22365,   2.16607,    .13574,    .00169,
     +     .00000,    .07967,    .16916,
     +     .39443,    .22539,   2.19429,    .13794,    .00607,
     +     .00000,    .08286,    .17165,
     +     .39931,    .22708,   2.21771,    .14016,    .01062,
     +     .00000,    .08613,    .17413 /
        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,    .14195,    .01426,
     +     .00000,    .08881,    .17614,
     +     .40697,    .22959,   2.24018,    .14359,    .01767,
     +     .00000,    .09129,    .17793,
     +     .40980,    .23047,   2.24513,    .14485,    .02036,
     +     .00000,    .09321,    .17927,
     +     .41536,    .23209,   2.24978,    .14730,    .02572,
     +     .00000,    .09703,    .18191,
     +     .41965,    .23319,   2.24622,    .14916,    .02998,
     +    -.00433,    .10002,    .18386,
     +     .42405,    .23423,   2.22100,    .15098,    .03445,
     +     .00197,    .10306,    .18572,
     +     .42823,    .23511,   2.18989,    .15256,    .03873,
     +     .00738,    .10589,    .18729,
     +     .43166,    .23572,   2.15787,    .15375,    .04230,
     +     .01194,    .10819,    .18843 /
        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.12271,    .15472,    .04563,
     +     .01622,    .11023,    .18932,
     +     .43719,    .23645,   2.09135,    .15534,    .04816,
     +     .01946,    .11172,    .18985,
     +     .43975,    .23662,   2.05113,    .15591,    .05098,
     +     .02310,    .11330,    .19026,
     +     .44180,    .23667,   2.01453,    .15624,    .05328,
     +     .02613,    .11453,    .19044,
     +     .44350,    .23664,   1.98034,    .15643,    .05523,
     +     .02873,    .11550,    .19047,
     +     .44535,    .23643,   1.93530,    .15646,    .05745,
     +     .03170,    .11650,    .19029,
     +     .44687,    .23614,   1.89261,    .15633,    .05933,
     +     .03429,    .11727,    .18994,
     +     .44811,    .23581,   1.85272,    .15612,    .06097,
     +     .03658,    .11786,    .18950 /
        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.81184,    .15573,    .06238,
     +     .03859,    .11827,    .18887,
     +     .44990,    .23482,   1.77228,    .15526,    .06365,
     +     .04044,    .11856,    .18816,
     +     .45051,    .23428,   1.73509,    .15474,    .06474,
     +     .04207,    .11872,    .18739,
     +     .45091,    .23370,   1.69984,    .15416,    .06564,
     +     .04344,    .11877,    .18657,
     +     .45124,    .23307,   1.66514,    .15353,    .06648,
     +     .04477,    .11878,    .18569,
     +     .45139,    .23239,   1.63076,    .15280,    .06717,
     +     .04591,    .11867,    .18471,
     +     .45148,    .23173,   1.59893,    .15209,    .06779,
     +     .04696,    .11854,    .18377,
     +     .45140,    .23102,   1.56862,    .15135,    .06827,
     +     .04784,    .11831,    .18278 /
        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.53877,    .15058,    .06873,
     +     .04868,    .11806,    .18177,
     +     .45107,    .22956,   1.50942,    .14976,    .06910,
     +     .04943,    .11774,    .18071,
     +     .45079,    .22882,   1.48186,    .14896,    .06942,
     +     .05009,    .11742,    .17967,
     +     .45049,    .22809,   1.45614,    .14817,    .06968,
     +     .05068,    .11708,    .17866,
     +     .45005,    .22732,   1.43017,    .14732,    .06988,
     +     .05119,    .11667,    .17759 /
        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.69918,    .10281,    .00000,
     +     .00000,    .04985,    .14011,
     +     .41697,    .23872,   1.75121,    .10458,    .00000,
     +     .00000,    .05294,    .14236,
     +     .42700,    .24221,   1.83186,    .10714,   -.01238,
     +     .00000,    .05736,    .14537,
     +     .43352,    .24427,   1.85746,    .10892,   -.01020,
     +     .00000,    .06042,    .14739,
     +     .43976,    .24609,   1.86678,    .11072,   -.00534,
     +     .00000,    .06354,    .14934,
     +     .44469,    .24741,   1.86873,    .11215,   -.00157,
     +     .00000,    .06605,    .15083,
     +     .44909,    .24851,   1.86643,    .11342,    .00191,
     +     .00000,    .06833,    .15210,
     +     .45343,    .24952,   1.86000,    .11464,    .00547,
     +     .00000,    .07058,    .15330 /
        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.85041,    .11556,    .00828,
     +     .00000,    .07241,    .15416,
     +     .45999,    .25073,   1.83852,    .11638,    .01089,
     +     .00000,    .07405,    .15489,
     +     .46230,    .25110,   1.82807,    .11697,    .01292,
     +     .00000,    .07528,    .15540,
     +     .46667,    .25162,   1.80306,    .11809,    .01693,
     +     .00000,    .07771,    .15625,
     +     .46980,    .25174,   1.78009,    .11881,    .02005,
     +    -.00467,    .07953,    .15671,
     +     .47281,    .25167,   1.73734,    .11942,    .02328,
     +    -.00005,    .08131,    .15697,
     +     .47543,    .25138,   1.69138,    .11981,    .02631,
     +     .00387,    .08286,    .15696,
     +     .47740,    .25093,   1.64854,    .11998,    .02880,
     +     .00714,    .08403,    .15673 /
        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,    .11997,    .03107,
     +     .01015,    .08502,    .15630,
     +     .48006,    .24968,   1.56795,    .11984,    .03278,
     +     .01242,    .08567,    .15580,
     +     .48101,    .24878,   1.52310,    .11952,    .03464,
     +     .01493,    .08630,    .15503,
     +     .48160,    .24788,   1.48374,    .11914,    .03613,
     +     .01699,    .08672,    .15424,
     +     .48193,    .24697,   1.44802,    .11871,    .03738,
     +     .01874,    .08699,    .15343,
     +     .48203,    .24569,   1.40271,    .11803,    .03876,
     +     .02072,    .08718,    .15223,
     +     .48186,    .24441,   1.36091,    .11730,    .03991,
     +     .02242,    .08724,    .15100,
     +     .48153,    .24314,   1.32265,    .11655,    .04089,
     +     .02389,    .08720,    .14979 /
        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,    .11569,    .04171,
     +     .02518,    .08704,    .14845,
     +     .48014,    .24038,   1.24834,    .11481,    .04242,
     +     .02634,    .08681,    .14709,
     +     .47928,    .23901,   1.21478,    .11392,    .04302,
     +     .02734,    .08652,    .14578,
     +     .47829,    .23765,   1.18359,    .11302,    .04348,
     +     .02818,    .08619,    .14445,
     +     .47723,    .23628,   1.15320,    .11211,    .04391,
     +     .02898,    .08582,    .14312,
     +     .47600,    .23486,   1.12361,    .11114,    .04423,
     +     .02965,    .08538,    .14174,
     +     .47481,    .23350,   1.09641,    .11023,    .04453,
     +     .03026,    .08495,    .14043,
     +     .47350,    .23217,   1.07092,    .10932,    .04473,
     +     .03076,    .08449,    .13915 /
        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,    .10839,    .04492,
     +     .03124,    .08400,    .13785,
     +     .47072,    .22946,   1.02174,    .10745,    .04504,
     +     .03164,    .08349,    .13654,
     +     .46931,    .22814,    .99916,    .10654,    .04513,
     +     .03200,    .08297,    .13528,
     +     .46790,    .22688,    .97826,    .10567,    .04520,
     +     .03230,    .08247,    .13409,
     +     .46640,    .22556,    .95736,    .10477,    .04522,
     +     .03256,    .08194,    .13285 /
        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.59118,    .08768,    .00000,
     +     .00000,    .04322,    .13000,
     +     .46437,    .25873,   1.60835,    .08887,    .00000,
     +     .00000,    .04574,    .13127,
     +     .47406,    .26120,   1.64372,    .09050,   -.01226,
     +     .00000,    .04920,    .13278,
     +     .48005,    .26247,   1.64048,    .09159,   -.01027,
     +     .00000,    .05152,    .13366,
     +     .48557,    .26341,   1.62478,    .09265,   -.00625,
     +     .00000,    .05383,    .13445,
     +     .48976,    .26395,   1.60766,    .09343,   -.00316,
     +     .00000,    .05563,    .13495,
     +     .49337,    .26426,   1.58894,    .09408,   -.00035,
     +     .00000,    .05723,    .13527,
     +     .49680,    .26440,   1.56693,    .09466,    .00251,
     +     .00000,    .05878,    .13546 /
        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.54551,    .09507,    .00475,
     +     .00000,    .06001,    .13549,
     +     .50152,    .26420,   1.52352,    .09538,    .00679,
     +     .00000,    .06108,    .13543,
     +     .50308,    .26400,   1.50574,    .09558,    .00838,
     +     .00000,    .06186,    .13534,
     +     .50583,    .26328,   1.46714,    .09586,    .01147,
     +     .00000,    .06334,    .13498,
     +     .50738,    .26239,   1.43597,    .09596,    .01384,
     +    -.00452,    .06441,    .13443,
     +     .50862,    .26116,   1.38741,    .09590,    .01625,
     +    -.00102,    .06539,    .13364,
     +     .50938,    .25966,   1.33732,    .09563,    .01849,
     +     .00193,    .06617,    .13264,
     +     .50960,    .25814,   1.29233,    .09525,    .02031,
     +     .00437,    .06669,    .13157 /
        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,    .09476,    .02194,
     +     .00659,    .06705,    .13036,
     +     .50898,    .25500,   1.21106,    .09428,    .02315,
     +     .00825,    .06726,    .12925,
     +     .50810,    .25306,   1.16748,    .09355,    .02444,
     +     .01005,    .06734,    .12782,
     +     .50707,    .25127,   1.12994,    .09285,    .02547,
     +     .01153,    .06732,    .12649,
     +     .50592,    .24958,   1.09640,    .09216,    .02632,
     +     .01277,    .06723,    .12521,
     +     .50415,    .24729,   1.05466,    .09117,    .02723,
     +     .01415,    .06703,    .12351,
     +     .50224,    .24509,   1.01672,    .09021,    .02798,
     +     .01533,    .06672,    .12185,
     +     .50025,    .24301,    .98245,    .08928,    .02860,
     +     .01634,    .06639,    .12026 /
        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,    .08826,    .02910,
     +     .01720,    .06597,    .11862,
     +     .49569,    .23868,    .91726,    .08724,    .02952,
     +     .01798,    .06551,    .11699,
     +     .49335,    .23661,    .88829,    .08627,    .02987,
     +     .01864,    .06503,    .11544,
     +     .49100,    .23460,    .86166,    .08531,    .03012,
     +     .01918,    .06454,    .11393,
     +     .48860,    .23259,    .83587,    .08434,    .03034,
     +     .01969,    .06403,    .11243,
     +     .48605,    .23055,    .81106,    .08335,    .03050,
     +     .02012,    .06348,    .11091,
     +     .48361,    .22863,    .78836,    .08242,    .03063,
     +     .02049,    .06295,    .10950,
     +     .48115,    .22677,    .76730,    .08150,    .03071,
     +     .02079,    .06242,    .10814 /
        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,    .08060,    .03077,
     +     .02108,    .06186,    .10679,
     +     .47611,    .22303,    .72702,    .07968,    .03079,
     +     .02132,    .06131,    .10543,
     +     .47363,    .22125,    .70870,    .07880,    .03079,
     +     .02152,    .06076,    .10414,
     +     .47125,    .21956,    .69181,    .07798,    .03077,
     +     .02169,    .06024,    .10292,
     +     .46874,    .21783,    .67506,    .07713,    .03073,
     +     .02183,    .05970,    .10168 /
        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.42586,    .07203,    .00000,
     +     .00000,    .03657,    .11753,
     +     .51400,    .27614,   1.41655,    .07277,    .00000,
     +     .00000,    .03847,    .11765,
     +     .52218,    .27696,   1.41695,    .07365,   -.01136,
     +     .00000,    .04098,    .11760,
     +     .52683,    .27702,   1.39347,    .07418,   -.00960,
     +     .00000,    .04258,    .11738,
     +     .53077,    .27671,   1.36114,    .07468,   -.00639,
     +     .00000,    .04416,    .11703,
     +     .53351,    .27615,   1.33177,    .07496,   -.00393,
     +     .00000,    .04534,    .11660,
     +     .53562,    .27543,   1.30291,    .07517,   -.00172,
     +     .00000,    .04636,    .11608,
     +     .53739,    .27448,   1.27173,    .07529,    .00048,
     +     .00000,    .04730,    .11543 /
        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,    .07531,    .00220,
     +     .00000,    .04800,    .11476,
     +     .53922,    .27237,   1.21650,    .07529,    .00376,
     +     .00000,    .04860,    .11406,
     +     .53961,    .27145,   1.19508,    .07523,    .00495,
     +     .00000,    .04904,    .11344,
     +     .53982,    .26925,   1.15026,    .07496,    .00725,
     +     .00000,    .04981,    .11208,
     +     .53922,    .26705,   1.11578,    .07461,    .00899,
     +    -.00402,    .05028,    .11081,
     +     .53798,    .26446,   1.06697,    .07413,    .01075,
     +    -.00146,    .05065,    .10925,
     +     .53613,    .26160,   1.01797,    .07348,    .01234,
     +     .00068,    .05087,    .10753,
     +     .53403,    .25886,    .97506,    .07278,    .01360,
     +     .00241,    .05093,    .10589 /
        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,    .07203,    .01474,
     +     .00399,    .05087,    .10417,
     +     .52915,    .25354,    .89974,    .07134,    .01555,
     +     .00515,    .05074,    .10270,
     +     .52595,    .25049,    .86044,    .07043,    .01641,
     +     .00640,    .05049,    .10087,
     +     .52290,    .24774,    .82709,    .06959,    .01708,
     +     .00741,    .05021,    .09922,
     +     .51994,    .24518,    .79767,    .06878,    .01763,
     +     .00826,    .04991,    .09771,
     +     .51587,    .24189,    .76162,    .06772,    .01820,
     +     .00918,    .04944,    .09575,
     +     .51184,    .23876,    .72930,    .06669,    .01866,
     +     .00996,    .04895,    .09389,
     +     .50795,    .23582,    .70040,    .06572,    .01902,
     +     .01061,    .04845,    .09216 /
        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,    .06469,    .01930,
     +     .01116,    .04791,    .09042,
     +     .49969,    .22989,    .64644,    .06369,    .01953,
     +     .01166,    .04736,    .08872,
     +     .49572,    .22712,    .62278,    .06273,    .01971,
     +     .01207,    .04682,    .08713,
     +     .49181,    .22448,    .60126,    .06181,    .01982,
     +     .01240,    .04626,    .08562,
     +     .48787,    .22185,    .58056,    .06090,    .01992,
     +     .01270,    .04571,    .08411,
     +     .48384,    .21925,    .56081,    .06000,    .01998,
     +     .01295,    .04514,    .08264,
     +     .48003,    .21680,    .54285,    .05915,    .02001,
     +     .01318,    .04461,    .08126,
     +     .47632,    .21445,    .52634,    .05831,    .02002,
     +     .01335,    .04408,    .07996 /
        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,    .05748,    .02001,
     +     .01350,    .04356,    .07866,
     +     .46886,    .20978,    .49502,    .05666,    .01997,
     +     .01362,    .04302,    .07739,
     +     .46526,    .20757,    .48091,    .05590,    .01993,
     +     .01373,    .04251,    .07620,
     +     .46182,    .20549,    .46796,    .05517,    .01988,
     +     .01381,    .04201,    .07507,
     +     .45828,    .20339,    .45522,    .05443,    .01981,
     +     .01388,    .04152,    .07392 /
        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,    .05939,    .00000,
     +     .00000,    .03104,    .10483,
     +     .55480,    .28698,   1.23146,    .05974,    .00000,
     +     .00000,    .03245,    .10413,
     +     .56048,    .28597,   1.21177,    .06015,   -.01019,
     +     .00000,    .03422,    .10285,
     +     .56315,    .28470,   1.17816,    .06037,   -.00865,
     +     .00000,    .03535,    .10179,
     +     .56504,    .28300,   1.13831,    .06047,   -.00605,
     +     .00000,    .03639,    .10072,
     +     .56591,    .28127,   1.10385,    .06048,   -.00408,
     +     .00000,    .03713,    .09967,
     +     .56622,    .27947,   1.07112,    .06043,   -.00232,
     +     .00000,    .03775,    .09857,
     +     .56601,    .27739,   1.03679,    .06031,   -.00059,
     +     .00000,    .03832,    .09735 /
        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,    .06009,    .00076,
     +     .00000,    .03870,    .09629,
     +     .56447,    .27344,    .97859,    .05986,    .00197,
     +     .00000,    .03900,    .09518,
     +     .56354,    .27184,    .95655,    .05968,    .00288,
     +     .00000,    .03920,    .09429,
     +     .56096,    .26818,    .91135,    .05914,    .00463,
     +     .00000,    .03949,    .09241,
     +     .55798,    .26489,    .87725,    .05861,    .00595,
     +    -.00347,    .03963,    .09072,
     +     .55415,    .26104,    .83155,    .05792,    .00725,
     +    -.00156,    .03965,    .08878,
     +     .54963,    .25694,    .78645,    .05714,    .00842,
     +     .00003,    .03954,    .08672,
     +     .54514,    .25316,    .74756,    .05635,    .00933,
     +     .00131,    .03936,    .08485 /
        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,    .05548,    .01013,
     +     .00245,    .03910,    .08293,
     +     .53606,    .24603,    .68068,    .05474,    .01070,
     +     .00328,    .03883,    .08132,
     +     .53061,    .24205,    .64640,    .05381,    .01130,
     +     .00418,    .03841,    .07940,
     +     .52564,    .23853,    .61766,    .05297,    .01176,
     +     .00489,    .03801,    .07768,
     +     .52094,    .23531,    .59254,    .05217,    .01211,
     +     .00548,    .03763,    .07610,
     +     .51476,    .23116,    .56209,    .05114,    .01249,
     +     .00612,    .03707,    .07415,
     +     .50884,    .22729,    .53504,    .05014,    .01277,
     +     .00665,    .03652,    .07234,
     +     .50322,    .22369,    .51107,    .04921,    .01300,
     +     .00710,    .03598,    .07065 /
        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,    .04827,    .01316,
     +     .00746,    .03543,    .06898,
     +     .49171,    .21658,    .46688,    .04735,    .01329,
     +     .00778,    .03487,    .06738,
     +     .48625,    .21329,    .44773,    .04649,    .01338,
     +     .00806,    .03432,    .06588,
     +     .48102,    .21020,    .43046,    .04568,    .01343,
     +     .00827,    .03380,    .06448,
     +     .47578,    .20714,    .41394,    .04487,    .01346,
     +     .00846,    .03329,    .06310,
     +     .47054,    .20412,    .39832,    .04405,    .01346,
     +     .00860,    .03276,    .06177,
     +     .46562,    .20129,    .38414,    .04330,    .01347,
     +     .00874,    .03227,    .06052,
     +     .46086,    .19861,    .37121,    .04257,    .01344,
     +     .00884,    .03179,    .05936 /
        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,    .35871,    .04187,    .01341,
     +     .00893,    .03130,    .05821,
     +     .45138,    .19332,    .34684,    .04117,    .01335,
     +     .00899,    .03083,    .05708,
     +     .44688,    .19086,    .33594,    .04052,    .01330,
     +     .00905,    .03038,    .05602,
     +     .44262,    .18855,    .32598,    .03990,    .01324,
     +     .00908,    .02995,    .05502,
     +     .43825,    .18621,    .31622,    .03929,    .01316,
     +     .00911,    .02952,    .05403 /
        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.09521,    .04915,    .00000,
     +     .00000,    .02621,    .09190,
     +     .58715,    .29251,   1.06311,    .04935,    .00000,
     +     .00000,    .02721,    .09052,
     +     .58962,    .28956,   1.03211,    .04948,   -.00901,
     +     .00000,    .02845,    .08841,
     +     .58992,    .28697,    .99396,    .04949,   -.00767,
     +     .00000,    .02920,    .08684,
     +     .58928,    .28395,    .95154,    .04945,   -.00554,
     +     .00000,    .02987,    .08518,
     +     .58801,    .28111,    .91573,    .04927,   -.00394,
     +     .00000,    .03031,    .08378,
     +     .58626,    .27826,    .88229,    .04906,   -.00251,
     +     .00000,    .03065,    .08242,
     +     .58390,    .27514,    .84783,    .04879,   -.00114,
     +     .00000,    .03093,    .08094 /
        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,    .04852,   -.00007,
     +     .00000,    .03110,    .07957,
     +     .57870,    .26952,    .79090,    .04820,    .00089,
     +     .00000,    .03122,    .07826,
     +     .57644,    .26724,    .76970,    .04790,    .00161,
     +     .00000,    .03127,    .07728,
     +     .57096,    .26235,    .72669,    .04723,    .00296,
     +     .00000,    .03129,    .07515,
     +     .56561,    .25802,    .69476,    .04661,    .00397,
     +    -.00296,    .03122,    .07330,
     +     .55919,    .25313,    .65339,    .04587,    .00495,
     +    -.00151,    .03104,    .07125,
     +     .55210,    .24800,    .61307,    .04503,    .00583,
     +    -.00030,    .03078,    .06912,
     +     .54538,    .24333,    .57872,    .04422,    .00650,
     +     .00065,    .03046,    .06722 /
        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,    .04336,    .00708,
     +     .00150,    .03008,    .06533,
     +     .53232,    .23475,    .52056,    .04265,    .00750,
     +     .00212,    .02973,    .06374,
     +     .52485,    .23003,    .49121,    .04175,    .00792,
     +     .00277,    .02927,    .06187,
     +     .51816,    .22589,    .46678,    .04093,    .00823,
     +     .00329,    .02885,    .06027,
     +     .51195,    .22212,    .44563,    .04018,    .00848,
     +     .00371,    .02844,    .05880,
     +     .50391,    .21738,    .42021,    .03923,    .00873,
     +     .00416,    .02789,    .05696,
     +     .49630,    .21299,    .39780,    .03834,    .00892,
     +     .00454,    .02736,    .05528,
     +     .48919,    .20893,    .37811,    .03750,    .00906,
     +     .00484,    .02684,    .05375 /
        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,    .03666,    .00914,
     +     .00509,    .02631,    .05225,
     +     .47491,    .20098,    .34222,    .03585,    .00922,
     +     .00531,    .02579,    .05081,
     +     .46824,    .19734,    .32683,    .03510,    .00926,
     +     .00549,    .02531,    .04947,
     +     .46194,    .19394,    .31300,    .03438,    .00928,
     +     .00563,    .02484,    .04825,
     +     .45569,    .19059,    .29985,    .03366,    .00928,
     +     .00575,    .02438,    .04706,
     +     .44947,    .18732,    .28751,    .03295,    .00927,
     +     .00585,    .02391,    .04589,
     +     .44364,    .18428,    .27635,    .03230,    .00924,
     +     .00592,    .02348,    .04482,
     +     .43809,    .18140,    .26621,    .03169,    .00921,
     +     .00599,    .02306,    .04382 /
        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,    .03108,    .00917,
     +     .00603,    .02265,    .04283,
     +     .42710,    .17574,    .24725,    .03050,    .00912,
     +     .00607,    .02225,    .04188,
     +     .42191,    .17312,    .23882,    .02994,    .00906,
     +     .00609,    .02188,    .04099,
     +     .41704,    .17066,    .23116,    .02942,    .00901,
     +     .00611,    .02152,    .04017,
     +     .41210,    .16819,    .22367,    .02890,    .00894,
     +     .00612,    .02115,    .03935 /
        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,    .04093,    .00000,
     +     .00000,    .02188,    .07886,
     +     .61159,    .29352,    .91358,    .04098,    .00000,
     +     .00000,    .02260,    .07714,
     +     .61036,    .28856,    .87649,    .04092,   -.00792,
     +     .00000,    .02347,    .07459,
     +     .60803,    .28464,    .83696,    .04080,   -.00674,
     +     .00000,    .02394,    .07276,
     +     .60466,    .28035,    .79455,    .04062,   -.00498,
     +     .00000,    .02433,    .07092,
     +     .60106,    .27648,    .75933,    .04036,   -.00366,
     +     .00000,    .02460,    .06934,
     +     .59715,    .27269,    .72687,    .04009,   -.00251,
     +     .00000,    .02478,    .06781,
     +     .59259,    .26859,    .69386,    .03972,   -.00139,
     +     .00000,    .02490,    .06619 /
        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,    .66610,    .03938,   -.00053,
     +     .00000,    .02492,    .06482,
     +     .58375,    .26144,    .64022,    .03900,    .00023,
     +     .00000,    .02491,    .06351,
     +     .58005,    .25864,    .62052,    .03869,    .00080,
     +     .00000,    .02489,    .06245,
     +     .57180,    .25264,    .58082,    .03797,    .00186,
     +     .00000,    .02477,    .06031,
     +     .56412,    .24749,    .55167,    .03734,    .00264,
     +    -.00249,    .02458,    .05850,
     +     .55527,    .24172,    .51495,    .03658,    .00340,
     +    -.00137,    .02432,    .05648,
     +     .54577,    .23577,    .47956,    .03574,    .00406,
     +    -.00045,    .02396,    .05446,
     +     .53697,    .23039,    .44974,    .03495,    .00456,
     +     .00027,    .02360,    .05267 /
        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,    .42167,    .03412,    .00499,
     +     .00091,    .02322,    .05090,
     +     .52039,    .22066,    .39982,    .03345,    .00529,
     +     .00136,    .02286,    .04947,
     +     .51113,    .21541,    .37498,    .03262,    .00559,
     +     .00185,    .02239,    .04776,
     +     .50292,    .21083,    .35450,    .03188,    .00582,
     +     .00223,    .02196,    .04629,
     +     .49540,    .20671,    .33687,    .03119,    .00599,
     +     .00253,    .02156,    .04498,
     +     .48579,    .20154,    .31582,    .03034,    .00616,
     +     .00286,    .02106,    .04337,
     +     .47682,    .19676,    .29744,    .02952,    .00627,
     +     .00312,    .02057,    .04191,
     +     .46851,    .19238,    .28137,    .02878,    .00637,
     +     .00334,    .02012,    .04058 /
        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,    .02804,    .00642,
     +     .00351,    .01964,    .03927,
     +     .45203,    .18396,    .25238,    .02734,    .00645,
     +     .00366,    .01919,    .03804,
     +     .44443,    .18011,    .24007,    .02666,    .00648,
     +     .00378,    .01877,    .03691,
     +     .43728,    .17654,    .22911,    .02605,    .00647,
     +     .00387,    .01836,    .03588,
     +     .43022,    .17303,    .21870,    .02545,    .00646,
     +     .00395,    .01795,    .03488,
     +     .42326,    .16963,    .20896,    .02485,    .00643,
     +     .00401,    .01756,    .03391,
     +     .41676,    .16648,    .20019,    .02430,    .00641,
     +     .00406,    .01719,    .03301,
     +     .41062,    .16352,    .19230,    .02378,    .00638,
     +     .00410,    .01685,    .03217 /
        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,    .02327,    .00633,
     +     .00412,    .01651,    .03137,
     +     .39853,    .15773,    .17763,    .02277,    .00629,
     +     .00415,    .01618,    .03058,
     +     .39287,    .15506,    .17114,    .02232,    .00624,
     +     .00416,    .01585,    .02985,
     +     .38757,    .15257,    .16523,    .02190,    .00619,
     +     .00416,    .01556,    .02918,
     +     .38220,    .15008,    .15951,    .02146,    .00614,
     +     .00416,    .01528,    .02850 /
        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,    .03430,    .00000,
     +     .00000,    .01802,    .06626,
     +     .62853,    .29051,    .78155,    .03428,    .00000,
     +     .00000,    .01858,    .06435,
     +     .62323,    .28372,    .74160,    .03404,   -.00692,
     +     .00000,    .01920,    .06168,
     +     .61808,    .27857,    .70248,    .03380,   -.00589,
     +     .00000,    .01949,    .05985,
     +     .61193,    .27307,    .66156,    .03353,   -.00442,
     +     .00000,    .01974,    .05796,
     +     .60598,    .26827,    .62799,    .03322,   -.00333,
     +     .00000,    .01987,    .05637,
     +     .59988,    .26365,    .59743,    .03288,   -.00238,
     +     .00000,    .01995,    .05486,
     +     .59306,    .25874,    .56661,    .03249,   -.00147,
     +     .00000,    .01995,    .05330 /
        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,    .54096,    .03209,   -.00078,
     +     .00000,    .01995,    .05194,
     +     .58066,    .25030,    .51732,    .03169,   -.00017,
     +     .00000,    .01988,    .05064,
     +     .57565,    .24703,    .49941,    .03138,    .00028,
     +     .00000,    .01981,    .04968,
     +     .56471,    .24014,    .46365,    .03066,    .00112,
     +     .00000,    .01956,    .04768,
     +     .55498,    .23426,    .43759,    .03000,    .00174,
     +    -.00208,    .01932,    .04601,
     +     .54388,    .22781,    .40543,    .02925,    .00232,
     +    -.00122,    .01903,    .04420,
     +     .53224,    .22122,    .37478,    .02845,    .00282,
     +    -.00051,    .01865,    .04235,
     +     .52162,    .21536,    .34917,    .02770,    .00321,
     +     .00004,    .01830,    .04074 /
        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,    .32533,    .02697,    .00352,
     +     .00052,    .01790,    .03916,
     +     .50199,    .20484,    .30692,    .02632,    .00375,
     +     .00088,    .01755,    .03793,
     +     .49121,    .19920,    .28615,    .02556,    .00397,
     +     .00123,    .01713,    .03643,
     +     .48176,    .19436,    .26914,    .02490,    .00413,
     +     .00151,    .01674,    .03516,
     +     .47319,    .19001,    .25459,    .02427,    .00424,
     +     .00173,    .01638,    .03405,
     +     .46232,    .18460,    .23734,    .02351,    .00436,
     +     .00197,    .01591,    .03266,
     +     .45225,    .17964,    .22238,    .02281,    .00444,
     +     .00216,    .01547,    .03142,
     +     .44298,    .17510,    .20939,    .02216,    .00450,
     +     .00232,    .01508,    .03029 /
        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,    .02150,    .00453,
     +     .00243,    .01468,    .02923,
     +     .42483,    .16643,    .18626,    .02090,    .00455,
     +     .00254,    .01429,    .02820,
     +     .41652,    .16252,    .17645,    .02034,    .00455,
     +     .00262,    .01394,    .02727,
     +     .40877,    .15891,    .16780,    .01984,    .00454,
     +     .00268,    .01359,    .02641,
     +     .40113,    .15539,    .15962,    .01934,    .00452,
     +     .00273,    .01325,    .02557,
     +     .39370,    .15194,    .15201,    .01883,    .00450,
     +     .00277,    .01292,    .02480,
     +     .38678,    .14875,    .14523,    .01835,    .00447,
     +     .00280,    .01261,    .02409,
     +     .38024,    .14579,    .13911,    .01792,    .00444,
     +     .00282,    .01233,    .02341 /
        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,    .01750,    .00441,
     +     .00284,    .01205,    .02274,
     +     .36745,    .14006,    .12778,    .01709,    .00436,
     +     .00285,    .01177,    .02212,
     +     .36151,    .13742,    .12280,    .01670,    .00432,
     +     .00285,    .01151,    .02155,
     +     .35596,    .13496,    .11831,    .01635,    .00428,
     +     .00285,    .01127,    .02101,
     +     .35038,    .13250,    .11397,    .01599,    .00424,
     +     .00285,    .01103,    .02049 /
        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,    .70225,    .02858,    .00000,
     +     .00000,    .01485,    .05467,
     +     .63838,    .28400,    .66468,    .02856,    .00000,
     +     .00000,    .01521,    .05274,
     +     .62876,    .27557,    .62403,    .02831,   -.00601,
     +     .00000,    .01556,    .05013,
     +     .62069,    .26937,    .58649,    .02808,   -.00510,
     +     .00000,    .01576,    .04830,
     +     .61164,    .26293,    .54801,    .02776,   -.00388,
     +     .00000,    .01592,    .04648,
     +     .60338,    .25733,    .51680,    .02744,   -.00298,
     +     .00000,    .01595,    .04497,
     +     .59517,    .25201,    .48861,    .02709,   -.00219,
     +     .00000,    .01593,    .04357,
     +     .58621,    .24644,    .46046,    .02668,   -.00145,
     +     .00000,    .01588,    .04211 /
        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,    .43727,    .02628,   -.00089,
     +     .00000,    .01579,    .04091,
     +     .57047,    .23693,    .41601,    .02587,   -.00040,
     +     .00000,    .01568,    .03979,
     +     .56426,    .23333,    .40001,    .02556,   -.00003,
     +     .00000,    .01556,    .03890,
     +     .55084,    .22578,    .36835,    .02489,    .00064,
     +     .00000,    .01532,    .03704,
     +     .53922,    .21944,    .34537,    .02425,    .00112,
     +    -.00172,    .01506,    .03558,
     +     .52624,    .21248,    .31767,    .02354,    .00157,
     +    -.00105,    .01474,    .03399,
     +     .51276,    .20543,    .29146,    .02279,    .00196,
     +    -.00051,    .01440,    .03239,
     +     .50060,    .19923,    .26981,    .02211,    .00226,
     +    -.00008,    .01405,    .03102 /
        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,    .02142,    .00250,
     +     .00029,    .01369,    .02967,
     +     .47845,    .18826,    .23446,    .02085,    .00266,
     +     .00055,    .01338,    .02860,
     +     .46649,    .18244,    .21732,    .02015,    .00281,
     +     .00081,    .01299,    .02736,
     +     .45607,    .17742,    .20336,    .01955,    .00293,
     +     .00102,    .01265,    .02631,
     +     .44666,    .17296,    .19144,    .01901,    .00301,
     +     .00118,    .01234,    .02540,
     +     .43485,    .16745,    .17753,    .01834,    .00310,
     +     .00136,    .01194,    .02426,
     +     .42397,    .16244,    .16552,    .01773,    .00315,
     +     .00150,    .01156,    .02324,
     +     .41401,    .15790,    .15513,    .01719,    .00319,
     +     .00161,    .01120,    .02233 /
        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,    .01662,    .00321,
     +     .00170,    .01088,    .02146,
     +     .39477,    .14918,    .13680,    .01610,    .00321,
     +     .00177,    .01058,    .02064,
     +     .38604,    .14528,    .12915,    .01562,    .00321,
     +     .00182,    .01028,    .01989,
     +     .37791,    .14171,    .12240,    .01517,    .00320,
     +     .00187,    .00999,    .01921,
     +     .36995,    .13823,    .11604,    .01473,    .00318,
     +     .00190,    .00971,    .01855,
     +     .36220,    .13486,    .11018,    .01432,    .00315,
     +     .00192,    .00944,    .01792,
     +     .35503,    .13174,    .10493,    .01393,    .00313,
     +     .00195,    .00920,    .01735,
     +     .34829,    .12885,    .10027,    .01357,    .00310,
     +     .00195,    .00897,    .01684 /
        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,    .01322,    .00307,
     +     .00196,    .00874,    .01634,
     +     .33518,    .12328,    .09164,    .01288,    .00304,
     +     .00197,    .00852,    .01583,
     +     .32913,    .12071,    .08788,    .01258,    .00301,
     +     .00197,    .00831,    .01536,
     +     .32348,    .11833,    .08447,    .01229,    .00297,
     +     .00196,    .00813,    .01494,
     +     .31782,    .11597,    .08121,    .01200,    .00294,
     +     .00196,    .00795,    .01455 /
        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,    .59757,    .02488,    .00000,
     +     .00000,    .01143,    .04346,
     +     .64053,    .27554,    .56094,    .02464,    .00000,
     +     .00000,    .01178,    .04184,
     +     .62680,    .26550,    .52093,    .02423,   -.00519,
     +     .00000,    .01212,    .03949,
     +     .61599,    .25835,    .48558,    .02389,   -.00439,
     +     .00000,    .01230,    .03789,
     +     .60444,    .25088,    .45007,    .02342,   -.00337,
     +     .00000,    .01243,    .03635,
     +     .59399,    .24463,    .42155,    .02304,   -.00261,
     +     .00000,    .01245,    .03501,
     +     .58387,    .23869,    .39602,    .02265,   -.00197,
     +     .00000,    .01242,    .03378,
     +     .57305,    .23251,    .37076,    .02220,   -.00136,
     +     .00000,    .01236,    .03252 /
        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,    .35015,    .02183,   -.00090,
     +     .00000,    .01226,    .03145,
     +     .55422,    .22231,    .33139,    .02140,   -.00050,
     +     .00000,    .01215,    .03048,
     +     .54697,    .21838,    .31738,    .02105,   -.00021,
     +     .00000,    .01205,    .02976,
     +     .53147,    .21034,    .28978,    .02037,    .00032,
     +     .00000,    .01181,    .02821,
     +     .51828,    .20360,    .26993,    .01974,    .00071,
     +    -.00141,    .01158,    .02698,
     +     .50369,    .19635,    .24638,    .01908,    .00106,
     +    -.00088,    .01130,    .02562,
     +     .48864,    .18907,    .22434,    .01838,    .00136,
     +    -.00046,    .01100,    .02429,
     +     .47524,    .18268,    .20630,    .01774,    .00158,
     +    -.00014,    .01068,    .02318 /
        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,    .18978,    .01709,    .00176,
     +     .00014,    .01034,    .02211,
     +     .45124,    .17145,    .17718,    .01657,    .00188,
     +     .00034,    .01009,    .02122,
     +     .43837,    .16554,    .16319,    .01596,    .00200,
     +     .00054,    .00975,    .02025,
     +     .42726,    .16052,    .15191,    .01543,    .00208,
     +     .00069,    .00946,    .01940,
     +     .41726,    .15606,    .14239,    .01497,    .00214,
     +     .00082,    .00920,    .01861,
     +     .40486,    .15054,    .13128,    .01436,    .00220,
     +     .00095,    .00887,    .01773,
     +     .39348,    .14555,    .12181,    .01384,    .00223,
     +     .00104,    .00858,    .01690,
     +     .38310,    .14105,    .11366,    .01337,    .00225,
     +     .00112,    .00831,    .01615 /
        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,    .01288,    .00227,
     +     .00118,    .00801,    .01551,
     +     .36318,    .13256,    .09939,    .01243,    .00227,
     +     .00123,    .00775,    .01486,
     +     .35425,    .12878,    .09347,    .01202,    .00226,
     +     .00127,    .00751,    .01427,
     +     .34596,    .12530,    .08828,    .01163,    .00225,
     +     .00130,    .00729,    .01376,
     +     .33786,    .12192,    .08344,    .01125,    .00224,
     +     .00133,    .00707,    .01324,
     +     .33001,    .11868,    .07898,    .01090,    .00221,
     +     .00134,    .00685,    .01277,
     +     .32275,    .11570,    .07501,    .01060,    .00219,
     +     .00135,    .00665,    .01234,
     +     .31596,    .11293,    .07148,    .01031,    .00217,
     +     .00136,    .00648,    .01192 /
        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,    .01002,    .00214,
     +     .00136,    .00630,    .01152,
     +     .30282,    .10761,    .06503,    .00974,    .00212,
     +     .00136,    .00613,    .01115,
     +     .29678,    .10519,    .06221,    .00949,    .00209,
     +     .00136,    .00598,    .01081,
     +     .29117,    .10294,    .05969,    .00924,    .00206,
     +     .00136,    .00582,    .01050,
     +     .28559,    .10069,    .05726,    .00900,    .00204,
     +     .00135,    .00568,    .01020 /
        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,    .02085,    .00000,
     +     .00000,    .00910,    .03429,
     +     .63699,    .26377,    .46734,    .02064,    .00000,
     +     .00000,    .00941,    .03276,
     +     .61903,    .25258,    .42922,    .02019,   -.00443,
     +     .00000,    .00965,    .03076,
     +     .60564,    .24462,    .39681,    .01981,   -.00373,
     +     .00000,    .00976,    .02937,
     +     .59137,    .23665,    .36474,    .01940,   -.00288,
     +     .00000,    .00978,    .02803,
     +     .57895,    .22986,    .33925,    .01900,   -.00226,
     +     .00000,    .00976,    .02690,
     +     .56702,    .22354,    .31663,    .01861,   -.00173,
     +     .00000,    .00972,    .02588,
     +     .55442,    .21700,    .29446,    .01818,   -.00124,
     +     .00000,    .00962,    .02482 /
        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,    .27645,    .01775,   -.00086,
     +     .00000,    .00955,    .02395,
     +     .53310,    .20611,    .26023,    .01736,   -.00054,
     +     .00000,    .00943,    .02314,
     +     .52489,    .20206,    .24815,    .01708,   -.00031,
     +     .00000,    .00934,    .02250,
     +     .50764,    .19370,    .22473,    .01640,    .00011,
     +     .00000,    .00909,    .02124,
     +     .49305,    .18689,    .20784,    .01588,    .00041,
     +    -.00114,    .00888,    .02020,
     +     .47710,    .17948,    .18818,    .01527,    .00069,
     +    -.00074,    .00864,    .01911,
     +     .46094,    .17209,    .16999,    .01464,    .00092,
     +    -.00041,    .00836,    .01801,
     +     .44664,    .16568,    .15521,    .01408,    .00109,
     +    -.00016,    .00810,    .01708 /
        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,    .01353,    .00122,
     +     .00004,    .00782,    .01621,
     +     .42124,    .15447,    .13170,    .01306,    .00132,
     +     .00020,    .00755,    .01556,
     +     .40779,    .14866,    .12057,    .01250,    .00140,
     +     .00034,    .00729,    .01475,
     +     .39621,    .14371,    .11164,    .01204,    .00147,
     +     .00046,    .00706,    .01408,
     +     .38586,    .13933,    .10415,    .01165,    .00150,
     +     .00055,    .00684,    .01350,
     +     .37305,    .13397,    .09548,    .01115,    .00154,
     +     .00064,    .00658,    .01278,
     +     .36141,    .12913,    .08810,    .01069,    .00157,
     +     .00071,    .00633,    .01217,
     +     .35086,    .12476,    .08182,    .01027,    .00158,
     +     .00077,    .00609,    .01163 /
        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,    .07609,    .00987,    .00159,
     +     .00082,    .00586,    .01108,
     +     .33078,    .11661,    .07095,    .00951,    .00159,
     +     .00085,    .00564,    .01058,
     +     .32180,    .11301,    .06647,    .00919,    .00158,
     +     .00088,    .00546,    .01010,
     +     .31351,    .10971,    .06258,    .00887,    .00157,
     +     .00090,    .00528,    .00971,
     +     .30545,    .10650,    .05892,    .00855,    .00156,
     +     .00092,    .00510,    .00937,
     +     .29766,    .10343,    .05562,    .00825,    .00154,
     +     .00093,    .00494,    .00901,
     +     .29049,    .10061,    .05270,    .00799,    .00152,
     +     .00093,    .00479,    .00867,
     +     .28381,    .09800,    .05009,    .00776,    .00150,
     +     .00093,    .00464,    .00836 /
        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,    .00754,    .00149,
     +     .00094,    .00452,    .00806,
     +     .27094,    .09302,    .04534,    .00731,    .00147,
     +     .00094,    .00438,    .00778,
     +     .26504,    .09075,    .04329,    .00710,    .00145,
     +     .00094,    .00426,    .00754,
     +     .25958,    .08865,    .04145,    .00689,    .00143,
     +     .00094,    .00414,    .00731,
     +     .25413,    .08658,    .03969,    .00672,    .00140,
     +     .00092,    .00403,    .00708 /
        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,    .41501,    .01773,    .00000,
     +     .00000,    .00699,    .02622,
     +     .62704,    .25049,    .38304,    .01750,    .00000,
     +     .00000,    .00724,    .02497,
     +     .60527,    .23827,    .34775,    .01700,   -.00375,
     +     .00000,    .00745,    .02330,
     +     .58936,    .22980,    .31866,    .01658,   -.00315,
     +     .00000,    .00752,    .02222,
     +     .57284,    .22131,    .29032,    .01618,   -.00244,
     +     .00000,    .00752,    .02109,
     +     .55875,    .21411,    .26799,    .01574,   -.00192,
     +     .00000,    .00752,    .02021,
     +     .54531,    .20747,    .24837,    .01534,   -.00149,
     +     .00000,    .00747,    .01936,
     +     .53118,    .20071,    .22927,    .01496,   -.00109,
     +     .00000,    .00740,    .01847 /
        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,    .01457,   -.00079,
     +     .00000,    .00731,    .01777,
     +     .50762,    .18959,    .20028,    .01420,   -.00053,
     +     .00000,    .00721,    .01711,
     +     .49868,    .18546,    .19014,    .01390,   -.00035,
     +     .00000,    .00714,    .01662,
     +     .47999,    .17698,    .17062,    .01331,   -.00001,
     +     .00000,    .00692,    .01557,
     +     .46447,    .17005,    .15663,    .01278,    .00022,
     +    -.00092,    .00672,    .01479,
     +     .44763,    .16267,    .14061,    .01217,    .00044,
     +    -.00060,    .00652,    .01394,
     +     .43065,    .15534,    .12593,    .01161,    .00062,
     +    -.00035,    .00627,    .01312,
     +     .41579,    .14898,    .11412,    .01110,    .00074,
     +    -.00017,    .00603,    .01241 /
        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,    .10349,    .01060,    .00084,
     +    -.00001,    .00582,    .01173,
     +     .38955,    .13801,    .09559,    .01021,    .00091,
     +     .00011,    .00563,    .01117,
     +     .37577,    .13234,    .08688,    .00975,    .00098,
     +     .00022,    .00541,    .01058,
     +     .36398,    .12754,    .07999,    .00938,    .00102,
     +     .00030,    .00522,    .01006,
     +     .35350,    .12335,    .07423,    .00905,    .00105,
     +     .00037,    .00505,    .00960,
     +     .34065,    .11820,    .06762,    .00860,    .00108,
     +     .00044,    .00480,    .00908,
     +     .32899,    .11359,    .06208,    .00821,    .00110,
     +     .00049,    .00460,    .00860,
     +     .31844,    .10948,    .05739,    .00788,    .00111,
     +     .00053,    .00443,    .00814 /
        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,    .00752,    .00111,
     +     .00056,    .00426,    .00779,
     +     .29857,    .10173,    .04929,    .00721,    .00110,
     +     .00059,    .00409,    .00742,
     +     .28968,    .09835,    .04604,    .00694,    .00110,
     +     .00060,    .00394,    .00707,
     +     .28156,    .09525,    .04318,    .00670,    .00109,
     +     .00062,    .00380,    .00677,
     +     .27368,    .09225,    .04053,    .00645,    .00108,
     +     .00063,    .00367,    .00648,
     +     .26607,    .08939,    .03813,    .00623,    .00107,
     +     .00064,    .00353,    .00623,
     +     .25910,    .08678,    .03602,    .00603,    .00106,
     +     .00064,    .00342,    .00600,
     +     .25264,    .08438,    .03415,    .00583,    .00104,
     +     .00065,    .00330,    .00578 /
        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,    .00562,    .00103,
     +     .00065,    .00321,    .00554,
     +     .24025,    .07977,    .03079,    .00544,    .00101,
     +     .00064,    .00310,    .00535,
     +     .23459,    .07768,    .02935,    .00527,    .00099,
     +     .00064,    .00301,    .00516,
     +     .22934,    .07575,    .02806,    .00512,    .00098,
     +     .00064,    .00292,    .00499,
     +     .22414,    .07386,    .02682,    .00498,    .00096,
     +     .00063,    .00284,    .00482 /
        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,    .33555,    .01492,    .00000,
     +     .00000,    .00529,    .01964,
     +     .61160,    .23555,    .30683,    .01463,    .00000,
     +     .00000,    .00550,    .01868,
     +     .58621,    .22268,    .27518,    .01416,   -.00313,
     +     .00000,    .00573,    .01729,
     +     .56833,    .21373,    .24970,    .01369,   -.00261,
     +     .00000,    .00575,    .01649,
     +     .54987,    .20491,    .22531,    .01327,   -.00203,
     +     .00000,    .00578,    .01560,
     +     .53417,    .19759,    .20630,    .01289,   -.00161,
     +     .00000,    .00577,    .01486,
     +     .51945,    .19081,    .18977,    .01250,   -.00126,
     +     .00000,    .00572,    .01421,
     +     .50419,    .18389,    .17381,    .01210,   -.00094,
     +     .00000,    .00564,    .01356 /
        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,    .16111,    .01176,   -.00069,
     +     .00000,    .00555,    .01300,
     +     .47892,    .17270,    .14986,    .01141,   -.00049,
     +     .00000,    .00545,    .01249,
     +     .46941,    .16857,    .14161,    .01114,   -.00035,
     +     .00000,    .00536,    .01210,
     +     .44977,    .16007,    .12574,    .01055,   -.00008,
     +     .00000,    .00521,    .01134,
     +     .43357,    .15324,    .11453,    .01009,    .00010,
     +    -.00073,    .00504,    .01071,
     +     .41604,    .14602,    .10184,    .00964,    .00026,
     +    -.00049,    .00484,    .01003,
     +     .39860,    .13886,    .09028,    .00914,    .00040,
     +    -.00030,    .00467,    .00937,
     +     .38343,    .13272,    .08114,    .00866,    .00049,
     +    -.00016,    .00449,    .00884 /
        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,    .07299,    .00823,    .00058,
     +    -.00003,    .00427,    .00832,
     +     .35682,    .12218,    .06693,    .00791,    .00063,
     +     .00005,    .00415,    .00791,
     +     .34295,    .11678,    .06039,    .00757,    .00067,
     +     .00013,    .00397,    .00742,
     +     .33125,    .11223,    .05523,    .00723,    .00070,
     +     .00019,    .00381,    .00704,
     +     .32094,    .10820,    .05098,    .00688,    .00073,
     +     .00025,    .00366,    .00675,
     +     .30812,    .10336,    .04614,    .00657,    .00074,
     +     .00029,    .00349,    .00633,
     +     .29661,    .09902,    .04209,    .00626,    .00076,
     +     .00033,    .00334,    .00598,
     +     .28631,    .09515,    .03869,    .00596,    .00077,
     +     .00037,    .00319,    .00569 /
        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,    .03562,    .00570,    .00077,
     +     .00039,    .00305,    .00539,
     +     .26693,    .08795,    .03291,    .00546,    .00076,
     +     .00040,    .00293,    .00510,
     +     .25836,    .08479,    .03059,    .00524,    .00076,
     +     .00042,    .00281,    .00488,
     +     .25053,    .08194,    .02860,    .00502,    .00075,
     +     .00042,    .00271,    .00466,
     +     .24295,    .07920,    .02676,    .00481,    .00074,
     +     .00043,    .00260,    .00445,
     +     .23567,    .07658,    .02509,    .00464,    .00073,
     +     .00043,    .00251,    .00425,
     +     .22898,    .07419,    .02363,    .00448,    .00072,
     +     .00044,    .00241,    .00406,
     +     .22283,    .07198,    .02236,    .00432,    .00071,
     +     .00044,    .00233,    .00392 /
        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,    .02116,    .00417,    .00070,
     +     .00043,    .00225,    .00378,
     +     .21108,    .06779,    .02006,    .00402,    .00069,
     +     .00044,    .00217,    .00364,
     +     .20574,    .06590,    .01909,    .00389,    .00068,
     +     .00044,    .00210,    .00350,
     +     .20081,    .06416,    .01822,    .00376,    .00067,
     +     .00043,    .00203,    .00338,
     +     .19591,    .06245,    .01739,    .00364,    .00065,
     +     .00043,    .00197,    .00326 /
        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,    .26335,    .01230,    .00000,
     +     .00000,    .00411,    .01434,
     +     .59114,    .21930,    .23831,    .01191,    .00000,
     +     .00000,    .00427,    .01371,
     +     .56280,    .20591,    .21095,    .01143,   -.00257,
     +     .00000,    .00440,    .01268,
     +     .54292,    .19688,    .18938,    .01109,   -.00214,
     +     .00000,    .00451,    .01193,
     +     .52290,    .18792,    .16903,    .01068,   -.00166,
     +     .00000,    .00446,    .01127,
     +     .50601,    .18050,    .15336,    .01030,   -.00132,
     +     .00000,    .00442,    .01076,
     +     .49032,    .17371,    .13984,    .00994,   -.00104,
     +     .00000,    .00435,    .01028,
     +     .47419,    .16681,    .12690,    .00957,   -.00079,
     +     .00000,    .00426,    .00981 /
        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,    .11675,    .00927,   -.00060,
     +     .00000,    .00419,    .00938,
     +     .44768,    .15575,    .10776,    .00896,   -.00044,
     +     .00000,    .00413,    .00900,
     +     .43777,    .15169,    .10120,    .00874,   -.00033,
     +     .00000,    .00405,    .00871,
     +     .41748,    .14345,    .08883,    .00828,   -.00012,
     +     .00000,    .00389,    .00804,
     +     .40088,    .13683,    .08018,    .00789,    .00002,
     +    -.00056,    .00375,    .00760,
     +     .38309,    .12983,    .07044,    .00748,    .00015,
     +    -.00038,    .00361,    .00709,
     +     .36547,    .12297,    .06174,    .00704,    .00025,
     +    -.00024,    .00345,    .00664,
     +     .35022,    .11712,    .05489,    .00667,    .00032,
     +    -.00014,    .00329,    .00624 /
        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,    .00633,    .00038,
     +    -.00004,    .00315,    .00583,
     +     .32382,    .10713,    .04449,    .00604,    .00042,
     +     .00002,    .00304,    .00553,
     +     .31018,    .10202,    .03977,    .00572,    .00045,
     +     .00008,    .00288,    .00520,
     +     .29864,    .09774,    .03609,    .00543,    .00048,
     +     .00012,    .00276,    .00493,
     +     .28851,    .09402,    .03307,    .00519,    .00050,
     +     .00016,    .00263,    .00469,
     +     .27615,    .08950,    .02969,    .00489,    .00050,
     +     .00019,    .00251,    .00439,
     +     .26503,    .08547,    .02689,    .00464,    .00052,
     +     .00022,    .00239,    .00414,
     +     .25507,    .08189,    .02451,    .00443,    .00052,
     +     .00024,    .00229,    .00392 /
        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,    .02247,    .00422,    .00052,
     +     .00026,    .00219,    .00367,
     +     .23647,    .07533,    .02065,    .00402,    .00051,
     +     .00027,    .00209,    .00348,
     +     .22832,    .07245,    .01909,    .00382,    .00051,
     +     .00027,    .00200,    .00332,
     +     .22086,    .06984,    .01778,    .00367,    .00051,
     +     .00028,    .00192,    .00316,
     +     .21366,    .06733,    .01658,    .00353,    .00050,
     +     .00029,    .00183,    .00301,
     +     .20680,    .06495,    .01550,    .00339,    .00050,
     +     .00029,    .00175,    .00288,
     +     .20053,    .06279,    .01454,    .00326,    .00049,
     +     .00030,    .00169,    .00277,
     +     .19476,    .06081,    .01372,    .00314,    .00048,
     +     .00029,    .00163,    .00264 /
        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,    .00302,    .00048,
     +     .00030,    .00158,    .00252,
     +     .18377,    .05706,    .01227,    .00290,    .00046,
     +     .00029,    .00152,    .00242,
     +     .17878,    .05538,    .01165,    .00280,    .00045,
     +     .00029,    .00147,    .00232,
     +     .17420,    .05383,    .01110,    .00270,    .00045,
     +     .00029,    .00142,    .00223,
     +     .16964,    .05229,    .01057,    .00262,    .00044,
     +     .00029,    .00138,    .00217 /
        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,    .19828,    .01023,    .00000,
     +     .00000,    .00291,    .01018,
     +     .56587,    .20272,    .17734,    .00990,    .00000,
     +     .00000,    .00307,    .00967,
     +     .53514,    .18909,    .15463,    .00936,   -.00208,
     +     .00000,    .00320,    .00897,
     +     .51385,    .17995,    .13703,    .00901,   -.00172,
     +     .00000,    .00324,    .00846,
     +     .49262,    .17094,    .12058,    .00863,   -.00134,
     +     .00000,    .00327,    .00802,
     +     .47488,    .16361,    .10814,    .00831,   -.00107,
     +     .00000,    .00325,    .00760,
     +     .45853,    .15690,    .09752,    .00799,   -.00084,
     +     .00000,    .00321,    .00724,
     +     .44184,    .15013,    .08748,    .00761,   -.00064,
     +     .00000,    .00316,    .00689 /
        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,    .07968,    .00735,   -.00050,
     +     .00000,    .00313,    .00656,
     +     .41461,    .13937,    .07292,    .00707,   -.00037,
     +     .00000,    .00304,    .00626,
     +     .40457,    .13542,    .06804,    .00684,   -.00029,
     +     .00000,    .00297,    .00605,
     +     .38390,    .12747,    .05886,    .00644,   -.00012,
     +     .00000,    .00287,    .00562,
     +     .36724,    .12117,    .05243,    .00611,   -.00002,
     +    -.00044,    .00275,    .00527,
     +     .34954,    .11450,    .04535,    .00575,    .00007,
     +    -.00030,    .00262,    .00491,
     +     .33209,    .10800,    .03911,    .00538,    .00015,
     +    -.00019,    .00248,    .00457,
     +     .31708,    .10248,    .03431,    .00505,    .00020,
     +    -.00012,    .00236,    .00429 /
        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,    .03009,    .00476,    .00025,
     +    -.00004,    .00225,    .00402,
     +     .29126,    .09314,    .02706,    .00456,    .00028,
     +     .00000,    .00215,    .00379,
     +     .27802,    .08840,    .02389,    .00430,    .00030,
     +     .00004,    .00205,    .00354,
     +     .26685,    .08446,    .02144,    .00407,    .00032,
     +     .00007,    .00196,    .00333,
     +     .25704,    .08102,    .01943,    .00390,    .00033,
     +     .00010,    .00189,    .00315,
     +     .24518,    .07688,    .01723,    .00368,    .00034,
     +     .00012,    .00179,    .00294,
     +     .23458,    .07320,    .01544,    .00346,    .00035,
     +     .00015,    .00169,    .00277,
     +     .22514,    .06993,    .01397,    .00329,    .00035,
     +     .00016,    .00159,    .00261 /
        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,    .01265,    .00314,    .00035,
     +     .00017,    .00153,    .00246,
     +     .20755,    .06398,    .01155,    .00300,    .00035,
     +     .00018,    .00145,    .00232,
     +     .19986,    .06139,    .01063,    .00286,    .00034,
     +     .00019,    .00138,    .00219,
     +     .19292,    .05903,    .00984,    .00272,    .00034,
     +     .00019,    .00134,    .00208,
     +     .18625,    .05678,    .00911,    .00259,    .00033,
     +     .00019,    .00129,    .00200,
     +     .17986,    .05467,    .00850,    .00246,    .00033,
     +     .00020,    .00123,    .00189,
     +     .17404,    .05277,    .00795,    .00236,    .00032,
     +     .00019,    .00118,    .00180,
     +     .16871,    .05099,    .00749,    .00225,    .00032,
     +     .00020,    .00112,    .00173 /
        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,    .00705,    .00214,    .00032,
     +     .00020,    .00108,    .00168,
     +     .15856,    .04765,    .00666,    .00207,    .00031,
     +     .00019,    .00105,    .00160,
     +     .15395,    .04614,    .00630,    .00202,    .00031,
     +     .00020,    .00101,    .00153,
     +     .14974,    .04477,    .00601,    .00195,    .00030,
     +     .00020,    .00097,    .00146,
     +     .14560,    .04343,    .00573,    .00187,    .00029,
     +     .00019,    .00094,    .00141 /
        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,    .14032,    .00837,    .00000,
     +     .00000,    .00210,    .00697,
     +     .53685,    .18560,    .12347,    .00807,    .00000,
     +     .00000,    .00220,    .00668,
     +     .50422,    .17207,    .10568,    .00755,   -.00165,
     +     .00000,    .00232,    .00616,
     +     .48198,    .16300,    .09198,    .00722,   -.00136,
     +     .00000,    .00231,    .00585,
     +     .45992,    .15421,    .07948,    .00688,   -.00106,
     +     .00000,    .00235,    .00547,
     +     .44170,    .14702,    .07015,    .00657,   -.00085,
     +     .00000,    .00231,    .00521,
     +     .42491,    .14053,    .06227,    .00631,   -.00068,
     +     .00000,    .00228,    .00495,
     +     .40784,    .13401,    .05495,    .00603,   -.00052,
     +     .00000,    .00223,    .00468 /
        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,    .04934,    .00580,   -.00041,
     +     .00000,    .00220,    .00443,
     +     .38045,    .12369,    .04448,    .00557,   -.00031,
     +     .00000,    .00216,    .00422,
     +     .37034,    .11993,    .04101,    .00541,   -.00025,
     +     .00000,    .00211,    .00406,
     +     .34994,    .11233,    .03465,    .00498,   -.00012,
     +     .00000,    .00200,    .00381,
     +     .33346,    .10635,    .03027,    .00472,   -.00004,
     +    -.00033,    .00192,    .00360,
     +     .31597,    .10016,    .02550,    .00447,    .00003,
     +    -.00023,    .00182,    .00330,
     +     .29893,    .09410,    .02137,    .00417,    .00008,
     +    -.00015,    .00173,    .00304,
     +     .28437,    .08897,    .01821,    .00392,    .00013,
     +    -.00009,    .00164,    .00285 /
        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,    .01559,    .00368,    .00016,
     +    -.00005,    .00155,    .00266,
     +     .25946,    .08032,    .01373,    .00348,    .00018,
     +    -.00001,    .00148,    .00252,
     +     .24685,    .07601,    .01179,    .00325,    .00020,
     +     .00002,    .00140,    .00233,
     +     .23624,    .07240,    .01033,    .00308,    .00021,
     +     .00005,    .00132,    .00219,
     +     .22696,    .06924,    .00918,    .00292,    .00022,
     +     .00006,    .00125,    .00210,
     +     .21573,    .06549,    .00794,    .00273,    .00023,
     +     .00008,    .00119,    .00196,
     +     .20577,    .06219,    .00695,    .00259,    .00023,
     +     .00010,    .00112,    .00181,
     +     .19691,    .05926,    .00616,    .00245,    .00023,
     +     .00011,    .00107,    .00169 /
        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,    .00229,    .00023,
     +     .00012,    .00101,    .00158,
     +     .18059,    .05390,    .00492,    .00218,    .00024,
     +     .00012,    .00097,    .00149,
     +     .17348,    .05155,    .00446,    .00207,    .00023,
     +     .00012,    .00092,    .00142,
     +     .16702,    .04949,    .00408,    .00198,    .00023,
     +     .00013,    .00088,    .00135,
     +     .16084,    .04751,    .00374,    .00189,    .00022,
     +     .00013,    .00083,    .00129,
     +     .15497,    .04564,    .00345,    .00180,    .00022,
     +     .00013,    .00080,    .00123,
     +     .14964,    .04394,    .00322,    .00172,    .00022,
     +     .00013,    .00077,    .00117,
     +     .14478,    .04238,    .00302,    .00165,    .00021,
     +     .00013,    .00074,    .00111 /
        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,    .00159,    .00021,
     +     .00013,    .00070,    .00106,
     +     .13553,    .03944,    .00266,    .00152,    .00021,
     +     .00014,    .00068,    .00101,
     +     .13136,    .03814,    .00254,    .00145,    .00020,
     +     .00013,    .00065,    .00098,
     +     .12754,    .03695,    .00241,    .00141,    .00020,
     +     .00013,    .00063,    .00093,
     +     .12379,    .03579,    .00231,    .00135,    .00019,
     +     .00013,    .00060,    .00090 /
        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,    .08963,    .00652,    .00000,
     +     .00000,    .00151,    .00479,
     +     .50456,    .16803,    .07707,    .00624,    .00000,
     +     .00000,    .00165,    .00453,
     +     .47056,    .15475,    .06409,    .00587,   -.00129,
     +     .00000,    .00168,    .00422,
     +     .44777,    .14597,    .05414,    .00549,   -.00105,
     +     .00000,    .00173,    .00401,
     +     .42525,    .13747,    .04524,    .00524,   -.00082,
     +     .00000,    .00170,    .00380,
     +     .40677,    .13063,    .03870,    .00504,   -.00066,
     +     .00000,    .00170,    .00356,
     +     .38995,    .12441,    .03335,    .00481,   -.00052,
     +     .00000,    .00168,    .00335,
     +     .37298,    .11818,    .02851,    .00454,   -.00041,
     +     .00000,    .00164,    .00317 /
        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,    .02484,    .00430,   -.00032,
     +     .00000,    .00156,    .00307,
     +     .34570,    .10843,    .02175,    .00414,   -.00025,
     +     .00000,    .00150,    .00295,
     +     .33574,    .10491,    .01956,    .00401,   -.00020,
     +     .00000,    .00149,    .00283,
     +     .31564,    .09785,    .01569,    .00372,   -.00010,
     +     .00000,    .00143,    .00257,
     +     .29964,    .09229,    .01312,    .00350,   -.00005,
     +    -.00024,    .00138,    .00236,
     +     .28283,    .08651,    .01020,    .00325,    .00000,
     +    -.00017,    .00131,    .00222,
     +     .26643,    .08093,    .00787,    .00301,    .00004,
     +    -.00012,    .00122,    .00207,
     +     .25249,    .07624,    .00613,    .00281,    .00007,
     +    -.00007,    .00117,    .00192 /
        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,    .00473,    .00262,    .00010,
     +    -.00003,    .00111,    .00178,
     +     .22885,    .06839,    .00382,    .00247,    .00011,
     +    -.00002,    .00104,    .00169,
     +     .21687,    .06448,    .00288,    .00233,    .00013,
     +     .00001,    .00099,    .00156,
     +     .20692,    .06124,    .00225,    .00220,    .00013,
     +     .00002,    .00094,    .00144,
     +     .19828,    .05843,    .00176,    .00207,    .00014,
     +     .00003,    .00088,    .00135,
     +     .18785,    .05505,    .00126,    .00192,    .00014,
     +     .00005,    .00083,    .00128,
     +     .17860,    .05209,    .00090,    .00179,    .00015,
     +     .00006,    .00079,    .00119,
     +     .17040,    .04950,    .00065,    .00168,    .00015,
     +     .00007,    .00074,    .00113 /
        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,    .00046,    .00159,    .00015,
     +     .00008,    .00069,    .00105,
     +     .15539,    .04477,    .00028,    .00150,    .00015,
     +     .00008,    .00066,    .00100,
     +     .14888,    .04275,    .00016,    .00143,    .00015,
     +     .00008,    .00064,    .00095,
     +     .14302,    .04093,    .00011,    .00134,    .00015,
     +     .00008,    .00060,    .00089,
     +     .13740,    .03920,    .00005,    .00127,    .00014,
     +     .00008,    .00058,    .00083,
     +     .13209,    .03756,    .00001,    .00121,    .00014,
     +     .00008,    .00055,    .00080,
     +     .12728,    .03608,   -.00001,    .00116,    .00014,
     +     .00009,    .00053,    .00076,
     +     .12286,    .03474,   -.00003,    .00111,    .00014,
     +     .00009,    .00051,    .00073 /
        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,   -.00002,    .00108,    .00013,
     +     .00008,    .00048,    .00068,
     +     .11454,    .03221,   -.00001,    .00103,    .00013,
     +     .00008,    .00046,    .00066,
     +     .11084,    .03107,   -.00001,    .00098,    .00013,
     +     .00008,    .00045,    .00062,
     +     .10744,    .03005,   -.00001,    .00095,    .00013,
     +     .00009,    .00043,    .00060,
     +     .10411,    .02906,    .00000,    .00091,    .00013,
     +     .00009,    .00042,    .00058 /
        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,    .04644,    .00489,    .00000,
     +     .00000,    .00111,    .00319,
     +     .46952,    .15069,    .03788,    .00474,    .00000,
     +     .00000,    .00125,    .00299,
     +     .43487,    .13776,    .02970,    .00435,   -.00099,
     +     .00000,    .00131,    .00279,
     +     .41179,    .12931,    .02334,    .00411,   -.00080,
     +     .00000,    .00126,    .00267,
     +     .38929,    .12124,    .01776,    .00382,   -.00063,
     +     .00000,    .00130,    .00250,
     +     .37084,    .11472,    .01381,    .00367,   -.00051,
     +     .00000,    .00127,    .00238,
     +     .35414,    .10887,    .01066,    .00347,   -.00041,
     +     .00000,    .00126,    .00229,
     +     .33745,    .10305,    .00791,    .00325,   -.00031,
     +     .00000,    .00123,    .00217 /
        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,    .00597,    .00307,   -.00025,
     +     .00000,    .00120,    .00207,
     +     .31093,    .09398,    .00435,    .00290,   -.00019,
     +     .00000,    .00117,    .00194,
     +     .30132,    .09069,    .00326,    .00278,   -.00016,
     +     .00000,    .00116,    .00186,
     +     .28183,    .08418,    .00140,    .00259,   -.00010,
     +     .00000,    .00111,    .00176,
     +     .26646,    .07910,    .00035,    .00240,   -.00005,
     +    -.00018,    .00103,    .00161,
     +     .25044,    .07382,   -.00091,    .00222,   -.00001,
     +    -.00012,    .00097,    .00149,
     +     .23489,    .06878,   -.00191,    .00206,    .00001,
     +    -.00009,    .00093,    .00139,
     +     .22170,    .06456,   -.00247,    .00192,    .00004,
     +    -.00005,    .00087,    .00128 /
        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,    .00181,    .00005,
     +    -.00004,    .00083,    .00119,
     +     .19958,    .05751,   -.00309,    .00171,    .00007,
     +    -.00001,    .00077,    .00112,
     +     .18854,    .05402,   -.00325,    .00156,    .00008,
     +     .00000,    .00074,    .00103,
     +     .17933,    .05114,   -.00328,    .00145,    .00009,
     +     .00001,    .00069,    .00097,
     +     .17132,    .04866,   -.00330,    .00137,    .00009,
     +     .00003,    .00066,    .00094,
     +     .16172,    .04572,   -.00324,    .00128,    .00009,
     +     .00003,    .00061,    .00086,
     +     .15326,    .04312,   -.00313,    .00120,    .00009,
     +     .00004,    .00058,    .00080,
     +     .14581,    .04086,   -.00301,    .00111,    .00010,
     +     .00005,    .00055,    .00073 /
        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,   -.00288,    .00106,    .00010,
     +     .00005,    .00050,    .00070,
     +     .13215,    .03676,   -.00272,    .00099,    .00009,
     +     .00005,    .00047,    .00065,
     +     .12630,    .03499,   -.00257,    .00093,    .00010,
     +     .00006,    .00045,    .00062,
     +     .12104,    .03342,   -.00245,    .00088,    .00010,
     +     .00005,    .00044,    .00059,
     +     .11602,    .03192,   -.00230,    .00083,    .00009,
     +     .00005,    .00041,    .00055,
     +     .11126,    .03052,   -.00216,    .00080,    .00009,
     +     .00005,    .00039,    .00052,
     +     .10698,    .02926,   -.00203,    .00075,    .00009,
     +     .00005,    .00038,    .00048,
     +     .10305,    .02812,   -.00190,    .00072,    .00009,
     +     .00006,    .00036,    .00047 /
        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,   -.00178,    .00068,    .00009,
     +     .00006,    .00034,    .00045,
     +     .09570,    .02596,   -.00169,    .00066,    .00009,
     +     .00006,    .00033,    .00044,
     +     .09243,    .02502,   -.00158,    .00063,    .00008,
     +     .00006,    .00032,    .00041,
     +     .08944,    .02414,   -.00147,    .00059,    .00008,
     +     .00005,    .00031,    .00039,
     +     .08650,    .02330,   -.00139,    .00057,    .00008,
     +     .00005,    .00030,    .00038 /
        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,    .00992,    .00423,    .00000,
     +     .00000,    .00054,    .00180,
     +     .43304,    .13431,    .00521,    .00385,    .00000,
     +     .00000,    .00063,    .00180,
     +     .39822,    .12200,    .00139,    .00362,   -.00074,
     +     .00000,    .00070,    .00169,
     +     .37536,    .11406,   -.00192,    .00334,   -.00060,
     +     .00000,    .00079,    .00161,
     +     .35310,    .10646,   -.00450,    .00311,   -.00047,
     +     .00000,    .00079,    .00152,
     +     .33517,    .10031,   -.00611,    .00289,   -.00037,
     +     .00000,    .00078,    .00145,
     +     .31898,    .09486,   -.00726,    .00271,   -.00030,
     +     .00000,    .00075,    .00137,
     +     .30276,    .08951,   -.00817,    .00256,   -.00024,
     +     .00000,    .00072,    .00128 /
        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,   -.00873,    .00244,   -.00019,
     +     .00000,    .00071,    .00124,
     +     .27715,    .08109,   -.00907,    .00231,   -.00015,
     +     .00000,    .00070,    .00117,
     +     .26793,    .07809,   -.00924,    .00220,   -.00012,
     +     .00000,    .00069,    .00113,
     +     .24941,    .07214,   -.00937,    .00205,   -.00008,
     +     .00000,    .00063,    .00103,
     +     .23493,    .06752,   -.00925,    .00189,   -.00004,
     +    -.00013,    .00061,    .00098,
     +     .21986,    .06276,   -.00926,    .00173,   -.00002,
     +    -.00009,    .00057,    .00092,
     +     .20533,    .05827,   -.00906,    .00158,    .00000,
     +    -.00007,    .00054,    .00083,
     +     .19314,    .05448,   -.00878,    .00147,    .00002,
     +    -.00004,    .00052,    .00075 /
        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,    .00135,    .00003,
     +    -.00003,    .00048,    .00069,
     +     .17270,    .04823,   -.00806,    .00128,    .00004,
     +    -.00001,    .00046,    .00064,
     +     .16251,    .04514,   -.00761,    .00118,    .00005,
     +     .00000,    .00043,    .00060,
     +     .15411,    .04261,   -.00722,    .00110,    .00005,
     +     .00001,    .00041,    .00058,
     +     .14684,    .04042,   -.00683,    .00104,    .00005,
     +     .00001,    .00037,    .00054,
     +     .13812,    .03785,   -.00636,    .00095,    .00006,
     +     .00002,    .00035,    .00051,
     +     .13047,    .03559,   -.00592,    .00089,    .00006,
     +     .00002,    .00033,    .00047,
     +     .12377,    .03362,   -.00552,    .00085,    .00006,
     +     .00003,    .00032,    .00043 /
        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,   -.00513,    .00077,    .00006,
     +     .00003,    .00030,    .00041,
     +     .11161,    .03006,   -.00477,    .00070,    .00006,
     +     .00003,    .00028,    .00039,
     +     .10636,    .02856,   -.00444,    .00069,    .00006,
     +     .00003,    .00025,    .00035,
     +     .10165,    .02723,   -.00413,    .00066,    .00006,
     +     .00004,    .00024,    .00032,
     +     .09718,    .02595,   -.00386,    .00062,    .00006,
     +     .00004,    .00023,    .00031,
     +     .09300,    .02475,   -.00361,    .00058,    .00006,
     +     .00004,    .00022,    .00030,
     +     .08922,    .02367,   -.00338,    .00056,    .00006,
     +     .00004,    .00021,    .00029,
     +     .08578,    .02270,   -.00317,    .00054,    .00006,
     +     .00004,    .00020,    .00027 /
        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,    .00053,    .00005,
     +     .00003,    .00020,    .00026,
     +     .07933,    .02089,   -.00278,    .00050,    .00005,
     +     .00003,    .00019,    .00024,
     +     .07648,    .02009,   -.00259,    .00047,    .00005,
     +     .00003,    .00017,    .00023,
     +     .07388,    .01936,   -.00244,    .00045,    .00005,
     +     .00003,    .00016,    .00022,
     +     .07134,    .01865,   -.00230,    .00042,    .00005,
     +     .00003,    .00016,    .00021 /
        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,   -.01907,    .00293,    .00000,
     +     .00000,    .00045,    .00127,
     +     .39458,    .11768,   -.02025,    .00270,    .00000,
     +     .00000,    .00051,    .00120,
     +     .36042,    .10621,   -.02015,    .00244,   -.00054,
     +     .00000,    .00054,    .00113,
     +     .33806,    .09883,   -.02066,    .00228,   -.00043,
     +     .00000,    .00055,    .00105,
     +     .31656,    .09179,   -.02080,    .00214,   -.00034,
     +     .00000,    .00055,    .00098,
     +     .29927,    .08620,   -.02063,    .00198,   -.00027,
     +     .00000,    .00056,    .00095,
     +     .28368,    .08126,   -.02021,    .00188,   -.00022,
     +     .00000,    .00053,    .00090,
     +     .26814,    .07635,   -.01964,    .00179,   -.00017,
     +     .00000,    .00052,    .00084 /
        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,   -.01906,    .00167,   -.00014,
     +     .00000,    .00052,    .00082,
     +     .24397,    .06876,   -.01839,    .00158,   -.00012,
     +     .00000,    .00050,    .00077,
     +     .23523,    .06608,   -.01784,    .00154,   -.00009,
     +     .00000,    .00046,    .00073,
     +     .21801,    .06076,   -.01666,    .00137,   -.00006,
     +     .00000,    .00044,    .00067,
     +     .20448,    .05667,   -.01560,    .00128,   -.00004,
     +    -.00009,    .00041,    .00062,
     +     .19048,    .05248,   -.01464,    .00119,   -.00002,
     +    -.00006,    .00040,    .00056,
     +     .17714,    .04845,   -.01358,    .00107,   -.00001,
     +    -.00005,    .00036,    .00051,
     +     .16598,    .04512,   -.01263,    .00096,    .00000,
     +    -.00004,    .00032,    .00049 /
        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,   -.01179,    .00090,    .00001,
     +    -.00002,    .00032,    .00046,
     +     .14735,    .03970,   -.01103,    .00086,    .00002,
     +    -.00001,    .00029,    .00042,
     +     .13814,    .03703,   -.01018,    .00080,    .00003,
     +     .00000,    .00027,    .00038,
     +     .13056,    .03484,   -.00945,    .00075,    .00003,
     +     .00000,    .00027,    .00034,
     +     .12403,    .03296,   -.00885,    .00071,    .00003,
     +     .00000,    .00026,    .00034,
     +     .11626,    .03075,   -.00810,    .00065,    .00004,
     +     .00001,    .00024,    .00031,
     +     .10949,    .02882,   -.00743,    .00059,    .00003,
     +     .00001,    .00021,    .00030,
     +     .10357,    .02714,   -.00686,    .00054,    .00003,
     +     .00001,    .00021,    .00027 /
        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,   -.00630,    .00051,    .00004,
     +     .00002,    .00019,    .00025,
     +     .09280,    .02414,   -.00581,    .00048,    .00004,
     +     .00002,    .00018,    .00022,
     +     .08821,    .02286,   -.00538,    .00044,    .00004,
     +     .00002,    .00016,    .00023,
     +     .08412,    .02173,   -.00501,    .00042,    .00004,
     +     .00002,    .00015,    .00022,
     +     .08022,    .02068,   -.00464,    .00040,    .00003,
     +     .00002,    .00015,    .00020,
     +     .07659,    .01967,   -.00431,    .00039,    .00003,
     +     .00002,    .00014,    .00018,
     +     .07332,    .01877,   -.00401,    .00037,    .00003,
     +     .00002,    .00013,    .00017,
     +     .07034,    .01796,   -.00375,    .00035,    .00003,
     +     .00002,    .00012,    .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,   -.00351,    .00033,    .00003,
     +     .00002,    .00012,    .00016,
     +     .06479,    .01648,   -.00328,    .00032,    .00003,
     +     .00002,    .00011,    .00014,
     +     .06234,    .01582,   -.00309,    .00031,    .00003,
     +     .00002,    .00011,    .00013,
     +     .06010,    .01521,   -.00291,    .00028,    .00004,
     +     .00003,    .00011,    .00013,
     +     .05793,    .01462,   -.00271,    .00027,    .00003,
     +     .00003,    .00010,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .38063,    .10994,   -.04082,    .00183,    .00000,
     +     .00000,    .00040,    .00081,
     +     .35559,    .10187,   -.03916,    .00178,    .00000,
     +     .00000,    .00038,    .00082,
     +     .32244,    .09132,   -.03583,    .00164,   -.00039,
     +     .00000,    .00043,    .00074,
     +     .30091,    .08457,   -.03415,    .00155,   -.00031,
     +     .00000,    .00042,    .00072,
     +     .28037,    .07822,   -.03224,    .00139,   -.00024,
     +     .00000,    .00045,    .00065,
     +     .26394,    .07316,   -.03056,    .00131,   -.00019,
     +     .00000,    .00042,    .00062,
     +     .24926,    .06867,   -.02891,    .00122,   -.00016,
     +     .00000,    .00040,    .00062,
     +     .23476,    .06430,   -.02714,    .00110,   -.00012,
     +     .00000,    .00038,    .00058 /
        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,   -.02571,    .00108,   -.00010,
     +     .00000,    .00037,    .00053,
     +     .21217,    .05757,   -.02433,    .00102,   -.00008,
     +     .00000,    .00035,    .00051,
     +     .20411,    .05519,   -.02326,    .00097,   -.00007,
     +     .00000,    .00035,    .00049,
     +     .18815,    .05051,   -.02111,    .00088,   -.00004,
     +     .00000,    .00034,    .00040,
     +     .17577,    .04689,   -.01942,    .00082,   -.00003,
     +    -.00006,    .00032,    .00040,
     +     .16306,    .04321,   -.01775,    .00072,   -.00002,
     +    -.00005,    .00029,    .00037,
     +     .15090,    .03975,   -.01616,    .00067,    .00000,
     +    -.00003,    .00028,    .00035,
     +     .14078,    .03688,   -.01480,    .00062,    .00000,
     +    -.00002,    .00025,    .00032 /
        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,   -.01350,    .00055,    .00001,
     +    -.00001,    .00022,    .00029,
     +     .12413,    .03220,   -.01251,    .00053,    .00001,
     +    -.00001,    .00022,    .00026,
     +     .11595,    .02991,   -.01140,    .00047,    .00002,
     +     .00000,    .00020,    .00026,
     +     .10923,    .02805,   -.01049,    .00043,    .00002,
     +     .00000,    .00019,    .00024,
     +     .10344,    .02649,   -.00971,    .00041,    .00002,
     +     .00000,    .00018,    .00022,
     +     .09661,    .02461,   -.00878,    .00037,    .00002,
     +     .00001,    .00015,    .00020,
     +     .09065,    .02300,   -.00801,    .00035,    .00002,
     +     .00001,    .00014,    .00019,
     +     .08545,    .02159,   -.00735,    .00034,    .00002,
     +     .00001,    .00014,    .00018 /
        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,   -.00674,    .00031,    .00002,
     +     .00001,    .00013,    .00017,
     +     .07615,    .01909,   -.00616,    .00029,    .00002,
     +     .00001,    .00011,    .00015,
     +     .07217,    .01804,   -.00569,    .00028,    .00002,
     +     .00001,    .00012,    .00014,
     +     .06864,    .01709,   -.00525,    .00026,    .00002,
     +     .00001,    .00010,    .00013,
     +     .06529,    .01621,   -.00486,    .00025,    .00002,
     +     .00001,    .00010,    .00013,
     +     .06217,    .01539,   -.00450,    .00023,    .00002,
     +     .00001,    .00011,    .00012,
     +     .05938,    .01465,   -.00417,    .00021,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05685,    .01399,   -.00390,    .00022,    .00002,
     +     .00002,    .00009,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05442,    .01337,   -.00364,    .00020,    .00002,
     +     .00002,    .00009,    .00009,
     +     .05214,    .01278,   -.00339,    .00019,    .00002,
     +     .00002,    .00008,    .00009,
     +     .05008,    .01224,   -.00317,    .00018,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04819,    .01175,   -.00296,    .00015,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04635,    .01127,   -.00279,    .00016,    .00002,
     +     .00002,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34115,    .09501,   -.05712,    .00153,    .00000,
     +     .00000,    .00011,    .00040,
     +     .31719,    .08757,   -.05299,    .00139,    .00000,
     +     .00000,    .00014,    .00040,
     +     .28538,    .07797,   -.04693,    .00129,   -.00027,
     +     .00000,    .00020,    .00038,
     +     .26519,    .07188,   -.04345,    .00112,   -.00022,
     +     .00000,    .00020,    .00035,
     +     .24577,    .06612,   -.03998,    .00108,   -.00016,
     +     .00000,    .00019,    .00032,
     +     .23043,    .06163,   -.03719,    .00102,   -.00014,
     +     .00000,    .00021,    .00030,
     +     .21679,    .05767,   -.03463,    .00094,   -.00011,
     +     .00000,    .00023,    .00028,
     +     .20336,    .05377,   -.03207,    .00088,   -.00008,
     +     .00000,    .00021,    .00028 /
        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,   -.02993,    .00082,   -.00007,
     +     .00000,    .00019,    .00028,
     +     .18257,    .04781,   -.02802,    .00077,   -.00006,
     +     .00000,    .00019,    .00028,
     +     .17520,    .04574,   -.02657,    .00072,   -.00005,
     +     .00000,    .00018,    .00027,
     +     .16071,    .04161,   -.02368,    .00064,   -.00003,
     +     .00000,    .00014,    .00025,
     +     .14953,    .03849,   -.02152,    .00058,   -.00003,
     +    -.00005,    .00016,    .00022,
     +     .13805,    .03532,   -.01944,    .00052,   -.00002,
     +    -.00003,    .00015,    .00021,
     +     .12719,    .03233,   -.01744,    .00048,   -.00001,
     +    -.00002,    .00013,    .00020,
     +     .11820,    .02989,   -.01578,    .00043,    .00000,
     +    -.00001,    .00011,    .00019 /
        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,   -.01429,    .00039,    .00000,
     +    -.00001,    .00012,    .00016,
     +     .10344,    .02592,   -.01316,    .00038,    .00000,
     +    -.00001,    .00012,    .00015,
     +     .09626,    .02398,   -.01188,    .00036,    .00000,
     +    -.00001,    .00011,    .00013,
     +     .09037,    .02242,   -.01083,    .00033,    .00001,
     +     .00000,    .00010,    .00011,
     +     .08532,    .02110,   -.00997,    .00032,    .00001,
     +     .00000,    .00009,    .00009,
     +     .07940,    .01954,   -.00896,    .00027,    .00001,
     +     .00000,    .00007,    .00010,
     +     .07424,    .01818,   -.00812,    .00026,    .00001,
     +     .00000,    .00007,    .00009,
     +     .06976,    .01703,   -.00742,    .00025,    .00001,
     +     .00000,    .00006,    .00009 /
        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,   -.00675,    .00022,    .00001,
     +     .00000,    .00007,    .00008,
     +     .06176,    .01496,   -.00617,    .00021,    .00001,
     +     .00000,    .00007,    .00008,
     +     .05839,    .01410,   -.00566,    .00020,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05539,    .01334,   -.00522,    .00018,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05258,    .01260,   -.00482,    .00017,    .00002,
     +     .00001,    .00006,    .00007,
     +     .04995,    .01194,   -.00443,    .00015,    .00002,
     +     .00001,    .00004,    .00005,
     +     .04759,    .01134,   -.00412,    .00016,    .00002,
     +     .00001,    .00004,    .00006,
     +     .04547,    .01081,   -.00384,    .00014,    .00001,
     +     .00001,    .00004,    .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,   -.00356,    .00013,    .00001,
     +     .00001,    .00004,    .00006,
     +     .04152,    .00983,   -.00331,    .00013,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03978,    .00940,   -.00309,    .00012,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03821,    .00900,   -.00289,    .00012,    .00001,
     +     .00001,    .00003,    .00004,
     +     .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,   -.06694,    .00090,    .00000,
     +     .00000,    .00019,    .00030,
     +     .27867,    .07372,   -.06109,    .00081,    .00000,
     +     .00000,    .00020,    .00027,
     +     .24906,    .06515,   -.05311,    .00072,   -.00018,
     +     .00000,    .00018,    .00027,
     +     .23013,    .05977,   -.04843,    .00067,   -.00015,
     +     .00000,    .00020,    .00027,
     +     .21235,    .05475,   -.04386,    .00058,   -.00012,
     +     .00000,    .00019,    .00022,
     +     .19821,    .05079,   -.04027,    .00053,   -.00009,
     +     .00000,    .00018,    .00022,
     +     .18568,    .04734,   -.03714,    .00052,   -.00007,
     +     .00000,    .00018,    .00024,
     +     .17342,    .04398,   -.03401,    .00050,   -.00006,
     +     .00000,    .00016,    .00024 /
        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,    .00045,   -.00005,
     +     .00000,    .00015,    .00019,
     +     .15470,    .03888,   -.02918,    .00041,   -.00004,
     +     .00000,    .00015,    .00016,
     +     .14807,    .03709,   -.02750,    .00039,   -.00004,
     +     .00000,    .00013,    .00015,
     +     .13504,    .03357,   -.02427,    .00035,   -.00003,
     +     .00000,    .00013,    .00017,
     +     .12506,    .03092,   -.02184,    .00032,   -.00002,
     +    -.00003,    .00012,    .00014,
     +     .11493,    .02825,   -.01950,    .00030,   -.00001,
     +    -.00002,    .00010,    .00013,
     +     .10538,    .02575,   -.01735,    .00027,   -.00001,
     +    -.00001,    .00009,    .00012,
     +     .09751,    .02369,   -.01562,    .00026,   -.00001,
     +    -.00001,    .00010,    .00012 /
        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,    .00023,    .00000,
     +     .00000,    .00008,    .00011,
     +     .08470,    .02038,   -.01280,    .00022,    .00000,
     +     .00000,    .00008,    .00009,
     +     .07849,    .01880,   -.01147,    .00019,    .00000,
     +     .00000,    .00007,    .00008,
     +     .07342,    .01751,   -.01042,    .00017,    .00000,
     +     .00000,    .00007,    .00008,
     +     .06912,    .01643,   -.00955,    .00016,    .00000,
     +     .00000,    .00006,    .00008,
     +     .06407,    .01515,   -.00854,    .00015,    .00000,
     +     .00000,    .00006,    .00007,
     +     .05969,    .01405,   -.00768,    .00013,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05588,    .01311,   -.00696,    .00012,    .00001,
     +     .00001,    .00004,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05238,    .01224,   -.00634,    .00011,    .00001,
     +     .00001,    .00005,    .00006,
     +     .04918,    .01145,   -.00576,    .00009,    .00001,
     +     .00001,    .00005,    .00006,
     +     .04635,    .01077,   -.00527,    .00010,    .00001,
     +     .00001,    .00003,    .00005,
     +     .04386,    .01014,   -.00484,    .00010,    .00001,
     +     .00001,    .00003,    .00005,
     +     .04152,    .00957,   -.00445,    .00008,    .00001,
     +     .00001,    .00003,    .00005,
     +     .03933,    .00904,   -.00411,    .00008,    .00001,
     +     .00001,    .00003,    .00005,
     +     .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,   -.00303,    .00007,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03095,    .00703,   -.00282,    .00006,    .00001,
     +     .00001,    .00002,    .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,   -.07250,    .00033,    .00000,
     +     .00000,    .00006,    .00011,
     +     .20606,    .05012,   -.06468,    .00035,    .00000,
     +     .00000,    .00004,    .00011,
     +     .18128,    .04368,   -.05473,    .00029,   -.00007,
     +     .00000,    .00007,    .00006,
     +     .16574,    .03966,   -.04879,    .00029,   -.00006,
     +     .00000,    .00004,    .00005,
     +     .15128,    .03592,   -.04339,    .00025,   -.00005,
     +     .00000,    .00005,    .00012,
     +     .13994,    .03307,   -.03915,    .00023,   -.00004,
     +     .00000,    .00005,    .00008,
     +     .13003,    .03058,   -.03550,    .00020,   -.00003,
     +     .00000,    .00006,    .00006,
     +     .12046,    .02814,   -.03200,    .00017,   -.00003,
     +     .00000,    .00006,    .00005 /
        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,   -.02931,    .00016,   -.00002,
     +     .00000,    .00006,    .00006,
     +     .10590,    .02451,   -.02687,    .00014,   -.00002,
     +     .00000,    .00004,    .00006,
     +     .10081,    .02327,   -.02513,    .00015,   -.00002,
     +     .00000,    .00005,    .00005,
     +     .09091,    .02084,   -.02174,    .00013,   -.00001,
     +     .00000,    .00003,    .00005,
     +     .08345,    .01902,   -.01935,    .00012,   -.00001,
     +    -.00001,    .00003,    .00005,
     +     .07593,    .01721,   -.01703,    .00011,   -.00001,
     +    -.00001,    .00003,    .00005,
     +     .06893,    .01553,   -.01490,    .00009,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06320,    .01417,   -.01318,    .00008,   -.00001,
     +    -.00001,    .00002,    .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,   -.01170,    .00008,   -.00001,
     +    -.00001,    .00003,    .00004,
     +     .05404,    .01200,   -.01062,    .00007,    .00000,
     +     .00000,    .00003,    .00004,
     +     .04966,    .01098,   -.00941,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04612,    .01014,   -.00847,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04313,    .00946,   -.00768,    .00005,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03963,    .00866,   -.00683,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03666,    .00797,   -.00610,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03409,    .00739,   -.00549,    .00004,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03171,    .00684,   -.00493,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .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,   -.00244,    .00003,    .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,   -.06397,    .00015,    .00000,
     +     .00000,    .00001,    .00001,
     +     .14167,    .03144,   -.05626,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .12257,    .02696,   -.04661,    .00010,   -.00003,
     +     .00000,    .00000,    .00005,
     +     .11084,    .02421,   -.04097,    .00008,   -.00002,
     +     .00000,    .00003,    .00005,
     +     .09999,    .02171,   -.03577,    .00008,   -.00002,
     +     .00000,    .00001,    .00001,
     +     .09164,    .01978,   -.03193,    .00008,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .08438,    .01812,   -.02861,    .00006,   -.00001,
     +     .00000,    .00001,    .00002,
     +     .07740,    .01655,   -.02555,    .00008,   -.00001,
     +     .00000,    .00001,    .00003 /
        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,   -.02313,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06703,    .01421,   -.02106,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06346,    .01340,   -.01953,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05652,    .01186,   -.01670,    .00006,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05138,    .01073,   -.01468,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04625,    .00959,   -.01273,    .00002,    .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,   -.00848,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03170,    .00646,   -.00760,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02886,    .00584,   -.00668,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02658,    .00538,   -.00597,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02468,    .00496,   -.00537,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .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,   -.00156,    .00000,    .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,   -.04823,    .00007,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .08860,    .01775,   -.04180,    .00007,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .07533,    .01495,   -.03400,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06723,    .01328,   -.02947,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05992,    .01176,   -.02547,    .00004,    .00000,
     +     .00000,    .00000,    .00002,
     +     .05432,    .01061,   -.02243,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .04952,    .00962,   -.01991,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .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='cor09dis.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