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

sfmrs_99a8.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a8(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.11507,    .87315,    .00000,
     +     .00000,    .52072,    .88527,
     +     .00541,    .00231,   2.38593,    .90817,    .00000,
     +     .00000,    .56040,    .92033,
     +     .00565,    .00241,   4.88911,    .98487,    .00000,
     +     .00000,    .64374,    .99708,
     +     .00582,    .00249,   7.22930,   1.05900,    .04540,
     +     .00000,    .72248,   1.07123,
     +     .00601,    .00257,  10.05464,   1.15491,    .15607,
     +     .00000,    .82306,   1.16715,
     +     .00617,    .00264,  12.97012,   1.25385,    .26204,
     +     .00000,    .92593,   1.26610,
     +     .00632,    .00271,  16.24274,   1.36142,    .37896,
     +     .00000,   1.03716,   1.37367,
     +     .00648,    .00279,  20.25854,   1.49012,    .52072,
     +     .00000,   1.16965,   1.50236 /
        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.17170,   1.61637,    .65343,
     +     .00000,   1.29914,   1.62861,
     +     .00677,    .00292,  28.37326,   1.75045,    .79473,
     +     .00000,   1.43627,   1.76268,
     +     .00688,    .00297,  32.05407,   1.86519,    .91807,
     +     .00000,   1.55338,   1.87741,
     +     .00712,    .00308,  40.57703,   2.13846,   1.20547,
     +     .02267,   1.83156,   2.15064,
     +     .00732,    .00318,  48.59679,   2.40304,   1.48125,
     +     .34670,   2.10023,   2.41519,
     +     .00756,    .00329,  58.72475,   2.73434,   1.82688,
     +     .74567,   2.43599,   2.74645,
     +     .00780,    .00341,  70.64552,   3.11942,   2.22779,
     +    1.16491,   2.82556,   3.13148,
     +     .00803,    .00352,  82.70376,   3.50586,   2.62948,
     +    1.58516,   3.21597,   3.51786 /
        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.13752,   3.93397,   3.07427,
     +    2.04863,   3.64798,   3.94592,
     +     .00845,    .00373, 108.22611,   4.31905,   3.47240,
     +    2.45877,   4.03622,   4.33095,
     +     .00868,    .00384, 124.03743,   4.82316,   3.99182,
     +    2.99179,   4.54407,   4.83499,
     +     .00889,    .00395, 139.18558,   5.30515,   4.48917,
     +    3.50449,   5.02929,   5.31693,
     +     .00909,    .00405, 154.05742,   5.77816,   4.97738,
     +    4.00810,   5.50519,   5.78988,
     +     .00934,    .00417, 174.06555,   6.41916,   5.63494,
     +    4.67988,   6.14979,   6.43080,
     +     .00957,    .00429, 194.26398,   7.06743,   6.30046,
     +    5.36164,   6.80136,   7.07900,
     +     .00979,    .00440, 214.50067,   7.71749,   6.96900,
     +    6.04885,   7.45444,   7.72900 /
        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.61906,   8.40367,   7.67005,
     +    6.76241,   8.14358,   8.41511,
     +     .01024,    .00463, 257.52185,   9.11683,   8.40007,
     +    7.50843,   8.85957,   9.12820,
     +     .01045,    .00474, 279.31253,   9.82979,   9.12959,
     +    8.25385,   9.57515,   9.84109,
     +     .01065,    .00485, 300.58368,  10.53226,   9.84621,
     +    8.98322,  10.28004,  10.54348,
     +     .01086,    .00495, 323.06915,  11.27576,  10.60650,
     +    9.76005,  11.02594,  11.28693,
     +     .01106,    .00506, 345.73203,  12.03432,  11.37879,
     +   10.54457,  11.78681,  12.04541,
     +     .01125,    .00516, 368.37097,  12.79232,  12.15279,
     +   11.33447,  12.54698,  12.80335,
     +     .01144,    .00526, 390.16098,  13.53101,  12.90404,
     +   12.09701,  13.28769,  13.54199 /
        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.08563,  14.30935,  13.69720,
     +   12.90463,  14.06802,  14.32026,
     +     .01181,    .00545, 436.19785,  15.10161,  14.50293,
     +   13.72307,  14.86222,  15.11246,
     +     .01199,    .00555, 458.92014,  15.88476,  15.29935,
     +   14.53222,  15.64720,  15.89555,
     +     .01217,    .00564, 481.15384,  16.65416,  16.08232,
     +   15.32866,  16.41832,  16.66490,
     +     .01234,    .00573, 503.88434,  17.44962,  16.88959,
     +   16.14695,  17.21548,  17.46031 /
        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.04011,    .73972,    .00000,
     +     .00000,    .44000,    .74676,
     +     .00730,    .00317,   2.18517,    .77225,    .00000,
     +     .00000,    .47616,    .77931,
     +     .00764,    .00332,   4.39208,    .84018,    .00000,
     +     .00000,    .54924,    .84727,
     +     .00788,    .00343,   6.41419,    .90413,    .03864,
     +     .00000,    .61677,    .91123,
     +     .00814,    .00355,   8.81468,    .98542,    .13234,
     +     .00000,    .70167,    .99253,
     +     .00836,    .00365,  11.25605,   1.06815,    .22094,
     +     .00000,    .78743,   1.07526,
     +     .00857,    .00375,  13.96372,   1.15730,    .31773,
     +     .00000,    .87942,   1.16441,
     +     .00880,    .00386,  17.24739,   1.26308,    .43405,
     +     .00000,    .98813,   1.27020 /
        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.41074,   1.36594,    .54195,
     +     .00000,   1.09348,   1.37305,
     +     .00920,    .00405,  23.77456,   1.47442,    .65602,
     +     .00000,   1.20430,   1.48152,
     +     .00935,    .00413,  26.69842,   1.56678,    .75502,
     +     .00000,   1.29849,   1.57387,
     +     .00968,    .00429,  33.38902,   1.78487,    .98368,
     +     .01852,   1.52037,   1.79196,
     +     .00996,    .00443,  39.59538,   1.99405,   1.20093,
     +     .27322,   1.73270,   2.00112,
     +     .01029,    .00459,  47.33649,   2.25366,   1.47070,
     +     .58488,   1.99573,   2.26071,
     +     .01062,    .00476,  56.33228,   2.55258,   1.78060,
     +     .90858,   2.29810,   2.55960,
     +     .01093,    .00492,  65.32340,   2.84990,   2.08830,
     +    1.23006,   2.59847,   2.85690 /
        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.23013,   3.17658,   2.42619,
     +    1.58154,   2.92814,   3.18355,
     +     .01151,    .00521,  84.05628,   3.46820,   2.72630,
     +    1.89008,   3.22219,   3.47515,
     +     .01183,    .00537,  95.48808,   3.84712,   3.11491,
     +    2.28799,   3.60397,   3.85403,
     +     .01211,    .00552, 106.33683,   4.20678,   3.48432,
     +    2.66797,   3.96611,   4.21366,
     +     .01238,    .00566, 116.89914,   4.55745,   3.84463,
     +    3.03880,   4.31901,   4.56431,
     +     .01272,    .00583, 130.97639,   5.02921,   4.32633,
     +    3.52968,   4.79352,   5.03603,
     +     .01304,    .00600, 145.05559,   5.50282,   4.81037,
     +    4.02430,   5.26966,   5.50961,
     +     .01334,    .00616, 159.04370,   5.97461,   5.29347,
     +    4.51972,   5.74377,   5.98136 /
        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.51248,   6.46916,   5.79648,
     +    5.03032,   6.24058,   6.47588,
     +     .01394,    .00648, 188.40450,   6.98001,   6.31720,
     +    5.56110,   6.75361,   6.98670,
     +     .01423,    .00663, 203.11081,   7.48770,   6.83454,
     +    6.08838,   7.26331,   7.49436,
     +     .01450,    .00677, 217.36116,   7.98500,   7.33975,
     +    6.60121,   7.76248,   7.99163,
     +     .01478,    .00692, 232.33342,   8.50873,   7.87322,
     +    7.14495,   8.28805,   8.51533,
     +     .01505,    .00706, 247.31435,   9.04003,   8.41195,
     +    7.69074,   8.82113,   9.04659,
     +     .01531,    .00720, 262.19849,   9.56855,   8.94960,
     +    8.23810,   9.35130,   9.57508,
     +     .01556,    .00733, 276.42926,  10.08092,   9.46867,
     +    8.76356,   9.86523,  10.08743 /
        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.32748,  10.61856,  10.01457,
     +    9.31805,  10.40441,  10.62504,
     +     .01606,    .00760, 306.25809,  11.16324,  10.56648,
     +    9.87724,  10.95059,  11.16969,
     +     .01630,    .00773, 320.86191,  11.69941,  11.10979,
     +   10.42786,  11.48816,  11.70583,
     +     .01653,    .00785, 335.08524,  12.22414,  11.64195,
     +   10.96788,  12.01420,  12.23053,
     +     .01677,    .00798, 349.54446,  12.76426,  12.18817,
     +   11.52014,  12.55564,  12.77063 /
        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,    .97124,    .62641,    .00000,
     +     .00000,    .37190,    .62990,
     +     .00987,    .00434,   2.00252,    .65638,    .00000,
     +     .00000,    .40469,    .65988,
     +     .01033,    .00456,   3.94679,    .71641,    .00000,
     +     .00000,    .46870,    .71992,
     +     .01067,    .00473,   5.69200,    .77155,    .03287,
     +     .00000,    .52660,    .77505,
     +     .01103,    .00490,   7.72829,    .84040,    .11219,
     +     .00000,    .59824,    .84391,
     +     .01134,    .00505,   9.76873,    .90952,    .18622,
     +     .00000,    .66970,    .91303,
     +     .01164,    .00520,  12.00411,    .98334,    .26631,
     +     .00000,    .74569,    .98685,
     +     .01195,    .00536,  14.68262,   1.07017,    .36168,
     +     .00000,    .83477,   1.07368 /
        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.23293,   1.15382,    .44934,
     +     .00000,    .92033,   1.15733,
     +     .01250,    .00564,  19.91822,   1.24141,    .54133,
     +     .00000,   1.00972,   1.24492,
     +     .01271,    .00574,  22.23371,   1.31559,    .62070,
     +     .00000,   1.08530,   1.31910,
     +     .01316,    .00598,  27.46826,   1.48922,    .80239,
     +     .01512,   1.26183,   1.49272,
     +     .01356,    .00618,  32.25300,   1.65412,    .97327,
     +     .21521,   1.42914,   1.65762,
     +     .01400,    .00641,  38.14560,   1.85692,   1.18348,
     +     .45855,   1.63454,   1.86041,
     +     .01446,    .00665,  44.90436,   2.08816,   1.42257,
     +     .70831,   1.86842,   2.09165,
     +     .01488,    .00687,  51.57720,   2.31609,   1.65779,
     +     .95403,   2.09867,   2.31956 /
        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.84702,   2.56441,   1.91387,
     +    1.22031,   2.34926,   2.56787,
     +     .01567,    .00728,  65.25777,   2.78436,   2.13954,
     +    1.45215,   2.57106,   2.78782,
     +     .01611,    .00752,  73.47825,   3.06796,   2.42951,
     +    1.74880,   2.85684,   3.07141,
     +     .01650,    .00772,  81.20396,   3.33514,   2.70311,
     +    2.02999,   3.12591,   3.33858,
     +     .01686,    .00791,  88.66174,   3.59394,   2.96823,
     +    2.30261,   3.38639,   3.59737,
     +     .01732,    .00816,  98.50539,   3.93948,   3.31998,
     +    2.66064,   3.73403,   3.94291,
     +     .01775,    .00839, 108.25667,   4.28381,   3.67084,
     +    3.01876,   4.08028,   4.28722,
     +     .01816,    .00861, 117.86207,   4.62449,   4.01871,
     +    3.37514,   4.42272,   4.62790 /
        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.70645,   4.97906,   4.37827,
     +    3.73962,   4.77901,   4.98245,
     +     .01898,    .00905, 137.75996,   5.34304,   4.74825,
     +    4.11628,   5.14464,   5.34643,
     +     .01937,    .00926, 147.61273,   5.70259,   5.11365,
     +    4.48824,   5.50572,   5.70597,
     +     .01973,    .00946, 157.08716,   6.05267,   5.46832,
     +    4.84777,   5.85722,   6.05605,
     +     .02010,    .00966, 166.97978,   6.41950,   5.84103,
     +    5.22720,   6.22545,   6.42287,
     +     .02047,    .00986, 176.80305,   6.78944,   6.21515,
     +    5.60567,   6.59674,   6.79280,
     +     .02082,    .01005, 186.50916,   7.15577,   6.58693,
     +    5.98371,   6.96433,   7.15912,
     +     .02115,    .01023, 195.72423,   7.50899,   6.94385,
     +    6.34450,   7.31873,   7.51234 /
        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.32343,   7.87810,   7.31776,
     +    6.72382,   7.68901,   7.88144,
     +     .02183,    .01060, 214.88344,   8.25021,   7.69392,
     +    7.10443,   8.06226,   8.25355,
     +     .02215,    .01078, 224.18472,   8.61494,   8.06268,
     +    7.47765,   8.42806,   8.61828,
     +     .02246,    .01094, 233.20016,   8.97050,   8.42250,
     +    7.84235,   8.78462,   8.97382,
     +     .02277,    .01112, 242.31064,   9.33482,   8.79010,
     +    8.21348,   9.14995,   9.33815 /
        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,    .93392,    .56824,    .00000,
     +     .00000,    .33715,    .57026,
     +     .01177,    .00521,   1.90382,    .59670,    .00000,
     +     .00000,    .36804,    .59872,
     +     .01233,    .00550,   3.70850,    .65248,    .00000,
     +     .00000,    .42725,    .65450,
     +     .01275,    .00570,   5.30865,    .70301,    .02990,
     +     .00000,    .48015,    .70503,
     +     .01318,    .00592,   7.15650,    .76547,    .10183,
     +     .00000,    .54500,    .76749,
     +     .01355,    .00611,   8.99173,    .82766,    .16845,
     +     .00000,    .60920,    .82969,
     +     .01391,    .00630,  10.98762,    .89371,    .24011,
     +     .00000,    .67712,    .89574,
     +     .01430,    .00650,  13.36209,    .97102,    .32499,
     +     .00000,    .75635,    .97305 /
        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.60710,   1.04507,    .40257,
     +     .00000,    .83203,   1.04710,
     +     .01495,    .00684,  17.95703,   1.12227,    .48363,
     +     .00000,    .91077,   1.12430,
     +     .01521,    .00697,  19.97372,   1.18745,    .55333,
     +     .00000,    .97715,   1.18948,
     +     .01576,    .00726,  24.49977,   1.33918,    .71203,
     +     .01343,   1.13136,   1.34122,
     +     .01623,    .00751,  28.60038,   1.48244,    .86039,
     +     .18709,   1.27667,   1.48448,
     +     .01676,    .00779,  33.61220,   1.65766,   1.04187,
     +     .39755,   1.45411,   1.65969,
     +     .01732,    .00809,  39.31599,   1.85629,   1.24708,
     +     .61204,   1.65499,   1.85833,
     +     .01783,    .00836,  44.90605,   2.05100,   1.44784,
     +     .82189,   1.85168,   2.05304 /
        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.95521,   2.26206,   1.66530,
     +    1.04811,   2.06468,   2.26410,
     +     .01878,    .00886,  56.25687,   2.44814,   1.85604,
     +    1.24411,   2.25232,   2.45018,
     +     .01930,    .00915,  63.01435,   2.68696,   2.09998,
     +    1.49372,   2.49300,   2.68900,
     +     .01977,    .00940,  69.32825,   2.91097,   2.32914,
     +    1.72928,   2.71861,   2.91301,
     +     .02020,    .00963,  75.39213,   3.12708,   2.55033,
     +    1.95677,   2.93616,   3.12913,
     +     .02075,    .00993,  83.34931,   3.41434,   2.84245,
     +    2.25410,   3.22519,   3.41638,
     +     .02127,    .01021,  91.18669,   3.69930,   3.13255,
     +    2.55021,   3.51179,   3.70135,
     +     .02176,    .01048,  98.86726,   3.98012,   3.41905,
     +    2.84374,   3.79411,   3.98218 /
        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.69511,   4.27113,   3.71387,
     +    3.14255,   4.08658,   4.27319,
     +     .02273,    .01101, 114.65194,   4.56877,   4.01614,
     +    3.45027,   4.38561,   4.57083,
     +     .02319,    .01126, 122.41418,   4.86171,   4.31361,
     +    3.75306,   4.67986,   4.86378,
     +     .02363,    .01150, 129.84366,   5.14592,   4.60129,
     +    4.04464,   4.96526,   5.14798,
     +     .02407,    .01175, 137.57248,   5.44283,   4.90274,
     +    4.35151,   5.26336,   5.44490,
     +     .02451,    .01198, 145.21123,   5.74119,   5.20421,
     +    4.65644,   5.56288,   5.74327,
     +     .02492,    .01221, 152.73439,   6.03585,   5.50305,
     +    4.96030,   5.85860,   6.03793,
     +     .02532,    .01243, 159.84604,   6.31904,   5.78897,
     +    5.24926,   6.14280,   6.32113 /
        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.23213,   6.61424,   6.08782,
     +    5.55240,   6.43899,   6.61633,
     +     .02612,    .01287, 174.55977,   6.91096,   6.38756,
     +    5.85562,   6.73668,   6.91306,
     +     .02650,    .01309, 181.66635,   7.20107,   6.68067,
     +    6.15224,   7.02769,   7.20317,
     +     .02687,    .01329, 188.53462,   7.48321,   6.96602,
     +    6.44144,   7.31069,   7.48531,
     +     .02724,    .01349, 195.44975,   7.77151,   7.25672,
     +    6.73487,   7.59984,   7.77362 /
        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,    .90888,    .53023,    .00000,
     +     .00000,    .31454,    .53144,
     +     .01334,    .00595,   1.83741,    .55762,    .00000,
     +     .00000,    .34412,    .55883,
     +     .01399,    .00628,   3.54883,    .61054,    .00000,
     +     .00000,    .40012,    .61175,
     +     .01446,    .00652,   5.05294,    .65801,    .02795,
     +     .00000,    .44974,    .65923,
     +     .01495,    .00678,   6.77699,    .71628,    .09505,
     +     .00000,    .51016,    .71751,
     +     .01538,    .00700,   8.47832,    .77397,    .15686,
     +     .00000,    .56964,    .77520,
     +     .01579,    .00722,  10.31886,    .83500,    .22306,
     +     .00000,    .63234,    .83622,
     +     .01623,    .00745,  12.49725,    .90615,    .30118,
     +     .00000,    .70522,    .90738 /
        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.54646,    .97403,    .37229,
     +     .00000,    .77456,    .97526,
     +     .01698,    .00784,  16.68237,   1.04457,    .44637,
     +     .00000,    .84649,   1.04581,
     +     .01728,    .00800,  18.50912,   1.10399,    .50990,
     +     .00000,    .90698,   1.10523,
     +     .01790,    .00833,  22.58739,   1.24179,    .65401,
     +     .01234,   1.04699,   1.24304,
     +     .01844,    .00862,  26.25867,   1.37134,    .78815,
     +     .16935,   1.17837,   1.37259,
     +     .01905,    .00895,  30.72119,   1.52914,    .95158,
     +     .35915,   1.33817,   1.53040,
     +     .01969,    .00929,  35.77131,   1.70729,   1.13558,
     +     .55163,   1.51832,   1.70856,
     +     .02027,    .00960,  40.69457,   1.88124,   1.31488,
     +     .73918,   1.69403,   1.88251 /
        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.99630,   2.06910,   1.50839,
     +     .94060,   1.88362,   2.07038,
     +     .02135,    .01019,  50.62225,   2.23416,   1.67753,
     +    1.11450,   2.05009,   2.23545,
     +     .02194,    .01052,  56.49287,   2.44531,   1.89314,
     +    1.33521,   2.26289,   2.44661,
     +     .02247,    .01081,  61.95516,   2.64273,   2.09504,
     +    1.54285,   2.46173,   2.64404,
     +     .02296,    .01107,  67.18176,   2.83265,   2.28937,
     +    1.74280,   2.65294,   2.83397,
     +     .02359,    .01141,  74.01127,   3.08427,   2.54517,
     +    2.00325,   2.90614,   3.08560,
     +     .02418,    .01174,  80.71011,   3.33308,   2.79839,
     +    2.26181,   3.15641,   3.33442,
     +     .02473,    .01204,  87.25063,   3.57757,   3.04776,
     +    2.51739,   3.40223,   3.57892 /
        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.88946,   3.83014,   3.30356,
     +    2.77671,   3.65610,   3.83150,
     +     .02584,    .01265, 100.61486,   4.08776,   3.56513,
     +    3.04308,   3.91497,   4.08914,
     +     .02636,    .01294, 107.15408,   4.34068,   3.82189,
     +    3.30451,   4.16904,   4.34206,
     +     .02685,    .01322, 113.39166,   4.58541,   4.06955,
     +    3.55558,   4.41484,   4.58680,
     +     .02735,    .01349, 119.86333,   4.84052,   4.32852,
     +    3.81929,   4.67102,   4.84193,
     +     .02784,    .01377, 126.23753,   5.09623,   4.58683,
     +    4.08060,   4.92775,   5.09765,
     +     .02831,    .01403, 132.50072,   5.34827,   4.84241,
     +    4.34055,   5.18075,   5.34971,
     +     .02876,    .01428, 138.40245,   5.58993,   5.08635,
     +    4.58713,   5.42330,   5.59138 /
        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.51881,   5.84140,   5.34088,
     +    4.84538,   5.67565,   5.84285,
     +     .02966,    .01478, 150.56964,   6.09363,   5.59563,
     +    5.10314,   5.92874,   6.09509,
     +     .03009,    .01502, 156.42438,   6.33977,   5.84428,
     +    5.35483,   6.17569,   6.34125,
     +     .03051,    .01525, 162.07086,   6.57875,   6.08597,
     +    5.59983,   6.41544,   6.58024,
     +     .03092,    .01548, 167.74022,   6.82247,   6.33167,
     +    5.84787,   6.65991,   6.82397 /
        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,    .89036,    .50248,    .00000,
     +     .00000,    .29809,    .50320,
     +     .01470,    .00659,   1.78800,    .52905,    .00000,
     +     .00000,    .32668,    .52977,
     +     .01542,    .00696,   3.43021,    .57983,    .00000,
     +     .00000,    .38030,    .58055,
     +     .01595,    .00724,   4.86351,    .62506,    .02653,
     +     .00000,    .42751,    .62579,
     +     .01650,    .00753,   6.49679,    .68027,    .09008,
     +     .00000,    .48469,    .68100,
     +     .01697,    .00778,   8.10045,    .73467,    .14840,
     +     .00000,    .54075,    .73541,
     +     .01743,    .00802,   9.82816,    .79205,    .21064,
     +     .00000,    .59966,    .79279,
     +     .01792,    .00828,  11.86473,    .85875,    .28387,
     +     .00000,    .66796,    .85950 /
        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.77292,    .92217,    .35033,
     +     .00000,    .73273,    .92293,
     +     .01875,    .00873,  15.75522,    .98792,    .41939,
     +     .00000,    .79975,    .98869,
     +     .01908,    .00890,  17.44606,   1.04321,    .47850,
     +     .00000,    .85602,   1.04398,
     +     .01977,    .00928,  21.20529,   1.17102,    .61218,
     +     .01155,    .98586,   1.17180,
     +     .02037,    .00960,  24.57227,   1.29078,    .73619,
     +     .15673,   1.10730,   1.29156,
     +     .02104,    .00997,  28.64731,   1.43620,    .88680,
     +     .33187,   1.25455,   1.43700,
     +     .02175,    .01035,  33.23850,   1.59982,   1.05581,
     +     .50879,   1.42001,   1.60064,
     +     .02239,    .01070,  37.69575,   1.75909,   1.21998,
     +     .68064,   1.58089,   1.75991 /
        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.47726,   1.93060,   1.39665,
     +     .86465,   1.75399,   1.93144,
     +     .02358,    .01136,  46.63472,   2.08090,   1.55067,
     +    1.02309,   1.90557,   2.08175,
     +     .02424,    .01172,  51.89274,   2.27267,   1.74647,
     +    1.22364,   2.09886,   2.27353,
     +     .02483,    .01204,  56.76890,   2.45150,   1.92937,
     +    1.41184,   2.27900,   2.45238,
     +     .02537,    .01234,  61.42110,   2.62317,   2.10503,
     +    1.59267,   2.45184,   2.62407,
     +     .02605,    .01272,  67.47970,   2.85002,   2.33563,
     +    1.82758,   2.68014,   2.85093,
     +     .02670,    .01308,  73.40303,   3.07378,   2.56335,
     +    2.06021,   2.90523,   3.07471,
     +     .02732,    .01342,  79.16953,   3.29314,   2.78711,
     +    2.28966,   3.12581,   3.29409 /
        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.00373,   3.51920,   3.01605,
     +    2.52184,   3.35306,   3.52016,
     +     .02853,    .01410,  90.89830,   3.74931,   3.24969,
     +    2.75986,   3.58431,   3.75029,
     +     .02911,    .01442,  96.61463,   3.97474,   3.47857,
     +    2.99300,   3.81081,   3.97574,
     +     .02965,    .01472, 102.05259,   4.19243,   3.69886,
     +    3.21641,   4.02948,   4.19345,
     +     .03020,    .01503, 107.68278,   4.41899,   3.92886,
     +    3.45072,   4.25700,   4.42002,
     +     .03074,    .01533, 113.21310,   4.64560,   4.15778,
     +    3.68238,   4.48455,   4.64665,
     +     .03126,    .01562, 118.63709,   4.86863,   4.38396,
     +    3.91253,   4.70845,   4.86970,
     +     .03175,    .01589, 123.73497,   5.08207,   4.59942,
     +    4.13038,   4.92271,   5.08316 /
        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.00952,   5.30386,   4.82394,
     +    4.35828,   5.14531,   5.30497,
     +     .03274,    .01645, 134.21579,   5.52596,   5.04826,
     +    4.58533,   5.36819,   5.52708,
     +     .03321,    .01671, 139.24394,   5.74238,   5.26691,
     +    4.80672,   5.58536,   5.74352,
     +     .03366,    .01697, 144.08517,   5.95223,   5.47917,
     +    5.02197,   5.79591,   5.95339,
     +     .03412,    .01722, 148.93529,   6.16589,   5.69458,
     +    5.23951,   6.01026,   6.16706 /
        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,    .83860,    .42522,    .00000,
     +     .00000,    .25257,    .42505,
     +     .01990,    .00908,   1.64666,    .44927,    .00000,
     +     .00000,    .27822,    .44911,
     +     .02091,    .00963,   3.09004,    .49384,    .00000,
     +     .00000,    .32502,    .49370,
     +     .02164,    .01003,   4.32212,    .53268,    .02252,
     +     .00000,    .36541,    .53257,
     +     .02240,    .01045,   5.70005,    .57929,    .07618,
     +     .00000,    .41356,    .57919,
     +     .02306,    .01082,   7.03138,    .62457,    .12476,
     +     .00000,    .46013,    .62448,
     +     .02369,    .01117,   8.44685,    .67185,    .17608,
     +     .00000,    .50861,    .67178,
     +     .02437,    .01154,  10.09392,    .72630,    .23591,
     +     .00000,    .56431,    .72625 /
        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.61763,    .77754,    .28966,
     +     .00000,    .61660,    .77752,
     +     .02552,    .01219,  13.18375,    .83024,    .34508,
     +     .00000,    .67028,    .83023,
     +     .02597,    .01244,  14.50823,    .87430,    .39223,
     +     .00000,    .71511,    .87430,
     +     .02692,    .01297,  17.41410,    .97515,    .49784,
     +     .00940,    .81754,    .97519,
     +     .02775,    .01343,  19.97463,   1.06862,    .59476,
     +     .12299,    .91232,   1.06869,
     +     .02867,    .01395,  23.03109,   1.18100,    .71130,
     +     .25918,   1.02610,   1.18110,
     +     .02963,    .01450,  26.42619,   1.30610,    .84068,
     +     .39506,   1.15263,   1.30624,
     +     .03051,    .01499,  29.67850,   1.42666,    .96512,
     +     .52574,   1.27444,   1.42683 /
        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.12479,   1.55531,   1.09781,
     +     .66437,   1.40432,   1.55551,
     +     .03214,    .01591,  36.08778,   1.66708,   1.21250,
     +     .78268,   1.51709,   1.66732,
     +     .03304,    .01642,  39.79404,   1.80851,   1.35709,
     +     .93119,   1.65969,   1.80879,
     +     .03383,    .01687,  43.19487,   1.93935,   1.49108,
     +    1.06946,   1.79153,   1.93966,
     +     .03457,    .01729,  46.40940,   2.06406,   1.61885,
     +    1.20137,   1.91715,   2.06440,
     +     .03550,    .01782,  50.55047,   2.22750,   1.78520,
     +    1.37126,   2.08170,   2.22788,
     +     .03638,    .01832,  54.55672,   2.38741,   1.94816,
     +    1.53817,   2.24264,   2.38784,
     +     .03721,    .01879,  58.42054,   2.54307,   2.10716,
     +    1.70166,   2.39924,   2.54353 /
        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.28871,   2.70220,   2.26851,
     +    1.86568,   2.55929,   2.70270,
     +     .03885,    .01973,  66.16357,   2.86311,   2.43212,
     +    2.03278,   2.72108,   2.86366,
     +     .03962,    .02017,  69.88950,   3.01973,   2.59135,
     +    2.19539,   2.87852,   3.02032,
     +     .04035,    .02058,  73.40279,   3.16998,   2.74359,
     +    2.35013,   3.02952,   3.17060,
     +     .04109,    .02100,  77.01593,   3.32551,   2.90171,
     +    2.51163,   3.18580,   3.32616,
     +     .04181,    .02142,  80.53297,   3.48006,   3.05803,
     +    2.67017,   3.34107,   3.48075,
     +     .04251,    .02181,  83.96243,   3.63144,   3.21179,
     +    2.82702,   3.49313,   3.63217,
     +     .04316,    .02219,  87.15832,   3.77543,   3.35733,
     +    2.97450,   3.63775,   3.77619 /
        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.44739,   3.92441,   3.50837,
     +    3.12817,   3.78736,   3.92521,
     +     .04449,    .02294,  93.66962,   4.07278,   3.65844,
     +    3.28041,   3.93634,   4.07361,
     +     .04512,    .02330,  96.76295,   4.21670,   3.80404,
     +    3.42818,   4.08083,   4.21756,
     +     .04572,    .02364,  99.72530,   4.35566,   3.94482,
     +    3.57128,   4.22033,   4.35656,
     +     .04632,    .02399, 102.67111,   4.49641,   4.08692,
     +    3.71508,   4.36162,   4.49734 /
        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,    .79842,    .36020,    .00000,
     +     .00000,    .21466,    .35999,
     +     .02702,    .01261,   1.52590,    .38181,    .00000,
     +     .00000,    .23754,    .38164,
     +     .02842,    .01341,   2.79219,    .42074,    .00000,
     +     .00000,    .27827,    .42063,
     +     .02943,    .01400,   3.84790,    .45398,    .01906,
     +     .00000,    .31275,    .45391,
     +     .03049,    .01461,   5.00539,    .49318,    .06422,
     +     .00000,    .35320,    .49316,
     +     .03141,    .01514,   6.10480,    .53070,    .10456,
     +     .00000,    .39176,    .53072,
     +     .03228,    .01564,   7.25746,    .56949,    .14672,
     +     .00000,    .43151,    .56955,
     +     .03321,    .01618,   8.58051,    .61372,    .19538,
     +     .00000,    .47674,    .61383 /
        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.78807,    .65490,    .23866,
     +     .00000,    .51876,    .65504,
     +     .03480,    .01710,  11.01534,    .69689,    .28292,
     +     .00000,    .56154,    .69707,
     +     .03542,    .01746,  12.04395,    .73177,    .32034,
     +     .00000,    .59704,    .73198,
     +     .03673,    .01822,  14.26900,    .81080,    .40332,
     +     .00762,    .67734,    .81108,
     +     .03786,    .01888,  16.19555,    .88321,    .47862,
     +     .09606,    .75080,    .88355,
     +     .03913,    .01961,  18.46170,    .96934,    .56820,
     +     .20144,    .83806,    .96975,
     +     .04045,    .02038,  20.94131,   1.06416,    .66657,
     +     .30523,    .93402,   1.06464,
     +     .04165,    .02108,  23.28308,   1.15457,    .76019,
     +     .40402,   1.02545,   1.15512 /
        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.73228,   1.25012,    .85907,
     +     .50781,   1.12198,   1.25073,
     +     .04386,    .02237,  27.81280,   1.33240,    .94376,
     +     .59558,   1.20505,   1.33306,
     +     .04508,    .02308,  30.38466,   1.43558,   1.04959,
     +     .70477,   1.30918,   1.43632,
     +     .04616,    .02370,  32.71801,   1.53023,   1.14684,
     +     .80560,   1.40464,   1.53103,
     +     .04716,    .02428,  34.90164,   1.61977,   1.23890,
     +     .90108,   1.49491,   1.62063,
     +     .04842,    .02501,  37.68175,   1.73610,   1.35769,
     +    1.02293,   1.61214,   1.73703,
     +     .04960,    .02571,  40.34114,   1.84896,   1.47308,
     +    1.14167,   1.72583,   1.84996,
     +     .05072,    .02635,  42.88042,   1.95797,   1.58483,
     +    1.25711,   1.83561,   1.95905 /
        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.39313,   2.06849,   1.69725,
     +    1.37188,   1.94687,   2.06963,
     +     .05293,    .02764,  47.88715,   2.17947,   1.81047,
     +    1.48803,   2.05855,   2.18067,
     +     .05396,    .02824,  50.26330,   2.28674,   1.91991,
     +    1.60029,   2.16649,   2.28801,
     +     .05494,    .02880,  52.48197,   2.38892,   2.02378,
     +    1.70633,   2.26928,   2.39025,
     +     .05592,    .02938,  54.74751,   2.49411,   2.13110,
     +    1.81644,   2.37508,   2.49550,
     +     .05689,    .02994,  56.93035,   2.59789,   2.23641,
     +    1.92370,   2.47944,   2.59935,
     +     .05782,    .03047,  59.04585,   2.69905,   2.33952,
     +    2.02935,   2.58116,   2.70057,
     +     .05869,    .03098,  60.99816,   2.79464,   2.43645,
     +    2.12798,   2.67725,   2.79621 /
        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.99603,   2.89309,   2.53661,
     +    2.23034,   2.77621,   2.89472,
     +     .06045,    .03200,  64.93672,   2.99056,   2.63552,
     +    2.33111,   2.87418,   2.99224,
     +     .06128,    .03248,  66.78748,   3.08465,   2.73104,
     +    2.42846,   2.96873,   3.08638,
     +     .06207,    .03294,  68.54951,   3.17509,   2.82298,
     +    2.52234,   3.05962,   3.17688,
     +     .06288,    .03340,  70.28646,   3.26618,   2.91524,
     +    2.61609,   3.15115,   3.26802 /
        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,    .78279,    .32740,    .00000,
     +     .00000,    .19566,    .32747,
     +     .03239,    .01538,   1.46689,    .34761,    .00000,
     +     .00000,    .21701,    .34774,
     +     .03408,    .01638,   2.63818,    .38348,    .00000,
     +     .00000,    .25448,    .38370,
     +     .03531,    .01711,   3.60037,    .41373,    .01724,
     +     .00000,    .28585,    .41402,
     +     .03660,    .01787,   4.64233,    .44905,    .05797,
     +     .00000,    .32228,    .44941,
     +     .03770,    .01852,   5.62154,    .48256,    .09405,
     +     .00000,    .35672,    .48298,
     +     .03876,    .01914,   6.63925,    .51699,    .13151,
     +     .00000,    .39202,    .51747,
     +     .03989,    .01981,   7.79753,    .55601,    .17449,
     +     .00000,    .43193,    .55656 /
        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.84585,    .59209,    .21248,
     +     .00000,    .46877,    .59270,
     +     .04180,    .02094,   9.90383,    .62870,    .25115,
     +     .00000,    .50609,    .62935,
     +     .04255,    .02138,  10.78562,    .65899,    .28370,
     +     .00000,    .53694,    .65970,
     +     .04413,    .02232,  12.67622,    .72719,    .35546,
     +     .00672,    .60627,    .72798,
     +     .04549,    .02312,  14.29517,    .78923,    .42012,
     +     .08281,    .66925,    .79011,
     +     .04701,    .02402,  16.18208,    .86253,    .49656,
     +     .17313,    .74359,    .86351,
     +     .04859,    .02495,  18.22735,    .94267,    .57992,
     +     .26139,    .82476,    .94374,
     +     .05003,    .02580,  20.14179,   1.01859,    .65876,
     +     .34488,    .90159,   1.01976 /
        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.12769,   1.09835,    .74151,
     +     .43205,    .98224,   1.09960,
     +     .05268,    .02736,  23.80189,   1.16663,    .81201,
     +     .50536,   1.05125,   1.16797,
     +     .05413,    .02822,  25.85609,   1.25181,    .89962,
     +     .59608,   1.13727,   1.25324,
     +     .05542,    .02898,  27.70656,   1.32953,    .97971,
     +     .67942,   1.21573,   1.33104,
     +     .05661,    .02968,  29.42742,   1.40271,   1.05517,
     +     .75797,   1.28958,   1.40430,
     +     .05811,    .03056,  31.60191,   1.49727,   1.15201,
     +     .85766,   1.38496,   1.49896,
     +     .05952,    .03139,  33.66714,   1.58853,   1.24560,
     +     .95430,   1.47697,   1.59032,
     +     .06084,    .03216,  35.62668,   1.67627,   1.33581,
     +    1.04783,   1.56541,   1.67815 /
        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.55106,   1.76475,   1.42607,
     +    1.14030,   1.65456,   1.76671,
     +     .06346,    .03370,  39.45002,   1.85320,   1.51658,
     +    1.23350,   1.74367,   1.85525,
     +     .06468,    .03442,  41.24856,   1.93835,   1.60370,
     +    1.32319,   1.82941,   1.94048,
     +     .06584,    .03509,  42.91718,   2.01908,   1.68602,
     +    1.40753,   1.91071,   2.02129,
     +     .06700,    .03577,  44.61341,   2.10192,   1.77079,
     +    1.49482,   1.99410,   2.10421,
     +     .06814,    .03644,  46.23659,   2.18327,   1.85358,
     +    1.57944,   2.07599,   2.18564,
     +     .06923,    .03707,  47.80375,   2.26234,   1.93442,
     +    1.66258,   2.15556,   2.26478,
     +     .07026,    .03767,  49.24052,   2.33672,   2.01007,
     +    1.73983,   2.23041,   2.33924 /
        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.70566,   2.41314,   2.08805,
     +    1.81980,   2.30729,   2.41572,
     +     .07232,    .03888,  52.12072,   2.48850,   2.16476,
     +    1.89824,   2.38311,   2.49116,
     +     .07330,    .03945,  53.46436,   2.56103,   2.23861,
     +    1.97378,   2.45607,   2.56375,
     +     .07423,    .03999,  54.73871,   2.63056,   2.30951,
     +    2.04643,   2.52601,   2.63335,
     +     .07517,    .04053,  55.98736,   2.70033,   2.38038,
     +    2.11871,   2.59618,   2.70318 /
        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,    .77674,    .30640,    .00000,
     +     .00000,    .18352,    .30676,
     +     .03689,    .01779,   1.43155,    .32565,    .00000,
     +     .00000,    .20382,    .32608,
     +     .03883,    .01896,   2.53864,    .35942,    .00000,
     +     .00000,    .23909,    .35997,
     +     .04025,    .01981,   3.43805,    .38766,    .01603,
     +     .00000,    .26837,    .38830,
     +     .04172,    .02068,   4.40305,    .42040,    .05382,
     +     .00000,    .30214,    .42113,
     +     .04298,    .02144,   5.30275,    .45126,    .08708,
     +     .00000,    .33386,    .45207,
     +     .04419,    .02217,   6.23173,    .48282,    .12145,
     +     .00000,    .36623,    .48371,
     +     .04548,    .02294,   7.28232,    .51843,    .16073,
     +     .00000,    .40268,    .51940 /
        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.22722,    .55120,    .19527,
     +     .00000,    .43616,    .55224,
     +     .04767,    .02425,   9.17585,    .58431,    .23031,
     +     .00000,    .46993,    .58543,
     +     .04852,    .02476,   9.96321,    .61164,    .25973,
     +     .00000,    .49778,    .61281,
     +     .05033,    .02584,  11.64012,    .67287,    .32427,
     +     .00613,    .56008,    .67416,
     +     .05187,    .02676,  13.06412,    .72827,    .38214,
     +     .07432,    .61637,    .72966,
     +     .05360,    .02779,  14.71239,    .79342,    .45022,
     +     .15505,    .68248,    .79493,
     +     .05540,    .02886,  16.48641,    .86428,    .52408,
     +     .23348,    .75431,    .86591,
     +     .05703,    .02983,  18.13585,    .93108,    .59360,
     +     .30732,    .82197,    .93282 /
        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.83631,   1.00093,    .66627,
     +     .38409,    .89266,   1.00279,
     +     .06004,    .03162,  21.26170,   1.06050,    .72790,
     +     .44838,    .95291,   1.06245,
     +     .06169,    .03260,  23.00074,   1.13449,    .80420,
     +     .52760,   1.02771,   1.13655,
     +     .06315,    .03347,  24.55889,   1.20175,    .87368,
     +     .60012,   1.09566,   1.20391,
     +     .06449,    .03426,  26.00104,   1.26486,    .93892,
     +     .66823,   1.15940,   1.26711,
     +     .06618,    .03526,  27.81288,   1.34607,   1.02229,
     +     .75431,   1.24139,   1.34844,
     +     .06777,    .03620,  29.52437,   1.42413,   1.10256,
     +     .83745,   1.32017,   1.42662,
     +     .06926,    .03708,  31.14047,   1.49893,   1.17967,
     +     .91764,   1.39563,   1.50153 /
        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.71831,   1.57405,   1.25649,
     +     .99658,   1.47138,   1.57675,
     +     .07221,    .03882,  34.26839,   1.64891,   1.33330,
     +    1.07591,   1.54687,   1.65172,
     +     .07359,    .03963,  35.72988,   1.72074,   1.40699,
     +    1.15200,   1.61927,   1.72364,
     +     .07488,    .04039,  37.07903,   1.78862,   1.47638,
     +    1.22331,   1.68768,   1.79162,
     +     .07619,    .04116,  38.44583,   1.85809,   1.54767,
     +    1.29695,   1.75769,   1.86118,
     +     .07747,    .04191,  39.74676,   1.92609,   1.61705,
     +    1.36807,   1.82619,   1.92927,
     +     .07869,    .04262,  40.99919,   1.99202,   1.68465,
     +    1.43781,   1.89261,   1.99529,
     +     .07984,    .04329,  42.14141,   2.05386,   1.74769,
     +    1.50239,   1.95489,   2.05721 /
        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.30307,   2.11724,   1.81255,
     +    1.56913,   2.01873,   2.12068,
     +     .08215,    .04464,  44.41993,   2.17959,   1.87618,
     +    1.63438,   2.08150,   2.18311,
     +     .08324,    .04528,  45.47681,   2.23944,   1.93729,
     +    1.69709,   2.14177,   2.24304,
     +     .08428,    .04589,  46.47623,   2.29671,   1.99585,
     +    1.75729,   2.19943,   2.30039,
     +     .08533,    .04649,  47.45072,   2.35401,   2.05422,
     +    1.81700,   2.25711,   2.35776 /
        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,    .77871,    .29203,    .00000,
     +     .00000,    .17500,    .29243,
     +     .04088,    .02007,   1.41112,    .31052,    .00000,
     +     .00000,    .19448,    .31102,
     +     .04305,    .02139,   2.46931,    .34269,    .00000,
     +     .00000,    .22803,    .34333,
     +     .04463,    .02234,   3.32113,    .36940,    .01512,
     +     .00000,    .25571,    .37014,
     +     .04626,    .02333,   4.22799,    .40017,    .05067,
     +     .00000,    .28745,    .40102,
     +     .04767,    .02418,   5.06785,    .42904,    .08181,
     +     .00000,    .31712,    .42999,
     +     .04902,    .02499,   5.93032,    .45845,    .11387,
     +     .00000,    .34728,    .45949,
     +     .05045,    .02586,   6.90050,    .49151,    .15037,
     +     .00000,    .38113,    .49265 /
        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.76852,    .52181,    .18236,
     +     .00000,    .41209,    .52304,
     +     .05287,    .02732,   8.63616,    .55234,    .21470,
     +     .00000,    .44324,    .55365,
     +     .05382,    .02789,   9.35380,    .57748,    .24180,
     +     .00000,    .46886,    .57885,
     +     .05582,    .02909,  10.87364,    .63358,    .30102,
     +     .00569,    .52596,    .63509,
     +     .05753,    .03012,  12.15519,    .68413,    .35390,
     +     .06808,    .57734,    .68576,
     +     .05944,    .03126,  13.62998,    .74333,    .41587,
     +     .14177,    .63744,    .74509,
     +     .06143,    .03245,  15.20792,    .80744,    .48282,
     +     .21302,    .70246,    .80935,
     +     .06323,    .03353,  16.66681,    .86764,    .54559,
     +     .27985,    .76347,    .86968 /
        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.16304,    .93036,    .61095,
     +     .34906,    .82698,    .93253,
     +     .06654,    .03550,  19.41115,    .98366,    .66621,
     +     .40683,    .88092,    .98594,
     +     .06836,    .03658,  20.92673,   1.04965,    .73438,
     +     .47779,    .94767,   1.05206,
     +     .06996,    .03754,  22.27855,   1.10944,    .79626,
     +     .54252,   1.00811,   1.11197,
     +     .07143,    .03841,  23.52471,   1.16537,    .85421,
     +     .60317,   1.06464,   1.16801,
     +     .07329,    .03951,  25.08263,   1.23711,    .92801,
     +     .67954,   1.13711,   1.23989,
     +     .07503,    .04054,  26.54743,   1.30585,    .99882,
     +     .75307,   1.20652,   1.30875,
     +     .07667,    .04151,  27.92491,   1.37152,   1.06667,
     +     .82380,   1.27281,   1.37454 /
        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.26313,   1.43725,   1.13403,
     +     .89319,   1.33915,   1.44039,
     +     .07989,    .04341,  30.57278,   1.50258,   1.20120,
     +     .96273,   1.40506,   1.50584,
     +     .08140,    .04429,  31.80276,   1.56509,   1.26548,
     +    1.02928,   1.46812,   1.56846,
     +     .08281,    .04512,  32.93354,   1.62400,   1.32583,
     +    1.09145,   1.52754,   1.62748,
     +     .08423,    .04596,  34.07595,   1.68417,   1.38771,
     +    1.15554,   1.58821,   1.68776,
     +     .08563,    .04677,  35.15788,   1.74289,   1.44775,
     +    1.21724,   1.64741,   1.74658,
     +     .08696,    .04755,  36.19698,   1.79973,   1.50616,
     +    1.27766,   1.70471,   1.80351,
     +     .08821,    .04828,  37.14016,   1.85288,   1.56048,
     +    1.33344,   1.75829,   1.85676 /
        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.09722,   1.90728,   1.61628,
     +    1.39099,   1.81311,   1.91125,
     +     .09072,    .04975,  39.01365,   1.96065,   1.67088,
     +    1.44714,   1.86690,   1.96472,
     +     .09191,    .05044,  39.87831,   2.01179,   1.72322,
     +    1.50099,   1.91844,   2.01596,
     +     .09303,    .05109,  40.69391,   2.06065,   1.77330,
     +    1.55260,   1.96766,   2.06489,
     +     .09417,    .05175,  41.48587,   2.10941,   1.82308,
     +    1.60367,   2.01679,   2.11374 /
        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,    .80541,    .25284,    .00000,
     +     .00000,    .15203,    .25386,
     +     .05663,    .02956,   1.37157,    .26907,    .00000,
     +     .00000,    .16909,    .27025,
     +     .05968,    .03146,   2.28533,    .29651,    .00000,
     +     .00000,    .19769,    .29792,
     +     .06189,    .03282,   2.99849,    .31878,    .01251,
     +     .00000,    .22078,    .32037,
     +     .06417,    .03422,   3.73843,    .34396,    .04173,
     +     .00000,    .24677,    .34572,
     +     .06612,    .03543,   4.40863,    .36719,    .06693,
     +     .00000,    .27068,    .36910,
     +     .06799,    .03657,   5.08431,    .39056,    .09254,
     +     .00000,    .29469,    .39262,
     +     .06997,    .03778,   5.83099,    .41652,    .12136,
     +     .00000,    .32132,    .41874 /
        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.48745,    .44001,    .14630,
     +     .00000,    .34537,    .44237,
     +     .07332,    .03983,   7.13405,    .46343,    .17128,
     +     .00000,    .36932,    .46592,
     +     .07461,    .04062,   7.66265,    .48257,    .19205,
     +     .00000,    .38887,    .48515,
     +     .07735,    .04228,   8.76110,    .52473,    .23688,
     +     .00447,    .43190,    .52754,
     +     .07968,    .04369,   9.66511,    .56219,    .27636,
     +     .05130,    .47007,    .56518,
     +     .08228,    .04526,  10.68520,    .60547,    .32202,
     +     .10619,    .51413,    .60867,
     +     .08497,    .04687,  11.75491,    .65169,    .37068,
     +     .15843,    .56114,    .65510,
     +     .08740,    .04833,  12.72512,    .69451,    .41571,
     +     .20681,    .60466,    .69812 /
        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.70266,    .73858,    .46204,
     +     .25632,    .64942,    .74238,
     +     .09184,    .05098,  14.50461,    .77559,    .50076,
     +     .29718,    .68700,    .77956,
     +     .09426,    .05242,  15.46248,    .82091,    .54800,
     +     .34681,    .73297,    .82506,
     +     .09640,    .05369,  16.30354,    .86151,    .59043,
     +     .39163,    .77416,    .86584,
     +     .09835,    .05484,  17.06816,    .89914,    .62978,
     +     .43322,    .81231,    .90363,
     +     .10080,    .05629,  18.00762,    .94685,    .67933,
     +     .48501,    .86067,    .95154,
     +     .10310,    .05764,  18.87675,    .99207,    .72638,
     +     .53435,    .90649,    .99694,
     +     .10525,    .05890,  19.68255,   1.03484,    .77102,
     +     .58137,    .94982,   1.03989 /
        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.45109,   1.07717,    .81484,
     +     .62696,    .99269,   1.08238,
     +     .10945,    .06136,  21.19327,   1.11886,    .85816,
     +     .67229,   1.03490,   1.12424,
     +     .11141,    .06250,  21.88066,   1.15840,    .89924,
     +     .71527,   1.07493,   1.16394,
     +     .11324,    .06356,  22.50256,   1.19530,    .93745,
     +     .75505,   1.11228,   1.20098,
     +     .11508,    .06463,  23.12455,   1.23272,    .97636,
     +     .79579,   1.15017,   1.23856,
     +     .11688,    .06567,  23.70303,   1.26887,   1.01374,
     +     .83462,   1.18676,   1.27485,
     +     .11859,    .06666,  24.25408,   1.30366,   1.04989,
     +     .87243,   1.22196,   1.30978,
     +     .12019,    .06758,  24.74519,   1.33588,   1.08319,
     +     .90701,   1.25456,   1.34212 /
        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.23965,   1.36867,   1.11721,
     +     .94250,   1.28774,   1.37504,
     +     .12339,    .06942,  25.70567,   1.40057,   1.15023,
     +     .97684,   1.32002,   1.40707,
     +     .12490,    .07028,  26.14047,   1.43094,   1.18168,
     +    1.00958,   1.35075,   1.43756,
     +     .12633,    .07110,  26.54672,   1.45978,   1.21161,
     +    1.04078,   1.37993,   1.46652,
     +     .12777,    .07191,  26.93410,   1.48832,   1.24110,
     +    1.07139,   1.40881,   1.49517 /
        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,    .88798,    .22258,    .00000,
     +     .00000,    .13420,    .22477,
     +     .07976,    .04466,   1.38828,    .23663,    .00000,
     +     .00000,    .14897,    .23908,
     +     .08407,    .04733,   2.16153,    .25960,    .00000,
     +     .00000,    .17297,    .26243,
     +     .08715,    .04924,   2.74406,    .27780,    .01019,
     +     .00000,    .19189,    .28090,
     +     .09032,    .05118,   3.33137,    .29795,    .03383,
     +     .00000,    .21277,    .30133,
     +     .09303,    .05283,   3.84995,    .31619,    .05385,
     +     .00000,    .23162,    .31981,
     +     .09560,    .05440,   4.36172,    .33429,    .07391,
     +     .00000,    .25029,    .33815,
     +     .09832,    .05605,   4.91583,    .35413,    .09619,
     +     .00000,    .27073,    .35822 /
        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.39336,    .37182,    .11520,
     +     .00000,    .28893,    .37612,
     +     .10289,    .05881,   5.85567,    .38924,    .13403,
     +     .00000,    .30684,    .39374,
     +     .10466,    .05988,   6.22848,    .40336,    .14954,
     +     .00000,    .32133,    .40801,
     +     .10837,    .06209,   6.98590,    .43401,    .18258,
     +     .00344,    .35277,    .43899,
     +     .11150,    .06396,   7.59079,    .46080,    .21121,
     +     .03768,    .38021,    .46605,
     +     .11498,    .06602,   8.25751,    .49128,    .24384,
     +     .07747,    .41141,    .49684,
     +     .11856,    .06813,   8.94007,    .52329,    .27806,
     +     .11468,    .44416,    .52916,
     +     .12177,    .07002,   9.54480,    .55249,    .30926,
     +     .14864,    .47401,    .55864 /
        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.14086,    .58212,    .34092,
     +     .18292,    .50429,    .58855,
     +     .12762,    .07343,  10.61976,    .60667,    .36703,
     +     .21084,    .52937,    .61333,
     +     .13078,    .07526,  11.18004,    .63631,    .39847,
     +     .24434,    .55964,    .64324,
     +     .13355,    .07686,  11.66240,    .66254,    .42637,
     +     .27424,    .58642,    .66971,
     +     .13608,    .07832,  12.09321,    .68658,    .45197,
     +     .30169,    .61096,    .69397,
     +     .13924,    .08012,  12.61039,    .71664,    .48377,
     +     .33542,    .64163,    .72430,
     +     .14218,    .08180,  13.07889,    .74475,    .51359,
     +     .36718,    .67032,    .75267,
     +     .14492,    .08336,  13.50533,    .77105,    .54158,
     +     .39713,    .69716,    .77920 /
        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.90146,    .79670,    .56867,
     +     .42577,    .72333,    .80507,
     +     .15024,    .08636,  14.27725,    .82169,    .59519,
     +     .45397,    .74883,    .83030,
     +     .15270,    .08775,  14.61864,    .84515,    .62008,
     +     .48044,    .77276,    .85396,
     +     .15499,    .08903,  14.92014,    .86677,    .64296,
     +     .50467,    .79482,    .87577,
     +     .15729,    .09031,  15.21765,    .88851,    .66609,
     +     .52931,    .81702,    .89771,
     +     .15952,    .09155,  15.48652,    .90925,    .68802,
     +     .55250,    .83818,    .91863,
     +     .16163,    .09272,  15.73996,    .92907,    .70910,
     +     .57495,    .85841,    .93863,
     +     .16360,    .09381,  15.95885,    .94719,    .72828,
     +     .59524,    .87691,    .95692 /
        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.17686,    .96552,    .74777,
     +     .61595,    .89562,    .97542,
     +     .16753,    .09597,  16.37712,    .98316,    .76648,
     +     .63579,    .91363,    .99321,
     +     .16937,    .09698,  16.56075,    .99982,    .78417,
     +     .65456,    .93064,   1.01002,
     +     .17110,    .09793,  16.72968,   1.01552,    .80089,
     +     .67234,    .94668,   1.02587,
     +     .17284,    .09887,  16.88521,   1.03088,    .81719,
     +     .68960,    .96238,   1.04137 /
        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,    .97078,    .20814,    .00000,
     +     .00000,    .12581,    .21157,
     +     .09843,    .05736,   1.42811,    .22089,    .00000,
     +     .00000,    .13927,    .22467,
     +     .10366,    .06056,   2.11801,    .24132,    .00000,
     +     .00000,    .16070,    .24559,
     +     .10740,    .06283,   2.62589,    .25725,    .00896,
     +     .00000,    .17734,    .26187,
     +     .11122,    .06514,   3.12842,    .27465,    .02963,
     +     .00000,    .19546,    .27963,
     +     .11447,    .06709,   3.56491,    .29022,    .04694,
     +     .00000,    .21163,    .29550,
     +     .11756,    .06893,   3.98965,    .30552,    .06411,
     +     .00000,    .22751,    .31109,
     +     .12081,    .07087,   4.44336,    .32214,    .08303,
     +     .00000,    .24472,    .32801 /
        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.82921,    .33682,    .09901,
     +     .00000,    .25991,    .34295,
     +     .12624,    .07408,   5.19851,    .35117,    .11474,
     +     .00000,    .27474,    .35754,
     +     .12834,    .07531,   5.49362,    .36272,    .12762,
     +     .00000,    .28667,    .36929,
     +     .13272,    .07787,   6.08367,    .38757,    .15479,
     +     .00292,    .31231,    .39454,
     +     .13640,    .08001,   6.54492,    .40905,    .17809,
     +     .03098,    .33445,    .41635,
     +     .14048,    .08237,   7.04489,    .43324,    .20439,
     +     .06342,    .35936,    .44091,
     +     .14465,    .08476,   7.54807,    .45836,    .23169,
     +     .09340,    .38522,    .46641,
     +     .14838,    .08689,   7.98654,    .48103,    .25633,
     +     .12050,    .40856,    .48942 /
        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.41205,    .50381,    .28109,
     +     .14762,    .43200,    .51253,
     +     .15513,    .09072,   8.74862,    .52251,    .30135,
     +     .16952,    .45124,    .53150,
     +     .15876,    .09276,   9.13640,    .54489,    .32552,
     +     .19557,    .47425,    .55420,
     +     .16193,    .09454,   9.46525,    .56451,    .34680,
     +     .21865,    .49444,    .57411,
     +     .16482,    .09614,   9.75488,    .58236,    .36619,
     +     .23969,    .51280,    .59221,
     +     .16840,    .09813,  10.09633,    .60445,    .39004,
     +     .26532,    .53552,    .61461,
     +     .17173,    .09996,  10.40051,    .62493,    .41222,
     +     .28925,    .55659,    .63538,
     +     .17482,    .10166,  10.67329,    .64393,    .43290,
     +     .31167,    .57614,    .65466 /
        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.92080,    .66228,    .45271,
     +     .33292,    .59502,    .67326,
     +     .18078,    .10491,  11.15212,    .68002,    .47198,
     +     .35370,    .61329,    .69126,
     +     .18353,    .10639,  11.35874,    .69654,    .48993,
     +     .37309,    .63030,    .70801,
     +     .18608,    .10776,  11.53723,    .71164,    .50630,
     +     .39069,    .64584,    .72332,
     +     .18863,    .10913,  11.71141,    .72673,    .52277,
     +     .40850,    .66140,    .73864,
     +     .19108,    .11044,  11.86421,    .74098,    .53824,
     +     .42512,    .67609,    .75309,
     +     .19341,    .11168,  12.00701,    .75454,    .55305,
     +     .44116,    .69007,    .76685,
     +     .19558,    .11282,  12.12629,    .76681,    .56641,
     +     .45553,    .70273,    .77930 /
        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.24398,    .77916,    .57992,
     +     .47014,    .71548,    .79184,
     +     .19986,    .11508,  12.34867,    .79095,    .59281,
     +     .48404,    .72765,    .80380,
     +     .20186,    .11613,  12.44269,    .80202,    .60492,
     +     .49713,    .73908,    .81503,
     +     .20375,    .11712,  12.52772,    .81240,    .61632,
     +     .50948,    .74981,    .82556,
     +     .20563,    .11809,  12.60244,    .82245,    .62733,
     +     .52137,    .76020,    .83577 /
        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.04773,    .19917,    .00000,
     +     .00000,    .12068,    .20390,
     +     .11491,    .06873,   1.47173,    .21097,    .00000,
     +     .00000,    .13319,    .21611,
     +     .12090,    .07232,   2.10045,    .22959,    .00000,
     +     .00000,    .15282,    .23531,
     +     .12516,    .07486,   2.55521,    .24393,    .00813,
     +     .00000,    .16789,    .25006,
     +     .12950,    .07742,   2.99868,    .25943,    .02680,
     +     .00000,    .18413,    .26599,
     +     .13318,    .07958,   3.37909,    .27318,    .04230,
     +     .00000,    .19848,    .28009,
     +     .13667,    .08162,   3.74524,    .28659,    .05757,
     +     .00000,    .21249,    .29384,
     +     .14033,    .08375,   4.13229,    .30106,    .07427,
     +     .00000,    .22756,    .30865 /
        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.45806,    .31374,    .08829,
     +     .00000,    .24076,    .32163,
     +     .14644,    .08727,   4.76705,    .32606,    .10199,
     +     .00000,    .25358,    .33423,
     +     .14878,    .08862,   5.01220,    .33593,    .11317,
     +     .00000,    .26384,    .34432,
     +     .15367,    .09140,   5.49604,    .35701,    .13658,
     +     .00257,    .28573,    .36586,
     +     .15777,    .09372,   5.86740,    .37507,    .15650,
     +     .02671,    .30447,    .38430,
     +     .16228,    .09626,   6.26450,    .39524,    .17881,
     +     .05450,    .32539,    .40489,
     +     .16689,    .09883,   6.65855,    .41601,    .20177,
     +     .07995,    .34693,    .42608,
     +     .17099,    .10111,   6.99712,    .43460,    .22234,
     +     .10279,    .36620,    .44504 /
        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,    .45312,    .24287,
     +     .12549,    .38540,    .46393,
     +     .17838,    .10517,   7.57429,    .46821,    .25954,
     +     .14370,    .40106,    .47933,
     +     .18233,    .10733,   7.86175,    .48614,    .27930,
     +     .16522,    .41964,    .49761,
     +     .18578,    .10919,   8.10230,    .50175,    .29659,
     +     .18418,    .43584,    .51352,
     +     .18890,    .11087,   8.31159,    .51585,    .31225,
     +     .20137,    .45047,    .52790,
     +     .19277,    .11295,   8.55400,    .53317,    .33137,
     +     .22215,    .46844,    .54556,
     +     .19635,    .11485,   8.76654,    .54910,    .34904,
     +     .24146,    .48499,    .56180,
     +     .19967,    .11661,   8.95448,    .56379,    .36542,
     +     .25944,    .50025,    .57678 /
        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.12095,    .57785,    .38099,
     +     .27635,    .51485,    .59111,
     +     .20603,    .11994,   9.27419,    .59136,    .39604,
     +     .29282,    .52890,    .60488,
     +     .20894,    .12146,   9.40864,    .60385,    .41000,
     +     .30809,    .54191,    .61762,
     +     .21164,    .12286,   9.52187,    .61517,    .42264,
     +     .32188,    .55370,    .62918,
     +     .21433,    .12425,   9.63105,    .62645,    .43530,
     +     .33578,    .56545,    .64068,
     +     .21692,    .12557,   9.72340,    .63699,    .44710,
     +     .34867,    .57645,    .65143,
     +     .21937,    .12682,   9.80892,    .64699,    .45837,
     +     .36106,    .58689,    .66163,
     +     .22163,    .12796,   9.87717,    .65595,    .46846,
     +     .37209,    .59625,    .67078 /
        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.94376,    .66494,    .47863,
     +     .38328,    .60566,    .67996,
     +     .22610,    .13022,  10.00038,    .67346,    .48826,
     +     .39386,    .61457,    .68865,
     +     .22818,    .13126,  10.04972,    .68141,    .49728,
     +     .40378,    .62289,    .69677,
     +     .23013,    .13224,  10.09319,    .68883,    .50574,
     +     .41311,    .63067,    .70434,
     +     .23207,    .13320,  10.12839,    .69594,    .51385,
     +     .42203,    .63814,    .71162 /
        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.11663,    .19272,    .00000,
     +     .00000,    .11708,    .19879,
     +     .13001,    .07915,   1.51318,    .20374,    .00000,
     +     .00000,    .12884,    .21027,
     +     .13664,    .08305,   2.09283,    .22093,    .00000,
     +     .00000,    .14708,    .22812,
     +     .14134,    .08578,   2.50605,    .23404,    .00750,
     +     .00000,    .16093,    .24170,
     +     .14611,    .08854,   2.90417,    .24810,    .02468,
     +     .00000,    .17575,    .25622,
     +     .15014,    .09086,   3.24216,    .26046,    .03883,
     +     .00000,    .18874,    .26897,
     +     .15396,    .09304,   3.56453,    .27245,    .05269,
     +     .00000,    .20134,    .28134,
     +     .15795,    .09530,   3.90234,    .28531,    .06777,
     +     .00000,    .21483,    .29458 /
        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.18415,    .29651,    .08035,
     +     .00000,    .22657,    .30611,
     +     .16459,    .09904,   4.44943,    .30733,    .09259,
     +     .00000,    .23791,    .31724,
     +     .16713,    .10046,   4.65866,    .31597,    .10253,
     +     .00000,    .24695,    .32612,
     +     .17242,    .10340,   5.06683,    .33430,    .12325,
     +     .00232,    .26613,    .34495,
     +     .17684,    .10583,   5.37489,    .34990,    .14075,
     +     .02366,    .28243,    .36096,
     +     .18169,    .10848,   5.70050,    .36719,    .16022,
     +     .04814,    .30050,    .37870,
     +     .18662,    .11116,   6.01951,    .38485,    .18013,
     +     .07039,    .31896,    .39682,
     +     .19100,    .11352,   6.29002,    .40055,    .19785,
     +     .09024,    .33537,    .41291 /
        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.54588,    .41609,    .21543,
     +     .10986,    .35162,    .42884,
     +     .19887,    .11771,   6.74307,    .42867,    .22962,
     +     .12551,    .36478,    .44174,
     +     .20305,    .11992,   6.96398,    .44351,    .24635,
     +     .14391,    .38031,    .45695,
     +     .20669,    .12183,   7.14652,    .45635,    .26091,
     +     .16004,    .39375,    .47012,
     +     .20997,    .12354,   7.30353,    .46789,    .27403,
     +     .17460,    .40584,    .48194,
     +     .21403,    .12564,   7.48205,    .48196,    .28996,
     +     .19210,    .42059,    .49636,
     +     .21777,    .12757,   7.63597,    .49481,    .30459,
     +     .20828,    .43407,    .50953,
     +     .22123,    .12934,   7.77005,    .50659,    .31808,
     +     .22327,    .44644,    .52161 /
        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.88566,    .51776,    .33083,
     +     .23729,    .45819,    .53306,
     +     .22783,    .13267,   7.99031,    .52845,    .34310,
     +     .25089,    .46944,    .54402,
     +     .23085,    .13418,   8.08024,    .53827,    .35441,
     +     .26345,    .47979,    .55409,
     +     .23363,    .13556,   8.15341,    .54711,    .36459,
     +     .27472,    .48911,    .56315,
     +     .23640,    .13693,   8.22286,    .55587,    .37476,
     +     .28605,    .49836,    .57214,
     +     .23904,    .13824,   8.27870,    .56399,    .38418,
     +     .29650,    .50696,    .58048,
     +     .24155,    .13946,   8.32982,    .57166,    .39315,
     +     .30651,    .51508,    .58835,
     +     .24385,    .14058,   8.36785,    .57848,    .40113,
     +     .31538,    .52231,    .59535 /
        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.40435,    .58529,    .40915,
     +     .32435,    .52955,    .60234,
     +     .24840,    .14278,   8.43287,    .59169,    .41670,
     +     .33279,    .53636,    .60892,
     +     .25051,    .14378,   8.45623,    .59763,    .42374,
     +     .34068,    .54269,    .61502,
     +     .25249,    .14473,   8.47574,    .60315,    .43032,
     +     .34808,    .54858,    .62070,
     +     .25444,    .14565,   8.48851,    .60839,    .43659,
     +     .35512,    .55419,    .62609 /
        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.23390,    .18349,    .00000,
     +     .00000,    .11213,    .19229,
     +     .15756,    .09801,   1.58534,    .19327,    .00000,
     +     .00000,    .12270,    .20262,
     +     .16521,    .10231,   2.08751,    .20823,    .00000,
     +     .00000,    .13880,    .21836,
     +     .17061,    .10532,   2.43716,    .21946,    .00658,
     +     .00000,    .15083,    .23012,
     +     .17604,    .10832,   2.76720,    .23133,    .02158,
     +     .00000,    .16353,    .24254,
     +     .18062,    .11083,   3.04278,    .24165,    .03378,
     +     .00000,    .17453,    .25330,
     +     .18494,    .11318,   3.30171,    .25155,    .04562,
     +     .00000,    .18509,    .26362,
     +     .18944,    .11561,   3.56910,    .26207,    .05838,
     +     .00000,    .19629,    .27457 /
        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.78889,    .27113,    .06892,
     +     .00000,    .20594,    .28400,
     +     .19687,    .11959,   3.99307,    .27981,    .07910,
     +     .00000,    .21518,    .29303,
     +     .19970,    .12109,   4.15248,    .28670,    .08733,
     +     .00000,    .22250,    .30018,
     +     .20556,    .12418,   4.45712,    .30116,    .10428,
     +     .00197,    .23787,    .31519,
     +     .21042,    .12672,   4.67995,    .31331,    .11846,
     +     .01944,    .25078,    .32778,
     +     .21573,    .12947,   4.91020,    .32662,    .13407,
     +     .03938,    .26493,    .34158,
     +     .22111,    .13222,   5.13056,    .34004,    .14985,
     +     .05730,    .27920,    .35548,
     +     .22585,    .13463,   5.31292,    .35181,    .16374,
     +     .07312,    .29174,    .36768 /
        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.48127,    .36333,    .17739,
     +     .08861,    .30402,    .37961,
     +     .23430,    .13886,   5.60766,    .37254,    .18830,
     +     .10086,    .31385,    .38914,
     +     .23875,    .14107,   5.74536,    .38328,    .20104,
     +     .11514,    .32533,    .40026,
     +     .24260,    .14296,   5.85602,    .39247,    .21203,
     +     .12755,    .33517,    .40978,
     +     .24607,    .14465,   5.94864,    .40065,    .22185,
     +     .13868,    .34393,    .41825,
     +     .25032,    .14670,   6.04949,    .41048,    .23366,
     +     .15194,    .35448,    .42843,
     +     .25423,    .14857,   6.13300,    .41935,    .24440,
     +     .16408,    .36403,    .43762,
     +     .25782,    .15027,   6.20308,    .42739,    .25422,
     +     .17526,    .37270,    .44595 /
        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,    .43490,    .26339,
     +     .18560,    .38082,    .45373,
     +     .26460,    .15345,   6.30711,    .44200,    .27215,
     +     .19556,    .38851,    .46109,
     +     .26768,    .15487,   6.34562,    .44845,    .28016,
     +     .20470,    .39552,    .46778,
     +     .27050,    .15615,   6.37332,    .45417,    .28729,
     +     .21282,    .40175,    .47371,
     +     .27329,    .15743,   6.39816,    .45979,    .29438,
     +     .22095,    .40789,    .47954,
     +     .27595,    .15862,   6.41352,    .46490,    .30086,
     +     .22837,    .41350,    .48485,
     +     .27845,    .15975,   6.42674,    .46971,    .30701,
     +     .23546,    .41879,    .48984,
     +     .28074,    .16076,   6.43175,    .47389,    .31240,
     +     .24166,    .42340,    .49419 /
        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.43554,    .47805,    .31781,
     +     .24792,    .42800,    .49851,
     +     .28523,    .16273,   6.43404,    .48188,    .32284,
     +     .25376,    .43226,    .50250,
     +     .28730,    .16362,   6.43001,    .48539,    .32750,
     +     .25919,    .43619,    .50616,
     +     .28923,    .16445,   6.42443,    .48863,    .33183,
     +     .26425,    .43981,    .50953,
     +     .29112,    .16526,   6.41399,    .49163,    .33590,
     +     .26901,    .44319,    .51265 /
        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.36810,    .17371,    .00000,
     +     .00000,    .10720,    .18668,
     +     .19478,    .12280,   1.66592,    .18204,    .00000,
     +     .00000,    .11641,    .19563,
     +     .20351,    .12741,   2.08067,    .19450,    .00000,
     +     .00000,    .13015,    .20896,
     +     .20961,    .13059,   2.36144,    .20368,    .00563,
     +     .00000,    .14023,    .21874,
     +     .21572,    .13375,   2.61974,    .21324,    .01838,
     +     .00000,    .15069,    .22888,
     +     .22084,    .13636,   2.83105,    .22140,    .02861,
     +     .00000,    .15962,    .23754,
     +     .22564,    .13879,   3.02600,    .22915,    .03842,
     +     .00000,    .16810,    .24574,
     +     .23061,    .14128,   3.22374,    .23729,    .04888,
     +     .00000,    .17698,    .25433 /
        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.38325,    .24420,    .05742,
     +     .00000,    .18454,    .26163,
     +     .23876,    .14532,   3.52891,    .25076,    .06560,
     +     .00000,    .19171,    .26855,
     +     .24185,    .14684,   3.64114,    .25591,    .07217,
     +     .00000,    .19735,    .27399,
     +     .24819,    .14992,   3.84931,    .26661,    .08555,
     +     .00162,    .20904,    .28524,
     +     .25341,    .15243,   3.99431,    .27544,    .09659,
     +     .01544,    .21871,    .29453,
     +     .25907,    .15511,   4.13926,    .28497,    .10859,
     +     .03112,    .22915,    .30454,
     +     .26475,    .15777,   4.27307,    .29442,    .12057,
     +     .04502,    .23953,    .31446,
     +     .26972,    .16007,   4.37945,    .30257,    .13098,
     +     .05714,    .24851,    .32302 /
        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.47364,    .31041,    .14109,
     +     .06889,    .25718,    .33125,
     +     .27847,    .16405,   4.54096,    .31658,    .14908,
     +     .07809,    .26401,    .33773,
     +     .28303,    .16609,   4.61038,    .32365,    .15830,
     +     .08870,    .27188,    .34515,
     +     .28695,    .16782,   4.66303,    .32961,    .16617,
     +     .09784,    .27852,    .35141,
     +     .29044,    .16935,   4.70443,    .33484,    .17313,
     +     .10596,    .28437,    .35688,
     +     .29471,    .17118,   4.74458,    .34098,    .18138,
     +     .11553,    .29129,    .36334,
     +     .29858,    .17283,   4.77391,    .34643,    .18881,
     +     .12420,    .29746,    .36906,
     +     .30212,    .17432,   4.79540,    .35128,    .19553,
     +     .13212,    .30298,    .37416 /
        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.80691,    .35570,    .20171,
     +     .13936,    .30804,    .37880,
     +     .30870,    .17702,   4.81360,    .35981,    .20756,
     +     .14627,    .31277,    .38312,
     +     .31167,    .17822,   4.81517,    .36345,    .21285,
     +     .15256,    .31700,    .38696,
     +     .31434,    .17928,   4.81085,    .36660,    .21749,
     +     .15808,    .32068,    .39027,
     +     .31699,    .18032,   4.80463,    .36965,    .22207,
     +     .16358,    .32428,    .39348,
     +     .31948,    .18128,   4.79246,    .37233,    .22619,
     +     .16853,    .32747,    .39630,
     +     .32181,    .18217,   4.78018,    .37482,    .23008,
     +     .17324,    .33046,    .39893,
     +     .32392,    .18296,   4.76370,    .37690,    .23343,
     +     .17731,    .33299,    .40112 /
        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.74648,    .37894,    .23677,
     +     .18140,    .33549,    .40328,
     +     .32802,    .18446,   4.72612,    .38074,    .23982,
     +     .18517,    .33774,    .40519,
     +     .32988,    .18513,   4.70517,    .38235,    .24263,
     +     .18864,    .33977,    .40690,
     +     .33162,    .18575,   4.68435,    .38380,    .24521,
     +     .19187,    .34162,    .40845,
     +     .33329,    .18633,   4.66038,    .38507,    .24759,
     +     .19486,    .34328,    .40980 /
        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.50983,    .16126,    .00000,
     +     .00000,    .10135,    .18111,
     +     .25024,    .15784,   1.73955,    .16774,    .00000,
     +     .00000,    .10884,    .18823,
     +     .25998,    .16243,   2.04891,    .17717,    .00000,
     +     .00000,    .11972,    .19854,
     +     .26671,    .16555,   2.25041,    .18393,    .00456,
     +     .00000,    .12751,    .20591,
     +     .27338,    .16860,   2.42857,    .19084,    .01480,
     +     .00000,    .13544,    .21338,
     +     .27891,    .17109,   2.57025,    .19662,    .02288,
     +     .00000,    .14207,    .21962,
     +     .28405,    .17338,   2.69756,    .20201,    .03052,
     +     .00000,    .14827,    .22543,
     +     .28933,    .17570,   2.82328,    .20757,    .03856,
     +     .00000,    .15468,    .23142 /
        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.92167,    .21221,    .04503,
     +     .00000,    .16003,    .23640,
     +     .29788,    .17939,   3.00908,    .21654,    .05116,
     +     .00000,    .16504,    .24105,
     +     .30108,    .18076,   3.07508,    .21991,    .05603,
     +     .00000,    .16894,    .24466,
     +     .30759,    .18350,   3.19062,    .22676,    .06582,
     +     .00126,    .17688,    .25198,
     +     .31289,    .18566,   3.26308,    .23228,    .07377,
     +     .01144,    .18331,    .25788,
     +     .31855,    .18795,   3.33033,    .23809,    .08227,
     +     .02291,    .19012,    .26408,
     +     .32416,    .19017,   3.38717,    .24369,    .09061,
     +     .03291,    .19672,    .27004,
     +     .32899,    .19205,   3.42757,    .24838,    .09774,
     +     .04150,    .20229,    .27503 /
        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.45886,    .25277,    .10456,
     +     .04972,    .20756,    .27970,
     +     .33736,    .19518,   3.47729,    .25612,    .10986,
     +     .05606,    .21162,    .28326,
     +     .34164,    .19672,   3.49127,    .25984,    .11588,
     +     .06329,    .21618,    .28721,
     +     .34526,    .19800,   3.49781,    .26288,    .12094,
     +     .06944,    .21994,    .29043,
     +     .34845,    .19911,   3.49937,    .26547,    .12537,
     +     .07485,    .22318,    .29318,
     +     .35227,    .20039,   3.49345,    .26837,    .13051,
     +     .08113,    .22689,    .29626,
     +     .35569,    .20151,   3.48277,    .27084,    .13506,
     +     .08675,    .23010,    .29887,
     +     .35878,    .20249,   3.46930,    .27296,    .13913,
     +     .09181,    .23290,    .30110 /
        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.44991,    .27474,    .14278,
     +     .09637,    .23534,    .30299,
     +     .36438,    .20416,   3.42850,    .27632,    .14618,
     +     .10068,    .23757,    .30467,
     +     .36683,    .20487,   3.40567,    .27766,    .14921,
     +     .10454,    .23950,    .30607,
     +     .36901,    .20546,   3.38096,    .27871,    .15181,
     +     .10790,    .24108,    .30717,
     +     .37114,    .20602,   3.35541,    .27967,    .15435,
     +     .11120,    .24260,    .30819,
     +     .37309,    .20650,   3.32694,    .28040,    .15657,
     +     .11412,    .24384,    .30895,
     +     .37491,    .20694,   3.29985,    .28105,    .15865,
     +     .11689,    .24499,    .30963,
     +     .37650,    .20730,   3.27163,    .28147,    .16039,
     +     .11923,    .24586,    .31007 /
        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.24318,    .28186,    .16210,
     +     .12156,    .24671,    .31047,
     +     .37954,    .20793,   3.21347,    .28210,    .16363,
     +     .12368,    .24739,    .31071,
     +     .38088,    .20818,   3.18458,    .28227,    .16500,
     +     .12562,    .24796,    .31087,
     +     .38212,    .20840,   3.15690,    .28237,    .16625,
     +     .12739,    .24846,    .31097,
     +     .38327,    .20857,   3.12743,    .28234,    .16735,
     +     .12900,    .24882,    .31093 /
        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.57981,    .15046,    .00000,
     +     .00000,    .09648,    .17683,
     +     .30026,    .18719,   1.75775,    .15550,    .00000,
     +     .00000,    .10263,    .18244,
     +     .31033,    .19139,   1.99062,    .16267,    .00000,
     +     .00000,    .11137,    .19037,
     +     .31721,    .19420,   2.13696,    .16772,    .00381,
     +     .00000,    .11751,    .19592,
     +     .32395,    .19688,   2.26103,    .17277,    .01230,
     +     .00000,    .12366,    .20144,
     +     .32948,    .19903,   2.35695,    .17692,    .01892,
     +     .00000,    .12872,    .20595,
     +     .33458,    .20099,   2.44087,    .18074,    .02511,
     +     .00000,    .13338,    .21008,
     +     .33977,    .20296,   2.52143,    .18462,    .03155,
     +     .00000,    .13814,    .21427 /
        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.58228,    .18779,    .03668,
     +     .00000,    .14206,    .21769,
     +     .34806,    .20600,   2.63458,    .19070,    .04150,
     +     .00000,    .14567,    .22082,
     +     .35114,    .20711,   2.67313,    .19295,    .04531,
     +     .00000,    .14846,    .22322,
     +     .35733,    .20925,   2.73503,    .19741,    .05287,
     +     .00102,    .15406,    .22799,
     +     .36227,    .21092,   2.76678,    .20091,    .05892,
     +     .00895,    .15849,    .23173,
     +     .36750,    .21261,   2.79153,    .20450,    .06532,
     +     .01783,    .16310,    .23553,
     +     .37259,    .21421,   2.80758,    .20784,    .07151,
     +     .02546,    .16745,    .23905,
     +     .37692,    .21550,   2.81404,    .21054,    .07673,
     +     .03196,    .17104,    .24189 /
        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.81376,    .21297,    .08165,
     +     .03810,    .17435,    .24444,
     +     .38424,    .21755,   2.80828,    .21473,    .08544,
     +     .04280,    .17683,    .24628,
     +     .38787,    .21849,   2.79592,    .21661,    .08967,
     +     .04809,    .17953,    .24822,
     +     .39090,    .21923,   2.78120,    .21807,    .09319,
     +     .05256,    .18170,    .24970,
     +     .39354,    .21983,   2.76493,    .21923,    .09623,
     +     .05645,    .18352,    .25089,
     +     .39662,    .22047,   2.73921,    .22042,    .09970,
     +     .06090,    .18550,    .25209,
     +     .39932,    .22098,   2.71200,    .22134,    .10273,
     +     .06486,    .18715,    .25299,
     +     .40170,    .22139,   2.68460,    .22205,    .10540,
     +     .06839,    .18853,    .25368 /
        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,    .22251,    .10775,
     +     .07152,    .18963,    .25410,
     +     .40585,    .22194,   2.62203,    .22284,    .10990,
     +     .07445,    .19058,    .25437,
     +     .40762,    .22210,   2.59092,    .22303,    .11179,
     +     .07706,    .19134,    .25450,
     +     .40912,    .22220,   2.55983,    .22305,    .11338,
     +     .07929,    .19189,    .25445,
     +     .41056,    .22227,   2.52851,    .22303,    .11491,
     +     .08147,    .19238,    .25435,
     +     .41181,    .22226,   2.49585,    .22284,    .11621,
     +     .08337,    .19269,    .25406,
     +     .41297,    .22224,   2.46516,    .22264,    .11741,
     +     .08515,    .19295,    .25376,
     +     .41394,    .22215,   2.43470,    .22230,    .11838,
     +     .08664,    .19305,    .25334 /
        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.40431,    .22195,    .11933,
     +     .08811,    .19312,    .25289,
     +     .41570,    .22190,   2.37357,    .22149,    .12014,
     +     .08942,    .19308,    .25234,
     +     .41643,    .22173,   2.34418,    .22101,    .12085,
     +     .09061,    .19299,    .25176,
     +     .41707,    .22155,   2.31636,    .22052,    .12148,
     +     .09169,    .19287,    .25118,
     +     .41762,    .22133,   2.28750,    .21994,    .12201,
     +     .09265,    .19265,    .25049 /
        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.58960,    .13068,    .00000,
     +     .00000,    .08751,    .16810,
     +     .38846,    .23369,   1.69459,    .13368,    .00000,
     +     .00000,    .09164,    .17131,
     +     .39781,    .23646,   1.82407,    .13774,    .00000,
     +     .00000,    .09730,    .17563,
     +     .40400,    .23824,   1.89916,    .14051,    .00278,
     +     .00000,    .10116,    .17850,
     +     .40994,    .23981,   1.95567,    .14317,    .00890,
     +     .00000,    .10490,    .18124,
     +     .41469,    .24099,   1.99592,    .14525,    .01359,
     +     .00000,    .10789,    .18336,
     +     .41898,    .24201,   2.02848,    .14711,    .01791,
     +     .00000,    .11058,    .18522,
     +     .42327,    .24297,   2.05692,    .14892,    .02233,
     +     .00000,    .11325,    .18701 /
        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.07537,    .15032,    .02579,
     +     .00000,    .11537,    .18838,
     +     .42986,    .24427,   2.08886,    .15156,    .02900,
     +     .00000,    .11729,    .18956,
     +     .43225,    .24470,   2.09761,    .15249,    .03151,
     +     .00000,    .11873,    .19044,
     +     .43687,    .24541,   2.10305,    .15422,    .03640,
     +     .00072,    .12154,    .19202,
     +     .44042,    .24582,   2.09382,    .15546,    .04024,
     +     .00593,    .12366,    .19311,
     +     .44401,    .24613,   2.07741,    .15660,    .04422,
     +     .01174,    .12574,    .19405,
     +     .44733,    .24629,   2.05529,    .15750,    .04798,
     +     .01663,    .12759,    .19472,
     +     .45000,    .24628,   2.03119,    .15810,    .05108,
     +     .02072,    .12900,    .19507 /
        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.00376,    .15851,    .05394,
     +     .02453,    .13020,    .19520,
     +     .45414,    .24595,   1.97858,    .15868,    .05609,
     +     .02739,    .13101,    .19515,
     +     .45597,    .24558,   1.94558,    .15872,    .05845,
     +     .03057,    .13179,    .19488,
     +     .45738,    .24518,   1.91506,    .15862,    .06036,
     +     .03321,    .13233,    .19451,
     +     .45852,    .24475,   1.88620,    .15844,    .06197,
     +     .03547,    .13271,    .19406,
     +     .45967,    .24407,   1.84761,    .15801,    .06377,
     +     .03802,    .13298,    .19330,
     +     .46055,    .24336,   1.81063,    .15750,    .06528,
     +     .04024,    .13310,    .19245,
     +     .46121,    .24265,   1.77578,    .15695,    .06658,
     +     .04219,    .13312,    .19157 /
        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.73970,    .15624,    .06767,
     +     .04388,    .13298,    .19054,
     +     .46191,    .24098,   1.70456,    .15549,    .06865,
     +     .04544,    .13276,    .18946,
     +     .46204,    .24014,   1.67132,    .15472,    .06947,
     +     .04680,    .13247,    .18838,
     +     .46200,    .23929,   1.63961,    .15392,    .07013,
     +     .04793,    .13209,    .18726,
     +     .46191,    .23841,   1.60828,    .15309,    .07074,
     +     .04903,    .13169,    .18612,
     +     .46165,    .23748,   1.57705,    .15217,    .07121,
     +     .04995,    .13119,    .18491,
     +     .46137,    .23660,   1.54804,    .15129,    .07164,
     +     .05081,    .13071,    .18375,
     +     .46095,    .23570,   1.52029,    .15040,    .07194,
     +     .05151,    .13017,    .18258 /
        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.49289,    .14950,    .07223,
     +     .05218,    .12961,    .18139,
     +     .45996,    .23386,   1.46585,    .14856,    .07244,
     +     .05277,    .12901,    .18016,
     +     .45939,    .23295,   1.44038,    .14764,    .07261,
     +     .05328,    .12842,    .17897,
     +     .45881,    .23207,   1.41656,    .14675,    .07274,
     +     .05374,    .12783,    .17784,
     +     .45811,    .23115,   1.39243,    .14581,    .07281,
     +     .05412,    .12718,    .17664 /
        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.50624,    .11274,    .00000,
     +     .00000,    .07888,    .15785,
     +     .46371,    .26784,   1.56467,    .11440,    .00000,
     +     .00000,    .08158,    .15927,
     +     .47105,    .26881,   1.63087,    .11653,    .00000,
     +     .00000,    .08515,    .16098,
     +     .47575,    .26927,   1.66429,    .11790,    .00209,
     +     .00000,    .08752,    .16201,
     +     .48007,    .26949,   1.68286,    .11914,    .00667,
     +     .00000,    .08974,    .16288,
     +     .48338,    .26952,   1.69293,    .12005,    .01013,
     +     .00000,    .09145,    .16344,
     +     .48625,    .26944,   1.69842,    .12081,    .01328,
     +     .00000,    .09294,    .16384,
     +     .48902,    .26926,   1.70016,    .12149,    .01646,
     +     .00000,    .09438,    .16412 /
        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.69759,    .12195,    .01892,
     +     .00000,    .09547,    .16422,
     +     .49296,    .26862,   1.69237,    .12230,    .02118,
     +     .00000,    .09642,    .16423,
     +     .49430,    .26831,   1.68707,    .12254,    .02293,
     +     .00000,    .09711,    .16420,
     +     .49667,    .26747,   1.66710,    .12289,    .02631,
     +     .00054,    .09837,    .16392,
     +     .49827,    .26659,   1.64089,    .12301,    .02890,
     +     .00418,    .09924,    .16352,
     +     .49967,    .26547,   1.60845,    .12298,    .03156,
     +     .00823,    .10001,    .16286,
     +     .50069,    .26416,   1.57254,    .12275,    .03402,
     +     .01158,    .10057,    .16198,
     +     .50128,    .26286,   1.53828,    .12239,    .03601,
     +     .01435,    .10090,    .16103 /
        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,    .12190,    .03781,
     +     .01689,    .10107,    .15993,
     +     .50157,    .26019,   1.47215,    .12140,    .03914,
     +     .01878,    .10109,    .15891,
     +     .50130,    .25858,   1.43453,    .12066,    .04056,
     +     .02085,    .10097,    .15757,
     +     .50087,    .25709,   1.40115,    .11994,    .04169,
     +     .02255,    .10078,    .15631,
     +     .50031,    .25568,   1.37058,    .11922,    .04262,
     +     .02398,    .10053,    .15510,
     +     .49933,    .25380,   1.33139,    .11820,    .04362,
     +     .02558,    .10007,    .15345,
     +     .49820,    .25199,   1.29492,    .11718,    .04444,
     +     .02695,    .09955,    .15183,
     +     .49702,    .25026,   1.26131,    .11619,    .04513,
     +     .02813,    .09902,    .15029 /
        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,    .11512,    .04567,
     +     .02914,    .09838,    .14865,
     +     .49407,    .24667,   1.19530,    .11403,    .04613,
     +     .03005,    .09772,    .14703,
     +     .49253,    .24495,   1.16524,    .11298,    .04651,
     +     .03083,    .09704,    .14548,
     +     .49093,    .24328,   1.13715,    .11194,    .04677,
     +     .03147,    .09635,    .14397,
     +     .48929,    .24161,   1.10967,    .11090,    .04701,
     +     .03208,    .09565,    .14245,
     +     .48750,    .23991,   1.08279,    .10982,    .04716,
     +     .03258,    .09490,    .14091,
     +     .48581,    .23830,   1.05800,    .10880,    .04730,
     +     .03303,    .09419,    .13947,
     +     .48405,    .23674,   1.03467,    .10779,    .04736,
     +     .03339,    .09346,    .13806 /
        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.01177,    .10680,    .04741,
     +     .03373,    .09273,    .13665,
     +     .48042,    .23361,    .98946,    .10578,    .04741,
     +     .03401,    .09198,    .13524,
     +     .47862,    .23210,    .96861,    .10481,    .04738,
     +     .03425,    .09125,    .13389,
     +     .47687,    .23067,    .94926,    .10389,    .04735,
     +     .03445,    .09056,    .13262,
     +     .47502,    .22919,    .92986,    .10293,    .04727,
     +     .03461,    .08983,    .13130 /
        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.38320,    .09678,    .00000,
     +     .00000,    .07050,    .14604,
     +     .52740,    .29243,   1.41162,    .09757,    .00000,
     +     .00000,    .07219,    .14613,
     +     .53196,    .29143,   1.43847,    .09849,    .00000,
     +     .00000,    .07434,    .14596,
     +     .53463,    .29052,   1.44693,    .09902,    .00161,
     +     .00000,    .07569,    .14570,
     +     .53682,    .28935,   1.44375,    .09942,    .00511,
     +     .00000,    .07690,    .14529,
     +     .53829,    .28820,   1.43704,    .09964,    .00773,
     +     .00000,    .07778,    .14480,
     +     .53941,    .28700,   1.42790,    .09975,    .01008,
     +     .00000,    .07851,    .14423,
     +     .54033,    .28565,   1.41563,    .09979,    .01245,
     +     .00000,    .07917,    .14355 /
        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.40236,    .09973,    .01426,
     +     .00000,    .07962,    .14286,
     +     .54107,    .28313,   1.38789,    .09961,    .01590,
     +     .00000,    .07998,    .14213,
     +     .54118,    .28210,   1.37582,    .09949,    .01717,
     +     .00000,    .08023,    .14153,
     +     .54100,    .27975,   1.34448,    .09909,    .01958,
     +     .00041,    .08058,    .14014,
     +     .54038,    .27764,   1.31171,    .09865,    .02141,
     +     .00305,    .08074,    .13884,
     +     .53934,    .27517,   1.27374,    .09804,    .02325,
     +     .00598,    .08077,    .13727,
     +     .53789,    .27249,   1.23376,    .09727,    .02493,
     +     .00837,    .08063,    .13554,
     +     .53625,    .26999,   1.19723,    .09646,    .02627,
     +     .01033,    .08038,    .13388 /
        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.16041,    .09558,    .02745,
     +     .01210,    .08001,    .13214,
     +     .53250,    .26524,   1.12990,    .09479,    .02831,
     +     .01341,    .07964,    .13064,
     +     .53006,    .26252,   1.09313,    .09375,    .02921,
     +     .01482,    .07908,    .12877,
     +     .52773,    .26008,   1.06115,    .09279,    .02991,
     +     .01597,    .07853,    .12708,
     +     .52547,    .25784,   1.03236,    .09189,    .03048,
     +     .01693,    .07799,    .12551,
     +     .52236,    .25491,    .99618,    .09067,    .03106,
     +     .01798,    .07722,    .12349,
     +     .51928,    .25215,    .96305,    .08950,    .03152,
     +     .01887,    .07644,    .12156,
     +     .51627,    .24959,    .93292,    .08840,    .03189,
     +     .01963,    .07567,    .11974 /
        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,    .90320,    .08724,    .03216,
     +     .02026,    .07486,    .11789,
     +     .50986,    .24439,    .87502,    .08609,    .03237,
     +     .02083,    .07404,    .11609,
     +     .50673,    .24196,    .84908,    .08501,    .03253,
     +     .02130,    .07323,    .11439,
     +     .50367,    .23963,    .82512,    .08395,    .03262,
     +     .02168,    .07245,    .11276,
     +     .50060,    .23732,    .80182,    .08291,    .03269,
     +     .02204,    .07167,    .11115,
     +     .49742,    .23500,    .77930,    .08185,    .03270,
     +     .02232,    .07086,    .10956,
     +     .49442,    .23283,    .75863,    .08086,    .03271,
     +     .02257,    .07009,    .10807,
     +     .49145,    .23074,    .73938,    .07990,    .03267,
     +     .02275,    .06935,    .10664 /
        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,    .72058,    .07894,    .03262,
     +     .02293,    .06861,    .10521,
     +     .48547,    .22659,    .70240,    .07799,    .03254,
     +     .02307,    .06786,    .10381,
     +     .48257,    .22463,    .68550,    .07708,    .03245,
     +     .02318,    .06713,    .10248,
     +     .47981,    .22278,    .66989,    .07623,    .03235,
     +     .02327,    .06645,    .10123,
     +     .47693,    .22089,    .65436,    .07536,    .03223,
     +     .02333,    .06575,    .09995 /
        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.21467,    .07972,    .00000,
     +     .00000,    .06061,    .12973,
     +     .59199,    .31238,   1.22025,    .07987,    .00000,
     +     .00000,    .06141,    .12866,
     +     .59241,    .30894,   1.21811,    .07988,    .00000,
     +     .00000,    .06236,    .12694,
     +     .59213,    .30634,   1.20904,    .07980,    .00119,
     +     .00000,    .06289,    .12563,
     +     .59128,    .30349,   1.19137,    .07962,    .00374,
     +     .00000,    .06330,    .12420,
     +     .59017,    .30093,   1.17385,    .07936,    .00564,
     +     .00000,    .06354,    .12291,
     +     .58883,    .29844,   1.15565,    .07906,    .00733,
     +     .00000,    .06369,    .12161,
     +     .58717,    .29576,   1.13506,    .07869,    .00900,
     +     .00000,    .06377,    .12019 /
        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,    .07829,    .01027,
     +     .00000,    .06375,    .11893,
     +     .58366,    .29101,   1.09639,    .07787,    .01141,
     +     .00000,    .06368,    .11769,
     +     .58214,    .28916,   1.08088,    .07752,    .01228,
     +     .00000,    .06360,    .11670,
     +     .57855,    .28513,   1.04463,    .07669,    .01392,
     +     .00030,    .06332,    .11455,
     +     .57513,    .28161,   1.01018,    .07591,    .01514,
     +     .00213,    .06299,    .11269,
     +     .57100,    .27766,    .97168,    .07499,    .01636,
     +     .00415,    .06252,    .11056,
     +     .56639,    .27353,    .93236,    .07394,    .01744,
     +     .00578,    .06194,    .10830,
     +     .56199,    .26975,    .89738,    .07294,    .01828,
     +     .00709,    .06134,    .10624 /
        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,    .07189,    .01902,
     +     .00827,    .06067,    .10416,
     +     .55333,    .26275,    .83489,    .07098,    .01953,
     +     .00913,    .06005,    .10243,
     +     .54828,    .25889,    .80174,    .06985,    .02005,
     +     .01004,    .05927,    .10032,
     +     .54371,    .25549,    .77335,    .06884,    .02045,
     +     .01078,    .05855,    .09846,
     +     .53945,    .25238,    .74811,    .06790,    .02076,
     +     .01139,    .05787,    .09677,
     +     .53385,    .24844,    .71691,    .06668,    .02106,
     +     .01204,    .05695,    .09462,
     +     .52850,    .24475,    .68872,    .06552,    .02128,
     +     .01258,    .05608,    .09262,
     +     .52346,    .24134,    .66334,    .06443,    .02144,
     +     .01303,    .05525,    .09077 /
        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,    .06333,    .02154,
     +     .01340,    .05440,    .08892,
     +     .51316,    .23458,    .61550,    .06225,    .02160,
     +     .01373,    .05356,    .08715,
     +     .50832,    .23146,    .59435,    .06124,    .02163,
     +     .01399,    .05276,    .08549,
     +     .50365,    .22852,    .57501,    .06028,    .02162,
     +     .01420,    .05199,    .08392,
     +     .49899,    .22561,    .55633,    .05934,    .02160,
     +     .01438,    .05123,    .08238,
     +     .49430,    .22275,    .53844,    .05841,    .02155,
     +     .01452,    .05046,    .08087,
     +     .48990,    .22007,    .52210,    .05753,    .02148,
     +     .01465,    .04974,    .07946,
     +     .48566,    .21751,    .50702,    .05669,    .02140,
     +     .01473,    .04906,    .07814 /
        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,    .49236,    .05585,    .02131,
     +     .01480,    .04838,    .07683,
     +     .47721,    .21247,    .47829,    .05502,    .02120,
     +     .01485,    .04770,    .07555,
     +     .47318,    .21010,    .46529,    .05424,    .02109,
     +     .01489,    .04705,    .07435,
     +     .46936,    .20788,    .45333,    .05351,    .02098,
     +     .01491,    .04645,    .07323,
     +     .46544,    .20564,    .44152,    .05277,    .02085,
     +     .01492,    .04583,    .07208 /
        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,    .06571,    .00000,
     +     .00000,    .05147,    .11263,
     +     .64113,    .32258,   1.04598,    .06548,    .00000,
     +     .00000,    .05174,    .11087,
     +     .63701,    .31689,   1.02799,    .06500,    .00000,
     +     .00000,    .05192,    .10827,
     +     .63354,    .31274,   1.00990,    .06460,    .00089,
     +     .00000,    .05196,    .10638,
     +     .62952,    .30834,    .98542,    .06410,    .00279,
     +     .00000,    .05192,    .10441,
     +     .62572,    .30450,    .96314,    .06360,    .00419,
     +     .00000,    .05179,    .10269,
     +     .62188,    .30084,    .94121,    .06309,    .00542,
     +     .00000,    .05161,    .10104,
     +     .61761,    .29697,    .91749,    .06251,    .00663,
     +     .00000,    .05137,    .09930 /
        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,    .06196,    .00754,
     +     .00000,    .05110,    .09778,
     +     .60982,    .29031,    .87554,    .06141,    .00835,
     +     .00000,    .05080,    .09631,
     +     .60669,    .28775,    .85924,    .06097,    .00896,
     +     .00000,    .05056,    .09514,
     +     .59977,    .28227,    .82282,    .05998,    .01010,
     +     .00023,    .04996,    .09271,
     +     .59359,    .27764,    .78980,    .05910,    .01094,
     +     .00152,    .04940,    .09062,
     +     .58651,    .27245,    .75364,    .05807,    .01176,
     +     .00295,    .04871,    .08832,
     +     .57894,    .26711,    .71737,    .05696,    .01248,
     +     .00409,    .04794,    .08594,
     +     .57194,    .26232,    .68565,    .05593,    .01302,
     +     .00500,    .04720,    .08381 /
        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,    .65483,    .05487,    .01348,
     +     .00580,    .04641,    .08170,
     +     .55878,    .25359,    .63014,    .05398,    .01380,
     +     .00638,    .04574,    .07996,
     +     .55137,    .24885,    .60123,    .05290,    .01411,
     +     .00699,    .04490,    .07787,
     +     .54480,    .24472,    .57675,    .05193,    .01434,
     +     .00747,    .04416,    .07606,
     +     .53876,    .24099,    .55520,    .05105,    .01450,
     +     .00787,    .04346,    .07442,
     +     .53100,    .23626,    .52885,    .04991,    .01465,
     +     .00828,    .04256,    .07238,
     +     .52372,    .23189,    .50525,    .04885,    .01474,
     +     .00862,    .04171,    .07051,
     +     .51694,    .22787,    .48420,    .04786,    .01481,
     +     .00891,    .04093,    .06879 /
        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,    .46392,    .04687,    .01482,
     +     .00912,    .04012,    .06709,
     +     .50338,    .22003,    .44501,    .04592,    .01482,
     +     .00931,    .03935,    .06546,
     +     .49707,    .21644,    .42788,    .04504,    .01479,
     +     .00947,    .03861,    .06396,
     +     .49109,    .21309,    .41235,    .04421,    .01474,
     +     .00958,    .03792,    .06256,
     +     .48516,    .20979,    .39743,    .04340,    .01468,
     +     .00968,    .03723,    .06118,
     +     .47928,    .20655,    .38326,    .04258,    .01460,
     +     .00974,    .03656,    .05985,
     +     .47379,    .20353,    .37036,    .04181,    .01453,
     +     .00980,    .03594,    .05862,
     +     .46853,    .20068,    .35853,    .04110,    .01443,
     +     .00983,    .03534,    .05747 /
        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,    .04039,    .01434,
     +     .00986,    .03474,    .05634,
     +     .45813,    .19509,    .33614,    .03970,    .01423,
     +     .00987,    .03416,    .05523,
     +     .45323,    .19250,    .32608,    .03905,    .01412,
     +     .00987,    .03361,    .05419,
     +     .44861,    .19007,    .31685,    .03845,    .01402,
     +     .00986,    .03310,    .05322,
     +     .44390,    .18762,    .30779,    .03784,    .01390,
     +     .00985,    .03257,    .05225 /
        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,    .05440,    .00000,
     +     .00000,    .04323,    .09561,
     +     .67585,    .32503,    .89478,    .05397,    .00000,
     +     .00000,    .04313,    .09353,
     +     .66713,    .31733,    .86826,    .05322,    .00000,
     +     .00000,    .04288,    .09051,
     +     .66049,    .31184,    .84571,    .05266,    .00067,
     +     .00000,    .04262,    .08836,
     +     .65327,    .30614,    .81843,    .05201,    .00211,
     +     .00000,    .04229,    .08618,
     +     .64683,    .30123,    .79446,    .05141,    .00315,
     +     .00000,    .04195,    .08431,
     +     .64054,    .29658,    .77145,    .05081,    .00407,
     +     .00000,    .04160,    .08255,
     +     .63377,    .29173,    .74710,    .05015,    .00495,
     +     .00000,    .04118,    .08071 /
        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,    .72582,    .04957,    .00561,
     +     .00000,    .04079,    .07910,
     +     .62189,    .28352,    .70540,    .04897,    .00620,
     +     .00000,    .04038,    .07759,
     +     .61727,    .28036,    .68951,    .04849,    .00664,
     +     .00000,    .04004,    .07644,
     +     .60724,    .27376,    .65496,    .04746,    .00744,
     +     .00017,    .03932,    .07398,
     +     .59854,    .26820,    .62453,    .04656,    .00803,
     +     .00110,    .03867,    .07192,
     +     .58876,    .26208,    .59169,    .04554,    .00859,
     +     .00213,    .03791,    .06968,
     +     .57855,    .25583,    .55919,    .04446,    .00907,
     +     .00294,    .03708,    .06740,
     +     .56928,    .25026,    .53111,    .04347,    .00943,
     +     .00358,    .03632,    .06537 /
        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,    .50414,    .04248,    .00972,
     +     .00414,    .03555,    .06338,
     +     .55216,    .24027,    .48270,    .04166,    .00992,
     +     .00454,    .03489,    .06176,
     +     .54276,    .23490,    .45788,    .04066,    .01010,
     +     .00495,    .03408,    .05985,
     +     .53451,    .23024,    .43704,    .03977,    .01022,
     +     .00528,    .03338,    .05820,
     +     .52700,    .22605,    .41885,    .03897,    .01031,
     +     .00554,    .03274,    .05672,
     +     .51745,    .22082,    .39678,    .03796,    .01038,
     +     .00581,    .03191,    .05491,
     +     .50856,    .21601,    .37719,    .03703,    .01041,
     +     .00603,    .03113,    .05324,
     +     .50036,    .21161,    .35983,    .03618,    .01042,
     +     .00620,    .03043,    .05171 /
        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,    .34325,    .03532,    .01039,
     +     .00634,    .02972,    .05023,
     +     .48418,    .20308,    .32788,    .03450,    .01036,
     +     .00645,    .02903,    .04883,
     +     .47674,    .19921,    .31406,    .03373,    .01031,
     +     .00654,    .02839,    .04755,
     +     .46976,    .19561,    .30158,    .03301,    .01025,
     +     .00660,    .02780,    .04635,
     +     .46288,    .19208,    .28964,    .03231,    .01018,
     +     .00665,    .02722,    .04518,
     +     .45609,    .18864,    .27839,    .03162,    .01010,
     +     .00668,    .02664,    .04405,
     +     .44976,    .18546,    .26819,    .03098,    .01002,
     +     .00670,    .02611,    .04302,
     +     .44376,    .18245,    .25887,    .03038,    .00993,
     +     .00671,    .02560,    .04205 /
        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,    .24988,    .02979,    .00985,
     +     .00671,    .02511,    .04110,
     +     .43197,    .17658,    .24135,    .02922,    .00975,
     +     .00670,    .02462,    .04019,
     +     .42644,    .17387,    .23353,    .02868,    .00966,
     +     .00669,    .02417,    .03933,
     +     .42126,    .17133,    .22639,    .02818,    .00957,
     +     .00667,    .02375,    .03854,
     +     .41603,    .16878,    .21940,    .02767,    .00947,
     +     .00665,    .02332,    .03775 /
        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,    .78533,    .04526,    .00000,
     +     .00000,    .03587,    .07944,
     +     .69744,    .32122,    .76630,    .04470,    .00000,
     +     .00000,    .03561,    .07728,
     +     .68428,    .31179,    .73526,    .04382,    .00000,
     +     .00000,    .03509,    .07419,
     +     .67462,    .30515,    .71072,    .04316,    .00051,
     +     .00000,    .03468,    .07203,
     +     .66440,    .29836,    .68264,    .04244,    .00160,
     +     .00000,    .03421,    .06987,
     +     .65547,    .29259,    .65853,    .04180,    .00239,
     +     .00000,    .03377,    .06804,
     +     .64691,    .28716,    .63573,    .04116,    .00307,
     +     .00000,    .03334,    .06633,
     +     .63785,    .28151,    .61197,    .04047,    .00373,
     +     .00000,    .03285,    .06455 /
        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,    .03986,    .00421,
     +     .00000,    .03242,    .06304,
     +     .62229,    .27206,    .57215,    .03927,    .00464,
     +     .00000,    .03198,    .06160,
     +     .61627,    .26848,    .55718,    .03881,    .00496,
     +     .00000,    .03162,    .06050,
     +     .60351,    .26100,    .52520,    .03780,    .00553,
     +     .00013,    .03087,    .05821,
     +     .59258,    .25477,    .49769,    .03694,    .00594,
     +     .00081,    .03022,    .05630,
     +     .58047,    .24796,    .46836,    .03596,    .00633,
     +     .00156,    .02947,    .05425,
     +     .56798,    .24106,    .43964,    .03494,    .00665,
     +     .00214,    .02868,    .05219,
     +     .55677,    .23495,    .41508,    .03403,    .00688,
     +     .00259,    .02796,    .05038 /
        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,    .39170,    .03313,    .00707,
     +     .00299,    .02724,    .04862,
     +     .53639,    .22408,    .37328,    .03239,    .00719,
     +     .00326,    .02664,    .04719,
     +     .52535,    .21831,    .35215,    .03149,    .00729,
     +     .00355,    .02591,    .04552,
     +     .51573,    .21333,    .33454,    .03070,    .00736,
     +     .00377,    .02527,    .04409,
     +     .50703,    .20888,    .31925,    .03000,    .00740,
     +     .00394,    .02470,    .04281,
     +     .49607,    .20334,    .30086,    .02911,    .00742,
     +     .00412,    .02397,    .04126,
     +     .48596,    .19826,    .28465,    .02829,    .00741,
     +     .00426,    .02330,    .03985,
     +     .47669,    .19363,    .27039,    .02753,    .00740,
     +     .00437,    .02269,    .03858 /
        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,    .25684,    .02679,    .00736,
     +     .00445,    .02208,    .03733,
     +     .45858,    .18479,    .24436,    .02610,    .00731,
     +     .00452,    .02150,    .03616,
     +     .45032,    .18079,    .23320,    .02546,    .00726,
     +     .00456,    .02096,    .03509,
     +     .44260,    .17708,    .22321,    .02485,    .00719,
     +     .00459,    .02046,    .03410,
     +     .43502,    .17346,    .21369,    .02426,    .00713,
     +     .00462,    .01997,    .03314,
     +     .42759,    .16995,    .20472,    .02369,    .00705,
     +     .00463,    .01950,    .03221,
     +     .42069,    .16670,    .19662,    .02316,    .00698,
     +     .00463,    .01907,    .03135,
     +     .41419,    .16366,    .18930,    .02265,    .00691,
     +     .00463,    .01866,    .03058 /
        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,    .18226,    .02215,    .00683,
     +     .00462,    .01825,    .02982,
     +     .40146,    .15775,    .17560,    .02168,    .00675,
     +     .00461,    .01785,    .02908,
     +     .39553,    .15502,    .16950,    .02124,    .00667,
     +     .00459,    .01748,    .02839,
     +     .38999,    .15249,    .16395,    .02084,    .00660,
     +     .00457,    .01714,    .02775,
     +     .38440,    .14995,    .15853,    .02043,    .00652,
     +     .00454,    .01680,    .02711 /
        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,    .67926,    .03781,    .00000,
     +     .00000,    .02946,    .06467,
     +     .70715,    .31236,    .65776,    .03719,    .00000,
     +     .00000,    .02909,    .06258,
     +     .68983,    .30157,    .62447,    .03622,    .00000,
     +     .00000,    .02846,    .05967,
     +     .67737,    .29403,    .59924,    .03553,    .00039,
     +     .00000,    .02799,    .05764,
     +     .66445,    .28637,    .57143,    .03475,    .00122,
     +     .00000,    .02748,    .05565,
     +     .65330,    .27993,    .54792,    .03411,    .00182,
     +     .00000,    .02702,    .05394,
     +     .64270,    .27391,    .52599,    .03349,    .00233,
     +     .00000,    .02656,    .05235,
     +     .63158,    .26769,    .50339,    .03283,    .00282,
     +     .00000,    .02607,    .05072 /
        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,    .48415,    .03222,    .00317,
     +     .00000,    .02564,    .04936,
     +     .61280,    .25734,    .46611,    .03163,    .00348,
     +     .00000,    .02520,    .04810,
     +     .60561,    .25344,    .45230,    .03118,    .00371,
     +     .00000,    .02485,    .04713,
     +     .59048,    .24536,    .42321,    .03022,    .00412,
     +     .00010,    .02414,    .04509,
     +     .57773,    .23864,    .39862,    .02940,    .00441,
     +     .00059,    .02351,    .04345,
     +     .56367,    .23137,    .37266,    .02851,    .00468,
     +     .00114,    .02282,    .04165,
     +     .54933,    .22405,    .34748,    .02758,    .00489,
     +     .00156,    .02210,    .03988,
     +     .53656,    .21763,    .32616,    .02675,    .00505,
     +     .00188,    .02145,    .03832 /
        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,    .30606,    .02595,    .00516,
     +     .00216,    .02081,    .03679,
     +     .51360,    .20628,    .29036,    .02527,    .00523,
     +     .00236,    .02027,    .03561,
     +     .50129,    .20028,    .27246,    .02448,    .00529,
     +     .00255,    .01964,    .03421,
     +     .49064,    .19515,    .25766,    .02379,    .00532,
     +     .00270,    .01909,    .03302,
     +     .48107,    .19058,    .24489,    .02317,    .00533,
     +     .00282,    .01859,    .03197,
     +     .46908,    .18492,    .22961,    .02241,    .00533,
     +     .00294,    .01798,    .03066,
     +     .45808,    .17977,    .21624,    .02171,    .00531,
     +     .00303,    .01741,    .02949,
     +     .44803,    .17508,    .20454,    .02106,    .00528,
     +     .00310,    .01690,    .02845 /
        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,    .19356,    .02042,    .00524,
     +     .00314,    .01639,    .02744,
     +     .42859,    .16616,    .18347,    .01983,    .00519,
     +     .00318,    .01591,    .02650,
     +     .41978,    .16216,    .17446,    .01930,    .00514,
     +     .00321,    .01547,    .02563,
     +     .41159,    .15848,    .16645,    .01879,    .00508,
     +     .00322,    .01506,    .02484,
     +     .40356,    .15490,    .15885,    .01830,    .00502,
     +     .00323,    .01466,    .02406,
     +     .39577,    .15140,    .15174,    .01782,    .00496,
     +     .00323,    .01428,    .02334,
     +     .38855,    .14817,    .14535,    .01737,    .00489,
     +     .00322,    .01392,    .02267,
     +     .38175,    .14518,    .13957,    .01696,    .00483,
     +     .00321,    .01359,    .02204 /
        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,    .13403,    .01656,    .00477,
     +     .00320,    .01327,    .02142,
     +     .36851,    .13940,    .12881,    .01617,    .00470,
     +     .00319,    .01295,    .02084,
     +     .36238,    .13674,    .12406,    .01581,    .00464,
     +     .00317,    .01265,    .02031,
     +     .35667,    .13426,    .11975,    .01547,    .00458,
     +     .00315,    .01237,    .01981,
     +     .35094,    .13179,    .11557,    .01514,    .00452,
     +     .00313,    .01211,    .01932 /
        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,    .58868,    .03164,    .00000,
     +     .00000,    .02395,    .05161,
     +     .70619,    .29959,    .56584,    .03100,    .00000,
     +     .00000,    .02352,    .04971,
     +     .68512,    .28777,    .53157,    .03001,    .00000,
     +     .00000,    .02285,    .04708,
     +     .67017,    .27957,    .50647,    .02933,    .00030,
     +     .00000,    .02237,    .04525,
     +     .65484,    .27133,    .47954,    .02859,    .00093,
     +     .00000,    .02183,    .04349,
     +     .64176,    .26441,    .45707,    .02794,    .00138,
     +     .00000,    .02138,    .04199,
     +     .62943,    .25798,    .43632,    .02733,    .00177,
     +     .00000,    .02094,    .04061,
     +     .61658,    .25137,    .41515,    .02669,    .00213,
     +     .00000,    .02047,    .03920 /
        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,    .39735,    .02614,    .00239,
     +     .00000,    .02006,    .03802,
     +     .59510,    .24044,    .38078,    .02559,    .00261,
     +     .00000,    .01966,    .03693,
     +     .58696,    .23635,    .36815,    .02515,    .00278,
     +     .00000,    .01935,    .03610,
     +     .56989,    .22793,    .34195,    .02428,    .00308,
     +     .00008,    .01869,    .03434,
     +     .55564,    .22097,    .32015,    .02353,    .00328,
     +     .00044,    .01813,    .03295,
     +     .54010,    .21345,    .29737,    .02271,    .00346,
     +     .00084,    .01751,    .03145,
     +     .52432,    .20592,    .27548,    .02188,    .00361,
     +     .00114,    .01688,    .02997,
     +     .51037,    .19935,    .25713,    .02114,    .00371,
     +     .00137,    .01631,    .02869 /
        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,    .23995,    .02041,    .00378,
     +     .00157,    .01576,    .02745,
     +     .48552,    .18786,    .22662,    .01983,    .00382,
     +     .00171,    .01530,    .02646,
     +     .47233,    .18182,    .21156,    .01912,    .00384,
     +     .00184,    .01477,    .02531,
     +     .46097,    .17666,    .19916,    .01852,    .00385,
     +     .00194,    .01431,    .02435,
     +     .45079,    .17208,    .18850,    .01800,    .00385,
     +     .00202,    .01389,    .02351,
     +     .43813,    .16645,    .17593,    .01734,    .00384,
     +     .00210,    .01339,    .02246,
     +     .42656,    .16135,    .16497,    .01674,    .00381,
     +     .00216,    .01292,    .02152,
     +     .41603,    .15674,    .15541,    .01620,    .00378,
     +     .00220,    .01250,    .02069 /
        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,    .14650,    .01566,    .00374,
     +     .00223,    .01209,    .01991,
     +     .39587,    .14796,    .13836,    .01516,    .00369,
     +     .00225,    .01170,    .01916,
     +     .38679,    .14404,    .13115,    .01472,    .00365,
     +     .00226,    .01135,    .01846,
     +     .37837,    .14046,    .12475,    .01429,    .00360,
     +     .00227,    .01102,    .01783,
     +     .37015,    .13697,    .11869,    .01388,    .00355,
     +     .00227,    .01070,    .01723,
     +     .36218,    .13360,    .11307,    .01348,    .00349,
     +     .00226,    .01039,    .01667,
     +     .35482,    .13049,    .10802,    .01312,    .00344,
     +     .00226,    .01010,    .01616,
     +     .34792,    .12761,    .10350,    .01278,    .00339,
     +     .00224,    .00983,    .01569 /
        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,    .09916,    .01245,    .00334,
     +     .00223,    .00958,    .01522,
     +     .33455,    .12206,    .09509,    .01213,    .00329,
     +     .00222,    .00933,    .01478,
     +     .32839,    .11951,    .09139,    .01183,    .00324,
     +     .00220,    .00910,    .01436,
     +     .32266,    .11715,    .08804,    .01156,    .00319,
     +     .00218,    .00889,    .01398,
     +     .31692,    .11480,    .08481,    .01130,    .00314,
     +     .00216,    .00869,    .01360 /
        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,    .51084,    .02678,    .00000,
     +     .00000,    .01906,    .04017,
     +     .69555,    .28412,    .48728,    .02611,    .00000,
     +     .00000,    .01865,    .03853,
     +     .67130,    .27155,    .45291,    .02508,    .00000,
     +     .00000,    .01803,    .03629,
     +     .65427,    .26290,    .42831,    .02437,    .00023,
     +     .00000,    .01757,    .03476,
     +     .63702,    .25421,    .40264,    .02361,    .00071,
     +     .00000,    .01709,    .03328,
     +     .62235,    .24700,    .38144,    .02300,    .00105,
     +     .00000,    .01668,    .03203,
     +     .60863,    .24031,    .36205,    .02241,    .00134,
     +     .00000,    .01628,    .03088,
     +     .59442,    .23345,    .34247,    .02179,    .00161,
     +     .00000,    .01586,    .02971 /
        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,    .02128,    .00180,
     +     .00000,    .01549,    .02871,
     +     .57079,    .22227,    .31114,    .02077,    .00197,
     +     .00000,    .01514,    .02780,
     +     .56191,    .21806,    .29975,    .02036,    .00209,
     +     .00000,    .01487,    .02712,
     +     .54341,    .20949,    .27636,    .01954,    .00229,
     +     .00006,    .01431,    .02569,
     +     .52806,    .20243,    .25720,    .01887,    .00244,
     +     .00032,    .01382,    .02455,
     +     .51141,    .19487,    .23736,    .01812,    .00256,
     +     .00062,    .01329,    .02335,
     +     .49459,    .18734,    .21847,    .01739,    .00266,
     +     .00084,    .01276,    .02213,
     +     .47983,    .18079,    .20277,    .01675,    .00272,
     +     .00100,    .01230,    .02109 /
        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,    .18821,    .01610,    .00276,
     +     .00114,    .01184,    .02011,
     +     .45380,    .16937,    .17697,    .01558,    .00278,
     +     .00124,    .01145,    .01934,
     +     .44006,    .16341,    .16434,    .01497,    .00279,
     +     .00133,    .01101,    .01844,
     +     .42828,    .15836,    .15404,    .01446,    .00279,
     +     .00140,    .01064,    .01768,
     +     .41776,    .15389,    .14525,    .01401,    .00278,
     +     .00146,    .01030,    .01700,
     +     .40479,    .14838,    .13492,    .01345,    .00276,
     +     .00151,    .00989,    .01618,
     +     .39297,    .14341,    .12600,    .01294,    .00273,
     +     .00154,    .00952,    .01546,
     +     .38224,    .13894,    .11826,    .01247,    .00270,
     +     .00157,    .00917,    .01483 /
        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,    .01203,    .00267,
     +     .00158,    .00885,    .01422,
     +     .36181,    .13053,    .10453,    .01161,    .00263,
     +     .00159,    .00854,    .01364,
     +     .35268,    .12679,    .09876,    .01122,    .00259,
     +     .00160,    .00825,    .01312,
     +     .34425,    .12336,    .09367,    .01087,    .00255,
     +     .00160,    .00799,    .01265,
     +     .33603,    .12003,    .08888,    .01053,    .00251,
     +     .00160,    .00773,    .01220,
     +     .32808,    .11684,    .08445,    .01021,    .00246,
     +     .00159,    .00750,    .01176,
     +     .32075,    .11390,    .08048,    .00992,    .00242,
     +     .00158,    .00728,    .01137,
     +     .31391,    .11118,    .07693,    .00964,    .00238,
     +     .00157,    .00707,    .01101 /
        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,    .07355,    .00936,    .00234,
     +     .00156,    .00686,    .01066,
     +     .30070,    .10595,    .07038,    .00911,    .00230,
     +     .00154,    .00667,    .01033,
     +     .29464,    .10357,    .06750,    .00888,    .00226,
     +     .00153,    .00650,    .01001,
     +     .28901,    .10136,    .06491,    .00867,    .00222,
     +     .00152,    .00633,    .00973,
     +     .28342,    .09916,    .06241,    .00844,    .00219,
     +     .00150,    .00617,    .00945 /
        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,    .44250,    .02224,    .00000,
     +     .00000,    .01520,    .03084,
     +     .67713,    .26603,    .41885,    .02160,    .00000,
     +     .00000,    .01480,    .02946,
     +     .65016,    .25309,    .38506,    .02064,    .00000,
     +     .00000,    .01421,    .02758,
     +     .63145,    .24418,    .36145,    .01993,    .00018,
     +     .00000,    .01378,    .02634,
     +     .61250,    .23539,    .33727,    .01928,    .00054,
     +     .00000,    .01335,    .02506,
     +     .59661,    .22804,    .31753,    .01869,    .00079,
     +     .00000,    .01298,    .02405,
     +     .58178,    .22128,    .29968,    .01815,    .00100,
     +     .00000,    .01262,    .02312,
     +     .56649,    .21438,    .28182,    .01760,    .00120,
     +     .00000,    .01224,    .02216 /
        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,    .26704,    .01709,    .00134,
     +     .00000,    .01193,    .02139,
     +     .54136,    .20308,    .25353,    .01663,    .00146,
     +     .00000,    .01162,    .02066,
     +     .53192,    .19891,    .24335,    .01628,    .00155,
     +     .00000,    .01139,    .02010,
     +     .51242,    .19036,    .22275,    .01556,    .00169,
     +     .00005,    .01090,    .01895,
     +     .49628,    .18342,    .20607,    .01498,    .00179,
     +     .00024,    .01049,    .01802,
     +     .47888,    .17596,    .18893,    .01433,    .00188,
     +     .00045,    .01005,    .01706,
     +     .46148,    .16856,    .17277,    .01368,    .00194,
     +     .00061,    .00961,    .01613,
     +     .44628,    .16216,    .15946,    .01311,    .00198,
     +     .00073,    .00921,    .01532 /
        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,    .14719,    .01256,    .00200,
     +     .00082,    .00882,    .01455,
     +     .41960,    .15106,    .13782,    .01213,    .00201,
     +     .00089,    .00853,    .01393,
     +     .40563,    .14533,    .12737,    .01160,    .00201,
     +     .00095,    .00817,    .01323,
     +     .39369,    .14046,    .11889,    .01116,    .00201,
     +     .00100,    .00787,    .01265,
     +     .38308,    .13617,    .11169,    .01078,    .00199,
     +     .00104,    .00759,    .01217,
     +     .37001,    .13092,    .10327,    .01032,    .00197,
     +     .00107,    .00726,    .01153,
     +     .35818,    .12619,    .09603,    .00990,    .00195,
     +     .00109,    .00696,    .01098,
     +     .34750,    .12194,    .08979,    .00952,    .00192,
     +     .00111,    .00669,    .01051 /
        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,    .00915,    .00189,
     +     .00112,    .00643,    .01003,
     +     .32728,    .11399,    .07882,    .00880,    .00186,
     +     .00112,    .00618,    .00960,
     +     .31826,    .11049,    .07426,    .00850,    .00182,
     +     .00112,    .00596,    .00920,
     +     .30997,    .10728,    .07024,    .00821,    .00179,
     +     .00112,    .00576,    .00884,
     +     .30192,    .10416,    .06645,    .00794,    .00176,
     +     .00112,    .00557,    .00850,
     +     .29415,    .10118,    .06299,    .00768,    .00172,
     +     .00111,    .00538,    .00818,
     +     .28701,    .09844,    .05989,    .00744,    .00169,
     +     .00110,    .00521,    .00789,
     +     .28037,    .09591,    .05713,    .00722,    .00166,
     +     .00109,    .00505,    .00762 /
        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,    .05450,    .00701,    .00163,
     +     .00108,    .00490,    .00736,
     +     .26760,    .09107,    .05205,    .00680,    .00160,
     +     .00107,    .00476,    .00712,
     +     .26176,    .08887,    .04984,    .00660,    .00157,
     +     .00106,    .00462,    .00691,
     +     .25635,    .08683,    .04784,    .00642,    .00154,
     +     .00105,    .00449,    .00671,
     +     .25096,    .08482,    .04592,    .00626,    .00151,
     +     .00103,    .00437,    .00650 /
        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,    .38219,    .01847,    .00000,
     +     .00000,    .01191,    .02314,
     +     .65162,    .24663,    .35887,    .01782,    .00000,
     +     .00000,    .01154,    .02206,
     +     .62258,    .23354,    .32621,    .01691,    .00000,
     +     .00000,    .01102,    .02054,
     +     .60254,    .22461,    .30388,    .01631,    .00013,
     +     .00000,    .01065,    .01951,
     +     .58243,    .21580,    .28141,    .01568,    .00040,
     +     .00000,    .01027,    .01851,
     +     .56567,    .20846,    .26328,    .01513,    .00059,
     +     .00000,    .00995,    .01771,
     +     .55009,    .20173,    .24702,    .01463,    .00075,
     +     .00000,    .00965,    .01697,
     +     .53407,    .19491,    .23088,    .01413,    .00089,
     +     .00000,    .00934,    .01622 /
        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,    .21769,    .01371,    .00099,
     +     .00000,    .00906,    .01560,
     +     .50789,    .18384,    .20573,    .01329,    .00108,
     +     .00000,    .00881,    .01503,
     +     .49813,    .17975,    .19679,    .01297,    .00114,
     +     .00000,    .00862,    .01459,
     +     .47802,    .17140,    .17876,    .01235,    .00124,
     +     .00004,    .00822,    .01370,
     +     .46153,    .16461,    .16437,    .01182,    .00131,
     +     .00017,    .00787,    .01299,
     +     .44382,    .15740,    .14976,    .01125,    .00137,
     +     .00033,    .00749,    .01227,
     +     .42617,    .15027,    .13610,    .01068,    .00141,
     +     .00044,    .00713,    .01156,
     +     .41086,    .14411,    .12491,    .01019,    .00143,
     +     .00052,    .00682,    .01094 /
        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,    .11469,    .00971,    .00144,
     +     .00059,    .00653,    .01034,
     +     .38410,    .13352,    .10695,    .00936,    .00144,
     +     .00064,    .00628,    .00988,
     +     .37016,    .12806,    .09835,    .00894,    .00144,
     +     .00068,    .00598,    .00937,
     +     .35831,    .12345,    .09142,    .00858,    .00143,
     +     .00071,    .00574,    .00894,
     +     .34783,    .11941,    .08557,    .00827,    .00142,
     +     .00074,    .00554,    .00854,
     +     .33498,    .11447,    .07876,    .00787,    .00140,
     +     .00076,    .00527,    .00807,
     +     .32337,    .11005,    .07296,    .00752,    .00138,
     +     .00077,    .00504,    .00766,
     +     .31291,    .10610,    .06798,    .00721,    .00136,
     +     .00078,    .00483,    .00729 /
        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,    .06339,    .00690,    .00133,
     +     .00078,    .00463,    .00697,
     +     .29325,    .09868,    .05928,    .00663,    .00130,
     +     .00079,    .00444,    .00665,
     +     .28449,    .09544,    .05569,    .00639,    .00128,
     +     .00078,    .00427,    .00635,
     +     .27649,    .09247,    .05254,    .00616,    .00125,
     +     .00078,    .00412,    .00609,
     +     .26874,    .08960,    .04959,    .00593,    .00123,
     +     .00078,    .00397,    .00585,
     +     .26127,    .08686,    .04689,    .00574,    .00120,
     +     .00077,    .00383,    .00562,
     +     .25442,    .08436,    .04450,    .00556,    .00118,
     +     .00076,    .00370,    .00540,
     +     .24809,    .08205,    .04236,    .00538,    .00115,
     +     .00076,    .00358,    .00521 /
        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,    .00519,    .00113,
     +     .00075,    .00346,    .00502,
     +     .23595,    .07763,    .03845,    .00502,    .00111,
     +     .00074,    .00335,    .00485,
     +     .23041,    .07563,    .03675,    .00487,    .00108,
     +     .00073,    .00325,    .00470,
     +     .22528,    .07378,    .03523,    .00472,    .00106,
     +     .00072,    .00315,    .00455,
     +     .22019,    .07196,    .03376,    .00459,    .00104,
     +     .00071,    .00306,    .00441 /
        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,    .32815,    .01512,    .00000,
     +     .00000,    .00924,    .01706,
     +     .62041,    .22626,    .30560,    .01452,    .00000,
     +     .00000,    .00891,    .01622,
     +     .58985,    .21330,    .27465,    .01371,    .00000,
     +     .00000,    .00846,    .01502,
     +     .56898,    .20446,    .25381,    .01312,    .00010,
     +     .00000,    .00816,    .01421,
     +     .54812,    .19579,    .23328,    .01255,    .00030,
     +     .00000,    .00783,    .01346,
     +     .53075,    .18865,    .21689,    .01208,    .00044,
     +     .00000,    .00754,    .01284,
     +     .51472,    .18209,    .20231,    .01164,    .00055,
     +     .00000,    .00728,    .01228,
     +     .49835,    .17543,    .18796,    .01119,    .00065,
     +     .00000,    .00703,    .01170 /
        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,    .01083,    .00073,
     +     .00000,    .00682,    .01120,
     +     .47168,    .16473,    .16587,    .01048,    .00079,
     +     .00000,    .00661,    .01076,
     +     .46178,    .16079,    .15807,    .01020,    .00083,
     +     .00000,    .00644,    .01043,
     +     .44152,    .15274,    .14253,    .00963,    .00090,
     +     .00003,    .00613,    .00976,
     +     .42495,    .14626,    .13028,    .00918,    .00095,
     +     .00012,    .00584,    .00925,
     +     .40720,    .13940,    .11795,    .00873,    .00098,
     +     .00023,    .00554,    .00869,
     +     .38965,    .13263,    .10652,    .00826,    .00101,
     +     .00031,    .00526,    .00814,
     +     .37448,    .12683,    .09725,    .00784,    .00102,
     +     .00037,    .00501,    .00767 /
        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,    .08882,    .00746,    .00103,
     +     .00042,    .00475,    .00724,
     +     .34810,    .11689,    .08247,    .00717,    .00103,
     +     .00045,    .00457,    .00689,
     +     .33444,    .11180,    .07549,    .00682,    .00102,
     +     .00048,    .00434,    .00651,
     +     .32292,    .10751,    .06990,    .00651,    .00101,
     +     .00050,    .00415,    .00619,
     +     .31280,    .10372,    .06522,    .00623,    .00100,
     +     .00052,    .00400,    .00592,
     +     .30029,    .09916,    .05978,    .00594,    .00098,
     +     .00053,    .00379,    .00557,
     +     .28907,    .09507,    .05517,    .00567,    .00097,
     +     .00054,    .00361,    .00527,
     +     .27903,    .09142,    .05123,    .00542,    .00095,
     +     .00055,    .00346,    .00501 /
        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,    .00518,    .00093,
     +     .00055,    .00330,    .00476,
     +     .26019,    .08464,    .04439,    .00495,    .00091,
     +     .00055,    .00316,    .00453,
     +     .25187,    .08166,    .04160,    .00475,    .00089,
     +     .00055,    .00303,    .00434,
     +     .24428,    .07896,    .03915,    .00457,    .00087,
     +     .00054,    .00291,    .00416,
     +     .23693,    .07637,    .03687,    .00439,    .00085,
     +     .00054,    .00280,    .00398,
     +     .22988,    .07389,    .03477,    .00423,    .00083,
     +     .00053,    .00269,    .00381,
     +     .22341,    .07163,    .03291,    .00408,    .00081,
     +     .00053,    .00259,    .00366,
     +     .21746,    .06954,    .03128,    .00395,    .00079,
     +     .00052,    .00251,    .00352 /
        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,    .02974,    .00382,    .00078,
     +     .00051,    .00242,    .00338,
     +     .20609,    .06557,    .02830,    .00369,    .00076,
     +     .00051,    .00234,    .00326,
     +     .20092,    .06377,    .02701,    .00357,    .00074,
     +     .00050,    .00226,    .00315,
     +     .19615,    .06212,    .02585,    .00346,    .00073,
     +     .00049,    .00219,    .00304,
     +     .19141,    .06050,    .02473,    .00335,    .00071,
     +     .00049,    .00213,    .00294 /
        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,    .27946,    .01219,    .00000,
     +     .00000,    .00710,    .01236,
     +     .58458,    .20549,    .25810,    .01164,    .00000,
     +     .00000,    .00684,    .01171,
     +     .55319,    .19281,    .22928,    .01088,    .00000,
     +     .00000,    .00644,    .01081,
     +     .53175,    .18428,    .21029,    .01040,    .00007,
     +     .00000,    .00618,    .01019,
     +     .51055,    .17589,    .19177,    .00989,    .00022,
     +     .00000,    .00591,    .00961,
     +     .49296,    .16900,    .17716,    .00950,    .00032,
     +     .00000,    .00568,    .00912,
     +     .47680,    .16270,    .16428,    .00911,    .00040,
     +     .00000,    .00547,    .00871,
     +     .46036,    .15633,    .15171,    .00871,    .00047,
     +     .00000,    .00525,    .00829 /
        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,    .00841,    .00052,
     +     .00000,    .00508,    .00791,
     +     .43368,    .14614,    .13258,    .00812,    .00056,
     +     .00000,    .00490,    .00758,
     +     .42382,    .14240,    .12587,    .00789,    .00059,
     +     .00000,    .00476,    .00734,
     +     .40371,    .13482,    .11266,    .00741,    .00064,
     +     .00002,    .00450,    .00685,
     +     .38735,    .12872,    .10241,    .00704,    .00067,
     +     .00009,    .00430,    .00645,
     +     .36992,    .12227,    .09214,    .00666,    .00070,
     +     .00017,    .00406,    .00605,
     +     .35274,    .11595,    .08270,    .00627,    .00071,
     +     .00022,    .00383,    .00566,
     +     .33794,    .11055,    .07511,    .00594,    .00072,
     +     .00026,    .00363,    .00533 /
        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,    .00564,    .00072,
     +     .00030,    .00344,    .00500,
     +     .31242,    .10134,    .06315,    .00539,    .00072,
     +     .00032,    .00331,    .00475,
     +     .29929,    .09663,    .05754,    .00510,    .00071,
     +     .00034,    .00313,    .00447,
     +     .28820,    .09268,    .05307,    .00486,    .00071,
     +     .00035,    .00297,    .00425,
     +     .27847,    .08924,    .04933,    .00464,    .00070,
     +     .00036,    .00284,    .00406,
     +     .26662,    .08506,    .04505,    .00438,    .00068,
     +     .00037,    .00270,    .00380,
     +     .25598,    .08133,    .04142,    .00416,    .00067,
     +     .00037,    .00257,    .00359,
     +     .24646,    .07801,    .03833,    .00397,    .00066,
     +     .00038,    .00245,    .00342 /
        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,    .00379,    .00064,
     +     .00038,    .00233,    .00322,
     +     .22868,    .07191,    .03304,    .00363,    .00062,
     +     .00038,    .00223,    .00304,
     +     .22089,    .06923,    .03086,    .00347,    .00061,
     +     .00037,    .00213,    .00290,
     +     .21377,    .06680,    .02898,    .00333,    .00060,
     +     .00037,    .00204,    .00278,
     +     .20690,    .06446,    .02723,    .00319,    .00058,
     +     .00037,    .00196,    .00266,
     +     .20034,    .06224,    .02564,    .00307,    .00057,
     +     .00036,    .00188,    .00254,
     +     .19435,    .06022,    .02422,    .00295,    .00055,
     +     .00036,    .00181,    .00244,
     +     .18884,    .05837,    .02298,    .00285,    .00054,
     +     .00035,    .00175,    .00234 /
        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,    .02181,    .00275,    .00053,
     +     .00035,    .00168,    .00225,
     +     .17833,    .05485,    .02072,    .00264,    .00051,
     +     .00034,    .00162,    .00216,
     +     .17356,    .05327,    .01974,    .00255,    .00050,
     +     .00034,    .00156,    .00207,
     +     .16917,    .05181,    .01886,    .00247,    .00049,
     +     .00033,    .00151,    .00200,
     +     .16481,    .05037,    .01803,    .00240,    .00048,
     +     .00033,    .00147,    .00194 /
        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,    .23571,    .00977,    .00000,
     +     .00000,    .00533,    .00872,
     +     .54512,    .18494,    .21589,    .00929,    .00000,
     +     .00000,    .00510,    .00824,
     +     .51345,    .17276,    .18959,    .00862,    .00000,
     +     .00000,    .00479,    .00757,
     +     .49194,    .16457,    .17249,    .00819,    .00005,
     +     .00000,    .00455,    .00712,
     +     .47075,    .15656,    .15612,    .00776,    .00016,
     +     .00000,    .00435,    .00671,
     +     .45326,    .15003,    .14331,    .00742,    .00023,
     +     .00000,    .00418,    .00635,
     +     .43724,    .14407,    .13211,    .00709,    .00029,
     +     .00000,    .00401,    .00604,
     +     .42100,    .13806,    .12127,    .00676,    .00034,
     +     .00000,    .00383,    .00574 /
        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,    .11265,    .00652,    .00037,
     +     .00000,    .00369,    .00546,
     +     .39478,    .12850,    .10498,    .00625,    .00040,
     +     .00000,    .00356,    .00522,
     +     .38515,    .12499,    .09933,    .00604,    .00042,
     +     .00000,    .00345,    .00505,
     +     .36549,    .11791,    .08830,    .00569,    .00046,
     +     .00002,    .00326,    .00468,
     +     .34961,    .11226,    .07978,    .00537,    .00048,
     +     .00006,    .00308,    .00441,
     +     .33278,    .10629,    .07134,    .00506,    .00049,
     +     .00012,    .00290,    .00412,
     +     .31625,    .10046,    .06366,    .00474,    .00050,
     +     .00016,    .00273,    .00383,
     +     .30207,    .09549,    .05752,    .00445,    .00050,
     +     .00018,    .00258,    .00360 /
        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,    .05203,    .00420,    .00050,
     +     .00021,    .00244,    .00339,
     +     .27773,    .08707,    .04795,    .00400,    .00050,
     +     .00022,    .00232,    .00322,
     +     .26528,    .08279,    .04351,    .00379,    .00049,
     +     .00023,    .00219,    .00300,
     +     .25479,    .07922,    .03999,    .00361,    .00049,
     +     .00024,    .00209,    .00283,
     +     .24558,    .07610,    .03705,    .00345,    .00048,
     +     .00025,    .00199,    .00269,
     +     .23443,    .07234,    .03370,    .00325,    .00047,
     +     .00025,    .00189,    .00253,
     +     .22447,    .06899,    .03088,    .00308,    .00046,
     +     .00026,    .00179,    .00238,
     +     .21560,    .06601,    .02850,    .00292,    .00045,
     +     .00026,    .00170,    .00224 /
        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,    .00278,    .00044,
     +     .00026,    .00161,    .00212,
     +     .19907,    .06056,    .02444,    .00266,    .00043,
     +     .00026,    .00154,    .00201,
     +     .19184,    .05818,    .02278,    .00254,    .00041,
     +     .00026,    .00147,    .00191,
     +     .18530,    .05602,    .02135,    .00243,    .00040,
     +     .00025,    .00141,    .00182,
     +     .17901,    .05395,    .02001,    .00232,    .00039,
     +     .00025,    .00136,    .00174,
     +     .17299,    .05200,    .01881,    .00222,    .00038,
     +     .00025,    .00129,    .00166,
     +     .16750,    .05024,    .01774,    .00212,    .00037,
     +     .00024,    .00124,    .00158,
     +     .16247,    .04860,    .01680,    .00204,    .00036,
     +     .00024,    .00119,    .00152 /
        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,    .00196,    .00036,
     +     .00024,    .00115,    .00146,
     +     .15288,    .04550,    .01510,    .00189,    .00035,
     +     .00023,    .00110,    .00141,
     +     .14853,    .04410,    .01437,    .00183,    .00034,
     +     .00023,    .00106,    .00135,
     +     .14454,    .04283,    .01371,    .00177,    .00033,
     +     .00023,    .00102,    .00131,
     +     .14062,    .04158,    .01309,    .00171,    .00032,
     +     .00022,    .00099,    .00126 /
        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,    .19639,    .00767,    .00000,
     +     .00000,    .00395,    .00606,
     +     .50324,    .16473,    .17840,    .00726,    .00000,
     +     .00000,    .00377,    .00570,
     +     .47178,    .15322,    .15489,    .00670,    .00000,
     +     .00000,    .00350,    .00520,
     +     .45057,    .14549,    .13983,    .00634,    .00004,
     +     .00000,    .00333,    .00487,
     +     .42973,    .13800,    .12560,    .00597,    .00011,
     +     .00000,    .00316,    .00456,
     +     .41262,    .13188,    .11460,    .00568,    .00016,
     +     .00000,    .00301,    .00433,
     +     .39697,    .12633,    .10505,    .00543,    .00020,
     +     .00000,    .00288,    .00410,
     +     .38114,    .12075,    .09588,    .00517,    .00024,
     +     .00000,    .00274,    .00386 /
        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,    .08865,    .00495,    .00026,
     +     .00000,    .00263,    .00368,
     +     .35578,    .11190,    .08224,    .00475,    .00028,
     +     .00000,    .00252,    .00352,
     +     .34647,    .10867,    .07753,    .00459,    .00029,
     +     .00000,    .00244,    .00340,
     +     .32767,    .10214,    .06845,    .00425,    .00032,
     +     .00001,    .00230,    .00315,
     +     .31248,    .09694,    .06152,    .00402,    .00033,
     +     .00004,    .00218,    .00295,
     +     .29640,    .09152,    .05470,    .00380,    .00034,
     +     .00008,    .00204,    .00273,
     +     .28071,    .08622,    .04854,    .00355,    .00034,
     +     .00011,    .00190,    .00254,
     +     .26731,    .08172,    .04365,    .00334,    .00035,
     +     .00013,    .00179,    .00238 /
        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,    .03930,    .00315,    .00035,
     +     .00014,    .00169,    .00222,
     +     .24441,    .07411,    .03610,    .00300,    .00034,
     +     .00015,    .00161,    .00210,
     +     .23279,    .07029,    .03261,    .00281,    .00034,
     +     .00016,    .00151,    .00196,
     +     .22303,    .06709,    .02987,    .00265,    .00033,
     +     .00017,    .00143,    .00185,
     +     .21449,    .06429,    .02760,    .00253,    .00033,
     +     .00017,    .00136,    .00176,
     +     .20415,    .06094,    .02502,    .00238,    .00032,
     +     .00017,    .00128,    .00164,
     +     .19496,    .05798,    .02286,    .00225,    .00031,
     +     .00018,    .00121,    .00154,
     +     .18678,    .05536,    .02104,    .00213,    .00030,
     +     .00018,    .00114,    .00145 /
        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,    .00201,    .00029,
     +     .00018,    .00108,    .00136,
     +     .17168,    .05053,    .01794,    .00191,    .00029,
     +     .00017,    .00103,    .00129,
     +     .16509,    .04842,    .01669,    .00181,    .00028,
     +     .00017,    .00099,    .00123,
     +     .15910,    .04655,    .01561,    .00174,    .00027,
     +     .00017,    .00094,    .00117,
     +     .15336,    .04475,    .01461,    .00167,    .00026,
     +     .00017,    .00090,    .00112,
     +     .14791,    .04305,    .01371,    .00160,    .00026,
     +     .00017,    .00085,    .00106,
     +     .14295,    .04150,    .01291,    .00153,    .00025,
     +     .00016,    .00081,    .00102,
     +     .13841,    .04008,    .01221,    .00147,    .00024,
     +     .00016,    .00079,    .00097 /
        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,    .00141,    .00024,
     +     .00016,    .00076,    .00092,
     +     .12978,    .03739,    .01094,    .00136,    .00023,
     +     .00016,    .00073,    .00088,
     +     .12589,    .03619,    .01040,    .00131,    .00022,
     +     .00015,    .00070,    .00084,
     +     .12232,    .03510,    .00991,    .00127,    .00022,
     +     .00015,    .00067,    .00081,
     +     .11881,    .03403,    .00945,    .00122,    .00021,
     +     .00015,    .00065,    .00078 /
        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,    .00582,    .00000,
     +     .00000,    .00292,    .00416,
     +     .45982,    .14514,    .14524,    .00550,    .00000,
     +     .00000,    .00276,    .00389,
     +     .42903,    .13437,    .12466,    .00504,    .00000,
     +     .00000,    .00255,    .00355,
     +     .40842,    .12720,    .11167,    .00474,    .00003,
     +     .00000,    .00240,    .00332,
     +     .38823,    .12026,    .09956,    .00447,    .00008,
     +     .00000,    .00228,    .00309,
     +     .37170,    .11463,    .09027,    .00424,    .00011,
     +     .00000,    .00217,    .00292,
     +     .35668,    .10952,    .08227,    .00401,    .00014,
     +     .00000,    .00207,    .00276,
     +     .34155,    .10439,    .07466,    .00379,    .00016,
     +     .00000,    .00197,    .00261 /
        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,    .06868,    .00362,    .00018,
     +     .00000,    .00188,    .00246,
     +     .31732,    .09630,    .06344,    .00347,    .00019,
     +     .00000,    .00181,    .00234,
     +     .30848,    .09336,    .05962,    .00335,    .00020,
     +     .00000,    .00175,    .00226,
     +     .29061,    .08746,    .05226,    .00311,    .00022,
     +     .00001,    .00162,    .00211,
     +     .27630,    .08276,    .04673,    .00291,    .00022,
     +     .00003,    .00153,    .00196,
     +     .26126,    .07785,    .04132,    .00270,    .00023,
     +     .00006,    .00143,    .00183,
     +     .24657,    .07309,    .03646,    .00252,    .00023,
     +     .00007,    .00134,    .00169,
     +     .23407,    .06907,    .03263,    .00236,    .00023,
     +     .00009,    .00126,    .00157 /
        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,    .02926,    .00220,    .00023,
     +     .00010,    .00118,    .00147,
     +     .21285,    .06230,    .02678,    .00211,    .00023,
     +     .00010,    .00112,    .00139,
     +     .20209,    .05891,    .02410,    .00197,    .00023,
     +     .00011,    .00105,    .00129,
     +     .19312,    .05609,    .02201,    .00185,    .00022,
     +     .00011,    .00100,    .00121,
     +     .18531,    .05364,    .02027,    .00174,    .00022,
     +     .00011,    .00094,    .00116,
     +     .17588,    .05068,    .01832,    .00164,    .00021,
     +     .00012,    .00089,    .00107,
     +     .16750,    .04808,    .01669,    .00154,    .00021,
     +     .00012,    .00084,    .00100,
     +     .16006,    .04579,    .01533,    .00145,    .00020,
     +     .00012,    .00079,    .00095 /
        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,    .01410,    .00138,    .00019,
     +     .00012,    .00074,    .00089,
     +     .14639,    .04160,    .01301,    .00130,    .00019,
     +     .00012,    .00070,    .00085,
     +     .14045,    .03980,    .01208,    .00124,    .00018,
     +     .00011,    .00067,    .00081,
     +     .13509,    .03817,    .01128,    .00118,    .00018,
     +     .00011,    .00064,    .00076,
     +     .12995,    .03662,    .01053,    .00112,    .00017,
     +     .00011,    .00061,    .00072,
     +     .12508,    .03515,    .00987,    .00107,    .00017,
     +     .00011,    .00058,    .00069,
     +     .12066,    .03382,    .00928,    .00102,    .00016,
     +     .00011,    .00056,    .00066,
     +     .11659,    .03261,    .00876,    .00099,    .00016,
     +     .00011,    .00053,    .00062 /
        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,    .00095,    .00015,
     +     .00010,    .00051,    .00059,
     +     .10892,    .03032,    .00783,    .00091,    .00015,
     +     .00010,    .00049,    .00057,
     +     .10550,    .02929,    .00743,    .00086,    .00015,
     +     .00010,    .00047,    .00056,
     +     .10236,    .02836,    .00708,    .00082,    .00014,
     +     .00010,    .00046,    .00054,
     +     .09927,    .02745,    .00674,    .00079,    .00014,
     +     .00010,    .00044,    .00052 /
        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,    .13027,    .00434,    .00000,
     +     .00000,    .00210,    .00279,
     +     .41572,    .12659,    .11640,    .00408,    .00000,
     +     .00000,    .00199,    .00261,
     +     .38607,    .11663,    .09873,    .00373,    .00000,
     +     .00000,    .00184,    .00235,
     +     .36629,    .11004,    .08778,    .00347,    .00002,
     +     .00000,    .00171,    .00221,
     +     .34704,    .10370,    .07768,    .00322,    .00005,
     +     .00000,    .00163,    .00205,
     +     .33131,    .09855,    .06998,    .00305,    .00007,
     +     .00000,    .00154,    .00194,
     +     .31705,    .09391,    .06343,    .00289,    .00009,
     +     .00000,    .00147,    .00183,
     +     .30275,    .08928,    .05724,    .00272,    .00011,
     +     .00000,    .00141,    .00171 /
        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,    .05242,    .00258,    .00012,
     +     .00000,    .00134,    .00163,
     +     .28001,    .08198,    .04821,    .00244,    .00013,
     +     .00000,    .00128,    .00155,
     +     .27175,    .07933,    .04515,    .00234,    .00013,
     +     .00000,    .00124,    .00149,
     +     .25503,    .07404,    .03933,    .00218,    .00014,
     +     .00001,    .00116,    .00139,
     +     .24171,    .06985,    .03498,    .00202,    .00015,
     +     .00002,    .00108,    .00130,
     +     .22777,    .06548,    .03076,    .00187,    .00015,
     +     .00004,    .00101,    .00120,
     +     .21422,    .06128,    .02701,    .00174,    .00015,
     +     .00005,    .00094,    .00110,
     +     .20271,    .05773,    .02408,    .00163,    .00015,
     +     .00006,    .00088,    .00103 /
        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,    .00152,    .00015,
     +     .00006,    .00083,    .00097,
     +     .18330,    .05178,    .01962,    .00144,    .00015,
     +     .00007,    .00078,    .00091,
     +     .17356,    .04881,    .01759,    .00133,    .00015,
     +     .00007,    .00074,    .00084,
     +     .16543,    .04635,    .01602,    .00124,    .00015,
     +     .00007,    .00070,    .00080,
     +     .15834,    .04422,    .01472,    .00117,    .00014,
     +     .00008,    .00066,    .00076,
     +     .14982,    .04168,    .01326,    .00110,    .00014,
     +     .00008,    .00062,    .00070,
     +     .14229,    .03943,    .01205,    .00103,    .00013,
     +     .00008,    .00058,    .00065,
     +     .13564,    .03746,    .01103,    .00096,    .00013,
     +     .00008,    .00056,    .00062 /
        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,    .00091,    .00013,
     +     .00008,    .00051,    .00058,
     +     .12341,    .03387,    .00933,    .00086,    .00012,
     +     .00008,    .00048,    .00055,
     +     .11814,    .03232,    .00865,    .00081,    .00012,
     +     .00008,    .00046,    .00051,
     +     .11339,    .03093,    .00806,    .00077,    .00012,
     +     .00007,    .00044,    .00049,
     +     .10885,    .02961,    .00752,    .00073,    .00011,
     +     .00007,    .00042,    .00047,
     +     .10455,    .02836,    .00703,    .00070,    .00011,
     +     .00007,    .00040,    .00044,
     +     .10066,    .02724,    .00660,    .00067,    .00011,
     +     .00007,    .00038,    .00041,
     +     .09709,    .02622,    .00623,    .00064,    .00010,
     +     .00007,    .00036,    .00040 /
        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,    .00588,    .00062,    .00010,
     +     .00007,    .00035,    .00038,
     +     .09039,    .02429,    .00555,    .00059,    .00010,
     +     .00007,    .00033,    .00037,
     +     .08740,    .02344,    .00527,    .00056,    .00009,
     +     .00007,    .00032,    .00036,
     +     .08466,    .02265,    .00501,    .00053,    .00009,
     +     .00006,    .00031,    .00034,
     +     .08197,    .02189,    .00476,    .00051,    .00009,
     +     .00006,    .00030,    .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,    .10357,    .00333,    .00000,
     +     .00000,    .00143,    .00176,
     +     .37189,    .10932,    .09181,    .00306,    .00000,
     +     .00000,    .00134,    .00165,
     +     .34373,    .10029,    .07709,    .00281,    .00000,
     +     .00000,    .00123,    .00148,
     +     .32506,    .09435,    .06804,    .00261,    .00001,
     +     .00000,    .00115,    .00140,
     +     .30693,    .08863,    .05978,    .00244,    .00003,
     +     .00000,    .00108,    .00127,
     +     .29225,    .08399,    .05358,    .00226,    .00005,
     +     .00000,    .00102,    .00120,
     +     .27896,    .07984,    .04833,    .00212,    .00006,
     +     .00000,    .00096,    .00114,
     +     .26562,    .07572,    .04338,    .00199,    .00007,
     +     .00000,    .00090,    .00108 /
        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,    .03955,    .00192,    .00008,
     +     .00000,    .00087,    .00101,
     +     .24450,    .06920,    .03624,    .00182,    .00008,
     +     .00000,    .00083,    .00095,
     +     .23685,    .06686,    .03384,    .00175,    .00009,
     +     .00000,    .00079,    .00092,
     +     .22149,    .06218,    .02931,    .00161,    .00009,
     +     .00000,    .00073,    .00085,
     +     .20930,    .05849,    .02594,    .00150,    .00010,
     +     .00001,    .00069,    .00078,
     +     .19656,    .05466,    .02271,    .00139,    .00010,
     +     .00003,    .00063,    .00071,
     +     .18424,    .05100,    .01986,    .00128,    .00010,
     +     .00003,    .00058,    .00065,
     +     .17385,    .04790,    .01764,    .00118,    .00010,
     +     .00004,    .00055,    .00061 /
        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,    .01570,    .00109,    .00010,
     +     .00004,    .00051,    .00057,
     +     .15634,    .04275,    .01428,    .00104,    .00010,
     +     .00005,    .00048,    .00053,
     +     .14757,    .04018,    .01277,    .00097,    .00010,
     +     .00005,    .00046,    .00049,
     +     .14030,    .03806,    .01160,    .00091,    .00009,
     +     .00005,    .00043,    .00047,
     +     .13399,    .03623,    .01063,    .00085,    .00009,
     +     .00005,    .00040,    .00045,
     +     .12641,    .03405,    .00955,    .00079,    .00009,
     +     .00005,    .00037,    .00042,
     +     .11973,    .03213,    .00866,    .00074,    .00009,
     +     .00005,    .00035,    .00039,
     +     .11385,    .03045,    .00792,    .00070,    .00008,
     +     .00005,    .00032,    .00037 /
        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,    .00030,    .00034,
     +     .10313,    .02739,    .00667,    .00061,    .00008,
     +     .00005,    .00028,    .00031,
     +     .09849,    .02609,    .00617,    .00058,    .00008,
     +     .00005,    .00027,    .00030,
     +     .09431,    .02493,    .00575,    .00056,    .00007,
     +     .00005,    .00025,    .00028,
     +     .09033,    .02382,    .00535,    .00054,    .00007,
     +     .00005,    .00024,    .00026,
     +     .08660,    .02277,    .00500,    .00051,    .00007,
     +     .00005,    .00023,    .00025,
     +     .08322,    .02182,    .00469,    .00048,    .00007,
     +     .00005,    .00022,    .00024,
     +     .08013,    .02097,    .00442,    .00047,    .00007,
     +     .00005,    .00021,    .00023 /
        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,    .00046,    .00006,
     +     .00004,    .00021,    .00021,
     +     .07433,    .01937,    .00393,    .00043,    .00006,
     +     .00004,    .00020,    .00020,
     +     .07175,    .01866,    .00373,    .00041,    .00006,
     +     .00004,    .00018,    .00019,
     +     .06940,    .01801,    .00354,    .00039,    .00006,
     +     .00004,    .00018,    .00019,
     +     .06710,    .01737,    .00337,    .00037,    .00006,
     +     .00004,    .00017,    .00018 /
        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,    .08050,    .00226,    .00000,
     +     .00000,    .00103,    .00121,
     +     .32866,    .09303,    .07081,    .00214,    .00000,
     +     .00000,    .00096,    .00108,
     +     .30236,    .08496,    .05881,    .00190,    .00000,
     +     .00000,    .00088,    .00098,
     +     .28496,    .07966,    .05157,    .00176,    .00001,
     +     .00000,    .00081,    .00091,
     +     .26818,    .07457,    .04502,    .00164,    .00002,
     +     .00000,    .00075,    .00083,
     +     .25461,    .07049,    .04011,    .00152,    .00003,
     +     .00000,    .00071,    .00079,
     +     .24234,    .06684,    .03599,    .00143,    .00004,
     +     .00000,    .00067,    .00074,
     +     .23007,    .06320,    .03215,    .00136,    .00005,
     +     .00000,    .00063,    .00068 /
        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,    .00128,    .00005,
     +     .00000,    .00060,    .00065,
     +     .21081,    .05750,    .02664,    .00122,    .00005,
     +     .00000,    .00057,    .00061,
     +     .20382,    .05547,    .02481,    .00119,    .00006,
     +     .00000,    .00055,    .00057,
     +     .18994,    .05140,    .02136,    .00106,    .00006,
     +     .00000,    .00049,    .00054,
     +     .17890,    .04821,    .01883,    .00099,    .00006,
     +     .00001,    .00046,    .00050,
     +     .16741,    .04491,    .01641,    .00092,    .00006,
     +     .00002,    .00042,    .00046,
     +     .15637,    .04173,    .01428,    .00084,    .00006,
     +     .00002,    .00038,    .00042,
     +     .14709,    .03907,    .01264,    .00077,    .00006,
     +     .00002,    .00036,    .00039 /
        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,    .00034,    .00036,
     +     .13151,    .03469,    .01018,    .00069,    .00006,
     +     .00003,    .00032,    .00033,
     +     .12375,    .03251,    .00907,    .00064,    .00006,
     +     .00003,    .00029,    .00031,
     +     .11733,    .03071,    .00822,    .00060,    .00006,
     +     .00003,    .00027,    .00029,
     +     .11177,    .02917,    .00753,    .00058,    .00006,
     +     .00003,    .00026,    .00028,
     +     .10514,    .02733,    .00675,    .00053,    .00006,
     +     .00003,    .00024,    .00025,
     +     .09932,    .02572,    .00611,    .00049,    .00005,
     +     .00003,    .00023,    .00023,
     +     .09421,    .02431,    .00557,    .00045,    .00005,
     +     .00003,    .00021,    .00022 /
        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,    .00042,    .00005,
     +     .00003,    .00019,    .00021,
     +     .08488,    .02177,    .00468,    .00040,    .00005,
     +     .00003,    .00018,    .00020,
     +     .08088,    .02068,    .00432,    .00038,    .00005,
     +     .00003,    .00017,    .00018,
     +     .07730,    .01971,    .00402,    .00036,    .00005,
     +     .00003,    .00016,    .00017,
     +     .07388,    .01880,    .00374,    .00035,    .00004,
     +     .00003,    .00016,    .00016,
     +     .07068,    .01793,    .00349,    .00033,    .00004,
     +     .00003,    .00015,    .00015,
     +     .06779,    .01715,    .00327,    .00031,    .00004,
     +     .00003,    .00014,    .00014,
     +     .06515,    .01645,    .00307,    .00029,    .00004,
     +     .00003,    .00013,    .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,    .00028,    .00004,
     +     .00003,    .00012,    .00013,
     +     .06022,    .01515,    .00273,    .00027,    .00004,
     +     .00003,    .00012,    .00012,
     +     .05803,    .01457,    .00258,    .00026,    .00004,
     +     .00003,    .00012,    .00011,
     +     .05603,    .01404,    .00245,    .00025,    .00004,
     +     .00003,    .00011,    .00011,
     +     .05408,    .01352,    .00233,    .00023,    .00003,
     +     .00003,    .00011,    .00010 /
        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,    .00152,    .00000,
     +     .00000,    .00071,    .00077,
     +     .28700,    .07820,    .05347,    .00142,    .00000,
     +     .00000,    .00066,    .00071,
     +     .26272,    .07108,    .04396,    .00127,    .00000,
     +     .00000,    .00059,    .00065,
     +     .24675,    .06642,    .03826,    .00118,    .00000,
     +     .00000,    .00055,    .00058,
     +     .23140,    .06198,    .03318,    .00110,    .00001,
     +     .00000,    .00051,    .00053,
     +     .21903,    .05842,    .02941,    .00102,    .00002,
     +     .00000,    .00048,    .00050,
     +     .20791,    .05523,    .02626,    .00095,    .00002,
     +     .00000,    .00045,    .00047,
     +     .19685,    .05208,    .02334,    .00089,    .00003,
     +     .00000,    .00043,    .00043 /
        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,    .02112,    .00084,    .00003,
     +     .00000,    .00040,    .00040,
     +     .17948,    .04717,    .01920,    .00079,    .00003,
     +     .00000,    .00038,    .00038,
     +     .17323,    .04542,    .01783,    .00076,    .00003,
     +     .00000,    .00037,    .00036,
     +     .16078,    .04193,    .01527,    .00068,    .00004,
     +     .00000,    .00033,    .00035,
     +     .15096,    .03919,    .01341,    .00063,    .00004,
     +     .00001,    .00030,    .00033,
     +     .14080,    .03637,    .01164,    .00057,    .00004,
     +     .00001,    .00028,    .00030,
     +     .13101,    .03369,    .01009,    .00053,    .00004,
     +     .00001,    .00027,    .00027,
     +     .12281,    .03145,    .00890,    .00049,    .00004,
     +     .00002,    .00024,    .00025 /
        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,    .00045,    .00004,
     +     .00002,    .00022,    .00023,
     +     .10919,    .02775,    .00713,    .00043,    .00004,
     +     .00002,    .00021,    .00021,
     +     .10244,    .02592,    .00634,    .00039,    .00004,
     +     .00002,    .00019,    .00020,
     +     .09686,    .02442,    .00574,    .00036,    .00004,
     +     .00002,    .00018,    .00019,
     +     .09203,    .02315,    .00524,    .00034,    .00004,
     +     .00002,    .00016,    .00017,
     +     .08631,    .02162,    .00469,    .00031,    .00003,
     +     .00002,    .00015,    .00016,
     +     .08128,    .02029,    .00423,    .00029,    .00003,
     +     .00002,    .00014,    .00015,
     +     .07687,    .01913,    .00386,    .00028,    .00003,
     +     .00002,    .00013,    .00014 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07274,    .01803,    .00352,    .00026,    .00003,
     +     .00002,    .00012,    .00014,
     +     .06893,    .01704,    .00323,    .00024,    .00003,
     +     .00002,    .00012,    .00013,
     +     .06552,    .01616,    .00298,    .00023,    .00003,
     +     .00002,    .00011,    .00011,
     +     .06247,    .01536,    .00277,    .00022,    .00003,
     +     .00002,    .00011,    .00010,
     +     .05958,    .01461,    .00257,    .00021,    .00003,
     +     .00002,    .00010,    .00010,
     +     .05687,    .01391,    .00240,    .00020,    .00003,
     +     .00002,    .00010,    .00010,
     +     .05443,    .01328,    .00224,    .00019,    .00003,
     +     .00002,    .00009,    .00009,
     +     .05222,    .01271,    .00211,    .00018,    .00002,
     +     .00002,    .00009,    .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,    .00009,    .00008,
     +     .04808,    .01166,    .00187,    .00016,    .00002,
     +     .00002,    .00008,    .00008,
     +     .04626,    .01119,    .00177,    .00015,    .00002,
     +     .00002,    .00007,    .00007,
     +     .04459,    .01077,    .00168,    .00014,    .00002,
     +     .00002,    .00007,    .00007,
     +     .04296,    .01035,    .00159,    .00014,    .00002,
     +     .00002,    .00007,    .00006 /
        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,    .04560,    .00109,    .00000,
     +     .00000,    .00044,    .00046,
     +     .24749,    .06498,    .03952,    .00100,    .00000,
     +     .00000,    .00040,    .00042,
     +     .22540,    .05878,    .03218,    .00091,    .00000,
     +     .00000,    .00036,    .00037,
     +     .21102,    .05475,    .02781,    .00081,    .00000,
     +     .00000,    .00032,    .00034,
     +     .19718,    .05090,    .02399,    .00074,    .00001,
     +     .00000,    .00030,    .00032,
     +     .18609,    .04785,    .02116,    .00069,    .00001,
     +     .00000,    .00029,    .00029,
     +     .17615,    .04513,    .01881,    .00066,    .00001,
     +     .00000,    .00028,    .00026,
     +     .16629,    .04243,    .01665,    .00062,    .00002,
     +     .00000,    .00027,    .00024 /
        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,    .00057,    .00002,
     +     .00000,    .00024,    .00023,
     +     .15088,    .03824,    .01361,    .00054,    .00002,
     +     .00000,    .00022,    .00022,
     +     .14536,    .03676,    .01261,    .00052,    .00002,
     +     .00000,    .00021,    .00021,
     +     .13440,    .03379,    .01075,    .00047,    .00002,
     +     .00000,    .00020,    .00019,
     +     .12579,    .03149,    .00941,    .00042,    .00002,
     +     .00000,    .00018,    .00018,
     +     .11689,    .02913,    .00814,    .00039,    .00002,
     +     .00001,    .00016,    .00017,
     +     .10838,    .02688,    .00703,    .00036,    .00002,
     +     .00001,    .00015,    .00016,
     +     .10128,    .02502,    .00619,    .00034,    .00002,
     +     .00001,    .00013,    .00014 /
        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,    .00012,
     +     .08951,    .02195,    .00493,    .00029,    .00002,
     +     .00001,    .00012,    .00013,
     +     .08371,    .02044,    .00438,    .00027,    .00002,
     +     .00001,    .00011,    .00011,
     +     .07893,    .01921,    .00396,    .00025,    .00002,
     +     .00001,    .00010,    .00010,
     +     .07481,    .01816,    .00361,    .00025,    .00002,
     +     .00001,    .00010,    .00009,
     +     .06995,    .01691,    .00323,    .00021,    .00002,
     +     .00001,    .00009,    .00008,
     +     .06568,    .01582,    .00291,    .00020,    .00002,
     +     .00001,    .00008,    .00008,
     +     .06195,    .01488,    .00265,    .00020,    .00002,
     +     .00001,    .00007,    .00007 /
        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,    .00007,    .00007,
     +     .05525,    .01319,    .00221,    .00017,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05240,    .01248,    .00204,    .00016,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04986,    .01184,    .00189,    .00015,    .00002,
     +     .00001,    .00006,    .00005,
     +     .04746,    .01123,    .00175,    .00013,    .00002,
     +     .00001,    .00005,    .00005,
     +     .04521,    .01067,    .00163,    .00013,    .00002,
     +     .00001,    .00005,    .00005,
     +     .04318,    .01017,    .00153,    .00012,    .00002,
     +     .00001,    .00005,    .00005,
     +     .04135,    .00972,    .00143,    .00011,    .00001,
     +     .00001,    .00005,    .00005 /
        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,    .00004,
     +     .03793,    .00888,    .00127,    .00010,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03641,    .00851,    .00120,    .00010,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03504,    .00817,    .00114,    .00010,    .00001,
     +     .00001,    .00004,    .00003,
     +     .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,    .00067,    .00000,
     +     .00000,    .00031,    .00031,
     +     .21015,    .05302,    .02835,    .00061,    .00000,
     +     .00000,    .00029,    .00027,
     +     .19048,    .04771,    .02286,    .00052,    .00000,
     +     .00000,    .00025,    .00025,
     +     .17763,    .04428,    .01964,    .00049,    .00000,
     +     .00000,    .00023,    .00024,
     +     .16544,    .04103,    .01683,    .00042,    .00000,
     +     .00000,    .00022,    .00020,
     +     .15564,    .03844,    .01479,    .00040,    .00001,
     +     .00000,    .00020,    .00019,
     +     .14688,    .03615,    .01309,    .00038,    .00001,
     +     .00000,    .00019,    .00018,
     +     .13822,    .03389,    .01154,    .00036,    .00001,
     +     .00000,    .00018,    .00016 /
        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,    .00016,    .00015,
     +     .12481,    .03040,    .00937,    .00030,    .00001,
     +     .00000,    .00015,    .00014,
     +     .12001,    .02916,    .00866,    .00028,    .00001,
     +     .00000,    .00014,    .00013,
     +     .11048,    .02670,    .00736,    .00026,    .00001,
     +     .00000,    .00012,    .00014,
     +     .10304,    .02480,    .00642,    .00024,    .00001,
     +     .00000,    .00011,    .00012,
     +     .09540,    .02286,    .00554,    .00022,    .00001,
     +     .00000,    .00011,    .00010,
     +     .08812,    .02102,    .00477,    .00020,    .00001,
     +     .00001,    .00010,    .00010,
     +     .08206,    .01949,    .00419,    .00019,    .00001,
     +     .00001,    .00009,    .00009 /
        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,    .00017,    .00001,
     +     .00001,    .00009,    .00008,
     +     .07209,    .01699,    .00333,    .00016,    .00001,
     +     .00001,    .00008,    .00008,
     +     .06719,    .01578,    .00295,    .00014,    .00001,
     +     .00001,    .00007,    .00007,
     +     .06317,    .01478,    .00266,    .00013,    .00001,
     +     .00001,    .00007,    .00006,
     +     .05973,    .01394,    .00242,    .00013,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05566,    .01294,    .00216,    .00011,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05211,    .01207,    .00195,    .00010,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04900,    .01132,    .00177,    .00010,    .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,    .00009,    .00001,
     +     .00001,    .00004,    .00005,
     +     .04348,    .00998,    .00148,    .00008,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04113,    .00942,    .00136,    .00008,    .00001,
     +     .00001,    .00004,    .00003,
     +     .03905,    .00891,    .00126,    .00007,    .00001,
     +     .00001,    .00004,    .00003,
     +     .03708,    .00844,    .00117,    .00007,    .00001,
     +     .00001,    .00004,    .00003,
     +     .03523,    .00800,    .00108,    .00006,    .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,    .00003,    .00003,
     +     .02699,    .00605,    .00075,    .00005,    .00001,
     +     .00001,    .00002,    .00003,
     +     .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,    .01339,    .00024,    .00000,
     +     .00000,    .00009,    .00011,
     +     .12965,    .02995,    .01061,    .00021,    .00000,
     +     .00000,    .00009,    .00007,
     +     .12000,    .02759,    .00902,    .00019,    .00000,
     +     .00000,    .00008,    .00007,
     +     .11089,    .02536,    .00765,    .00017,    .00000,
     +     .00000,    .00008,    .00007,
     +     .10365,    .02362,    .00667,    .00016,    .00000,
     +     .00000,    .00007,    .00006,
     +     .09723,    .02208,    .00587,    .00015,    .00000,
     +     .00000,    .00006,    .00005,
     +     .09094,    .02056,    .00514,    .00013,    .00000,
     +     .00000,    .00005,    .00005 /
        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,    .00005,    .00005,
     +     .08123,    .01824,    .00414,    .00011,    .00000,
     +     .00000,    .00005,    .00004,
     +     .07779,    .01743,    .00381,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .07100,    .01583,    .00322,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .06576,    .01460,    .00279,    .00008,    .00000,
     +     .00000,    .00004,    .00004,
     +     .06041,    .01335,    .00240,    .00008,    .00000,
     +     .00000,    .00004,    .00003,
     +     .05536,    .01218,    .00206,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05118,    .01122,    .00181,    .00006,    .00000,
     +     .00000,    .00003,    .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,    .00003,    .00002,
     +     .04439,    .00966,    .00143,    .00005,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04109,    .00891,    .00127,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03840,    .00829,    .00114,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03611,    .00778,    .00104,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03341,    .00717,    .00092,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03109,    .00665,    .00083,    .00003,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02907,    .00620,    .00075,    .00003,    .00000,
     +     .00000,    .00002,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02719,    .00578,    .00068,    .00003,    .00000,
     +     .00000,    .00001,    .00002,
     +     .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,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01582,    .00328,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01514,    .00314,    .00031,    .00001,    .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,    .00010,    .00000,
     +     .00000,    .00003,    .00002,
     +     .09193,    .01955,    .00545,    .00008,    .00000,
     +     .00000,    .00003,    .00002,
     +     .08146,    .01721,    .00427,    .00007,    .00000,
     +     .00000,    .00002,    .00002,
     +     .07479,    .01573,    .00360,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .06853,    .01435,    .00303,    .00006,    .00000,
     +     .00000,    .00001,    .00002,
     +     .06362,    .01326,    .00263,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05928,    .01231,    .00231,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05504,    .01140,    .00202,    .00005,    .00000,
     +     .00000,    .00002,    .00001 /
        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,    .00002,    .00001,
     +     .04861,    .01000,    .00161,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04635,    .00951,    .00149,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04191,    .00856,    .00125,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03852,    .00784,    .00109,    .00003,    .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,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02502,    .00499,    .00055,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02298,    .00456,    .00049,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02133,    .00423,    .00044,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01994,    .00394,    .00040,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01832,    .00360,    .00036,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01693,    .00332,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01573,    .00307,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .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,    .00001,    .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,    .00001,
     +     .05263,    .01013,    .00183,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04605,    .00880,    .00143,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04188,    .00798,    .00120,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03803,    .00721,    .00101,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03502,    .00661,    .00088,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03239,    .00609,    .00077,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .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,    .00000,    .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='cor08.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