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

sfmrs_99d6.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d6(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)/
     +     .00615,    .00233,   1.18742,    .88462,    .00000,
     +     .00000,    .47582,    .89645,
     +     .00628,    .00238,   2.47429,    .92749,    .00000,
     +     .00000,    .52328,    .93941,
     +     .00647,    .00246,   4.95666,   1.01511,    .02005,
     +     .00000,    .61748,   1.02715,
     +     .00662,    .00252,   7.32631,   1.09612,    .07247,
     +     .00000,    .70313,   1.10824,
     +     .00677,    .00259,  10.22125,   1.19748,    .19449,
     +     .00000,    .80920,   1.20968,
     +     .00690,    .00264,  13.20272,   1.30080,    .30244,
     +     .00000,    .91650,   1.31304,
     +     .00703,    .00270,  16.55077,   1.41189,    .42313,
     +     .00000,   1.03131,   1.42417,
     +     .00717,    .00276,  20.66549,   1.54356,    .56858,
     +     .00000,   1.16688,   1.55589 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00729,    .00281,  24.70079,   1.67129,    .70549,
     +     .00000,   1.29791,   1.68364,
     +     .00741,    .00286,  29.00712,   1.80656,    .84829,
     +     .00000,   1.43633,   1.81894,
     +     .00750,    .00291,  32.80552,   1.92159,    .97421,
     +     .00000,   1.55382,   1.93399,
     +     .00770,    .00299,  42.08153,   2.19450,   1.26372,
     +     .00000,   1.83184,   2.20692,
     +     .00789,    .00307,  49.73287,   2.45719,   1.53956,
     +     .39823,   2.09880,   2.46962,
     +     .00810,    .00317,  60.16879,   2.78535,   1.88473,
     +     .79034,   2.43166,   2.79780,
     +     .00831,    .00327,  72.43321,   3.16542,   2.28355,
     +    1.20753,   2.81648,   3.17787,
     +     .00851,    .00336,  84.82822,   3.54620,   2.68211,
     +    1.62384,   3.20146,   3.55865 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00872,    .00346,  98.62429,   3.96741,   3.12262,
     +    2.08271,   3.62682,   3.97984,
     +     .00889,    .00353, 111.08139,   4.34639,   3.51845,
     +    2.49396,   4.00916,   4.35880,
     +     .00910,    .00363, 127.29635,   4.84187,   4.03179,
     +    3.01994,   4.50866,   4.85426,
     +     .00929,    .00373, 142.80643,   5.31537,   4.52271,
     +    3.52529,   4.98561,   5.32773,
     +     .00947,    .00381, 158.09883,   5.78081,   5.00706,
     +    4.02766,   5.45418,   5.79315,
     +     .00969,    .00392, 178.56485,   6.41092,   5.65626,
     +    4.69032,   6.08816,   6.42322,
     +     .00991,    .00402, 199.19622,   7.04821,   6.31310,
     +    5.36273,   6.72901,   7.06047,
     +     .01011,    .00412, 219.83726,   7.68726,   6.97277,
     +    6.04051,   7.37135,   7.69949 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01032,    .00422, 241.47677,   8.36415,   7.66812,
     +    6.75033,   8.05144,   8.37634,
     +     .01052,    .00432, 263.77361,   9.06612,   8.38876,
     +    7.48620,   8.75649,   9.07825,
     +     .01072,    .00442, 286.06969,   9.77036,   9.11289,
     +    8.22799,   9.46360,   9.78246,
     +     .01090,    .00450, 307.67033,  10.46237,   9.82033,
     +    8.94716,  10.15826,  10.47443,
     +     .01109,    .00460, 330.59948,  11.19700,  10.57426,
     +    9.71858,  10.89552,  11.20901,
     +     .01128,    .00469, 353.61950,  11.94591,  11.33847,
     +   10.49468,  11.64697,  11.95787,
     +     .01146,    .00479, 376.66172,  12.69565,  12.10632,
     +   11.27912,  12.39907,  12.70757,
     +     .01164,    .00487, 398.75664,  13.42569,  12.85016,
     +   12.03386,  13.13134,  13.43756 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01181,    .00496, 422.11970,  14.19769,  13.63930,
     +   12.83869,  13.90553,  14.20952,
     +     .01199,    .00504, 445.46095,  14.98009,  14.43586,
     +   13.64698,  14.69010,  14.99188,
     +     .01216,    .00513, 468.59368,  15.75776,  15.22885,
     +   14.45376,  15.46978,  15.76950,
     +     .01232,    .00521, 490.99994,  16.51767,  16.00279,
     +   15.24023,  16.23158,  16.52937,
     +     .01248,    .00530, 514.11537,  17.30851,  16.80721,
     +   16.05655,  17.02431,  17.32017 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00839,    .00329,   1.09428,    .75578,    .00000,
     +     .00000,    .40646,    .76275,
     +     .00857,    .00336,   2.25358,    .79487,    .00000,
     +     .00000,    .44914,    .80189,
     +     .00883,    .00347,   4.44000,    .87168,    .01829,
     +     .00000,    .53110,    .87876,
     +     .00904,    .00357,   6.48696,    .94108,    .06267,
     +     .00000,    .60412,    .94821,
     +     .00925,    .00366,   8.94612,   1.02657,    .16558,
     +     .00000,    .69328,   1.03372,
     +     .00944,    .00374,  11.44145,   1.11252,    .25534,
     +     .00000,    .78233,   1.11971,
     +     .00961,    .00382,  14.20983,   1.20415,    .35477,
     +     .00000,    .87688,   1.21135,
     +     .00981,    .00390,  17.57209,   1.31189,    .47356,
     +     .00000,    .98763,   1.31912 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00997,    .00398,  20.83230,   1.41554,    .58438,
     +     .00000,   1.09387,   1.42279,
     +     .01013,    .00406,  24.27687,   1.52454,    .69911,
     +     .00000,   1.20531,   1.53181,
     +     .01027,    .00412,  27.29194,   1.61681,    .79976,
     +     .00000,   1.29948,   1.62408,
     +     .01054,    .00424,  34.57703,   1.83390,   1.02913,
     +     .00000,   1.52053,   1.84118,
     +     .01079,    .00436,  40.47554,   2.04096,   1.24559,
     +     .31308,   1.73090,   2.04824,
     +     .01107,    .00449,  48.44468,   2.29741,   1.51403,
     +     .61829,   1.99100,   2.30471,
     +     .01137,    .00464,  57.69007,   2.59173,   1.82131,
     +     .93937,   2.28899,   2.59903,
     +     .01164,    .00477,  66.92143,   2.88407,   2.12569,
     +    1.25688,   2.58459,   2.89137 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01192,    .00491,  77.08252,   3.20488,   2.45942,
     +    1.60392,   2.90861,   3.21218,
     +     .01216,    .00502,  86.16717,   3.49146,   2.75712,
     +    1.91263,   3.19780,   3.49875,
     +     .01245,    .00516,  97.87404,   3.86337,   3.14029,
     +    2.30433,   3.57279,   3.87063,
     +     .01270,    .00529, 108.96494,   4.21623,   3.50416,
     +    2.67803,   3.92834,   4.22349,
     +     .01294,    .00540, 119.81133,   4.56098,   3.86102,
     +    3.04737,   4.27549,   4.56823,
     +     .01325,    .00556, 134.18729,   5.02429,   4.33576,
     +    3.53068,   4.74180,   5.03153,
     +     .01354,    .00570, 148.54371,   5.48951,   4.81274,
     +    4.01770,   5.20978,   5.49673,
     +     .01381,    .00584, 162.78591,   5.95299,   5.28875,
     +    4.50557,   5.67580,   5.96019 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01410,    .00597, 177.58876,   6.44065,   5.78715,
     +    5.01298,   6.16594,   6.44783,
     +     .01437,    .00611, 192.71997,   6.94324,   6.30054,
     +    5.53583,   6.67091,   6.95041,
     +     .01464,    .00625, 207.74295,   7.44461,   6.81363,
     +    6.06011,   7.17449,   7.45175,
     +     .01489,    .00637, 222.18463,   7.93434,   7.31183,
     +    6.56516,   7.66627,   7.94145,
     +     .01514,    .00650, 237.42505,   8.45173,   7.84043,
     +    7.10468,   8.18569,   8.45883,
     +     .01539,    .00663, 252.61184,   8.97617,   8.37306,
     +    7.64409,   8.71209,   8.98324,
     +     .01564,    .00676, 267.73299,   9.49886,   8.90609,
     +    8.18730,   9.23662,   9.50591,
     +     .01587,    .00688, 282.13318,  10.00515,   9.41964,
     +    8.70693,   9.74463,  10.01219 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01611,    .00700, 297.28948,  10.53845,   9.96253,
     +    9.25925,  10.27964,  10.54547,
     +     .01634,    .00711, 312.33387,  11.07624,  10.50769,
     +    9.81096,  10.81909,  11.08323,
     +     .01657,    .00724, 327.17494,  11.60870,  11.04846,
     +   10.35976,  11.35312,  11.61567,
     +     .01679,    .00735, 341.47441,  12.12684,  11.57406,
     +   10.89252,  11.87273,  12.13379,
     +     .01700,    .00746, 356.15206,  12.66390,  12.11817,
     +   11.44326,  12.41126,  12.67084 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01146,    .00462,   1.00739,    .64594,    .00000,
     +     .00000,    .34777,    .64954,
     +     .01170,    .00473,   2.05174,    .68135,    .00000,
     +     .00000,    .38598,    .68496,
     +     .01207,    .00490,   3.97629,    .74849,    .01687,
     +     .00000,    .45715,    .75213,
     +     .01234,    .00503,   5.74311,    .80783,    .05435,
     +     .00000,    .51930,    .81147,
     +     .01263,    .00516,   7.82947,    .87976,    .14101,
     +     .00000,    .59409,    .88342,
     +     .01288,    .00529,   9.91450,    .95112,    .21553,
     +     .00000,    .66784,    .95477,
     +     .01313,    .00541,  12.19916,   1.02649,    .29731,
     +     .00000,    .74549,   1.03017,
     +     .01339,    .00553,  14.94053,   1.11440,    .39416,
     +     .00000,    .83575,   1.11809 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01361,    .00564,  17.56795,   1.19828,    .48371,
     +     .00000,    .92160,   1.20197,
     +     .01384,    .00575,  20.31566,   1.28582,    .57571,
     +     .00000,   1.01104,   1.28951,
     +     .01402,    .00583,  22.70203,   1.35959,    .65601,
     +     .00000,   1.08628,   1.36328,
     +     .01440,    .00602,  28.40620,   1.53164,    .83736,
     +     .00000,   1.26140,   1.53534,
     +     .01474,    .00619,  32.93535,   1.69423,   1.00685,
     +     .24551,   1.42654,   1.69793,
     +     .01513,    .00638,  38.99622,   1.89385,   1.21517,
     +     .48285,   1.62896,   1.89756,
     +     .01554,    .00657,  45.93543,   2.12082,   1.45135,
     +     .72968,   1.85877,   2.12453,
     +     .01591,    .00676,  52.77853,   2.34430,   1.68323,
     +     .97155,   2.08475,   2.34801 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01630,    .00696,  60.22545,   2.58756,   1.93537,
     +    1.23367,   2.33046,   2.59126,
     +     .01661,    .00712,  66.81641,   2.80326,   2.15865,
     +    1.46508,   2.54818,   2.80696,
     +     .01701,    .00732,  75.22218,   3.08108,   2.44381,
     +    1.75633,   2.82837,   3.08478,
     +     .01735,    .00749,  83.10771,   3.34277,   2.71266,
     +    2.03220,   3.09211,   3.34646,
     +     .01768,    .00766,  90.75533,   3.59685,   2.97475,
     +    2.30325,   3.34804,   3.60055,
     +     .01810,    .00787, 100.79035,   3.93578,   3.32075,
     +    2.65504,   3.68926,   3.93946,
     +     .01849,    .00807, 110.71546,   4.27362,   3.66587,
     +    3.00702,   4.02921,   4.27730,
     +     .01887,    .00826, 120.47677,   4.60796,   4.00808,
     +    3.35737,   4.36549,   4.61164 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01925,    .00845, 130.53182,   4.95738,   4.36394,
     +    3.71918,   4.71680,   4.96105,
     +     .01961,    .00865, 140.72599,   5.31520,   4.72821,
     +    4.08968,   5.07645,   5.31888,
     +     .01998,    .00883, 150.77346,   5.67012,   5.09028,
     +    4.45922,   5.43306,   5.67379,
     +     .02031,    .00901, 160.35383,   6.01467,   5.43961,
     +    4.81281,   5.77918,   6.01833,
     +     .02066,    .00919, 170.40427,   6.37693,   5.80861,
     +    5.18899,   6.14300,   6.38058,
     +     .02099,    .00937, 180.34084,   6.74195,   6.17814,
     +    5.56266,   6.50952,   6.74560,
     +     .02132,    .00954, 190.18158,   7.10414,   6.54644,
     +    5.93755,   6.87313,   7.10779,
     +     .02164,    .00971, 199.48521,   7.45308,   6.89928,
     +    6.29402,   7.22336,   7.45672 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02195,    .00987, 209.23219,   7.81917,   7.27094,
     +    6.67168,   7.59077,   7.82280,
     +     .02227,    .01004, 218.84058,   8.18645,   7.64217,
     +    7.04681,   7.95932,   8.19008,
     +     .02257,    .01020, 228.27479,   8.54867,   8.00904,
     +    7.41867,   8.32275,   8.55231,
     +     .02285,    .01035, 237.31477,   8.89964,   8.36411,
     +    7.77810,   8.67484,   8.90327,
     +     .02315,    .01051, 246.54461,   9.26192,   8.73018,
     +    8.14812,   9.03825,   9.26555 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01372,    .00565,    .95917,    .58947,    .00000,
     +     .00000,    .31781,    .59168,
     +     .01401,    .00578,   1.94176,    .62277,    .00000,
     +     .00000,    .35355,    .62499,
     +     .01447,    .00600,   3.72741,    .68472,    .01621,
     +     .00000,    .41897,    .68694,
     +     .01480,    .00615,   5.34794,    .73876,    .05010,
     +     .00000,    .47546,    .74099,
     +     .01515,    .00632,   7.24194,    .80369,    .12840,
     +     .00000,    .54285,    .80592,
     +     .01545,    .00647,   9.11749,    .86758,    .19515,
     +     .00000,    .60882,    .86981,
     +     .01574,    .00662,  11.15742,    .93472,    .26801,
     +     .00000,    .67792,    .93695,
     +     .01606,    .00677,  13.58747,   1.01263,    .35386,
     +     .00000,    .75784,   1.01486 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01634,    .00691,  15.90030,   1.08659,    .43280,
     +     .00000,    .83352,   1.08882,
     +     .01661,    .00704,  18.30420,   1.16346,    .51356,
     +     .00000,    .91201,   1.16569,
     +     .01681,    .00714,  20.38234,   1.22804,    .58384,
     +     .00000,    .97786,   1.23027,
     +     .01728,    .00738,  25.31789,   1.37791,    .74172,
     +     .00000,   1.13036,   1.38015,
     +     .01769,    .00758,  29.19080,   1.51876,    .88842,
     +     .21255,   1.27341,   1.52100,
     +     .01816,    .00782,  34.34392,   1.69078,   1.06777,
     +     .41728,   1.44783,   1.69302,
     +     .01864,    .00806,  40.19728,   1.88529,   1.26998,
     +     .62876,   1.64477,   1.88754,
     +     .01910,    .00829,  45.92671,   2.07580,   1.46744,
     +     .83486,   1.83744,   2.07805 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01955,    .00853,  52.11926,   2.28219,   1.68111,
     +    1.05709,   2.04593,   2.28444,
     +     .01993,    .00873,  57.56677,   2.46440,   1.86950,
     +    1.25242,   2.22986,   2.46666,
     +     .02040,    .00897,  64.47101,   2.69802,   2.10898,
     +    1.49706,   2.46551,   2.70028,
     +     .02083,    .00919,  70.90985,   2.91714,   2.33380,
     +    1.72780,   2.68638,   2.91939,
     +     .02122,    .00938,  77.12338,   3.12910,   2.55220,
     +    1.95371,   2.89993,   3.13136,
     +     .02171,    .00965,  85.22731,   3.41058,   2.83918,
     +    2.24549,   3.18336,   3.41284,
     +     .02218,    .00989,  93.19602,   3.68994,   3.12421,
     +    2.53618,   3.46452,   3.69221,
     +     .02263,    .01013, 100.99269,   3.96533,   3.40574,
     +    2.82444,   3.74157,   3.96759 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02308,    .01036, 108.98062,   4.25195,   3.69731,
     +    3.12086,   4.02982,   4.25422,
     +     .02352,    .01060, 117.03895,   4.54439,   3.99466,
     +    3.42327,   4.32380,   4.54666,
     +     .02395,    .01082, 124.94666,   4.83345,   4.28924,
     +    3.72393,   4.61432,   4.83573,
     +     .02435,    .01103, 132.44915,   5.11303,   4.57236,
     +    4.01046,   4.89524,   5.11531,
     +     .02476,    .01125, 140.29232,   5.40616,   4.87065,
     +    4.31456,   5.18970,   5.40845,
     +     .02517,    .01147, 148.00898,   5.70048,   5.16826,
     +    4.61542,   5.48529,   5.70276,
     +     .02555,    .01167, 155.62731,   5.99175,   5.46417,
     +    4.91662,   5.77777,   5.99403,
     +     .02592,    .01187, 162.79721,   6.27143,   5.74667,
     +    5.20197,   6.05856,   6.27372 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02630,    .01206, 170.28842,   6.56418,   6.04363,
     +    5.50370,   6.35245,   6.56648,
     +     .02667,    .01227, 177.64180,   6.85698,   6.33927,
     +    5.80239,   6.64632,   6.85927,
     +     .02703,    .01246, 184.84161,   7.14507,   6.63082,
     +    6.09786,   6.93544,   7.14737,
     +     .02737,    .01265, 191.71724,   7.42350,   6.91225,
     +    6.38271,   7.21483,   7.42580,
     +     .02772,    .01282, 198.71449,   7.71019,   7.20168,
     +    6.67521,   7.50249,   7.71250 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01561,    .00651,    .92617,    .55256,    .00000,
     +     .00000,    .29833,    .55402,
     +     .01594,    .00667,   1.86725,    .58440,    .00000,
     +     .00000,    .33237,    .58584,
     +     .01644,    .00691,   3.56030,    .64282,    .01581,
     +     .00000,    .39395,    .64427,
     +     .01682,    .00710,   5.08422,    .69335,    .04732,
     +     .00000,    .44669,    .69481,
     +     .01722,    .00731,   6.85211,    .75367,    .12014,
     +     .00000,    .50925,    .75513,
     +     .01757,    .00748,   8.59119,    .81269,    .18183,
     +     .00000,    .57014,    .81415,
     +     .01791,    .00763,  10.47265,    .87448,    .24891,
     +     .00000,    .63368,    .87595,
     +     .01827,    .00782,  12.70219,    .94593,    .32768,
     +     .00000,    .70695,    .94739 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01859,    .00799,  14.81352,   1.01351,    .39982,
     +     .00000,    .77608,   1.01497,
     +     .01889,    .00813,  16.99830,   1.08352,    .47339,
     +     .00000,    .84755,   1.08497,
     +     .01914,    .00826,  18.88067,   1.14222,    .53728,
     +     .00000,    .90740,   1.14368,
     +     .01966,    .00853,  23.33080,   1.27796,    .68027,
     +     .00000,   1.04550,   1.27942,
     +     .02013,    .00876,  26.79309,   1.40502,    .81259,
     +     .19166,   1.17454,   1.40650,
     +     .02066,    .00903,  31.38079,   1.55963,    .97374,
     +     .37591,   1.33129,   1.56110,
     +     .02122,    .00932,  36.56211,   1.73375,   1.15470,
     +     .56532,   1.50760,   1.73522,
     +     .02172,    .00958,  41.60649,   1.90367,   1.33074,
     +     .74921,   1.67945,   1.90515 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02225,    .00986,  47.03173,   2.08708,   1.52057,
     +     .94677,   1.86475,   2.08858,
     +     .02269,    .01008,  51.78334,   2.24852,   1.68741,
     +    1.11986,   2.02773,   2.25001,
     +     .02322,    .01037,  57.77837,   2.45483,   1.89881,
     +    1.33591,   2.23586,   2.45633,
     +     .02369,    .01062,  63.34546,   2.64774,   2.09665,
     +    1.53906,   2.43034,   2.64924,
     +     .02414,    .01084,  68.69852,   2.83386,   2.28834,
     +    1.73745,   2.61787,   2.83537,
     +     .02470,    .01114,  75.64932,   3.08023,   2.53938,
     +    1.99278,   2.86600,   3.08174,
     +     .02524,    .01142,  82.45552,   3.32397,   2.78797,
     +    2.24639,   3.11136,   3.32548,
     +     .02574,    .01170,  89.08976,   3.56358,   3.03282,
     +    2.49719,   3.35246,   3.56511 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02626,    .01197,  95.85997,   3.81224,   3.28565,
     +    2.75430,   3.60256,   3.81378,
     +     .02675,    .01223, 102.66538,   4.06524,   3.54280,
     +    3.01591,   3.85696,   4.06680,
     +     .02723,    .01249, 109.32247,   4.31473,   3.79696,
     +    3.27540,   4.10774,   4.31629,
     +     .02770,    .01273, 115.61537,   4.55539,   4.04055,
     +    3.52197,   4.34960,   4.55696,
     +     .02815,    .01298, 122.17743,   4.80719,   4.29671,
     +    3.78320,   4.60259,   4.80877,
     +     .02862,    .01322, 128.61071,   5.05936,   4.55159,
     +    4.04092,   4.85591,   5.06095,
     +     .02905,    .01346, 134.94752,   5.30846,   4.80459,
     +    4.29852,   5.10609,   5.31005,
     +     .02947,    .01369, 140.89171,   5.54708,   5.04551,
     +    4.54190,   5.34571,   5.54868 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02989,    .01391, 147.09011,   5.79644,   5.29839,
     +    4.79893,   5.59607,   5.79805,
     +     .03031,    .01415, 153.15515,   6.04528,   5.54955,
     +    5.05271,   5.84588,   6.04690,
     +     .03071,    .01436, 159.08155,   6.28970,   5.79685,
     +    5.30340,   6.09122,   6.29134,
     +     .03110,    .01457, 164.72715,   6.52550,   6.03512,
     +    5.54462,   6.32788,   6.52715,
     +     .03149,    .01478, 170.45891,   6.76787,   6.27972,
     +    5.79186,   6.57110,   6.76952 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01724,    .00728,    .90154,    .52561,    .00000,
     +     .00000,    .28416,    .52656,
     +     .01762,    .00746,   1.81172,    .55630,    .00000,
     +     .00000,    .31690,    .55727,
     +     .01818,    .00774,   3.43608,    .61211,    .01554,
     +     .00000,    .37562,    .61307,
     +     .01859,    .00795,   4.88895,    .66005,    .04530,
     +     .00000,    .42560,    .66101,
     +     .01904,    .00816,   6.56465,    .71700,    .11409,
     +     .00000,    .48461,    .71796,
     +     .01942,    .00836,   8.20446,    .77246,    .17210,
     +     .00000,    .54181,    .77342,
     +     .01980,    .00855,   9.97103,    .83037,    .23500,
     +     .00000,    .60134,    .83132,
     +     .02019,    .00875,  12.05588,    .89712,    .30862,
     +     .00000,    .66978,    .89809 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02054,    .00893,  14.02237,    .96009,    .37587,
     +     .00000,    .73418,    .96106,
     +     .02088,    .00910,  16.05012,   1.02517,    .44428,
     +     .00000,    .80061,   1.02615,
     +     .02116,    .00924,  17.79266,   1.07966,    .50359,
     +     .00000,    .85614,   1.08063,
     +     .02174,    .00953,  21.89743,   1.20528,    .63594,
     +     .00000,    .98395,   1.20626,
     +     .02225,    .00980,  25.06995,   1.32250,    .75803,
     +     .17674,   1.10300,   1.32348,
     +     .02284,    .01010,  29.25987,   1.46472,    .90627,
     +     .34648,   1.24720,   1.46570,
     +     .02346,    .01043,  33.97059,   1.62439,   1.07221,
     +     .52031,   1.40888,   1.62539,
     +     .02402,    .01073,  38.53734,   1.77975,   1.23316,
     +     .68856,   1.56602,   1.78075 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02459,    .01103,  43.42977,   1.94701,   1.40625,
     +     .86884,   1.73502,   1.94802,
     +     .02507,    .01128,  47.69993,   2.09385,   1.55801,
     +    1.02637,   1.88329,   2.09488,
     +     .02566,    .01160,  53.06824,   2.28104,   1.74978,
     +    1.22248,   2.07215,   2.28208,
     +     .02620,    .01187,  58.03660,   2.45564,   1.92884,
     +    1.40644,   2.24821,   2.45669,
     +     .02668,    .01213,  62.80043,   2.62376,   2.10198,
     +    1.58574,   2.41764,   2.62482,
     +     .02730,    .01247,  68.96450,   2.84573,   2.32813,
     +    1.81586,   2.64122,   2.84680,
     +     .02789,    .01277,  74.98033,   3.06481,   2.55151,
     +    2.04388,   2.86178,   3.06589,
     +     .02845,    .01307,  80.82685,   3.27969,   2.77108,
     +    2.26889,   3.07803,   3.28078 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02901,    .01337,  86.77455,   3.50218,   2.99727,
     +    2.49901,   3.30185,   3.50328,
     +     .02957,    .01368,  92.73605,   3.72807,   3.22684,
     +    2.73266,   3.52904,   3.72920,
     +     .03009,    .01396,  98.55317,   3.95041,   3.45332,
     +    2.96400,   3.75256,   3.95155,
     +     .03059,    .01423, 104.03600,   4.16441,   3.66991,
     +    3.18331,   3.96767,   4.16557,
     +     .03110,    .01451, 109.74205,   4.38799,   3.89733,
     +    3.41535,   4.19234,   4.38915,
     +     .03160,    .01477, 115.32008,   4.61141,   4.12314,
     +    3.64374,   4.41683,   4.61259,
     +     .03209,    .01504, 120.80491,   4.83181,   4.34698,
     +    3.87176,   4.63822,   4.83301,
     +     .03255,    .01528, 125.93602,   5.04254,   4.55971,
     +    4.08673,   4.84987,   5.04375 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03302,    .01554, 131.27851,   5.26248,   4.78275,
     +    4.31352,   5.07072,   5.26370,
     +     .03347,    .01579, 136.49279,   5.48154,   5.00384,
     +    4.53700,   5.29069,   5.48278,
     +     .03392,    .01603, 141.57976,   5.69647,   5.22128,
     +    4.75750,   5.50645,   5.69771,
     +     .03434,    .01627, 146.41624,   5.90349,   5.43047,
     +    4.96936,   5.71427,   5.90475,
     +     .03477,    .01650, 151.31690,   6.11597,   5.64490,
     +    5.18617,   5.92754,   6.11726 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02356,    .01032,    .82882,    .45070,    .00000,
     +     .00000,    .24520,    .45086,
     +     .02406,    .01058,   1.65005,    .47793,    .00000,
     +     .00000,    .27405,    .47809,
     +     .02483,    .01098,   3.07787,    .52601,    .01493,
     +     .00000,    .32446,    .52618,
     +     .02541,    .01127,   4.32961,    .56651,    .03968,
     +     .00000,    .36658,    .56668,
     +     .02601,    .01159,   5.74643,    .61388,    .09716,
     +     .00000,    .41560,    .61408,
     +     .02654,    .01186,   7.10986,    .65941,    .14488,
     +     .00000,    .46249,    .65961,
     +     .02704,    .01212,   8.55896,    .70650,    .19617,
     +     .00000,    .51087,    .70671,
     +     .02760,    .01242,  10.24672,    .76033,    .25568,
     +     .00000,    .56603,    .76055 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02807,    .01267,  11.81851,    .81065,    .30955,
     +     .00000,    .61749,    .81088,
     +     .02854,    .01291,  13.42120,    .86226,    .36392,
     +     .00000,    .67015,    .86249,
     +     .02890,    .01312,  14.78696,    .90525,    .41082,
     +     .00000,    .71398,    .90549,
     +     .02970,    .01353,  17.96734,   1.00351,    .51453,
     +     .00000,    .81396,   1.00377,
     +     .03041,    .01391,  20.37314,   1.09431,    .60927,
     +     .13645,    .90618,   1.09459,
     +     .03120,    .01434,  23.51636,   1.20345,    .72322,
     +     .26766,   1.01689,   1.20375,
     +     .03204,    .01480,  26.99939,   1.32478,    .84952,
     +     .40043,   1.13981,   1.32512,
     +     .03280,    .01521,  30.33021,   1.44176,    .97089,
     +     .52776,   1.25818,   1.44212 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03359,    .01564,  33.85420,   1.56662,   1.10028,
     +     .66297,   1.38441,   1.56700,
     +     .03424,    .01599,  36.89589,   1.67541,   1.21285,
     +     .78020,   1.49432,   1.67582,
     +     .03504,    .01643,  40.67586,   1.81297,   1.35393,
     +     .92489,   1.63318,   1.81339,
     +     .03576,    .01682,  44.13657,   1.94029,   1.48465,
     +    1.05959,   1.76163,   1.94074,
     +     .03641,    .01717,  47.42487,   2.06210,   1.61026,
     +    1.19007,   1.88447,   2.06258,
     +     .03725,    .01764,  51.63143,   2.22163,   1.77296,
     +    1.35606,   2.04527,   2.22215,
     +     .03805,    .01808,  55.69317,   2.37787,   1.93244,
     +    1.51929,   2.20267,   2.37842,
     +     .03880,    .01849,  59.60317,   2.53005,   2.08812,
     +    1.67929,   2.35592,   2.53064 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03956,    .01891,  63.54044,   2.68648,   2.24730,
     +    1.84164,   2.51339,   2.68709,
     +     .04030,    .01932,  67.45070,   2.84423,   2.40778,
     +    2.00539,   2.67214,   2.84488,
     +     .04102,    .01971,  71.23573,   2.99856,   2.56517,
     +    2.16659,   2.82741,   2.99924,
     +     .04169,    .02009,  74.76895,   3.14611,   2.71463,
     +    2.31828,   2.97581,   3.14681,
     +     .04236,    .02047,  78.42316,   3.29949,   2.87084,
     +    2.47809,   3.13005,   3.30023,
     +     .04304,    .02084,  81.96154,   3.45177,   3.02488,
     +    2.63424,   3.28315,   3.45254,
     +     .04368,    .02119,  85.42147,   3.60130,   3.17694,
     +    2.78953,   3.43345,   3.60210,
     +     .04429,    .02154,  88.62943,   3.74340,   3.32050,
     +    2.93493,   3.57627,   3.74422 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04491,    .02188,  91.95372,   3.89111,   3.47049,
     +    3.08783,   3.72471,   3.89197,
     +     .04552,    .02223,  95.17057,   4.03739,   3.61826,
     +    3.23753,   3.87169,   4.03827,
     +     .04611,    .02256,  98.29312,   4.18032,   3.76302,
     +    3.38468,   4.01527,   4.18124,
     +     .04668,    .02287, 101.24234,   4.31734,   3.90164,
     +    3.52540,   4.15293,   4.31829,
     +     .04725,    .02319, 104.21192,   4.45736,   4.04309,
     +    3.66873,   4.29355,   4.45833 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03233,    .01473,    .76464,    .38808,    .00000,
     +     .00000,    .21324,    .38832,
     +     .03302,    .01509,   1.50713,    .41184,    .00000,
     +     .00000,    .23834,    .41209,
     +     .03404,    .01564,   2.76122,    .45273,    .01465,
     +     .00000,    .28114,    .45302,
     +     .03481,    .01605,   3.83818,    .48654,    .03493,
     +     .00000,    .31628,    .48686,
     +     .03563,    .01650,   5.03286,    .52555,    .08256,
     +     .00000,    .35663,    .52591,
     +     .03634,    .01688,   6.16204,    .56255,    .12151,
     +     .00000,    .39474,    .56292,
     +     .03703,    .01725,   7.34499,    .60046,    .16299,
     +     .00000,    .43370,    .60087,
     +     .03777,    .01766,   8.70354,    .64342,    .21071,
     +     .00000,    .47774,    .64386 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03842,    .01801,   9.95163,    .68323,    .25351,
     +     .00000,    .51848,    .68370,
     +     .03905,    .01836,  11.20909,    .72375,    .29637,
     +     .00000,    .55986,    .72424,
     +     .03955,    .01864,  12.27122,    .75733,    .33317,
     +     .00000,    .59413,    .75785,
     +     .04063,    .01924,  14.71471,    .83340,    .41379,
     +     .00000,    .67159,    .83396,
     +     .04158,    .01977,  16.52144,    .90301,    .48671,
     +     .10370,    .74236,    .90362,
     +     .04266,    .02036,  18.85364,    .98589,    .57359,
     +     .20447,    .82652,    .98655,
     +     .04379,    .02100,  21.39821,   1.07711,    .66891,
     +     .30521,    .91903,   1.07784,
     +     .04483,    .02159,  23.79625,   1.16423,    .75963,
     +     .40088,   1.00727,   1.16499 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04588,    .02218,  26.29959,   1.25639,    .85549,
     +     .50157,   1.10055,   1.25721,
     +     .04677,    .02267,  28.43465,   1.33605,    .93823,
     +     .58817,   1.18112,   1.33693,
     +     .04784,    .02328,  31.05500,   1.43593,   1.04103,
     +     .69410,   1.28207,   1.43687,
     +     .04880,    .02383,  33.42629,   1.52766,   1.13553,
     +     .79196,   1.37472,   1.52865,
     +     .04969,    .02432,  35.65777,   1.61483,   1.22574,
     +     .88614,   1.46273,   1.61587,
     +     .05081,    .02496,  38.47695,   1.72804,   1.34155,
     +    1.00485,   1.57695,   1.72913,
     +     .05188,    .02556,  41.16781,   1.83802,   1.45419,
     +    1.12067,   1.68787,   1.83917,
     +     .05289,    .02614,  43.73174,   1.94437,   1.56335,
     +    1.23340,   1.79511,   1.94558 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05391,    .02672,  46.28481,   2.05285,   1.67408,
     +    1.34685,   1.90443,   2.05411,
     +     .05490,    .02729,  48.79493,   2.16147,   1.78494,
     +    1.46049,   2.01387,   2.16280,
     +     .05585,    .02782,  51.20378,   2.26708,   1.89299,
     +    1.57168,   2.12024,   2.26846,
     +     .05675,    .02833,  53.42816,   2.36732,   1.99483,
     +    1.67549,   2.22118,   2.36876,
     +     .05766,    .02886,  55.71360,   2.47099,   2.10077,
     +    1.78437,   2.32555,   2.47247,
     +     .05855,    .02936,  57.90277,   2.57319,   2.20443,
     +    1.88992,   2.42843,   2.57473,
     +     .05940,    .02985,  60.03102,   2.67308,   2.30634,
     +    1.99448,   2.52895,   2.67467,
     +     .06022,    .03031,  61.98388,   2.76737,   2.40190,
     +    2.09167,   2.62383,   2.76901 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06105,    .03078,  63.99776,   2.86500,   2.50135,
     +    2.19351,   2.72205,   2.86670,
     +     .06186,    .03125,  65.92729,   2.96107,   2.59867,
     +    2.29252,   2.81869,   2.96282,
     +     .06264,    .03169,  67.79029,   3.05456,   2.69365,
     +    2.38950,   2.91271,   3.05634,
     +     .06338,    .03211,  69.53675,   3.14371,   2.78412,
     +    2.48174,   3.00239,   3.14556,
     +     .06414,    .03254,  71.28244,   3.23439,   2.87599,
     +    2.57524,   3.09357,   3.23627 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03896,    .01817,    .73441,    .35657,    .00000,
     +     .00000,    .19745,    .35719,
     +     .03976,    .01859,   1.43520,    .37829,    .00000,
     +     .00000,    .22038,    .37895,
     +     .04097,    .01926,   2.59679,    .41519,    .01458,
     +     .00000,    .25897,    .41590,
     +     .04190,    .01977,   3.58174,    .44538,    .03245,
     +     .00000,    .29037,    .44613,
     +     .04286,    .02031,   4.66054,    .47997,    .07489,
     +     .00000,    .32617,    .48077,
     +     .04371,    .02077,   5.66878,    .51251,    .10926,
     +     .00000,    .35972,    .51337,
     +     .04452,    .02124,   6.71545,    .54569,    .14569,
     +     .00000,    .39384,    .54659,
     +     .04541,    .02173,   7.90693,    .58310,    .18740,
     +     .00000,    .43223,    .58405 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04618,    .02216,   8.99225,    .61760,    .22460,
     +     .00000,    .46756,    .61858,
     +     .04692,    .02258,  10.07753,    .65254,    .26170,
     +     .00000,    .50328,    .65356,
     +     .04752,    .02292,  10.98916,    .68143,    .29344,
     +     .00000,    .53279,    .68249,
     +     .04881,    .02365,  13.07067,    .74650,    .36264,
     +     .00000,    .59913,    .74763,
     +     .04994,    .02430,  14.58832,    .80569,    .42485,
     +     .08736,    .65938,    .80690,
     +     .05123,    .02503,  16.53168,    .87579,    .49855,
     +     .17329,    .73061,    .87706,
     +     .05258,    .02580,  18.63142,    .95246,    .57893,
     +     .25857,    .80846,    .95381,
     +     .05381,    .02650,  20.59207,   1.02527,    .65499,
     +     .33910,    .88228,   1.02669 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05508,    .02723,  22.62160,   1.10188,    .73492,
     +     .42338,    .95990,   1.10338,
     +     .05612,    .02783,  24.33955,   1.16778,    .80357,
     +     .49551,   1.02662,   1.16934,
     +     .05741,    .02856,  26.43124,   1.24997,    .88842,
     +     .58327,   1.10979,   1.25162,
     +     .05854,    .02921,  28.31022,   1.32510,    .96605,
     +     .66397,   1.18576,   1.32681,
     +     .05960,    .02982,  30.06772,   1.39620,   1.03985,
     +     .74132,   1.25761,   1.39798,
     +     .06093,    .03059,  32.27023,   1.48805,   1.13409,
     +     .83827,   1.35040,   1.48992,
     +     .06220,    .03133,  34.35712,   1.57685,   1.22529,
     +     .93240,   1.44005,   1.57881,
     +     .06340,    .03201,  36.33270,   1.66234,   1.31329,
     +    1.02362,   1.52634,   1.66437 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06459,    .03270,  38.28558,   1.74912,   1.40212,
     +    1.11498,   1.61390,   1.75122,
     +     .06577,    .03338,  40.19325,   1.83564,   1.49066,
     +    1.20607,   1.70116,   1.83782,
     +     .06689,    .03403,  42.01394,   1.91942,   1.57664,
     +    1.29489,   1.78565,   1.92168,
     +     .06795,    .03464,  43.68311,   1.99860,   1.65728,
     +    1.37739,   1.86546,   2.00092,
     +     .06903,    .03526,  45.39113,   2.08023,   1.74094,
     +    1.46369,   1.94773,   2.08263,
     +     .07008,    .03586,  47.01530,   2.16034,   1.82242,
     +    1.54695,   2.02846,   2.16281,
     +     .07109,    .03644,  48.58868,   2.23841,   1.90231,
     +    1.62922,   2.10711,   2.24095,
     +     .07205,    .03700,  50.02223,   2.31182,   1.97687,
     +    1.70534,   2.18105,   2.31441 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07301,    .03755,  51.49623,   2.38762,   2.05431,
     +    1.78494,   2.25740,   2.39028,
     +     .07397,    .03811,  52.89888,   2.46191,   2.12978,
     +    1.86199,   2.33222,   2.46464,
     +     .07488,    .03863,  54.24860,   2.53401,   2.20323,
     +    1.93727,   2.40482,   2.53681,
     +     .07576,    .03913,  55.50748,   2.60257,   2.27299,
     +    2.00866,   2.47385,   2.60543,
     +     .07664,    .03965,  56.75969,   2.67206,   2.34360,
     +    2.08078,   2.54381,   2.67497 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04447,    .02106,    .71986,    .33599,    .00000,
     +     .00000,    .18728,    .33712,
     +     .04537,    .02156,   1.39265,    .35628,    .00000,
     +     .00000,    .20870,    .35745,
     +     .04674,    .02232,   2.49184,    .39046,    .01452,
     +     .00000,    .24447,    .39170,
     +     .04778,    .02290,   3.41501,    .41825,    .03074,
     +     .00000,    .27337,    .41954,
     +     .04887,    .02353,   4.41648,    .44993,    .06973,
     +     .00000,    .30616,    .45127,
     +     .04982,    .02407,   5.34456,    .47956,    .10109,
     +     .00000,    .33674,    .48096,
     +     .05075,    .02459,   6.30146,    .50967,    .13421,
     +     .00000,    .36772,    .51112,
     +     .05175,    .02517,   7.38357,    .54350,    .17200,
     +     .00000,    .40247,    .54501 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05262,    .02567,   8.36296,    .57458,    .20558,
     +     .00000,    .43432,    .57613,
     +     .05347,    .02615,   9.33683,    .60595,    .23896,
     +     .00000,    .46642,    .60755,
     +     .05416,    .02654,  10.15148,    .63183,    .26746,
     +     .00000,    .49288,    .63348,
     +     .05561,    .02739,  12.00116,    .68993,    .32935,
     +     .00000,    .55214,    .69166,
     +     .05689,    .02813,  13.33548,    .74254,    .38476,
     +     .07695,    .60574,    .74435,
     +     .05835,    .02896,  15.03372,    .80457,    .45014,
     +     .15348,    .66885,    .80647,
     +     .05988,    .02985,  16.85520,    .87213,    .52110,
     +     .22902,    .73750,    .87414,
     +     .06127,    .03066,  18.54425,    .93601,    .58797,
     +     .30004,    .80233,    .93810 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06269,    .03149,  20.28151,   1.00296,    .65797,
     +     .37409,    .87021,   1.00513,
     +     .06388,    .03218,  21.74371,   1.06034,    .71787,
     +     .43722,    .92838,   1.06259,
     +     .06533,    .03302,  23.51331,   1.13163,    .79163,
     +     .51374,   1.00057,   1.13398,
     +     .06661,    .03376,  25.09412,   1.19656,    .85885,
     +     .58384,   1.06629,   1.19899,
     +     .06780,    .03446,  26.56594,   1.25782,    .92259,
     +     .65086,   1.12826,   1.26032,
     +     .06931,    .03534,  28.39907,   1.33664,   1.00363,
     +     .73449,   1.20797,   1.33926,
     +     .07074,    .03617,  30.12627,   1.41257,   1.08177,
     +     .81539,   1.28471,   1.41528,
     +     .07209,    .03695,  31.75328,   1.48542,   1.15694,
     +     .89356,   1.35831,   1.48822 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07344,    .03774,  33.35260,   1.55911,   1.23253,
     +     .97153,   1.43272,   1.56200,
     +     .07476,    .03851,  34.90718,   1.63233,   1.30762,
     +    1.04904,   1.50665,   1.63531,
     +     .07602,    .03925,  36.38468,   1.70304,   1.38035,
     +    1.12440,   1.57802,   1.70611,
     +     .07721,    .03993,  37.73156,   1.76962,   1.44830,
     +    1.19414,   1.64520,   1.77278,
     +     .07841,    .04063,  39.10561,   1.83811,   1.51866,
     +    1.26696,   1.71430,   1.84134,
     +     .07960,    .04132,  40.40467,   1.90509,   1.58693,
     +    1.33694,   1.78187,   1.90841,
     +     .08072,    .04198,  41.65977,   1.97024,   1.65374,
     +    1.40596,   1.84758,   1.97364,
     +     .08180,    .04259,  42.79683,   2.03129,   1.71590,
     +    1.46960,   1.90913,   2.03476 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08288,    .04322,  43.96348,   2.09422,   1.78034,
     +    1.53606,   1.97258,   2.09777,
     +     .08395,    .04385,  45.06754,   2.15571,   1.84293,
     +    1.60017,   2.03457,   2.15934,
     +     .08498,    .04444,  46.12724,   2.21527,   1.90376,
     +    1.66271,   2.09460,   2.21896,
     +     .08595,    .04500,  47.11165,   2.27177,   1.96138,
     +    1.72186,   2.15154,   2.27553,
     +     .08693,    .04557,  48.08696,   2.32890,   2.01956,
     +    1.78148,   2.20913,   2.33275 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04931,    .02373,    .71642,    .32177,    .00000,
     +     .00000,    .18000,    .32296,
     +     .05030,    .02429,   1.36779,    .34095,    .00000,
     +     .00000,    .20020,    .34219,
     +     .05181,    .02514,   2.41965,    .37304,    .01439,
     +     .00000,    .23376,    .37437,
     +     .05295,    .02579,   3.29602,    .39899,    .02939,
     +     .00000,    .26074,    .40039,
     +     .05416,    .02649,   4.23912,    .42846,    .06576,
     +     .00000,    .29125,    .42992,
     +     .05521,    .02709,   5.10689,    .45593,    .09487,
     +     .00000,    .31960,    .45746,
     +     .05624,    .02768,   5.99647,    .48376,    .12554,
     +     .00000,    .34823,    .48535,
     +     .05734,    .02831,   6.99685,    .51493,    .16043,
     +     .00000,    .38026,    .51660 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05831,    .02887,   7.89746,    .54350,    .19133,
     +     .00000,    .40954,    .54522,
     +     .05923,    .02942,   8.78877,    .57225,    .22198,
     +     .00000,    .43897,    .57403,
     +     .05999,    .02985,   9.53179,    .59594,    .24811,
     +     .00000,    .46319,    .59777,
     +     .06159,    .03079,  11.21104,    .64893,    .30466,
     +     .00000,    .51728,    .65087,
     +     .06301,    .03162,  12.41155,    .69677,    .35511,
     +     .06943,    .56603,    .69879,
     +     .06461,    .03255,  13.93185,    .75297,    .41443,
     +     .13910,    .62324,    .75510,
     +     .06630,    .03353,  15.55251,    .81396,    .47860,
     +     .20756,    .68524,    .81619,
     +     .06783,    .03444,  17.04654,    .87141,    .53884,
     +     .27171,    .74360,    .87375 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06939,    .03535,  18.57495,    .93142,    .60171,
     +     .33838,    .80451,    .93388,
     +     .07070,    .03611,  19.85522,    .98271,    .65534,
     +     .39505,    .85651,    .98525,
     +     .07229,    .03705,  21.39691,   1.04623,    .72116,
     +     .46350,    .92089,   1.04888,
     +     .07370,    .03787,  22.76755,   1.10391,    .78097,
     +     .52603,    .97931,   1.10666,
     +     .07501,    .03864,  24.03864,   1.15819,    .83755,
     +     .58567,   1.03426,   1.16103,
     +     .07666,    .03960,  25.61365,   1.22780,    .90924,
     +     .65983,   1.10470,   1.23076,
     +     .07823,    .04051,  27.09046,   1.29464,    .97814,
     +     .73135,   1.17231,   1.29772,
     +     .07970,    .04138,  28.47576,   1.35860,   1.04425,
     +     .80027,   1.23698,   1.36178 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08117,    .04224,  29.83114,   1.42309,   1.11053,
     +     .86882,   1.30216,   1.42637,
     +     .08262,    .04308,  31.14291,   1.48700,   1.17619,
     +     .93677,   1.36674,   1.49039,
     +     .08400,    .04389,  32.38518,   1.54858,   1.23964,
     +    1.00268,   1.42894,   1.55207,
     +     .08530,    .04465,  33.51217,   1.60638,   1.29874,
     +    1.06349,   1.48732,   1.60996,
     +     .08661,    .04541,  34.65900,   1.66573,   1.35982,
     +    1.12688,   1.54724,   1.66942,
     +     .08790,    .04616,  35.73757,   1.72362,   1.41892,
     +    1.18760,   1.60567,   1.72739,
     +     .08913,    .04688,  36.77739,   1.77981,   1.47666,
     +    1.24742,   1.66241,   1.78367,
     +     .09029,    .04755,  37.71457,   1.83232,   1.53023,
     +    1.30241,   1.71540,   1.83627 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09148,    .04824,  38.67443,   1.88637,   1.58569,
     +    1.35976,   1.76994,   1.89041,
     +     .09264,    .04892,  39.57838,   1.93905,   1.63941,
     +    1.41492,   1.82309,   1.94317,
     +     .09375,    .04956,  40.44419,   1.98998,   1.69154,
     +    1.46866,   1.87449,   1.99419,
     +     .09480,    .05017,  41.24555,   2.03821,   1.74082,
     +    1.51938,   1.92313,   2.04248,
     +     .09587,    .05079,  42.03669,   2.08687,   1.79048,
     +    1.57041,   1.97222,   2.09123 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06817,    .03450,    .72652,    .28301,    .00000,
     +     .00000,    .16056,    .28518,
     +     .06949,    .03528,   1.31600,    .29865,    .00000,
     +     .00000,    .17704,    .30090,
     +     .07151,    .03648,   2.22987,    .32442,    .01377,
     +     .00000,    .20401,    .32681,
     +     .07306,    .03740,   2.97047,    .34501,    .02519,
     +     .00000,    .22545,    .34751,
     +     .07468,    .03837,   3.74614,    .36816,    .05416,
     +     .00000,    .24945,    .37076,
     +     .07610,    .03921,   4.44297,    .38949,    .07694,
     +     .00000,    .27150,    .39220,
     +     .07749,    .04005,   5.14351,    .41091,    .10076,
     +     .00000,    .29361,    .41372,
     +     .07898,    .04093,   5.91666,    .43473,    .12766,
     +     .00000,    .31813,    .43764 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08029,    .04172,   6.60026,    .45636,    .15125,
     +     .00000,    .34035,    .45936,
     +     .08155,    .04247,   7.26613,    .47795,    .17445,
     +     .00000,    .36252,    .48105,
     +     .08257,    .04308,   7.81472,    .49565,    .19414,
     +     .00000,    .38067,    .49883,
     +     .08473,    .04439,   9.03564,    .53488,    .23631,
     +     .00000,    .42081,    .53820,
     +     .08664,    .04553,   9.88200,    .56987,    .27353,
     +     .04893,    .45659,    .57334,
     +     .08879,    .04680,  10.93463,    .61055,    .31680,
     +     .10038,    .49813,    .61419,
     +     .09106,    .04815,  12.03340,    .65415,    .36305,
     +     .15021,    .54260,    .65797,
     +     .09312,    .04938,  13.02622,    .69476,    .40597,
     +     .19638,    .58398,    .69872 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09520,    .05062,  14.02333,    .73672,    .45029,
     +     .24386,    .62670,    .74085,
     +     .09694,    .05166,  14.84483,    .77223,    .48772,
     +     .28380,    .66283,    .77649,
     +     .09905,    .05290,  15.81658,    .81574,    .53316,
     +     .33153,    .70707,    .82016,
     +     .10093,    .05402,  16.66650,    .85484,    .57406,
     +     .37473,    .74682,    .85941,
     +     .10265,    .05504,  17.44426,    .89134,    .61243,
     +     .41560,    .78391,    .89605,
     +     .10483,    .05633,  18.38993,    .93763,    .66050,
     +     .46582,    .83091,    .94250,
     +     .10689,    .05754,  19.26192,    .98161,    .70623,
     +     .51380,    .87557,    .98664,
     +     .10883,    .05868,  20.06792,   1.02331,    .74971,
     +     .55961,    .91789,   1.02850 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11076,    .05980,  20.84285,   1.06492,    .79285,
     +     .60470,    .96011,   1.07026,
     +     .11265,    .06092,  21.58139,   1.10577,    .83521,
     +     .64900,   1.00155,   1.11127,
     +     .11444,    .06197,  22.27209,   1.14481,    .87582,
     +     .69165,   1.04115,   1.15045,
     +     .11612,    .06294,  22.88709,   1.18110,    .91327,
     +     .73060,   1.07795,   1.18686,
     +     .11782,    .06393,  23.50752,   1.21812,    .95174,
     +     .77097,   1.11548,   1.22402,
     +     .11948,    .06490,  24.07956,   1.25386,    .98858,
     +     .80925,   1.15172,   1.25989,
     +     .12107,    .06582,  24.62704,   1.28836,   1.02439,
     +     .84677,   1.18670,   1.29452,
     +     .12256,    .06669,  25.11065,   1.32030,   1.05728,
     +     .88091,   1.21906,   1.32657 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12407,    .06756,  25.60316,   1.35300,   1.09119,
     +     .91637,   1.25222,   1.35940,
     +     .12555,    .06842,  26.05783,   1.38458,   1.12374,
     +     .95018,   1.28422,   1.39109,
     +     .12697,    .06924,  26.49001,   1.41495,   1.15515,
     +     .98294,   1.31501,   1.42158,
     +     .12831,    .07002,  26.88436,   1.44350,   1.18464,
     +    1.01366,   1.34393,   1.45024,
     +     .12967,    .07080,  27.26822,   1.47211,   1.21416,
     +    1.04435,   1.37294,   1.47895 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09474,    .05048,    .80472,    .25180,    .00000,
     +     .00000,    .14446,    .25557,
     +     .09651,    .05158,   1.33322,    .26394,    .00000,
     +     .00000,    .15731,    .26784,
     +     .09925,    .05327,   2.11468,    .28380,    .01212,
     +     .00000,    .17818,    .28791,
     +     .10134,    .05455,   2.72668,    .29954,    .02040,
     +     .00000,    .19463,    .30382,
     +     .10355,    .05591,   3.34838,    .31712,    .04290,
     +     .00000,    .21295,    .32157,
     +     .10546,    .05708,   3.89169,    .33316,    .06028,
     +     .00000,    .22960,    .33777,
     +     .10734,    .05823,   4.42552,    .34915,    .07833,
     +     .00000,    .24616,    .35391,
     +     .10935,    .05945,   5.00197,    .36677,    .09855,
     +     .00000,    .26440,    .37170 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11111,    .06053,   5.50108,    .38263,    .11610,
     +     .00000,    .28078,    .38771,
     +     .11282,    .06156,   5.97824,    .39834,    .13322,
     +     .00000,    .29699,    .40356,
     +     .11419,    .06239,   6.36598,    .41114,    .14766,
     +     .00000,    .31018,    .41647,
     +     .11710,    .06416,   7.21417,    .43922,    .17827,
     +     .00000,    .33909,    .44480,
     +     .11965,    .06569,   7.78046,    .46397,    .20494,
     +     .03213,    .36452,    .46977,
     +     .12252,    .06740,   8.46825,    .49236,    .23557,
     +     .06915,    .39367,    .49840,
     +     .12552,    .06918,   9.16803,    .52238,    .26787,
     +     .10444,    .42448,    .52868,
     +     .12824,    .07080,   9.78504,    .54997,    .29746,
     +     .13672,    .45276,    .55649 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13098,    .07243,  10.39078,    .57812,    .32762,
     +     .16949,    .48160,    .58487,
     +     .13327,    .07378,  10.87948,    .60167,    .35282,
     +     .19677,    .50571,    .60861,
     +     .13603,    .07540,  11.44456,    .63013,    .38302,
     +     .22896,    .53487,    .63732,
     +     .13846,    .07683,  11.92861,    .65543,    .40990,
     +     .25778,    .56077,    .66283,
     +     .14070,    .07814,  12.36416,    .67881,    .43489,
     +     .28480,    .58469,    .68639,
     +     .14351,    .07978,  12.88027,    .70806,    .46576,
     +     .31755,    .61461,    .71588,
     +     .14616,    .08132,  13.34586,    .73551,    .49479,
     +     .34849,    .64270,    .74356,
     +     .14863,    .08275,  13.76801,    .76124,    .52211,
     +     .37774,    .66902,    .76951 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15109,    .08417,  14.16397,    .78661,    .54887,
     +     .40617,    .69496,    .79508,
     +     .15349,    .08555,  14.53321,    .81122,    .57488,
     +     .43382,    .72014,    .81990,
     +     .15575,    .08684,  14.87268,    .83453,    .59959,
     +     .46022,    .74398,    .84339,
     +     .15786,    .08805,  15.16618,    .85591,    .62208,
     +     .48402,    .76584,    .86495,
     +     .16000,    .08927,  15.45907,    .87756,    .64504,
     +     .50853,    .78800,    .88678,
     +     .16206,    .09044,  15.72054,    .89819,    .66675,
     +     .53150,    .80910,    .90759,
     +     .16403,    .09156,  15.96859,    .91798,    .68774,
     +     .55389,    .82935,    .92754,
     +     .16587,    .09260,  16.18031,    .93607,    .70677,
     +     .57401,    .84786,    .94578 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16775,    .09365,  16.39460,    .95449,    .72629,
     +     .59482,    .86672,    .96436,
     +     .16957,    .09468,  16.58541,    .97205,    .74482,
     +     .61443,    .88469,    .98208,
     +     .17130,    .09566,  16.76485,    .98885,    .76259,
     +     .63333,    .90189,    .99902,
     +     .17294,    .09657,  16.92449,   1.00448,    .77914,
     +     .65091,    .91791,   1.01479,
     +     .17459,    .09749,  17.07592,   1.02002,    .79555,
     +     .66831,    .93382,   1.03046 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11503,    .06306,    .89866,    .23527,    .00000,
     +     .00000,    .13555,    .24045,
     +     .11716,    .06440,   1.38530,    .24550,    .00000,
     +     .00000,    .14641,    .25085,
     +     .12045,    .06647,   2.08849,    .26218,    .01030,
     +     .00000,    .16402,    .26781,
     +     .12295,    .06802,   2.62576,    .27536,    .01699,
     +     .00000,    .17787,    .28120,
     +     .12558,    .06965,   3.16060,    .29006,    .03617,
     +     .00000,    .19326,    .29613,
     +     .12789,    .07106,   3.61981,    .30339,    .05081,
     +     .00000,    .20717,    .30967,
     +     .13012,    .07243,   4.06415,    .31661,    .06596,
     +     .00000,    .22095,    .32309,
     +     .13253,    .07391,   4.53703,    .33112,    .08284,
     +     .00000,    .23604,    .33780 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13462,    .07517,   4.94077,    .34411,    .09740,
     +     .00000,    .24953,    .35098,
     +     .13665,    .07641,   5.32198,    .35689,    .11152,
     +     .00000,    .26280,    .36395,
     +     .13828,    .07739,   5.62888,    .36727,    .12340,
     +     .00000,    .27356,    .37449,
     +     .14173,    .07946,   6.29291,    .38990,    .14839,
     +     .00000,    .29697,    .39742,
     +     .14473,    .08126,   6.72465,    .40966,    .16998,
     +     .02373,    .31742,    .41745,
     +     .14810,    .08325,   7.23945,    .43215,    .19458,
     +     .05383,    .34064,    .44024,
     +     .15159,    .08532,   7.75384,    .45570,    .22028,
     +     .08223,    .36496,    .46410,
     +     .15477,    .08717,   8.19919,    .47713,    .24362,
     +     .10798,    .38709,    .48581 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15796,    .08903,   8.62922,    .49882,    .26722,
     +     .13392,    .40948,    .50778,
     +     .16060,    .09058,   8.97120,    .51680,    .28678,
     +     .15535,    .42804,    .52601,
     +     .16378,    .09241,   9.35938,    .53837,    .31003,
     +     .18043,    .45029,    .54786,
     +     .16658,    .09402,   9.68673,    .55738,    .33057,
     +     .20272,    .46988,    .56711,
     +     .16916,    .09550,   9.97770,    .57482,    .34953,
     +     .22348,    .48788,    .58478,
     +     .17237,    .09733,  10.31520,    .59643,    .37276,
     +     .24846,    .51017,    .60667,
     +     .17538,    .09905,  10.61413,    .61653,    .39442,
     +     .27185,    .53091,    .62704,
     +     .17819,    .10064,  10.88087,    .63524,    .41466,
     +     .29381,    .55021,    .64599 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18096,    .10219,  11.12579,    .65351,    .43433,
     +     .31501,    .56907,    .66450,
     +     .18365,    .10371,  11.35001,    .67109,    .45329,
     +     .33546,    .58721,    .68231,
     +     .18620,    .10513,  11.55322,    .68761,    .47120,
     +     .35488,    .60429,    .69905,
     +     .18855,    .10644,  11.72385,    .70263,    .48736,
     +     .37224,    .61980,    .71428,
     +     .19093,    .10776,  11.89269,    .71777,    .50379,
     +     .39005,    .63546,    .72962,
     +     .19323,    .10902,  12.03830,    .73204,    .51918,
     +     .40659,    .65022,    .74408,
     +     .19543,    .11024,  12.17553,    .74566,    .53400,
     +     .42266,    .66432,    .75791,
     +     .19745,    .11135,  12.28802,    .75800,    .54732,
     +     .43699,    .67709,    .77041 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19952,    .11248,  12.40142,    .77052,    .56095,
     +     .45176,    .69005,    .78311,
     +     .20151,    .11356,  12.49805,    .78234,    .57376,
     +     .46555,    .70230,    .79510,
     +     .20342,    .11459,  12.58801,    .79359,    .58600,
     +     .47881,    .71397,    .80651,
     +     .20520,    .11556,  12.66534,    .80399,    .59734,
     +     .49107,    .72476,    .81705,
     +     .20700,    .11654,  12.73603,    .81424,    .60851,
     +     .50315,    .73540,    .82746 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13211,    .07380,    .99158,    .22392,    .00000,
     +     .00000,    .12906,    .23036,
     +     .13455,    .07537,   1.44504,    .23285,    .00000,
     +     .00000,    .13861,    .23952,
     +     .13832,    .07772,   2.09040,    .24743,    .00846,
     +     .00000,    .15409,    .25445,
     +     .14117,    .07950,   2.57341,    .25895,    .01415,
     +     .00000,    .16627,    .26623,
     +     .14417,    .08135,   3.04676,    .27177,    .03119,
     +     .00000,    .17975,    .27933,
     +     .14679,    .08295,   3.44769,    .28333,    .04408,
     +     .00000,    .19191,    .29115,
     +     .14933,    .08450,   3.83110,    .29478,    .05737,
     +     .00000,    .20389,    .30282,
     +     .15204,    .08616,   4.23455,    .30728,    .07212,
     +     .00000,    .21697,    .31558 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15442,    .08758,   4.57529,    .31842,    .08478,
     +     .00000,    .22860,    .32695,
     +     .15671,    .08895,   4.89381,    .32935,    .09701,
     +     .00000,    .24001,    .33808,
     +     .15854,    .09006,   5.14839,    .33819,    .10727,
     +     .00000,    .24923,    .34710,
     +     .16242,    .09236,   5.69468,    .35735,    .12873,
     +     .00000,    .26920,    .36662,
     +     .16576,    .09433,   6.04227,    .37396,    .14714,
     +     .01833,    .28650,    .38355,
     +     .16951,    .09653,   6.44970,    .39274,    .16799,
     +     .04411,    .30603,    .40267,
     +     .17341,    .09878,   6.85073,    .41226,    .18962,
     +     .06824,    .32633,    .42254,
     +     .17692,    .10080,   7.19272,    .42988,    .20912,
     +     .08997,    .34467,    .44049 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18044,    .10283,   7.51824,    .44758,    .22871,
     +     .11173,    .36308,    .45852,
     +     .18334,    .10449,   7.77369,    .46217,    .24486,
     +     .12960,    .37826,    .47337,
     +     .18683,    .10646,   8.05905,    .47954,    .26392,
     +     .15038,    .39632,    .49105,
     +     .18990,    .10818,   8.29627,    .49473,    .28065,
     +     .16875,    .41213,    .50652,
     +     .19269,    .10976,   8.50474,    .50861,    .29603,
     +     .18577,    .42657,    .52065,
     +     .19619,    .11170,   8.74164,    .52564,    .31471,
     +     .20610,    .44432,    .53800,
     +     .19944,    .11352,   8.94781,    .54139,    .33204,
     +     .22504,    .46072,    .55403,
     +     .20248,    .11518,   9.12899,    .55593,    .34814,
     +     .24273,    .47588,    .56884 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20546,    .11682,   9.29160,    .57003,    .36367,
     +     .25968,    .49058,    .58321,
     +     .20835,    .11840,   9.43753,    .58350,    .37855,
     +     .27596,    .50465,    .59692,
     +     .21107,    .11988,   9.56779,    .59609,    .39255,
     +     .29134,    .51780,    .60975,
     +     .21359,    .12124,   9.67344,    .60744,    .40508,
     +     .30500,    .52967,    .62132,
     +     .21611,    .12261,   9.77711,    .61883,    .41778,
     +     .31897,    .54159,    .63292,
     +     .21854,    .12390,   9.86262,    .62947,    .42958,
     +     .33185,    .55275,    .64377,
     +     .22087,    .12513,   9.94271,    .63959,    .44092,
     +     .34434,    .56336,    .65410,
     +     .22301,    .12628,  10.00468,    .64868,    .45103,
     +     .35539,    .57289,    .66336 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22517,    .12742,  10.06701,    .65787,    .46135,
     +     .36676,    .58255,    .67274,
     +     .22726,    .12852,  10.11655,    .66647,    .47098,
     +     .37731,    .59159,    .68151,
     +     .22926,    .12957,  10.16199,    .67462,    .48016,
     +     .38742,    .60018,    .68983,
     +     .23112,    .13055,  10.19886,    .68211,    .48860,
     +     .39672,    .60806,    .69746,
     +     .23299,    .13152,  10.23032,    .68943,    .49689,
     +     .40585,    .61580,    .70495 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14705,    .08329,   1.07949,    .21485,    .00000,
     +     .00000,    .12366,    .22242,
     +     .14979,    .08503,   1.50473,    .22287,    .00000,
     +     .00000,    .13228,    .23070,
     +     .15397,    .08767,   2.10319,    .23593,    .00667,
     +     .00000,    .14623,    .24419,
     +     .15716,    .08964,   2.54286,    .24625,    .01168,
     +     .00000,    .15721,    .25483,
     +     .16048,    .09168,   2.96818,    .25772,    .02718,
     +     .00000,    .16935,    .26662,
     +     .16338,    .09343,   3.32445,    .26804,    .03881,
     +     .00000,    .18023,    .27721,
     +     .16617,    .09513,   3.66175,    .27820,    .05078,
     +     .00000,    .19095,    .28764,
     +     .16917,    .09692,   4.01335,    .28926,    .06402,
     +     .00000,    .20259,    .29900 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17178,    .09848,   4.30762,    .29908,    .07533,
     +     .00000,    .21292,    .30908,
     +     .17430,    .09997,   4.58039,    .30866,    .08622,
     +     .00000,    .22299,    .31891,
     +     .17630,    .10116,   4.79706,    .31640,    .09532,
     +     .00000,    .23113,    .32684,
     +     .18053,    .10365,   5.25900,    .33311,    .11429,
     +     .00000,    .24865,    .34395,
     +     .18417,    .10576,   5.54722,    .34749,    .13048,
     +     .01447,    .26374,    .35869,
     +     .18825,    .10808,   5.87958,    .36364,    .14870,
     +     .03720,    .28067,    .37523,
     +     .19244,    .11048,   6.20227,    .38032,    .16748,
     +     .05834,    .29816,    .39230,
     +     .19623,    .11263,   6.47373,    .39529,    .18433,
     +     .07729,    .31385,    .40762 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20001,    .11475,   6.72875,    .41022,    .20115,
     +     .09614,    .32952,    .42290,
     +     .20312,    .11649,   6.92631,    .42245,    .21494,
     +     .11155,    .34236,    .43543,
     +     .20684,    .11855,   7.14344,    .43692,    .23113,
     +     .12938,    .35755,    .45023,
     +     .21009,    .12034,   7.32146,    .44949,    .24527,
     +     .14507,    .37077,    .46311,
     +     .21308,    .12198,   7.47622,    .46092,    .25821,
     +     .15955,    .38279,    .47480,
     +     .21676,    .12398,   7.64821,    .47486,    .27385,
     +     .17675,    .39745,    .48907,
     +     .22019,    .12584,   7.79521,    .48765,    .28826,
     +     .19268,    .41093,    .50216,
     +     .22338,    .12756,   7.92224,    .49940,    .30158,
     +     .20750,    .42332,    .51420 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22652,    .12923,   8.03304,    .51070,    .31437,
     +     .22163,    .43526,    .52578,
     +     .22953,    .13083,   8.13028,    .52145,    .32655,
     +     .23512,    .44661,    .53678,
     +     .23236,    .13233,   8.21561,    .53143,    .33796,
     +     .24783,    .45718,    .54701,
     +     .23498,    .13370,   8.28154,    .54034,    .34812,
     +     .25906,    .46664,    .55614,
     +     .23760,    .13507,   8.34558,    .54927,    .35838,
     +     .27050,    .47611,    .56529,
     +     .24011,    .13637,   8.39517,    .55753,    .36785,
     +     .28099,    .48490,    .57376,
     +     .24250,    .13761,   8.44125,    .56537,    .37692,
     +     .29114,    .49325,    .58181,
     +     .24469,    .13873,   8.47336,    .57234,    .38497,
     +     .30007,    .50068,    .58895 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24692,    .13987,   8.50559,    .57937,    .39315,
     +     .30924,    .50820,    .59617,
     +     .24905,    .14096,   8.52778,    .58588,    .40074,
     +     .31770,    .51518,    .60286,
     +     .25109,    .14198,   8.54754,    .59204,    .40796,
     +     .32579,    .52177,    .60918,
     +     .25298,    .14295,   8.56130,    .59765,    .41457,
     +     .33321,    .52781,    .61494,
     +     .25488,    .14390,   8.57063,    .60312,    .42102,
     +     .34045,    .53370,    .62056 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17304,    .09982,   1.23348,    .20088,    .00000,
     +     .00000,    .11502,    .21062,
     +     .17631,    .10188,   1.61074,    .20760,    .00000,
     +     .00000,    .12235,    .21771,
     +     .18127,    .10497,   2.13399,    .21857,    .00339,
     +     .00000,    .13424,    .22920,
     +     .18500,    .10723,   2.50590,    .22721,    .00755,
     +     .00000,    .14354,    .23824,
     +     .18887,    .10957,   2.85778,    .23678,    .02090,
     +     .00000,    .15382,    .24822,
     +     .19223,    .11157,   3.14727,    .24532,    .03083,
     +     .00000,    .16295,    .25711,
     +     .19547,    .11349,   3.41692,    .25368,    .04098,
     +     .00000,    .17190,    .26581,
     +     .19892,    .11551,   3.69364,    .26273,    .05213,
     +     .00000,    .18158,    .27522 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20192,    .11725,   3.92168,    .27070,    .06159,
     +     .00000,    .19009,    .28350,
     +     .20479,    .11890,   4.13001,    .27842,    .07065,
     +     .00000,    .19834,    .29152,
     +     .20709,    .12022,   4.29379,    .28464,    .07819,
     +     .00000,    .20497,    .29796,
     +     .21190,    .12294,   4.63929,    .29792,    .09377,
     +     .00000,    .21913,    .31172,
     +     .21597,    .12523,   4.84734,    .30924,    .10693,
     +     .00917,    .23119,    .32345,
     +     .22051,    .12774,   5.07926,    .32181,    .12162,
     +     .02778,    .24460,    .33645,
     +     .22517,    .13030,   5.29879,    .33462,    .13660,
     +     .04491,    .25830,    .34971,
     +     .22933,    .13255,   5.47853,    .34598,    .14990,
     +     .06010,    .27044,    .36147 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23348,    .13479,   5.64285,    .35719,    .16307,
     +     .07511,    .28245,    .37306,
     +     .23687,    .13662,   5.76680,    .36630,    .17377,
     +     .08727,    .29219,    .38248,
     +     .24090,    .13875,   5.89871,    .37691,    .18620,
     +     .10123,    .30359,    .39346,
     +     .24441,    .14059,   6.00344,    .38605,    .19697,
     +     .11341,    .31342,    .40291,
     +     .24761,    .14226,   6.09219,    .39428,    .20677,
     +     .12458,    .32228,    .41143,
     +     .25154,    .14429,   6.18543,    .40416,    .21846,
     +     .13772,    .33296,    .42167,
     +     .25518,    .14616,   6.26153,    .41313,    .22915,
     +     .14980,    .34265,    .43095,
     +     .25854,    .14787,   6.32445,    .42127,    .23894,
     +     .16094,    .35149,    .43939 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26182,    .14953,   6.37505,    .42901,    .24825,
     +     .17147,    .35990,    .44739,
     +     .26496,    .15110,   6.41593,    .43626,    .25705,
     +     .18146,    .36782,    .45491,
     +     .26791,    .15257,   6.44950,    .44295,    .26523,
     +     .19080,    .37512,    .46185,
     +     .27058,    .15389,   6.47062,    .44882,    .27242,
     +     .19897,    .38157,    .46793,
     +     .27327,    .15521,   6.49029,    .45465,    .27966,
     +     .20727,    .38799,    .47398,
     +     .27584,    .15645,   6.50000,    .45996,    .28627,
     +     .21481,    .39387,    .47950,
     +     .27826,    .15762,   6.50859,    .46497,    .29257,
     +     .22206,    .39941,    .48470,
     +     .28048,    .15868,   6.50862,    .46933,    .29809,
     +     .22839,    .40427,    .48923 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28272,    .15974,   6.50870,    .47371,    .30368,
     +     .23486,    .40917,    .49378,
     +     .28485,    .16075,   6.50203,    .47768,    .30881,
     +     .24078,    .41363,    .49792,
     +     .28688,    .16171,   6.49484,    .48141,    .31366,
     +     .24641,    .41783,    .50180,
     +     .28876,    .16258,   6.48461,    .48476,    .31806,
     +     .25154,    .42162,    .50529,
     +     .29063,    .16345,   6.47119,    .48796,    .32232,
     +     .25650,    .42529,    .50863 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20579,    .12058,   1.41738,    .18494,    .00000,
     +     .00000,    .10477,    .19765,
     +     .20977,    .12305,   1.73515,    .19048,    .00000,
     +     .00000,    .11098,    .20367,
     +     .21573,    .12665,   2.17127,    .19947,   -.00075,
     +     .00000,    .12095,    .21336,
     +     .22016,    .12924,   2.46749,    .20648,    .00275,
     +     .00000,    .12872,    .22089,
     +     .22473,    .13189,   2.74008,    .21422,    .01406,
     +     .00000,    .13723,    .22914,
     +     .22864,    .13413,   2.95943,    .22105,    .02240,
     +     .00000,    .14473,    .23639,
     +     .23240,    .13626,   3.15975,    .22766,    .03084,
     +     .00000,    .15201,    .24342,
     +     .23638,    .13850,   3.36131,    .23477,    .04004,
     +     .00000,    .15980,    .25095 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23981,    .14039,   3.52411,    .24096,    .04779,
     +     .00000,    .16658,    .25750,
     +     .24308,    .14219,   3.67002,    .24690,    .05513,
     +     .00000,    .17311,    .26379,
     +     .24568,    .14360,   3.78328,    .25165,    .06121,
     +     .00000,    .17832,    .26880,
     +     .25107,    .14651,   4.01952,    .26168,    .07365,
     +     .00000,    .18933,    .27938,
     +     .25560,    .14890,   4.15387,    .27010,    .08403,
     +     .00434,    .19858,    .28825,
     +     .26060,    .15152,   4.29550,    .27930,    .09548,
     +     .01912,    .20871,    .29793,
     +     .26568,    .15413,   4.42415,    .28852,    .10701,
     +     .03258,    .21891,    .30764,
     +     .27018,    .15644,   4.52468,    .29658,    .11713,
     +     .04439,    .22783,    .31611 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27463,    .15868,   4.61223,    .30441,    .12703,
     +     .05592,    .23653,    .32435,
     +     .27824,    .16048,   4.67504,    .31066,    .13499,
     +     .06518,    .24349,    .33091,
     +     .28250,    .16257,   4.73693,    .31784,    .14414,
     +     .07571,    .25153,    .33847,
     +     .28617,    .16435,   4.78260,    .32391,    .15198,
     +     .08480,    .25837,    .34487,
     +     .28949,    .16596,   4.81901,    .32932,    .15904,
     +     .09308,    .26445,    .35055,
     +     .29355,    .16790,   4.85126,    .33568,    .16736,
     +     .10269,    .27168,    .35724,
     +     .29725,    .16964,   4.87307,    .34135,    .17489,
     +     .11146,    .27814,    .36321,
     +     .30066,    .17123,   4.88759,    .34641,    .18172,
     +     .11947,    .28395,    .36855 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30395,    .17274,   4.89377,    .35112,    .18812,
     +     .12696,    .28939,    .37350,
     +     .30707,    .17416,   4.89394,    .35544,    .19410,
     +     .13400,    .29442,    .37806,
     +     .30998,    .17548,   4.89078,    .35936,    .19961,
     +     .14053,    .29902,    .38220,
     +     .31260,    .17665,   4.88094,    .36270,    .20439,
     +     .14618,    .30298,    .38572,
     +     .31523,    .17779,   4.87030,    .36599,    .20918,
     +     .15189,    .30689,    .38920,
     +     .31768,    .17885,   4.85331,    .36887,    .21346,
     +     .15701,    .31038,    .39226,
     +     .32001,    .17987,   4.83705,    .37157,    .21754,
     +     .16192,    .31365,    .39511,
     +     .32210,    .18075,   4.81662,    .37384,    .22106,
     +     .16614,    .31645,    .39751 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32421,    .18164,   4.79634,    .37610,    .22460,
     +     .17045,    .31924,    .39991,
     +     .32620,    .18247,   4.77198,    .37806,    .22779,
     +     .17433,    .32172,    .40199,
     +     .32807,    .18323,   4.74846,    .37987,    .23080,
     +     .17802,    .32403,    .40392,
     +     .32980,    .18394,   4.72416,    .38145,    .23348,
     +     .18133,    .32607,    .40559,
     +     .33150,    .18462,   4.69779,    .38290,    .23606,
     +     .18453,    .32800,    .40714 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25138,    .14883,   1.61875,    .16514,    .00000,
     +     .00000,    .09195,    .18277,
     +     .25637,    .15174,   1.85839,    .16950,    .00000,
     +     .00000,    .09712,    .18778,
     +     .26369,    .15591,   2.18639,    .17646,   -.00580,
     +     .00000,    .10528,    .19563,
     +     .26898,    .15882,   2.39341,    .18178,   -.00278,
     +     .00000,    .11150,    .20159,
     +     .27438,    .16174,   2.57557,    .18758,    .00649,
     +     .00000,    .11823,    .20800,
     +     .27896,    .16417,   2.71763,    .19259,    .01324,
     +     .00000,    .12405,    .21352,
     +     .28330,    .16645,   2.84370,    .19740,    .01999,
     +     .00000,    .12961,    .21879,
     +     .28786,    .16881,   2.96689,    .20246,    .02724,
     +     .00000,    .13549,    .22432 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29174,    .17079,   3.06314,    .20680,    .03328,
     +     .00000,    .14054,    .22906,
     +     .29541,    .17262,   3.14660,    .21090,    .03893,
     +     .00000,    .14532,    .23354,
     +     .29831,    .17406,   3.21013,    .21414,    .04358,
     +     .00000,    .14910,    .23706,
     +     .30423,    .17699,   3.34076,    .22088,    .05295,
     +     .00000,    .15695,    .24437,
     +     .30912,    .17932,   3.40643,    .22639,    .06065,
     +    -.00001,    .16342,    .25031,
     +     .31442,    .18181,   3.46581,    .23228,    .06900,
     +     .01104,    .17037,    .25666,
     +     .31974,    .18426,   3.51391,    .23803,    .07728,
     +     .02095,    .17719,    .26285,
     +     .32439,    .18637,   3.54613,    .24290,    .08442,
     +     .02953,    .18305,    .26810 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32892,    .18837,   3.56912,    .24750,    .09129,
     +     .03780,    .18861,    .27305,
     +     .33255,    .18997,   3.58156,    .25110,    .09675,
     +     .04435,    .19301,    .27692,
     +     .33675,    .19177,   3.58738,    .25509,    .10291,
     +     .05170,    .19795,    .28122,
     +     .34034,    .19328,   3.58679,    .25838,    .10813,
     +     .05799,    .20205,    .28474,
     +     .34354,    .19462,   3.58295,    .26124,    .11277,
     +     .06364,    .20566,    .28780,
     +     .34739,    .19618,   3.56950,    .26445,    .11814,
     +     .07012,    .20981,    .29126,
     +     .35087,    .19754,   3.55215,    .26721,    .12291,
     +     .07594,    .21344,    .29423,
     +     .35401,    .19876,   3.53274,    .26958,    .12718,
     +     .08120,    .21661,    .29677 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35698,    .19988,   3.50849,    .27167,    .13113,
     +     .08607,    .21947,    .29902,
     +     .35976,    .20091,   3.48173,    .27350,    .13476,
     +     .09058,    .22206,    .30098,
     +     .36231,    .20184,   3.45492,    .27510,    .13805,
     +     .09472,    .22437,    .30270,
     +     .36458,    .20263,   3.42590,    .27634,    .14085,
     +     .09825,    .22627,    .30404,
     +     .36682,    .20340,   3.39681,    .27754,    .14362,
     +     .10178,    .22812,    .30532,
     +     .36886,    .20407,   3.36481,    .27847,    .14604,
     +     .10490,    .22968,    .30633,
     +     .37079,    .20470,   3.33482,    .27931,    .14834,
     +     .10788,    .23112,    .30725,
     +     .37247,    .20522,   3.30375,    .27991,    .15025,
     +     .11038,    .23225,    .30788 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37416,    .20573,   3.27306,    .28048,    .15218,
     +     .11293,    .23339,    .30850,
     +     .37570,    .20618,   3.24060,    .28086,    .15387,
     +     .11520,    .23431,    .30891,
     +     .37716,    .20659,   3.20989,    .28119,    .15544,
     +     .11733,    .23515,    .30926,
     +     .37846,    .20694,   3.17992,    .28139,    .15682,
     +     .11923,    .23583,    .30949,
     +     .37972,    .20727,   3.14892,    .28152,    .15811,
     +     .12102,    .23643,    .30963 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28958,    .17184,   1.72730,    .14955,    .00000,
     +     .00000,    .08218,    .17144,
     +     .29545,    .17505,   1.90648,    .15315,    .00000,
     +     .00000,    .08674,    .17582,
     +     .30390,    .17949,   2.15372,    .15875,   -.00898,
     +     .00000,    .09375,    .18247,
     +     .30986,    .18255,   2.29779,    .16295,   -.00619,
     +     .00000,    .09898,    .18734,
     +     .31585,    .18557,   2.41838,    .16746,    .00175,
     +     .00000,    .10454,    .19251,
     +     .32089,    .18802,   2.50936,    .17127,    .00749,
     +     .00000,    .10926,    .19685,
     +     .32563,    .19029,   2.58763,    .17486,    .01316,
     +     .00000,    .11372,    .20092,
     +     .33052,    .19261,   2.66160,    .17859,    .01918,
     +     .00000,    .11837,    .20513 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33464,    .19452,   2.71713,    .18174,    .02413,
     +     .00000,    .12230,    .20866,
     +     .33849,    .19628,   2.76310,    .18466,    .02874,
     +     .00000,    .12597,    .21193,
     +     .34153,    .19763,   2.79726,    .18696,    .03249,
     +     .00000,    .12884,    .21449,
     +     .34767,    .20033,   2.86664,    .19162,    .03997,
     +     .00000,    .13475,    .21965,
     +     .35259,    .20244,   2.89371,    .19533,    .04604,
     +    -.00218,    .13950,    .22375,
     +     .35786,    .20462,   2.90872,    .19921,    .05253,
     +     .00656,    .14451,    .22801,
     +     .36307,    .20673,   2.91477,    .20286,    .05888,
     +     .01434,    .14932,    .23201,
     +     .36755,    .20848,   2.91235,    .20586,    .06428,
     +     .02098,    .15337,    .23529 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37184,    .21011,   2.90348,    .20862,    .06943,
     +     .02732,    .15714,    .23829,
     +     .37524,    .21136,   2.89189,    .21069,    .07345,
     +     .03229,    .16004,    .24054,
     +     .37910,    .21274,   2.87184,    .21289,    .07796,
     +     .03783,    .16323,    .24293,
     +     .38234,    .21385,   2.85054,    .21463,    .08171,
     +     .04250,    .16583,    .24480,
     +     .38521,    .21481,   2.82919,    .21608,    .08502,
     +     .04667,    .16806,    .24638,
     +     .38856,    .21588,   2.79680,    .21761,    .08880,
     +     .05141,    .17054,    .24799,
     +     .39153,    .21678,   2.76383,    .21882,    .09211,
     +     .05561,    .17263,    .24928,
     +     .39417,    .21754,   2.73141,    .21979,    .09503,
     +     .05939,    .17441,    .25031 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39661,    .21819,   2.69625,    .22053,    .09770,
     +     .06283,    .17594,    .25108,
     +     .39884,    .21875,   2.66046,    .22110,    .10010,
     +     .06599,    .17727,    .25166,
     +     .40085,    .21925,   2.62618,    .22153,    .10227,
     +     .06887,    .17841,    .25209,
     +     .40257,    .21960,   2.59175,    .22174,    .10407,
     +     .07129,    .17927,    .25228,
     +     .40426,    .21994,   2.55768,    .22189,    .10584,
     +     .07370,    .18009,    .25243,
     +     .40574,    .22018,   2.52236,    .22188,    .10735,
     +     .07580,    .18070,    .25238,
     +     .40713,    .22040,   2.48949,    .22184,    .10877,
     +     .07779,    .18125,    .25231,
     +     .40827,    .22052,   2.45695,    .22165,    .10992,
     +     .07945,    .18161,    .25207 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40942,    .22064,   2.42490,    .22146,    .11108,
     +     .08112,    .18196,    .25181,
     +     .41041,    .22069,   2.39221,    .22112,    .11205,
     +     .08257,    .18214,    .25140,
     +     .41132,    .22073,   2.36151,    .22077,    .11296,
     +     .08395,    .18229,    .25098,
     +     .41211,    .22072,   2.33210,    .22037,    .11373,
     +     .08514,    .18235,    .25051,
     +     .41284,    .22068,   2.30218,    .21991,    .11443,
     +     .08627,    .18235,    .24997 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .35491,    .20850,   1.76248,    .12561,    .00000,
     +     .00000,    .06867,    .15617,
     +     .36197,    .21186,   1.85747,    .12811,    .00000,
     +     .00000,    .07235,    .15940,
     +     .37177,    .21632,   1.99466,    .13175,   -.01196,
     +     .00000,    .07769,    .16398,
     +     .37843,    .21920,   2.05857,    .13436,   -.00944,
     +     .00000,    .08151,    .16718,
     +     .38495,    .22196,   2.10380,    .13707,   -.00329,
     +     .00000,    .08545,    .17039,
     +     .39028,    .22412,   2.13401,    .13928,    .00113,
     +     .00000,    .08869,    .17297,
     +     .39516,    .22604,   2.15698,    .14130,    .00538,
     +     .00000,    .09167,    .17529,
     +     .40012,    .22793,   2.17552,    .14330,    .00983,
     +     .00000,    .09469,    .17759 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40420,    .22944,   2.18618,    .14493,    .01342,
     +     .00000,    .09718,    .17943,
     +     .40792,    .23077,   2.19187,    .14640,    .01672,
     +     .00000,    .09944,    .18105,
     +     .41078,    .23178,   2.19505,    .14752,    .01937,
     +     .00000,    .10120,    .18228,
     +     .41647,    .23365,   2.20107,    .14968,    .02458,
     +     .00000,    .10466,    .18464,
     +     .42081,    .23496,   2.18996,    .15130,    .02871,
     +    -.00391,    .10734,    .18634,
     +     .42529,    .23622,   2.16357,    .15285,    .03304,
     +     .00206,    .11006,    .18794,
     +     .42952,    .23731,   2.13192,    .15417,    .03718,
     +     .00729,    .11256,    .18925,
     +     .43301,    .23812,   2.09987,    .15512,    .04063,
     +     .01169,    .11455,    .19016 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .43622,    .23877,   2.06506,    .15586,    .04385,
     +     .01582,    .11630,    .19082,
     +     .43865,    .23917,   2.03469,    .15633,    .04632,
     +     .01901,    .11760,    .19119,
     +     .44125,    .23951,   1.99555,    .15669,    .04903,
     +     .02251,    .11891,    .19141,
     +     .44334,    .23970,   1.96003,    .15684,    .05126,
     +     .02542,    .11991,    .19142,
     +     .44510,    .23979,   1.92731,    .15690,    .05317,
     +     .02798,    .12071,    .19133,
     +     .44697,    .23976,   1.88398,    .15677,    .05531,
     +     .03084,    .12148,    .19095,
     +     .44851,    .23962,   1.84295,    .15650,    .05714,
     +     .03334,    .12203,    .19046,
     +     .44977,    .23940,   1.80465,    .15614,    .05873,
     +     .03556,    .12243,    .18989 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45078,    .23907,   1.76584,    .15566,    .06012,
     +     .03753,    .12268,    .18915,
     +     .45159,    .23865,   1.72796,    .15509,    .06135,
     +     .03932,    .12281,    .18832,
     +     .45225,    .23822,   1.69263,    .15449,    .06243,
     +     .04093,    .12286,    .18748,
     +     .45265,    .23771,   1.65888,    .15381,    .06329,
     +     .04225,    .12277,    .18655,
     +     .45301,    .23720,   1.62589,    .15311,    .06413,
     +     .04355,    .12265,    .18561,
     +     .45315,    .23658,   1.59308,    .15232,    .06481,
     +     .04466,    .12242,    .18456,
     +     .45326,    .23600,   1.56281,    .15156,    .06543,
     +     .04570,    .12219,    .18355,
     +     .45318,    .23537,   1.53386,    .15076,    .06592,
     +     .04655,    .12188,    .18250 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45310,    .23474,   1.50551,    .14995,    .06639,
     +     .04739,    .12154,    .18145,
     +     .45287,    .23404,   1.47740,    .14907,    .06675,
     +     .04811,    .12113,    .18032,
     +     .45262,    .23336,   1.45120,    .14823,    .06708,
     +     .04877,    .12073,    .17926,
     +     .45229,    .23268,   1.42655,    .14741,    .06734,
     +     .04934,    .12030,    .17821,
     +     .45188,    .23197,   1.40184,    .14653,    .06755,
     +     .04985,    .11984,    .17710 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .40987,    .23652,   1.67113,    .10708,    .00000,
     +     .00000,    .05952,    .14479,
     +     .41754,    .23962,   1.71467,    .10868,    .00000,
     +     .00000,    .06241,    .14687,
     +     .42778,    .24353,   1.78491,    .11091,   -.01241,
     +     .00000,    .06644,    .14961,
     +     .43445,    .24586,   1.80429,    .11242,   -.01014,
     +     .00000,    .06922,    .15137,
     +     .44081,    .24797,   1.80931,    .11397,   -.00523,
     +     .00000,    .07201,    .15307,
     +     .44584,    .24954,   1.80838,    .11515,   -.00174,
     +     .00000,    .07423,    .15432,
     +     .45033,    .25085,   1.80386,    .11617,    .00160,
     +     .00000,    .07622,    .15535,
     +     .45477,    .25206,   1.79565,    .11715,    .00502,
     +     .00000,    .07819,    .15630 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45831,    .25293,   1.78537,    .11789,    .00775,
     +     .00000,    .07977,    .15698,
     +     .46145,    .25364,   1.77286,    .11851,    .01024,
     +     .00000,    .08116,    .15748,
     +     .46382,    .25415,   1.76237,    .11896,    .01222,
     +     .00000,    .08222,    .15784,
     +     .46830,    .25492,   1.74080,    .11975,    .01606,
     +     .00000,    .08426,    .15840,
     +     .47147,    .25526,   1.71456,    .12024,    .01906,
     +    -.00421,    .08575,    .15862,
     +     .47454,    .25541,   1.67359,    .12058,    .02215,
     +     .00013,    .08720,    .15860,
     +     .47722,    .25533,   1.62973,    .12075,    .02506,
     +     .00389,    .08844,    .15833,
     +     .47923,    .25507,   1.58907,    .12070,    .02745,
     +     .00701,    .08932,    .15788 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .48089,    .25462,   1.54764,    .12050,    .02964,
     +     .00990,    .09004,    .15726,
     +     .48201,    .25414,   1.51316,    .12022,    .03130,
     +     .01211,    .09051,    .15663,
     +     .48299,    .25337,   1.47088,    .11975,    .03309,
     +     .01451,    .09090,    .15569,
     +     .48357,    .25260,   1.43379,    .11924,    .03453,
     +     .01649,    .09111,    .15474,
     +     .48394,    .25184,   1.40040,    .11873,    .03575,
     +     .01820,    .09124,    .15381,
     +     .48403,    .25069,   1.35781,    .11790,    .03709,
     +     .02009,    .09122,    .15248,
     +     .48388,    .24951,   1.31849,    .11707,    .03822,
     +     .02173,    .09110,    .15112,
     +     .48355,    .24834,   1.28249,    .11622,    .03917,
     +     .02316,    .09092,    .14980 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48296,    .24707,   1.24687,    .11529,    .03998,
     +     .02441,    .09061,    .14840,
     +     .48220,    .24576,   1.21270,    .11432,    .04068,
     +     .02553,    .09024,    .14697,
     +     .48137,    .24448,   1.18125,    .11337,    .04127,
     +     .02652,    .08986,    .14558,
     +     .48036,    .24319,   1.15180,    .11243,    .04174,
     +     .02734,    .08940,    .14419,
     +     .47931,    .24189,   1.12320,    .11148,    .04218,
     +     .02813,    .08894,    .14281,
     +     .47808,    .24052,   1.09526,    .11047,    .04251,
     +     .02878,    .08840,    .14139,
     +     .47688,    .23923,   1.06962,    .10952,    .04281,
     +     .02938,    .08789,    .14005,
     +     .47557,    .23793,   1.04550,    .10857,    .04302,
     +     .02987,    .08735,    .13872 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47426,    .23664,   1.02198,    .10763,    .04322,
     +     .03035,    .08680,    .13739,
     +     .47279,    .23531,    .99896,    .10665,    .04335,
     +     .03074,    .08621,    .13604,
     +     .47137,    .23403,    .97763,    .10573,    .04346,
     +     .03110,    .08564,    .13476,
     +     .46994,    .23280,    .95774,    .10484,    .04353,
     +     .03140,    .08508,    .13353,
     +     .46845,    .23153,    .93795,    .10392,    .04358,
     +     .03168,    .08450,    .13227 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45758,    .25854,   1.52701,    .09189,    .00000,
     +     .00000,    .05262,    .13484,
     +     .46536,    .26109,   1.53966,    .09277,    .00000,
     +     .00000,    .05479,    .13578,
     +     .47530,    .26402,   1.56927,    .09392,   -.01178,
     +     .00000,    .05769,    .13685,
     +     .48143,    .26562,   1.56393,    .09468,   -.00979,
     +     .00000,    .05964,    .13736,
     +     .48713,    .26684,   1.54786,    .09539,   -.00583,
     +     .00000,    .06153,    .13786,
     +     .49140,    .26765,   1.53091,    .09591,   -.00299,
     +     .00000,    .06300,    .13802,
     +     .49508,    .26821,   1.51274,    .09631,   -.00034,
     +     .00000,    .06428,    .13807,
     +     .49858,    .26857,   1.49173,    .09663,    .00235,
     +     .00000,    .06551,    .13800 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .50124,    .26872,   1.47178,    .09682,    .00450,
     +     .00000,    .06646,    .13782,
     +     .50346,    .26871,   1.45118,    .09693,    .00643,
     +     .00000,    .06728,    .13755,
     +     .50508,    .26863,   1.43475,    .09699,    .00795,
     +     .00000,    .06788,    .13729,
     +     .50788,    .26819,   1.40159,    .09699,    .01088,
     +     .00000,    .06900,    .13659,
     +     .50952,    .26746,   1.36995,    .09686,    .01313,
     +    -.00404,    .06974,    .13584,
     +     .51080,    .26645,   1.32510,    .09657,    .01543,
     +    -.00078,    .07039,    .13481,
     +     .51157,    .26515,   1.27888,    .09609,    .01758,
     +     .00203,    .07087,    .13356,
     +     .51183,    .26378,   1.23734,    .09554,    .01930,
     +     .00434,    .07115,    .13229 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .51169,    .26225,   1.19611,    .09490,    .02087,
     +     .00645,    .07128,    .13090,
     +     .51129,    .26088,   1.16251,    .09428,    .02205,
     +     .00806,    .07129,    .12969,
     +     .51041,    .25908,   1.12222,    .09345,    .02329,
     +     .00979,    .07118,    .12810,
     +     .50936,    .25739,   1.08746,    .09264,    .02428,
     +     .01119,    .07100,    .12664,
     +     .50826,    .25579,   1.05652,    .09187,    .02511,
     +     .01241,    .07077,    .12528,
     +     .50645,    .25362,   1.01782,    .09081,    .02600,
     +     .01373,    .07037,    .12346,
     +     .50452,    .25151,    .98258,    .08976,    .02674,
     +     .01487,    .06993,    .12170,
     +     .50253,    .24948,    .95067,    .08876,    .02734,
     +     .01583,    .06946,    .12003 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50032,    .24737,    .91952,    .08769,    .02785,
     +     .01668,    .06892,    .11833,
     +     .49797,    .24526,    .88994,    .08664,    .02827,
     +     .01743,    .06835,    .11663,
     +     .49565,    .24326,    .86295,    .08564,    .02863,
     +     .01810,    .06778,    .11502,
     +     .49327,    .24128,    .83797,    .08463,    .02888,
     +     .01861,    .06720,    .11348,
     +     .49088,    .23930,    .81384,    .08363,    .02912,
     +     .01912,    .06662,    .11195,
     +     .48830,    .23729,    .79052,    .08261,    .02929,
     +     .01954,    .06597,    .11042,
     +     .48586,    .23541,    .76919,    .08166,    .02943,
     +     .01992,    .06538,    .10898,
     +     .48336,    .23357,    .74933,    .08073,    .02952,
     +     .02022,    .06478,    .10759 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48087,    .23174,    .73003,    .07982,    .02960,
     +     .02050,    .06417,    .10621,
     +     .47827,    .22988,    .71131,    .07889,    .02963,
     +     .02074,    .06356,    .10483,
     +     .47580,    .22811,    .69403,    .07801,    .02964,
     +     .02094,    .06296,    .10352,
     +     .47338,    .22643,    .67800,    .07717,    .02964,
     +     .02111,    .06239,    .10229,
     +     .47088,    .22470,    .66215,    .07631,    .02962,
     +     .02126,    .06180,    .10104 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50859,    .27881,   1.33234,    .07593,    .00000,
     +     .00000,    .04538,    .12215,
     +     .51561,    .28030,   1.32359,    .07620,    .00000,
     +     .00000,    .04678,    .12190,
     +     .52401,    .28165,   1.32428,    .07655,   -.01049,
     +     .00000,    .04860,    .12118,
     +     .52879,    .28203,   1.30324,    .07669,   -.00882,
     +     .00000,    .04976,    .12055,
     +     .53286,    .28203,   1.27453,    .07684,   -.00572,
     +     .00000,    .05089,    .11979,
     +     .53570,    .28168,   1.24849,    .07682,   -.00352,
     +     .00000,    .05171,    .11905,
     +     .53791,    .28115,   1.22284,    .07677,   -.00148,
     +     .00000,    .05239,    .11826,
     +     .53975,    .28041,   1.19516,    .07664,    .00057,
     +     .00000,    .05302,    .11731 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .54091,    .27958,   1.17050,    .07647,    .00220,
     +     .00000,    .05347,    .11641,
     +     .54166,    .27863,   1.14623,    .07627,    .00365,
     +     .00000,    .05383,    .11550,
     +     .54211,    .27782,   1.12731,    .07607,    .00478,
     +     .00000,    .05406,    .11476,
     +     .54237,    .27582,   1.08926,    .07556,    .00694,
     +     .00000,    .05446,    .11312,
     +     .54177,    .27383,   1.05653,    .07503,    .00859,
     +    -.00358,    .05466,    .11162,
     +     .54056,    .27137,   1.01262,    .07435,    .01024,
     +    -.00121,    .05474,    .10986,
     +     .53875,    .26863,    .96840,    .07354,    .01175,
     +     .00081,    .05469,    .10795,
     +     .53661,    .26602,    .92956,    .07274,    .01295,
     +     .00245,    .05452,    .10614 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .53406,    .26328,    .89167,    .07186,    .01404,
     +     .00396,    .05426,    .10426,
     +     .53170,    .26094,    .86123,    .07109,    .01484,
     +     .00508,    .05399,    .10269,
     +     .52849,    .25793,    .82534,    .07009,    .01567,
     +     .00627,    .05357,    .10074,
     +     .52543,    .25523,    .79479,    .06917,    .01632,
     +     .00723,    .05314,    .09901,
     +     .52249,    .25273,    .76787,    .06832,    .01685,
     +     .00805,    .05272,    .09744,
     +     .51837,    .24948,    .73468,    .06719,    .01742,
     +     .00894,    .05211,    .09541,
     +     .51431,    .24637,    .70480,    .06611,    .01787,
     +     .00969,    .05150,    .09350,
     +     .51039,    .24344,    .67802,    .06510,    .01823,
     +     .01033,    .05089,    .09172 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50627,    .24049,    .65220,    .06405,    .01853,
     +     .01088,    .05025,    .08993,
     +     .50209,    .23755,    .62790,    .06302,    .01876,
     +     .01134,    .04960,    .08819,
     +     .49809,    .23480,    .60587,    .06205,    .01895,
     +     .01176,    .04899,    .08655,
     +     .49416,    .23214,    .58570,    .06111,    .01907,
     +     .01208,    .04837,    .08503,
     +     .49024,    .22949,    .56632,    .06017,    .01918,
     +     .01239,    .04774,    .08354,
     +     .48618,    .22688,    .54776,    .05925,    .01924,
     +     .01263,    .04712,    .08203,
     +     .48236,    .22442,    .53088,    .05839,    .01931,
     +     .01286,    .04652,    .08064,
     +     .47859,    .22206,    .51529,    .05757,    .01931,
     +     .01303,    .04595,    .07932 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47486,    .21973,    .50019,    .05674,    .01932,
     +     .01319,    .04536,    .07800,
     +     .47106,    .21738,    .48565,    .05592,    .01930,
     +     .01331,    .04478,    .07672,
     +     .46745,    .21517,    .47229,    .05515,    .01926,
     +     .01341,    .04423,    .07551,
     +     .46398,    .21306,    .45996,    .05442,    .01922,
     +     .01350,    .04370,    .07438,
     +     .46043,    .21093,    .44784,    .05367,    .01917,
     +     .01357,    .04316,    .07325 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .55143,    .29270,   1.15009,    .06269,    .00000,
     +     .00000,    .03896,    .10887,
     +     .55689,    .29297,   1.13057,    .06264,    .00000,
     +     .00000,    .03981,    .10761,
     +     .56285,    .29237,   1.11600,    .06241,   -.00920,
     +     .00000,    .04084,    .10571,
     +     .56569,    .29138,   1.08788,    .06227,   -.00779,
     +     .00000,    .04150,    .10427,
     +     .56762,    .29000,   1.05429,    .06204,   -.00533,
     +     .00000,    .04210,    .10275,
     +     .56855,    .28850,   1.02498,    .06181,   -.00357,
     +     .00000,    .04251,    .10135,
     +     .56890,    .28685,    .99698,    .06151,   -.00197,
     +     .00000,    .04281,    .10000,
     +     .56877,    .28492,    .96747,    .06115,   -.00036,
     +     .00000,    .04304,    .09856 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56820,    .28311,    .94183,    .06078,    .00089,
     +     .00000,    .04320,    .09727,
     +     .56729,    .28122,    .91713,    .06039,    .00201,
     +     .00000,    .04328,    .09602,
     +     .56642,    .27967,    .89806,    .06007,    .00287,
     +     .00000,    .04332,    .09502,
     +     .56381,    .27623,    .85985,    .05936,    .00451,
     +     .00000,    .04330,    .09285,
     +     .56084,    .27302,    .82852,    .05868,    .00575,
     +    -.00310,    .04320,    .09099,
     +     .55698,    .26926,    .78786,    .05787,    .00697,
     +    -.00133,    .04298,    .08889,
     +     .55243,    .26525,    .74755,    .05694,    .00808,
     +     .00017,    .04264,    .08666,
     +     .54794,    .26151,    .71258,    .05604,    .00895,
     +     .00138,    .04226,    .08468 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .54308,    .25767,    .67889,    .05510,    .00972,
     +     .00247,    .04182,    .08267,
     +     .53882,    .25445,    .65213,    .05431,    .01027,
     +     .00327,    .04141,    .08100,
     +     .53335,    .25048,    .62093,    .05331,    .01085,
     +     .00413,    .04084,    .07899,
     +     .52831,    .24696,    .59460,    .05241,    .01129,
     +     .00481,    .04032,    .07723,
     +     .52361,    .24375,    .57157,    .05159,    .01165,
     +     .00538,    .03983,    .07564,
     +     .51738,    .23959,    .54349,    .05051,    .01202,
     +     .00600,    .03916,    .07363,
     +     .51139,    .23571,    .51845,    .04951,    .01230,
     +     .00651,    .03851,    .07176,
     +     .50570,    .23209,    .49618,    .04857,    .01253,
     +     .00694,    .03789,    .07004 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49988,    .22845,    .47488,    .04762,    .01271,
     +     .00732,    .03725,    .06836,
     +     .49411,    .22490,    .45502,    .04668,    .01283,
     +     .00762,    .03662,    .06672,
     +     .48864,    .22159,    .43712,    .04580,    .01293,
     +     .00789,    .03602,    .06521,
     +     .48336,    .21846,    .42082,    .04497,    .01300,
     +     .00810,    .03544,    .06380,
     +     .47810,    .21537,    .40525,    .04415,    .01305,
     +     .00830,    .03487,    .06241,
     +     .47281,    .21229,    .39050,    .04335,    .01305,
     +     .00845,    .03428,    .06107,
     +     .46784,    .20942,    .37712,    .04260,    .01306,
     +     .00858,    .03374,    .05981,
     +     .46305,    .20669,    .36481,    .04188,    .01304,
     +     .00867,    .03322,    .05864 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45828,    .20401,    .35295,    .04117,    .01301,
     +     .00876,    .03270,    .05749,
     +     .45349,    .20132,    .34160,    .04047,    .01298,
     +     .00883,    .03219,    .05636,
     +     .44897,    .19880,    .33120,    .03983,    .01293,
     +     .00889,    .03169,    .05530,
     +     .44466,    .19643,    .32165,    .03921,    .01288,
     +     .00893,    .03124,    .05432,
     +     .44029,    .19405,    .31231,    .03860,    .01281,
     +     .00896,    .03077,    .05333 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .58641,    .30129,    .99142,    .05176,    .00000,
     +     .00000,    .03301,    .09501,
     +     .58980,    .30013,    .96652,    .05151,    .00000,
     +     .00000,    .03346,    .09314,
     +     .59246,    .29756,    .94365,    .05111,   -.00807,
     +     .00000,    .03401,    .09037,
     +     .59290,    .29515,    .91267,    .05075,   -.00686,
     +     .00000,    .03432,    .08843,
     +     .59234,    .29238,    .87761,    .05040,   -.00487,
     +     .00000,    .03453,    .08649,
     +     .59106,    .28972,    .84760,    .05003,   -.00344,
     +     .00000,    .03468,    .08479,
     +     .58933,    .28701,    .81939,    .04965,   -.00215,
     +     .00000,    .03475,    .08316,
     +     .58699,    .28399,    .79012,    .04919,   -.00088,
     +     .00000,    .03476,    .08145 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .58454,    .28125,    .76508,    .04875,    .00011,
     +     .00000,    .03471,    .07998,
     +     .58183,    .27851,    .74123,    .04830,    .00100,
     +     .00000,    .03463,    .07857,
     +     .57954,    .27630,    .72294,    .04795,    .00167,
     +     .00000,    .03456,    .07744,
     +     .57405,    .27150,    .68647,    .04715,    .00294,
     +     .00000,    .03429,    .07512,
     +     .56866,    .26722,    .65736,    .04643,    .00389,
     +    -.00266,    .03401,    .07316,
     +     .56221,    .26233,    .62056,    .04554,    .00482,
     +    -.00132,    .03364,    .07099,
     +     .55507,    .25720,    .58445,    .04462,    .00565,
     +    -.00017,    .03318,    .06876,
     +     .54826,    .25254,    .55349,    .04375,    .00630,
     +     .00073,    .03271,    .06676 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .54116,    .24783,    .52390,    .04287,    .00685,
     +     .00154,    .03220,    .06477,
     +     .53514,    .24390,    .50063,    .04210,    .00726,
     +     .00214,    .03175,    .06318,
     +     .52759,    .23914,    .47374,    .04115,    .00767,
     +     .00277,    .03117,    .06128,
     +     .52083,    .23495,    .45126,    .04033,    .00798,
     +     .00326,    .03064,    .05961,
     +     .51460,    .23116,    .43174,    .03958,    .00823,
     +     .00368,    .03015,    .05812,
     +     .50651,    .22633,    .40814,    .03858,    .00847,
     +     .00412,    .02950,    .05627,
     +     .49883,    .22186,    .38726,    .03765,    .00865,
     +     .00447,    .02889,    .05458,
     +     .49164,    .21774,    .36882,    .03682,    .00880,
     +     .00477,    .02831,    .05302 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48439,    .21361,    .35131,    .03597,    .00890,
     +     .00502,    .02772,    .05151,
     +     .47727,    .20964,    .33506,    .03516,    .00897,
     +     .00523,    .02713,    .05008,
     +     .47058,    .20595,    .32051,    .03441,    .00902,
     +     .00542,    .02659,    .04874,
     +     .46419,    .20248,    .30741,    .03368,    .00905,
     +     .00555,    .02607,    .04752,
     +     .45787,    .19908,    .29495,    .03298,    .00905,
     +     .00567,    .02557,    .04632,
     +     .45159,    .19572,    .28315,    .03229,    .00905,
     +     .00577,    .02505,    .04517,
     +     .44573,    .19259,    .27249,    .03165,    .00903,
     +     .00585,    .02458,    .04409,
     +     .44013,    .18963,    .26280,    .03104,    .00900,
     +     .00590,    .02414,    .04310 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43458,    .18671,    .25347,    .03045,    .00897,
     +     .00596,    .02371,    .04211,
     +     .42905,    .18384,    .24460,    .02985,    .00892,
     +     .00600,    .02327,    .04116,
     +     .42385,    .18116,    .23649,    .02930,    .00888,
     +     .00603,    .02285,    .04028,
     +     .41892,    .17863,    .22908,    .02877,    .00882,
     +     .00604,    .02247,    .03945,
     +     .41395,    .17609,    .22187,    .02826,    .00877,
     +     .00606,    .02208,    .03864 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .61401,    .30513,    .85656,    .04275,    .00000,
     +     .00000,    .02755,    .08101,
     +     .61481,    .30252,    .82879,    .04245,    .00000,
     +     .00000,    .02776,    .07881,
     +     .61363,    .29796,    .80115,    .04195,   -.00712,
     +     .00000,    .02796,    .07571,
     +     .61136,    .29420,    .76912,    .04154,   -.00607,
     +     .00000,    .02805,    .07358,
     +     .60805,    .29004,    .73406,    .04111,   -.00442,
     +     .00000,    .02814,    .07142,
     +     .60446,    .28627,    .70453,    .04067,   -.00325,
     +     .00000,    .02812,    .06964,
     +     .60052,    .28256,    .67707,    .04024,   -.00219,
     +     .00000,    .02804,    .06795,
     +     .59588,    .27855,    .64886,    .03975,   -.00116,
     +     .00000,    .02792,    .06618 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .59151,    .27495,    .62500,    .03931,   -.00035,
     +     .00000,    .02778,    .06466,
     +     .58701,    .27143,    .60254,    .03885,    .00035,
     +     .00000,    .02761,    .06324,
     +     .58333,    .26863,    .58537,    .03848,    .00089,
     +     .00000,    .02747,    .06214,
     +     .57499,    .26264,    .55121,    .03763,    .00189,
     +     .00000,    .02711,    .05988,
     +     .56729,    .25745,    .52474,    .03694,    .00263,
     +    -.00228,    .02676,    .05797,
     +     .55836,    .25161,    .49177,    .03608,    .00334,
     +    -.00124,    .02634,    .05592,
     +     .54877,    .24560,    .45971,    .03521,    .00397,
     +    -.00036,    .02584,    .05380,
     +     .53991,    .24017,    .43252,    .03438,    .00447,
     +     .00034,    .02534,    .05196 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .53085,    .23471,    .40679,    .03350,    .00488,
     +     .00095,    .02483,    .05020,
     +     .52322,    .23027,    .38675,    .03280,    .00517,
     +     .00139,    .02438,    .04874,
     +     .51386,    .22491,    .36374,    .03196,    .00547,
     +     .00186,    .02383,    .04700,
     +     .50555,    .22025,    .34466,    .03120,    .00569,
     +     .00223,    .02333,    .04552,
     +     .49798,    .21605,    .32821,    .03052,    .00586,
     +     .00252,    .02287,    .04422,
     +     .48829,    .21076,    .30847,    .02965,    .00602,
     +     .00284,    .02229,    .04258,
     +     .47923,    .20587,    .29112,    .02884,    .00614,
     +     .00310,    .02174,    .04111,
     +     .47081,    .20138,    .27591,    .02811,    .00623,
     +     .00331,    .02120,    .03979 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46238,    .19697,    .26158,    .02738,    .00630,
     +     .00349,    .02068,    .03850,
     +     .45420,    .19272,    .24839,    .02667,    .00634,
     +     .00364,    .02018,    .03728,
     +     .44659,    .18877,    .23665,    .02601,    .00636,
     +     .00376,    .01972,    .03616,
     +     .43937,    .18510,    .22612,    .02538,    .00636,
     +     .00385,    .01928,    .03513,
     +     .43225,    .18150,    .21613,    .02479,    .00636,
     +     .00393,    .01884,    .03412,
     +     .42525,    .17799,    .20678,    .02419,    .00634,
     +     .00399,    .01843,    .03314,
     +     .41872,    .17474,    .19837,    .02365,    .00631,
     +     .00403,    .01803,    .03225,
     +     .41251,    .17167,    .19073,    .02313,    .00628,
     +     .00407,    .01765,    .03144 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40639,    .16865,    .18340,    .02263,    .00625,
     +     .00411,    .01727,    .03066,
     +     .40032,    .16569,    .17649,    .02214,    .00620,
     +     .00412,    .01691,    .02989,
     +     .39464,    .16292,    .17017,    .02170,    .00616,
     +     .00414,    .01658,    .02917,
     +     .38928,    .16034,    .16445,    .02128,    .00611,
     +     .00414,    .01626,    .02849,
     +     .38390,    .15777,    .15888,    .02087,    .00606,
     +     .00414,    .01595,    .02782 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .63431,    .30490,    .74172,    .03541,    .00000,
     +     .00000,    .02253,    .06745,
     +     .63214,    .30086,    .71235,    .03507,    .00000,
     +     .00000,    .02265,    .06518,
     +     .62690,    .29424,    .68174,    .03450,   -.00631,
     +     .00000,    .02277,    .06203,
     +     .62176,    .28920,    .64957,    .03404,   -.00538,
     +     .00000,    .02273,    .05995,
     +     .61551,    .28386,    .61526,    .03359,   -.00399,
     +     .00000,    .02269,    .05785,
     +     .60958,    .27902,    .58671,    .03314,   -.00301,
     +     .00000,    .02257,    .05614,
     +     .60347,    .27437,    .56041,    .03268,   -.00214,
     +     .00000,    .02244,    .05452,
     +     .59663,    .26942,    .53368,    .03218,   -.00129,
     +     .00000,    .02228,    .05285 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .59037,    .26511,    .51134,    .03171,   -.00064,
     +     .00000,    .02209,    .05147,
     +     .58408,    .26093,    .49046,    .03126,   -.00007,
     +     .00000,    .02190,    .05014,
     +     .57905,    .25766,    .47464,    .03090,    .00037,
     +     .00000,    .02171,    .04911,
     +     .56798,    .25069,    .44329,    .03012,    .00117,
     +     .00000,    .02134,    .04698,
     +     .55819,    .24473,    .41925,    .02941,    .00175,
     +    -.00194,    .02099,    .04528,
     +     .54698,    .23819,    .38997,    .02865,    .00232,
     +    -.00111,    .02053,    .04340,
     +     .53522,    .23144,    .36185,    .02779,    .00280,
     +    -.00043,    .02004,    .04156,
     +     .52450,    .22543,    .33820,    .02704,    .00317,
     +     .00009,    .01958,    .03995 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .51366,    .21950,    .31606,    .02628,    .00349,
     +     .00057,    .01909,    .03834,
     +     .50470,    .21470,    .29886,    .02566,    .00370,
     +     .00090,    .01869,    .03708,
     +     .49379,    .20893,    .27938,    .02488,    .00392,
     +     .00126,    .01818,    .03560,
     +     .48425,    .20392,    .26332,    .02421,    .00407,
     +     .00152,    .01773,    .03435,
     +     .47565,    .19943,    .24955,    .02359,    .00419,
     +     .00174,    .01733,    .03324,
     +     .46465,    .19386,    .23319,    .02285,    .00431,
     +     .00198,    .01681,    .03186,
     +     .45448,    .18872,    .21894,    .02215,    .00438,
     +     .00216,    .01633,    .03063,
     +     .44510,    .18404,    .20653,    .02151,    .00444,
     +     .00231,    .01588,    .02952 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43581,    .17946,    .19489,    .02085,    .00448,
     +     .00244,    .01543,    .02847,
     +     .42683,    .17508,    .18427,    .02025,    .00449,
     +     .00254,    .01500,    .02746,
     +     .41847,    .17103,    .17484,    .01972,    .00451,
     +     .00262,    .01460,    .02654,
     +     .41067,    .16727,    .16646,    .01919,    .00449,
     +     .00268,    .01423,    .02568,
     +     .40301,    .16361,    .15853,    .01869,    .00449,
     +     .00274,    .01387,    .02487,
     +     .39548,    .16005,    .15116,    .01818,    .00446,
     +     .00278,    .01351,    .02411,
     +     .38850,    .15677,    .14456,    .01772,    .00444,
     +     .00281,    .01317,    .02340,
     +     .38190,    .15368,    .13859,    .01731,    .00440,
     +     .00282,    .01288,    .02275 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37540,    .15066,    .13290,    .01690,    .00437,
     +     .00284,    .01259,    .02210,
     +     .36903,    .14770,    .12752,    .01650,    .00433,
     +     .00285,    .01229,    .02149,
     +     .36307,    .14495,    .12266,    .01612,    .00429,
     +     .00285,    .01201,    .02093,
     +     .35747,    .14237,    .11823,    .01576,    .00425,
     +     .00285,    .01175,    .02041,
     +     .35184,    .13982,    .11396,    .01542,    .00421,
     +     .00285,    .01151,    .01990 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64774,    .30082,    .64193,    .02912,    .00000,
     +     .00000,    .01829,    .05495,
     +     .64243,    .29543,    .61175,    .02884,    .00000,
     +     .00000,    .01831,    .05280,
     +     .63273,    .28707,    .57949,    .02827,   -.00558,
     +     .00000,    .01825,    .04990,
     +     .62465,    .28084,    .54776,    .02787,   -.00474,
     +     .00000,    .01819,    .04796,
     +     .61554,    .27437,    .51474,    .02747,   -.00359,
     +     .00000,    .01808,    .04599,
     +     .60713,    .26879,    .48754,    .02707,   -.00275,
     +     .00000,    .01795,    .04435,
     +     .59886,    .26341,    .46281,    .02662,   -.00202,
     +     .00000,    .01778,    .04290,
     +     .58984,    .25770,    .43791,    .02614,   -.00132,
     +     .00000,    .01758,    .04142 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .58182,    .25278,    .41722,    .02572,   -.00078,
     +     .00000,    .01741,    .04011,
     +     .57393,    .24807,    .39805,    .02528,   -.00032,
     +     .00000,    .01720,    .03894,
     +     .56767,    .24440,    .38362,    .02493,    .00003,
     +     .00000,    .01701,    .03805,
     +     .55415,    .23668,    .35515,    .02419,    .00068,
     +     .00000,    .01662,    .03621,
     +     .54237,    .23019,    .33378,    .02357,    .00114,
     +    -.00163,    .01627,    .03471,
     +     .52924,    .22305,    .30809,    .02283,    .00159,
     +    -.00098,    .01586,    .03311,
     +     .51562,    .21580,    .28365,    .02205,    .00196,
     +    -.00045,    .01540,    .03154,
     +     .50333,    .20943,    .26332,    .02138,    .00224,
     +    -.00005,    .01497,    .03017 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49104,    .20317,    .24443,    .02071,    .00249,
     +     .00032,    .01455,    .02883,
     +     .48098,    .19808,    .22991,    .02015,    .00265,
     +     .00058,    .01420,    .02776,
     +     .46888,    .19207,    .21356,    .01948,    .00281,
     +     .00084,    .01377,    .02652,
     +     .45837,    .18688,    .20023,    .01888,    .00292,
     +     .00104,    .01337,    .02549,
     +     .44894,    .18224,    .18886,    .01833,    .00300,
     +     .00120,    .01302,    .02460,
     +     .43704,    .17651,    .17546,    .01766,    .00309,
     +     .00138,    .01256,    .02351,
     +     .42604,    .17130,    .16385,    .01706,    .00313,
     +     .00151,    .01215,    .02252,
     +     .41596,    .16656,    .15383,    .01652,    .00317,
     +     .00162,    .01177,    .02162 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40609,    .16194,    .14452,    .01596,    .00319,
     +     .00171,    .01142,    .02073,
     +     .39657,    .15755,    .13605,    .01545,    .00320,
     +     .00178,    .01107,    .01992,
     +     .38777,    .15352,    .12859,    .01500,    .00319,
     +     .00183,    .01074,    .01918,
     +     .37957,    .14977,    .12198,    .01456,    .00319,
     +     .00188,    .01043,    .01853,
     +     .37156,    .14612,    .11576,    .01414,    .00317,
     +     .00191,    .01013,    .01792,
     +     .36376,    .14261,    .11000,    .01373,    .00315,
     +     .00193,    .00986,    .01730,
     +     .35656,    .13937,    .10486,    .01335,    .00313,
     +     .00196,    .00962,    .01672,
     +     .34975,    .13635,    .10025,    .01300,    .00310,
     +     .00196,    .00936,    .01623 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34307,    .13340,    .09588,    .01267,    .00307,
     +     .00197,    .00912,    .01573,
     +     .33655,    .13051,    .09177,    .01233,    .00304,
     +     .00198,    .00887,    .01525,
     +     .33048,    .12783,    .08805,    .01202,    .00301,
     +     .00198,    .00866,    .01482,
     +     .32477,    .12534,    .08470,    .01174,    .00297,
     +     .00197,    .00845,    .01440,
     +     .31906,    .12288,    .08145,    .01148,    .00294,
     +     .00198,    .00826,    .01400 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .65325,    .29456,    .55370,    .02477,    .00000,
     +     .00000,    .01400,    .04320,
     +     .64483,    .28784,    .52322,    .02444,    .00000,
     +     .00000,    .01410,    .04131,
     +     .63100,    .27772,    .48987,    .02385,   -.00491,
     +     .00000,    .01411,    .03882,
     +     .62008,    .27050,    .45921,    .02339,   -.00416,
     +     .00000,    .01407,    .03710,
     +     .60829,    .26307,    .42779,    .02290,   -.00317,
     +     .00000,    .01399,    .03549,
     +     .59782,    .25657,    .40233,    .02241,   -.00247,
     +     .00000,    .01387,    .03416,
     +     .58757,    .25050,    .37929,    .02199,   -.00185,
     +     .00000,    .01376,    .03290,
     +     .57658,    .24421,    .35636,    .02152,   -.00127,
     +     .00000,    .01360,    .03160 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .56696,    .23882,    .33752,    .02108,   -.00083,
     +     .00000,    .01339,    .03059,
     +     .55761,    .23368,    .32028,    .02066,   -.00044,
     +     .00000,    .01321,    .02959,
     +     .55026,    .22968,    .30737,    .02033,   -.00016,
     +     .00000,    .01307,    .02882,
     +     .53466,    .22134,    .28206,    .01960,    .00036,
     +     .00000,    .01273,    .02730,
     +     .52132,    .21444,    .26319,    .01900,    .00073,
     +    -.00135,    .01242,    .02606,
     +     .50653,    .20693,    .24094,    .01833,    .00108,
     +    -.00084,    .01208,    .02473,
     +     .49132,    .19940,    .22002,    .01765,    .00136,
     +    -.00044,    .01169,    .02344,
     +     .47779,    .19278,    .20282,    .01702,    .00159,
     +    -.00011,    .01133,    .02231 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46446,    .18629,    .18700,    .01638,    .00177,
     +     .00017,    .01095,    .02127,
     +     .45363,    .18108,    .17493,    .01584,    .00189,
     +     .00036,    .01063,    .02046,
     +     .44062,    .17495,    .16142,    .01527,    .00200,
     +     .00056,    .01027,    .01942,
     +     .42936,    .16971,    .15051,    .01476,    .00208,
     +     .00070,    .00995,    .01861,
     +     .41930,    .16507,    .14129,    .01426,    .00214,
     +     .00083,    .00963,    .01794,
     +     .40677,    .15933,    .13049,    .01369,    .00220,
     +     .00096,    .00932,    .01701,
     +     .39531,    .15411,    .12125,    .01315,    .00224,
     +     .00105,    .00897,    .01622,
     +     .38486,    .14939,    .11327,    .01268,    .00226,
     +     .00113,    .00866,    .01555 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37454,    .14485,    .10591,    .01228,    .00227,
     +     .00120,    .00837,    .01484,
     +     .36474,    .14051,    .09925,    .01185,    .00227,
     +     .00125,    .00809,    .01422,
     +     .35575,    .13656,    .09344,    .01143,    .00226,
     +     .00128,    .00782,    .01370,
     +     .34741,    .13291,    .08833,    .01105,    .00225,
     +     .00131,    .00757,    .01319,
     +     .33927,    .12937,    .08355,    .01069,    .00224,
     +     .00134,    .00734,    .01269,
     +     .33131,    .12600,    .07914,    .01039,    .00222,
     +     .00135,    .00712,    .01220,
     +     .32399,    .12288,    .07521,    .01010,    .00220,
     +     .00136,    .00690,    .01177,
     +     .31718,    .11995,    .07173,    .00981,    .00218,
     +     .00137,    .00672,    .01139 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .31052,    .11709,    .06839,    .00953,    .00215,
     +     .00137,    .00653,    .01103,
     +     .30399,    .11434,    .06529,    .00926,    .00213,
     +     .00138,    .00635,    .01067,
     +     .29790,    .11179,    .06251,    .00901,    .00210,
     +     .00137,    .00618,    .01035,
     +     .29225,    .10942,    .06000,    .00877,    .00207,
     +     .00137,    .00603,    .01005,
     +     .28662,    .10707,    .05761,    .00853,    .00204,
     +     .00136,    .00586,    .00975 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .65311,    .28461,    .47242,    .02041,    .00000,
     +     .00000,    .01092,    .03344,
     +     .64158,    .27669,    .44239,    .02004,    .00000,
     +     .00000,    .01099,    .03195,
     +     .62338,    .26533,    .40941,    .01947,   -.00428,
     +     .00000,    .01104,    .02982,
     +     .60970,    .25728,    .38020,    .01911,   -.00361,
     +     .00000,    .01101,    .02838,
     +     .59538,    .24900,    .35107,    .01862,   -.00277,
     +     .00000,    .01093,    .02704,
     +     .58278,    .24205,    .32761,    .01824,   -.00218,
     +     .00000,    .01081,    .02590,
     +     .57072,    .23551,    .30672,    .01781,   -.00167,
     +     .00000,    .01066,    .02488,
     +     .55798,    .22873,    .28608,    .01734,   -.00118,
     +     .00000,    .01049,    .02388 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54696,    .22300,    .26929,    .01697,   -.00082,
     +     .00000,    .01034,    .02297,
     +     .53635,    .21759,    .25403,    .01657,   -.00051,
     +     .00000,    .01017,    .02216,
     +     .52804,    .21339,    .24269,    .01627,   -.00027,
     +     .00000,    .01003,    .02155,
     +     .51056,    .20472,    .22062,    .01565,    .00014,
     +     .00000,    .00971,    .02031,
     +     .49585,    .19760,    .20436,    .01511,    .00043,
     +    -.00111,    .00945,    .01931,
     +     .47979,    .18991,    .18553,    .01449,    .00071,
     +    -.00072,    .00914,    .01825,
     +     .46350,    .18219,    .16797,    .01385,    .00093,
     +    -.00040,    .00881,    .01722,
     +     .44904,    .17550,    .15366,    .01331,    .00110,
     +    -.00015,    .00851,    .01633 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43481,    .16901,    .14065,    .01278,    .00123,
     +     .00006,    .00820,    .01548,
     +     .42333,    .16384,    .13083,    .01235,    .00133,
     +     .00021,    .00794,    .01482,
     +     .40980,    .15773,    .11992,    .01182,    .00141,
     +     .00036,    .00764,    .01405,
     +     .39810,    .15254,    .11119,    .01138,    .00148,
     +     .00048,    .00737,    .01339,
     +     .38765,    .14798,    .10387,    .01101,    .00152,
     +     .00056,    .00714,    .01282,
     +     .37475,    .14232,    .09531,    .01053,    .00155,
     +     .00065,    .00686,    .01214,
     +     .36303,    .13724,    .08804,    .01008,    .00158,
     +     .00073,    .00659,    .01156,
     +     .35240,    .13267,    .08186,    .00969,    .00159,
     +     .00078,    .00633,    .01103 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34202,    .12825,    .07621,    .00930,    .00160,
     +     .00083,    .00609,    .01052,
     +     .33216,    .12409,    .07111,    .00894,    .00160,
     +     .00086,    .00586,    .01005,
     +     .32312,    .12028,    .06668,    .00861,    .00159,
     +     .00090,    .00566,    .00963,
     +     .31476,    .11679,    .06282,    .00831,    .00158,
     +     .00091,    .00547,    .00925,
     +     .30666,    .11342,    .05922,    .00801,    .00157,
     +     .00093,    .00530,    .00887,
     +     .29880,    .11018,    .05591,    .00775,    .00155,
     +     .00093,    .00511,    .00854,
     +     .29157,    .10721,    .05299,    .00750,    .00153,
     +     .00094,    .00494,    .00822,
     +     .28484,    .10448,    .05040,    .00728,    .00151,
     +     .00094,    .00481,    .00791 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27826,    .10181,    .04794,    .00707,    .00150,
     +     .00095,    .00467,    .00761,
     +     .27186,    .09923,    .04566,    .00686,    .00148,
     +     .00095,    .00452,    .00736,
     +     .26594,    .09684,    .04361,    .00666,    .00146,
     +     .00095,    .00439,    .00713,
     +     .26042,    .09461,    .04178,    .00647,    .00143,
     +     .00094,    .00427,    .00691,
     +     .25497,    .09241,    .04002,    .00627,    .00141,
     +     .00094,    .00415,    .00670 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .64632,    .27270,    .39694,    .01698,    .00000,
     +     .00000,    .00823,    .02512,
     +     .63169,    .26397,    .36814,    .01666,    .00000,
     +     .00000,    .00831,    .02391,
     +     .60962,    .25137,    .33635,    .01613,   -.00368,
     +     .00000,    .00838,    .02223,
     +     .59355,    .24261,    .30933,    .01570,   -.00309,
     +     .00000,    .00835,    .02115,
     +     .57685,    .23379,    .28280,    .01527,   -.00239,
     +     .00000,    .00825,    .02010,
     +     .56246,    .22642,    .26178,    .01485,   -.00189,
     +     .00000,    .00819,    .01921,
     +     .54885,    .21954,    .24319,    .01448,   -.00146,
     +     .00000,    .00808,    .01839,
     +     .53461,    .21247,    .22505,    .01407,   -.00107,
     +     .00000,    .00795,    .01754 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52242,    .20648,    .21044,    .01367,   -.00076,
     +     .00000,    .00782,    .01687,
     +     .51077,    .20084,    .19731,    .01333,   -.00051,
     +     .00000,    .00768,    .01624,
     +     .50171,    .19650,    .18755,    .01307,   -.00033,
     +     .00000,    .00757,    .01578,
     +     .48287,    .18770,    .16883,    .01247,    .00001,
     +     .00000,    .00735,    .01471,
     +     .46719,    .18046,    .15518,    .01198,    .00023,
     +    -.00090,    .00711,    .01396,
     +     .45011,    .17275,    .13958,    .01143,    .00045,
     +    -.00059,    .00685,    .01315,
     +     .43296,    .16505,    .12523,    .01088,    .00062,
     +    -.00035,    .00658,    .01237,
     +     .41791,    .15839,    .11367,    .01040,    .00075,
     +    -.00016,    .00632,    .01170 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40323,    .15199,    .10323,    .00995,    .00085,
     +     .00000,    .00605,    .01106,
     +     .39142,    .14688,    .09543,    .00954,    .00093,
     +     .00012,    .00584,    .01057,
     +     .37749,    .14093,    .08685,    .00912,    .00099,
     +     .00023,    .00559,    .00999,
     +     .36563,    .13590,    .08002,    .00874,    .00103,
     +     .00031,    .00539,    .00950,
     +     .35513,    .13146,    .07432,    .00841,    .00106,
     +     .00038,    .00521,    .00907,
     +     .34210,    .12604,    .06779,    .00801,    .00109,
     +     .00045,    .00497,    .00855,
     +     .33031,    .12118,    .06230,    .00766,    .00111,
     +     .00050,    .00476,    .00808,
     +     .31969,    .11682,    .05762,    .00734,    .00112,
     +     .00054,    .00457,    .00766 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30942,    .11260,    .05335,    .00704,    .00112,
     +     .00058,    .00439,    .00729,
     +     .29967,    .10865,    .04955,    .00674,    .00111,
     +     .00060,    .00421,    .00695,
     +     .29078,    .10507,    .04628,    .00646,    .00111,
     +     .00062,    .00404,    .00665,
     +     .28257,    .10179,    .04345,    .00624,    .00110,
     +     .00063,    .00389,    .00637,
     +     .27462,    .09863,    .04079,    .00603,    .00109,
     +     .00064,    .00376,    .00610,
     +     .26697,    .09560,    .03840,    .00581,    .00107,
     +     .00064,    .00364,    .00585,
     +     .25995,    .09283,    .03628,    .00560,    .00107,
     +     .00065,    .00351,    .00562,
     +     .25344,    .09028,    .03442,    .00542,    .00105,
     +     .00066,    .00339,    .00541 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24709,    .08780,    .03266,    .00524,    .00103,
     +     .00065,    .00328,    .00522,
     +     .24095,    .08540,    .03105,    .00507,    .00102,
     +     .00065,    .00317,    .00503,
     +     .23528,    .08318,    .02961,    .00491,    .00100,
     +     .00065,    .00307,    .00485,
     +     .23001,    .08114,    .02831,    .00475,    .00099,
     +     .00065,    .00298,    .00468,
     +     .22481,    .07913,    .02707,    .00460,    .00097,
     +     .00064,    .00290,    .00452 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .63378,    .25873,    .32601,    .01392,    .00000,
     +     .00000,    .00605,    .01849,
     +     .61625,    .24932,    .29919,    .01362,    .00000,
     +     .00000,    .00622,    .01752,
     +     .59063,    .23586,    .26968,    .01316,   -.00311,
     +     .00000,    .00629,    .01622,
     +     .57239,    .22661,    .24544,    .01274,   -.00260,
     +     .00000,    .00628,    .01541,
     +     .55366,    .21744,    .22204,    .01235,   -.00202,
     +     .00000,    .00624,    .01455,
     +     .53785,    .20971,    .20367,    .01195,   -.00160,
     +     .00000,    .00616,    .01393,
     +     .52293,    .20263,    .18768,    .01157,   -.00125,
     +     .00000,    .00608,    .01330,
     +     .50744,    .19543,    .17221,    .01120,   -.00093,
     +     .00000,    .00598,    .01265 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49422,    .18939,    .15987,    .01088,   -.00069,
     +     .00000,    .00587,    .01213,
     +     .48180,    .18370,    .14884,    .01055,   -.00048,
     +     .00000,    .00575,    .01168,
     +     .47224,    .17936,    .14076,    .01026,   -.00034,
     +     .00000,    .00565,    .01133,
     +     .45234,    .17047,    .12530,    .00978,   -.00008,
     +     .00000,    .00547,    .01059,
     +     .43597,    .16333,    .11417,    .00935,    .00011,
     +    -.00071,    .00528,    .00999,
     +     .41830,    .15566,    .10168,    .00889,    .00027,
     +    -.00049,    .00504,    .00937,
     +     .40062,    .14813,    .09026,    .00845,    .00040,
     +    -.00030,    .00481,    .00877,
     +     .38528,    .14166,    .08118,    .00804,    .00050,
     +    -.00015,    .00462,    .00826 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .37042,    .13545,    .07310,    .00762,    .00058,
     +    -.00003,    .00442,    .00775,
     +     .35849,    .13054,    .06710,    .00734,    .00063,
     +     .00005,    .00427,    .00736,
     +     .34452,    .12481,    .06057,    .00697,    .00068,
     +     .00014,    .00406,    .00695,
     +     .33269,    .11998,    .05542,    .00663,    .00071,
     +     .00020,    .00389,    .00661,
     +     .32227,    .11575,    .05117,    .00632,    .00073,
     +     .00025,    .00377,    .00628,
     +     .30939,    .11062,    .04636,    .00603,    .00075,
     +     .00030,    .00357,    .00589,
     +     .29776,    .10603,    .04231,    .00576,    .00076,
     +     .00034,    .00341,    .00556,
     +     .28733,    .10193,    .03891,    .00551,    .00077,
     +     .00036,    .00327,    .00526 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27732,    .09797,    .03586,    .00524,    .00077,
     +     .00039,    .00310,    .00500,
     +     .26788,    .09427,    .03316,    .00499,    .00077,
     +     .00040,    .00298,    .00474,
     +     .25928,    .09093,    .03085,    .00478,    .00077,
     +     .00042,    .00286,    .00452,
     +     .25136,    .08790,    .02882,    .00459,    .00076,
     +     .00043,    .00276,    .00433,
     +     .24371,    .08498,    .02695,    .00442,    .00075,
     +     .00043,    .00264,    .00415,
     +     .23640,    .08219,    .02530,    .00424,    .00074,
     +     .00044,    .00255,    .00396,
     +     .22972,    .07965,    .02383,    .00409,    .00073,
     +     .00044,    .00245,    .00379,
     +     .22355,    .07729,    .02255,    .00393,    .00072,
     +     .00045,    .00236,    .00365 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21755,    .07501,    .02135,    .00378,    .00070,
     +     .00044,    .00228,    .00350,
     +     .21170,    .07283,    .02026,    .00366,    .00069,
     +     .00044,    .00220,    .00336,
     +     .20628,    .07083,    .01926,    .00356,    .00068,
     +     .00044,    .00214,    .00323,
     +     .20130,    .06898,    .01839,    .00346,    .00067,
     +     .00044,    .00206,    .00312,
     +     .19639,    .06716,    .01755,    .00334,    .00066,
     +     .00043,    .00200,    .00301 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .61570,    .24316,    .25949,    .01116,    .00000,
     +     .00000,    .00454,    .01325,
     +     .59585,    .23307,    .23543,    .01087,    .00000,
     +     .00000,    .00465,    .01260,
     +     .56706,    .21910,    .20912,    .01038,   -.00259,
     +     .00000,    .00472,    .01171,
     +     .54688,    .20961,    .18812,    .01006,   -.00214,
     +     .00000,    .00471,    .01104,
     +     .52660,    .20019,    .16815,    .00969,   -.00167,
     +     .00000,    .00470,    .01042,
     +     .50946,    .19242,    .15274,    .00937,   -.00133,
     +     .00000,    .00460,    .00996,
     +     .49358,    .18527,    .13939,    .00904,   -.00105,
     +     .00000,    .00454,    .00951,
     +     .47722,    .17799,    .12663,    .00871,   -.00079,
     +     .00000,    .00446,    .00904 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .46334,    .17198,    .11659,    .00848,   -.00060,
     +     .00000,    .00437,    .00862,
     +     .45033,    .16638,    .10772,    .00821,   -.00044,
     +     .00000,    .00428,    .00823,
     +     .44031,    .16212,    .10122,    .00801,   -.00032,
     +     .00000,    .00421,    .00794,
     +     .41976,    .15337,    .08907,    .00753,   -.00012,
     +     .00000,    .00402,    .00742,
     +     .40301,    .14636,    .08031,    .00721,    .00002,
     +    -.00056,    .00386,    .00699,
     +     .38509,    .13897,    .07063,    .00678,    .00015,
     +    -.00039,    .00374,    .00653,
     +     .36730,    .13168,    .06196,    .00636,    .00025,
     +    -.00024,    .00355,    .00611,
     +     .35190,    .12547,    .05511,    .00604,    .00033,
     +    -.00013,    .00338,    .00574 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33707,    .11956,    .04908,    .00573,    .00038,
     +    -.00005,    .00321,    .00539,
     +     .32523,    .11489,    .04467,    .00549,    .00043,
     +     .00002,    .00309,    .00511,
     +     .31153,    .10948,    .03997,    .00515,    .00046,
     +     .00008,    .00293,    .00479,
     +     .29989,    .10492,    .03629,    .00489,    .00048,
     +     .00013,    .00279,    .00454,
     +     .28966,    .10094,    .03324,    .00469,    .00049,
     +     .00016,    .00267,    .00433,
     +     .27717,    .09615,    .02982,    .00444,    .00051,
     +     .00020,    .00255,    .00405,
     +     .26596,    .09188,    .02703,    .00421,    .00052,
     +     .00022,    .00242,    .00379,
     +     .25592,    .08808,    .02471,    .00401,    .00052,
     +     .00024,    .00231,    .00357 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24627,    .08443,    .02261,    .00381,    .00053,
     +     .00026,    .00221,    .00339,
     +     .23722,    .08103,    .02079,    .00362,    .00052,
     +     .00027,    .00211,    .00320,
     +     .22902,    .07796,    .01922,    .00346,    .00052,
     +     .00028,    .00203,    .00306,
     +     .22151,    .07518,    .01792,    .00330,    .00051,
     +     .00029,    .00194,    .00291,
     +     .21428,    .07251,    .01670,    .00316,    .00051,
     +     .00029,    .00185,    .00276,
     +     .20738,    .06997,    .01562,    .00304,    .00050,
     +     .00030,    .00178,    .00264,
     +     .20107,    .06766,    .01466,    .00292,    .00049,
     +     .00029,    .00170,    .00254,
     +     .19525,    .06555,    .01384,    .00282,    .00048,
     +     .00030,    .00164,    .00242 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18959,    .06349,    .01309,    .00272,    .00048,
     +     .00030,    .00159,    .00232,
     +     .18418,    .06152,    .01237,    .00261,    .00047,
     +     .00030,    .00154,    .00223,
     +     .17920,    .05972,    .01175,    .00250,    .00046,
     +     .00029,    .00148,    .00215,
     +     .17459,    .05806,    .01120,    .00241,    .00046,
     +     .00030,    .00143,    .00208,
     +     .17002,    .05643,    .01068,    .00234,    .00044,
     +     .00029,    .00137,    .00200 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .59255,    .22677,    .19783,    .00908,    .00000,
     +     .00000,    .00318,    .00912,
     +     .57051,    .21636,    .17716,    .00881,    .00000,
     +     .00000,    .00331,    .00864,
     +     .53931,    .20190,    .15482,    .00834,   -.00211,
     +     .00000,    .00335,    .00810,
     +     .51774,    .19230,    .13729,    .00798,   -.00175,
     +     .00000,    .00341,    .00767,
     +     .49613,    .18284,    .12090,    .00764,   -.00135,
     +     .00000,    .00340,    .00730,
     +     .47817,    .17510,    .10850,    .00740,   -.00109,
     +     .00000,    .00337,    .00684,
     +     .46154,    .16801,    .09791,    .00714,   -.00086,
     +     .00000,    .00331,    .00648,
     +     .44456,    .16089,    .08788,    .00684,   -.00066,
     +     .00000,    .00323,    .00617 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .43031,    .15496,    .08004,    .00658,   -.00050,
     +     .00000,    .00318,    .00593,
     +     .41701,    .14945,    .07324,    .00632,   -.00038,
     +     .00000,    .00310,    .00569,
     +     .40684,    .14524,    .06834,    .00612,   -.00029,
     +     .00000,    .00303,    .00549,
     +     .38612,    .13680,    .05912,    .00569,   -.00013,
     +     .00000,    .00289,    .00514,
     +     .36927,    .13010,    .05268,    .00539,   -.00002,
     +    -.00043,    .00278,    .00481,
     +     .35133,    .12302,    .04554,    .00511,    .00008,
     +    -.00030,    .00267,    .00446,
     +     .33364,    .11612,    .03930,    .00483,    .00016,
     +    -.00019,    .00253,    .00412,
     +     .31845,    .11024,    .03446,    .00455,    .00021,
     +    -.00011,    .00241,    .00387 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30392,    .10462,    .03026,    .00429,    .00025,
     +    -.00005,    .00227,    .00363,
     +     .29240,    .10024,    .02718,    .00407,    .00028,
     +     .00000,    .00219,    .00344,
     +     .27906,    .09522,    .02397,    .00384,    .00031,
     +     .00005,    .00206,    .00321,
     +     .26783,    .09101,    .02151,    .00364,    .00032,
     +     .00008,    .00197,    .00302,
     +     .25799,    .08733,    .01952,    .00347,    .00034,
     +     .00010,    .00188,    .00287,
     +     .24602,    .08291,    .01732,    .00326,    .00034,
     +     .00013,    .00177,    .00268,
     +     .23533,    .07897,    .01552,    .00308,    .00035,
     +     .00015,    .00167,    .00252,
     +     .22581,    .07548,    .01402,    .00293,    .00035,
     +     .00016,    .00160,    .00239 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21669,    .07218,    .01275,    .00277,    .00035,
     +     .00017,    .00150,    .00225,
     +     .20815,    .06909,    .01163,    .00263,    .00035,
     +     .00018,    .00143,    .00212,
     +     .20042,    .06631,    .01069,    .00251,    .00035,
     +     .00019,    .00136,    .00200,
     +     .19342,    .06381,    .00988,    .00239,    .00035,
     +     .00020,    .00131,    .00191,
     +     .18670,    .06142,    .00917,    .00226,    .00034,
     +     .00019,    .00125,    .00181,
     +     .18025,    .05912,    .00854,    .00218,    .00034,
     +     .00020,    .00120,    .00172,
     +     .17439,    .05705,    .00799,    .00211,    .00033,
     +     .00020,    .00114,    .00164,
     +     .16902,    .05516,    .00753,    .00202,    .00033,
     +     .00020,    .00111,    .00157 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16384,    .05333,    .00708,    .00193,    .00032,
     +     .00020,    .00108,    .00150,
     +     .15884,    .05157,    .00669,    .00185,    .00031,
     +     .00020,    .00104,    .00144,
     +     .15424,    .04996,    .00635,    .00178,    .00031,
     +     .00020,    .00099,    .00139,
     +     .15000,    .04849,    .00604,    .00172,    .00030,
     +     .00020,    .00096,    .00133,
     +     .14583,    .04704,    .00578,    .00165,    .00029,
     +     .00019,    .00091,    .00129 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .56505,    .20947,    .14149,    .00724,    .00000,
     +     .00000,    .00215,    .00607,
     +     .54136,    .19888,    .12461,    .00691,    .00000,
     +     .00000,    .00223,    .00592,
     +     .50805,    .18459,    .10658,    .00663,   -.00169,
     +     .00000,    .00234,    .00541,
     +     .48550,    .17499,    .09281,    .00633,   -.00138,
     +     .00000,    .00238,    .00511,
     +     .46313,    .16558,    .08016,    .00606,   -.00107,
     +     .00000,    .00239,    .00480,
     +     .44467,    .15798,    .07072,    .00575,   -.00087,
     +     .00000,    .00231,    .00463,
     +     .42762,    .15109,    .06270,    .00554,   -.00069,
     +     .00000,    .00229,    .00441,
     +     .41034,    .14416,    .05529,    .00532,   -.00053,
     +     .00000,    .00224,    .00414 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39601,    .13842,    .04966,    .00508,   -.00042,
     +     .00000,    .00220,    .00393,
     +     .38262,    .13313,    .04477,    .00488,   -.00032,
     +     .00000,    .00215,    .00376,
     +     .37238,    .12912,    .04125,    .00471,   -.00024,
     +     .00000,    .00211,    .00365,
     +     .35162,    .12109,    .03482,    .00448,   -.00012,
     +     .00000,    .00200,    .00332,
     +     .33506,    .11469,    .03044,    .00417,   -.00005,
     +    -.00033,    .00190,    .00318,
     +     .31750,    .10799,    .02557,    .00390,    .00003,
     +    -.00023,    .00181,    .00298,
     +     .30025,    .10153,    .02137,    .00368,    .00009,
     +    -.00015,    .00171,    .00274,
     +     .28557,    .09604,    .01825,    .00343,    .00013,
     +    -.00009,    .00161,    .00256 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .27158,    .09086,    .01559,    .00319,    .00016,
     +    -.00004,    .00152,    .00239,
     +     .26044,    .08682,    .01369,    .00308,    .00019,
     +    -.00001,    .00146,    .00224,
     +     .24771,    .08215,    .01174,    .00287,    .00020,
     +     .00002,    .00140,    .00208,
     +     .23704,    .07827,    .01026,    .00271,    .00021,
     +     .00005,    .00133,    .00197,
     +     .22770,    .07491,    .00914,    .00256,    .00022,
     +     .00006,    .00125,    .00188,
     +     .21638,    .07089,    .00791,    .00240,    .00023,
     +     .00009,    .00117,    .00173,
     +     .20635,    .06731,    .00693,    .00226,    .00023,
     +     .00010,    .00110,    .00162,
     +     .19744,    .06416,    .00612,    .00214,    .00023,
     +     .00011,    .00105,    .00151 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18890,    .06117,    .00547,    .00204,    .00024,
     +     .00012,    .00099,    .00143,
     +     .18096,    .05841,    .00490,    .00193,    .00023,
     +     .00012,    .00094,    .00135,
     +     .17382,    .05592,    .00445,    .00182,    .00023,
     +     .00012,    .00090,    .00128,
     +     .16734,    .05369,    .00408,    .00173,    .00023,
     +     .00013,    .00085,    .00121,
     +     .16113,    .05154,    .00373,    .00165,    .00022,
     +     .00013,    .00082,    .00114,
     +     .15522,    .04952,    .00345,    .00158,    .00022,
     +     .00013,    .00078,    .00108,
     +     .14987,    .04770,    .00321,    .00151,    .00022,
     +     .00014,    .00075,    .00103,
     +     .14500,    .04601,    .00301,    .00144,    .00021,
     +     .00013,    .00073,    .00099 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14028,    .04439,    .00282,    .00137,    .00021,
     +     .00013,    .00069,    .00095,
     +     .13571,    .04286,    .00266,    .00132,    .00020,
     +     .00013,    .00067,    .00090,
     +     .13152,    .04146,    .00252,    .00129,    .00021,
     +     .00013,    .00064,    .00085,
     +     .12768,    .04017,    .00240,    .00124,    .00020,
     +     .00013,    .00062,    .00082,
     +     .12392,    .03891,    .00229,    .00119,    .00019,
     +     .00013,    .00060,    .00079 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .53373,    .19142,    .09101,    .00555,    .00000,
     +     .00000,    .00154,    .00399,
     +     .50874,    .18092,    .07817,    .00533,    .00000,
     +     .00000,    .00160,    .00386,
     +     .47425,    .16673,    .06494,    .00497,   -.00132,
     +     .00000,    .00169,    .00359,
     +     .45106,    .15736,    .05476,    .00473,   -.00107,
     +     .00000,    .00169,    .00343,
     +     .42825,    .14827,    .04571,    .00446,   -.00084,
     +     .00000,    .00168,    .00328,
     +     .40935,    .14098,    .03906,    .00435,   -.00067,
     +     .00000,    .00168,    .00307,
     +     .39224,    .13435,    .03362,    .00416,   -.00054,
     +     .00000,    .00165,    .00288,
     +     .37507,    .12770,    .02867,    .00392,   -.00042,
     +     .00000,    .00160,    .00275 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .36079,    .12223,    .02489,    .00376,   -.00033,
     +     .00000,    .00156,    .00264,
     +     .34760,    .11722,    .02176,    .00359,   -.00026,
     +     .00000,    .00152,    .00249,
     +     .33757,    .11344,    .01953,    .00347,   -.00020,
     +     .00000,    .00149,    .00239,
     +     .31721,    .10584,    .01562,    .00321,   -.00011,
     +     .00000,    .00140,    .00224,
     +     .30102,    .09989,    .01295,    .00304,   -.00005,
     +    -.00025,    .00138,    .00207,
     +     .28401,    .09368,    .01007,    .00282,    .00000,
     +    -.00017,    .00128,    .00194,
     +     .26748,    .08770,    .00774,    .00259,    .00004,
     +    -.00011,    .00119,    .00178,
     +     .25341,    .08265,    .00600,    .00242,    .00007,
     +    -.00007,    .00114,    .00167 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .24005,    .07791,    .00456,    .00227,    .00009,
     +    -.00004,    .00109,    .00158,
     +     .22960,    .07423,    .00366,    .00213,    .00011,
     +    -.00002,    .00103,    .00147,
     +     .21757,    .07002,    .00275,    .00200,    .00013,
     +     .00001,    .00095,    .00133,
     +     .20753,    .06651,    .00212,    .00188,    .00013,
     +     .00002,    .00090,    .00125,
     +     .19881,    .06345,    .00162,    .00176,    .00014,
     +     .00004,    .00086,    .00121,
     +     .18830,    .05984,    .00112,    .00165,    .00014,
     +     .00005,    .00081,    .00114,
     +     .17899,    .05665,    .00076,    .00154,    .00015,
     +     .00006,    .00077,    .00106,
     +     .17076,    .05385,    .00053,    .00145,    .00015,
     +     .00007,    .00073,    .00097 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16294,    .05118,    .00032,    .00137,    .00016,
     +     .00008,    .00071,    .00091,
     +     .15568,    .04873,    .00016,    .00130,    .00015,
     +     .00008,    .00066,    .00087,
     +     .14913,    .04653,    .00008,    .00123,    .00015,
     +     .00009,    .00063,    .00082,
     +     .14323,    .04457,    .00000,    .00117,    .00015,
     +     .00008,    .00060,    .00079,
     +     .13758,    .04270,   -.00003,    .00110,    .00014,
     +     .00008,    .00056,    .00074,
     +     .13223,    .04092,   -.00006,    .00105,    .00014,
     +     .00008,    .00053,    .00071,
     +     .12739,    .03932,   -.00008,    .00101,    .00014,
     +     .00009,    .00051,    .00068,
     +     .12297,    .03786,   -.00008,    .00096,    .00014,
     +     .00009,    .00050,    .00063 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11871,    .03647,   -.00009,    .00093,    .00013,
     +     .00009,    .00047,    .00060,
     +     .11466,    .03513,   -.00007,    .00088,    .00013,
     +     .00008,    .00045,    .00057,
     +     .11094,    .03391,   -.00006,    .00083,    .00013,
     +     .00008,    .00043,    .00056,
     +     .10751,    .03280,   -.00005,    .00080,    .00013,
     +     .00009,    .00042,    .00054,
     +     .10415,    .03171,   -.00004,    .00078,    .00013,
     +     .00009,    .00040,    .00051 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .49938,    .17320,    .04730,    .00397,    .00000,
     +     .00000,    .00108,    .00260,
     +     .47356,    .16291,    .03842,    .00388,    .00000,
     +     .00000,    .00119,    .00246,
     +     .43822,    .14909,    .02998,    .00356,   -.00101,
     +     .00000,    .00125,    .00235,
     +     .41471,    .14009,    .02334,    .00342,   -.00082,
     +     .00000,    .00124,    .00227,
     +     .39191,    .13133,    .01766,    .00317,   -.00064,
     +     .00000,    .00127,    .00214,
     +     .37327,    .12435,    .01363,    .00300,   -.00051,
     +     .00000,    .00124,    .00204,
     +     .35635,    .11806,    .01043,    .00286,   -.00041,
     +     .00000,    .00121,    .00196,
     +     .33936,    .11181,    .00762,    .00272,   -.00032,
     +     .00000,    .00119,    .00185 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .32540,    .10666,    .00565,    .00255,   -.00025,
     +     .00000,    .00116,    .00177,
     +     .31249,    .10198,    .00404,    .00243,   -.00020,
     +     .00000,    .00113,    .00169,
     +     .30271,    .09848,    .00294,    .00234,   -.00017,
     +     .00000,    .00110,    .00164,
     +     .28313,    .09145,    .00113,    .00215,   -.00010,
     +     .00000,    .00106,    .00150,
     +     .26764,    .08597,   -.00002,    .00201,   -.00005,
     +    -.00018,    .00099,    .00141,
     +     .25146,    .08030,   -.00126,    .00184,   -.00002,
     +    -.00013,    .00094,    .00128,
     +     .23582,    .07483,   -.00223,    .00169,    .00001,
     +    -.00009,    .00088,    .00121,
     +     .22255,    .07025,   -.00280,    .00156,    .00004,
     +    -.00005,    .00083,    .00114 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .21000,    .06598,   -.00318,    .00146,    .00005,
     +    -.00003,    .00077,    .00105,
     +     .20019,    .06263,   -.00333,    .00138,    .00007,
     +    -.00001,    .00074,    .00099,
     +     .18902,    .05886,   -.00348,    .00129,    .00008,
     +     .00000,    .00069,    .00091,
     +     .17974,    .05577,   -.00354,    .00122,    .00009,
     +     .00002,    .00064,    .00085,
     +     .17171,    .05310,   -.00350,    .00115,    .00009,
     +     .00003,    .00061,    .00079,
     +     .16201,    .04988,   -.00343,    .00107,    .00009,
     +     .00003,    .00059,    .00074,
     +     .15350,    .04707,   -.00329,    .00100,    .00009,
     +     .00004,    .00054,    .00069,
     +     .14600,    .04463,   -.00317,    .00093,    .00009,
     +     .00004,    .00050,    .00065 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13891,    .04229,   -.00304,    .00088,    .00010,
     +     .00005,    .00048,    .00062,
     +     .13233,    .04015,   -.00286,    .00082,    .00009,
     +     .00005,    .00046,    .00057,
     +     .12644,    .03826,   -.00271,    .00078,    .00010,
     +     .00006,    .00044,    .00053,
     +     .12113,    .03655,   -.00254,    .00073,    .00009,
     +     .00005,    .00042,    .00051,
     +     .11607,    .03493,   -.00240,    .00069,    .00009,
     +     .00005,    .00041,    .00049,
     +     .11133,    .03340,   -.00226,    .00065,    .00009,
     +     .00005,    .00038,    .00046,
     +     .10703,    .03202,   -.00212,    .00062,    .00008,
     +     .00005,    .00036,    .00044,
     +     .10311,    .03077,   -.00201,    .00060,    .00009,
     +     .00006,    .00035,    .00043 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09933,    .02957,   -.00188,    .00056,    .00009,
     +     .00006,    .00032,    .00041,
     +     .09574,    .02844,   -.00176,    .00054,    .00009,
     +     .00006,    .00031,    .00038,
     +     .09244,    .02741,   -.00163,    .00052,    .00008,
     +     .00006,    .00030,    .00036,
     +     .08943,    .02647,   -.00153,    .00050,    .00008,
     +     .00005,    .00029,    .00033,
     +     .08649,    .02554,   -.00144,    .00047,    .00008,
     +     .00005,    .00028,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .46259,    .15583,    .00987,    .00342,    .00000,
     +     .00000,    .00045,    .00140,
     +     .43650,    .14590,    .00499,    .00320,    .00000,
     +     .00000,    .00053,    .00139,
     +     .40113,    .13261,    .00097,    .00296,   -.00075,
     +     .00000,    .00067,    .00133,
     +     .37795,    .12400,   -.00238,    .00275,   -.00061,
     +     .00000,    .00072,    .00125,
     +     .35546,    .11580,   -.00508,    .00258,   -.00047,
     +     .00000,    .00071,    .00119,
     +     .33722,    .10916,   -.00677,    .00244,   -.00038,
     +     .00000,    .00072,    .00114,
     +     .32077,    .10327,   -.00797,    .00229,   -.00031,
     +     .00000,    .00071,    .00110,
     +     .30435,    .09745,   -.00883,    .00213,   -.00024,
     +     .00000,    .00068,    .00105 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .29084,    .09273,   -.00936,    .00201,   -.00019,
     +     .00000,    .00066,    .00100,
     +     .27851,    .08839,   -.00972,    .00192,   -.00016,
     +     .00000,    .00066,    .00097,
     +     .26920,    .08510,   -.00988,    .00185,   -.00012,
     +     .00000,    .00064,    .00093,
     +     .25044,    .07871,   -.00990,    .00174,   -.00008,
     +     .00000,    .00060,    .00084,
     +     .23584,    .07369,   -.00978,    .00157,   -.00004,
     +    -.00013,    .00056,    .00081,
     +     .22065,    .06855,   -.00977,    .00142,   -.00002,
     +    -.00009,    .00055,    .00076,
     +     .20595,    .06364,   -.00952,    .00134,    .00000,
     +    -.00007,    .00051,    .00067,
     +     .19364,    .05952,   -.00918,    .00124,    .00002,
     +    -.00004,    .00046,    .00063 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18211,    .05566,   -.00879,    .00114,    .00003,
     +    -.00003,    .00043,    .00060,
     +     .17310,    .05273,   -.00845,    .00108,    .00004,
     +    -.00001,    .00043,    .00056,
     +     .16283,    .04937,   -.00794,    .00100,    .00005,
     +     .00000,    .00039,    .00051,
     +     .15434,    .04662,   -.00749,    .00093,    .00005,
     +     .00001,    .00037,    .00048,
     +     .14705,    .04426,   -.00712,    .00088,    .00005,
     +     .00001,    .00035,    .00046,
     +     .13826,    .04146,   -.00660,    .00082,    .00006,
     +     .00002,    .00033,    .00042,
     +     .13061,    .03899,   -.00614,    .00076,    .00006,
     +     .00002,    .00031,    .00040,
     +     .12391,    .03683,   -.00572,    .00069,    .00006,
     +     .00003,    .00030,    .00037 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11757,    .03482,   -.00532,    .00063,    .00006,
     +     .00003,    .00028,    .00034,
     +     .11168,    .03296,   -.00494,    .00060,    .00006,
     +     .00003,    .00025,    .00033,
     +     .10641,    .03133,   -.00460,    .00058,    .00006,
     +     .00003,    .00024,    .00030,
     +     .10172,    .02986,   -.00429,    .00054,    .00006,
     +     .00004,    .00023,    .00029,
     +     .09726,    .02847,   -.00400,    .00050,    .00006,
     +     .00004,    .00022,    .00027,
     +     .09303,    .02717,   -.00372,    .00049,    .00006,
     +     .00004,    .00019,    .00026,
     +     .08921,    .02600,   -.00347,    .00046,    .00006,
     +     .00004,    .00018,    .00023,
     +     .08577,    .02494,   -.00326,    .00045,    .00005,
     +     .00004,    .00019,    .00022 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08248,    .02392,   -.00304,    .00042,    .00005,
     +     .00003,    .00017,    .00021,
     +     .07933,    .02295,   -.00285,    .00040,    .00005,
     +     .00003,    .00016,    .00021,
     +     .07647,    .02207,   -.00268,    .00039,    .00005,
     +     .00003,    .00016,    .00020,
     +     .07385,    .02127,   -.00251,    .00037,    .00005,
     +     .00003,    .00015,    .00019,
     +     .07130,    .02050,   -.00237,    .00034,    .00005,
     +     .00003,    .00015,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .42392,    .13783,   -.02012,    .00224,    .00000,
     +     .00000,    .00039,    .00089,
     +     .39793,    .12840,   -.02146,    .00209,    .00000,
     +     .00000,    .00045,    .00090,
     +     .36316,    .11591,   -.02132,    .00192,   -.00055,
     +     .00000,    .00050,    .00085,
     +     .34047,    .10790,   -.02191,    .00180,   -.00044,
     +     .00000,    .00053,    .00081,
     +     .31849,    .10033,   -.02196,    .00173,   -.00034,
     +     .00000,    .00049,    .00081,
     +     .30093,    .09426,   -.02170,    .00159,   -.00028,
     +     .00000,    .00049,    .00077,
     +     .28520,    .08883,   -.02126,    .00150,   -.00022,
     +     .00000,    .00049,    .00073,
     +     .26954,    .08351,   -.02065,    .00142,   -.00017,
     +     .00000,    .00048,    .00069 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25669,    .07920,   -.01999,    .00137,   -.00014,
     +     .00000,    .00045,    .00067,
     +     .24502,    .07528,   -.01928,    .00128,   -.00012,
     +     .00000,    .00044,    .00064,
     +     .23624,    .07233,   -.01867,    .00121,   -.00009,
     +     .00000,    .00042,    .00062,
     +     .21878,    .06658,   -.01740,    .00111,   -.00006,
     +     .00000,    .00039,    .00055,
     +     .20515,    .06209,   -.01630,    .00106,   -.00004,
     +    -.00009,    .00037,    .00052,
     +     .19111,    .05750,   -.01527,    .00096,   -.00002,
     +    -.00006,    .00035,    .00047,
     +     .17767,    .05316,   -.01421,    .00088,   -.00001,
     +    -.00005,    .00034,    .00042,
     +     .16638,    .04954,   -.01318,    .00079,    .00000,
     +    -.00004,    .00032,    .00039 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15583,    .04617,   -.01220,    .00072,    .00001,
     +    -.00002,    .00028,    .00037,
     +     .14767,    .04359,   -.01145,    .00068,    .00002,
     +    -.00001,    .00027,    .00036,
     +     .13840,    .04067,   -.01054,    .00062,    .00003,
     +     .00000,    .00027,    .00032,
     +     .13075,    .03829,   -.00981,    .00060,    .00003,
     +     .00000,    .00024,    .00030,
     +     .12416,    .03625,   -.00912,    .00058,    .00003,
     +     .00000,    .00022,    .00026,
     +     .11638,    .03382,   -.00836,    .00053,    .00004,
     +     .00001,    .00021,    .00024,
     +     .10954,    .03172,   -.00768,    .00049,    .00003,
     +     .00001,    .00020,    .00023,
     +     .10356,    .02988,   -.00706,    .00045,    .00003,
     +     .00001,    .00019,    .00023 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09799,    .02815,   -.00649,    .00039,    .00004,
     +     .00002,    .00016,    .00022,
     +     .09282,    .02659,   -.00598,    .00037,    .00004,
     +     .00002,    .00015,    .00019,
     +     .08820,    .02520,   -.00554,    .00037,    .00004,
     +     .00002,    .00014,    .00018,
     +     .08409,    .02396,   -.00516,    .00036,    .00004,
     +     .00002,    .00014,    .00017,
     +     .08018,    .02279,   -.00478,    .00035,    .00003,
     +     .00002,    .00013,    .00016,
     +     .07654,    .02169,   -.00444,    .00031,    .00003,
     +     .00002,    .00013,    .00016,
     +     .07328,    .02071,   -.00413,    .00028,    .00003,
     +     .00002,    .00012,    .00014,
     +     .07030,    .01982,   -.00386,    .00027,    .00003,
     +     .00002,    .00011,    .00015 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06744,    .01897,   -.00361,    .00027,    .00003,
     +     .00002,    .00011,    .00014,
     +     .06473,    .01817,   -.00338,    .00026,    .00003,
     +     .00002,    .00010,    .00012,
     +     .06226,    .01744,   -.00316,    .00024,    .00003,
     +     .00002,    .00010,    .00012,
     +     .06002,    .01679,   -.00299,    .00024,    .00004,
     +     .00003,    .00010,    .00011,
     +     .05783,    .01614,   -.00278,    .00023,    .00003,
     +     .00003,    .00009,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .38391,    .12055,   -.04284,    .00134,    .00000,
     +     .00000,    .00033,    .00058,
     +     .35850,    .11173,   -.04111,    .00133,    .00000,
     +     .00000,    .00035,    .00054,
     +     .32481,    .10016,   -.03755,    .00119,   -.00039,
     +     .00000,    .00038,    .00055,
     +     .30295,    .09284,   -.03580,    .00113,   -.00031,
     +     .00000,    .00037,    .00054,
     +     .28210,    .08582,   -.03382,    .00108,   -.00024,
     +     .00000,    .00040,    .00050,
     +     .26540,    .08035,   -.03196,    .00100,   -.00019,
     +     .00000,    .00036,    .00049,
     +     .25051,    .07548,   -.03025,    .00095,   -.00016,
     +     .00000,    .00036,    .00047,
     +     .23579,    .07068,   -.02845,    .00088,   -.00012,
     +     .00000,    .00036,    .00046 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22387,    .06680,   -.02683,    .00084,   -.00010,
     +     .00000,    .00033,    .00041,
     +     .21299,    .06331,   -.02538,    .00080,   -.00008,
     +     .00000,    .00033,    .00039,
     +     .20483,    .06072,   -.02428,    .00078,   -.00007,
     +     .00000,    .00033,    .00039,
     +     .18883,    .05558,   -.02198,    .00064,   -.00004,
     +     .00000,    .00030,    .00035,
     +     .17632,    .05161,   -.02018,    .00060,   -.00003,
     +    -.00006,    .00029,    .00032,
     +     .16346,    .04759,   -.01846,    .00057,   -.00001,
     +    -.00004,    .00027,    .00030,
     +     .15122,    .04378,   -.01673,    .00052,    .00000,
     +    -.00003,    .00023,    .00027,
     +     .14103,    .04065,   -.01533,    .00050,    .00000,
     +    -.00002,    .00022,    .00025 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13157,    .03775,   -.01400,    .00046,    .00001,
     +    -.00001,    .00021,    .00022,
     +     .12432,    .03551,   -.01297,    .00040,    .00001,
     +    -.00001,    .00020,    .00023,
     +     .11603,    .03301,   -.01181,    .00040,    .00002,
     +     .00000,    .00019,    .00020,
     +     .10927,    .03097,   -.01086,    .00036,    .00002,
     +     .00000,    .00018,    .00019,
     +     .10350,    .02924,   -.01003,    .00033,    .00001,
     +     .00000,    .00017,    .00018,
     +     .09662,    .02718,   -.00906,    .00029,    .00002,
     +     .00001,    .00014,    .00018,
     +     .09065,    .02540,   -.00825,    .00026,    .00002,
     +     .00001,    .00013,    .00017,
     +     .08544,    .02386,   -.00754,    .00025,    .00002,
     +     .00001,    .00013,    .00014 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08058,    .02242,   -.00694,    .00024,    .00002,
     +     .00001,    .00013,    .00013,
     +     .07611,    .02111,   -.00635,    .00023,    .00002,
     +     .00001,    .00012,    .00012,
     +     .07213,    .01994,   -.00584,    .00022,    .00002,
     +     .00001,    .00010,    .00012,
     +     .06858,    .01891,   -.00539,    .00020,    .00002,
     +     .00001,    .00009,    .00010,
     +     .06521,    .01795,   -.00498,    .00020,    .00002,
     +     .00001,    .00009,    .00009,
     +     .06209,    .01705,   -.00462,    .00018,    .00002,
     +     .00001,    .00009,    .00009,
     +     .05930,    .01624,   -.00428,    .00018,    .00002,
     +     .00002,    .00008,    .00009,
     +     .05675,    .01552,   -.00400,    .00017,    .00002,
     +     .00002,    .00008,    .00008 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05432,    .01482,   -.00372,    .00017,    .00002,
     +     .00002,    .00008,    .00006,
     +     .05205,    .01417,   -.00347,    .00014,    .00002,
     +     .00002,    .00007,    .00007,
     +     .04999,    .01357,   -.00325,    .00013,    .00002,
     +     .00002,    .00007,    .00007,
     +     .04810,    .01303,   -.00304,    .00012,    .00002,
     +     .00002,    .00005,    .00007,
     +     .04626,    .01251,   -.00286,    .00012,    .00002,
     +     .00002,    .00005,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34410,    .10463,   -.05986,    .00116,    .00000,
     +     .00000,    .00006,    .00022,
     +     .31964,    .09652,   -.05551,    .00106,    .00000,
     +     .00000,    .00012,    .00020,
     +     .28742,    .08590,   -.04919,    .00098,   -.00027,
     +     .00000,    .00016,    .00029,
     +     .26681,    .07923,   -.04547,    .00089,   -.00022,
     +     .00000,    .00015,    .00026,
     +     .24721,    .07296,   -.04180,    .00081,   -.00016,
     +     .00000,    .00013,    .00026,
     +     .23161,    .06796,   -.03884,    .00081,   -.00013,
     +     .00000,    .00019,    .00022,
     +     .21781,    .06360,   -.03606,    .00073,   -.00011,
     +     .00000,    .00017,    .00020,
     +     .20427,    .05932,   -.03336,    .00064,   -.00008,
     +     .00000,    .00016,    .00019 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19332,    .05587,   -.03113,    .00056,   -.00007,
     +     .00000,    .00018,    .00019,
     +     .18330,    .05277,   -.02910,    .00057,   -.00006,
     +     .00000,    .00017,    .00019,
     +     .17579,    .05049,   -.02760,    .00057,   -.00005,
     +     .00000,    .00016,    .00019,
     +     .16113,    .04598,   -.02460,    .00051,   -.00003,
     +     .00000,    .00013,    .00019,
     +     .14987,    .04259,   -.02231,    .00045,   -.00002,
     +    -.00004,    .00013,    .00016,
     +     .13833,    .03909,   -.02014,    .00041,   -.00002,
     +    -.00003,    .00012,    .00016,
     +     .12739,    .03579,   -.01804,    .00038,   -.00001,
     +    -.00002,    .00011,    .00015,
     +     .11833,    .03307,   -.01632,    .00036,    .00000,
     +    -.00001,    .00010,    .00013 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10993,    .03060,   -.01474,    .00033,    .00000,
     +    -.00001,    .00009,    .00012,
     +     .10350,    .02871,   -.01355,    .00031,    .00000,
     +    -.00001,    .00010,    .00009,
     +     .09629,    .02658,   -.01224,    .00027,    .00000,
     +    -.00001,    .00009,    .00010,
     +     .09037,    .02486,   -.01115,    .00023,    .00001,
     +     .00000,    .00007,    .00009,
     +     .08533,    .02339,   -.01027,    .00022,    .00001,
     +     .00000,    .00007,    .00009,
     +     .07936,    .02167,   -.00925,    .00023,    .00001,
     +     .00000,    .00008,    .00008,
     +     .07417,    .02018,   -.00837,    .00021,    .00001,
     +     .00000,    .00007,    .00008,
     +     .06968,    .01889,   -.00764,    .00022,    .00001,
     +     .00000,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06550,    .01770,   -.00693,    .00019,    .00001,
     +     .00000,    .00006,    .00005,
     +     .06168,    .01662,   -.00633,    .00017,    .00001,
     +     .00000,    .00006,    .00006,
     +     .05831,    .01567,   -.00582,    .00016,    .00002,
     +     .00001,    .00006,    .00006,
     +     .05531,    .01482,   -.00535,    .00014,    .00002,
     +     .00001,    .00004,    .00006,
     +     .05249,    .01402,   -.00493,    .00012,    .00002,
     +     .00001,    .00003,    .00006,
     +     .04985,    .01329,   -.00455,    .00012,    .00002,
     +     .00001,    .00004,    .00004,
     +     .04749,    .01263,   -.00421,    .00012,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04535,    .01204,   -.00392,    .00011,    .00001,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04331,    .01147,   -.00365,    .00011,    .00001,
     +     .00001,    .00003,    .00005,
     +     .04140,    .01094,   -.00339,    .00011,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03967,    .01046,   -.00316,    .00009,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03810,    .01003,   -.00297,    .00009,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03658,    .00961,   -.00279,    .00009,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .30398,    .08888,   -.07020,    .00057,    .00000,
     +     .00000,    .00016,    .00020,
     +     .28092,    .08158,   -.06400,    .00051,    .00000,
     +     .00000,    .00015,    .00023,
     +     .25074,    .07218,   -.05555,    .00049,   -.00018,
     +     .00000,    .00017,    .00018,
     +     .23154,    .06623,   -.05060,    .00046,   -.00014,
     +     .00000,    .00014,    .00023,
     +     .21346,    .06068,   -.04581,    .00042,   -.00011,
     +     .00000,    .00015,    .00019,
     +     .19915,    .05633,   -.04205,    .00040,   -.00009,
     +     .00000,    .00016,    .00018,
     +     .18647,    .05251,   -.03864,    .00037,   -.00007,
     +     .00000,    .00015,    .00017,
     +     .17406,    .04880,   -.03532,    .00037,   -.00006,
     +     .00000,    .00012,    .00014 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16408,    .04580,   -.03267,    .00035,   -.00005,
     +     .00000,    .00011,    .00016,
     +     .15512,    .04314,   -.03035,    .00033,   -.00004,
     +     .00000,    .00012,    .00016,
     +     .14847,    .04115,   -.02857,    .00030,   -.00003,
     +     .00000,    .00011,    .00013,
     +     .13535,    .03729,   -.02515,    .00026,   -.00003,
     +     .00000,    .00011,    .00011,
     +     .12533,    .03436,   -.02263,    .00023,   -.00002,
     +    -.00003,    .00010,    .00012,
     +     .11511,    .03138,   -.02016,    .00022,   -.00001,
     +    -.00002,    .00009,    .00009,
     +     .10549,    .02862,   -.01794,    .00019,   -.00001,
     +    -.00001,    .00010,    .00010,
     +     .09758,    .02635,   -.01608,    .00016,   -.00001,
     +    -.00001,    .00008,    .00010 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09028,    .02427,   -.01443,    .00015,    .00000,
     +     .00000,    .00008,    .00008,
     +     .08470,    .02270,   -.01320,    .00015,    .00000,
     +     .00000,    .00007,    .00008,
     +     .07845,    .02093,   -.01182,    .00014,    .00000,
     +     .00000,    .00006,    .00007,
     +     .07337,    .01951,   -.01071,    .00014,    .00000,
     +     .00000,    .00006,    .00006,
     +     .06907,    .01830,   -.00983,    .00012,    .00000,
     +     .00000,    .00006,    .00006,
     +     .06398,    .01689,   -.00879,    .00011,    .00000,
     +     .00000,    .00006,    .00004,
     +     .05959,    .01567,   -.00790,    .00010,    .00000,
     +     .00000,    .00005,    .00004,
     +     .05580,    .01462,   -.00716,    .00008,    .00001,
     +     .00001,    .00005,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05228,    .01365,   -.00651,    .00008,    .00001,
     +     .00001,    .00003,    .00005,
     +     .04908,    .01278,   -.00590,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04626,    .01201,   -.00540,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04375,    .01134,   -.00497,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04140,    .01069,   -.00457,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03921,    .01010,   -.00419,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03727,    .00958,   -.00388,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03552,    .00911,   -.00360,    .00005,    .00001,
     +     .00001,    .00002,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03385,    .00866,   -.00333,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .03228,    .00823,   -.00310,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .03086,    .00785,   -.00288,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02957,    .00752,   -.00270,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02832,    .00720,   -.00253,    .00005,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .22711,    .06182,   -.07578,    .00023,    .00000,
     +     .00000,    .00001,   -.00001,
     +     .20753,    .05611,   -.06762,    .00023,    .00000,
     +     .00000,    .00001,    .00005,
     +     .18240,    .04890,   -.05710,    .00019,   -.00007,
     +     .00000,    .00003,    .00003,
     +     .16667,    .04441,   -.05085,    .00013,   -.00006,
     +     .00000,    .00006,    .00002,
     +     .15194,    .04024,   -.04510,    .00017,   -.00005,
     +     .00000,    .00005,    .00003,
     +     .14053,    .03701,   -.04063,    .00012,   -.00004,
     +     .00000,    .00003,    .00003,
     +     .13049,    .03423,   -.03684,    .00013,   -.00003,
     +     .00000,    .00004,    .00004,
     +     .12075,    .03153,   -.03318,    .00011,   -.00003,
     +     .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)/
     +     .11301,    .02940,   -.03034,    .00012,   -.00002,
     +     .00000,    .00004,    .00004,
     +     .10608,    .02750,   -.02780,    .00010,   -.00002,
     +     .00000,    .00003,    .00003,
     +     .10096,    .02610,   -.02597,    .00008,   -.00002,
     +     .00000,    .00004,    .00003,
     +     .09100,    .02338,   -.02253,    .00007,   -.00001,
     +     .00000,    .00004,    .00006,
     +     .08351,    .02135,   -.02000,    .00007,   -.00001,
     +    -.00001,    .00004,    .00003,
     +     .07593,    .01932,   -.01757,    .00007,   -.00001,
     +    -.00001,    .00004,    .00003,
     +     .06888,    .01744,   -.01534,    .00006,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06314,    .01592,   -.01358,    .00006,   -.00001,
     +    -.00001,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05792,    .01454,   -.01205,    .00005,   -.00001,
     +    -.00001,    .00002,    .00003,
     +     .05396,    .01349,   -.01091,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04955,    .01234,   -.00965,    .00004,    .00000,
     +     .00000,    .00001,    .00003,
     +     .04601,    .01142,   -.00870,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .04300,    .01065,   -.00789,    .00004,    .00000,
     +     .00000,    .00003,    .00001,
     +     .03953,    .00973,   -.00698,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .03653,    .00898,   -.00624,    .00003,    .00000,
     +     .00000,    .00001,    .00003,
     +     .03395,    .00832,   -.00561,    .00004,    .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=25,32)/
     +     .03159,    .00771,   -.00505,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02946,    .00717,   -.00456,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02759,    .00669,   -.00414,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02596,    .00628,   -.00379,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02444,    .00589,   -.00346,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02302,    .00554,   -.00317,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02175,    .00522,   -.00291,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02062,    .00494,   -.00269,    .00001,    .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)/
     +     .01958,    .00468,   -.00249,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01857,    .00443,   -.00230,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01767,    .00421,   -.00213,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01688,    .00402,   -.00200,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01609,    .00381,   -.00184,    .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)/
     +     .15784,    .03966,   -.06682,    .00005,    .00000,
     +     .00000,    .00001,    .00003,
     +     .14253,    .03563,   -.05861,    .00008,    .00000,
     +     .00000,    .00002,   -.00001,
     +     .12316,    .03054,   -.04848,    .00006,   -.00002,
     +     .00000,    .00000,    .00002,
     +     .11126,    .02743,   -.04249,    .00006,   -.00002,
     +     .00000,    .00000,    .00000,
     +     .10030,    .02462,   -.03712,    .00004,   -.00002,
     +     .00000,    .00001,    .00001,
     +     .09185,    .02244,   -.03309,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .08453,    .02056,   -.02963,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .07754,    .01877,   -.02641,    .00004,   -.00001,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .07198,    .01735,   -.02391,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06704,    .01611,   -.02173,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06344,    .01521,   -.02015,    .00004,   -.00001,
     +     .00000,   -.00001,    .00001,
     +     .05647,    .01346,   -.01715,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05130,    .01218,   -.01508,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04617,    .01091,   -.01307,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04143,    .00974,   -.01129,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03761,    .00880,   -.00993,    .00003,    .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=17,24)/
     +     .03417,    .00795,   -.00870,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .03157,    .00733,   -.00778,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02874,    .00665,   -.00684,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02648,    .00610,   -.00610,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02458,    .00565,   -.00550,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02238,    .00513,   -.00483,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02052,    .00468,   -.00426,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01894,    .00430,   -.00380,    .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=25,32)/
     +     .01749,    .00396,   -.00340,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01618,    .00366,   -.00304,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01506,    .00340,   -.00275,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01407,    .00316,   -.00250,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01315,    .00296,   -.00226,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01232,    .00276,   -.00207,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01159,    .00258,   -.00189,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01093,    .00243,   -.00174,    .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)/
     +     .01030,    .00229,   -.00159,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00974,    .00215,   -.00147,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00922,    .00204,   -.00136,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00876,    .00193,   -.00125,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00832,    .00183,   -.00117,    .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)/
     +     .09983,    .02300,   -.05014,    .00007,    .00000,
     +     .00000,   -.00001,   -.00004,
     +     .08903,    .02039,   -.04342,    .00004,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .07555,    .01716,   -.03525,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06741,    .01526,   -.03053,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05998,    .01349,   -.02629,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05436,    .01219,   -.02316,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04953,    .01106,   -.02053,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04494,    .00998,   -.01809,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04134,    .00916,   -.01622,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03821,    .00843,   -.01464,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03591,    .00790,   -.01349,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03154,    .00691,   -.01136,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02834,    .00619,   -.00988,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02519,    .00547,   -.00845,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02233,    .00483,   -.00723,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02004,    .00432,   -.00625,    .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)/
     +     .01802,    .00387,   -.00542,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01651,    .00353,   -.00482,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01488,    .00317,   -.00420,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01358,    .00287,   -.00370,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01250,    .00264,   -.00332,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01127,    .00238,   -.00288,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01023,    .00215,   -.00252,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00936,    .00197,   -.00224,    .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)/
     +     .00857,    .00179,   -.00198,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00787,    .00164,   -.00177,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00727,    .00150,   -.00158,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00675,    .00140,   -.00143,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00627,    .00129,   -.00129,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00582,    .00120,   -.00116,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00544,    .00112,   -.00106,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00510,    .00105,   -.00097,    .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)/
     +     .00479,    .00099,   -.00088,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00449,    .00092,   -.00081,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00423,    .00086,   -.00074,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00400,    .00082,   -.00069,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00377,    .00077,   -.00063,    .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)/
     +     .05528,    .01133,   -.03169,    .00000,    .00000,
     +     .00000,    .00000,    .00003,
     +     .04858,    .00993,   -.02706,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04038,    .00823,   -.02156,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03552,    .00718,   -.01842,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03116,    .00631,   -.01569,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02788,    .00562,   -.01367,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02510,    .00504,   -.01197,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02249,    .00451,   -.01043,    .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)/
     +     .02049,    .00410,   -.00929,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01874,    .00372,   -.00828,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01747,    .00347,   -.00757,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01512,    .00299,   -.00630,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01339,    .00264,   -.00539,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01175,    .00232,   -.00457,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01026,    .00200,   -.00385,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00909,    .00178,   -.00329,    .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)/
     +     .00806,    .00157,   -.00282,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00731,    .00141,   -.00248,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00650,    .00126,   -.00213,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00588,    .00113,   -.00186,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00536,    .00104,   -.00166,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00477,    .00091,   -.00143,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00428,    .00082,   -.00123,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00388,    .00074,   -.00108,    .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)/
     +     .00353,    .00067,   -.00096,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00319,    .00060,   -.00083,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00292,    .00055,   -.00074,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00269,    .00050,   -.00066,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00248,    .00048,   -.00060,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00229,    .00043,   -.00053,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00040,   -.00049,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00198,    .00038,   -.00044,    .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)/
     +     .00184,    .00035,   -.00040,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00171,    .00032,   -.00036,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00160,    .00029,   -.00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00151,    .00028,   -.00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00141,    .00027,   -.00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00783,    .00127,   -.00568,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00657,    .00106,   -.00465,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00515,    .00082,   -.00351,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00432,    .00069,   -.00287,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00363,    .00057,   -.00235,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00314,    .00049,   -.00197,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00273,    .00043,   -.00168,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00237,    .00037,   -.00142,    .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)/
     +     .00209,    .00032,   -.00123,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00185,    .00029,   -.00107,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00027,   -.00097,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00140,    .00022,   -.00077,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00120,    .00019,   -.00064,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00101,    .00015,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00084,    .00013,   -.00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00072,    .00011,   -.00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00062,    .00009,   -.00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00054,    .00009,   -.00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00007,   -.00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00007,   -.00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00036,    .00005,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00031,    .00005,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00027,    .00005,   -.00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,   -.00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00021,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00003,   -.00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00003,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00003,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor06dis.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