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

sfmrs_98a4.F

#include "pdf/pilot.h"
      subroutine sfmrs_98a4(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)/
     +     .00586,    .00199,    .88070,    .92272,    .00000,
     +     .00000,    .49147,    .93890,
     +     .00601,    .00204,   2.22967,    .95548,    .00000,
     +     .00000,    .52910,    .97170,
     +     .00623,    .00212,   4.83436,   1.02321,    .00063,
     +     .00000,    .60389,   1.03947,
     +     .00639,    .00218,   7.26351,   1.09005,    .06050,
     +     .00000,    .67576,   1.10632,
     +     .00657,    .00225,  10.38230,   1.17632,    .16014,
     +     .00000,    .76722,   1.19261,
     +     .00672,    .00231,  13.50808,   1.26659,    .24542,
     +     .00000,    .86188,   1.28288,
     +     .00687,    .00236,  16.95069,   1.36691,    .34140,
     +     .00000,    .96633,   1.38319,
     +     .00702,    .00243,  21.22224,   1.48681,    .46308,
     +     .00000,   1.09054,   1.50308 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00716,    .00248,  25.29276,   1.60599,    .57623,
     +     .00000,   1.21341,   1.62224,
     +     .00729,    .00254,  29.73035,   1.73205,    .70179,
     +     .00000,   1.34296,   1.74827,
     +     .00740,    .00258,  33.50856,   1.84142,    .80771,
     +     .00000,   1.45507,   1.85763,
     +     .00763,    .00267,  42.54420,   2.10144,   1.06426,
     +     .00045,   1.72081,   2.11759,
     +     .00783,    .00276,  51.38446,   2.35690,   1.31801,
     +     .21354,   1.98110,   2.37300,
     +     .00806,    .00285,  62.45731,   2.67895,   1.63860,
     +     .60394,   2.30841,   2.69498,
     +     .00830,    .00296,  75.45417,   3.05782,   2.01654,
     +     .99795,   2.69263,   3.07377,
     +     .00852,    .00305,  88.41704,   3.44070,   2.39389,
     +    1.37850,   3.08025,   3.45657 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00874,    .00315, 102.85153,   3.86700,   2.81711,
     +    1.81556,   3.51122,   3.88277,
     +     .00893,    .00323, 115.95238,   4.25332,   3.20382,
     +    2.22018,   3.90133,   4.26901,
     +     .00916,    .00333, 132.98741,   4.76113,   3.70954,
     +    2.73997,   4.41365,   4.77672,
     +     .00936,    .00343, 149.13029,   5.24701,   4.19235,
     +    3.23338,   4.90343,   5.26250,
     +     .00955,    .00351, 165.09706,   5.72685,   4.67328,
     +    3.73186,   5.38677,   5.74225,
     +     .00980,    .00362, 186.47972,   6.37846,   5.32259,
     +    4.39576,   6.04275,   6.39375,
     +     .01003,    .00373, 207.93051,   7.03793,   5.98017,
     +    5.06807,   6.70623,   7.05310,
     +     .01025,    .00383, 229.43666,   7.70162,   6.64505,
     +    5.75186,   7.37359,   7.71668 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01047,    .00393, 251.86169,   8.40359,   7.34520,
     +    6.46566,   8.07916,   8.41852,
     +     .01069,    .00403, 275.03058,   9.13363,   8.07513,
     +    7.21194,   8.81266,   9.14845,
     +     .01090,    .00413, 298.05942,   9.86484,   8.80702,
     +    7.96039,   9.54708,   9.87955,
     +     .01110,    .00422, 320.48654,  10.58538,   9.52680,
     +    8.69369,  10.27060,  10.59999,
     +     .01130,    .00432, 344.13333,  11.34867,  10.29145,
     +    9.47513,  11.03682,  11.36317,
     +     .01150,    .00441, 367.97964,  12.12838,  11.07055,
     +   10.26784,  11.81938,  12.14277,
     +     .01170,    .00450, 391.67102,  12.90666,  11.85021,
     +   11.06331,  12.60031,  12.92094,
     +     .01188,    .00459, 414.58792,  13.66795,  12.61167,
     +   11.83807,  13.36408,  13.68214 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01207,    .00468, 438.46045,  14.46656,  13.41101,
     +   12.65161,  14.16515,  14.48064,
     +     .01225,    .00477, 462.76813,  15.28523,  14.23124,
     +   13.48712,  14.98622,  15.29921,
     +     .01243,    .00485, 486.32785,  16.08779,  15.03383,
     +   14.30212,  15.79104,  16.10168,
     +     .01260,    .00494, 509.62466,  16.88289,  15.83149,
     +   15.11512,  16.58825,  16.89670,
     +     .01278,    .00502, 533.22858,  17.70005,  16.64858,
     +   15.94396,  17.40752,  17.71376 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00792,    .00276,    .92268,    .77768,    .00000,
     +     .00000,    .41371,    .78702,
     +     .00813,    .00284,   2.16837,    .80907,    .00000,
     +     .00000,    .44885,    .81843,
     +     .00843,    .00296,   4.50646,    .87081,    .00058,
     +     .00000,    .51602,    .88018,
     +     .00866,    .00305,   6.63257,    .92957,    .05263,
     +     .00000,    .57865,    .93895,
     +     .00890,    .00315,   9.31193,   1.00396,    .13848,
     +     .00000,    .65702,   1.01334,
     +     .00911,    .00324,  11.95417,   1.08045,    .21063,
     +     .00000,    .73688,   1.08983,
     +     .00931,    .00332,  14.82413,   1.16441,    .29099,
     +     .00000,    .82402,   1.17379,
     +     .00952,    .00341,  18.33987,   1.26399,    .39192,
     +     .00000,    .92690,   1.27336 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00971,    .00349,  21.64874,   1.36184,    .48477,
     +     .00000,   1.02757,   1.37120,
     +     .00990,    .00357,  25.21993,   1.46472,    .58708,
     +     .00000,   1.13313,   1.47406,
     +     .01004,    .00364,  28.23275,   1.55333,    .67275,
     +     .00000,   1.22383,   1.56266,
     +     .01036,    .00377,  35.35189,   1.76230,    .87844,
     +     .00039,   1.43718,   1.77160,
     +     .01063,    .00390,  42.21458,   1.96555,   1.07969,
     +     .16878,   1.64412,   1.97482,
     +     .01094,    .00403,  50.69024,   2.21929,   1.33136,
     +     .47538,   1.90188,   2.22852,
     +     .01127,    .00418,  60.50304,   2.51479,   1.62492,
     +     .78065,   2.20147,   2.52398,
     +     .01157,    .00432,  70.16046,   2.81039,   1.91499,
     +    1.07230,   2.50068,   2.81953 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01188,    .00446,  80.78963,   3.13668,   2.23744,
     +    1.40434,   2.83053,   3.14576,
     +     .01213,    .00458,  90.33891,   3.43011,   2.52980,
     +    1.70938,   3.12686,   3.43915,
     +     .01245,    .00472, 102.62627,   3.81271,   2.90899,
     +    2.09782,   3.51289,   3.82169,
     +     .01272,    .00485, 114.14958,   4.17583,   3.26806,
     +    2.46349,   3.87899,   4.18476,
     +     .01298,    .00497, 125.45138,   4.53210,   3.62343,
     +    2.83066,   4.23794,   4.54098,
     +     .01331,    .00513, 140.43799,   5.01216,   4.09946,
     +    3.31564,   4.72132,   5.02098,
     +     .01363,    .00528, 155.32347,   5.49420,   4.57779,
     +    3.80294,   5.20641,   5.50295,
     +     .01392,    .00542, 170.11800,   5.97596,   5.05815,
     +    4.29531,   5.69098,   5.98465 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01422,    .00557, 185.40556,   6.48186,   5.56033,
     +    4.80543,   6.19963,   6.49048,
     +     .01452,    .00571, 201.07309,   7.00457,   6.08055,
     +    5.33545,   6.72498,   7.01314,
     +     .01480,    .00584, 216.52696,   7.52489,   6.59899,
     +    5.86383,   7.24775,   7.53340,
     +     .01507,    .00598, 231.46297,   8.03451,   7.10576,
     +    6.37830,   7.75964,   8.04296,
     +     .01534,    .00611, 247.11029,   8.57152,   7.64138,
     +    6.92388,   8.29889,   8.57991,
     +     .01561,    .00624, 262.77499,   9.11689,   8.18392,
     +    7.47399,   8.84644,   9.12522,
     +     .01587,    .00637, 278.24603,   9.65860,   8.72432,
     +    8.02355,   9.39018,   9.66688,
     +     .01611,    .00649, 293.11594,  10.18578,   9.24938,
     +    8.55600,   9.91925,  10.19400 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01636,    .00661, 308.51913,  10.73625,   9.79809,
     +    9.11264,  10.47161,  10.74442,
     +     .01661,    .00673, 324.11700,  11.29800,  10.35867,
     +    9.68185,  11.03519,  11.30612,
     +     .01685,    .00685, 339.14505,  11.84610,  10.90456,
     +   10.23436,  11.58502,  11.85417,
     +     .01708,    .00697, 353.94315,  12.38711,  11.44526,
     +   10.78382,  12.12765,  12.39513,
     +     .01731,    .00708, 368.84518,  12.94053,  11.99644,
     +   11.34111,  12.68268,  12.94850 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01071,    .00383,    .96766,    .65516,    .00000,
     +     .00000,    .34838,    .65975,
     +     .01099,    .00395,   2.11064,    .68479,    .00000,
     +     .00000,    .38089,    .68938,
     +     .01141,    .00413,   4.20301,    .74076,    .00053,
     +     .00000,    .44101,    .74535,
     +     .01172,    .00427,   6.05855,    .79233,    .04577,
     +     .00000,    .49555,    .79692,
     +     .01205,    .00441,   8.35365,    .85642,    .11972,
     +     .00000,    .56269,    .86101,
     +     .01234,    .00454,  10.58026,    .92120,    .18072,
     +     .00000,    .63004,    .92579,
     +     .01262,    .00467,  12.96493,    .99143,    .24795,
     +     .00000,    .70269,    .99601,
     +     .01292,    .00480,  15.84857,   1.07404,    .33158,
     +     .00000,    .78781,   1.07861 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01317,    .00492,  18.52834,   1.15427,    .40769,
     +     .00000,    .87019,   1.15883,
     +     .01343,    .00504,  21.39123,   1.23809,    .49095,
     +     .00000,    .95605,   1.24264,
     +     .01363,    .00513,  23.78404,   1.30973,    .56014,
     +     .00000,   1.02928,   1.31427,
     +     .01406,    .00533,  29.36930,   1.47728,    .72478,
     +     .00035,   1.20016,   1.48181,
     +     .01444,    .00551,  34.67224,   1.63855,    .88411,
     +     .13332,   1.36422,   1.64305,
     +     .01486,    .00571,  41.12767,   1.83784,   1.08127,
     +     .37398,   1.56656,   1.84232,
     +     .01531,    .00592,  48.49774,   2.06752,   1.30878,
     +     .61034,   1.79934,   2.07198,
     +     .01572,    .00611,  55.65247,   2.29485,   1.53120,
     +     .83364,   2.02941,   2.29929 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01613,    .00631,  63.43407,   2.54356,   1.77621,
     +    1.08564,   2.28082,   2.54798,
     +     .01648,    .00648,  70.35272,   2.76549,   1.99661,
     +    1.31532,   2.50494,   2.76989,
     +     .01691,    .00669,  79.15980,   3.05245,   2.28007,
     +    1.60520,   2.79449,   3.05682,
     +     .01728,    .00688,  87.33150,   3.32255,   2.54624,
     +    1.87576,   3.06684,   3.32689,
     +     .01763,    .00705,  95.27763,   3.58580,   2.80796,
     +    2.14575,   3.33211,   3.59012,
     +     .01808,    .00727, 105.70777,   3.93769,   3.15571,
     +    2.49933,   3.68651,   3.94197,
     +     .01851,    .00748, 115.96183,   4.28818,   3.50235,
     +    2.85176,   4.03931,   4.29244,
     +     .01891,    .00768, 126.06320,   4.63602,   3.84806,
     +    3.20549,   4.38927,   4.64026 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01931,    .00788, 136.40358,   4.99859,   4.20678,
     +    3.56911,   4.75391,   5.00279,
     +     .01971,    .00808, 146.91354,   5.37073,   4.57598,
     +    3.94453,   5.12805,   5.37491,
     +     .02009,    .00827, 157.19888,   5.73884,   4.94163,
     +    4.31647,   5.49801,   5.74299,
     +     .02045,    .00846, 167.06117,   6.09713,   5.29680,
     +    4.67631,   5.85801,   6.10126,
     +     .02081,    .00864, 177.32535,   6.47265,   5.67026,
     +    5.05600,   6.23523,   6.47676,
     +     .02117,    .00883, 187.52299,   6.85176,   6.04626,
     +    5.43647,   6.61597,   6.85584,
     +     .02152,    .00900, 197.53407,   7.22644,   6.41899,
     +    5.81481,   6.99220,   7.23050,
     +     .02184,    .00917, 207.09143,   7.58916,   6.77921,
     +    6.17938,   7.35634,   7.59319 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02218,    .00934, 216.93488,   7.96612,   7.15394,
     +    6.55880,   7.73473,   7.97014,
     +     .02251,    .00951, 226.84616,   8.34904,   7.53504,
     +    6.94508,   8.11904,   8.35304,
     +     .02282,    .00967, 236.33539,   8.72082,   7.90432,
     +    7.31810,   8.49212,   8.72480,
     +     .02313,    .00983, 245.63991,   9.08646,   8.26885,
     +    7.68792,   8.85899,   9.09042,
     +     .02343,    .00999, 254.94882,   9.45865,   8.63855,
     +    8.06098,   9.23239,   9.46259 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01277,    .00464,    .99585,    .59253,    .00000,
     +     .00000,    .31515,    .59516,
     +     .01311,    .00479,   2.07914,    .62100,    .00000,
     +     .00000,    .34609,    .62363,
     +     .01362,    .00502,   4.03684,    .67371,    .00050,
     +     .00000,    .40236,    .67634,
     +     .01400,    .00519,   5.74777,    .72146,    .04218,
     +     .00000,    .45264,    .72408,
     +     .01440,    .00538,   7.84087,    .78018,    .10992,
     +     .00000,    .51396,    .78279,
     +     .01474,    .00554,   9.85195,    .83893,    .16520,
     +     .00000,    .57490,    .84154,
     +     .01508,    .00570,  11.98786,    .90216,    .22573,
     +     .00000,    .64019,    .90476,
     +     .01543,    .00586,  14.55092,    .97617,    .30061,
     +     .00000,    .71635,    .97876 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01575,    .00601,  16.91485,   1.04753,    .36832,
     +     .00000,    .78954,   1.05012,
     +     .01605,    .00616,  19.42508,   1.12182,    .44206,
     +     .00000,    .86556,   1.12440,
     +     .01629,    .00627,  21.51147,   1.18501,    .50307,
     +     .00000,    .93010,   1.18759,
     +     .01681,    .00652,  26.34610,   1.33205,    .64748,
     +     .00032,   1.07998,   1.33462,
     +     .01726,    .00674,  30.89482,   1.47268,    .78630,
     +     .11610,   1.22298,   1.47524,
     +     .01777,    .00699,  36.38441,   1.64542,    .95703,
     +     .32487,   1.39831,   1.64796,
     +     .01831,    .00725,  42.59977,   1.84324,   1.15277,
     +     .52825,   1.59876,   1.84577,
     +     .01880,    .00750,  48.58418,   2.03779,   1.34290,
     +     .71915,   1.79563,   2.04031 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01930,    .00774,  55.04686,   2.24950,   1.55124,
     +     .93343,   2.00963,   2.25201,
     +     .01971,    .00795,  60.75736,   2.43754,   1.73776,
     +    1.12783,   2.19952,   2.44003,
     +     .02022,    .00821,  67.97968,   2.67945,   1.97643,
     +    1.37187,   2.44363,   2.68193,
     +     .02067,    .00843,  74.63811,   2.90602,   2.19943,
     +    1.59849,   2.67210,   2.90848,
     +     .02109,    .00865,  81.07973,   3.12597,   2.41785,
     +    1.82379,   2.89377,   3.12843,
     +     .02163,    .00892,  89.48321,   3.41858,   2.70666,
     +    2.11734,   3.18849,   3.42102,
     +     .02213,    .00917,  97.69418,   3.70862,   2.99317,
     +    2.40853,   3.48049,   3.71105,
     +     .02261,    .00942, 105.74004,   3.99526,   3.27774,
     +    2.69964,   3.76893,   3.99768 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02309,    .00966, 113.92963,   4.29272,   3.57170,
     +    2.99747,   4.06813,   4.29512,
     +     .02356,    .00991, 122.21209,   4.59682,   3.87306,
     +    3.30381,   4.37392,   4.59922,
     +     .02401,    .01014, 130.27927,   4.89650,   4.17042,
     +    3.60618,   4.67516,   4.89888,
     +     .02444,    .01036, 137.97757,   5.18709,   4.45817,
     +    3.89758,   4.96721,   5.18947,
     +     .02487,    .01059, 145.95813,   5.49069,   4.75981,
     +    4.20415,   5.27224,   5.49306,
     +     .02530,    .01081, 153.85011,   5.79608,   5.06239,
     +    4.51019,   5.57901,   5.79844,
     +     .02571,    .01102, 161.56978,   6.09703,   5.36149,
     +    4.81369,   5.88126,   6.09938,
     +     .02609,    .01123, 168.90933,   6.38743,   5.64962,
     +    5.10518,   6.17287,   6.38978 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02649,    .01143, 176.44226,   6.68841,   5.94854,
     +    5.40772,   6.47505,   6.69075,
     +     .02688,    .01164, 184.00105,   6.99329,   6.25172,
     +    5.71491,   6.78111,   6.99563,
     +     .02725,    .01184, 191.21007,   7.28844,   6.54461,
     +    6.01064,   7.07736,   7.29077,
     +     .02761,    .01203, 198.26134,   7.57808,   6.83316,
     +    6.30329,   7.36804,   7.58041,
     +     .02797,    .01222, 205.28700,   7.87203,   7.12489,
     +    6.59754,   7.66302,   7.87435 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01448,    .00532,   1.01696,    .55171,    .00000,
     +     .00000,    .29359,    .55328,
     +     .01487,    .00550,   2.05814,    .57933,    .00000,
     +     .00000,    .32341,    .58089,
     +     .01545,    .00577,   3.92413,    .62979,    .00048,
     +     .00000,    .37706,    .63135,
     +     .01588,    .00598,   5.53811,    .67497,    .03979,
     +     .00000,    .42450,    .67652,
     +     .01633,    .00619,   7.49716,    .73013,    .10344,
     +     .00000,    .48199,    .73168,
     +     .01673,    .00638,   9.36647,    .78494,    .15497,
     +     .00000,    .53875,    .78648,
     +     .01711,    .00656,  11.33991,    .84361,    .21115,
     +     .00000,    .59926,    .84514,
     +     .01751,    .00676,  13.69499,    .91204,    .28035,
     +     .00000,    .66961,    .91357 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01787,    .00694,  15.85532,    .97769,    .34264,
     +     .00000,    .73689,    .97922,
     +     .01822,    .00710,  18.13943,   1.04583,    .41027,
     +     .00000,    .80658,   1.04735,
     +     .01849,    .00724,  20.03025,   1.10360,    .46604,
     +     .00000,    .86556,   1.10512,
     +     .01908,    .00753,  24.38881,   1.23755,    .59755,
     +     .00030,   1.00202,   1.23906,
     +     .01960,    .00779,  28.46281,   1.36505,    .72338,
     +     .10521,   1.13165,   1.36656,
     +     .02018,    .00808,  33.34882,   1.52098,    .87742,
     +     .29390,   1.28988,   1.52248,
     +     .02079,    .00838,  38.84768,   1.69873,   1.05323,
     +     .47665,   1.46997,   1.70023,
     +     .02134,    .00866,  44.11090,   1.87274,   1.22320,
     +     .64737,   1.64604,   1.87423 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02191,    .00895,  49.76577,   2.06137,   1.40873,
     +     .83829,   1.83670,   2.06285,
     +     .02238,    .00919,  54.74022,   2.22834,   1.57428,
     +    1.01091,   2.00532,   2.22982,
     +     .02296,    .00949,  61.00223,   2.44236,   1.78533,
     +    1.22677,   2.22130,   2.44384,
     +     .02347,    .00975,  66.74857,   2.64210,   1.98182,
     +    1.42648,   2.42273,   2.64357,
     +     .02395,    .00999,  72.28745,   2.83546,   2.17374,
     +    1.62451,   2.61761,   2.83693,
     +     .02455,    .01031,  79.48110,   3.09178,   2.42662,
     +    1.88158,   2.87582,   3.09325,
     +     .02512,    .01060,  86.47865,   3.34498,   2.67661,
     +    2.13569,   3.13075,   3.34645,
     +     .02566,    .01089,  93.30938,   3.59446,   2.92418,
     +    2.38901,   3.38182,   3.59592 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02621,    .01117, 100.23331,   3.85252,   3.17909,
     +    2.64729,   3.64144,   3.85398,
     +     .02674,    .01145, 107.21055,   4.11560,   3.43968,
     +    2.91223,   3.90601,   4.11706,
     +     .02725,    .01172, 113.98309,   4.37414,   3.69613,
     +    3.17304,   4.16594,   4.37560,
     +     .02773,    .01197, 120.42332,   4.62417,   3.94362,
     +    3.42368,   4.41726,   4.62563,
     +     .02822,    .01223, 127.08096,   4.88479,   4.20247,
     +    3.68680,   4.67915,   4.88626,
     +     .02870,    .01248, 133.64204,   5.14627,   4.46145,
     +    3.94874,   4.94186,   5.14774,
     +     .02916,    .01273, 140.04324,   5.40340,   4.71692,
     +    4.20801,   5.20015,   5.40487,
     +     .02960,    .01296, 146.11098,   5.65095,   4.96245,
     +    4.45642,   5.44877,   5.65242 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03004,    .01320, 152.32272,   5.90700,   5.21667,
     +    4.71374,   5.70589,   5.90847,
     +     .03048,    .01343, 158.54025,   6.16586,   5.47402,
     +    4.97452,   5.96579,   6.16733,
     +     .03090,    .01366, 164.45302,   6.41591,   5.72209,
     +    5.22500,   6.21682,   6.41739,
     +     .03131,    .01387, 170.22632,   6.66093,   5.96613,
     +    5.47256,   6.46275,   6.66241,
     +     .03172,    .01409, 175.96107,   6.90904,   6.21231,
     +    5.72086,   6.71178,   6.91052 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01596,    .00592,   1.03414,    .52198,    .00000,
     +     .00000,    .27792,    .52290,
     +     .01639,    .00613,   2.04283,    .54892,    .00000,
     +     .00000,    .30688,    .54983,
     +     .01703,    .00643,   3.83979,    .59767,    .00047,
     +     .00000,    .35856,    .59857,
     +     .01751,    .00666,   5.38162,    .64094,    .03803,
     +     .00000,    .40391,    .64184,
     +     .01801,    .00691,   7.24166,    .69349,    .09867,
     +     .00000,    .45859,    .69438,
     +     .01845,    .00712,   9.00691,    .74540,    .14746,
     +     .00000,    .51230,    .74630,
     +     .01887,    .00733,  10.86174,    .80075,    .20046,
     +     .00000,    .56934,    .80164,
     +     .01932,    .00755,  13.06575,    .86513,    .26555,
     +     .00000,    .63547,    .86602 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01972,    .00775,  15.07890,    .92664,    .32391,
     +     .00000,    .69847,    .92752,
     +     .02010,    .00794,  17.20016,    .99035,    .38713,
     +     .00000,    .76360,    .99123,
     +     .02040,    .00809,  18.95065,   1.04421,    .43914,
     +     .00000,    .81857,   1.04510,
     +     .02106,    .00842,  22.96912,   1.16875,    .56139,
     +     .00029,    .94541,   1.16963,
     +     .02163,    .00871,  26.70590,   1.28686,    .67793,
     +     .09745,   1.06546,   1.28774,
     +     .02227,    .00903,  31.16546,   1.43080,    .82011,
     +     .27186,   1.21151,   1.43167,
     +     .02294,    .00938,  36.16081,   1.59429,    .98178,
     +     .44002,   1.37714,   1.59517,
     +     .02355,    .00969,  40.91973,   1.75375,   1.13752,
     +     .59652,   1.53849,   1.75463 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02418,    .01002,  46.01233,   1.92609,   1.30700,
     +     .77102,   1.71268,   1.92697,
     +     .02470,    .01029,  50.47645,   2.07824,   1.45782,
     +     .92838,   1.86634,   2.07912,
     +     .02534,    .01062,  56.07534,   2.27271,   1.64955,
     +    1.12456,   2.06259,   2.27359,
     +     .02590,    .01091,  61.19437,   2.45368,   1.82755,
     +    1.30555,   2.24510,   2.45456,
     +     .02642,    .01118,  66.11441,   2.62848,   2.00102,
     +    1.48464,   2.42129,   2.62937,
     +     .02709,    .01153,  72.48181,   2.85957,   2.22897,
     +    1.71644,   2.65410,   2.86046,
     +     .02772,    .01187,  78.65396,   3.08722,   2.45370,
     +    1.94496,   2.88333,   3.08812,
     +     .02831,    .01218,  84.66079,   3.31100,   2.67574,
     +    2.17224,   3.10856,   3.31190 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02891,    .01250,  90.72955,   3.54188,   2.90378,
     +    2.40337,   3.34087,   3.54279,
     +     .02950,    .01281,  96.82775,   3.77674,   3.13639,
     +    2.63993,   3.57709,   3.77765,
     +     .03006,    .01311, 102.73100,   4.00705,   3.36482,
     +    2.87232,   3.80867,   4.00798,
     +     .03059,    .01339, 108.32896,   4.22931,   3.58479,
     +    3.09516,   4.03210,   4.23024,
     +     .03112,    .01368, 114.10289,   4.46057,   3.81446,
     +    3.32870,   4.26452,   4.46150,
     +     .03165,    .01396, 119.77768,   4.69211,   4.04377,
     +    3.56069,   4.49717,   4.69305,
     +     .03216,    .01423, 125.30287,   4.91942,   4.26961,
     +    3.78996,   4.72554,   4.92037,
     +     .03264,    .01449, 130.52750,   5.13786,   4.48626,
     +    4.00921,   4.94496,   5.13883 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03312,    .01475, 135.86543,   5.36345,   4.71023,
     +    4.23598,   5.17153,   5.36442,
     +     .03361,    .01501, 141.19783,   5.59116,   4.93661,
     +    4.46545,   5.40018,   5.59214,
     +     .03407,    .01526, 146.25728,   5.81075,   5.15446,
     +    4.68547,   5.62066,   5.81173,
     +     .03451,    .01550, 151.19054,   6.02566,   5.36853,
     +    4.90270,   5.83642,   6.02666,
     +     .03496,    .01574, 156.07883,   6.24290,   5.58407,
     +    5.12015,   6.05450,   6.24391 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02159,    .00828,   1.09367,    .43953,    .00000,
     +     .00000,    .23474,    .43926,
     +     .02219,    .00858,   2.00276,    .46428,    .00000,
     +     .00000,    .26105,    .46401,
     +     .02307,    .00903,   3.59636,    .50792,    .00043,
     +     .00000,    .30696,    .50766,
     +     .02373,    .00937,   4.92971,    .54569,    .03300,
     +     .00000,    .34632,    .54544,
     +     .02442,    .00973,   6.50738,    .59079,    .08511,
     +     .00000,    .39307,    .59054,
     +     .02502,    .01005,   7.97924,    .63460,    .12622,
     +     .00000,    .43826,    .63436,
     +     .02560,    .01035,   9.50283,    .68070,    .17039,
     +     .00000,    .48565,    .68046,
     +     .02622,    .01068,  11.28859,    .73385,    .22408,
     +     .00000,    .54015,    .73362 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02676,    .01096,  12.89769,    .78397,    .27168,
     +     .00000,    .59142,    .78375,
     +     .02728,    .01124,  14.57499,    .83553,    .32283,
     +     .00000,    .64406,    .83532,
     +     .02770,    .01146,  15.94527,    .87874,    .36457,
     +     .00000,    .68812,    .87854,
     +     .02860,    .01193,  19.04982,    .97773,    .46177,
     +     .00026,    .78888,    .97755,
     +     .02937,    .01235,  21.88936,   1.07052,    .55335,
     +     .07666,    .88315,   1.07035,
     +     .03025,    .01282,  25.22499,   1.18233,    .66382,
     +     .21297,    .99657,   1.18218,
     +     .03116,    .01331,  28.90559,   1.30786,    .78799,
     +     .34251,   1.12373,   1.30773,
     +     .03200,    .01376,  32.35968,   1.42886,    .90623,
     +     .46166,   1.24616,   1.42875 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03284,    .01422,  36.00874,   1.55836,   1.03366,
     +     .59328,   1.37708,   1.55828,
     +     .03355,    .01461,  39.17184,   1.67174,   1.14612,
     +     .71099,   1.49161,   1.67168,
     +     .03441,    .01508,  43.09220,   1.81532,   1.28776,
     +     .85633,   1.63654,   1.81528,
     +     .03518,    .01549,  46.63449,   1.94772,   1.41808,
     +     .98917,   1.77012,   1.94771,
     +     .03588,    .01588,  50.00792,   2.07471,   1.54420,
     +    1.11976,   1.89817,   2.07473,
     +     .03678,    .01637,  54.32417,   2.24113,   1.70847,
     +    1.28723,   2.06589,   2.24117,
     +     .03763,    .01684,  58.46083,   2.40364,   1.86903,
     +    1.45089,   2.22961,   2.40372,
     +     .03842,    .01728,  62.44799,   2.56220,   2.02649,
     +    1.61251,   2.38927,   2.56230 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03922,    .01772,  66.43330,   2.72446,   2.18688,
     +    1.77544,   2.55261,   2.72459,
     +     .04001,    .01816,  70.40141,   2.88834,   2.34935,
     +    1.94107,   2.71752,   2.88850,
     +     .04076,    .01857,  74.20909,   3.04797,   2.50783,
     +    2.10269,   2.87811,   3.04816,
     +     .04147,    .01896,  77.78704,   3.20095,   2.65939,
     +    2.25657,   3.03199,   3.20117,
     +     .04218,    .01936,  81.45107,   3.35924,   2.81675,
     +    2.41698,   3.19115,   3.35948,
     +     .04289,    .01975,  85.01991,   3.51666,   2.97282,
     +    2.57521,   3.34943,   3.51694,
     +     .04356,    .02013,  88.47195,   3.67041,   3.12574,
     +    2.73083,   3.50397,   3.67071,
     +     .04420,    .02049,  91.71027,   3.81729,   3.27158,
     +    2.87874,   3.65160,   3.81762 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04484,    .02085,  94.99728,   3.96821,   3.42159,
     +    3.03097,   3.80326,   3.96857,
     +     .04549,    .02120,  98.25966,   4.11980,   3.57248,
     +    3.18427,   3.95557,   4.12018,
     +     .04610,    .02155, 101.33154,   4.26518,   3.71687,
     +    3.33040,   4.10163,   4.26559,
     +     .04668,    .02187, 104.31390,   4.40693,   3.85826,
     +    3.47423,   4.24402,   4.40737,
     +     .04727,    .02221, 107.24430,   4.54941,   3.99979,
     +    3.61730,   4.38714,   4.54988 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02928,    .01166,   1.16881,    .37065,    .00000,
     +     .00000,    .19900,    .37028,
     +     .03010,    .01211,   1.98118,    .39318,    .00000,
     +     .00000,    .22276,    .39283,
     +     .03132,    .01278,   3.38618,    .43201,    .00039,
     +     .00000,    .26336,    .43169,
     +     .03222,    .01327,   4.53167,    .46482,    .02857,
     +     .00000,    .29743,    .46453,
     +     .03317,    .01380,   5.85990,    .50337,    .07321,
     +     .00000,    .33727,    .50311,
     +     .03399,    .01426,   7.07718,    .54019,    .10773,
     +     .00000,    .37518,    .53996,
     +     .03479,    .01470,   8.31758,    .57841,    .14439,
     +     .00000,    .41442,    .57821,
     +     .03564,    .01517,   9.75067,    .62208,    .18848,
     +     .00000,    .45914,    .62191 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03638,    .01559,  11.02370,    .66270,    .22709,
     +     .00000,    .50066,    .66255,
     +     .03709,    .01599,  12.33570,    .70417,    .26827,
     +     .00000,    .54299,    .70406,
     +     .03766,    .01631,  13.39624,    .73862,    .30158,
     +     .00000,    .57810,    .73852,
     +     .03888,    .01699,  15.76589,    .81675,    .37838,
     +     .00022,    .65761,    .81670,
     +     .03994,    .01759,  17.89537,    .88907,    .44985,
     +     .06000,    .73110,    .88906,
     +     .04113,    .01826,  20.35500,    .97517,    .53506,
     +     .16595,    .81847,    .97522,
     +     .04237,    .01897,  23.02624,   1.07066,    .62968,
     +     .26515,    .91524,   1.07077,
     +     .04350,    .01961,  25.49313,   1.16155,    .71869,
     +     .35528,   1.00725,   1.16170 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04465,    .02026,  28.06395,   1.25784,    .81364,
     +     .45388,   1.10465,   1.25804,
     +     .04560,    .02080,  30.26609,   1.34138,    .89670,
     +     .54128,   1.18910,   1.34163,
     +     .04676,    .02147,  32.96088,   1.44616,   1.00031,
     +     .64812,   1.29493,   1.44646,
     +     .04779,    .02205,  35.36506,   1.54184,   1.09473,
     +     .74484,   1.39154,   1.54220,
     +     .04874,    .02260,  37.63250,   1.63295,   1.18545,
     +     .83927,   1.48348,   1.63335,
     +     .04995,    .02329,  40.49786,   1.75122,   1.30250,
     +     .95916,   1.60278,   1.75168,
     +     .05109,    .02394,  43.21049,   1.86566,   1.41586,
     +    1.07527,   1.71816,   1.86618,
     +     .05216,    .02455,  45.79832,   1.97643,   1.52619,
     +    1.18907,   1.82980,   1.97701 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05323,    .02517,  48.35457,   2.08881,   1.63758,
     +    1.30276,   1.94303,   2.08945,
     +     .05428,    .02577,  50.87468,   2.20147,   1.74958,
     +    1.41749,   2.05650,   2.20216,
     +     .05527,    .02635,  53.26999,   2.31041,   1.85807,
     +    1.52866,   2.16621,   2.31116,
     +     .05622,    .02689,  55.49800,   2.41407,   1.96105,
     +    1.63369,   2.27056,   2.41486,
     +     .05717,    .02744,  57.76220,   2.52067,   2.06736,
     +    1.74258,   2.37787,   2.52152,
     +     .05810,    .02797,  59.94532,   2.62595,   2.17204,
     +    1.84919,   2.48381,   2.62685,
     +     .05899,    .02849,  62.04211,   2.72820,   2.27406,
     +    1.95350,   2.58670,   2.72915,
     +     .05984,    .02898,  63.99139,   2.82527,   2.37074,
     +    2.05200,   2.68436,   2.82628 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06069,    .02947,  65.95577,   2.92449,   2.46966,
     +    2.15285,   2.78416,   2.92554,
     +     .06154,    .02996,  67.89165,   3.02362,   2.56865,
     +    2.25389,   2.88386,   3.02472,
     +     .06234,    .03042,  69.69843,   3.11812,   2.66280,
     +    2.34960,   2.97890,   3.11927,
     +     .06311,    .03087,  71.44494,   3.20992,   2.75468,
     +    2.44351,   3.07121,   3.21111,
     +     .06389,    .03132,  73.14378,   3.30161,   2.84604,
     +    2.53627,   3.16341,   3.30285 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03505,    .01434,   1.22574,    .33618,    .00000,
     +     .00000,    .18122,    .33612,
     +     .03604,    .01490,   1.98337,    .35741,    .00000,
     +     .00000,    .20353,    .35739,
     +     .03751,    .01574,   3.28330,    .39354,    .00037,
     +     .00000,    .24123,    .39358,
     +     .03859,    .01636,   4.32651,    .42367,    .02620,
     +     .00000,    .27246,    .42376,
     +     .03974,    .01702,   5.52109,    .45873,    .06689,
     +     .00000,    .30866,    .45887,
     +     .04073,    .01759,   6.60400,    .49187,    .09796,
     +     .00000,    .34276,    .49206,
     +     .04168,    .01814,   7.69683,    .52601,    .13073,
     +     .00000,    .37779,    .52624,
     +     .04270,    .01873,   8.94821,    .56478,    .16988,
     +     .00000,    .41750,    .56506 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04359,    .01924,  10.05011,    .60055,    .20391,
     +     .00000,    .45406,    .60087,
     +     .04445,    .01973,  11.17776,    .63691,    .24003,
     +     .00000,    .49117,    .63727,
     +     .04513,    .02013,  12.08333,    .66692,    .26909,
     +     .00000,    .52177,    .66732,
     +     .04659,    .02098,  14.08927,    .73460,    .33570,
     +     .00021,    .59067,    .73507,
     +     .04786,    .02171,  15.87208,    .79677,    .39721,
     +     .05176,    .65386,    .79730,
     +     .04928,    .02254,  17.90951,    .87022,    .47001,
     +     .14278,    .72844,    .87083,
     +     .05076,    .02340,  20.10049,    .95107,    .55025,
     +     .22724,    .81042,    .95175,
     +     .05211,    .02419,  22.10351,   1.02741,    .62516,
     +     .30339,    .88776,   1.02817 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05348,    .02498,  24.17320,   1.10778,    .70458,
     +     .38619,    .96911,   1.10861,
     +     .05462,    .02565,  25.93295,   1.17712,    .77367,
     +     .45921,   1.03926,   1.17802,
     +     .05600,    .02646,  28.06911,   1.26356,    .85934,
     +     .54790,   1.12664,   1.26453,
     +     .05722,    .02717,  29.95960,   1.34203,    .93694,
     +     .62772,   1.20593,   1.34307,
     +     .05835,    .02783,  31.73178,   1.41640,   1.01118,
     +     .70531,   1.28104,   1.41751,
     +     .05978,    .02867,  33.95355,   1.51239,   1.10640,
     +     .80323,   1.37794,   1.51358,
     +     .06112,    .02946,  36.04051,   1.60473,   1.19810,
     +     .89753,   1.47113,   1.60600,
     +     .06239,    .03020,  38.01856,   1.69369,   1.28693,
     +     .98953,   1.56086,   1.69503 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06365,    .03094,  39.95755,   1.78344,   1.37611,
     +    1.08091,   1.65137,   1.78486,
     +     .06489,    .03167,  41.85704,   1.87299,   1.46539,
     +    1.17272,   1.74165,   1.87449,
     +     .06607,    .03236,  43.65147,   1.95922,   1.55147,
     +    1.26129,   1.82855,   1.96078,
     +     .06718,    .03301,  45.30947,   2.04087,   1.63281,
     +    1.34459,   1.91083,   2.04251,
     +     .06830,    .03366,  46.98618,   2.12455,   1.71649,
     +    1.43064,   1.99514,   2.12625,
     +     .06939,    .03431,  48.59199,   2.20680,   1.79850,
     +    1.51449,   2.07799,   2.20858,
     +     .07044,    .03492,  50.12738,   2.28643,   1.87818,
     +    1.59628,   2.15819,   2.28827,
     +     .07143,    .03550,  51.54613,   2.36173,   1.95337,
     +    1.67320,   2.23401,   2.36363 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07244,    .03609,  52.96917,   2.43843,   2.03007,
     +    1.75169,   2.31124,   2.44039,
     +     .07343,    .03667,  54.36502,   2.51481,   2.10657,
     +    1.83009,   2.38814,   2.51684,
     +     .07437,    .03723,  55.66000,   2.58735,   2.17905,
     +    1.90406,   2.46117,   2.58944,
     +     .07527,    .03775,  56.90845,   2.65766,   2.24962,
     +    1.97649,   2.53194,   2.65981,
     +     .07618,    .03829,  58.11419,   2.72760,   2.31951,
     +    2.04773,   2.60232,   2.72980 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03987,    .01669,   1.27556,    .31427,    .00000,
     +     .00000,    .16994,    .31454,
     +     .04099,    .01735,   1.99532,    .33459,    .00000,
     +     .00000,    .19124,    .33490,
     +     .04268,    .01833,   3.22207,    .36886,    .00036,
     +     .00000,    .22694,    .36926,
     +     .04391,    .01905,   4.19518,    .39716,    .02460,
     +     .00000,    .25626,    .39762,
     +     .04522,    .01982,   5.29913,    .42986,    .06263,
     +     .00000,    .29001,    .43039,
     +     .04635,    .02049,   6.29191,    .46056,    .09142,
     +     .00000,    .32158,    .46115,
     +     .04744,    .02113,   7.28657,    .49198,    .12160,
     +     .00000,    .35383,    .49263,
     +     .04860,    .02181,   8.41798,    .52752,    .15751,
     +     .00000,    .39023,    .52823 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04961,    .02240,   9.40782,    .56011,    .18855,
     +     .00000,    .42355,    .56087,
     +     .05058,    .02298,  10.41546,    .59312,    .22136,
     +     .00000,    .45725,    .59394,
     +     .05136,    .02344,  11.22074,    .62026,    .24766,
     +     .00000,    .48493,    .62112,
     +     .05302,    .02442,  12.99297,    .68118,    .30768,
     +     .00020,    .54698,    .68213,
     +     .05446,    .02527,  14.55503,    .73680,    .36279,
     +     .04647,    .60355,    .73784,
     +     .05607,    .02623,  16.32593,    .80217,    .42767,
     +     .12794,    .66996,    .80330,
     +     .05775,    .02723,  18.21630,    .87371,    .49877,
     +     .20302,    .74254,    .87494,
     +     .05928,    .02813,  19.93140,    .94087,    .56478,
     +     .27035,    .81062,    .94219 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06082,    .02905,  21.69225,   1.01123,    .63444,
     +     .34322,    .88190,   1.01264,
     +     .06211,    .02981,  23.18109,   1.07169,    .69479,
     +     .40723,    .94311,   1.07319,
     +     .06367,    .03074,  24.97740,   1.14672,    .76930,
     +     .48463,   1.01901,   1.14830,
     +     .06505,    .03156,  26.55744,   1.21452,    .83649,
     +     .55397,   1.08758,   1.21620,
     +     .06632,    .03231,  28.03186,   1.27857,    .90055,
     +     .62116,   1.15232,   1.28032,
     +     .06793,    .03327,  29.86911,   1.36087,    .98237,
     +     .70559,   1.23547,   1.36273,
     +     .06944,    .03416,  31.58462,   1.43971,   1.06083,
     +     .78655,   1.31509,   1.44166,
     +     .07087,    .03501,  33.20261,   1.51538,   1.13656,
     +     .86526,   1.39148,   1.51742 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07229,    .03585,  34.77925,   1.59142,   1.21229,
     +     .94311,   1.46823,   1.59355,
     +     .07368,    .03668,  36.31631,   1.66702,   1.28783,
     +    1.02108,   1.54452,   1.66925,
     +     .07500,    .03746,  37.76157,   1.73958,   1.36045,
     +    1.09604,   1.61771,   1.74188,
     +     .07624,    .03820,  39.08999,   1.80805,   1.42882,
     +    1.16629,   1.68677,   1.81044,
     +     .07749,    .03894,  40.42842,   1.87802,   1.49897,
     +    1.23868,   1.75733,   1.88050,
     +     .07872,    .03967,  41.70337,   1.94658,   1.56748,
     +    1.30898,   1.82645,   1.94913,
     +     .07989,    .04036,  42.91830,   2.01278,   1.63389,
     +    1.37738,   1.89318,   2.01541,
     +     .08100,    .04102,  44.03553,   2.07518,   1.69637,
     +    1.44152,   1.95608,   2.07789 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08212,    .04168,  45.15203,   2.13860,   1.75994,
     +    1.50681,   2.02000,   2.14138,
     +     .08323,    .04234,  46.24319,   2.20160,   1.82320,
     +    1.57187,   2.08348,   2.20445,
     +     .08428,    .04296,  47.25057,   2.26126,   1.88296,
     +    1.63307,   2.14359,   2.26418,
     +     .08528,    .04355,  48.21991,   2.31898,   1.94106,
     +    1.69291,   2.20175,   2.32198,
     +     .08629,    .04415,  49.15062,   2.37622,   1.99841,
     +    1.75157,   2.25942,   2.37928 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04411,    .01893,   1.33051,    .29955,    .00000,
     +     .00000,    .16212,    .29981,
     +     .04536,    .01967,   2.02308,    .31917,    .00000,
     +     .00000,    .18265,    .31950,
     +     .04723,    .02078,   3.19155,    .35201,    .00035,
     +     .00000,    .21682,    .35244,
     +     .04860,    .02160,   4.10982,    .37891,    .02339,
     +     .00000,    .24465,    .37942,
     +     .05005,    .02246,   5.14352,    .40981,    .05941,
     +     .00000,    .27651,    .41040,
     +     .05131,    .02321,   6.06715,    .43864,    .08646,
     +     .00000,    .30616,    .43931,
     +     .05251,    .02393,   6.98706,    .46801,    .11472,
     +     .00000,    .33629,    .46875,
     +     .05380,    .02470,   8.02765,    .50112,    .14819,
     +     .00000,    .37019,    .50193 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05491,    .02537,   8.93326,    .53132,    .17699,
     +     .00000,    .40106,    .53221,
     +     .05599,    .02601,   9.85107,    .56183,    .20735,
     +     .00000,    .43221,    .56278,
     +     .05685,    .02653,  10.58163,    .58683,    .23161,
     +     .00000,    .45771,    .58783,
     +     .05868,    .02762,  12.18073,    .64273,    .28675,
     +     .00019,    .51465,    .64385,
     +     .06027,    .02857,  13.58040,    .69354,    .33714,
     +     .04257,    .56634,    .69475,
     +     .06205,    .02964,  15.15659,    .75298,    .39621,
     +     .11701,    .62674,    .75430,
     +     .06390,    .03075,  16.82882,    .81772,    .46065,
     +     .18523,    .69245,    .81916,
     +     .06558,    .03176,  18.33632,    .87820,    .52018,
     +     .24611,    .75379,    .87976 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06728,    .03277,  19.87573,    .94133,    .58276,
     +     .31177,    .81776,    .94299,
     +     .06869,    .03362,  21.17130,    .99539,    .63681,
     +     .36925,    .87251,    .99714,
     +     .07040,    .03464,  22.72645,   1.06222,    .70328,
     +     .43849,    .94016,   1.06409,
     +     .07192,    .03555,  24.08728,   1.12239,    .76301,
     +     .50029,   1.00104,   1.12436,
     +     .07331,    .03638,  25.35230,   1.17908,    .81980,
     +     .56004,   1.05837,   1.18113,
     +     .07507,    .03744,  26.92054,   1.25165,    .89207,
     +     .63481,   1.13173,   1.25382,
     +     .07673,    .03843,  28.37736,   1.32092,    .96113,
     +     .70627,   1.20173,   1.32321,
     +     .07829,    .03936,  29.74560,   1.38720,   1.02759,
     +     .77555,   1.26869,   1.38960 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07984,    .04029,  31.07210,   1.45358,   1.09383,
     +     .84383,   1.33574,   1.45608,
     +     .08136,    .04119,  32.36003,   1.51940,   1.15971,
     +     .91202,   1.40219,   1.52201,
     +     .08280,    .04205,  33.56620,   1.58239,   1.22287,
     +     .97742,   1.46577,   1.58509,
     +     .08415,    .04286,  34.66984,   1.64165,   1.28217,
     +    1.03852,   1.52559,   1.64445,
     +     .08551,    .04367,  35.77827,   1.70208,   1.34288,
     +    1.10135,   1.58657,   1.70498,
     +     .08685,    .04447,  36.82911,   1.76112,   1.40201,
     +    1.16219,   1.64614,   1.76410,
     +     .08812,    .04522,  37.82752,   1.81801,   1.45920,
     +    1.22128,   1.70353,   1.82108,
     +     .08933,    .04594,  38.74189,   1.87150,   1.51287,
     +    1.27653,   1.75749,   1.87466 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09054,    .04666,  39.65287,   1.92575,   1.56738,
     +    1.33267,   1.81220,   1.92900,
     +     .09174,    .04737,  40.54023,   1.97953,   1.62150,
     +    1.38851,   1.86644,   1.98286,
     +     .09288,    .04805,  41.35570,   2.03033,   1.67251,
     +    1.44090,   1.91767,   2.03375,
     +     .09397,    .04870,  42.13911,   2.07943,   1.72204,
     +    1.49208,   1.96718,   2.08292,
     +     .09506,    .04934,  42.88732,   2.12797,   1.77080,
     +    1.54209,   2.01613,   2.13154 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06070,    .02832,   1.53654,    .25976,    .00000,
     +     .00000,    .14123,    .26057,
     +     .06244,    .02939,   2.13977,    .27721,    .00000,
     +     .00000,    .15941,    .27814,
     +     .06502,    .03101,   3.12642,    .30572,    .00031,
     +     .00000,    .18897,    .30683,
     +     .06692,    .03218,   3.87929,    .32847,    .01984,
     +     .00000,    .21247,    .32970,
     +     .06891,    .03342,   4.70568,    .35411,    .05002,
     +     .00000,    .23890,    .35549,
     +     .07064,    .03449,   5.42890,    .37757,    .07215,
     +     .00000,    .26302,    .37907,
     +     .07229,    .03551,   6.13529,    .40111,    .09492,
     +     .00000,    .28717,    .40272,
     +     .07405,    .03661,   6.91979,    .42731,    .12156,
     +     .00000,    .31402,    .42905 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07557,    .03755,   7.59088,    .45084,    .14412,
     +     .00000,    .33810,    .45269,
     +     .07704,    .03846,   8.26105,    .47439,    .16768,
     +     .00000,    .36216,    .47634,
     +     .07821,    .03918,   8.78753,    .49346,    .18630,
     +     .00000,    .38165,    .49550,
     +     .08070,    .04071,   9.91901,    .53559,    .22811,
     +     .00016,    .42463,    .53781,
     +     .08284,    .04203,  10.88610,    .57329,    .26573,
     +     .03202,    .46305,    .57566,
     +     .08523,    .04350,  11.95036,    .61672,    .30917,
     +     .08753,    .50728,    .61927,
     +     .08772,    .04503,  13.05641,    .66329,    .35584,
     +     .13748,    .55466,    .66603,
     +     .08997,    .04641,  14.03198,    .70612,    .39829,
     +     .18136,    .59820,    .70902 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09224,    .04779,  15.01009,    .75023,    .44234,
     +     .22813,    .64302,    .75330,
     +     .09412,    .04894,  15.82025,    .78758,    .47998,
     +     .26863,    .68095,    .79080,
     +     .09639,    .05033,  16.77553,    .83318,    .52569,
     +     .31680,    .72724,    .83657,
     +     .09839,    .05154,  17.59646,    .87372,    .56626,
     +     .35927,    .76838,    .87726,
     +     .10023,    .05266,  18.34969,    .91156,    .60450,
     +     .39998,    .80677,    .91524,
     +     .10254,    .05406,  19.26638,    .95942,    .65256,
     +     .45031,    .85530,    .96328,
     +     .10471,    .05538,  20.10273,   1.00456,    .69796,
     +     .49785,    .90106,   1.00858,
     +     .10674,    .05660,  20.87687,   1.04732,    .74123,
     +     .54352,    .94440,   1.05149 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10876,    .05782,  21.61347,   1.08964,    .78386,
     +     .58800,    .98729,   1.09397,
     +     .11073,    .05901,  22.31812,   1.13121,    .82587,
     +     .63202,   1.02941,   1.13569,
     +     .11260,    .06013,  22.96851,   1.17061,    .86577,
     +     .67387,   1.06933,   1.17524,
     +     .11434,    .06117,  23.55357,   1.20732,    .90287,
     +     .71258,   1.10652,   1.21208,
     +     .11610,    .06222,  24.13457,   1.24447,    .94059,
     +     .75213,   1.14415,   1.24937,
     +     .11781,    .06325,  24.67547,   1.28041,    .97696,
     +     .79003,   1.18055,   1.28544,
     +     .11944,    .06422,  25.18403,   1.31480,   1.01191,
     +     .82662,   1.21538,   1.31996,
     +     .12097,    .06513,  25.64209,   1.34686,   1.04443,
     +     .86054,   1.24785,   1.35213 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12252,    .06605,  26.09297,   1.37914,   1.07723,
     +     .89477,   1.28054,   1.38453,
     +     .12404,    .06696,  26.52685,   1.41091,   1.10958,
     +     .92860,   1.31272,   1.41643,
     +     .12549,    .06781,  26.91854,   1.44068,   1.13982,
     +     .96008,   1.34286,   1.44630,
     +     .12686,    .06863,  27.29291,   1.46931,   1.16906,
     +     .99071,   1.37186,   1.47505,
     +     .12824,    .06944,  27.64234,   1.49736,   1.19757,
     +    1.02036,   1.40026,   1.50320 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .08461,    .04344,   1.82056,    .23007,    .00000,
     +     .00000,    .12538,    .23188,
     +     .08702,    .04497,   2.32752,    .24524,    .00000,
     +     .00000,    .14115,    .24725,
     +     .09061,    .04725,   3.12453,    .26938,    .00028,
     +     .00000,    .16618,    .27168,
     +     .09322,    .04890,   3.71257,    .28810,    .01653,
     +     .00000,    .18555,    .29063,
     +     .09596,    .05063,   4.34013,    .30878,    .04132,
     +     .00000,    .20689,    .31153,
     +     .09832,    .05211,   4.87716,    .32729,    .05900,
     +     .00000,    .22597,    .33024,
     +     .10057,    .05352,   5.39036,    .34555,    .07692,
     +     .00000,    .24475,    .34868,
     +     .10296,    .05502,   5.94854,    .36559,    .09756,
     +     .00000,    .26535,    .36892 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10502,    .05630,   6.41700,    .38327,    .11474,
     +     .00000,    .28351,    .38678,
     +     .10702,    .05754,   6.87694,    .40077,    .13248,
     +     .00000,    .30147,    .40445,
     +     .10858,    .05852,   7.23291,    .41478,    .14633,
     +     .00000,    .31583,    .41859,
     +     .11192,    .06058,   7.98152,    .44527,    .17699,
     +     .00014,    .34707,    .44936,
     +     .11479,    .06235,   8.60308,    .47206,    .20410,
     +     .02336,    .37450,    .47639,
     +     .11797,    .06431,   9.26777,    .50240,    .23487,
     +     .06345,    .40555,    .50700,
     +     .12127,    .06633,   9.94209,    .53436,    .26736,
     +     .09879,    .43824,    .53924,
     +     .12423,    .06814,  10.52099,    .56321,    .29638,
     +     .12930,    .46773,    .56834 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12719,    .06994,  11.08854,    .59248,    .32606,
     +     .16137,    .49764,    .59786,
     +     .12965,    .07143,  11.54952,    .61694,    .35110,
     +     .18880,    .52263,    .62253,
     +     .13260,    .07321,  12.08064,    .64636,    .38109,
     +     .22097,    .55269,    .65221,
     +     .13518,    .07477,  12.52652,    .67215,    .40732,
     +     .24894,    .57903,    .67821,
     +     .13755,    .07619,  12.92902,    .69596,    .43180,
     +     .27550,    .60334,    .70222,
     +     .14052,    .07797,  13.40651,    .72563,    .46214,
     +     .30787,    .63364,    .73214,
     +     .14328,    .07962,  13.83179,    .75322,    .49041,
     +     .33805,    .66182,    .75997,
     +     .14587,    .08115,  14.21803,    .77906,    .51706,
     +     .36673,    .68820,    .78602 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14842,    .08266,  14.57568,    .80427,    .54296,
     +     .39430,    .71396,    .81146,
     +     .15090,    .08413,  14.91077,    .82875,    .56821,
     +     .42130,    .73896,    .83614,
     +     .15323,    .08550,  15.21367,    .85170,    .59194,
     +     .44671,    .76240,    .85929,
     +     .15541,    .08678,  15.47886,    .87282,    .61376,
     +     .46995,    .78398,    .88060,
     +     .15759,    .08806,  15.73799,    .89401,    .63575,
     +     .49351,    .80563,    .90197,
     +     .15972,    .08930,  15.97202,    .91424,    .65670,
     +     .51583,    .82631,    .92238,
     +     .16173,    .09047,  16.18871,    .93345,    .67669,
     +     .53722,    .84594,    .94176,
     +     .16361,    .09157,  16.37843,    .95115,    .69510,
     +     .55685,    .86405,    .95962 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16551,    .09266,  16.56159,    .96883,    .71351,
     +     .57652,    .88212,    .97746,
     +     .16737,    .09374,  16.73425,    .98608,    .73153,
     +     .59581,    .89977,    .99487,
     +     .16912,    .09475,  16.88487,   1.00206,    .74820,
     +     .61357,    .91612,   1.01099,
     +     .17079,    .09571,  17.02805,   1.01736,    .76426,
     +     .63079,    .93178,   1.02643,
     +     .17246,    .09666,  17.15533,   1.03215,    .77972,
     +     .64727,    .94691,   1.04136 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .10358,    .05625,   2.01121,    .21627,    .00000,
     +     .00000,    .11799,    .21919,
     +     .10650,    .05810,   2.45428,    .22998,    .00000,
     +     .00000,    .13227,    .23315,
     +     .11082,    .06083,   3.13380,    .25143,    .00026,
     +     .00000,    .15458,    .25500,
     +     .11395,    .06280,   3.62443,    .26779,    .01464,
     +     .00000,    .17156,    .27164,
     +     .11724,    .06486,   4.13860,    .28560,    .03639,
     +     .00000,    .19001,    .28975,
     +     .12005,    .06662,   4.57251,    .30135,    .05165,
     +     .00000,    .20631,    .30575,
     +     .12273,    .06828,   4.98138,    .31669,    .06694,
     +     .00000,    .22217,    .32134,
     +     .12558,    .07004,   5.42009,    .33339,    .08439,
     +     .00000,    .23942,    .33829 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12802,    .07155,   5.78371,    .34796,    .09875,
     +     .00000,    .25446,    .35308,
     +     .13037,    .07299,   6.13672,    .36227,    .11348,
     +     .00000,    .26922,    .36761,
     +     .13222,    .07413,   6.40719,    .37363,    .12488,
     +     .00000,    .28093,    .37914,
     +     .13614,    .07653,   6.96739,    .39814,    .14989,
     +     .00012,    .30619,    .40400,
     +     .13950,    .07857,   7.42296,    .41942,    .17175,
     +     .01905,    .32811,    .42558,
     +     .14322,    .08082,   7.90017,    .44325,    .19630,
     +     .05152,    .35265,    .44975,
     +     .14705,    .08313,   8.37601,    .46805,    .22192,
     +     .07977,    .37818,    .47490,
     +     .15048,    .08518,   8.77665,    .49016,    .24454,
     +     .10388,    .40094,    .49731 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15390,    .08723,   9.16275,    .51236,    .26745,
     +     .12900,    .42379,    .51983,
     +     .15673,    .08890,   9.47184,    .53076,    .28663,
     +     .15033,    .44273,    .53848,
     +     .16011,    .09091,   9.82198,    .55267,    .30937,
     +     .17509,    .46528,    .56069,
     +     .16306,    .09264,  10.11029,    .57168,    .32908,
     +     .19644,    .48485,    .57996,
     +     .16575,    .09423,  10.36735,    .58911,    .34736,
     +     .21659,    .50280,    .59763,
     +     .16912,    .09619,  10.66605,    .61060,    .36979,
     +     .24092,    .52494,    .61942,
     +     .17225,    .09801,  10.92659,    .63039,    .39051,
     +     .26341,    .54533,    .63949,
     +     .17516,    .09969,  11.15944,    .64878,    .40990,
     +     .28464,    .56428,    .65814 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17802,    .10134,  11.36950,    .66654,    .42857,
     +     .30487,    .58260,    .67615,
     +     .18079,    .10294,  11.56267,    .68364,    .44664,
     +     .32455,    .60024,    .69350,
     +     .18340,    .10443,  11.73394,    .69956,    .46351,
     +     .34294,    .61667,    .70964,
     +     .18582,    .10580,  11.87995,    .71407,    .47888,
     +     .35964,    .63165,    .72437,
     +     .18824,    .10718,  12.02053,    .72854,    .49431,
     +     .37648,    .64660,    .73905,
     +     .19058,    .10850,  12.14318,    .74223,    .50888,
     +     .39232,    .66075,    .75294,
     +     .19280,    .10975,  12.25498,    .75515,    .52271,
     +     .40742,    .67411,    .76605,
     +     .19487,    .11091,  12.34954,    .76695,    .53535,
     +     .42119,    .68633,    .77803 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19694,    .11207,  12.43875,    .77866,    .54793,
     +     .43491,    .69846,    .78992,
     +     .19897,    .11321,  12.52067,    .79002,    .56018,
     +     .44830,    .71023,    .80145,
     +     .20088,    .11427,  12.58862,    .80045,    .57142,
     +     .46055,    .72104,    .81205,
     +     .20270,    .11528,  12.65299,    .81040,    .58222,
     +     .47240,    .73137,    .82216,
     +     .20449,    .11627,  12.70597,    .81992,    .59252,
     +     .48364,    .74125,    .83183 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12014,    .06776,   2.14863,    .20786,    .00000,
     +     .00000,    .11346,    .21195,
     +     .12346,    .06985,   2.54254,    .22042,    .00000,
     +     .00000,    .12661,    .22483,
     +     .12838,    .07291,   3.13549,    .23986,    .00024,
     +     .00000,    .14691,    .24473,
     +     .13193,    .07512,   3.55645,    .25448,    .01329,
     +     .00000,    .16216,    .25969,
     +     .13565,    .07742,   3.99143,    .27025,    .03290,
     +     .00000,    .17858,    .27582,
     +     .13882,    .07936,   4.35460,    .28405,    .04649,
     +     .00000,    .19294,    .28992,
     +     .14183,    .08121,   4.69311,    .29738,    .05999,
     +     .00000,    .20680,    .30354,
     +     .14503,    .08315,   5.05259,    .31179,    .07529,
     +     .00000,    .22178,    .31825 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14776,    .08481,   5.34758,    .32425,    .08777,
     +     .00000,    .23472,    .33098,
     +     .15039,    .08640,   5.63148,    .33643,    .10051,
     +     .00000,    .24736,    .34340,
     +     .15246,    .08764,   5.84726,    .34603,    .11031,
     +     .00000,    .25733,    .35320,
     +     .15682,    .09026,   6.28863,    .36661,    .13166,
     +     .00011,    .27868,    .37419,
     +     .16055,    .09248,   6.64124,    .38431,    .15016,
     +     .01627,    .29705,    .39224,
     +     .16467,    .09492,   7.00394,    .40396,    .17076,
     +     .04388,    .31743,    .41227,
     +     .16889,    .09741,   7.36047,    .42422,    .19207,
     +     .06767,    .33845,    .43293,
     +     .17265,    .09962,   7.65546,    .44210,    .21071,
     +     .08778,    .35701,    .45117 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17640,    .10180,   7.93563,    .45992,    .22946,
     +     .10861,    .37550,    .46933,
     +     .17949,    .10359,   8.15709,    .47458,    .24505,
     +     .12619,    .39073,    .48428,
     +     .18317,    .10571,   8.40387,    .49190,    .26341,
     +     .14646,    .40872,    .50194,
     +     .18637,    .10755,   8.60344,    .50681,    .27921,
     +     .16382,    .42422,    .51714,
     +     .18929,    .10922,   8.77938,    .52039,    .29378,
     +     .18012,    .43835,    .53099,
     +     .19292,    .11128,   8.97943,    .53701,    .31154,
     +     .19967,    .45564,    .54794,
     +     .19629,    .11318,   9.15027,    .55219,    .32783,
     +     .21763,    .47145,    .56342,
     +     .19941,    .11493,   9.30051,    .56620,    .34299,
     +     .23449,    .48605,    .57771 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20246,    .11664,   9.43216,    .57962,    .35747,
     +     .25044,    .50005,    .59140,
     +     .20542,    .11829,   9.55070,    .59245,    .37142,
     +     .26589,    .51345,    .60450,
     +     .20819,    .11982,   9.65343,    .60431,    .38436,
     +     .28025,    .52585,    .61661,
     +     .21075,    .12123,   9.73797,    .61505,    .39609,
     +     .29321,    .53709,    .62757,
     +     .21331,    .12263,   9.81789,    .62569,    .40779,
     +     .30623,    .54824,    .63844,
     +     .21578,    .12398,   9.88428,    .63568,    .41879,
     +     .31841,    .55871,    .64864,
     +     .21811,    .12525,   9.94354,    .64506,    .42918,
     +     .32998,    .56856,    .65823,
     +     .22027,    .12642,   9.99095,    .65356,    .43862,
     +     .34046,    .57749,    .66692 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22244,    .12759,  10.03399,    .66195,    .44797,
     +     .35088,    .58632,    .67550,
     +     .22456,    .12873,  10.07176,    .67004,    .45703,
     +     .36100,    .59485,    .68377,
     +     .22655,    .12979,  10.10008,    .67741,    .46530,
     +     .37020,    .60262,    .69131,
     +     .22844,    .13080,  10.12684,    .68443,    .47322,
     +     .37909,    .61003,    .69849,
     +     .23030,    .13179,  10.14482,    .69106,    .48073,
     +     .38747,    .61705,    .70528 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13518,    .07835,   2.24898,    .20186,    .00000,
     +     .00000,    .11026,    .20717,
     +     .13885,    .08062,   2.60229,    .21347,    .00000,
     +     .00000,    .12247,    .21915,
     +     .14426,    .08394,   3.12629,    .23125,    .00023,
     +     .00000,    .14115,    .23747,
     +     .14816,    .08632,   3.49312,    .24449,    .01223,
     +     .00000,    .15505,    .25110,
     +     .15223,    .08879,   3.86778,    .25865,    .03018,
     +     .00000,    .16989,    .26566,
     +     .15570,    .09088,   4.17775,    .27094,    .04249,
     +     .00000,    .18277,    .27829,
     +     .15899,    .09286,   4.46408,    .28274,    .05464,
     +     .00000,    .19512,    .29041,
     +     .16246,    .09493,   4.76553,    .29542,    .06833,
     +     .00000,    .20839,    .30343 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16543,    .09670,   5.01078,    .30631,    .07943,
     +     .00000,    .21978,    .31461,
     +     .16828,    .09839,   5.24510,    .31690,    .09071,
     +     .00000,    .23085,    .32548,
     +     .17052,    .09970,   5.42195,    .32521,    .09933,
     +     .00000,    .23954,    .33401,
     +     .17524,    .10247,   5.77974,    .34290,    .11803,
     +     .00010,    .25805,    .35216,
     +     .17925,    .10481,   6.06091,    .35801,    .13412,
     +     .01428,    .27386,    .36766,
     +     .18367,    .10737,   6.34508,    .37465,    .15191,
     +     .03840,    .29127,    .38472,
     +     .18819,    .10998,   6.62086,    .39169,    .17018,
     +     .05903,    .30910,    .40218,
     +     .19220,    .11227,   6.84524,    .40659,    .18605,
     +     .07635,    .32472,    .41747 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19620,    .11453,   7.05539,    .42134,    .20192,
     +     .09419,    .34018,    .43260,
     +     .19947,    .11638,   7.21947,    .43341,    .21504,
     +     .10917,    .35284,    .44497,
     +     .20337,    .11857,   7.39921,    .44756,    .23040,
     +     .12635,    .36770,    .45949,
     +     .20675,    .12045,   7.54186,    .45966,    .24355,
     +     .14098,    .38042,    .47189,
     +     .20982,    .12216,   7.66621,    .47063,    .25562,
     +     .15467,    .39196,    .48315,
     +     .21363,    .12426,   7.80416,    .48395,    .27024,
     +     .17098,    .40600,    .49682,
     +     .21715,    .12619,   7.91912,    .49603,    .28357,
     +     .18590,    .41874,    .50922,
     +     .22041,    .12796,   8.01833,    .50710,    .29592,
     +     .19985,    .43044,    .52059 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22359,    .12968,   8.10203,    .51763,    .30764,
     +     .21296,    .44158,    .53140,
     +     .22666,    .13134,   8.17538,    .52765,    .31888,
     +     .22561,    .45219,    .54169,
     +     .22953,    .13287,   8.23703,    .53685,    .32926,
     +     .23733,    .46196,    .55115,
     +     .23217,    .13428,   8.28516,    .54511,    .33862,
     +     .24785,    .47075,    .55964,
     +     .23480,    .13567,   8.32940,    .55327,    .34792,
     +     .25838,    .47943,    .56803,
     +     .23734,    .13700,   8.36298,    .56085,    .35661,
     +     .26818,    .48753,    .57584,
     +     .23973,    .13826,   8.39176,    .56795,    .36479,
     +     .27746,    .49512,    .58314,
     +     .24194,    .13941,   8.41205,    .57433,    .37219,
     +     .28584,    .50196,    .58972 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24415,    .14056,   8.42870,    .58060,    .37949,
     +     .29413,    .50869,    .59617,
     +     .24631,    .14167,   8.44155,    .58661,    .38653,
     +     .30217,    .51515,    .60237,
     +     .24832,    .14270,   8.44791,    .59203,    .39293,
     +     .30944,    .52100,    .60796,
     +     .25024,    .14368,   8.45391,    .59719,    .39905,
     +     .31645,    .52657,    .61328,
     +     .25211,    .14464,   8.45275,    .60201,    .40480,
     +     .32302,    .53179,    .61825 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .16239,    .09755,   2.37496,    .19330,    .00000,
     +     .00000,    .10579,    .20118,
     +     .16661,    .10007,   2.66345,    .20333,    .00000,
     +     .00000,    .11649,    .21165,
     +     .17280,    .10373,   3.08149,    .21845,    .00021,
     +     .00000,    .13261,    .22742,
     +     .17725,    .10634,   3.36736,    .22954,    .01060,
     +     .00000,    .14441,    .23897,
     +     .18188,    .10904,   3.65364,    .24124,    .02603,
     +     .00000,    .15687,    .25114,
     +     .18580,    .11131,   3.88700,    .25126,    .03644,
     +     .00000,    .16754,    .26157,
     +     .18950,    .11344,   4.09930,    .26078,    .04662,
     +     .00000,    .17767,    .27146,
     +     .19340,    .11568,   4.31967,    .27092,    .05799,
     +     .00000,    .18846,    .28199 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19671,    .11757,   4.49621,    .27953,    .06711,
     +     .00000,    .19762,    .29093,
     +     .19989,    .11937,   4.66282,    .28783,    .07630,
     +     .00000,    .20646,    .29956,
     +     .20238,    .12076,   4.78699,    .29430,    .08328,
     +     .00000,    .21335,    .30627,
     +     .20760,    .12368,   5.03298,    .30793,    .09829,
     +     .00009,    .22788,    .32042,
     +     .21201,    .12614,   5.22021,    .31942,    .11106,
     +     .01151,    .24014,    .33234,
     +     .21685,    .12881,   5.40301,    .33192,    .12502,
     +     .03085,    .25349,    .34531,
     +     .22178,    .13150,   5.57581,    .34455,    .13921,
     +     .04718,    .26700,    .35841,
     +     .22612,    .13386,   5.71145,    .35544,    .15138,
     +     .06073,    .27868,    .36972 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23043,    .13617,   5.83491,    .36609,    .16344,
     +     .07458,    .29012,    .38077,
     +     .23394,    .13804,   5.92878,    .37471,    .17333,
     +     .08613,    .29940,    .38973,
     +     .23809,    .14024,   6.02732,    .38471,    .18479,
     +     .09925,    .31017,    .40011,
     +     .24167,    .14213,   6.10188,    .39314,    .19451,
     +     .11033,    .31929,    .40887,
     +     .24492,    .14382,   6.16508,    .40073,    .20337,
     +     .12064,    .32750,    .41675,
     +     .24892,    .14590,   6.23057,    .40981,    .21400,
     +     .13281,    .33736,    .42619,
     +     .25260,    .14778,   6.28107,    .41793,    .22359,
     +     .14384,    .34621,    .43464,
     +     .25599,    .14951,   6.32207,    .42530,    .23242,
     +     .15409,    .35427,    .44231 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .25928,    .15117,   6.35208,    .43220,    .24071,
     +     .16364,    .36184,    .44950,
     +     .26243,    .15275,   6.37525,    .43869,    .24859,
     +     .17279,    .36898,    .45626,
     +     .26536,    .15421,   6.39162,    .44457,    .25582,
     +     .18121,    .37548,    .46240,
     +     .26805,    .15554,   6.40014,    .44978,    .26227,
     +     .18871,    .38126,    .46783,
     +     .27072,    .15685,   6.40593,    .45488,    .26865,
     +     .19618,    .38693,    .47315,
     +     .27327,    .15809,   6.40491,    .45953,    .27454,
     +     .20306,    .39215,    .47802,
     +     .27567,    .15925,   6.40195,    .46385,    .28007,
     +     .20956,    .39700,    .48253,
     +     .27788,    .16031,   6.39452,    .46767,    .28501,
     +     .21539,    .40131,    .48653 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28008,    .16136,   6.38459,    .47138,    .28986,
     +     .22112,    .40552,    .49042,
     +     .28221,    .16237,   6.37244,    .47489,    .29451,
     +     .22664,    .40952,    .49410,
     +     .28420,    .16330,   6.35691,    .47800,    .29868,
     +     .23160,    .41309,    .49737,
     +     .28608,    .16418,   6.34231,    .48095,    .30267,
     +     .23637,    .41648,    .50047,
     +     .28790,    .16503,   6.32287,    .48362,    .30637,
     +     .24079,    .41960,    .50328 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .19875,    .12286,   2.44664,    .18414,    .00000,
     +     .00000,    .10123,    .19604,
     +     .20356,    .12557,   2.66363,    .19230,    .00000,
     +     .00000,    .11016,    .20471,
     +     .21058,    .12948,   2.96968,    .20439,    .00019,
     +     .00000,    .12340,    .21754,
     +     .21559,    .13224,   3.17280,    .21309,    .00884,
     +     .00000,    .13293,    .22677,
     +     .22076,    .13507,   3.37114,    .22215,    .02157,
     +     .00000,    .14285,    .23636,
     +     .22513,    .13743,   3.52981,    .22979,    .03003,
     +     .00000,    .15124,    .24445,
     +     .22923,    .13964,   3.67130,    .23695,    .03822,
     +     .00000,    .15911,    .25203,
     +     .23353,    .14194,   3.81556,    .24450,    .04726,
     +     .00000,    .16740,    .26000 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23717,    .14387,   3.92858,    .25082,    .05443,
     +     .00000,    .17436,    .26669,
     +     .24065,    .14570,   4.03357,    .25687,    .06161,
     +     .00000,    .18102,    .27308,
     +     .24334,    .14711,   4.11040,    .26153,    .06701,
     +     .00000,    .18616,    .27800,
     +     .24899,    .15004,   4.25778,    .27124,    .07852,
     +     .00008,    .19689,    .28826,
     +     .25373,    .15248,   4.36400,    .27929,    .08819,
     +     .00890,    .20582,    .29676,
     +     .25889,    .15511,   4.46121,    .28791,    .09864,
     +     .02374,    .21541,    .30588,
     +     .26411,    .15774,   4.54917,    .29648,    .10912,
     +     .03612,    .22497,    .31492,
     +     .26867,    .16000,   4.61303,    .30373,    .11798,
     +     .04627,    .23311,    .32259 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27315,    .16220,   4.66742,    .31070,    .12668,
     +     .05654,    .24097,    .32996,
     +     .27679,    .16398,   4.70625,    .31627,    .13375,
     +     .06503,    .24727,    .33586,
     +     .28106,    .16604,   4.74276,    .32261,    .14184,
     +     .07459,    .25448,    .34257,
     +     .28471,    .16777,   4.76619,    .32787,    .14863,
     +     .08258,    .26050,    .34814,
     +     .28800,    .16933,   4.78407,    .33254,    .15477,
     +     .08997,    .26587,    .35309,
     +     .29203,    .17120,   4.79681,    .33801,    .16205,
     +     .09860,    .27220,    .35889,
     +     .29569,    .17289,   4.80152,    .34280,    .16855,
     +     .10635,    .27780,    .36398,
     +     .29904,    .17442,   4.80192,    .34708,    .17447,
     +     .11350,    .28283,    .36853 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30227,    .17587,   4.79526,    .35099,    .17996,
     +     .12009,    .28747,    .37269,
     +     .30534,    .17724,   4.78492,    .35458,    .18514,
     +     .12636,    .29179,    .37652,
     +     .30817,    .17848,   4.77176,    .35779,    .18984,
     +     .13207,    .29566,    .37994,
     +     .31075,    .17960,   4.75504,    .36054,    .19398,
     +     .13712,    .29903,    .38288,
     +     .31329,    .18069,   4.73670,    .36319,    .19805,
     +     .14212,    .30231,    .38572,
     +     .31570,    .18170,   4.71466,    .36553,    .20176,
     +     .14669,    .30526,    .38823,
     +     .31795,    .18264,   4.69271,    .36766,    .20521,
     +     .15097,    .30797,    .39053,
     +     .32001,    .18349,   4.66916,    .36948,    .20826,
     +     .15478,    .31032,    .39249 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32203,    .18432,   4.64406,    .37121,    .21123,
     +     .15849,    .31258,    .39435,
     +     .32399,    .18512,   4.61812,    .37280,    .21405,
     +     .16205,    .31470,    .39607,
     +     .32579,    .18583,   4.59121,    .37414,    .21654,
     +     .16522,    .31654,    .39753,
     +     .32749,    .18651,   4.56600,    .37541,    .21892,
     +     .16825,    .31827,    .39891,
     +     .32913,    .18714,   4.53768,    .37646,    .22108,
     +     .17103,    .31980,    .40006 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25246,    .15866,   2.40079,    .17211,    .00000,
     +     .00000,    .09567,    .19085,
     +     .25784,    .16137,   2.53834,    .17793,    .00000,
     +     .00000,    .10242,    .19721,
     +     .26560,    .16525,   2.72533,    .18638,    .00016,
     +     .00000,    .11225,    .20644,
     +     .27109,    .16795,   2.84365,    .19232,    .00682,
     +     .00000,    .11918,    .21291,
     +     .27672,    .17069,   2.95449,    .19839,    .01654,
     +     .00000,    .12628,    .21952,
     +     .28141,    .17295,   3.04045,    .20342,    .02289,
     +     .00000,    .13218,    .22499,
     +     .28579,    .17503,   3.11462,    .20805,    .02895,
     +     .00000,    .13764,    .23002,
     +     .29036,    .17718,   3.18814,    .21286,    .03558,
     +     .00000,    .14332,    .23524 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29418,    .17896,   3.24319,    .21681,    .04076,
     +     .00000,    .14802,    .23954,
     +     .29782,    .18063,   3.29290,    .22054,    .04591,
     +     .00000,    .15247,    .24360,
     +     .30061,    .18190,   3.32787,    .22337,    .04975,
     +     .00000,    .15586,    .24667,
     +     .30642,    .18452,   3.39007,    .22917,    .05783,
     +     .00007,    .16284,    .25296,
     +     .31125,    .18666,   3.42847,    .23387,    .06452,
     +     .00634,    .16855,    .25806,
     +     .31643,    .18894,   3.45619,    .23878,    .07165,
     +     .01682,    .17456,    .26338,
     +     .32162,    .19115,   3.47680,    .24353,    .07870,
     +     .02543,    .18043,    .26854,
     +     .32608,    .19302,   3.48570,    .24741,    .08457,
     +     .03239,    .18530,    .27274 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33041,    .19480,   3.48853,    .25103,    .09024,
     +     .03936,    .18993,    .27668,
     +     .33389,    .19621,   3.48716,    .25386,    .09481,
     +     .04507,    .19358,    .27975,
     +     .33792,    .19780,   3.47935,    .25696,    .09996,
     +     .05142,    .19765,    .28313,
     +     .34132,    .19912,   3.46750,    .25944,    .10422,
     +     .05667,    .20097,    .28583,
     +     .34435,    .20028,   3.45479,    .26160,    .10804,
     +     .06149,    .20389,    .28818,
     +     .34800,    .20163,   3.43313,    .26399,    .11250,
     +     .06704,    .20723,    .29078,
     +     .35127,    .20281,   3.40894,    .26599,    .11641,
     +     .07197,    .21010,    .29296,
     +     .35423,    .20386,   3.38442,    .26770,    .11994,
     +     .07648,    .21263,    .29483 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35702,    .20481,   3.35636,    .26914,    .12316,
     +     .08059,    .21487,    .29642,
     +     .35964,    .20568,   3.32712,    .27040,    .12615,
     +     .08445,    .21689,    .29780,
     +     .36203,    .20645,   3.29791,    .27145,    .12884,
     +     .08794,    .21866,    .29895,
     +     .36416,    .20711,   3.26835,    .27225,    .13116,
     +     .09099,    .22013,    .29985,
     +     .36625,    .20774,   3.23820,    .27298,    .13342,
     +     .09398,    .22153,    .30067,
     +     .36816,    .20829,   3.20662,    .27353,    .13544,
     +     .09668,    .22271,    .30127,
     +     .36994,    .20880,   3.17641,    .27399,    .13730,
     +     .09920,    .22377,    .30179,
     +     .37153,    .20922,   3.14663,    .27429,    .13891,
     +     .10140,    .22463,    .30213 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37308,    .20962,   3.11622,    .27452,    .14046,
     +     .10354,    .22542,    .30240,
     +     .37456,    .20998,   3.08583,    .27467,    .14191,
     +     .10557,    .22612,    .30259,
     +     .37588,    .21028,   3.05588,    .27470,    .14316,
     +     .10734,    .22667,    .30264,
     +     .37713,    .21057,   3.02791,    .27474,    .14435,
     +     .10905,    .22719,    .30269,
     +     .37829,    .21080,   2.99836,    .27462,    .14539,
     +     .11057,    .22756,    .30259 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .30062,    .18868,   2.25780,    .16126,    .00000,
     +     .00000,    .09099,    .18664,
     +     .30618,    .19117,   2.34512,    .16537,    .00000,
     +     .00000,    .09615,    .19124,
     +     .31417,    .19468,   2.45966,    .17125,    .00014,
     +     .00000,    .10356,    .19780,
     +     .31974,    .19709,   2.52820,    .17530,    .00544,
     +     .00000,    .10871,    .20231,
     +     .32541,    .19951,   2.58920,    .17937,    .01313,
     +     .00000,    .11392,    .20684,
     +     .33011,    .20147,   2.63477,    .18269,    .01810,
     +     .00000,    .11820,    .21052,
     +     .33446,    .20324,   2.67224,    .18568,    .02280,
     +     .00000,    .12211,    .21385,
     +     .33896,    .20506,   2.70797,    .18875,    .02790,
     +     .00000,    .12614,    .21725 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34267,    .20654,   2.73283,    .19124,    .03186,
     +     .00000,    .12943,    .21999,
     +     .34618,    .20791,   2.75424,    .19356,    .03577,
     +     .00000,    .13252,    .22254,
     +     .34888,    .20895,   2.76808,    .19528,    .03866,
     +     .00000,    .13485,    .22444,
     +     .35441,    .21103,   2.78847,    .19875,    .04470,
     +     .00006,    .13960,    .22826,
     +     .35895,    .21270,   2.79485,    .20149,    .04966,
     +     .00480,    .14341,    .23126,
     +     .36377,    .21441,   2.79099,    .20427,    .05488,
     +     .01268,    .14735,    .23430,
     +     .36851,    .21605,   2.78202,    .20686,    .05999,
     +     .01910,    .15113,    .23713,
     +     .37251,    .21737,   2.76764,    .20887,    .06420,
     +     .02423,    .15419,    .23932 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37635,    .21858,   2.74951,    .21067,    .06822,
     +     .02933,    .15703,    .24128,
     +     .37940,    .21952,   2.73234,    .21201,    .07144,
     +     .03348,    .15923,    .24275,
     +     .38287,    .22053,   2.70779,    .21341,    .07503,
     +     .03806,    .16163,    .24426,
     +     .38575,    .22132,   2.68317,    .21443,    .07796,
     +     .04181,    .16352,    .24537,
     +     .38829,    .22199,   2.65976,    .21528,    .08057,
     +     .04524,    .16516,    .24628,
     +     .39129,    .22272,   2.62694,    .21611,    .08357,
     +     .04915,    .16697,    .24716,
     +     .39390,    .22331,   2.59408,    .21670,    .08618,
     +     .05259,    .16846,    .24779,
     +     .39623,    .22380,   2.56253,    .21714,    .08851,
     +     .05572,    .16972,    .24825 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39836,    .22420,   2.52905,    .21739,    .09061,
     +     .05854,    .17077,    .24849,
     +     .40032,    .22453,   2.49560,    .21752,    .09253,
     +     .06117,    .17168,    .24860,
     +     .40207,    .22478,   2.46337,    .21756,    .09423,
     +     .06353,    .17243,    .24860,
     +     .40358,    .22495,   2.43200,    .21745,    .09568,
     +     .06557,    .17299,    .24847,
     +     .40504,    .22508,   2.40053,    .21730,    .09708,
     +     .06756,    .17350,    .24828,
     +     .40633,    .22515,   2.36864,    .21702,    .09831,
     +     .06934,    .17386,    .24794,
     +     .40751,    .22519,   2.33849,    .21672,    .09943,
     +     .07099,    .17415,    .24758,
     +     .40851,    .22517,   2.30945,    .21635,    .10038,
     +     .07241,    .17434,    .24714 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40947,    .22513,   2.28016,    .21593,    .10127,
     +     .07379,    .17447,    .24665,
     +     .41035,    .22506,   2.25126,    .21546,    .10210,
     +     .07508,    .17454,    .24611,
     +     .41110,    .22495,   2.22330,    .21493,    .10280,
     +     .07620,    .17452,    .24551,
     +     .41180,    .22484,   2.19726,    .21444,    .10346,
     +     .07727,    .17450,    .24495,
     +     .41239,    .22467,   2.17030,    .21385,    .10401,
     +     .07821,    .17438,    .24427 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38529,    .23616,   1.88760,    .14072,    .00000,
     +     .00000,    .08236,    .17757,
     +     .39048,    .23785,   1.92153,    .14260,    .00000,
     +     .00000,    .08538,    .17966,
     +     .39780,    .24013,   1.96177,    .14520,    .00011,
     +     .00000,    .08964,    .18251,
     +     .40280,    .24160,   1.98137,    .14692,    .00368,
     +     .00000,    .09253,    .18437,
     +     .40778,    .24301,   1.99505,    .14858,    .00883,
     +     .00000,    .09539,    .18614,
     +     .41181,    .24408,   2.00312,    .14986,    .01212,
     +     .00000,    .09769,    .18749,
     +     .41546,    .24500,   2.00747,    .15097,    .01520,
     +     .00000,    .09975,    .18864,
     +     .41918,    .24591,   2.00990,    .15207,    .01851,
     +     .00000,    .10184,    .18976 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42217,    .24657,   2.00873,    .15289,    .02104,
     +     .00000,    .10350,    .19058,
     +     .42496,    .24716,   2.00625,    .15363,    .02353,
     +     .00000,    .10503,    .19130,
     +     .42705,    .24757,   2.00268,    .15414,    .02535,
     +     .00000,    .10616,    .19179,
     +     .43123,    .24830,   1.98983,    .15509,    .02912,
     +     .00005,    .10840,    .19266,
     +     .43453,    .24879,   1.97232,    .15575,    .03217,
     +     .00305,    .11013,    .19322,
     +     .43791,    .24919,   1.94665,    .15630,    .03534,
     +     .00801,    .11184,    .19363,
     +     .44108,    .24944,   1.91809,    .15669,    .03840,
     +     .01200,    .11340,    .19383,
     +     .44361,    .24951,   1.88962,    .15683,    .04086,
     +     .01515,    .11456,    .19378 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44591,    .24946,   1.85957,    .15684,    .04319,
     +     .01824,    .11559,    .19358,
     +     .44766,    .24934,   1.83401,    .15676,    .04503,
     +     .02073,    .11633,    .19332,
     +     .44952,    .24910,   1.80164,    .15652,    .04704,
     +     .02345,    .11706,    .19283,
     +     .45091,    .24877,   1.77202,    .15620,    .04866,
     +     .02565,    .11755,    .19226,
     +     .45208,    .24843,   1.74491,    .15585,    .05008,
     +     .02764,    .11794,    .19169,
     +     .45330,    .24789,   1.70946,    .15528,    .05168,
     +     .02987,    .11827,    .19081,
     +     .45424,    .24728,   1.67570,    .15463,    .05304,
     +     .03182,    .11846,    .18986,
     +     .45499,    .24665,   1.64423,    .15396,    .05424,
     +     .03357,    .11856,    .18890 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45552,    .24593,   1.61225,    .15320,    .05527,
     +     .03511,    .11854,    .18784,
     +     .45591,    .24518,   1.58110,    .15239,    .05621,
     +     .03654,    .11844,    .18674,
     +     .45616,    .24441,   1.55176,    .15158,    .05702,
     +     .03781,    .11828,    .18565,
     +     .45624,    .24364,   1.52397,    .15076,    .05769,
     +     .03888,    .11805,    .18454,
     +     .45625,    .24284,   1.49645,    .14991,    .05833,
     +     .03992,    .11778,    .18340,
     +     .45611,    .24199,   1.46924,    .14900,    .05885,
     +     .04083,    .11745,    .18221,
     +     .45594,    .24117,   1.44380,    .14813,    .05932,
     +     .04166,    .11711,    .18107,
     +     .45566,    .24035,   1.41972,    .14727,    .05970,
     +     .04237,    .11674,    .17994 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45531,    .23950,   1.39571,    .14637,    .06005,
     +     .04304,    .11633,    .17877,
     +     .45491,    .23863,   1.37228,    .14548,    .06035,
     +     .04367,    .11590,    .17760,
     +     .45443,    .23777,   1.34995,    .14458,    .06059,
     +     .04419,    .11544,    .17645,
     +     .45397,    .23696,   1.32925,    .14374,    .06082,
     +     .04470,    .11501,    .17537,
     +     .45338,    .23609,   1.30817,    .14284,    .06098,
     +     .04512,    .11452,    .17421 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45752,    .27097,   1.53342,    .12157,    .00000,
     +     .00000,    .07405,    .16654,
     +     .46166,    .27159,   1.54576,    .12220,    .00000,
     +     .00000,    .07579,    .16697,
     +     .46733,    .27230,   1.55733,    .12300,    .00009,
     +     .00000,    .07819,    .16743,
     +     .47105,    .27263,   1.55913,    .12348,    .00265,
     +     .00000,    .07977,    .16762,
     +     .47466,    .27283,   1.55643,    .12388,    .00634,
     +     .00000,    .08131,    .16770,
     +     .47746,    .27287,   1.55192,    .12413,    .00868,
     +     .00000,    .08251,    .16766,
     +     .47990,    .27279,   1.54558,    .12428,    .01085,
     +     .00000,    .08355,    .16751,
     +     .48232,    .27264,   1.53760,    .12439,    .01317,
     +     .00000,    .08458,    .16729 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .48415,    .27239,   1.52866,    .12441,    .01494,
     +     .00000,    .08537,    .16700,
     +     .48580,    .27211,   1.51926,    .12439,    .01666,
     +     .00000,    .08608,    .16667,
     +     .48697,    .27182,   1.51086,    .12433,    .01792,
     +     .00000,    .08658,    .16637,
     +     .48918,    .27109,   1.48955,    .12411,    .02049,
     +     .00004,    .08753,    .16561,
     +     .49075,    .27034,   1.46699,    .12382,    .02255,
     +     .00211,    .08821,    .16482,
     +     .49217,    .26938,   1.43796,    .12338,    .02468,
     +     .00552,    .08882,    .16381,
     +     .49329,    .26823,   1.40713,    .12281,    .02669,
     +     .00824,    .08930,    .16265,
     +     .49392,    .26703,   1.37786,    .12216,    .02830,
     +     .01035,    .08956,    .16145 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .49431,    .26572,   1.34790,    .12142,    .02979,
     +     .01242,    .08972,    .16015,
     +     .49447,    .26459,   1.32297,    .12077,    .03096,
     +     .01407,    .08979,    .15902,
     +     .49437,    .26312,   1.29223,    .11991,    .03222,
     +     .01585,    .08976,    .15755,
     +     .49405,    .26174,   1.26473,    .11907,    .03321,
     +     .01728,    .08964,    .15618,
     +     .49367,    .26045,   1.23984,    .11827,    .03407,
     +     .01856,    .08948,    .15491,
     +     .49292,    .25869,   1.20794,    .11719,    .03503,
     +     .01999,    .08918,    .15323,
     +     .49200,    .25698,   1.17806,    .11611,    .03582,
     +     .02121,    .08882,    .15158,
     +     .49102,    .25535,   1.15052,    .11509,    .03650,
     +     .02229,    .08844,    .15002 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48982,    .25364,   1.12293,    .11400,    .03708,
     +     .02325,    .08798,    .14840,
     +     .48853,    .25193,   1.09634,    .11291,    .03758,
     +     .02411,    .08749,    .14678,
     +     .48720,    .25030,   1.07154,    .11186,    .03801,
     +     .02487,    .08699,    .14524,
     +     .48579,    .24871,   1.04829,    .11084,    .03835,
     +     .02550,    .08647,    .14375,
     +     .48434,    .24710,   1.02542,    .10982,    .03866,
     +     .02611,    .08594,    .14225,
     +     .48277,    .24547,   1.00305,    .10877,    .03890,
     +     .02663,    .08537,    .14075,
     +     .48124,    .24392,    .98224,    .10777,    .03910,
     +     .02710,    .08481,    .13933,
     +     .47968,    .24242,    .96272,    .10681,    .03926,
     +     .02750,    .08425,    .13796 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47806,    .24090,    .94337,    .10583,    .03939,
     +     .02786,    .08367,    .13658,
     +     .47641,    .23939,    .92459,    .10487,    .03949,
     +     .02820,    .08309,    .13521,
     +     .47474,    .23792,    .90683,    .10393,    .03956,
     +     .02847,    .08251,    .13389,
     +     .47318,    .23654,    .89041,    .10305,    .03962,
     +     .02873,    .08197,    .13264,
     +     .47147,    .23510,    .87383,    .10213,    .03963,
     +     .02894,    .08139,    .13137 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .51877,    .29595,   1.24365,    .10430,    .00000,
     +     .00000,    .06600,    .15361,
     +     .52140,    .29544,   1.24826,    .10425,    .00000,
     +     .00000,    .06695,    .15294,
     +     .52480,    .29446,   1.24999,    .10408,    .00007,
     +     .00000,    .06820,    .15187,
     +     .52683,    .29359,   1.24617,    .10390,    .00201,
     +     .00000,    .06900,    .15098,
     +     .52864,    .29254,   1.23867,    .10365,    .00479,
     +     .00000,    .06975,    .14997,
     +     .52989,    .29150,   1.23061,    .10336,    .00654,
     +     .00000,    .07029,    .14906,
     +     .53081,    .29043,   1.22138,    .10304,    .00816,
     +     .00000,    .07073,    .14810,
     +     .53161,    .28923,   1.21070,    .10267,    .00988,
     +     .00000,    .07116,    .14705 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .53206,    .28807,   1.19992,    .10227,    .01118,
     +     .00000,    .07145,    .14610,
     +     .53236,    .28691,   1.18900,    .10188,    .01244,
     +     .00000,    .07169,    .14515,
     +     .53244,    .28597,   1.17964,    .10154,    .01335,
     +     .00000,    .07183,    .14436,
     +     .53235,    .28383,   1.15720,    .10077,    .01521,
     +     .00003,    .07205,    .14265,
     +     .53196,    .28189,   1.13478,    .10004,    .01669,
     +     .00154,    .07215,    .14111,
     +     .53119,    .27962,   1.10699,    .09915,    .01819,
     +     .00402,    .07216,    .13932,
     +     .53003,    .27716,   1.07786,    .09817,    .01960,
     +     .00598,    .07205,    .13740,
     +     .52862,    .27480,   1.05067,    .09719,    .02071,
     +     .00748,    .07184,    .13557 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .52695,    .27236,   1.02316,    .09616,    .02172,
     +     .00894,    .07156,    .13369,
     +     .52542,    .27032,   1.00047,    .09528,    .02251,
     +     .01011,    .07128,    .13212,
     +     .52331,    .26776,    .97280,    .09418,    .02334,
     +     .01134,    .07087,    .13016,
     +     .52124,    .26544,    .94829,    .09315,    .02399,
     +     .01232,    .07044,    .12842,
     +     .51927,    .26330,    .92624,    .09221,    .02455,
     +     .01320,    .07003,    .12683,
     +     .51651,    .26052,    .89826,    .09096,    .02514,
     +     .01416,    .06944,    .12475,
     +     .51374,    .25787,    .87227,    .08977,    .02562,
     +     .01498,    .06883,    .12280,
     +     .51105,    .25538,    .84848,    .08864,    .02603,
     +     .01569,    .06823,    .12099 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50816,    .25286,    .82488,    .08749,    .02636,
     +     .01631,    .06759,    .11914,
     +     .50524,    .25037,    .80226,    .08636,    .02664,
     +     .01687,    .06695,    .11734,
     +     .50241,    .24800,    .78129,    .08529,    .02687,
     +     .01735,    .06632,    .11564,
     +     .49961,    .24573,    .76178,    .08425,    .02703,
     +     .01775,    .06570,    .11403,
     +     .49678,    .24347,    .74268,    .08322,    .02718,
     +     .01812,    .06507,    .11243,
     +     .49386,    .24122,    .72411,    .08219,    .02728,
     +     .01843,    .06442,    .11085,
     +     .49107,    .23909,    .70691,    .08122,    .02736,
     +     .01872,    .06380,    .10936,
     +     .48835,    .23706,    .69086,    .08029,    .02740,
     +     .01894,    .06319,    .10795 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48558,    .23501,    .67503,    .07935,    .02743,
     +     .01915,    .06258,    .10653,
     +     .48280,    .23299,    .65974,    .07843,    .02744,
     +     .01934,    .06197,    .10515,
     +     .48006,    .23105,    .64536,    .07755,    .02743,
     +     .01949,    .06137,    .10382,
     +     .47750,    .22924,    .63210,    .07673,    .02741,
     +     .01963,    .06081,    .10258,
     +     .47480,    .22737,    .61879,    .07588,    .02737,
     +     .01973,    .06023,    .10132 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .58111,    .31612,    .97718,    .08570,    .00000,
     +     .00000,    .05648,    .13564,
     +     .58146,    .31418,    .97928,    .08525,    .00000,
     +     .00000,    .05682,    .13413,
     +     .58147,    .31116,    .97794,    .08453,    .00006,
     +     .00000,    .05724,    .13188,
     +     .58106,    .30881,    .97262,    .08395,    .00150,
     +     .00000,    .05746,    .13021,
     +     .58031,    .30625,    .96405,    .08331,    .00356,
     +     .00000,    .05763,    .12843,
     +     .57932,    .30398,    .95521,    .08273,    .00485,
     +     .00000,    .05770,    .12686,
     +     .57815,    .30170,    .94540,    .08214,    .00602,
     +     .00000,    .05772,    .12535,
     +     .57674,    .29926,    .93425,    .08149,    .00727,
     +     .00000,    .05771,    .12375 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .57525,    .29708,    .92328,    .08090,    .00820,
     +     .00000,    .05764,    .12232,
     +     .57372,    .29495,    .91228,    .08031,    .00909,
     +     .00000,    .05755,    .12095,
     +     .57238,    .29322,    .90299,    .07982,    .00974,
     +     .00000,    .05745,    .11987,
     +     .56926,    .28949,    .88125,    .07877,    .01104,
     +     .00003,    .05719,    .11753,
     +     .56628,    .28622,    .86021,    .07783,    .01206,
     +     .00109,    .05690,    .11550,
     +     .56268,    .28253,    .83472,    .07673,    .01308,
     +     .00284,    .05650,    .11322,
     +     .55866,    .27862,    .80818,    .07556,    .01403,
     +     .00420,    .05602,    .11086,
     +     .55468,    .27502,    .78368,    .07445,    .01475,
     +     .00524,    .05552,    .10869 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55049,    .27136,    .75912,    .07330,    .01540,
     +     .00623,    .05496,    .10653,
     +     .54692,    .26833,    .73901,    .07235,    .01590,
     +     .00702,    .05447,    .10476,
     +     .54236,    .26465,    .71467,    .07120,    .01641,
     +     .00784,    .05384,    .10259,
     +     .53817,    .26136,    .69332,    .07014,    .01680,
     +     .00849,    .05325,    .10068,
     +     .53431,    .25838,    .67425,    .06917,    .01713,
     +     .00906,    .05270,    .09896,
     +     .52919,    .25455,    .65026,    .06794,    .01746,
     +     .00967,    .05196,    .09676,
     +     .52427,    .25095,    .62819,    .06676,    .01773,
     +     .01019,    .05125,    .09474,
     +     .51962,    .24762,    .60814,    .06567,    .01794,
     +     .01064,    .05057,    .09287 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51481,    .24428,    .58838,    .06458,    .01809,
     +     .01101,    .04986,    .09100,
     +     .51007,    .24103,    .56960,    .06351,    .01822,
     +     .01135,    .04916,    .08919,
     +     .50555,    .23797,    .55232,    .06250,    .01831,
     +     .01163,    .04850,    .08751,
     +     .50120,    .23507,    .53635,    .06154,    .01836,
     +     .01186,    .04785,    .08595,
     +     .49684,    .23220,    .52081,    .06060,    .01840,
     +     .01207,    .04720,    .08440,
     +     .49246,    .22937,    .50582,    .05966,    .01841,
     +     .01224,    .04656,    .08289,
     +     .48831,    .22671,    .49200,    .05878,    .01841,
     +     .01239,    .04596,    .08146,
     +     .48432,    .22420,    .47920,    .05796,    .01839,
     +     .01251,    .04538,    .08013 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48029,    .22168,    .46663,    .05713,    .01836,
     +     .01261,    .04479,    .07880,
     +     .47632,    .21921,    .45454,    .05632,    .01832,
     +     .01270,    .04422,    .07751,
     +     .47248,    .21686,    .44323,    .05553,    .01826,
     +     .01276,    .04367,    .07629,
     +     .46889,    .21466,    .43283,    .05481,    .01820,
     +     .01282,    .04315,    .07516,
     +     .46517,    .21241,    .42247,    .05407,    .01813,
     +     .01286,    .04262,    .07400 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .62871,    .32636,    .79812,    .07038,    .00000,
     +     .00000,    .04768,    .11678,
     +     .62654,    .32310,    .79920,    .06977,    .00000,
     +     .00000,    .04771,    .11485,
     +     .62288,    .31817,    .79642,    .06884,    .00005,
     +     .00000,    .04766,    .11202,
     +     .61985,    .31449,    .79031,    .06811,    .00116,
     +     .00000,    .04757,    .10998,
     +     .61639,    .31056,    .78111,    .06733,    .00275,
     +     .00000,    .04743,    .10784,
     +     .61311,    .30714,    .77172,    .06664,    .00373,
     +     .00000,    .04726,    .10600,
     +     .60975,    .30382,    .76148,    .06595,    .00462,
     +     .00000,    .04706,    .10424,
     +     .60607,    .30030,    .74994,    .06521,    .00555,
     +     .00000,    .04682,    .10240 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .60266,    .29719,    .73875,    .06454,    .00624,
     +     .00000,    .04657,    .10081,
     +     .59929,    .29420,    .72763,    .06388,    .00690,
     +     .00000,    .04632,    .09929,
     +     .59651,    .29182,    .71832,    .06336,    .00737,
     +     .00000,    .04611,    .09808,
     +     .59039,    .28675,    .69699,    .06223,    .00830,
     +     .00002,    .04559,    .09554,
     +     .58492,    .28237,    .67687,    .06124,    .00902,
     +     .00080,    .04510,    .09338,
     +     .57860,    .27747,    .65299,    .06010,    .00974,
     +     .00208,    .04453,    .09098,
     +     .57181,    .27242,    .62829,    .05892,    .01038,
     +     .00306,    .04389,    .08853,
     +     .56541,    .26781,    .60577,    .05782,    .01086,
     +     .00379,    .04326,    .08631 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55887,    .26319,    .58340,    .05670,    .01129,
     +     .00449,    .04260,    .08413,
     +     .55340,    .25941,    .56524,    .05578,    .01161,
     +     .00504,    .04205,    .08235,
     +     .54660,    .25486,    .54347,    .05468,    .01193,
     +     .00560,    .04135,    .08021,
     +     .54051,    .25083,    .52457,    .05367,    .01216,
     +     .00604,    .04071,    .07835,
     +     .53496,    .24719,    .50780,    .05276,    .01235,
     +     .00642,    .04013,    .07669,
     +     .52779,    .24258,    .48690,    .05160,    .01253,
     +     .00683,    .03937,    .07461,
     +     .52097,    .23830,    .46785,    .05052,    .01266,
     +     .00716,    .03865,    .07269,
     +     .51461,    .23437,    .45065,    .04953,    .01276,
     +     .00744,    .03797,    .07094 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50819,    .23043,    .43389,    .04854,    .01282,
     +     .00768,    .03728,    .06921,
     +     .50189,    .22664,    .41808,    .04757,    .01286,
     +     .00788,    .03662,    .06755,
     +     .49594,    .22311,    .40362,    .04667,    .01288,
     +     .00805,    .03599,    .06602,
     +     .49030,    .21979,    .39037,    .04582,    .01288,
     +     .00818,    .03539,    .06460,
     +     .48470,    .21650,    .37754,    .04498,    .01286,
     +     .00830,    .03479,    .06321,
     +     .47912,    .21328,    .36523,    .04417,    .01283,
     +     .00839,    .03421,    .06184,
     +     .47386,    .21028,    .35395,    .04342,    .01279,
     +     .00847,    .03366,    .06057,
     +     .46887,    .20746,    .34359,    .04270,    .01274,
     +     .00852,    .03314,    .05939 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46388,    .20464,    .33346,    .04197,    .01268,
     +     .00857,    .03262,    .05823,
     +     .45896,    .20189,    .32378,    .04127,    .01262,
     +     .00861,    .03210,    .05710,
     +     .45423,    .19928,    .31477,    .04062,    .01255,
     +     .00863,    .03162,    .05603,
     +     .44981,    .19685,    .30651,    .04001,    .01248,
     +     .00865,    .03116,    .05504,
     +     .44530,    .19438,    .29833,    .03938,    .01240,
     +     .00865,    .03070,    .05406 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .66256,    .32869,    .68040,    .05800,    .00000,
     +     .00000,    .03975,    .09809,
     +     .65784,    .32422,    .67954,    .05733,    .00000,
     +     .00000,    .03958,    .09604,
     +     .65048,    .31761,    .67400,    .05633,    .00004,
     +     .00000,    .03929,    .09304,
     +     .64480,    .31278,    .66615,    .05557,    .00092,
     +     .00000,    .03903,    .09089,
     +     .63862,    .30771,    .65536,    .05476,    .00217,
     +     .00000,    .03871,    .08867,
     +     .63306,    .30334,    .64471,    .05405,    .00293,
     +     .00000,    .03841,    .08677,
     +     .62758,    .29915,    .63341,    .05335,    .00362,
     +     .00000,    .03809,    .08498,
     +     .62170,    .29474,    .62091,    .05261,    .00433,
     +     .00000,    .03773,    .08312 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .61644,    .29087,    .60907,    .05194,    .00484,
     +     .00000,    .03740,    .08151,
     +     .61132,    .28719,    .59744,    .05129,    .00533,
     +     .00000,    .03706,    .07999,
     +     .60717,    .28429,    .58784,    .05077,    .00568,
     +     .00000,    .03678,    .07881,
     +     .59824,    .27814,    .56635,    .04966,    .00636,
     +     .00002,    .03617,    .07631,
     +     .59044,    .27289,    .54663,    .04870,    .00688,
     +     .00060,    .03563,    .07420,
     +     .58161,    .26709,    .52372,    .04761,    .00738,
     +     .00155,    .03499,    .07188,
     +     .57234,    .26113,    .50032,    .04648,    .00783,
     +     .00227,    .03430,    .06956,
     +     .56380,    .25576,    .47932,    .04544,    .00815,
     +     .00280,    .03363,    .06749 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55516,    .25044,    .45866,    .04441,    .00843,
     +     .00329,    .03297,    .06545,
     +     .54801,    .24611,    .44205,    .04356,    .00863,
     +     .00368,    .03241,    .06380,
     +     .53932,    .24090,    .42238,    .04252,    .00883,
     +     .00407,    .03171,    .06186,
     +     .53160,    .23635,    .40549,    .04160,    .00896,
     +     .00437,    .03110,    .06017,
     +     .52460,    .23227,    .39061,    .04078,    .00906,
     +     .00463,    .03054,    .05866,
     +     .51567,    .22714,    .37225,    .03975,    .00915,
     +     .00490,    .02983,    .05679,
     +     .50730,    .22240,    .35569,    .03878,    .00921,
     +     .00512,    .02916,    .05509,
     +     .49955,    .21806,    .34087,    .03789,    .00925,
     +     .00530,    .02854,    .05354 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49178,    .21376,    .32658,    .03703,    .00926,
     +     .00545,    .02792,    .05201,
     +     .48425,    .20962,    .31317,    .03618,    .00925,
     +     .00558,    .02731,    .05057,
     +     .47720,    .20578,    .30100,    .03539,    .00923,
     +     .00568,    .02675,    .04926,
     +     .47054,    .20221,    .28994,    .03465,    .00920,
     +     .00575,    .02622,    .04803,
     +     .46394,    .19870,    .27930,    .03393,    .00916,
     +     .00582,    .02570,    .04683,
     +     .45744,    .19526,    .26917,    .03323,    .00911,
     +     .00586,    .02518,    .04567,
     +     .45137,    .19206,    .25993,    .03258,    .00905,
     +     .00590,    .02471,    .04461,
     +     .44562,    .18906,    .25148,    .03196,    .00899,
     +     .00592,    .02426,    .04361 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43988,    .18608,    .24327,    .03135,    .00893,
     +     .00594,    .02381,    .04263,
     +     .43427,    .18319,    .23546,    .03076,    .00886,
     +     .00595,    .02338,    .04168,
     +     .42892,    .18046,    .22824,    .03020,    .00879,
     +     .00595,    .02296,    .04080,
     +     .42393,    .17792,    .22165,    .02968,    .00872,
     +     .00595,    .02258,    .03999,
     +     .41885,    .17535,    .21517,    .02916,    .00864,
     +     .00594,    .02219,    .03917 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .68383,    .32461,    .60122,    .04799,    .00000,
     +     .00000,    .03271,    .08048,
     +     .67656,    .31917,    .59717,    .04733,    .00000,
     +     .00000,    .03246,    .07846,
     +     .66559,    .31117,    .58730,    .04633,    .00004,
     +     .00000,    .03204,    .07556,
     +     .65740,    .30537,    .57675,    .04557,    .00074,
     +     .00000,    .03170,    .07350,
     +     .64867,    .29934,    .56354,    .04476,    .00173,
     +     .00000,    .03132,    .07138,
     +     .64100,    .29418,    .55106,    .04406,    .00232,
     +     .00000,    .03097,    .06959,
     +     .63354,    .28928,    .53828,    .04337,    .00285,
     +     .00000,    .03060,    .06790,
     +     .62563,    .28417,    .52444,    .04265,    .00339,
     +     .00000,    .03021,    .06614 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .61867,    .27972,    .51173,    .04199,    .00378,
     +     .00000,    .02984,    .06466,
     +     .61196,    .27550,    .49943,    .04137,    .00415,
     +     .00000,    .02949,    .06326,
     +     .60658,    .27218,    .48944,    .04088,    .00441,
     +     .00000,    .02919,    .06216,
     +     .59515,    .26520,    .46759,    .03982,    .00491,
     +     .00002,    .02856,    .05987,
     +     .58529,    .25929,    .44810,    .03891,    .00528,
     +     .00045,    .02801,    .05795,
     +     .57425,    .25283,    .42596,    .03790,    .00563,
     +     .00116,    .02737,    .05587,
     +     .56283,    .24624,    .40365,    .03686,    .00593,
     +     .00169,    .02669,    .05377,
     +     .55244,    .24034,    .38399,    .03590,    .00615,
     +     .00207,    .02607,    .05192 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54204,    .23453,    .36491,    .03495,    .00632,
     +     .00243,    .02544,    .05013,
     +     .53352,    .22982,    .34973,    .03417,    .00645,
     +     .00271,    .02491,    .04870,
     +     .52325,    .22418,    .33197,    .03322,    .00656,
     +     .00298,    .02428,    .04701,
     +     .51418,    .21931,    .31688,    .03241,    .00663,
     +     .00319,    .02372,    .04555,
     +     .50600,    .21496,    .30369,    .03169,    .00669,
     +     .00337,    .02321,    .04424,
     +     .49569,    .20950,    .28760,    .03076,    .00672,
     +     .00355,    .02258,    .04266,
     +     .48609,    .20450,    .27325,    .02991,    .00673,
     +     .00369,    .02199,    .04121,
     +     .47725,    .19994,    .26051,    .02914,    .00673,
     +     .00381,    .02144,    .03989 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46848,    .19543,    .24832,    .02838,    .00672,
     +     .00390,    .02090,    .03862,
     +     .46000,    .19113,    .23700,    .02765,    .00669,
     +     .00397,    .02037,    .03741,
     +     .45209,    .18716,    .22679,    .02698,    .00665,
     +     .00403,    .01989,    .03630,
     +     .44470,    .18346,    .21758,    .02635,    .00660,
     +     .00407,    .01944,    .03529,
     +     .43740,    .17983,    .20876,    .02572,    .00656,
     +     .00411,    .01900,    .03431,
     +     .43025,    .17631,    .20045,    .02513,    .00650,
     +     .00413,    .01857,    .03336,
     +     .42356,    .17305,    .19291,    .02457,    .00644,
     +     .00414,    .01817,    .03249,
     +     .41728,    .16999,    .18606,    .02406,    .00638,
     +     .00415,    .01779,    .03168 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .41104,    .16697,    .17942,    .02356,    .00632,
     +     .00415,    .01742,    .03088,
     +     .40496,    .16404,    .17314,    .02306,    .00626,
     +     .00415,    .01705,    .03012,
     +     .39919,    .16127,    .16737,    .02258,    .00619,
     +     .00414,    .01671,    .02942,
     +     .39383,    .15871,    .16212,    .02214,    .00613,
     +     .00413,    .01639,    .02877,
     +     .38839,    .15614,    .15697,    .02171,    .00606,
     +     .00411,    .01608,    .02812 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .69355,    .31550,    .54372,    .03987,    .00000,
     +     .00000,    .02658,    .06452,
     +     .68395,    .30922,    .53571,    .03921,    .00000,
     +     .00000,    .02630,    .06269,
     +     .66964,    .30009,    .52068,    .03822,    .00003,
     +     .00000,    .02584,    .06004,
     +     .65912,    .29356,    .50704,    .03749,    .00059,
     +     .00000,    .02548,    .05815,
     +     .64804,    .28681,    .49113,    .03672,    .00137,
     +     .00000,    .02509,    .05623,
     +     .63845,    .28106,    .47674,    .03603,    .00183,
     +     .00000,    .02472,    .05464,
     +     .62923,    .27562,    .46252,    .03536,    .00224,
     +     .00000,    .02435,    .05314,
     +     .61953,    .26997,    .44743,    .03466,    .00265,
     +     .00000,    .02396,    .05159 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61106,    .26510,    .43390,    .03405,    .00295,
     +     .00000,    .02360,    .05029,
     +     .60296,    .26049,    .42102,    .03346,    .00322,
     +     .00000,    .02325,    .04905,
     +     .59655,    .25686,    .41076,    .03299,    .00341,
     +     .00000,    .02296,    .04809,
     +     .58295,    .24931,    .38878,    .03200,    .00377,
     +     .00001,    .02236,    .04610,
     +     .57132,    .24298,    .36967,    .03115,    .00404,
     +     .00034,    .02185,    .04443,
     +     .55845,    .23606,    .34845,    .03023,    .00428,
     +     .00087,    .02126,    .04263,
     +     .54526,    .22904,    .32744,    .02927,    .00449,
     +     .00126,    .02062,    .04086,
     +     .53337,    .22282,    .30918,    .02840,    .00463,
     +     .00154,    .02006,    .03929 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52156,    .21672,    .29170,    .02755,    .00474,
     +     .00180,    .01950,    .03777,
     +     .51194,    .21180,    .27795,    .02686,    .00481,
     +     .00199,    .01904,    .03654,
     +     .50042,    .20594,    .26205,    .02601,    .00487,
     +     .00218,    .01848,    .03514,
     +     .49034,    .20089,    .24869,    .02529,    .00490,
     +     .00232,    .01799,    .03393,
     +     .48129,    .19640,    .23711,    .02465,    .00493,
     +     .00245,    .01755,    .03286,
     +     .46992,    .19083,    .22314,    .02385,    .00493,
     +     .00257,    .01701,    .03153,
     +     .45941,    .18573,    .21081,    .02312,    .00492,
     +     .00266,    .01649,    .03034,
     +     .44980,    .18108,    .19996,    .02246,    .00490,
     +     .00273,    .01602,    .02927 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .44030,    .17652,    .18967,    .02179,    .00487,
     +     .00279,    .01556,    .02825,
     +     .43119,    .17218,    .18019,    .02116,    .00483,
     +     .00283,    .01511,    .02729,
     +     .42273,    .16817,    .17171,    .02057,    .00479,
     +     .00287,    .01471,    .02642,
     +     .41483,    .16448,    .16411,    .02004,    .00474,
     +     .00289,    .01434,    .02560,
     +     .40706,    .16087,    .15687,    .01953,    .00469,
     +     .00290,    .01398,    .02480,
     +     .39949,    .15739,    .15008,    .01903,    .00464,
     +     .00291,    .01363,    .02404,
     +     .39244,    .15416,    .14395,    .01858,    .00459,
     +     .00291,    .01330,    .02334,
     +     .38585,    .15113,    .13841,    .01814,    .00453,
     +     .00291,    .01299,    .02271 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37932,    .14814,    .13308,    .01770,    .00448,
     +     .00290,    .01268,    .02211,
     +     .37297,    .14525,    .12805,    .01729,    .00442,
     +     .00290,    .01239,    .02151,
     +     .36695,    .14256,    .12347,    .01692,    .00436,
     +     .00288,    .01212,    .02094,
     +     .36137,    .14006,    .11930,    .01658,    .00431,
     +     .00287,    .01187,    .02041,
     +     .35575,    .13755,    .11523,    .01622,    .00426,
     +     .00286,    .01161,    .01991 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .69297,    .30238,    .49652,    .03314,    .00000,
     +     .00000,    .02138,    .05059,
     +     .68120,    .29551,    .48452,    .03252,    .00000,
     +     .00000,    .02109,    .04896,
     +     .66386,    .28559,    .46449,    .03159,    .00003,
     +     .00000,    .02061,    .04665,
     +     .65130,    .27850,    .44800,    .03088,    .00046,
     +     .00000,    .02024,    .04504,
     +     .63821,    .27119,    .42975,    .03012,    .00108,
     +     .00000,    .01985,    .04341,
     +     .62692,    .26505,    .41380,    .02948,    .00144,
     +     .00000,    .01950,    .04203,
     +     .61617,    .25927,    .39842,    .02887,    .00175,
     +     .00000,    .01914,    .04074,
     +     .60492,    .25328,    .38241,    .02823,    .00206,
     +     .00000,    .01876,    .03941 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .59519,    .24814,    .36846,    .02765,    .00228,
     +     .00000,    .01843,    .03829,
     +     .58592,    .24329,    .35533,    .02710,    .00248,
     +     .00000,    .01811,    .03725,
     +     .57861,    .23949,    .34504,    .02667,    .00262,
     +     .00000,    .01786,    .03644,
     +     .56323,    .23161,    .32340,    .02577,    .00288,
     +     .00001,    .01730,    .03477,
     +     .55020,    .22501,    .30502,    .02501,    .00307,
     +     .00025,    .01682,    .03338,
     +     .53589,    .21784,    .28501,    .02417,    .00324,
     +     .00065,    .01630,    .03189,
     +     .52131,    .21063,    .26552,    .02329,    .00338,
     +     .00093,    .01576,    .03043,
     +     .50825,    .20429,    .24884,    .02253,    .00346,
     +     .00114,    .01527,    .02914 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49540,    .19807,    .23311,    .02176,    .00353,
     +     .00132,    .01478,    .02790,
     +     .48499,    .19307,    .22085,    .02114,    .00357,
     +     .00146,    .01438,    .02692,
     +     .47252,    .18717,    .20679,    .02042,    .00360,
     +     .00159,    .01390,    .02578,
     +     .46173,    .18208,    .19516,    .01979,    .00361,
     +     .00169,    .01349,    .02480,
     +     .45210,    .17757,    .18516,    .01922,    .00361,
     +     .00177,    .01313,    .02394,
     +     .44000,    .17202,    .17320,    .01855,    .00360,
     +     .00185,    .01266,    .02290,
     +     .42891,    .16695,    .16274,    .01792,    .00358,
     +     .00191,    .01223,    .02196,
     +     .41881,    .16235,    .15359,    .01734,    .00355,
     +     .00196,    .01185,    .02111 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40887,    .15787,    .14501,    .01677,    .00352,
     +     .00199,    .01148,    .02031,
     +     .39938,    .15360,    .13715,    .01624,    .00348,
     +     .00202,    .01112,    .01956,
     +     .39060,    .14967,    .13018,    .01574,    .00344,
     +     .00204,    .01079,    .01888,
     +     .38246,    .14604,    .12396,    .01529,    .00339,
     +     .00204,    .01048,    .01826,
     +     .37449,    .14251,    .11806,    .01485,    .00335,
     +     .00205,    .01018,    .01765,
     +     .36671,    .13912,    .11258,    .01444,    .00330,
     +     .00205,    .00990,    .01707,
     +     .35949,    .13599,    .10766,    .01406,    .00326,
     +     .00205,    .00964,    .01654,
     +     .35276,    .13308,    .10323,    .01371,    .00321,
     +     .00204,    .00940,    .01604 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34611,    .13022,    .09899,    .01337,    .00317,
     +     .00203,    .00916,    .01554,
     +     .33966,    .12746,    .09500,    .01303,    .00312,
     +     .00202,    .00893,    .01508,
     +     .33359,    .12488,    .09138,    .01271,    .00307,
     +     .00201,    .00872,    .01467,
     +     .32797,    .12248,    .08809,    .01241,    .00303,
     +     .00200,    .00852,    .01430,
     +     .32232,    .12009,    .08491,    .01212,    .00299,
     +     .00198,    .00831,    .01392 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .68288,    .28662,    .45312,    .02782,    .00000,
     +     .00000,    .01677,    .03861,
     +     .66929,    .27929,    .43753,    .02717,    .00000,
     +     .00000,    .01651,    .03729,
     +     .64942,    .26877,    .41328,    .02623,    .00003,
     +     .00000,    .01609,    .03538,
     +     .63513,    .26132,    .39459,    .02555,    .00036,
     +     .00000,    .01575,    .03404,
     +     .62032,    .25370,    .37469,    .02484,    .00084,
     +     .00000,    .01539,    .03269,
     +     .60767,    .24730,    .35771,    .02423,    .00112,
     +     .00000,    .01509,    .03154,
     +     .59570,    .24130,    .34176,    .02365,    .00135,
     +     .00000,    .01477,    .03049,
     +     .58325,    .23509,    .32542,    .02304,    .00159,
     +     .00000,    .01444,    .02941 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .57253,    .22977,    .31149,    .02249,    .00175,
     +     .00000,    .01415,    .02851,
     +     .56237,    .22478,    .29852,    .02197,    .00190,
     +     .00000,    .01388,    .02767,
     +     .55438,    .22090,    .28847,    .02157,    .00200,
     +     .00000,    .01365,    .02701,
     +     .53766,    .21287,    .26771,    .02075,    .00218,
     +     .00001,    .01318,    .02566,
     +     .52355,    .20619,    .25048,    .02005,    .00231,
     +     .00019,    .01277,    .02454,
     +     .50816,    .19897,    .23208,    .01930,    .00243,
     +     .00048,    .01232,    .02336,
     +     .49260,    .19172,    .21436,    .01853,    .00252,
     +     .00069,    .01188,    .02218,
     +     .47878,    .18535,    .19944,    .01783,    .00257,
     +     .00084,    .01144,    .02119 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46520,    .17916,    .18552,    .01716,    .00261,
     +     .00097,    .01104,    .02022,
     +     .45424,    .17421,    .17478,    .01663,    .00263,
     +     .00107,    .01072,    .01944,
     +     .44122,    .16841,    .16261,    .01599,    .00264,
     +     .00116,    .01032,    .01854,
     +     .42997,    .16342,    .15262,    .01546,    .00264,
     +     .00122,    .00998,    .01779,
     +     .41996,    .15900,    .14408,    .01498,    .00263,
     +     .00128,    .00968,    .01713,
     +     .40753,    .15355,    .13401,    .01437,    .00261,
     +     .00133,    .00930,    .01634,
     +     .39614,    .14861,    .12526,    .01384,    .00259,
     +     .00137,    .00896,    .01561,
     +     .38578,    .14416,    .11767,    .01337,    .00256,
     +     .00140,    .00866,    .01496 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37566,    .13981,    .11062,    .01288,    .00253,
     +     .00142,    .00836,    .01436,
     +     .36603,    .13571,    .10419,    .01243,    .00249,
     +     .00143,    .00808,    .01379,
     +     .35714,    .13194,    .09851,    .01202,    .00245,
     +     .00144,    .00782,    .01326,
     +     .34893,    .12849,    .09349,    .01165,    .00242,
     +     .00144,    .00758,    .01278,
     +     .34089,    .12513,    .08876,    .01129,    .00238,
     +     .00144,    .00735,    .01232,
     +     .33312,    .12191,    .08438,    .01095,    .00234,
     +     .00144,    .00713,    .01187,
     +     .32591,    .11894,    .08046,    .01065,    .00230,
     +     .00144,    .00693,    .01146,
     +     .31921,    .11618,    .07695,    .01036,    .00226,
     +     .00143,    .00674,    .01109 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .31259,    .11347,    .07361,    .01008,    .00223,
     +     .00142,    .00655,    .01074,
     +     .30621,    .11086,    .07047,    .00981,    .00219,
     +     .00141,    .00637,    .01041,
     +     .30024,    .10842,    .06764,    .00954,    .00215,
     +     .00140,    .00620,    .01011,
     +     .29471,    .10617,    .06507,    .00930,    .00212,
     +     .00139,    .00604,    .00983,
     +     .28917,    .10393,    .06260,    .00906,    .00208,
     +     .00137,    .00589,    .00955 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .66514,    .26825,    .40940,    .02291,    .00000,
     +     .00000,    .01319,    .02900,
     +     .64997,    .26069,    .39120,    .02232,    .00000,
     +     .00000,    .01293,    .02790,
     +     .62797,    .24987,    .36411,    .02146,    .00002,
     +     .00000,    .01253,    .02636,
     +     .61226,    .24224,    .34412,    .02082,    .00028,
     +     .00000,    .01223,    .02528,
     +     .59610,    .23447,    .32341,    .02015,    .00064,
     +     .00000,    .01192,    .02418,
     +     .58239,    .22795,    .30619,    .01959,    .00085,
     +     .00000,    .01164,    .02327,
     +     .56945,    .22188,    .29030,    .01905,    .00102,
     +     .00000,    .01137,    .02244,
     +     .55604,    .21564,    .27425,    .01850,    .00120,
     +     .00000,    .01107,    .02158 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54454,    .21032,    .26081,    .01804,    .00131,
     +     .00000,    .01082,    .02085,
     +     .53369,    .20533,    .24843,    .01758,    .00142,
     +     .00000,    .01057,    .02018,
     +     .52521,    .20144,    .23895,    .01721,    .00149,
     +     .00000,    .01038,    .01968,
     +     .50750,    .19346,    .21963,    .01648,    .00162,
     +     .00001,    .00999,    .01861,
     +     .49266,    .18685,    .20388,    .01588,    .00171,
     +     .00014,    .00965,    .01773,
     +     .47658,    .17971,    .18731,    .01521,    .00179,
     +     .00035,    .00926,    .01683,
     +     .46039,    .17259,    .17160,    .01454,    .00185,
     +     .00050,    .00887,    .01592,
     +     .44606,    .16639,    .15853,    .01394,    .00188,
     +     .00061,    .00852,    .01515 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43208,    .16036,    .14645,    .01336,    .00190,
     +     .00070,    .00818,    .01442,
     +     .42084,    .15555,    .13722,    .01290,    .00191,
     +     .00077,    .00791,    .01384,
     +     .40755,    .14992,    .12691,    .01237,    .00191,
     +     .00083,    .00760,    .01315,
     +     .39611,    .14511,    .11851,    .01192,    .00190,
     +     .00087,    .00733,    .01256,
     +     .38597,    .14086,    .11137,    .01153,    .00189,
     +     .00091,    .00710,    .01205,
     +     .37341,    .13566,    .10301,    .01102,    .00187,
     +     .00095,    .00679,    .01146,
     +     .36199,    .13095,    .09582,    .01058,    .00185,
     +     .00097,    .00652,    .01091,
     +     .35165,    .12671,    .08963,    .01017,    .00182,
     +     .00099,    .00628,    .01042 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34154,    .12260,    .08391,    .00978,    .00179,
     +     .00100,    .00604,    .00998,
     +     .33195,    .11872,    .07874,    .00942,    .00176,
     +     .00101,    .00582,    .00955,
     +     .32315,    .11517,    .07419,    .00909,    .00173,
     +     .00101,    .00563,    .00917,
     +     .31504,    .11193,    .07020,    .00879,    .00170,
     +     .00101,    .00544,    .00881,
     +     .30713,    .10878,    .06646,    .00850,    .00167,
     +     .00101,    .00526,    .00847,
     +     .29949,    .10577,    .06301,    .00822,    .00164,
     +     .00100,    .00509,    .00814,
     +     .29244,    .10300,    .05992,    .00797,    .00161,
     +     .00100,    .00493,    .00784,
     +     .28592,    .10043,    .05718,    .00773,    .00158,
     +     .00099,    .00478,    .00758 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27951,    .09792,    .05458,    .00750,    .00155,
     +     .00098,    .00464,    .00733,
     +     .27333,    .09550,    .05214,    .00727,    .00152,
     +     .00097,    .00450,    .00709,
     +     .26753,    .09324,    .04994,    .00707,    .00149,
     +     .00096,    .00437,    .00687,
     +     .26217,    .09116,    .04796,    .00687,    .00147,
     +     .00095,    .00425,    .00667,
     +     .25681,    .08910,    .04606,    .00669,    .00144,
     +     .00094,    .00414,    .00646 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .64043,    .24858,    .36483,    .01885,    .00000,
     +     .00000,    .01017,    .02122,
     +     .62405,    .24091,    .34503,    .01829,    .00000,
     +     .00000,    .00994,    .02037,
     +     .60043,    .22999,    .31652,    .01747,    .00002,
     +     .00000,    .00960,    .01915,
     +     .58368,    .22234,    .29621,    .01687,    .00021,
     +     .00000,    .00934,    .01833,
     +     .56651,    .21456,    .27566,    .01626,    .00048,
     +     .00000,    .00905,    .01750,
     +     .55200,    .20809,    .25889,    .01576,    .00064,
     +     .00000,    .00882,    .01679,
     +     .53840,    .20206,    .24362,    .01528,    .00077,
     +     .00000,    .00858,    .01615,
     +     .52435,    .19587,    .22837,    .01478,    .00089,
     +     .00000,    .00834,    .01550 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51237,    .19064,    .21577,    .01435,    .00097,
     +     .00000,    .00813,    .01494,
     +     .50107,    .18574,    .20431,    .01396,    .00105,
     +     .00000,    .00792,    .01443,
     +     .49225,    .18196,    .19566,    .01365,    .00110,
     +     .00000,    .00776,    .01403,
     +     .47399,    .17415,    .17821,    .01300,    .00119,
     +     .00001,    .00743,    .01321,
     +     .45876,    .16770,    .16418,    .01247,    .00125,
     +     .00010,    .00716,    .01255,
     +     .44230,    .16081,    .14962,    .01191,    .00130,
     +     .00025,    .00685,    .01185,
     +     .42582,    .15396,    .13598,    .01133,    .00134,
     +     .00036,    .00655,    .01116,
     +     .41135,    .14796,    .12481,    .01082,    .00136,
     +     .00043,    .00627,    .01059 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39725,    .14220,    .11460,    .01033,    .00137,
     +     .00050,    .00600,    .01004,
     +     .38596,    .13763,    .10685,    .00995,    .00137,
     +     .00055,    .00578,    .00960,
     +     .37268,    .13225,    .09824,    .00950,    .00136,
     +     .00059,    .00552,    .00912,
     +     .36130,    .12769,    .09129,    .00912,    .00135,
     +     .00062,    .00531,    .00870,
     +     .35123,    .12367,    .08543,    .00878,    .00134,
     +     .00064,    .00512,    .00834,
     +     .33881,    .11876,    .07864,    .00838,    .00132,
     +     .00067,    .00489,    .00789,
     +     .32755,    .11433,    .07282,    .00801,    .00130,
     +     .00068,    .00469,    .00749,
     +     .31740,    .11036,    .06783,    .00768,    .00128,
     +     .00069,    .00451,    .00713 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30754,    .10653,    .06328,    .00737,    .00126,
     +     .00070,    .00432,    .00680,
     +     .29820,    .10293,    .05918,    .00708,    .00123,
     +     .00070,    .00414,    .00649,
     +     .28963,    .09965,    .05558,    .00681,    .00121,
     +     .00070,    .00399,    .00621,
     +     .28177,    .09664,    .05245,    .00656,    .00119,
     +     .00070,    .00385,    .00596,
     +     .27413,    .09373,    .04951,    .00632,    .00116,
     +     .00070,    .00372,    .00573,
     +     .26678,    .09095,    .04683,    .00610,    .00114,
     +     .00069,    .00359,    .00550,
     +     .26000,    .08840,    .04445,    .00590,    .00111,
     +     .00069,    .00346,    .00530,
     +     .25374,    .08605,    .04233,    .00572,    .00109,
     +     .00068,    .00335,    .00511 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24759,    .08375,    .04031,    .00553,    .00107,
     +     .00067,    .00325,    .00493,
     +     .24168,    .08155,    .03844,    .00535,    .00105,
     +     .00067,    .00315,    .00475,
     +     .23614,    .07949,    .03676,    .00520,    .00103,
     +     .00066,    .00305,    .00460,
     +     .23104,    .07760,    .03525,    .00506,    .00101,
     +     .00065,    .00296,    .00445,
     +     .22597,    .07573,    .03380,    .00492,    .00099,
     +     .00065,    .00288,    .00430 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .61011,    .22792,    .31943,    .01527,    .00000,
     +     .00000,    .00776,    .01522,
     +     .59282,    .22032,    .29916,    .01476,    .00000,
     +     .00000,    .00757,    .01456,
     +     .56802,    .20956,    .27069,    .01403,    .00001,
     +     .00000,    .00727,    .01363,
     +     .55055,    .20203,    .25094,    .01349,    .00016,
     +     .00000,    .00706,    .01299,
     +     .53275,    .19440,    .23131,    .01293,    .00036,
     +     .00000,    .00683,    .01236,
     +     .51775,    .18806,    .21553,    .01250,    .00047,
     +     .00000,    .00660,    .01187,
     +     .50377,    .18218,    .20140,    .01207,    .00056,
     +     .00000,    .00641,    .01138,
     +     .48938,    .17617,    .18745,    .01163,    .00065,
     +     .00000,    .00622,    .01088 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .47712,    .17110,    .17607,    .01126,    .00071,
     +     .00000,    .00604,    .01048,
     +     .46561,    .16637,    .16578,    .01092,    .00076,
     +     .00000,    .00588,    .01010,
     +     .45668,    .16274,    .15806,    .01066,    .00080,
     +     .00000,    .00575,    .00979,
     +     .43820,    .15524,    .14270,    .01010,    .00086,
     +     .00001,    .00548,    .00919,
     +     .42287,    .14906,    .13053,    .00965,    .00090,
     +     .00007,    .00525,    .00872,
     +     .40638,    .14247,    .11807,    .00917,    .00093,
     +     .00018,    .00500,    .00822,
     +     .38990,    .13596,    .10653,    .00870,    .00095,
     +     .00026,    .00475,    .00772,
     +     .37552,    .13031,    .09715,    .00827,    .00096,
     +     .00031,    .00453,    .00729 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36157,    .12488,    .08868,    .00787,    .00097,
     +     .00035,    .00433,    .00690,
     +     .35044,    .12057,    .08230,    .00756,    .00097,
     +     .00038,    .00416,    .00658,
     +     .33742,    .11557,    .07526,    .00719,    .00096,
     +     .00041,    .00397,    .00620,
     +     .32628,    .11131,    .06964,    .00688,    .00095,
     +     .00043,    .00381,    .00590,
     +     .31646,    .10757,    .06493,    .00661,    .00094,
     +     .00045,    .00367,    .00564,
     +     .30441,    .10302,    .05947,    .00628,    .00092,
     +     .00047,    .00348,    .00532,
     +     .29349,    .09892,    .05487,    .00600,    .00091,
     +     .00048,    .00332,    .00504,
     +     .28367,    .09526,    .05094,    .00576,    .00089,
     +     .00048,    .00318,    .00478 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27420,    .09174,    .04736,    .00549,    .00087,
     +     .00048,    .00305,    .00454,
     +     .26526,    .08843,    .04415,    .00524,    .00085,
     +     .00048,    .00292,    .00433,
     +     .25708,    .08541,    .04137,    .00503,    .00083,
     +     .00048,    .00280,    .00415,
     +     .24957,    .08268,    .03893,    .00484,    .00082,
     +     .00048,    .00270,    .00397,
     +     .24229,    .08003,    .03665,    .00466,    .00080,
     +     .00048,    .00260,    .00380,
     +     .23534,    .07750,    .03459,    .00449,    .00078,
     +     .00047,    .00250,    .00364,
     +     .22895,    .07519,    .03277,    .00432,    .00076,
     +     .00047,    .00241,    .00350,
     +     .22306,    .07306,    .03115,    .00417,    .00075,
     +     .00047,    .00233,    .00338 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21728,    .07098,    .02963,    .00402,    .00073,
     +     .00046,    .00225,    .00325,
     +     .21172,    .06899,    .02821,    .00389,    .00072,
     +     .00046,    .00218,    .00313,
     +     .20652,    .06715,    .02693,    .00377,    .00070,
     +     .00045,    .00210,    .00303,
     +     .20173,    .06545,    .02578,    .00366,    .00069,
     +     .00044,    .00204,    .00293,
     +     .19699,    .06378,    .02469,    .00355,    .00068,
     +     .00044,    .00197,    .00282 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .57516,    .20690,    .27427,    .01214,    .00000,
     +     .00000,    .00589,    .01068,
     +     .55731,    .19948,    .25449,    .01168,    .00000,
     +     .00000,    .00571,    .01022,
     +     .53187,    .18900,    .22728,    .01103,    .00001,
     +     .00000,    .00544,    .00956,
     +     .51401,    .18171,    .20882,    .01057,    .00011,
     +     .00000,    .00525,    .00908,
     +     .49587,    .17437,    .19078,    .01011,    .00026,
     +     .00000,    .00507,    .00860,
     +     .48074,    .16825,    .17646,    .00972,    .00034,
     +     .00000,    .00489,    .00823,
     +     .46660,    .16262,    .16379,    .00935,    .00040,
     +     .00000,    .00473,    .00788,
     +     .45209,    .15688,    .15140,    .00898,    .00046,
     +     .00000,    .00458,    .00752 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .43982,    .15205,    .14141,    .00868,    .00051,
     +     .00000,    .00443,    .00722,
     +     .42832,    .14756,    .13244,    .00839,    .00054,
     +     .00000,    .00430,    .00694,
     +     .41942,    .14409,    .12576,    .00817,    .00057,
     +     .00000,    .00420,    .00672,
     +     .40106,    .13700,    .11260,    .00771,    .00061,
     +     .00000,    .00399,    .00629,
     +     .38590,    .13119,    .10231,    .00733,    .00063,
     +     .00005,    .00382,    .00594,
     +     .36966,    .12501,    .09188,    .00693,    .00065,
     +     .00012,    .00364,    .00556,
     +     .35354,    .11892,    .08233,    .00655,    .00067,
     +     .00018,    .00343,    .00520,
     +     .33947,    .11366,    .07469,    .00621,    .00067,
     +     .00021,    .00325,    .00491 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32590,    .10861,    .06780,    .00589,    .00067,
     +     .00024,    .00309,    .00464,
     +     .31511,    .10462,    .06265,    .00563,    .00067,
     +     .00026,    .00297,    .00442,
     +     .30254,    .09999,    .05703,    .00535,    .00066,
     +     .00028,    .00283,    .00414,
     +     .29180,    .09608,    .05255,    .00510,    .00065,
     +     .00030,    .00270,    .00393,
     +     .28235,    .09266,    .04882,    .00488,    .00065,
     +     .00031,    .00259,    .00375,
     +     .27083,    .08849,    .04454,    .00464,    .00063,
     +     .00032,    .00246,    .00351,
     +     .26045,    .08475,    .04094,    .00439,    .00062,
     +     .00033,    .00234,    .00333,
     +     .25114,    .08142,    .03789,    .00417,    .00061,
     +     .00033,    .00223,    .00317 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24216,    .07823,    .03513,    .00397,    .00059,
     +     .00034,    .00213,    .00301,
     +     .23371,    .07524,    .03267,    .00379,    .00058,
     +     .00034,    .00203,    .00286,
     +     .22601,    .07252,    .03053,    .00364,    .00057,
     +     .00034,    .00194,    .00272,
     +     .21896,    .07005,    .02867,    .00350,    .00056,
     +     .00034,    .00187,    .00260,
     +     .21214,    .06768,    .02695,    .00336,    .00054,
     +     .00034,    .00179,    .00249,
     +     .20563,    .06542,    .02538,    .00323,    .00053,
     +     .00033,    .00172,    .00238,
     +     .19966,    .06335,    .02400,    .00310,    .00052,
     +     .00033,    .00165,    .00227,
     +     .19416,    .06145,    .02278,    .00299,    .00051,
     +     .00033,    .00160,    .00218 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18878,    .05960,    .02163,    .00289,    .00050,
     +     .00033,    .00155,    .00209,
     +     .18363,    .05784,    .02056,    .00279,    .00049,
     +     .00033,    .00150,    .00201,
     +     .17884,    .05620,    .01961,    .00270,    .00048,
     +     .00032,    .00145,    .00195,
     +     .17444,    .05470,    .01875,    .00262,    .00047,
     +     .00032,    .00141,    .00189,
     +     .17007,    .05322,    .01794,    .00253,    .00046,
     +     .00032,    .00136,    .00182 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .53665,    .18611,    .23082,    .00959,    .00000,
     +     .00000,    .00431,    .00731,
     +     .51858,    .17899,    .21229,    .00920,    .00000,
     +     .00000,    .00419,    .00694,
     +     .49293,    .16893,    .18731,    .00863,    .00001,
     +     .00000,    .00396,    .00647,
     +     .47502,    .16197,    .17064,    .00823,    .00008,
     +     .00000,    .00381,    .00615,
     +     .45690,    .15499,    .15456,    .00784,    .00018,
     +     .00000,    .00367,    .00581,
     +     .44181,    .14921,    .14198,    .00752,    .00024,
     +     .00000,    .00354,    .00553,
     +     .42781,    .14387,    .13095,    .00720,    .00028,
     +     .00000,    .00342,    .00529,
     +     .41348,    .13845,    .12027,    .00688,    .00033,
     +     .00000,    .00330,    .00505 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40136,    .13393,    .11173,    .00665,    .00035,
     +     .00000,    .00319,    .00483,
     +     .39006,    .12971,    .10413,    .00642,    .00038,
     +     .00000,    .00308,    .00463,
     +     .38135,    .12646,    .09851,    .00622,    .00040,
     +     .00000,    .00300,    .00448,
     +     .36343,    .11985,    .08754,    .00584,    .00043,
     +     .00000,    .00283,    .00417,
     +     .34866,    .11445,    .07905,    .00553,    .00045,
     +     .00003,    .00270,    .00393,
     +     .33291,    .10871,    .07056,    .00522,    .00046,
     +     .00009,    .00255,    .00370,
     +     .31731,    .10309,    .06283,    .00491,    .00047,
     +     .00012,    .00242,    .00343,
     +     .30385,    .09824,    .05670,    .00463,    .00047,
     +     .00014,    .00228,    .00324 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29087,    .09361,    .05122,    .00437,    .00047,
     +     .00016,    .00216,    .00305,
     +     .28057,    .08997,    .04714,    .00417,    .00047,
     +     .00018,    .00206,    .00289,
     +     .26859,    .08577,    .04273,    .00395,    .00046,
     +     .00019,    .00196,    .00270,
     +     .25845,    .08221,    .03924,    .00375,    .00045,
     +     .00020,    .00186,    .00256,
     +     .24955,    .07911,    .03635,    .00358,    .00045,
     +     .00021,    .00178,    .00244,
     +     .23867,    .07533,    .03305,    .00338,    .00044,
     +     .00021,    .00168,    .00230,
     +     .22891,    .07197,    .03029,    .00319,    .00043,
     +     .00022,    .00160,    .00216,
     +     .22019,    .06899,    .02795,    .00303,    .00042,
     +     .00022,    .00153,    .00205 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21178,    .06613,    .02585,    .00290,    .00041,
     +     .00022,    .00145,    .00193,
     +     .20391,    .06346,    .02398,    .00276,    .00040,
     +     .00022,    .00138,    .00182,
     +     .19678,    .06105,    .02236,    .00263,    .00039,
     +     .00022,    .00132,    .00174,
     +     .19028,    .05885,    .02097,    .00250,    .00038,
     +     .00022,    .00126,    .00166,
     +     .18400,    .05674,    .01968,    .00239,    .00038,
     +     .00022,    .00121,    .00159,
     +     .17799,    .05474,    .01852,    .00230,    .00037,
     +     .00022,    .00116,    .00151,
     +     .17248,    .05293,    .01748,    .00222,    .00036,
     +     .00022,    .00112,    .00144,
     +     .16744,    .05126,    .01657,    .00214,    .00036,
     +     .00022,    .00108,    .00138 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16252,    .04963,    .01571,    .00206,    .00035,
     +     .00022,    .00103,    .00133,
     +     .15782,    .04808,    .01492,    .00199,    .00034,
     +     .00022,    .00099,    .00127,
     +     .15346,    .04665,    .01421,    .00191,    .00034,
     +     .00022,    .00096,    .00122,
     +     .14946,    .04534,    .01357,    .00185,    .00033,
     +     .00022,    .00093,    .00117,
     +     .14548,    .04405,    .01297,    .00179,    .00033,
     +     .00022,    .00090,    .00113 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .49562,    .16568,    .18999,    .00739,    .00000,
     +     .00000,    .00316,    .00487,
     +     .47766,    .15892,    .17336,    .00706,    .00000,
     +     .00000,    .00304,    .00463,
     +     .45226,    .14944,    .15125,    .00660,    .00001,
     +     .00000,    .00285,    .00430,
     +     .43457,    .14291,    .13672,    .00628,    .00006,
     +     .00000,    .00273,    .00406,
     +     .41674,    .13638,    .12287,    .00596,    .00012,
     +     .00000,    .00262,    .00383,
     +     .40198,    .13097,    .11218,    .00568,    .00016,
     +     .00000,    .00251,    .00367,
     +     .38830,    .12602,    .10287,    .00545,    .00019,
     +     .00000,    .00241,    .00348,
     +     .37433,    .12100,    .09392,    .00522,    .00022,
     +     .00000,    .00231,    .00327 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36261,    .11681,    .08683,    .00502,    .00024,
     +     .00000,    .00224,    .00312,
     +     .35169,    .11292,    .08055,    .00482,    .00026,
     +     .00000,    .00216,    .00299,
     +     .34328,    .10992,    .07595,    .00466,    .00027,
     +     .00000,    .00209,    .00291,
     +     .32603,    .10382,    .06702,    .00435,    .00029,
     +     .00000,    .00196,    .00272,
     +     .31190,    .09887,    .06019,    .00411,    .00030,
     +     .00002,    .00186,    .00254,
     +     .29689,    .09364,    .05341,    .00387,    .00031,
     +     .00006,    .00176,    .00236,
     +     .28208,    .08853,    .04730,    .00362,    .00032,
     +     .00008,    .00165,    .00219,
     +     .26928,    .08413,    .04250,    .00341,    .00032,
     +     .00010,    .00155,    .00206 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25704,    .07994,    .03822,    .00322,    .00032,
     +     .00011,    .00147,    .00193,
     +     .24736,    .07666,    .03506,    .00306,    .00032,
     +     .00012,    .00140,    .00182,
     +     .23611,    .07288,    .03167,    .00289,    .00032,
     +     .00012,    .00133,    .00171,
     +     .22664,    .06970,    .02900,    .00273,    .00032,
     +     .00013,    .00126,    .00161,
     +     .21835,    .06692,    .02678,    .00260,    .00032,
     +     .00013,    .00119,    .00153,
     +     .20826,    .06355,    .02428,    .00244,    .00032,
     +     .00013,    .00112,    .00144,
     +     .19921,    .06057,    .02220,    .00231,    .00032,
     +     .00013,    .00106,    .00136,
     +     .19114,    .05793,    .02044,    .00220,    .00031,
     +     .00013,    .00101,    .00129 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18342,    .05538,    .01886,    .00209,    .00031,
     +     .00013,    .00096,    .00122,
     +     .17620,    .05302,    .01746,    .00198,    .00030,
     +     .00013,    .00091,    .00115,
     +     .16966,    .05091,    .01626,    .00189,    .00030,
     +     .00013,    .00086,    .00109,
     +     .16371,    .04899,    .01522,    .00181,    .00029,
     +     .00013,    .00082,    .00103,
     +     .15797,    .04715,    .01426,    .00173,    .00029,
     +     .00013,    .00079,    .00098,
     +     .15254,    .04540,    .01340,    .00165,    .00028,
     +     .00013,    .00075,    .00093,
     +     .14758,    .04381,    .01264,    .00157,    .00028,
     +     .00013,    .00072,    .00089,
     +     .14302,    .04235,    .01197,    .00151,    .00027,
     +     .00013,    .00070,    .00085 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13856,    .04094,    .01133,    .00146,    .00027,
     +     .00013,    .00067,    .00082,
     +     .13432,    .03959,    .01075,    .00141,    .00026,
     +     .00013,    .00065,    .00078,
     +     .13041,    .03836,    .01024,    .00135,    .00026,
     +     .00013,    .00062,    .00075,
     +     .12682,    .03723,    .00977,    .00130,    .00026,
     +     .00013,    .00060,    .00072,
     +     .12326,    .03611,    .00933,    .00125,    .00025,
     +     .00013,    .00058,    .00069 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .45303,    .14591,    .15287,    .00551,    .00000,
     +     .00000,    .00228,    .00322,
     +     .43542,    .13959,    .13841,    .00524,    .00000,
     +     .00000,    .00219,    .00306,
     +     .41060,    .13079,    .11941,    .00488,    .00001,
     +     .00000,    .00206,    .00282,
     +     .39344,    .12472,    .10715,    .00462,    .00004,
     +     .00000,    .00195,    .00266,
     +     .37621,    .11866,    .09562,    .00435,    .00008,
     +     .00000,    .00185,    .00252,
     +     .36194,    .11370,    .08675,    .00416,    .00011,
     +     .00000,    .00176,    .00238,
     +     .34878,    .10915,    .07911,    .00397,    .00013,
     +     .00000,    .00170,    .00225,
     +     .33540,    .10455,    .07182,    .00377,    .00015,
     +     .00000,    .00164,    .00213 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32420,    .10072,    .06610,    .00363,    .00016,
     +     .00000,    .00157,    .00202,
     +     .31379,    .09717,    .06107,    .00348,    .00017,
     +     .00000,    .00151,    .00193,
     +     .30578,    .09444,    .05739,    .00336,    .00018,
     +     .00000,    .00146,    .00187,
     +     .28943,    .08890,    .05031,    .00312,    .00019,
     +     .00000,    .00136,    .00176,
     +     .27609,    .08441,    .04496,    .00291,    .00020,
     +     .00002,    .00129,    .00166,
     +     .26199,    .07969,    .03969,    .00271,    .00020,
     +     .00004,    .00123,    .00155,
     +     .24806,    .07510,    .03497,    .00256,    .00021,
     +     .00005,    .00115,    .00142,
     +     .23611,    .07117,    .03129,    .00240,    .00021,
     +     .00006,    .00108,    .00132 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22472,    .06744,    .02803,    .00224,    .00021,
     +     .00007,    .00101,    .00124,
     +     .21575,    .06452,    .02563,    .00211,    .00021,
     +     .00007,    .00096,    .00117,
     +     .20533,    .06116,    .02308,    .00200,    .00021,
     +     .00007,    .00090,    .00110,
     +     .19658,    .05834,    .02108,    .00190,    .00021,
     +     .00007,    .00086,    .00104,
     +     .18895,    .05589,    .01943,    .00181,    .00021,
     +     .00007,    .00082,    .00098,
     +     .17972,    .05294,    .01757,    .00168,    .00021,
     +     .00007,    .00077,    .00091,
     +     .17147,    .05033,    .01603,    .00158,    .00021,
     +     .00007,    .00073,    .00085,
     +     .16412,    .04801,    .01474,    .00150,    .00021,
     +     .00007,    .00068,    .00080 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15709,    .04582,    .01357,    .00143,    .00021,
     +     .00007,    .00065,    .00075,
     +     .15056,    .04377,    .01255,    .00134,    .00021,
     +     .00007,    .00061,    .00071,
     +     .14468,    .04191,    .01167,    .00126,    .00021,
     +     .00007,    .00059,    .00068,
     +     .13932,    .04024,    .01091,    .00120,    .00021,
     +     .00007,    .00056,    .00066,
     +     .13417,    .03865,    .01021,    .00114,    .00021,
     +     .00007,    .00053,    .00063,
     +     .12928,    .03714,    .00958,    .00109,    .00021,
     +     .00007,    .00051,    .00059,
     +     .12484,    .03578,    .00903,    .00105,    .00021,
     +     .00007,    .00049,    .00055,
     +     .12077,    .03453,    .00854,    .00100,    .00021,
     +     .00007,    .00047,    .00052 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11681,    .03332,    .00809,    .00096,    .00020,
     +     .00007,    .00045,    .00051,
     +     .11303,    .03217,    .00766,    .00092,    .00020,
     +     .00007,    .00043,    .00049,
     +     .10953,    .03111,    .00729,    .00089,    .00020,
     +     .00007,    .00041,    .00047,
     +     .10633,    .03015,    .00695,    .00086,    .00020,
     +     .00007,    .00039,    .00045,
     +     .10320,    .02920,    .00663,    .00083,    .00020,
     +     .00007,    .00038,    .00044 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .40971,    .12721,    .12013,    .00408,    .00000,
     +     .00000,    .00162,    .00205,
     +     .39269,    .12139,    .10797,    .00386,    .00000,
     +     .00000,    .00155,    .00195,
     +     .36886,    .11327,    .09221,    .00354,    .00000,
     +     .00000,    .00145,    .00180,
     +     .35244,    .10770,    .08217,    .00332,    .00002,
     +     .00000,    .00138,    .00171,
     +     .33599,    .10218,    .07281,    .00311,    .00005,
     +     .00000,    .00131,    .00161,
     +     .32244,    .09767,    .06568,    .00296,    .00007,
     +     .00000,    .00125,    .00151,
     +     .31000,    .09352,    .05959,    .00279,    .00008,
     +     .00000,    .00119,    .00144,
     +     .29737,    .08934,    .05382,    .00261,    .00009,
     +     .00000,    .00114,    .00137 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .28678,    .08589,    .04934,    .00252,    .00010,
     +     .00000,    .00109,    .00130,
     +     .27696,    .08269,    .04541,    .00242,    .00011,
     +     .00000,    .00105,    .00124,
     +     .26944,    .08024,    .04255,    .00233,    .00011,
     +     .00000,    .00102,    .00120,
     +     .25414,    .07528,    .03710,    .00216,    .00012,
     +     .00000,    .00095,    .00112,
     +     .24171,    .07129,    .03300,    .00202,    .00012,
     +     .00001,    .00090,    .00104,
     +     .22861,    .06710,    .02899,    .00187,    .00012,
     +     .00002,    .00084,    .00095,
     +     .21576,    .06302,    .02543,    .00174,    .00012,
     +     .00003,    .00079,    .00090,
     +     .20476,    .05954,    .02267,    .00162,    .00012,
     +     .00003,    .00075,    .00084 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19430,    .05625,    .02025,    .00151,    .00012,
     +     .00003,    .00070,    .00079,
     +     .18609,    .05369,    .01849,    .00142,    .00012,
     +     .00003,    .00066,    .00075,
     +     .17664,    .05074,    .01659,    .00131,    .00012,
     +     .00003,    .00062,    .00070,
     +     .16869,    .04829,    .01512,    .00124,    .00012,
     +     .00003,    .00059,    .00066,
     +     .16177,    .04616,    .01392,    .00118,    .00012,
     +     .00003,    .00056,    .00062,
     +     .15341,    .04358,    .01256,    .00110,    .00012,
     +     .00003,    .00052,    .00058,
     +     .14597,    .04132,    .01144,    .00103,    .00012,
     +     .00003,    .00050,    .00054,
     +     .13938,    .03933,    .01049,    .00098,    .00012,
     +     .00003,    .00048,    .00051 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13309,    .03744,    .00966,    .00092,    .00012,
     +     .00003,    .00044,    .00047,
     +     .12725,    .03568,    .00892,    .00087,    .00012,
     +     .00003,    .00042,    .00044,
     +     .12198,    .03410,    .00829,    .00082,    .00012,
     +     .00003,    .00041,    .00042,
     +     .11722,    .03267,    .00774,    .00078,    .00012,
     +     .00003,    .00039,    .00041,
     +     .11265,    .03131,    .00724,    .00074,    .00012,
     +     .00003,    .00036,    .00040,
     +     .10834,    .03003,    .00678,    .00069,    .00012,
     +     .00003,    .00034,    .00038,
     +     .10441,    .02887,    .00639,    .00065,    .00012,
     +     .00003,    .00033,    .00036,
     +     .10081,    .02782,    .00604,    .00063,    .00012,
     +     .00003,    .00031,    .00033 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09731,    .02680,    .00571,    .00062,    .00012,
     +     .00003,    .00030,    .00031,
     +     .09400,    .02584,    .00541,    .00060,    .00012,
     +     .00003,    .00029,    .00030,
     +     .09096,    .02494,    .00514,    .00057,    .00012,
     +     .00003,    .00028,    .00029,
     +     .08819,    .02413,    .00490,    .00054,    .00012,
     +     .00003,    .00027,    .00028,
     +     .08545,    .02333,    .00467,    .00052,    .00012,
     +     .00003,    .00026,    .00027 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .36652,    .10983,    .09229,    .00302,    .00000,
     +     .00000,    .00104,    .00125,
     +     .35038,    .10453,    .08242,    .00285,    .00000,
     +     .00000,    .00101,    .00117,
     +     .32783,    .09719,    .06976,    .00261,    .00000,
     +     .00000,    .00094,    .00107,
     +     .31234,    .09217,    .06179,    .00243,    .00001,
     +     .00000,    .00089,    .00101,
     +     .29689,    .08719,    .05442,    .00227,    .00003,
     +     .00000,    .00083,    .00095,
     +     .28416,    .08314,    .04885,    .00218,    .00004,
     +     .00000,    .00079,    .00089,
     +     .27252,    .07943,    .04413,    .00208,    .00005,
     +     .00000,    .00076,    .00083,
     +     .26075,    .07571,    .03969,    .00196,    .00006,
     +     .00000,    .00073,    .00079 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25095,    .07262,    .03625,    .00186,    .00006,
     +     .00000,    .00069,    .00076,
     +     .24190,    .06978,    .03326,    .00176,    .00006,
     +     .00000,    .00066,    .00074,
     +     .23497,    .06760,    .03111,    .00169,    .00007,
     +     .00000,    .00063,    .00072,
     +     .22087,    .06322,    .02699,    .00157,    .00007,
     +     .00000,    .00059,    .00067,
     +     .20943,    .05971,    .02392,    .00148,    .00007,
     +     .00001,    .00056,    .00062,
     +     .19743,    .05605,    .02094,    .00138,    .00007,
     +     .00001,    .00052,    .00055,
     +     .18574,    .05247,    .01832,    .00127,    .00007,
     +     .00001,    .00048,    .00051,
     +     .17579,    .04944,    .01629,    .00117,    .00007,
     +     .00001,    .00045,    .00047 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16634,    .04658,    .01452,    .00108,    .00007,
     +     .00001,    .00042,    .00044,
     +     .15894,    .04435,    .01323,    .00102,    .00007,
     +     .00001,    .00040,    .00042,
     +     .15040,    .04181,    .01186,    .00097,    .00007,
     +     .00001,    .00037,    .00039,
     +     .14326,    .03969,    .01079,    .00092,    .00007,
     +     .00001,    .00035,    .00036,
     +     .13707,    .03786,    .00992,    .00087,    .00007,
     +     .00001,    .00034,    .00033,
     +     .12962,    .03566,    .00894,    .00081,    .00007,
     +     .00001,    .00031,    .00031,
     +     .12305,    .03372,    .00813,    .00074,    .00007,
     +     .00001,    .00028,    .00030,
     +     .11724,    .03201,    .00746,    .00067,    .00007,
     +     .00001,    .00026,    .00029 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11166,    .03040,    .00686,    .00065,    .00007,
     +     .00001,    .00025,    .00027,
     +     .10649,    .02891,    .00633,    .00063,    .00007,
     +     .00001,    .00024,    .00025,
     +     .10185,    .02757,    .00587,    .00060,    .00007,
     +     .00001,    .00023,    .00023,
     +     .09768,    .02637,    .00548,    .00057,    .00007,
     +     .00001,    .00022,    .00022,
     +     .09369,    .02523,    .00512,    .00054,    .00007,
     +     .00001,    .00021,    .00021,
     +     .08992,    .02416,    .00480,    .00050,    .00007,
     +     .00001,    .00020,    .00020,
     +     .08650,    .02318,    .00452,    .00047,    .00007,
     +     .00001,    .00019,    .00019,
     +     .08339,    .02230,    .00427,    .00045,    .00007,
     +     .00001,    .00018,    .00018 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08037,    .02144,    .00403,    .00044,    .00007,
     +     .00001,    .00016,    .00017,
     +     .07750,    .02063,    .00382,    .00042,    .00007,
     +     .00001,    .00016,    .00016,
     +     .07487,    .01989,    .00363,    .00040,    .00007,
     +     .00001,    .00015,    .00015,
     +     .07247,    .01921,    .00346,    .00039,    .00007,
     +     .00001,    .00015,    .00015,
     +     .07011,    .01855,    .00329,    .00037,    .00007,
     +     .00001,    .00014,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .32405,    .09343,    .06888,    .00201,    .00000,
     +     .00000,    .00077,    .00078,
     +     .30888,    .08869,    .06114,    .00190,    .00000,
     +     .00000,    .00073,    .00074,
     +     .28780,    .08212,    .05133,    .00175,    .00000,
     +     .00000,    .00066,    .00070,
     +     .27339,    .07766,    .04521,    .00164,    .00001,
     +     .00000,    .00061,    .00066,
     +     .25906,    .07325,    .03959,    .00154,    .00002,
     +     .00000,    .00057,    .00061,
     +     .24735,    .06968,    .03539,    .00143,    .00002,
     +     .00000,    .00054,    .00057,
     +     .23667,    .06642,    .03185,    .00134,    .00003,
     +     .00000,    .00051,    .00054,
     +     .22589,    .06315,    .02853,    .00125,    .00003,
     +     .00000,    .00049,    .00051 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .21689,    .06046,    .02598,    .00121,    .00003,
     +     .00000,    .00047,    .00047,
     +     .20859,    .05798,    .02377,    .00116,    .00003,
     +     .00000,    .00045,    .00044,
     +     .20226,    .05609,    .02218,    .00112,    .00003,
     +     .00000,    .00043,    .00043,
     +     .18947,    .05228,    .01917,    .00103,    .00003,
     +     .00000,    .00039,    .00040,
     +     .17917,    .04922,    .01694,    .00095,    .00003,
     +     .00000,    .00036,    .00037,
     +     .16836,    .04604,    .01479,    .00087,    .00003,
     +     .00000,    .00034,    .00032,
     +     .15782,    .04297,    .01290,    .00082,    .00003,
     +     .00000,    .00034,    .00031,
     +     .14890,    .04038,    .01145,    .00076,    .00003,
     +     .00000,    .00030,    .00029 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .14046,    .03793,    .01019,    .00070,    .00003,
     +     .00000,    .00027,    .00027,
     +     .13386,    .03603,    .00927,    .00066,    .00003,
     +     .00000,    .00025,    .00026,
     +     .12631,    .03387,    .00829,    .00062,    .00003,
     +     .00000,    .00023,    .00025,
     +     .12002,    .03207,    .00754,    .00058,    .00003,
     +     .00000,    .00022,    .00022,
     +     .11457,    .03053,    .00693,    .00055,    .00003,
     +     .00000,    .00021,    .00020,
     +     .10804,    .02868,    .00624,    .00050,    .00003,
     +     .00000,    .00020,    .00019,
     +     .10225,    .02704,    .00567,    .00047,    .00003,
     +     .00000,    .00019,    .00018,
     +     .09715,    .02561,    .00519,    .00045,    .00003,
     +     .00000,    .00018,    .00017 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09231,    .02426,    .00478,    .00043,    .00003,
     +     .00000,    .00016,    .00015,
     +     .08784,    .02302,    .00440,    .00040,    .00003,
     +     .00000,    .00015,    .00014,
     +     .08384,    .02190,    .00408,    .00037,    .00003,
     +     .00000,    .00014,    .00015,
     +     .08024,    .02091,    .00381,    .00035,    .00003,
     +     .00000,    .00013,    .00014,
     +     .07679,    .01996,    .00356,    .00034,    .00003,
     +     .00000,    .00013,    .00013,
     +     .07355,    .01907,    .00333,    .00032,    .00003,
     +     .00000,    .00012,    .00012,
     +     .07063,    .01826,    .00313,    .00029,    .00003,
     +     .00000,    .00011,    .00011,
     +     .06796,    .01753,    .00296,    .00028,    .00003,
     +     .00000,    .00011,    .00010 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06538,    .01683,    .00280,    .00027,    .00003,
     +     .00000,    .00010,    .00010,
     +     .06293,    .01617,    .00265,    .00026,    .00003,
     +     .00000,    .00010,    .00009,
     +     .06068,    .01556,    .00251,    .00025,    .00003,
     +     .00000,    .00009,    .00009,
     +     .05863,    .01501,    .00239,    .00024,    .00003,
     +     .00000,    .00009,    .00009,
     +     .05663,    .01447,    .00228,    .00023,    .00003,
     +     .00000,    .00009,    .00008 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .28294,    .07851,    .05004,    .00133,    .00000,
     +     .00000,    .00052,    .00050,
     +     .26895,    .07432,    .04418,    .00124,    .00000,
     +     .00000,    .00049,    .00047,
     +     .24958,    .06856,    .03680,    .00112,    .00000,
     +     .00000,    .00044,    .00043,
     +     .23637,    .06465,    .03225,    .00105,    .00000,
     +     .00000,    .00042,    .00040,
     +     .22328,    .06080,    .02810,    .00099,    .00001,
     +     .00000,    .00039,    .00038,
     +     .21264,    .05769,    .02502,    .00092,    .00001,
     +     .00000,    .00037,    .00034,
     +     .20292,    .05485,    .02244,    .00087,    .00001,
     +     .00000,    .00035,    .00033,
     +     .19314,    .05201,    .02004,    .00082,    .00001,
     +     .00000,    .00033,    .00032 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18504,    .04969,    .01820,    .00078,    .00001,
     +     .00000,    .00032,    .00030,
     +     .17760,    .04755,    .01661,    .00074,    .00001,
     +     .00000,    .00030,    .00028,
     +     .17194,    .04592,    .01547,    .00071,    .00001,
     +     .00000,    .00029,    .00026,
     +     .16047,    .04265,    .01333,    .00065,    .00001,
     +     .00000,    .00026,    .00025,
     +     .15125,    .04004,    .01175,    .00060,    .00001,
     +     .00000,    .00025,    .00023,
     +     .14167,    .03733,    .01024,    .00054,    .00001,
     +     .00000,    .00023,    .00021,
     +     .13238,    .03472,    .00891,    .00049,    .00001,
     +     .00000,    .00021,    .00020,
     +     .12451,    .03251,    .00790,    .00045,    .00001,
     +     .00000,    .00019,    .00019 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11707,    .03046,    .00702,    .00042,    .00001,
     +     .00000,    .00018,    .00018,
     +     .11128,    .02888,    .00639,    .00040,    .00001,
     +     .00000,    .00016,    .00016,
     +     .10471,    .02706,    .00571,    .00037,    .00001,
     +     .00000,    .00016,    .00014,
     +     .09923,    .02555,    .00519,    .00035,    .00001,
     +     .00000,    .00015,    .00013,
     +     .09449,    .02425,    .00476,    .00033,    .00001,
     +     .00000,    .00014,    .00013,
     +     .08882,    .02272,    .00429,    .00030,    .00001,
     +     .00000,    .00013,    .00012,
     +     .08382,    .02137,    .00390,    .00029,    .00001,
     +     .00000,    .00012,    .00011,
     +     .07943,    .02019,    .00357,    .00027,    .00001,
     +     .00000,    .00011,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07528,    .01907,    .00328,    .00026,    .00001,
     +     .00000,    .00010,    .00010,
     +     .07146,    .01805,    .00302,    .00024,    .00001,
     +     .00000,    .00010,    .00009,
     +     .06806,    .01714,    .00280,    .00022,    .00001,
     +     .00000,    .00009,    .00008,
     +     .06500,    .01633,    .00261,    .00020,    .00001,
     +     .00000,    .00009,    .00007,
     +     .06208,    .01555,    .00244,    .00019,    .00001,
     +     .00000,    .00009,    .00007,
     +     .05932,    .01483,    .00228,    .00018,    .00001,
     +     .00000,    .00008,    .00007,
     +     .05682,    .01418,    .00215,    .00018,    .00001,
     +     .00000,    .00008,    .00007,
     +     .05457,    .01358,    .00203,    .00017,    .00001,
     +     .00000,    .00007,    .00007 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05242,    .01301,    .00191,    .00016,    .00001,
     +     .00000,    .00007,    .00007,
     +     .05038,    .01247,    .00181,    .00015,    .00001,
     +     .00000,    .00007,    .00006,
     +     .04849,    .01199,    .00171,    .00014,    .00001,
     +     .00000,    .00006,    .00006,
     +     .04678,    .01154,    .00163,    .00014,    .00001,
     +     .00000,    .00006,    .00005,
     +     .04511,    .01111,    .00155,    .00013,    .00001,
     +     .00000,    .00006,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .24398,    .06522,    .03540,    .00091,    .00000,
     +     .00000,    .00031,    .00029,
     +     .23124,    .06158,    .03111,    .00086,    .00000,
     +     .00000,    .00029,    .00026,
     +     .21367,    .05658,    .02574,    .00079,    .00000,
     +     .00000,    .00026,    .00022,
     +     .20178,    .05319,    .02246,    .00073,    .00000,
     +     .00000,    .00024,    .00021,
     +     .19004,    .04986,    .01950,    .00066,    .00000,
     +     .00000,    .00023,    .00021,
     +     .18049,    .04719,    .01731,    .00062,    .00000,
     +     .00000,    .00022,    .00019,
     +     .17182,    .04477,    .01548,    .00058,    .00000,
     +     .00000,    .00020,    .00018,
     +     .16312,    .04235,    .01379,    .00054,    .00000,
     +     .00000,    .00018,    .00017 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15591,    .04036,    .01251,    .00052,    .00000,
     +     .00000,    .00018,    .00015,
     +     .14931,    .03854,    .01140,    .00049,    .00000,
     +     .00000,    .00017,    .00014,
     +     .14430,    .03715,    .01061,    .00046,    .00000,
     +     .00000,    .00016,    .00014,
     +     .13420,    .03439,    .00912,    .00043,    .00000,
     +     .00000,    .00015,    .00013,
     +     .12610,    .03219,    .00803,    .00040,    .00000,
     +     .00000,    .00014,    .00013,
     +     .11769,    .02990,    .00699,    .00036,    .00000,
     +     .00000,    .00012,    .00012,
     +     .10959,    .02773,    .00608,    .00033,    .00000,
     +     .00000,    .00011,    .00011,
     +     .10276,    .02590,    .00539,    .00031,    .00000,
     +     .00000,    .00011,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09633,    .02418,    .00479,    .00029,    .00000,
     +     .00000,    .00010,    .00008,
     +     .09135,    .02286,    .00435,    .00027,    .00000,
     +     .00000,    .00009,    .00008,
     +     .08568,    .02136,    .00389,    .00025,    .00000,
     +     .00000,    .00008,    .00007,
     +     .08098,    .02012,    .00354,    .00024,    .00000,
     +     .00000,    .00008,    .00006,
     +     .07693,    .01906,    .00325,    .00023,    .00000,
     +     .00000,    .00007,    .00005,
     +     .07211,    .01780,    .00292,    .00020,    .00000,
     +     .00000,    .00007,    .00006,
     +     .06785,    .01670,    .00265,    .00019,    .00000,
     +     .00000,    .00006,    .00005,
     +     .06412,    .01573,    .00243,    .00019,    .00000,
     +     .00000,    .00005,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06063,    .01483,    .00223,    .00017,    .00000,
     +     .00000,    .00005,    .00005,
     +     .05742,    .01400,    .00206,    .00016,    .00000,
     +     .00000,    .00005,    .00005,
     +     .05455,    .01326,    .00191,    .00014,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05197,    .01261,    .00178,    .00014,    .00000,
     +     .00000,    .00004,    .00004,
     +     .04951,    .01198,    .00166,    .00014,    .00000,
     +     .00000,    .00004,    .00004,
     +     .04723,    .01140,    .00155,    .00012,    .00000,
     +     .00000,    .00004,    .00004,
     +     .04518,    .01088,    .00146,    .00011,    .00000,
     +     .00000,    .00004,    .00003,
     +     .04331,    .01040,    .00138,    .00010,    .00000,
     +     .00000,    .00004,    .00003 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04150,    .00995,    .00130,    .00010,    .00000,
     +     .00000,    .00004,    .00003,
     +     .03980,    .00952,    .00123,    .00010,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03826,    .00913,    .00116,    .00009,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03686,    .00878,    .00111,    .00009,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03548,    .00844,    .00105,    .00008,    .00000,
     +     .00000,    .00003,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .20716,    .05318,    .02417,    .00051,    .00000,
     +     .00000,    .00022,    .00020,
     +     .19575,    .05006,    .02115,    .00049,    .00000,
     +     .00000,    .00021,    .00018,
     +     .18010,    .04581,    .01741,    .00046,    .00000,
     +     .00000,    .00019,    .00015,
     +     .16955,    .04294,    .01514,    .00042,    .00000,
     +     .00000,    .00018,    .00014,
     +     .15918,    .04013,    .01310,    .00038,    .00000,
     +     .00000,    .00017,    .00014,
     +     .15078,    .03787,    .01160,    .00033,    .00000,
     +     .00000,    .00015,    .00013,
     +     .14314,    .03583,    .01036,    .00032,    .00000,
     +     .00000,    .00014,    .00012,
     +     .13549,    .03381,    .00921,    .00031,    .00000,
     +     .00000,    .00013,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .12921,    .03215,    .00834,    .00029,    .00000,
     +     .00000,    .00012,    .00010,
     +     .12345,    .03063,    .00760,    .00027,    .00000,
     +     .00000,    .00011,    .00010,
     +     .11908,    .02948,    .00706,    .00026,    .00000,
     +     .00000,    .00011,    .00009,
     +     .11034,    .02719,    .00607,    .00024,    .00000,
     +     .00000,    .00010,    .00008,
     +     .10336,    .02537,    .00534,    .00022,    .00000,
     +     .00000,    .00009,    .00008,
     +     .09614,    .02348,    .00465,    .00019,    .00000,
     +     .00000,    .00008,    .00007,
     +     .08919,    .02170,    .00404,    .00017,    .00000,
     +     .00000,    .00008,    .00007,
     +     .08333,    .02020,    .00358,    .00017,    .00000,
     +     .00000,    .00007,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07788,    .01880,    .00318,    .00016,    .00000,
     +     .00000,    .00007,    .00005,
     +     .07366,    .01773,    .00290,    .00014,    .00000,
     +     .00000,    .00006,    .00005,
     +     .06886,    .01651,    .00259,    .00014,    .00000,
     +     .00000,    .00005,    .00005,
     +     .06490,    .01551,    .00235,    .00013,    .00000,
     +     .00000,    .00005,    .00004,
     +     .06150,    .01466,    .00216,    .00012,    .00000,
     +     .00000,    .00005,    .00004,
     +     .05744,    .01365,    .00195,    .00012,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05390,    .01276,    .00177,    .00011,    .00000,
     +     .00000,    .00004,    .00003,
     +     .05081,    .01199,    .00162,    .00011,    .00000,
     +     .00000,    .00004,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04792,    .01127,    .00148,    .00009,    .00000,
     +     .00000,    .00004,    .00003,
     +     .04526,    .01062,    .00137,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04289,    .01003,    .00127,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04077,    .00951,    .00118,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03877,    .00902,    .00110,    .00006,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03689,    .00856,    .00103,    .00006,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03520,    .00815,    .00097,    .00006,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03368,    .00778,    .00091,    .00006,    .00000,
     +     .00000,    .00003,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03221,    .00743,    .00086,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03083,    .00710,    .00081,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .02957,    .00679,    .00077,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02843,    .00652,    .00073,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02733,    .00625,    .00069,    .00004,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .14244,    .03374,    .01019,    .00021,    .00000,
     +     .00000,    .00006,    .00005,
     +     .13379,    .03157,    .00886,    .00019,    .00000,
     +     .00000,    .00006,    .00005,
     +     .12197,    .02862,    .00725,    .00018,    .00000,
     +     .00000,    .00005,    .00004,
     +     .11407,    .02666,    .00628,    .00015,    .00000,
     +     .00000,    .00005,    .00004,
     +     .10637,    .02475,    .00542,    .00012,    .00000,
     +     .00000,    .00005,    .00004,
     +     .10015,    .02322,    .00480,    .00012,    .00000,
     +     .00000,    .00004,    .00003,
     +     .09456,    .02185,    .00428,    .00011,    .00000,
     +     .00000,    .00004,    .00004,
     +     .08902,    .02050,    .00381,    .00010,    .00000,
     +     .00000,    .00004,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08447,    .01939,    .00345,    .00009,    .00000,
     +     .00000,    .00003,    .00003,
     +     .08032,    .01839,    .00314,    .00009,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07718,    .01764,    .00293,    .00009,    .00000,
     +     .00000,    .00003,    .00002,
     +     .07094,    .01614,    .00252,    .00009,    .00000,
     +     .00000,    .00003,    .00002,
     +     .06600,    .01496,    .00222,    .00008,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06093,    .01375,    .00194,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .05611,    .01260,    .00169,    .00006,    .00000,
     +     .00000,    .00003,    .00002,
     +     .05207,    .01165,    .00150,    .00005,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04833,    .01078,    .00134,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04546,    .01011,    .00122,    .00004,    .00000,
     +     .00000,    .00002,    .00001,
     +     .04222,    .00935,    .00109,    .00004,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03956,    .00873,    .00099,    .00004,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03729,    .00821,    .00091,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03461,    .00759,    .00082,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03228,    .00706,    .00075,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03025,    .00659,    .00068,    .00003,    .00000,
     +     .00000,    .00002,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02835,    .00617,    .00063,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02663,    .00577,    .00058,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02511,    .00543,    .00054,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02376,    .00512,    .00050,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02248,    .00484,    .00046,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02130,    .00457,    .00043,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02023,    .00433,    .00041,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01927,    .00412,    .00038,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01836,    .00392,    .00036,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01750,    .00373,    .00034,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01672,    .00355,    .00032,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01602,    .00340,    .00030,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01534,    .00325,    .00029,    .00001,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .09042,    .01961,    .00362,    .00007,    .00000,
     +     .00000,    .00001,    .00002,
     +     .08436,    .01823,    .00316,    .00006,    .00000,
     +     .00000,    .00002,    .00001,
     +     .07615,    .01637,    .00259,    .00006,    .00000,
     +     .00000,    .00001,    .00000,
     +     .07071,    .01514,    .00226,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06545,    .01396,    .00196,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06124,    .01302,    .00174,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05748,    .01218,    .00156,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05378,    .01135,    .00140,    .00002,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05074,    .01068,    .00127,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04800,    .01008,    .00117,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04595,    .00963,    .00109,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04188,    .00874,    .00095,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03868,    .00804,    .00084,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03542,    .00733,    .00074,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03232,    .00667,    .00064,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02980,    .00612,    .00058,    .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=17,24)/
     +     .02745,    .00562,    .00051,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02566,    .00524,    .00047,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02366,    .00481,    .00042,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02203,    .00447,    .00038,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02065,    .00417,    .00035,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01902,    .00383,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01762,    .00354,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01642,    .00329,    .00026,    .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)/
     +     .01530,    .00305,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01428,    .00284,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01339,    .00266,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01260,    .00250,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01186,    .00235,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01118,    .00221,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01057,    .00208,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01002,    .00197,    .00015,    .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)/
     +     .00950,    .00186,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00902,    .00177,    .00013,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00858,    .00168,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00819,    .00160,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00781,    .00152,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05167,    .01016,    .00104,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04784,    .00938,    .00092,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04273,    .00833,    .00077,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03936,    .00764,    .00068,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03612,    .00699,    .00060,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03356,    .00647,    .00055,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03129,    .00602,    .00050,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02906,    .00557,    .00045,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02726,    .00521,    .00041,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02564,    .00489,    .00038,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02442,    .00465,    .00036,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02205,    .00418,    .00031,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02020,    .00381,    .00028,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01833,    .00345,    .00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01658,    .00310,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01516,    .00283,    .00020,    .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=17,24)/
     +     .01385,    .00257,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01286,    .00238,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01175,    .00217,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01087,    .00200,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01012,    .00186,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00925,    .00169,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00850,    .00155,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00787,    .00143,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00728,    .00132,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00675,    .00122,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00629,    .00114,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00589,    .00106,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00551,    .00099,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00516,    .00093,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00485,    .00087,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00458,    .00082,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00432,    .00077,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00408,    .00073,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00386,    .00069,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00367,    .00065,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00348,    .00062,    .00004,    .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)/
     +     .02533,    .00444,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02325,    .00406,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02050,    .00356,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01871,    .00324,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01701,    .00294,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01567,    .00270,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01450,    .00249,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01335,    .00229,    .00012,    .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)/
     +     .01244,    .00212,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01162,    .00198,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01102,    .00187,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00984,    .00166,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00892,    .00150,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00801,    .00135,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00717,    .00120,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00649,    .00108,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00587,    .00098,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00541,    .00090,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00490,    .00081,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00449,    .00074,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00415,    .00068,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00376,    .00062,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00342,    .00056,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00314,    .00051,    .00002,    .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)/
     +     .00288,    .00047,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00265,    .00043,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00245,    .00040,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00228,    .00037,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00032,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00184,    .00030,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00173,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00162,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00152,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00143,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00135,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00128,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00252,    .00032,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00225,    .00029,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00191,    .00024,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00021,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00150,    .00019,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00135,    .00017,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00122,    .00015,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00110,    .00014,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00101,    .00013,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00092,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00086,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00074,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00066,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00057,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00049,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00044,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00038,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00034,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00030,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00027,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00025,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00022,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00015,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      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='ft24a.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