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

sfmrs_99a3.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a3(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)/
     +     .00398,    .00281,   1.13349,    .87009,    .00000,
     +     .00000,    .46282,    .87866,
     +     .00414,    .00288,   2.39462,    .90644,    .00000,
     +     .00000,    .50374,    .91516,
     +     .00439,    .00298,   4.86914,    .98396,    .00000,
     +     .00000,    .58780,    .99289,
     +     .00456,    .00306,   7.18230,   1.05812,    .04485,
     +     .00000,    .66652,   1.06719,
     +     .00475,    .00314,   9.97655,   1.15355,    .15419,
     +     .00000,    .76657,   1.16276,
     +     .00491,    .00321,  12.86069,   1.25173,    .25897,
     +     .00000,    .86865,   1.26106,
     +     .00506,    .00329,  16.09878,   1.35837,    .37463,
     +     .00000,    .97895,   1.36781,
     +     .00523,    .00336,  20.07357,   1.48590,    .51493,
     +     .00000,   1.11028,   1.49545 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00538,    .00343,  23.94896,   1.61094,    .64633,
     +     .00000,   1.23855,   1.62058,
     +     .00552,    .00350,  28.11180,   1.74374,    .78631,
     +     .00000,   1.37441,   1.75346,
     +     .00563,    .00355,  31.75980,   1.85740,    .90852,
     +     .00000,   1.49046,   1.86719,
     +     .00587,    .00366,  40.21260,   2.12815,   1.19346,
     +     .02251,   1.76618,   2.13807,
     +     .00607,    .00376,  48.17280,   2.39041,   1.46704,
     +     .34383,   2.03259,   2.40044,
     +     .00631,    .00388,  58.23300,   2.71899,   1.81011,
     +     .73969,   2.36570,   2.72913,
     +     .00656,    .00400,  70.08362,   3.10115,   2.20830,
     +    1.15594,   2.75246,   3.11140,
     +     .00678,    .00411,  82.08012,   3.48490,   2.60751,
     +    1.57343,   3.14028,   3.49525 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00701,    .00422,  95.45453,   3.91030,   3.04980,
     +    2.03410,   3.56969,   3.92073,
     +     .00721,    .00432, 107.49789,   4.29315,   3.44589,
     +    2.44197,   3.95581,   4.30365,
     +     .00744,    .00444, 123.26027,   4.79463,   3.96293,
     +    2.97231,   4.46116,   4.80521,
     +     .00765,    .00455, 138.37077,   5.27436,   4.45824,
     +    3.48269,   4.94426,   5.28501,
     +     .00785,    .00465, 153.21355,   5.74536,   4.94465,
     +    3.98422,   5.41828,   5.75606,
     +     .00810,    .00477, 173.19432,   6.38400,   5.60012,
     +    4.65358,   6.06069,   6.39477,
     +     .00834,    .00489, 193.37692,   7.03023,   6.26385,
     +    5.33322,   6.71039,   7.04106,
     +     .00856,    .00501, 213.60817,   7.67855,   6.93088,
     +    6.01858,   7.36190,   7.68944 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00879,    .00513, 234.73305,   8.36323,   7.63065,
     +    6.73056,   8.04971,   8.37417,
     +     .00901,    .00524, 256.65195,   9.07512,   8.35964,
     +    7.47522,   8.76461,   9.08611,
     +     .00923,    .00535, 278.46808,   9.78709,   9.08840,
     +    8.21956,   9.47938,   9.79812,
     +     .00943,    .00546, 299.77280,  10.48882,   9.80450,
     +    8.94813,  10.18371,  10.49988,
     +     .00964,    .00557, 322.30118,  11.23180,  10.56448,
     +    9.72432,  10.92926,  11.24289,
     +     .00984,    .00567, 345.01599,  11.99008,  11.33673,
     +   10.50851,  11.69003,  12.00120,
     +     .01004,    .00578, 367.71375,  12.74806,  12.11092,
     +   11.29828,  12.45034,  12.75921,
     +     .01022,    .00587, 389.56552,  13.48698,  12.86255,
     +   12.06095,  13.19144,  13.49815 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01041,    .00597, 412.56064,  14.26578,  13.65631,
     +   12.86890,  13.97241,  14.27698,
     +     .01060,    .00607, 435.75357,  15.05866,  14.46283,
     +   13.68788,  14.76740,  15.06988,
     +     .01078,    .00617, 458.56250,  15.84258,  15.26022,
     +   14.49775,  15.55332,  15.85382,
     +     .01096,    .00626, 480.88547,  16.61295,  16.04431,
     +   15.29506,  16.32555,  16.62420,
     +     .01113,    .00635, 503.71185,  17.40963,  16.85293,
     +   16.11444,  17.12410,  17.42090 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00559,    .00374,   1.04269,    .74549,    .00000,
     +     .00000,    .39602,    .75065,
     +     .00582,    .00385,   2.17439,    .77850,    .00000,
     +     .00000,    .43272,    .78375,
     +     .00615,    .00400,   4.35078,    .84644,    .00000,
     +     .00000,    .50591,    .85182,
     +     .00640,    .00411,   6.34640,    .91006,    .03812,
     +     .00000,    .57319,    .91553,
     +     .00666,    .00423,   8.71795,    .99070,    .13060,
     +     .00000,    .65753,    .99626,
     +     .00688,    .00434,  11.13159,   1.07268,    .21812,
     +     .00000,    .74262,   1.07831,
     +     .00710,    .00444,  13.81005,   1.16100,    .31382,
     +     .00000,    .83386,   1.16670,
     +     .00733,    .00456,  17.06043,   1.26578,    .42890,
     +     .00000,    .94167,   1.27155 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00753,    .00465,  20.19419,   1.36767,    .53572,
     +     .00000,   1.04613,   1.37350,
     +     .00772,    .00475,  23.52866,   1.47515,    .64871,
     +     .00000,   1.15605,   1.48104,
     +     .00788,    .00483,  26.42839,   1.56669,    .74680,
     +     .00000,   1.24948,   1.57262,
     +     .00821,    .00499,  33.06954,   1.78294,    .97355,
     +     .01839,   1.46967,   1.78895,
     +     .00850,    .00513,  39.23621,   1.99048,   1.18914,
     +     .27106,   1.68050,   1.99656,
     +     .00882,    .00530,  46.93472,   2.24822,   1.45703,
     +     .58045,   1.94182,   2.25438,
     +     .00916,    .00547,  55.88934,   2.54520,   1.76500,
     +     .90205,   2.24243,   2.55143,
     +     .00947,    .00563,  64.84702,   2.84080,   2.07101,
     +    1.22166,   2.54124,   2.84710 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .00979,    .00579,  74.72460,   3.16580,   2.40725,
     +    1.57131,   2.86940,   3.17216,
     +     .01006,    .00592,  83.53114,   3.45609,   2.70608,
     +    1.87843,   3.16227,   3.46251,
     +     .01038,    .00609,  94.94534,   3.83351,   3.09323,
     +    2.27471,   3.54274,   3.83998,
     +     .01067,    .00624, 105.78436,   4.19194,   3.46146,
     +    2.65335,   3.90381,   4.19846,
     +     .01094,    .00638, 116.34311,   4.54157,   3.82079,
     +    3.02305,   4.25582,   4.54814,
     +     .01128,    .00655, 130.42398,   5.01221,   4.30144,
     +    3.51269,   4.72942,   5.01883,
     +     .01160,    .00672, 144.51488,   5.48496,   4.78466,
     +    4.00632,   5.20488,   5.49162,
     +     .01191,    .00688, 158.52190,   5.95609,   5.26717,
     +    4.50097,   5.67851,   5.96280 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01222,    .00704, 173.01801,   6.45020,   5.76980,
     +    5.01102,   6.17509,   6.45696,
     +     .01252,    .00720, 187.94463,   6.96082,   6.29033,
     +    5.54144,   6.68806,   6.96761,
     +     .01281,    .00735, 202.69150,   7.46846,   6.80768,
     +    6.06857,   7.19789,   7.47528,
     +     .01309,    .00750, 216.98630,   7.96588,   7.31308,
     +    6.58144,   7.69735,   7.97274,
     +     .01337,    .00765, 232.01027,   8.48992,   7.84690,
     +    7.12537,   8.22340,   8.49681,
     +     .01364,    .00779, 247.04808,   9.02170,   8.38620,
     +    7.67157,   8.75713,   9.02862,
     +     .01391,    .00793, 261.99329,   9.55085,   8.92456,
     +    8.21949,   9.28811,   9.55780,
     +     .01416,    .00807, 276.28494,  10.06403,   9.44444,
     +    8.74565,   9.80299,  10.07100 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01442,    .00820, 291.25055,  10.60266,   9.99134,
     +    9.30100,  10.34332,  10.60966,
     +     .01467,    .00834, 306.25415,  11.14843,  10.54439,
     +    9.86120,  10.89075,  11.15545,
     +     .01492,    .00847, 320.93369,  11.68577,  11.08895,
     +   10.41294,  11.42965,  11.69282,
     +     .01515,    .00859, 335.23322,  12.21178,  11.62245,
     +   10.95418,  11.95712,  12.21885,
     +     .01539,    .00872, 349.77222,  12.75337,  12.17015,
     +   11.50780,  12.50017,  12.76045 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00784,    .00498,    .95997,    .63840,    .00000,
     +     .00000,    .33889,    .64116,
     +     .00816,    .00514,   1.97537,    .66827,    .00000,
     +     .00000,    .37174,    .67108,
     +     .00863,    .00537,   3.88855,    .72775,    .00000,
     +     .00000,    .43544,    .73064,
     +     .00897,    .00553,   5.60857,    .78230,    .03240,
     +     .00000,    .49293,    .78524,
     +     .00933,    .00571,   7.61860,    .85039,    .11059,
     +     .00000,    .56399,    .85339,
     +     .00964,    .00587,   9.63503,    .91876,    .18367,
     +     .00000,    .63485,    .92180,
     +     .00994,    .00602,  11.84623,    .99180,    .26280,
     +     .00000,    .71022,    .99488,
     +     .01026,    .00618,  14.49837,   1.07775,    .35713,
     +     .00000,    .79858,   1.08088 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01054,    .00632,  17.02610,   1.16059,    .44390,
     +     .00000,    .88347,   1.16376,
     +     .01081,    .00646,  19.68981,   1.24738,    .53501,
     +     .00000,    .97220,   1.25058,
     +     .01103,    .00657,  21.98818,   1.32091,    .61367,
     +     .00000,   1.04724,   1.32414,
     +     .01149,    .00680,  27.18948,   1.49315,    .79388,
     +     .01502,   1.22259,   1.49643,
     +     .01189,    .00701,  31.94955,   1.65686,    .96352,
     +     .21359,   1.38891,   1.66020,
     +     .01233,    .00724,  37.81785,   1.85835,   1.17238,
     +     .45529,   1.59323,   1.86174,
     +     .01280,    .00748,  44.55581,   2.08831,   1.41014,
     +     .70359,   1.82605,   2.09174,
     +     .01323,    .00770,  51.21439,   2.31513,   1.64423,
     +     .94807,   2.05540,   2.31861 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01367,    .00793,  58.47488,   2.56242,   1.89928,
     +    1.21320,   2.30518,   2.56595,
     +     .01403,    .00812,  64.88225,   2.78161,   2.12418,
     +    1.44419,   2.52639,   2.78518,
     +     .01448,    .00835,  73.10420,   3.06442,   2.41333,
     +    1.73993,   2.81159,   3.06803,
     +     .01487,    .00856,  80.83652,   3.33100,   2.68633,
     +    2.02042,   3.08025,   3.33465,
     +     .01524,    .00875,  88.30501,   3.58934,   2.95100,
     +    2.29251,   3.34045,   3.59302,
     +     .01571,    .00900,  98.16848,   3.93449,   3.30235,
     +    2.65003,   3.68791,   3.93822,
     +     .01615,    .00923, 107.94497,   4.27860,   3.65300,
     +    3.00784,   4.03415,   4.28237,
     +     .01657,    .00945, 117.58022,   4.61923,   4.00083,
     +    3.36408,   4.37673,   4.62303 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01698,    .00968, 127.46019,   4.97393,   4.36053,
     +    3.72860,   4.73336,   4.97778,
     +     .01740,    .00990, 137.55438,   5.33820,   4.73080,
     +    4.10546,   5.09946,   5.34208,
     +     .01779,    .01011, 147.45093,   5.69816,   5.09663,
     +    4.47777,   5.46114,   5.70208,
     +     .01817,    .01030, 156.97058,   6.04877,   5.45185,
     +    4.83775,   5.81333,   6.05271,
     +     .01854,    .01051, 166.91379,   6.41626,   5.82524,
     +    5.21778,   6.18239,   6.42024,
     +     .01892,    .01070, 176.78999,   6.78700,   6.20018,
     +    5.59699,   6.55465,   6.79101,
     +     .01927,    .01090, 186.55150,   7.15422,   6.57288,
     +    5.97587,   6.92329,   7.15825,
     +     .01961,    .01108, 195.82010,   7.50843,   6.93078,
     +    6.33758,   7.27884,   7.51249 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .01996,    .01126, 205.47739,   7.87866,   7.30580,
     +    6.71795,   7.65039,   7.88275,
     +     .02030,    .01145, 215.09810,   8.25197,   7.68317,
     +    7.09969,   8.02499,   8.25608,
     +     .02063,    .01162, 224.46112,   8.61794,   8.05319,
     +    7.47412,   8.39217,   8.62208,
     +     .02094,    .01179, 233.53778,   8.97478,   8.41432,
     +    7.84006,   8.75016,   8.97894,
     +     .02126,    .01196, 242.71086,   9.34053,   8.78333,
     +    8.21254,   9.11704,   9.34471 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00955,    .00590,    .91530,    .58285,    .00000,
     +     .00000,    .30940,    .58463,
     +     .00994,    .00609,   1.86826,    .61097,    .00000,
     +     .00000,    .34015,    .61279,
     +     .01051,    .00638,   3.64201,    .66596,    .00000,
     +     .00000,    .39888,    .66784,
     +     .01093,    .00659,   5.21801,    .71580,    .02945,
     +     .00000,    .45130,    .71771,
     +     .01137,    .00681,   7.04133,    .77745,    .10031,
     +     .00000,    .51557,    .77940,
     +     .01174,    .00700,   8.85475,    .83889,    .16605,
     +     .00000,    .57920,    .84088,
     +     .01211,    .00719,  10.82926,    .90419,    .23684,
     +     .00000,    .64654,    .90622,
     +     .01250,    .00739,  13.18102,    .98066,    .32077,
     +     .00000,    .72513,    .98272 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01284,    .00756,  15.40706,   1.05397,    .39756,
     +     .00000,    .80024,   1.05606,
     +     .01316,    .00773,  17.73934,   1.13046,    .47785,
     +     .00000,    .87842,   1.13258,
     +     .01342,    .00787,  19.74238,   1.19505,    .54693,
     +     .00000,    .94433,   1.19720,
     +     .01398,    .00816,  24.24293,   1.34559,    .70436,
     +     .01334,   1.09760,   1.34778,
     +     .01446,    .00841,  28.32585,   1.48785,    .85169,
     +     .18574,   1.24214,   1.49008,
     +     .01500,    .00869,  33.32161,   1.66199,   1.03207,
     +     .39483,   1.41875,   1.66427,
     +     .01557,    .00899,  39.01345,   1.85960,   1.23621,
     +     .60817,   1.61885,   1.86192,
     +     .01609,    .00926,  44.59738,   2.05346,   1.43611,
     +     .81706,   1.81491,   2.05582 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01661,    .00954,  50.64524,   2.26376,   1.65281,
     +    1.04242,   2.02738,   2.26616,
     +     .01705,    .00977,  55.94989,   2.44930,   1.84300,
     +    1.23781,   2.21468,   2.45174,
     +     .01759,    .01005,  62.71606,   2.68760,   2.08641,
     +    1.48680,   2.45506,   2.69008,
     +     .01806,    .01031,  69.04246,   2.91124,   2.31520,
     +    1.72193,   2.68050,   2.91375,
     +     .01850,    .01054,  75.12180,   3.12710,   2.53616,
     +    1.94912,   2.89798,   3.12965,
     +     .01906,    .01084,  83.10382,   3.41423,   2.82815,
     +    2.24623,   3.18711,   3.41682,
     +     .01959,    .01112,  90.97019,   3.69921,   3.11827,
     +    2.54230,   3.47394,   3.70184,
     +     .02009,    .01139,  98.68324,   3.98017,   3.40494,
     +    2.83592,   3.75660,   3.98284 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02059,    .01165, 106.54777,   4.27150,   3.70008,
     +    3.13498,   4.04959,   4.27421,
     +     .02109,    .01192, 114.54533,   4.56958,   4.00281,
     +    3.44308,   4.34926,   4.57232,
     +     .02156,    .01217, 122.35028,   4.86307,   4.30084,
     +    3.74638,   4.64423,   4.86585,
     +     .02200,    .01241, 129.82292,   5.14791,   4.58917,
     +    4.03854,   4.93044,   5.15071,
     +     .02245,    .01265, 137.59912,   5.44556,   4.89139,
     +    4.34612,   5.22945,   5.44840,
     +     .02290,    .01289, 145.28665,   5.74478,   5.19375,
     +    4.65187,   5.52999,   5.74765,
     +     .02333,    .01312, 152.86006,   6.04036,   5.49354,
     +    4.95662,   5.82680,   6.04326,
     +     .02373,    .01334, 160.01984,   6.32454,   5.78045,
     +    5.24652,   6.11213,   6.32747 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02414,    .01356, 167.45740,   6.62084,   6.08040,
     +    5.55072,   6.40957,   6.62381,
     +     .02455,    .01378, 174.83842,   6.91873,   6.38131,
     +    5.85507,   6.70857,   6.92172,
     +     .02494,    .01399, 181.99852,   7.21001,   6.67563,
     +    6.15285,   7.00091,   7.21303,
     +     .02531,    .01419, 188.91951,   7.49336,   6.96223,
     +    6.44325,   7.28524,   7.49641,
     +     .02569,    .01439, 195.88782,   7.78298,   7.25424,
     +    6.73794,   7.57584,   7.78605 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01099,    .00665,    .88530,    .54631,    .00000,
     +     .00000,    .29007,    .54756,
     +     .01143,    .00687,   1.79631,    .57322,    .00000,
     +     .00000,    .31940,    .57450,
     +     .01209,    .00721,   3.47712,    .62522,    .00000,
     +     .00000,    .37482,    .62655,
     +     .01257,    .00746,   4.95791,    .67194,    .02751,
     +     .00000,    .42392,    .67332,
     +     .01307,    .00772,   6.65872,    .72938,    .09359,
     +     .00000,    .48375,    .73079,
     +     .01351,    .00794,   8.33980,    .78631,    .15457,
     +     .00000,    .54268,    .78775,
     +     .01393,    .00816,  10.16087,    .84660,    .21995,
     +     .00000,    .60484,    .84807,
     +     .01437,    .00839,  12.31900,    .91694,    .29719,
     +     .00000,    .67711,    .91845 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01476,    .00859,  14.35162,    .98413,    .36757,
     +     .00000,    .74594,    .98566,
     +     .01514,    .00879,  16.47239,   1.05400,    .44095,
     +     .00000,    .81736,   1.05556,
     +     .01544,    .00895,  18.28769,   1.11288,    .50392,
     +     .00000,    .87745,   1.11446,
     +     .01607,    .00928,  22.34532,   1.24959,    .64690,
     +     .01226,   1.01664,   1.25121,
     +     .01662,    .00957,  26.00317,   1.37824,    .78014,
     +     .16816,   1.14736,   1.37991,
     +     .01724,    .00990,  30.45460,   1.53511,    .94261,
     +     .35678,   1.30648,   1.53682,
     +     .01789,    .01024,  35.49798,   1.71238,   1.12573,
     +     .54827,   1.48602,   1.71413,
     +     .01848,    .01056,  40.41973,   1.88562,   1.30432,
     +     .73503,   1.66125,   1.88741 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01908,    .01088,  45.72463,   2.07286,   1.49722,
     +     .93576,   1.85046,   2.07469,
     +     .01958,    .01114,  50.35703,   2.23751,   1.66596,
     +    1.10920,   2.01671,   2.23938,
     +     .02019,    .01147,  56.24011,   2.44828,   1.88119,
     +    1.32947,   2.22937,   2.45019,
     +     .02073,    .01176,  61.71777,   2.64546,   2.08287,
     +    1.53682,   2.42817,   2.64740,
     +     .02123,    .01202,  66.96220,   2.83524,   2.27709,
     +    1.73660,   2.61942,   2.83722,
     +     .02187,    .01237,  73.81872,   3.08686,   2.53290,
     +    1.99699,   2.87286,   3.08889,
     +     .02247,    .01269,  80.54790,   3.33580,   2.78627,
     +    2.25564,   3.12348,   3.33787,
     +     .02304,    .01299,  87.12146,   3.58053,   3.03592,
     +    2.51143,   3.36974,   3.58264 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02361,    .01330,  93.79683,   3.83350,   3.29213,
     +    2.77110,   3.62421,   3.83564,
     +     .02417,    .01360, 100.56206,   4.09163,   3.55424,
     +    3.03795,   3.88378,   4.09382,
     +     .02470,    .01389, 107.14238,   4.34514,   3.81162,
     +    3.29996,   4.13863,   4.34736,
     +     .02521,    .01416, 113.42091,   4.59053,   4.05997,
     +    3.55166,   4.38526,   4.59279,
     +     .02572,    .01444, 119.93719,   4.84642,   4.31975,
     +    3.81612,   4.64238,   4.84871,
     +     .02622,    .01471, 126.35689,   5.10298,   4.57894,
     +    4.07827,   4.90013,   5.10531,
     +     .02671,    .01497, 132.66655,   5.35594,   4.83548,
     +    4.33913,   5.15420,   5.35830,
     +     .02716,    .01522, 138.61221,   5.59856,   5.08039,
     +    4.58664,   5.39786,   5.60095 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02763,    .01547, 144.77559,   5.85109,   5.33600,
     +    4.84593,   5.65142,   5.85351,
     +     .02809,    .01572, 150.87445,   6.10442,   5.59188,
     +    5.10478,   5.90576,   6.10687,
     +     .02853,    .01596, 156.77707,   6.35168,   5.84169,
     +    5.35758,   6.15397,   6.35416,
     +     .02895,    .01618, 162.47044,   6.59181,   6.08455,
     +    5.60373,   6.39499,   6.59432,
     +     .02938,    .01641, 168.18689,   6.83675,   6.33149,
     +    5.85297,   6.64082,   6.83929 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01225,    .00730,    .86304,    .51949,    .00000,
     +     .00000,    .27593,    .52043,
     +     .01275,    .00755,   1.74280,    .54549,    .00000,
     +     .00000,    .30419,    .54646,
     +     .01348,    .00793,   3.35474,    .59527,    .00000,
     +     .00000,    .35717,    .59629,
     +     .01401,    .00821,   4.76542,    .63971,    .02610,
     +     .00000,    .40383,    .64076,
     +     .01457,    .00850,   6.37649,    .69406,    .08867,
     +     .00000,    .46042,    .69515,
     +     .01506,    .00876,   7.96111,    .74771,    .14618,
     +     .00000,    .51594,    .74884,
     +     .01552,    .00900,   9.67080,    .80436,    .20765,
     +     .00000,    .57433,    .80551,
     +     .01602,    .00926,  11.68894,    .87027,    .28005,
     +     .00000,    .64205,    .87145 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01645,    .00949,  13.58228,    .93303,    .34583,
     +     .00000,    .70634,    .93424,
     +     .01687,    .00971,  15.55127,    .99814,    .41424,
     +     .00000,    .77289,    .99938,
     +     .01720,    .00989,  17.23223,   1.05292,    .47284,
     +     .00000,    .82879,   1.05418,
     +     .01791,    .01026,  20.97426,   1.17971,    .60549,
     +     .01148,    .95790,   1.18101,
     +     .01852,    .01059,  24.33079,   1.29865,    .72868,
     +     .15565,   1.07876,   1.29999,
     +     .01920,    .01095,  28.39812,   1.44322,    .87845,
     +     .32974,   1.22543,   1.44461,
     +     .01992,    .01134,  32.98607,   1.60606,   1.04668,
     +     .50580,   1.39038,   1.60749,
     +     .02058,    .01169,  37.44486,   1.76470,   1.21026,
     +     .67697,   1.55089,   1.76618 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02124,    .01204,  42.23244,   1.93569,   1.38644,
     +     .86041,   1.72371,   1.93721,
     +     .02180,    .01234,  46.39850,   2.08565,   1.54013,
     +    1.01848,   1.87515,   2.08721,
     +     .02247,    .01270,  51.67126,   2.27713,   1.73567,
     +    1.21870,   2.06838,   2.27873,
     +     .02307,    .01302,  56.56448,   2.45580,   1.91844,
     +    1.40671,   2.24857,   2.45744,
     +     .02362,    .01332,  61.23573,   2.62740,   2.09407,
     +    1.58746,   2.42153,   2.62908,
     +     .02433,    .01370,  67.32244,   2.85433,   2.32478,
     +    1.82240,   2.65014,   2.85605,
     +     .02499,    .01406,  73.27657,   3.07828,   2.55273,
     +    2.05521,   2.87564,   3.08005,
     +     .02562,    .01440,  79.07608,   3.29793,   2.77683,
     +    2.28494,   3.09672,   3.29975 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02625,    .01474,  84.94615,   3.52444,   3.00624,
     +    2.51753,   3.32461,   3.52629,
     +     .02687,    .01507,  90.87940,   3.75508,   3.24046,
     +    2.75608,   3.55660,   3.75698,
     +     .02746,    .01539,  96.63532,   3.98113,   3.46999,
     +    2.98983,   3.78389,   3.98306,
     +     .02801,    .01569, 102.11241,   4.19949,   3.69099,
     +    3.21390,   4.00340,   4.20146,
     +     .02857,    .01600, 107.78486,   4.42681,   3.92180,
     +    3.44898,   4.23186,   4.42882,
     +     .02913,    .01630, 113.35782,   4.65427,   4.15161,
     +    3.68147,   4.46042,   4.65632,
     +     .02966,    .01658, 118.82533,   4.87819,   4.37874,
     +    3.91252,   4.68537,   4.88027,
     +     .03016,    .01686, 123.96405,   5.09256,   4.59514,
     +    4.13129,   4.90070,   5.09468 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03067,    .01713, 129.28189,   5.31538,   4.82071,
     +    4.36020,   5.12448,   5.31753,
     +     .03118,    .01741, 134.53226,   5.53852,   5.04612,
     +    4.58831,   5.34855,   5.54071,
     +     .03166,    .01767, 139.60414,   5.75601,   5.26588,
     +    4.81077,   5.56692,   5.75823,
     +     .03213,    .01792, 144.48814,   5.96694,   5.47926,
     +    5.02711,   5.77867,   5.96919,
     +     .03259,    .01818, 149.38087,   6.18175,   5.69584,
     +    5.24578,   5.99431,   6.18403 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01717,    .00979,    .79995,    .44401,    .00000,
     +     .00000,    .23633,    .44451,
     +     .01786,    .01016,   1.58945,    .46730,    .00000,
     +     .00000,    .26149,    .46784,
     +     .01889,    .01071,   3.00417,    .51069,    .00000,
     +     .00000,    .30751,    .51129,
     +     .01964,    .01111,   4.21609,    .54867,    .02213,
     +     .00000,    .34732,    .54930,
     +     .02042,    .01153,   5.57519,    .59439,    .07492,
     +     .00000,    .39487,    .59507,
     +     .02110,    .01190,   6.89120,    .63892,    .12281,
     +     .00000,    .44093,    .63964,
     +     .02175,    .01225,   8.29296,    .68550,    .17347,
     +     .00000,    .48894,    .68626,
     +     .02244,    .01262,   9.92687,    .73921,    .23261,
     +     .00000,    .54413,    .74002 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02304,    .01295,  11.44065,    .78986,    .28581,
     +     .00000,    .59602,    .79070,
     +     .02362,    .01326,  12.99852,    .84200,    .34073,
     +     .00000,    .64934,    .84288,
     +     .02408,    .01351,  14.31740,    .88561,    .38749,
     +     .00000,    .69387,    .88652,
     +     .02506,    .01405,  17.21517,    .98562,    .49234,
     +     .00935,    .79577,    .98658,
     +     .02590,    .01451,  19.77287,   1.07844,    .58869,
     +     .12221,    .89016,   1.07946,
     +     .02685,    .01502,  22.83006,   1.19017,    .70467,
     +     .25768,   1.00359,   1.19125,
     +     .02784,    .01556,  26.23031,   1.31471,    .83359,
     +     .39302,   1.12984,   1.31585,
     +     .02875,    .01605,  29.49119,   1.43486,    .95771,
     +     .52331,   1.25150,   1.43606 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .02966,    .01655,  32.94991,   1.56319,   1.09018,
     +     .66165,   1.38131,   1.56445,
     +     .03042,    .01697,  35.92599,   1.67479,   1.20477,
     +     .77982,   1.49411,   1.67610,
     +     .03134,    .01747,  39.65135,   1.81612,   1.34935,
     +     .92826,   1.63686,   1.81750,
     +     .03216,    .01792,  43.07214,   1.94695,   1.48342,
     +    1.06656,   1.76892,   1.94838,
     +     .03291,    .01833,  46.30743,   2.07172,   1.61135,
     +    1.19858,   1.89478,   2.07320,
     +     .03387,    .01885,  50.47730,   2.23538,   1.77800,
     +    1.36871,   2.05980,   2.23692,
     +     .03478,    .01935,  54.51362,   2.39560,   1.94136,
     +    1.53598,   2.22127,   2.39720,
     +     .03563,    .01982,  58.40839,   2.55162,   2.10084,
     +    1.69989,   2.37844,   2.55328 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03648,    .02028,  62.30882,   2.71124,   2.26275,
     +    1.86443,   2.53918,   2.71296,
     +     .03732,    .02074,  66.21754,   2.87271,   2.42700,
     +    2.03212,   2.70172,   2.87449,
     +     .03811,    .02118,  69.97723,   3.02993,   2.58693,
     +    2.19538,   2.85995,   3.03177,
     +     .03886,    .02159,  73.52297,   3.18081,   2.73987,
     +    2.35080,   3.01175,   3.18270,
     +     .03962,    .02200,  77.17065,   3.33704,   2.89880,
     +    2.51306,   3.16890,   3.33898,
     +     .04036,    .02241,  80.72178,   3.49234,   3.05594,
     +    2.67239,   3.32509,   3.49434,
     +     .04108,    .02280,  84.18540,   3.64450,   3.21057,
     +    2.83006,   3.47808,   3.64655,
     +     .04175,    .02317,  87.41275,   3.78929,   3.35696,
     +    2.97836,   3.62363,   3.79138 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04244,    .02354,  90.73483,   3.93912,   3.50892,
     +    3.13292,   3.77424,   3.94127,
     +     .04311,    .02391,  93.98993,   4.08836,   3.65992,
     +    3.28607,   3.92423,   4.09055,
     +     .04376,    .02427,  97.11550,   4.23315,   3.80647,
     +    3.43475,   4.06972,   4.23538,
     +     .04438,    .02461, 100.10902,   4.37298,   3.94819,
     +    3.57876,   4.21021,   4.37526,
     +     .04500,    .02495, 103.08524,   4.51464,   4.09125,
     +    3.72350,   4.35254,   4.51697 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02408,    .01323,    .74774,    .37920,    .00000,
     +     .00000,    .20263,    .37999,
     +     .02507,    .01377,   1.45667,    .39995,    .00000,
     +     .00000,    .22496,    .40081,
     +     .02651,    .01457,   2.69679,    .43763,    .00000,
     +     .00000,    .26485,    .43858,
     +     .02756,    .01515,   3.73530,    .46997,    .01872,
     +     .00000,    .29873,    .47099,
     +     .02865,    .01575,   4.87763,    .50828,    .06312,
     +     .00000,    .33858,    .50938,
     +     .02959,    .01627,   5.96550,    .54508,    .10286,
     +     .00000,    .37667,    .54626,
     +     .03050,    .01678,   7.10861,    .58320,    .14448,
     +     .00000,    .41599,    .58444,
     +     .03146,    .01731,   8.42335,    .62674,    .19259,
     +     .00000,    .46077,    .62805 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03230,    .01777,   9.62532,    .66737,    .23545,
     +     .00000,    .50245,    .66874,
     +     .03310,    .01822,  10.84866,    .70886,    .27933,
     +     .00000,    .54493,    .71029,
     +     .03374,    .01857,  11.87522,    .74336,    .31646,
     +     .00000,    .58020,    .74484,
     +     .03510,    .01933,  14.09939,    .82167,    .39891,
     +     .00758,    .66010,    .82325,
     +     .03627,    .01997,  16.02884,    .89355,    .47384,
     +     .09553,    .73330,    .89522,
     +     .03757,    .02070,  18.30172,    .97918,    .56310,
     +     .20044,    .82035,    .98094,
     +     .03893,    .02145,  20.79203,   1.07358,    .66124,
     +     .30393,    .91619,   1.07544,
     +     .04017,    .02214,  23.14664,   1.16371,    .75475,
     +     .40254,   1.00759,   1.16567 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04142,    .02284,  25.61171,   1.25906,    .85361,
     +     .50625,   1.10419,   1.26112,
     +     .04246,    .02341,  27.70740,   1.34126,    .93835,
     +     .59403,   1.18740,   1.34340,
     +     .04372,    .02411,  30.29984,   1.44444,   1.04435,
     +     .70333,   1.29177,   1.44668,
     +     .04484,    .02473,  32.65351,   1.53916,   1.14182,
     +     .80432,   1.38752,   1.54148,
     +     .04586,    .02530,  34.85741,   1.62882,   1.23414,
     +     .90002,   1.47810,   1.63122,
     +     .04716,    .02602,  37.66451,   1.74541,   1.35334,
     +    1.02223,   1.59584,   1.74791,
     +     .04839,    .02670,  40.35104,   1.85860,   1.46922,
     +    1.14140,   1.71007,   1.86119,
     +     .04954,    .02734,  42.91744,   1.96799,   1.58150,
     +    1.25731,   1.82043,   1.97067 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05068,    .02797,  45.45756,   2.07896,   1.69450,
     +    1.37263,   1.93234,   2.08173,
     +     .05181,    .02860,  47.97963,   2.19044,   1.80836,
     +    1.48937,   2.04473,   2.19330,
     +     .05288,    .02919,  50.38315,   2.29824,   1.91846,
     +    1.60225,   2.15338,   2.30119,
     +     .05389,    .02974,  52.62758,   2.40097,   2.02300,
     +    1.70892,   2.25688,   2.40399,
     +     .05490,    .03031,  54.92005,   2.50675,   2.13105,
     +    1.81971,   2.36344,   2.50986,
     +     .05590,    .03086,  57.12881,   2.61116,   2.23709,
     +    1.92767,   2.46859,   2.61434,
     +     .05685,    .03138,  59.27003,   2.71295,   2.34096,
     +    2.03404,   2.57108,   2.71621,
     +     .05775,    .03188,  61.24557,   2.80917,   2.43861,
     +    2.13336,   2.66795,   2.81250 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05866,    .03238,  63.26753,   2.90829,   2.53954,
     +    2.23646,   2.76773,   2.91169,
     +     .05956,    .03288,  65.23174,   3.00644,   2.63924,
     +    2.33798,   2.86651,   3.00992,
     +     .06042,    .03335,  67.10517,   3.10120,   2.73552,
     +    2.43607,   2.96186,   3.10474,
     +     .06124,    .03380,  68.88885,   3.19231,   2.82823,
     +    2.53068,   3.05353,   3.19591,
     +     .06206,    .03426,  70.64667,   3.28408,   2.92126,
     +    2.62518,   3.14587,   3.28776 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .02940,    .01589,    .72384,    .34576,    .00000,
     +     .00000,    .18536,    .34702,
     +     .03060,    .01656,   1.38981,    .36510,    .00000,
     +     .00000,    .20613,    .36645,
     +     .03236,    .01755,   2.53690,    .39969,    .00000,
     +     .00000,    .24276,    .40119,
     +     .03364,    .01827,   3.48392,    .42905,    .01693,
     +     .00000,    .27352,    .43065,
     +     .03497,    .01901,   4.51312,    .46349,    .05696,
     +     .00000,    .30938,    .46520,
     +     .03611,    .01966,   5.48310,    .49631,    .09251,
     +     .00000,    .34338,    .49811,
     +     .03721,    .02027,   6.49371,    .53009,    .12950,
     +     .00000,    .37826,    .53198,
     +     .03838,    .02093,   7.64642,    .56846,    .17201,
     +     .00000,    .41777,    .57044 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .03939,    .02149,   8.69152,    .60403,    .20964,
     +     .00000,    .45430,    .60610,
     +     .04036,    .02204,   9.74788,    .64017,    .24799,
     +     .00000,    .49135,    .64232,
     +     .04114,    .02247,  10.62945,    .67011,    .28032,
     +     .00000,    .52200,    .67232,
     +     .04278,    .02339,  12.52279,    .73765,    .35167,
     +     .00669,    .59100,    .74000,
     +     .04418,    .02418,  14.14737,    .79922,    .41607,
     +     .08240,    .65378,    .80169,
     +     .04576,    .02506,  16.04370,    .87210,    .49231,
     +     .17238,    .72797,    .87469,
     +     .04740,    .02598,  18.10199,    .95189,    .57555,
     +     .26046,    .80909,    .95462,
     +     .04888,    .02681,  20.03087,   1.02759,    .65437,
     +     .34387,    .88596,   1.03044 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05038,    .02765,  22.03373,   1.10720,    .73720,
     +     .43106,    .96672,   1.11018,
     +     .05162,    .02835,  23.72355,   1.17545,    .80782,
     +     .50445,   1.03590,   1.17853,
     +     .05313,    .02919,  25.79831,   1.26066,    .89566,
     +     .59533,   1.12221,   1.26387,
     +     .05446,    .02994,  27.66857,   1.33848,    .97603,
     +     .67889,   1.20098,   1.34180,
     +     .05569,    .03062,  29.40879,   1.41180,   1.05180,
     +     .75771,   1.27516,   1.41523,
     +     .05724,    .03148,  31.60853,   1.50663,   1.14909,
     +     .85779,   1.37105,   1.51019,
     +     .05869,    .03230,  33.69870,   1.59821,   1.24318,
     +     .95488,   1.46360,   1.60189,
     +     .06006,    .03306,  35.68271,   1.68630,   1.33393,
     +    1.04890,   1.55259,   1.69010 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06142,    .03382,  37.63143,   1.77520,   1.42476,
     +    1.14190,   1.64236,   1.77911,
     +     .06276,    .03456,  39.55497,   1.86412,   1.51590,
     +    1.23567,   1.73212,   1.86814,
     +     .06403,    .03527,  41.37719,   1.94974,   1.60365,
     +    1.32595,   1.81853,   1.95387,
     +     .06522,    .03593,  43.06780,   2.03097,   1.68659,
     +    1.41087,   1.90047,   2.03519,
     +     .06642,    .03659,  44.78679,   2.11432,   1.77204,
     +    1.49880,   1.98455,   2.11865,
     +     .06759,    .03725,  46.43161,   2.19622,   1.85550,
     +    1.58405,   2.06714,   2.20065,
     +     .06872,    .03787,  48.02005,   2.27583,   1.93702,
     +    1.66784,   2.14741,   2.28036,
     +     .06977,    .03846,  49.47576,   2.35077,   2.01332,
     +    1.74570,   2.22295,   2.35538 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07085,    .03905,  50.96040,   2.42775,   2.09199,
     +    1.82634,   2.30054,   2.43245,
     +     .07190,    .03964,  52.39432,   2.50369,   2.16939,
     +    1.90543,   2.37707,   2.50848,
     +     .07291,    .04019,  53.75595,   2.57678,   2.24391,
     +    1.98161,   2.45072,   2.58166,
     +     .07387,    .04072,  55.04736,   2.64686,   2.31547,
     +    2.05490,   2.52133,   2.65182,
     +     .07484,    .04126,  56.31229,   2.71720,   2.38701,
     +    2.12781,   2.59218,   2.72224 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03390,    .01819,    .71082,    .32392,    .00000,
     +     .00000,    .17410,    .32563,
     +     .03528,    .01897,   1.34804,    .34228,    .00000,
     +     .00000,    .19381,    .34411,
     +     .03731,    .02012,   2.43268,    .37480,    .00000,
     +     .00000,    .22824,    .37680,
     +     .03878,    .02095,   3.31858,    .40216,    .01574,
     +     .00000,    .25693,    .40429,
     +     .04031,    .02182,   4.27269,    .43404,    .05288,
     +     .00000,    .29015,    .43630,
     +     .04162,    .02256,   5.16490,    .46423,    .08566,
     +     .00000,    .32145,    .46660,
     +     .04288,    .02327,   6.08857,    .49517,    .11961,
     +     .00000,    .35343,    .49765,
     +     .04422,    .02403,   7.13555,    .53015,    .15846,
     +     .00000,    .38950,    .53276 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04538,    .02468,   8.07890,    .56243,    .19270,
     +     .00000,    .42269,    .56514,
     +     .04649,    .02531,   9.02747,    .59512,    .22748,
     +     .00000,    .45624,    .59792,
     +     .04738,    .02581,   9.81585,    .62211,    .25670,
     +     .00000,    .48391,    .62500,
     +     .04925,    .02687,  11.49788,    .68274,    .32092,
     +     .00611,    .54592,    .68579,
     +     .05086,    .02777,  12.92923,    .73772,    .37860,
     +     .07400,    .60205,    .74091,
     +     .05265,    .02879,  14.58856,    .80249,    .44654,
     +     .15448,    .66806,    .80584,
     +     .05451,    .02984,  16.37693,    .87305,    .52037,
     +     .23280,    .73988,    .87656,
     +     .05620,    .03079,  18.04163,    .93967,    .58994,
     +     .30662,    .80761,    .94333 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05791,    .03174,  19.75953,   1.00942,    .66274,
     +     .38346,    .87846,   1.01323,
     +     .05932,    .03254,  21.20060,   1.06897,    .72454,
     +     .44786,    .93890,   1.07291,
     +     .06102,    .03350,  22.95992,   1.14303,    .80111,
     +     .52731,   1.01401,   1.14711,
     +     .06253,    .03434,  24.53726,   1.21039,    .87090,
     +     .60007,   1.08228,   1.21461,
     +     .06392,    .03512,  25.99795,   1.27365,    .93647,
     +     .66847,   1.14635,   1.27799,
     +     .06567,    .03610,  27.83360,   1.35513,   1.02032,
     +     .75497,   1.22885,   1.35963,
     +     .06731,    .03702,  29.56831,   1.43351,   1.10109,
     +     .83856,   1.30816,   1.43815,
     +     .06885,    .03788,  31.20694,   1.50865,   1.17873,
     +     .91923,   1.38416,   1.51343 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07039,    .03874,  32.80691,   1.58417,   1.25612,
     +     .99869,   1.46051,   1.58908,
     +     .07189,    .03958,  34.37914,   1.65946,   1.33353,
     +    1.07857,   1.53661,   1.66451,
     +     .07332,    .04037,  35.86174,   1.73173,   1.40783,
     +    1.15523,   1.60963,   1.73690,
     +     .07465,    .04112,  37.23031,   1.80006,   1.47781,
     +    1.22709,   1.67866,   1.80535,
     +     .07600,    .04187,  38.61710,   1.87001,   1.54973,
     +    1.30131,   1.74930,   1.87542,
     +     .07732,    .04260,  39.93678,   1.93850,   1.61973,
     +    1.37303,   1.81845,   1.94402,
     +     .07858,    .04330,  41.20759,   2.00493,   1.68796,
     +    1.44336,   1.88550,   2.01056,
     +     .07976,    .04396,  42.36598,   2.06724,   1.75161,
     +    1.50850,   1.94840,   2.07298 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08096,    .04462,  43.54421,   2.13114,   1.81710,
     +    1.57584,   2.01289,   2.13698,
     +     .08214,    .04528,  44.67693,   2.19399,   1.88135,
     +    1.64168,   2.07630,   2.19993,
     +     .08327,    .04590,  45.74885,   2.25434,   1.94308,
     +    1.70497,   2.13719,   2.26038,
     +     .08434,    .04649,  46.76245,   2.31209,   2.00223,
     +    1.76573,   2.19544,   2.31822,
     +     .08541,    .04709,  47.75029,   2.36989,   2.06119,
     +    1.82600,   2.25374,   2.37611 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03791,    .02037,    .70467,    .30833,    .00000,
     +     .00000,    .16590,    .31025,
     +     .03945,    .02125,   1.32058,    .32595,    .00000,
     +     .00000,    .18479,    .32800,
     +     .04172,    .02254,   2.35827,    .35687,    .00000,
     +     .00000,    .21752,    .35913,
     +     .04336,    .02347,   3.19817,    .38272,    .01484,
     +     .00000,    .24463,    .38512,
     +     .04506,    .02444,   4.09588,    .41267,    .04979,
     +     .00000,    .27584,    .41523,
     +     .04652,    .02528,   4.92983,    .44089,    .08049,
     +     .00000,    .30511,    .44358,
     +     .04792,    .02607,   5.78855,    .46971,    .11217,
     +     .00000,    .33492,    .47253,
     +     .04941,    .02692,   6.75681,    .50218,    .14829,
     +     .00000,    .36841,    .50513 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05069,    .02765,   7.62465,    .53203,    .18001,
     +     .00000,    .39912,    .53510,
     +     .05193,    .02835,   8.49350,    .56216,    .21213,
     +     .00000,    .43007,    .56534,
     +     .05291,    .02891,   9.21314,    .58700,    .23907,
     +     .00000,    .45554,    .59026,
     +     .05499,    .03008,  10.74001,    .64255,    .29803,
     +     .00567,    .51240,    .64600,
     +     .05676,    .03109,  12.03027,    .69273,    .35077,
     +     .06782,    .56366,    .69634,
     +     .05874,    .03221,  13.51735,    .75160,    .41266,
     +     .14133,    .62371,    .75539,
     +     .06080,    .03337,  15.11062,    .81546,    .47963,
     +     .21253,    .68877,    .81944,
     +     .06266,    .03443,  16.58543,    .87553,    .54250,
     +     .27938,    .74989,    .87968 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06454,    .03548,  18.09943,    .93820,    .60804,
     +     .34871,    .81359,    .94251,
     +     .06609,    .03636,  19.36315,    .99151,    .66350,
     +     .40663,    .86775,    .99597,
     +     .06796,    .03741,  20.89869,   1.05759,    .73197,
     +     .47783,    .93482,   1.06221,
     +     .06962,    .03835,  22.26915,   1.11751,    .79418,
     +     .54284,    .99560,   1.12228,
     +     .07114,    .03920,  23.53308,   1.17361,    .85247,
     +     .60379,   1.05247,   1.17851,
     +     .07306,    .04028,  25.11352,   1.24563,    .92675,
     +     .68059,   1.12546,   1.25071,
     +     .07486,    .04129,  26.60018,   1.31469,    .99808,
     +     .75458,   1.19539,   1.31993,
     +     .07655,    .04223,  27.99883,   1.38069,   1.06645,
     +     .82578,   1.26222,   1.38608 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07823,    .04317,  29.35723,   1.44681,   1.13437,
     +     .89568,   1.32912,   1.45235,
     +     .07987,    .04408,  30.68714,   1.51255,   1.20212,
     +     .96576,   1.39563,   1.51824,
     +     .08142,    .04495,  31.93646,   1.57548,   1.26699,
     +    1.03284,   1.45928,   1.58131,
     +     .08288,    .04576,  33.08442,   1.63482,   1.32790,
     +    1.09554,   1.51928,   1.64078,
     +     .08435,    .04658,  34.24421,   1.69544,   1.39039,
     +    1.16018,   1.58056,   1.70153,
     +     .08578,    .04738,  35.34293,   1.75462,   1.45102,
     +    1.22244,   1.64037,   1.76083,
     +     .08715,    .04814,  36.39847,   1.81191,   1.51002,
     +    1.28341,   1.69826,   1.81824,
     +     .08844,    .04885,  37.35588,   1.86550,   1.56489,
     +    1.33972,   1.75241,   1.87195 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .08974,    .04957,  38.32745,   1.92036,   1.62127,
     +    1.39782,   1.80783,   1.92693,
     +     .09102,    .05028,  39.25768,   1.97420,   1.67645,
     +    1.45451,   1.86220,   1.98088,
     +     .09224,    .05095,  40.13538,   2.02580,   1.72936,
     +    1.50889,   1.91431,   2.03259,
     +     .09340,    .05159,  40.96314,   2.07509,   1.77998,
     +    1.56102,   1.96408,   2.08198,
     +     .09457,    .05224,  41.76605,   2.12429,   1.83030,
     +    1.61260,   2.01376,   2.13128 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05391,    .02934,    .70358,    .26481,    .00000,
     +     .00000,    .14330,    .26802,
     +     .05609,    .03061,   1.25726,    .28021,    .00000,
     +     .00000,    .15980,    .28362,
     +     .05927,    .03246,   2.15787,    .30651,    .00000,
     +     .00000,    .18767,    .31024,
     +     .06156,    .03379,   2.86494,    .32803,    .01229,
     +     .00000,    .21027,    .33198,
     +     .06393,    .03516,   3.60167,    .35251,    .04106,
     +     .00000,    .23584,    .35668,
     +     .06596,    .03633,   4.27106,    .37520,    .06594,
     +     .00000,    .25945,    .37957,
     +     .06790,    .03745,   4.94797,    .39810,    .09129,
     +     .00000,    .28320,    .40266,
     +     .06995,    .03863,   5.69790,    .42361,    .11988,
     +     .00000,    .30960,    .42837 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07171,    .03965,   6.35832,    .44677,    .14468,
     +     .00000,    .33350,    .45169,
     +     .07341,    .04062,   7.00990,    .46990,    .16955,
     +     .00000,    .35735,    .47499,
     +     .07475,    .04139,   7.54336,    .48883,    .19025,
     +     .00000,    .37683,    .49404,
     +     .07759,    .04302,   8.65397,    .53064,    .23502,
     +     .00447,    .41979,    .53613,
     +     .08000,    .04439,   9.57014,    .56788,    .27451,
     +     .05123,    .45798,    .57360,
     +     .08268,    .04592,  10.60547,    .61101,    .32026,
     +     .10613,    .50214,    .61698,
     +     .08545,    .04750,  11.69251,    .65714,    .36910,
     +     .15847,    .54932,    .66338,
     +     .08795,    .04891,  12.67945,    .69996,    .41435,
     +     .20701,    .59307,    .70643 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09046,    .05033,  13.67466,    .74409,    .46096,
     +     .25674,    .63811,    .75080,
     +     .09253,    .05150,  14.49147,    .78121,    .49996,
     +     .29782,    .67597,    .78811,
     +     .09502,    .05291,  15.46751,    .82669,    .54757,
     +     .34777,    .72233,    .83383,
     +     .09722,    .05414,  16.32493,    .86749,    .59037,
     +     .39290,    .76389,    .87484,
     +     .09923,    .05527,  17.10466,    .90533,    .63010,
     +     .43482,    .80242,    .91286,
     +     .10175,    .05668,  18.06255,    .95335,    .68014,
     +     .48705,    .85129,    .96111,
     +     .10411,    .05800,  18.94899,    .99889,    .72768,
     +     .53683,    .89762,   1.00687,
     +     .10631,    .05923,  19.77104,   1.04199,    .77283,
     +     .58431,    .94145,   1.05018 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10850,    .06044,  20.55458,   1.08467,    .81715,
     +     .63035,    .98484,   1.09306,
     +     .11063,    .06162,  21.31139,   1.12673,    .86098,
     +     .67614,   1.02758,   1.13531,
     +     .11263,    .06273,  22.01237,   1.16663,    .90257,
     +     .71959,   1.06812,   1.17539,
     +     .11451,    .06377,  22.64596,   1.20388,    .94125,
     +     .75980,   1.10596,   1.21281,
     +     .11640,    .06481,  23.27955,   1.24167,    .98066,
     +     .80100,   1.14434,   1.25078,
     +     .11823,    .06583,  23.86882,   1.27818,   1.01850,
     +     .84026,   1.18142,   1.28746,
     +     .11998,    .06679,  24.43027,   1.31332,   1.05513,
     +     .87851,   1.21710,   1.32276,
     +     .12162,    .06769,  24.93004,   1.34588,   1.08886,
     +     .91348,   1.25015,   1.35545 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12328,    .06859,  25.43319,   1.37901,   1.12333,
     +     .94940,   1.28379,   1.38874,
     +     .12490,    .06948,  25.90720,   1.41125,   1.15678,
     +     .98414,   1.31652,   1.42112,
     +     .12644,    .07032,  26.34937,   1.44195,   1.18865,
     +    1.01726,   1.34768,   1.45196,
     +     .12790,    .07112,  26.76232,   1.47110,   1.21897,
     +    1.04883,   1.37727,   1.48124,
     +     .12937,    .07192,  27.15546,   1.49994,   1.24885,
     +    1.07980,   1.40655,   1.51021 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07758,    .04357,    .74971,    .22908,    .00000,
     +     .00000,    .12476,    .23432,
     +     .08064,    .04536,   1.24345,    .24239,    .00000,
     +     .00000,    .13904,    .24796,
     +     .08508,    .04796,   2.01426,    .26447,    .00000,
     +     .00000,    .16249,    .27049,
     +     .08826,    .04981,   2.59875,    .28210,    .01005,
     +     .00000,    .18108,    .28845,
     +     .09153,    .05171,   3.19018,    .30175,    .03340,
     +     .00000,    .20170,    .30844,
     +     .09432,    .05331,   3.71392,    .31965,    .05324,
     +     .00000,    .22040,    .32661,
     +     .09697,    .05484,   4.23246,    .33746,    .07319,
     +     .00000,    .23897,    .34469,
     +     .09976,    .05645,   4.79530,    .35703,    .09539,
     +     .00000,    .25933,    .36455 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10216,    .05782,   5.28089,    .37455,    .11438,
     +     .00000,    .27752,    .38231,
     +     .10446,    .05913,   5.75179,    .39185,    .13321,
     +     .00000,    .29545,    .39984,
     +     .10627,    .06017,   6.13212,    .40588,    .14876,
     +     .00000,    .30998,    .41405,
     +     .11008,    .06233,   6.90606,    .43644,    .18192,
     +     .00345,    .34156,    .44498,
     +     .11329,    .06415,   7.52575,    .46321,    .21071,
     +     .03779,    .36919,    .47207,
     +     .11685,    .06616,   8.20966,    .49374,    .24358,
     +     .07776,    .40065,    .50295,
     +     .12052,    .06821,   8.91025,    .52587,    .27811,
     +     .11521,    .43372,    .53544,
     +     .12380,    .07005,   9.53134,    .55523,    .30963,
     +     .14943,    .46393,    .56512 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12708,    .07188,  10.14395,    .58506,    .34165,
     +     .18401,    .49459,    .59526,
     +     .12978,    .07337,  10.63613,    .60982,    .36809,
     +     .21221,    .52002,    .62028,
     +     .13300,    .07516,  11.21206,    .63974,    .39995,
     +     .24606,    .55074,    .65050,
     +     .13583,    .07672,  11.70790,    .66623,    .42824,
     +     .27630,    .57793,    .67726,
     +     .13840,    .07813,  12.15063,    .69053,    .45421,
     +     .30408,    .60286,    .70180,
     +     .14162,    .07990,  12.68185,    .72094,    .48648,
     +     .33823,    .63405,    .73251,
     +     .14462,    .08153,  13.16296,    .74940,    .51676,
     +     .37039,    .66323,    .76125,
     +     .14741,    .08305,  13.60078,    .77603,    .54520,
     +     .40074,    .69053,    .78813 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15015,    .08454,  14.00708,    .80202,    .57272,
     +     .42977,    .71718,    .81437,
     +     .15282,    .08598,  14.39233,    .82735,    .59967,
     +     .45836,    .74314,    .83995,
     +     .15532,    .08733,  14.74206,    .85112,    .62497,
     +     .48520,    .76751,    .86395,
     +     .15765,    .08858,  15.05064,    .87304,    .64822,
     +     .50977,    .78998,    .88608,
     +     .15998,    .08983,  15.35507,    .89510,    .67173,
     +     .53475,    .81258,    .90834,
     +     .16224,    .09104,  15.62969,    .91612,    .69402,
     +     .55827,    .83414,    .92957,
     +     .16439,    .09218,  15.88850,    .93622,    .71545,
     +     .58104,    .85474,    .94986,
     +     .16639,    .09324,  16.11165,    .95460,    .73494,
     +     .60161,    .87358,    .96841 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16840,    .09431,  16.33386,    .97319,    .75475,
     +     .62261,    .89264,    .98718,
     +     .17037,    .09535,  16.53763,    .99107,    .77376,
     +     .64272,    .91098,   1.00523,
     +     .17223,    .09633,  16.72431,   1.00795,    .79174,
     +     .66175,    .92830,   1.02228,
     +     .17399,    .09726,  16.89585,   1.02387,    .80873,
     +     .67977,    .94463,   1.03835,
     +     .17575,    .09818,  17.05322,   1.03944,    .82528,
     +     .69726,    .96060,   1.05407 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09667,    .05554,    .80815,    .21129,    .00000,
     +     .00000,    .11570,    .21842,
     +     .10039,    .05770,   1.26637,    .22345,    .00000,
     +     .00000,    .12878,    .23098,
     +     .10576,    .06081,   1.96185,    .24320,    .00000,
     +     .00000,    .14983,    .25129,
     +     .10959,    .06302,   2.47721,    .25873,    .00887,
     +     .00000,    .16628,    .26722,
     +     .11350,    .06526,   2.98892,    .27581,    .02938,
     +     .00000,    .18428,    .28471,
     +     .11682,    .06716,   3.43443,    .29117,    .04661,
     +     .00000,    .20041,    .30041,
     +     .11998,    .06896,   3.86928,    .30632,    .06376,
     +     .00000,    .21630,    .31589,
     +     .12330,    .07084,   4.33484,    .32283,    .08270,
     +     .00000,    .23356,    .33273 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12614,    .07244,   4.73106,    .33746,    .09874,
     +     .00000,    .24883,    .34765,
     +     .12885,    .07397,   5.11078,    .35179,    .11455,
     +     .00000,    .26378,    .36226,
     +     .13099,    .07517,   5.41464,    .36335,    .12751,
     +     .00000,    .27581,    .37403,
     +     .13545,    .07766,   6.02327,    .38828,    .15492,
     +     .00293,    .30173,    .39940,
     +     .13921,    .07975,   6.50025,    .40988,    .17847,
     +     .03119,    .32416,    .42137,
     +     .14335,    .08204,   7.01779,    .43425,    .20509,
     +     .06391,    .34944,    .44615,
     +     .14759,    .08437,   7.53883,    .45962,    .23275,
     +     .09419,    .37573,    .47193,
     +     .15138,    .08645,   7.99295,    .48256,    .25776,
     +     .12160,    .39948,    .49523 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15515,    .08851,   8.43366,    .50563,    .28292,
     +     .14906,    .42336,    .51866,
     +     .15824,    .09018,   8.78225,    .52459,    .30351,
     +     .17125,    .44298,    .53791,
     +     .16192,    .09217,   9.18342,    .54729,    .32810,
     +     .19767,    .46647,    .56097,
     +     .16514,    .09390,   9.52356,    .56723,    .34976,
     +     .22109,    .48709,    .58120,
     +     .16805,    .09547,   9.82317,    .58536,    .36950,
     +     .24245,    .50584,    .59961,
     +     .17168,    .09741,  10.17582,    .60783,    .39380,
     +     .26847,    .52907,    .62241,
     +     .17505,    .09920,  10.48975,    .62866,    .41640,
     +     .29278,    .55061,    .64354,
     +     .17818,    .10085,  10.77114,    .64800,    .43747,
     +     .31556,    .57061,    .66316 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18124,    .10246,  11.02613,    .66667,    .45767,
     +     .33714,    .58992,    .68211,
     +     .18420,    .10402,  11.26416,    .68473,    .47730,
     +     .35825,    .60861,    .70043,
     +     .18698,    .10547,  11.47640,    .70155,    .49560,
     +     .37795,    .62601,    .71749,
     +     .18955,    .10681,  11.65925,    .71691,    .51228,
     +     .39583,    .64191,    .73308,
     +     .19212,    .10814,  11.83749,    .73228,    .52905,
     +     .41392,    .65782,    .74867,
     +     .19460,    .10942,  11.99360,    .74678,    .54481,
     +     .43080,    .67284,    .76338,
     +     .19695,    .11063,  12.13947,    .76058,    .55990,
     +     .44709,    .68714,    .77738,
     +     .19912,    .11175,  12.26083,    .77306,    .57349,
     +     .46167,    .70008,    .79005 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20131,    .11287,  12.38050,    .78564,    .58725,
     +     .47651,    .71312,    .80280,
     +     .20344,    .11396,  12.48669,    .79762,    .60036,
     +     .49061,    .72556,    .81497,
     +     .20546,    .11498,  12.58190,    .80887,    .61268,
     +     .50389,    .73723,    .82638,
     +     .20736,    .11595,  12.66784,    .81942,    .62427,
     +     .51641,    .74819,    .83709,
     +     .20924,    .11690,  12.74288,    .82963,    .63546,
     +     .52846,    .75880,    .84745 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11347,    .06627,    .87070,    .20002,    .00000,
     +     .00000,    .11005,    .20894,
     +     .11772,    .06872,   1.30128,    .21137,    .00000,
     +     .00000,    .12231,    .22075,
     +     .12383,    .07221,   1.94199,    .22951,    .00000,
     +     .00000,    .14172,    .23954,
     +     .12818,    .07468,   2.40832,    .24359,    .00808,
     +     .00000,    .15671,    .25408,
     +     .13260,    .07718,   2.86470,    .25893,    .02670,
     +     .00000,    .17296,    .26988,
     +     .13634,    .07928,   3.25688,    .27259,    .04220,
     +     .00000,    .18738,    .28393,
     +     .13989,    .08127,   3.63542,    .28597,    .05752,
     +     .00000,    .20148,    .29767,
     +     .14362,    .08334,   4.03637,    .30044,    .07432,
     +     .00000,    .21670,    .31252 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14679,    .08510,   4.37395,    .31317,    .08845,
     +     .00000,    .23006,    .32557,
     +     .14981,    .08677,   4.69447,    .32556,    .10229,
     +     .00000,    .24306,    .33827,
     +     .15219,    .08808,   4.94909,    .33551,    .11360,
     +     .00000,    .25348,    .34845,
     +     .15715,    .09080,   5.45245,    .35680,    .13732,
     +     .00260,    .27575,    .37023,
     +     .16130,    .09306,   5.83981,    .37508,    .15754,
     +     .02699,    .29486,    .38892,
     +     .16587,    .09553,   6.25428,    .39554,    .18021,
     +     .05512,    .31622,    .40982,
     +     .17053,    .09804,   6.66555,    .41665,    .20358,
     +     .08092,    .33824,    .43137,
     +     .17467,    .10026,   7.01880,    .43556,    .22454,
     +     .10410,    .35796,    .45068 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17879,    .10245,   7.35691,    .45444,    .24547,
     +     .12716,    .37764,    .46994,
     +     .18214,    .10423,   7.62065,    .46983,    .26248,
     +     .14566,    .39369,    .48564,
     +     .18613,    .10633,   7.91980,    .48812,    .28265,
     +     .16756,    .41277,    .50430,
     +     .18960,    .10815,   8.16999,    .50406,    .30030,
     +     .18684,    .42939,    .52056,
     +     .19275,    .10979,   8.38759,    .51847,    .31630,
     +     .20433,    .44442,    .53525,
     +     .19664,    .11182,   8.63905,    .53617,    .33583,
     +     .22549,    .46288,    .55330,
     +     .20025,    .11368,   8.85924,    .55246,    .35388,
     +     .24513,    .47988,    .56990,
     +     .20359,    .11539,   9.05376,    .56747,    .37061,
     +     .26344,    .49556,    .58521 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20684,    .11705,   9.22567,    .58184,    .38651,
     +     .28065,    .51057,    .59985,
     +     .20998,    .11865,   9.38363,    .59565,    .40189,
     +     .29741,    .52500,    .61393,
     +     .21291,    .12014,   9.52185,    .60842,    .41613,
     +     .31295,    .53836,    .62695,
     +     .21562,    .12150,   9.63776,    .61999,    .42903,
     +     .32697,    .55047,    .63874,
     +     .21832,    .12286,   9.74933,    .63151,    .44194,
     +     .34110,    .56253,    .65049,
     +     .22091,    .12415,   9.84338,    .64228,    .45398,
     +     .35420,    .57382,    .66146,
     +     .22337,    .12537,   9.93043,    .65249,    .46547,
     +     .36679,    .58453,    .67187,
     +     .22563,    .12650,   9.99941,    .66164,    .47574,
     +     .37799,    .59414,    .68120 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22791,    .12762,  10.06663,    .67082,    .48610,
     +     .38935,    .60378,    .69056,
     +     .23011,    .12870,  10.12347,    .67950,    .49590,
     +     .40009,    .61291,    .69941,
     +     .23220,    .12972,  10.17283,    .68760,    .50508,
     +     .41015,    .62144,    .70767,
     +     .23416,    .13068,  10.21614,    .69515,    .51367,
     +     .41961,    .62940,    .71538,
     +     .23609,    .13162,  10.25066,    .70240,    .52191,
     +     .42865,    .63705,    .72278 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12882,    .07615,    .93292,    .19192,    .00000,
     +     .00000,    .10611,    .20259,
     +     .13352,    .07881,   1.33980,    .20263,    .00000,
     +     .00000,    .11772,    .21381,
     +     .14025,    .08261,   1.93669,    .21952,    .00000,
     +     .00000,    .13588,    .23141,
     +     .14501,    .08527,   2.36474,    .23251,    .00750,
     +     .00000,    .14977,    .24490,
     +     .14985,    .08796,   2.77852,    .24652,    .02471,
     +     .00000,    .16469,    .25942,
     +     .15394,    .09021,   3.13027,    .25890,    .03893,
     +     .00000,    .17784,    .27222,
     +     .15781,    .09234,   3.46664,    .27096,    .05290,
     +     .00000,    .19061,    .28467,
     +     .16185,    .09455,   3.81972,    .28391,    .06814,
     +     .00000,    .20433,    .29804 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16529,    .09642,   4.11427,    .29524,    .08088,
     +     .00000,    .21629,    .30971,
     +     .16856,    .09819,   4.39174,    .30621,    .09330,
     +     .00000,    .22786,    .32100,
     +     .17113,    .09958,   4.61081,    .31498,    .10340,
     +     .00000,    .23711,    .33002,
     +     .17647,    .10244,   5.03880,    .33362,    .12447,
     +     .00235,    .25674,    .34918,
     +     .18092,    .10482,   5.36271,    .34951,    .14230,
     +     .02399,    .27345,    .36550,
     +     .18581,    .10740,   5.70503,    .36717,    .16218,
     +     .04886,    .29201,    .38362,
     +     .19078,    .11002,   6.04035,    .38523,    .18252,
     +     .07149,    .31100,    .40215,
     +     .19519,    .11232,   6.32453,    .40131,    .20063,
     +     .09170,    .32790,    .41863 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19954,    .11459,   6.59300,    .41723,    .21861,
     +     .11168,    .34463,    .43495,
     +     .20309,    .11642,   6.79975,    .43014,    .23314,
     +     .12763,    .35820,    .44818,
     +     .20729,    .11858,   7.03102,    .44537,    .25026,
     +     .14639,    .37421,    .46378,
     +     .21094,    .12044,   7.22184,    .45855,    .26516,
     +     .16283,    .38808,    .47728,
     +     .21424,    .12211,   7.38567,    .47039,    .27860,
     +     .17768,    .40055,    .48941,
     +     .21831,    .12417,   7.57143,    .48484,    .29490,
     +     .19553,    .41577,    .50420,
     +     .22206,    .12605,   7.73131,    .49804,    .30988,
     +     .21202,    .42969,    .51772,
     +     .22553,    .12778,   7.87039,    .51014,    .32368,
     +     .22731,    .44245,    .53011 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22889,    .12944,   7.98975,    .52161,    .33671,
     +     .24159,    .45457,    .54185,
     +     .23214,    .13104,   8.09749,    .53258,    .34926,
     +     .25544,    .46617,    .55308,
     +     .23515,    .13252,   8.18972,    .54266,    .36082,
     +     .26823,    .47683,    .56340,
     +     .23793,    .13387,   8.26445,    .55172,    .37121,
     +     .27970,    .48644,    .57268,
     +     .24070,    .13522,   8.33527,    .56070,    .38159,
     +     .29123,    .49597,    .58188,
     +     .24335,    .13649,   8.39159,    .56902,    .39120,
     +     .30184,    .50481,    .59040,
     +     .24585,    .13769,   8.44303,    .57688,    .40035,
     +     .31202,    .51318,    .59845,
     +     .24815,    .13879,   8.48075,    .58385,    .40846,
     +     .32102,    .52061,    .60559 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25046,    .13989,   8.51683,    .59083,    .41662,
     +     .33013,    .52806,    .61274,
     +     .25269,    .14094,   8.54469,    .59738,    .42430,
     +     .33869,    .53506,    .61945,
     +     .25479,    .14193,   8.56731,    .60345,    .43146,
     +     .34668,    .54156,    .62567,
     +     .25676,    .14285,   8.58593,    .60909,    .43814,
     +     .35417,    .54762,    .63146,
     +     .25871,    .14376,   8.59729,    .61444,    .44450,
     +     .36129,    .55337,    .63694 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15672,    .09410,   1.04969,    .18054,    .00000,
     +     .00000,    .10077,    .19462,
     +     .16213,    .09707,   1.41750,    .19024,    .00000,
     +     .00000,    .11139,    .20489,
     +     .16984,    .10127,   1.94477,    .20522,    .00000,
     +     .00000,    .12768,    .22068,
     +     .17526,    .10420,   2.31387,    .21654,    .00664,
     +     .00000,    .13992,    .23257,
     +     .18074,    .10713,   2.66332,    .22859,    .02182,
     +     .00000,    .15290,    .24516,
     +     .18535,    .10958,   2.95518,    .23909,    .03420,
     +     .00000,    .16418,    .25612,
     +     .18968,    .11187,   3.22996,    .24921,    .04625,
     +     .00000,    .17504,    .26667,
     +     .19420,    .11425,   3.51403,    .25997,    .05926,
     +     .00000,    .18658,    .27788 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19803,    .11625,   3.74728,    .26928,    .07002,
     +     .00000,    .19654,    .28754,
     +     .20165,    .11814,   3.96407,    .27821,    .08044,
     +     .00000,    .20609,    .29682,
     +     .20450,    .11961,   4.13347,    .28530,    .08886,
     +     .00000,    .21367,    .30418,
     +     .21037,    .12262,   4.45745,    .30022,    .10624,
     +     .00200,    .22960,    .31964,
     +     .21524,    .12511,   4.69508,    .31277,    .12079,
     +     .01985,    .24299,    .33262,
     +     .22055,    .12779,   4.94051,    .32654,    .13682,
     +     .04023,    .25768,    .34687,
     +     .22593,    .13049,   5.17506,    .34043,    .15303,
     +     .05856,    .27252,    .36123,
     +     .23067,    .13285,   5.36884,    .35263,    .16732,
     +     .07475,    .28556,    .37384 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23533,    .13515,   5.54734,    .36457,    .18135,
     +     .09060,    .29833,    .38617,
     +     .23910,    .13699,   5.68095,    .37412,    .19257,
     +     .10314,    .30856,    .39604,
     +     .24355,    .13915,   5.82610,    .38526,    .20566,
     +     .11776,    .32051,    .40754,
     +     .24739,    .14101,   5.94252,    .39480,    .21695,
     +     .13046,    .33075,    .41738,
     +     .25084,    .14266,   6.03977,    .40328,    .22704,
     +     .14184,    .33986,    .42613,
     +     .25508,    .14468,   6.14494,    .41347,    .23915,
     +     .15539,    .35084,    .43664,
     +     .25896,    .14651,   6.23170,    .42266,    .25016,
     +     .16780,    .36076,    .44612,
     +     .26254,    .14818,   6.30427,    .43099,    .26023,
     +     .17921,    .36977,    .45472 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26597,    .14977,   6.36136,    .43877,    .26961,
     +     .18976,    .37821,    .46274,
     +     .26927,    .15129,   6.41023,    .44612,    .27857,
     +     .19992,    .38619,    .47032,
     +     .27233,    .15269,   6.44912,    .45278,    .28675,
     +     .20922,    .39346,    .47720,
     +     .27513,    .15395,   6.47648,    .45868,    .29403,
     +     .21749,    .39991,    .48329,
     +     .27790,    .15521,   6.50074,    .46448,    .30125,
     +     .22575,    .40627,    .48927,
     +     .28053,    .15638,   6.51498,    .46975,    .30785,
     +     .23328,    .41207,    .49471,
     +     .28302,    .15749,   6.52708,    .47470,    .31410,
     +     .24048,    .41753,    .49982,
     +     .28529,    .15848,   6.53053,    .47899,    .31957,
     +     .24676,    .42229,    .50425 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28756,    .15948,   6.53267,    .48326,    .32505,
     +     .25310,    .42704,    .50866,
     +     .28973,    .16042,   6.52934,    .48719,    .33014,
     +     .25900,    .43143,    .51272,
     +     .29177,    .16130,   6.52348,    .49080,    .33486,
     +     .26448,    .43547,    .51644,
     +     .29368,    .16212,   6.51604,    .49412,    .33923,
     +     .26959,    .43920,    .51987,
     +     .29555,    .16291,   6.50340,    .49718,    .34333,
     +     .27439,    .44267,    .52304 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .19417,    .11789,   1.20331,    .16912,    .00000,
     +     .00000,    .09574,    .18810,
     +     .20033,    .12110,   1.52377,    .17765,    .00000,
     +     .00000,    .10524,    .19725,
     +     .20906,    .12560,   1.97067,    .19051,    .00000,
     +     .00000,    .11947,    .21097,
     +     .21516,    .12872,   2.27451,    .20004,    .00577,
     +     .00000,    .12996,    .22108,
     +     .22127,    .13180,   2.55473,    .20999,    .01885,
     +     .00000,    .14089,    .23161,
     +     .22637,    .13436,   2.78376,    .21852,    .02938,
     +     .00000,    .15024,    .24061,
     +     .23115,    .13673,   2.99520,    .22664,    .03948,
     +     .00000,    .15913,    .24915,
     +     .23611,    .13919,   3.20963,    .23517,    .05028,
     +     .00000,    .16847,    .25812 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24029,    .14123,   3.38223,    .24244,    .05911,
     +     .00000,    .17642,    .26575,
     +     .24422,    .14314,   3.53981,    .24933,    .06757,
     +     .00000,    .18396,    .27298,
     +     .24729,    .14463,   3.66128,    .25477,    .07435,
     +     .00000,    .18990,    .27867,
     +     .25360,    .14766,   3.88648,    .26602,    .08820,
     +     .00166,    .20221,    .29044,
     +     .25878,    .15012,   4.04380,    .27533,    .09962,
     +     .01590,    .21240,    .30017,
     +     .26440,    .15275,   4.20077,    .28538,    .11204,
     +     .03206,    .22342,    .31065,
     +     .27003,    .15536,   4.34514,    .29534,    .12443,
     +     .04637,    .23436,    .32104,
     +     .27495,    .15763,   4.45936,    .30394,    .13520,
     +     .05885,    .24382,    .32998 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27976,    .15981,   4.55998,    .31221,    .14564,
     +     .07095,    .25295,    .33859,
     +     .28362,    .16155,   4.63165,    .31871,    .15388,
     +     .08040,    .26015,    .34536,
     +     .28813,    .16355,   4.70490,    .32616,    .16338,
     +     .09131,    .26843,    .35311,
     +     .29200,    .16526,   4.76008,    .33243,    .17147,
     +     .10069,    .27542,    .35963,
     +     .29546,    .16676,   4.80326,    .33793,    .17863,
     +     .10901,    .28157,    .36534,
     +     .29967,    .16857,   4.84435,    .34438,    .18710,
     +     .11881,    .28884,    .37205,
     +     .30350,    .17019,   4.87382,    .35009,    .19471,
     +     .12768,    .29530,    .37798,
     +     .30698,    .17166,   4.89497,    .35519,    .20158,
     +     .13576,    .30108,    .38327 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31031,    .17304,   4.90529,    .35980,    .20789,
     +     .14314,    .30637,    .38805,
     +     .31348,    .17433,   4.91045,    .36408,    .21384,
     +     .15017,    .31131,    .39249,
     +     .31639,    .17551,   4.91019,    .36789,    .21921,
     +     .15656,    .31572,    .39644,
     +     .31902,    .17656,   4.90371,    .37116,    .22392,
     +     .16217,    .31956,    .39984,
     +     .32162,    .17759,   4.89521,    .37435,    .22855,
     +     .16774,    .32330,    .40314,
     +     .32406,    .17854,   4.88043,    .37712,    .23271,
     +     .17274,    .32662,    .40601,
     +     .32636,    .17943,   4.86564,    .37970,    .23662,
     +     .17749,    .32971,    .40868,
     +     .32843,    .18021,   4.84648,    .38184,    .23998,
     +     .18159,    .33232,    .41090 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .33049,    .18098,   4.82654,    .38394,    .24333,
     +     .18570,    .33491,    .41308,
     +     .33244,    .18170,   4.80335,    .38580,    .24638,
     +     .18949,    .33722,    .41500,
     +     .33427,    .18236,   4.77965,    .38745,    .24918,
     +     .19296,    .33932,    .41671,
     +     .33596,    .18298,   4.75621,    .38894,    .25174,
     +     .19619,    .34121,    .41825,
     +     .33760,    .18355,   4.72947,    .39022,    .25410,
     +     .19917,    .34291,    .41958 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24965,    .15184,   1.40516,    .15595,    .00000,
     +     .00000,    .09034,    .18253,
     +     .25655,    .15511,   1.66174,    .16296,    .00000,
     +     .00000,    .09840,    .19013,
     +     .26619,    .15963,   2.00675,    .17321,    .00000,
     +     .00000,    .11011,    .20115,
     +     .27285,    .16272,   2.23195,    .18059,    .00478,
     +     .00000,    .11852,    .20904,
     +     .27945,    .16571,   2.43147,    .18811,    .01551,
     +     .00000,    .12708,    .21707,
     +     .28491,    .16817,   2.58945,    .19441,    .02398,
     +     .00000,    .13426,    .22376,
     +     .28998,    .17042,   2.73121,    .20030,    .03199,
     +     .00000,    .14096,    .22999,
     +     .29520,    .17271,   2.87088,    .20637,    .04042,
     +     .00000,    .14788,    .23642 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29955,    .17461,   2.97958,    .21144,    .04720,
     +     .00000,    .15367,    .24177,
     +     .30362,    .17636,   3.07594,    .21616,    .05362,
     +     .00000,    .15908,    .24675,
     +     .30678,    .17771,   3.14860,    .21984,    .05872,
     +     .00000,    .16330,    .25062,
     +     .31319,    .18041,   3.27557,    .22730,    .06896,
     +     .00130,    .17186,    .25845,
     +     .31839,    .18256,   3.35525,    .23331,    .07725,
     +     .01191,    .17879,    .26474,
     +     .32396,    .18483,   3.42862,    .23964,    .08611,
     +     .02384,    .18611,    .27134,
     +     .32946,    .18702,   3.48988,    .24572,    .09478,
     +     .03421,    .19320,    .27768,
     +     .33421,    .18888,   3.53277,    .25081,    .10217,
     +     .04312,    .19919,    .28298 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33878,    .19063,   3.56531,    .25556,    .10921,
     +     .05161,    .20483,    .28791,
     +     .34240,    .19200,   3.58372,    .25918,    .11468,
     +     .05816,    .20916,    .29167,
     +     .34658,    .19353,   3.59670,    .26319,    .12086,
     +     .06560,    .21402,    .29581,
     +     .35012,    .19481,   3.60177,    .26646,    .12605,
     +     .07192,    .21803,    .29919,
     +     .35324,    .19592,   3.60158,    .26925,    .13057,
     +     .07746,    .22148,    .30205,
     +     .35697,    .19720,   3.59252,    .27236,    .13580,
     +     .08387,    .22541,    .30524,
     +     .36031,    .19831,   3.57843,    .27499,    .14042,
     +     .08959,    .22880,    .30793,
     +     .36331,    .19930,   3.56150,    .27725,    .14452,
     +     .09474,    .23176,    .31023 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36612,    .20017,   3.53821,    .27915,    .14819,
     +     .09935,    .23433,    .31214,
     +     .36875,    .20098,   3.51284,    .28082,    .15159,
     +     .10370,    .23666,    .31382,
     +     .37113,    .20169,   3.48613,    .28223,    .15461,
     +     .10760,    .23867,    .31523,
     +     .37324,    .20228,   3.45755,    .28332,    .15719,
     +     .11096,    .24032,    .31631,
     +     .37531,    .20285,   3.42811,    .28433,    .15969,
     +     .11427,    .24189,    .31730,
     +     .37719,    .20334,   3.39575,    .28508,    .16187,
     +     .11718,    .24317,    .31802,
     +     .37896,    .20379,   3.36504,    .28575,    .16390,
     +     .11992,    .24435,    .31866,
     +     .38049,    .20415,   3.33324,    .28617,    .16558,
     +     .12224,    .24524,    .31904 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .38201,    .20450,   3.30124,    .28656,    .16723,
     +     .12455,    .24609,    .31938,
     +     .38342,    .20479,   3.26809,    .28680,    .16869,
     +     .12663,    .24678,    .31956,
     +     .38470,    .20505,   3.23598,    .28695,    .16999,
     +     .12853,    .24736,    .31966,
     +     .38589,    .20528,   3.20529,    .28703,    .17117,
     +     .13026,    .24785,    .31969,
     +     .38699,    .20546,   3.17275,    .28698,    .17220,
     +     .13183,    .24819,    .31957 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29952,    .18068,   1.54714,    .14558,    .00000,
     +     .00000,    .08626,    .17889,
     +     .30666,    .18374,   1.75127,    .15137,    .00000,
     +     .00000,    .09313,    .18511,
     +     .31656,    .18790,   2.01699,    .15959,    .00000,
     +     .00000,    .10288,    .19390,
     +     .32331,    .19068,   2.18381,    .16537,    .00406,
     +     .00000,    .10972,    .20005,
     +     .32993,    .19334,   2.32525,    .17114,    .01311,
     +     .00000,    .11657,    .20614,
     +     .33535,    .19548,   2.43369,    .17586,    .02015,
     +     .00000,    .12219,    .21112,
     +     .34035,    .19743,   2.52813,    .18020,    .02672,
     +     .00000,    .12737,    .21566,
     +     .34545,    .19939,   2.61826,    .18460,    .03355,
     +     .00000,    .13264,    .22026 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34965,    .20096,   2.68562,    .18820,    .03898,
     +     .00000,    .13697,    .22401,
     +     .35356,    .20240,   2.74316,    .19149,    .04406,
     +     .00000,    .14097,    .22744,
     +     .35658,    .20350,   2.78539,    .19403,    .04807,
     +     .00000,    .14405,    .23007,
     +     .36261,    .20566,   2.85237,    .19906,    .05601,
     +     .00106,    .15020,    .23525,
     +     .36744,    .20732,   2.88614,    .20300,    .06234,
     +     .00938,    .15506,    .23929,
     +     .37253,    .20902,   2.91148,    .20702,    .06901,
     +     .01866,    .16010,    .24339,
     +     .37749,    .21062,   2.92653,    .21076,    .07543,
     +     .02661,    .16486,    .24716,
     +     .38170,    .21193,   2.93085,    .21377,    .08082,
     +     .03335,    .16876,    .25018 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38569,    .21312,   2.92750,    .21647,    .08588,
     +     .03970,    .17234,    .25287,
     +     .38879,    .21400,   2.91884,    .21844,    .08974,
     +     .04453,    .17502,    .25481,
     +     .39231,    .21495,   2.90198,    .22051,    .09405,
     +     .04997,    .17793,    .25682,
     +     .39523,    .21571,   2.88291,    .22210,    .09761,
     +     .05454,    .18025,    .25835,
     +     .39776,    .21633,   2.86241,    .22340,    .10067,
     +     .05850,    .18219,    .25956,
     +     .40074,    .21699,   2.83092,    .22469,    .10415,
     +     .06302,    .18429,    .26075,
     +     .40334,    .21752,   2.79816,    .22569,    .10716,
     +     .06701,    .18603,    .26162,
     +     .40562,    .21796,   2.76553,    .22646,    .10979,
     +     .07057,    .18747,    .26227 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40769,    .21828,   2.72905,    .22696,    .11208,
     +     .07370,    .18863,    .26262,
     +     .40959,    .21854,   2.69227,    .22731,    .11417,
     +     .07662,    .18961,    .26283,
     +     .41126,    .21873,   2.65622,    .22750,    .11599,
     +     .07920,    .19040,    .26289,
     +     .41269,    .21884,   2.62052,    .22752,    .11750,
     +     .08140,    .19095,    .26275,
     +     .41406,    .21894,   2.58469,    .22748,    .11895,
     +     .08355,    .19144,    .26254,
     +     .41524,    .21894,   2.54767,    .22726,    .12016,
     +     .08540,    .19174,    .26216,
     +     .41634,    .21894,   2.51298,    .22703,    .12127,
     +     .08714,    .19199,    .26177,
     +     .41723,    .21887,   2.47877,    .22665,    .12215,
     +     .08858,    .19206,    .26124 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41811,    .21879,   2.44471,    .22625,    .12300,
     +     .08999,    .19211,    .26069,
     +     .41886,    .21866,   2.41045,    .22576,    .12372,
     +     .09125,    .19204,    .26002,
     +     .41953,    .21852,   2.37779,    .22523,    .12434,
     +     .09238,    .19192,    .25933,
     +     .42012,    .21836,   2.34699,    .22470,    .12489,
     +     .09340,    .19177,    .25864,
     +     .42061,    .21815,   2.31523,    .22405,    .12532,
     +     .09430,    .19151,    .25784 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38742,    .22714,   1.69179,    .12800,    .00000,
     +     .00000,    .07904,    .17162,
     +     .39415,    .22932,   1.81371,    .13183,    .00000,
     +     .00000,    .08397,    .17548,
     +     .40321,    .23215,   1.96155,    .13701,    .00000,
     +     .00000,    .09069,    .18061,
     +     .40924,    .23393,   2.04588,    .14050,    .00302,
     +     .00000,    .09523,    .18402,
     +     .41499,    .23555,   2.10812,    .14383,    .00966,
     +     .00000,    .09962,    .18720,
     +     .41959,    .23675,   2.15117,    .14643,    .01472,
     +     .00000,    .10310,    .18967,
     +     .42375,    .23780,   2.18499,    .14872,    .01935,
     +     .00000,    .10622,    .19181,
     +     .42789,    .23879,   2.21339,    .15096,    .02406,
     +     .00000,    .10931,    .19386 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .43122,    .23953,   2.23057,    .15269,    .02774,
     +     .00000,    .11176,    .19543,
     +     .43424,    .24015,   2.24202,    .15421,    .03113,
     +     .00000,    .11395,    .19678,
     +     .43654,    .24059,   2.24881,    .15535,    .03376,
     +     .00000,    .11560,    .19777,
     +     .44099,    .24135,   2.24828,    .15745,    .03888,
     +     .00075,    .11878,    .19953,
     +     .44438,    .24182,   2.23257,    .15895,    .04285,
     +     .00622,    .12117,    .20071,
     +     .44780,    .24218,   2.20815,    .16034,    .04694,
     +     .01228,    .12350,    .20172,
     +     .45095,    .24239,   2.17721,    .16144,    .05076,
     +     .01735,    .12556,    .20240,
     +     .45348,    .24244,   2.14478,    .16217,    .05389,
     +     .02156,    .12711,    .20273 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45574,    .24235,   2.10875,    .16266,    .05675,
     +     .02545,    .12843,    .20283,
     +     .45736,    .24219,   2.07649,    .16289,    .05887,
     +     .02836,    .12931,    .20271,
     +     .45908,    .24187,   2.03499,    .16295,    .06118,
     +     .03156,    .13014,    .20234,
     +     .46039,    .24150,   1.99709,    .16285,    .06303,
     +     .03421,    .13071,    .20187,
     +     .46143,    .24112,   1.96160,    .16266,    .06457,
     +     .03647,    .13111,    .20131,
     +     .46245,    .24050,   1.91488,    .16222,    .06626,
     +     .03899,    .13140,    .20039,
     +     .46321,    .23985,   1.87060,    .16166,    .06766,
     +     .04117,    .13151,    .19939,
     +     .46377,    .23918,   1.82924,    .16105,    .06886,
     +     .04307,    .13150,    .19836 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46410,    .23840,   1.78693,    .16028,    .06983,
     +     .04471,    .13132,    .19716,
     +     .46428,    .23761,   1.74602,    .15946,    .07069,
     +     .04620,    .13106,    .19591,
     +     .46432,    .23682,   1.70760,    .15861,    .07139,
     +     .04750,    .13073,    .19466,
     +     .46421,    .23601,   1.67129,    .15772,    .07193,
     +     .04857,    .13031,    .19339,
     +     .46405,    .23517,   1.63558,    .15680,    .07242,
     +     .04960,    .12986,    .19211,
     +     .46371,    .23428,   1.60029,    .15581,    .07278,
     +     .05045,    .12932,    .19073,
     +     .46337,    .23343,   1.56763,    .15486,    .07311,
     +     .05124,    .12880,    .18943,
     +     .46289,    .23257,   1.53665,    .15388,    .07330,
     +     .05187,    .12821,    .18811 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46238,    .23171,   1.50614,    .15289,    .07349,
     +     .05248,    .12760,    .18678,
     +     .46177,    .23081,   1.47624,    .15186,    .07360,
     +     .05299,    .12695,    .18542,
     +     .46114,    .22994,   1.44820,    .15086,    .07367,
     +     .05344,    .12630,    .18410,
     +     .46051,    .22909,   1.42207,    .14990,    .07371,
     +     .05384,    .12567,    .18284,
     +     .45977,    .22820,   1.39576,    .14888,    .07369,
     +     .05416,    .12498,    .18152 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .46268,    .26213,   1.70508,    .11266,    .00000,
     +     .00000,    .07205,    .16232,
     +     .46812,    .26311,   1.76763,    .11504,    .00000,
     +     .00000,    .07546,    .16424,
     +     .47518,    .26418,   1.83439,    .11807,    .00000,
     +     .00000,    .07994,    .16655,
     +     .47971,    .26469,   1.86497,    .12000,    .00228,
     +     .00000,    .08285,    .16793,
     +     .48381,    .26500,   1.87778,    .12173,    .00724,
     +     .00000,    .08557,    .16907,
     +     .48696,    .26510,   1.88152,    .12298,    .01096,
     +     .00000,    .08765,    .16980,
     +     .48970,    .26508,   1.88022,    .12402,    .01430,
     +     .00000,    .08944,    .17033,
     +     .49232,    .26495,   1.87412,    .12496,    .01766,
     +     .00000,    .09115,    .17073 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49430,    .26473,   1.86408,    .12561,    .02024,
     +     .00000,    .09245,    .17089,
     +     .49600,    .26443,   1.85139,    .12611,    .02258,
     +     .00000,    .09357,    .17093,
     +     .49726,    .26416,   1.84011,    .12646,    .02439,
     +     .00000,    .09439,    .17090,
     +     .49946,    .26341,   1.80690,    .12695,    .02784,
     +     .00055,    .09586,    .17061,
     +     .50090,    .26261,   1.76905,    .12717,    .03046,
     +     .00433,    .09686,    .17014,
     +     .50214,    .26157,   1.72379,    .12719,    .03310,
     +     .00848,    .09774,    .16940,
     +     .50302,    .26035,   1.67501,    .12697,    .03551,
     +     .01189,    .09838,    .16839,
     +     .50347,    .25912,   1.62961,    .12659,    .03744,
     +     .01468,    .09874,    .16728 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50364,    .25778,   1.58325,    .12605,    .03916,
     +     .01722,    .09893,    .16603,
     +     .50354,    .25659,   1.54440,    .12549,    .04040,
     +     .01909,    .09894,    .16487,
     +     .50316,    .25505,   1.49717,    .12468,    .04171,
     +     .02112,    .09881,    .16334,
     +     .50261,    .25363,   1.45584,    .12387,    .04274,
     +     .02277,    .09859,    .16190,
     +     .50196,    .25230,   1.41843,    .12307,    .04357,
     +     .02416,    .09831,    .16052,
     +     .50086,    .25050,   1.37119,    .12194,    .04443,
     +     .02568,    .09780,    .15866,
     +     .49964,    .24875,   1.32776,    .12079,    .04512,
     +     .02698,    .09724,    .15684,
     +     .49838,    .24709,   1.28815,    .11968,    .04569,
     +     .02809,    .09665,    .15511 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49685,    .24535,   1.24895,    .11848,    .04610,
     +     .02902,    .09596,    .15329,
     +     .49526,    .24362,   1.21172,    .11728,    .04644,
     +     .02986,    .09524,    .15149,
     +     .49365,    .24197,   1.17738,    .11611,    .04671,
     +     .03057,    .09452,    .14976,
     +     .49199,    .24035,   1.14563,    .11496,    .04687,
     +     .03114,    .09378,    .14809,
     +     .49030,    .23873,   1.11473,    .11380,    .04700,
     +     .03168,    .09303,    .14642,
     +     .48846,    .23707,   1.08482,    .11261,    .04706,
     +     .03211,    .09223,    .14473,
     +     .48671,    .23551,   1.05734,    .11150,    .04709,
     +     .03250,    .09147,    .14314,
     +     .48490,    .23400,   1.03174,    .11040,    .04707,
     +     .03279,    .09071,    .14160 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .48307,    .23249,   1.00670,    .10931,    .04703,
     +     .03308,    .08994,    .14006,
     +     .48118,    .23096,    .98249,    .10820,    .04695,
     +     .03330,    .08915,    .13852,
     +     .47933,    .22949,    .95999,    .10714,    .04685,
     +     .03349,    .08839,    .13706,
     +     .47756,    .22810,    .93917,    .10613,    .04674,
     +     .03364,    .08766,    .13568,
     +     .47566,    .22666,    .91848,    .10510,    .04660,
     +     .03376,    .08690,    .13425 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52687,    .28802,   1.63496,    .09904,    .00000,
     +     .00000,    .06508,    .15094,
     +     .53046,    .28768,   1.65527,    .10034,    .00000,
     +     .00000,    .06732,    .15134,
     +     .53474,    .28684,   1.66684,    .10184,    .00000,
     +     .00000,    .07012,    .15150,
     +     .53724,    .28602,   1.66261,    .10270,    .00173,
     +     .00000,    .07186,    .15139,
     +     .53925,    .28495,   1.64482,    .10336,    .00545,
     +     .00000,    .07341,    .15107,
     +     .54058,    .28388,   1.62517,    .10373,    .00821,
     +     .00000,    .07452,    .15062,
     +     .54157,    .28278,   1.60362,    .10398,    .01066,
     +     .00000,    .07544,    .15007,
     +     .54233,    .28153,   1.57830,    .10412,    .01309,
     +     .00000,    .07626,    .14935 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54272,    .28034,   1.55384,    .10410,    .01493,
     +     .00000,    .07683,    .14861,
     +     .54288,    .27914,   1.52879,    .10400,    .01658,
     +     .00000,    .07727,    .14782,
     +     .54291,    .27817,   1.50856,    .10388,    .01785,
     +     .00000,    .07756,    .14717,
     +     .54256,    .27593,   1.46030,    .10346,    .02022,
     +     .00041,    .07800,    .14563,
     +     .54184,    .27391,   1.41369,    .10295,    .02200,
     +     .00308,    .07820,    .14419,
     +     .54067,    .27155,   1.36126,    .10225,    .02376,
     +     .00600,    .07824,    .14244,
     +     .53907,    .26899,   1.30747,    .10136,    .02533,
     +     .00837,    .07811,    .14049,
     +     .53732,    .26659,   1.25948,    .10044,    .02656,
     +     .01028,    .07783,    .13861 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53529,    .26411,   1.21210,    .09941,    .02763,
     +     .01200,    .07744,    .13666,
     +     .53341,    .26198,   1.17356,    .09848,    .02838,
     +     .01324,    .07702,    .13501,
     +     .53085,    .25937,   1.12794,    .09730,    .02916,
     +     .01458,    .07642,    .13290,
     +     .52843,    .25702,   1.08888,    .09621,    .02974,
     +     .01566,    .07583,    .13102,
     +     .52610,    .25485,   1.05414,    .09518,    .03020,
     +     .01655,    .07524,    .12928,
     +     .52290,    .25203,   1.01127,    .09379,    .03065,
     +     .01751,    .07441,    .12703,
     +     .51974,    .24935,    .97254,    .09246,    .03099,
     +     .01832,    .07358,    .12490,
     +     .51670,    .24683,    .93770,    .09121,    .03125,
     +     .01901,    .07277,    .12292 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51341,    .24428,    .90389,    .08991,    .03141,
     +     .01956,    .07191,    .12090,
     +     .51015,    .24178,    .87213,    .08863,    .03153,
     +     .02006,    .07105,    .11892,
     +     .50700,    .23940,    .84319,    .08741,    .03159,
     +     .02047,    .07022,    .11707,
     +     .50389,    .23713,    .81676,    .08623,    .03160,
     +     .02079,    .06940,    .11531,
     +     .50076,    .23488,    .79122,    .08507,    .03160,
     +     .02109,    .06858,    .11358,
     +     .49754,    .23262,    .76683,    .08391,    .03154,
     +     .02131,    .06774,    .11185,
     +     .49450,    .23051,    .74454,    .08282,    .03148,
     +     .02152,    .06696,    .11023,
     +     .49150,    .22847,    .72401,    .08177,    .03138,
     +     .02166,    .06619,    .10869 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48849,    .22644,    .70402,    .08073,    .03127,
     +     .02179,    .06542,    .10717,
     +     .48545,    .22442,    .68487,    .07969,    .03113,
     +     .02188,    .06465,    .10567,
     +     .48254,    .22249,    .66717,    .07869,    .03100,
     +     .02196,    .06392,    .10425,
     +     .47976,    .22067,    .65088,    .07776,    .03086,
     +     .02202,    .06322,    .10292,
     +     .47686,    .21882,    .63481,    .07682,    .03070,
     +     .02205,    .06251,    .10156 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59273,    .30993,   1.47987,    .08420,    .00000,
     +     .00000,    .05662,    .13467,
     +     .59349,    .30792,   1.46581,    .08454,    .00000,
     +     .00000,    .05774,    .13371,
     +     .59368,    .30467,   1.43464,    .08472,    .00000,
     +     .00000,    .05905,    .13202,
     +     .59325,    .30220,   1.40492,    .08470,    .00122,
     +     .00000,    .05978,    .13066,
     +     .59227,    .29947,   1.36619,    .08451,    .00383,
     +     .00000,    .06035,    .12916,
     +     .59102,    .29703,   1.33136,    .08423,    .00573,
     +     .00000,    .06068,    .12776,
     +     .58959,    .29463,   1.29740,    .08385,    .00740,
     +     .00000,    .06089,    .12637,
     +     .58786,    .29204,   1.26101,    .08337,    .00904,
     +     .00000,    .06101,    .12485 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58608,    .28974,   1.22880,    .08288,    .01026,
     +     .00000,    .06101,    .12346,
     +     .58419,    .28747,   1.19767,    .08236,    .01135,
     +     .00000,    .06095,    .12208,
     +     .58263,    .28567,   1.17332,    .08194,    .01217,
     +     .00000,    .06087,    .12099,
     +     .57890,    .28179,   1.11967,    .08092,    .01370,
     +     .00029,    .06059,    .11859,
     +     .57536,    .27841,   1.07178,    .07997,    .01482,
     +     .00205,    .06023,    .11651,
     +     .57115,    .27457,   1.01984,    .07882,    .01590,
     +     .00398,    .05973,    .11416,
     +     .56648,    .27054,    .96825,    .07755,    .01685,
     +     .00551,    .05909,    .11167,
     +     .56198,    .26687,    .92355,    .07635,    .01756,
     +     .00673,    .05844,    .10939 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55725,    .26317,    .88047,    .07511,    .01817,
     +     .00782,    .05771,    .10709,
     +     .55319,    .26007,    .84620,    .07404,    .01859,
     +     .00860,    .05707,    .10519,
     +     .54808,    .25632,    .80644,    .07271,    .01900,
     +     .00942,    .05624,    .10287,
     +     .54345,    .25301,    .77296,    .07152,    .01930,
     +     .01008,    .05548,    .10085,
     +     .53915,    .24997,    .74362,    .07042,    .01952,
     +     .01062,    .05476,    .09901,
     +     .53351,    .24611,    .70807,    .06902,    .01972,
     +     .01118,    .05382,    .09667,
     +     .52813,    .24251,    .67642,    .06769,    .01985,
     +     .01165,    .05291,    .09450,
     +     .52307,    .23916,    .64827,    .06646,    .01994,
     +     .01204,    .05206,    .09251 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51783,    .23581,    .62139,    .06521,    .01997,
     +     .01235,    .05118,    .09053,
     +     .51270,    .23255,    .59639,    .06400,    .01997,
     +     .01262,    .05032,    .08863,
     +     .50782,    .22948,    .57385,    .06287,    .01994,
     +     .01283,    .04951,    .08685,
     +     .50312,    .22661,    .55347,    .06181,    .01989,
     +     .01300,    .04874,    .08518,
     +     .49842,    .22378,    .53391,    .06077,    .01982,
     +     .01314,    .04798,    .08354,
     +     .49375,    .22094,    .51544,    .05972,    .01972,
     +     .01325,    .04721,    .08195,
     +     .48936,    .21829,    .49864,    .05873,    .01962,
     +     .01334,    .04648,    .08049,
     +     .48510,    .21579,    .48331,    .05781,    .01951,
     +     .01340,    .04580,    .07908 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48084,    .21330,    .46844,    .05691,    .01940,
     +     .01345,    .04513,    .07769,
     +     .47659,    .21085,    .45431,    .05601,    .01927,
     +     .01348,    .04445,    .07634,
     +     .47254,    .20854,    .44133,    .05517,    .01914,
     +     .01349,    .04381,    .07508,
     +     .46872,    .20636,    .42943,    .05437,    .01901,
     +     .01350,    .04322,    .07390,
     +     .46480,    .20414,    .41778,    .05357,    .01887,
     +     .01349,    .04261,    .07271 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .64365,    .32226,   1.28973,    .07152,    .00000,
     +     .00000,    .04859,    .11737,
     +     .64131,    .31862,   1.25630,    .07121,    .00000,
     +     .00000,    .04897,    .11555,
     +     .63703,    .31314,   1.20269,    .07054,    .00000,
     +     .00000,    .04929,    .11276,
     +     .63350,    .30910,   1.16088,    .06994,    .00086,
     +     .00000,    .04937,    .11072,
     +     .62933,    .30488,   1.11362,    .06926,    .00268,
     +     .00000,    .04934,    .10855,
     +     .62547,    .30116,   1.07338,    .06856,    .00400,
     +     .00000,    .04921,    .10666,
     +     .62156,    .29760,   1.03563,    .06786,    .00514,
     +     .00000,    .04901,    .10484,
     +     .61724,    .29385,    .99655,    .06708,    .00625,
     +     .00000,    .04874,    .10291 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61329,    .29055,    .96318,    .06634,    .00707,
     +     .00000,    .04845,    .10123,
     +     .60934,    .28738,    .93174,    .06561,    .00779,
     +     .00000,    .04812,    .09960,
     +     .60617,    .28489,    .90755,    .06503,    .00833,
     +     .00000,    .04784,    .09833,
     +     .59920,    .27954,    .85619,    .06373,    .00932,
     +     .00021,    .04719,    .09563,
     +     .59296,    .27502,    .81223,    .06261,    .01004,
     +     .00138,    .04657,    .09332,
     +     .58582,    .26997,    .76559,    .06132,    .01072,
     +     .00267,    .04582,    .09079,
     +     .57821,    .26474,    .72021,    .05993,    .01130,
     +     .00368,    .04500,    .08820,
     +     .57118,    .26005,    .68162,    .05867,    .01173,
     +     .00448,    .04421,    .08587 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56400,    .25537,    .64502,    .05740,    .01209,
     +     .00518,    .04339,    .08355,
     +     .55794,    .25151,    .61633,    .05632,    .01233,
     +     .00568,    .04269,    .08167,
     +     .55054,    .24686,    .58352,    .05502,    .01255,
     +     .00620,    .04182,    .07942,
     +     .54396,    .24280,    .55622,    .05388,    .01270,
     +     .00661,    .04105,    .07747,
     +     .53790,    .23913,    .53253,    .05285,    .01281,
     +     .00695,    .04035,    .07572,
     +     .53011,    .23451,    .50414,    .05155,    .01289,
     +     .00729,    .03944,    .07352,
     +     .52281,    .23022,    .47914,    .05034,    .01293,
     +     .00757,    .03859,    .07152,
     +     .51601,    .22627,    .45711,    .04923,    .01294,
     +     .00780,    .03780,    .06968 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50913,    .22233,    .43628,    .04811,    .01292,
     +     .00798,    .03699,    .06791,
     +     .50244,    .21855,    .41706,    .04704,    .01289,
     +     .00813,    .03621,    .06621,
     +     .49613,    .21503,    .39985,    .04605,    .01284,
     +     .00825,    .03550,    .06462,
     +     .49015,    .21172,    .38442,    .04511,    .01277,
     +     .00834,    .03482,    .06316,
     +     .48424,    .20845,    .36967,    .04419,    .01269,
     +     .00841,    .03416,    .06174,
     +     .47836,    .20526,    .35585,    .04329,    .01260,
     +     .00846,    .03350,    .06035,
     +     .47287,    .20228,    .34332,    .04247,    .01252,
     +     .00850,    .03289,    .05906,
     +     .46759,    .19949,    .33196,    .04170,    .01242,
     +     .00852,    .03231,    .05786 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46235,    .19672,    .32099,    .04094,    .01232,
     +     .00853,    .03174,    .05668,
     +     .45717,    .19399,    .31060,    .04019,    .01221,
     +     .00854,    .03118,    .05553,
     +     .45228,    .19142,    .30108,    .03948,    .01211,
     +     .00853,    .03065,    .05447,
     +     .44768,    .18901,    .29239,    .03883,    .01201,
     +     .00853,    .03016,    .05347,
     +     .44297,    .18659,    .28393,    .03818,    .01190,
     +     .00850,    .02966,    .05247 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .68060,    .32677,   1.09191,    .06066,    .00000,
     +     .00000,    .04118,    .10017,
     +     .67505,    .32167,   1.04949,    .05995,    .00000,
     +     .00000,    .04108,    .09786,
     +     .66624,    .31418,    .98697,    .05875,    .00000,
     +     .00000,    .04074,    .09452,
     +     .65954,    .30883,    .94157,    .05787,    .00060,
     +     .00000,    .04043,    .09213,
     +     .65228,    .30326,    .89332,    .05688,    .00187,
     +     .00000,    .04004,    .08971,
     +     .64578,    .29850,    .85340,    .05600,    .00278,
     +     .00000,    .03963,    .08762,
     +     .63944,    .29398,    .81676,    .05515,    .00356,
     +     .00000,    .03921,    .08564,
     +     .63265,    .28924,    .77958,    .05422,    .00432,
     +     .00000,    .03873,    .08359 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62663,    .28512,    .74850,    .05339,    .00487,
     +     .00000,    .03828,    .08184,
     +     .62075,    .28118,    .71968,    .05257,    .00535,
     +     .00000,    .03783,    .08018,
     +     .61610,    .27810,    .69773,    .05192,    .00571,
     +     .00000,    .03746,    .07888,
     +     .60605,    .27163,    .65223,    .05055,    .00636,
     +     .00015,    .03666,    .07617,
     +     .59733,    .26618,    .61432,    .04940,    .00683,
     +     .00094,    .03594,    .07391,
     +     .58754,    .26018,    .57472,    .04810,    .00727,
     +     .00181,    .03512,    .07145,
     +     .57731,    .25404,    .53673,    .04675,    .00763,
     +     .00249,    .03426,    .06896,
     +     .56803,    .24857,    .50486,    .04553,    .00790,
     +     .00302,    .03347,    .06678 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55869,    .24316,    .47501,    .04432,    .00811,
     +     .00348,    .03265,    .06464,
     +     .55094,    .23872,    .45187,    .04333,    .00825,
     +     .00380,    .03198,    .06291,
     +     .54154,    .23344,    .42561,    .04213,    .00837,
     +     .00414,    .03117,    .06087,
     +     .53328,    .22886,    .40397,    .04110,    .00845,
     +     .00441,    .03046,    .05912,
     +     .52577,    .22475,    .38534,    .04017,    .00850,
     +     .00462,    .02981,    .05756,
     +     .51624,    .21958,    .36322,    .03900,    .00853,
     +     .00483,    .02901,    .05562,
     +     .50736,    .21484,    .34389,    .03794,    .00854,
     +     .00501,    .02825,    .05386,
     +     .49914,    .21051,    .32695,    .03698,    .00853,
     +     .00515,    .02756,    .05227 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49093,    .20619,    .31107,    .03601,    .00849,
     +     .00525,    .02687,    .05074,
     +     .48301,    .20208,    .29649,    .03509,    .00845,
     +     .00534,    .02622,    .04927,
     +     .47561,    .19827,    .28349,    .03424,    .00840,
     +     .00541,    .02561,    .04792,
     +     .46863,    .19471,    .27190,    .03345,    .00834,
     +     .00546,    .02505,    .04668,
     +     .46175,    .19122,    .26086,    .03268,    .00827,
     +     .00550,    .02449,    .04548,
     +     .45496,    .18782,    .25056,    .03194,    .00820,
     +     .00552,    .02395,    .04432,
     +     .44864,    .18468,    .24126,    .03125,    .00813,
     +     .00554,    .02344,    .04325,
     +     .44264,    .18171,    .23285,    .03060,    .00805,
     +     .00554,    .02297,    .04226 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43670,    .17877,    .22475,    .02997,    .00797,
     +     .00554,    .02251,    .04129,
     +     .43087,    .17590,    .21712,    .02935,    .00789,
     +     .00554,    .02206,    .04035,
     +     .42538,    .17320,    .21016,    .02876,    .00781,
     +     .00553,    .02164,    .03948,
     +     .42023,    .17069,    .20380,    .02822,    .00774,
     +     .00551,    .02125,    .03867,
     +     .41499,    .16817,    .19761,    .02769,    .00766,
     +     .00549,    .02085,    .03786 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70465,    .32485,    .90275,    .05137,    .00000,
     +     .00000,    .03447,    .08381,
     +     .69591,    .31852,    .85822,    .05041,    .00000,
     +     .00000,    .03407,    .08134,
     +     .68271,    .30931,    .79537,    .04891,    .00000,
     +     .00000,    .03338,    .07785,
     +     .67305,    .30279,    .75152,    .04783,    .00042,
     +     .00000,    .03285,    .07544,
     +     .66280,    .29616,    .70655,    .04673,    .00130,
     +     .00000,    .03228,    .07296,
     +     .65389,    .29049,    .67007,    .04575,    .00192,
     +     .00000,    .03174,    .07091,
     +     .64534,    .28515,    .63707,    .04482,    .00246,
     +     .00000,    .03122,    .06898,
     +     .63628,    .27960,    .60406,    .04385,    .00297,
     +     .00000,    .03066,    .06699 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62836,    .27484,    .57686,    .04300,    .00335,
     +     .00000,    .03015,    .06530,
     +     .62072,    .27032,    .55192,    .04218,    .00367,
     +     .00000,    .02966,    .06372,
     +     .61472,    .26680,    .53309,    .04153,    .00391,
     +     .00000,    .02928,    .06251,
     +     .60194,    .25945,    .49465,    .04020,    .00435,
     +     .00011,    .02845,    .05998,
     +     .59104,    .25331,    .46322,    .03907,    .00465,
     +     .00064,    .02773,    .05792,
     +     .57896,    .24659,    .43080,    .03783,    .00493,
     +     .00123,    .02694,    .05568,
     +     .56649,    .23979,    .40006,    .03658,    .00517,
     +     .00169,    .02613,    .05343,
     +     .55529,    .23378,    .37452,    .03546,    .00533,
     +     .00205,    .02539,    .05148 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54416,    .22785,    .35078,    .03435,    .00546,
     +     .00235,    .02465,    .04960,
     +     .53498,    .22304,    .33252,    .03346,    .00555,
     +     .00257,    .02405,    .04808,
     +     .52395,    .21735,    .31201,    .03241,    .00561,
     +     .00279,    .02332,    .04631,
     +     .51434,    .21244,    .29519,    .03150,    .00565,
     +     .00296,    .02270,    .04480,
     +     .50566,    .20803,    .28078,    .03068,    .00568,
     +     .00310,    .02215,    .04346,
     +     .49476,    .20253,    .26380,    .02966,    .00569,
     +     .00324,    .02144,    .04183,
     +     .48467,    .19752,    .24904,    .02874,    .00568,
     +     .00335,    .02080,    .04036,
     +     .47539,    .19296,    .23615,    .02791,    .00566,
     +     .00344,    .02022,    .03904 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46618,    .18846,    .22415,    .02710,    .00563,
     +     .00350,    .01965,    .03773,
     +     .45733,    .18419,    .21316,    .02633,    .00559,
     +     .00355,    .01911,    .03651,
     +     .44908,    .18025,    .20339,    .02562,    .00554,
     +     .00359,    .01861,    .03540,
     +     .44140,    .17657,    .19473,    .02496,    .00550,
     +     .00362,    .01815,    .03439,
     +     .43386,    .17297,    .18649,    .02431,    .00545,
     +     .00364,    .01770,    .03340,
     +     .42645,    .16949,    .17885,    .02370,    .00539,
     +     .00365,    .01726,    .03246,
     +     .41957,    .16628,    .17195,    .02313,    .00534,
     +     .00366,    .01685,    .03159,
     +     .41307,    .16326,    .16573,    .02260,    .00528,
     +     .00365,    .01647,    .03079 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40666,    .16028,    .15974,    .02208,    .00522,
     +     .00365,    .01610,    .03001,
     +     .40038,    .15739,    .15411,    .02158,    .00516,
     +     .00364,    .01574,    .02926,
     +     .39448,    .15468,    .14899,    .02112,    .00510,
     +     .00363,    .01541,    .02855,
     +     .38897,    .15216,    .14432,    .02068,    .00505,
     +     .00362,    .01510,    .02790,
     +     .38340,    .14963,    .13978,    .02024,    .00499,
     +     .00360,    .01479,    .02727 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .71690,    .31767,    .73132,    .04331,    .00000,
     +     .00000,    .02852,    .06894,
     +     .70521,    .31027,    .68898,    .04220,    .00000,
     +     .00000,    .02797,    .06652,
     +     .68787,    .29970,    .63084,    .04060,    .00000,
     +     .00000,    .02712,    .06311,
     +     .67544,    .29229,    .59135,    .03946,    .00029,
     +     .00000,    .02650,    .06079,
     +     .66255,    .28475,    .55186,    .03829,    .00090,
     +     .00000,    .02584,    .05851,
     +     .65141,    .27841,    .52026,    .03732,    .00133,
     +     .00000,    .02528,    .05657,
     +     .64085,    .27248,    .49200,    .03639,    .00170,
     +     .00000,    .02473,    .05479,
     +     .62977,    .26633,    .46401,    .03542,    .00204,
     +     .00000,    .02415,    .05299 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62021,    .26108,    .44124,    .03458,    .00230,
     +     .00000,    .02365,    .05148,
     +     .61103,    .25613,    .42053,    .03380,    .00252,
     +     .00000,    .02317,    .05005,
     +     .60386,    .25229,    .40497,    .03320,    .00268,
     +     .00000,    .02279,    .04895,
     +     .58877,    .24431,    .37360,    .03194,    .00297,
     +     .00008,    .02201,    .04671,
     +     .57604,    .23769,    .34829,    .03089,    .00317,
     +     .00044,    .02135,    .04488,
     +     .56204,    .23051,    .32242,    .02977,    .00335,
     +     .00085,    .02063,    .04293,
     +     .54772,    .22328,    .29810,    .02864,    .00351,
     +     .00116,    .01989,    .04099,
     +     .53500,    .21692,    .27805,    .02764,    .00361,
     +     .00140,    .01924,    .03932 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52242,    .21068,    .25958,    .02666,    .00369,
     +     .00160,    .01859,    .03773,
     +     .51209,    .20568,    .24545,    .02589,    .00374,
     +     .00175,    .01807,    .03644,
     +     .49984,    .19974,    .22962,    .02496,    .00378,
     +     .00190,    .01746,    .03495,
     +     .48923,    .19466,    .21672,    .02416,    .00380,
     +     .00201,    .01694,    .03370,
     +     .47967,    .19013,    .20571,    .02346,    .00382,
     +     .00210,    .01646,    .03259,
     +     .46774,    .18450,    .19280,    .02260,    .00381,
     +     .00219,    .01588,    .03123,
     +     .45676,    .17938,    .18163,    .02183,    .00380,
     +     .00226,    .01535,    .03001,
     +     .44673,    .17475,    .17193,    .02114,    .00379,
     +     .00232,    .01487,    .02892 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43681,    .17022,    .16289,    .02045,    .00376,
     +     .00235,    .01441,    .02788,
     +     .42734,    .16590,    .15464,    .01981,    .00373,
     +     .00239,    .01396,    .02690,
     +     .41858,    .16193,    .14733,    .01923,    .00369,
     +     .00241,    .01355,    .02600,
     +     .41043,    .15827,    .14086,    .01869,    .00365,
     +     .00243,    .01318,    .02518,
     +     .40246,    .15469,    .13473,    .01816,    .00362,
     +     .00244,    .01283,    .02439,
     +     .39467,    .15123,    .12903,    .01764,    .00358,
     +     .00244,    .01247,    .02365,
     +     .38747,    .14803,    .12390,    .01717,    .00354,
     +     .00244,    .01214,    .02298,
     +     .38067,    .14506,    .11930,    .01675,    .00349,
     +     .00244,    .01184,    .02234 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37398,    .14215,    .11487,    .01635,    .00345,
     +     .00243,    .01156,    .02171,
     +     .36746,    .13932,    .11070,    .01595,    .00341,
     +     .00242,    .01129,    .02110,
     +     .36136,    .13667,    .10690,    .01557,    .00337,
     +     .00242,    .01103,    .02055,
     +     .35568,    .13421,    .10345,    .01522,    .00333,
     +     .00241,    .01079,    .02004,
     +     .34997,    .13175,    .10011,    .01487,    .00329,
     +     .00239,    .01055,    .01955 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .71844,    .30630,    .58199,    .03627,    .00000,
     +     .00000,    .02337,    .05577,
     +     .70401,    .29811,    .54422,    .03515,    .00000,
     +     .00000,    .02274,    .05352,
     +     .68297,    .28648,    .49340,    .03354,    .00000,
     +     .00000,    .02181,    .05040,
     +     .66808,    .27839,    .45960,    .03242,    .00020,
     +     .00000,    .02116,    .04829,
     +     .65280,    .27025,    .42637,    .03130,    .00062,
     +     .00000,    .02051,    .04621,
     +     .63977,    .26342,    .40008,    .03035,    .00091,
     +     .00000,    .01995,    .04450,
     +     .62749,    .25706,    .37678,    .02948,    .00117,
     +     .00000,    .01942,    .04293,
     +     .61469,    .25051,    .35391,    .02858,    .00140,
     +     .00000,    .01888,    .04133 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60372,    .24496,    .33539,    .02782,    .00157,
     +     .00000,    .01840,    .04000,
     +     .59328,    .23973,    .31868,    .02710,    .00172,
     +     .00000,    .01795,    .03876,
     +     .58516,    .23568,    .30619,    .02655,    .00183,
     +     .00000,    .01761,    .03781,
     +     .56817,    .22731,    .28126,    .02541,    .00203,
     +     .00006,    .01690,    .03590,
     +     .55399,    .22042,    .26135,    .02446,    .00216,
     +     .00030,    .01631,    .03436,
     +     .53846,    .21300,    .24114,    .02346,    .00229,
     +     .00058,    .01568,    .03271,
     +     .52273,    .20555,    .22225,    .02247,    .00239,
     +     .00080,    .01504,    .03108,
     +     .50883,    .19903,    .20678,    .02160,    .00246,
     +     .00096,    .01449,    .02969 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49516,    .19269,    .19258,    .02076,    .00251,
     +     .00110,    .01395,    .02837,
     +     .48408,    .18759,    .18174,    .02007,    .00254,
     +     .00120,    .01352,    .02732,
     +     .47092,    .18161,    .16969,    .01928,    .00256,
     +     .00130,    .01301,    .02609,
     +     .45959,    .17649,    .15989,    .01861,    .00258,
     +     .00137,    .01257,    .02507,
     +     .44948,    .17195,    .15155,    .01801,    .00258,
     +     .00143,    .01218,    .02417,
     +     .43685,    .16635,    .14181,    .01729,    .00258,
     +     .00149,    .01171,    .02308,
     +     .42532,    .16127,    .13338,    .01665,    .00256,
     +     .00154,    .01128,    .02210,
     +     .41484,    .15668,    .12605,    .01607,    .00255,
     +     .00158,    .01090,    .02123 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40456,    .15219,    .11928,    .01549,    .00253,
     +     .00160,    .01051,    .02041,
     +     .39476,    .14795,    .11311,    .01496,    .00251,
     +     .00162,    .01016,    .01964,
     +     .38571,    .14406,    .10765,    .01447,    .00248,
     +     .00163,    .00984,    .01893,
     +     .37732,    .14049,    .10282,    .01404,    .00245,
     +     .00164,    .00954,    .01829,
     +     .36910,    .13702,    .09823,    .01363,    .00242,
     +     .00165,    .00925,    .01767,
     +     .36116,    .13366,    .09397,    .01321,    .00239,
     +     .00165,    .00898,    .01709,
     +     .35384,    .13057,    .09014,    .01282,    .00237,
     +     .00165,    .00874,    .01656,
     +     .34698,    .12769,    .08672,    .01247,    .00234,
     +     .00165,    .00850,    .01607 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34024,    .12487,    .08343,    .01213,    .00231,
     +     .00164,    .00828,    .01560,
     +     .33368,    .12215,    .08034,    .01180,    .00228,
     +     .00163,    .00806,    .01514,
     +     .32753,    .11962,    .07752,    .01150,    .00225,
     +     .00163,    .00785,    .01471,
     +     .32182,    .11727,    .07496,    .01123,    .00222,
     +     .00162,    .00767,    .01432,
     +     .31609,    .11493,    .07248,    .01096,    .00219,
     +     .00161,    .00749,    .01393 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .71008,    .29199,    .45595,    .03045,    .00000,
     +     .00000,    .01872,    .04423,
     +     .69330,    .28319,    .42381,    .02932,    .00000,
     +     .00000,    .01811,    .04224,
     +     .66912,    .27078,    .38124,    .02774,    .00000,
     +     .00000,    .01724,    .03952,
     +     .65220,    .26220,    .35330,    .02664,    .00014,
     +     .00000,    .01662,    .03772,
     +     .63492,    .25367,    .32630,    .02561,    .00043,
     +     .00000,    .01602,    .03589,
     +     .62034,    .24652,    .30508,    .02472,    .00063,
     +     .00000,    .01552,    .03443,
     +     .60668,    .23989,    .28641,    .02390,    .00080,
     +     .00000,    .01505,    .03310,
     +     .59252,    .23309,    .26821,    .02307,    .00097,
     +     .00000,    .01456,    .03176 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58044,    .22735,    .25358,    .02238,    .00108,
     +     .00000,    .01415,    .03063,
     +     .56901,    .22196,    .24041,    .02173,    .00119,
     +     .00000,    .01377,    .02959,
     +     .56016,    .21780,    .23059,    .02123,    .00126,
     +     .00000,    .01347,    .02880,
     +     .54174,    .20927,    .21120,    .02020,    .00139,
     +     .00004,    .01287,    .02721,
     +     .52643,    .20229,    .19581,    .01938,    .00148,
     +     .00021,    .01237,    .02593,
     +     .50984,    .19478,    .18021,    .01849,    .00157,
     +     .00040,    .01183,    .02459,
     +     .49313,    .18727,    .16576,    .01761,    .00163,
     +     .00055,    .01129,    .02328,
     +     .47844,    .18075,    .15399,    .01686,    .00168,
     +     .00066,    .01083,    .02216 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46406,    .17444,    .14319,    .01615,    .00171,
     +     .00076,    .01038,    .02109,
     +     .45248,    .16937,    .13497,    .01556,    .00173,
     +     .00083,    .01003,    .02025,
     +     .43881,    .16346,    .12584,    .01489,    .00175,
     +     .00090,    .00962,    .01927,
     +     .42706,    .15843,    .11843,    .01433,    .00175,
     +     .00095,    .00927,    .01846,
     +     .41658,    .15399,    .11213,    .01383,    .00176,
     +     .00099,    .00895,    .01777,
     +     .40362,    .14851,    .10478,    .01323,    .00175,
     +     .00103,    .00857,    .01691,
     +     .39185,    .14356,    .09845,    .01270,    .00174,
     +     .00106,    .00823,    .01614,
     +     .38117,    .13911,    .09298,    .01222,    .00173,
     +     .00108,    .00792,    .01545 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37075,    .13477,    .08790,    .01174,    .00171,
     +     .00110,    .00764,    .01481,
     +     .36085,    .13069,    .08326,    .01130,    .00170,
     +     .00111,    .00737,    .01421,
     +     .35172,    .12698,    .07915,    .01092,    .00168,
     +     .00112,    .00712,    .01365,
     +     .34331,    .12356,    .07553,    .01056,    .00166,
     +     .00112,    .00689,    .01315,
     +     .33513,    .12024,    .07210,    .01020,    .00164,
     +     .00113,    .00667,    .01268,
     +     .32720,    .11705,    .06892,    .00988,    .00162,
     +     .00113,    .00646,    .01223,
     +     .31989,    .11412,    .06607,    .00958,    .00159,
     +     .00112,    .00627,    .01182,
     +     .31308,    .11141,    .06351,    .00931,    .00157,
     +     .00112,    .00609,    .01145 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30640,    .10876,    .06105,    .00904,    .00155,
     +     .00112,    .00592,    .01109,
     +     .29992,    .10619,    .05874,    .00878,    .00153,
     +     .00111,    .00575,    .01075,
     +     .29389,    .10380,    .05664,    .00853,    .00151,
     +     .00110,    .00559,    .01045,
     +     .28829,    .10159,    .05473,    .00831,    .00149,
     +     .00110,    .00544,    .01016,
     +     .28269,    .09940,    .05288,    .00809,    .00147,
     +     .00109,    .00531,    .00987 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69371,    .27480,    .35172,    .02502,    .00000,
     +     .00000,    .01504,    .03470,
     +     .67490,    .26564,    .32543,    .02398,    .00000,
     +     .00000,    .01445,    .03299,
     +     .64808,    .25276,    .29106,    .02252,    .00000,
     +     .00000,    .01363,    .03067,
     +     .62941,    .24396,    .26877,    .02154,    .00010,
     +     .00000,    .01307,    .02913,
     +     .61059,    .23518,    .24744,    .02058,    .00029,
     +     .00000,    .01252,    .02763,
     +     .59473,    .22792,    .23076,    .01980,    .00043,
     +     .00000,    .01208,    .02638,
     +     .57998,    .22119,    .21618,    .01907,    .00055,
     +     .00000,    .01166,    .02527,
     +     .56479,    .21431,    .20204,    .01833,    .00066,
     +     .00000,    .01123,    .02418 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55188,    .20853,    .19071,    .01772,    .00074,
     +     .00000,    .01086,    .02326,
     +     .53970,    .20313,    .18055,    .01715,    .00081,
     +     .00000,    .01053,    .02240,
     +     .53029,    .19898,    .17300,    .01672,    .00086,
     +     .00000,    .01029,    .02175,
     +     .51084,    .19048,    .15814,    .01586,    .00095,
     +     .00003,    .00978,    .02043,
     +     .49484,    .18351,    .14643,    .01514,    .00101,
     +     .00015,    .00936,    .01941,
     +     .47755,    .17609,    .13461,    .01438,    .00107,
     +     .00028,    .00892,    .01832,
     +     .46020,    .16874,    .12365,    .01364,    .00112,
     +     .00038,    .00848,    .01728,
     +     .44504,    .16237,    .11472,    .01301,    .00115,
     +     .00046,    .00809,    .01639 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43030,    .15621,    .10657,    .01240,    .00117,
     +     .00053,    .00773,    .01554,
     +     .41845,    .15130,    .10039,    .01193,    .00118,
     +     .00057,    .00744,    .01488,
     +     .40452,    .14559,    .09352,    .01138,    .00119,
     +     .00062,    .00710,    .01411,
     +     .39264,    .14074,    .08795,    .01092,    .00120,
     +     .00065,    .00682,    .01347,
     +     .38208,    .13645,    .08323,    .01050,    .00120,
     +     .00068,    .00658,    .01292,
     +     .36908,    .13121,    .07769,    .01002,    .00119,
     +     .00071,    .00628,    .01225,
     +     .35726,    .12650,    .07293,    .00960,    .00119,
     +     .00073,    .00601,    .01166,
     +     .34657,    .12227,    .06882,    .00923,    .00118,
     +     .00074,    .00577,    .01114 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33625,    .11817,    .06500,    .00883,    .00116,
     +     .00075,    .00553,    .01064,
     +     .32646,    .11431,    .06151,    .00848,    .00115,
     +     .00076,    .00533,    .01018,
     +     .31744,    .11080,    .05843,    .00817,    .00114,
     +     .00077,    .00515,    .00976,
     +     .30919,    .10759,    .05572,    .00788,    .00112,
     +     .00077,    .00497,    .00939,
     +     .30117,    .10449,    .05315,    .00758,    .00111,
     +     .00077,    .00478,    .00904,
     +     .29343,    .10150,    .05077,    .00732,    .00109,
     +     .00077,    .00462,    .00871,
     +     .28631,    .09877,    .04864,    .00708,    .00108,
     +     .00077,    .00447,    .00841,
     +     .27970,    .09624,    .04671,    .00687,    .00106,
     +     .00076,    .00434,    .00813 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27322,    .09378,    .04485,    .00666,    .00105,
     +     .00076,    .00421,    .00785,
     +     .26696,    .09140,    .04311,    .00646,    .00103,
     +     .00076,    .00409,    .00759,
     +     .26113,    .08920,    .04154,    .00628,    .00102,
     +     .00075,    .00397,    .00735,
     +     .25574,    .08716,    .04011,    .00611,    .00100,
     +     .00075,    .00386,    .00713,
     +     .25036,    .08514,    .03872,    .00594,    .00099,
     +     .00074,    .00376,    .00691 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .66999,    .25596,    .26783,    .02042,    .00000,
     +     .00000,    .01186,    .02680,
     +     .64953,    .24666,    .24706,    .01948,    .00000,
     +     .00000,    .01133,    .02536,
     +     .62067,    .23360,    .22009,    .01817,    .00000,
     +     .00000,    .01061,    .02344,
     +     .60071,    .22473,    .20279,    .01730,    .00007,
     +     .00000,    .01014,    .02215,
     +     .58070,    .21593,    .18631,    .01646,    .00020,
     +     .00000,    .00965,    .02092,
     +     .56395,    .20867,    .17352,    .01577,    .00030,
     +     .00000,    .00926,    .01993,
     +     .54844,    .20197,    .16236,    .01513,    .00038,
     +     .00000,    .00892,    .01903,
     +     .53254,    .19514,    .15156,    .01449,    .00045,
     +     .00000,    .00857,    .01813 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51908,    .18944,    .14297,    .01397,    .00051,
     +     .00000,    .00827,    .01739,
     +     .50646,    .18411,    .13528,    .01348,    .00056,
     +     .00000,    .00798,    .01672,
     +     .49674,    .18002,    .12956,    .01310,    .00059,
     +     .00000,    .00776,    .01622,
     +     .47671,    .17172,    .11828,    .01236,    .00065,
     +     .00002,    .00735,    .01516,
     +     .46027,    .16497,    .10945,    .01177,    .00070,
     +     .00010,    .00700,    .01433,
     +     .44263,    .15775,    .10056,    .01114,    .00073,
     +     .00019,    .00664,    .01349,
     +     .42506,    .15062,    .09233,    .01053,    .00077,
     +     .00027,    .00629,    .01267,
     +     .40977,    .14449,    .08562,    .01000,    .00079,
     +     .00032,    .00599,    .01198 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39497,    .13860,    .07950,    .00948,    .00080,
     +     .00037,    .00569,    .01133,
     +     .38308,    .13393,    .07484,    .00912,    .00081,
     +     .00040,    .00547,    .01079,
     +     .36921,    .12847,    .06967,    .00866,    .00082,
     +     .00043,    .00521,    .01020,
     +     .35741,    .12387,    .06549,    .00828,    .00082,
     +     .00045,    .00499,    .00972,
     +     .34696,    .11982,    .06193,    .00795,    .00082,
     +     .00047,    .00479,    .00930,
     +     .33414,    .11490,    .05778,    .00755,    .00081,
     +     .00049,    .00456,    .00879,
     +     .32257,    .11047,    .05420,    .00720,    .00081,
     +     .00050,    .00435,    .00834,
     +     .31215,    .10650,    .05111,    .00690,    .00080,
     +     .00051,    .00418,    .00794 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30206,    .10268,    .04824,    .00658,    .00079,
     +     .00052,    .00399,    .00757,
     +     .29254,    .09910,    .04562,    .00630,    .00078,
     +     .00052,    .00382,    .00724,
     +     .28384,    .09583,    .04329,    .00604,    .00078,
     +     .00053,    .00368,    .00693,
     +     .27586,    .09285,    .04124,    .00582,    .00077,
     +     .00053,    .00354,    .00666,
     +     .26812,    .08998,    .03931,    .00562,    .00075,
     +     .00053,    .00341,    .00639,
     +     .26069,    .08724,    .03751,    .00542,    .00074,
     +     .00053,    .00329,    .00613,
     +     .25387,    .08473,    .03590,    .00523,    .00073,
     +     .00053,    .00318,    .00589,
     +     .24756,    .08242,    .03445,    .00506,    .00072,
     +     .00052,    .00308,    .00568 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24139,    .08017,    .03306,    .00489,    .00071,
     +     .00052,    .00298,    .00549,
     +     .23543,    .07801,    .03176,    .00473,    .00070,
     +     .00052,    .00289,    .00529,
     +     .22990,    .07601,    .03057,    .00460,    .00069,
     +     .00051,    .00280,    .00511,
     +     .22478,    .07416,    .02949,    .00447,    .00068,
     +     .00051,    .00272,    .00494,
     +     .21971,    .07233,    .02845,    .00433,    .00067,
     +     .00051,    .00264,    .00480 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .64014,    .23597,    .20156,    .01642,    .00000,
     +     .00000,    .00927,    .02040,
     +     .61855,    .22661,    .18557,    .01559,    .00000,
     +     .00000,    .00882,    .01922,
     +     .58819,    .21366,    .16502,    .01444,    .00000,
     +     .00000,    .00820,    .01766,
     +     .56734,    .20488,    .15190,    .01370,    .00005,
     +     .00000,    .00780,    .01662,
     +     .54655,    .19624,    .13950,    .01297,    .00014,
     +     .00000,    .00738,    .01566,
     +     .52930,    .18907,    .12987,    .01237,    .00020,
     +     .00000,    .00706,    .01488,
     +     .51334,    .18252,    .12148,    .01183,    .00026,
     +     .00000,    .00677,    .01416,
     +     .49701,    .17590,    .11338,    .01130,    .00031,
     +     .00000,    .00647,    .01344 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48328,    .17037,    .10692,    .01085,    .00035,
     +     .00000,    .00624,    .01286,
     +     .47043,    .16523,    .10114,    .01045,    .00038,
     +     .00000,    .00600,    .01233,
     +     .46055,    .16129,    .09685,    .01015,    .00041,
     +     .00000,    .00582,    .01193,
     +     .44034,    .15327,    .08843,    .00953,    .00045,
     +     .00002,    .00549,    .01110,
     +     .42385,    .14678,    .08182,    .00903,    .00048,
     +     .00007,    .00522,    .01047,
     +     .40622,    .13990,    .07515,    .00850,    .00051,
     +     .00014,    .00493,    .00982,
     +     .38869,    .13315,    .06899,    .00801,    .00053,
     +     .00018,    .00465,    .00919,
     +     .37353,    .12735,    .06397,    .00759,    .00054,
     +     .00022,    .00440,    .00866 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35895,    .12179,    .05938,    .00718,    .00055,
     +     .00025,    .00417,    .00817,
     +     .34729,    .11737,    .05589,    .00686,    .00056,
     +     .00028,    .00400,    .00777,
     +     .33372,    .11227,    .05199,    .00649,    .00056,
     +     .00030,    .00379,    .00733,
     +     .32221,    .10798,    .04883,    .00619,    .00056,
     +     .00031,    .00361,    .00696,
     +     .31205,    .10423,    .04616,    .00593,    .00056,
     +     .00033,    .00347,    .00665,
     +     .29963,    .09963,    .04305,    .00562,    .00056,
     +     .00034,    .00329,    .00627,
     +     .28845,    .09554,    .04035,    .00534,    .00055,
     +     .00035,    .00313,    .00592,
     +     .27843,    .09189,    .03801,    .00510,    .00055,
     +     .00035,    .00299,    .00561 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26874,    .08839,    .03584,    .00487,    .00054,
     +     .00036,    .00285,    .00534,
     +     .25965,    .08510,    .03387,    .00465,    .00054,
     +     .00036,    .00273,    .00509,
     +     .25135,    .08211,    .03212,    .00445,    .00053,
     +     .00036,    .00262,    .00488,
     +     .24377,    .07941,    .03058,    .00428,    .00052,
     +     .00036,    .00252,    .00466,
     +     .23643,    .07681,    .02911,    .00412,    .00051,
     +     .00036,    .00242,    .00445,
     +     .22943,    .07431,    .02776,    .00395,    .00051,
     +     .00036,    .00233,    .00427,
     +     .22301,    .07203,    .02654,    .00379,    .00050,
     +     .00036,    .00224,    .00412,
     +     .21707,    .06994,    .02544,    .00367,    .00049,
     +     .00036,    .00216,    .00396 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21128,    .06792,    .02439,    .00355,    .00048,
     +     .00036,    .00210,    .00380,
     +     .20569,    .06597,    .02340,    .00343,    .00048,
     +     .00035,    .00202,    .00366,
     +     .20051,    .06417,    .02250,    .00333,    .00047,
     +     .00035,    .00196,    .00353,
     +     .19573,    .06251,    .02169,    .00323,    .00046,
     +     .00035,    .00189,    .00342,
     +     .19101,    .06087,    .02090,    .00313,    .00045,
     +     .00035,    .00184,    .00331 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60535,    .21527,    .15013,    .01294,    .00000,
     +     .00000,    .00720,    .01536,
     +     .58296,    .20612,    .13823,    .01224,    .00000,
     +     .00000,    .00680,    .01441,
     +     .55168,    .19346,    .12291,    .01129,    .00000,
     +     .00000,    .00628,    .01316,
     +     .53041,    .18487,    .11316,    .01063,    .00003,
     +     .00000,    .00594,    .01237,
     +     .50922,    .17652,    .10399,    .01004,    .00009,
     +     .00000,    .00561,    .01159,
     +     .49170,    .16966,    .09685,    .00956,    .00014,
     +     .00000,    .00536,    .01094,
     +     .47560,    .16337,    .09063,    .00912,    .00018,
     +     .00000,    .00512,    .01038,
     +     .45922,    .15700,    .08463,    .00866,    .00021,
     +     .00000,    .00488,    .00983 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44547,    .15169,    .07982,    .00831,    .00024,
     +     .00000,    .00469,    .00936,
     +     .43264,    .14679,    .07553,    .00798,    .00026,
     +     .00000,    .00449,    .00896,
     +     .42279,    .14305,    .07234,    .00774,    .00028,
     +     .00000,    .00434,    .00866,
     +     .40274,    .13545,    .06607,    .00724,    .00031,
     +     .00001,    .00406,    .00805,
     +     .38645,    .12934,    .06116,    .00682,    .00033,
     +     .00005,    .00386,    .00756,
     +     .36909,    .12287,    .05619,    .00641,    .00035,
     +     .00009,    .00363,    .00708,
     +     .35197,    .11655,    .05158,    .00600,    .00036,
     +     .00013,    .00340,    .00661,
     +     .33722,    .11115,    .04782,    .00566,    .00037,
     +     .00015,    .00321,    .00620 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32304,    .10598,    .04438,    .00535,    .00038,
     +     .00018,    .00305,    .00581,
     +     .31176,    .10190,    .04175,    .00510,    .00038,
     +     .00019,    .00291,    .00552,
     +     .29869,    .09718,    .03883,    .00481,    .00038,
     +     .00021,    .00275,    .00518,
     +     .28763,    .09323,    .03646,    .00458,    .00039,
     +     .00022,    .00262,    .00491,
     +     .27788,    .08978,    .03445,    .00439,    .00039,
     +     .00023,    .00251,    .00467,
     +     .26607,    .08559,    .03208,    .00412,    .00038,
     +     .00023,    .00236,    .00440,
     +     .25546,    .08185,    .03004,    .00390,    .00038,
     +     .00024,    .00224,    .00416,
     +     .24597,    .07853,    .02828,    .00372,    .00038,
     +     .00025,    .00215,    .00393 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23682,    .07534,    .02663,    .00354,    .00037,
     +     .00025,    .00204,    .00373,
     +     .22827,    .07237,    .02513,    .00336,    .00037,
     +     .00025,    .00194,    .00355,
     +     .22051,    .06969,    .02381,    .00320,    .00036,
     +     .00025,    .00185,    .00339,
     +     .21341,    .06725,    .02265,    .00307,    .00036,
     +     .00025,    .00177,    .00324,
     +     .20655,    .06490,    .02154,    .00295,    .00035,
     +     .00025,    .00170,    .00310,
     +     .20001,    .06266,    .02051,    .00283,    .00034,
     +     .00025,    .00164,    .00297,
     +     .19403,    .06063,    .01959,    .00272,    .00034,
     +     .00025,    .00158,    .00285,
     +     .18853,    .05877,    .01876,    .00262,    .00033,
     +     .00025,    .00152,    .00273 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18318,    .05697,    .01796,    .00252,    .00033,
     +     .00024,    .00146,    .00262,
     +     .17803,    .05525,    .01722,    .00243,    .00032,
     +     .00024,    .00141,    .00252,
     +     .17326,    .05365,    .01655,    .00235,    .00032,
     +     .00024,    .00136,    .00242,
     +     .16888,    .05219,    .01594,    .00228,    .00031,
     +     .00024,    .00132,    .00234,
     +     .16455,    .05075,    .01534,    .00221,    .00031,
     +     .00024,    .00128,    .00226 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56651,    .19461,    .11108,    .01020,    .00000,
     +     .00000,    .00543,    .01131,
     +     .54380,    .18574,    .10237,    .00957,    .00000,
     +     .00000,    .00512,    .01059,
     +     .51224,    .17354,    .09121,    .00877,    .00000,
     +     .00000,    .00470,    .00962,
     +     .49082,    .16533,    .08410,    .00824,    .00002,
     +     .00000,    .00444,    .00900,
     +     .46969,    .15733,    .07738,    .00774,    .00006,
     +     .00000,    .00415,    .00844,
     +     .45225,    .15079,    .07217,    .00735,    .00010,
     +     .00000,    .00395,    .00794,
     +     .43628,    .14483,    .06760,    .00698,    .00012,
     +     .00000,    .00376,    .00751,
     +     .42009,    .13881,    .06316,    .00660,    .00015,
     +     .00000,    .00358,    .00710 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40651,    .13383,    .05962,    .00633,    .00017,
     +     .00000,    .00343,    .00674,
     +     .39392,    .12922,    .05646,    .00606,    .00018,
     +     .00000,    .00328,    .00643,
     +     .38430,    .12571,    .05411,    .00585,    .00019,
     +     .00000,    .00316,    .00620,
     +     .36474,    .11862,    .04945,    .00544,    .00021,
     +     .00001,    .00296,    .00574,
     +     .34893,    .11294,    .04578,    .00512,    .00023,
     +     .00004,    .00279,    .00537,
     +     .33215,    .10694,    .04209,    .00478,    .00024,
     +     .00007,    .00261,    .00501,
     +     .31565,    .10110,    .03864,    .00447,    .00025,
     +     .00009,    .00244,    .00465,
     +     .30148,    .09612,    .03581,    .00421,    .00026,
     +     .00011,    .00231,    .00435 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28793,    .09138,    .03322,    .00395,    .00026,
     +     .00012,    .00218,    .00409,
     +     .27720,    .08766,    .03124,    .00376,    .00026,
     +     .00013,    .00207,    .00387,
     +     .26479,    .08337,    .02904,    .00354,    .00027,
     +     .00014,    .00195,    .00363,
     +     .25433,    .07978,    .02724,    .00336,    .00027,
     +     .00015,    .00185,    .00342,
     +     .24517,    .07665,    .02571,    .00321,    .00026,
     +     .00016,    .00177,    .00324,
     +     .23402,    .07286,    .02392,    .00303,    .00026,
     +     .00016,    .00166,    .00304,
     +     .22409,    .06950,    .02238,    .00286,    .00026,
     +     .00017,    .00157,    .00287,
     +     .21523,    .06652,    .02104,    .00270,    .00026,
     +     .00017,    .00149,    .00272 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20669,    .06368,    .01979,    .00258,    .00025,
     +     .00017,    .00142,    .00256,
     +     .19876,    .06103,    .01866,    .00245,    .00025,
     +     .00017,    .00135,    .00242,
     +     .19160,    .05863,    .01766,    .00231,    .00025,
     +     .00017,    .00128,    .00230,
     +     .18506,    .05646,    .01677,    .00220,    .00024,
     +     .00017,    .00123,    .00221,
     +     .17875,    .05438,    .01593,    .00210,    .00024,
     +     .00017,    .00119,    .00211,
     +     .17275,    .05241,    .01515,    .00202,    .00023,
     +     .00017,    .00114,    .00201,
     +     .16727,    .05063,    .01446,    .00195,    .00023,
     +     .00017,    .00110,    .00192,
     +     .16223,    .04899,    .01383,    .00188,    .00023,
     +     .00017,    .00105,    .00184 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15734,    .04740,    .01323,    .00180,    .00022,
     +     .00017,    .00101,    .00176,
     +     .15266,    .04588,    .01267,    .00174,    .00022,
     +     .00017,    .00097,    .00169,
     +     .14833,    .04448,    .01216,    .00167,    .00022,
     +     .00016,    .00093,    .00163,
     +     .14435,    .04320,    .01169,    .00161,    .00021,
     +     .00016,    .00090,    .00157,
     +     .14041,    .04194,    .01124,    .00157,    .00021,
     +     .00016,    .00088,    .00151 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52486,    .17413,    .08176,    .00782,    .00000,
     +     .00000,    .00407,    .00823,
     +     .50218,    .16566,    .07558,    .00732,    .00000,
     +     .00000,    .00382,    .00768,
     +     .47078,    .15412,    .06757,    .00670,    .00000,
     +     .00000,    .00348,    .00692,
     +     .44964,    .14637,    .06245,    .00625,    .00002,
     +     .00000,    .00323,    .00651,
     +     .42882,    .13886,    .05759,    .00587,    .00004,
     +     .00000,    .00303,    .00605,
     +     .41176,    .13273,    .05380,    .00556,    .00007,
     +     .00000,    .00287,    .00568,
     +     .39617,    .12715,    .05047,    .00528,    .00008,
     +     .00000,    .00272,    .00535,
     +     .38040,    .12156,    .04723,    .00500,    .00010,
     +     .00000,    .00257,    .00502 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36729,    .11693,    .04461,    .00474,    .00011,
     +     .00000,    .00245,    .00479,
     +     .35512,    .11267,    .04227,    .00453,    .00013,
     +     .00000,    .00235,    .00456,
     +     .34584,    .10943,    .04052,    .00439,    .00013,
     +     .00000,    .00228,    .00437,
     +     .32705,    .10289,    .03706,    .00407,    .00015,
     +     .00001,    .00210,    .00402,
     +     .31186,    .09767,    .03433,    .00384,    .00016,
     +     .00002,    .00197,    .00376,
     +     .29588,    .09220,    .03155,    .00358,    .00017,
     +     .00005,    .00184,    .00347,
     +     .28025,    .08688,    .02895,    .00332,    .00017,
     +     .00006,    .00172,    .00322,
     +     .26687,    .08236,    .02682,    .00311,    .00018,
     +     .00008,    .00161,    .00301 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25410,    .07808,    .02487,    .00292,    .00018,
     +     .00009,    .00151,    .00282,
     +     .24405,    .07470,    .02337,    .00277,    .00018,
     +     .00009,    .00144,    .00266,
     +     .23242,    .07086,    .02170,    .00261,    .00018,
     +     .00010,    .00135,    .00246,
     +     .22268,    .06764,    .02034,    .00247,    .00018,
     +     .00011,    .00128,    .00232,
     +     .21419,    .06483,    .01918,    .00234,    .00018,
     +     .00011,    .00122,    .00221,
     +     .20386,    .06146,    .01782,    .00220,    .00018,
     +     .00011,    .00114,    .00207,
     +     .19468,    .05848,    .01665,    .00207,    .00018,
     +     .00012,    .00107,    .00194,
     +     .18654,    .05583,    .01563,    .00196,    .00018,
     +     .00012,    .00101,    .00182 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17871,    .05331,    .01469,    .00185,    .00017,
     +     .00012,    .00096,    .00173,
     +     .17143,    .05098,    .01383,    .00175,    .00017,
     +     .00012,    .00091,    .00163,
     +     .16485,    .04887,    .01307,    .00167,    .00017,
     +     .00012,    .00087,    .00155,
     +     .15889,    .04697,    .01239,    .00160,    .00017,
     +     .00012,    .00083,    .00147,
     +     .15316,    .04515,    .01176,    .00153,    .00016,
     +     .00012,    .00080,    .00140,
     +     .14772,    .04344,    .01117,    .00146,    .00016,
     +     .00012,    .00077,    .00134,
     +     .14277,    .04189,    .01064,    .00140,    .00016,
     +     .00012,    .00074,    .00127,
     +     .13822,    .04046,    .01016,    .00135,    .00015,
     +     .00012,    .00070,    .00122 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13382,    .03907,    .00971,    .00130,    .00015,
     +     .00011,    .00067,    .00116,
     +     .12961,    .03776,    .00928,    .00125,    .00015,
     +     .00011,    .00064,    .00111,
     +     .12574,    .03655,    .00890,    .00120,    .00015,
     +     .00011,    .00061,    .00107,
     +     .12218,    .03545,    .00855,    .00115,    .00014,
     +     .00011,    .00059,    .00104,
     +     .11867,    .03436,    .00821,    .00111,    .00014,
     +     .00011,    .00057,    .00100 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48130,    .15409,    .06001,    .00585,    .00000,
     +     .00000,    .00302,    .00593,
     +     .45898,    .14615,    .05567,    .00546,    .00000,
     +     .00000,    .00281,    .00553,
     +     .42827,    .13532,    .05000,    .00494,    .00000,
     +     .00000,    .00256,    .00498,
     +     .40765,    .12815,    .04631,    .00462,    .00001,
     +     .00000,    .00238,    .00461,
     +     .38757,    .12117,    .04283,    .00431,    .00003,
     +     .00000,    .00222,    .00427,
     +     .37110,    .11551,    .04007,    .00405,    .00005,
     +     .00000,    .00210,    .00400,
     +     .35607,    .11038,    .03763,    .00384,    .00006,
     +     .00000,    .00199,    .00376,
     +     .34092,    .10524,    .03524,    .00364,    .00007,
     +     .00000,    .00187,    .00353 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32838,    .10100,    .03333,    .00347,    .00008,
     +     .00000,    .00178,    .00335,
     +     .31680,    .09709,    .03159,    .00329,    .00009,
     +     .00000,    .00170,    .00318,
     +     .30800,    .09413,    .03028,    .00315,    .00009,
     +     .00000,    .00164,    .00305,
     +     .29018,    .08819,    .02770,    .00290,    .00010,
     +     .00001,    .00151,    .00282,
     +     .27589,    .08346,    .02566,    .00272,    .00011,
     +     .00002,    .00142,    .00263,
     +     .26087,    .07852,    .02357,    .00253,    .00011,
     +     .00003,    .00132,    .00244,
     +     .24623,    .07374,    .02162,    .00234,    .00012,
     +     .00004,    .00122,    .00224,
     +     .23376,    .06969,    .02001,    .00218,    .00012,
     +     .00005,    .00114,    .00208 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22191,    .06587,    .01853,    .00203,    .00012,
     +     .00006,    .00107,    .00194,
     +     .21259,    .06288,    .01740,    .00192,    .00012,
     +     .00006,    .00102,    .00183,
     +     .20186,    .05945,    .01613,    .00180,    .00012,
     +     .00007,    .00095,    .00171,
     +     .19289,    .05661,    .01510,    .00170,    .00012,
     +     .00007,    .00090,    .00161,
     +     .18508,    .05415,    .01422,    .00161,    .00012,
     +     .00007,    .00086,    .00151,
     +     .17565,    .05118,    .01318,    .00150,    .00012,
     +     .00008,    .00081,    .00140,
     +     .16729,    .04856,    .01229,    .00142,    .00012,
     +     .00008,    .00076,    .00132,
     +     .15988,    .04624,    .01153,    .00134,    .00012,
     +     .00008,    .00073,    .00125 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15277,    .04406,    .01081,    .00128,    .00012,
     +     .00008,    .00069,    .00116,
     +     .14619,    .04203,    .01016,    .00121,    .00012,
     +     .00008,    .00065,    .00110,
     +     .14029,    .04019,    .00958,    .00113,    .00011,
     +     .00008,    .00061,    .00106,
     +     .13493,    .03855,    .00907,    .00108,    .00011,
     +     .00008,    .00058,    .00101,
     +     .12979,    .03699,    .00859,    .00103,    .00011,
     +     .00008,    .00055,    .00095,
     +     .12491,    .03551,    .00815,    .00098,    .00011,
     +     .00008,    .00053,    .00090,
     +     .12048,    .03417,    .00775,    .00095,    .00011,
     +     .00008,    .00051,    .00085,
     +     .11645,    .03295,    .00739,    .00090,    .00010,
     +     .00008,    .00048,    .00082 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11256,    .03177,    .00705,    .00086,    .00010,
     +     .00008,    .00046,    .00078,
     +     .10882,    .03065,    .00673,    .00082,    .00010,
     +     .00008,    .00044,    .00075,
     +     .10537,    .02962,    .00645,    .00080,    .00010,
     +     .00008,    .00043,    .00073,
     +     .10222,    .02868,    .00618,    .00077,    .00010,
     +     .00007,    .00041,    .00070,
     +     .09913,    .02776,    .00593,    .00074,    .00009,
     +     .00007,    .00040,    .00067 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .43668,    .13499,    .04413,    .00430,    .00000,
     +     .00000,    .00219,    .00420,
     +     .41507,    .12760,    .04109,    .00400,    .00000,
     +     .00000,    .00205,    .00389,
     +     .38548,    .11760,    .03705,    .00363,    .00000,
     +     .00000,    .00186,    .00348,
     +     .36575,    .11098,    .03443,    .00334,    .00001,
     +     .00000,    .00173,    .00322,
     +     .34651,    .10461,    .03189,    .00310,    .00002,
     +     .00000,    .00162,    .00299,
     +     .33087,    .09942,    .02988,    .00290,    .00003,
     +     .00000,    .00152,    .00280,
     +     .31663,    .09475,    .02809,    .00273,    .00004,
     +     .00000,    .00143,    .00264,
     +     .30231,    .09009,    .02633,    .00258,    .00005,
     +     .00000,    .00134,    .00247 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29050,    .08626,    .02489,    .00243,    .00005,
     +     .00000,    .00129,    .00233,
     +     .27962,    .08273,    .02359,    .00230,    .00006,
     +     .00000,    .00123,    .00220,
     +     .27136,    .08006,    .02262,    .00220,    .00006,
     +     .00000,    .00118,    .00211,
     +     .25472,    .07473,    .02068,    .00202,    .00007,
     +     .00000,    .00109,    .00195,
     +     .24143,    .07051,    .01914,    .00187,    .00007,
     +     .00001,    .00102,    .00180,
     +     .22750,    .06612,    .01757,    .00173,    .00008,
     +     .00002,    .00095,    .00166,
     +     .21397,    .06188,    .01609,    .00159,    .00008,
     +     .00003,    .00088,    .00155,
     +     .20249,    .05830,    .01487,    .00148,    .00008,
     +     .00004,    .00082,    .00144 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19163,    .05495,    .01375,    .00138,    .00008,
     +     .00004,    .00076,    .00133,
     +     .18310,    .05232,    .01289,    .00131,    .00008,
     +     .00004,    .00072,    .00126,
     +     .17334,    .04933,    .01193,    .00122,    .00008,
     +     .00005,    .00067,    .00117,
     +     .16522,    .04684,    .01115,    .00114,    .00008,
     +     .00005,    .00064,    .00110,
     +     .15817,    .04469,    .01048,    .00107,    .00008,
     +     .00005,    .00061,    .00104,
     +     .14964,    .04213,    .00970,    .00101,    .00008,
     +     .00005,    .00057,    .00096,
     +     .14212,    .03986,    .00902,    .00095,    .00008,
     +     .00005,    .00054,    .00089,
     +     .13551,    .03786,    .00844,    .00087,    .00008,
     +     .00005,    .00050,    .00083 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12918,    .03597,    .00791,    .00082,    .00008,
     +     .00005,    .00047,    .00080,
     +     .12331,    .03424,    .00741,    .00078,    .00008,
     +     .00005,    .00044,    .00075,
     +     .11803,    .03269,    .00698,    .00075,    .00008,
     +     .00005,    .00042,    .00070,
     +     .11329,    .03128,    .00660,    .00071,    .00007,
     +     .00005,    .00040,    .00067,
     +     .10876,    .02994,    .00624,    .00067,    .00007,
     +     .00005,    .00038,    .00064,
     +     .10445,    .02869,    .00590,    .00064,    .00007,
     +     .00005,    .00036,    .00061,
     +     .10055,    .02755,    .00561,    .00062,    .00007,
     +     .00005,    .00035,    .00057,
     +     .09700,    .02652,    .00534,    .00059,    .00007,
     +     .00005,    .00034,    .00054 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09357,    .02553,    .00509,    .00056,    .00007,
     +     .00005,    .00032,    .00052,
     +     .09030,    .02458,    .00485,    .00054,    .00007,
     +     .00005,    .00031,    .00050,
     +     .08730,    .02372,    .00464,    .00052,    .00006,
     +     .00005,    .00029,    .00047,
     +     .08456,    .02293,    .00444,    .00050,    .00006,
     +     .00005,    .00028,    .00045,
     +     .08189,    .02215,    .00425,    .00047,    .00006,
     +     .00005,    .00027,    .00044 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39202,    .11710,    .03267,    .00324,    .00000,
     +     .00000,    .00149,    .00285,
     +     .37134,    .11036,    .03054,    .00302,    .00000,
     +     .00000,    .00139,    .00262,
     +     .34332,    .10126,    .02768,    .00268,    .00000,
     +     .00000,    .00124,    .00236,
     +     .32469,    .09524,    .02577,    .00246,    .00001,
     +     .00000,    .00114,    .00222,
     +     .30659,    .08948,    .02392,    .00229,    .00002,
     +     .00000,    .00108,    .00201,
     +     .29192,    .08482,    .02244,    .00214,    .00002,
     +     .00000,    .00101,    .00189,
     +     .27863,    .08063,    .02110,    .00201,    .00003,
     +     .00000,    .00095,    .00177,
     +     .26530,    .07647,    .01978,    .00189,    .00003,
     +     .00000,    .00088,    .00164 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25432,    .07305,    .01870,    .00181,    .00004,
     +     .00000,    .00084,    .00154,
     +     .24424,    .06992,    .01772,    .00171,    .00004,
     +     .00000,    .00079,    .00146,
     +     .23662,    .06755,    .01698,    .00163,    .00004,
     +     .00000,    .00076,    .00141,
     +     .22130,    .06283,    .01551,    .00149,    .00005,
     +     .00000,    .00071,    .00127,
     +     .20911,    .05911,    .01434,    .00137,    .00005,
     +     .00001,    .00066,    .00118,
     +     .19637,    .05526,    .01314,    .00128,    .00005,
     +     .00002,    .00060,    .00108,
     +     .18408,    .05154,    .01201,    .00117,    .00006,
     +     .00002,    .00056,    .00099,
     +     .17369,    .04842,    .01108,    .00108,    .00006,
     +     .00002,    .00052,    .00093 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16386,    .04551,    .01023,    .00102,    .00006,
     +     .00003,    .00048,    .00085,
     +     .15620,    .04322,    .00956,    .00097,    .00006,
     +     .00003,    .00046,    .00078,
     +     .14745,    .04064,    .00883,    .00089,    .00006,
     +     .00003,    .00042,    .00073,
     +     .14019,    .03849,    .00824,    .00082,    .00006,
     +     .00003,    .00039,    .00069,
     +     .13389,    .03664,    .00774,    .00077,    .00006,
     +     .00003,    .00037,    .00065,
     +     .12630,    .03445,    .00714,    .00073,    .00006,
     +     .00004,    .00035,    .00061,
     +     .11963,    .03251,    .00663,    .00068,    .00005,
     +     .00004,    .00033,    .00057,
     +     .11376,    .03081,    .00619,    .00063,    .00005,
     +     .00004,    .00031,    .00053 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10817,    .02921,    .00578,    .00061,    .00005,
     +     .00004,    .00029,    .00049,
     +     .10301,    .02774,    .00541,    .00058,    .00005,
     +     .00004,    .00027,    .00046,
     +     .09838,    .02642,    .00508,    .00055,    .00005,
     +     .00004,    .00024,    .00043,
     +     .09424,    .02523,    .00480,    .00052,    .00005,
     +     .00004,    .00023,    .00041,
     +     .09029,    .02410,    .00453,    .00050,    .00005,
     +     .00004,    .00023,    .00038,
     +     .08656,    .02305,    .00428,    .00046,    .00005,
     +     .00004,    .00022,    .00036,
     +     .08319,    .02209,    .00405,    .00043,    .00005,
     +     .00004,    .00021,    .00035,
     +     .08011,    .02123,    .00386,    .00041,    .00005,
     +     .00003,    .00020,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07713,    .02040,    .00367,    .00040,    .00004,
     +     .00003,    .00018,    .00031,
     +     .07431,    .01961,    .00349,    .00038,    .00004,
     +     .00003,    .00018,    .00030,
     +     .07173,    .01889,    .00333,    .00037,    .00004,
     +     .00003,    .00017,    .00029,
     +     .06937,    .01823,    .00319,    .00035,    .00004,
     +     .00003,    .00017,    .00028,
     +     .06705,    .01759,    .00305,    .00034,    .00004,
     +     .00003,    .00016,    .00026 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34777,    .10009,    .02424,    .00218,    .00000,
     +     .00000,    .00109,    .00199,
     +     .32838,    .09400,    .02273,    .00201,    .00000,
     +     .00000,    .00101,    .00183,
     +     .30208,    .08585,    .02067,    .00181,    .00000,
     +     .00000,    .00090,    .00163,
     +     .28471,    .08051,    .01926,    .00168,    .00000,
     +     .00000,    .00084,    .00149,
     +     .26793,    .07539,    .01788,    .00156,    .00001,
     +     .00000,    .00077,    .00136,
     +     .25434,    .07127,    .01676,    .00146,    .00001,
     +     .00000,    .00072,    .00126,
     +     .24208,    .06758,    .01576,    .00137,    .00002,
     +     .00000,    .00067,    .00120,
     +     .22984,    .06390,    .01476,    .00127,    .00002,
     +     .00000,    .00062,    .00113 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .21981,    .06089,    .01394,    .00121,    .00003,
     +     .00000,    .00059,    .00105,
     +     .21060,    .05816,    .01320,    .00115,    .00003,
     +     .00000,    .00055,    .00099,
     +     .20364,    .05611,    .01264,    .00110,    .00003,
     +     .00000,    .00053,    .00094,
     +     .18979,    .05201,    .01151,    .00098,    .00003,
     +     .00000,    .00048,    .00085,
     +     .17876,    .04878,    .01062,    .00091,    .00003,
     +     .00001,    .00045,    .00078,
     +     .16729,    .04544,    .00972,    .00084,    .00004,
     +     .00001,    .00041,    .00072,
     +     .15624,    .04224,    .00885,    .00079,    .00004,
     +     .00001,    .00037,    .00067,
     +     .14695,    .03956,    .00815,    .00073,    .00004,
     +     .00002,    .00035,    .00061 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13823,    .03706,    .00750,    .00067,    .00004,
     +     .00002,    .00032,    .00056,
     +     .13142,    .03512,    .00700,    .00063,    .00004,
     +     .00002,    .00030,    .00052,
     +     .12368,    .03291,    .00644,    .00057,    .00004,
     +     .00002,    .00028,    .00049,
     +     .11728,    .03110,    .00599,    .00053,    .00004,
     +     .00002,    .00026,    .00046,
     +     .11174,    .02953,    .00561,    .00050,    .00004,
     +     .00002,    .00025,    .00043,
     +     .10511,    .02768,    .00517,    .00047,    .00004,
     +     .00002,    .00024,    .00038,
     +     .09927,    .02605,    .00479,    .00044,    .00004,
     +     .00002,    .00022,    .00036,
     +     .09415,    .02462,    .00446,    .00042,    .00004,
     +     .00002,    .00020,    .00034 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08929,    .02328,    .00415,    .00039,    .00003,
     +     .00002,    .00019,    .00032,
     +     .08483,    .02206,    .00388,    .00037,    .00003,
     +     .00002,    .00018,    .00030,
     +     .08084,    .02096,    .00364,    .00035,    .00003,
     +     .00002,    .00017,    .00027,
     +     .07725,    .01998,    .00342,    .00033,    .00003,
     +     .00002,    .00016,    .00026,
     +     .07384,    .01905,    .00322,    .00032,    .00003,
     +     .00002,    .00015,    .00024,
     +     .07064,    .01818,    .00304,    .00031,    .00003,
     +     .00002,    .00014,    .00023,
     +     .06775,    .01739,    .00288,    .00029,    .00003,
     +     .00002,    .00013,    .00021,
     +     .06512,    .01668,    .00273,    .00027,    .00003,
     +     .00002,    .00013,    .00021 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06259,    .01599,    .00259,    .00025,    .00003,
     +     .00002,    .00012,    .00020,
     +     .06019,    .01535,    .00246,    .00024,    .00003,
     +     .00002,    .00012,    .00019,
     +     .05800,    .01476,    .00235,    .00024,    .00003,
     +     .00002,    .00011,    .00018,
     +     .05600,    .01423,    .00224,    .00023,    .00003,
     +     .00002,    .00010,    .00017,
     +     .05405,    .01370,    .00214,    .00021,    .00003,
     +     .00002,    .00010,    .00017 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30471,    .08451,    .01814,    .00149,    .00000,
     +     .00000,    .00077,    .00136,
     +     .28678,    .07912,    .01703,    .00134,    .00000,
     +     .00000,    .00072,    .00125,
     +     .26256,    .07191,    .01548,    .00120,    .00000,
     +     .00000,    .00063,    .00110,
     +     .24658,    .06721,    .01441,    .00110,    .00000,
     +     .00000,    .00058,    .00103,
     +     .23125,    .06272,    .01336,    .00101,    .00001,
     +     .00000,    .00054,    .00092,
     +     .21890,    .05912,    .01251,    .00093,    .00001,
     +     .00000,    .00050,    .00086,
     +     .20778,    .05591,    .01174,    .00088,    .00001,
     +     .00000,    .00046,    .00081,
     +     .19669,    .05273,    .01098,    .00083,    .00002,
     +     .00000,    .00042,    .00075 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18763,    .05012,    .01035,    .00079,    .00002,
     +     .00000,    .00040,    .00068,
     +     .17935,    .04776,    .00978,    .00074,    .00002,
     +     .00000,    .00038,    .00064,
     +     .17310,    .04600,    .00935,    .00070,    .00002,
     +     .00000,    .00037,    .00062,
     +     .16071,    .04245,    .00849,    .00062,    .00002,
     +     .00000,    .00033,    .00058,
     +     .15088,    .03969,    .00781,    .00058,    .00002,
     +     .00000,    .00031,    .00052,
     +     .14069,    .03684,    .00712,    .00053,    .00002,
     +     .00001,    .00029,    .00046,
     +     .13092,    .03413,    .00647,    .00049,    .00002,
     +     .00001,    .00026,    .00043,
     +     .12273,    .03187,    .00593,    .00045,    .00002,
     +     .00001,    .00024,    .00040 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11507,    .02976,    .00544,    .00041,    .00002,
     +     .00001,    .00022,    .00036,
     +     .10914,    .02812,    .00507,    .00038,    .00002,
     +     .00001,    .00020,    .00034,
     +     .10238,    .02628,    .00465,    .00036,    .00002,
     +     .00001,    .00019,    .00031,
     +     .09680,    .02476,    .00431,    .00034,    .00002,
     +     .00001,    .00018,    .00029,
     +     .09199,    .02346,    .00403,    .00032,    .00002,
     +     .00002,    .00017,    .00027,
     +     .08627,    .02191,    .00370,    .00029,    .00002,
     +     .00002,    .00016,    .00025,
     +     .08124,    .02057,    .00341,    .00027,    .00002,
     +     .00002,    .00014,    .00024,
     +     .07684,    .01939,    .00317,    .00025,    .00002,
     +     .00002,    .00013,    .00023 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07270,    .01829,    .00294,    .00023,    .00002,
     +     .00002,    .00012,    .00021,
     +     .06890,    .01728,    .00274,    .00022,    .00002,
     +     .00002,    .00012,    .00019,
     +     .06550,    .01638,    .00256,    .00020,    .00002,
     +     .00002,    .00011,    .00018,
     +     .06245,    .01558,    .00241,    .00020,    .00002,
     +     .00002,    .00010,    .00017,
     +     .05955,    .01482,    .00227,    .00019,    .00002,
     +     .00002,    .00009,    .00016,
     +     .05684,    .01411,    .00213,    .00019,    .00002,
     +     .00002,    .00009,    .00015,
     +     .05440,    .01348,    .00201,    .00018,    .00002,
     +     .00001,    .00009,    .00013,
     +     .05220,    .01290,    .00191,    .00016,    .00002,
     +     .00001,    .00008,    .00013 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05009,    .01235,    .00181,    .00015,    .00002,
     +     .00001,    .00008,    .00013,
     +     .04808,    .01183,    .00171,    .00014,    .00002,
     +     .00001,    .00008,    .00012,
     +     .04624,    .01136,    .00163,    .00014,    .00002,
     +     .00001,    .00007,    .00012,
     +     .04457,    .01093,    .00155,    .00013,    .00002,
     +     .00001,    .00007,    .00012,
     +     .04295,    .01051,    .00148,    .00013,    .00002,
     +     .00001,    .00007,    .00011 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26376,    .07053,    .01369,    .00103,    .00000,
     +     .00000,    .00048,    .00086,
     +     .24735,    .06582,    .01284,    .00095,    .00000,
     +     .00000,    .00044,    .00078,
     +     .22533,    .05953,    .01163,    .00083,    .00000,
     +     .00000,    .00038,    .00071,
     +     .21088,    .05547,    .01081,    .00079,    .00000,
     +     .00000,    .00036,    .00061,
     +     .19713,    .05158,    .01000,    .00070,    .00000,
     +     .00000,    .00033,    .00056,
     +     .18601,    .04849,    .00934,    .00066,    .00001,
     +     .00000,    .00030,    .00052,
     +     .17605,    .04573,    .00874,    .00062,    .00001,
     +     .00000,    .00028,    .00048,
     +     .16619,    .04299,    .00815,    .00058,    .00001,
     +     .00000,    .00026,    .00045 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15814,    .04077,    .00766,    .00054,    .00001,
     +     .00000,    .00025,    .00044,
     +     .15082,    .03876,    .00722,    .00051,    .00001,
     +     .00000,    .00023,    .00040,
     +     .14530,    .03726,    .00689,    .00049,    .00001,
     +     .00000,    .00022,    .00037,
     +     .13434,    .03427,    .00623,    .00043,    .00001,
     +     .00000,    .00020,    .00035,
     +     .12570,    .03194,    .00571,    .00041,    .00001,
     +     .00000,    .00018,    .00031,
     +     .11681,    .02954,    .00518,    .00038,    .00002,
     +     .00000,    .00017,    .00027,
     +     .10832,    .02726,    .00469,    .00034,    .00002,
     +     .00001,    .00015,    .00026,
     +     .10123,    .02537,    .00429,    .00031,    .00002,
     +     .00001,    .00014,    .00024 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09460,    .02362,    .00392,    .00029,    .00002,
     +     .00001,    .00013,    .00021,
     +     .08948,    .02226,    .00364,    .00026,    .00002,
     +     .00001,    .00012,    .00021,
     +     .08368,    .02073,    .00333,    .00024,    .00002,
     +     .00001,    .00011,    .00019,
     +     .07890,    .01949,    .00308,    .00023,    .00002,
     +     .00001,    .00010,    .00017,
     +     .07478,    .01843,    .00287,    .00021,    .00002,
     +     .00001,    .00010,    .00016,
     +     .06990,    .01716,    .00262,    .00021,    .00002,
     +     .00001,    .00008,    .00014,
     +     .06565,    .01606,    .00241,    .00019,    .00001,
     +     .00001,    .00008,    .00013,
     +     .06194,    .01510,    .00224,    .00018,    .00001,
     +     .00001,    .00007,    .00013 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05844,    .01420,    .00207,    .00016,    .00001,
     +     .00001,    .00007,    .00012,
     +     .05523,    .01339,    .00193,    .00016,    .00001,
     +     .00001,    .00006,    .00011,
     +     .05237,    .01266,    .00180,    .00015,    .00001,
     +     .00001,    .00006,    .00010,
     +     .04984,    .01202,    .00168,    .00014,    .00001,
     +     .00001,    .00006,    .00010,
     +     .04743,    .01141,    .00158,    .00012,    .00001,
     +     .00001,    .00005,    .00009,
     +     .04519,    .01084,    .00148,    .00012,    .00001,
     +     .00001,    .00005,    .00008,
     +     .04317,    .01033,    .00140,    .00011,    .00001,
     +     .00001,    .00005,    .00008,
     +     .04134,    .00987,    .00132,    .00010,    .00001,
     +     .00001,    .00004,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03958,    .00943,    .00125,    .00010,    .00001,
     +     .00001,    .00004,    .00008,
     +     .03793,    .00901,    .00118,    .00009,    .00001,
     +     .00001,    .00004,    .00007,
     +     .03642,    .00864,    .00112,    .00008,    .00001,
     +     .00001,    .00004,    .00007,
     +     .03505,    .00830,    .00107,    .00008,    .00001,
     +     .00001,    .00003,    .00006,
     +     .03371,    .00797,    .00102,    .00008,    .00001,
     +     .00001,    .00003,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22483,    .05778,    .01030,    .00062,    .00000,
     +     .00000,    .00033,    .00059,
     +     .21005,    .05376,    .00963,    .00058,    .00000,
     +     .00000,    .00031,    .00052,
     +     .19038,    .04839,    .00868,    .00052,    .00000,
     +     .00000,    .00028,    .00044,
     +     .17759,    .04490,    .00803,    .00046,    .00000,
     +     .00000,    .00026,    .00041,
     +     .16535,    .04162,    .00739,    .00042,    .00000,
     +     .00000,    .00023,    .00038,
     +     .15555,    .03900,    .00687,    .00039,    .00000,
     +     .00000,    .00021,    .00036,
     +     .14681,    .03667,    .00641,    .00036,    .00001,
     +     .00000,    .00019,    .00033,
     +     .13818,    .03438,    .00595,    .00033,    .00001,
     +     .00000,    .00018,    .00030 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13114,    .03253,    .00558,    .00031,    .00001,
     +     .00000,    .00016,    .00027,
     +     .12474,    .03084,    .00524,    .00029,    .00001,
     +     .00000,    .00015,    .00025,
     +     .11994,    .02958,    .00498,    .00028,    .00001,
     +     .00000,    .00015,    .00025,
     +     .11044,    .02710,    .00448,    .00024,    .00001,
     +     .00000,    .00014,    .00023,
     +     .10303,    .02517,    .00410,    .00022,    .00001,
     +     .00000,    .00012,    .00021,
     +     .09538,    .02321,    .00370,    .00020,    .00001,
     +     .00000,    .00011,    .00019,
     +     .08809,    .02133,    .00333,    .00018,    .00001,
     +     .00000,    .00010,    .00017,
     +     .08204,    .01978,    .00303,    .00017,    .00001,
     +     .00000,    .00010,    .00015 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07641,    .01835,    .00276,    .00015,    .00001,
     +     .00001,    .00008,    .00014,
     +     .07205,    .01726,    .00255,    .00015,    .00001,
     +     .00001,    .00008,    .00013,
     +     .06716,    .01602,    .00233,    .00014,    .00001,
     +     .00001,    .00007,    .00012,
     +     .06314,    .01502,    .00215,    .00013,    .00001,
     +     .00001,    .00007,    .00011,
     +     .05969,    .01416,    .00199,    .00013,    .00001,
     +     .00001,    .00007,    .00010,
     +     .05563,    .01314,    .00182,    .00011,    .00001,
     +     .00001,    .00006,    .00009,
     +     .05208,    .01226,    .00167,    .00010,    .00001,
     +     .00001,    .00005,    .00009,
     +     .04899,    .01150,    .00154,    .00010,    .00001,
     +     .00001,    .00005,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04610,    .01078,    .00142,    .00008,    .00001,
     +     .00001,    .00005,    .00008,
     +     .04346,    .01014,    .00132,    .00008,    .00001,
     +     .00001,    .00004,    .00007,
     +     .04111,    .00957,    .00122,    .00007,    .00001,
     +     .00001,    .00004,    .00006,
     +     .03903,    .00906,    .00115,    .00007,    .00001,
     +     .00001,    .00004,    .00006,
     +     .03705,    .00858,    .00107,    .00007,    .00001,
     +     .00001,    .00004,    .00006,
     +     .03521,    .00813,    .00100,    .00007,    .00001,
     +     .00001,    .00003,    .00005,
     +     .03355,    .00773,    .00094,    .00006,    .00001,
     +     .00001,    .00003,    .00005,
     +     .03206,    .00737,    .00089,    .00006,    .00001,
     +     .00001,    .00003,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03063,    .00703,    .00084,    .00006,    .00001,
     +     .00001,    .00003,    .00005,
     +     .02929,    .00671,    .00079,    .00006,    .00001,
     +     .00001,    .00003,    .00004,
     +     .02807,    .00641,    .00075,    .00005,    .00001,
     +     .00001,    .00003,    .00004,
     +     .02697,    .00615,    .00072,    .00005,    .00001,
     +     .00001,    .00002,    .00004,
     +     .02590,    .00589,    .00068,    .00004,    .00001,
     +     .00001,    .00002,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .15588,    .03702,    .00579,    .00026,    .00000,
     +     .00000,    .00011,    .00021,
     +     .14457,    .03415,    .00533,    .00024,    .00000,
     +     .00000,    .00012,    .00017,
     +     .12963,    .03043,    .00471,    .00019,    .00000,
     +     .00000,    .00009,    .00016,
     +     .11997,    .02804,    .00430,    .00018,    .00000,
     +     .00000,    .00009,    .00014,
     +     .11086,    .02579,    .00390,    .00016,    .00000,
     +     .00000,    .00008,    .00013,
     +     .10364,    .02400,    .00359,    .00014,    .00000,
     +     .00000,    .00008,    .00013,
     +     .09722,    .02243,    .00332,    .00013,    .00000,
     +     .00000,    .00007,    .00011,
     +     .09091,    .02090,    .00305,    .00013,    .00000,
     +     .00000,    .00007,    .00010 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08581,    .01966,    .00283,    .00012,    .00000,
     +     .00000,    .00006,    .00009,
     +     .08120,    .01855,    .00264,    .00011,    .00000,
     +     .00000,    .00006,    .00009,
     +     .07776,    .01772,    .00249,    .00010,    .00000,
     +     .00000,    .00005,    .00009,
     +     .07099,    .01610,    .00222,    .00009,    .00000,
     +     .00000,    .00005,    .00007,
     +     .06574,    .01485,    .00200,    .00008,    .00000,
     +     .00000,    .00004,    .00007,
     +     .06039,    .01358,    .00179,    .00007,    .00000,
     +     .00000,    .00004,    .00006,
     +     .05534,    .01239,    .00160,    .00006,    .00000,
     +     .00000,    .00004,    .00006,
     +     .05117,    .01141,    .00144,    .00006,    .00000,
     +     .00000,    .00003,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04732,    .01051,    .00130,    .00005,    .00000,
     +     .00000,    .00003,    .00004,
     +     .04437,    .00982,    .00119,    .00005,    .00000,
     +     .00000,    .00003,    .00004,
     +     .04106,    .00906,    .00108,    .00005,    .00000,
     +     .00000,    .00002,    .00004,
     +     .03838,    .00844,    .00099,    .00004,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03610,    .00791,    .00091,    .00003,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03340,    .00730,    .00082,    .00004,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03108,    .00677,    .00075,    .00003,    .00000,
     +     .00000,    .00002,    .00003,
     +     .02907,    .00631,    .00069,    .00002,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02719,    .00588,    .00063,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02548,    .00550,    .00058,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02398,    .00516,    .00054,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02265,    .00486,    .00050,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02140,    .00458,    .00047,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02024,    .00432,    .00044,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .01921,    .00409,    .00041,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01827,    .00389,    .00038,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01739,    .00369,    .00036,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01656,    .00351,    .00034,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01581,    .00334,    .00032,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01513,    .00319,    .00030,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01447,    .00305,    .00029,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .09989,    .02174,    .00303,    .00009,    .00000,
     +     .00000,    .00003,    .00006,
     +     .09191,    .01990,    .00273,    .00007,    .00000,
     +     .00000,    .00003,    .00006,
     +     .08143,    .01753,    .00235,    .00008,    .00000,
     +     .00000,    .00003,    .00004,
     +     .07476,    .01601,    .00211,    .00006,    .00000,
     +     .00000,    .00003,    .00004,
     +     .06851,    .01461,    .00188,    .00006,    .00000,
     +     .00000,    .00002,    .00004,
     +     .06359,    .01351,    .00171,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .05926,    .01254,    .00156,    .00004,    .00000,
     +     .00000,    .00002,    .00003,
     +     .05504,    .01160,    .00142,    .00004,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05163,    .01085,    .00130,    .00004,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04858,    .01018,    .00120,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04633,    .00969,    .00113,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04190,    .00872,    .00099,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03850,    .00798,    .00089,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .03507,    .00724,    .00078,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03185,    .00655,    .00069,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02923,    .00598,    .00062,    .00002,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02683,    .00547,    .00055,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02500,    .00508,    .00050,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02297,    .00465,    .00045,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02132,    .00431,    .00041,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01993,    .00401,    .00038,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01830,    .00367,    .00034,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01691,    .00338,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01572,    .00314,    .00028,    .00001,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01461,    .00290,    .00025,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01361,    .00270,    .00023,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01273,    .00252,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01196,    .00236,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01125,    .00221,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01058,    .00208,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00999,    .00196,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00946,    .00185,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00896,    .00175,    .00014,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00850,    .00165,    .00013,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00808,    .00157,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00770,    .00149,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00733,    .00142,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05770,    .01138,    .00138,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .05259,    .01033,    .00122,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04601,    .00898,    .00102,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .04186,    .00813,    .00089,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03798,    .00735,    .00079,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03498,    .00675,    .00070,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03235,    .00622,    .00063,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02981,    .00571,    .00057,    .00002,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02779,    .00530,    .00052,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02599,    .00495,    .00047,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02466,    .00468,    .00044,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02207,    .00417,    .00038,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02010,    .00378,    .00034,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01813,    .00340,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01631,    .00305,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01484,    .00276,    .00023,    .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)/
     +     .01350,    .00250,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01249,    .00231,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01138,    .00209,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01049,    .00192,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00974,    .00178,    .00013,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00887,    .00162,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00813,    .00148,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00750,    .00136,    .00010,    .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)/
     +     .00693,    .00125,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00641,    .00116,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00596,    .00107,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00556,    .00100,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00520,    .00093,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00486,    .00087,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00456,    .00081,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00430,    .00077,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00405,    .00072,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00382,    .00068,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00362,    .00064,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00343,    .00061,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00325,    .00057,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .02865,    .00503,    .00049,    .00000,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02585,    .00452,    .00043,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02227,    .00387,    .00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02004,    .00347,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01800,    .00311,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01642,    .00282,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01506,    .00258,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01376,    .00235,    .00018,    .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)/
     +     .01272,    .00217,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01181,    .00200,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01114,    .00189,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00985,    .00166,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00888,    .00149,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00792,    .00133,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00705,    .00118,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00634,    .00105,    .00007,    .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)/
     +     .00572,    .00095,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00524,    .00087,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00473,    .00078,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00432,    .00071,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00398,    .00065,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00359,    .00059,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00326,    .00053,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00298,    .00048,    .00003,    .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)/
     +     .00273,    .00044,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00251,    .00040,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00231,    .00037,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00214,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00199,    .00032,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00185,    .00030,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00172,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00161,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00151,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00133,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00126,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00119,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00296,    .00038,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00259,    .00033,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00214,    .00027,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00186,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00162,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00144,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00129,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00115,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00104,    .00013,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00094,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00087,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00075,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00065,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00049,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00037,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00033,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00020,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor03.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