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

sfmrs_99a4.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a4(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)/
     +     .00585,    .00245,    .82805,    .91213,    .00000,
     +     .00000,    .48557,    .92764,
     +     .00600,    .00250,   2.18412,    .94369,    .00000,
     +     .00000,    .52199,    .95924,
     +     .00622,    .00259,   4.68943,   1.00920,    .00069,
     +     .00000,    .59453,   1.02479,
     +     .00639,    .00265,   6.93938,   1.07311,    .06835,
     +     .00000,    .66339,   1.08871,
     +     .00656,    .00272,   9.74757,   1.15473,    .17739,
     +     .00000,    .75010,   1.17034,
     +     .00671,    .00279,  12.59184,   1.24006,    .26786,
     +     .00000,    .83974,   1.25568,
     +     .00686,    .00285,  15.71620,   1.33420,    .36772,
     +     .00000,    .93795,   1.34982,
     +     .00702,    .00291,  19.58449,   1.44622,    .49224,
     +     .00000,   1.05420,   1.46183 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00715,    .00297,  23.28337,   1.55743,    .60663,
     +     .00000,   1.16904,   1.57302,
     +     .00729,    .00303,  27.31465,   1.67482,    .73243,
     +     .00000,   1.28987,   1.69039,
     +     .00740,    .00307,  30.75279,   1.77656,    .83779,
     +     .00000,   1.39430,   1.79211,
     +     .00763,    .00317,  38.89783,   2.01817,   1.09094,
     +     .00044,   1.64153,   2.03368,
     +     .00783,    .00326,  46.71848,   2.25432,   1.33851,
     +     .20964,   1.88239,   2.26978,
     +     .00805,    .00336,  56.33112,   2.54970,   1.64744,
     +     .58858,   2.18290,   2.56510,
     +     .00829,    .00347,  67.70467,   2.89625,   2.00887,
     +     .96709,   2.53467,   2.91158,
     +     .00851,    .00357,  79.06387,   3.24413,   2.36632,
     +    1.32884,   2.88718,   3.25939 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00873,    .00367,  91.73856,   3.63046,   2.76496,
     +    1.74192,   3.27807,   3.64564,
     +     .00892,    .00376, 103.26083,   3.97972,   3.12744,
     +    2.12256,   3.63103,   3.99483,
     +     .00915,    .00387, 118.29268,   4.43814,   3.59974,
     +    2.60937,   4.09386,   4.45317,
     +     .00935,    .00396, 132.58542,   4.87647,   4.04940,
     +    3.06999,   4.53602,   4.89142,
     +     .00954,    .00405, 146.74286,   5.30873,   4.49592,
     +    3.53412,   4.97171,   5.32360,
     +     .00979,    .00417, 165.77943,   5.89603,   5.09799,
     +    4.15102,   5.56328,   5.91079,
     +     .01002,    .00428, 184.94156,   6.49052,   5.70683,
     +    4.77470,   6.16170,   6.50518,
     +     .01023,    .00438, 204.19962,   7.08859,   6.32131,
     +    5.40806,   6.76338,   7.10316 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01045,    .00449, 224.36107,   7.72214,   6.96849,
     +    6.06894,   7.40046,   7.73661,
     +     .01067,    .00459, 245.24771,   8.38133,   7.64269,
     +    6.75944,   8.06304,   8.39570,
     +     .01088,    .00469, 266.06628,   9.04202,   8.31842,
     +    7.45167,   8.72689,   9.05629,
     +     .01108,    .00479, 286.41031,   9.69417,   8.98339,
     +    8.13010,   9.38196,   9.70835,
     +     .01128,    .00489, 307.90686,  10.38523,   9.68943,
     +    8.85283,  10.07590,  10.39931,
     +     .01148,    .00498, 329.65781,  11.09263,  10.40965,
     +    9.58659,  10.78610,  11.10662,
     +     .01167,    .00508, 351.30969,  11.79904,  11.13017,
     +   10.32282,  11.49512,  11.81294,
     +     .01185,    .00517, 372.31799,  12.49127,  11.83462,
     +   11.04050,  12.18979,  12.50509 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01203,    .00526, 394.25159,  13.21812,  12.57437,
     +   11.79438,  12.91907,  13.23185,
     +     .01222,    .00535, 416.63153,  13.96398,  13.33374,
     +   12.56891,  13.66729,  13.97763,
     +     .01239,    .00544, 438.38248,  14.69668,  14.07785,
     +   13.32532,  14.40220,  14.71024,
     +     .01256,    .00553, 459.91669,  15.42256,  14.81698,
     +   14.07970,  15.13017,  15.43604,
     +     .01274,    .00561, 481.80563,  16.17059,  15.57575,
     +   14.85012,  15.88028,  16.18400 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00791,    .00333,    .86020,    .76857,    .00000,
     +     .00000,    .40852,    .77754,
     +     .00811,    .00342,   2.10394,    .79885,    .00000,
     +     .00000,    .44255,    .80784,
     +     .00842,    .00354,   4.35009,    .85865,    .00063,
     +     .00000,    .50775,    .86766,
     +     .00865,    .00364,   6.32141,    .91497,    .05932,
     +     .00000,    .56788,    .92399,
     +     .00889,    .00375,   8.73984,    .98557,    .15327,
     +     .00000,    .64237,    .99459,
     +     .00910,    .00384,  11.15188,   1.05812,    .22995,
     +     .00000,    .71823,   1.06714,
     +     .00930,    .00393,  13.76694,   1.13722,    .31380,
     +     .00000,    .80045,   1.14624,
     +     .00951,    .00402,  16.96573,   1.23063,    .41746,
     +     .00000,    .89710,   1.23964 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00970,    .00411,  19.98794,   1.32233,    .51175,
     +     .00000,    .99157,   1.33133,
     +     .00989,    .00419,  23.25026,   1.41857,    .61475,
     +     .00000,   1.09044,   1.42756,
     +     .01003,    .00426,  26.00810,   1.50138,    .70041,
     +     .00000,   1.17530,   1.51035,
     +     .01035,    .00440,  32.46647,   1.69651,    .90453,
     +     .00039,   1.37473,   1.70546,
     +     .01062,    .00453,  38.58014,   1.88541,   1.10212,
     +     .16668,   1.56723,   1.89434,
     +     .01093,    .00467,  45.99443,   2.11955,   1.34633,
     +     .46632,   1.80529,   2.12845,
     +     .01126,    .00483,  54.65355,   2.39162,   1.62919,
     +     .76178,   2.08134,   2.40048,
     +     .01155,    .00497,  63.19270,   2.66210,   1.90618,
     +    1.04126,   2.35535,   2.67092 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01186,    .00511,  72.61507,   2.96001,   2.21248,
     +    1.35777,   2.65674,   2.96879,
     +     .01211,    .00524,  81.09736,   3.22739,   2.48895,
     +    1.64727,   2.92695,   3.23613,
     +     .01242,    .00539,  92.05191,   3.57561,   2.84632,
     +    2.01442,   3.27852,   3.58430,
     +     .01270,    .00552, 102.36368,   3.90599,   3.18389,
     +    2.35901,   3.61181,   3.91463,
     +     .01295,    .00565, 112.49475,   4.22976,   3.51703,
     +    2.70420,   3.93820,   4.23836,
     +     .01328,    .00581, 125.98730,   4.66633,   3.96278,
     +    3.15930,   4.37803,   4.67488,
     +     .01359,    .00596, 139.43782,   5.10490,   4.41012,
     +    3.61591,   4.81959,   5.11339,
     +     .01389,    .00611, 152.84148,   5.54316,   4.85865,
     +    4.07666,   5.26060,   5.55161 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01418,    .00626, 166.75031,   6.00415,   5.32768,
     +    4.55387,   5.72429,   6.01254,
     +     .01447,    .00640, 181.04597,   6.48077,   5.81325,
     +    5.04944,   6.20350,   6.48911,
     +     .01475,    .00654, 195.18823,   6.95560,   6.29704,
     +    5.54332,   6.68073,   6.96388,
     +     .01502,    .00668, 208.90544,   7.42149,   6.77028,
     +    6.02441,   7.14886,   7.42973,
     +     .01529,    .00681, 223.30815,   7.91264,   7.27023,
     +    6.53445,   7.64221,   7.92083,
     +     .01555,    .00695, 237.77751,   8.41252,   7.77729,
     +    7.04918,   8.14422,   8.42066,
     +     .01581,    .00708, 252.09695,   8.90930,   8.28219,
     +    7.56338,   8.64301,   8.91740,
     +     .01605,    .00720, 265.90332,   9.39366,   8.77334,
     +    8.06202,   9.12922,   9.40170 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01630,    .00733, 280.23837,   9.89993,   9.28681,
     +    8.58352,   9.63735,   9.90793,
     +     .01654,    .00745, 294.78558,  10.41713,   9.81160,
     +    9.11705,  10.15635,  10.42509,
     +     .01678,    .00757, 308.84103,  10.92281,  10.32340,
     +    9.63553,  10.66373,  10.93073,
     +     .01700,    .00769, 322.69809,  11.42199,  10.83008,
     +   10.15106,  11.16451,  11.42987,
     +     .01723,    .00781, 336.69937,  11.93400,  11.34770,
     +   10.67484,  11.67810,  11.94183 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01069,    .00454,    .89461,    .64732,    .00000,
     +     .00000,    .34383,    .65174,
     +     .01098,    .00467,   2.02863,    .67594,    .00000,
     +     .00000,    .37532,    .68037,
     +     .01140,    .00486,   4.03754,    .73020,    .00057,
     +     .00000,    .43371,    .73463,
     +     .01171,    .00500,   5.76062,    .77976,    .05147,
     +     .00000,    .48617,    .78418,
     +     .01204,    .00515,   7.83815,    .84078,    .13239,
     +     .00000,    .55017,    .84520,
     +     .01233,    .00529,   9.87803,    .90244,    .19734,
     +     .00000,    .61435,    .90686,
     +     .01260,    .00542,  12.06032,    .96885,    .26770,
     +     .00000,    .68314,    .97327,
     +     .01290,    .00556,  14.69720,   1.04668,    .35393,
     +     .00000,    .76343,   1.05109 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01316,    .00568,  17.15815,   1.12220,    .43156,
     +     .00000,    .84106,   1.12660,
     +     .01341,    .00580,  19.78888,   1.20098,    .51580,
     +     .00000,    .92184,   1.20537,
     +     .01361,    .00590,  21.99280,   1.26825,    .58535,
     +     .00000,    .99067,   1.27264,
     +     .01404,    .00611,  27.09359,   1.42551,    .74968,
     +     .00035,   1.15119,   1.42989,
     +     .01442,    .00629,  31.85233,   1.57625,    .90712,
     +     .13246,   1.30465,   1.58061,
     +     .01484,    .00650,  37.54441,   1.76133,   1.09981,
     +     .36926,   1.49270,   1.76567,
     +     .01528,    .00672,  44.10455,   1.97424,   1.32072,
     +     .59974,   1.70863,   1.97857,
     +     .01568,    .00692,  50.49009,   2.18380,   1.53485,
     +     .81549,   1.92086,   2.18811 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01609,    .00712,  57.45637,   2.41267,   1.76960,
     +    1.05776,   2.15236,   2.41695,
     +     .01644,    .00730,  63.66531,   2.61656,   1.97990,
     +    1.27770,   2.35838,   2.62083,
     +     .01686,    .00751,  71.60124,   2.87996,   2.24952,
     +    1.55423,   2.62432,   2.88420,
     +     .01723,    .00770,  78.99487,   3.12786,   2.50215,
     +    1.81163,   2.87442,   3.13209,
     +     .01758,    .00788,  86.19881,   3.36928,   2.74990,
     +    2.06794,   3.11781,   3.37348,
     +     .01802,    .00810,  95.69867,   3.69227,   3.07879,
     +    2.40306,   3.44326,   3.69646,
     +     .01844,    .00832, 105.07512,   4.01421,   3.40628,
     +    2.73667,   3.76746,   4.01837,
     +     .01884,    .00852, 114.33829,   4.33373,   3.73244,
     +    3.07111,   4.08906,   4.33787 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01924,    .00873, 123.86313,   4.66740,   4.07101,
     +    3.41485,   4.42476,   4.67151,
     +     .01963,    .00893, 133.57368,   5.01015,   4.41930,
     +    3.76959,   4.76946,   5.01424,
     +     .02000,    .00912, 143.10623,   5.34951,   4.76419,
     +    4.12100,   5.11064,   5.35358,
     +     .02036,    .00931, 152.28104,   5.68045,   5.09948,
     +    4.46112,   5.44326,   5.68450,
     +     .02072,    .00950, 161.85223,   6.02749,   5.45190,
     +    4.81997,   5.79197,   6.03153,
     +     .02107,    .00968, 171.39592,   6.37862,   5.80719,
     +    5.17987,   6.14471,   6.38264,
     +     .02141,    .00986, 180.78500,   6.72589,   6.15931,
     +    5.53778,   6.49349,   6.72989,
     +     .02174,    .01003, 189.77789,   7.06269,   6.50003,
     +    5.88299,   6.83170,   7.06667 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02207,    .01021, 199.06227,   7.41312,   6.85463,
     +    6.24242,   7.18352,   7.41708,
     +     .02239,    .01038, 208.43132,   7.76947,   7.21543,
     +    6.60853,   7.54124,   7.77342,
     +     .02271,    .01054, 217.42761,   8.11620,   7.56556,
     +    6.96250,   7.88925,   8.12013,
     +     .02300,    .01070, 226.25989,   8.45724,   7.91103,
     +    7.31338,   8.23150,   8.46115,
     +     .02331,    .01086, 235.12692,   8.80533,   8.26216,
     +    7.66796,   8.58079,   8.80923 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01276,    .00544,    .91625,    .58535,    .00000,
     +     .00000,    .31095,    .58789,
     +     .01310,    .00560,   1.98743,    .61287,    .00000,
     +     .00000,    .34093,    .61541,
     +     .01361,    .00585,   3.86701,    .66401,    .00054,
     +     .00000,    .39559,    .66654,
     +     .01399,    .00603,   5.45765,    .70994,    .04736,
     +     .00000,    .44400,    .71247,
     +     .01438,    .00622,   7.35592,    .76594,    .12149,
     +     .00000,    .50255,    .76847,
     +     .01473,    .00638,   9.20256,    .82198,    .18041,
     +     .00000,    .56073,    .82451,
     +     .01506,    .00655,  11.16252,    .88192,    .24387,
     +     .00000,    .62269,    .88444,
     +     .01542,    .00672,  13.51359,    .95182,    .32126,
     +     .00000,    .69469,    .95434 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01573,    .00688,  15.69180,   1.01918,    .39050,
     +     .00000,    .76384,   1.02169,
     +     .01603,    .00702,  18.00684,   1.08920,    .46534,
     +     .00000,    .83556,   1.09170,
     +     .01627,    .00714,  19.93586,   1.14871,    .52686,
     +     .00000,    .89640,   1.15121,
     +     .01679,    .00740,  24.36922,   1.28717,    .67149,
     +     .00032,   1.03762,   1.28966,
     +     .01724,    .00763,  28.46933,   1.41907,    .80920,
     +     .11575,   1.17184,   1.42155,
     +     .01774,    .00788,  33.33323,   1.58011,    .97677,
     +     .32201,   1.33540,   1.58258,
     +     .01827,    .00815,  38.89463,   1.76426,   1.16770,
     +     .52121,   1.52210,   1.76673,
     +     .01875,    .00840,  44.26595,   1.94441,   1.35164,
     +     .70654,   1.70452,   1.94687 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01924,    .00865,  50.08607,   2.14016,   1.55227,
     +     .91360,   1.90249,   2.14260,
     +     .01966,    .00886,  55.24268,   2.31377,   1.73119,
     +    1.10073,   2.07791,   2.31621,
     +     .02016,    .00912,  61.79272,   2.53697,   1.95946,
     +    1.33481,   2.30326,   2.53939,
     +     .02060,    .00935,  67.85748,   2.74603,   2.17232,
     +    1.55162,   2.51417,   2.74844,
     +     .02102,    .00957,  73.73756,   2.94885,   2.38028,
     +    1.76674,   2.71867,   2.95126,
     +     .02154,    .00984,  81.44552,   3.21893,   2.65504,
     +    2.04661,   2.99083,   3.22133,
     +     .02204,    .01011,  89.00803,   3.48687,   2.92736,
     +    2.32391,   3.26068,   3.48926,
     +     .02251,    .01035,  96.44079,   3.75173,   3.19748,
     +    2.60083,   3.52729,   3.75411 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02299,    .01060, 104.04114,   4.02709,   3.47665,
     +    2.88412,   3.80437,   4.02946,
     +     .02345,    .01085, 111.75208,   4.30888,   3.76274,
     +    3.17540,   4.08781,   4.31124,
     +     .02390,    .01109, 119.28671,   4.58684,   4.04501,
     +    3.46290,   4.36731,   4.58920,
     +     .02432,    .01131, 126.50453,   4.85691,   4.31839,
     +    3.74010,   4.63880,   4.85926,
     +     .02475,    .01154, 134.00520,   5.13924,   4.60488,
     +    4.03170,   4.92253,   5.14158,
     +     .02517,    .01176, 141.45039,   5.42388,   4.89265,
     +    4.32307,   5.20853,   5.42621,
     +     .02557,    .01198, 148.74884,   5.70457,   5.17706,
     +    4.61205,   5.49050,   5.70690,
     +     .02595,    .01218, 155.71138,   5.97594,   5.45139,
     +    4.88986,   5.76307,   5.97827 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02634,    .01239, 162.87488,   6.25752,   5.73611,
     +    5.17835,   6.04582,   6.25984,
     +     .02673,    .01260, 170.07930,   6.54308,   6.02504,
     +    5.47142,   6.33254,   6.54540,
     +     .02710,    .01280, 176.97073,   6.82011,   6.30459,
     +    5.75390,   6.61065,   6.82242,
     +     .02745,    .01299, 183.71989,   7.09202,   6.57988,
     +    6.03341,   6.88359,   7.09433,
     +     .02781,    .01318, 190.46852,   7.36873,   6.85881,
     +    6.31494,   7.16131,   7.37103 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01447,    .00620,    .93253,    .54497,    .00000,
     +     .00000,    .28961,    .54649,
     +     .01486,    .00639,   1.95978,    .57167,    .00000,
     +     .00000,    .31851,    .57318,
     +     .01544,    .00667,   3.75161,    .62064,    .00052,
     +     .00000,    .37064,    .62215,
     +     .01587,    .00688,   5.25354,    .66415,    .04464,
     +     .00000,    .41636,    .66565,
     +     .01632,    .00710,   7.03284,    .71683,    .11428,
     +     .00000,    .47131,    .71833,
     +     .01671,    .00730,   8.75224,    .76918,    .16926,
     +     .00000,    .52558,    .77068,
     +     .01709,    .00749,  10.56680,    .82489,    .22823,
     +     .00000,    .58309,    .82639,
     +     .01750,    .00769,  12.73210,    .88965,    .29987,
     +     .00000,    .64972,    .89114 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01785,    .00787,  14.72766,    .95173,    .36369,
     +     .00000,    .71340,    .95322,
     +     .01820,    .00805,  16.83979,   1.01610,    .43247,
     +     .00000,    .77928,   1.01758,
     +     .01847,    .00819,  18.59291,   1.07063,    .48884,
     +     .00000,    .83499,   1.07211,
     +     .01906,    .00848,  22.60170,   1.19703,    .62088,
     +     .00030,    .96386,   1.19851,
     +     .01957,    .00875,  26.28588,   1.31693,    .74604,
     +     .10516,   1.08582,   1.31840,
     +     .02014,    .00904,  30.63028,   1.46272,    .89770,
     +     .29212,   1.23385,   1.46418,
     +     .02074,    .00935,  35.56943,   1.62869,   1.06974,
     +     .47168,   1.40210,   1.63016,
     +     .02129,    .00964,  40.31294,   1.79035,   1.23477,
     +     .63798,   1.56576,   1.79181 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02185,    .00993,  45.42768,   1.96536,   1.41409,
     +     .82313,   1.74275,   1.96682,
     +     .02231,    .01017,  49.93996,   2.12008,   1.57350,
     +     .98993,   1.89908,   2.12154,
     +     .02288,    .01047,  55.64581,   2.31829,   1.77616,
     +    1.19779,   2.09920,   2.31975,
     +     .02339,    .01074,  60.90530,   2.50330,   1.96446,
     +    1.38964,   2.28586,   2.50476,
     +     .02386,    .01099,  65.98657,   2.68231,   2.14795,
     +    1.57950,   2.46635,   2.68376,
     +     .02445,    .01131,  72.61874,   2.91987,   2.38955,
     +    1.82561,   2.70575,   2.92131,
     +     .02502,    .01161,  79.09762,   3.15474,   2.62818,
     +    2.06865,   2.94233,   3.15619,
     +     .02555,    .01189,  85.44164,   3.38624,   2.86422,
     +    2.31067,   3.17538,   3.38769 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02609,    .01218,  91.90258,   3.62616,   3.10738,
     +    2.55744,   3.41683,   3.62761,
     +     .02661,    .01246,  98.43453,   3.87099,   3.35588,
     +    2.81049,   3.66312,   3.87244,
     +     .02711,    .01273, 104.79581,   4.11187,   3.60042,
     +    3.05958,   3.90536,   4.11332,
     +     .02759,    .01298, 110.86877,   4.34527,   3.83663,
     +    3.29910,   4.14003,   4.34673,
     +     .02807,    .01324, 117.16215,   4.58873,   4.08362,
     +    3.55053,   4.38474,   4.59019,
     +     .02855,    .01350, 123.38805,   4.83355,   4.33106,
     +    3.80108,   4.63076,   4.83500,
     +     .02900,    .01375, 129.47572,   5.07447,   4.57512,
     +    4.04909,   4.87281,   5.07593,
     +     .02943,    .01398, 135.26607,   5.30686,   4.80999,
     +    4.28695,   5.10626,   5.30832 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02987,    .01422, 141.20880,   5.54751,   5.05328,
     +    4.53347,   5.34796,   5.54897,
     +     .03030,    .01445, 147.17059,   5.79109,   5.29969,
     +    4.78344,   5.59256,   5.79256,
     +     .03072,    .01468, 152.85759,   6.02688,   5.53758,
     +    5.02382,   5.82932,   6.02835,
     +     .03112,    .01490, 158.41747,   6.25798,   5.77152,
     +    5.26139,   6.06132,   6.25945,
     +     .03152,    .01512, 163.96019,   6.49263,   6.00801,
     +    5.50008,   6.29687,   6.49411 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01595,    .00685,    .94584,    .51556,    .00000,
     +     .00000,    .27412,    .51645,
     +     .01638,    .00707,   1.93945,    .54161,    .00000,
     +     .00000,    .30219,    .54249,
     +     .01703,    .00739,   3.66539,    .58894,    .00051,
     +     .00000,    .35241,    .58982,
     +     .01750,    .00763,   5.10137,    .63064,    .04263,
     +     .00000,    .39614,    .63151,
     +     .01800,    .00788,   6.79277,    .68087,    .10898,
     +     .00000,    .44845,    .68174,
     +     .01844,    .00810,   8.41874,    .73052,    .16107,
     +     .00000,    .49986,    .73139,
     +     .01886,    .00831,  10.12704,    .78315,    .21676,
     +     .00000,    .55413,    .78401,
     +     .01930,    .00854,  12.15722,    .84416,    .28422,
     +     .00000,    .61686,    .84502 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01970,    .00875,  14.02052,    .90242,    .34412,
     +     .00000,    .67659,    .90328,
     +     .02008,    .00894,  15.98626,    .96269,    .40852,
     +     .00000,    .73825,    .96356,
     +     .02038,    .00910,  17.61289,   1.01363,    .46118,
     +     .00000,    .79026,   1.01449,
     +     .02103,    .00943,  21.31774,   1.13136,    .58416,
     +     .00029,    .91025,   1.13222,
     +     .02159,    .00973,  24.70573,   1.24266,    .70033,
     +     .09760,   1.02343,   1.24352,
     +     .02222,    .01006,  28.68205,   1.37754,    .84065,
     +     .27079,   1.16036,   1.37840,
     +     .02289,    .01041,  33.18257,   1.53057,    .99927,
     +     .43641,   1.31547,   1.53143,
     +     .02349,    .01073,  37.48562,   1.67910,   1.15089,
     +     .58928,   1.46583,   1.67997 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02411,    .01105,  42.10761,   1.83944,   1.31517,
     +     .75899,   1.62798,   1.84030,
     +     .02462,    .01133,  46.17150,   1.98083,   1.46084,
     +     .91149,   1.77083,   1.98170,
     +     .02525,    .01166,  51.29216,   2.16146,   1.64551,
     +    1.10099,   1.95321,   2.16233,
     +     .02581,    .01196,  55.99561,   2.32960,   1.81663,
     +    1.27539,   2.12285,   2.33048,
     +     .02632,    .01224,  60.52699,   2.49193,   1.98303,
     +    1.44765,   2.28654,   2.49281,
     +     .02698,    .01259,  66.42126,   2.70679,   2.20153,
     +    1.67031,   2.50309,   2.70768,
     +     .02760,    .01292,  72.15972,   2.91867,   2.41678,
     +    1.88959,   2.71650,   2.91956,
     +     .02818,    .01324,  77.76231,   3.12701,   2.62920,
     +    2.10749,   2.92627,   3.12791 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02877,    .01356,  83.44997,   3.34240,   2.84748,
     +    2.32907,   3.14304,   3.34330,
     +     .02935,    .01387,  89.18421,   3.56171,   3.07008,
     +    2.55582,   3.36369,   3.56262,
     +     .02990,    .01417,  94.75375,   3.77704,   3.28867,
     +    2.77856,   3.58026,   3.77796,
     +     .03043,    .01445, 100.05653,   3.98524,   3.49937,
     +    2.99227,   3.78961,   3.98617,
     +     .03095,    .01474, 105.53970,   4.20203,   3.71931,
     +    3.21624,   4.00755,   4.20297,
     +     .03147,    .01503, 110.94969,   4.41959,   3.93919,
     +    3.43893,   4.22620,   4.42053,
     +     .03197,    .01530, 116.22894,   4.63333,   4.15573,
     +    3.65905,   4.44098,   4.63429,
     +     .03245,    .01556, 121.23843,   4.83915,   4.36373,
     +    3.86976,   4.64775,   4.84011 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03293,    .01582, 126.36973,   5.05193,   4.57887,
     +    4.08780,   4.86150,   5.05291,
     +     .03340,    .01608, 131.50752,   5.26698,   4.79643,
     +    4.30857,   5.07748,   5.26797,
     +     .03386,    .01633, 136.39740,   5.47481,   5.00610,
     +    4.52049,   5.28619,   5.47580,
     +     .03429,    .01657, 141.17151,   5.67825,   5.21207,
     +    4.72972,   5.49045,   5.67925,
     +     .03473,    .01681, 145.91943,   5.88447,   5.41991,
     +    4.93954,   5.69750,   5.88548 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02160,    .00940,    .99268,    .43402,    .00000,
     +     .00000,    .23144,    .43376,
     +     .02220,    .00972,   1.88442,    .45798,    .00000,
     +     .00000,    .25695,    .45772,
     +     .02309,    .01019,   3.41718,    .50039,    .00046,
     +     .00000,    .30159,    .50014,
     +     .02374,    .01053,   4.66283,    .53686,    .03691,
     +     .00000,    .33962,    .53662,
     +     .02442,    .01090,   6.10357,    .58011,    .09391,
     +     .00000,    .38447,    .57987,
     +     .02502,    .01122,   7.46580,    .62216,    .13790,
     +     .00000,    .42787,    .62193,
     +     .02559,    .01153,   8.87681,    .66618,    .18445,
     +     .00000,    .47316,    .66596,
     +     .02621,    .01186,  10.53199,    .71679,    .24034,
     +     .00000,    .52508,    .71658 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02674,    .01215,  12.03121,    .76451,    .28942,
     +     .00000,    .57392,    .76431,
     +     .02726,    .01244,  13.59656,    .81356,    .34181,
     +     .00000,    .62403,    .81336,
     +     .02768,    .01266,  14.87931,    .85465,    .38432,
     +     .00000,    .66595,    .85446,
     +     .02856,    .01314,  17.76418,    .94879,    .48271,
     +     .00026,    .76181,    .94862,
     +     .02933,    .01356,  20.36065,   1.03680,    .57463,
     +     .07726,    .85126,   1.03665,
     +     .03019,    .01403,  23.36214,   1.14235,    .68449,
     +     .21357,    .95837,   1.14222,
     +     .03109,    .01453,  26.71107,   1.26078,    .80732,
     +     .34216,   1.07838,   1.26067,
     +     .03191,    .01498,  29.86769,   1.37445,    .92345,
     +     .45954,   1.19344,   1.37436 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03274,    .01544,  33.21678,   1.49601,   1.04811,
     +     .58869,   1.31638,   1.49595,
     +     .03344,    .01583,  36.12999,   1.60235,   1.15776,
     +     .70383,   1.42384,   1.60231,
     +     .03428,    .01630,  39.75914,   1.73701,   1.29554,
     +     .84557,   1.55982,   1.73698,
     +     .03504,    .01671,  43.05491,   1.86124,   1.42209,
     +     .97487,   1.68520,   1.86124,
     +     .03573,    .01710,  46.20203,   1.98038,   1.54432,
     +    1.10177,   1.80537,   1.98040,
     +     .03661,    .01759,  50.25074,   2.13672,   1.70345,
     +    1.26432,   1.96298,   2.13677,
     +     .03745,    .01806,  54.14931,   2.28957,   1.85887,
     +    1.42305,   2.11700,   2.28965,
     +     .03823,    .01850,  57.92001,   2.43878,   2.01117,
     +    1.57968,   2.26730,   2.43889 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03902,    .01894,  61.70839,   2.59181,   2.16639,
     +    1.73760,   2.42137,   2.59194,
     +     .03980,    .01937,  65.49379,   2.74654,   2.32360,
     +    1.89813,   2.57712,   2.74671,
     +     .04053,    .01979,  69.13922,   2.89745,   2.47696,
     +    2.05478,   2.72898,   2.89765,
     +     .04123,    .02018,  72.57928,   3.04239,   2.62378,
     +    2.20403,   2.87478,   3.04261,
     +     .04193,    .02057,  76.11152,   3.19246,   2.77620,
     +    2.35962,   3.02572,   3.19271,
     +     .04263,    .02096,  79.56623,   3.34207,   2.92757,
     +    2.51326,   3.17617,   3.34235,
     +     .04329,    .02133,  82.91580,   3.48831,   3.07589,
     +    2.66438,   3.32319,   3.48862,
     +     .04392,    .02169,  86.06965,   3.62831,   3.21753,
     +    2.80818,   3.46391,   3.62864 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04456,    .02205,  89.27948,   3.77233,   3.36330,
     +    2.95625,   3.60866,   3.77268,
     +     .04519,    .02240,  92.47316,   3.91716,   3.51000,
     +    3.10546,   3.75420,   3.91754,
     +     .04579,    .02274,  95.49017,   4.05637,   3.65060,
     +    3.24787,   3.89408,   4.05678,
     +     .04636,    .02307,  98.42318,   4.19214,   3.78824,
     +    3.38802,   4.03048,   4.19257,
     +     .04695,    .02340, 101.31641,   4.32898,   3.92631,
     +    3.52769,   4.16795,   4.32944 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02932,    .01300,   1.05378,    .36594,    .00000,
     +     .00000,    .19615,    .36558,
     +     .03014,    .01346,   1.84862,    .38777,    .00000,
     +     .00000,    .21920,    .38743,
     +     .03136,    .01415,   3.20353,    .42554,    .00042,
     +     .00000,    .25872,    .42524,
     +     .03225,    .01465,   4.27808,    .45730,    .03187,
     +     .00000,    .29171,    .45703,
     +     .03319,    .01518,   5.49737,    .49439,    .08070,
     +     .00000,    .33005,    .49415,
     +     .03401,    .01565,   6.63041,    .52987,    .11771,
     +     .00000,    .36659,    .52966,
     +     .03479,    .01609,   7.78660,    .56655,    .15647,
     +     .00000,    .40426,    .56636,
     +     .03563,    .01657,   9.12441,    .60834,    .20257,
     +     .00000,    .44708,    .60818 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03636,    .01699,  10.31947,    .64723,    .24259,
     +     .00000,    .48685,    .64710,
     +     .03707,    .01739,  11.55371,    .68692,    .28500,
     +     .00000,    .52737,    .68681,
     +     .03764,    .01771,  12.55480,    .71987,    .31912,
     +     .00000,    .56097,    .71979,
     +     .03884,    .01840,  14.77625,    .79466,    .39738,
     +     .00023,    .63711,    .79463,
     +     .03988,    .01899,  16.74193,    .86376,    .46964,
     +     .06086,    .70733,    .86376,
     +     .04105,    .01966,  18.97762,    .94570,    .55508,
     +     .16759,    .79050,    .94576,
     +     .04227,    .02036,  21.43466,   1.03657,    .64949,
     +     .26686,    .88261,   1.03668,
     +     .04338,    .02100,  23.71557,   1.12275,    .73772,
     +     .35645,    .96988,   1.12290 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04451,    .02165,  26.10416,   1.21401,    .83151,
     +     .45410,   1.06222,   1.21422,
     +     .04545,    .02219,  28.15833,   1.29316,    .91331,
     +     .54043,   1.14225,   1.29341,
     +     .04659,    .02284,  30.68624,   1.39244,   1.01514,
     +     .64569,   1.24257,   1.39275,
     +     .04760,    .02343,  32.95407,   1.48319,   1.10780,
     +     .74081,   1.33421,   1.48354,
     +     .04853,    .02396,  35.09937,   1.56960,   1.19668,
     +     .83355,   1.42143,   1.57000,
     +     .04972,    .02465,  37.82643,   1.68194,   1.31132,
     +     .95120,   1.53477,   1.68240,
     +     .05083,    .02529,  40.42141,   1.79080,   1.42230,
     +    1.06506,   1.64455,   1.79131,
     +     .05188,    .02590,  42.90634,   1.89625,   1.53022,
     +    1.17661,   1.75085,   1.89682 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05294,    .02650,  45.37455,   2.00347,   1.63926,
     +    1.28806,   1.85890,   2.00409,
     +     .05397,    .02710,  47.81725,   2.11109,   1.74891,
     +    1.40055,   1.96732,   2.11177,
     +     .05495,    .02767,  50.14796,   2.21532,   1.85513,
     +    1.50956,   2.07229,   2.21606,
     +     .05588,    .02820,  52.32586,   2.31470,   1.95607,
     +    1.61264,   2.17235,   2.31548,
     +     .05681,    .02874,  54.54538,   2.41700,   2.06027,
     +    1.71952,   2.27534,   2.41784,
     +     .05773,    .02927,  56.69499,   2.51827,   2.16300,
     +    1.82426,   2.37727,   2.51915,
     +     .05861,    .02978,  58.76483,   2.61672,   2.26314,
     +    1.92678,   2.47634,   2.61766,
     +     .05944,    .03026,  60.69682,   2.71038,   2.35817,
     +    2.02369,   2.57057,   2.71136 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06028,    .03074,  62.64938,   2.80623,   2.45546,
     +    2.12298,   2.66699,   2.80725,
     +     .06111,    .03123,  64.57862,   2.90212,   2.55286,
     +    2.22252,   2.76344,   2.90319,
     +     .06191,    .03168,  66.38567,   2.99373,   2.64566,
     +    2.31692,   2.85558,   2.99485,
     +     .06266,    .03212,  68.13473,   3.08276,   2.73618,
     +    2.40954,   2.94511,   3.08392,
     +     .06343,    .03256,  69.84355,   3.17192,   2.82639,
     +    2.50120,   3.03477,   3.17313 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03511,    .01583,   1.10161,    .33189,    .00000,
     +     .00000,    .17862,    .33184,
     +     .03609,    .01640,   1.84259,    .35248,    .00000,
     +     .00000,    .20028,    .35247,
     +     .03756,    .01725,   3.09906,    .38766,    .00040,
     +     .00000,    .23699,    .38770,
     +     .03864,    .01788,   4.08063,    .41686,    .02918,
     +     .00000,    .26728,    .41696,
     +     .03977,    .01853,   5.18130,    .45067,    .07368,
     +     .00000,    .30219,    .45081,
     +     .04075,    .01911,   6.19327,    .48270,    .10703,
     +     .00000,    .33515,    .48288,
     +     .04170,    .01966,   7.21640,    .51555,    .14175,
     +     .00000,    .36887,    .51578,
     +     .04270,    .02024,   8.39022,    .55278,    .18279,
     +     .00000,    .40701,    .55306 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04358,    .02076,   9.42985,    .58715,    .21818,
     +     .00000,    .44215,    .58747,
     +     .04443,    .02125,  10.49632,    .62207,    .25551,
     +     .00000,    .47781,    .62243,
     +     .04511,    .02165,  11.35586,    .65090,    .28539,
     +     .00000,    .50722,    .65130,
     +     .04655,    .02249,  13.24729,    .71596,    .35354,
     +     .00021,    .57347,    .71643,
     +     .04779,    .02322,  14.90317,    .77563,    .41601,
     +     .05271,    .63413,    .77616,
     +     .04919,    .02404,  16.76731,    .84590,    .48938,
     +     .14483,    .70548,    .84650,
     +     .05064,    .02489,  18.79683,    .92325,    .56988,
     +     .22976,    .78393,    .92393,
     +     .05197,    .02567,  20.66291,    .99607,    .64456,
     +     .30586,    .85771,    .99682 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05331,    .02645,  22.60116,   1.07271,    .72348,
     +     .38835,    .93531,   1.07353,
     +     .05442,    .02711,  24.25622,   1.13883,    .79195,
     +     .46090,   1.00221,   1.13972,
     +     .05578,    .02790,  26.27732,   1.22128,    .87669,
     +     .54883,   1.08558,   1.22224,
     +     .05698,    .02861,  28.07649,   1.29620,    .95336,
     +     .62783,   1.16129,   1.29723,
     +     .05809,    .02926,  29.76853,   1.36722,   1.02658,
     +     .70454,   1.23304,   1.36831,
     +     .05949,    .03008,  31.90304,   1.45904,   1.12048,
     +     .80128,   1.32574,   1.46021,
     +     .06081,    .03086,  33.91892,   1.54750,   1.21087,
     +     .89439,   1.41503,   1.54875,
     +     .06205,    .03158,  35.83718,   1.63279,   1.29837,
     +     .98519,   1.50108,   1.63411 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06330,    .03231,  37.72853,   1.71905,   1.38630,
     +    1.07541,   1.58807,   1.72044,
     +     .06452,    .03303,  39.58887,   1.80523,   1.47432,
     +    1.16607,   1.67497,   1.80670,
     +     .06567,    .03370,  41.35348,   1.88834,   1.55922,
     +    1.25355,   1.75874,   1.88988,
     +     .06676,    .03434,  42.99184,   1.96721,   1.63952,
     +    1.33588,   1.83822,   1.96881,
     +     .06786,    .03499,  44.65360,   2.04811,   1.72214,
     +    1.42096,   1.91974,   2.04979,
     +     .06894,    .03562,  46.25261,   2.12784,   1.80322,
     +    1.50395,   2.00005,   2.12958,
     +     .06997,    .03622,  47.78556,   2.20509,   1.88200,
     +    1.58493,   2.07786,   2.20690,
     +     .07095,    .03679,  49.20809,   2.27829,   1.95645,
     +    1.66116,   2.15158,   2.28016 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07193,    .03737,  50.63930,   2.35296,   2.03244,
     +    1.73901,   2.22676,   2.35489,
     +     .07291,    .03794,  52.04699,   2.42741,   2.10827,
     +    1.81681,   2.30172,   2.42940,
     +     .07384,    .03848,  53.35797,   2.49828,   2.18023,
     +    1.89031,   2.37306,   2.50033,
     +     .07472,    .03900,  54.62349,   2.56699,   2.25029,
     +    1.96228,   2.44222,   2.56910,
     +     .07562,    .03952,  55.85164,   2.63553,   2.31981,
     +    2.03319,   2.51121,   2.63770 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03993,    .01828,   1.14442,    .31028,    .00000,
     +     .00000,    .16751,    .31054,
     +     .04106,    .01895,   1.84862,    .32999,    .00000,
     +     .00000,    .18820,    .33031,
     +     .04274,    .01994,   3.03681,    .36338,    .00038,
     +     .00000,    .22300,    .36378,
     +     .04397,    .02067,   3.95475,    .39085,    .02737,
     +     .00000,    .25147,    .39131,
     +     .04526,    .02143,   4.97502,    .42244,    .06895,
     +     .00000,    .28407,    .42297,
     +     .04638,    .02210,   5.90573,    .45215,    .09987,
     +     .00000,    .31464,    .45274,
     +     .04745,    .02273,   6.84025,    .48247,    .13191,
     +     .00000,    .34575,    .48311,
     +     .04860,    .02342,   7.90560,    .51668,    .16962,
     +     .00000,    .38081,    .51739 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04960,    .02401,   8.84324,    .54808,    .20196,
     +     .00000,    .41292,    .54884,
     +     .05056,    .02458,   9.80020,    .57988,    .23598,
     +     .00000,    .44539,    .58070,
     +     .05133,    .02504,  10.56786,    .60604,    .26310,
     +     .00000,    .47207,    .60689,
     +     .05297,    .02601,  12.24653,    .66478,    .32469,
     +     .00020,    .53192,    .66573,
     +     .05438,    .02685,  13.70438,    .71836,    .38085,
     +     .04747,    .58642,    .71939,
     +     .05596,    .02779,  15.33292,    .78115,    .44648,
     +     .13019,    .65020,    .78227,
     +     .05761,    .02877,  17.09350,    .84988,    .51810,
     +     .20598,    .71995,    .85110,
     +     .05911,    .02966,  18.70069,    .91422,    .58420,
     +     .27354,    .78519,    .91552 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06062,    .03056,  20.35981,    .98163,    .65373,
     +     .34645,    .85348,    .98303,
     +     .06188,    .03131,  21.76896,   1.03956,    .71383,
     +     .41034,    .91214,   1.04104,
     +     .06341,    .03222,  23.47976,   1.11148,    .78788,
     +     .48743,    .98491,   1.11305,
     +     .06477,    .03302,  24.99380,   1.17655,    .85458,
     +     .55639,   1.05072,   1.17820,
     +     .06602,    .03376,  26.41142,   1.23803,    .91809,
     +     .62314,   1.11287,   1.23976,
     +     .06760,    .03470,  28.18935,   1.31717,    .99919,
     +     .70697,   1.19284,   1.31900,
     +     .06908,    .03558,  29.85886,   1.39309,   1.07693,
     +     .78731,   1.26953,   1.39502,
     +     .07048,    .03641,  31.43998,   1.46604,   1.15193,
     +     .86540,   1.34319,   1.46806 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07187,    .03723,  32.99007,   1.53952,   1.22698,
     +     .94267,   1.41735,   1.54162,
     +     .07324,    .03804,  34.50764,   1.61268,   1.30186,
     +    1.02006,   1.49118,   1.61487,
     +     .07454,    .03881,  35.94061,   1.68300,   1.37386,
     +    1.09450,   1.56212,   1.68528,
     +     .07576,    .03953,  37.26442,   1.74951,   1.44172,
     +    1.16431,   1.62920,   1.75186,
     +     .07699,    .04025,  38.60229,   1.81755,   1.51135,
     +    1.23627,   1.69782,   1.81998,
     +     .07820,    .04096,  39.88308,   1.88437,   1.57946,
     +    1.30622,   1.76519,   1.88689,
     +     .07935,    .04164,  41.10688,   1.94896,   1.64548,
     +    1.37431,   1.83030,   1.95155,
     +     .08044,    .04228,  42.23734,   2.00998,   1.70768,
     +    1.43822,   1.89181,   2.01264 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08154,    .04293,  43.37069,   2.07207,   1.77100,
     +    1.50333,   1.95438,   2.07480,
     +     .08263,    .04357,  44.48148,   2.13382,   1.83406,
     +    1.56825,   2.01661,   2.13663,
     +     .08366,    .04418,  45.51118,   2.19244,   1.89371,
     +    1.62939,   2.07568,   2.19532,
     +     .08465,    .04476,  46.50328,   2.24918,   1.95170,
     +    1.68918,   2.13284,   2.25213,
     +     .08565,    .04534,  47.46075,   2.30560,   2.00906,
     +    1.74789,   2.18968,   2.30862 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04418,    .02061,   1.19255,    .29579,    .00000,
     +     .00000,    .15984,    .29605,
     +     .04544,    .02136,   1.87061,    .31484,    .00000,
     +     .00000,    .17979,    .31517,
     +     .04730,    .02248,   3.00450,    .34686,    .00037,
     +     .00000,    .21311,    .34730,
     +     .04866,    .02330,   3.87271,    .37300,    .02599,
     +     .00000,    .24016,    .37351,
     +     .05009,    .02416,   4.83075,    .40290,    .06536,
     +     .00000,    .27099,    .40349,
     +     .05133,    .02490,   5.69917,    .43086,    .09444,
     +     .00000,    .29974,    .43153,
     +     .05252,    .02562,   6.56621,    .45925,    .12446,
     +     .00000,    .32887,    .45999,
     +     .05379,    .02638,   7.54941,    .49120,    .15968,
     +     .00000,    .36159,    .49201 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05489,    .02704,   8.41028,    .52037,    .18974,
     +     .00000,    .39142,    .52125,
     +     .05596,    .02768,   9.28517,    .54984,    .22128,
     +     .00000,    .42151,    .55078,
     +     .05681,    .02819,   9.98430,    .57399,    .24635,
     +     .00000,    .44615,    .57499,
     +     .05862,    .02928,  11.50508,    .62805,    .30308,
     +     .00019,    .50123,    .62916,
     +     .06017,    .03021,  12.81686,    .67714,    .35458,
     +     .04359,    .55117,    .67834,
     +     .06191,    .03125,  14.27268,    .73442,    .41452,
     +     .11939,    .60937,    .73573,
     +     .06373,    .03234,  15.83749,    .79684,    .47965,
     +     .18847,    .67274,    .79827,
     +     .06538,    .03333,  17.25729,    .85501,    .53948,
     +     .24977,    .73173,    .85654 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06704,    .03432,  18.71542,    .91573,    .60220,
     +     .31570,    .79327,    .91737,
     +     .06843,    .03515,  19.94833,    .96773,    .65623,
     +     .37329,    .84595,    .96946,
     +     .07011,    .03615,  21.43791,   1.03206,    .72256,
     +     .44253,    .91107,   1.03390,
     +     .07159,    .03704,  22.74968,   1.09005,    .78210,
     +     .50424,    .96975,   1.09199,
     +     .07296,    .03785,  23.97338,   1.14470,    .83864,
     +     .56384,   1.02502,   1.14673,
     +     .07469,    .03888,  25.50032,   1.21479,    .91058,
     +     .63839,   1.09588,   1.21694,
     +     .07631,    .03985,  26.92715,   1.28180,    .97931,
     +     .70961,   1.16361,   1.28406,
     +     .07784,    .04076,  28.27306,   1.34600,   1.04542,
     +     .77865,   1.22846,   1.34836 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07936,    .04166,  29.58644,   1.41043,   1.11135,
     +     .84671,   1.29354,   1.41290,
     +     .08085,    .04255,  30.86698,   1.47442,   1.17696,
     +     .91471,   1.35815,   1.47698,
     +     .08227,    .04339,  32.07132,   1.53574,   1.23987,
     +     .97993,   1.42006,   1.53840,
     +     .08360,    .04417,  33.17906,   1.59358,   1.29899,
     +    1.04092,   1.47843,   1.59633,
     +     .08494,    .04497,  34.29516,   1.65262,   1.35953,
     +    1.10366,   1.53801,   1.65546,
     +     .08625,    .04574,  35.35898,   1.71043,   1.41857,
     +    1.16447,   1.59634,   1.71337,
     +     .08750,    .04648,  36.37265,   1.76620,   1.47569,
     +    1.22356,   1.65260,   1.76922,
     +     .08869,    .04718,  37.30511,   1.81875,   1.52937,
     +    1.27887,   1.70561,   1.82186 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .08988,    .04788,  38.23703,   1.87212,   1.58391,
     +    1.33511,   1.75943,   1.87531,
     +     .09106,    .04858,  39.14768,   1.92510,   1.63811,
     +    1.39107,   1.81286,   1.92837,
     +     .09218,    .04924,  39.98849,   1.97526,   1.68926,
     +    1.44365,   1.86344,   1.97861,
     +     .09326,    .04987,  40.79731,   2.02375,   1.73892,
     +    1.49502,   1.91233,   2.02717,
     +     .09433,    .05050,  41.57398,   2.07183,   1.78791,
     +    1.54531,   1.96081,   2.07534 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06077,    .03029,   1.37819,    .25669,    .00000,
     +     .00000,    .13935,    .25749,
     +     .06250,    .03137,   1.97207,    .27369,    .00000,
     +     .00000,    .15707,    .27461,
     +     .06509,    .03297,   2.93758,    .30157,    .00034,
     +     .00000,    .18600,    .30267,
     +     .06696,    .03414,   3.65611,    .32378,    .02197,
     +     .00000,    .20895,    .32501,
     +     .06893,    .03535,   4.43040,    .34874,    .05494,
     +     .00000,    .23466,    .35011,
     +     .07062,    .03640,   5.11799,    .37164,    .07877,
     +     .00000,    .25820,    .37313,
     +     .07225,    .03741,   5.79178,    .39456,    .10306,
     +     .00000,    .28172,    .39617,
     +     .07399,    .03848,   6.54247,    .42005,    .13123,
     +     .00000,    .30784,    .42178 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07549,    .03940,   7.18879,    .44298,    .15495,
     +     .00000,    .33130,    .44482,
     +     .07694,    .04030,   7.83633,    .46592,    .17960,
     +     .00000,    .35475,    .46786,
     +     .07809,    .04100,   8.34723,    .48453,    .19899,
     +     .00000,    .37376,    .48655,
     +     .08054,    .04250,   9.43895,    .52567,    .24237,
     +     .00016,    .41573,    .52787,
     +     .08264,    .04379,  10.35913,    .56248,    .28120,
     +     .03307,    .45324,    .56483,
     +     .08498,    .04521,  11.35772,    .60482,    .32576,
     +     .09013,    .49635,    .60735,
     +     .08742,    .04670,  12.41015,    .65028,    .37348,
     +     .14123,    .54260,    .65299,
     +     .08962,    .04803,  13.34556,    .69200,    .41667,
     +     .18594,    .58501,    .69487 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09184,    .04937,  14.28948,    .73501,    .46140,
     +     .23347,    .62870,    .73804,
     +     .09368,    .05049,  15.07551,    .77144,    .49952,
     +     .27456,    .66570,    .77461,
     +     .09590,    .05183,  16.00917,    .81595,    .54577,
     +     .32335,    .71088,    .81930,
     +     .09786,    .05300,  16.81729,    .85560,    .58678,
     +     .36634,    .75111,    .85909,
     +     .09966,    .05408,  17.56173,    .89263,    .62540,
     +     .40751,    .78866,    .89625,
     +     .10193,    .05544,  18.47445,    .93954,    .67394,
     +     .45839,    .83623,    .94334,
     +     .10406,    .05671,  19.31280,    .98387,    .71978,
     +     .50645,    .88117,    .98783,
     +     .10605,    .05790,  20.09261,   1.02592,    .76346,
     +     .55262,    .92379,   1.03003 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10803,    .05908,  20.84023,   1.06765,    .80653,
     +     .59760,    .96607,   1.07191,
     +     .10997,    .06023,  21.55887,   1.10868,    .84898,
     +     .64215,   1.00764,   1.11310,
     +     .11179,    .06131,  22.22542,   1.14766,    .88933,
     +     .68450,   1.04712,   1.15221,
     +     .11351,    .06232,  22.82876,   1.18405,    .92688,
     +     .72372,   1.08398,   1.18874,
     +     .11523,    .06334,  23.43008,   1.22092,    .96506,
     +     .76379,   1.12133,   1.22574,
     +     .11692,    .06433,  23.99361,   1.25668,   1.00193,
     +     .80224,   1.15753,   1.26163,
     +     .11852,    .06527,  24.52519,   1.29094,   1.03736,
     +     .83938,   1.19222,   1.29601,
     +     .12003,    .06616,  25.00662,   1.32294,   1.07038,
     +     .87384,   1.22462,   1.32813 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12155,    .06705,  25.48233,   1.35521,   1.10370,
     +     .90864,   1.25729,   1.36051,
     +     .12305,    .06792,  25.94188,   1.38702,   1.13658,
     +     .94306,   1.28950,   1.39244,
     +     .12447,    .06875,  26.35930,   1.41688,   1.16736,
     +     .97512,   1.31973,   1.42242,
     +     .12583,    .06954,  26.75877,   1.44562,   1.19712,
     +    1.00632,   1.34883,   1.45127,
     +     .12719,    .07033,  27.13444,   1.47386,   1.22620,
     +    1.03658,   1.37742,   1.47961 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .08461,    .04565,   1.65023,    .22766,    .00000,
     +     .00000,    .12393,    .22946,
     +     .08702,    .04717,   2.15485,    .24252,    .00000,
     +     .00000,    .13939,    .24452,
     +     .09059,    .04941,   2.94436,    .26628,    .00030,
     +     .00000,    .16403,    .26857,
     +     .09317,    .05102,   3.51339,    .28470,    .01825,
     +     .00000,    .18307,    .28721,
     +     .09586,    .05270,   4.11048,    .30500,    .04532,
     +     .00000,    .20401,    .30773,
     +     .09818,    .05414,   4.62913,    .32324,    .06443,
     +     .00000,    .22281,    .32617,
     +     .10040,    .05551,   5.12690,    .34120,    .08363,
     +     .00000,    .24128,    .34431,
     +     .10276,    .05696,   5.67045,    .36091,    .10561,
     +     .00000,    .26154,    .36422 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10479,    .05821,   6.12979,    .37834,    .12381,
     +     .00000,    .27943,    .38182,
     +     .10675,    .05941,   6.58246,    .39559,    .14254,
     +     .00000,    .29713,    .39924,
     +     .10829,    .06036,   6.93444,    .40942,    .15710,
     +     .00000,    .31130,    .41319,
     +     .11157,    .06236,   7.67076,    .43957,    .18925,
     +     .00014,    .34219,    .44362,
     +     .11438,    .06406,   8.27411,    .46609,    .21756,
     +     .02436,    .36933,    .47037,
     +     .11749,    .06594,   8.91092,    .49610,    .24954,
     +     .06605,    .40003,    .50065,
     +     .12071,    .06787,   9.56653,    .52777,    .28322,
     +     .10266,    .43240,    .53259,
     +     .12360,    .06961,  10.13493,    .55632,    .31318,
     +     .13415,    .46158,    .56139 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12650,    .07134,  10.69615,    .58533,    .34378,
     +     .16720,    .49120,    .59064,
     +     .12890,    .07276,  11.15478,    .60959,    .36955,
     +     .19545,    .51598,    .61511,
     +     .13179,    .07447,  11.68785,    .63881,    .40038,
     +     .22852,    .54582,    .64457,
     +     .13432,    .07597,  12.13928,    .66446,    .42734,
     +     .25727,    .57201,    .67044,
     +     .13664,    .07733,  12.54875,    .68817,    .45248,
     +     .28456,    .59621,    .69434,
     +     .13955,    .07904,  13.03908,    .71778,    .48363,
     +     .31781,    .62643,    .72420,
     +     .14226,    .08062,  13.47918,    .74537,    .51266,
     +     .34881,    .65459,    .75202,
     +     .14480,    .08209,  13.88115,    .77124,    .54003,
     +     .37829,    .68100,    .77811 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14730,    .08354,  14.25682,    .79655,    .56664,
     +     .40663,    .70684,    .80363,
     +     .14974,    .08495,  14.61107,    .82117,    .59260,
     +     .43440,    .73196,    .82845,
     +     .15204,    .08627,  14.93344,    .84429,    .61701,
     +     .46055,    .75557,    .85177,
     +     .15418,    .08750,  15.21814,    .86562,    .63946,
     +     .48448,    .77734,    .87328,
     +     .15633,    .08873,  15.49767,    .88704,    .66211,
     +     .50875,    .79922,    .89488,
     +     .15842,    .08991,  15.75271,    .90756,    .68371,
     +     .53177,    .82017,    .91557,
     +     .16040,    .09104,  15.98995,    .92705,    .70433,
     +     .55384,    .84008,    .93524,
     +     .16226,    .09209,  16.19935,    .94506,    .72333,
     +     .57412,    .85848,    .95340 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16412,    .09315,  16.40260,    .96307,    .74235,
     +     .59444,    .87688,    .97157,
     +     .16596,    .09418,  16.59534,    .98068,    .76098,
     +     .61438,    .89487,    .98932,
     +     .16769,    .09515,  16.76525,    .99702,    .77823,
     +     .63277,    .91157,   1.00581,
     +     .16934,    .09608,  16.92694,   1.01267,    .79484,
     +     .65060,    .92758,   1.02161,
     +     .17098,    .09699,  17.07285,   1.02785,    .81086,
     +     .66768,    .94310,   1.03692 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .10348,    .05852,   1.84257,    .21423,    .00000,
     +     .00000,    .11678,    .21713,
     +     .10640,    .06034,   2.28806,    .22773,    .00000,
     +     .00000,    .13086,    .23089,
     +     .11070,    .06301,   2.96814,    .24897,    .00028,
     +     .00000,    .15294,    .25251,
     +     .11379,    .06492,   3.44825,    .26516,    .01614,
     +     .00000,    .16973,    .26898,
     +     .11702,    .06691,   3.94344,    .28277,    .03992,
     +     .00000,    .18797,    .28688,
     +     .11979,    .06860,   4.36764,    .29839,    .05645,
     +     .00000,    .20414,    .30276,
     +     .12243,    .07020,   4.76931,    .31361,    .07290,
     +     .00000,    .21985,    .31822,
     +     .12523,    .07190,   5.20221,    .33016,    .09157,
     +     .00000,    .23695,    .33503 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12763,    .07335,   5.56365,    .34464,    .10687,
     +     .00000,    .25189,    .34973,
     +     .12995,    .07475,   5.91598,    .35888,    .12252,
     +     .00000,    .26656,    .36417,
     +     .13177,    .07584,   6.18734,    .37019,    .13459,
     +     .00000,    .27822,    .37565,
     +     .13563,    .07814,   6.74661,    .39465,    .16102,
     +     .00012,    .30341,    .40045,
     +     .13891,    .08010,   7.19556,    .41591,    .18403,
     +     .02000,    .32530,    .42202,
     +     .14254,    .08224,   7.65967,    .43973,    .20977,
     +     .05402,    .34980,    .44616,
     +     .14628,    .08444,   8.13003,    .46456,    .23658,
     +     .08353,    .37534,    .47133,
     +     .14963,    .08640,   8.53020,    .48669,    .26016,
     +     .10864,    .39810,    .49376 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15298,    .08834,   8.91928,    .50894,    .28403,
     +     .13477,    .42099,    .51631,
     +     .15574,    .08994,   9.23300,    .52740,    .30397,
     +     .15694,    .43997,    .53501,
     +     .15905,    .09185,   9.59177,    .54942,    .32760,
     +     .18266,    .46261,    .55733,
     +     .16194,    .09351,   9.89010,    .56855,    .34808,
     +     .20483,    .48229,    .57672,
     +     .16458,    .09502,  10.15756,    .58611,    .36705,
     +     .22574,    .50036,    .59452,
     +     .16789,    .09689,  10.47187,    .60783,    .39034,
     +     .25098,    .52270,    .61653,
     +     .17096,    .09863,  10.74875,    .62786,    .41185,
     +     .27433,    .54332,    .63683,
     +     .17382,    .10024,  10.99798,    .64650,    .43198,
     +     .29638,    .56251,    .65573 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17664,    .10181,  11.22562,    .66455,    .45138,
     +     .31739,    .58111,    .67403,
     +     .17937,    .10334,  11.43673,    .68197,    .47016,
     +     .33784,    .59905,    .69168,
     +     .18193,    .10476,  11.62556,    .69820,    .48770,
     +     .35696,    .61578,    .70814,
     +     .18431,    .10608,  11.78840,    .71304,    .50370,
     +     .37434,    .63109,    .72319,
     +     .18670,    .10739,  11.94616,    .72786,    .51975,
     +     .39187,    .64638,    .73822,
     +     .18901,    .10866,  12.08597,    .74192,    .53493,
     +     .40837,    .66088,    .75247,
     +     .19120,    .10985,  12.21430,    .75520,    .54935,
     +     .42411,    .67460,    .76594,
     +     .19324,    .11096,  12.32433,    .76736,    .56254,
     +     .43848,    .68717,    .77829 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19529,    .11207,  12.42908,    .77946,    .57567,
     +     .45280,    .69967,    .79055,
     +     .19729,    .11316,  12.52641,    .79120,    .58845,
     +     .46679,    .71182,    .80247,
     +     .19918,    .11417,  12.60909,    .80201,    .60021,
     +     .47959,    .72301,    .81345,
     +     .20098,    .11514,  12.68750,    .81234,    .61149,
     +     .49198,    .73370,    .82393,
     +     .20276,    .11609,  12.75421,    .82223,    .62228,
     +     .50374,    .74395,    .83398 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11994,    .07000,   1.98764,    .20607,    .00000,
     +     .00000,    .11243,    .21014,
     +     .12326,    .07204,   2.38739,    .21852,    .00000,
     +     .00000,    .12546,    .22290,
     +     .12816,    .07502,   2.98630,    .23785,    .00026,
     +     .00000,    .14565,    .24270,
     +     .13166,    .07715,   3.40225,    .25240,    .01466,
     +     .00000,    .16082,    .25759,
     +     .13531,    .07935,   3.82555,    .26809,    .03612,
     +     .00000,    .17714,    .27362,
     +     .13843,    .08122,   4.18436,    .28187,    .05087,
     +     .00000,    .19147,    .28769,
     +     .14140,    .08299,   4.52064,    .29517,    .06545,
     +     .00000,    .20529,    .30128,
     +     .14454,    .08485,   4.87943,    .30956,    .08189,
     +     .00000,    .22023,    .31597 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14724,    .08644,   5.17614,    .32203,    .09526,
     +     .00000,    .23318,    .32870,
     +     .14983,    .08797,   5.46293,    .33423,    .10886,
     +     .00000,    .24583,    .34114,
     +     .15186,    .08916,   5.68212,    .34387,    .11929,
     +     .00000,    .25582,    .35097,
     +     .15616,    .09166,   6.12838,    .36455,    .14198,
     +     .00011,    .27727,    .37206,
     +     .15980,    .09377,   6.48037,    .38238,    .16158,
     +     .01718,    .29574,    .39024,
     +     .16381,    .09609,   6.83772,    .40218,    .18333,
     +     .04628,    .31626,    .41041,
     +     .16794,    .09845,   7.19511,    .42264,    .20579,
     +     .07128,    .33746,    .43126,
     +     .17162,    .10054,   7.49433,    .44070,    .22538,
     +     .09238,    .35617,    .44966 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17529,    .10261,   7.78133,    .45872,    .24506,
     +     .11421,    .37485,    .46801,
     +     .17831,    .10431,   8.01003,    .47357,    .26141,
     +     .13261,    .39024,    .48314,
     +     .18192,    .10632,   8.26767,    .49114,    .28064,
     +     .15382,    .40847,    .50104,
     +     .18506,    .10807,   8.47843,    .50628,    .29719,
     +     .17197,    .42419,    .51647,
     +     .18792,    .10965,   8.66543,    .52010,    .31244,
     +     .18902,    .43854,    .53056,
     +     .19149,    .11161,   8.88103,    .53705,    .33103,
     +     .20947,    .45615,    .54783,
     +     .19480,    .11342,   9.06741,    .55257,    .34808,
     +     .22825,    .47228,    .56365,
     +     .19787,    .11509,   9.23280,    .56691,    .36395,
     +     .24589,    .48720,    .57827 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20088,    .11671,   9.38021,    .58068,    .37912,
     +     .26259,    .50155,    .59231,
     +     .20380,    .11828,   9.51445,    .59388,    .39373,
     +     .27877,    .51530,    .60577,
     +     .20652,    .11974,   9.63226,    .60610,    .40730,
     +     .29382,    .52805,    .61823,
     +     .20905,    .12109,   9.73099,    .61719,    .41960,
     +     .30741,    .53962,    .62955,
     +     .21158,    .12242,   9.82518,    .62821,    .43188,
     +     .32107,    .55114,    .64079,
     +     .21402,    .12371,   9.90558,    .63857,    .44342,
     +     .33384,    .56197,    .65136,
     +     .21632,    .12492,   9.97818,    .64831,    .45433,
     +     .34599,    .57217,    .66131,
     +     .21847,    .12604,  10.03789,    .65717,    .46425,
     +     .35701,    .58146,    .67035 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22061,    .12715,  10.09317,    .66593,    .47409,
     +     .36796,    .59065,    .67929,
     +     .22271,    .12824,  10.14295,    .67439,    .48362,
     +     .37861,    .59953,    .68793,
     +     .22468,    .12925,  10.18257,    .68211,    .49233,
     +     .38830,    .60765,    .69582,
     +     .22655,    .13021,  10.22004,    .68947,    .50067,
     +     .39766,    .61540,    .70335,
     +     .22840,    .13115,  10.24835,    .69645,    .50859,
     +     .40649,    .62276,    .71048 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .13488,    .08049,   2.09845,    .20026,    .00000,
     +     .00000,    .10937,    .20555,
     +     .13856,    .08270,   2.46010,    .21182,    .00000,
     +     .00000,    .12153,    .21747,
     +     .14395,    .08592,   2.99390,    .22958,    .00025,
     +     .00000,    .14019,    .23577,
     +     .14780,    .08821,   3.35959,    .24283,    .01349,
     +     .00000,    .15407,    .24940,
     +     .15179,    .09057,   3.72755,    .25699,    .03317,
     +     .00000,    .16890,    .26396,
     +     .15521,    .09257,   4.03681,    .26934,    .04657,
     +     .00000,    .18182,    .27664,
     +     .15844,    .09445,   4.32414,    .28118,    .05973,
     +     .00000,    .19420,    .28880,
     +     .16186,    .09643,   4.62816,    .29392,    .07450,
     +     .00000,    .20752,    .30187 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16479,    .09812,   4.87751,    .30488,    .08643,
     +     .00000,    .21897,    .31312,
     +     .16760,    .09973,   5.11680,    .31555,    .09852,
     +     .00000,    .23012,    .32406,
     +     .16980,    .10099,   5.29848,    .32394,    .10775,
     +     .00000,    .23889,    .33266,
     +     .17444,    .10363,   5.66441,    .34185,    .12772,
     +     .00011,    .25759,    .35102,
     +     .17837,    .10584,   5.94842,    .35717,    .14485,
     +     .01515,    .27359,    .36672,
     +     .18267,    .10826,   6.23178,    .37407,    .16375,
     +     .04070,    .29123,    .38403,
     +     .18709,    .11072,   6.51178,    .39140,    .18313,
     +     .06249,    .30934,    .40178,
     +     .19102,    .11288,   6.74262,    .40656,    .19990,
     +     .08076,    .32520,    .41732 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19493,    .11503,   6.96126,    .42159,    .21666,
     +     .09956,    .34093,    .43272,
     +     .19814,    .11678,   7.13354,    .43391,    .23051,
     +     .11533,    .35382,    .44533,
     +     .20196,    .11885,   7.32456,    .44839,    .24671,
     +     .13342,    .36898,    .46016,
     +     .20528,    .12063,   7.47838,    .46078,    .26057,
     +     .14881,    .38198,    .47286,
     +     .20830,    .12225,   7.61350,    .47203,    .27329,
     +     .16322,    .39379,    .48439,
     +     .21205,    .12424,   7.76596,    .48572,    .28869,
     +     .18039,    .40818,    .49843,
     +     .21551,    .12606,   7.89509,    .49817,    .30274,
     +     .19608,    .42128,    .51119,
     +     .21872,    .12775,   8.00787,    .50961,    .31575,
     +     .21077,    .43333,    .52293 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22186,    .12938,   8.10539,    .52052,    .32812,
     +     .22458,    .44484,    .53411,
     +     .22489,    .13095,   8.19226,    .53090,    .33997,
     +     .23791,    .45581,    .54477,
     +     .22772,    .13241,   8.26664,    .54047,    .35092,
     +     .25026,    .46593,    .55458,
     +     .23033,    .13374,   8.32652,    .54908,    .36079,
     +     .26135,    .47505,    .56342,
     +     .23294,    .13507,   8.38248,    .55759,    .37061,
     +     .27246,    .48408,    .57216,
     +     .23545,    .13634,   8.42757,    .56554,    .37978,
     +     .28281,    .49253,    .58033,
     +     .23782,    .13753,   8.46729,    .57298,    .38843,
     +     .29261,    .50046,    .58798,
     +     .24001,    .13863,   8.49754,    .57970,    .39625,
     +     .30147,    .50762,    .59489 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24220,    .13972,   8.52404,    .58630,    .40396,
     +     .31023,    .51467,    .60167,
     +     .24434,    .14078,   8.54633,    .59264,    .41142,
     +     .31873,    .52146,    .60820,
     +     .24634,    .14176,   8.56129,    .59838,    .41818,
     +     .32643,    .52762,    .61411,
     +     .24824,    .14270,   8.57542,    .60384,    .42466,
     +     .33385,    .53349,    .61973,
     +     .25011,    .14360,   8.58218,    .60897,    .43076,
     +     .34081,    .53901,    .62501 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .16191,    .09940,   2.24869,    .19197,    .00000,
     +     .00000,    .10511,    .19981,
     +     .16614,    .10184,   2.54873,    .20204,    .00000,
     +     .00000,    .11583,    .21032,
     +     .17232,    .10538,   2.98135,    .21728,    .00023,
     +     .00000,    .13207,    .22621,
     +     .17672,    .10787,   3.27104,    .22847,    .01172,
     +     .00000,    .14396,    .23785,
     +     .18126,    .11042,   3.55702,    .24029,    .02868,
     +     .00000,    .15652,    .25013,
     +     .18511,    .11258,   3.79391,    .25046,    .04007,
     +     .00000,    .16732,    .26069,
     +     .18875,    .11460,   4.01083,    .26012,    .05116,
     +     .00000,    .17758,    .27072,
     +     .19260,    .11672,   4.23723,    .27040,    .06350,
     +     .00000,    .18850,    .28139 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19586,    .11851,   4.42027,    .27917,    .07337,
     +     .00000,    .19781,    .29048,
     +     .19900,    .12022,   4.59385,    .28763,    .08330,
     +     .00000,    .20681,    .29926,
     +     .20145,    .12155,   4.72408,    .29423,    .09083,
     +     .00000,    .21382,    .30609,
     +     .20659,    .12432,   4.98109,    .30818,    .10698,
     +     .00010,    .22865,    .32055,
     +     .21091,    .12663,   5.17429,    .31997,    .12070,
     +     .01231,    .24119,    .33277,
     +     .21563,    .12913,   5.36038,    .33283,    .13567,
     +     .03294,    .25487,    .34608,
     +     .22046,    .13166,   5.54018,    .34584,    .15086,
     +     .05034,    .26875,    .35956,
     +     .22471,    .13387,   5.68381,    .35706,    .16385,
     +     .06477,    .28074,    .37118 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .22893,    .13604,   5.81632,    .36807,    .17672,
     +     .07950,    .29251,    .38259,
     +     .23238,    .13781,   5.91829,    .37699,    .18727,
     +     .09177,    .30207,    .39184,
     +     .23646,    .13988,   6.02747,    .38735,    .19948,
     +     .10571,    .31320,    .40257,
     +     .23999,    .14165,   6.11172,    .39611,    .20982,
     +     .11748,    .32262,    .41165,
     +     .24318,    .14325,   6.18395,    .40400,    .21926,
     +     .12842,    .33112,    .41984,
     +     .24714,    .14520,   6.26128,    .41347,    .23056,
     +     .14135,    .34136,    .42967,
     +     .25077,    .14698,   6.32305,    .42196,    .24077,
     +     .15307,    .35057,    .43848,
     +     .25411,    .14861,   6.37458,    .42969,    .25016,
     +     .16396,    .35896,    .44650 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .25736,    .15018,   6.41482,    .43695,    .25899,
     +     .17411,    .36688,    .45405,
     +     .26049,    .15168,   6.44785,    .44378,    .26738,
     +     .18384,    .37436,    .46115,
     +     .26339,    .15306,   6.47340,    .45000,    .27507,
     +     .19279,    .38118,    .46762,
     +     .26606,    .15431,   6.49018,    .45551,    .28194,
     +     .20076,    .38725,    .47336,
     +     .26871,    .15555,   6.50406,    .46092,    .28873,
     +     .20871,    .39322,    .47899,
     +     .27124,    .15673,   6.51073,    .46588,    .29501,
     +     .21605,    .39874,    .48417,
     +     .27363,    .15782,   6.51493,    .47050,    .30090,
     +     .22297,    .40387,    .48898,
     +     .27583,    .15883,   6.51396,    .47459,    .30616,
     +     .22917,    .40845,    .49326 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .27802,    .15982,   6.51033,    .47858,    .31133,
     +     .23527,    .41293,    .49742,
     +     .28015,    .16077,   6.50415,    .48236,    .31628,
     +     .24116,    .41720,    .50137,
     +     .28213,    .16166,   6.49397,    .48572,    .32073,
     +     .24645,    .42101,    .50489,
     +     .28400,    .16249,   6.48439,    .48891,    .32498,
     +     .25154,    .42463,    .50822,
     +     .28583,    .16329,   6.46969,    .49182,    .32893,
     +     .25625,    .42797,    .51127 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .19807,    .12414,   2.35770,    .18306,    .00000,
     +     .00000,    .10072,    .19489,
     +     .20290,    .12675,   2.58841,    .19134,    .00000,
     +     .00000,    .10978,    .20368,
     +     .20991,    .13049,   2.91223,    .20367,    .00020,
     +     .00000,    .12325,    .21676,
     +     .21486,    .13310,   3.12268,    .21257,    .00981,
     +     .00000,    .13296,    .22617,
     +     .21995,    .13576,   3.32527,    .22183,    .02388,
     +     .00000,    .14308,    .23596,
     +     .22425,    .13799,   3.49017,    .22969,    .03319,
     +     .00000,    .15166,    .24425,
     +     .22829,    .14007,   3.63842,    .23706,    .04216,
     +     .00000,    .15972,    .25203,
     +     .23254,    .14224,   3.79054,    .24482,    .05206,
     +     .00000,    .16822,    .26022 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23612,    .14406,   3.91094,    .25135,    .05988,
     +     .00000,    .17538,    .26710,
     +     .23955,    .14578,   4.02343,    .25760,    .06770,
     +     .00000,    .18223,    .27368,
     +     .24222,    .14711,   4.10643,    .26242,    .07358,
     +     .00000,    .18753,    .27877,
     +     .24779,    .14987,   4.26515,    .27250,    .08608,
     +     .00008,    .19861,    .28939,
     +     .25245,    .15214,   4.37823,    .28089,    .09656,
     +     .00959,    .20786,    .29823,
     +     .25749,    .15459,   4.48042,    .28992,    .10787,
     +     .02558,    .21783,    .30772,
     +     .26259,    .15704,   4.57549,    .29890,    .11921,
     +     .03889,    .22778,    .31718,
     +     .26708,    .15915,   4.64671,    .30650,    .12878,
     +     .04979,    .23624,    .32518 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27148,    .16120,   4.70892,    .31383,    .13816,
     +     .06082,    .24444,    .33291,
     +     .27507,    .16286,   4.75439,    .31969,    .14577,
     +     .06994,    .25102,    .33910,
     +     .27927,    .16478,   4.79887,    .32640,    .15449,
     +     .08019,    .25857,    .34617,
     +     .28287,    .16641,   4.82947,    .33196,    .16179,
     +     .08876,    .26488,    .35204,
     +     .28612,    .16787,   4.85393,    .33692,    .16840,
     +     .09668,    .27052,    .35727,
     +     .29011,    .16963,   4.87484,    .34274,    .17623,
     +     .10594,    .27720,    .36342,
     +     .29374,    .17121,   4.88694,    .34787,    .18321,
     +     .11425,    .28311,    .36884,
     +     .29707,    .17264,   4.89405,    .35246,    .18957,
     +     .12191,    .28843,    .37370 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30028,    .17400,   4.89382,    .35665,    .19547,
     +     .12898,    .29335,    .37815,
     +     .30333,    .17528,   4.88946,    .36053,    .20102,
     +     .13570,    .29794,    .38227,
     +     .30615,    .17645,   4.88167,    .36400,    .20607,
     +     .14184,    .30207,    .38596,
     +     .30872,    .17750,   4.86969,    .36700,    .21051,
     +     .14725,    .30568,    .38914,
     +     .31126,    .17853,   4.85593,    .36990,    .21488,
     +     .15262,    .30919,    .39222,
     +     .31366,    .17948,   4.83805,    .37247,    .21886,
     +     .15751,    .31235,    .39497,
     +     .31592,    .18037,   4.81991,    .37482,    .22256,
     +     .16211,    .31527,    .39749,
     +     .31798,    .18117,   4.79967,    .37684,    .22583,
     +     .16619,    .31782,    .39965 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32002,    .18195,   4.77773,    .37877,    .22901,
     +     .17018,    .32027,    .40171,
     +     .32198,    .18269,   4.75469,    .38055,    .23204,
     +     .17400,    .32257,    .40363,
     +     .32379,    .18336,   4.73022,    .38206,    .23471,
     +     .17739,    .32458,    .40526,
     +     .32551,    .18400,   4.70728,    .38350,    .23726,
     +     .18065,    .32647,    .40680,
     +     .32715,    .18459,   4.68104,    .38471,    .23957,
     +     .18364,    .32815,    .40812 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25158,    .15884,   2.36595,    .17123,    .00000,
     +     .00000,    .09532,    .18986,
     +     .25698,    .16143,   2.51748,    .17725,    .00000,
     +     .00000,    .10227,    .19643,
     +     .26476,    .16511,   2.72244,    .18603,    .00017,
     +     .00000,    .11242,    .20598,
     +     .27019,    .16764,   2.84946,    .19223,    .00761,
     +     .00000,    .11959,    .21271,
     +     .27573,    .17018,   2.96679,    .19857,    .01844,
     +     .00000,    .12694,    .21958,
     +     .28037,    .17228,   3.05961,    .20384,    .02548,
     +     .00000,    .13308,    .22529,
     +     .28470,    .17422,   3.14055,    .20871,    .03218,
     +     .00000,    .13876,    .23055,
     +     .28921,    .17623,   3.22143,    .21377,    .03950,
     +     .00000,    .14467,    .23602 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29300,    .17789,   3.28301,    .21794,    .04521,
     +     .00000,    .14958,    .24052,
     +     .29659,    .17945,   3.33899,    .22188,    .05087,
     +     .00000,    .15423,    .24478,
     +     .29936,    .18064,   3.37878,    .22488,    .05508,
     +     .00000,    .15778,    .24802,
     +     .30511,    .18307,   3.44981,    .23105,    .06395,
     +     .00007,    .16511,    .25468,
     +     .30986,    .18505,   3.49364,    .23608,    .07129,
     +     .00690,    .17112,    .26009,
     +     .31494,    .18713,   3.52536,    .24136,    .07909,
     +     .01830,    .17747,    .26578,
     +     .32003,    .18917,   3.55092,    .24648,    .08680,
     +     .02765,    .18369,    .27130,
     +     .32442,    .19090,   3.56434,    .25067,    .09320,
     +     .03520,    .18886,    .27582 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32871,    .19254,   3.57177,    .25461,    .09939,
     +     .04277,    .19377,    .28007,
     +     .33216,    .19383,   3.57418,    .25769,    .10436,
     +     .04896,    .19766,    .28340,
     +     .33614,    .19531,   3.57079,    .26110,    .10996,
     +     .05584,    .20201,    .28708,
     +     .33951,    .19653,   3.56252,    .26382,    .11459,
     +     .06152,    .20556,    .29002,
     +     .34253,    .19760,   3.55296,    .26620,    .11874,
     +     .06674,    .20868,    .29258,
     +     .34617,    .19885,   3.53506,    .26887,    .12357,
     +     .07275,    .21228,    .29547,
     +     .34943,    .19994,   3.51417,    .27110,    .12781,
     +     .07809,    .21538,    .29789,
     +     .35240,    .20091,   3.49252,    .27303,    .13164,
     +     .08297,    .21811,    .29999 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35520,    .20179,   3.46688,    .27468,    .13512,
     +     .08741,    .22054,    .30178,
     +     .35784,    .20260,   3.43981,    .27614,    .13836,
     +     .09159,    .22275,    .30337,
     +     .36024,    .20331,   3.41247,    .27736,    .14125,
     +     .09536,    .22469,    .30471,
     +     .36238,    .20392,   3.38437,    .27833,    .14376,
     +     .09865,    .22631,    .30576,
     +     .36448,    .20451,   3.35556,    .27922,    .14619,
     +     .10189,    .22785,    .30674,
     +     .36643,    .20502,   3.32511,    .27991,    .14836,
     +     .10480,    .22917,    .30750,
     +     .36824,    .20548,   3.29590,    .28050,    .15037,
     +     .10752,    .23035,    .30815,
     +     .36985,    .20587,   3.26680,    .28092,    .15210,
     +     .10990,    .23132,    .30862 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37143,    .20624,   3.23691,    .28126,    .15375,
     +     .11220,    .23222,    .30901,
     +     .37293,    .20658,   3.20695,    .28153,    .15531,
     +     .11439,    .23303,    .30931,
     +     .37429,    .20685,   3.17726,    .28166,    .15665,
     +     .11631,    .23367,    .30947,
     +     .37557,    .20711,   3.14954,    .28178,    .15792,
     +     .11814,    .23427,    .30962,
     +     .37676,    .20732,   3.12003,    .28175,    .15903,
     +     .11979,    .23472,    .30961 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29968,    .18771,   2.26408,    .16048,    .00000,
     +     .00000,    .09070,    .18572,
     +     .30529,    .19007,   2.36389,    .16481,    .00000,
     +     .00000,    .09608,    .19055,
     +     .31331,    .19337,   2.49412,    .17103,    .00015,
     +     .00000,    .10384,    .19745,
     +     .31884,    .19560,   2.57046,    .17535,    .00610,
     +     .00000,    .10924,    .20222,
     +     .32443,    .19783,   2.63748,    .17970,    .01471,
     +     .00000,    .11471,    .20702,
     +     .32908,    .19964,   2.68871,    .18326,    .02025,
     +     .00000,    .11922,    .21094,
     +     .33337,    .20128,   2.73159,    .18650,    .02548,
     +     .00000,    .12334,    .21449,
     +     .33782,    .20296,   2.77303,    .18981,    .03114,
     +     .00000,    .12759,    .21813 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34152,    .20432,   2.80259,    .19249,    .03553,
     +     .00000,    .13107,    .22107,
     +     .34502,    .20558,   2.82846,    .19500,    .03985,
     +     .00000,    .13434,    .22381,
     +     .34768,    .20654,   2.84571,    .19688,    .04304,
     +     .00000,    .13682,    .22587,
     +     .35316,    .20845,   2.87193,    .20068,    .04972,
     +     .00006,    .14186,    .23001,
     +     .35764,    .20996,   2.88157,    .20371,    .05518,
     +     .00525,    .14594,    .23331,
     +     .36238,    .21152,   2.87986,    .20680,    .06094,
     +     .01388,    .15018,    .23666,
     +     .36706,    .21299,   2.87333,    .20971,    .06655,
     +     .02089,    .15425,    .23981,
     +     .37103,    .21419,   2.86115,    .21199,    .07116,
     +     .02649,    .15756,    .24226 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37484,    .21529,   2.84503,    .21404,    .07558,
     +     .03206,    .16064,    .24449,
     +     .37788,    .21613,   2.82942,    .21560,    .07909,
     +     .03659,    .16302,    .24618,
     +     .38133,    .21705,   2.80659,    .21723,    .08302,
     +     .04157,    .16564,    .24792,
     +     .38421,    .21776,   2.78334,    .21844,    .08621,
     +     .04566,    .16770,    .24922,
     +     .38676,    .21837,   2.76106,    .21946,    .08906,
     +     .04938,    .16949,    .25031,
     +     .38976,    .21903,   2.72935,    .22049,    .09233,
     +     .05365,    .17148,    .25141,
     +     .39239,    .21956,   2.69733,    .22126,    .09517,
     +     .05739,    .17313,    .25221,
     +     .39475,    .22001,   2.66643,    .22186,    .09770,
     +     .06078,    .17455,    .25283 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39692,    .22035,   2.63337,    .22226,    .09996,
     +     .06384,    .17574,    .25323,
     +     .39892,    .22064,   2.60013,    .22253,    .10204,
     +     .06670,    .17677,    .25349,
     +     .40071,    .22086,   2.56795,    .22268,    .10389,
     +     .06926,    .17763,    .25363,
     +     .40226,    .22100,   2.53648,    .22268,    .10545,
     +     .07147,    .17829,    .25360,
     +     .40376,    .22110,   2.50485,    .22263,    .10696,
     +     .07363,    .17888,    .25351,
     +     .40510,    .22115,   2.47265,    .22244,    .10827,
     +     .07555,    .17933,    .25328,
     +     .40632,    .22117,   2.44218,    .22222,    .10947,
     +     .07734,    .17970,    .25302,
     +     .40737,    .22115,   2.41267,    .22192,    .11049,
     +     .07888,    .17994,    .25266 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40837,    .22109,   2.38283,    .22156,    .11145,
     +     .08036,    .18013,    .25224,
     +     .40930,    .22102,   2.35334,    .22116,    .11233,
     +     .08175,    .18026,    .25177,
     +     .41009,    .22090,   2.32473,    .22069,    .11307,
     +     .08296,    .18029,    .25123,
     +     .41084,    .22079,   2.29808,    .22025,    .11377,
     +     .08412,    .18032,    .25072,
     +     .41147,    .22062,   2.27038,    .21970,    .11435,
     +     .08513,    .18024,    .25009 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38456,    .23304,   1.94393,    .13999,    .00000,
     +     .00000,    .08207,    .17667,
     +     .38983,    .23461,   1.98584,    .14207,    .00000,
     +     .00000,    .08531,    .17896,
     +     .39719,    .23669,   2.03554,    .14499,    .00012,
     +     .00000,    .08988,    .18213,
     +     .40216,    .23802,   2.05948,    .14694,    .00414,
     +     .00000,    .09299,    .18422,
     +     .40709,    .23927,   2.07615,    .14885,    .00994,
     +     .00000,    .09608,    .18625,
     +     .41109,    .24023,   2.08681,    .15035,    .01362,
     +     .00000,    .09857,    .18781,
     +     .41471,    .24104,   2.09340,    .15164,    .01706,
     +     .00000,    .10080,    .18915,
     +     .41841,    .24183,   2.09803,    .15293,    .02075,
     +     .00000,    .10306,    .19046 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42140,    .24241,   2.09846,    .15390,    .02357,
     +     .00000,    .10486,    .19144,
     +     .42419,    .24292,   2.09741,    .15479,    .02634,
     +     .00000,    .10653,    .19231,
     +     .42627,    .24327,   2.09483,    .15542,    .02836,
     +     .00000,    .10776,    .19292,
     +     .43045,    .24390,   2.08323,    .15661,    .03253,
     +     .00005,    .11022,    .19404,
     +     .43373,    .24430,   2.06573,    .15748,    .03591,
     +     .00335,    .11213,    .19482,
     +     .43708,    .24460,   2.03919,    .15826,    .03941,
     +     .00881,    .11405,    .19548,
     +     .44025,    .24476,   2.00992,    .15887,    .04278,
     +     .01319,    .11581,    .19592,
     +     .44278,    .24478,   1.98062,    .15919,    .04549,
     +     .01663,    .11713,    .19606 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44510,    .24469,   1.94971,    .15937,    .04805,
     +     .02002,    .11830,    .19604,
     +     .44687,    .24454,   1.92343,    .15943,    .05005,
     +     .02275,    .11916,    .19593,
     +     .44876,    .24425,   1.89013,    .15934,    .05226,
     +     .02572,    .12002,    .19560,
     +     .45021,    .24391,   1.85958,    .15913,    .05402,
     +     .02812,    .12062,    .19516,
     +     .45143,    .24356,   1.83156,    .15888,    .05557,
     +     .03029,    .12110,    .19470,
     +     .45273,    .24300,   1.79486,    .15841,    .05731,
     +     .03274,    .12153,    .19396,
     +     .45373,    .24239,   1.75990,    .15787,    .05879,
     +     .03486,    .12180,    .19312,
     +     .45455,    .24176,   1.72729,    .15730,    .06009,
     +     .03676,    .12199,    .19227 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45514,    .24106,   1.69406,    .15661,    .06121,
     +     .03844,    .12202,    .19130,
     +     .45560,    .24032,   1.66165,    .15588,    .06222,
     +     .04000,    .12198,    .19029,
     +     .45592,    .23958,   1.63111,    .15512,    .06309,
     +     .04137,    .12188,    .18927,
     +     .45607,    .23883,   1.60211,    .15435,    .06380,
     +     .04254,    .12169,    .18821,
     +     .45615,    .23806,   1.57338,    .15355,    .06447,
     +     .04367,    .12147,    .18713,
     +     .45608,    .23724,   1.54493,    .15269,    .06503,
     +     .04465,    .12117,    .18599,
     +     .45597,    .23644,   1.51833,    .15186,    .06554,
     +     .04555,    .12086,    .18490,
     +     .45576,    .23564,   1.49313,    .15102,    .06593,
     +     .04632,    .12051,    .18381 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45549,    .23481,   1.46798,    .15015,    .06629,
     +     .04704,    .12012,    .18269,
     +     .45515,    .23397,   1.44342,    .14927,    .06661,
     +     .04772,    .11971,    .18155,
     +     .45473,    .23314,   1.41999,    .14839,    .06685,
     +     .04828,    .11927,    .18041,
     +     .45434,    .23236,   1.39826,    .14757,    .06709,
     +     .04882,    .11886,    .17934,
     +     .45381,    .23151,   1.37610,    .14668,    .06724,
     +     .04928,    .11837,    .17821 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45726,    .26601,   1.61094,    .12083,    .00000,
     +     .00000,    .07375,    .16563,
     +     .46147,    .26655,   1.62718,    .12163,    .00000,
     +     .00000,    .07566,    .16623,
     +     .46720,    .26712,   1.64273,    .12269,    .00009,
     +     .00000,    .07829,    .16696,
     +     .47093,    .26735,   1.64570,    .12335,    .00298,
     +     .00000,    .08005,    .16735,
     +     .47450,    .26745,   1.64319,    .12394,    .00713,
     +     .00000,    .08176,    .16764,
     +     .47730,    .26742,   1.63880,    .12435,    .00973,
     +     .00000,    .08311,    .16776,
     +     .47973,    .26729,   1.63240,    .12465,    .01216,
     +     .00000,    .08428,    .16777,
     +     .48215,    .26708,   1.62424,    .12492,    .01474,
     +     .00000,    .08544,    .16771 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .48399,    .26680,   1.61496,    .12505,    .01669,
     +     .00000,    .08633,    .16754,
     +     .48566,    .26648,   1.60518,    .12514,    .01860,
     +     .00000,    .08714,    .16734,
     +     .48684,    .26617,   1.59640,    .12516,    .01999,
     +     .00000,    .08772,    .16712,
     +     .48908,    .26541,   1.57385,    .12511,    .02283,
     +     .00004,    .08883,    .16655,
     +     .49067,    .26463,   1.54966,    .12497,    .02510,
     +     .00231,    .08964,    .16593,
     +     .49210,    .26366,   1.51836,    .12470,    .02743,
     +     .00606,    .09039,    .16512,
     +     .49327,    .26251,   1.48534,    .12429,    .02965,
     +     .00903,    .09101,    .16414,
     +     .49396,    .26132,   1.45419,    .12377,    .03141,
     +     .01135,    .09138,    .16309 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .49441,    .26005,   1.42236,    .12316,    .03304,
     +     .01361,    .09164,    .16193,
     +     .49462,    .25894,   1.39592,    .12260,    .03432,
     +     .01541,    .09179,    .16091,
     +     .49460,    .25752,   1.36337,    .12183,    .03569,
     +     .01736,    .09183,    .15957,
     +     .49437,    .25617,   1.33429,    .12107,    .03677,
     +     .01891,    .09177,    .15831,
     +     .49406,    .25491,   1.30799,    .12034,    .03771,
     +     .02031,    .09168,    .15712,
     +     .49340,    .25323,   1.27428,    .11933,    .03874,
     +     .02187,    .09144,    .15553,
     +     .49256,    .25158,   1.24273,    .11832,    .03960,
     +     .02320,    .09113,    .15395,
     +     .49167,    .25002,   1.21367,    .11735,    .04034,
     +     .02439,    .09081,    .15245 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49058,    .24836,   1.18455,    .11631,    .04096,
     +     .02542,    .09038,    .15089,
     +     .48938,    .24672,   1.15648,    .11526,    .04150,
     +     .02636,    .08992,    .14934,
     +     .48814,    .24515,   1.13031,    .11425,    .04195,
     +     .02719,    .08945,    .14784,
     +     .48682,    .24362,   1.10576,    .11326,    .04231,
     +     .02787,    .08896,    .14639,
     +     .48545,    .24208,   1.08161,    .11226,    .04264,
     +     .02853,    .08845,    .14493,
     +     .48396,    .24051,   1.05798,    .11123,    .04289,
     +     .02910,    .08788,    .14346,
     +     .48251,    .23902,   1.03600,    .11024,    .04310,
     +     .02961,    .08734,    .14207,
     +     .48104,    .23758,   1.01536,    .10929,    .04326,
     +     .03003,    .08679,    .14072 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47949,    .23612,    .99490,    .10833,    .04339,
     +     .03043,    .08622,    .13936,
     +     .47792,    .23467,    .97505,    .10738,    .04350,
     +     .03079,    .08565,    .13801,
     +     .47632,    .23325,    .95627,    .10644,    .04356,
     +     .03108,    .08508,    .13670,
     +     .47483,    .23192,    .93890,    .10556,    .04361,
     +     .03136,    .08454,    .13548,
     +     .47319,    .23053,    .92136,    .10465,    .04362,
     +     .03159,    .08396,    .13421 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .51910,    .28953,   1.32577,    .10355,    .00000,
     +     .00000,    .06569,    .15272,
     +     .52180,    .28896,   1.33125,    .10362,    .00000,
     +     .00000,    .06676,    .15218,
     +     .52524,    .28793,   1.33310,    .10366,    .00008,
     +     .00000,    .06819,    .15131,
     +     .52729,    .28702,   1.32828,    .10362,    .00224,
     +     .00000,    .06911,    .15059,
     +     .52910,    .28595,   1.31912,    .10351,    .00534,
     +     .00000,    .06998,    .14978,
     +     .53036,    .28490,   1.30966,    .10335,    .00728,
     +     .00000,    .07065,    .14899,
     +     .53130,    .28381,   1.29906,    .10313,    .00907,
     +     .00000,    .07119,    .14816,
     +     .53212,    .28262,   1.28692,    .10286,    .01097,
     +     .00000,    .07170,    .14725 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .53257,    .28149,   1.27484,    .10258,    .01239,
     +     .00000,    .07207,    .14638,
     +     .53289,    .28036,   1.26266,    .10227,    .01378,
     +     .00000,    .07237,    .14553,
     +     .53302,    .27941,   1.25230,    .10199,    .01478,
     +     .00000,    .07257,    .14483,
     +     .53298,    .27732,   1.22752,    .10134,    .01682,
     +     .00003,    .07290,    .14326,
     +     .53263,    .27544,   1.20289,    .10072,    .01843,
     +     .00168,    .07309,    .14185,
     +     .53193,    .27324,   1.17250,    .09996,    .02008,
     +     .00439,    .07321,    .14022,
     +     .53088,    .27084,   1.14086,    .09909,    .02162,
     +     .00652,    .07321,    .13845,
     +     .52954,    .26858,   1.11158,    .09820,    .02283,
     +     .00816,    .07308,    .13674 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .52797,    .26624,   1.08207,    .09726,    .02394,
     +     .00975,    .07287,    .13498,
     +     .52652,    .26427,   1.05779,    .09646,    .02479,
     +     .01102,    .07265,    .13350,
     +     .52452,    .26183,   1.02826,    .09542,    .02570,
     +     .01237,    .07229,    .13165,
     +     .52254,    .25960,   1.00217,    .09445,    .02640,
     +     .01343,    .07191,    .12997,
     +     .52066,    .25756,    .97873,    .09356,    .02700,
     +     .01439,    .07154,    .12844,
     +     .51801,    .25489,    .94903,    .09237,    .02764,
     +     .01544,    .07099,    .12645,
     +     .51535,    .25235,    .92148,    .09122,    .02816,
     +     .01632,    .07042,    .12456,
     +     .51277,    .24997,    .89628,    .09014,    .02861,
     +     .01711,    .06985,    .12280 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51000,    .24753,    .87128,    .08902,    .02896,
     +     .01778,    .06924,    .12100,
     +     .50719,    .24514,    .84734,    .08792,    .02926,
     +     .01839,    .06862,    .11924,
     +     .50446,    .24287,    .82515,    .08686,    .02950,
     +     .01891,    .06800,    .11757,
     +     .50174,    .24071,    .80450,    .08585,    .02967,
     +     .01934,    .06739,    .11599,
     +     .49899,    .23856,    .78428,    .08484,    .02983,
     +     .01975,    .06678,    .11441,
     +     .49617,    .23639,    .76463,    .08382,    .02993,
     +     .02009,    .06613,    .11286,
     +     .49348,    .23435,    .74644,    .08285,    .03001,
     +     .02039,    .06552,    .11139,
     +     .49083,    .23240,    .72946,    .08193,    .03006,
     +     .02064,    .06492,    .11000 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48811,    .23044,    .71270,    .08101,    .03009,
     +     .02086,    .06431,    .10859,
     +     .48540,    .22851,    .69651,    .08009,    .03010,
     +     .02107,    .06370,    .10721,
     +     .48275,    .22664,    .68129,    .07921,    .03007,
     +     .02122,    .06311,    .10589,
     +     .48026,    .22490,    .66724,    .07839,    .03005,
     +     .02137,    .06256,    .10465,
     +     .47762,    .22309,    .65314,    .07754,    .03000,
     +     .02148,    .06197,    .10340 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .58222,    .30836,   1.05309,    .08494,    .00000,
     +     .00000,    .05614,    .13484,
     +     .58262,    .30643,   1.05373,    .08457,    .00000,
     +     .00000,    .05656,    .13342,
     +     .58269,    .30342,   1.04968,    .08397,    .00006,
     +     .00000,    .05710,    .13130,
     +     .58230,    .30112,   1.04191,    .08349,    .00164,
     +     .00000,    .05741,    .12977,
     +     .58156,    .29864,   1.03058,    .08296,    .00391,
     +     .00000,    .05766,    .12815,
     +     .58059,    .29643,   1.01950,    .08248,    .00531,
     +     .00000,    .05782,    .12668,
     +     .57945,    .29423,   1.00769,    .08196,    .00660,
     +     .00000,    .05790,    .12527,
     +     .57809,    .29186,    .99450,    .08138,    .00795,
     +     .00000,    .05795,    .12377 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .57663,    .28975,    .98184,    .08085,    .00896,
     +     .00000,    .05794,    .12243,
     +     .57513,    .28769,    .96927,    .08032,    .00994,
     +     .00000,    .05790,    .12113,
     +     .57383,    .28602,    .95878,    .07988,    .01064,
     +     .00000,    .05784,    .12009,
     +     .57077,    .28244,    .93451,    .07893,    .01205,
     +     .00003,    .05765,    .11786,
     +     .56787,    .27932,    .91133,    .07807,    .01315,
     +     .00118,    .05742,    .11594,
     +     .56439,    .27578,    .88351,    .07707,    .01426,
     +     .00307,    .05710,    .11382,
     +     .56048,    .27205,    .85477,    .07600,    .01529,
     +     .00455,    .05670,    .11157,
     +     .55661,    .26863,    .82850,    .07497,    .01607,
     +     .00567,    .05625,    .10949 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55254,    .26514,    .80224,    .07389,    .01678,
     +     .00675,    .05575,    .10742,
     +     .54908,    .26225,    .78080,    .07298,    .01732,
     +     .00759,    .05530,    .10572,
     +     .54466,    .25873,    .75496,    .07186,    .01788,
     +     .00849,    .05471,    .10363,
     +     .54057,    .25560,    .73233,    .07086,    .01831,
     +     .00919,    .05415,    .10177,
     +     .53679,    .25276,    .71214,    .06995,    .01866,
     +     .00981,    .05363,    .10008,
     +     .53181,    .24912,    .68679,    .06875,    .01903,
     +     .01048,    .05292,    .09797,
     +     .52701,    .24568,    .66348,    .06760,    .01931,
     +     .01104,    .05222,    .09599,
     +     .52247,    .24249,    .64230,    .06654,    .01954,
     +     .01153,    .05156,    .09417 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51777,    .23930,    .62147,    .06547,    .01972,
     +     .01194,    .05089,    .09233,
     +     .51313,    .23618,    .60166,    .06442,    .01985,
     +     .01231,    .05021,    .09055,
     +     .50871,    .23325,    .58343,    .06344,    .01995,
     +     .01261,    .04956,    .08889,
     +     .50445,    .23048,    .56658,    .06249,    .02001,
     +     .01286,    .04892,    .08734,
     +     .50018,    .22773,    .55017,    .06155,    .02005,
     +     .01309,    .04829,    .08581,
     +     .49588,    .22502,    .53433,    .06062,    .02006,
     +     .01328,    .04765,    .08431,
     +     .49180,    .22247,    .51974,    .05976,    .02006,
     +     .01344,    .04705,    .08290,
     +     .48789,    .22006,    .50621,    .05894,    .02003,
     +     .01357,    .04647,    .08158 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48393,    .21764,    .49292,    .05812,    .02000,
     +     .01368,    .04589,    .08026,
     +     .48002,    .21527,    .48015,    .05731,    .01996,
     +     .01378,    .04531,    .07898,
     +     .47624,    .21299,    .46821,    .05654,    .01989,
     +     .01385,    .04476,    .07776,
     +     .47270,    .21087,    .45723,    .05582,    .01983,
     +     .01392,    .04424,    .07663,
     +     .46903,    .20871,    .44627,    .05508,    .01975,
     +     .01396,    .04371,    .07548 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .63052,    .31778,    .86197,    .06962,    .00000,
     +     .00000,    .04735,    .11608,
     +     .62838,    .31457,    .86048,    .06907,    .00000,
     +     .00000,    .04742,    .11420,
     +     .62475,    .30975,    .85382,    .06821,    .00005,
     +     .00000,    .04745,    .11148,
     +     .62174,    .30619,    .84484,    .06755,    .00125,
     +     .00000,    .04742,    .10954,
     +     .61830,    .30244,    .83271,    .06685,    .00297,
     +     .00000,    .04734,    .10752,
     +     .61506,    .29915,    .82101,    .06622,    .00402,
     +     .00000,    .04723,    .10577,
     +     .61175,    .29596,    .80878,    .06559,    .00497,
     +     .00000,    .04707,    .10409,
     +     .60812,    .29258,    .79529,    .06491,    .00597,
     +     .00000,    .04688,    .10233 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .60475,    .28960,    .78253,    .06429,    .00671,
     +     .00000,    .04667,    .10080,
     +     .60142,    .28673,    .76998,    .06368,    .00742,
     +     .00000,    .04644,    .09933,
     +     .59867,    .28446,    .75963,    .06319,    .00792,
     +     .00000,    .04625,    .09818,
     +     .59265,    .27960,    .73616,    .06213,    .00893,
     +     .00002,    .04579,    .09573,
     +     .58728,    .27543,    .71433,    .06121,    .00970,
     +     .00086,    .04537,    .09364,
     +     .58108,    .27082,    .68868,    .06018,    .01047,
     +     .00222,    .04486,    .09134,
     +     .57444,    .26601,    .66235,    .05905,    .01117,
     +     .00328,    .04427,    .08898,
     +     .56820,    .26161,    .63852,    .05801,    .01170,
     +     .00407,    .04368,    .08687 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56179,    .25723,    .61489,    .05695,    .01216,
     +     .00482,    .04306,    .08476,
     +     .55643,    .25363,    .59576,    .05607,    .01251,
     +     .00541,    .04254,    .08303,
     +     .54979,    .24928,    .57291,    .05498,    .01286,
     +     .00602,    .04189,    .08096,
     +     .54381,    .24545,    .55307,    .05402,    .01311,
     +     .00649,    .04128,    .07914,
     +     .53834,    .24199,    .53547,    .05316,    .01332,
     +     .00690,    .04071,    .07752,
     +     .53130,    .23760,    .51355,    .05204,    .01352,
     +     .00735,    .03997,    .07549,
     +     .52459,    .23352,    .49358,    .05099,    .01367,
     +     .00771,    .03926,    .07361,
     +     .51833,    .22976,    .47556,    .05003,    .01379,
     +     .00802,    .03860,    .07189 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .51201,    .22599,    .45799,    .04904,    .01386,
     +     .00828,    .03794,    .07018,
     +     .50583,    .22235,    .44139,    .04809,    .01390,
     +     .00850,    .03728,    .06855,
     +     .49999,    .21897,    .42620,    .04721,    .01393,
     +     .00868,    .03666,    .06704,
     +     .49441,    .21579,    .41227,    .04638,    .01392,
     +     .00883,    .03607,    .06562,
     +     .48886,    .21265,    .39878,    .04556,    .01391,
     +     .00896,    .03549,    .06423,
     +     .48335,    .20956,    .38585,    .04475,    .01388,
     +     .00906,    .03491,    .06288,
     +     .47817,    .20667,    .37400,    .04399,    .01384,
     +     .00915,    .03436,    .06163,
     +     .47323,    .20395,    .36307,    .04328,    .01378,
     +     .00921,    .03384,    .06046 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46826,    .20125,    .35239,    .04257,    .01372,
     +     .00927,    .03331,    .05931,
     +     .46339,    .19861,    .34218,    .04188,    .01366,
     +     .00931,    .03280,    .05818,
     +     .45871,    .19610,    .33268,    .04122,    .01358,
     +     .00934,    .03232,    .05711,
     +     .45435,    .19376,    .32397,    .04062,    .01352,
     +     .00936,    .03187,    .05613,
     +     .44987,    .19138,    .31533,    .03999,    .01343,
     +     .00937,    .03140,    .05514 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .66498,    .31968,    .73047,    .05725,    .00000,
     +     .00000,    .03943,    .09752,
     +     .66021,    .31535,    .72678,    .05661,    .00000,
     +     .00000,    .03929,    .09550,
     +     .65280,    .30896,    .71727,    .05567,    .00005,
     +     .00000,    .03903,    .09257,
     +     .64715,    .30433,    .70675,    .05498,    .00097,
     +     .00000,    .03881,    .09050,
     +     .64102,    .29950,    .69342,    .05423,    .00230,
     +     .00000,    .03855,    .08836,
     +     .63552,    .29531,    .68083,    .05357,    .00310,
     +     .00000,    .03828,    .08653,
     +     .63010,    .29129,    .66789,    .05291,    .00383,
     +     .00000,    .03800,    .08480,
     +     .62429,    .28707,    .65380,    .05221,    .00458,
     +     .00000,    .03768,    .08299 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .61905,    .28340,    .64075,    .05157,    .00513,
     +     .00000,    .03737,    .08144,
     +     .61397,    .27989,    .62803,    .05096,    .00565,
     +     .00000,    .03706,    .07997,
     +     .60986,    .27711,    .61765,    .05046,    .00602,
     +     .00000,    .03681,    .07881,
     +     .60104,    .27123,    .59460,    .04941,    .00674,
     +     .00002,    .03624,    .07639,
     +     .59336,    .26624,    .57368,    .04851,    .00730,
     +     .00064,    .03572,    .07436,
     +     .58471,    .26075,    .54961,    .04750,    .00784,
     +     .00164,    .03512,    .07216,
     +     .57559,    .25511,    .52514,    .04643,    .00832,
     +     .00241,    .03448,    .06989,
     +     .56721,    .25000,    .50326,    .04543,    .00867,
     +     .00297,    .03386,    .06790 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55874,    .24494,    .48179,    .04443,    .00897,
     +     .00351,    .03322,    .06593,
     +     .55173,    .24082,    .46453,    .04361,    .00920,
     +     .00392,    .03268,    .06433,
     +     .54317,    .23587,    .44411,    .04262,    .00941,
     +     .00435,    .03201,    .06243,
     +     .53553,    .23155,    .42654,    .04175,    .00956,
     +     .00467,    .03143,    .06076,
     +     .52862,    .22767,    .41107,    .04097,    .00968,
     +     .00495,    .03090,    .05927,
     +     .51984,    .22276,    .39200,    .03995,    .00979,
     +     .00525,    .03020,    .05745,
     +     .51159,    .21823,    .37479,    .03900,    .00986,
     +     .00548,    .02954,    .05578,
     +     .50394,    .21407,    .35937,    .03813,    .00990,
     +     .00569,    .02893,    .05427 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49625,    .20997,    .34443,    .03727,    .00992,
     +     .00585,    .02832,    .05276,
     +     .48880,    .20602,    .33043,    .03645,    .00992,
     +     .00598,    .02773,    .05133,
     +     .48180,    .20235,    .31773,    .03569,    .00990,
     +     .00610,    .02717,    .05000,
     +     .47521,    .19890,    .30617,    .03497,    .00987,
     +     .00618,    .02665,    .04880,
     +     .46868,    .19551,    .29502,    .03425,    .00983,
     +     .00626,    .02613,    .04762,
     +     .46224,    .19221,    .28441,    .03355,    .00978,
     +     .00631,    .02563,    .04647,
     +     .45621,    .18913,    .27472,    .03291,    .00973,
     +     .00635,    .02515,    .04540,
     +     .45050,    .18624,    .26585,    .03231,    .00967,
     +     .00638,    .02471,    .04441 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .44479,    .18337,    .25720,    .03170,    .00960,
     +     .00640,    .02426,    .04344,
     +     .43921,    .18058,    .24898,    .03112,    .00953,
     +     .00642,    .02383,    .04249,
     +     .43388,    .17795,    .24137,    .03057,    .00946,
     +     .00642,    .02342,    .04160,
     +     .42892,    .17550,    .23441,    .03006,    .00939,
     +     .00642,    .02304,    .04078,
     +     .42387,    .17302,    .22756,    .02954,    .00931,
     +     .00641,    .02265,    .03996 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .68660,    .31561,    .63789,    .04729,    .00000,
     +     .00000,    .03240,    .08003,
     +     .67928,    .31031,    .63124,    .04664,    .00000,
     +     .00000,    .03216,    .07804,
     +     .66825,    .30259,    .61795,    .04568,    .00004,
     +     .00000,    .03178,    .07517,
     +     .66006,    .29707,    .60530,    .04497,    .00076,
     +     .00000,    .03147,    .07314,
     +     .65139,    .29135,    .59020,    .04422,    .00180,
     +     .00000,    .03113,    .07109,
     +     .64378,    .28643,    .57631,    .04355,    .00242,
     +     .00000,    .03078,    .06936,
     +     .63638,    .28175,    .56239,    .04290,    .00297,
     +     .00000,    .03044,    .06773,
     +     .62855,    .27686,    .54746,    .04221,    .00354,
     +     .00000,    .03008,    .06602 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62162,    .27262,    .53393,    .04158,    .00395,
     +     .00000,    .02974,    .06458,
     +     .61495,    .26859,    .52089,    .04099,    .00433,
     +     .00000,    .02940,    .06320,
     +     .60962,    .26543,    .51040,    .04052,    .00460,
     +     .00000,    .02913,    .06212,
     +     .59830,    .25877,    .48759,    .03951,    .00513,
     +     .00002,    .02852,    .05990,
     +     .58858,    .25316,    .46740,    .03864,    .00553,
     +     .00047,    .02800,    .05805,
     +     .57776,    .24704,    .44463,    .03768,    .00590,
     +     .00122,    .02741,    .05605,
     +     .56653,    .24077,    .42178,    .03668,    .00623,
     +     .00178,    .02676,    .05404,
     +     .55627,    .23520,    .40155,    .03578,    .00647,
     +     .00219,    .02617,    .05223 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54602,    .22968,    .38199,    .03487,    .00667,
     +     .00257,    .02557,    .05048,
     +     .53762,    .22519,    .36643,    .03412,    .00681,
     +     .00286,    .02507,    .04908,
     +     .52749,    .21983,    .34814,    .03323,    .00694,
     +     .00316,    .02445,    .04742,
     +     .51853,    .21518,    .33262,    .03244,    .00702,
     +     .00338,    .02391,    .04599,
     +     .51046,    .21103,    .31904,    .03173,    .00708,
     +     .00358,    .02342,    .04472,
     +     .50024,    .20582,    .30246,    .03084,    .00713,
     +     .00377,    .02280,    .04315,
     +     .49075,    .20102,    .28760,    .03002,    .00715,
     +     .00393,    .02222,    .04172,
     +     .48202,    .19663,    .27439,    .02926,    .00716,
     +     .00406,    .02169,    .04043 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .47331,    .19232,    .26175,    .02850,    .00714,
     +     .00416,    .02115,    .03918,
     +     .46490,    .18820,    .24998,    .02779,    .00712,
     +     .00425,    .02064,    .03798,
     +     .45704,    .18440,    .23935,    .02713,    .00709,
     +     .00431,    .02016,    .03688,
     +     .44970,    .18085,    .22975,    .02651,    .00704,
     +     .00436,    .01971,    .03587,
     +     .44246,    .17735,    .22055,    .02590,    .00700,
     +     .00440,    .01928,    .03489,
     +     .43534,    .17395,    .21185,    .02531,    .00694,
     +     .00442,    .01885,    .03396,
     +     .42869,    .17080,    .20396,    .02477,    .00689,
     +     .00444,    .01844,    .03309,
     +     .42244,    .16785,    .19676,    .02426,    .00683,
     +     .00445,    .01807,    .03228 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .41621,    .16494,    .18978,    .02375,    .00676,
     +     .00446,    .01771,    .03148,
     +     .41015,    .16211,    .18317,    .02326,    .00670,
     +     .00446,    .01735,    .03071,
     +     .40440,    .15944,    .17710,    .02280,    .00663,
     +     .00445,    .01701,    .03001,
     +     .39905,    .15697,    .17156,    .02237,    .00657,
     +     .00444,    .01669,    .02935,
     +     .39361,    .15447,    .16613,    .02194,    .00650,
     +     .00443,    .01638,    .02870 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .69653,    .30677,    .56827,    .03923,    .00000,
     +     .00000,    .02634,    .06416,
     +     .68683,    .30068,    .55820,    .03857,    .00000,
     +     .00000,    .02605,    .06234,
     +     .67242,    .29188,    .54066,    .03759,    .00003,
     +     .00000,    .02559,    .05973,
     +     .66192,    .28564,    .52562,    .03689,    .00060,
     +     .00000,    .02525,    .05790,
     +     .65093,    .27924,    .50855,    .03616,    .00140,
     +     .00000,    .02487,    .05603,
     +     .64142,    .27374,    .49336,    .03551,    .00188,
     +     .00000,    .02452,    .05448,
     +     .63227,    .26856,    .47846,    .03488,    .00230,
     +     .00000,    .02418,    .05301,
     +     .62263,    .26318,    .46275,    .03421,    .00273,
     +     .00000,    .02381,    .05149 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61421,    .25853,    .44885,    .03362,    .00303,
     +     .00000,    .02346,    .05020,
     +     .60615,    .25413,    .43560,    .03306,    .00332,
     +     .00000,    .02313,    .04900,
     +     .59977,    .25068,    .42506,    .03261,    .00352,
     +     .00000,    .02285,    .04806,
     +     .58628,    .24349,    .40262,    .03167,    .00390,
     +     .00001,    .02228,    .04611,
     +     .57481,    .23746,    .38324,    .03086,    .00418,
     +     .00035,    .02178,    .04450,
     +     .56219,    .23090,    .36179,    .02996,    .00445,
     +     .00091,    .02122,    .04279,
     +     .54916,    .22427,    .34053,    .02906,    .00467,
     +     .00132,    .02064,    .04103,
     +     .53742,    .21837,    .32205,    .02822,    .00482,
     +     .00161,    .02010,    .03952 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52576,    .21258,    .30432,    .02741,    .00495,
     +     .00189,    .01955,    .03803,
     +     .51625,    .20789,    .29034,    .02675,    .00503,
     +     .00209,    .01911,    .03684,
     +     .50488,    .20228,    .27415,    .02594,    .00511,
     +     .00230,    .01857,    .03546,
     +     .49490,    .19746,    .26051,    .02525,    .00515,
     +     .00246,    .01810,    .03427,
     +     .48594,    .19318,    .24866,    .02463,    .00518,
     +     .00259,    .01767,    .03321,
     +     .47468,    .18784,    .23436,    .02385,    .00519,
     +     .00272,    .01713,    .03191,
     +     .46426,    .18294,    .22167,    .02313,    .00519,
     +     .00282,    .01663,    .03075,
     +     .45472,    .17848,    .21047,    .02248,    .00518,
     +     .00291,    .01618,    .02970 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .44530,    .17410,    .19984,    .02182,    .00515,
     +     .00297,    .01573,    .02868,
     +     .43623,    .16993,    .19001,    .02121,    .00511,
     +     .00302,    .01530,    .02772,
     +     .42779,    .16609,    .18118,    .02065,    .00507,
     +     .00306,    .01489,    .02684,
     +     .41993,    .16252,    .17328,    .02013,    .00503,
     +     .00308,    .01452,    .02603,
     +     .41220,    .15903,    .16574,    .01963,    .00498,
     +     .00310,    .01417,    .02524,
     +     .40466,    .15565,    .15865,    .01914,    .00493,
     +     .00311,    .01382,    .02448,
     +     .39762,    .15253,    .15223,    .01868,    .00487,
     +     .00312,    .01349,    .02379,
     +     .39104,    .14961,    .14643,    .01826,    .00482,
     +     .00312,    .01319,    .02315 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .38451,    .14672,    .14084,    .01784,    .00477,
     +     .00311,    .01289,    .02253,
     +     .37815,    .14393,    .13557,    .01744,    .00471,
     +     .00311,    .01260,    .02193,
     +     .37213,    .14132,    .13074,    .01706,    .00465,
     +     .00309,    .01232,    .02138,
     +     .36654,    .13889,    .12635,    .01672,    .00460,
     +     .00308,    .01207,    .02087,
     +     .36091,    .13646,    .12207,    .01636,    .00454,
     +     .00307,    .01181,    .02037 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .69596,    .29417,    .51063,    .03256,    .00000,
     +     .00000,    .02114,    .05035,
     +     .68405,    .28751,    .49726,    .03192,    .00000,
     +     .00000,    .02084,    .04873,
     +     .66661,    .27792,    .47573,    .03099,    .00003,
     +     .00000,    .02037,    .04644,
     +     .65406,    .27117,    .45857,    .03032,    .00047,
     +     .00000,    .02002,    .04484,
     +     .64106,    .26426,    .43988,    .02962,    .00109,
     +     .00000,    .01965,    .04322,
     +     .62988,    .25838,    .42367,    .02900,    .00145,
     +     .00000,    .01931,    .04188,
     +     .61921,    .25286,    .40813,    .02840,    .00177,
     +     .00000,    .01898,    .04062,
     +     .60803,    .24714,    .39197,    .02777,    .00209,
     +     .00000,    .01861,    .03934 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .59834,    .24225,    .37795,    .02723,    .00232,
     +     .00000,    .01828,    .03825,
     +     .58911,    .23762,    .36475,    .02671,    .00253,
     +     .00000,    .01797,    .03722,
     +     .58186,    .23399,    .35439,    .02629,    .00267,
     +     .00000,    .01772,    .03643,
     +     .56661,    .22646,    .33268,    .02542,    .00294,
     +     .00001,    .01720,    .03479,
     +     .55374,    .22020,    .31434,    .02468,    .00314,
     +     .00026,    .01675,    .03345,
     +     .53965,    .21343,    .29444,    .02388,    .00333,
     +     .00067,    .01625,    .03200,
     +     .52524,    .20661,    .27496,    .02308,    .00348,
     +     .00097,    .01573,    .03056,
     +     .51239,    .20055,    .25827,    .02233,    .00358,
     +     .00118,    .01525,    .02930 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49968,    .19460,    .24242,    .02160,    .00366,
     +     .00138,    .01478,    .02811,
     +     .48937,    .18982,    .23005,    .02102,    .00371,
     +     .00153,    .01439,    .02717,
     +     .47709,    .18420,    .21589,    .02029,    .00374,
     +     .00167,    .01393,    .02605,
     +     .46637,    .17935,    .20407,    .01969,    .00376,
     +     .00178,    .01353,    .02508,
     +     .45679,    .17504,    .19388,    .01916,    .00377,
     +     .00187,    .01317,    .02423,
     +     .44482,    .16970,    .18165,    .01848,    .00377,
     +     .00195,    .01272,    .02322,
     +     .43379,    .16483,    .17093,    .01787,    .00375,
     +     .00202,    .01231,    .02228,
     +     .42374,    .16041,    .16155,    .01732,    .00373,
     +     .00208,    .01194,    .02144 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .41384,    .15609,    .15270,    .01678,    .00370,
     +     .00211,    .01158,    .02061,
     +     .40439,    .15197,    .14457,    .01626,    .00366,
     +     .00214,    .01123,    .01985,
     +     .39564,    .14817,    .13733,    .01576,    .00362,
     +     .00217,    .01091,    .01918,
     +     .38751,    .14468,    .13088,    .01532,    .00358,
     +     .00218,    .01061,    .01856,
     +     .37953,    .14127,    .12475,    .01490,    .00354,
     +     .00219,    .01032,    .01796,
     +     .37177,    .13800,    .11903,    .01450,    .00349,
     +     .00219,    .01003,    .01738,
     +     .36456,    .13497,    .11388,    .01413,    .00345,
     +     .00219,    .00977,    .01684,
     +     .35784,    .13214,    .10925,    .01378,    .00340,
     +     .00218,    .00953,    .01635 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .35118,    .12935,    .10480,    .01343,    .00336,
     +     .00217,    .00930,    .01588,
     +     .34473,    .12666,    .10061,    .01309,    .00331,
     +     .00217,    .00906,    .01542,
     +     .33865,    .12415,    .09681,    .01279,    .00326,
     +     .00215,    .00884,    .01500,
     +     .33302,    .12183,    .09335,    .01251,    .00322,
     +     .00214,    .00863,    .01461,
     +     .32736,    .11949,    .09000,    .01221,    .00317,
     +     .00213,    .00844,    .01423 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .68573,    .27907,    .45865,    .02728,    .00000,
     +     .00000,    .01659,    .03846,
     +     .67197,    .27196,    .44245,    .02666,    .00000,
     +     .00000,    .01630,    .03710,
     +     .65198,    .26180,    .41766,    .02572,    .00002,
     +     .00000,    .01588,    .03520,
     +     .63773,    .25469,    .39895,    .02505,    .00036,
     +     .00000,    .01556,    .03389,
     +     .62305,    .24745,    .37926,    .02438,    .00084,
     +     .00000,    .01521,    .03256,
     +     .61054,    .24131,    .36251,    .02376,    .00111,
     +     .00000,    .01491,    .03146,
     +     .59864,    .23558,    .34677,    .02320,    .00135,
     +     .00000,    .01461,    .03043,
     +     .58623,    .22967,    .33064,    .02262,    .00159,
     +     .00000,    .01430,    .02936 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .57557,    .22461,    .31687,    .02211,    .00176,
     +     .00000,    .01402,    .02847,
     +     .56545,    .21985,    .30405,    .02162,    .00191,
     +     .00000,    .01375,    .02763,
     +     .55750,    .21615,    .29412,    .02123,    .00201,
     +     .00000,    .01353,    .02700,
     +     .54090,    .20848,    .27366,    .02042,    .00221,
     +     .00001,    .01307,    .02569,
     +     .52697,    .20212,    .25670,    .01976,    .00235,
     +     .00020,    .01268,    .02461,
     +     .51180,    .19528,    .23856,    .01905,    .00247,
     +     .00050,    .01225,    .02346,
     +     .49645,    .18841,    .22105,    .01831,    .00257,
     +     .00071,    .01182,    .02231,
     +     .48279,    .18232,    .20624,    .01766,    .00264,
     +     .00087,    .01143,    .02132 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46937,    .17643,    .19235,    .01701,    .00268,
     +     .00101,    .01103,    .02037,
     +     .45852,    .17171,    .18160,    .01649,    .00271,
     +     .00111,    .01071,    .01962,
     +     .44563,    .16613,    .16936,    .01589,    .00273,
     +     .00121,    .01034,    .01873,
     +     .43449,    .16135,    .15926,    .01535,    .00273,
     +     .00128,    .01000,    .01800,
     +     .42457,    .15711,    .15061,    .01487,    .00273,
     +     .00134,    .00970,    .01736,
     +     .41221,    .15186,    .14037,    .01430,    .00272,
     +     .00140,    .00935,    .01654,
     +     .40087,    .14710,    .13145,    .01379,    .00270,
     +     .00145,    .00902,    .01583,
     +     .39057,    .14281,    .12368,    .01332,    .00267,
     +     .00148,    .00872,    .01519 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .38046,    .13864,    .11642,    .01287,    .00264,
     +     .00150,    .00842,    .01458,
     +     .37086,    .13467,    .10979,    .01242,    .00261,
     +     .00152,    .00814,    .01401,
     +     .36203,    .13102,    .10393,    .01201,    .00257,
     +     .00153,    .00788,    .01349,
     +     .35379,    .12767,    .09872,    .01166,    .00254,
     +     .00153,    .00764,    .01302,
     +     .34571,    .12442,    .09380,    .01133,    .00250,
     +     .00154,    .00741,    .01256,
     +     .33794,    .12128,    .08924,    .01100,    .00246,
     +     .00154,    .00719,    .01212,
     +     .33075,    .11839,    .08514,    .01069,    .00242,
     +     .00153,    .00700,    .01172,
     +     .32405,    .11571,    .08148,    .01041,    .00239,
     +     .00152,    .00681,    .01136 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .31743,    .11307,    .07797,    .01012,    .00235,
     +     .00152,    .00662,    .01100,
     +     .31103,    .11053,    .07468,    .00985,    .00231,
     +     .00151,    .00645,    .01066,
     +     .30502,    .10816,    .07170,    .00959,    .00228,
     +     .00150,    .00629,    .01035,
     +     .29947,    .10597,    .06899,    .00936,    .00224,
     +     .00149,    .00614,    .01006,
     +     .29390,    .10376,    .06638,    .00912,    .00221,
     +     .00147,    .00599,    .00977 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .66775,    .26144,    .40819,    .02246,    .00000,
     +     .00000,    .01304,    .02890,
     +     .65239,    .25411,    .39003,    .02187,    .00000,
     +     .00000,    .01277,    .02778,
     +     .63024,    .24366,    .36328,    .02101,    .00002,
     +     .00000,    .01238,    .02622,
     +     .61460,    .23637,    .34385,    .02038,    .00027,
     +     .00000,    .01208,    .02516,
     +     .59858,    .22897,    .32388,    .01974,    .00063,
     +     .00000,    .01176,    .02411,
     +     .58493,    .22278,    .30726,    .01921,    .00084,
     +     .00000,    .01148,    .02322,
     +     .57207,    .21699,    .29188,    .01869,    .00101,
     +     .00000,    .01121,    .02239,
     +     .55875,    .21101,    .27632,    .01815,    .00119,
     +     .00000,    .01094,    .02154 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54732,    .20594,    .26324,    .01769,    .00131,
     +     .00000,    .01069,    .02084,
     +     .53651,    .20117,    .25119,    .01725,    .00142,
     +     .00000,    .01045,    .02018,
     +     .52806,    .19747,    .24196,    .01692,    .00149,
     +     .00000,    .01027,    .01967,
     +     .51047,    .18984,    .22312,    .01623,    .00163,
     +     .00001,    .00987,    .01862,
     +     .49583,    .18352,    .20776,    .01564,    .00172,
     +     .00014,    .00955,    .01777,
     +     .48003,    .17674,    .19164,    .01499,    .00181,
     +     .00036,    .00919,    .01689,
     +     .46403,    .16998,    .17624,    .01434,    .00187,
     +     .00052,    .00882,    .01600,
     +     .44987,    .16405,    .16337,    .01379,    .00191,
     +     .00062,    .00849,    .01524 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43603,    .15828,    .15140,    .01324,    .00194,
     +     .00072,    .00816,    .01452,
     +     .42490,    .15368,    .14220,    .01280,    .00195,
     +     .00080,    .00790,    .01395,
     +     .41171,    .14831,    .13188,    .01229,    .00196,
     +     .00086,    .00759,    .01326,
     +     .40040,    .14366,    .12345,    .01183,    .00196,
     +     .00091,    .00733,    .01271,
     +     .39036,    .13955,    .11626,    .01142,    .00195,
     +     .00095,    .00710,    .01223,
     +     .37786,    .13453,    .10778,    .01096,    .00193,
     +     .00099,    .00681,    .01161,
     +     .36645,    .12999,    .10046,    .01054,    .00191,
     +     .00102,    .00655,    .01107,
     +     .35612,    .12591,    .09413,    .01015,    .00189,
     +     .00104,    .00630,    .01059 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34605,    .12192,    .08827,    .00977,    .00186,
     +     .00105,    .00608,    .01014,
     +     .33649,    .11817,    .08295,    .00942,    .00184,
     +     .00106,    .00586,    .00971,
     +     .32770,    .11474,    .07826,    .00911,    .00181,
     +     .00107,    .00566,    .00931,
     +     .31959,    .11158,    .07412,    .00881,    .00178,
     +     .00107,    .00548,    .00895,
     +     .31168,    .10849,    .07022,    .00852,    .00175,
     +     .00107,    .00530,    .00862,
     +     .30405,    .10555,    .06663,    .00825,    .00172,
     +     .00107,    .00513,    .00830,
     +     .29700,    .10283,    .06343,    .00799,    .00169,
     +     .00106,    .00498,    .00802,
     +     .29047,    .10033,    .06056,    .00775,    .00166,
     +     .00106,    .00484,    .00775 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .28403,    .09788,    .05781,    .00752,    .00163,
     +     .00105,    .00469,    .00749,
     +     .27782,    .09552,    .05525,    .00730,    .00160,
     +     .00104,    .00456,    .00724,
     +     .27197,    .09331,    .05295,    .00711,    .00157,
     +     .00103,    .00444,    .00702,
     +     .26657,    .09128,    .05087,    .00693,    .00155,
     +     .00102,    .00433,    .00681,
     +     .26119,    .08925,    .04886,    .00674,    .00152,
     +     .00101,    .00421,    .00661 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .64264,    .24261,    .35860,    .01847,    .00000,
     +     .00000,    .01005,    .02116,
     +     .62604,    .23518,    .33942,    .01790,    .00000,
     +     .00000,    .00981,    .02030,
     +     .60230,    .22461,    .31200,    .01707,    .00002,
     +     .00000,    .00945,    .01910,
     +     .58561,    .21729,    .29268,    .01649,    .00020,
     +     .00000,    .00920,    .01827,
     +     .56857,    .20992,    .27324,    .01592,    .00047,
     +     .00000,    .00893,    .01743,
     +     .55417,    .20375,    .25731,    .01544,    .00062,
     +     .00000,    .00870,    .01673,
     +     .54066,    .19798,    .24276,    .01497,    .00075,
     +     .00000,    .00847,    .01610,
     +     .52671,    .19207,    .22820,    .01449,    .00087,
     +     .00000,    .00823,    .01545 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51479,    .18704,    .21618,    .01407,    .00096,
     +     .00000,    .00804,    .01491,
     +     .50357,    .18234,    .20516,    .01368,    .00104,
     +     .00000,    .00784,    .01440,
     +     .49482,    .17869,    .19678,    .01337,    .00109,
     +     .00000,    .00768,    .01402,
     +     .47667,    .17121,    .17991,    .01277,    .00118,
     +     .00001,    .00734,    .01324,
     +     .46162,    .16506,    .16638,    .01227,    .00125,
     +     .00010,    .00706,    .01260,
     +     .44546,    .15849,    .15237,    .01170,    .00131,
     +     .00026,    .00679,    .01192,
     +     .42918,    .15196,    .13910,    .01116,    .00135,
     +     .00037,    .00649,    .01125,
     +     .41484,    .14625,    .12815,    .01069,    .00137,
     +     .00045,    .00622,    .01067 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40087,    .14072,    .11809,    .01023,    .00138,
     +     .00051,    .00596,    .01014,
     +     .38968,    .13632,    .11042,    .00986,    .00139,
     +     .00056,    .00574,    .00972,
     +     .37657,    .13116,    .10185,    .00943,    .00139,
     +     .00061,    .00550,    .00920,
     +     .36527,    .12677,    .09491,    .00905,    .00139,
     +     .00065,    .00530,    .00878,
     +     .35526,    .12290,    .08903,    .00872,    .00138,
     +     .00067,    .00513,    .00842,
     +     .34292,    .11815,    .08215,    .00831,    .00136,
     +     .00070,    .00489,    .00800,
     +     .33170,    .11387,    .07627,    .00796,    .00134,
     +     .00071,    .00469,    .00760,
     +     .32156,    .11002,    .07120,    .00766,    .00132,
     +     .00073,    .00451,    .00724 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .31167,    .10630,    .06653,    .00737,    .00130,
     +     .00074,    .00433,    .00690,
     +     .30234,    .10279,    .06231,    .00708,    .00128,
     +     .00074,    .00417,    .00659,
     +     .29382,    .09958,    .05861,    .00680,    .00126,
     +     .00074,    .00402,    .00632,
     +     .28595,    .09665,    .05536,    .00656,    .00123,
     +     .00074,    .00388,    .00607,
     +     .27828,    .09381,    .05232,    .00634,    .00121,
     +     .00074,    .00374,    .00583,
     +     .27092,    .09109,    .04953,    .00613,    .00119,
     +     .00074,    .00361,    .00561,
     +     .26413,    .08859,    .04703,    .00594,    .00116,
     +     .00073,    .00350,    .00540,
     +     .25786,    .08628,    .04482,    .00575,    .00114,
     +     .00073,    .00339,    .00521 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .25170,    .08402,    .04271,    .00556,    .00112,
     +     .00072,    .00329,    .00503,
     +     .24576,    .08185,    .04075,    .00538,    .00110,
     +     .00071,    .00319,    .00485,
     +     .24019,    .07984,    .03899,    .00523,    .00108,
     +     .00071,    .00309,    .00470,
     +     .23506,    .07798,    .03740,    .00509,    .00106,
     +     .00070,    .00300,    .00456,
     +     .22996,    .07613,    .03587,    .00494,    .00104,
     +     .00069,    .00292,    .00441 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .61183,    .22282,    .30971,    .01493,    .00000,
     +     .00000,    .00767,    .01521,
     +     .59434,    .21544,    .29046,    .01442,    .00000,
     +     .00000,    .00746,    .01454,
     +     .56944,    .20497,    .26368,    .01368,    .00001,
     +     .00000,    .00715,    .01362,
     +     .55205,    .19775,    .24528,    .01317,    .00015,
     +     .00000,    .00694,    .01299,
     +     .53439,    .19052,    .22704,    .01265,    .00034,
     +     .00000,    .00671,    .01235,
     +     .51954,    .18448,    .21228,    .01221,    .00045,
     +     .00000,    .00650,    .01184,
     +     .50563,    .17885,    .19900,    .01182,    .00054,
     +     .00000,    .00632,    .01135,
     +     .49130,    .17309,    .18583,    .01142,    .00063,
     +     .00000,    .00613,    .01086 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .47914,    .16823,    .17503,    .01104,    .00069,
     +     .00000,    .00596,    .01047,
     +     .46772,    .16369,    .16524,    .01069,    .00075,
     +     .00000,    .00580,    .01010,
     +     .45885,    .16017,    .15788,    .01044,    .00078,
     +     .00000,    .00567,    .00980,
     +     .44050,    .15297,    .14322,    .00992,    .00085,
     +     .00001,    .00540,    .00922,
     +     .42533,    .14709,    .13159,    .00950,    .00089,
     +     .00007,    .00518,    .00874,
     +     .40911,    .14082,    .11966,    .00904,    .00093,
     +     .00018,    .00496,    .00823,
     +     .39288,    .13457,    .10854,    .00857,    .00095,
     +     .00026,    .00472,    .00775,
     +     .37866,    .12915,    .09946,    .00818,    .00097,
     +     .00032,    .00450,    .00734 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36488,    .12393,    .09114,    .00780,    .00097,
     +     .00036,    .00430,    .00695,
     +     .35387,    .11978,    .08485,    .00748,    .00098,
     +     .00040,    .00414,    .00664,
     +     .34093,    .11496,    .07789,    .00711,    .00097,
     +     .00043,    .00395,    .00627,
     +     .32988,    .11084,    .07228,    .00682,    .00097,
     +     .00045,    .00380,    .00596,
     +     .32013,    .10722,    .06755,    .00656,    .00096,
     +     .00047,    .00366,    .00570,
     +     .30813,    .10278,    .06208,    .00625,    .00095,
     +     .00048,    .00349,    .00540,
     +     .29726,    .09881,    .05741,    .00596,    .00093,
     +     .00050,    .00333,    .00513,
     +     .28748,    .09525,    .05340,    .00571,    .00091,
     +     .00050,    .00318,    .00488 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27797,    .09182,    .04975,    .00547,    .00090,
     +     .00051,    .00305,    .00464,
     +     .26902,    .08859,    .04646,    .00524,    .00088,
     +     .00051,    .00292,    .00442,
     +     .26085,    .08565,    .04358,    .00503,    .00086,
     +     .00051,    .00281,    .00422,
     +     .25335,    .08297,    .04108,    .00485,    .00084,
     +     .00051,    .00271,    .00405,
     +     .24606,    .08037,    .03873,    .00467,    .00083,
     +     .00051,    .00261,    .00390,
     +     .23907,    .07789,    .03659,    .00449,    .00081,
     +     .00050,    .00251,    .00374,
     +     .23265,    .07562,    .03469,    .00433,    .00079,
     +     .00050,    .00243,    .00359,
     +     .22671,    .07353,    .03300,    .00419,    .00078,
     +     .00050,    .00235,    .00345 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .22089,    .07149,    .03140,    .00406,    .00076,
     +     .00049,    .00227,    .00332,
     +     .21531,    .06953,    .02991,    .00393,    .00075,
     +     .00049,    .00220,    .00319,
     +     .21009,    .06771,    .02857,    .00381,    .00073,
     +     .00048,    .00213,    .00308,
     +     .20530,    .06603,    .02736,    .00370,    .00072,
     +     .00047,    .00207,    .00297,
     +     .20051,    .06438,    .02621,    .00360,    .00070,
     +     .00047,    .00201,    .00288 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .57637,    .20263,    .26242,    .01185,    .00000,
     +     .00000,    .00580,    .01072,
     +     .55835,    .19540,    .24405,    .01139,    .00000,
     +     .00000,    .00562,    .01023,
     +     .53274,    .18525,    .21887,    .01077,    .00001,
     +     .00000,    .00536,    .00953,
     +     .51499,    .17826,    .20192,    .01032,    .00011,
     +     .00000,    .00517,    .00906,
     +     .49707,    .17125,    .18540,    .00986,    .00024,
     +     .00000,    .00497,    .00860,
     +     .48202,    .16543,    .17222,    .00950,    .00032,
     +     .00000,    .00481,    .00822,
     +     .46798,    .16003,    .16046,    .00916,    .00039,
     +     .00000,    .00465,    .00786,
     +     .45358,    .15453,    .14890,    .00882,    .00045,
     +     .00000,    .00449,    .00750 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44138,    .14989,    .13952,    .00851,    .00049,
     +     .00000,    .00436,    .00720,
     +     .42997,    .14556,    .13108,    .00823,    .00053,
     +     .00000,    .00424,    .00693,
     +     .42114,    .14220,    .12478,    .00801,    .00055,
     +     .00000,    .00413,    .00672,
     +     .40293,    .13537,    .11233,    .00758,    .00059,
     +     .00001,    .00392,    .00630,
     +     .38797,    .12981,    .10260,    .00722,    .00062,
     +     .00005,    .00375,    .00595,
     +     .37203,    .12390,    .09273,    .00682,    .00065,
     +     .00013,    .00357,    .00558,
     +     .35608,    .11805,    .08358,    .00646,    .00066,
     +     .00018,    .00339,    .00524,
     +     .34223,    .11299,    .07618,    .00612,    .00067,
     +     .00022,    .00323,    .00495 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32881,    .10812,    .06947,    .00581,    .00067,
     +     .00025,    .00307,    .00468,
     +     .31812,    .10426,    .06442,    .00557,    .00067,
     +     .00027,    .00294,    .00446,
     +     .30562,    .09979,    .05887,    .00529,    .00067,
     +     .00030,    .00281,    .00420,
     +     .29499,    .09599,    .05443,    .00505,    .00066,
     +     .00031,    .00269,    .00398,
     +     .28564,    .09266,    .05071,    .00484,    .00066,
     +     .00032,    .00259,    .00379,
     +     .27414,    .08861,    .04643,    .00460,    .00065,
     +     .00033,    .00245,    .00357,
     +     .26379,    .08497,    .04279,    .00437,    .00063,
     +     .00034,    .00234,    .00339,
     +     .25450,    .08171,    .03970,    .00416,    .00062,
     +     .00034,    .00224,    .00323 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24548,    .07859,    .03689,    .00399,    .00061,
     +     .00035,    .00213,    .00306,
     +     .23703,    .07566,    .03436,    .00381,    .00060,
     +     .00035,    .00204,    .00290,
     +     .22936,    .07299,    .03216,    .00363,    .00058,
     +     .00035,    .00196,    .00277,
     +     .22231,    .07056,    .03024,    .00349,    .00057,
     +     .00035,    .00189,    .00265,
     +     .21548,    .06821,    .02846,    .00336,    .00056,
     +     .00034,    .00181,    .00254,
     +     .20895,    .06599,    .02683,    .00323,    .00055,
     +     .00034,    .00174,    .00243,
     +     .20296,    .06395,    .02539,    .00310,    .00053,
     +     .00034,    .00167,    .00234,
     +     .19744,    .06208,    .02412,    .00299,    .00052,
     +     .00033,    .00161,    .00225 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .19205,    .06025,    .02291,    .00288,    .00051,
     +     .00033,    .00156,    .00215,
     +     .18688,    .05850,    .02180,    .00278,    .00050,
     +     .00033,    .00151,    .00207,
     +     .18205,    .05688,    .02080,    .00269,    .00049,
     +     .00032,    .00146,    .00200,
     +     .17762,    .05539,    .01990,    .00261,    .00048,
     +     .00032,    .00141,    .00193,
     +     .17320,    .05393,    .01904,    .00254,    .00047,
     +     .00031,    .00137,    .00186 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .53724,    .18271,    .21799,    .00939,    .00000,
     +     .00000,    .00426,    .00729,
     +     .51901,    .17573,    .20110,    .00899,    .00000,
     +     .00000,    .00411,    .00695,
     +     .49327,    .16596,    .17832,    .00842,    .00001,
     +     .00000,    .00389,    .00646,
     +     .47547,    .15927,    .16325,    .00804,    .00008,
     +     .00000,    .00375,    .00612,
     +     .45756,    .15258,    .14877,    .00767,    .00017,
     +     .00000,    .00360,    .00580,
     +     .44263,    .14704,    .13732,    .00734,    .00022,
     +     .00000,    .00348,    .00552,
     +     .42877,    .14192,    .12721,    .00703,    .00027,
     +     .00000,    .00336,    .00528,
     +     .41457,    .13671,    .11736,    .00672,    .00031,
     +     .00000,    .00323,    .00505 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40256,    .13233,    .10944,    .00648,    .00034,
     +     .00000,    .00312,    .00484,
     +     .39133,    .12826,    .10236,    .00625,    .00037,
     +     .00000,    .00301,    .00464,
     +     .38266,    .12513,    .09711,    .00608,    .00038,
     +     .00000,    .00293,    .00449,
     +     .36490,    .11876,    .08682,    .00572,    .00041,
     +     .00000,    .00278,    .00417,
     +     .35034,    .11357,    .07886,    .00543,    .00043,
     +     .00004,    .00265,    .00393,
     +     .33486,    .10807,    .07087,    .00513,    .00044,
     +     .00009,    .00251,    .00370,
     +     .31953,    .10267,    .06353,    .00483,    .00045,
     +     .00013,    .00239,    .00343,
     +     .30622,    .09799,    .05764,    .00455,    .00046,
     +     .00015,    .00225,    .00326 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29338,    .09350,    .05233,    .00431,    .00046,
     +     .00017,    .00214,    .00307,
     +     .28319,    .08996,    .04835,    .00412,    .00046,
     +     .00019,    .00206,    .00291,
     +     .27132,    .08587,    .04402,    .00390,    .00045,
     +     .00020,    .00195,    .00273,
     +     .26121,    .08242,    .04058,    .00372,    .00045,
     +     .00021,    .00186,    .00259,
     +     .25233,    .07940,    .03771,    .00356,    .00044,
     +     .00022,    .00178,    .00248,
     +     .24155,    .07572,    .03442,    .00335,    .00044,
     +     .00023,    .00169,    .00233,
     +     .23182,    .07243,    .03163,    .00318,    .00043,
     +     .00023,    .00160,    .00219,
     +     .22309,    .06950,    .02926,    .00303,    .00042,
     +     .00023,    .00152,    .00207 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21469,    .06670,    .02712,    .00289,    .00041,
     +     .00023,    .00146,    .00195,
     +     .20681,    .06407,    .02521,    .00276,    .00040,
     +     .00023,    .00139,    .00186,
     +     .19965,    .06167,    .02356,    .00265,    .00039,
     +     .00023,    .00132,    .00178,
     +     .19313,    .05951,    .02213,    .00254,    .00038,
     +     .00023,    .00126,    .00170,
     +     .18683,    .05742,    .02079,    .00242,    .00037,
     +     .00023,    .00121,    .00162,
     +     .18085,    .05544,    .01957,    .00231,    .00036,
     +     .00023,    .00117,    .00155,
     +     .17538,    .05363,    .01849,    .00221,    .00035,
     +     .00023,    .00113,    .00148,
     +     .17032,    .05197,    .01754,    .00213,    .00035,
     +     .00022,    .00109,    .00142 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16537,    .05036,    .01665,    .00205,    .00034,
     +     .00022,    .00105,    .00137,
     +     .16064,    .04882,    .01582,    .00197,    .00033,
     +     .00022,    .00101,    .00131,
     +     .15624,    .04740,    .01508,    .00191,    .00032,
     +     .00022,    .00097,    .00126,
     +     .15220,    .04610,    .01441,    .00185,    .00032,
     +     .00021,    .00095,    .00122,
     +     .14819,    .04481,    .01378,    .00180,    .00031,
     +     .00021,    .00092,    .00117 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .49563,    .16304,    .17717,    .00725,    .00000,
     +     .00000,    .00310,    .00490,
     +     .47754,    .15642,    .16221,    .00691,    .00000,
     +     .00000,    .00298,    .00464,
     +     .45204,    .14721,    .14237,    .00644,    .00001,
     +     .00000,    .00280,    .00430,
     +     .43449,    .14092,    .12943,    .00613,    .00005,
     +     .00000,    .00267,    .00406,
     +     .41693,    .13464,    .11711,    .00583,    .00012,
     +     .00000,    .00256,    .00382,
     +     .40232,    .12945,    .10749,    .00556,    .00015,
     +     .00000,    .00247,    .00364,
     +     .38879,    .12466,    .09907,    .00533,    .00018,
     +     .00000,    .00237,    .00346,
     +     .37498,    .11979,    .09091,    .00510,    .00021,
     +     .00000,    .00226,    .00329 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36336,    .11573,    .08440,    .00490,    .00023,
     +     .00000,    .00218,    .00315,
     +     .35254,    .11196,    .07862,    .00470,    .00025,
     +     .00000,    .00210,    .00302,
     +     .34419,    .10907,    .07436,    .00455,    .00026,
     +     .00000,    .00205,    .00292,
     +     .32711,    .10319,    .06607,    .00427,    .00028,
     +     .00000,    .00193,    .00271,
     +     .31317,    .09841,    .05972,    .00404,    .00029,
     +     .00002,    .00183,    .00255,
     +     .29841,    .09338,    .05339,    .00380,    .00030,
     +     .00006,    .00173,    .00239,
     +     .28382,    .08845,    .04763,    .00359,    .00031,
     +     .00009,    .00163,    .00221,
     +     .27121,    .08420,    .04303,    .00338,    .00031,
     +     .00010,    .00154,    .00208 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25910,    .08014,    .03893,    .00319,    .00031,
     +     .00012,    .00145,    .00195,
     +     .24951,    .07694,    .03588,    .00304,    .00031,
     +     .00013,    .00138,    .00185,
     +     .23839,    .07325,    .03254,    .00285,    .00030,
     +     .00014,    .00130,    .00173,
     +     .22897,    .07013,    .02992,    .00271,    .00030,
     +     .00014,    .00124,    .00164,
     +     .22073,    .06741,    .02774,    .00258,    .00030,
     +     .00015,    .00119,    .00157,
     +     .21067,    .06411,    .02525,    .00244,    .00029,
     +     .00015,    .00112,    .00147,
     +     .20167,    .06118,    .02316,    .00231,    .00028,
     +     .00015,    .00106,    .00139,
     +     .19364,    .05857,    .02138,    .00220,    .00028,
     +     .00016,    .00101,    .00131 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18593,    .05607,    .01979,    .00208,    .00027,
     +     .00016,    .00096,    .00124,
     +     .17870,    .05375,    .01836,    .00198,    .00026,
     +     .00016,    .00091,    .00118,
     +     .17215,    .05165,    .01713,    .00189,    .00026,
     +     .00016,    .00087,    .00112,
     +     .16619,    .04975,    .01606,    .00181,    .00025,
     +     .00016,    .00083,    .00106,
     +     .16043,    .04792,    .01507,    .00174,    .00025,
     +     .00015,    .00079,    .00100,
     +     .15498,    .04618,    .01417,    .00166,    .00024,
     +     .00015,    .00076,    .00096,
     +     .14999,    .04459,    .01338,    .00159,    .00023,
     +     .00015,    .00074,    .00092,
     +     .14542,    .04314,    .01268,    .00152,    .00023,
     +     .00015,    .00071,    .00088 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14096,    .04174,    .01202,    .00146,    .00022,
     +     .00015,    .00069,    .00084,
     +     .13669,    .04040,    .01141,    .00141,    .00022,
     +     .00014,    .00066,    .00080,
     +     .13273,    .03915,    .01087,    .00136,    .00021,
     +     .00014,    .00063,    .00077,
     +     .12909,    .03801,    .01038,    .00132,    .00021,
     +     .00014,    .00061,    .00074,
     +     .12551,    .03690,    .00991,    .00128,    .00020,
     +     .00014,    .00058,    .00072 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .45245,    .14400,    .14068,    .00543,    .00000,
     +     .00000,    .00226,    .00322,
     +     .43473,    .13780,    .12791,    .00514,    .00000,
     +     .00000,    .00215,    .00307,
     +     .40991,    .12919,    .11115,    .00477,    .00001,
     +     .00000,    .00201,    .00281,
     +     .39288,    .12334,    .10037,    .00454,    .00003,
     +     .00000,    .00192,    .00263,
     +     .37588,    .11752,    .09023,    .00430,    .00008,
     +     .00000,    .00182,    .00247,
     +     .36187,    .11271,    .08236,    .00407,    .00010,
     +     .00000,    .00174,    .00236,
     +     .34888,    .10831,    .07553,    .00388,    .00012,
     +     .00000,    .00166,    .00225,
     +     .33564,    .10385,    .06897,    .00370,    .00014,
     +     .00000,    .00159,    .00213 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32455,    .10011,    .06378,    .00354,    .00015,
     +     .00000,    .00154,    .00203,
     +     .31422,    .09665,    .05919,    .00340,    .00016,
     +     .00000,    .00149,    .00195,
     +     .30625,    .09400,    .05582,    .00330,    .00017,
     +     .00000,    .00144,    .00189,
     +     .29008,    .08864,    .04931,    .00306,    .00018,
     +     .00000,    .00135,    .00176,
     +     .27695,    .08431,    .04437,    .00287,    .00019,
     +     .00002,    .00127,    .00164,
     +     .26307,    .07976,    .03949,    .00269,    .00020,
     +     .00004,    .00120,    .00153,
     +     .24942,    .07531,    .03508,    .00251,    .00020,
     +     .00006,    .00113,    .00143,
     +     .23761,    .07150,    .03159,    .00238,    .00020,
     +     .00007,    .00106,    .00133 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22635,    .06787,    .02848,    .00224,    .00020,
     +     .00008,    .00100,    .00124,
     +     .21749,    .06500,    .02617,    .00212,    .00020,
     +     .00008,    .00095,    .00118,
     +     .20726,    .06171,    .02368,    .00196,    .00020,
     +     .00009,    .00089,    .00111,
     +     .19857,    .05894,    .02173,    .00186,    .00020,
     +     .00009,    .00085,    .00105,
     +     .19098,    .05653,    .02010,    .00177,    .00019,
     +     .00010,    .00081,    .00100,
     +     .18178,    .05364,    .01825,    .00166,    .00019,
     +     .00010,    .00076,    .00092,
     +     .17355,    .05105,    .01671,    .00157,    .00018,
     +     .00010,    .00073,    .00086,
     +     .16621,    .04876,    .01541,    .00150,    .00018,
     +     .00010,    .00070,    .00082 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15921,    .04658,    .01423,    .00142,    .00018,
     +     .00010,    .00066,    .00078,
     +     .15267,    .04455,    .01319,    .00134,    .00017,
     +     .00010,    .00063,    .00074,
     +     .14676,    .04270,    .01229,    .00127,    .00017,
     +     .00010,    .00059,    .00070,
     +     .14139,    .04105,    .01151,    .00122,    .00016,
     +     .00010,    .00056,    .00066,
     +     .13622,    .03947,    .01079,    .00116,    .00016,
     +     .00010,    .00053,    .00063,
     +     .13131,    .03796,    .01013,    .00111,    .00015,
     +     .00010,    .00051,    .00060,
     +     .12684,    .03659,    .00956,    .00106,    .00015,
     +     .00010,    .00049,    .00058,
     +     .12276,    .03534,    .00905,    .00102,    .00015,
     +     .00010,    .00048,    .00056 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11878,    .03413,    .00857,    .00098,    .00014,
     +     .00010,    .00046,    .00053,
     +     .11499,    .03298,    .00813,    .00094,    .00014,
     +     .00009,    .00045,    .00050,
     +     .11149,    .03192,    .00774,    .00090,    .00014,
     +     .00009,    .00042,    .00048,
     +     .10828,    .03095,    .00739,    .00086,    .00013,
     +     .00009,    .00041,    .00046,
     +     .10512,    .02999,    .00705,    .00084,    .00013,
     +     .00009,    .00039,    .00044 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .40867,    .12593,    .10912,    .00400,    .00000,
     +     .00000,    .00158,    .00206,
     +     .39160,    .12018,    .09854,    .00375,    .00000,
     +     .00000,    .00151,    .00196,
     +     .36777,    .11220,    .08482,    .00344,    .00000,
     +     .00000,    .00140,    .00182,
     +     .35149,    .10682,    .07611,    .00325,    .00002,
     +     .00000,    .00133,    .00171,
     +     .33531,    .10150,    .06801,    .00306,    .00005,
     +     .00000,    .00127,    .00159,
     +     .32196,    .09712,    .06177,    .00288,    .00007,
     +     .00000,    .00123,    .00151,
     +     .30967,    .09311,    .05640,    .00273,    .00008,
     +     .00000,    .00118,    .00144,
     +     .29718,    .08905,    .05127,    .00259,    .00009,
     +     .00000,    .00112,    .00138 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .28673,    .08567,    .04724,    .00247,    .00010,
     +     .00000,    .00108,    .00130,
     +     .27703,    .08255,    .04370,    .00236,    .00011,
     +     .00000,    .00104,    .00124,
     +     .26959,    .08017,    .04111,    .00227,    .00011,
     +     .00000,    .00100,    .00120,
     +     .25447,    .07534,    .03614,    .00212,    .00012,
     +     .00000,    .00093,    .00112,
     +     .24224,    .07145,    .03239,    .00198,    .00012,
     +     .00001,    .00089,    .00106,
     +     .22942,    .06737,    .02872,    .00182,    .00013,
     +     .00003,    .00085,    .00099,
     +     .21680,    .06342,    .02541,    .00169,    .00013,
     +     .00004,    .00078,    .00091,
     +     .20595,    .06004,    .02282,    .00161,    .00013,
     +     .00004,    .00074,    .00083 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19561,    .05683,    .02052,    .00151,    .00013,
     +     .00005,    .00070,    .00078,
     +     .18748,    .05431,    .01883,    .00143,    .00013,
     +     .00006,    .00066,    .00075,
     +     .17811,    .05141,    .01700,    .00132,    .00013,
     +     .00006,    .00062,    .00071,
     +     .17022,    .04899,    .01557,    .00125,    .00013,
     +     .00006,    .00059,    .00067,
     +     .16335,    .04688,    .01438,    .00119,    .00012,
     +     .00006,    .00057,    .00064,
     +     .15503,    .04436,    .01304,    .00111,    .00012,
     +     .00007,    .00053,    .00059,
     +     .14762,    .04212,    .01192,    .00105,    .00012,
     +     .00007,    .00050,    .00055,
     +     .14104,    .04014,    .01098,    .00099,    .00011,
     +     .00007,    .00047,    .00051 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13480,    .03824,    .01013,    .00092,    .00011,
     +     .00007,    .00044,    .00049,
     +     .12898,    .03648,    .00937,    .00086,    .00011,
     +     .00007,    .00042,    .00047,
     +     .12371,    .03490,    .00872,    .00082,    .00011,
     +     .00007,    .00040,    .00045,
     +     .11893,    .03348,    .00817,    .00078,    .00010,
     +     .00007,    .00038,    .00042,
     +     .11434,    .03213,    .00765,    .00075,    .00010,
     +     .00007,    .00037,    .00040,
     +     .11000,    .03085,    .00718,    .00072,    .00010,
     +     .00006,    .00035,    .00037,
     +     .10606,    .02968,    .00677,    .00068,    .00010,
     +     .00006,    .00033,    .00035,
     +     .10246,    .02862,    .00641,    .00065,    .00009,
     +     .00006,    .00032,    .00033 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09897,    .02758,    .00606,    .00061,    .00009,
     +     .00006,    .00030,    .00033,
     +     .09565,    .02661,    .00575,    .00058,    .00009,
     +     .00006,    .00029,    .00032,
     +     .09257,    .02571,    .00546,    .00057,    .00009,
     +     .00006,    .00028,    .00030,
     +     .08976,    .02489,    .00521,    .00056,    .00008,
     +     .00006,    .00028,    .00028,
     +     .08701,    .02408,    .00497,    .00053,    .00008,
     +     .00006,    .00027,    .00028 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .36506,    .10907,    .08271,    .00298,    .00000,
     +     .00000,    .00105,    .00124,
     +     .34884,    .10383,    .07425,    .00280,    .00000,
     +     .00000,    .00098,    .00119,
     +     .32633,    .09659,    .06341,    .00255,    .00000,
     +     .00000,    .00091,    .00109,
     +     .31103,    .09170,    .05662,    .00240,    .00001,
     +     .00000,    .00087,    .00102,
     +     .29585,    .08690,    .05033,    .00225,    .00003,
     +     .00000,    .00083,    .00096,
     +     .28337,    .08295,    .04553,    .00212,    .00004,
     +     .00000,    .00078,    .00090,
     +     .27189,    .07934,    .04142,    .00202,    .00005,
     +     .00000,    .00074,    .00085,
     +     .26027,    .07571,    .03751,    .00191,    .00006,
     +     .00000,    .00070,    .00081 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25060,    .07270,    .03446,    .00181,    .00006,
     +     .00000,    .00068,    .00077,
     +     .24164,    .06993,    .03179,    .00173,    .00007,
     +     .00000,    .00065,    .00073,
     +     .23477,    .06781,    .02986,    .00167,    .00007,
     +     .00000,    .00063,    .00069,
     +     .22087,    .06353,    .02616,    .00155,    .00008,
     +     .00000,    .00058,    .00064,
     +     .20966,    .06010,    .02339,    .00144,    .00008,
     +     .00001,    .00054,    .00061,
     +     .19792,    .05651,    .02067,    .00135,    .00008,
     +     .00002,    .00050,    .00055,
     +     .18645,    .05303,    .01825,    .00125,    .00008,
     +     .00002,    .00048,    .00052,
     +     .17662,    .05005,    .01636,    .00117,    .00008,
     +     .00003,    .00045,    .00049 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16729,    .04725,    .01468,    .00108,    .00008,
     +     .00003,    .00042,    .00045,
     +     .15998,    .04507,    .01345,    .00102,    .00008,
     +     .00004,    .00039,    .00043,
     +     .15158,    .04254,    .01213,    .00093,    .00008,
     +     .00004,    .00037,    .00040,
     +     .14452,    .04044,    .01110,    .00088,    .00008,
     +     .00004,    .00034,    .00038,
     +     .13837,    .03863,    .01024,    .00084,    .00008,
     +     .00004,    .00032,    .00036,
     +     .13093,    .03646,    .00928,    .00081,    .00008,
     +     .00004,    .00030,    .00032,
     +     .12437,    .03453,    .00847,    .00075,    .00007,
     +     .00004,    .00029,    .00031,
     +     .11857,    .03282,    .00780,    .00070,    .00007,
     +     .00004,    .00027,    .00030 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11305,    .03120,    .00719,    .00066,    .00007,
     +     .00004,    .00026,    .00027,
     +     .10790,    .02971,    .00665,    .00062,    .00007,
     +     .00004,    .00025,    .00025,
     +     .10325,    .02837,    .00619,    .00060,    .00007,
     +     .00004,    .00023,    .00024,
     +     .09906,    .02717,    .00579,    .00057,    .00007,
     +     .00004,    .00022,    .00023,
     +     .09506,    .02602,    .00542,    .00055,    .00006,
     +     .00004,    .00020,    .00022,
     +     .09128,    .02493,    .00508,    .00052,    .00006,
     +     .00004,    .00019,    .00020,
     +     .08785,    .02394,    .00479,    .00049,    .00006,
     +     .00004,    .00019,    .00020,
     +     .08472,    .02305,    .00453,    .00047,    .00006,
     +     .00004,    .00018,    .00018 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08168,    .02218,    .00428,    .00046,    .00006,
     +     .00004,    .00017,    .00017,
     +     .07880,    .02136,    .00406,    .00044,    .00006,
     +     .00004,    .00016,    .00017,
     +     .07616,    .02061,    .00386,    .00042,    .00005,
     +     .00004,    .00015,    .00016,
     +     .07374,    .01992,    .00368,    .00040,    .00005,
     +     .00004,    .00015,    .00016,
     +     .07137,    .01925,    .00350,    .00038,    .00005,
     +     .00004,    .00014,    .00015 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .32219,    .09310,    .06090,    .00199,    .00000,
     +     .00000,    .00075,    .00080,
     +     .30700,    .08840,    .05436,    .00186,    .00000,
     +     .00000,    .00071,    .00075,
     +     .28601,    .08193,    .04609,    .00169,    .00000,
     +     .00000,    .00064,    .00069,
     +     .27182,    .07757,    .04096,    .00158,    .00001,
     +     .00000,    .00060,    .00065,
     +     .25778,    .07328,    .03625,    .00148,    .00002,
     +     .00000,    .00057,    .00061,
     +     .24627,    .06979,    .03268,    .00139,    .00003,
     +     .00000,    .00054,    .00058,
     +     .23572,    .06663,    .02963,    .00132,    .00003,
     +     .00000,    .00051,    .00054,
     +     .22507,    .06344,    .02675,    .00125,    .00004,
     +     .00000,    .00048,    .00050 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .21626,    .06079,    .02452,    .00118,    .00004,
     +     .00000,    .00046,    .00047,
     +     .20810,    .05834,    .02258,    .00112,    .00004,
     +     .00000,    .00044,    .00045,
     +     .20184,    .05647,    .02116,    .00108,    .00004,
     +     .00000,    .00042,    .00044,
     +     .18923,    .05273,    .01848,    .00099,    .00005,
     +     .00000,    .00039,    .00042,
     +     .17909,    .04974,    .01648,    .00093,    .00005,
     +     .00000,    .00037,    .00038,
     +     .16850,    .04663,    .01454,    .00089,    .00005,
     +     .00001,    .00035,    .00034,
     +     .15822,    .04362,    .01282,    .00082,    .00005,
     +     .00002,    .00032,    .00032,
     +     .14943,    .04107,    .01147,    .00077,    .00005,
     +     .00002,    .00029,    .00030 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .14113,    .03866,    .01029,    .00070,    .00005,
     +     .00002,    .00027,    .00027,
     +     .13465,    .03679,    .00942,    .00065,    .00005,
     +     .00002,    .00026,    .00025,
     +     .12720,    .03464,    .00848,    .00060,    .00005,
     +     .00002,    .00023,    .00025,
     +     .12096,    .03285,    .00775,    .00056,    .00005,
     +     .00003,    .00022,    .00024,
     +     .11556,    .03130,    .00715,    .00053,    .00005,
     +     .00003,    .00021,    .00022,
     +     .10904,    .02945,    .00647,    .00051,    .00005,
     +     .00003,    .00020,    .00019,
     +     .10329,    .02782,    .00591,    .00048,    .00005,
     +     .00003,    .00018,    .00018,
     +     .09822,    .02639,    .00543,    .00045,    .00004,
     +     .00003,    .00017,    .00017 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09339,    .02503,    .00501,    .00043,    .00004,
     +     .00003,    .00016,    .00016,
     +     .08894,    .02377,    .00463,    .00040,    .00004,
     +     .00003,    .00016,    .00015,
     +     .08495,    .02265,    .00430,    .00038,    .00004,
     +     .00003,    .00015,    .00014,
     +     .08134,    .02164,    .00403,    .00036,    .00004,
     +     .00003,    .00014,    .00013,
     +     .07789,    .02068,    .00377,    .00034,    .00004,
     +     .00003,    .00013,    .00012,
     +     .07463,    .01978,    .00353,    .00032,    .00004,
     +     .00003,    .00012,    .00012,
     +     .07168,    .01897,    .00332,    .00030,    .00004,
     +     .00003,    .00012,    .00011,
     +     .06900,    .01823,    .00314,    .00029,    .00004,
     +     .00003,    .00011,    .00011 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06641,    .01751,    .00297,    .00027,    .00003,
     +     .00003,    .00010,    .00011,
     +     .06396,    .01683,    .00281,    .00026,    .00003,
     +     .00002,    .00010,    .00010,
     +     .06170,    .01621,    .00267,    .00025,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05965,    .01565,    .00255,    .00024,    .00003,
     +     .00002,    .00009,    .00009,
     +     .05764,    .01509,    .00243,    .00023,    .00003,
     +     .00002,    .00009,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .28081,    .07855,    .04359,    .00130,    .00000,
     +     .00000,    .00051,    .00050,
     +     .26682,    .07438,    .03874,    .00123,    .00000,
     +     .00000,    .00048,    .00047,
     +     .24755,    .06867,    .03264,    .00112,    .00000,
     +     .00000,    .00044,    .00041,
     +     .23457,    .06484,    .02888,    .00103,    .00001,
     +     .00000,    .00041,    .00039,
     +     .22178,    .06108,    .02546,    .00095,    .00001,
     +     .00000,    .00038,    .00037,
     +     .21132,    .05801,    .02288,    .00090,    .00002,
     +     .00000,    .00035,    .00035,
     +     .20178,    .05524,    .02070,    .00085,    .00002,
     +     .00000,    .00033,    .00034,
     +     .19217,    .05245,    .01865,    .00079,    .00002,
     +     .00000,    .00032,    .00032 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18421,    .05016,    .01706,    .00075,    .00002,
     +     .00000,    .00030,    .00030,
     +     .17687,    .04806,    .01567,    .00071,    .00002,
     +     .00000,    .00029,    .00028,
     +     .17127,    .04645,    .01467,    .00069,    .00003,
     +     .00000,    .00028,    .00026,
     +     .16000,    .04322,    .01279,    .00064,    .00003,
     +     .00000,    .00026,    .00024,
     +     .15099,    .04064,    .01139,    .00060,    .00003,
     +     .00000,    .00024,    .00023,
     +     .14161,    .03798,    .01004,    .00055,    .00003,
     +     .00001,    .00022,    .00023,
     +     .13249,    .03542,    .00884,    .00052,    .00003,
     +     .00001,    .00021,    .00019,
     +     .12480,    .03324,    .00791,    .00045,    .00003,
     +     .00001,    .00019,    .00019 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11751,    .03119,    .00709,    .00041,    .00003,
     +     .00001,    .00017,    .00018,
     +     .11182,    .02961,    .00648,    .00038,    .00003,
     +     .00001,    .00016,    .00018,
     +     .10529,    .02781,    .00584,    .00036,    .00003,
     +     .00002,    .00016,    .00015,
     +     .09988,    .02630,    .00533,    .00034,    .00003,
     +     .00002,    .00015,    .00014,
     +     .09520,    .02500,    .00492,    .00032,    .00003,
     +     .00002,    .00014,    .00013,
     +     .08958,    .02346,    .00445,    .00030,    .00003,
     +     .00002,    .00013,    .00012,
     +     .08462,    .02210,    .00406,    .00028,    .00003,
     +     .00002,    .00012,    .00011,
     +     .08026,    .02091,    .00373,    .00027,    .00003,
     +     .00002,    .00012,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07613,    .01978,    .00344,    .00025,    .00003,
     +     .00002,    .00011,    .00010,
     +     .07232,    .01874,    .00318,    .00023,    .00003,
     +     .00002,    .00010,    .00009,
     +     .06889,    .01782,    .00296,    .00022,    .00002,
     +     .00002,    .00009,    .00009,
     +     .06582,    .01699,    .00276,    .00022,    .00002,
     +     .00002,    .00009,    .00008,
     +     .06289,    .01620,    .00258,    .00021,    .00002,
     +     .00002,    .00009,    .00007,
     +     .06014,    .01546,    .00242,    .00020,    .00002,
     +     .00002,    .00008,    .00007,
     +     .05766,    .01480,    .00228,    .00018,    .00002,
     +     .00002,    .00008,    .00007,
     +     .05540,    .01419,    .00215,    .00017,    .00002,
     +     .00002,    .00007,    .00006 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05321,    .01361,    .00203,    .00017,    .00002,
     +     .00002,    .00007,    .00006,
     +     .05115,    .01306,    .00192,    .00016,    .00002,
     +     .00002,    .00006,    .00005,
     +     .04926,    .01256,    .00183,    .00015,    .00002,
     +     .00002,    .00006,    .00005,
     +     .04754,    .01211,    .00174,    .00015,    .00002,
     +     .00001,    .00006,    .00005,
     +     .04586,    .01166,    .00166,    .00014,    .00002,
     +     .00001,    .00005,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .24163,    .06554,    .03039,    .00090,    .00000,
     +     .00000,    .00030,    .00029,
     +     .22895,    .06189,    .02689,    .00083,    .00000,
     +     .00000,    .00028,    .00026,
     +     .21155,    .05689,    .02255,    .00075,    .00000,
     +     .00000,    .00025,    .00023,
     +     .19986,    .05356,    .01990,    .00069,    .00000,
     +     .00000,    .00023,    .00022,
     +     .18838,    .05031,    .01749,    .00065,    .00001,
     +     .00000,    .00022,    .00021,
     +     .17900,    .04767,    .01570,    .00062,    .00001,
     +     .00000,    .00020,    .00019,
     +     .17050,    .04529,    .01418,    .00058,    .00001,
     +     .00000,    .00019,    .00018,
     +     .16198,    .04291,    .01275,    .00054,    .00001,
     +     .00000,    .00019,    .00016 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15491,    .04094,    .01165,    .00052,    .00001,
     +     .00000,    .00018,    .00015,
     +     .14841,    .03913,    .01069,    .00049,    .00001,
     +     .00000,    .00017,    .00015,
     +     .14349,    .03775,    .01001,    .00047,    .00002,
     +     .00000,    .00015,    .00015,
     +     .13358,    .03501,    .00872,    .00043,    .00002,
     +     .00000,    .00014,    .00014,
     +     .12567,    .03284,    .00776,    .00040,    .00002,
     +     .00000,    .00013,    .00013,
     +     .11748,    .03059,    .00684,    .00035,    .00002,
     +     .00000,    .00012,    .00012,
     +     .10955,    .02843,    .00602,    .00034,    .00002,
     +     .00001,    .00012,    .00011,
     +     .10287,    .02660,    .00538,    .00030,    .00002,
     +     .00001,    .00011,    .00010 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09657,    .02489,    .00483,    .00028,    .00002,
     +     .00001,    .00010,    .00009,
     +     .09166,    .02357,    .00442,    .00027,    .00002,
     +     .00001,    .00009,    .00009,
     +     .08607,    .02207,    .00398,    .00024,    .00002,
     +     .00001,    .00008,    .00008,
     +     .08142,    .02083,    .00364,    .00023,    .00002,
     +     .00001,    .00008,    .00008,
     +     .07742,    .01976,    .00336,    .00023,    .00002,
     +     .00001,    .00007,    .00007,
     +     .07263,    .01848,    .00304,    .00020,    .00002,
     +     .00001,    .00007,    .00006,
     +     .06844,    .01737,    .00277,    .00018,    .00002,
     +     .00001,    .00006,    .00006,
     +     .06475,    .01639,    .00255,    .00016,    .00002,
     +     .00001,    .00005,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06125,    .01547,    .00235,    .00017,    .00002,
     +     .00001,    .00005,    .00005,
     +     .05802,    .01463,    .00217,    .00016,    .00002,
     +     .00001,    .00005,    .00004,
     +     .05515,    .01388,    .00201,    .00016,    .00001,
     +     .00001,    .00005,    .00004,
     +     .05258,    .01320,    .00188,    .00015,    .00001,
     +     .00001,    .00005,    .00004,
     +     .05014,    .01256,    .00176,    .00014,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04785,    .01196,    .00165,    .00013,    .00001,
     +     .00001,    .00004,    .00003,
     +     .04579,    .01142,    .00155,    .00012,    .00001,
     +     .00001,    .00004,    .00003,
     +     .04391,    .01094,    .00146,    .00011,    .00001,
     +     .00001,    .00004,    .00003 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04211,    .01047,    .00138,    .00010,    .00001,
     +     .00001,    .00004,    .00003,
     +     .04041,    .01003,    .00131,    .00010,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03885,    .00963,    .00124,    .00010,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03743,    .00927,    .00118,    .00009,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03605,    .00891,    .00112,    .00009,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .20472,    .05367,    .02041,    .00052,    .00000,
     +     .00000,    .00022,    .00020,
     +     .19339,    .05053,    .01802,    .00048,    .00000,
     +     .00000,    .00021,    .00018,
     +     .17791,    .04629,    .01505,    .00043,    .00000,
     +     .00000,    .00018,    .00015,
     +     .16757,    .04345,    .01325,    .00040,    .00000,
     +     .00000,    .00017,    .00014,
     +     .15745,    .04068,    .01163,    .00036,    .00000,
     +     .00000,    .00016,    .00013,
     +     .14923,    .03845,    .01043,    .00034,    .00001,
     +     .00000,    .00014,    .00012,
     +     .14178,    .03643,    .00941,    .00032,    .00001,
     +     .00000,    .00014,    .00011,
     +     .13432,    .03442,    .00846,    .00030,    .00001,
     +     .00000,    .00014,    .00010 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .12816,    .03277,    .00773,    .00028,    .00001,
     +     .00000,    .00013,    .00009,
     +     .12251,    .03125,    .00709,    .00027,    .00001,
     +     .00000,    .00012,    .00009,
     +     .11821,    .03011,    .00664,    .00026,    .00001,
     +     .00000,    .00011,    .00009,
     +     .10965,    .02782,    .00578,    .00023,    .00001,
     +     .00000,    .00009,    .00009,
     +     .10284,    .02601,    .00515,    .00021,    .00001,
     +     .00000,    .00009,    .00008,
     +     .09579,    .02415,    .00454,    .00020,    .00001,
     +     .00000,    .00008,    .00007,
     +     .08902,    .02236,    .00400,    .00019,    .00001,
     +     .00000,    .00008,    .00006,
     +     .08331,    .02086,    .00358,    .00016,    .00001,
     +     .00000,    .00007,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07795,    .01947,    .00321,    .00015,    .00001,
     +     .00000,    .00007,    .00005,
     +     .07380,    .01839,    .00294,    .00015,    .00001,
     +     .00001,    .00007,    .00005,
     +     .06910,    .01716,    .00265,    .00013,    .00001,
     +     .00001,    .00006,    .00005,
     +     .06519,    .01615,    .00243,    .00012,    .00001,
     +     .00001,    .00005,    .00005,
     +     .06182,    .01528,    .00224,    .00012,    .00001,
     +     .00001,    .00005,    .00005,
     +     .05780,    .01425,    .00203,    .00012,    .00001,
     +     .00001,    .00005,    .00004,
     +     .05429,    .01335,    .00185,    .00011,    .00001,
     +     .00001,    .00004,    .00004,
     +     .05123,    .01257,    .00170,    .00010,    .00001,
     +     .00001,    .00004,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04835,    .01183,    .00157,    .00009,    .00001,
     +     .00001,    .00004,    .00003,
     +     .04570,    .01116,    .00145,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04333,    .01056,    .00134,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .04122,    .01003,    .00125,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03922,    .00952,    .00117,    .00006,    .00001,
     +     .00001,    .00003,    .00002,
     +     .03734,    .00905,    .00110,    .00006,    .00001,
     +     .00001,    .00003,    .00002,
     +     .03565,    .00862,    .00103,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03412,    .00824,    .00097,    .00005,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03265,    .00787,    .00092,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .03127,    .00753,    .00087,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .03002,    .00721,    .00082,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02888,    .00693,    .00078,    .00004,    .00001,
     +     .00001,    .00002,    .00001,
     +     .02776,    .00665,    .00074,    .00004,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .14007,    .03440,    .00832,    .00020,    .00000,
     +     .00000,    .00007,    .00005,
     +     .13148,    .03220,    .00733,    .00018,    .00000,
     +     .00000,    .00006,    .00005,
     +     .11985,    .02922,    .00612,    .00016,    .00000,
     +     .00000,    .00005,    .00005,
     +     .11215,    .02726,    .00539,    .00015,    .00000,
     +     .00000,    .00005,    .00005,
     +     .10468,    .02536,    .00474,    .00013,    .00000,
     +     .00000,    .00004,    .00004,
     +     .09866,    .02383,    .00425,    .00012,    .00000,
     +     .00000,    .00004,    .00004,
     +     .09322,    .02246,    .00385,    .00011,    .00000,
     +     .00000,    .00004,    .00004,
     +     .08780,    .02110,    .00347,    .00011,    .00000,
     +     .00000,    .00004,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08336,    .01999,    .00318,    .00010,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07931,    .01898,    .00292,    .00010,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07625,    .01822,    .00274,    .00009,    .00000,
     +     .00000,    .00003,    .00003,
     +     .07018,    .01671,    .00240,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .06539,    .01552,    .00214,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .06049,    .01431,    .00190,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05579,    .01315,    .00168,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05187,    .01219,    .00151,    .00005,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04821,    .01130,    .00136,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04539,    .01061,    .00125,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04222,    .00984,    .00113,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03960,    .00921,    .00103,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03736,    .00867,    .00095,    .00004,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03472,    .00804,    .00086,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .03242,    .00749,    .00079,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03041,    .00701,    .00072,    .00003,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02853,    .00656,    .00066,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02683,    .00615,    .00061,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02532,    .00580,    .00057,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02397,    .00548,    .00053,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02269,    .00518,    .00050,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02151,    .00490,    .00046,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02044,    .00465,    .00043,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01948,    .00442,    .00041,    .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)/
     +     .01857,    .00421,    .00038,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01771,    .00401,    .00036,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01693,    .00383,    .00034,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01623,    .00366,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01555,    .00350,    .00031,    .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)/
     +     .08837,    .02025,    .00285,    .00006,    .00000,
     +     .00000,    .00002,    .00001,
     +     .08240,    .01883,    .00253,    .00006,    .00000,
     +     .00000,    .00001,    .00002,
     +     .07437,    .01693,    .00214,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06910,    .01568,    .00191,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06403,    .01449,    .00169,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05997,    .01353,    .00154,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05633,    .01268,    .00140,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05274,    .01184,    .00127,    .00004,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .04982,    .01116,    .00117,    .00003,    .00000,
     +     .00000,    .00001,    .00000,
     +     .04717,    .01054,    .00109,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .04517,    .01008,    .00102,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04121,    .00917,    .00090,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03812,    .00846,    .00081,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03498,    .00774,    .00073,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03202,    .00706,    .00065,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02955,    .00650,    .00058,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02726,    .00598,    .00053,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02551,    .00558,    .00048,    .00002,    .00000,
     +     .00000,    .00001,    .00000,
     +     .02356,    .00514,    .00044,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02196,    .00478,    .00040,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02061,    .00448,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01902,    .00412,    .00034,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01764,    .00381,    .00031,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01645,    .00355,    .00028,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01534,    .00330,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01433,    .00308,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01345,    .00289,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01267,    .00271,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01193,    .00255,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01125,    .00240,    .00018,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01065,    .00227,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01011,    .00215,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00959,    .00204,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00911,    .00193,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00867,    .00184,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00828,    .00175,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00790,    .00167,    .00012,    .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)/
     +     .05011,    .01065,    .00079,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04637,    .00983,    .00072,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04139,    .00874,    .00063,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03816,    .00804,    .00058,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03508,    .00737,    .00052,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03264,    .00684,    .00048,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03046,    .00637,    .00045,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02831,    .00590,    .00041,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02658,    .00553,    .00038,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02502,    .00520,    .00036,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02385,    .00495,    .00034,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02156,    .00446,    .00030,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01978,    .00408,    .00028,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01800,    .00370,    .00025,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01632,    .00334,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01494,    .00305,    .00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01368,    .00279,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01272,    .00259,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01165,    .00236,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01079,    .00218,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01006,    .00203,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00920,    .00186,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00847,    .00171,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00785,    .00158,    .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)/
     +     .00727,    .00146,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00675,    .00135,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00629,    .00126,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00589,    .00118,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00552,    .00110,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00518,    .00103,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00487,    .00097,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00460,    .00091,    .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)/
     +     .00434,    .00086,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00410,    .00081,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00389,    .00077,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00370,    .00073,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00351,    .00069,    .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)/
     +     .02434,    .00474,    .00016,   -.00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02232,    .00434,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01967,    .00381,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01798,    .00348,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01637,    .00316,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01511,    .00291,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01399,    .00269,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01290,    .00247,    .00011,    .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)/
     +     .01203,    .00230,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01125,    .00215,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01067,    .00203,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00954,    .00181,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00867,    .00164,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00780,    .00148,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00701,    .00132,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00635,    .00119,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00576,    .00108,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00531,    .00100,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00482,    .00090,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00443,    .00083,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00410,    .00076,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00372,    .00069,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00339,    .00063,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00311,    .00058,    .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)/
     +     .00286,    .00053,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00264,    .00049,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00244,    .00045,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00227,    .00042,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00211,    .00039,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00036,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00184,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00173,    .00032,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00162,    .00030,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00152,    .00028,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00144,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00136,    .00025,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00128,    .00023,    .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)/
     +     .00235,    .00036,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00210,    .00032,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00178,    .00028,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00159,    .00024,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00141,    .00022,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00127,    .00019,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00115,    .00018,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00103,    .00016,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00094,    .00014,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00087,    .00013,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00081,    .00012,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00070,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00062,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00054,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00006,    .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,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00033,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00021,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00015,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor04.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