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

sfmsr3.F

#include "pdf/pilot.h"
      SUBROUTINE SFMSR3(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)
#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)/
     +     .00181,    .00812,   5.27909,    .39654,    .00527,
     +     .00000,    .24132,    .40023,
     +     .00195,    .00822,   7.12456,    .49402,    .01190,
     +     .00000,    .32619,    .49790,
     +     .00217,    .00836,  10.57419,    .66665,    .02856,
     +     .00000,    .47709,    .67082,
     +     .00233,    .00846,  13.61452,    .81163,    .04836,
     +     .00000,    .60458,    .81600,
     +     .00250,    .00857,  17.36051,    .98262,    .07986,
     +     .00000,    .75604,    .98720,
     +     .00265,    .00867,  21.08157,   1.14528,    .11947,
     +     .00000,    .90147,   1.15004,
     +     .00279,    .00876,  24.99563,   1.31014,    .17161,
     +     .00000,   1.05055,   1.31506,
     +     .00295,    .00885,  29.70444,   1.49966,    .24790,
     +     .00000,   1.22424,   1.50477 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00309,    .00894,  34.23644,   1.67394,    .33612,
     +     .00000,   1.38652,   1.67920,
     +     .00322,    .00902,  38.95601,   1.84752,    .44424,
     +     .00000,   1.55103,   1.85292,
     +     .00333,    .00909,  43.03690,   1.99133,    .54927,
     +     .00000,   1.68952,   1.99685,
     +     .00356,    .00923,  52.53155,   2.30654,    .83554,
     +     .00000,   2.00107,   2.31231,
     +     .00376,    .00935,  61.68782,   2.58972,   1.15606,
     +     .09099,   2.28998,   2.59569,
     +     .00399,    .00949,  73.05939,   2.92276,   1.59395,
     +     .37809,   2.63844,   2.92897,
     +     .00423,    .00963,  86.18669,   3.29491,   2.12634,
     +     .84202,   3.03393,   3.30135,
     +     .00445,    .00976,  99.33523,   3.66565,   2.66311,
     +    1.27190,   3.42879,   3.67230 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00468,    .00989, 113.65236,   4.07492,   3.23860,
     +    1.74723,   3.86220,   4.08178,
     +     .00487,    .01001, 126.45562,   4.44831,   3.73674,
     +    2.17069,   4.25375,   4.45534,
     +     .00510,    .01014, 143.20030,   4.94743,   4.36328,
     +    2.72302,   4.77146,   4.95467,
     +     .00531,    .01027, 159.00716,   5.42958,   4.93471,
     +    3.24542,   5.26670,   5.43699,
     +     .00551,    .01038, 174.33850,   5.90585,   5.47449,
     +    3.75311,   5.75236,   5.91343,
     +     .00576,    .01052, 195.13324,   6.56158,   6.18897,
     +    4.44215,   6.41687,   6.56936,
     +     .00600,    .01066, 215.83704,   7.22488,   6.88996,
     +    5.13149,   7.08592,   7.23285,
     +     .00622,    .01079, 236.30779,   7.88854,   7.57745,
     +    5.81602,   7.75332,   7.89669 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00645,    .01092, 258.03711,   8.59829,   8.30306,
     +    6.54410,   8.46566,   8.60661,
     +     .00668,    .01105, 280.07166,   9.32647,   9.04143,
     +    7.28852,   9.19561,   9.33495,
     +     .00689,    .01117, 302.05710,  10.05711,   9.77840,
     +    8.03338,   9.92746,  10.06575,
     +     .00710,    .01129, 323.52747,  10.77651,  10.50179,
     +    8.76546,  10.64771,  10.78530,
     +     .00731,    .01140, 345.98718,  11.53366,  11.26167,
     +    9.53483,  11.40552,  11.54259,
     +     .00752,    .01152, 368.83710,  12.30959,  12.03945,
     +   10.32240,  12.18198,  12.31866,
     +     .00772,    .01163, 391.34692,  13.07860,  12.80974,
     +   11.10222,  12.95143,  13.08781,
     +     .00791,    .01174, 413.20798,  13.83107,  13.56313,
     +   11.86472,  13.70427,  13.84041 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .00810,    .01185, 436.11215,  14.62262,  14.35542,
     +   12.66621,  14.49615,  14.63207,
     +     .00829,    .01196, 459.03943,  15.42278,  15.15621,
     +   13.47608,  15.29664,  15.43236,
     +     .00848,    .01206, 481.84677,  16.22064,  15.95459,
     +   14.28307,  16.09479,  16.23034,
     +     .00866,    .01216, 503.66721,  16.99164,  16.72605,
     +   15.06266,  16.86606,  17.00144,
     +     .00884,    .01226, 526.42731,  17.79917,  17.53402,
     +   15.87879,  17.67386,  17.80908 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00338,    .00992,   4.91741,    .37634,    .00469,
     +     .00000,    .22583,    .37954,
     +     .00358,    .01005,   6.51432,    .46146,    .01049,
     +     .00000,    .29993,    .46480,
     +     .00389,    .01024,   9.43951,    .60959,    .02488,
     +     .00000,    .42941,    .61313,
     +     .00411,    .01038,  11.97122,    .73207,    .04179,
     +     .00000,    .53714,    .73576,
     +     .00435,    .01053,  15.04561,    .87472,    .06843,
     +     .00000,    .66355,    .87855,
     +     .00456,    .01066,  18.06043,   1.00888,    .10166,
     +     .00000,    .78359,   1.01285,
     +     .00476,    .01078,  21.19655,   1.14356,    .14509,
     +     .00000,    .90550,   1.14764,
     +     .00498,    .01092,  24.92996,   1.29687,    .20819,
     +     .00000,   1.04622,   1.30109 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00517,    .01103,  28.48827,   1.43656,    .28068,
     +     .00000,   1.17655,   1.44089,
     +     .00536,    .01114,  32.16159,   1.57454,    .36899,
     +     .00000,   1.30768,   1.57897,
     +     .00551,    .01123,  35.31519,   1.68803,    .45432,
     +     .00000,   1.41733,   1.69255,
     +     .00583,    .01142,  42.57883,   1.93432,    .68518,
     +     .00000,   1.66180,   1.93901,
     +     .00611,    .01158,  49.50037,   2.15291,    .94124,
     +     .07107,   1.88608,   2.15775,
     +     .00642,    .01177,  58.00080,   2.40727,   1.28768,
     +     .29367,   2.15396,   2.41227,
     +     .00675,    .01196,  67.70041,   2.68870,   1.70430,
     +     .65107,   2.45508,   2.69388,
     +     .00706,    .01214,  77.31176,   2.96691,   2.11970,
     +     .97885,   2.75323,   2.97224 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .00737,    .01231,  87.67051,   3.27205,   2.56025,
     +    1.33835,   3.07804,   3.27753,
     +     .00764,    .01246,  96.85213,   3.54895,   2.93775,
     +    1.65623,   3.36959,   3.55455,
     +     .00796,    .01265, 108.75803,   3.91717,   3.40782,
     +    2.06782,   3.75269,   3.92292,
     +     .00825,    .01281, 119.89780,   4.27086,   3.83231,
     +    2.45424,   4.11678,   4.27674,
     +     .00851,    .01296, 130.61877,   4.61841,   4.22988,
     +    2.82735,   4.47174,   4.62441,
     +     .00886,    .01315, 145.04549,   5.09421,   4.75166,
     +    3.33029,   4.95443,   5.10036,
     +     .00918,    .01333, 159.28316,   5.57238,   5.25914,
     +    3.82977,   5.43708,   5.57866,
     +     .00949,    .01350, 173.24875,   6.04788,   5.75310,
     +    4.32245,   5.91550,   6.05429 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .00980,    .01367, 187.96776,   6.55350,   6.27095,
     +    4.84325,   6.42315,   6.56003,
     +     .01011,    .01384, 202.77763,   7.06910,   6.79439,
     +    5.37238,   6.94013,   7.07575,
     +     .01040,    .01400, 217.45914,   7.58367,   7.31385,
     +    5.89884,   7.45565,   7.59044,
     +     .01068,    .01416, 231.70259,   8.08765,   7.82092,
     +    6.41347,   7.96030,   8.09453,
     +     .01096,    .01431, 246.51384,   8.61545,   8.35085,
     +    6.95155,   8.48864,   8.62243,
     +     .01124,    .01446, 261.49130,   9.15367,   8.89054,
     +    7.49959,   9.02730,   9.16075,
     +     .01151,    .01461, 276.16351,   9.68461,   9.42251,
     +    8.03964,   9.55860,   9.69179,
     +     .01177,    .01475, 290.33359,  10.20180,   9.94046,
     +    8.56530,  10.07609,  10.20907 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01203,    .01489, 305.11035,  10.74365,  10.48295,
     +    9.11556,  10.61824,  10.75102,
     +     .01229,    .01503, 319.81696,  11.28892,  11.02875,
     +    9.66903,  11.16378,  11.29637,
     +     .01254,    .01516, 334.38739,  11.83066,  11.57096,
     +   10.21849,  11.70578,  11.83820,
     +     .01278,    .01529, 348.25162,  12.35195,  12.09266,
     +   10.74703,  12.22729,  12.35956,
     +     .01302,    .01542, 362.65506,  12.89605,  12.63716,
     +   11.29839,  12.77163,  12.90375 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00569,    .01212,   4.57920,    .35682,    .00415,
     +     .00000,    .21116,    .35970,
     +     .00598,    .01229,   5.95461,    .43071,    .00920,
     +     .00000,    .27549,    .43369,
     +     .00641,    .01256,   8.42400,    .55713,    .02157,
     +     .00000,    .38600,    .56024,
     +     .00673,    .01275,  10.52289,    .66007,    .03593,
     +     .00000,    .47657,    .66328,
     +     .00707,    .01295,  13.03500,    .77847,    .05836,
     +     .00000,    .58155,    .78179,
     +     .00736,    .01312,  15.46686,    .88859,    .08611,
     +     .00000,    .68015,    .89199,
     +     .00765,    .01329,  17.96841,    .99809,    .12214,
     +     .00000,    .77938,   1.00157,
     +     .00795,    .01346,  20.91508,   1.12151,    .17412,
     +     .00000,    .89284,   1.12509 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .00822,    .01362,  23.69610,   1.23293,    .23345,
     +     .00000,    .99704,   1.23659,
     +     .00848,    .01377,  26.54173,   1.34208,    .30533,
     +     .00000,   1.10105,   1.34580,
     +     .00869,    .01388,  28.96725,   1.43119,    .37440,
     +     .00000,   1.18746,   1.43497,
     +     .00913,    .01414,  34.49726,   1.62262,    .55992,
     +     .00000,   1.37838,   1.62653,
     +     .00952,    .01436,  39.70349,   1.79044,    .76379,
     +     .05528,   1.55163,   1.79445,
     +     .00996,    .01460,  46.02521,   1.98358,   1.03697,
     +     .22722,   1.75652,   1.98771,
     +     .01042,    .01486,  53.15448,   2.19518,   1.36193,
     +     .50151,   1.98463,   2.19942,
     +     .01084,    .01509,  60.14214,   2.40274,   1.68236,
     +     .75047,   2.20860,   2.40709 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01127,    .01533,  67.59483,   2.62894,   2.01845,
     +    1.02132,   2.45078,   2.63339,
     +     .01164,    .01553,  74.14125,   2.83315,   2.30351,
     +    1.25900,   2.66676,   2.83769,
     +     .01208,    .01577,  82.55676,   3.10332,   2.65487,
     +    1.56448,   2.94881,   3.10796,
     +     .01247,    .01599,  90.35958,   3.36139,   2.96893,
     +    1.84916,   3.21513,   3.36613,
     +     .01284,    .01619,  97.80978,   3.61368,   3.26052,
     +    2.12222,   3.47325,   3.61850,
     +     .01331,    .01644, 107.75464,   3.95711,   3.63987,
     +    2.48780,   3.82209,   3.96204,
     +     .01375,    .01668, 117.48080,   4.30000,   4.00553,
     +    2.84815,   4.16849,   4.30502,
     +     .01417,    .01690, 126.94347,   4.63890,   4.35870,
     +    3.20121,   4.50966,   4.64401 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01459,    .01713, 136.84468,   4.99718,   4.72643,
     +    3.57210,   4.86953,   5.00239,
     +     .01501,    .01735, 146.72690,   5.36029,   5.09559,
     +    3.94649,   5.23372,   5.36558,
     +     .01541,    .01756, 156.45908,   5.72072,   5.45980,
     +    4.31688,   5.59491,   5.72609,
     +     .01578,    .01776, 165.83707,   6.07182,   5.81332,
     +    4.67694,   5.94655,   6.07727,
     +     .01617,    .01796, 175.52916,   6.43768,   6.18086,
     +    5.05147,   6.31285,   6.44321,
     +     .01655,    .01816, 185.26892,   6.80889,   6.55326,
     +    5.43096,   6.68442,   6.81449,
     +     .01691,    .01835, 194.75537,   7.17336,   6.91858,
     +    5.80313,   7.04920,   7.17903,
     +     .01725,    .01853, 203.86455,   7.52675,   7.27262,
     +    6.16369,   7.40285,   7.53248 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .01760,    .01872, 213.31870,   7.89551,   7.64192,
     +    6.53955,   7.77185,   7.90130,
     +     .01795,    .01890, 222.67049,   8.26483,   8.01172,
     +    6.91580,   8.14141,   8.27069,
     +     .01829,    .01907, 231.89812,   8.63046,   8.37778,
     +    7.28796,   8.50727,   8.63639,
     +     .01861,    .01924, 240.62798,   8.98073,   8.72843,
     +    7.64437,   8.85774,   8.98672,
     +     .01893,    .01941, 249.66026,   9.34507,   9.09313,
     +    8.01485,   9.22228,   9.35111 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .00750,    .01363,   4.39120,    .34565,    .00385,
     +     .00000,    .20294,    .34844,
     +     .00785,    .01384,   5.64839,    .41346,    .00850,
     +     .00000,    .26198,    .41633,
     +     .00839,    .01415,   7.87936,    .52834,    .01979,
     +     .00000,    .36242,    .53131,
     +     .00878,    .01438,   9.75570,    .62107,    .03281,
     +     .00000,    .44402,    .62413,
     +     .00919,    .01461,  11.98249,    .72696,    .05304,
     +     .00000,    .53795,    .73010,
     +     .00955,    .01482,  14.12187,    .82480,    .07796,
     +     .00000,    .62560,    .82802,
     +     .00990,    .01501,  16.30813,    .92156,    .11019,
     +     .00000,    .71335,    .92484,
     +     .01027,    .01522,  18.86746,   1.03000,    .15649,
     +     .00000,    .81314,   1.03335 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01060,    .01541,  21.26897,   1.12736,    .20915,
     +     .00000,    .90431,   1.13078,
     +     .01091,    .01558,  23.71345,   1.22226,    .27273,
     +     .00000,    .99492,   1.22574,
     +     .01117,    .01572,  25.78827,   1.29941,    .33365,
     +     .00000,   1.06990,   1.30293,
     +     .01171,    .01602,  30.49025,   1.46414,    .49658,
     +     .00000,   1.23467,   1.46776,
     +     .01218,    .01628,  34.88533,   1.60749,    .67466,
     +     .04763,   1.38324,   1.61119,
     +     .01271,    .01658,  40.18642,   1.77140,    .91195,
     +     .19515,   1.55792,   1.77519,
     +     .01327,    .01688,  46.12313,   1.94991,   1.19243,
     +     .42960,   1.75129,   1.95380,
     +     .01378,    .01716,  51.90438,   2.12423,   1.46720,
     +     .64113,   1.94022,   2.12821 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01430,    .01744,  58.03203,   2.31349,   1.75354,
     +     .87014,   2.14362,   2.31756,
     +     .01474,    .01767,  63.38569,   2.48386,   1.99492,
     +    1.07021,   2.32434,   2.48799,
     +     .01527,    .01795,  70.23249,   2.70860,   2.29065,
     +    1.32625,   2.55948,   2.71282,
     +     .01574,    .01821,  76.54660,   2.92259,   2.55337,
     +    1.56380,   2.78065,   2.92689,
     +     .01618,    .01844,  82.54676,   3.13115,   2.79603,
     +    1.79078,   2.99429,   3.13552,
     +     .01674,    .01874,  90.51768,   3.41413,   3.11007,
     +    2.09342,   3.28196,   3.41859,
     +     .01728,    .01902,  98.27114,   3.69559,   3.41115,
     +    2.39044,   3.56646,   3.70013,
     +     .01778,    .01928, 105.77780,   3.97275,   3.70060,
     +    2.68027,   3.84559,   3.97737 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .01829,    .01954, 113.59856,   4.26480,   4.00076,
     +    2.98362,   4.13901,   4.26948,
     +     .01878,    .01981, 121.36631,   4.55967,   4.30085,
     +    3.28866,   4.43484,   4.56443,
     +     .01926,    .02005, 128.98602,   4.85144,   4.59589,
     +    3.58942,   4.72728,   4.85627,
     +     .01971,    .02029, 136.29825,   5.13476,   4.88130,
     +    3.88084,   5.01108,   5.13965,
     +     .02017,    .02052, 143.82784,   5.42911,   5.17713,
     +    4.18303,   5.30582,   5.43406,
     +     .02062,    .02075, 151.36583,   5.72686,   5.47594,
     +    4.48830,   5.60390,   5.73188,
     +     .02105,    .02098, 158.68253,   6.01839,   5.76825,
     +    4.78681,   5.89571,   6.02347,
     +     .02146,    .02119, 165.68356,   6.30027,   6.05073,
     +    5.07520,   6.17784,   6.30541 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02188,    .02140, 172.92900,   6.59372,   6.34469,
     +    5.37509,   6.47152,   6.59891,
     +     .02229,    .02161, 180.06946,   6.88678,   6.63821,
     +    5.67444,   6.76480,   6.89202,
     +     .02269,    .02182, 187.09830,   7.17631,   6.92814,
     +    5.96989,   7.05453,   7.18161,
     +     .02307,    .02201, 193.72414,   7.45293,   7.20513,
     +    6.25209,   7.33135,   7.45828,
     +     .02345,    .02221, 200.56261,   7.74007,   7.49263,
     +    6.54480,   7.61868,   7.74547 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .00904,    .01482,   4.26181,    .33781,    .00364,
     +     .00000,    .19727,    .34059,
     +     .00946,    .01505,   5.43980,    .40151,    .00802,
     +     .00000,    .25273,    .40436,
     +     .01007,    .01541,   7.51308,    .50868,    .01859,
     +     .00000,    .34645,    .51163,
     +     .01052,    .01566,   9.24382,    .59466,    .03072,
     +     .00000,    .42213,    .59768,
     +     .01100,    .01593,  11.28548,    .69236,    .04950,
     +     .00000,    .50881,    .69545,
     +     .01142,    .01616,  13.23647,    .78221,    .07256,
     +     .00000,    .58934,    .78536,
     +     .01182,    .01638,  15.22087,    .87072,    .10230,
     +     .00000,    .66965,    .87393,
     +     .01224,    .01662,  17.53363,    .96950,    .14491,
     +     .00000,    .76063,    .97278 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01262,    .01682,  19.69483,   1.05786,    .19324,
     +     .00000,    .84345,   1.06119,
     +     .01298,    .01702,  21.88651,   1.14368,    .25146,
     +     .00000,    .92551,   1.14706,
     +     .01327,    .01718,  23.74113,   1.21323,    .30713,
     +     .00000,    .99321,   1.21665,
     +     .01390,    .01752,  27.92602,   1.36108,    .45556,
     +     .00000,   1.14144,   1.36460,
     +     .01444,    .01781,  31.81774,   1.48907,    .61718,
     +     .04280,   1.27448,   1.49266,
     +     .01505,    .01814,  36.48919,   1.63473,    .83170,
     +     .17499,   1.43025,   1.63840,
     +     .01568,    .01848,  41.69471,   1.79270,   1.08412,
     +     .38452,   1.60199,   1.79645,
     +     .01627,    .01879,  46.74041,   1.94646,   1.33025,
     +     .57274,   1.76920,   1.95029 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .01686,    .01911,  52.06445,   2.11297,   1.58556,
     +     .77583,   1.94864,   2.11688,
     +     .01736,    .01937,  56.69813,   2.26254,   1.79985,
     +     .95269,   2.10766,   2.26651,
     +     .01797,    .01969,  62.60219,   2.45945,   2.06124,
     +    1.17832,   2.31403,   2.46350,
     +     .01851,    .01997,  68.02569,   2.64652,   2.29245,
     +    1.38700,   2.50762,   2.65064,
     +     .01901,    .02023,  73.16195,   2.82846,   2.50519,
     +    1.58585,   2.69415,   2.83264,
     +     .01965,    .02056,  79.96172,   3.07475,   2.77947,
     +    1.85021,   2.94468,   3.07900,
     +     .02026,    .02088,  86.55009,   3.31904,   3.04142,
     +    2.10884,   3.19172,   3.32337,
     +     .02083,    .02117,  92.90620,   3.55898,   3.29240,
     +    2.36049,   3.43345,   3.56338 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02140,    .02147,  99.50779,   3.81119,   3.55192,
     +    2.62319,   3.68691,   3.81566,
     +     .02197,    .02176, 106.04128,   4.06518,   3.81060,
     +    2.88661,   3.94177,   4.06971,
     +     .02251,    .02204, 112.43223,   4.31592,   4.06430,
     +    3.14573,   4.19313,   4.32052,
     +     .02302,    .02230, 118.54695,   4.55884,   4.30912,
     +    3.39619,   4.43649,   4.56349,
     +     .02353,    .02256, 124.82674,   4.81068,   4.56232,
     +    3.65535,   4.68870,   4.81538,
     +     .02404,    .02282, 131.09631,   5.06488,   4.81751,
     +    3.91656,   4.94321,   5.06965,
     +     .02453,    .02307, 137.16656,   5.31327,   5.06663,
     +    4.17147,   5.19187,   5.31809,
     +     .02500,    .02330, 142.96014,   5.55297,   5.30690,
     +    4.41724,   5.43180,   5.55784 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02547,    .02354, 148.94388,   5.80207,   5.55649,
     +    4.67236,   5.68113,   5.80699,
     +     .02594,    .02378, 154.82434,   6.05033,   5.80520,
     +    4.92651,   5.92960,   6.05531,
     +     .02638,    .02400, 160.60333,   6.29523,   6.05051,
     +    5.17694,   6.17471,   6.30026,
     +     .02681,    .02422, 166.03630,   6.52877,   6.28440,
     +    5.41568,   6.40843,   6.53384,
     +     .02725,    .02444, 171.63383,   6.77083,   6.52681,
     +    5.66294,   6.65067,   6.77594 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01041,    .01582,   4.16354,    .33177,    .00349,
     +     .00000,    .19295,    .33459,
     +     .01087,    .01607,   5.28262,    .39239,    .00766,
     +     .00000,    .24574,    .39527,
     +     .01156,    .01646,   7.23973,    .49385,    .01769,
     +     .00000,    .33448,    .49682,
     +     .01207,    .01674,   8.86406,    .57486,    .02917,
     +     .00000,    .40580,    .57790,
     +     .01260,    .01703,  10.77124,    .66656,    .04689,
     +     .00000,    .48718,    .66966,
     +     .01307,    .01729,  12.58612,    .75059,    .06857,
     +     .00000,    .56251,    .75375,
     +     .01351,    .01753,  14.42533,    .83311,    .09650,
     +     .00000,    .63744,    .83633,
     +     .01399,    .01779,  16.56151,    .92493,    .13642,
     +     .00000,    .72205,    .92820 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01441,    .01801,  18.55127,   1.00681,    .18161,
     +     .00000,    .79887,   1.01013,
     +     .01481,    .01823,  20.56321,   1.08612,    .23595,
     +     .00000,    .87478,   1.08949,
     +     .01514,    .01841,  22.26174,   1.15023,    .28782,
     +     .00000,    .93728,   1.15364,
     +     .01583,    .01878,  26.08150,   1.28608,    .42581,
     +     .00000,   1.07372,   1.28957,
     +     .01643,    .01910,  29.61947,   1.40318,    .57563,
     +     .03937,   1.19574,   1.40673,
     +     .01711,    .01946,  33.85035,   1.53595,    .77386,
     +     .16069,   1.33813,   1.53959,
     +     .01782,    .01983,  38.54650,   1.67948,   1.00632,
     +     .35260,   1.49463,   1.68319,
     +     .01847,    .02017,  43.08199,   1.81883,   1.23216,
     +     .52441,   1.64658,   1.82261 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .01913,    .02051,  47.85077,   1.96943,   1.46558,
     +     .70929,   1.80926,   1.97329,
     +     .01968,    .02080,  51.98867,   2.10450,   1.66084,
     +     .86990,   1.95312,   2.10841,
     +     .02035,    .02115,  57.24577,   2.28205,   1.89819,
     +    1.07431,   2.13945,   2.28603,
     +     .02095,    .02146,  62.06013,   2.45042,   2.10742,
     +    1.26290,   2.31387,   2.45448,
     +     .02150,    .02175,  66.60728,   2.61391,   2.29936,
     +    1.44221,   2.48162,   2.61802,
     +     .02221,    .02211,  72.61092,   2.83483,   2.54610,
     +    1.68006,   2.70646,   2.83901,
     +     .02288,    .02245,  78.40988,   3.05348,   2.78103,
     +    1.91218,   2.92766,   3.05773,
     +     .02351,    .02277,  83.98889,   3.26782,   3.00553,
     +    2.13753,   3.14365,   3.27213 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02414,    .02309,  89.76920,   3.49269,   3.23713,
     +    2.37229,   3.36969,   3.49707,
     +     .02477,    .02341,  95.47388,   3.71868,   3.46745,
     +    2.60719,   3.59649,   3.72312,
     +     .02536,    .02371, 101.04151,   3.94137,   3.69288,
     +    2.83782,   3.81976,   3.94588,
     +     .02593,    .02400, 106.35620,   4.15674,   3.91003,
     +    3.06033,   4.03555,   4.16129,
     +     .02649,    .02428, 111.80276,   4.37964,   4.13420,
     +    3.29016,   4.25881,   4.38425,
     +     .02706,    .02457, 117.22871,   4.60425,   4.35975,
     +    3.52143,   4.48372,   4.60892,
     +     .02759,    .02483, 122.47175,   4.82338,   4.57958,
     +    3.74674,   4.70311,   4.82810,
     +     .02810,    .02509, 127.46572,   5.03452,   4.79127,
     +    3.96364,   4.91447,   5.03929 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .02862,    .02535, 132.61513,   5.25364,   5.01088,
     +    4.18847,   5.13382,   5.25846,
     +     .02914,    .02561, 137.66461,   5.47167,   5.22936,
     +    4.41209,   5.35206,   5.47654,
     +     .02963,    .02585, 142.62032,   5.68651,   5.44459,
     +    4.63217,   5.56709,   5.69142,
     +     .03010,    .02608, 147.26958,   5.89105,   5.64949,
     +    4.84165,   5.77182,   5.89601,
     +     .03057,    .02632, 152.05298,   6.10281,   5.86161,
     +    5.05835,   5.98377,   6.10782 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01584,    .01939,   3.86832,    .31315,    .00304,
     +     .00000,    .17998,    .31631,
     +     .01649,    .01974,   4.81742,    .36479,    .00662,
     +     .00000,    .22498,    .36800,
     +     .01747,    .02025,   6.44493,    .44984,    .01511,
     +     .00000,    .29943,    .45314,
     +     .01819,    .02062,   7.77159,    .51679,    .02472,
     +     .00000,    .35843,    .52015,
     +     .01894,    .02102,   9.30673,    .59167,    .03942,
     +     .00000,    .42496,    .59509,
     +     .01960,    .02135,  10.74860,    .65953,    .05728,
     +     .00000,    .48589,    .66302,
     +     .02022,    .02168,  12.19309,    .72557,    .08013,
     +     .00000,    .54596,    .72911,
     +     .02089,    .02202,  13.85277,    .79832,    .11258,
     +     .00000,    .61315,    .80191 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02148,    .02232,  15.38312,    .86258,    .14908,
     +     .00000,    .67363,    .86622,
     +     .02204,    .02261,  16.91632,    .92429,    .19274,
     +     .00000,    .73293,    .92798,
     +     .02250,    .02284,  18.20117,    .97380,    .23420,
     +     .00000,    .78142,    .97752,
     +     .02346,    .02333,  21.05998,   1.07758,    .34373,
     +     .00000,    .88630,   1.08137,
     +     .02430,    .02375,  23.67451,   1.16585,    .46158,
     +     .03023,    .97904,   1.16972,
     +     .02524,    .02423,  26.76413,   1.26477,    .61604,
     +     .12274,   1.08616,   1.26871,
     +     .02622,    .02472,  30.15126,   1.37058,    .79522,
     +     .26815,   1.20272,   1.37460,
     +     .02711,    .02517,  33.38498,   1.47252,    .96735,
     +     .39696,   1.31493,   1.47661 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .02802,    .02562,  36.74699,   1.58201,   1.14326,
     +     .53442,   1.43414,   1.58617,
     +     .02878,    .02600,  39.63624,   1.67973,   1.28883,
     +     .65291,   1.53890,   1.68395,
     +     .02970,    .02646,  43.27329,   1.80758,   1.46389,
     +     .80258,   1.67373,   1.81188,
     +     .03053,    .02687,  46.57145,   1.92819,   1.61652,
     +     .93959,   1.79912,   1.93255,
     +     .03128,    .02724,  49.65981,   2.04469,   1.75522,
     +    1.06898,   1.91899,   2.04912,
     +     .03224,    .02772,  53.70241,   2.20125,   1.93184,
     +    1.23940,   2.07864,   2.20575,
     +     .03315,    .02816,  57.56856,   2.35517,   2.09837,
     +    1.40442,   2.23459,   2.35974,
     +     .03401,    .02858,  61.25486,   2.50510,   2.25618,
     +    1.56350,   2.38585,   2.50973 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03487,    .02901,  65.04469,   2.66148,   2.41779,
     +    1.72814,   2.54318,   2.66618,
     +     .03571,    .02942,  68.75066,   2.81760,   2.57732,
     +    1.89176,   2.69998,   2.82237,
     +     .03652,    .02981,  72.34215,   2.97059,   2.73249,
     +    2.05144,   2.85347,   2.97542,
     +     .03728,    .03018,  75.74418,   3.11769,   2.88105,
     +    2.20460,   3.00096,   3.12258,
     +     .03804,    .03055,  79.20722,   3.26914,   3.03359,
     +    2.36195,   3.15274,   3.27409,
     +     .03880,    .03092,  82.63289,   3.42094,   3.18621,
     +    2.51940,   3.30482,   3.42595,
     +     .03952,    .03127,  85.92190,   3.56829,   3.33420,
     +    2.67202,   3.45243,   3.57336,
     +     .04020,    .03160,  89.03397,   3.70956,   3.47600,
     +    2.81820,   3.59393,   3.71468 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04090,    .03193,  92.22651,   3.85556,   3.62248,
     +    2.96907,   3.74015,   3.86073,
     +     .04158,    .03226,  95.33412,   4.00008,   3.76744,
     +    3.11834,   3.88488,   4.00530,
     +     .04224,    .03258,  98.37142,   4.14196,   3.90972,
     +    3.26469,   4.02696,   4.14723,
     +     .04286,    .03288, 101.20058,   4.27637,   4.04451,
     +    3.40332,   4.16156,   4.28169,
     +     .04350,    .03319, 104.09845,   4.41503,   4.18354,
     +    3.54618,   4.30041,   4.42040 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02362,    .02389,   3.58376,    .29459,    .00262,
     +     .00000,    .16759,    .29850,
     +     .02455,    .02435,   4.38030,    .33806,    .00567,
     +     .00000,    .20553,    .34204,
     +     .02593,    .02503,   5.71967,    .40854,    .01279,
     +     .00000,    .26733,    .41263,
     +     .02694,    .02553,   6.79183,    .46325,    .02077,
     +     .00000,    .31563,    .46743,
     +     .02800,    .02605,   8.01429,    .52373,    .03286,
     +     .00000,    .36947,    .52799,
     +     .02892,    .02650,   9.14729,    .57794,    .04744,
     +     .00000,    .41825,    .58229,
     +     .02979,    .02693,  10.26902,    .63022,    .06597,
     +     .00000,    .46592,    .63463,
     +     .03073,    .02738,  11.54369,    .68722,    .09211,
     +     .00000,    .51874,    .69171 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03155,    .02778,  12.70686,    .73710,    .12134,
     +     .00000,    .56587,    .74166,
     +     .03234,    .02816,  13.86111,    .78457,    .15610,
     +     .00000,    .61172,    .78920,
     +     .03297,    .02847,  14.82112,    .82236,    .18895,
     +     .00000,    .64895,    .82703,
     +     .03431,    .02911,  16.93360,    .90068,    .27512,
     +     .00000,    .72870,    .90546,
     +     .03546,    .02967,  18.84026,    .96638,    .36701,
     +     .02300,    .79841,    .97126,
     +     .03676,    .03030,  21.06571,   1.03910,    .48632,
     +     .09290,    .87807,   1.04408,
     +     .03811,    .03095,  23.47408,   1.11603,    .62321,
     +     .20209,    .96387,   1.12112,
     +     .03935,    .03154,  25.74581,   1.18956,    .75323,
     +     .29777,   1.04575,   1.19476 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04059,    .03214,  28.07975,   1.26806,    .88457,
     +     .39900,   1.13206,   1.27335,
     +     .04163,    .03263,  30.06522,   1.33779,    .99207,
     +     .48557,   1.20741,   1.34317,
     +     .04289,    .03323,  32.54058,   1.42862,   1.11990,
     +     .59407,   1.30378,   1.43409,
     +     .04401,    .03377,  34.76194,   1.51384,   1.23008,
     +     .69262,   1.39280,   1.51940,
     +     .04504,    .03425,  36.82299,   1.59575,   1.32922,
     +     .78503,   1.47738,   1.60139,
     +     .04635,    .03488,  39.49647,   1.70519,   1.45421,
     +     .90585,   1.58932,   1.71094,
     +     .04758,    .03546,  42.02610,   1.81207,   1.57085,
     +    1.02191,   1.69784,   1.81792,
     +     .04873,    .03601,  44.41497,   1.91549,   1.68041,
     +    1.13296,   1.80237,   1.92143 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .04989,    .03655,  46.85093,   2.02272,   1.79175,
     +    1.24714,   1.91041,   2.02875,
     +     .05103,    .03709,  49.20906,   2.12903,   1.90079,
     +    1.35979,   2.01734,   2.13515,
     +     .05211,    .03760,  51.47721,   2.23261,   2.00618,
     +    1.46906,   2.12139,   2.23882,
     +     .05312,    .03807,  53.60783,   2.33161,   2.10642,
     +    1.57323,   2.22076,   2.33790,
     +     .05415,    .03856,  55.76087,   2.43297,   2.20876,
     +    1.67963,   2.32246,   2.43935,
     +     .05515,    .03903,  57.87432,   2.53400,   2.31055,
     +    1.78550,   2.42379,   2.54045,
     +     .05612,    .03948,  59.88939,   2.63156,   2.40874,
     +    1.88757,   2.52162,   2.63809,
     +     .05703,    .03990,  61.78205,   2.72460,   2.50232,
     +    1.98481,   2.61491,   2.73120 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05795,    .04033,  63.71314,   2.82033,   2.59856,
     +    2.08473,   2.71090,   2.82701,
     +     .05886,    .04076,  65.57704,   2.91457,   2.69327,
     +    2.18304,   2.80536,   2.92131,
     +     .05973,    .04117,  67.39124,   3.00674,   2.78588,
     +    2.27905,   2.89776,   3.01355,
     +     .06055,    .04155,  69.06702,   3.09359,   2.87314,
     +    2.36952,   2.98483,   3.10047,
     +     .06139,    .04194,  70.77540,   3.18284,   2.96280,
     +    2.46239,   3.07430,   3.18979 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .02968,    .02710,   3.41897,    .28368,    .00240,
     +     .00000,    .16055,    .28823,
     +     .03081,    .02764,   4.13315,    .32269,    .00516,
     +     .00000,    .19466,    .32734,
     +     .03250,    .02845,   5.32021,    .38539,    .01156,
     +     .00000,    .24972,    .39019,
     +     .03373,    .02903,   6.26025,    .43368,    .01868,
     +     .00000,    .29242,    .43859,
     +     .03502,    .02965,   7.32265,    .48668,    .02941,
     +     .00000,    .33968,    .49171,
     +     .03614,    .03018,   8.29947,    .53390,    .04228,
     +     .00000,    .38224,    .53902,
     +     .03720,    .03068,   9.25967,    .57918,    .05859,
     +     .00000,    .42362,    .58439,
     +     .03834,    .03122,  10.34355,    .62825,    .08149,
     +     .00000,    .46921,    .63357 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .03933,    .03169,  11.32641,    .67095,    .10701,
     +     .00000,    .50967,    .67635,
     +     .04028,    .03214,  12.29605,    .71137,    .13726,
     +     .00000,    .54885,    .71686,
     +     .04104,    .03250,  13.09884,    .74339,    .16576,
     +     .00000,    .58053,    .74894,
     +     .04266,    .03326,  14.85344,    .80930,    .24022,
     +     .00000,    .64801,    .81500,
     +     .04406,    .03392,  16.42436,    .86412,    .31920,
     +     .01949,    .70657,    .86993,
     +     .04562,    .03466,  18.24409,    .92432,    .42117,
     +     .07847,    .77306,    .93027,
     +     .04724,    .03542,  20.19777,    .98758,    .53743,
     +     .17025,    .84423,    .99368,
     +     .04872,    .03611,  22.02699,   1.04777,    .64709,
     +     .25016,    .91179,   1.05400 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05022,    .03681,  23.89243,   1.11179,    .75711,
     +     .33426,    .98268,   1.11814,
     +     .05146,    .03739,  25.46939,   1.16851,    .84655,
     +     .40584,   1.04431,   1.17496,
     +     .05296,    .03810,  27.42372,   1.24219,    .95219,
     +     .49514,   1.12286,   1.24878,
     +     .05430,    .03872,  29.16609,   1.31111,   1.04260,
     +     .57585,   1.19511,   1.31782,
     +     .05552,    .03929,  30.77341,   1.37715,   1.12346,
     +     .65121,   1.26351,   1.38396,
     +     .05708,    .04001,  32.84661,   1.46511,   1.22478,
     +     .74931,   1.35367,   1.47205,
     +     .05854,    .04069,  34.79502,   1.55065,   1.31874,
     +     .84309,   1.44069,   1.55772,
     +     .05991,    .04133,  36.62386,   1.63309,   1.40650,
     +     .93242,   1.52415,   1.64028 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06129,    .04196,  38.47926,   1.71826,   1.49527,
     +    1.02389,   1.61010,   1.72557,
     +     .06263,    .04259,  40.26366,   1.80235,   1.58178,
     +    1.11373,   1.69477,   1.80977,
     +     .06391,    .04317,  41.97194,   1.88398,   1.66506,
     +    1.20056,   1.77688,   1.89151,
     +     .06511,    .04373,  43.56797,   1.96172,   1.74396,
     +    1.28302,   1.85501,   1.96935,
     +     .06631,    .04429,  45.17334,   2.04105,   1.82422,
     +    1.36696,   1.93469,   2.04878,
     +     .06750,    .04483,  46.74132,   2.11983,   1.90378,
     +    1.45018,   2.01380,   2.12767,
     +     .06863,    .04535,  48.22965,   2.19567,   1.98026,
     +    1.53015,   2.08993,   2.20360,
     +     .06970,    .04585,  49.62084,   2.26776,   2.05291,
     +    1.60610,   2.16229,   2.27578 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07078,    .04634,  51.03543,   2.34174,   2.12742,
     +    1.68391,   2.23655,   2.34986,
     +     .07185,    .04683,  52.39309,   2.41430,   2.20049,
     +    1.76021,   2.30937,   2.42251,
     +     .07287,    .04730,  53.71123,   2.48511,   2.27178,
     +    1.83456,   2.38044,   2.49341,
     +     .07383,    .04774,  54.92188,   2.55161,   2.33872,
     +    1.90437,   2.44717,   2.55999,
     +     .07481,    .04819,  56.15235,   2.61980,   2.40734,
     +    1.97587,   2.51559,   2.62826 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03487,    .02971,   3.30117,    .27589,    .00225,
     +     .00000,    .15561,    .28098,
     +     .03617,    .03033,   3.95952,    .31187,    .00482,
     +     .00000,    .18712,    .31709,
     +     .03811,    .03124,   5.04475,    .36935,    .01074,
     +     .00000,    .23766,    .37475,
     +     .03952,    .03190,   5.89745,    .41336,    .01728,
     +     .00000,    .27664,    .41889,
     +     .04100,    .03259,   6.85498,    .46143,    .02711,
     +     .00000,    .31957,    .46710,
     +     .04228,    .03319,   7.73029,    .50406,    .03886,
     +     .00000,    .35806,    .50985,
     +     .04350,    .03376,   8.58619,    .54478,    .05370,
     +     .00000,    .39534,    .55068,
     +     .04480,    .03436,   9.54766,    .58872,    .07448,
     +     .00000,    .43625,    .59474 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04593,    .03489,  10.41549,    .62679,    .09758,
     +     .00000,    .47242,    .63292,
     +     .04702,    .03540,  11.26799,    .66269,    .12490,
     +     .00000,    .50732,    .66892,
     +     .04789,    .03580,  11.97144,    .69103,    .15058,
     +     .00000,    .53546,    .69734,
     +     .04973,    .03666,  13.50123,    .74907,    .21747,
     +     .00000,    .59513,    .75555,
     +     .05132,    .03739,  14.86274,    .79703,    .28815,
     +     .01726,    .64666,    .80365,
     +     .05310,    .03822,  16.43109,    .84940,    .37905,
     +     .06935,    .70489,    .85619,
     +     .05495,    .03907,  18.10498,    .90416,    .48219,
     +     .15019,    .76692,    .91112,
     +     .05663,    .03985,  19.66365,    .95608,    .57901,
     +     .22023,    .82559,    .96320 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05832,    .04063,  21.24435,   1.01116,    .67565,
     +     .29368,    .88692,   1.01843,
     +     .05972,    .04128,  22.57435,   1.05986,    .75383,
     +     .35597,    .94011,   1.06726,
     +     .06143,    .04207,  24.21530,   1.12302,    .84571,
     +     .43342,   1.00770,   1.13058,
     +     .06294,    .04276,  25.67109,   1.18198,    .92394,
     +     .50317,   1.06968,   1.18967,
     +     .06432,    .04339,  27.00823,   1.23834,    .99359,
     +     .56810,   1.12820,   1.24616,
     +     .06607,    .04420,  28.72566,   1.31323,   1.08047,
     +     .65235,   1.20513,   1.32121,
     +     .06772,    .04496,  30.33145,   1.38584,   1.16066,
     +     .73259,   1.27913,   1.39397,
     +     .06926,    .04566,  31.83175,   1.45562,   1.23524,
     +     .80877,   1.34988,   1.46389 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07081,    .04637,  33.34804,   1.52752,   1.31044,
     +     .88655,   1.42253,   1.53593,
     +     .07231,    .04706,  34.79895,   1.59827,   1.38344,
     +     .96270,   1.49388,   1.60682,
     +     .07374,    .04772,  36.18305,   1.66680,   1.45351,
     +    1.03609,   1.56288,   1.67547,
     +     .07509,    .04833,  37.47084,   1.73186,   1.51970,
     +    1.10559,   1.62835,   1.74065,
     +     .07644,    .04895,  38.76157,   1.79810,   1.58686,
     +    1.17616,   1.69495,   1.80701,
     +     .07777,    .04955,  40.01739,   1.86371,   1.65324,
     +    1.24595,   1.76091,   1.87274,
     +     .07903,    .05013,  41.20533,   1.92671,   1.71691,
     +    1.31285,   1.82423,   1.93586,
     +     .08022,    .05067,  42.31158,   1.98645,   1.77723,
     +    1.37622,   1.88427,   1.99571 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08143,    .05122,  43.43352,   2.04765,   1.83898,
     +    1.44103,   1.94576,   2.05701,
     +     .08262,    .05176,  44.50545,   2.10750,   1.89937,
     +    1.50441,   2.00589,   2.11697,
     +     .08376,    .05227,  45.54426,   2.16582,   1.95820,
     +    1.56605,   2.06449,   2.17539,
     +     .08483,    .05276,  46.49398,   2.22045,   2.01329,
     +    1.62380,   2.11937,   2.23011,
     +     .08592,    .05326,  47.45703,   2.27636,   2.06967,
     +    1.68284,   2.17554,   2.28612 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03960,    .03203,   3.20542,    .26983,    .00214,
     +     .00000,    .15169,    .27528,
     +     .04105,    .03271,   3.82094,    .30352,    .00457,
     +     .00000,    .18122,    .30910,
     +     .04320,    .03371,   4.82874,    .35704,    .01012,
     +     .00000,    .22835,    .36283,
     +     .04477,    .03444,   5.61557,    .39784,    .01624,
     +     .00000,    .26452,    .40377,
     +     .04641,    .03521,   6.49455,    .44223,    .02539,
     +     .00000,    .30421,    .44831,
     +     .04783,    .03586,   7.29426,    .48144,    .03629,
     +     .00000,    .33967,    .48766,
     +     .04918,    .03649,   8.07288,    .51878,    .05004,
     +     .00000,    .37390,    .52512,
     +     .05061,    .03716,   8.94411,    .55893,    .06924,
     +     .00000,    .41134,    .56540 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05186,    .03774,   9.72754,    .59360,    .09054,
     +     .00000,    .44435,    .60019,
     +     .05307,    .03829,  10.49437,    .62619,    .11568,
     +     .00000,    .47611,    .63289,
     +     .05403,    .03874,  11.12543,    .65184,    .13927,
     +     .00000,    .50165,    .65862,
     +     .05606,    .03968,  12.49215,    .70415,    .20058,
     +     .00000,    .55563,    .71112,
     +     .05781,    .04049,  13.70261,    .74715,    .26516,
     +     .01565,    .60204,    .75428,
     +     .05977,    .04139,  15.09055,    .79388,    .34794,
     +     .06273,    .65429,    .80119,
     +     .06180,    .04233,  16.56467,    .84254,    .44152,
     +     .13564,    .70975,    .85004,
     +     .06364,    .04318,  17.93107,    .88855,    .52901,
     +     .19859,    .76203,    .89623 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06550,    .04403,  19.31050,    .93726,    .61598,
     +     .26438,    .81654,    .94510,
     +     .06704,    .04474,  20.46654,    .98026,    .68606,
     +     .32002,    .86369,    .98824,
     +     .06891,    .04559,  21.88762,   1.03595,    .76808,
     +     .38900,    .92348,   1.04411,
     +     .07056,    .04635,  23.14321,   1.08784,    .83763,
     +     .45096,    .97819,   1.09614,
     +     .07206,    .04704,  24.29217,   1.13736,    .89931,
     +     .50848,   1.02972,   1.14581,
     +     .07398,    .04792,  25.76268,   1.20304,    .97598,
     +     .58293,   1.09730,   1.21166,
     +     .07578,    .04874,  27.13184,   1.26656,   1.04645,
     +     .65362,   1.16213,   1.27534,
     +     .07746,    .04951,  28.40598,   1.32746,   1.11178,
     +     .72056,   1.22396,   1.33639 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07914,    .05028,  29.68954,   1.39007,   1.17746,
     +     .78873,   1.28731,   1.39916,
     +     .08078,    .05102,  30.91269,   1.45152,   1.24103,
     +     .85530,   1.34934,   1.46076,
     +     .08233,    .05173,  32.07600,   1.51091,   1.30190,
     +     .91931,   1.40921,   1.52029,
     +     .08379,    .05239,  33.15438,   1.56718,   1.35926,
     +     .97979,   1.46588,   1.57668,
     +     .08526,    .05306,  34.23197,   1.62434,   1.41732,
     +    1.04107,   1.52343,   1.63398,
     +     .08670,    .05371,  35.27694,   1.68083,   1.47460,
     +    1.10154,   1.58028,   1.69060,
     +     .08807,    .05434,  36.26265,   1.73498,   1.52942,
     +    1.15940,   1.63476,   1.74487,
     +     .08936,    .05492,  37.17768,   1.78623,   1.58126,
     +    1.21410,   1.68631,   1.79623 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09066,    .05551,  38.10364,   1.83863,   1.63424,
     +    1.26994,   1.73901,   1.84875,
     +     .09195,    .05609,  38.98455,   1.88976,   1.68592,
     +    1.32444,   1.79045,   1.90000,
     +     .09317,    .05665,  39.83699,   1.93952,   1.73621,
     +    1.37736,   1.84049,   1.94988,
     +     .09433,    .05717,  40.61322,   1.98603,   1.78320,
     +    1.42684,   1.88726,   1.99648,
     +     .09551,    .05770,  41.39886,   2.03356,   1.83122,
     +    1.47736,   1.93506,   2.04412 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05855,    .04090,   2.90500,    .25055,    .00182,
     +     .00000,    .13973,    .25771,
     +     .06056,    .04182,   3.39686,    .27753,    .00385,
     +     .00000,    .16351,    .28489,
     +     .06353,    .04319,   4.18520,    .31972,    .00838,
     +     .00000,    .20086,    .32737,
     +     .06568,    .04418,   4.78822,    .35143,    .01328,
     +     .00000,    .22912,    .35930,
     +     .06792,    .04521,   5.45065,    .38550,    .02054,
     +     .00000,    .25976,    .39359,
     +     .06985,    .04610,   6.04421,    .41525,    .02909,
     +     .00000,    .28681,    .42352,
     +     .07169,    .04694,   6.61398,    .44329,    .03980,
     +     .00000,    .31269,    .45174,
     +     .07364,    .04784,   7.24342,    .47310,    .05463,
     +     .00000,    .34070,    .48174 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07533,    .04862,   7.80248,    .49856,    .07096,
     +     .00000,    .36515,    .50737,
     +     .07695,    .04936,   8.34333,    .52224,    .09013,
     +     .00000,    .38846,    .53121,
     +     .07824,    .04995,   8.78451,    .54070,    .10801,
     +     .00000,    .40706,    .54979,
     +     .08097,    .05120,   9.72700,    .57784,    .15413,
     +     .00000,    .44594,    .58720,
     +     .08332,    .05228,  10.54825,    .60783,    .20223,
     +     .01137,    .47891,    .61741,
     +     .08592,    .05347,  11.47559,    .63990,    .26325,
     +     .04530,    .51555,    .64974,
     +     .08862,    .05470,  12.44461,    .67285,    .33142,
     +     .09747,    .55398,    .68294,
     +     .09106,    .05581,  13.32924,    .70372,    .39435,
     +     .14197,    .58983,    .71405 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09350,    .05693,  14.20831,    .73618,    .45608,
     +     .18801,    .62687,    .74674,
     +     .09552,    .05785,  14.93534,    .76471,    .50519,
     +     .22659,    .65867,    .77547,
     +     .09796,    .05896,  15.81797,    .80151,    .56191,
     +     .27400,    .69871,    .81250,
     +     .10011,    .05994,  16.58684,    .83560,    .60933,
     +     .31618,    .73506,    .84679,
     +     .10207,    .06083,  17.28159,    .86796,    .65088,
     +     .35503,    .76905,    .87934,
     +     .10456,    .06195,  18.16017,    .91062,    .70189,
     +     .40487,    .81330,    .92223,
     +     .10688,    .06300,  18.96586,    .95153,    .74817,
     +     .45174,    .85536,    .96337,
     +     .10904,    .06398,  19.70544,    .99046,    .79060,
     +     .49574,    .89513,   1.00250 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11120,    .06496,  20.44238,   1.03021,    .83285,
     +     .54019,    .93559,   1.04245,
     +     .11329,    .06590,  21.13367,   1.06887,    .87332,
     +     .58322,    .97484,   1.08130,
     +     .11526,    .06679,  21.78443,   1.10598,    .91176,
     +     .62429,   1.01245,   1.11860,
     +     .11712,    .06763,  22.37990,   1.14086,    .94769,
     +     .66280,   1.04779,   1.15366,
     +     .11897,    .06846,  22.96857,   1.17606,    .98381,
     +     .70155,   1.08341,   1.18903,
     +     .12079,    .06928,  23.53255,   1.21060,   1.01916,
     +     .73952,   1.11836,   1.22374,
     +     .12251,    .07005,  24.05895,   1.24349,   1.05277,
     +     .77562,   1.15162,   1.25678,
     +     .12413,    .07078,  24.54169,   1.27439,   1.08434,
     +     .80951,   1.18288,   1.28783 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12577,    .07151,  25.02650,   1.30583,   1.11643,
     +     .84393,   1.21467,   1.31942,
     +     .12737,    .07223,  25.48055,   1.33626,   1.14749,
     +     .87727,   1.24545,   1.35000,
     +     .12890,    .07291,  25.91783,   1.36576,   1.17758,
     +     .90952,   1.27528,   1.37964,
     +     .13034,    .07355,  26.30958,   1.39311,   1.20548,
     +     .93944,   1.30294,   1.40712,
     +     .13179,    .07420,  26.70331,   1.42093,   1.23387,
     +     .96985,   1.33108,   1.43508 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .08637,    .05366,   2.58782,    .23059,    .00157,
     +     .00000,    .12781,    .24025,
     +     .08908,    .05493,   2.96868,    .25147,    .00325,
     +     .00000,    .14637,    .26141,
     +     .09310,    .05679,   3.56535,    .28361,    .00690,
     +     .00000,    .17508,    .29396,
     +     .09598,    .05813,   4.01163,    .30741,    .01078,
     +     .00000,    .19648,    .31806,
     +     .09900,    .05953,   4.49294,    .33265,    .01641,
     +     .00000,    .21939,    .34361,
     +     .10158,    .06072,   4.91700,    .35441,    .02297,
     +     .00000,    .23938,    .36563,
     +     .10401,    .06184,   5.31749,    .37470,    .03110,
     +     .00000,    .25830,    .38617,
     +     .10659,    .06304,   5.75375,    .39600,    .04225,
     +     .00000,    .27855,    .40774 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10883,    .06407,   6.13587,    .41397,    .05443,
     +     .00000,    .29604,    .42594,
     +     .11096,    .06505,   6.50057,    .43050,    .06863,
     +     .00000,    .31256,    .44268,
     +     .11265,    .06583,   6.79520,    .44324,    .08179,
     +     .00000,    .32562,    .45560,
     +     .11623,    .06747,   7.41457,    .46847,    .11545,
     +     .00000,    .35260,    .48118,
     +     .11927,    .06887,   7.94422,    .48842,    .15019,
     +     .00801,    .37512,    .50144,
     +     .12265,    .07042,   8.53170,    .50935,    .19377,
     +     .03171,    .39980,    .52271,
     +     .12612,    .07201,   9.13389,    .53051,    .24184,
     +     .06788,    .42533,    .54421,
     +     .12925,    .07343,   9.67389,    .55013,    .28562,
     +     .09833,    .44888,    .56415 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13237,    .07485,  10.20026,    .57062,    .32795,
     +     .12948,    .47296,    .58493,
     +     .13493,    .07602,  10.62868,    .58855,    .36115,
     +     .15533,    .49346,    .60312,
     +     .13802,    .07743,  11.14102,    .61159,    .39895,
     +     .18678,    .51908,    .62646,
     +     .14073,    .07865,  11.57926,    .63282,    .43007,
     +     .21448,    .54213,    .64795,
     +     .14318,    .07976,  11.96911,    .65285,    .45696,
     +     .23975,    .56351,    .66822,
     +     .14628,    .08116,  12.45494,    .67908,    .48951,
     +     .27188,    .59112,    .69475,
     +     .14916,    .08246,  12.89163,    .70401,    .51860,
     +     .30177,    .61708,    .71996,
     +     .15183,    .08366,  13.28538,    .72752,    .54492,
     +     .32955,    .64140,    .74372 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15449,    .08486,  13.67239,    .75134,    .57085,
     +     .35738,    .66592,    .76779,
     +     .15705,    .08600,  14.02733,    .77427,    .59540,
     +     .38405,    .68947,    .79095,
     +     .15947,    .08708,  14.35719,    .79610,    .61850,
     +     .40929,    .71185,    .81301,
     +     .16172,    .08809,  14.65374,    .81642,    .63987,
     +     .43275,    .73267,    .83355,
     +     .16397,    .08909,  14.94254,    .83677,    .66118,
     +     .45618,    .75350,    .85410,
     +     .16616,    .09006,  15.21435,    .85657,    .68186,
     +     .47896,    .77377,    .87410,
     +     .16822,    .09098,  15.46424,    .87527,    .70137,
     +     .50045,    .79290,    .89299,
     +     .17016,    .09184,  15.68920,    .89269,    .71953,
     +     .52047,    .81073,    .91059 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17212,    .09270,  15.91281,    .91030,    .73789,
     +     .54068,    .82875,    .92838,
     +     .17401,    .09354,  16.11683,    .92718,    .75548,
     +     .56009,    .84603,    .94543,
     +     .17583,    .09434,  16.31231,    .94347,    .77245,
     +     .57877,    .86270,    .96189,
     +     .17752,    .09509,  16.48267,    .95842,    .78804,
     +     .59596,    .87800,    .97699,
     +     .17924,    .09584,  16.65221,    .97355,    .80382,
     +     .61334,    .89349,    .99227 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .10826,    .06384,   2.39439,    .21842,    .00145,
     +     .00000,    .12088,    .23025,
     +     .11148,    .06535,   2.71659,    .23602,    .00296,
     +     .00000,    .13667,    .24819,
     +     .11621,    .06756,   3.21423,    .26286,    .00618,
     +     .00000,    .16083,    .27554,
     +     .11960,    .06915,   3.58112,    .28255,    .00953,
     +     .00000,    .17869,    .29559,
     +     .12313,    .07079,   3.97215,    .30327,    .01434,
     +     .00000,    .19766,    .31668,
     +     .12614,    .07219,   4.31295,    .32099,    .01989,
     +     .00000,    .21409,    .33472,
     +     .12898,    .07351,   4.63129,    .33741,    .02671,
     +    -.00001,    .22955,    .35143,
     +     .13198,    .07490,   4.97495,    .35450,    .03601,
     +    -.00001,    .24597,    .36884 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13457,    .07610,   5.27320,    .36881,    .04612,
     +    -.00001,    .26006,    .38342,
     +     .13704,    .07724,   5.55525,    .38187,    .05783,
     +    -.00001,    .27328,    .39673,
     +     .13900,    .07815,   5.78169,    .39186,    .06865,
     +    -.00001,    .28368,    .40692,
     +     .14311,    .08004,   6.25251,    .41143,    .09617,
     +    -.00001,    .30499,    .42691,
     +     .14660,    .08165,   6.65002,    .42668,    .12438,
     +     .00641,    .32260,    .44251,
     +     .15046,    .08341,   7.08559,    .44247,    .15953,
     +     .02529,    .34172,    .45869,
     +     .15442,    .08522,   7.52616,    .45825,    .19799,
     +     .05397,    .36132,    .47487,
     +     .15797,    .08684,   7.91635,    .47279,    .23271,
     +     .07792,    .37927,    .48976 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16149,    .08844,   8.29125,    .48789,    .26600,
     +     .10224,    .39749,    .50521,
     +     .16438,    .08975,   8.59288,    .50109,    .29187,
     +     .12230,    .41293,    .51869,
     +     .16785,    .09132,   8.94977,    .51802,    .32106,
     +     .14656,    .43212,    .53596,
     +     .17088,    .09269,   9.25115,    .53356,    .34485,
     +     .16778,    .44929,    .55179,
     +     .17362,    .09392,   9.51594,    .54816,    .36521,
     +     .18703,    .46512,    .56666,
     +     .17707,    .09547,   9.84229,    .56722,    .38964,
     +     .21135,    .48546,    .58604,
     +     .18026,    .09689,  10.13116,    .58522,    .41126,
     +     .23383,    .50446,    .60435,
     +     .18321,    .09821,  10.38797,    .60209,    .43065,
     +     .25458,    .52214,    .62149 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18614,    .09951,  10.63775,    .61909,    .44961,
     +     .27525,    .53986,    .63876,
     +     .18894,    .10076,  10.86246,    .63533,    .46740,
     +     .29492,    .55675,    .65526,
     +     .19158,    .10192,  11.06915,    .65071,    .48405,
     +     .31346,    .57272,    .67089,
     +     .19403,    .10301,  11.25211,    .66495,    .49937,
     +     .33059,    .58748,    .68535,
     +     .19647,    .10408,  11.42800,    .67912,    .51454,
     +     .34761,    .60217,    .69974,
     +     .19885,    .10512,  11.59090,    .69282,    .52917,
     +     .36406,    .61636,    .71365,
     +     .20108,    .10610,  11.73867,    .70568,    .54290,
     +     .37951,    .62970,    .72671,
     +     .20317,    .10701,  11.86938,    .71759,    .55562,
     +     .39383,    .64205,    .73880 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20527,    .10792,  11.99821,    .72958,    .56841,
     +     .40823,    .65449,    .75099,
     +     .20730,    .10880,  12.11276,    .74099,    .58059,
     +     .42198,    .66632,    .76257,
     +     .20924,    .10964,  12.22217,    .75196,    .59231,
     +     .43517,    .67771,    .77371,
     +     .21104,    .11042,  12.31439,    .76195,    .60299,
     +     .44723,    .68808,    .78385,
     +     .21286,    .11121,  12.40527,    .77201,    .61376,
     +     .45938,    .69853,    .79407 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .12703,    .07278,   2.25314,    .20954,    .00138,
     +     .00000,    .11600,    .22335,
     +     .13063,    .07448,   2.53657,    .22495,    .00279,
     +     .00000,    .12992,    .23915,
     +     .13591,    .07696,   2.96967,    .24827,    .00573,
     +     .00000,    .15110,    .26305,
     +     .13969,    .07873,   3.28544,    .26528,    .00874,
     +     .00000,    .16665,    .28046,
     +     .14361,    .08056,   3.61897,    .28306,    .01302,
     +     .00000,    .18306,    .29866,
     +     .14694,    .08211,   3.90723,    .29818,    .01792,
     +     .00000,    .19720,    .31414,
     +     .15008,    .08357,   4.17417,    .31211,    .02390,
     +     .00000,    .21044,    .32840,
     +     .15339,    .08511,   4.46034,    .32653,    .03202,
     +    -.00001,    .22443,    .34316 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15625,    .08643,   4.70691,    .33853,    .04079,
     +    -.00001,    .23638,    .35546,
     +     .15896,    .08768,   4.93837,    .34940,    .05093,
     +    -.00001,    .24754,    .36661,
     +     .16110,    .08867,   5.12329,    .35768,    .06026,
     +    -.00001,    .25628,    .37511,
     +     .16560,    .09074,   5.50443,    .37375,    .08388,
     +    -.00001,    .27407,    .39164,
     +     .16941,    .09249,   5.82289,    .38612,    .10797,
     +     .00542,    .28866,    .40439,
     +     .17361,    .09440,   6.16843,    .39879,    .13784,
     +     .02133,    .30439,    .41748,
     +     .17790,    .09636,   6.51415,    .41132,    .17032,
     +     .04542,    .32040,    .43044,
     +     .18173,    .09810,   6.81717,    .42282,    .19947,
     +     .06541,    .33498,    .44232 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18553,    .09981,   7.10486,    .43472,    .22721,
     +     .08560,    .34970,    .45459,
     +     .18864,    .10121,   7.33407,    .44510,    .24864,
     +     .10218,    .36211,    .46527,
     +     .19236,    .10288,   7.60284,    .45840,    .27265,
     +     .12213,    .37749,    .47893,
     +     .19559,    .10433,   7.82715,    .47058,    .29206,
     +     .13950,    .39118,    .49141,
     +     .19851,    .10563,   8.02214,    .48200,    .30856,
     +     .15518,    .40376,    .50310,
     +     .20218,    .10725,   8.26016,    .49685,    .32821,
     +     .17490,    .41985,    .51829,
     +     .20555,    .10875,   8.46784,    .51082,    .34547,
     +     .19304,    .43479,    .53257,
     +     .20866,    .11012,   8.65005,    .52383,    .36084,
     +     .20969,    .44862,    .54587 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21175,    .11147,   8.82558,    .53690,    .37579,
     +     .22622,    .46242,    .55922,
     +     .21469,    .11276,   8.98053,    .54930,    .38972,
     +     .24186,    .47550,    .57188,
     +     .21745,    .11396,   9.12168,    .56100,    .40270,
     +     .25654,    .48780,    .58383,
     +     .22001,    .11508,   9.24462,    .57177,    .41457,
     +     .27005,    .49912,    .59482,
     +     .22255,    .11618,   9.36129,    .58243,    .42628,
     +     .28342,    .51033,    .60570,
     +     .22501,    .11724,   9.46753,    .59269,    .43752,
     +     .29628,    .52111,    .61617,
     +     .22733,    .11823,   9.56252,    .60227,    .44801,
     +     .30832,    .53119,    .62595,
     +     .22948,    .11915,   9.64487,    .61110,    .45769,
     +     .31943,    .54048,    .63496 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23165,    .12008,   9.72529,    .61995,    .46739,
     +     .33058,    .54980,    .64400,
     +     .23373,    .12096,   9.79446,    .62831,    .47657,
     +     .34116,    .55861,    .65253,
     +     .23572,    .12181,   9.86038,    .63634,    .48539,
     +     .35129,    .56708,    .66073,
     +     .23757,    .12259,   9.91366,    .64359,    .49338,
     +     .36052,    .57473,    .66812,
     +     .23943,    .12337,   9.96554,    .65088,    .50141,
     +     .36978,    .58243,    .67556 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14377,    .08092,   2.14181,    .20246,    .00133,
     +     .00000,    .11225,    .21817,
     +     .14768,    .08276,   2.39687,    .21625,    .00268,
     +     .00000,    .12480,    .23238,
     +     .15341,    .08546,   2.78317,    .23700,    .00542,
     +     .00000,    .14378,    .25375,
     +     .15750,    .08737,   3.06228,    .25204,    .00819,
     +     .00000,    .15765,    .26924,
     +     .16173,    .08934,   3.35486,    .26769,    .01209,
     +     .00000,    .17221,    .28534,
     +     .16533,    .09102,   3.60591,    .28094,    .01652,
     +     .00000,    .18471,    .29897,
     +     .16869,    .09258,   3.83675,    .29309,    .02190,
     +     .00000,    .19637,    .31148,
     +     .17225,    .09423,   4.08278,    .30560,    .02917,
     +     .00000,    .20863,    .32436 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17530,    .09564,   4.29346,    .31596,    .03699,
     +     .00000,    .21906,    .33503,
     +     .17820,    .09697,   4.48996,    .32530,    .04599,
     +     .00000,    .22876,    .34467,
     +     .18049,    .09802,   4.64632,    .33237,    .05426,
     +     .00000,    .23633,    .35198,
     +     .18528,    .10022,   4.96613,    .34599,    .07512,
     +     .00000,    .25167,    .36608,
     +     .18933,    .10206,   5.23092,    .35636,    .09630,
     +     .00474,    .26417,    .37686,
     +     .19377,    .10408,   5.51586,    .36688,    .12244,
     +     .01859,    .27755,    .38781,
     +     .19829,    .10613,   5.79828,    .37720,    .15074,
     +     .03949,    .29110,    .39857,
     +     .20234,    .10794,   6.04335,    .38662,    .17600,
     +     .05675,    .30337,    .40838 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20632,    .10973,   6.27352,    .39635,    .19992,
     +     .07412,    .31570,    .41849,
     +     .20957,    .11118,   6.45536,    .40482,    .21830,
     +     .08831,    .32607,    .42727,
     +     .21346,    .11291,   6.66685,    .41568,    .23876,
     +     .10533,    .33887,    .43849,
     +     .21683,    .11439,   6.84134,    .42560,    .25520,
     +     .12009,    .35023,    .44872,
     +     .21986,    .11573,   6.99153,    .43488,    .26910,
     +     .13337,    .36062,    .45827,
     +     .22366,    .11740,   7.17320,    .44691,    .28555,
     +     .15000,    .37386,    .47065,
     +     .22715,    .11892,   7.32936,    .45818,    .29991,
     +     .16523,    .38610,    .48223,
     +     .23036,    .12031,   7.46462,    .46865,    .31261,
     +     .17916,    .39738,    .49298 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23353,    .12168,   7.59373,    .47912,    .32492,
     +     .19294,    .40860,    .50372,
     +     .23655,    .12297,   7.70532,    .48899,    .33631,
     +     .20592,    .41916,    .51385,
     +     .23937,    .12418,   7.80595,    .49827,    .34689,
     +     .21806,    .42907,    .52337,
     +     .24198,    .12529,   7.89207,    .50676,    .35651,
     +     .22918,    .43813,    .53208,
     +     .24457,    .12639,   7.97259,    .51514,    .36597,
     +     .24016,    .44708,    .54067,
     +     .24707,    .12745,   8.04447,    .52316,    .37500,
     +     .25069,    .45564,    .54889,
     +     .24941,    .12843,   8.10767,    .53062,    .38342,
     +     .26051,    .46361,    .55654,
     +     .25159,    .12934,   8.16112,    .53745,    .39114,
     +     .26955,    .47093,    .56355 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25377,    .13025,   8.21272,    .54429,    .39886,
     +     .27858,    .47825,    .57056,
     +     .25586,    .13112,   8.25504,    .55070,    .40613,
     +     .28713,    .48512,    .57712,
     +     .25786,    .13195,   8.29530,    .55684,    .41309,
     +     .29529,    .49171,    .58342,
     +     .25970,    .13271,   8.32588,    .56234,    .41936,
     +     .30270,    .49764,    .58906,
     +     .26155,    .13347,   8.35514,    .56786,    .42566,
     +     .31012,    .50358,    .59471 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17330,    .09562,   1.97188,    .19141,    .00128,
     +     .00000,    .10665,    .21072,
     +     .17769,    .09768,   2.18690,    .20286,    .00253,
     +     .00001,    .11724,    .22265,
     +     .18410,    .10068,   2.50801,    .21996,    .00501,
     +     .00001,    .13313,    .24043,
     +     .18865,    .10280,   2.73649,    .23224,    .00745,
     +     .00001,    .14464,    .25320,
     +     .19334,    .10497,   2.97307,    .24493,    .01083,
     +     .00001,    .15664,    .26637,
     +     .19731,    .10680,   3.17379,    .25558,    .01461,
     +     .00001,    .16686,    .27744,
     +     .20102,    .10851,   3.35596,    .26527,    .01916,
     +     .00001,    .17634,    .28750,
     +     .20491,    .11029,   3.54827,    .27517,    .02526,
     +     .00001,    .18624,    .29779 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20825,    .11181,   3.71124,    .28329,    .03177,
     +     .00001,    .19460,    .30625,
     +     .21141,    .11324,   3.86155,    .29054,    .03922,
     +     .00001,    .20232,    .31381,
     +     .21390,    .11437,   3.98034,    .29599,    .04604,
     +     .00001,    .20832,    .31951,
     +     .21909,    .11671,   4.22022,    .30633,    .06312,
     +     .00001,    .22036,    .33035,
     +     .22345,    .11866,   4.41563,    .31405,    .08035,
     +     .00383,    .23006,    .33848,
     +     .22821,    .12078,   4.62265,    .32172,    .10147,
     +     .01493,    .24034,    .34660,
     +     .23304,    .12292,   4.82433,    .32914,    .12415,
     +     .03161,    .25065,    .35446,
     +     .23733,    .12480,   4.99655,    .33586,    .14423,
     +     .04528,    .25990,    .36157 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .24153,    .12664,   5.15492,    .34275,    .16308,
     +     .05892,    .26913,    .36884,
     +     .24495,    .12812,   5.27785,    .34876,    .17743,
     +     .07001,    .27684,    .37515,
     +     .24901,    .12987,   5.41861,    .35646,    .19327,
     +     .08323,    .28632,    .38320,
     +     .25252,    .13138,   5.53244,    .36348,    .20586,
     +     .09461,    .29466,    .39051,
     +     .25566,    .13272,   5.62823,    .37002,    .21641,
     +     .10478,    .30226,    .39730,
     +     .25958,    .13437,   5.74189,    .37847,    .22877,
     +     .11746,    .31188,    .40608,
     +     .26315,    .13588,   5.83669,    .38632,    .23943,
     +     .12898,    .32069,    .41422,
     +     .26642,    .13724,   5.91634,    .39355,    .24878,
     +     .13945,    .32874,    .42170 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26964,    .13857,   5.99080,    .40074,    .25775,
     +     .14974,    .33670,    .42914,
     +     .27267,    .13983,   6.05207,    .40744,    .26599,
     +     .15937,    .34411,    .43607,
     +     .27551,    .14099,   6.10597,    .41370,    .27358,
     +     .16833,    .35103,    .44254,
     +     .27812,    .14204,   6.14989,    .41937,    .28043,
     +     .17650,    .35730,    .44841,
     +     .28070,    .14308,   6.18932,    .42492,    .28711,
     +     .18450,    .36344,    .45414,
     +     .28316,    .14407,   6.22248,    .43019,    .29346,
     +     .19214,    .36928,    .45957,
     +     .28547,    .14499,   6.25002,    .43504,    .29933,
     +     .19922,    .37467,    .46458,
     +     .28760,    .14584,   6.27124,    .43944,    .30467,
     +     .20571,    .37957,    .46912 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28973,    .14667,   6.29093,    .44381,    .30998,
     +     .21216,    .38445,    .47364,
     +     .29176,    .14747,   6.30404,    .44784,    .31494,
     +     .21822,    .38897,    .47780,
     +     .29370,    .14822,   6.31648,    .45170,    .31967,
     +     .22399,    .39330,    .48178,
     +     .29547,    .14890,   6.32275,    .45510,    .32389,
     +     .22918,    .39713,    .48528,
     +     .29724,    .14958,   6.32791,    .45848,    .32811,
     +     .23437,    .40096,    .48877 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .21138,    .11514,   1.79079,    .17901,    .00125,
     +     .00000,    .10074,    .20332,
     +     .21626,    .11739,   1.96698,    .18816,    .00242,
     +     .00000,    .10940,    .21298,
     +     .22334,    .12063,   2.22574,    .20169,    .00465,
     +     .00000,    .12228,    .22721,
     +     .22833,    .12290,   2.40649,    .21131,    .00678,
     +     .00000,    .13151,    .23732,
     +     .23346,    .12522,   2.59081,    .22114,    .00967,
     +     .00000,    .14106,    .24765,
     +     .23778,    .12716,   2.74496,    .22932,    .01284,
     +    -.00001,    .14913,    .25625,
     +     .24178,    .12895,   2.88262,    .23669,    .01661,
     +     .00000,    .15654,    .26399,
     +     .24598,    .13081,   3.02624,    .24414,    .02160,
     +     .00000,    .16422,    .27182 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24956,    .13239,   3.14636,    .25017,    .02688,
     +     .00000,    .17066,    .27818,
     +     .25293,    .13387,   3.25551,    .25549,    .03288,
     +     .00000,    .17656,    .28380,
     +     .25558,    .13503,   3.34105,    .25944,    .03834,
     +     .00000,    .18110,    .28799,
     +     .26106,    .13741,   3.51065,    .26678,    .05191,
     +     .00000,    .19013,    .29581,
     +     .26564,    .13937,   3.64592,    .27211,    .06548,
     +     .00298,    .19730,    .30151,
     +     .27061,    .14149,   3.78625,    .27725,    .08198,
     +     .01160,    .20480,    .30707,
     +     .27562,    .14360,   3.91961,    .28210,    .09954,
     +     .02449,    .21222,    .31232,
     +     .28003,    .14545,   4.03076,    .28645,    .11494,
     +     .03495,    .21881,    .31702 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28432,    .14722,   4.12976,    .29088,    .12925,
     +     .04531,    .22532,    .32177,
     +     .28778,    .14864,   4.20458,    .29475,    .14004,
     +     .05366,    .23072,    .32589,
     +     .29188,    .15031,   4.28810,    .29972,    .15181,
     +     .06355,    .23730,    .33115,
     +     .29537,    .15172,   4.35314,    .30424,    .16106,
     +     .07200,    .24305,    .33591,
     +     .29849,    .15296,   4.40591,    .30842,    .16871,
     +     .07950,    .24824,    .34030,
     +     .30236,    .15448,   4.46645,    .31381,    .17757,
     +     .08879,    .25476,    .34595,
     +     .30585,    .15585,   4.51374,    .31877,    .18512,
     +     .09715,    .26067,    .35112,
     +     .30901,    .15707,   4.55100,    .32328,    .19165,
     +     .10469,    .26601,    .35582 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31212,    .15825,   4.58425,    .32772,    .19785,
     +     .11205,    .27124,    .36045,
     +     .31501,    .15934,   4.60809,    .33179,    .20348,
     +     .11887,    .27604,    .36468,
     +     .31770,    .16035,   4.62757,    .33555,    .20861,
     +     .12519,    .28048,    .36859,
     +     .32016,    .16124,   4.64084,    .33890,    .21319,
     +     .13089,    .28445,    .37207,
     +     .32256,    .16211,   4.65078,    .34214,    .21763,
     +     .13645,    .28830,    .37543,
     +     .32484,    .16294,   4.65653,    .34516,    .22180,
     +     .14172,    .29191,    .37855,
     +     .32696,    .16369,   4.65919,    .34791,    .22562,
     +     .14657,    .29521,    .38139,
     +     .32891,    .16437,   4.65828,    .35035,    .22906,
     +     .15098,    .29817,    .38390 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .33084,    .16504,   4.65622,    .35275,    .23247,
     +     .15535,    .30109,    .38639,
     +     .33265,    .16567,   4.64977,    .35490,    .23560,
     +     .15941,    .30374,    .38860,
     +     .33438,    .16626,   4.64368,    .35695,    .23858,
     +     .16327,    .30627,    .39072,
     +     .33594,    .16677,   4.63411,    .35870,    .24119,
     +     .16670,    .30847,    .39251,
     +     .33751,    .16729,   4.62373,    .36042,    .24379,
     +     .17012,    .31064,    .39428 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .26529,    .14336,   1.58809,    .16364,    .00123,
     +    -.00002,    .09390,    .19535,
     +     .27059,    .14567,   1.72443,    .17039,    .00233,
     +    -.00002,    .10057,    .20255,
     +     .27824,    .14897,   1.92020,    .18023,    .00433,
     +    -.00002,    .11034,    .21303,
     +     .28358,    .15124,   2.05347,    .18712,    .00616,
     +    -.00002,    .11725,    .22036,
     +     .28902,    .15354,   2.18654,    .19408,    .00855,
     +    -.00002,    .12432,    .22774,
     +     .29356,    .15544,   2.29560,    .19978,    .01113,
     +    -.00002,    .13022,    .23379,
     +     .29774,    .15717,   2.39066,    .20484,    .01412,
     +    -.00002,    .13558,    .23914,
     +     .30209,    .15895,   2.48815,    .20986,    .01801,
     +    -.00002,    .14108,    .24448 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .30577,    .16045,   2.56807,    .21387,    .02208,
     +    -.00002,    .14563,    .24873,
     +     .30921,    .16183,   2.63906,    .21731,    .02665,
     +    -.00002,    .14974,    .25240,
     +     .31190,    .16291,   2.69400,    .21981,    .03077,
     +    -.00002,    .15289,    .25509,
     +     .31742,    .16508,   2.79974,    .22430,    .04093,
     +    -.00002,    .15902,    .25992,
     +     .32198,    .16685,   2.88107,    .22738,    .05096,
     +     .00218,    .16380,    .26326,
     +     .32687,    .16872,   2.96246,    .23017,    .06303,
     +     .00846,    .16869,    .26633,
     +     .33173,    .17054,   3.03648,    .23266,    .07572,
     +     .01779,    .17342,    .26907,
     +     .33596,    .17211,   3.09532,    .23485,    .08672,
     +     .02528,    .17756,    .27147 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .34002,    .17357,   3.14427,    .23706,    .09681,
     +     .03262,    .18158,    .27386,
     +     .34326,    .17472,   3.17918,    .23901,    .10431,
     +     .03848,    .18488,    .27594,
     +     .34705,    .17604,   3.21591,    .24154,    .11238,
     +     .04536,    .18886,    .27862,
     +     .35024,    .17714,   3.24160,    .24383,    .11861,
     +     .05117,    .19229,    .28102,
     +     .35304,    .17808,   3.26007,    .24595,    .12369,
     +     .05628,    .19534,    .28322,
     +     .35648,    .17921,   3.27886,    .24866,    .12947,
     +     .06255,    .19913,    .28602,
     +     .35954,    .18018,   3.28979,    .25109,    .13430,
     +     .06813,    .20250,    .28852,
     +     .36226,    .18102,   3.29510,    .25325,    .13840,
     +     .07311,    .20548,    .29073 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36490,    .18183,   3.29770,    .25536,    .14225,
     +     .07794,    .20836,    .29287,
     +     .36731,    .18253,   3.29429,    .25719,    .14566,
     +     .08236,    .21093,    .29473,
     +     .36952,    .18316,   3.28913,    .25885,    .14874,
     +     .08641,    .21327,    .29640,
     +     .37150,    .18370,   3.28100,    .26028,    .15145,
     +     .09003,    .21532,    .29782,
     +     .37341,    .18421,   3.27074,    .26160,    .15403,
     +     .09354,    .21726,    .29913,
     +     .37520,    .18466,   3.25815,    .26277,    .15641,
     +     .09681,    .21902,    .30029,
     +     .37684,    .18506,   3.24450,    .26379,    .15856,
     +     .09981,    .22060,    .30129,
     +     .37830,    .18541,   3.22948,    .26464,    .16047,
     +     .10250,    .22197,    .30211 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37974,    .18574,   3.21378,    .26546,    .16235,
     +     .10516,    .22330,    .30289,
     +     .38107,    .18601,   3.19560,    .26611,    .16402,
     +     .10759,    .22446,    .30350,
     +     .38232,    .18627,   3.17849,    .26673,    .16561,
     +     .10989,    .22555,    .30408,
     +     .38342,    .18647,   3.15993,    .26717,    .16697,
     +     .11192,    .22643,    .30447,
     +     .38450,    .18666,   3.14088,    .26758,    .16830,
     +     .11391,    .22729,    .30483 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .31202,    .16772,   1.45009,    .15141,    .00123,
     +    -.00001,    .08874,    .18943,
     +     .31744,    .16990,   1.56062,    .15660,    .00229,
     +    -.00001,    .09409,    .19496,
     +     .32518,    .17297,   1.71628,    .16407,    .00415,
     +    -.00001,    .10185,    .20289,
     +     .33054,    .17504,   1.81983,    .16924,    .00579,
     +    -.00001,    .10728,    .20835,
     +     .33595,    .17711,   1.92125,    .17438,    .00788,
     +    -.00001,    .11278,    .21378,
     +     .34045,    .17881,   2.00284,    .17853,    .01007,
     +    -.00002,    .11732,    .21816,
     +     .34454,    .18032,   2.07221,    .18215,    .01258,
     +    -.00002,    .12139,    .22196,
     +     .34877,    .18186,   2.14223,    .18569,    .01579,
     +    -.00001,    .12553,    .22568 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .35232,    .18313,   2.19851,    .18845,    .01912,
     +    -.00002,    .12892,    .22857,
     +     .35561,    .18429,   2.24725,    .19075,    .02281,
     +    -.00001,    .13195,    .23100,
     +     .35817,    .18518,   2.28450,    .19240,    .02612,
     +    -.00001,    .13424,    .23274,
     +     .36336,    .18695,   2.35385,    .19519,    .03419,
     +    -.00002,    .13863,    .23569,
     +     .36758,    .18835,   2.40499,    .19695,    .04209,
     +     .00171,    .14197,    .23755,
     +     .37206,    .18981,   2.45387,    .19839,    .05151,
     +     .00663,    .14532,    .23907,
     +     .37646,    .19118,   2.49565,    .19953,    .06131,
     +     .01388,    .14848,    .24029,
     +     .38024,    .19231,   2.52664,    .20049,    .06972,
     +     .01964,    .15121,    .24129 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38380,    .19333,   2.54947,    .20145,    .07734,
     +     .02524,    .15380,    .24226,
     +     .38659,    .19410,   2.56379,    .20233,    .08294,
     +     .02968,    .15590,    .24313,
     +     .38981,    .19497,   2.57673,    .20352,    .08890,
     +     .03484,    .15842,    .24428,
     +     .39248,    .19564,   2.58297,    .20459,    .09344,
     +     .03917,    .16055,    .24532,
     +     .39478,    .19619,   2.58483,    .20558,    .09709,
     +     .04295,    .16242,    .24624,
     +     .39755,    .19683,   2.58375,    .20684,    .10118,
     +     .04756,    .16471,    .24742,
     +     .39997,    .19733,   2.57777,    .20792,    .10454,
     +     .05162,    .16669,    .24841,
     +     .40206,    .19772,   2.56858,    .20884,    .10735,
     +     .05520,    .16840,    .24923 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40406,    .19807,   2.55754,    .20971,    .10994,
     +     .05865,    .17003,    .24999,
     +     .40582,    .19832,   2.54257,    .21038,    .11219,
     +     .06178,    .17142,    .25054,
     +     .40742,    .19852,   2.52717,    .21096,    .11420,
     +     .06462,    .17265,    .25099,
     +     .40879,    .19866,   2.51038,    .21139,    .11593,
     +     .06715,    .17369,    .25129,
     +     .41009,    .19876,   2.49220,    .21174,    .11756,
     +     .06956,    .17464,    .25151,
     +     .41127,    .19881,   2.47271,    .21199,    .11905,
     +     .07181,    .17546,    .25161,
     +     .41231,    .19883,   2.45316,    .21215,    .12037,
     +     .07384,    .17617,    .25164,
     +     .41321,    .19881,   2.43335,    .21222,    .12151,
     +     .07565,    .17674,    .25157 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41408,    .19878,   2.41316,    .21227,    .12262,
     +     .07742,    .17727,    .25147,
     +     .41481,    .19869,   2.39147,    .21219,    .12358,
     +     .07904,    .17768,    .25125,
     +     .41551,    .19861,   2.37113,    .21213,    .12449,
     +     .08056,    .17807,    .25104,
     +     .41607,    .19848,   2.35033,    .21195,    .12524,
     +     .08187,    .17832,    .25072,
     +     .41661,    .19833,   2.32924,    .21175,    .12596,
     +     .08315,    .17855,    .25037 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .39226,    .20782,   1.26949,    .13118,    .00123,
     +     .00000,    .08019,    .17861,
     +     .39729,    .20936,   1.34639,    .13440,    .00225,
     +     .00000,    .08385,    .18183,
     +     .40433,    .21144,   1.45074,    .13891,    .00392,
     +     .00001,    .08904,    .18633,
     +     .40908,    .21278,   1.51703,    .14193,    .00532,
     +     .00000,    .09259,    .18930,
     +     .41379,    .21405,   1.57943,    .14485,    .00703,
     +     .00000,    .09611,    .19214,
     +     .41762,    .21505,   1.62766,    .14713,    .00875,
     +     .00001,    .09896,    .19433,
     +     .42102,    .21586,   1.66640,    .14903,    .01065,
     +     .00000,    .10145,    .19611,
     +     .42448,    .21666,   1.70402,    .15080,    .01303,
     +     .00000,    .10393,    .19776 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42733,    .21728,   1.73274,    .15209,    .01544,
     +     .00000,    .10591,    .19893,
     +     .42990,    .21780,   1.75596,    .15307,    .01807,
     +     .00000,    .10762,    .19978,
     +     .43188,    .21818,   1.77311,    .15372,    .02039,
     +     .00000,    .10890,    .20031,
     +     .43576,    .21884,   1.80180,    .15458,    .02597,
     +     .00000,    .11124,    .20090,
     +     .43880,    .21928,   1.81989,    .15486,    .03133,
     +     .00118,    .11291,    .20093,
     +     .44190,    .21965,   1.83392,    .15481,    .03762,
     +     .00450,    .11448,    .20057,
     +     .44479,    .21988,   1.84197,    .15451,    .04405,
     +     .00936,    .11587,    .19994,
     +     .44716,    .21999,   1.84443,    .15419,    .04948,
     +     .01317,    .11700,    .19931 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44925,    .21995,   1.84115,    .15384,    .05430,
     +     .01681,    .11801,    .19862,
     +     .45080,    .21984,   1.83545,    .15360,    .05779,
     +     .01965,    .11881,    .19809,
     +     .45249,    .21965,   1.82581,    .15339,    .06142,
     +     .02292,    .11973,    .19752,
     +     .45376,    .21938,   1.81407,    .15322,    .06411,
     +     .02563,    .12047,    .19700,
     +     .45476,    .21907,   1.80099,    .15305,    .06621,
     +     .02797,    .12108,    .19652,
     +     .45587,    .21862,   1.78254,    .15285,    .06851,
     +     .03076,    .12179,    .19592,
     +     .45668,    .21811,   1.76238,    .15261,    .07033,
     +     .03320,    .12233,    .19526,
     +     .45727,    .21755,   1.74161,    .15230,    .07179,
     +     .03531,    .12274,    .19458 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45775,    .21696,   1.72010,    .15196,    .07310,
     +     .03731,    .12309,    .19387,
     +     .45801,    .21629,   1.69682,    .15152,    .07419,
     +     .03910,    .12329,    .19305,
     +     .45817,    .21564,   1.67443,    .15107,    .07513,
     +     .04070,    .12343,    .19225,
     +     .45819,    .21496,   1.65230,    .15058,    .07591,
     +     .04210,    .12347,    .19141,
     +     .45812,    .21426,   1.62959,    .15004,    .07662,
     +     .04343,    .12346,    .19052,
     +     .45794,    .21352,   1.60661,    .14946,    .07723,
     +     .04464,    .12339,    .18958,
     +     .45769,    .21280,   1.58446,    .14887,    .07775,
     +     .04572,    .12327,    .18865,
     +     .45736,    .21208,   1.56300,    .14825,    .07817,
     +     .04666,    .12309,    .18772 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45699,    .21135,   1.54150,    .14762,    .07857,
     +     .04756,    .12290,    .18677,
     +     .45650,    .21057,   1.51953,    .14692,    .07888,
     +     .04837,    .12262,    .18576,
     +     .45604,    .20985,   1.49902,    .14627,    .07917,
     +     .04913,    .12236,    .18481,
     +     .45548,    .20911,   1.47892,    .14559,    .07937,
     +     .04976,    .12205,    .18383,
     +     .45489,    .20836,   1.45878,    .14490,    .07956,
     +     .05037,    .12172,    .18284 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .46012,    .23862,   1.15314,    .11386,    .00123,
     +     .00000,    .07242,    .16681,
     +     .46416,    .23923,   1.20745,    .11586,    .00220,
     +     .00000,    .07499,    .16848,
     +     .46965,    .23995,   1.27825,    .11859,    .00375,
     +     .00000,    .07856,    .17067,
     +     .47322,    .24030,   1.32078,    .12033,    .00498,
     +     .00000,    .08094,    .17201,
     +     .47663,    .24053,   1.35881,    .12195,    .00644,
     +     .00000,    .08324,    .17317,
     +     .47932,    .24063,   1.38663,    .12316,    .00785,
     +     .00000,    .08506,    .17397,
     +     .48159,    .24059,   1.40699,    .12407,    .00937,
     +    -.00001,    .08660,    .17448,
     +     .48383,    .24048,   1.42555,    .12484,    .01124,
     +    -.00001,    .08809,    .17483 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .48560,    .24032,   1.43836,    .12532,    .01308,
     +     .00000,    .08925,    .17492,
     +     .48710,    .24007,   1.44711,    .12558,    .01507,
     +     .00000,    .09021,    .17481,
     +     .48823,    .23985,   1.45302,    .12569,    .01680,
     +     .00000,    .09090,    .17462,
     +     .49027,    .23925,   1.45944,    .12553,    .02089,
     +     .00000,    .09206,    .17382,
     +     .49168,    .23861,   1.45993,    .12505,    .02477,
     +     .00086,    .09280,    .17278,
     +     .49295,    .23779,   1.45595,    .12427,    .02925,
     +     .00328,    .09340,    .17133,
     +     .49392,    .23680,   1.44717,    .12329,    .03376,
     +     .00680,    .09383,    .16967,
     +     .49456,    .23579,   1.43589,    .12236,    .03752,
     +     .00952,    .09413,    .16814 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .49484,    .23466,   1.42058,    .12142,    .04080,
     +     .01207,    .09432,    .16656,
     +     .49488,    .23367,   1.40599,    .12068,    .04312,
     +     .01405,    .09444,    .16529,
     +     .49476,    .23241,   1.38668,    .11984,    .04549,
     +     .01630,    .09455,    .16380,
     +     .49442,    .23122,   1.36764,    .11911,    .04720,
     +     .01814,    .09460,    .16250,
     +     .49395,    .23007,   1.34887,    .11844,    .04850,
     +     .01971,    .09459,    .16131,
     +     .49319,    .22856,   1.32419,    .11760,    .04988,
     +     .02157,    .09453,    .15981,
     +     .49225,    .22707,   1.29944,    .11677,    .05093,
     +     .02315,    .09439,    .15835,
     +     .49120,    .22562,   1.27540,    .11595,    .05173,
     +     .02452,    .09418,    .15696 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49007,    .22415,   1.25126,    .11513,    .05243,
     +     .02580,    .09394,    .15556,
     +     .48873,    .22265,   1.22648,    .11425,    .05297,
     +     .02691,    .09361,    .15412,
     +     .48739,    .22121,   1.20313,    .11340,    .05341,
     +     .02790,    .09327,    .15274,
     +     .48601,    .21982,   1.18075,    .11257,    .05376,
     +     .02876,    .09290,    .15141,
     +     .48453,    .21840,   1.15826,    .11171,    .05405,
     +     .02956,    .09248,    .15005,
     +     .48299,    .21697,   1.13600,    .11083,    .05427,
     +     .03027,    .09203,    .14869,
     +     .48145,    .21561,   1.11490,    .10997,    .05444,
     +     .03090,    .09157,    .14738,
     +     .47991,    .21429,   1.09485,    .10913,    .05456,
     +     .03143,    .09111,    .14610 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47833,    .21296,   1.07494,    .10829,    .05467,
     +     .03195,    .09063,    .14482,
     +     .47665,    .21161,   1.05502,    .10741,    .05470,
     +     .03239,    .09010,    .14352,
     +     .47506,    .21033,   1.03651,    .10658,    .05474,
     +     .03279,    .08961,    .14230,
     +     .47344,    .20908,   1.01871,    .10577,    .05472,
     +     .03312,    .08909,    .14110,
     +     .47180,    .20781,   1.00100,    .10494,    .05469,
     +     .03344,    .08856,    .13989 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .51808,    .26164,   1.06865,    .09836,    .00121,
     +    -.00001,    .06489,    .15366,
     +     .52071,    .26121,   1.10590,    .09957,    .00214,
     +    -.00001,    .06670,    .15421,
     +     .52406,    .26041,   1.15189,    .10115,    .00357,
     +     .00000,    .06915,    .15479,
     +     .52603,    .25967,   1.17730,    .10210,    .00467,
     +     .00000,    .07073,    .15499,
     +     .52776,    .25878,   1.19816,    .10289,    .00593,
     +     .00000,    .07222,    .15500,
     +     .52901,    .25791,   1.21186,    .10342,    .00712,
     +     .00000,    .07336,    .15486,
     +     .52988,    .25696,   1.21975,    .10373,    .00837,
     +     .00000,    .07428,    .15453,
     +     .53061,    .25591,   1.22557,    .10391,    .00987,
     +    -.00001,    .07514,    .15402 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .53105,    .25494,   1.22796,    .10393,    .01132,
     +     .00000,    .07577,    .15343,
     +     .53128,    .25392,   1.22739,    .10377,    .01286,
     +     .00000,    .07624,    .15271,
     +     .53141,    .25310,   1.22616,    .10357,    .01419,
     +     .00000,    .07656,    .15206,
     +     .53128,    .25123,   1.21879,    .10286,    .01729,
     +    -.00001,    .07699,    .15040,
     +     .53086,    .24952,   1.20871,    .10200,    .02018,
     +     .00065,    .07717,    .14872,
     +     .53008,    .24751,   1.19426,    .10085,    .02347,
     +     .00248,    .07719,    .14667,
     +     .52893,    .24534,   1.17606,    .09955,    .02674,
     +     .00512,    .07706,    .14442,
     +     .52762,    .24332,   1.15739,    .09837,    .02942,
     +     .00714,    .07689,    .14236 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .52597,    .24117,   1.13599,    .09716,    .03173,
     +     .00901,    .07662,    .14033,
     +     .52443,    .23935,   1.11712,    .09619,    .03333,
     +     .01044,    .07637,    .13866,
     +     .52239,    .23711,   1.09345,    .09508,    .03493,
     +     .01206,    .07605,    .13670,
     +     .52039,    .23507,   1.07142,    .09411,    .03605,
     +     .01337,    .07572,    .13500,
     +     .51840,    .23316,   1.05056,    .09322,    .03688,
     +     .01447,    .07538,    .13346,
     +     .51576,    .23071,   1.02391,    .09211,    .03772,
     +     .01577,    .07493,    .13154,
     +     .51306,    .22838,    .99820,    .09105,    .03833,
     +     .01685,    .07444,    .12971,
     +     .51039,    .22615,    .97384,    .09003,    .03878,
     +     .01777,    .07394,    .12799 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .50767,    .22392,    .94978,    .08902,    .03913,
     +     .01864,    .07342,    .12629,
     +     .50479,    .22169,    .92577,    .08799,    .03938,
     +     .01937,    .07285,    .12457,
     +     .50201,    .21959,    .90344,    .08702,    .03956,
     +     .02001,    .07229,    .12296,
     +     .49928,    .21759,    .88240,    .08608,    .03967,
     +     .02055,    .07173,    .12144,
     +     .49649,    .21558,    .86151,    .08513,    .03975,
     +     .02105,    .07114,    .11991,
     +     .49367,    .21357,    .84110,    .08416,    .03979,
     +     .02149,    .07054,    .11839,
     +     .49093,    .21167,    .82198,    .08324,    .03980,
     +     .02188,    .06995,    .11696,
     +     .48825,    .20987,    .80403,    .08237,    .03977,
     +     .02220,    .06937,    .11558 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48555,    .20806,    .78632,    .08149,    .03973,
     +     .02250,    .06879,    .11421,
     +     .48277,    .20625,    .76884,    .08061,    .03965,
     +     .02274,    .06818,    .11283,
     +     .48015,    .20456,    .75265,    .07978,    .03956,
     +     .02296,    .06761,    .11153,
     +     .47758,    .20291,    .73727,    .07896,    .03945,
     +     .02314,    .06704,    .11029,
     +     .47498,    .20126,    .72203,    .07813,    .03933,
     +     .02330,    .06647,    .10905 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .57813,    .28101,    .98605,    .08110,    .00116,
     +    -.00002,    .05579,    .13587,
     +     .57856,    .27926,   1.00659,    .08169,    .00203,
     +    -.00002,    .05695,    .13547,
     +     .57867,    .27653,   1.02892,    .08238,    .00333,
     +    -.00001,    .05844,    .13470,
     +     .57833,    .27442,   1.03843,    .08270,    .00429,
     +     .00000,    .05934,    .13398,
     +     .57764,    .27211,   1.04367,    .08288,    .00534,
     +    -.00001,    .06015,    .13308,
     +     .57679,    .27009,   1.04481,    .08291,    .00632,
     +    -.00001,    .06073,    .13220,
     +     .57565,    .26805,   1.04185,    .08278,    .00731,
     +    -.00001,    .06115,    .13122,
     +     .57428,    .26586,   1.03683,    .08254,    .00847,
     +    -.00001,    .06149,    .13006 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .57292,    .26393,   1.03051,    .08224,    .00957,
     +    -.00001,    .06170,    .12895,
     +     .57140,    .26200,   1.02233,    .08181,    .01071,
     +    -.00001,    .06180,    .12779,
     +     .57016,    .26047,   1.01536,    .08142,    .01169,
     +    -.00001,    .06184,    .12683,
     +     .56717,    .25712,    .99726,    .08039,    .01393,
     +    -.00001,    .06175,    .12457,
     +     .56429,    .25418,    .97929,    .07933,    .01597,
     +     .00047,    .06152,    .12248,
     +     .56081,    .25087,    .95734,    .07803,    .01827,
     +     .00180,    .06113,    .12005,
     +     .55691,    .24739,    .93277,    .07662,    .02051,
     +     .00371,    .06064,    .11749,
     +     .55317,    .24420,    .90944,    .07533,    .02231,
     +     .00513,    .06014,    .11520 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .54910,    .24094,    .88457,    .07404,    .02383,
     +     .00646,    .05959,    .11291,
     +     .54559,    .23822,    .86355,    .07300,    .02485,
     +     .00746,    .05910,    .11106,
     +     .54123,    .23492,    .83799,    .07179,    .02585,
     +     .00857,    .05851,    .10889,
     +     .53722,    .23199,    .81505,    .07074,    .02653,
     +     .00946,    .05797,    .10700,
     +     .53340,    .22930,    .79392,    .06979,    .02700,
     +     .01019,    .05745,    .10530,
     +     .52848,    .22591,    .76748,    .06861,    .02745,
     +     .01104,    .05677,    .10319,
     +     .52370,    .22269,    .74263,    .06749,    .02773,
     +     .01174,    .05610,    .10123,
     +     .51912,    .21968,    .71960,    .06644,    .02791,
     +     .01233,    .05544,    .09941 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51452,    .21671,    .69716,    .06541,    .02804,
     +     .01287,    .05479,    .09762,
     +     .50985,    .21379,    .67527,    .06438,    .02809,
     +     .01332,    .05410,    .09584,
     +     .50544,    .21105,    .65514,    .06341,    .02811,
     +     .01371,    .05345,    .09419,
     +     .50123,    .20845,    .63644,    .06248,    .02808,
     +     .01403,    .05282,    .09267,
     +     .49695,    .20586,    .61809,    .06155,    .02803,
     +     .01432,    .05218,    .09114,
     +     .49269,    .20333,    .60038,    .06064,    .02795,
     +     .01457,    .05153,    .08962,
     +     .48863,    .20095,    .58394,    .05978,    .02786,
     +     .01477,    .05092,    .08821,
     +     .48473,    .19869,    .56868,    .05895,    .02775,
     +     .01494,    .05033,    .08687 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48083,    .19644,    .55372,    .05814,    .02763,
     +     .01509,    .04974,    .08555,
     +     .47688,    .19421,    .53912,    .05733,    .02749,
     +     .01522,    .04913,    .08424,
     +     .47318,    .19212,    .52565,    .05657,    .02735,
     +     .01532,    .04856,    .08302,
     +     .46958,    .19012,    .51301,    .05584,    .02720,
     +     .01541,    .04801,    .08185,
     +     .46596,    .18813,    .50056,    .05511,    .02704,
     +     .01548,    .04745,    .08069 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .62524,    .29150,    .91617,    .06605,    .00110,
     +    -.00003,    .04719,    .11760,
     +     .62322,    .28847,    .92353,    .06627,    .00190,
     +    -.00003,    .04790,    .11663,
     +     .61976,    .28391,    .92772,    .06642,    .00306,
     +    -.00003,    .04877,    .11504,
     +     .61687,    .28051,    .92538,    .06638,    .00390,
     +    -.00002,    .04925,    .11378,
     +     .61354,    .27691,    .91929,    .06622,    .00479,
     +    -.00002,    .04963,    .11237,
     +     .61046,    .27383,    .91155,    .06600,    .00559,
     +    -.00002,    .04987,    .11107,
     +     .60724,    .27078,    .90113,    .06564,    .00639,
     +    -.00002,    .04998,    .10974,
     +     .60369,    .26756,    .88882,    .06519,    .00730,
     +    -.00003,    .05003,    .10828 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .60045,    .26477,    .87681,    .06473,    .00814,
     +    -.00003,    .05000,    .10694,
     +     .59716,    .26203,    .86381,    .06419,    .00900,
     +    -.00003,    .04989,    .10557,
     +     .59454,    .25987,    .85328,    .06372,    .00973,
     +    -.00003,    .04978,    .10447,
     +     .58861,    .25527,    .82880,    .06260,    .01137,
     +    -.00003,    .04939,    .10200,
     +     .58329,    .25130,    .80642,    .06152,    .01284,
     +     .00033,    .04896,    .09979,
     +     .57717,    .24688,    .78060,    .06024,    .01446,
     +     .00133,    .04839,    .09729,
     +     .57061,    .24230,    .75311,    .05886,    .01601,
     +     .00274,    .04773,    .09470,
     +     .56451,    .23819,    .72796,    .05763,    .01724,
     +     .00380,    .04710,    .09239 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .55817,    .23401,    .70213,    .05640,    .01825,
     +     .00475,    .04642,    .09012,
     +     .55281,    .23058,    .68082,    .05541,    .01891,
     +     .00546,    .04586,    .08828,
     +     .54627,    .22648,    .65541,    .05425,    .01954,
     +     .00625,    .04517,    .08613,
     +     .54039,    .22284,    .63312,    .05324,    .01993,
     +     .00687,    .04456,    .08428,
     +     .53491,    .21954,    .61297,    .05234,    .02018,
     +     .00738,    .04398,    .08262,
     +     .52796,    .21542,    .58810,    .05123,    .02041,
     +     .00796,    .04325,    .08056,
     +     .52133,    .21157,    .56517,    .05019,    .02053,
     +     .00843,    .04254,    .07864,
     +     .51508,    .20798,    .54423,    .04921,    .02057,
     +     .00881,    .04186,    .07690 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .50887,    .20446,    .52405,    .04824,    .02058,
     +     .00915,    .04118,    .07522,
     +     .50268,    .20102,    .50465,    .04730,    .02053,
     +     .00944,    .04050,    .07356,
     +     .49686,    .19783,    .48697,    .04642,    .02046,
     +     .00968,    .03986,    .07202,
     +     .49133,    .19486,    .47074,    .04561,    .02037,
     +     .00987,    .03926,    .07057,
     +     .48579,    .19191,    .45495,    .04480,    .02027,
     +     .01004,    .03865,    .06915,
     +     .48034,    .18903,    .43987,    .04399,    .02015,
     +     .01018,    .03803,    .06778,
     +     .47518,    .18631,    .42598,    .04323,    .02002,
     +     .01030,    .03746,    .06650,
     +     .47030,    .18375,    .41318,    .04251,    .01988,
     +     .01040,    .03691,    .06531 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46542,    .18121,    .40070,    .04180,    .01973,
     +     .01048,    .03636,    .06413,
     +     .46051,    .17872,    .38864,    .04110,    .01957,
     +     .01053,    .03582,    .06296,
     +     .45592,    .17639,    .37756,    .04046,    .01942,
     +     .01058,    .03531,    .06187,
     +     .45152,    .17418,    .36725,    .03984,    .01926,
     +     .01060,    .03482,    .06084,
     +     .44711,    .17197,    .35715,    .03921,    .01911,
     +     .01061,    .03433,    .05981 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .66002,    .29458,    .85220,    .05311,    .00102,
     +     .00000,    .03927,    .09978,
     +     .65544,    .29038,    .84907,    .05312,    .00175,
     +    -.00001,    .03969,    .09848,
     +     .64829,    .28418,    .83922,    .05297,    .00277,
     +    -.00001,    .04015,    .09649,
     +     .64276,    .27968,    .82801,    .05276,    .00349,
     +    -.00001,    .04035,    .09497,
     +     .63675,    .27498,    .81366,    .05244,    .00424,
     +    -.00001,    .04046,    .09331,
     +     .63145,    .27096,    .79962,    .05209,    .00489,
     +    -.00002,    .04049,    .09183,
     +     .62613,    .26708,    .78409,    .05166,    .00553,
     +    -.00001,    .04041,    .09037,
     +     .62042,    .26301,    .76693,    .05114,    .00624,
     +    -.00001,    .04028,    .08879 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .61535,    .25950,    .75127,    .05064,    .00688,
     +    -.00001,    .04012,    .08737,
     +     .61033,    .25611,    .73530,    .05008,    .00753,
     +    -.00001,    .03990,    .08598,
     +     .60635,    .25345,    .72265,    .04961,    .00808,
     +    -.00001,    .03970,    .08487,
     +     .59766,    .24782,    .69464,    .04852,    .00927,
     +    -.00001,    .03919,    .08242,
     +     .59004,    .24302,    .67008,    .04752,    .01033,
     +     .00026,    .03867,    .08027,
     +     .58145,    .23773,    .64263,    .04634,    .01147,
     +     .00101,    .03804,    .07788,
     +     .57243,    .23232,    .61429,    .04510,    .01255,
     +     .00206,    .03733,    .07543,
     +     .56419,    .22749,    .58899,    .04400,    .01338,
     +     .00284,    .03668,    .07327 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55578,    .22264,    .56364,    .04288,    .01403,
     +     .00352,    .03597,    .07119,
     +     .54878,    .21868,    .54307,    .04199,    .01446,
     +     .00404,    .03541,    .06949,
     +     .54033,    .21397,    .51891,    .04096,    .01484,
     +     .00460,    .03473,    .06749,
     +     .53280,    .20986,    .49808,    .04006,    .01507,
     +     .00503,    .03412,    .06578,
     +     .52587,    .20615,    .47948,    .03927,    .01520,
     +     .00538,    .03355,    .06426,
     +     .51714,    .20155,    .45680,    .03829,    .01528,
     +     .00577,    .03284,    .06238,
     +     .50897,    .19725,    .43618,    .03736,    .01530,
     +     .00609,    .03218,    .06064,
     +     .50131,    .19329,    .41759,    .03651,    .01527,
     +     .00634,    .03154,    .05907 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49375,    .18943,    .39983,    .03569,    .01522,
     +     .00655,    .03091,    .05755,
     +     .48631,    .18567,    .38297,    .03486,    .01512,
     +     .00673,    .03029,    .05608,
     +     .47936,    .18220,    .36772,    .03410,    .01502,
     +     .00689,    .02971,    .05472,
     +     .47281,    .17898,    .35385,    .03340,    .01491,
     +     .00702,    .02916,    .05346,
     +     .46628,    .17580,    .34045,    .03271,    .01479,
     +     .00712,    .02862,    .05221,
     +     .45989,    .17271,    .32774,    .03204,    .01465,
     +     .00719,    .02808,    .05102,
     +     .45386,    .16981,    .31612,    .03141,    .01451,
     +     .00725,    .02757,    .04991,
     +     .44819,    .16711,    .30548,    .03081,    .01437,
     +     .00729,    .02709,    .04888 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .44255,    .16443,    .29516,    .03022,    .01423,
     +     .00732,    .02661,    .04786,
     +     .43696,    .16181,    .28527,    .02964,    .01407,
     +     .00734,    .02615,    .04687,
     +     .43173,    .15936,    .27622,    .02909,    .01393,
     +     .00736,    .02571,    .04595,
     +     .42671,    .15705,    .26785,    .02859,    .01379,
     +     .00737,    .02530,    .04507,
     +     .42170,    .15475,    .25969,    .02809,    .01365,
     +     .00737,    .02489,    .04420 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .68321,    .29144,    .79074,    .04214,    .00092,
     +    -.00003,    .03217,    .08309,
     +     .67606,    .28626,    .77931,    .04203,    .00158,
     +    -.00003,    .03240,    .08166,
     +     .66523,    .27869,    .75870,    .04176,    .00248,
     +    -.00002,    .03260,    .07952,
     +     .65714,    .27326,    .74092,    .04147,    .00309,
     +    -.00002,    .03264,    .07793,
     +     .64855,    .26764,    .72067,    .04109,    .00372,
     +    -.00002,    .03260,    .07622,
     +     .64110,    .26287,    .70228,    .04070,    .00426,
     +    -.00003,    .03251,    .07473,
     +     .63380,    .25832,    .68336,    .04025,    .00476,
     +    -.00002,    .03234,    .07330,
     +     .62604,    .25357,    .66314,    .03973,    .00532,
     +    -.00002,    .03212,    .07175 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .61925,    .24951,    .64530,    .03923,    .00581,
     +    -.00002,    .03189,    .07039,
     +     .61263,    .24561,    .62767,    .03872,    .00630,
     +    -.00002,    .03163,    .06905,
     +     .60741,    .24257,    .61389,    .03829,    .00670,
     +    -.00002,    .03140,    .06799,
     +     .59619,    .23614,    .58426,    .03731,    .00757,
     +    -.00002,    .03086,    .06571,
     +     .58650,    .23072,    .55902,    .03641,    .00833,
     +     .00019,    .03033,    .06374,
     +     .57570,    .22480,    .53142,    .03537,    .00914,
     +     .00075,    .02970,    .06158,
     +     .56452,    .21877,    .50351,    .03428,    .00988,
     +     .00154,    .02902,    .05940,
     +     .55443,    .21345,    .47906,    .03332,    .01045,
     +     .00212,    .02840,    .05747 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54421,    .20816,    .45504,    .03240,    .01088,
     +     .00264,    .02776,    .05556,
     +     .53579,    .20385,    .43581,    .03163,    .01115,
     +     .00301,    .02723,    .05406,
     +     .52571,    .19874,    .41348,    .03073,    .01137,
     +     .00341,    .02659,    .05232,
     +     .51682,    .19432,    .39445,    .02997,    .01148,
     +     .00372,    .02603,    .05083,
     +     .50871,    .19034,    .37767,    .02929,    .01153,
     +     .00397,    .02552,    .04948,
     +     .49857,    .18542,    .35742,    .02845,    .01155,
     +     .00425,    .02489,    .04783,
     +     .48913,    .18089,    .33921,    .02766,    .01151,
     +     .00447,    .02428,    .04634,
     +     .48035,    .17673,    .32295,    .02695,    .01144,
     +     .00463,    .02371,    .04498 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .47173,    .17270,    .30755,    .02625,    .01135,
     +     .00477,    .02316,    .04366,
     +     .46329,    .16879,    .29310,    .02558,    .01125,
     +     .00489,    .02262,    .04240,
     +     .45546,    .16519,    .28011,    .02496,    .01115,
     +     .00498,    .02212,    .04124,
     +     .44815,    .16186,    .26837,    .02437,    .01102,
     +     .00505,    .02165,    .04018,
     +     .44088,    .15858,    .25710,    .02380,    .01090,
     +     .00510,    .02118,    .03914,
     +     .43379,    .15543,    .24650,    .02325,    .01077,
     +     .00515,    .02072,    .03812,
     +     .42714,    .15248,    .23685,    .02274,    .01064,
     +     .00518,    .02030,    .03719,
     +     .42091,    .14972,    .22808,    .02226,    .01051,
     +     .00520,    .01990,    .03633 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .41474,    .14700,    .21961,    .02178,    .01038,
     +     .00521,    .01950,    .03548,
     +     .40864,    .14434,    .21156,    .02132,    .01024,
     +     .00522,    .01911,    .03467,
     +     .40296,    .14186,    .20420,    .02088,    .01011,
     +     .00522,    .01874,    .03391,
     +     .39755,    .13954,    .19745,    .02048,    .00998,
     +     .00521,    .01840,    .03320,
     +     .39215,    .13724,    .19089,    .02008,    .00985,
     +     .00519,    .01806,    .03249 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .69543,    .28331,    .73028,    .03299,    .00083,
     +    -.00003,    .02596,    .06795,
     +     .68581,    .27732,    .71247,    .03284,    .00141,
     +    -.00002,    .02608,    .06655,
     +     .67152,    .26865,    .68384,    .03251,    .00219,
     +    -.00002,    .02613,    .06446,
     +     .66104,    .26248,    .66137,    .03221,    .00272,
     +    -.00002,    .02609,    .06291,
     +     .65005,    .25615,    .63709,    .03182,    .00324,
     +    -.00002,    .02596,    .06129,
     +     .64065,    .25081,    .61591,    .03143,    .00367,
     +    -.00003,    .02580,    .05991,
     +     .63152,    .24575,    .59496,    .03101,    .00408,
     +    -.00001,    .02560,    .05856,
     +     .62192,    .24050,    .57301,    .03053,    .00451,
     +    -.00001,    .02535,    .05713 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .61362,    .23600,    .55404,    .03008,    .00488,
     +    -.00001,    .02511,    .05589,
     +     .60556,    .23174,    .53572,    .02962,    .00524,
     +    -.00002,    .02484,    .05469,
     +     .59924,    .22843,    .52156,    .02924,    .00554,
     +    -.00003,    .02461,    .05374,
     +     .58575,    .22150,    .49174,    .02841,    .00618,
     +    -.00002,    .02408,    .05168,
     +     .57427,    .21566,    .46683,    .02764,    .00672,
     +     .00015,    .02358,    .04995,
     +     .56159,    .20931,    .44005,    .02676,    .00729,
     +     .00059,    .02301,    .04807,
     +     .54858,    .20291,    .41343,    .02585,    .00780,
     +     .00119,    .02239,    .04617,
     +     .53694,    .19727,    .39046,    .02505,    .00818,
     +     .00162,    .02183,    .04451 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52524,    .19172,    .36824,    .02427,    .00846,
     +     .00199,    .02126,    .04288,
     +     .51567,    .18723,    .35065,    .02363,    .00861,
     +     .00227,    .02079,    .04159,
     +     .50428,    .18195,    .33042,    .02289,    .00873,
     +     .00256,    .02023,    .04010,
     +     .49431,    .17738,    .31340,    .02225,    .00879,
     +     .00279,    .01975,    .03881,
     +     .48529,    .17328,    .29851,    .02169,    .00879,
     +     .00296,    .01930,    .03767,
     +     .47408,    .16823,    .28069,    .02100,    .00876,
     +     .00315,    .01875,    .03628,
     +     .46363,    .16363,    .26484,    .02036,    .00869,
     +     .00330,    .01823,    .03502,
     +     .45403,    .15940,    .25083,    .01977,    .00862,
     +     .00342,    .01775,    .03389 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .44466,    .15529,    .23764,    .01920,    .00853,
     +     .00353,    .01728,    .03279,
     +     .43553,    .15138,    .22538,    .01865,    .00841,
     +     .00359,    .01683,    .03175,
     +     .42709,    .14778,    .21442,    .01814,    .00829,
     +     .00364,    .01641,    .03079,
     +     .41923,    .14446,    .20460,    .01768,    .00817,
     +     .00368,    .01601,    .02992,
     +     .41147,    .14119,    .19523,    .01723,    .00806,
     +     .00371,    .01563,    .02906,
     +     .40394,    .13805,    .18645,    .01678,    .00794,
     +     .00373,    .01526,    .02823,
     +     .39689,    .13514,    .17851,    .01637,    .00783,
     +     .00374,    .01491,    .02747,
     +     .39029,    .13243,    .17133,    .01599,    .00771,
     +     .00375,    .01458,    .02679 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .38377,    .12976,    .16443,    .01562,    .00760,
     +     .00376,    .01425,    .02611,
     +     .37739,    .12715,    .15790,    .01526,    .00749,
     +     .00374,    .01393,    .02543,
     +     .37145,    .12474,    .15196,    .01492,    .00739,
     +     .00372,    .01364,    .02480,
     +     .36582,    .12247,    .14654,    .01460,    .00728,
     +     .00371,    .01336,    .02424,
     +     .36021,    .12023,    .14128,    .01428,    .00716,
     +     .00370,    .01309,    .02368 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .69754,    .27114,    .67037,    .02543,    .00075,
     +     .00006,    .02067,    .05465,
     +     .68564,    .26456,    .64783,    .02530,    .00125,
     +     .00004,    .02070,    .05334,
     +     .66814,    .25512,    .61355,    .02500,    .00192,
     +     .00005,    .02066,    .05141,
     +     .65551,    .24843,    .58802,    .02472,    .00235,
     +     .00005,    .02055,    .05001,
     +     .64238,    .24160,    .56127,    .02438,    .00277,
     +     .00004,    .02039,    .04854,
     +     .63118,    .23589,    .53848,    .02406,    .00312,
     +     .00003,    .02022,    .04728,
     +     .62045,    .23053,    .51656,    .02369,    .00342,
     +     .00003,    .02000,    .04609,
     +     .60924,    .22497,    .49396,    .02328,    .00376,
     +     .00004,    .01974,    .04482 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .59961,    .22022,    .47474,    .02290,    .00405,
     +     .00004,    .01951,    .04371,
     +     .59033,    .21572,    .45648,    .02250,    .00433,
     +     .00004,    .01926,    .04266,
     +     .58310,    .21224,    .44247,    .02218,    .00455,
     +     .00004,    .01905,    .04184,
     +     .56777,    .20499,    .41336,    .02148,    .00498,
     +     .00004,    .01858,    .04009,
     +     .55480,    .19892,    .38946,    .02084,    .00536,
     +     .00016,    .01813,    .03864,
     +     .54058,    .19237,    .36417,    .02012,    .00575,
     +     .00048,    .01762,    .03704,
     +     .52607,    .18583,    .33942,    .01939,    .00610,
     +     .00093,    .01709,    .03542,
     +     .51318,    .18009,    .31831,    .01875,    .00634,
     +     .00124,    .01661,    .03401 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .50042,    .17442,    .29810,    .01809,    .00651,
     +     .00151,    .01611,    .03268,
     +     .49000,    .16986,    .28229,    .01756,    .00660,
     +     .00171,    .01571,    .03161,
     +     .47763,    .16453,    .26428,    .01697,    .00666,
     +     .00191,    .01524,    .03037,
     +     .46688,    .15996,    .24927,    .01646,    .00667,
     +     .00206,    .01482,    .02930,
     +     .45718,    .15587,    .23625,    .01601,    .00666,
     +     .00218,    .01445,    .02835,
     +     .44518,    .15086,    .22078,    .01546,    .00662,
     +     .00232,    .01399,    .02720,
     +     .43411,    .14629,    .20720,    .01494,    .00654,
     +     .00243,    .01356,    .02618,
     +     .42396,    .14213,    .19524,    .01447,    .00645,
     +     .00250,    .01317,    .02526 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .41409,    .13811,    .18406,    .01401,    .00635,
     +     .00256,    .01278,    .02437,
     +     .40454,    .13426,    .17375,    .01357,    .00624,
     +     .00260,    .01241,    .02354,
     +     .39573,    .13073,    .16460,    .01317,    .00614,
     +     .00264,    .01207,    .02278,
     +     .38759,    .12750,    .15645,    .01280,    .00605,
     +     .00265,    .01175,    .02206,
     +     .37955,    .12434,    .14871,    .01244,    .00595,
     +     .00266,    .01143,    .02137,
     +     .37176,    .12131,    .14152,    .01210,    .00585,
     +     .00267,    .01113,    .02072,
     +     .36450,    .11849,    .13504,    .01179,    .00575,
     +     .00267,    .01085,    .02012,
     +     .35774,    .11589,    .12920,    .01150,    .00565,
     +     .00266,    .01059,    .01957 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .35108,    .11333,    .12361,    .01121,    .00555,
     +     .00266,    .01033,    .01903,
     +     .34459,    .11084,    .11835,    .01091,    .00545,
     +     .00265,    .01008,    .01851,
     +     .33856,    .10854,    .11358,    .01064,    .00536,
     +     .00264,    .00985,    .01802,
     +     .33285,    .10638,    .10925,    .01039,    .00527,
     +     .00263,    .00964,    .01757,
     +     .32720,    .10425,    .10506,    .01014,    .00518,
     +     .00262,    .00943,    .01713 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .69011,    .25626,    .61133,    .01960,    .00056,
     +    -.00014,    .01601,    .04319,
     +     .67622,    .24925,    .58547,    .01945,    .00099,
     +    -.00014,    .01604,    .04203,
     +     .65599,    .23925,    .54749,    .01918,    .00156,
     +    -.00013,    .01597,    .04033,
     +     .64150,    .23222,    .52016,    .01892,    .00193,
     +    -.00013,    .01586,    .03911,
     +     .62655,    .22508,    .49217,    .01861,    .00228,
     +    -.00013,    .01571,    .03783,
     +     .61392,    .21913,    .46876,    .01832,    .00257,
     +    -.00013,    .01555,    .03673,
     +     .60191,    .21355,    .44669,    .01800,    .00282,
     +    -.00013,    .01535,    .03572,
     +     .58940,    .20780,    .42421,    .01764,    .00306,
     +    -.00014,    .01513,    .03465 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .57868,    .20294,    .40533,    .01732,    .00327,
     +    -.00015,    .01493,    .03371,
     +     .56842,    .19834,    .38760,    .01699,    .00347,
     +    -.00014,    .01472,    .03283,
     +     .56044,    .19478,    .37409,    .01672,    .00364,
     +    -.00012,    .01454,    .03214,
     +     .54368,    .18741,    .34647,    .01612,    .00397,
     +    -.00012,    .01412,    .03069,
     +     .52954,    .18129,    .32408,    .01561,    .00423,
     +    -.00003,    .01374,    .02948,
     +     .51416,    .17472,    .30069,    .01504,    .00449,
     +     .00023,    .01331,    .02816,
     +     .49859,    .16816,    .27807,    .01445,    .00471,
     +     .00058,    .01287,    .02683,
     +     .48483,    .16246,    .25895,    .01393,    .00487,
     +     .00083,    .01248,    .02568 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .47123,    .15686,    .24093,    .01341,    .00497,
     +     .00104,    .01207,    .02460,
     +     .46020,    .15237,    .22695,    .01301,    .00501,
     +     .00120,    .01175,    .02372,
     +     .44718,    .14713,    .21116,    .01255,    .00503,
     +     .00136,    .01136,    .02270,
     +     .43594,    .14265,    .19811,    .01212,    .00504,
     +     .00149,    .01102,    .02185,
     +     .42585,    .13866,    .18686,    .01175,    .00500,
     +     .00157,    .01071,    .02110,
     +     .41342,    .13377,    .17360,    .01131,    .00494,
     +     .00166,    .01034,    .02019,
     +     .40200,    .12934,    .16203,    .01090,    .00486,
     +     .00173,    .00999,    .01937,
     +     .39156,    .12533,    .15195,    .01053,    .00478,
     +     .00178,    .00967,    .01862 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .38144,    .12148,    .14258,    .01017,    .00471,
     +     .00182,    .00937,    .01790,
     +     .37170,    .11779,    .13399,    .00982,    .00462,
     +     .00186,    .00907,    .01725,
     +     .36275,    .11442,    .12641,    .00952,    .00453,
     +     .00188,    .00880,    .01665,
     +     .35446,    .11135,    .11971,    .00925,    .00445,
     +     .00189,    .00855,    .01608,
     +     .34634,    .10834,    .11337,    .00898,    .00436,
     +     .00189,    .00830,    .01553,
     +     .33855,    .10547,    .10750,    .00870,    .00428,
     +     .00190,    .00806,    .01503,
     +     .33128,    .10281,    .10224,    .00845,    .00420,
     +     .00190,    .00784,    .01456,
     +     .32451,    .10036,    .09753,    .00823,    .00412,
     +     .00190,    .00763,    .01413 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .31787,    .09797,    .09303,    .00801,    .00404,
     +     .00189,    .00744,    .01371,
     +     .31142,    .09564,    .08882,    .00778,    .00396,
     +     .00188,    .00724,    .01331,
     +     .30545,    .09348,    .08501,    .00757,    .00388,
     +     .00186,    .00706,    .01294,
     +     .29979,    .09148,    .08156,    .00738,    .00381,
     +     .00185,    .00689,    .01259,
     +     .29418,    .08951,    .07825,    .00721,    .00374,
     +     .00184,    .00672,    .01225 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .67472,    .23875,    .55290,    .01466,    .00053,
     +    -.00002,    .01240,    .03359,
     +     .65913,    .23150,    .52502,    .01453,    .00089,
     +    -.00004,    .01241,    .03260,
     +     .63653,    .22126,    .48509,    .01433,    .00135,
     +    -.00002,    .01232,    .03115,
     +     .62048,    .21410,    .45702,    .01413,    .00164,
     +    -.00002,    .01221,    .03012,
     +     .60404,    .20686,    .42880,    .01387,    .00193,
     +    -.00004,    .01206,    .02905,
     +     .59021,    .20085,    .40560,    .01364,    .00215,
     +    -.00003,    .01190,    .02814,
     +     .57714,    .19522,    .38404,    .01338,    .00234,
     +    -.00004,    .01173,    .02729,
     +     .56359,    .18946,    .36229,    .01310,    .00252,
     +    -.00004,    .01155,    .02639 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55203,    .18461,    .34420,    .01285,    .00268,
     +    -.00004,    .01137,    .02561,
     +     .54103,    .18003,    .32742,    .01259,    .00282,
     +    -.00003,    .01117,    .02490,
     +     .53249,    .17649,    .31473,    .01239,    .00293,
     +    -.00002,    .01101,    .02435,
     +     .51463,    .16919,    .28900,    .01192,    .00316,
     +    -.00002,    .01066,    .02316,
     +     .49967,    .16317,    .26843,    .01152,    .00335,
     +     .00005,    .01035,    .02217,
     +     .48348,    .15673,    .24718,    .01107,    .00352,
     +     .00023,    .01001,    .02110,
     +     .46720,    .15032,    .22687,    .01061,    .00366,
     +     .00049,    .00965,    .02005,
     +     .45291,    .14473,    .20988,    .01019,    .00376,
     +     .00067,    .00931,    .01915 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43878,    .13935,    .19402,    .00982,    .00381,
     +     .00082,    .00898,    .01825,
     +     .42743,    .13502,    .18181,    .00950,    .00382,
     +     .00093,    .00871,    .01756,
     +     .41410,    .12998,    .16811,    .00911,    .00382,
     +     .00104,    .00840,    .01677,
     +     .40261,    .12569,    .15687,    .00880,    .00379,
     +     .00111,    .00812,    .01609,
     +     .39232,    .12188,    .14729,    .00852,    .00376,
     +     .00117,    .00788,    .01549,
     +     .37970,    .11724,    .13607,    .00819,    .00370,
     +     .00124,    .00759,    .01476,
     +     .36821,    .11303,    .12634,    .00785,    .00363,
     +     .00128,    .00732,    .01414,
     +     .35772,    .10924,    .11791,    .00757,    .00356,
     +     .00131,    .00706,    .01356 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .34757,    .10561,    .11012,    .00732,    .00349,
     +     .00134,    .00682,    .01300,
     +     .33784,    .10217,    .10306,    .00705,    .00340,
     +     .00136,    .00658,    .01249,
     +     .32894,    .09903,    .09685,    .00680,    .00333,
     +     .00137,    .00637,    .01203,
     +     .32077,    .09616,    .09136,    .00657,    .00327,
     +     .00137,    .00617,    .01161,
     +     .31276,    .09337,    .08622,    .00636,    .00320,
     +     .00137,    .00598,    .01119,
     +     .30506,    .09070,    .08148,    .00616,    .00312,
     +     .00136,    .00579,    .01078,
     +     .29791,    .08824,    .07725,    .00598,    .00306,
     +     .00136,    .00563,    .01042,
     +     .29128,    .08598,    .07347,    .00582,    .00299,
     +     .00136,    .00547,    .01010 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .28478,    .08377,    .06988,    .00566,    .00293,
     +     .00135,    .00531,    .00978,
     +     .27848,    .08163,    .06654,    .00549,    .00287,
     +     .00134,    .00516,    .00946,
     +     .27264,    .07966,    .06352,    .00534,    .00281,
     +     .00133,    .00502,    .00917,
     +     .26717,    .07783,    .06081,    .00520,    .00275,
     +     .00132,    .00490,    .00891,
     +     .26177,    .07602,    .05821,    .00506,    .00269,
     +     .00130,    .00477,    .00867 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .65201,    .21986,    .49603,    .01086,    .00045,
     +    -.00005,    .00941,    .02568,
     +     .63501,    .21259,    .46717,    .01079,    .00074,
     +    -.00003,    .00940,    .02485,
     +     .61059,    .20230,    .42670,    .01061,    .00112,
     +    -.00004,    .00932,    .02369,
     +     .59334,    .19517,    .39880,    .01046,    .00136,
     +    -.00004,    .00922,    .02284,
     +     .57575,    .18799,    .37114,    .01027,    .00158,
     +    -.00003,    .00910,    .02195,
     +     .56105,    .18203,    .34869,    .01008,    .00175,
     +    -.00002,    .00897,    .02122,
     +     .54721,    .17650,    .32810,    .00988,    .00190,
     +    -.00003,    .00883,    .02051,
     +     .53292,    .17085,    .30752,    .00967,    .00204,
     +    -.00003,    .00867,    .01979 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52078,    .16609,    .29059,    .00946,    .00216,
     +    -.00003,    .00850,    .01919,
     +     .50929,    .16162,    .27502,    .00925,    .00226,
     +    -.00003,    .00835,    .01862,
     +     .50039,    .15817,    .26330,    .00908,    .00233,
     +    -.00004,    .00823,    .01818,
     +     .48188,    .15109,    .23981,    .00871,    .00249,
     +    -.00004,    .00795,    .01724,
     +     .46645,    .14527,    .22123,    .00841,    .00261,
     +     .00003,    .00769,    .01645,
     +     .44980,    .13907,    .20221,    .00807,    .00272,
     +     .00017,    .00741,    .01560,
     +     .43312,    .13293,    .18422,    .00773,    .00281,
     +     .00036,    .00713,    .01476,
     +     .41856,    .12762,    .16931,    .00741,    .00287,
     +     .00050,    .00687,    .01406 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40437,    .12247,    .15554,    .00709,    .00290,
     +     .00061,    .00661,    .01336,
     +     .39292,    .11837,    .14502,    .00686,    .00289,
     +     .00068,    .00640,    .01282,
     +     .37948,    .11363,    .13329,    .00660,    .00287,
     +     .00076,    .00615,    .01220,
     +     .36796,    .10960,    .12375,    .00637,    .00285,
     +     .00082,    .00593,    .01167,
     +     .35773,    .10603,    .11566,    .00614,    .00281,
     +     .00086,    .00574,    .01122,
     +     .34522,    .10169,    .10625,    .00586,    .00275,
     +     .00091,    .00551,    .01068,
     +     .33382,    .09778,    .09815,    .00563,    .00269,
     +     .00094,    .00529,    .01018,
     +     .32348,    .09427,    .09119,    .00542,    .00263,
     +     .00096,    .00509,    .00974 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .31351,    .09091,    .08480,    .00522,    .00257,
     +     .00097,    .00491,    .00932,
     +     .30402,    .08773,    .07902,    .00501,    .00250,
     +     .00097,    .00472,    .00893,
     +     .29534,    .08483,    .07397,    .00483,    .00244,
     +     .00098,    .00456,    .00858,
     +     .28739,    .08219,    .06954,    .00466,    .00238,
     +     .00099,    .00441,    .00825,
     +     .27961,    .07963,    .06540,    .00450,    .00232,
     +     .00099,    .00427,    .00794,
     +     .27215,    .07721,    .06160,    .00436,    .00226,
     +     .00098,    .00412,    .00764,
     +     .26527,    .07497,    .05822,    .00422,    .00221,
     +     .00097,    .00399,    .00737,
     +     .25891,    .07292,    .05522,    .00408,    .00216,
     +     .00096,    .00387,    .00713 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .25268,    .07092,    .05238,    .00395,    .00211,
     +     .00095,    .00375,    .00690,
     +     .24664,    .06899,    .04975,    .00383,    .00206,
     +     .00094,    .00364,    .00667,
     +     .24105,    .06721,    .04738,    .00372,    .00202,
     +     .00094,    .00355,    .00646,
     +     .23583,    .06556,    .04525,    .00362,    .00198,
     +     .00093,    .00345,    .00626,
     +     .23068,    .06393,    .04321,    .00353,    .00193,
     +     .00092,    .00336,    .00606 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62310,    .20010,    .44108,    .00789,    .00038,
     +     .00001,    .00705,    .01931,
     +     .60507,    .19292,    .41222,    .00784,    .00063,
     +     .00000,    .00705,    .01865,
     +     .57931,    .18281,    .37231,    .00770,    .00095,
     +     .00000,    .00699,    .01769,
     +     .56122,    .17584,    .34528,    .00758,    .00114,
     +     .00000,    .00691,    .01702,
     +     .54288,    .16884,    .31881,    .00744,    .00130,
     +    -.00001,    .00679,    .01633,
     +     .52763,    .16307,    .29756,    .00729,    .00143,
     +     .00000,    .00669,    .01575,
     +     .51329,    .15773,    .27831,    .00715,    .00153,
     +     .00000,    .00656,    .01522,
     +     .49855,    .15227,    .25922,    .00699,    .00163,
     +     .00000,    .00643,    .01466 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48610,    .14770,    .24363,    .00683,    .00172,
     +     .00000,    .00632,    .01417,
     +     .47432,    .14343,    .22941,    .00670,    .00179,
     +     .00001,    .00619,    .01369,
     +     .46523,    .14016,    .21879,    .00659,    .00184,
     +     .00001,    .00609,    .01333,
     +     .44638,    .13342,    .19770,    .00633,    .00195,
     +     .00000,    .00587,    .01260,
     +     .43080,    .12789,    .18116,    .00608,    .00202,
     +     .00004,    .00566,    .01202,
     +     .41407,    .12203,    .16438,    .00581,    .00210,
     +     .00014,    .00544,    .01137,
     +     .39738,    .11626,    .14867,    .00555,    .00215,
     +     .00029,    .00521,    .01072,
     +     .38288,    .11128,    .13578,    .00530,    .00217,
     +     .00039,    .00500,    .01018 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36871,    .10648,    .12397,    .00509,    .00217,
     +     .00047,    .00480,    .00966,
     +     .35738,    .10267,    .11500,    .00490,    .00217,
     +     .00052,    .00465,    .00925,
     +     .34418,    .09826,    .10507,    .00468,    .00216,
     +     .00057,    .00446,    .00878,
     +     .33287,    .09453,    .09708,    .00451,    .00212,
     +     .00061,    .00428,    .00839,
     +     .32284,    .09124,    .09033,    .00437,    .00208,
     +     .00063,    .00413,    .00804,
     +     .31062,    .08727,    .08253,    .00418,    .00203,
     +     .00066,    .00395,    .00760,
     +     .29957,    .08370,    .07586,    .00398,    .00197,
     +     .00068,    .00378,    .00724,
     +     .28957,    .08049,    .07016,    .00381,    .00192,
     +     .00069,    .00364,    .00691 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27996,    .07742,    .06494,    .00367,    .00188,
     +     .00070,    .00349,    .00659,
     +     .27085,    .07453,    .06027,    .00351,    .00183,
     +     .00071,    .00336,    .00630,
     +     .26253,    .07191,    .05621,    .00338,    .00178,
     +     .00071,    .00323,    .00604,
     +     .25491,    .06952,    .05267,    .00327,    .00173,
     +     .00070,    .00312,    .00579,
     +     .24750,    .06722,    .04937,    .00315,    .00168,
     +     .00070,    .00301,    .00556,
     +     .24043,    .06504,    .04635,    .00303,    .00164,
     +     .00069,    .00290,    .00535,
     +     .23390,    .06303,    .04369,    .00293,    .00159,
     +     .00069,    .00280,    .00516,
     +     .22786,    .06120,    .04133,    .00283,    .00155,
     +     .00068,    .00272,    .00498 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .22197,    .05941,    .03910,    .00274,    .00151,
     +     .00068,    .00264,    .00480,
     +     .21627,    .05770,    .03703,    .00267,    .00147,
     +     .00067,    .00255,    .00462,
     +     .21101,    .05613,    .03518,    .00260,    .00143,
     +     .00067,    .00247,    .00446,
     +     .20612,    .05466,    .03353,    .00252,    .00140,
     +     .00066,    .00240,    .00433,
     +     .20131,    .05321,    .03195,    .00243,    .00136,
     +     .00064,    .00233,    .00420 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .58908,    .17998,    .38855,    .00559,    .00036,
     +     .00007,    .00525,    .01424,
     +     .57034,    .17306,    .36037,    .00557,    .00054,
     +     .00007,    .00523,    .01373,
     +     .54373,    .16332,    .32200,    .00549,    .00078,
     +     .00007,    .00517,    .01301,
     +     .52517,    .15662,    .29637,    .00541,    .00093,
     +     .00006,    .00511,    .01250,
     +     .50642,    .14993,    .27154,    .00530,    .00106,
     +     .00005,    .00502,    .01196,
     +     .49085,    .14445,    .25182,    .00521,    .00116,
     +     .00006,    .00494,    .01149,
     +     .47633,    .13939,    .23415,    .00511,    .00123,
     +     .00005,    .00484,    .01107,
     +     .46146,    .13424,    .21676,    .00499,    .00130,
     +     .00005,    .00473,    .01064 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44893,    .12992,    .20266,    .00489,    .00136,
     +     .00006,    .00463,    .01026,
     +     .43713,    .12589,    .18991,    .00477,    .00141,
     +     .00005,    .00453,    .00992,
     +     .42804,    .12280,    .18041,    .00467,    .00145,
     +     .00004,    .00446,    .00965,
     +     .40925,    .11649,    .16171,    .00447,    .00151,
     +     .00004,    .00429,    .00909,
     +     .39376,    .11134,    .14722,    .00430,    .00156,
     +     .00007,    .00413,    .00864,
     +     .37720,    .10589,    .13265,    .00411,    .00160,
     +     .00014,    .00396,    .00815,
     +     .36079,    .10055,    .11911,    .00391,    .00163,
     +     .00024,    .00378,    .00768,
     +     .34661,    .09595,    .10811,    .00373,    .00164,
     +     .00031,    .00363,    .00728 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33276,    .09156,    .09809,    .00359,    .00164,
     +     .00037,    .00348,    .00686,
     +     .32175,    .08807,    .09055,    .00345,    .00163,
     +     .00041,    .00335,    .00655,
     +     .30897,    .08404,    .08227,    .00328,    .00160,
     +     .00044,    .00319,    .00621,
     +     .29807,    .08064,    .07562,    .00315,    .00157,
     +     .00046,    .00306,    .00593,
     +     .28846,    .07765,    .07006,    .00302,    .00154,
     +     .00048,    .00294,    .00567,
     +     .27677,    .07405,    .06366,    .00287,    .00149,
     +     .00050,    .00281,    .00535,
     +     .26616,    .07083,    .05823,    .00276,    .00145,
     +     .00050,    .00269,    .00506,
     +     .25661,    .06796,    .05363,    .00264,    .00141,
     +     .00051,    .00258,    .00482 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24746,    .06522,    .04946,    .00253,    .00138,
     +     .00052,    .00248,    .00460,
     +     .23882,    .06263,    .04571,    .00244,    .00133,
     +     .00052,    .00237,    .00439,
     +     .23096,    .06030,    .04246,    .00235,    .00129,
     +     .00052,    .00228,    .00420,
     +     .22380,    .05819,    .03964,    .00225,    .00125,
     +     .00051,    .00219,    .00403,
     +     .21685,    .05615,    .03703,    .00216,    .00122,
     +     .00051,    .00211,    .00386,
     +     .21023,    .05422,    .03465,    .00207,    .00119,
     +     .00050,    .00204,    .00369,
     +     .20414,    .05245,    .03256,    .00200,    .00115,
     +     .00049,    .00197,    .00354,
     +     .19852,    .05083,    .03073,    .00193,    .00112,
     +     .00048,    .00190,    .00341 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .19305,    .04925,    .02900,    .00186,    .00108,
     +     .00048,    .00183,    .00329,
     +     .18776,    .04774,    .02740,    .00181,    .00106,
     +     .00047,    .00177,    .00316,
     +     .18290,    .04635,    .02597,    .00176,    .00103,
     +     .00046,    .00171,    .00305,
     +     .17838,    .04507,    .02470,    .00170,    .00100,
     +     .00045,    .00166,    .00295,
     +     .17394,    .04381,    .02349,    .00165,    .00098,
     +     .00044,    .00161,    .00286 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .55091,    .16022,    .33918,    .00397,    .00025,
     +    -.00001,    .00376,    .01035,
     +     .53187,    .15359,    .31225,    .00397,    .00041,
     +     .00001,    .00375,    .00996,
     +     .50491,    .14438,    .27602,    .00393,    .00061,
     +     .00001,    .00372,    .00938,
     +     .48624,    .13805,    .25219,    .00386,    .00072,
     +     .00001,    .00367,    .00900,
     +     .46745,    .13175,    .22938,    .00378,    .00082,
     +     .00001,    .00361,    .00860,
     +     .45187,    .12663,    .21142,    .00374,    .00090,
     +     .00002,    .00355,    .00824,
     +     .43745,    .12188,    .19543,    .00364,    .00096,
     +     .00002,    .00347,    .00793,
     +     .42270,    .11706,    .17982,    .00355,    .00101,
     +     .00001,    .00340,    .00761 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .41030,    .11306,    .16727,    .00347,    .00105,
     +     .00001,    .00332,    .00733,
     +     .39865,    .10932,    .15598,    .00339,    .00108,
     +     .00001,    .00325,    .00707,
     +     .38970,    .10647,    .14762,    .00333,    .00110,
     +     .00000,    .00319,    .00687,
     +     .37130,    .10066,    .13127,    .00317,    .00115,
     +     .00002,    .00306,    .00647,
     +     .35620,    .09593,    .11874,    .00305,    .00117,
     +     .00004,    .00295,    .00612,
     +     .34013,    .09095,    .10624,    .00292,    .00120,
     +     .00010,    .00281,    .00574,
     +     .32425,    .08608,    .09473,    .00277,    .00121,
     +     .00016,    .00268,    .00538,
     +     .31051,    .08192,    .08545,    .00265,    .00122,
     +     .00021,    .00257,    .00508 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29729,    .07792,    .07707,    .00251,    .00120,
     +     .00026,    .00245,    .00480,
     +     .28677,    .07477,    .07081,    .00241,    .00118,
     +     .00028,    .00235,    .00459,
     +     .27456,    .07114,    .06397,    .00230,    .00116,
     +     .00030,    .00224,    .00434,
     +     .26420,    .06810,    .05851,    .00221,    .00113,
     +     .00032,    .00215,    .00412,
     +     .25507,    .06544,    .05398,    .00213,    .00111,
     +     .00033,    .00207,    .00393,
     +     .24401,    .06223,    .04880,    .00202,    .00108,
     +     .00034,    .00197,    .00370,
     +     .23405,    .05937,    .04442,    .00192,    .00104,
     +     .00035,    .00187,    .00350,
     +     .22510,    .05682,    .04072,    .00184,    .00100,
     +     .00035,    .00179,    .00332 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21654,    .05440,    .03738,    .00177,    .00097,
     +     .00035,    .00171,    .00315,
     +     .20848,    .05212,    .03443,    .00170,    .00094,
     +     .00035,    .00164,    .00300,
     +     .20119,    .05007,    .03188,    .00162,    .00091,
     +     .00035,    .00157,    .00287,
     +     .19460,    .04821,    .02966,    .00153,    .00087,
     +     .00035,    .00150,    .00275,
     +     .18819,    .04642,    .02762,    .00146,    .00085,
     +     .00034,    .00144,    .00263,
     +     .18205,    .04473,    .02577,    .00141,    .00083,
     +     .00034,    .00139,    .00251,
     +     .17642,    .04319,    .02415,    .00137,    .00081,
     +     .00034,    .00134,    .00241,
     +     .17125,    .04179,    .02273,    .00134,    .00078,
     +     .00034,    .00130,    .00231 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16621,    .04043,    .02139,    .00130,    .00075,
     +     .00034,    .00125,    .00222,
     +     .16139,    .03912,    .02017,    .00125,    .00073,
     +     .00033,    .00121,    .00214,
     +     .15696,    .03793,    .01908,    .00120,    .00072,
     +     .00032,    .00117,    .00206,
     +     .15283,    .03682,    .01810,    .00117,    .00069,
     +     .00032,    .00113,    .00199,
     +     .14877,    .03574,    .01717,    .00113,    .00067,
     +     .00031,    .00109,    .00193 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .50976,    .14091,    .29297,    .00274,    .00022,
     +     .00004,    .00269,    .00733,
     +     .49071,    .13474,    .26780,    .00276,    .00033,
     +     .00003,    .00268,    .00707,
     +     .46391,    .12617,    .23434,    .00274,    .00048,
     +     .00002,    .00264,    .00664,
     +     .44542,    .12030,    .21258,    .00270,    .00057,
     +     .00003,    .00260,    .00635,
     +     .42690,    .11447,    .19193,    .00266,    .00064,
     +     .00003,    .00256,    .00605,
     +     .41164,    .10972,    .17582,    .00262,    .00068,
     +     .00003,    .00251,    .00580,
     +     .39754,    .10536,    .16160,    .00255,    .00072,
     +     .00002,    .00245,    .00559,
     +     .38315,    .10096,    .14781,    .00248,    .00075,
     +     .00002,    .00239,    .00535 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .37106,    .09730,    .13681,    .00243,    .00077,
     +     .00003,    .00234,    .00515,
     +     .35977,    .09390,    .12697,    .00238,    .00080,
     +     .00003,    .00228,    .00496,
     +     .35112,    .09131,    .11972,    .00234,    .00081,
     +     .00003,    .00223,    .00481,
     +     .33337,    .08603,    .10567,    .00226,    .00084,
     +     .00003,    .00213,    .00449,
     +     .31886,    .08175,    .09497,    .00217,    .00085,
     +     .00004,    .00205,    .00425,
     +     .30350,    .07725,    .08438,    .00206,    .00086,
     +     .00008,    .00196,    .00399,
     +     .28838,    .07287,    .07472,    .00196,    .00087,
     +     .00012,    .00186,    .00374,
     +     .27537,    .06914,    .06699,    .00187,    .00086,
     +     .00015,    .00177,    .00352 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26283,    .06560,    .06007,    .00179,    .00085,
     +     .00019,    .00169,    .00331,
     +     .25291,    .06281,    .05493,    .00171,    .00084,
     +     .00021,    .00161,    .00316,
     +     .24146,    .05960,    .04934,    .00161,    .00082,
     +     .00022,    .00153,    .00298,
     +     .23179,    .05691,    .04492,    .00154,    .00079,
     +     .00022,    .00146,    .00283,
     +     .22325,    .05455,    .04127,    .00149,    .00077,
     +     .00023,    .00141,    .00268,
     +     .21294,    .05173,    .03711,    .00142,    .00075,
     +     .00025,    .00135,    .00251,
     +     .20371,    .04922,    .03363,    .00137,    .00073,
     +     .00025,    .00128,    .00237,
     +     .19544,    .04699,    .03070,    .00130,    .00070,
     +     .00024,    .00121,    .00225 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18757,    .04489,    .02806,    .00124,    .00067,
     +     .00023,    .00115,    .00214,
     +     .18018,    .04292,    .02573,    .00118,    .00065,
     +     .00023,    .00111,    .00203,
     +     .17348,    .04114,    .02374,    .00113,    .00062,
     +     .00023,    .00106,    .00193,
     +     .16740,    .03954,    .02203,    .00109,    .00060,
     +     .00023,    .00101,    .00184,
     +     .16154,    .03800,    .02045,    .00105,    .00058,
     +     .00023,    .00097,    .00176,
     +     .15600,    .03655,    .01903,    .00099,    .00057,
     +     .00023,    .00094,    .00167,
     +     .15092,    .03522,    .01778,    .00095,    .00055,
     +     .00023,    .00090,    .00160,
     +     .14625,    .03401,    .01669,    .00091,    .00053,
     +     .00022,    .00087,    .00154 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .14171,    .03284,    .01567,    .00088,    .00051,
     +     .00022,    .00083,    .00149,
     +     .13734,    .03173,    .01474,    .00086,    .00050,
     +     .00021,    .00080,    .00142,
     +     .13333,    .03072,    .01390,    .00084,    .00048,
     +     .00021,    .00078,    .00136,
     +     .12963,    .02977,    .01317,    .00081,    .00047,
     +     .00020,    .00075,    .00131,
     +     .12601,    .02885,    .01247,    .00078,    .00045,
     +     .00020,    .00072,    .00127 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .46648,    .12245,    .25024,    .00184,    .00019,
     +     .00005,    .00189,    .00511,
     +     .44778,    .11676,    .22711,    .00186,    .00028,
     +     .00005,    .00189,    .00489,
     +     .42159,    .10885,    .19670,    .00184,    .00038,
     +     .00006,    .00187,    .00462,
     +     .40356,    .10350,    .17717,    .00182,    .00044,
     +     .00006,    .00185,    .00441,
     +     .38559,    .09820,    .15880,    .00180,    .00049,
     +     .00005,    .00182,    .00419,
     +     .37089,    .09387,    .14455,    .00176,    .00054,
     +     .00005,    .00178,    .00401,
     +     .35725,    .08993,    .13209,    .00173,    .00056,
     +     .00005,    .00174,    .00385,
     +     .34340,    .08595,    .12010,    .00169,    .00058,
     +     .00005,    .00169,    .00368 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .33187,    .08265,    .11058,    .00165,    .00060,
     +     .00005,    .00165,    .00354,
     +     .32109,    .07960,    .10214,    .00161,    .00062,
     +     .00004,    .00161,    .00341,
     +     .31284,    .07727,    .09595,    .00158,    .00063,
     +     .00004,    .00158,    .00330,
     +     .29601,    .07254,    .08402,    .00150,    .00063,
     +     .00004,    .00151,    .00309,
     +     .28228,    .06873,    .07502,    .00144,    .00064,
     +     .00004,    .00144,    .00292,
     +     .26778,    .06474,    .06619,    .00137,    .00065,
     +     .00006,    .00137,    .00274,
     +     .25360,    .06088,    .05821,    .00129,    .00064,
     +     .00011,    .00129,    .00256,
     +     .24145,    .05759,    .05187,    .00122,    .00064,
     +     .00013,    .00124,    .00240 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22973,    .05447,    .04624,    .00119,    .00063,
     +     .00014,    .00118,    .00224,
     +     .22052,    .05202,    .04208,    .00114,    .00062,
     +     .00015,    .00112,    .00212,
     +     .20992,    .04922,    .03758,    .00108,    .00060,
     +     .00016,    .00107,    .00199,
     +     .20099,    .04688,    .03404,    .00104,    .00058,
     +     .00017,    .00103,    .00189,
     +     .19317,    .04484,    .03114,    .00098,    .00056,
     +     .00017,    .00099,    .00180,
     +     .18376,    .04240,    .02785,    .00091,    .00054,
     +     .00018,    .00092,    .00169,
     +     .17532,    .04023,    .02513,    .00085,    .00051,
     +     .00017,    .00087,    .00161,
     +     .16778,    .03832,    .02284,    .00081,    .00050,
     +     .00018,    .00083,    .00152 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16062,    .03651,    .02079,    .00078,    .00049,
     +     .00018,    .00080,    .00142,
     +     .15390,    .03482,    .01900,    .00076,    .00046,
     +     .00018,    .00076,    .00135,
     +     .14784,    .03330,    .01746,    .00073,    .00044,
     +     .00018,    .00072,    .00128,
     +     .14237,    .03195,    .01615,    .00069,    .00043,
     +     .00017,    .00069,    .00121,
     +     .13710,    .03064,    .01494,    .00066,    .00041,
     +     .00016,    .00066,    .00115,
     +     .13212,    .02940,    .01386,    .00063,    .00040,
     +     .00017,    .00064,    .00110,
     +     .12755,    .02828,    .01292,    .00062,    .00039,
     +     .00017,    .00061,    .00105,
     +     .12337,    .02727,    .01209,    .00060,    .00037,
     +     .00016,    .00059,    .00101 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11931,    .02628,    .01132,    .00058,    .00036,
     +     .00016,    .00056,    .00097,
     +     .11545,    .02535,    .01062,    .00055,    .00035,
     +     .00015,    .00054,    .00093,
     +     .11191,    .02449,    .01000,    .00053,    .00033,
     +     .00015,    .00053,    .00089,
     +     .10863,    .02370,    .00946,    .00052,    .00033,
     +     .00015,    .00051,    .00086,
     +     .10542,    .02293,    .00894,    .00050,    .00032,
     +     .00015,    .00049,    .00083 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .42221,    .10514,    .21133,    .00120,    .00015,
     +     .00004,    .00130,    .00349,
     +     .40410,    .09996,    .19042,    .00122,    .00022,
     +     .00004,    .00131,    .00334,
     +     .37886,    .09282,    .16322,    .00122,    .00030,
     +     .00003,    .00129,    .00312,
     +     .36160,    .08798,    .14594,    .00119,    .00035,
     +     .00003,    .00128,    .00298,
     +     .34443,    .08321,    .12985,    .00115,    .00039,
     +     .00003,    .00126,    .00285,
     +     .33037,    .07934,    .11747,    .00114,    .00042,
     +     .00004,    .00124,    .00273,
     +     .31746,    .07582,    .10673,    .00113,    .00044,
     +     .00003,    .00121,    .00259,
     +     .30437,    .07227,    .09646,    .00110,    .00046,
     +     .00003,    .00119,    .00248 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29347,    .06933,    .08838,    .00105,    .00047,
     +     .00003,    .00115,    .00240,
     +     .28334,    .06663,    .08123,    .00102,    .00048,
     +     .00003,    .00112,    .00230,
     +     .27560,    .06457,    .07601,    .00100,    .00048,
     +     .00003,    .00110,    .00222,
     +     .25985,    .06041,    .06605,    .00095,    .00049,
     +     .00003,    .00105,    .00207,
     +     .24705,    .05707,    .05859,    .00092,    .00049,
     +     .00004,    .00101,    .00194,
     +     .23359,    .05359,    .05133,    .00088,    .00048,
     +     .00005,    .00096,    .00180,
     +     .22046,    .05021,    .04482,    .00083,    .00049,
     +     .00008,    .00090,    .00168,
     +     .20925,    .04736,    .03970,    .00079,    .00048,
     +     .00010,    .00086,    .00158 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19850,    .04466,    .03517,    .00076,    .00047,
     +     .00011,    .00082,    .00146,
     +     .19009,    .04254,    .03185,    .00072,    .00046,
     +     .00011,    .00079,    .00140,
     +     .18043,    .04013,    .02829,    .00066,    .00044,
     +     .00012,    .00074,    .00132,
     +     .17228,    .03813,    .02550,    .00063,    .00042,
     +     .00013,    .00071,    .00124,
     +     .16518,    .03639,    .02323,    .00061,    .00041,
     +     .00013,    .00068,    .00117,
     +     .15667,    .03431,    .02067,    .00059,    .00040,
     +     .00014,    .00064,    .00109,
     +     .14906,    .03246,    .01855,    .00055,    .00038,
     +     .00014,    .00061,    .00104,
     +     .14228,    .03084,    .01679,    .00053,    .00037,
     +     .00014,    .00058,    .00097 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13586,    .02931,    .01523,    .00052,    .00036,
     +     .00014,    .00055,    .00090,
     +     .12989,    .02788,    .01386,    .00048,    .00034,
     +     .00014,    .00052,    .00086,
     +     .12451,    .02661,    .01269,    .00045,    .00032,
     +     .00014,    .00050,    .00083,
     +     .11963,    .02547,    .01170,    .00043,    .00031,
     +     .00013,    .00047,    .00079,
     +     .11495,    .02438,    .01080,    .00041,    .00030,
     +     .00013,    .00045,    .00074,
     +     .11054,    .02335,    .00998,    .00040,    .00028,
     +     .00013,    .00043,    .00070,
     +     .10652,    .02242,    .00928,    .00038,    .00027,
     +     .00013,    .00042,    .00067,
     +     .10286,    .02157,    .00867,    .00036,    .00026,
     +     .00012,    .00040,    .00065 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09932,    .02075,    .00810,    .00034,    .00025,
     +     .00012,    .00038,    .00063,
     +     .09591,    .01997,    .00758,    .00033,    .00025,
     +     .00012,    .00036,    .00059,
     +     .09280,    .01927,    .00712,    .00032,    .00024,
     +     .00011,    .00035,    .00057,
     +     .08994,    .01862,    .00672,    .00031,    .00023,
     +     .00011,    .00034,    .00055,
     +     .08715,    .01798,    .00634,    .00029,    .00022,
     +     .00011,    .00033,    .00053 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .37778,    .08928,    .17655,    .00085,    .00007,
     +    -.00001,    .00082,    .00234,
     +     .36055,    .08466,    .15797,    .00087,    .00012,
     +    -.00002,    .00082,    .00224,
     +     .33664,    .07828,    .13409,    .00088,    .00017,
     +    -.00003,    .00082,    .00208,
     +     .32036,    .07398,    .11907,    .00087,    .00021,
     +    -.00002,    .00082,    .00198,
     +     .30422,    .06977,    .10518,    .00085,    .00024,
     +    -.00001,    .00081,    .00188,
     +     .29106,    .06637,    .09459,    .00081,    .00027,
     +    -.00001,    .00079,    .00180,
     +     .27899,    .06327,    .08547,    .00081,    .00028,
     +    -.00001,    .00078,    .00172,
     +     .26680,    .06017,    .07680,    .00079,    .00029,
     +    -.00002,    .00076,    .00163 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25670,    .05760,    .07000,    .00078,    .00030,
     +    -.00003,    .00074,    .00156,
     +     .24731,    .05524,    .06406,    .00076,    .00030,
     +    -.00002,    .00072,    .00150,
     +     .24015,    .05345,    .05974,    .00074,    .00030,
     +    -.00001,    .00070,    .00146,
     +     .22561,    .04985,    .05152,    .00072,    .00031,
     +    -.00001,    .00067,    .00135,
     +     .21386,    .04695,    .04543,    .00069,    .00031,
     +    -.00001,    .00063,    .00128,
     +     .20158,    .04394,    .03954,    .00064,    .00031,
     +     .00001,    .00060,    .00120,
     +     .18964,    .04104,    .03429,    .00059,    .00030,
     +     .00002,    .00057,    .00110,
     +     .17945,    .03861,    .03018,    .00057,    .00029,
     +     .00004,    .00055,    .00103 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16977,    .03629,    .02658,    .00053,    .00029,
     +     .00005,    .00051,    .00098,
     +     .16215,    .03449,    .02397,    .00052,    .00029,
     +     .00006,    .00049,    .00092,
     +     .15343,    .03245,    .02118,    .00050,    .00028,
     +     .00006,    .00047,    .00085,
     +     .14615,    .03076,    .01901,    .00049,    .00027,
     +     .00007,    .00044,    .00080,
     +     .13981,    .02929,    .01724,    .00046,    .00026,
     +     .00007,    .00041,    .00076,
     +     .13222,    .02754,    .01526,    .00042,    .00024,
     +     .00007,    .00038,    .00071,
     +     .12545,    .02600,    .01363,    .00042,    .00023,
     +     .00007,    .00037,    .00067,
     +     .11946,    .02463,    .01229,    .00040,    .00022,
     +     .00007,    .00036,    .00063 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11381,    .02335,    .01110,    .00038,    .00021,
     +     .00008,    .00034,    .00060,
     +     .10854,    .02217,    .01007,    .00035,    .00020,
     +     .00008,    .00032,    .00057,
     +     .10381,    .02111,    .00919,    .00033,    .00019,
     +     .00007,    .00030,    .00054,
     +     .09955,    .02016,    .00845,    .00031,    .00019,
     +     .00007,    .00028,    .00051,
     +     .09547,    .01926,    .00777,    .00029,    .00018,
     +     .00006,    .00027,    .00048,
     +     .09165,    .01841,    .00717,    .00028,    .00017,
     +     .00007,    .00026,    .00046,
     +     .08816,    .01764,    .00664,    .00026,    .00016,
     +     .00007,    .00024,    .00044,
     +     .08497,    .01695,    .00619,    .00026,    .00015,
     +     .00006,    .00023,    .00041 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08188,    .01628,    .00577,    .00025,    .00015,
     +     .00006,    .00022,    .00039,
     +     .07892,    .01564,    .00539,    .00025,    .00014,
     +     .00006,    .00021,    .00038,
     +     .07622,    .01507,    .00506,    .00025,    .00014,
     +     .00006,    .00021,    .00037,
     +     .07376,    .01454,    .00476,    .00024,    .00013,
     +     .00006,    .00020,    .00035,
     +     .07137,    .01402,    .00448,    .00023,    .00013,
     +     .00006,    .00020,    .00033 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .33372,    .07453,    .14511,    .00048,    .00009,
     +     .00003,    .00058,    .00151,
     +     .31760,    .07047,    .12898,    .00050,    .00012,
     +     .00004,    .00058,    .00144,
     +     .29528,    .06489,    .10838,    .00050,    .00015,
     +     .00004,    .00057,    .00137,
     +     .28015,    .06115,    .09555,    .00049,    .00018,
     +     .00004,    .00056,    .00130,
     +     .26519,    .05750,    .08380,    .00049,    .00021,
     +     .00003,    .00055,    .00122,
     +     .25299,    .05457,    .07492,    .00051,    .00022,
     +     .00003,    .00055,    .00115,
     +     .24191,    .05189,    .06730,    .00050,    .00022,
     +     .00003,    .00053,    .00110,
     +     .23074,    .04921,    .06012,    .00049,    .00022,
     +     .00003,    .00052,    .00105 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22148,    .04702,    .05455,    .00048,    .00022,
     +     .00003,    .00050,    .00101,
     +     .21293,    .04500,    .04967,    .00046,    .00022,
     +     .00003,    .00049,    .00097,
     +     .20644,    .04347,    .04614,    .00044,    .00023,
     +     .00003,    .00048,    .00094,
     +     .19323,    .04039,    .03949,    .00044,    .00023,
     +     .00003,    .00045,    .00087,
     +     .18261,    .03793,    .03459,    .00042,    .00023,
     +     .00003,    .00043,    .00081,
     +     .17153,    .03539,    .02990,    .00040,    .00022,
     +     .00003,    .00041,    .00076,
     +     .16080,    .03294,    .02574,    .00037,    .00022,
     +     .00005,    .00039,    .00072,
     +     .15170,    .03089,    .02252,    .00036,    .00021,
     +     .00005,    .00036,    .00067 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .14308,    .02895,    .01972,    .00033,    .00020,
     +     .00005,    .00033,    .00062,
     +     .13633,    .02745,    .01769,    .00032,    .00020,
     +     .00005,    .00032,    .00058,
     +     .12862,    .02575,    .01554,    .00031,    .00019,
     +     .00006,    .00030,    .00054,
     +     .12221,    .02434,    .01388,    .00029,    .00018,
     +     .00006,    .00029,    .00051,
     +     .11662,    .02312,    .01254,    .00027,    .00017,
     +     .00006,    .00027,    .00049,
     +     .10995,    .02168,    .01105,    .00026,    .00016,
     +     .00006,    .00026,    .00045,
     +     .10405,    .02041,    .00982,    .00025,    .00015,
     +     .00005,    .00024,    .00042,
     +     .09883,    .01929,    .00882,    .00024,    .00015,
     +     .00005,    .00023,    .00039 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09391,    .01825,    .00793,    .00023,    .00014,
     +     .00005,    .00022,    .00037,
     +     .08934,    .01728,    .00716,    .00021,    .00014,
     +     .00005,    .00021,    .00035,
     +     .08526,    .01642,    .00652,    .00020,    .00013,
     +     .00005,    .00020,    .00033,
     +     .08158,    .01565,    .00597,    .00019,    .00012,
     +     .00005,    .00018,    .00031,
     +     .07806,    .01491,    .00548,    .00019,    .00012,
     +     .00005,    .00017,    .00029,
     +     .07475,    .01422,    .00504,    .00019,    .00011,
     +     .00005,    .00017,    .00028,
     +     .07175,    .01360,    .00466,    .00018,    .00011,
     +     .00005,    .00016,    .00026,
     +     .06905,    .01305,    .00433,    .00017,    .00010,
     +     .00005,    .00015,    .00025 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06643,    .01251,    .00403,    .00016,    .00010,
     +     .00004,    .00014,    .00024,
     +     .06392,    .01200,    .00375,    .00015,    .00009,
     +     .00004,    .00014,    .00023,
     +     .06163,    .01154,    .00351,    .00014,    .00009,
     +     .00004,    .00013,    .00022,
     +     .05953,    .01112,    .00330,    .00014,    .00008,
     +     .00004,    .00013,    .00021,
     +     .05749,    .01071,    .00310,    .00014,    .00008,
     +     .00004,    .00012,    .00020 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .29107,    .06136,    .11765,    .00027,    .00008,
     +     .00005,    .00039,    .00093,
     +     .27617,    .05785,    .10382,    .00028,    .00011,
     +     .00005,    .00039,    .00089,
     +     .25563,    .05306,    .08636,    .00028,    .00013,
     +     .00005,    .00039,    .00084,
     +     .24176,    .04985,    .07559,    .00029,    .00014,
     +     .00004,    .00038,    .00080,
     +     .22812,    .04671,    .06580,    .00030,    .00016,
     +     .00003,    .00037,    .00077,
     +     .21708,    .04419,    .05846,    .00030,    .00016,
     +     .00003,    .00037,    .00073,
     +     .20701,    .04194,    .05222,    .00030,    .00016,
     +     .00003,    .00036,    .00068,
     +     .19690,    .03968,    .04637,    .00030,    .00017,
     +     .00003,    .00035,    .00065 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18858,    .03780,    .04184,    .00029,    .00017,
     +     .00003,    .00034,    .00063,
     +     .18089,    .03610,    .03791,    .00028,    .00017,
     +     .00003,    .00032,    .00061,
     +     .17505,    .03482,    .03509,    .00028,    .00017,
     +     .00003,    .00031,    .00059,
     +     .16328,    .03223,    .02979,    .00025,    .00017,
     +     .00003,    .00029,    .00055,
     +     .15381,    .03018,    .02592,    .00025,    .00016,
     +     .00003,    .00028,    .00052,
     +     .14397,    .02805,    .02223,    .00024,    .00016,
     +     .00003,    .00027,    .00047,
     +     .13452,    .02602,    .01901,    .00022,    .00015,
     +     .00003,    .00025,    .00043,
     +     .12653,    .02432,    .01653,    .00020,    .00015,
     +     .00004,    .00024,    .00040 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11892,    .02274,    .01439,    .00021,    .00014,
     +     .00004,    .00022,    .00038,
     +     .11302,    .02150,    .01284,    .00020,    .00014,
     +     .00004,    .00021,    .00036,
     +     .10631,    .02011,    .01122,    .00018,    .00013,
     +     .00005,    .00020,    .00033,
     +     .10073,    .01896,    .00997,    .00017,    .00013,
     +     .00004,    .00020,    .00031,
     +     .09591,    .01797,    .00897,    .00015,    .00012,
     +     .00004,    .00018,    .00030,
     +     .09016,    .01679,    .00785,    .00013,    .00011,
     +     .00004,    .00017,    .00028,
     +     .08506,    .01576,    .00696,    .00015,    .00011,
     +     .00004,    .00016,    .00026,
     +     .08057,    .01486,    .00622,    .00015,    .00010,
     +     .00004,    .00015,    .00024 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07637,    .01402,    .00557,    .00014,    .00010,
     +     .00004,    .00014,    .00023,
     +     .07246,    .01324,    .00501,    .00013,    .00009,
     +     .00004,    .00013,    .00022,
     +     .06899,    .01255,    .00454,    .00012,    .00009,
     +     .00003,    .00012,    .00020,
     +     .06588,    .01193,    .00415,    .00011,    .00009,
     +     .00004,    .00012,    .00019,
     +     .06290,    .01135,    .00380,    .00010,    .00008,
     +     .00004,    .00011,    .00018,
     +     .06011,    .01080,    .00348,    .00009,    .00007,
     +     .00003,    .00010,    .00018,
     +     .05758,    .01031,    .00321,    .00009,    .00007,
     +     .00003,    .00010,    .00018,
     +     .05528,    .00987,    .00298,    .00010,    .00007,
     +     .00003,    .00010,    .00016 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05306,    .00945,    .00276,    .00010,    .00007,
     +     .00003,    .00009,    .00015,
     +     .05098,    .00905,    .00257,    .00009,    .00006,
     +     .00003,    .00009,    .00014,
     +     .04908,    .00868,    .00240,    .00008,    .00006,
     +     .00003,    .00009,    .00014,
     +     .04734,    .00835,    .00225,    .00008,    .00006,
     +     .00003,    .00008,    .00013,
     +     .04565,    .00803,    .00211,    .00008,    .00006,
     +     .00003,    .00008,    .00012 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .25045,    .04984,    .09407,    .00021,    .00003,
     +     .00000,    .00022,    .00058,
     +     .23694,    .04687,    .08242,    .00021,    .00005,
     +     .00001,    .00022,    .00054,
     +     .21836,    .04280,    .06785,    .00022,    .00007,
     +     .00000,    .00023,    .00051,
     +     .20587,    .04009,    .05898,    .00023,    .00008,
     +     .00000,    .00022,    .00050,
     +     .19365,    .03745,    .05097,    .00021,    .00008,
     +     .00000,    .00021,    .00048,
     +     .18380,    .03534,    .04499,    .00020,    .00008,
     +     .00000,    .00020,    .00045,
     +     .17485,    .03343,    .03996,    .00018,    .00009,
     +     .00000,    .00020,    .00043,
     +     .16586,    .03154,    .03527,    .00018,    .00009,
     +     .00000,    .00020,    .00042 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15844,    .03000,    .03167,    .00020,    .00010,
     +     .00000,    .00019,    .00040,
     +     .15164,    .02858,    .02856,    .00019,    .00010,
     +     .00000,    .00018,    .00039,
     +     .14650,    .02751,    .02633,    .00018,    .00009,
     +     .00000,    .00018,    .00037,
     +     .13615,    .02538,    .02218,    .00016,    .00010,
     +    -.00001,    .00017,    .00035,
     +     .12785,    .02369,    .01917,    .00017,    .00010,
     +     .00000,    .00016,    .00031,
     +     .11926,    .02196,    .01633,    .00017,    .00010,
     +     .00001,    .00016,    .00028,
     +     .11103,    .02030,    .01387,    .00016,    .00009,
     +     .00001,    .00015,    .00027,
     +     .10408,    .01892,    .01199,    .00016,    .00008,
     +     .00001,    .00014,    .00025 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09756,    .01763,    .01037,    .00014,    .00008,
     +     .00002,    .00013,    .00023,
     +     .09249,    .01663,    .00921,    .00013,    .00008,
     +     .00002,    .00012,    .00022,
     +     .08672,    .01550,    .00800,    .00013,    .00007,
     +     .00002,    .00011,    .00020,
     +     .08195,    .01457,    .00707,    .00012,    .00007,
     +     .00002,    .00010,    .00019,
     +     .07783,    .01378,    .00633,    .00011,    .00007,
     +     .00002,    .00010,    .00018,
     +     .07294,    .01284,    .00552,    .00010,    .00007,
     +     .00002,    .00010,    .00017,
     +     .06861,    .01202,    .00486,    .00010,    .00006,
     +     .00002,    .00009,    .00016,
     +     .06483,    .01130,    .00433,    .00010,    .00006,
     +     .00002,    .00008,    .00015 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06129,    .01063,    .00387,    .00009,    .00005,
     +     .00002,    .00008,    .00014,
     +     .05801,    .01002,    .00347,    .00009,    .00005,
     +     .00002,    .00007,    .00013,
     +     .05509,    .00948,    .00313,    .00008,    .00005,
     +     .00002,    .00007,    .00012,
     +     .05249,    .00899,    .00285,    .00008,    .00005,
     +     .00002,    .00007,    .00011,
     +     .05001,    .00853,    .00260,    .00007,    .00005,
     +     .00002,    .00006,    .00011,
     +     .04769,    .00811,    .00238,    .00007,    .00004,
     +     .00002,    .00006,    .00010,
     +     .04559,    .00772,    .00219,    .00007,    .00004,
     +     .00001,    .00005,    .00009,
     +     .04369,    .00738,    .00202,    .00007,    .00004,
     +     .00001,    .00005,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04187,    .00705,    .00187,    .00007,    .00004,
     +     .00001,    .00005,    .00008,
     +     .04015,    .00673,    .00174,    .00006,    .00003,
     +     .00001,    .00005,    .00008,
     +     .03859,    .00645,    .00162,    .00005,    .00003,
     +     .00001,    .00005,    .00008,
     +     .03716,    .00619,    .00152,    .00005,    .00003,
     +     .00001,    .00005,    .00008,
     +     .03577,    .00594,    .00142,    .00005,    .00003,
     +     .00001,    .00004,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .21211,    .03964,    .07368,    .00004,    .00004,
     +     .00004,    .00016,    .00034,
     +     .20001,    .03715,    .06409,    .00007,    .00005,
     +     .00004,    .00016,    .00033,
     +     .18351,    .03378,    .05223,    .00009,    .00007,
     +     .00004,    .00016,    .00031,
     +     .17244,    .03155,    .04506,    .00010,    .00007,
     +     .00003,    .00016,    .00029,
     +     .16164,    .02938,    .03863,    .00010,    .00008,
     +     .00003,    .00016,    .00027,
     +     .15298,    .02764,    .03389,    .00010,    .00007,
     +     .00004,    .00015,    .00026,
     +     .14511,    .02609,    .02991,    .00010,    .00008,
     +     .00003,    .00014,    .00024,
     +     .13727,    .02454,    .02624,    .00010,    .00008,
     +     .00003,    .00014,    .00022 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13086,    .02328,    .02344,    .00009,    .00008,
     +     .00003,    .00014,    .00021,
     +     .12495,    .02213,    .02102,    .00009,    .00008,
     +     .00003,    .00013,    .00021,
     +     .12047,    .02127,    .01930,    .00008,    .00008,
     +     .00002,    .00013,    .00020,
     +     .11151,    .01955,    .01612,    .00009,    .00007,
     +     .00002,    .00012,    .00019,
     +     .10439,    .01819,    .01384,    .00008,    .00007,
     +     .00002,    .00011,    .00018,
     +     .09704,    .01679,    .01171,    .00007,    .00007,
     +     .00002,    .00010,    .00017,
     +     .09000,    .01547,    .00987,    .00008,    .00007,
     +     .00002,    .00010,    .00016,
     +     .08408,    .01437,    .00847,    .00008,    .00006,
     +     .00002,    .00010,    .00014 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07855,    .01334,    .00728,    .00007,    .00006,
     +     .00002,    .00008,    .00013,
     +     .07427,    .01255,    .00643,    .00006,    .00006,
     +     .00002,    .00008,    .00012,
     +     .06942,    .01166,    .00555,    .00006,    .00005,
     +     .00002,    .00007,    .00012,
     +     .06542,    .01094,    .00489,    .00005,    .00005,
     +     .00002,    .00007,    .00011,
     +     .06196,    .01031,    .00436,    .00005,    .00005,
     +     .00002,    .00007,    .00010,
     +     .05787,    .00958,    .00378,    .00006,    .00004,
     +     .00002,    .00006,    .00009,
     +     .05430,    .00894,    .00331,    .00005,    .00004,
     +     .00002,    .00006,    .00009,
     +     .05117,    .00838,    .00294,    .00004,    .00004,
     +     .00002,    .00006,    .00008 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04823,    .00787,    .00261,    .00004,    .00004,
     +     .00002,    .00005,    .00008,
     +     .04552,    .00739,    .00233,    .00004,    .00004,
     +     .00002,    .00005,    .00007,
     +     .04313,    .00697,    .00210,    .00004,    .00003,
     +     .00001,    .00005,    .00007,
     +     .04099,    .00660,    .00191,    .00004,    .00003,
     +     .00001,    .00004,    .00006,
     +     .03896,    .00625,    .00173,    .00004,    .00003,
     +     .00001,    .00004,    .00006,
     +     .03706,    .00592,    .00158,    .00003,    .00003,
     +     .00001,    .00004,    .00005,
     +     .03535,    .00563,    .00145,    .00003,    .00003,
     +     .00001,    .00004,    .00005,
     +     .03381,    .00537,    .00134,    .00004,    .00003,
     +     .00001,    .00004,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03234,    .00512,    .00124,    .00004,    .00003,
     +     .00001,    .00003,    .00005,
     +     .03095,    .00488,    .00114,    .00003,    .00002,
     +     .00001,    .00003,    .00004,
     +     .02969,    .00467,    .00106,    .00003,    .00002,
     +     .00001,    .00003,    .00004,
     +     .02854,    .00447,    .00100,    .00003,    .00002,
     +     .00001,    .00003,    .00004,
     +     .02742,    .00429,    .00093,    .00003,    .00002,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .14464,    .02376,    .04271,    .00003,    .00001,
     +     .00000,    .00005,    .00011,
     +     .13551,    .02212,    .03659,    .00004,    .00001,
     +     .00000,    .00005,    .00010,
     +     .12316,    .01992,    .02916,    .00004,    .00002,
     +     .00000,    .00005,    .00010,
     +     .11497,    .01848,    .02477,    .00003,    .00002,
     +     .00000,    .00005,    .00008,
     +     .10702,    .01709,    .02091,    .00003,    .00003,
     +     .00000,    .00005,    .00008,
     +     .10066,    .01598,    .01810,    .00003,    .00003,
     +     .00000,    .00005,    .00008,
     +     .09495,    .01500,    .01578,    .00003,    .00002,
     +     .00000,    .00005,    .00008,
     +     .08929,    .01403,    .01366,    .00003,    .00002,
     +     .00000,    .00004,    .00007 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08468,    .01324,    .01207,    .00002,    .00003,
     +     .00000,    .00004,    .00007,
     +     .08047,    .01252,    .01071,    .00002,    .00003,
     +     .00000,    .00004,    .00008,
     +     .07729,    .01199,    .00976,    .00001,    .00003,
     +     .00000,    .00004,    .00008,
     +     .07096,    .01093,    .00802,    .00003,    .00003,
     +     .00000,    .00004,    .00006,
     +     .06598,    .01010,    .00678,    .00003,    .00002,
     +     .00000,    .00004,    .00005,
     +     .06087,    .00926,    .00565,    .00003,    .00002,
     +     .00001,    .00003,    .00005,
     +     .05602,    .00846,    .00469,    .00003,    .00002,
     +     .00001,    .00003,    .00005,
     +     .05199,    .00781,    .00397,    .00002,    .00002,
     +     .00000,    .00003,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04823,    .00720,    .00337,    .00002,    .00002,
     +     .00000,    .00003,    .00004,
     +     .04535,    .00673,    .00295,    .00002,    .00002,
     +     .00000,    .00002,    .00004,
     +     .04211,    .00622,    .00252,    .00002,    .00002,
     +     .00001,    .00002,    .00003,
     +     .03945,    .00580,    .00219,    .00001,    .00002,
     +     .00001,    .00002,    .00003,
     +     .03716,    .00544,    .00194,    .00001,    .00002,
     +     .00001,    .00002,    .00003,
     +     .03446,    .00502,    .00166,    .00001,    .00001,
     +     .00000,    .00002,    .00003,
     +     .03213,    .00465,    .00144,    .00001,    .00001,
     +     .00001,    .00002,    .00003,
     +     .03010,    .00434,    .00127,    .00002,    .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=25,32)/
     +     .02822,    .00405,    .00112,    .00002,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02649,    .00378,    .00099,    .00001,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02497,    .00355,    .00089,    .00001,    .00001,
     +     .00001,    .00001,    .00002,
     +     .02361,    .00334,    .00080,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .02233,    .00315,    .00072,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .02115,    .00297,    .00066,    .00001,    .00001,
     +     .00000,    .00001,    .00001,
     +     .02009,    .00281,    .00060,    .00001,    .00001,
     +     .00001,    .00001,    .00001,
     +     .01913,    .00267,    .00055,    .00001,    .00001,
     +     .00001,    .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)/
     +     .01822,    .00254,    .00051,    .00001,    .00001,
     +     .00001,    .00001,    .00001,
     +     .01737,    .00241,    .00047,    .00001,    .00001,
     +     .00000,    .00001,    .00001,
     +     .01660,    .00229,    .00043,    .00000,    .00001,
     +     .00000,    .00001,    .00001,
     +     .01589,    .00219,    .00040,    .00000,    .00001,
     +     .00000,    .00001,    .00001,
     +     .01522,    .00209,    .00038,    .00000,    .00001,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .09067,    .01289,    .02237,    .00002,    .00000,
     +    -.00001,    .00000,    .00003,
     +     .08437,    .01192,    .01886,    .00001,    .00000,
     +    -.00001,    .00001,    .00002,
     +     .07589,    .01063,    .01469,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .07031,    .00978,    .01227,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .06496,    .00898,    .01019,    .00001,    .00000,
     +     .00000,    .00001,    .00003,
     +     .06073,    .00835,    .00869,    .00000,    .00001,
     +     .00000,    .00001,    .00002,
     +     .05694,    .00779,    .00748,    .00000,    .00001,
     +     .00000,    .00001,    .00002,
     +     .05319,    .00724,    .00638,    .00001,    .00001,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05015,    .00679,    .00557,    .00002,    .00001,
     +     .00000,    .00001,    .00002,
     +     .04740,    .00639,    .00489,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04534,    .00610,    .00442,    .00001,    .00000,
     +     .00000,    .00001,    .00002,
     +     .04128,    .00551,    .00356,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .03810,    .00505,    .00297,    .00001,    .00001,
     +     .00000,    .00001,    .00002,
     +     .03487,    .00459,    .00243,    .00000,    .00001,
     +     .00000,    .00001,    .00002,
     +     .03183,    .00416,    .00199,    .00000,    .00001,
     +     .00000,    .00001,    .00001,
     +     .02932,    .00381,    .00166,    .00000,    .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)/
     +     .02699,    .00349,    .00139,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02522,    .00325,    .00120,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02324,    .00297,    .00101,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02162,    .00276,    .00087,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02026,    .00257,    .00077,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01867,    .00235,    .00065,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01728,    .00217,    .00056,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01609,    .00201,    .00049,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01499,    .00186,    .00043,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01398,    .00173,    .00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01310,    .00162,    .00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01233,    .00151,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01160,    .00142,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01093,    .00133,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01033,    .00126,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00980,    .00119,    .00020,    .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)/
     +     .00929,    .00112,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00881,    .00106,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00839,    .00101,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00800,    .00096,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00762,    .00091,    .00014,    .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)/
     +     .05089,    .00613,    .01023,    .00001,    .00000,
     +    -.00001,    .00000,    .00001,
     +     .04697,    .00563,    .00848,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04178,    .00496,    .00644,    .00000,    .00000,
     +    -.00001,    .00000,    .00000,
     +     .03840,    .00453,    .00528,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03517,    .00412,    .00430,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03264,    .00381,    .00361,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03039,    .00353,    .00306,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02819,    .00325,    .00258,    .00000,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02642,    .00304,    .00222,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02483,    .00284,    .00192,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02364,    .00270,    .00172,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02131,    .00241,    .00136,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01950,    .00220,    .00112,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01769,    .00198,    .00090,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01599,    .00178,    .00072,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01461,    .00161,    .00059,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01334,    .00147,    .00049,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01238,    .00135,    .00042,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01131,    .00123,    .00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01045,    .00113,    .00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00973,    .00105,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00889,    .00095,    .00022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00817,    .00087,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00755,    .00080,    .00016,    .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)/
     +     .00698,    .00074,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00648,    .00068,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00603,    .00063,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00564,    .00059,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00527,    .00055,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00494,    .00051,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00464,    .00048,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00438,    .00045,    .00006,    .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)/
     +     .00413,    .00042,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00390,    .00040,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00369,    .00038,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00351,    .00036,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00333,    .00034,    .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)/
     +     .02431,    .00240,    .00384,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02224,    .00218,    .00311,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01952,    .00190,    .00230,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01777,    .00172,    .00185,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01612,    .00155,    .00147,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01484,    .00142,    .00121,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01371,    .00131,    .00101,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01261,    .00119,    .00084,    .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)/
     +     .01174,    .00111,    .00071,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01095,    .00103,    .00061,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01037,    .00097,    .00054,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00924,    .00086,    .00041,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00838,    .00077,    .00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00752,    .00069,    .00026,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00673,    .00061,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00608,    .00055,    .00017,    .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)/
     +     .00550,    .00050,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00506,    .00045,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00458,    .00041,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00420,    .00037,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00388,    .00034,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00351,    .00031,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00320,    .00028,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00293,    .00026,    .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=25,32)/
     +     .00269,    .00023,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00247,    .00021,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00229,    .00020,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00212,    .00018,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00197,    .00017,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00184,    .00016,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00171,    .00015,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00161,    .00014,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00151,    .00013,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00141,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00133,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00126,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00119,    .00010,    .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)/
     +     .00220,    .00012,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00196,    .00011,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00165,    .00009,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00008,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00129,    .00007,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00116,    .00006,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00105,    .00006,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00094,    .00005,    .00002,    .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)/
     +     .00086,    .00005,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00079,    .00004,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00073,    .00004,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00063,    .00003,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00056,    .00003,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00048,    .00003,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00042,    .00002,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00037,    .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=17,24)/
     +     .00032,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00021,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00015,    .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=25,32)/
     +     .00013,    .00001,    .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,
     +     .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)/
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00004,    .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='MRSR3.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