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

sfmrs_99a1.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a1(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)/
     +     .00524,    .00225,   1.11506,    .89493,    .00000,
     +     .00000,    .47698,    .90723,
     +     .00541,    .00231,   2.38590,    .92969,    .00000,
     +     .00000,    .51714,    .94206,
     +     .00565,    .00241,   4.88907,   1.00604,    .00000,
     +     .00000,    .60116,   1.01848,
     +     .00582,    .00249,   7.22921,   1.07992,    .04540,
     +     .00000,    .68038,   1.09240,
     +     .00601,    .00257,  10.05454,   1.17558,    .15607,
     +     .00000,    .78143,   1.18810,
     +     .00617,    .00264,  12.96999,   1.27431,    .26204,
     +     .00000,    .88469,   1.28686,
     +     .00632,    .00271,  16.24256,   1.38169,    .37896,
     +     .00000,    .99630,   1.39425,
     +     .00648,    .00279,  20.25833,   1.51018,    .52072,
     +     .00000,   1.12918,   1.52276 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00663,    .00285,  24.17154,   1.63626,    .65342,
     +     .00000,   1.25898,   1.64885,
     +     .00677,    .00292,  28.37309,   1.77018,    .79473,
     +     .00000,   1.39642,   1.78277,
     +     .00688,    .00297,  32.05386,   1.88479,    .91806,
     +     .00000,   1.51378,   1.89739,
     +     .00712,    .00308,  40.57678,   2.15780,   1.20546,
     +     .02267,   1.79246,   2.17038,
     +     .00732,    .00318,  48.59637,   2.42216,   1.48124,
     +     .34670,   2.06154,   2.43474,
     +     .00756,    .00329,  58.72424,   2.75322,   1.82687,
     +     .74566,   2.39774,   2.76578,
     +     .00780,    .00341,  70.64512,   3.13805,   2.22777,
     +    1.16490,   2.78777,   3.15059,
     +     .00803,    .00352,  82.70337,   3.52427,   2.62945,
     +    1.58515,   3.17857,   3.53678 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00826,    .00363,  96.13674,   3.95217,   3.07424,
     +    2.04861,   3.61097,   3.96464,
     +     .00845,    .00373, 108.22498,   4.33707,   3.47236,
     +    2.45875,   3.99953,   4.34952,
     +     .00868,    .00384, 124.03619,   4.84098,   3.99178,
     +    2.99176,   4.50776,   4.85338,
     +     .00889,    .00395, 139.18419,   5.32279,   4.48912,
     +    3.50445,   4.99331,   5.33516,
     +     .00909,    .00405, 154.05588,   5.79562,   4.97733,
     +    4.00806,   5.46949,   5.80795,
     +     .00934,    .00417, 174.06389,   6.43642,   5.63487,
     +    4.67983,   6.11445,   6.44869,
     +     .00957,    .00429, 194.26250,   7.08449,   6.30038,
     +    5.36157,   6.76634,   7.09671,
     +     .00979,    .00440, 214.49954,   7.73436,   6.96890,
     +    6.04877,   7.41971,   7.74654 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01002,    .00452, 235.61795,   8.42041,   7.66995,
     +    6.76232,   8.10918,   8.43253,
     +     .01024,    .00463, 257.51987,   9.13340,   8.39997,
     +    7.50835,   8.82546,   9.14547,
     +     .01045,    .00474, 279.30908,   9.84618,   9.12950,
     +    8.25376,   9.54127,   9.85820,
     +     .01065,    .00485, 300.58109,  10.54850,   9.84609,
     +    8.98311,  10.24641,  10.56047,
     +     .01086,    .00495, 323.06851,  11.29186,  10.60634,
     +    9.75990,  10.99256,  11.30378,
     +     .01106,    .00506, 345.73138,  12.05027,  11.37863,
     +   10.54443,  11.75365,  12.06214,
     +     .01125,    .00516, 368.37045,  12.80813,  12.15266,
     +   11.33434,  12.51403,  12.81995,
     +     .01144,    .00526, 390.15836,  13.54674,  12.90393,
     +   12.09689,  13.25498,  13.55851 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01163,    .00535, 413.07993,  14.32502,  13.69711,
     +   12.90452,  14.03559,  14.33675,
     +     .01181,    .00545, 436.19202,  15.11717,  14.50283,
     +   13.72296,  14.83000,  15.12885,
     +     .01199,    .00555, 458.91577,  15.90018,  15.29923,
     +   14.53211,  15.61514,  15.91181,
     +     .01217,    .00564, 481.15063,  16.66948,  16.08218,
     +   15.32855,  16.38643,  16.68107,
     +     .01234,    .00573, 503.88220,  17.46486,  16.88946,
     +   16.14685,  17.18380,  17.47640 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00708,    .00307,   1.04010,    .75796,    .00000,
     +     .00000,    .40343,    .76509,
     +     .00730,    .00317,   2.18514,    .79029,    .00000,
     +     .00000,    .43998,    .79745,
     +     .00764,    .00332,   4.39204,    .85794,    .00000,
     +     .00000,    .51361,    .86514,
     +     .00788,    .00343,   6.41411,    .92169,    .03864,
     +     .00000,    .58152,    .92892,
     +     .00814,    .00355,   8.81459,   1.00278,    .13234,
     +     .00000,    .66680,   1.01002,
     +     .00836,    .00365,  11.25594,   1.08535,    .22093,
     +     .00000,    .75288,   1.09260,
     +     .00857,    .00375,  13.96357,   1.17435,    .31773,
     +     .00000,    .84516,   1.18161,
     +     .00880,    .00386,  17.24720,   1.27997,    .43405,
     +     .00000,    .95419,   1.28724 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00900,    .00396,  20.41059,   1.38269,    .54195,
     +     .00000,   1.05979,   1.38997,
     +     .00920,    .00405,  23.77440,   1.49104,    .65602,
     +     .00000,   1.17086,   1.49832,
     +     .00935,    .00413,  26.69822,   1.58330,    .75501,
     +     .00000,   1.26524,   1.59058,
     +     .00968,    .00429,  33.38880,   1.80119,    .98367,
     +     .01852,   1.48752,   1.80847,
     +     .00996,    .00443,  39.59502,   2.01019,   1.20092,
     +     .27321,   1.70017,   2.01747,
     +     .01029,    .00459,  47.33607,   2.26962,   1.47069,
     +     .58488,   1.96356,   2.27689,
     +     .01062,    .00476,  56.33195,   2.56834,   1.78058,
     +     .90858,   2.26629,   2.57560,
     +     .01093,    .00492,  65.32306,   2.86549,   2.08828,
     +    1.23005,   2.56697,   2.87274 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01125,    .00508,  75.22949,   3.19201,   2.42616,
     +    1.58152,   2.89696,   3.19924,
     +     .01151,    .00521,  84.05536,   3.48349,   2.72628,
     +    1.89007,   3.19125,   3.49072,
     +     .01183,    .00537,  95.48708,   3.86225,   3.11488,
     +    2.28796,   3.57334,   3.86946,
     +     .01211,    .00552, 106.33576,   4.22177,   3.48429,
     +    2.66794,   3.93573,   4.22896,
     +     .01238,    .00566, 116.89809,   4.57231,   3.84459,
     +    3.03877,   4.28885,   4.57948,
     +     .01272,    .00583, 130.97528,   5.04391,   4.32628,
     +    3.52964,   4.76365,   5.05105,
     +     .01304,    .00600, 145.05449,   5.51737,   4.81032,
     +    4.02426,   5.24005,   5.52450,
     +     .01334,    .00616, 159.04265,   5.98901,   5.29341,
     +    4.51967,   5.71438,   5.99611 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01364,    .00632, 173.51149,   6.48345,   5.79642,
     +    5.03027,   6.21146,   6.49053,
     +     .01394,    .00648, 188.40297,   6.99418,   6.31713,
     +    5.56104,   6.72471,   7.00124,
     +     .01423,    .00663, 203.10829,   7.50173,   6.83447,
     +    6.08832,   7.23460,   7.50876,
     +     .01450,    .00677, 217.35930,   7.99892,   7.33967,
     +    6.60114,   7.73397,   8.00593,
     +     .01478,    .00692, 232.33276,   8.52255,   7.87311,
     +    7.14485,   8.25973,   8.52954,
     +     .01505,    .00706, 247.31387,   9.05373,   8.41185,
     +    7.69065,   8.79299,   9.06070,
     +     .01531,    .00720, 262.19824,   9.58213,   8.94952,
     +    8.23802,   9.32332,   9.58908,
     +     .01556,    .00733, 276.42767,  10.09444,   9.46858,
     +    8.76348,   9.83744,  10.10137 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01581,    .00747, 291.32401,  10.63204,  10.01450,
     +    9.31797,  10.37683,  10.63894,
     +     .01606,    .00760, 306.25473,  11.17663,  10.56640,
     +    9.87716,  10.92316,  11.18351,
     +     .01630,    .00773, 320.85931,  11.71269,  11.10971,
     +   10.42777,  11.46087,  11.71955,
     +     .01653,    .00785, 335.08301,  12.23734,  11.64186,
     +   10.96780,  11.98705,  12.24418,
     +     .01677,    .00798, 349.54315,  12.77740,  12.18808,
     +   11.52006,  12.52865,  12.78422 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00955,    .00419,    .97123,    .64169,    .00000,
     +     .00000,    .34132,    .64521,
     +     .00987,    .00434,   2.00250,    .67150,    .00000,
     +     .00000,    .37442,    .67503,
     +     .01033,    .00456,   3.94675,    .73131,    .00000,
     +     .00000,    .43887,    .73485,
     +     .01067,    .00473,   5.69193,    .78628,    .03287,
     +     .00000,    .49708,    .78984,
     +     .01103,    .00490,   7.72822,    .85498,    .11219,
     +     .00000,    .56902,    .85854,
     +     .01134,    .00505,   9.76863,    .92397,    .18622,
     +     .00000,    .64073,    .92754,
     +     .01164,    .00520,  12.00397,    .99766,    .26630,
     +     .00000,    .71697,   1.00124,
     +     .01195,    .00536,  14.68246,   1.08437,    .36168,
     +     .00000,    .80630,   1.08795 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01223,    .00550,  17.23279,   1.16791,    .44934,
     +     .00000,    .89206,   1.17149,
     +     .01250,    .00564,  19.91807,   1.25540,    .54133,
     +     .00000,    .98165,   1.25898,
     +     .01271,    .00574,  22.23353,   1.32950,    .62069,
     +     .00000,   1.05738,   1.33308,
     +     .01316,    .00598,  27.46807,   1.50297,    .80238,
     +     .01512,   1.23423,   1.50655,
     +     .01356,    .00618,  32.25270,   1.66774,    .97326,
     +     .21520,   1.40180,   1.67132,
     +     .01400,    .00641,  38.14524,   1.87039,   1.18347,
     +     .45854,   1.60748,   1.87397,
     +     .01446,    .00665,  44.90409,   2.10148,   1.42256,
     +     .70830,   1.84165,   2.10506,
     +     .01488,    .00687,  51.57692,   2.32927,   1.65777,
     +     .95402,   2.07214,   2.33285 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01531,    .00710,  58.84649,   2.57746,   1.91385,
     +    1.22030,   2.32299,   2.58104,
     +     .01567,    .00728,  65.25706,   2.79730,   2.13952,
     +    1.45214,   2.54498,   2.80088,
     +     .01611,    .00752,  73.47752,   3.08078,   2.42948,
     +    1.74878,   2.83100,   3.08436,
     +     .01650,    .00772,  81.20319,   3.34786,   2.70308,
     +    2.02997,   3.10027,   3.35143,
     +     .01686,    .00791,  88.66090,   3.60655,   2.96820,
     +    2.30259,   3.36094,   3.61012,
     +     .01732,    .00816,  98.50455,   3.95198,   3.31994,
     +    2.66061,   3.70880,   3.95554,
     +     .01775,    .00839, 108.25579,   4.29619,   3.67079,
     +    3.01873,   4.05525,   4.29974,
     +     .01816,    .00861, 117.86123,   4.63675,   4.01866,
     +    3.37510,   4.39787,   4.64031 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01857,    .00883, 127.70567,   4.99124,   4.37823,
     +    3.73958,   4.75436,   4.99479,
     +     .01898,    .00905, 137.75891,   5.35513,   4.74821,
     +    4.11624,   5.12018,   5.35867,
     +     .01937,    .00926, 147.61105,   5.71457,   5.11361,
     +    4.48820,   5.48141,   5.71811,
     +     .01973,    .00946, 157.08582,   6.06457,   5.46827,
     +    4.84772,   5.83306,   6.06811,
     +     .02010,    .00966, 166.97922,   6.43132,   5.84096,
     +    5.22714,   6.20145,   6.43486,
     +     .02047,    .00986, 176.80272,   6.80117,   6.21508,
     +    5.60561,   6.57288,   6.80471,
     +     .02082,    .01005, 186.50906,   7.16741,   6.58687,
     +    5.98366,   6.94059,   7.17094,
     +     .02115,    .01023, 195.72339,   7.52058,   6.94379,
     +    6.34444,   7.29514,   7.52412 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02149,    .01042, 205.32146,   7.88965,   7.31771,
     +    6.72376,   7.66557,   7.89318,
     +     .02183,    .01060, 214.88139,   8.26169,   7.69387,
     +    7.10436,   8.03895,   8.26522,
     +     .02215,    .01078, 224.18312,   8.62635,   8.06262,
     +    7.47759,   8.40486,   8.62987,
     +     .02246,    .01094, 233.19882,   8.98184,   8.42243,
     +    7.84229,   8.76152,   8.98536,
     +     .02277,    .01112, 242.30983,   9.34612,   8.79004,
     +    8.21343,   9.12698,   9.34964 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01138,    .00503,    .93391,    .58201,    .00000,
     +     .00000,    .30960,    .58404,
     +     .01177,    .00521,   1.90380,    .61033,    .00000,
     +     .00000,    .34076,    .61236,
     +     .01233,    .00550,   3.70846,    .66591,    .00000,
     +     .00000,    .40036,    .66796,
     +     .01275,    .00570,   5.30858,    .71630,    .02990,
     +     .00000,    .45353,    .71835,
     +     .01318,    .00592,   7.15643,    .77862,    .10183,
     +     .00000,    .51865,    .78068,
     +     .01355,    .00611,   8.99163,    .84070,    .16845,
     +     .00000,    .58307,    .84276,
     +     .01391,    .00630,  10.98749,    .90665,    .24011,
     +     .00000,    .65120,    .90871,
     +     .01430,    .00650,  13.36194,    .98385,    .32499,
     +     .00000,    .73065,    .98591 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01463,    .00667,  15.60696,   1.05780,    .40257,
     +     .00000,    .80652,   1.05987,
     +     .01495,    .00684,  17.95688,   1.13491,    .48363,
     +     .00000,    .88543,   1.13698,
     +     .01521,    .00697,  19.97355,   1.20002,    .55332,
     +     .00000,    .95194,   1.20209,
     +     .01576,    .00726,  24.49959,   1.35162,    .71202,
     +     .01343,   1.10643,   1.35369,
     +     .01623,    .00751,  28.60012,   1.49476,    .86038,
     +     .18709,   1.25197,   1.49684,
     +     .01676,    .00779,  33.61190,   1.66985,   1.04186,
     +     .39754,   1.42965,   1.67193,
     +     .01732,    .00809,  39.31575,   1.86835,   1.24707,
     +     .61204,   1.63078,   1.87044,
     +     .01783,    .00836,  44.90580,   2.06295,   1.44783,
     +     .82188,   1.82769,   2.06504 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01835,    .00863,  50.95478,   2.27390,   1.66529,
     +    1.04810,   2.04090,   2.27599,
     +     .01878,    .00886,  56.25628,   2.45988,   1.85602,
     +    1.24410,   2.22872,   2.46198,
     +     .01930,    .00915,  63.01372,   2.69860,   2.09996,
     +    1.49370,   2.46961,   2.70070,
     +     .01977,    .00940,  69.32762,   2.92251,   2.32912,
     +    1.72927,   2.69539,   2.92462,
     +     .02020,    .00963,  75.39145,   3.13853,   2.55030,
     +    1.95675,   2.91310,   3.14065,
     +     .02075,    .00993,  83.34860,   3.42569,   2.84242,
     +    2.25408,   3.20233,   3.42781,
     +     .02127,    .01021,  91.18600,   3.71055,   3.13251,
     +    2.55019,   3.48911,   3.71268,
     +     .02176,    .01048,  98.86655,   3.99128,   3.41901,
     +    2.84371,   3.77158,   3.99341 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02225,    .01075, 106.69450,   4.28221,   3.71383,
     +    3.14252,   4.06423,   4.28435,
     +     .02273,    .01101, 114.65106,   4.57977,   4.01611,
     +    3.45024,   4.36342,   4.58191,
     +     .02319,    .01126, 122.41284,   4.87262,   4.31357,
     +    3.75303,   4.65780,   4.87477,
     +     .02363,    .01150, 129.84254,   5.15676,   4.60125,
     +    4.04460,   4.94334,   5.15891,
     +     .02407,    .01175, 137.57196,   5.45361,   4.90269,
     +    4.35147,   5.24158,   5.45577,
     +     .02451,    .01198, 145.21095,   5.75189,   5.20416,
     +    4.65639,   5.54121,   5.75406,
     +     .02492,    .01221, 152.73424,   6.04647,   5.50300,
     +    4.96025,   5.83705,   6.04865,
     +     .02532,    .01243, 159.84528,   6.32962,   5.78893,
     +    5.24921,   6.12136,   6.33180 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02572,    .01265, 167.23053,   6.62478,   6.08778,
     +    5.55235,   6.41769,   6.62697,
     +     .02612,    .01287, 174.55811,   6.92144,   6.38751,
     +    5.85558,   6.71549,   6.92364,
     +     .02650,    .01309, 181.66515,   7.21148,   6.68061,
     +    6.15219,   7.00659,   7.21368,
     +     .02687,    .01329, 188.53372,   7.49356,   6.96597,
     +    6.44139,   7.28967,   7.49577,
     +     .02724,    .01349, 195.44911,   7.78183,   7.25667,
     +    6.73482,   7.57894,   7.78404 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01290,    .00572,    .90887,    .54302,    .00000,
     +     .00000,    .28895,    .54424,
     +     .01334,    .00595,   1.83739,    .57028,    .00000,
     +     .00000,    .31878,    .57151,
     +     .01399,    .00628,   3.54879,    .62302,    .00000,
     +     .00000,    .37514,    .62425,
     +     .01446,    .00652,   5.05288,    .67037,    .02795,
     +     .00000,    .42500,    .67161,
     +     .01495,    .00678,   6.77693,    .72852,    .09504,
     +     .00000,    .48566,    .72976,
     +     .01538,    .00700,   8.47823,    .78610,    .15686,
     +     .00000,    .54535,    .78734,
     +     .01579,    .00722,  10.31875,    .84703,    .22305,
     +     .00000,    .60824,    .84828,
     +     .01623,    .00745,  12.49710,    .91809,    .30118,
     +     .00000,    .68132,    .91933 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01662,    .00765,  14.54633,    .98588,    .37229,
     +     .00000,    .75083,    .98713,
     +     .01698,    .00784,  16.68222,   1.05634,    .44637,
     +     .00000,    .82291,   1.05760,
     +     .01728,    .00800,  18.50895,   1.11570,    .50990,
     +     .00000,    .88352,   1.11696,
     +     .01790,    .00833,  22.58720,   1.25337,    .65400,
     +     .01234,   1.02379,   1.25464,
     +     .01844,    .00862,  26.25840,   1.38281,    .78814,
     +     .16935,   1.15538,   1.38409,
     +     .01905,    .00895,  30.72091,   1.54050,    .95157,
     +     .35915,   1.31540,   1.54179,
     +     .01969,    .00929,  35.77109,   1.71854,   1.13557,
     +     .55162,   1.49578,   1.71983,
     +     .02027,    .00960,  40.69433,   1.89237,   1.31487,
     +     .73917,   1.67169,   1.89368 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02086,    .00992,  45.99588,   2.08013,   1.50838,
     +     .94059,   1.86147,   2.08145,
     +     .02135,    .01019,  50.62171,   2.24511,   1.67752,
     +    1.11449,   2.02810,   2.24644,
     +     .02194,    .01052,  56.49230,   2.45617,   1.89312,
     +    1.33520,   2.24109,   2.45750,
     +     .02247,    .01081,  61.95457,   2.65350,   2.09502,
     +    1.54284,   2.44010,   2.65484,
     +     .02296,    .01107,  67.18115,   2.84334,   2.28935,
     +    1.74278,   2.63144,   2.84470,
     +     .02359,    .01141,  74.01064,   3.09487,   2.54514,
     +    2.00323,   2.88483,   3.09624,
     +     .02418,    .01174,  80.70946,   3.34360,   2.79836,
     +    2.26179,   3.13525,   3.34497,
     +     .02473,    .01204,  87.25001,   3.58799,   3.04773,
     +    2.51737,   3.38122,   3.58938 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02529,    .01235,  93.88887,   3.84049,   3.30352,
     +    2.77668,   3.63524,   3.84190,
     +     .02584,    .01265, 100.61414,   4.09805,   3.56510,
     +    3.04306,   3.89426,   4.09947,
     +     .02636,    .01294, 107.15295,   4.35088,   3.82186,
     +    3.30449,   4.14845,   4.35231,
     +     .02685,    .01322, 113.39074,   4.59555,   4.06951,
     +    3.55555,   4.39437,   4.59699,
     +     .02735,    .01349, 119.86282,   4.85061,   4.32848,
     +    3.81926,   4.65068,   4.85206,
     +     .02784,    .01377, 126.23735,   5.10625,   4.58678,
     +    4.08056,   4.90751,   5.10772,
     +     .02831,    .01403, 132.50060,   5.35822,   4.84237,
     +    4.34052,   5.16061,   5.35970,
     +     .02876,    .01428, 138.40186,   5.59984,   5.08631,
     +    4.58709,   5.40327,   5.60133 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02921,    .01453, 144.51756,   5.85127,   5.34085,
     +    4.84534,   5.65574,   5.85277,
     +     .02966,    .01478, 150.56842,   6.10344,   5.59559,
     +    5.10310,   5.90893,   6.10496,
     +     .03009,    .01502, 156.42342,   6.34953,   5.84424,
     +    5.35478,   6.15596,   6.35106,
     +     .03051,    .01525, 162.07010,   6.58846,   6.08593,
     +    5.59979,   6.39579,   6.59001,
     +     .03092,    .01548, 167.73967,   6.83214,   6.33163,
     +    5.84784,   6.64036,   6.83370 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01421,    .00634,    .89035,    .51456,    .00000,
     +     .00000,    .27392,    .51528,
     +     .01470,    .00659,   1.78798,    .54102,    .00000,
     +     .00000,    .30274,    .54174,
     +     .01542,    .00696,   3.43017,    .59163,    .00000,
     +     .00000,    .35670,    .59236,
     +     .01595,    .00724,   4.86345,    .63674,    .02653,
     +     .00000,    .40413,    .63748,
     +     .01650,    .00753,   6.49673,    .69184,    .09008,
     +     .00000,    .46154,    .69258,
     +     .01697,    .00778,   8.10037,    .74614,    .14839,
     +     .00000,    .51779,    .74689,
     +     .01743,    .00802,   9.82805,    .80343,    .21064,
     +     .00000,    .57688,    .80418,
     +     .01792,    .00828,  11.86460,    .87004,    .28387,
     +     .00000,    .64536,    .87080 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01834,    .00851,  13.77280,    .93338,    .35033,
     +     .00000,    .71028,    .93415,
     +     .01875,    .00873,  15.75508,    .99906,    .41939,
     +     .00000,    .77745,    .99983,
     +     .01908,    .00890,  17.44590,   1.05429,    .47850,
     +     .00000,    .83383,   1.05506,
     +     .01977,    .00928,  21.20512,   1.18198,    .61218,
     +     .01155,    .96392,   1.18277,
     +     .02037,    .00960,  24.57204,   1.30164,    .73619,
     +     .15673,   1.08554,   1.30244,
     +     .02104,    .00997,  28.64704,   1.44695,    .88679,
     +     .33187,   1.23300,   1.44776,
     +     .02175,    .01035,  33.23830,   1.61047,   1.05580,
     +     .50878,   1.39868,   1.61129,
     +     .02239,    .01070,  37.69553,   1.76963,   1.21997,
     +     .68063,   1.55974,   1.77047 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02304,    .01106,  42.47688,   1.94105,   1.39664,
     +     .86464,   1.73302,   1.94191,
     +     .02358,    .01136,  46.63422,   2.09128,   1.55065,
     +    1.02308,   1.88475,   2.09215,
     +     .02424,    .01172,  51.89221,   2.28296,   1.74646,
     +    1.22363,   2.07821,   2.28384,
     +     .02483,    .01204,  56.76836,   2.46172,   1.92936,
     +    1.41183,   2.25850,   2.46261,
     +     .02537,    .01234,  61.42055,   2.63331,   2.10500,
     +    1.59266,   2.43147,   2.63422,
     +     .02605,    .01272,  67.47915,   2.86008,   2.33561,
     +    1.82756,   2.65995,   2.86101,
     +     .02670,    .01308,  73.40240,   3.08375,   2.56333,
     +    2.06019,   2.88518,   3.08470,
     +     .02732,    .01342,  79.16885,   3.30303,   2.78708,
     +    2.28964,   3.10590,   3.30400 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02793,    .01376,  85.00312,   3.52903,   3.01602,
     +    2.52182,   3.33330,   3.53002,
     +     .02853,    .01410,  90.89761,   3.75907,   3.24967,
     +    2.75984,   3.56468,   3.76007,
     +     .02911,    .01442,  96.61357,   3.98443,   3.47854,
     +    2.99298,   3.79128,   3.98545,
     +     .02965,    .01472, 102.05177,   4.20207,   3.69883,
     +    3.21639,   4.01007,   4.20310,
     +     .03020,    .01503, 107.68237,   4.42857,   3.92882,
     +    3.45069,   4.23771,   4.42963,
     +     .03074,    .01533, 113.21288,   4.65512,   4.15774,
     +    3.68234,   4.46535,   4.65619,
     +     .03126,    .01562, 118.63709,   4.87808,   4.38392,
     +    3.91250,   4.68935,   4.87918,
     +     .03175,    .01589, 123.73450,   5.09149,   4.59938,
     +    4.13034,   4.90371,   5.09260 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03225,    .01617, 129.00847,   5.31324,   4.82391,
     +    4.35824,   5.12642,   5.31437,
     +     .03274,    .01645, 134.21463,   5.53529,   5.04823,
     +    4.58529,   5.34939,   5.53643,
     +     .03321,    .01671, 139.24307,   5.75166,   5.26687,
     +    4.80668,   5.56663,   5.75282,
     +     .03366,    .01697, 144.08449,   5.96146,   5.47912,
     +    5.02193,   5.77726,   5.96264,
     +     .03412,    .01722, 148.93478,   6.17509,   5.69454,
     +    5.23947,   5.99171,   6.17629 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01922,    .00871,    .83859,    .43535,    .00000,
     +     .00000,    .23230,    .43518,
     +     .01990,    .00908,   1.64665,    .45931,    .00000,
     +     .00000,    .25813,    .45915,
     +     .02091,    .00963,   3.09000,    .50375,    .00000,
     +     .00000,    .30520,    .50361,
     +     .02164,    .01003,   4.32206,    .54250,    .02252,
     +     .00000,    .34577,    .54238,
     +     .02240,    .01045,   5.70000,    .58902,    .07618,
     +     .00000,    .39411,    .58892,
     +     .02306,    .01082,   7.03131,    .63421,    .12476,
     +     .00000,    .44083,    .63413,
     +     .02369,    .01117,   8.44675,    .68143,    .17608,
     +     .00000,    .48945,    .68136,
     +     .02437,    .01154,  10.09380,    .73580,    .23590,
     +     .00000,    .54529,    .73575 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02495,    .01187,  11.61752,    .78698,    .28965,
     +     .00000,    .59771,    .78695,
     +     .02552,    .01219,  13.18362,    .83962,    .34508,
     +     .00000,    .65151,    .83961,
     +     .02597,    .01244,  14.50808,    .88363,    .39223,
     +     .00000,    .69642,    .88364,
     +     .02692,    .01297,  17.41396,    .98439,    .49784,
     +     .00940,    .79904,    .98443,
     +     .02775,    .01343,  19.97443,   1.07779,    .59476,
     +     .12299,    .89397,   1.07785,
     +     .02867,    .01395,  23.03087,   1.19007,    .71129,
     +     .25918,   1.00793,   1.19017,
     +     .02963,    .01450,  26.42603,   1.31509,    .84067,
     +     .39506,   1.13462,   1.31522,
     +     .03051,    .01499,  29.67831,   1.43557,    .96511,
     +     .52574,   1.25658,   1.43574 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03140,    .01549,  33.12449,   1.56415,   1.09780,
     +     .66436,   1.38660,   1.56435,
     +     .03214,    .01591,  36.08739,   1.67587,   1.21249,
     +     .78268,   1.49949,   1.67610,
     +     .03304,    .01642,  39.79364,   1.81723,   1.35708,
     +     .93119,   1.64223,   1.81750,
     +     .03383,    .01687,  43.19447,   1.94801,   1.49106,
     +    1.06945,   1.77420,   1.94831,
     +     .03457,    .01729,  46.40895,   2.07265,   1.61883,
     +    1.20136,   1.89991,   2.07299,
     +     .03550,    .01782,  50.55005,   2.23603,   1.78518,
     +    1.37125,   2.06460,   2.23640,
     +     .03638,    .01832,  54.55628,   2.39588,   1.94814,
     +    1.53816,   2.22567,   2.39629,
     +     .03721,    .01879,  58.42006,   2.55147,   2.10714,
     +    1.70164,   2.38236,   2.55192 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03804,    .01926,  62.28826,   2.71056,   2.26850,
     +    1.86567,   2.54253,   2.71105,
     +     .03885,    .01973,  66.16307,   2.87142,   2.43210,
     +    2.03276,   2.70443,   2.87195,
     +     .03962,    .02017,  69.88879,   3.02798,   2.59133,
     +    2.19537,   2.86196,   3.02855,
     +     .04035,    .02058,  73.40219,   3.17818,   2.74356,
     +    2.35012,   3.01305,   3.17878,
     +     .04109,    .02100,  77.01559,   3.33367,   2.90169,
     +    2.51162,   3.16942,   3.33431,
     +     .04181,    .02142,  80.53281,   3.48817,   3.05800,
     +    2.67015,   3.32477,   3.48884,
     +     .04251,    .02181,  83.96239,   3.63950,   3.21177,
     +    2.82700,   3.47690,   3.64021,
     +     .04316,    .02219,  87.15803,   3.78347,   3.35730,
     +    2.97447,   3.62160,   3.78421 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04383,    .02256,  90.44670,   3.93242,   3.50835,
     +    3.12815,   3.77129,   3.93319,
     +     .04449,    .02294,  93.66891,   4.08075,   3.65841,
     +    3.28038,   3.92034,   4.08156,
     +     .04512,    .02330,  96.76244,   4.22463,   3.80402,
     +    3.42815,   4.06489,   4.22547,
     +     .04572,    .02364,  99.72497,   4.36355,   3.94479,
     +    3.57125,   4.20446,   4.36443,
     +     .04632,    .02399, 102.67086,   4.50428,   4.08689,
     +    3.71506,   4.34582,   4.50519 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02607,    .01207,    .79841,    .36873,    .00000,
     +     .00000,    .19759,    .36853,
     +     .02702,    .01261,   1.52588,    .39027,    .00000,
     +     .00000,    .22062,    .39009,
     +     .02842,    .01341,   2.79215,    .42909,    .00000,
     +     .00000,    .26156,    .42898,
     +     .02943,    .01400,   3.84785,    .46226,    .01906,
     +     .00000,    .29619,    .46219,
     +     .03049,    .01461,   5.00534,    .50138,    .06422,
     +     .00000,    .33678,    .50136,
     +     .03141,    .01514,   6.10473,    .53885,    .10456,
     +     .00000,    .37546,    .53886,
     +     .03228,    .01564,   7.25737,    .57758,    .14672,
     +     .00000,    .41533,    .57764,
     +     .03321,    .01618,   8.58041,    .62175,    .19538,
     +     .00000,    .46068,    .62185 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03402,    .01665,   9.78797,    .66288,    .23865,
     +     .00000,    .50279,    .66302,
     +     .03480,    .01710,  11.01523,    .70482,    .28292,
     +     .00000,    .54566,    .70500,
     +     .03542,    .01746,  12.04382,    .73967,    .32034,
     +     .00000,    .58124,    .73988,
     +     .03673,    .01822,  14.26886,    .81862,    .40332,
     +     .00762,    .66169,    .81890,
     +     .03786,    .01888,  16.19538,    .89097,    .47861,
     +     .09606,    .73527,    .89130,
     +     .03913,    .01961,  18.46152,    .97703,    .56820,
     +     .20144,    .82267,    .97743,
     +     .04045,    .02038,  20.94117,   1.07178,    .66656,
     +     .30523,    .91876,   1.07225,
     +     .04165,    .02108,  23.28293,   1.16214,    .76019,
     +     .40402,   1.01030,   1.16267 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04286,    .02178,  25.73205,   1.25762,    .85906,
     +     .50780,   1.10695,   1.25823,
     +     .04386,    .02237,  27.81249,   1.33985,    .94375,
     +     .59557,   1.19012,   1.34051,
     +     .04508,    .02308,  30.38435,   1.44298,   1.04958,
     +     .70477,   1.29435,   1.44371,
     +     .04616,    .02370,  32.71771,   1.53758,   1.14683,
     +     .80560,   1.38991,   1.53837,
     +     .04716,    .02428,  34.90132,   1.62708,   1.23889,
     +     .90108,   1.48027,   1.62793,
     +     .04842,    .02501,  37.68143,   1.74335,   1.35767,
     +    1.02293,   1.59760,   1.74428,
     +     .04960,    .02571,  40.34083,   1.85616,   1.47307,
     +    1.14166,   1.71138,   1.85715,
     +     .05072,    .02635,  42.88007,   1.96513,   1.58482,
     +    1.25710,   1.82125,   1.96619 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05183,    .02700,  45.39282,   2.07561,   1.69724,
     +    1.37187,   1.93260,   2.07674,
     +     .05293,    .02764,  47.88678,   2.18655,   1.81046,
     +    1.48802,   2.04437,   2.18774,
     +     .05396,    .02824,  50.26280,   2.29377,   1.91989,
     +    1.60028,   2.15238,   2.29503,
     +     .05494,    .02880,  52.48157,   2.39592,   2.02377,
     +    1.70632,   2.25524,   2.39723,
     +     .05592,    .02938,  54.74730,   2.50108,   2.13109,
     +    1.81643,   2.36111,   2.50245,
     +     .05689,    .02994,  56.93022,   2.60482,   2.23639,
     +    1.92368,   2.46554,   2.60626,
     +     .05782,    .03047,  59.04583,   2.70595,   2.33951,
     +    2.02934,   2.56731,   2.70744,
     +     .05869,    .03098,  60.99796,   2.80150,   2.43643,
     +    2.12796,   2.66347,   2.80305 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05957,    .03149,  62.99564,   2.89993,   2.53659,
     +    2.23032,   2.76250,   2.90153,
     +     .06045,    .03200,  64.93635,   2.99737,   2.63550,
     +    2.33109,   2.86052,   2.99903,
     +     .06128,    .03248,  66.78723,   3.09143,   2.73102,
     +    2.42844,   2.95512,   3.09314,
     +     .06207,    .03294,  68.54935,   3.18185,   2.82296,
     +    2.52232,   3.04606,   3.18361,
     +     .06288,    .03340,  70.28633,   3.27292,   2.91522,
     +    2.61608,   3.13764,   3.27473 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03123,    .01470,    .78278,    .33514,    .00000,
     +     .00000,    .18017,    .33521,
     +     .03239,    .01538,   1.46688,    .35529,    .00000,
     +     .00000,    .20166,    .35542,
     +     .03408,    .01638,   2.63815,    .39106,    .00000,
     +     .00000,    .23931,    .39128,
     +     .03531,    .01711,   3.60032,    .42125,    .01724,
     +     .00000,    .27081,    .42153,
     +     .03660,    .01787,   4.64228,    .45650,    .05797,
     +     .00000,    .30737,    .45686,
     +     .03770,    .01852,   5.62147,    .48996,    .09405,
     +     .00000,    .34191,    .49038,
     +     .03876,    .01914,   6.63917,    .52434,    .13151,
     +     .00000,    .37731,    .52482,
     +     .03989,    .01981,   7.79743,    .56331,    .17449,
     +     .00000,    .41733,    .56386 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04086,    .02038,   8.84575,    .59935,    .21248,
     +     .00000,    .45425,    .59995,
     +     .04180,    .02094,   9.90373,    .63591,    .25114,
     +     .00000,    .49164,    .63657,
     +     .04255,    .02138,  10.78550,    .66618,    .28370,
     +     .00000,    .52256,    .66688,
     +     .04413,    .02232,  12.67611,    .73431,    .35545,
     +     .00672,    .59203,    .73510,
     +     .04549,    .02312,  14.29503,    .79629,    .42012,
     +     .08281,    .65511,    .79717,
     +     .04701,    .02402,  16.18193,    .86954,    .49656,
     +     .17313,    .72956,    .87051,
     +     .04859,    .02495,  18.22724,    .94962,    .57992,
     +     .26139,    .81085,    .95069,
     +     .05003,    .02580,  20.14166,   1.02549,    .65875,
     +     .34487,    .88779,   1.02665 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05147,    .02665,  22.12749,   1.10519,    .74151,
     +     .43205,    .96853,   1.10644,
     +     .05268,    .02736,  23.80163,   1.17343,    .81200,
     +     .50536,   1.03763,   1.17476,
     +     .05413,    .02822,  25.85583,   1.25856,    .89961,
     +     .59608,   1.12375,   1.25998,
     +     .05542,    .02898,  27.70629,   1.33624,    .97970,
     +     .67941,   1.20229,   1.33774,
     +     .05661,    .02968,  29.42715,   1.40938,   1.05516,
     +     .75797,   1.27621,   1.41097,
     +     .05811,    .03056,  31.60166,   1.50390,   1.15200,
     +     .85765,   1.37169,   1.50558,
     +     .05952,    .03139,  33.66690,   1.59511,   1.24558,
     +     .95429,   1.46378,   1.59689,
     +     .06084,    .03216,  35.62638,   1.68281,   1.33580,
     +    1.04783,   1.55229,   1.68467 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06216,    .03294,  37.55079,   1.77125,   1.42606,
     +    1.14030,   1.64152,   1.77320,
     +     .06346,    .03370,  39.44971,   1.85967,   1.51657,
     +    1.23349,   1.73070,   1.86171,
     +     .06468,    .03442,  41.24817,   1.94478,   1.60369,
     +    1.32318,   1.81651,   1.94689,
     +     .06584,    .03509,  42.91686,   2.02548,   1.68601,
     +    1.40752,   1.89787,   2.02768,
     +     .06700,    .03577,  44.61323,   2.10829,   1.77078,
     +    1.49481,   1.98133,   2.11057,
     +     .06814,    .03644,  46.23649,   2.18961,   1.85357,
     +    1.57943,   2.06328,   2.19196,
     +     .06923,    .03707,  47.80371,   2.26864,   1.93441,
     +    1.66257,   2.14290,   2.27107,
     +     .07026,    .03767,  49.24039,   2.34300,   2.01006,
     +    1.73982,   2.21781,   2.34550 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07130,    .03828,  50.70535,   2.41939,   2.08803,
     +    1.81979,   2.29474,   2.42196,
     +     .07232,    .03888,  52.12043,   2.49473,   2.16474,
     +    1.89822,   2.37061,   2.49737,
     +     .07330,    .03945,  53.46415,   2.56723,   2.23859,
     +    1.97376,   2.44362,   2.56994,
     +     .07423,    .03999,  54.73855,   2.63674,   2.30949,
     +    2.04642,   2.51360,   2.63951,
     +     .07517,    .04053,  55.98723,   2.70649,   2.38037,
     +    2.11870,   2.58382,   2.70933 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03556,    .01700,    .77673,    .31364,    .00000,
     +     .00000,    .16904,    .31400,
     +     .03689,    .01779,   1.43154,    .33283,    .00000,
     +     .00000,    .18946,    .33326,
     +     .03883,    .01896,   2.53860,    .36651,    .00000,
     +     .00000,    .22489,    .36707,
     +     .04025,    .01981,   3.43800,    .39470,    .01603,
     +     .00000,    .25429,    .39534,
     +     .04172,    .02068,   4.40301,    .42738,    .05382,
     +     .00000,    .28817,    .42811,
     +     .04298,    .02144,   5.30269,    .45819,    .08708,
     +     .00000,    .32000,    .45900,
     +     .04419,    .02217,   6.23165,    .48971,    .12145,
     +     .00000,    .35246,    .49060,
     +     .04548,    .02294,   7.28222,    .52527,    .16072,
     +     .00000,    .38900,    .52624 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04659,    .02360,   8.22713,    .55800,    .19527,
     +     .00000,    .42255,    .55904,
     +     .04767,    .02425,   9.17575,    .59108,    .23031,
     +     .00000,    .45640,    .59219,
     +     .04852,    .02476,   9.96309,    .61838,    .25972,
     +     .00000,    .48431,    .61954,
     +     .05033,    .02584,  11.64002,    .67954,    .32426,
     +     .00613,    .54672,    .68083,
     +     .05187,    .02676,  13.06399,    .73490,    .38213,
     +     .07432,    .60311,    .73629,
     +     .05360,    .02779,  14.71225,    .80000,    .45021,
     +     .15505,    .66932,    .80150,
     +     .05540,    .02886,  16.48630,    .87080,    .52408,
     +     .23348,    .74126,    .87242,
     +     .05703,    .02983,  18.13573,    .93755,    .59360,
     +     .30732,    .80901,    .93928 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05867,    .03081,  19.83614,   1.00736,    .66626,
     +     .38409,    .87980,   1.00921,
     +     .06004,    .03162,  21.26147,   1.06689,    .72790,
     +     .44837,    .94012,   1.06883,
     +     .06169,    .03260,  23.00051,   1.14084,    .80419,
     +     .52760,   1.01501,   1.14289,
     +     .06315,    .03347,  24.55866,   1.20805,    .87367,
     +     .60011,   1.08303,   1.21021,
     +     .06449,    .03426,  26.00081,   1.27112,    .93891,
     +     .66823,   1.14684,   1.27338,
     +     .06618,    .03526,  27.81267,   1.35229,   1.02229,
     +     .75431,   1.22891,   1.35466,
     +     .06777,    .03620,  29.52414,   1.43032,   1.10255,
     +     .83744,   1.30777,   1.43280,
     +     .06926,    .03708,  31.14021,   1.50508,   1.17966,
     +     .91763,   1.38329,   1.50767 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07075,    .03796,  32.71807,   1.58017,   1.25648,
     +     .99658,   1.45913,   1.58286,
     +     .07221,    .03882,  34.26814,   1.65500,   1.33329,
     +    1.07590,   1.53468,   1.65779,
     +     .07359,    .03963,  35.72955,   1.72679,   1.40698,
     +    1.15200,   1.60714,   1.72968,
     +     .07488,    .04039,  37.07876,   1.79464,   1.47637,
     +    1.22331,   1.67561,   1.79763,
     +     .07619,    .04116,  38.44567,   1.86409,   1.54766,
     +    1.29694,   1.74568,   1.86717,
     +     .07747,    .04191,  39.74667,   1.93205,   1.61703,
     +    1.36806,   1.81423,   1.93522,
     +     .07869,    .04262,  40.99918,   1.99795,   1.68463,
     +    1.43780,   1.88070,   2.00122,
     +     .07984,    .04329,  42.14129,   2.05977,   1.74768,
     +    1.50238,   1.94303,   2.06311 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08100,    .04397,  43.30281,   2.12313,   1.81254,
     +    1.56911,   2.00691,   2.12656,
     +     .08215,    .04464,  44.41969,   2.18545,   1.87617,
     +    1.63437,   2.06974,   2.18896,
     +     .08324,    .04528,  45.47664,   2.24528,   1.93728,
     +    1.69708,   2.13005,   2.24888,
     +     .08428,    .04589,  46.47611,   2.30253,   1.99584,
     +    1.75728,   2.18775,   2.30620,
     +     .08533,    .04649,  47.45061,   2.35981,   2.05420,
     +    1.81699,   2.24548,   2.36355 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03940,    .01918,    .77869,    .29892,    .00000,
     +     .00000,    .16122,    .29932,
     +     .04088,    .02007,   1.41110,    .31736,    .00000,
     +     .00000,    .18081,    .31785,
     +     .04305,    .02139,   2.46927,    .34945,    .00000,
     +     .00000,    .21452,    .35008,
     +     .04463,    .02234,   3.32108,    .37610,    .01512,
     +     .00000,    .24230,    .37684,
     +     .04626,    .02333,   4.22794,    .40682,    .05067,
     +     .00000,    .27414,    .40767,
     +     .04767,    .02418,   5.06780,    .43565,    .08181,
     +     .00000,    .30390,    .43659,
     +     .04902,    .02499,   5.93026,    .46501,    .11387,
     +     .00000,    .33415,    .46605,
     +     .05045,    .02586,   6.90044,    .49803,    .15037,
     +     .00000,    .36808,    .49916 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05168,    .02660,   7.76847,    .52830,    .18236,
     +     .00000,    .39911,    .52952,
     +     .05287,    .02732,   8.63608,    .55879,    .21470,
     +     .00000,    .43033,    .56009,
     +     .05382,    .02789,   9.35367,    .58391,    .24179,
     +     .00000,    .45601,    .58527,
     +     .05582,    .02909,  10.87354,    .63995,    .30102,
     +     .00569,    .51321,    .64145,
     +     .05753,    .03012,  12.15507,    .69045,    .35390,
     +     .06808,    .56468,    .69208,
     +     .05944,    .03126,  13.62986,    .74960,    .41586,
     +     .14177,    .62488,    .75136,
     +     .06143,    .03245,  15.20781,    .81366,    .48281,
     +     .21302,    .69000,    .81557,
     +     .06323,    .03353,  16.66673,    .87382,    .54558,
     +     .27984,    .75109,    .87585 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06504,    .03461,  18.16301,    .93650,    .61095,
     +     .34906,    .81469,    .93866,
     +     .06654,    .03550,  19.41103,    .98977,    .66620,
     +     .40683,    .86870,    .99204,
     +     .06836,    .03658,  20.92655,   1.05572,    .73437,
     +     .47778,    .93553,   1.05812,
     +     .06996,    .03754,  22.27835,   1.11546,    .79626,
     +     .54252,    .99604,   1.11798,
     +     .07143,    .03841,  23.52460,   1.17137,    .85420,
     +     .60316,   1.05263,   1.17399,
     +     .07329,    .03951,  25.08265,   1.24307,    .92800,
     +     .67954,   1.12518,   1.24583,
     +     .07503,    .04054,  26.54748,   1.31177,    .99882,
     +     .75307,   1.19467,   1.31466,
     +     .07667,    .04151,  27.92492,   1.37740,   1.06666,
     +     .82379,   1.26102,   1.38042 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07830,    .04247,  29.26292,   1.44310,   1.13402,
     +     .89318,   1.32742,   1.44623,
     +     .07989,    .04341,  30.57261,   1.50840,   1.20119,
     +     .96273,   1.39340,   1.51165,
     +     .08140,    .04429,  31.80284,   1.57088,   1.26547,
     +    1.02927,   1.45652,   1.57425,
     +     .08281,    .04512,  32.93337,   1.62977,   1.32582,
     +    1.09144,   1.51599,   1.63324,
     +     .08423,    .04596,  34.07531,   1.68991,   1.38770,
     +    1.15553,   1.57671,   1.69348,
     +     .08563,    .04677,  35.15723,   1.74860,   1.44774,
     +    1.21723,   1.63596,   1.75228,
     +     .08696,    .04755,  36.19638,   1.80541,   1.50615,
     +    1.27765,   1.69331,   1.80919,
     +     .08821,    .04828,  37.13969,   1.85855,   1.56047,
     +    1.33343,   1.74694,   1.86242 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .08947,    .04902,  38.09692,   1.91292,   1.61626,
     +    1.39098,   1.80181,   1.91689,
     +     .09072,    .04975,  39.01348,   1.96627,   1.67086,
     +    1.44713,   1.85564,   1.97033,
     +     .09191,    .05044,  39.87827,   2.01740,   1.72321,
     +    1.50098,   1.90722,   2.02155,
     +     .09303,    .05109,  40.69394,   2.06623,   1.77329,
     +    1.55260,   1.95648,   2.07046,
     +     .09417,    .05175,  41.48579,   2.11497,   1.82307,
     +    1.60366,   2.00564,   2.11929 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05454,    .02826,    .80540,    .25880,    .00000,
     +     .00000,    .14011,    .25982,
     +     .05663,    .02956,   1.37155,    .27499,    .00000,
     +     .00000,    .15725,    .27617,
     +     .05968,    .03146,   2.28529,    .30236,    .00000,
     +     .00000,    .18597,    .30378,
     +     .06189,    .03282,   2.99846,    .32460,    .01251,
     +     .00000,    .20914,    .32618,
     +     .06417,    .03422,   3.73838,    .34973,    .04173,
     +     .00000,    .23522,    .35150,
     +     .06612,    .03543,   4.40858,    .37293,    .06693,
     +     .00000,    .25919,    .37484,
     +     .06799,    .03657,   5.08425,    .39627,    .09254,
     +     .00000,    .28327,    .39833,
     +     .06997,    .03778,   5.83093,    .42219,    .12136,
     +     .00000,    .30997,    .42441 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07168,    .03883,   6.48741,    .44566,    .14630,
     +     .00000,    .33408,    .44801,
     +     .07332,    .03983,   7.13399,    .46905,    .17128,
     +     .00000,    .35808,    .47153,
     +     .07461,    .04062,   7.66255,    .48816,    .19205,
     +     .00000,    .37767,    .49075,
     +     .07735,    .04228,   8.76102,    .53029,    .23688,
     +     .00447,    .42079,    .53309,
     +     .07968,    .04369,   9.66502,    .56770,    .27636,
     +     .05130,    .45903,    .57069,
     +     .08228,    .04526,  10.68511,    .61095,    .32202,
     +     .10619,    .50317,    .61415,
     +     .08497,    .04687,  11.75484,    .65712,    .37068,
     +     .15843,    .55025,    .66054,
     +     .08740,    .04833,  12.72507,    .69991,    .41571,
     +     .20681,    .59384,    .70352 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .08983,    .04978,  13.70264,    .74394,    .46204,
     +     .25632,    .63867,    .74774,
     +     .09184,    .05098,  14.50452,    .78093,    .50076,
     +     .29717,    .67631,    .78490,
     +     .09426,    .05242,  15.46234,    .82621,    .54799,
     +     .34681,    .72235,    .83037,
     +     .09640,    .05369,  16.30341,    .86679,    .59042,
     +     .39162,    .76359,    .87112,
     +     .09835,    .05484,  17.06809,    .90439,    .62978,
     +     .43322,    .80180,    .90888,
     +     .10080,    .05629,  18.00763,    .95207,    .67933,
     +     .48500,    .85022,    .95675,
     +     .10310,    .05764,  18.87679,    .99726,    .72637,
     +     .53434,    .89609,   1.00212,
     +     .10525,    .05890,  19.68256,   1.04000,    .77102,
     +     .58137,    .93948,   1.04504 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10737,    .06015,  20.45097,   1.08230,    .81483,
     +     .62696,    .98240,   1.08751,
     +     .10945,    .06136,  21.19317,   1.12397,    .85815,
     +     .67228,   1.02467,   1.12935,
     +     .11141,    .06250,  21.88074,   1.16348,    .89924,
     +     .71527,   1.06475,   1.16902,
     +     .11324,    .06356,  22.50245,   1.20036,    .93744,
     +     .75505,   1.10215,   1.20604,
     +     .11508,    .06463,  23.12413,   1.23776,    .97636,
     +     .79579,   1.14007,   1.24359,
     +     .11688,    .06567,  23.70259,   1.27389,   1.01373,
     +     .83461,   1.17670,   1.27987,
     +     .11859,    .06666,  24.25367,   1.30866,   1.04988,
     +     .87243,   1.21195,   1.31477,
     +     .12019,    .06758,  24.74488,   1.34086,   1.08318,
     +     .90700,   1.24459,   1.34710 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12180,    .06851,  25.23943,   1.37363,   1.11720,
     +     .94250,   1.27781,   1.38000,
     +     .12339,    .06942,  25.70555,   1.40551,   1.15022,
     +     .97684,   1.31013,   1.41201,
     +     .12490,    .07028,  26.14043,   1.43586,   1.18168,
     +    1.00957,   1.34089,   1.44248,
     +     .12633,    .07110,  26.54672,   1.46468,   1.21160,
     +    1.04078,   1.37010,   1.47142,
     +     .12777,    .07191,  26.93404,   1.49321,   1.24109,
     +    1.07138,   1.39901,   1.50005 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07680,    .04282,    .88796,    .22784,    .00000,
     +     .00000,    .12367,    .23003,
     +     .07976,    .04466,   1.38826,    .24186,    .00000,
     +     .00000,    .13851,    .24431,
     +     .08407,    .04733,   2.16148,    .26478,    .00000,
     +     .00000,    .16260,    .26761,
     +     .08715,    .04924,   2.74401,    .28295,    .01019,
     +     .00000,    .18159,    .28605,
     +     .09032,    .05118,   3.33129,    .30306,    .03383,
     +     .00000,    .20253,    .30645,
     +     .09303,    .05283,   3.84989,    .32128,    .05385,
     +     .00000,    .22144,    .32490,
     +     .09560,    .05440,   4.36170,    .33936,    .07391,
     +     .00000,    .24017,    .34321,
     +     .09832,    .05605,   4.91581,    .35917,    .09619,
     +     .00000,    .26066,    .36326 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10066,    .05746,   5.39326,    .37683,    .11520,
     +     .00000,    .27890,    .38113,
     +     .10289,    .05881,   5.85555,    .39423,    .13403,
     +     .00000,    .29685,    .39873,
     +     .10466,    .05988,   6.22837,    .40833,    .14954,
     +     .00000,    .31138,    .41298,
     +     .10837,    .06209,   6.98577,    .43895,    .18258,
     +     .00344,    .34290,    .44392,
     +     .11150,    .06396,   7.59072,    .46570,    .21121,
     +     .03768,    .37040,    .47095,
     +     .11498,    .06602,   8.25748,    .49615,    .24384,
     +     .07747,    .40166,    .50170,
     +     .11856,    .06813,   8.93989,    .52813,    .27806,
     +     .11468,    .43447,    .53400,
     +     .12177,    .07002,   9.54452,    .55730,    .30926,
     +     .14864,    .46439,    .56345 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12498,    .07190,  10.14072,    .58689,    .34091,
     +     .18292,    .49472,    .59332,
     +     .12762,    .07343,  10.61981,    .61142,    .36702,
     +     .21084,    .51985,    .61808,
     +     .13078,    .07526,  11.18003,    .64104,    .39846,
     +     .24434,    .55018,    .64797,
     +     .13355,    .07686,  11.66230,    .66724,    .42637,
     +     .27424,    .57701,    .67442,
     +     .13608,    .07832,  12.09310,    .69126,    .45197,
     +     .30169,    .60159,    .69865,
     +     .13924,    .08012,  12.61038,    .72129,    .48377,
     +     .33542,    .63232,    .72895,
     +     .14218,    .08180,  13.07893,    .74938,    .51359,
     +     .36717,    .66107,    .75729,
     +     .14492,    .08336,  13.50536,    .77565,    .54158,
     +     .39712,    .68795,    .78379 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14761,    .08489,  13.90153,    .80127,    .56867,
     +     .42576,    .71417,    .80965,
     +     .15024,    .08636,  14.27728,    .82625,    .59519,
     +     .45396,    .73972,    .83485,
     +     .15270,    .08775,  14.61857,    .84968,    .62008,
     +     .48044,    .76369,    .85849,
     +     .15499,    .08903,  14.92003,    .87128,    .64295,
     +     .50467,    .78580,    .88028,
     +     .15729,    .09031,  15.21750,    .89301,    .66608,
     +     .52930,    .80803,    .90220,
     +     .15952,    .09155,  15.48623,    .91372,    .68801,
     +     .55249,    .82923,    .92310,
     +     .16163,    .09272,  15.73953,    .93352,    .70910,
     +     .57495,    .84949,    .94308,
     +     .16360,    .09381,  15.95862,    .95162,    .72828,
     +     .59523,    .86803,    .96135 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16559,    .09490,  16.17689,    .96993,    .74776,
     +     .61594,    .88677,    .97982,
     +     .16753,    .09597,  16.37718,    .98755,    .76648,
     +     .63578,    .90482,    .99760,
     +     .16937,    .09698,  16.56073,   1.00420,    .78417,
     +     .65455,    .92187,   1.01440,
     +     .17110,    .09793,  16.72959,   1.01989,    .80089,
     +     .67234,    .93794,   1.03023,
     +     .17284,    .09887,  16.88505,   1.03523,    .81719,
     +     .68959,    .95366,   1.04572 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09481,    .05514,    .97075,    .21308,    .00000,
     +     .00000,    .11592,    .21652,
     +     .09843,    .05736,   1.42808,    .22581,    .00000,
     +     .00000,    .12944,    .22958,
     +     .10366,    .06056,   2.11797,    .24619,    .00000,
     +     .00000,    .15095,    .25046,
     +     .10740,    .06283,   2.62584,    .26209,    .00896,
     +     .00000,    .16765,    .26671,
     +     .11122,    .06514,   3.12840,    .27946,    .02963,
     +     .00000,    .18583,    .28444,
     +     .11447,    .06709,   3.56488,    .29501,    .04693,
     +     .00000,    .20205,    .30028,
     +     .11756,    .06893,   3.98962,    .31029,    .06411,
     +     .00000,    .21798,    .31585,
     +     .12081,    .07087,   4.44335,    .32688,    .08302,
     +     .00000,    .23525,    .33275 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12359,    .07251,   4.82917,    .34154,    .09901,
     +     .00000,    .25047,    .34766,
     +     .12624,    .07408,   5.19843,    .35586,    .11474,
     +     .00000,    .26534,    .36224,
     +     .12834,    .07531,   5.49351,    .36740,    .12762,
     +     .00000,    .27731,    .37397,
     +     .13272,    .07787,   6.08361,    .39222,    .15479,
     +     .00292,    .30302,    .39918,
     +     .13640,    .08001,   6.54489,    .41367,    .17809,
     +     .03098,    .32521,    .42097,
     +     .14048,    .08237,   7.04486,    .43782,    .20439,
     +     .06342,    .35019,    .44550,
     +     .14465,    .08476,   7.54797,    .46291,    .23169,
     +     .09340,    .37611,    .47096,
     +     .14838,    .08689,   7.98644,    .48556,    .25632,
     +     .12050,    .39951,    .49394 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15209,    .08900,   8.41204,    .50831,    .28109,
     +     .14762,    .42300,    .51702,
     +     .15513,    .09072,   8.74861,    .52698,    .30135,
     +     .16951,    .44229,    .53598,
     +     .15876,    .09276,   9.13622,    .54933,    .32552,
     +     .19557,    .46536,    .55865,
     +     .16193,    .09454,   9.46504,    .56893,    .34680,
     +     .21865,    .48560,    .57853,
     +     .16482,    .09614,   9.75484,    .58675,    .36618,
     +     .23969,    .50399,    .59660,
     +     .16840,    .09813,  10.09621,    .60882,    .39004,
     +     .26531,    .52678,    .61898,
     +     .17173,    .09996,  10.40033,    .62928,    .41222,
     +     .28925,    .54790,    .63973,
     +     .17482,    .10166,  10.67313,    .64825,    .43289,
     +     .31167,    .56750,    .65898 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17785,    .10331,  10.92081,    .66658,    .45271,
     +     .33291,    .58643,    .67756,
     +     .18078,    .10491,  11.15222,    .68430,    .47197,
     +     .35370,    .60474,    .69554,
     +     .18353,    .10639,  11.35884,    .70079,    .48993,
     +     .37308,    .62179,    .71226,
     +     .18608,    .10776,  11.53729,    .71586,    .50630,
     +     .39068,    .63737,    .72755,
     +     .18863,    .10913,  11.71139,    .73093,    .52276,
     +     .40850,    .65297,    .74284,
     +     .19108,    .11044,  11.86415,    .74517,    .53823,
     +     .42512,    .66770,    .75728,
     +     .19341,    .11168,  12.00691,    .75871,    .55305,
     +     .44116,    .68172,    .77101,
     +     .19558,    .11282,  12.12619,    .77096,    .56640,
     +     .45552,    .69441,    .78345 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19775,    .11397,  12.24390,    .78330,    .57992,
     +     .47014,    .70720,    .79597,
     +     .19986,    .11508,  12.34861,    .79507,    .59280,
     +     .48404,    .71941,    .80791,
     +     .20186,    .11613,  12.44265,    .80612,    .60492,
     +     .49713,    .73087,    .81912,
     +     .20375,    .11712,  12.52769,    .81648,    .61631,
     +     .50948,    .74163,    .82964,
     +     .20563,    .11809,  12.60243,    .82651,    .62733,
     +     .52137,    .75205,    .83983 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11075,    .06621,   1.04770,    .20393,    .00000,
     +     .00000,    .11116,    .20866,
     +     .11491,    .06873,   1.47169,    .21570,    .00000,
     +     .00000,    .12373,    .22084,
     +     .12090,    .07232,   2.10041,    .23427,    .00000,
     +     .00000,    .14345,    .24000,
     +     .12516,    .07486,   2.55516,    .24858,    .00812,
     +     .00000,    .15857,    .25472,
     +     .12950,    .07742,   2.99866,    .26406,    .02680,
     +     .00000,    .17487,    .27062,
     +     .13318,    .07958,   3.37906,    .27778,    .04230,
     +     .00000,    .18927,    .28469,
     +     .13667,    .08162,   3.74521,    .29117,    .05757,
     +     .00000,    .20332,    .29842,
     +     .14033,    .08375,   4.13227,    .30561,    .07427,
     +     .00000,    .21845,    .31321 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14346,    .08556,   4.45801,    .31827,    .08828,
     +     .00000,    .23169,    .32616,
     +     .14644,    .08727,   4.76697,    .33057,    .10199,
     +     .00000,    .24455,    .33874,
     +     .14878,    .08862,   5.01210,    .34043,    .11317,
     +     .00000,    .25484,    .34882,
     +     .15367,    .09140,   5.49597,    .36147,    .13658,
     +     .00257,    .27680,    .37032,
     +     .15777,    .09372,   5.86736,    .37951,    .15650,
     +     .02671,    .29560,    .38874,
     +     .16228,    .09626,   6.26446,    .39965,    .17881,
     +     .05450,    .31658,    .40930,
     +     .16689,    .09883,   6.65847,    .42038,    .20177,
     +     .07995,    .33818,    .43045,
     +     .17099,    .10111,   6.99705,    .43894,    .22234,
     +     .10279,    .35751,    .44938 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17506,    .10335,   7.32130,    .45743,    .24287,
     +     .12549,    .37677,    .46824,
     +     .17838,    .10517,   7.57429,    .47250,    .25954,
     +     .14369,    .39247,    .48362,
     +     .18233,    .10733,   7.86161,    .49040,    .27930,
     +     .16522,    .41112,    .50187,
     +     .18578,    .10919,   8.10214,    .50599,    .29659,
     +     .18418,    .42736,    .51776,
     +     .18890,    .11087,   8.31157,    .52007,    .31225,
     +     .20137,    .44203,    .53211,
     +     .19277,    .11295,   8.55392,    .53736,    .33137,
     +     .22215,    .46007,    .54974,
     +     .19635,    .11485,   8.76640,    .55326,    .34904,
     +     .24145,    .47666,    .56596,
     +     .19967,    .11661,   8.95434,    .56793,    .36541,
     +     .25944,    .49197,    .58091 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20290,    .11831,   9.12097,    .58196,    .38098,
     +     .27635,    .50663,    .59522,
     +     .20603,    .11994,   9.27429,    .59545,    .39604,
     +     .29282,    .52073,    .60897,
     +     .20894,    .12146,   9.40874,    .60791,    .41000,
     +     .30809,    .53377,    .62169,
     +     .21164,    .12286,   9.52193,    .61921,    .42263,
     +     .32188,    .54561,    .63321,
     +     .21433,    .12425,   9.63104,    .63046,    .43529,
     +     .33578,    .55740,    .64469,
     +     .21692,    .12557,   9.72337,    .64099,    .44710,
     +     .34867,    .56844,    .65543,
     +     .21937,    .12682,   9.80886,    .65097,    .45837,
     +     .36106,    .57892,    .66561,
     +     .22163,    .12796,   9.87712,    .65992,    .46845,
     +     .37209,    .58832,    .67474 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22390,    .12911,   9.94371,    .66889,    .47863,
     +     .38327,    .59776,    .68391,
     +     .22610,    .13022,  10.00034,    .67738,    .48826,
     +     .39386,    .60671,    .69258,
     +     .22818,    .13126,  10.04969,    .68531,    .49728,
     +     .40378,    .61507,    .70067,
     +     .23013,    .13224,  10.09317,    .69271,    .50573,
     +     .41311,    .62288,    .70823,
     +     .23207,    .13320,  10.12839,    .69981,    .51385,
     +     .42203,    .63038,    .71549 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12539,    .07642,   1.11660,    .19735,    .00000,
     +     .00000,    .10782,    .20342,
     +     .13001,    .07915,   1.51315,    .20834,    .00000,
     +     .00000,    .11964,    .21487,
     +     .13664,    .08305,   2.09280,    .22549,    .00000,
     +     .00000,    .13795,    .23268,
     +     .14134,    .08578,   2.50603,    .23857,    .00750,
     +     .00000,    .15187,    .24623,
     +     .14611,    .08854,   2.90415,    .25260,    .02468,
     +     .00000,    .16674,    .26072,
     +     .15014,    .09086,   3.24214,    .26493,    .03883,
     +     .00000,    .17979,    .27345,
     +     .15396,    .09304,   3.56452,    .27690,    .05269,
     +     .00000,    .19243,    .28579,
     +     .15795,    .09530,   3.90231,    .28974,    .06777,
     +     .00000,    .20598,    .29901 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16136,    .09722,   4.18411,    .30091,    .08035,
     +     .00000,    .21776,    .31051,
     +     .16459,    .09904,   4.44936,    .31172,    .09259,
     +     .00000,    .22914,    .32162,
     +     .16713,    .10046,   4.65855,    .32034,    .10253,
     +     .00000,    .23822,    .33049,
     +     .17242,    .10340,   5.06682,    .33864,    .12325,
     +     .00232,    .25746,    .34928,
     +     .17684,    .10583,   5.37486,    .35420,    .14075,
     +     .02366,    .27382,    .36526,
     +     .18169,    .10848,   5.70036,    .37146,    .16022,
     +     .04814,    .29195,    .38297,
     +     .18662,    .11116,   6.01938,    .38909,    .18013,
     +     .07039,    .31048,    .40105,
     +     .19100,    .11352,   6.28996,    .40476,    .19785,
     +     .09024,    .32695,    .41712 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19534,    .11584,   6.54582,    .42027,    .21543,
     +     .10986,    .34326,    .43302,
     +     .19887,    .11771,   6.74296,    .43283,    .22962,
     +     .12551,    .35646,    .44590,
     +     .20305,    .11992,   6.96389,    .44764,    .24635,
     +     .14391,    .37205,    .46108,
     +     .20669,    .12183,   7.14646,    .46045,    .26091,
     +     .16004,    .38555,    .47422,
     +     .20997,    .12354,   7.30348,    .47197,    .27403,
     +     .17460,    .39768,    .48602,
     +     .21403,    .12564,   7.48208,    .48600,    .28995,
     +     .19210,    .41249,    .50040,
     +     .21777,    .12757,   7.63599,    .49883,    .30459,
     +     .20827,    .42603,    .51355,
     +     .22123,    .12934,   7.77000,    .51058,    .31808,
     +     .22327,    .43845,    .52560 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22459,    .13104,   7.88560,    .52173,    .33082,
     +     .23729,    .45026,    .53703,
     +     .22783,    .13267,   7.99026,    .53239,    .34309,
     +     .25089,    .46155,    .54796,
     +     .23085,    .13418,   8.08022,    .54219,    .35441,
     +     .26345,    .47194,    .55800,
     +     .23363,    .13556,   8.15333,    .55100,    .36459,
     +     .27472,    .48131,    .56704,
     +     .23640,    .13693,   8.22272,    .55974,    .37476,
     +     .28605,    .49060,    .57601,
     +     .23904,    .13824,   8.27865,    .56784,    .38418,
     +     .29649,    .49924,    .58432,
     +     .24155,    .13946,   8.32988,    .57549,    .39315,
     +     .30651,    .50741,    .59218,
     +     .24385,    .14058,   8.36792,    .58229,    .40112,
     +     .31538,    .51468,    .59916 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24617,    .14170,   8.40441,    .58909,    .40915,
     +     .32435,    .52196,    .60614,
     +     .24840,    .14278,   8.43289,    .59546,    .41670,
     +     .33279,    .52881,    .61269,
     +     .25051,    .14378,   8.45623,    .60138,    .42374,
     +     .34068,    .53517,    .61878,
     +     .25249,    .14473,   8.47569,    .60689,    .43032,
     +     .34808,    .54109,    .62443,
     +     .25444,    .14565,   8.48835,    .61212,    .43659,
     +     .35511,    .54675,    .62981 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15221,    .09496,   1.23386,    .18795,    .00000,
     +     .00000,    .10322,    .19675,
     +     .15756,    .09801,   1.58530,    .19770,    .00000,
     +     .00000,    .11385,    .20705,
     +     .16521,    .10231,   2.08747,    .21262,    .00000,
     +     .00000,    .13003,    .22274,
     +     .17061,    .10532,   2.43711,    .22381,    .00658,
     +     .00000,    .14212,    .23448,
     +     .17604,    .10832,   2.76720,    .23566,    .02158,
     +     .00000,    .15488,    .24686,
     +     .18062,    .11083,   3.04275,    .24594,    .03378,
     +     .00000,    .16593,    .25759,
     +     .18494,    .11318,   3.30167,    .25582,    .04562,
     +     .00000,    .17654,    .26789,
     +     .18944,    .11561,   3.56908,    .26631,    .05838,
     +     .00000,    .18780,    .27882 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19325,    .11766,   3.78883,    .27535,    .06892,
     +     .00000,    .19749,    .28822,
     +     .19687,    .11959,   3.99301,    .28401,    .07910,
     +     .00000,    .20677,    .29723,
     +     .19970,    .12109,   4.15241,    .29088,    .08732,
     +     .00000,    .21413,    .30437,
     +     .20556,    .12418,   4.45707,    .30530,    .10429,
     +     .00197,    .22958,    .31934,
     +     .21042,    .12672,   4.67991,    .31742,    .11845,
     +     .01944,    .24255,    .33190,
     +     .21573,    .12947,   4.91016,    .33070,    .13406,
     +     .03938,    .25677,    .34566,
     +     .22111,    .13222,   5.13050,    .34408,    .14984,
     +     .05730,    .27111,    .35952,
     +     .22585,    .13463,   5.31282,    .35582,    .16374,
     +     .07312,    .28371,    .37168 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23052,    .13698,   5.48116,    .36731,    .17739,
     +     .08861,    .29606,    .38358,
     +     .23430,    .13886,   5.60765,    .37649,    .18830,
     +     .10086,    .30594,    .39309,
     +     .23875,    .14107,   5.74524,    .38720,    .20104,
     +     .11514,    .31748,    .40418,
     +     .24260,    .14296,   5.85593,    .39636,    .21203,
     +     .12755,    .32737,    .41367,
     +     .24607,    .14465,   5.94878,    .40451,    .22185,
     +     .13868,    .33619,    .42212,
     +     .25032,    .14670,   6.04964,    .41431,    .23366,
     +     .15194,    .34681,    .43226,
     +     .25423,    .14857,   6.13306,    .42315,    .24439,
     +     .16408,    .35642,    .44142,
     +     .25782,    .15027,   6.20301,    .43117,    .25422,
     +     .17525,    .36514,    .44972 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26128,    .15190,   6.25902,    .43865,    .26339,
     +     .18560,    .37332,    .45748,
     +     .26460,    .15345,   6.30711,    .44572,    .27215,
     +     .19556,    .38107,    .46481,
     +     .26768,    .15487,   6.34555,    .45215,    .28015,
     +     .20470,    .38813,    .47148,
     +     .27050,    .15615,   6.37330,    .45784,    .28729,
     +     .21282,    .39441,    .47738,
     +     .27329,    .15743,   6.39822,    .46344,    .29438,
     +     .22095,    .40060,    .48319,
     +     .27595,    .15862,   6.41353,    .46853,    .30086,
     +     .22837,    .40626,    .48848,
     +     .27845,    .15975,   6.42669,    .47331,    .30701,
     +     .23546,    .41158,    .49344,
     +     .28074,    .16076,   6.43168,    .47747,    .31240,
     +     .24166,    .41624,    .49777 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28303,    .16177,   6.43547,    .48160,    .31781,
     +     .24792,    .42088,    .50206,
     +     .28523,    .16273,   6.43399,    .48541,    .32284,
     +     .25376,    .42518,    .50603,
     +     .28730,    .16362,   6.43000,    .48890,    .32750,
     +     .25919,    .42914,    .50967,
     +     .28923,    .16445,   6.42444,    .49212,    .33183,
     +     .26425,    .43280,    .51302,
     +     .29112,    .16526,   6.41396,    .49510,    .33590,
     +     .26901,    .43622,    .51613 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18861,    .11952,   1.36806,    .17801,    .00000,
     +     .00000,    .09861,    .19097,
     +     .19478,    .12280,   1.66588,    .18630,    .00000,
     +     .00000,    .10788,    .19989,
     +     .20351,    .12741,   2.08061,    .19872,    .00000,
     +     .00000,    .12171,    .21318,
     +     .20961,    .13059,   2.36142,    .20786,    .00563,
     +     .00000,    .13186,    .22292,
     +     .21572,    .13375,   2.61967,    .21738,    .01838,
     +     .00000,    .14240,    .23303,
     +     .22084,    .13636,   2.83101,    .22552,    .02861,
     +     .00000,    .15139,    .24165,
     +     .22564,    .13879,   3.02596,    .23324,    .03842,
     +     .00000,    .15992,    .24983,
     +     .23061,    .14128,   3.22369,    .24134,    .04888,
     +     .00000,    .16887,    .25839 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23481,    .14337,   3.38317,    .24823,    .05742,
     +     .00000,    .17648,    .26566,
     +     .23876,    .14532,   3.52884,    .25476,    .06560,
     +     .00000,    .18370,    .27255,
     +     .24185,    .14684,   3.64109,    .25990,    .07217,
     +     .00000,    .18938,    .27797,
     +     .24819,    .14992,   3.84929,    .27055,    .08555,
     +     .00162,    .20115,    .28918,
     +     .25341,    .15243,   3.99427,    .27935,    .09659,
     +     .01544,    .21089,    .29843,
     +     .25907,    .15511,   4.13918,    .28884,    .10859,
     +     .03112,    .22142,    .30841,
     +     .26475,    .15777,   4.27307,    .29825,    .12057,
     +     .04502,    .23188,    .31829,
     +     .26972,    .16007,   4.37945,    .30636,    .13098,
     +     .05714,    .24092,    .32680 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27457,    .16229,   4.47354,    .31416,    .14109,
     +     .06889,    .24966,    .33500,
     +     .27847,    .16405,   4.54104,    .32031,    .14908,
     +     .07809,    .25656,    .34145,
     +     .28303,    .16609,   4.61031,    .32734,    .15830,
     +     .08870,    .26450,    .34884,
     +     .28695,    .16782,   4.66285,    .33327,    .16617,
     +     .09784,    .27121,    .35506,
     +     .29044,    .16935,   4.70432,    .33847,    .17313,
     +     .10596,    .27712,    .36051,
     +     .29471,    .17118,   4.74440,    .34458,    .18138,
     +     .11553,    .28411,    .36694,
     +     .29858,    .17283,   4.77376,    .34999,    .18881,
     +     .12420,    .29034,    .37262,
     +     .30212,    .17432,   4.79540,    .35481,    .19553,
     +     .13212,    .29593,    .37769 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30549,    .17571,   4.80699,    .35919,    .20171,
     +     .13936,    .30105,    .38229,
     +     .30870,    .17702,   4.81367,    .36326,    .20756,
     +     .14627,    .30584,    .38657,
     +     .31167,    .17822,   4.81515,    .36688,    .21285,
     +     .15256,    .31013,    .39038,
     +     .31434,    .17928,   4.81081,    .37000,    .21749,
     +     .15809,    .31387,    .39367,
     +     .31699,    .18032,   4.80460,    .37304,    .22207,
     +     .16358,    .31752,    .39687,
     +     .31948,    .18128,   4.79243,    .37569,    .22619,
     +     .16853,    .32077,    .39966,
     +     .32181,    .18217,   4.78016,    .37815,    .23008,
     +     .17324,    .32381,    .40227,
     +     .32392,    .18296,   4.76365,    .38020,    .23342,
     +     .17732,    .32638,    .40444 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32602,    .18374,   4.74638,    .38222,    .23676,
     +     .18140,    .32893,    .40657,
     +     .32802,    .18446,   4.72609,    .38400,    .23982,
     +     .18517,    .33122,    .40846,
     +     .32988,    .18513,   4.70526,    .38559,    .24263,
     +     .18865,    .33330,    .41014,
     +     .33162,    .18575,   4.68448,    .38701,    .24521,
     +     .19187,    .33519,    .41166,
     +     .33329,    .18633,   4.66035,    .38826,    .24759,
     +     .19486,    .33689,    .41298 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24328,    .15450,   1.50980,    .16537,    .00000,
     +     .00000,    .09313,    .18522,
     +     .25024,    .15784,   1.73951,    .17180,    .00000,
     +     .00000,    .10070,    .19230,
     +     .25998,    .16243,   2.04884,    .18117,    .00000,
     +     .00000,    .11169,    .20255,
     +     .26671,    .16555,   2.25038,    .18790,    .00456,
     +     .00000,    .11957,    .20988,
     +     .27338,    .16860,   2.42851,    .19476,    .01480,
     +     .00000,    .12758,    .21731,
     +     .27891,    .17109,   2.57020,    .20050,    .02288,
     +     .00000,    .13429,    .22351,
     +     .28405,    .17338,   2.69753,    .20586,    .03052,
     +     .00000,    .14056,    .22928,
     +     .28933,    .17570,   2.82325,    .21139,    .03856,
     +     .00000,    .14704,    .23523 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29375,    .17762,   2.92159,    .21600,    .04503,
     +     .00000,    .15246,    .24019,
     +     .29788,    .17939,   3.00899,    .22030,    .05116,
     +     .00000,    .15753,    .24481,
     +     .30108,    .18076,   3.07499,    .22365,    .05603,
     +     .00000,    .16148,    .24840,
     +     .30759,    .18350,   3.19055,    .23044,    .06582,
     +     .00126,    .16951,    .25566,
     +     .31289,    .18566,   3.26300,    .23592,    .07376,
     +     .01144,    .17603,    .26152,
     +     .31855,    .18795,   3.33026,    .24168,    .08227,
     +     .02291,    .18293,    .26767,
     +     .32416,    .19017,   3.38717,    .24724,    .09061,
     +     .03290,    .18963,    .27358,
     +     .32899,    .19205,   3.42758,    .25189,    .09774,
     +     .04150,    .19530,    .27853 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33366,    .19381,   3.45881,    .25623,    .10455,
     +     .04971,    .20064,    .28315,
     +     .33736,    .19518,   3.47723,    .25955,    .10986,
     +     .05606,    .20477,    .28668,
     +     .34164,    .19672,   3.49120,    .26323,    .11588,
     +     .06329,    .20941,    .29059,
     +     .34526,    .19800,   3.49775,    .26623,    .12094,
     +     .06944,    .21326,    .29378,
     +     .34845,    .19911,   3.49935,    .26878,    .12536,
     +     .07485,    .21656,    .29649,
     +     .35227,    .20039,   3.49345,    .27164,    .13051,
     +     .08113,    .22035,    .29952,
     +     .35569,    .20151,   3.48280,    .27407,    .13506,
     +     .08675,    .22364,    .30209,
     +     .35878,    .20249,   3.46939,    .27615,    .13913,
     +     .09181,    .22651,    .30430 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36167,    .20336,   3.45001,    .27790,    .14277,
     +     .09637,    .22903,    .30615,
     +     .36438,    .20416,   3.42858,    .27945,    .14618,
     +     .10068,    .23133,    .30779,
     +     .36683,    .20487,   3.40571,    .28075,    .14921,
     +     .10454,    .23332,    .30916,
     +     .36901,    .20546,   3.38096,    .28176,    .15181,
     +     .10789,    .23497,    .31022,
     +     .37114,    .20602,   3.35537,    .28270,    .15435,
     +     .11120,    .23655,    .31121,
     +     .37309,    .20650,   3.32692,    .28339,    .15657,
     +     .11412,    .23785,    .31194,
     +     .37491,    .20694,   3.29987,    .28401,    .15865,
     +     .11688,    .23905,    .31259,
     +     .37650,    .20730,   3.27164,    .28441,    .16039,
     +     .11923,    .23998,    .31300 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37808,    .20764,   3.24317,    .28478,    .16210,
     +     .12156,    .24088,    .31338,
     +     .37954,    .20793,   3.21348,    .28499,    .16363,
     +     .12368,    .24161,    .31360,
     +     .38088,    .20818,   3.18461,    .28513,    .16500,
     +     .12561,    .24223,    .31373,
     +     .38212,    .20840,   3.15694,    .28520,    .16624,
     +     .12738,    .24277,    .31381,
     +     .38327,    .20857,   3.12747,    .28515,    .16735,
     +     .12900,    .24317,    .31374 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29298,    .18410,   1.57976,    .15440,    .00000,
     +     .00000,    .08859,    .18077,
     +     .30026,    .18719,   1.75772,    .15940,    .00000,
     +     .00000,    .09483,    .18635,
     +     .31033,    .19139,   1.99056,    .16650,    .00000,
     +     .00000,    .10370,    .19420,
     +     .31721,    .19420,   2.13692,    .17151,    .00381,
     +     .00000,    .10994,    .19971,
     +     .32395,    .19688,   2.26105,    .17652,    .01230,
     +     .00000,    .11619,    .20517,
     +     .32948,    .19903,   2.35691,    .18062,    .01892,
     +     .00000,    .12133,    .20964,
     +     .33458,    .20099,   2.44084,    .18440,    .02511,
     +     .00000,    .12608,    .21374,
     +     .33977,    .20296,   2.52145,    .18823,    .03155,
     +     .00000,    .13092,    .21788 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34407,    .20455,   2.58225,    .19137,    .03669,
     +     .00000,    .13491,    .22126,
     +     .34806,    .20600,   2.63454,    .19425,    .04150,
     +     .00000,    .13860,    .22435,
     +     .35114,    .20711,   2.67309,    .19646,    .04531,
     +     .00000,    .14144,    .22673,
     +     .35733,    .20925,   2.73501,    .20086,    .05287,
     +     .00102,    .14714,    .23145,
     +     .36227,    .21092,   2.76676,    .20432,    .05892,
     +     .00895,    .15168,    .23513,
     +     .36750,    .21261,   2.79155,    .20786,    .06532,
     +     .01783,    .15639,    .23888,
     +     .37259,    .21421,   2.80759,    .21114,    .07151,
     +     .02546,    .16085,    .24235,
     +     .37692,    .21550,   2.81400,    .21379,    .07673,
     +     .03196,    .16454,    .24514 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38103,    .21667,   2.81370,    .21617,    .08165,
     +     .03810,    .16795,    .24763,
     +     .38424,    .21755,   2.80828,    .21790,    .08543,
     +     .04280,    .17051,    .24944,
     +     .38787,    .21849,   2.79596,    .21973,    .08967,
     +     .04810,    .17330,    .25133,
     +     .39090,    .21923,   2.78123,    .22113,    .09319,
     +     .05256,    .17555,    .25277,
     +     .39354,    .21983,   2.76491,    .22227,    .09622,
     +     .05645,    .17744,    .25393,
     +     .39662,    .22047,   2.73913,    .22341,    .09970,
     +     .06091,    .17952,    .25508,
     +     .39932,    .22098,   2.71192,    .22428,    .10273,
     +     .06486,    .18125,    .25593,
     +     .40170,    .22139,   2.68457,    .22496,    .10540,
     +     .06839,    .18271,    .25658 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40386,    .22170,   2.65356,    .22538,    .10775,
     +     .07152,    .18389,    .25696,
     +     .40585,    .22194,   2.62204,    .22567,    .10991,
     +     .07445,    .18492,    .25720,
     +     .40762,    .22210,   2.59091,    .22582,    .11179,
     +     .07706,    .18575,    .25729,
     +     .40912,    .22220,   2.55981,    .22582,    .11338,
     +     .07929,    .18637,    .25721,
     +     .41056,    .22227,   2.52849,    .22576,    .11491,
     +     .08147,    .18693,    .25707,
     +     .41181,    .22226,   2.49583,    .22554,    .11621,
     +     .08337,    .18729,    .25675,
     +     .41297,    .22224,   2.46515,    .22531,    .11741,
     +     .08515,    .18762,    .25643,
     +     .41394,    .22215,   2.43471,    .22494,    .11838,
     +     .08664,    .18777,    .25598 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41488,    .22205,   2.40434,    .22455,    .11933,
     +     .08811,    .18789,    .25550,
     +     .41570,    .22190,   2.37360,    .22407,    .12014,
     +     .08943,    .18791,    .25492,
     +     .41643,    .22173,   2.34419,    .22357,    .12086,
     +     .09061,    .18788,    .25432,
     +     .41707,    .22155,   2.31637,    .22306,    .12149,
     +     .09169,    .18781,    .25372,
     +     .41762,    .22133,   2.28751,    .22246,    .12202,
     +     .09265,    .18763,    .25300 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38157,    .23151,   1.58955,    .13432,    .00000,
     +     .00000,    .08023,    .17174,
     +     .38846,    .23369,   1.69457,    .13726,    .00000,
     +     .00000,    .08449,    .17489,
     +     .39781,    .23646,   1.82403,    .14123,    .00000,
     +     .00000,    .09031,    .17913,
     +     .40400,    .23824,   1.89908,    .14394,    .00278,
     +     .00000,    .09429,    .18194,
     +     .40994,    .23981,   1.95560,    .14654,    .00890,
     +     .00000,    .09816,    .18461,
     +     .41469,    .24099,   1.99590,    .14858,    .01359,
     +     .00000,    .10125,    .18668,
     +     .41898,    .24201,   2.02847,    .15038,    .01790,
     +     .00000,    .10404,    .18849,
     +     .42327,    .24297,   2.05690,    .15213,    .02233,
     +     .00000,    .10681,    .19023 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42673,    .24368,   2.07536,    .15350,    .02579,
     +     .00000,    .10902,    .19156,
     +     .42986,    .24427,   2.08887,    .15469,    .02900,
     +     .00000,    .11102,    .19270,
     +     .43225,    .24470,   2.09763,    .15559,    .03150,
     +     .00000,    .11253,    .19354,
     +     .43687,    .24541,   2.10304,    .15725,    .03640,
     +     .00072,    .11547,    .19505,
     +     .44042,    .24582,   2.09384,    .15844,    .04024,
     +     .00593,    .11770,    .19609,
     +     .44401,    .24613,   2.07742,    .15952,    .04422,
     +     .01174,    .11991,    .19697,
     +     .44733,    .24629,   2.05531,    .16037,    .04798,
     +     .01663,    .12187,    .19757,
     +     .45000,    .24628,   2.03123,    .16090,    .05108,
     +     .02072,    .12340,    .19786 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45239,    .24615,   2.00379,    .16125,    .05394,
     +     .02453,    .12471,    .19795,
     +     .45414,    .24595,   1.97857,    .16138,    .05610,
     +     .02739,    .12560,    .19786,
     +     .45597,    .24558,   1.94560,    .16136,    .05845,
     +     .03057,    .12649,    .19753,
     +     .45738,    .24518,   1.91508,    .16123,    .06036,
     +     .03321,    .12712,    .19710,
     +     .45852,    .24475,   1.88618,    .16100,    .06198,
     +     .03547,    .12757,    .19662,
     +     .45967,    .24407,   1.84760,    .16052,    .06377,
     +     .03802,    .12796,    .19581,
     +     .46055,    .24336,   1.81062,    .15997,    .06529,
     +     .04024,    .12818,    .19491,
     +     .46121,    .24265,   1.77577,    .15937,    .06659,
     +     .04219,    .12828,    .19400 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46163,    .24183,   1.73971,    .15863,    .06767,
     +     .04388,    .12822,    .19291,
     +     .46191,    .24098,   1.70458,    .15784,    .06865,
     +     .04544,    .12807,    .19180,
     +     .46204,    .24014,   1.67132,    .15703,    .06947,
     +     .04680,    .12786,    .19068,
     +     .46200,    .23929,   1.63961,    .15618,    .07012,
     +     .04793,    .12756,    .18953,
     +     .46191,    .23841,   1.60828,    .15531,    .07073,
     +     .04903,    .12723,    .18835,
     +     .46165,    .23748,   1.57704,    .15437,    .07121,
     +     .04996,    .12680,    .18710,
     +     .46137,    .23660,   1.54803,    .15347,    .07164,
     +     .05082,    .12639,    .18591,
     +     .46095,    .23570,   1.52028,    .15255,    .07194,
     +     .05151,    .12590,    .18471 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46051,    .23480,   1.49288,    .15162,    .07223,
     +     .05218,    .12541,    .18349,
     +     .45996,    .23386,   1.46585,    .15064,    .07244,
     +     .05277,    .12486,    .18224,
     +     .45939,    .23295,   1.44039,    .14970,    .07261,
     +     .05328,    .12431,    .18103,
     +     .45881,    .23207,   1.41658,    .14879,    .07275,
     +     .05374,    .12377,    .17986,
     +     .45811,    .23115,   1.39244,    .14782,    .07281,
     +     .05412,    .12318,    .17863 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45807,    .26692,   1.50622,    .11607,    .00000,
     +     .00000,    .07224,    .16116,
     +     .46371,    .26784,   1.56463,    .11765,    .00000,
     +     .00000,    .07507,    .16251,
     +     .47105,    .26881,   1.63084,    .11968,    .00000,
     +     .00000,    .07885,    .16412,
     +     .47575,    .26927,   1.66423,    .12099,    .00209,
     +     .00000,    .08135,    .16508,
     +     .48007,    .26949,   1.68279,    .12217,    .00667,
     +     .00000,    .08371,    .16589,
     +     .48338,    .26952,   1.69291,    .12302,    .01013,
     +     .00000,    .08554,    .16639,
     +     .48625,    .26944,   1.69845,    .12372,    .01328,
     +     .00000,    .08714,    .16673,
     +     .48902,    .26926,   1.70022,    .12434,    .01646,
     +     .00000,    .08868,    .16697 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49114,    .26897,   1.69763,    .12475,    .01892,
     +     .00000,    .08987,    .16703,
     +     .49296,    .26862,   1.69238,    .12506,    .02118,
     +     .00000,    .09090,    .16699,
     +     .49430,    .26831,   1.68706,    .12528,    .02293,
     +     .00000,    .09167,    .16690,
     +     .49667,    .26747,   1.66709,    .12554,    .02631,
     +     .00054,    .09308,    .16657,
     +     .49827,    .26659,   1.64091,    .12560,    .02890,
     +     .00418,    .09407,    .16610,
     +     .49967,    .26547,   1.60846,    .12551,    .03155,
     +     .00822,    .09496,    .16538,
     +     .50069,    .26416,   1.57255,    .12521,    .03402,
     +     .01158,    .09565,    .16443,
     +     .50128,    .26286,   1.53829,    .12479,    .03601,
     +     .01435,    .09609,    .16343 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50158,    .26144,   1.50259,    .12425,    .03781,
     +     .01689,    .09637,    .16229,
     +     .50157,    .26019,   1.47216,    .12370,    .03913,
     +     .01878,    .09649,    .16121,
     +     .50130,    .25858,   1.43453,    .12291,    .04056,
     +     .02085,    .09648,    .15981,
     +     .50087,    .25709,   1.40115,    .12214,    .04169,
     +     .02254,    .09638,    .15851,
     +     .50031,    .25568,   1.37058,    .12138,    .04262,
     +     .02399,    .09621,    .15726,
     +     .49933,    .25380,   1.33139,    .12031,    .04362,
     +     .02558,    .09586,    .15555,
     +     .49820,    .25199,   1.29492,    .11924,    .04444,
     +     .02695,    .09544,    .15390,
     +     .49702,    .25026,   1.26132,    .11820,    .04513,
     +     .02813,    .09499,    .15231 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49557,    .24846,   1.22760,    .11709,    .04567,
     +     .02914,    .09444,    .15063,
     +     .49407,    .24667,   1.19530,    .11597,    .04613,
     +     .03005,    .09385,    .14897,
     +     .49253,    .24495,   1.16525,    .11488,    .04650,
     +     .03083,    .09326,    .14738,
     +     .49093,    .24328,   1.13716,    .11380,    .04677,
     +     .03147,    .09263,    .14584,
     +     .48929,    .24161,   1.10968,    .11272,    .04701,
     +     .03208,    .09199,    .14429,
     +     .48750,    .23991,   1.08280,    .11161,    .04717,
     +     .03258,    .09130,    .14272,
     +     .48581,    .23830,   1.05800,    .11056,    .04730,
     +     .03303,    .09065,    .14124,
     +     .48405,    .23674,   1.03467,    .10953,    .04736,
     +     .03339,    .08999,    .13980 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .48228,    .23518,   1.01178,    .10850,    .04740,
     +     .03373,    .08931,    .13836,
     +     .48042,    .23361,    .98946,    .10746,    .04741,
     +     .03401,    .08862,    .13692,
     +     .47862,    .23210,    .96862,    .10646,    .04738,
     +     .03424,    .08794,    .13555,
     +     .47687,    .23067,    .94926,    .10552,    .04735,
     +     .03445,    .08729,    .13425,
     +     .47502,    .22919,    .92986,    .10454,    .04727,
     +     .03461,    .08661,    .13292 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52361,    .29287,   1.38318,    .09978,    .00000,
     +     .00000,    .06452,    .14904,
     +     .52740,    .29243,   1.41158,    .10049,    .00000,
     +     .00000,    .06635,    .14904,
     +     .53196,    .29143,   1.43842,    .10130,    .00000,
     +     .00000,    .06869,    .14878,
     +     .53463,    .29052,   1.44693,    .10176,    .00161,
     +     .00000,    .07018,    .14844,
     +     .53682,    .28935,   1.44373,    .10209,    .00511,
     +     .00000,    .07155,    .14795,
     +     .53829,    .28820,   1.43702,    .10224,    .00773,
     +     .00000,    .07255,    .14741,
     +     .53941,    .28700,   1.42789,    .10230,    .01009,
     +     .00000,    .07340,    .14679,
     +     .54033,    .28565,   1.41564,    .10228,    .01245,
     +     .00000,    .07417,    .14604 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54081,    .28441,   1.40237,    .10218,    .01426,
     +     .00000,    .07473,    .14530,
     +     .54107,    .28313,   1.38790,    .10202,    .01590,
     +     .00000,    .07518,    .14453,
     +     .54118,    .28210,   1.37583,    .10186,    .01717,
     +     .00000,    .07549,    .14389,
     +     .54100,    .27975,   1.34447,    .10139,    .01958,
     +     .00041,    .07600,    .14242,
     +     .54038,    .27764,   1.31171,    .10089,    .02141,
     +     .00305,    .07627,    .14107,
     +     .53934,    .27517,   1.27373,    .10021,    .02325,
     +     .00598,    .07643,    .13944,
     +     .53789,    .27249,   1.23375,    .09937,    .02494,
     +     .00837,    .07643,    .13764,
     +     .53625,    .26999,   1.19723,    .09852,    .02627,
     +     .01033,    .07629,    .13592 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53432,    .26742,   1.16042,    .09758,    .02746,
     +     .01211,    .07603,    .13413,
     +     .53250,    .26524,   1.12991,    .09674,    .02832,
     +     .01341,    .07574,    .13258,
     +     .53006,    .26252,   1.09314,    .09565,    .02921,
     +     .01482,    .07530,    .13066,
     +     .52773,    .26008,   1.06116,    .09465,    .02991,
     +     .01597,    .07484,    .12893,
     +     .52547,    .25784,   1.03236,    .09369,    .03048,
     +     .01693,    .07437,    .12733,
     +     .52236,    .25491,    .99619,    .09242,    .03106,
     +     .01798,    .07370,    .12525,
     +     .51928,    .25215,    .96306,    .09121,    .03152,
     +     .01887,    .07302,    .12326,
     +     .51627,    .24959,    .93293,    .09007,    .03189,
     +     .01963,    .07234,    .12140 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51307,    .24695,    .90321,    .08886,    .03216,
     +     .02026,    .07160,    .11952,
     +     .50986,    .24439,    .87502,    .08768,    .03237,
     +     .02083,    .07085,    .11769,
     +     .50673,    .24196,    .84907,    .08656,    .03253,
     +     .02130,    .07012,    .11595,
     +     .50367,    .23963,    .82512,    .08548,    .03262,
     +     .02168,    .06941,    .11429,
     +     .50060,    .23732,    .80184,    .08441,    .03269,
     +     .02204,    .06869,    .11264,
     +     .49742,    .23500,    .77931,    .08332,    .03270,
     +     .02232,    .06794,    .11101,
     +     .49442,    .23283,    .75864,    .08230,    .03271,
     +     .02257,    .06724,    .10949,
     +     .49145,    .23074,    .73938,    .08131,    .03266,
     +     .02276,    .06654,    .10804 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48848,    .22866,    .72057,    .08032,    .03261,
     +     .02293,    .06585,    .10660,
     +     .48547,    .22659,    .70240,    .07935,    .03254,
     +     .02307,    .06515,    .10516,
     +     .48257,    .22463,    .68551,    .07842,    .03245,
     +     .02318,    .06447,    .10380,
     +     .47981,    .22278,    .66990,    .07755,    .03235,
     +     .02327,    .06384,    .10253,
     +     .47693,    .22089,    .65437,    .07666,    .03223,
     +     .02333,    .06317,    .10123 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59109,    .31452,   1.21465,    .08231,    .00000,
     +     .00000,    .05541,    .13233,
     +     .59199,    .31238,   1.22023,    .08240,    .00000,
     +     .00000,    .05637,    .13117,
     +     .59241,    .30894,   1.21809,    .08230,    .00000,
     +     .00000,    .05752,    .12936,
     +     .59213,    .30634,   1.20904,    .08215,    .00119,
     +     .00000,    .05820,    .12797,
     +     .59128,    .30349,   1.19135,    .08189,    .00374,
     +     .00000,    .05876,    .12647,
     +     .59017,    .30093,   1.17385,    .08157,    .00564,
     +     .00000,    .05912,    .12512,
     +     .58883,    .29844,   1.15564,    .08121,    .00732,
     +     .00000,    .05938,    .12376,
     +     .58717,    .29576,   1.13505,    .08078,    .00900,
     +     .00000,    .05958,    .12229 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58548,    .29336,   1.11577,    .08034,    .01027,
     +     .00000,    .05965,    .12098,
     +     .58366,    .29101,   1.09639,    .07987,    .01141,
     +     .00000,    .05967,    .11969,
     +     .58214,    .28916,   1.08089,    .07949,    .01228,
     +     .00000,    .05966,    .11866,
     +     .57855,    .28513,   1.04463,    .07859,    .01392,
     +     .00030,    .05952,    .11646,
     +     .57513,    .28161,   1.01019,    .07776,    .01514,
     +     .00213,    .05930,    .11452,
     +     .57100,    .27766,    .97168,    .07676,    .01635,
     +     .00415,    .05896,    .11233,
     +     .56639,    .27353,    .93236,    .07565,    .01744,
     +     .00578,    .05851,    .11002,
     +     .56199,    .26975,    .89738,    .07460,    .01828,
     +     .00709,    .05801,    .10791 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55734,    .26593,    .86290,    .07350,    .01901,
     +     .00827,    .05744,    .10577,
     +     .55333,    .26275,    .83489,    .07255,    .01953,
     +     .00913,    .05692,    .10400,
     +     .54828,    .25889,    .80175,    .07136,    .02005,
     +     .01004,    .05624,    .10183,
     +     .54371,    .25549,    .77337,    .07031,    .02045,
     +     .01078,    .05560,    .09994,
     +     .53945,    .25238,    .74814,    .06933,    .02076,
     +     .01139,    .05498,    .09822,
     +     .53385,    .24844,    .71693,    .06807,    .02106,
     +     .01204,    .05417,    .09601,
     +     .52850,    .24475,    .68872,    .06687,    .02128,
     +     .01258,    .05338,    .09397,
     +     .52346,    .24134,    .66334,    .06575,    .02144,
     +     .01303,    .05263,    .09208 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51826,    .23791,    .63867,    .06461,    .02154,
     +     .01340,    .05185,    .09019,
     +     .51316,    .23458,    .61550,    .06351,    .02161,
     +     .01373,    .05108,    .08837,
     +     .50832,    .23146,    .59436,    .06246,    .02163,
     +     .01399,    .05034,    .08669,
     +     .50365,    .22852,    .57502,    .06147,    .02162,
     +     .01420,    .04963,    .08510,
     +     .49899,    .22561,    .55634,    .06050,    .02160,
     +     .01438,    .04893,    .08353,
     +     .49430,    .22275,    .53845,    .05953,    .02154,
     +     .01452,    .04821,    .08199,
     +     .48990,    .22007,    .52211,    .05863,    .02148,
     +     .01465,    .04754,    .08056,
     +     .48566,    .21751,    .50704,    .05776,    .02140,
     +     .01473,    .04690,    .07922 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48144,    .21497,    .49239,    .05689,    .02131,
     +     .01480,    .04626,    .07789,
     +     .47721,    .21247,    .47832,    .05604,    .02121,
     +     .01485,    .04563,    .07659,
     +     .47318,    .21010,    .46533,    .05525,    .02109,
     +     .01489,    .04503,    .07537,
     +     .46936,    .20788,    .45337,    .05450,    .02098,
     +     .01491,    .04446,    .07422,
     +     .46544,    .20564,    .44155,    .05375,    .02085,
     +     .01492,    .04388,    .07305 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .64335,    .32638,   1.05341,    .06794,    .00000,
     +     .00000,    .04704,    .11484,
     +     .64113,    .32258,   1.04597,    .06763,    .00000,
     +     .00000,    .04745,    .11303,
     +     .63701,    .31689,   1.02799,    .06704,    .00000,
     +     .00000,    .04784,    .11032,
     +     .63354,    .31274,   1.00990,    .06658,    .00089,
     +     .00000,    .04804,    .10834,
     +     .62952,    .30834,    .98542,    .06600,    .00279,
     +     .00000,    .04811,    .10632,
     +     .62572,    .30450,    .96315,    .06545,    .00419,
     +     .00000,    .04810,    .10455,
     +     .62188,    .30084,    .94122,    .06488,    .00542,
     +     .00000,    .04802,    .10284,
     +     .61761,    .29697,    .91750,    .06425,    .00663,
     +     .00000,    .04788,    .10104 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61372,    .29358,    .89625,    .06367,    .00754,
     +     .00000,    .04771,    .09947,
     +     .60982,    .29031,    .87554,    .06307,    .00835,
     +     .00000,    .04750,    .09796,
     +     .60669,    .28775,    .85925,    .06259,    .00896,
     +     .00000,    .04732,    .09678,
     +     .59977,    .28227,    .82284,    .06153,    .01010,
     +     .00023,    .04685,    .09426,
     +     .59359,    .27764,    .78981,    .06060,    .01094,
     +     .00152,    .04640,    .09212,
     +     .58651,    .27245,    .75364,    .05951,    .01176,
     +     .00295,    .04583,    .08977,
     +     .57894,    .26711,    .71738,    .05835,    .01248,
     +     .00409,    .04517,    .08733,
     +     .57194,    .26232,    .68566,    .05728,    .01302,
     +     .00500,    .04453,    .08515 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56481,    .25752,    .65485,    .05616,    .01348,
     +     .00580,    .04384,    .08299,
     +     .55878,    .25359,    .63013,    .05523,    .01380,
     +     .00638,    .04324,    .08121,
     +     .55137,    .24885,    .60123,    .05410,    .01411,
     +     .00699,    .04250,    .07907,
     +     .54480,    .24472,    .57676,    .05310,    .01433,
     +     .00747,    .04183,    .07722,
     +     .53876,    .24099,    .55521,    .05218,    .01450,
     +     .00787,    .04120,    .07555,
     +     .53100,    .23626,    .52885,    .05101,    .01465,
     +     .00828,    .04038,    .07346,
     +     .52372,    .23189,    .50526,    .04991,    .01475,
     +     .00862,    .03961,    .07155,
     +     .51694,    .22787,    .48422,    .04890,    .01481,
     +     .00891,    .03888,    .06980 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .51007,    .22387,    .46395,    .04787,    .01482,
     +     .00913,    .03814,    .06808,
     +     .50338,    .22003,    .44504,    .04689,    .01482,
     +     .00932,    .03742,    .06643,
     +     .49707,    .21644,    .42790,    .04598,    .01479,
     +     .00947,    .03674,    .06490,
     +     .49109,    .21309,    .41236,    .04512,    .01474,
     +     .00958,    .03610,    .06347,
     +     .48516,    .20979,    .39744,    .04428,    .01468,
     +     .00968,    .03547,    .06207,
     +     .47928,    .20655,    .38327,    .04344,    .01460,
     +     .00974,    .03484,    .06072,
     +     .47379,    .20353,    .37038,    .04265,    .01452,
     +     .00980,    .03426,    .05947,
     +     .46853,    .20068,    .35854,    .04192,    .01443,
     +     .00983,    .03370,    .05829 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46331,    .19785,    .34707,    .04120,    .01433,
     +     .00986,    .03314,    .05713,
     +     .45813,    .19509,    .33613,    .04050,    .01423,
     +     .00987,    .03260,    .05600,
     +     .45323,    .19250,    .32606,    .03983,    .01412,
     +     .00987,    .03208,    .05495,
     +     .44861,    .19007,    .31684,    .03921,    .01402,
     +     .00986,    .03159,    .05396,
     +     .44390,    .18762,    .30779,    .03858,    .01391,
     +     .00985,    .03110,    .05298 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .68137,    .33026,    .90960,    .05625,    .00000,
     +     .00000,    .03949,    .09750,
     +     .67585,    .32503,    .89479,    .05577,    .00000,
     +     .00000,    .03952,    .09535,
     +     .66713,    .31733,    .86826,    .05493,    .00000,
     +     .00000,    .03945,    .09222,
     +     .66049,    .31184,    .84572,    .05428,    .00067,
     +     .00000,    .03933,    .09002,
     +     .65327,    .30614,    .81844,    .05359,    .00211,
     +     .00000,    .03915,    .08776,
     +     .64683,    .30123,    .79446,    .05292,    .00315,
     +     .00000,    .03891,    .08585,
     +     .64054,    .29658,    .77146,    .05228,    .00406,
     +     .00000,    .03865,    .08403,
     +     .63377,    .29173,    .74714,    .05159,    .00495,
     +     .00000,    .03834,    .08211 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62775,    .28754,    .72584,    .05096,    .00561,
     +     .00000,    .03802,    .08048,
     +     .62189,    .28352,    .70542,    .05032,    .00620,
     +     .00000,    .03770,    .07894,
     +     .61727,    .28036,    .68954,    .04980,    .00664,
     +     .00000,    .03743,    .07774,
     +     .60724,    .27376,    .65498,    .04872,    .00745,
     +     .00017,    .03682,    .07522,
     +     .59854,    .26820,    .62456,    .04777,    .00803,
     +     .00110,    .03626,    .07312,
     +     .58876,    .26208,    .59171,    .04671,    .00859,
     +     .00213,    .03560,    .07082,
     +     .57855,    .25583,    .55920,    .04558,    .00907,
     +     .00294,    .03487,    .06849,
     +     .56928,    .25026,    .53112,    .04455,    .00943,
     +     .00358,    .03420,    .06642 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55994,    .24476,    .50415,    .04350,    .00972,
     +     .00414,    .03351,    .06439,
     +     .55216,    .24027,    .48273,    .04264,    .00992,
     +     .00454,    .03292,    .06275,
     +     .54276,    .23490,    .45791,    .04161,    .01010,
     +     .00495,    .03219,    .06079,
     +     .53451,    .23024,    .43707,    .04070,    .01022,
     +     .00528,    .03154,    .05912,
     +     .52700,    .22605,    .41884,    .03986,    .01031,
     +     .00554,    .03095,    .05762,
     +     .51745,    .22082,    .39680,    .03882,    .01037,
     +     .00581,    .03020,    .05575,
     +     .50856,    .21601,    .37722,    .03786,    .01041,
     +     .00603,    .02949,    .05405,
     +     .50036,    .21161,    .35986,    .03696,    .01042,
     +     .00621,    .02884,    .05252 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49213,    .20725,    .34328,    .03608,    .01039,
     +     .00634,    .02819,    .05100,
     +     .48418,    .20308,    .32791,    .03524,    .01036,
     +     .00645,    .02756,    .04957,
     +     .47674,    .19921,    .31406,    .03446,    .01031,
     +     .00654,    .02696,    .04825,
     +     .46976,    .19561,    .30158,    .03372,    .01025,
     +     .00660,    .02641,    .04704,
     +     .46288,    .19208,    .28965,    .03299,    .01018,
     +     .00665,    .02586,    .04586,
     +     .45609,    .18864,    .27839,    .03228,    .01010,
     +     .00668,    .02533,    .04471,
     +     .44976,    .18546,    .26820,    .03163,    .01002,
     +     .00670,    .02483,    .04365,
     +     .44376,    .18245,    .25890,    .03101,    .00993,
     +     .00670,    .02436,    .04267 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43783,    .17948,    .24991,    .03040,    .00984,
     +     .00671,    .02389,    .04171,
     +     .43197,    .17658,    .24138,    .02981,    .00975,
     +     .00670,    .02344,    .04078,
     +     .42644,    .17387,    .23354,    .02926,    .00966,
     +     .00669,    .02302,    .03991,
     +     .42126,    .17133,    .22639,    .02874,    .00957,
     +     .00667,    .02263,    .03910,
     +     .41603,    .16878,    .21941,    .02822,    .00947,
     +     .00665,    .02222,    .03830 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70616,    .32769,    .78534,    .04682,    .00000,
     +     .00000,    .03277,    .08101,
     +     .69744,    .32122,    .76632,    .04619,    .00000,
     +     .00000,    .03261,    .07878,
     +     .68428,    .31179,    .73526,    .04523,    .00000,
     +     .00000,    .03226,    .07560,
     +     .67462,    .30515,    .71072,    .04449,    .00052,
     +     .00000,    .03197,    .07340,
     +     .66440,    .29836,    .68266,    .04372,    .00160,
     +     .00000,    .03162,    .07118,
     +     .65547,    .29259,    .65853,    .04304,    .00239,
     +     .00000,    .03129,    .06927,
     +     .64691,    .28716,    .63574,    .04237,    .00307,
     +     .00000,    .03094,    .06751,
     +     .63785,    .28151,    .61200,    .04163,    .00373,
     +     .00000,    .03054,    .06569 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62994,    .27666,    .59154,    .04098,    .00421,
     +     .00000,    .03018,    .06415,
     +     .62229,    .27206,    .57215,    .04036,    .00464,
     +     .00000,    .02981,    .06269,
     +     .61627,    .26848,    .55717,    .03987,    .00495,
     +     .00000,    .02951,    .06155,
     +     .60351,    .26100,    .52521,    .03880,    .00553,
     +     .00013,    .02887,    .05921,
     +     .59258,    .25477,    .49770,    .03789,    .00594,
     +     .00081,    .02829,    .05727,
     +     .58047,    .24796,    .46834,    .03689,    .00633,
     +     .00156,    .02763,    .05516,
     +     .56798,    .24106,    .43961,    .03583,    .00665,
     +     .00214,    .02693,    .05305,
     +     .55677,    .23495,    .41506,    .03488,    .00688,
     +     .00259,    .02629,    .05121 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54559,    .22895,    .39168,    .03393,    .00707,
     +     .00299,    .02563,    .04942,
     +     .53639,    .22408,    .37330,    .03316,    .00719,
     +     .00326,    .02508,    .04797,
     +     .52535,    .21831,    .35215,    .03223,    .00729,
     +     .00355,    .02442,    .04626,
     +     .51573,    .21333,    .33454,    .03141,    .00736,
     +     .00377,    .02384,    .04480,
     +     .50703,    .20888,    .31926,    .03068,    .00740,
     +     .00394,    .02332,    .04351,
     +     .49607,    .20334,    .30085,    .02977,    .00742,
     +     .00412,    .02265,    .04192,
     +     .48596,    .19826,    .28464,    .02893,    .00741,
     +     .00426,    .02204,    .04048,
     +     .47669,    .19363,    .27038,    .02816,    .00740,
     +     .00437,    .02147,    .03917 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46745,    .18911,    .25685,    .02739,    .00736,
     +     .00445,    .02091,    .03792,
     +     .45858,    .18479,    .24438,    .02666,    .00731,
     +     .00452,    .02037,    .03672,
     +     .45032,    .18079,    .23321,    .02600,    .00726,
     +     .00457,    .01987,    .03563,
     +     .44260,    .17708,    .22320,    .02538,    .00719,
     +     .00459,    .01941,    .03462,
     +     .43502,    .17346,    .21366,    .02477,    .00713,
     +     .00462,    .01896,    .03364,
     +     .42759,    .16995,    .20472,    .02418,    .00706,
     +     .00463,    .01851,    .03271,
     +     .42069,    .16670,    .19665,    .02364,    .00698,
     +     .00463,    .01810,    .03185,
     +     .41419,    .16366,    .18933,    .02312,    .00691,
     +     .00463,    .01771,    .03105 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40776,    .16067,    .18228,    .02261,    .00683,
     +     .00462,    .01733,    .03027,
     +     .40146,    .15775,    .17560,    .02212,    .00675,
     +     .00460,    .01696,    .02952,
     +     .39553,    .15502,    .16950,    .02167,    .00668,
     +     .00459,    .01661,    .02883,
     +     .38999,    .15249,    .16395,    .02125,    .00660,
     +     .00457,    .01629,    .02818,
     +     .38440,    .14995,    .15854,    .02083,    .00652,
     +     .00454,    .01597,    .02753 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .71889,    .31987,    .67927,    .03909,    .00000,
     +     .00000,    .02690,    .06596,
     +     .70715,    .31236,    .65778,    .03842,    .00000,
     +     .00000,    .02665,    .06380,
     +     .68983,    .30157,    .62447,    .03737,    .00000,
     +     .00000,    .02617,    .06082,
     +     .67737,    .29403,    .59923,    .03662,    .00039,
     +     .00000,    .02581,    .05874,
     +     .66445,    .28637,    .57146,    .03582,    .00123,
     +     .00000,    .02539,    .05668,
     +     .65330,    .27993,    .54795,    .03512,    .00182,
     +     .00000,    .02501,    .05494,
     +     .64270,    .27391,    .52601,    .03445,    .00233,
     +     .00000,    .02464,    .05332,
     +     .63158,    .26769,    .50341,    .03374,    .00282,
     +     .00000,    .02422,    .05166 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62199,    .26237,    .48418,    .03310,    .00317,
     +     .00000,    .02384,    .05028,
     +     .61280,    .25734,    .46615,    .03249,    .00348,
     +     .00000,    .02347,    .04898,
     +     .60561,    .25344,    .45233,    .03202,    .00371,
     +     .00000,    .02317,    .04797,
     +     .59048,    .24536,    .42321,    .03102,    .00412,
     +     .00010,    .02254,    .04590,
     +     .57773,    .23864,    .39862,    .03016,    .00441,
     +     .00060,    .02199,    .04421,
     +     .56367,    .23137,    .37266,    .02924,    .00468,
     +     .00114,    .02137,    .04237,
     +     .54933,    .22405,    .34749,    .02828,    .00489,
     +     .00156,    .02073,    .04055,
     +     .53656,    .21763,    .32618,    .02742,    .00505,
     +     .00188,    .02014,    .03896 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52392,    .21136,    .30608,    .02657,    .00516,
     +     .00216,    .01956,    .03743,
     +     .51360,    .20628,    .29038,    .02588,    .00523,
     +     .00236,    .01907,    .03621,
     +     .50129,    .20028,    .27247,    .02506,    .00529,
     +     .00255,    .01849,    .03478,
     +     .49064,    .19515,    .25764,    .02434,    .00532,
     +     .00270,    .01799,    .03356,
     +     .48107,    .19058,    .24484,    .02370,    .00534,
     +     .00282,    .01754,    .03248,
     +     .46908,    .18492,    .22961,    .02291,    .00533,
     +     .00294,    .01697,    .03117,
     +     .45808,    .17977,    .21627,    .02218,    .00531,
     +     .00303,    .01645,    .02998,
     +     .44803,    .17508,    .20458,    .02152,    .00528,
     +     .00310,    .01598,    .02891 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43809,    .17050,    .19357,    .02087,    .00524,
     +     .00315,    .01550,    .02789,
     +     .42859,    .16616,    .18347,    .02026,    .00519,
     +     .00318,    .01505,    .02692,
     +     .41978,    .16216,    .17447,    .01971,    .00514,
     +     .00321,    .01464,    .02604,
     +     .41159,    .15848,    .16645,    .01919,    .00508,
     +     .00322,    .01426,    .02523,
     +     .40356,    .15490,    .15884,    .01869,    .00502,
     +     .00323,    .01388,    .02445,
     +     .39577,    .15140,    .15175,    .01819,    .00496,
     +     .00323,    .01352,    .02371,
     +     .38855,    .14817,    .14537,    .01773,    .00490,
     +     .00323,    .01320,    .02303,
     +     .38175,    .14518,    .13960,    .01731,    .00483,
     +     .00321,    .01288,    .02240 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37505,    .14225,    .13406,    .01690,    .00477,
     +     .00320,    .01257,    .02178,
     +     .36851,    .13940,    .12884,    .01650,    .00470,
     +     .00319,    .01228,    .02119,
     +     .36238,    .13674,    .12409,    .01613,    .00464,
     +     .00317,    .01201,    .02063,
     +     .35667,    .13426,    .11977,    .01579,    .00458,
     +     .00315,    .01175,    .02013,
     +     .35094,    .13179,    .11559,    .01544,    .00452,
     +     .00313,    .01149,    .01964 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .72072,    .30786,    .58871,    .03267,    .00000,
     +     .00000,    .02187,    .05266,
     +     .70619,    .29959,    .56586,    .03200,    .00000,
     +     .00000,    .02156,    .05067,
     +     .68512,    .28777,    .53161,    .03095,    .00000,
     +     .00000,    .02101,    .04799,
     +     .67017,    .27957,    .50646,    .03021,    .00030,
     +     .00000,    .02061,    .04613,
     +     .65484,    .27133,    .47958,    .02944,    .00093,
     +     .00000,    .02018,    .04430,
     +     .64176,    .26441,    .45707,    .02874,    .00138,
     +     .00000,    .01980,    .04278,
     +     .62943,    .25798,    .43632,    .02809,    .00177,
     +     .00000,    .01942,    .04138,
     +     .61658,    .25137,    .41518,    .02742,    .00213,
     +     .00000,    .01900,    .03994 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60557,    .24574,    .39737,    .02684,    .00239,
     +     .00000,    .01864,    .03873,
     +     .59510,    .24044,    .38080,    .02627,    .00261,
     +     .00000,    .01829,    .03761,
     +     .58696,    .23635,    .36816,    .02583,    .00278,
     +     .00000,    .01802,    .03674,
     +     .56989,    .22793,    .34195,    .02491,    .00308,
     +     .00008,    .01744,    .03496,
     +     .55564,    .22097,    .32016,    .02414,    .00328,
     +     .00044,    .01693,    .03354,
     +     .54010,    .21345,    .29738,    .02328,    .00346,
     +     .00084,    .01638,    .03201,
     +     .52432,    .20592,    .27550,    .02241,    .00361,
     +     .00114,    .01582,    .03050,
     +     .51037,    .19935,    .25712,    .02164,    .00371,
     +     .00137,    .01531,    .02920 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49666,    .19297,    .23992,    .02089,    .00378,
     +     .00157,    .01480,    .02793,
     +     .48552,    .18786,    .22663,    .02030,    .00382,
     +     .00170,    .01439,    .02691,
     +     .47233,    .18182,    .21154,    .01956,    .00384,
     +     .00184,    .01390,    .02576,
     +     .46097,    .17666,    .19914,    .01894,    .00385,
     +     .00194,    .01347,    .02478,
     +     .45079,    .17208,    .18852,    .01841,    .00385,
     +     .00202,    .01308,    .02391,
     +     .43813,    .16645,    .17593,    .01772,    .00384,
     +     .00210,    .01261,    .02284,
     +     .42656,    .16135,    .16498,    .01711,    .00381,
     +     .00216,    .01218,    .02189,
     +     .41603,    .15674,    .15544,    .01657,    .00378,
     +     .00220,    .01179,    .02103 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40570,    .15222,    .14652,    .01602,    .00374,
     +     .00223,    .01141,    .02023,
     +     .39587,    .14796,    .13838,    .01549,    .00369,
     +     .00225,    .01105,    .01947,
     +     .38679,    .14404,    .13115,    .01501,    .00365,
     +     .00226,    .01072,    .01879,
     +     .37837,    .14046,    .12475,    .01458,    .00360,
     +     .00227,    .01042,    .01815,
     +     .37015,    .13697,    .11869,    .01417,    .00355,
     +     .00227,    .01012,    .01753,
     +     .36218,    .13360,    .11307,    .01376,    .00349,
     +     .00226,    .00983,    .01696,
     +     .35482,    .13049,    .10803,    .01338,    .00344,
     +     .00226,    .00957,    .01643,
     +     .34792,    .12761,    .10349,    .01303,    .00339,
     +     .00224,    .00932,    .01595 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34114,    .12479,    .09915,    .01269,    .00334,
     +     .00223,    .00907,    .01547,
     +     .33455,    .12206,    .09508,    .01237,    .00329,
     +     .00222,    .00884,    .01502,
     +     .32839,    .11951,    .09139,    .01207,    .00324,
     +     .00220,    .00863,    .01460,
     +     .32266,    .11715,    .08805,    .01179,    .00319,
     +     .00218,    .00844,    .01421,
     +     .31692,    .11480,    .08481,    .01152,    .00314,
     +     .00216,    .00824,    .01383 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .71240,    .29302,    .51085,    .02760,    .00000,
     +     .00000,    .01739,    .04101,
     +     .69555,    .28412,    .48731,    .02689,    .00000,
     +     .00000,    .01704,    .03935,
     +     .67130,    .27155,    .45294,    .02583,    .00000,
     +     .00000,    .01656,    .03702,
     +     .65427,    .26290,    .42833,    .02507,    .00023,
     +     .00000,    .01618,    .03546,
     +     .63702,    .25421,    .40264,    .02428,    .00071,
     +     .00000,    .01577,    .03394,
     +     .62235,    .24700,    .38144,    .02364,    .00105,
     +     .00000,    .01542,    .03264,
     +     .60863,    .24031,    .36205,    .02302,    .00134,
     +     .00000,    .01507,    .03147,
     +     .59442,    .23345,    .34248,    .02236,    .00161,
     +     .00000,    .01471,    .03029 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58226,    .22770,    .32619,    .02183,    .00180,
     +     .00000,    .01439,    .02926,
     +     .57079,    .22227,    .31115,    .02130,    .00196,
     +     .00000,    .01408,    .02834,
     +     .56191,    .21806,    .29975,    .02087,    .00209,
     +     .00000,    .01384,    .02764,
     +     .54341,    .20949,    .27639,    .02004,    .00230,
     +     .00006,    .01334,    .02616,
     +     .52806,    .20243,    .25721,    .01933,    .00244,
     +     .00032,    .01290,    .02501,
     +     .51141,    .19487,    .23735,    .01857,    .00256,
     +     .00062,    .01243,    .02376,
     +     .49459,    .18734,    .21846,    .01781,    .00266,
     +     .00084,    .01194,    .02255,
     +     .47983,    .18079,    .20277,    .01713,    .00272,
     +     .00100,    .01151,    .02150 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46544,    .17444,    .18819,    .01647,    .00276,
     +     .00114,    .01110,    .02048,
     +     .45380,    .16937,    .17697,    .01593,    .00278,
     +     .00124,    .01077,    .01967,
     +     .44006,    .16341,    .16435,    .01530,    .00279,
     +     .00133,    .01036,    .01876,
     +     .42828,    .15836,    .15405,    .01478,    .00279,
     +     .00140,    .01000,    .01800,
     +     .41776,    .15389,    .14525,    .01431,    .00278,
     +     .00145,    .00968,    .01733,
     +     .40479,    .14838,    .13493,    .01372,    .00276,
     +     .00150,    .00930,    .01650,
     +     .39297,    .14341,    .12599,    .01319,    .00273,
     +     .00154,    .00896,    .01576,
     +     .38224,    .13894,    .11825,    .01273,    .00270,
     +     .00157,    .00866,    .01509 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37174,    .13462,    .11106,    .01228,    .00267,
     +     .00158,    .00836,    .01445,
     +     .36181,    .13053,    .10453,    .01185,    .00263,
     +     .00159,    .00806,    .01386,
     +     .35268,    .12679,    .09877,    .01145,    .00259,
     +     .00160,    .00778,    .01335,
     +     .34425,    .12336,    .09367,    .01109,    .00255,
     +     .00160,    .00754,    .01287,
     +     .33603,    .12003,    .08886,    .01073,    .00251,
     +     .00160,    .00730,    .01241,
     +     .32808,    .11684,    .08443,    .01040,    .00246,
     +     .00159,    .00708,    .01198,
     +     .32075,    .11390,    .08047,    .01010,    .00242,
     +     .00158,    .00687,    .01160,
     +     .31391,    .11118,    .07693,    .00982,    .00238,
     +     .00157,    .00669,    .01121 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30721,    .10852,    .07354,    .00956,    .00234,
     +     .00156,    .00651,    .01084,
     +     .30070,    .10595,    .07037,    .00930,    .00230,
     +     .00154,    .00634,    .01050,
     +     .29464,    .10357,    .06751,    .00905,    .00226,
     +     .00153,    .00617,    .01019,
     +     .28901,    .10136,    .06492,    .00882,    .00222,
     +     .00152,    .00602,    .00990,
     +     .28342,    .09916,    .06242,    .00860,    .00219,
     +     .00150,    .00586,    .00962 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69603,    .27528,    .44253,    .02291,    .00000,
     +     .00000,    .01388,    .03149,
     +     .67713,    .26603,    .41884,    .02220,    .00000,
     +     .00000,    .01355,    .03011,
     +     .65016,    .25309,    .38508,    .02121,    .00000,
     +     .00000,    .01305,    .02817,
     +     .63145,    .24418,    .36145,    .02048,    .00018,
     +     .00000,    .01268,    .02689,
     +     .61250,    .23539,    .33727,    .01978,    .00054,
     +     .00000,    .01231,    .02560,
     +     .59661,    .22804,    .31754,    .01918,    .00079,
     +     .00000,    .01199,    .02454,
     +     .58178,    .22128,    .29967,    .01863,    .00100,
     +     .00000,    .01169,    .02357,
     +     .56649,    .21438,    .28179,    .01805,    .00120,
     +     .00000,    .01136,    .02258 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55357,    .20853,    .26703,    .01753,    .00134,
     +     .00000,    .01107,    .02181,
     +     .54136,    .20308,    .25353,    .01704,    .00146,
     +     .00000,    .01080,    .02106,
     +     .53192,    .19891,    .24338,    .01668,    .00154,
     +     .00000,    .01060,    .02048,
     +     .51242,    .19036,    .22271,    .01592,    .00169,
     +     .00005,    .01015,    .01933,
     +     .49628,    .18342,    .20605,    .01532,    .00179,
     +     .00024,    .00979,    .01839,
     +     .47888,    .17596,    .18894,    .01465,    .00188,
     +     .00045,    .00939,    .01740,
     +     .46148,    .16856,    .17279,    .01398,    .00194,
     +     .00061,    .00898,    .01645,
     +     .44628,    .16216,    .15948,    .01340,    .00198,
     +     .00073,    .00861,    .01562 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43149,    .15600,    .14721,    .01284,    .00200,
     +     .00082,    .00827,    .01483,
     +     .41960,    .15106,    .13784,    .01238,    .00201,
     +     .00089,    .00798,    .01422,
     +     .40563,    .14533,    .12737,    .01185,    .00201,
     +     .00095,    .00765,    .01351,
     +     .39369,    .14046,    .11889,    .01140,    .00201,
     +     .00100,    .00738,    .01290,
     +     .38308,    .13617,    .11169,    .01102,    .00199,
     +     .00104,    .00714,    .01237,
     +     .37001,    .13092,    .10326,    .01053,    .00197,
     +     .00107,    .00683,    .01174,
     +     .35818,    .12619,    .09602,    .01009,    .00195,
     +     .00109,    .00655,    .01120,
     +     .34750,    .12194,    .08979,    .00970,    .00192,
     +     .00111,    .00630,    .01072 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33711,    .11784,    .08403,    .00932,    .00189,
     +     .00112,    .00606,    .01023,
     +     .32728,    .11399,    .07883,    .00898,    .00186,
     +     .00112,    .00584,    .00978,
     +     .31826,    .11049,    .07426,    .00867,    .00182,
     +     .00112,    .00564,    .00937,
     +     .30997,    .10728,    .07024,    .00837,    .00179,
     +     .00112,    .00545,    .00901,
     +     .30192,    .10416,    .06646,    .00808,    .00176,
     +     .00112,    .00526,    .00867,
     +     .29415,    .10118,    .06299,    .00782,    .00172,
     +     .00111,    .00509,    .00835,
     +     .28701,    .09844,    .05990,    .00758,    .00169,
     +     .00110,    .00493,    .00805,
     +     .28037,    .09591,    .05714,    .00735,    .00166,
     +     .00109,    .00478,    .00778 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27388,    .09344,    .05451,    .00712,    .00163,
     +     .00108,    .00463,    .00752,
     +     .26760,    .09107,    .05206,    .00691,    .00160,
     +     .00107,    .00449,    .00727,
     +     .26176,    .08887,    .04985,    .00671,    .00157,
     +     .00106,    .00437,    .00704,
     +     .25635,    .08683,    .04785,    .00653,    .00154,
     +     .00105,    .00426,    .00683,
     +     .25096,    .08482,    .04593,    .00636,    .00151,
     +     .00103,    .00414,    .00661 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67211,    .25605,    .38221,    .01899,    .00000,
     +     .00000,    .01085,    .02368,
     +     .65162,    .24663,    .35886,    .01831,    .00000,
     +     .00000,    .01057,    .02254,
     +     .62258,    .23354,    .32622,    .01738,    .00000,
     +     .00000,    .01012,    .02099,
     +     .60254,    .22461,    .30386,    .01673,    .00013,
     +     .00000,    .00979,    .01995,
     +     .58243,    .21580,    .28141,    .01608,    .00040,
     +     .00000,    .00947,    .01891,
     +     .56567,    .20846,    .26328,    .01551,    .00059,
     +     .00000,    .00919,    .01810,
     +     .55009,    .20173,    .24702,    .01500,    .00075,
     +     .00000,    .00892,    .01734,
     +     .53407,    .19491,    .23091,    .01448,    .00089,
     +     .00000,    .00865,    .01657 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52056,    .18918,    .21775,    .01403,    .00099,
     +     .00000,    .00841,    .01593,
     +     .50789,    .18384,    .20576,    .01361,    .00108,
     +     .00000,    .00819,    .01534,
     +     .49813,    .17975,    .19677,    .01328,    .00114,
     +     .00000,    .00801,    .01490,
     +     .47802,    .17140,    .17877,    .01264,    .00124,
     +     .00004,    .00763,    .01400,
     +     .46153,    .16461,    .16439,    .01209,    .00131,
     +     .00017,    .00733,    .01327,
     +     .44382,    .15740,    .14977,    .01151,    .00137,
     +     .00033,    .00700,    .01250,
     +     .42617,    .15027,    .13610,    .01093,    .00141,
     +     .00044,    .00667,    .01177,
     +     .41086,    .14411,    .12493,    .01041,    .00143,
     +     .00052,    .00638,    .01116 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39603,    .13819,    .11471,    .00992,    .00144,
     +     .00059,    .00609,    .01058,
     +     .38410,    .13352,    .10695,    .00955,    .00144,
     +     .00064,    .00587,    .01010,
     +     .37016,    .12806,    .09835,    .00913,    .00144,
     +     .00068,    .00562,    .00955,
     +     .35831,    .12345,    .09142,    .00876,    .00143,
     +     .00071,    .00540,    .00909,
     +     .34783,    .11941,    .08557,    .00842,    .00142,
     +     .00074,    .00519,    .00872,
     +     .33498,    .11447,    .07877,    .00801,    .00140,
     +     .00076,    .00495,    .00824,
     +     .32337,    .11005,    .07297,    .00767,    .00138,
     +     .00077,    .00473,    .00781,
     +     .31291,    .10610,    .06800,    .00737,    .00136,
     +     .00078,    .00455,    .00742 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30280,    .10226,    .06342,    .00704,    .00133,
     +     .00078,    .00436,    .00711,
     +     .29325,    .09868,    .05930,    .00675,    .00130,
     +     .00079,    .00419,    .00679,
     +     .28449,    .09544,    .05571,    .00651,    .00128,
     +     .00078,    .00403,    .00647,
     +     .27649,    .09247,    .05256,    .00627,    .00125,
     +     .00078,    .00388,    .00621,
     +     .26874,    .08960,    .04962,    .00604,    .00123,
     +     .00078,    .00374,    .00597,
     +     .26127,    .08686,    .04691,    .00584,    .00120,
     +     .00077,    .00361,    .00574,
     +     .25442,    .08436,    .04450,    .00566,    .00118,
     +     .00076,    .00349,    .00552,
     +     .24809,    .08205,    .04236,    .00547,    .00115,
     +     .00076,    .00338,    .00532 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24192,    .07980,    .04033,    .00529,    .00113,
     +     .00075,    .00328,    .00513,
     +     .23595,    .07763,    .03844,    .00512,    .00111,
     +     .00074,    .00318,    .00495,
     +     .23041,    .07563,    .03674,    .00497,    .00108,
     +     .00073,    .00308,    .00478,
     +     .22528,    .07378,    .03521,    .00484,    .00106,
     +     .00072,    .00299,    .00463,
     +     .22019,    .07196,    .03375,    .00470,    .00104,
     +     .00071,    .00290,    .00448 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .64209,    .23567,    .32818,    .01551,    .00000,
     +     .00000,    .00842,    .01749,
     +     .62041,    .22626,    .30563,    .01490,    .00000,
     +     .00000,    .00818,    .01658,
     +     .58985,    .21330,    .27467,    .01406,    .00000,
     +     .00000,    .00777,    .01536,
     +     .56898,    .20446,    .25384,    .01344,    .00010,
     +     .00000,    .00751,    .01455,
     +     .54812,    .19579,    .23329,    .01286,    .00030,
     +     .00000,    .00723,    .01374,
     +     .53075,    .18865,    .21688,    .01239,    .00044,
     +     .00000,    .00699,    .01308,
     +     .51472,    .18209,    .20229,    .01194,    .00055,
     +     .00000,    .00675,    .01251,
     +     .49835,    .17543,    .18796,    .01146,    .00065,
     +     .00000,    .00652,    .01195 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48457,    .16989,    .17635,    .01107,    .00073,
     +     .00000,    .00633,    .01145,
     +     .47168,    .16473,    .16587,    .01071,    .00079,
     +     .00000,    .00613,    .01100,
     +     .46178,    .16079,    .15806,    .01043,    .00083,
     +     .00000,    .00598,    .01066,
     +     .44152,    .15274,    .14253,    .00985,    .00090,
     +     .00003,    .00569,    .00998,
     +     .42495,    .14626,    .13029,    .00938,    .00095,
     +     .00012,    .00544,    .00944,
     +     .40720,    .13940,    .11796,    .00891,    .00098,
     +     .00023,    .00517,    .00886,
     +     .38965,    .13263,    .10653,    .00844,    .00101,
     +     .00031,    .00490,    .00831,
     +     .37448,    .12683,    .09726,    .00802,    .00102,
     +     .00037,    .00466,    .00785 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35982,    .12129,    .08884,    .00762,    .00103,
     +     .00042,    .00444,    .00741,
     +     .34810,    .11689,    .08250,    .00731,    .00103,
     +     .00045,    .00429,    .00705,
     +     .33444,    .11180,    .07550,    .00695,    .00102,
     +     .00048,    .00407,    .00665,
     +     .32292,    .10751,    .06990,    .00664,    .00101,
     +     .00050,    .00390,    .00633,
     +     .31280,    .10372,    .06521,    .00635,    .00100,
     +     .00052,    .00376,    .00603,
     +     .30029,    .09916,    .05978,    .00605,    .00098,
     +     .00053,    .00357,    .00568,
     +     .28907,    .09507,    .05516,    .00577,    .00097,
     +     .00054,    .00339,    .00539,
     +     .27903,    .09142,    .05122,    .00551,    .00095,
     +     .00055,    .00324,    .00513 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26931,    .08792,    .04762,    .00527,    .00093,
     +     .00055,    .00310,    .00488,
     +     .26019,    .08464,    .04439,    .00504,    .00091,
     +     .00055,    .00297,    .00464,
     +     .25187,    .08166,    .04159,    .00485,    .00089,
     +     .00054,    .00285,    .00441,
     +     .24428,    .07896,    .03914,    .00466,    .00087,
     +     .00054,    .00274,    .00422,
     +     .23693,    .07637,    .03686,    .00447,    .00085,
     +     .00054,    .00263,    .00404,
     +     .22988,    .07389,    .03477,    .00431,    .00083,
     +     .00053,    .00254,    .00388,
     +     .22341,    .07163,    .03292,    .00417,    .00081,
     +     .00053,    .00246,    .00374,
     +     .21746,    .06954,    .03129,    .00402,    .00079,
     +     .00052,    .00237,    .00359 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21167,    .06751,    .02975,    .00388,    .00078,
     +     .00051,    .00229,    .00345,
     +     .20609,    .06557,    .02830,    .00375,    .00076,
     +     .00051,    .00221,    .00332,
     +     .20092,    .06377,    .02701,    .00363,    .00074,
     +     .00050,    .00214,    .00321,
     +     .19615,    .06212,    .02584,    .00351,    .00073,
     +     .00049,    .00207,    .00311,
     +     .19141,    .06050,    .02473,    .00340,    .00071,
     +     .00049,    .00201,    .00300 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60700,    .21473,    .27948,    .01249,    .00000,
     +     .00000,    .00648,    .01267,
     +     .58458,    .20549,    .25811,    .01192,    .00000,
     +     .00000,    .00625,    .01201,
     +     .55319,    .19281,    .22928,    .01116,    .00000,
     +     .00000,    .00593,    .01104,
     +     .53175,    .18428,    .21029,    .01066,    .00007,
     +     .00000,    .00569,    .01043,
     +     .51055,    .17589,    .19177,    .01015,    .00022,
     +     .00000,    .00545,    .00982,
     +     .49296,    .16900,    .17717,    .00972,    .00032,
     +     .00000,    .00524,    .00935,
     +     .47680,    .16270,    .16428,    .00932,    .00040,
     +     .00000,    .00506,    .00891,
     +     .46036,    .15633,    .15172,    .00893,    .00047,
     +     .00000,    .00487,    .00846 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44654,    .15105,    .14164,    .00860,    .00052,
     +     .00000,    .00471,    .00810,
     +     .43368,    .14614,    .13259,    .00829,    .00057,
     +     .00000,    .00455,    .00777,
     +     .42382,    .14240,    .12587,    .00806,    .00060,
     +     .00000,    .00442,    .00753,
     +     .40371,    .13482,    .11269,    .00757,    .00064,
     +     .00002,    .00419,    .00701,
     +     .38735,    .12872,    .10243,    .00719,    .00067,
     +     .00009,    .00400,    .00660,
     +     .36992,    .12227,    .09216,    .00680,    .00070,
     +     .00017,    .00378,    .00619,
     +     .35274,    .11595,    .08272,    .00640,    .00071,
     +     .00022,    .00357,    .00579,
     +     .33794,    .11055,    .07512,    .00606,    .00072,
     +     .00026,    .00339,    .00545 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32371,    .10540,    .06827,    .00574,    .00072,
     +     .00030,    .00321,    .00511,
     +     .31242,    .10134,    .06314,    .00548,    .00072,
     +     .00032,    .00308,    .00485,
     +     .29929,    .09663,    .05752,    .00519,    .00071,
     +     .00034,    .00293,    .00458,
     +     .28820,    .09268,    .05305,    .00495,    .00071,
     +     .00035,    .00280,    .00434,
     +     .27847,    .08924,    .04932,    .00474,    .00070,
     +     .00036,    .00269,    .00412,
     +     .26662,    .08506,    .04503,    .00448,    .00068,
     +     .00037,    .00253,    .00388,
     +     .25598,    .08133,    .04141,    .00425,    .00067,
     +     .00037,    .00241,    .00367,
     +     .24646,    .07801,    .03835,    .00405,    .00066,
     +     .00038,    .00230,    .00348 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23727,    .07486,    .03554,    .00387,    .00064,
     +     .00038,    .00220,    .00328,
     +     .22868,    .07191,    .03303,    .00370,    .00062,
     +     .00038,    .00210,    .00311,
     +     .22089,    .06923,    .03087,    .00352,    .00061,
     +     .00037,    .00201,    .00297,
     +     .21377,    .06680,    .02898,    .00338,    .00060,
     +     .00037,    .00192,    .00285,
     +     .20690,    .06446,    .02723,    .00325,    .00058,
     +     .00037,    .00185,    .00272,
     +     .20034,    .06224,    .02564,    .00312,    .00057,
     +     .00036,    .00178,    .00260,
     +     .19435,    .06022,    .02423,    .00301,    .00055,
     +     .00036,    .00171,    .00250,
     +     .18884,    .05837,    .02298,    .00290,    .00054,
     +     .00035,    .00165,    .00240 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18348,    .05657,    .02180,    .00279,    .00053,
     +     .00035,    .00159,    .00230,
     +     .17833,    .05485,    .02071,    .00269,    .00051,
     +     .00034,    .00153,    .00221,
     +     .17356,    .05327,    .01974,    .00260,    .00050,
     +     .00034,    .00148,    .00213,
     +     .16917,    .05181,    .01887,    .00252,    .00049,
     +     .00033,    .00143,    .00205,
     +     .16481,    .05037,    .01803,    .00244,    .00048,
     +     .00033,    .00139,    .00198 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56796,    .19383,    .23573,    .01000,    .00000,
     +     .00000,    .00486,    .00896,
     +     .54512,    .18494,    .21590,    .00949,    .00000,
     +     .00000,    .00466,    .00848,
     +     .51345,    .17276,    .18959,    .00884,    .00000,
     +     .00000,    .00440,    .00774,
     +     .49194,    .16457,    .17250,    .00837,    .00005,
     +     .00000,    .00422,    .00731,
     +     .47075,    .15656,    .15611,    .00794,    .00016,
     +     .00000,    .00402,    .00686,
     +     .45326,    .15003,    .14332,    .00757,    .00023,
     +     .00000,    .00384,    .00653,
     +     .43724,    .14407,    .13212,    .00723,    .00029,
     +     .00000,    .00370,    .00621,
     +     .42100,    .13806,    .12129,    .00690,    .00034,
     +     .00000,    .00356,    .00587 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40739,    .13309,    .11268,    .00665,    .00037,
     +     .00000,    .00343,    .00559,
     +     .39478,    .12850,    .10500,    .00638,    .00040,
     +     .00000,    .00331,    .00534,
     +     .38515,    .12499,    .09933,    .00617,    .00042,
     +     .00000,    .00321,    .00516,
     +     .36549,    .11791,    .08828,    .00578,    .00046,
     +     .00002,    .00302,    .00483,
     +     .34961,    .11226,    .07978,    .00547,    .00048,
     +     .00006,    .00287,    .00452,
     +     .33278,    .10629,    .07136,    .00515,    .00049,
     +     .00012,    .00271,    .00421,
     +     .31625,    .10046,    .06367,    .00483,    .00050,
     +     .00016,    .00254,    .00392,
     +     .30207,    .09549,    .05754,    .00454,    .00050,
     +     .00018,    .00241,    .00369 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28850,    .09078,    .05205,    .00427,    .00050,
     +     .00021,    .00228,    .00347,
     +     .27773,    .08707,    .04796,    .00409,    .00050,
     +     .00022,    .00218,    .00327,
     +     .26528,    .08279,    .04351,    .00386,    .00049,
     +     .00023,    .00206,    .00306,
     +     .25479,    .07922,    .03998,    .00368,    .00049,
     +     .00024,    .00196,    .00290,
     +     .24558,    .07610,    .03705,    .00352,    .00048,
     +     .00025,    .00186,    .00275,
     +     .23443,    .07234,    .03370,    .00331,    .00047,
     +     .00026,    .00176,    .00259,
     +     .22447,    .06899,    .03089,    .00312,    .00046,
     +     .00026,    .00168,    .00244,
     +     .21560,    .06601,    .02851,    .00297,    .00045,
     +     .00026,    .00160,    .00229 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20705,    .06319,    .02635,    .00283,    .00044,
     +     .00026,    .00152,    .00217,
     +     .19907,    .06056,    .02443,    .00271,    .00043,
     +     .00026,    .00144,    .00205,
     +     .19184,    .05818,    .02278,    .00259,    .00041,
     +     .00026,    .00138,    .00195,
     +     .18530,    .05602,    .02134,    .00246,    .00040,
     +     .00025,    .00132,    .00187,
     +     .17901,    .05395,    .02001,    .00234,    .00039,
     +     .00025,    .00127,    .00179,
     +     .17299,    .05200,    .01881,    .00224,    .00038,
     +     .00025,    .00121,    .00170,
     +     .16750,    .05024,    .01774,    .00216,    .00037,
     +     .00024,    .00116,    .00161,
     +     .16247,    .04860,    .01681,    .00207,    .00036,
     +     .00024,    .00112,    .00154 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15758,    .04701,    .01592,    .00199,    .00036,
     +     .00024,    .00108,    .00148,
     +     .15288,    .04550,    .01510,    .00192,    .00035,
     +     .00023,    .00104,    .00143,
     +     .14853,    .04410,    .01437,    .00186,    .00034,
     +     .00023,    .00100,    .00138,
     +     .14454,    .04283,    .01371,    .00180,    .00033,
     +     .00023,    .00097,    .00133,
     +     .14062,    .04158,    .01309,    .00173,    .00032,
     +     .00022,    .00093,    .00129 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52600,    .17319,    .19637,    .00784,    .00000,
     +     .00000,    .00362,    .00621,
     +     .50324,    .16473,    .17840,    .00742,    .00000,
     +     .00000,    .00344,    .00588,
     +     .47178,    .15322,    .15491,    .00685,    .00000,
     +     .00000,    .00321,    .00534,
     +     .45057,    .14549,    .13985,    .00648,    .00004,
     +     .00000,    .00306,    .00500,
     +     .42973,    .13800,    .12562,    .00608,    .00011,
     +     .00000,    .00288,    .00473,
     +     .41262,    .13188,    .11460,    .00580,    .00016,
     +     .00000,    .00277,    .00445,
     +     .39697,    .12633,    .10505,    .00554,    .00020,
     +     .00000,    .00266,    .00420,
     +     .38114,    .12075,    .09589,    .00528,    .00024,
     +     .00000,    .00254,    .00397 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36799,    .11614,    .08864,    .00505,    .00026,
     +     .00000,    .00243,    .00378,
     +     .35578,    .11190,    .08223,    .00484,    .00028,
     +     .00000,    .00234,    .00361,
     +     .34647,    .10867,    .07753,    .00468,    .00029,
     +     .00000,    .00228,    .00347,
     +     .32767,    .10214,    .06845,    .00434,    .00032,
     +     .00001,    .00213,    .00324,
     +     .31248,    .09694,    .06151,    .00411,    .00033,
     +     .00004,    .00201,    .00304,
     +     .29640,    .09152,    .05470,    .00387,    .00034,
     +     .00008,    .00189,    .00282,
     +     .28071,    .08622,    .04854,    .00361,    .00035,
     +     .00011,    .00176,    .00260,
     +     .26731,    .08172,    .04366,    .00339,    .00035,
     +     .00013,    .00166,    .00243 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25450,    .07746,    .03931,    .00319,    .00035,
     +     .00014,    .00157,    .00229,
     +     .24441,    .07411,    .03609,    .00304,    .00034,
     +     .00015,    .00150,    .00216,
     +     .23279,    .07029,    .03261,    .00286,    .00034,
     +     .00016,    .00141,    .00200,
     +     .22303,    .06709,    .02987,    .00270,    .00033,
     +     .00017,    .00134,    .00188,
     +     .21449,    .06429,    .02760,    .00257,    .00033,
     +     .00017,    .00127,    .00179,
     +     .20415,    .06094,    .02502,    .00243,    .00032,
     +     .00017,    .00119,    .00166,
     +     .19496,    .05798,    .02286,    .00229,    .00031,
     +     .00018,    .00112,    .00157,
     +     .18678,    .05536,    .02105,    .00216,    .00030,
     +     .00018,    .00107,    .00150 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17896,    .05285,    .01940,    .00205,    .00029,
     +     .00018,    .00102,    .00140,
     +     .17168,    .05053,    .01795,    .00195,    .00029,
     +     .00017,    .00097,    .00132,
     +     .16509,    .04842,    .01669,    .00185,    .00028,
     +     .00017,    .00092,    .00127,
     +     .15910,    .04655,    .01561,    .00177,    .00027,
     +     .00017,    .00088,    .00120,
     +     .15336,    .04475,    .01461,    .00170,    .00026,
     +     .00017,    .00085,    .00114,
     +     .14791,    .04305,    .01371,    .00162,    .00026,
     +     .00017,    .00080,    .00108,
     +     .14295,    .04150,    .01291,    .00155,    .00025,
     +     .00016,    .00076,    .00104,
     +     .13841,    .04008,    .01221,    .00149,    .00024,
     +     .00016,    .00073,    .00100 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13400,    .03870,    .01155,    .00142,    .00024,
     +     .00016,    .00070,    .00096,
     +     .12978,    .03739,    .01094,    .00137,    .00023,
     +     .00016,    .00068,    .00091,
     +     .12589,    .03619,    .01040,    .00132,    .00022,
     +     .00015,    .00066,    .00087,
     +     .12232,    .03510,    .00991,    .00128,    .00022,
     +     .00015,    .00064,    .00084,
     +     .11881,    .03403,    .00945,    .00123,    .00021,
     +     .00015,    .00061,    .00081 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48222,    .15305,    .16120,    .00595,    .00000,
     +     .00000,    .00265,    .00429,
     +     .45982,    .14514,    .14527,    .00560,    .00000,
     +     .00000,    .00253,    .00401,
     +     .42903,    .13437,    .12469,    .00514,    .00000,
     +     .00000,    .00234,    .00367,
     +     .40842,    .12720,    .11166,    .00483,    .00003,
     +     .00000,    .00221,    .00342,
     +     .38823,    .12026,    .09956,    .00455,    .00008,
     +     .00000,    .00211,    .00316,
     +     .37170,    .11463,    .09029,    .00431,    .00011,
     +     .00000,    .00200,    .00300,
     +     .35668,    .10952,    .08229,    .00408,    .00014,
     +     .00000,    .00191,    .00285,
     +     .34155,    .10439,    .07466,    .00385,    .00016,
     +     .00000,    .00182,    .00270 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32895,    .10019,    .06871,    .00369,    .00018,
     +     .00000,    .00174,    .00254,
     +     .31732,    .09630,    .06346,    .00352,    .00019,
     +     .00000,    .00167,    .00242,
     +     .30848,    .09336,    .05962,    .00339,    .00020,
     +     .00000,    .00162,    .00234,
     +     .29061,    .08746,    .05227,    .00316,    .00022,
     +     .00001,    .00150,    .00216,
     +     .27630,    .08276,    .04672,    .00298,    .00022,
     +     .00003,    .00143,    .00202,
     +     .26126,    .07785,    .04132,    .00276,    .00023,
     +     .00006,    .00134,    .00187,
     +     .24657,    .07309,    .03647,    .00257,    .00023,
     +     .00007,    .00125,    .00174,
     +     .23407,    .06907,    .03265,    .00241,    .00023,
     +     .00009,    .00117,    .00162 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22221,    .06528,    .02927,    .00225,    .00023,
     +     .00010,    .00110,    .00149,
     +     .21285,    .06230,    .02679,    .00213,    .00023,
     +     .00010,    .00104,    .00142,
     +     .20209,    .05891,    .02411,    .00201,    .00023,
     +     .00011,    .00098,    .00133,
     +     .19312,    .05609,    .02201,    .00190,    .00022,
     +     .00011,    .00093,    .00125,
     +     .18531,    .05364,    .02028,    .00179,    .00022,
     +     .00011,    .00089,    .00118,
     +     .17588,    .05068,    .01832,    .00167,    .00021,
     +     .00012,    .00083,    .00111,
     +     .16750,    .04808,    .01669,    .00157,    .00021,
     +     .00012,    .00078,    .00103,
     +     .16006,    .04579,    .01532,    .00149,    .00020,
     +     .00012,    .00075,    .00097 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15297,    .04361,    .01409,    .00140,    .00019,
     +     .00012,    .00070,    .00092,
     +     .14639,    .04160,    .01301,    .00132,    .00019,
     +     .00012,    .00067,    .00087,
     +     .14045,    .03980,    .01208,    .00126,    .00018,
     +     .00011,    .00064,    .00082,
     +     .13509,    .03817,    .01128,    .00120,    .00018,
     +     .00011,    .00061,    .00077,
     +     .12995,    .03662,    .01053,    .00114,    .00017,
     +     .00011,    .00058,    .00072,
     +     .12508,    .03515,    .00986,    .00108,    .00017,
     +     .00011,    .00055,    .00070,
     +     .12066,    .03382,    .00928,    .00104,    .00016,
     +     .00011,    .00053,    .00067,
     +     .11659,    .03261,    .00876,    .00100,    .00016,
     +     .00011,    .00050,    .00064 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11266,    .03144,    .00828,    .00097,    .00015,
     +     .00010,    .00048,    .00061,
     +     .10892,    .03032,    .00783,    .00093,    .00015,
     +     .00010,    .00046,    .00058,
     +     .10550,    .02929,    .00743,    .00088,    .00015,
     +     .00010,    .00044,    .00056,
     +     .10236,    .02836,    .00708,    .00084,    .00014,
     +     .00010,    .00043,    .00054,
     +     .09927,    .02745,    .00674,    .00081,    .00014,
     +     .00010,    .00041,    .00051 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .43742,    .13392,    .13026,    .00445,    .00000,
     +     .00000,    .00192,    .00287,
     +     .41572,    .12659,    .11638,    .00418,    .00000,
     +     .00000,    .00180,    .00269,
     +     .38607,    .11663,    .09874,    .00379,    .00000,
     +     .00000,    .00167,    .00245,
     +     .36629,    .11004,    .08777,    .00353,    .00002,
     +     .00000,    .00158,    .00227,
     +     .34704,    .10370,    .07768,    .00328,    .00005,
     +     .00000,    .00149,    .00213,
     +     .33131,    .09855,    .06999,    .00312,    .00007,
     +     .00000,    .00143,    .00200,
     +     .31705,    .09391,    .06344,    .00295,    .00009,
     +     .00000,    .00136,    .00189,
     +     .30275,    .08928,    .05726,    .00276,    .00011,
     +     .00000,    .00130,    .00178 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29090,    .08547,    .05243,    .00263,    .00012,
     +     .00000,    .00124,    .00168,
     +     .28001,    .08198,    .04822,    .00249,    .00013,
     +     .00000,    .00119,    .00160,
     +     .27175,    .07933,    .04515,    .00238,    .00013,
     +     .00000,    .00116,    .00153,
     +     .25503,    .07404,    .03933,    .00222,    .00014,
     +     .00001,    .00108,    .00141,
     +     .24171,    .06985,    .03498,    .00205,    .00015,
     +     .00002,    .00101,    .00132,
     +     .22777,    .06548,    .03076,    .00190,    .00015,
     +     .00004,    .00095,    .00123,
     +     .21422,    .06128,    .02701,    .00177,    .00015,
     +     .00005,    .00089,    .00113,
     +     .20271,    .05773,    .02408,    .00166,    .00015,
     +     .00006,    .00082,    .00104 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19182,    .05439,    .02150,    .00155,    .00015,
     +     .00006,    .00076,    .00097,
     +     .18330,    .05178,    .01961,    .00145,    .00015,
     +     .00007,    .00072,    .00093,
     +     .17356,    .04881,    .01759,    .00134,    .00015,
     +     .00007,    .00068,    .00087,
     +     .16543,    .04635,    .01601,    .00125,    .00015,
     +     .00007,    .00064,    .00082,
     +     .15834,    .04422,    .01472,    .00119,    .00014,
     +     .00008,    .00061,    .00077,
     +     .14982,    .04168,    .01326,    .00112,    .00014,
     +     .00008,    .00058,    .00071,
     +     .14229,    .03943,    .01205,    .00104,    .00013,
     +     .00008,    .00054,    .00067,
     +     .13564,    .03746,    .01104,    .00098,    .00013,
     +     .00008,    .00050,    .00063 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12929,    .03559,    .01013,    .00093,    .00013,
     +     .00008,    .00047,    .00059,
     +     .12341,    .03387,    .00933,    .00087,    .00012,
     +     .00008,    .00045,    .00056,
     +     .11814,    .03232,    .00864,    .00082,    .00012,
     +     .00008,    .00043,    .00054,
     +     .11339,    .03093,    .00806,    .00078,    .00012,
     +     .00007,    .00041,    .00051,
     +     .10885,    .02961,    .00752,    .00074,    .00011,
     +     .00007,    .00039,    .00048,
     +     .10455,    .02836,    .00703,    .00071,    .00011,
     +     .00007,    .00038,    .00046,
     +     .10066,    .02724,    .00660,    .00067,    .00011,
     +     .00007,    .00037,    .00044,
     +     .09709,    .02622,    .00623,    .00065,    .00010,
     +     .00007,    .00035,    .00041 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09365,    .02523,    .00587,    .00063,    .00010,
     +     .00007,    .00033,    .00039,
     +     .09039,    .02429,    .00555,    .00060,    .00010,
     +     .00007,    .00031,    .00037,
     +     .08740,    .02344,    .00527,    .00057,    .00009,
     +     .00007,    .00030,    .00036,
     +     .08466,    .02265,    .00501,    .00054,    .00009,
     +     .00006,    .00029,    .00035,
     +     .08197,    .02189,    .00477,    .00052,    .00009,
     +     .00006,    .00028,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39248,    .11603,    .10358,    .00338,    .00000,
     +     .00000,    .00129,    .00183,
     +     .37189,    .10932,    .09181,    .00312,    .00000,
     +     .00000,    .00121,    .00173,
     +     .34373,    .10029,    .07709,    .00286,    .00000,
     +     .00000,    .00111,    .00155,
     +     .32506,    .09435,    .06802,    .00265,    .00001,
     +     .00000,    .00104,    .00146,
     +     .30693,    .08863,    .05978,    .00247,    .00003,
     +     .00000,    .00099,    .00132,
     +     .29225,    .08399,    .05359,    .00231,    .00005,
     +     .00000,    .00093,    .00125,
     +     .27896,    .07984,    .04833,    .00216,    .00006,
     +     .00000,    .00088,    .00117,
     +     .26562,    .07572,    .04339,    .00203,    .00007,
     +     .00000,    .00084,    .00109 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25461,    .07231,    .03957,    .00195,    .00008,
     +     .00000,    .00081,    .00104,
     +     .24450,    .06920,    .03625,    .00185,    .00008,
     +     .00000,    .00077,    .00099,
     +     .23685,    .06686,    .03384,    .00177,    .00009,
     +     .00000,    .00074,    .00096,
     +     .22149,    .06218,    .02931,    .00164,    .00009,
     +     .00000,    .00068,    .00086,
     +     .20930,    .05849,    .02595,    .00152,    .00010,
     +     .00001,    .00063,    .00081,
     +     .19656,    .05466,    .02272,    .00141,    .00010,
     +     .00003,    .00059,    .00074,
     +     .18424,    .05100,    .01986,    .00130,    .00010,
     +     .00003,    .00055,    .00068,
     +     .17385,    .04790,    .01764,    .00120,    .00010,
     +     .00004,    .00051,    .00063 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16404,    .04499,    .01569,    .00111,    .00010,
     +     .00004,    .00047,    .00059,
     +     .15634,    .04275,    .01428,    .00105,    .00010,
     +     .00005,    .00044,    .00056,
     +     .14757,    .04018,    .01277,    .00098,    .00010,
     +     .00005,    .00042,    .00052,
     +     .14030,    .03806,    .01160,    .00092,    .00009,
     +     .00005,    .00040,    .00048,
     +     .13399,    .03623,    .01064,    .00087,    .00009,
     +     .00005,    .00038,    .00046,
     +     .12641,    .03405,    .00956,    .00081,    .00009,
     +     .00005,    .00035,    .00042,
     +     .11973,    .03213,    .00866,    .00076,    .00009,
     +     .00005,    .00032,    .00040,
     +     .11385,    .03045,    .00792,    .00070,    .00008,
     +     .00005,    .00030,    .00038 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10829,    .02885,    .00726,    .00065,    .00008,
     +     .00005,    .00028,    .00035,
     +     .10313,    .02739,    .00667,    .00061,    .00008,
     +     .00005,    .00027,    .00033,
     +     .09849,    .02609,    .00617,    .00059,    .00008,
     +     .00005,    .00026,    .00031,
     +     .09431,    .02493,    .00575,    .00057,    .00007,
     +     .00005,    .00024,    .00029,
     +     .09033,    .02382,    .00536,    .00055,    .00007,
     +     .00005,    .00023,    .00027,
     +     .08660,    .02277,    .00500,    .00052,    .00007,
     +     .00005,    .00022,    .00026,
     +     .08322,    .02182,    .00469,    .00049,    .00007,
     +     .00005,    .00021,    .00025,
     +     .08013,    .02097,    .00442,    .00047,    .00007,
     +     .00005,    .00020,    .00024 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07715,    .02015,    .00417,    .00045,    .00006,
     +     .00004,    .00019,    .00022,
     +     .07433,    .01937,    .00394,    .00043,    .00006,
     +     .00004,    .00018,    .00021,
     +     .07175,    .01866,    .00373,    .00042,    .00006,
     +     .00004,    .00017,    .00020,
     +     .06940,    .01801,    .00354,    .00040,    .00006,
     +     .00004,    .00016,    .00019,
     +     .06710,    .01737,    .00337,    .00038,    .00006,
     +     .00004,    .00016,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34812,    .09903,    .08049,    .00233,    .00000,
     +     .00000,    .00094,    .00123,
     +     .32866,    .09303,    .07080,    .00217,    .00000,
     +     .00000,    .00087,    .00115,
     +     .30236,    .08496,    .05882,    .00195,    .00000,
     +     .00000,    .00080,    .00100,
     +     .28496,    .07966,    .05156,    .00181,    .00001,
     +     .00000,    .00074,    .00092,
     +     .26818,    .07457,    .04501,    .00166,    .00002,
     +     .00000,    .00070,    .00087,
     +     .25461,    .07049,    .04011,    .00155,    .00003,
     +     .00000,    .00065,    .00081,
     +     .24234,    .06684,    .03599,    .00147,    .00004,
     +     .00000,    .00061,    .00076,
     +     .23007,    .06320,    .03216,    .00139,    .00005,
     +     .00000,    .00057,    .00070 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22004,    .06022,    .02920,    .00130,    .00005,
     +     .00000,    .00054,    .00067,
     +     .21081,    .05750,    .02665,    .00124,    .00005,
     +     .00000,    .00052,    .00064,
     +     .20382,    .05547,    .02481,    .00120,    .00006,
     +     .00000,    .00050,    .00062,
     +     .18994,    .05140,    .02137,    .00108,    .00006,
     +     .00000,    .00046,    .00056,
     +     .17890,    .04821,    .01883,    .00101,    .00006,
     +     .00001,    .00043,    .00052,
     +     .16741,    .04491,    .01641,    .00094,    .00006,
     +     .00002,    .00040,    .00047,
     +     .15637,    .04173,    .01428,    .00086,    .00006,
     +     .00002,    .00036,    .00043,
     +     .14709,    .03907,    .01264,    .00078,    .00006,
     +     .00002,    .00033,    .00041 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13834,    .03661,    .01121,    .00072,    .00006,
     +     .00003,    .00030,    .00038,
     +     .13151,    .03469,    .01018,    .00070,    .00006,
     +     .00003,    .00029,    .00034,
     +     .12375,    .03251,    .00908,    .00065,    .00006,
     +     .00003,    .00028,    .00031,
     +     .11733,    .03071,    .00822,    .00061,    .00006,
     +     .00003,    .00026,    .00029,
     +     .11177,    .02917,    .00753,    .00058,    .00006,
     +     .00003,    .00025,    .00028,
     +     .10514,    .02733,    .00675,    .00053,    .00006,
     +     .00003,    .00023,    .00025,
     +     .09932,    .02572,    .00611,    .00049,    .00005,
     +     .00003,    .00021,    .00024,
     +     .09421,    .02431,    .00557,    .00046,    .00005,
     +     .00003,    .00020,    .00023 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08935,    .02298,    .00510,    .00043,    .00005,
     +     .00003,    .00018,    .00021,
     +     .08488,    .02177,    .00468,    .00041,    .00005,
     +     .00003,    .00017,    .00020,
     +     .08088,    .02068,    .00432,    .00039,    .00005,
     +     .00003,    .00016,    .00019,
     +     .07730,    .01971,    .00402,    .00037,    .00005,
     +     .00003,    .00015,    .00018,
     +     .07388,    .01880,    .00374,    .00036,    .00004,
     +     .00003,    .00015,    .00016,
     +     .07068,    .01793,    .00349,    .00033,    .00004,
     +     .00003,    .00014,    .00015,
     +     .06779,    .01715,    .00327,    .00031,    .00004,
     +     .00003,    .00013,    .00015,
     +     .06515,    .01645,    .00308,    .00030,    .00004,
     +     .00003,    .00012,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06262,    .01578,    .00290,    .00029,    .00004,
     +     .00003,    .00012,    .00013,
     +     .06022,    .01515,    .00273,    .00028,    .00004,
     +     .00003,    .00011,    .00013,
     +     .05803,    .01457,    .00258,    .00026,    .00004,
     +     .00003,    .00011,    .00012,
     +     .05603,    .01404,    .00245,    .00025,    .00004,
     +     .00003,    .00010,    .00011,
     +     .05408,    .01352,    .00233,    .00024,    .00003,
     +     .00003,    .00009,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30504,    .08354,    .06124,    .00155,    .00000,
     +     .00000,    .00067,    .00080,
     +     .28700,    .07820,    .05347,    .00143,    .00000,
     +     .00000,    .00061,    .00074,
     +     .26272,    .07108,    .04396,    .00130,    .00000,
     +     .00000,    .00055,    .00066,
     +     .24675,    .06642,    .03826,    .00121,    .00000,
     +     .00000,    .00051,    .00060,
     +     .23140,    .06198,    .03317,    .00110,    .00001,
     +     .00000,    .00048,    .00055,
     +     .21903,    .05842,    .02940,    .00103,    .00002,
     +     .00000,    .00045,    .00050,
     +     .20791,    .05523,    .02626,    .00096,    .00002,
     +     .00000,    .00042,    .00048,
     +     .19685,    .05208,    .02334,    .00089,    .00003,
     +     .00000,    .00039,    .00046 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18777,    .04951,    .02111,    .00085,    .00003,
     +     .00000,    .00037,    .00043,
     +     .17948,    .04717,    .01920,    .00080,    .00003,
     +     .00000,    .00035,    .00040,
     +     .17323,    .04542,    .01783,    .00076,    .00003,
     +     .00000,    .00033,    .00037,
     +     .16078,    .04193,    .01527,    .00069,    .00004,
     +     .00000,    .00031,    .00034,
     +     .15096,    .03919,    .01341,    .00064,    .00004,
     +     .00001,    .00029,    .00031,
     +     .14080,    .03637,    .01164,    .00058,    .00004,
     +     .00001,    .00027,    .00029,
     +     .13101,    .03369,    .01009,    .00054,    .00004,
     +     .00001,    .00025,    .00026,
     +     .12281,    .03145,    .00890,    .00051,    .00004,
     +     .00002,    .00023,    .00024 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11515,    .02937,    .00787,    .00046,    .00004,
     +     .00002,    .00021,    .00023,
     +     .10919,    .02775,    .00713,    .00042,    .00004,
     +     .00002,    .00019,    .00023,
     +     .10244,    .02592,    .00634,    .00039,    .00004,
     +     .00002,    .00018,    .00021,
     +     .09686,    .02442,    .00574,    .00037,    .00004,
     +     .00002,    .00016,    .00019,
     +     .09203,    .02315,    .00524,    .00035,    .00004,
     +     .00002,    .00016,    .00018,
     +     .08631,    .02162,    .00469,    .00032,    .00003,
     +     .00002,    .00015,    .00016,
     +     .08128,    .02029,    .00424,    .00030,    .00003,
     +     .00002,    .00014,    .00015,
     +     .07687,    .01913,    .00386,    .00029,    .00003,
     +     .00002,    .00013,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07274,    .01803,    .00352,    .00026,    .00003,
     +     .00002,    .00012,    .00013,
     +     .06893,    .01704,    .00323,    .00025,    .00003,
     +     .00002,    .00011,    .00012,
     +     .06552,    .01616,    .00298,    .00023,    .00003,
     +     .00002,    .00010,    .00011,
     +     .06247,    .01536,    .00277,    .00022,    .00003,
     +     .00002,    .00010,    .00011,
     +     .05958,    .01461,    .00257,    .00021,    .00003,
     +     .00002,    .00010,    .00010,
     +     .05687,    .01391,    .00240,    .00020,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05443,    .01328,    .00224,    .00019,    .00003,
     +     .00002,    .00008,    .00009,
     +     .05222,    .01271,    .00211,    .00018,    .00002,
     +     .00002,    .00008,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05009,    .01217,    .00198,    .00017,    .00002,
     +     .00002,    .00008,    .00009,
     +     .04808,    .01166,    .00187,    .00016,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04626,    .01119,    .00177,    .00015,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04459,    .01077,    .00167,    .00014,    .00002,
     +     .00002,    .00006,    .00007,
     +     .04296,    .01035,    .00159,    .00014,    .00002,
     +     .00002,    .00006,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26390,    .06965,    .04559,    .00112,    .00000,
     +     .00000,    .00040,    .00048,
     +     .24749,    .06498,    .03951,    .00102,    .00000,
     +     .00000,    .00038,    .00043,
     +     .22540,    .05878,    .03218,    .00091,    .00000,
     +     .00000,    .00033,    .00038,
     +     .21102,    .05475,    .02783,    .00083,    .00000,
     +     .00000,    .00030,    .00035,
     +     .19718,    .05090,    .02399,    .00077,    .00001,
     +     .00000,    .00029,    .00032,
     +     .18609,    .04785,    .02116,    .00072,    .00001,
     +     .00000,    .00026,    .00030,
     +     .17615,    .04513,    .01881,    .00067,    .00001,
     +     .00000,    .00025,    .00027,
     +     .16629,    .04243,    .01665,    .00062,    .00002,
     +     .00000,    .00023,    .00025 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15823,    .04023,    .01501,    .00059,    .00002,
     +     .00000,    .00022,    .00023,
     +     .15088,    .03824,    .01361,    .00056,    .00002,
     +     .00000,    .00020,    .00022,
     +     .14536,    .03676,    .01261,    .00053,    .00002,
     +     .00000,    .00019,    .00021,
     +     .13440,    .03379,    .01075,    .00047,    .00002,
     +     .00000,    .00018,    .00020,
     +     .12579,    .03149,    .00941,    .00043,    .00002,
     +     .00000,    .00017,    .00019,
     +     .11689,    .02913,    .00814,    .00039,    .00002,
     +     .00001,    .00016,    .00017,
     +     .10838,    .02688,    .00703,    .00036,    .00002,
     +     .00001,    .00014,    .00017,
     +     .10128,    .02502,    .00619,    .00033,    .00002,
     +     .00001,    .00013,    .00015 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09465,    .02329,    .00546,    .00031,    .00002,
     +     .00001,    .00012,    .00013,
     +     .08951,    .02195,    .00494,    .00030,    .00002,
     +     .00001,    .00011,    .00013,
     +     .08371,    .02044,    .00438,    .00027,    .00002,
     +     .00001,    .00010,    .00012,
     +     .07893,    .01921,    .00396,    .00025,    .00002,
     +     .00001,    .00009,    .00011,
     +     .07481,    .01816,    .00361,    .00024,    .00002,
     +     .00001,    .00008,    .00010,
     +     .06995,    .01691,    .00323,    .00021,    .00002,
     +     .00001,    .00008,    .00009,
     +     .06568,    .01582,    .00291,    .00020,    .00002,
     +     .00001,    .00007,    .00009,
     +     .06195,    .01488,    .00265,    .00020,    .00002,
     +     .00001,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05846,    .01399,    .00241,    .00018,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05525,    .01319,    .00221,    .00017,    .00002,
     +     .00001,    .00005,    .00007,
     +     .05240,    .01248,    .00204,    .00017,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04986,    .01184,    .00189,    .00015,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04746,    .01123,    .00175,    .00013,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04521,    .01067,    .00163,    .00013,    .00002,
     +     .00001,    .00005,    .00005,
     +     .04318,    .01017,    .00153,    .00012,    .00002,
     +     .00001,    .00005,    .00004,
     +     .04135,    .00972,    .00143,    .00011,    .00001,
     +     .00001,    .00004,    .00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03959,    .00928,    .00135,    .00011,    .00001,
     +     .00001,    .00004,    .00005,
     +     .03793,    .00888,    .00127,    .00010,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03641,    .00851,    .00120,    .00010,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03504,    .00817,    .00113,    .00010,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03371,    .00784,    .00108,    .00009,    .00001,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22488,    .05701,    .03294,    .00069,    .00000,
     +     .00000,    .00029,    .00031,
     +     .21015,    .05302,    .02835,    .00061,    .00000,
     +     .00000,    .00025,    .00028,
     +     .19048,    .04771,    .02287,    .00055,    .00000,
     +     .00000,    .00023,    .00025,
     +     .17763,    .04428,    .01964,    .00051,    .00000,
     +     .00000,    .00022,    .00023,
     +     .16544,    .04103,    .01683,    .00044,    .00000,
     +     .00000,    .00020,    .00020,
     +     .15564,    .03844,    .01479,    .00041,    .00001,
     +     .00000,    .00018,    .00021,
     +     .14688,    .03615,    .01309,    .00039,    .00001,
     +     .00000,    .00017,    .00019,
     +     .13822,    .03389,    .01154,    .00037,    .00001,
     +     .00000,    .00016,    .00017 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13120,    .03206,    .01037,    .00033,    .00001,
     +     .00000,    .00015,    .00015,
     +     .12481,    .03040,    .00937,    .00031,    .00001,
     +     .00000,    .00014,    .00015,
     +     .12001,    .02916,    .00866,    .00029,    .00001,
     +     .00000,    .00013,    .00014,
     +     .11048,    .02670,    .00736,    .00027,    .00001,
     +     .00000,    .00012,    .00013,
     +     .10304,    .02480,    .00642,    .00025,    .00001,
     +     .00000,    .00012,    .00012,
     +     .09540,    .02286,    .00554,    .00022,    .00001,
     +     .00000,    .00010,    .00010,
     +     .08812,    .02102,    .00477,    .00020,    .00001,
     +     .00001,    .00009,    .00009,
     +     .08206,    .01949,    .00419,    .00019,    .00001,
     +     .00001,    .00009,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07642,    .01808,    .00369,    .00018,    .00001,
     +     .00001,    .00008,    .00007,
     +     .07209,    .01699,    .00333,    .00016,    .00001,
     +     .00001,    .00007,    .00008,
     +     .06719,    .01578,    .00295,    .00015,    .00001,
     +     .00001,    .00007,    .00007,
     +     .06317,    .01478,    .00266,    .00014,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05973,    .01394,    .00243,    .00014,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05566,    .01294,    .00216,    .00012,    .00001,
     +     .00001,    .00005,    .00005,
     +     .05211,    .01207,    .00195,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04900,    .01132,    .00177,    .00011,    .00001,
     +     .00001,    .00005,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04612,    .01062,    .00161,    .00010,    .00001,
     +     .00001,    .00004,    .00005,
     +     .04348,    .00998,    .00147,    .00009,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04113,    .00942,    .00136,    .00009,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03905,    .00891,    .00126,    .00008,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03708,    .00844,    .00117,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03523,    .00800,    .00108,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03358,    .00761,    .00101,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03208,    .00726,    .00095,    .00006,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03065,    .00692,    .00089,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02931,    .00660,    .00084,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02809,    .00631,    .00079,    .00005,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02699,    .00605,    .00075,    .00005,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02591,    .00580,    .00071,    .00005,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .15595,    .03642,    .01576,    .00025,    .00000,
     +     .00000,    .00010,    .00010,
     +     .14461,    .03362,    .01338,    .00025,    .00000,
     +     .00000,    .00009,    .00008,
     +     .12965,    .02995,    .01061,    .00021,    .00000,
     +     .00000,    .00008,    .00007,
     +     .12000,    .02759,    .00902,    .00019,    .00000,
     +     .00000,    .00007,    .00008,
     +     .11089,    .02536,    .00765,    .00017,    .00000,
     +     .00000,    .00006,    .00008,
     +     .10365,    .02362,    .00667,    .00016,    .00000,
     +     .00000,    .00006,    .00007,
     +     .09723,    .02208,    .00587,    .00015,    .00000,
     +     .00000,    .00005,    .00006,
     +     .09094,    .02056,    .00514,    .00013,    .00000,
     +     .00000,    .00005,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08584,    .01934,    .00459,    .00012,    .00000,
     +     .00000,    .00004,    .00006,
     +     .08123,    .01824,    .00413,    .00011,    .00000,
     +     .00000,    .00004,    .00005,
     +     .07779,    .01743,    .00381,    .00011,    .00000,
     +     .00000,    .00004,    .00004,
     +     .07100,    .01583,    .00322,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .06576,    .01460,    .00280,    .00009,    .00000,
     +     .00000,    .00004,    .00004,
     +     .06041,    .01335,    .00240,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05536,    .01218,    .00206,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05118,    .01122,    .00181,    .00006,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04733,    .01033,    .00159,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04439,    .00966,    .00143,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04109,    .00891,    .00126,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03840,    .00829,    .00114,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03611,    .00778,    .00104,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03341,    .00717,    .00092,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03109,    .00665,    .00083,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02907,    .00620,    .00075,    .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)/
     +     .02719,    .00578,    .00068,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02549,    .00540,    .00062,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02400,    .00507,    .00057,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02267,    .00478,    .00053,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02141,    .00450,    .00049,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02025,    .00425,    .00046,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01921,    .00402,    .00042,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01828,    .00382,    .00040,    .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)/
     +     .01740,    .00362,    .00037,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01657,    .00344,    .00035,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01582,    .00328,    .00033,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01514,    .00314,    .00031,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01448,    .00299,    .00029,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .09990,    .02135,    .00648,    .00009,    .00000,
     +     .00000,    .00002,    .00003,
     +     .09193,    .01955,    .00545,    .00007,    .00000,
     +     .00000,    .00002,    .00003,
     +     .08146,    .01721,    .00426,    .00007,    .00000,
     +     .00000,    .00001,    .00002,
     +     .07479,    .01573,    .00360,    .00007,    .00000,
     +     .00000,    .00002,    .00001,
     +     .06853,    .01435,    .00304,    .00006,    .00000,
     +     .00000,    .00001,    .00001,
     +     .06362,    .01326,    .00263,    .00005,    .00000,
     +     .00000,    .00002,    .00001,
     +     .05928,    .01231,    .00231,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .05504,    .01140,    .00201,    .00004,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05165,    .01066,    .00180,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04861,    .01000,    .00162,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04635,    .00951,    .00149,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04191,    .00856,    .00125,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03852,    .00784,    .00109,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03509,    .00710,    .00093,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03187,    .00642,    .00080,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02924,    .00587,    .00070,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02684,    .00537,    .00062,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02502,    .00499,    .00056,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02298,    .00456,    .00049,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02133,    .00423,    .00044,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01994,    .00394,    .00040,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01832,    .00360,    .00036,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01693,    .00332,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01573,    .00307,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01462,    .00285,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01362,    .00265,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01275,    .00247,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01197,    .00232,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01125,    .00217,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01059,    .00204,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01000,    .00192,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00947,    .00181,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00897,    .00171,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00850,    .00162,    .00013,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00808,    .00154,    .00012,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00770,    .00146,    .00012,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00734,    .00139,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05773,    .01116,    .00219,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05263,    .01013,    .00183,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04605,    .00880,    .00143,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04188,    .00798,    .00120,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03803,    .00721,    .00101,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03502,    .00661,    .00088,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03239,    .00609,    .00077,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02985,    .00560,    .00067,    .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)/
     +     .02782,    .00520,    .00060,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02601,    .00484,    .00054,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02467,    .00459,    .00050,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02209,    .00409,    .00042,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02012,    .00371,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01816,    .00333,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01633,    .00298,    .00027,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01486,    .00270,    .00024,    .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=17,24)/
     +     .01352,    .00245,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01251,    .00226,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01139,    .00205,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01050,    .00188,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00976,    .00175,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00889,    .00158,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00814,    .00145,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00751,    .00133,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00693,    .00123,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00642,    .00113,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00597,    .00105,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00557,    .00098,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00520,    .00091,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00487,    .00085,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00457,    .00080,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00431,    .00075,    .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)/
     +     .00406,    .00070,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00383,    .00066,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00362,    .00063,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00344,    .00059,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00326,    .00056,    .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)/
     +     .02869,    .00493,    .00056,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02589,    .00443,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02231,    .00379,    .00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02008,    .00340,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01803,    .00304,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01646,    .00276,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01509,    .00252,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01378,    .00230,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
     +     .01274,    .00212,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01183,    .00196,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01116,    .00185,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00987,    .00162,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00890,    .00146,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00794,    .00130,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00706,    .00115,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00636,    .00103,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00573,    .00092,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00526,    .00085,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00474,    .00076,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00069,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00399,    .00064,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00360,    .00057,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00327,    .00052,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00299,    .00047,    .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)/
     +     .00274,    .00043,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00251,    .00040,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00232,    .00036,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00199,    .00031,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00185,    .00029,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00173,    .00027,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00162,    .00025,    .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)/
     +     .00152,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00134,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00126,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00119,    .00018,    .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)/
     +     .00298,    .00037,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00261,    .00032,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00188,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00163,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00145,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00130,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00115,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00104,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00095,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00088,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00075,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00066,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00057,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00049,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00043,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00037,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00034,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00021,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00015,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor01.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