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

sfmrs_99d7.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d7(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
C
#include "pdf/impdp.inc"
C
      parameter(nx=49,nq=37,ntenth=23,np=8)
C
#include "pdf/expdp.inc"
     +       f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
     +     .00717,    .00345,   1.13235,    .86984,    .00000,
     +     .00000,    .46696,    .88277,
     +     .00731,    .00350,   2.30301,    .90813,    .00000,
     +     .00000,    .50984,    .92110,
     +     .00752,    .00359,   4.65298,    .98662,    .01861,
     +     .00000,    .59494,    .99968,
     +     .00768,    .00366,   6.86618,   1.06094,    .05201,
     +     .00000,    .67393,   1.07405,
     +     .00784,    .00373,   9.56719,   1.15519,    .16361,
     +     .00000,    .77292,   1.16833,
     +     .00798,    .00379,  12.37458,   1.25070,    .27190,
     +     .00000,    .87244,   1.26386,
     +     .00813,    .00385,  15.54423,   1.35388,    .38616,
     +     .00000,    .97939,   1.36706,
     +     .00828,    .00392,  19.44288,   1.47657,    .52338,
     +     .00000,   1.10600,   1.48976 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00841,    .00398,  23.21055,   1.59704,    .64799,
     +     .00000,   1.22983,   1.61024,
     +     .00854,    .00404,  27.31881,   1.72367,    .78433,
     +     .00000,   1.35964,   1.73687,
     +     .00864,    .00409,  30.87486,   1.83237,    .89979,
     +     .00000,   1.47082,   1.84557,
     +     .00886,    .00419,  39.27772,   2.08972,   1.17253,
     +     .00000,   1.73335,   2.10292,
     +     .00905,    .00428,  47.13178,   2.33895,   1.43501,
     +     .30452,   1.98691,   2.35211,
     +     .00927,    .00439,  57.08773,   2.65004,   1.76223,
     +     .69370,   2.30276,   2.66318,
     +     .00950,    .00449,  68.84790,   3.01198,   2.14184,
     +    1.09126,   2.66950,   3.02508,
     +     .00971,    .00460,  80.76862,   3.37500,   2.52224,
     +    1.49167,   3.03679,   3.38807 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00993,    .00471,  94.07154,   3.77760,   2.94362,
     +    1.93240,   3.44359,   3.79062,
     +     .01011,    .00480, 105.95430,   4.13928,   3.31702,
     +    2.31154,   3.80869,   4.15226,
     +     .01034,    .00491, 121.64052,   4.61417,   3.80962,
     +    2.81959,   4.28764,   4.62710,
     +     .01054,    .00501, 136.70639,   5.06918,   4.28246,
     +    3.30965,   4.74617,   5.08206,
     +     .01073,    .00510, 151.35640,   5.51472,   4.74204,
     +    3.77983,   5.19488,   5.52756,
     +     .01096,    .00523, 171.25609,   6.12142,   5.36773,
     +    4.42130,   5.80552,   6.13419,
     +     .01120,    .00534, 191.37984,   6.73653,   6.00248,
     +    5.07370,   6.42425,   6.74923,
     +     .01141,    .00545, 211.38855,   7.35226,   6.63610,
     +    5.72264,   7.04330,   7.36490 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01163,    .00556, 232.43061,   8.00546,   7.30611,
     +    6.40622,   7.69978,   8.01804,
     +     .01184,    .00567, 254.32302,   8.68659,   8.00646,
     +    7.12418,   8.38404,   8.69911,
     +     .01205,    .00578, 275.85285,   9.36462,   8.70013,
     +    7.83049,   9.06497,   9.37708,
     +     .01225,    .00589, 297.17088,  10.03860,   9.39069,
     +    8.53591,   9.74166,  10.05098,
     +     .01244,    .00599, 319.40183,  10.74776,  10.11572,
     +    9.27458,  10.45348,  10.76009,
     +     .01264,    .00609, 342.14292,  11.47829,  10.86237,
     +   10.03555,  11.18660,  11.49056,
     +     .01283,    .00619, 364.53419,  12.20342,  11.60262,
     +   10.78917,  11.91415,  12.21564,
     +     .01302,    .00628, 386.45694,  12.91799,  12.33201,
     +   11.53210,  12.63098,  12.93014 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01320,    .00638, 409.14378,  13.66457,  13.09257,
     +   12.30496,  13.37980,  13.67667,
     +     .01338,    .00648, 432.42302,  14.43340,  13.87697,
     +   13.10414,  14.15080,  14.44543,
     +     .01356,    .00657, 454.92088,  15.18648,  14.64258,
     +   13.88066,  14.90595,  15.19847,
     +     .01373,    .00666, 477.16770,  15.93190,  15.40223,
     +   14.65399,  15.65330,  15.94383,
     +     .01390,    .00675, 499.88980,  16.70294,  16.18569,
     +   15.44867,  16.42625,  16.71482 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00966,    .00468,   1.03899,    .73721,    .00000,
     +     .00000,    .39549,    .74480,
     +     .00985,    .00475,   2.09526,    .77258,    .00000,
     +     .00000,    .43443,    .78021,
     +     .01014,    .00488,   4.17101,    .84213,    .01699,
     +     .00000,    .50912,    .84978,
     +     .01036,    .00498,   6.08838,    .90618,    .04546,
     +     .00000,    .57680,    .91384,
     +     .01058,    .00509,   8.38964,    .98595,    .13980,
     +     .00000,    .66026,    .99364,
     +     .01077,    .00518,  10.74800,   1.06575,    .23038,
     +     .00000,    .74316,   1.07344,
     +     .01096,    .00526,  13.37915,   1.15121,    .32494,
     +     .00000,    .83153,   1.15890,
     +     .01117,    .00536,  16.57774,   1.25198,    .43750,
     +     .00000,    .93534,   1.25968 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .01134,    .00545,  19.63272,   1.34997,    .53871,
     +     .00000,   1.03593,   1.35768,
     +     .01151,    .00553,  22.93366,   1.45238,    .64878,
     +     .00000,   1.14079,   1.46009,
     +     .01165,    .00560,  25.76722,   1.53979,    .74140,
     +     .00000,   1.23011,   1.54748,
     +     .01195,    .00574,  32.38951,   1.74514,    .95842,
     +     .00000,   1.43946,   1.75283,
     +     .01222,    .00587,  38.48735,   1.94219,   1.16528,
     +     .24010,   1.63987,   1.94989,
     +     .01251,    .00602,  46.12496,   2.18611,   1.42087,
     +     .54452,   1.88743,   2.19378,
     +     .01283,    .00618,  55.03209,   2.46732,   1.71460,
     +     .85180,   2.17235,   2.47497,
     +     .01312,    .00632,  63.95318,   2.74700,   2.00641,
     +    1.15853,   2.45532,   2.75463 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01341,    .00647,  73.79903,   3.05471,   2.32704,
     +    1.49332,   2.76628,   3.06233,
     +     .01366,    .00660,  82.50258,   3.32905,   2.60892,
     +    1.77886,   3.04325,   3.33664,
     +     .01396,    .00675,  93.88464,   3.68680,   2.97828,
     +    2.15898,   3.40412,   3.69436,
     +     .01423,    .00690, 104.71313,   4.02717,   3.33035,
     +    2.52308,   3.74719,   4.03470,
     +     .01447,    .00702, 115.14956,   4.35824,   3.67023,
     +    2.86992,   4.08071,   4.36575,
     +     .01479,    .00719, 129.19899,   4.80603,   4.12987,
     +    3.33997,   4.53153,   4.81351,
     +     .01511,    .00734, 143.27412,   5.25680,   4.59290,
     +    3.81470,   4.98508,   5.26424,
     +     .01539,    .00750, 157.14555,   5.70497,   5.05200,
     +    4.28367,   5.43582,   5.71238 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01568,    .00766, 171.60931,   6.17732,   5.53429,
     +    4.77439,   5.91067,   6.18470,
     +     .01598,    .00781, 186.54410,   6.66695,   6.03556,
     +    5.28697,   6.40271,   6.67430,
     +     .01625,    .00795, 201.11324,   7.15130,   6.52891,
     +    5.78791,   6.88931,   7.15862,
     +     .01651,    .00809, 215.44302,   7.63022,   7.01756,
     +    6.28577,   7.37031,   7.63752,
     +     .01678,    .00823, 230.28368,   8.13145,   7.52785,
     +    6.80426,   7.87359,   8.13870,
     +     .01704,    .00837, 245.36612,   8.64511,   8.05070,
     +    7.33574,   8.38923,   8.65234,
     +     .01729,    .00850, 260.12374,   9.15244,   8.56654,
     +    7.85950,   8.89843,   9.15964,
     +     .01753,    .00863, 274.48936,   9.65008,   9.07252,
     +    8.37355,   9.39781,   9.65725 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01777,    .00877, 289.26763,  10.16759,   9.59767,
     +    8.90577,   9.91705,  10.17474,
     +     .01802,    .00890, 304.35575,  10.69833,  10.13718,
     +    9.45409,  10.44947,  10.70544,
     +     .01825,    .00902, 318.84765,  11.21574,  10.66117,
     +    9.98411,  10.96846,  11.22282,
     +     .01848,    .00914, 333.11929,  11.72608,  11.17944,
     +   10.51043,  11.48030,  11.73314,
     +     .01871,    .00927, 347.61237,  12.25163,  11.71154,
     +   11.04875,  12.00734,  12.25867 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01302,    .00634,    .95243,    .62489,    .00000,
     +     .00000,    .33544,    .62879,
     +     .01328,    .00646,   1.90549,    .65729,    .00000,
     +     .00000,    .37064,    .66119,
     +     .01367,    .00664,   3.73811,    .71866,    .01569,
     +     .00000,    .43600,    .72257,
     +     .01395,    .00678,   5.39805,    .77373,    .03987,
     +     .00000,    .49388,    .77765,
     +     .01426,    .00694,   7.35645,    .84114,    .11951,
     +     .00000,    .56414,    .84505,
     +     .01453,    .00707,   9.33456,    .90768,    .19519,
     +     .00000,    .63308,    .91160,
     +     .01478,    .00719,  11.51482,    .97830,    .27332,
     +     .00000,    .70595,    .98221,
     +     .01506,    .00733,  14.13367,   1.06087,    .36550,
     +     .00000,    .79087,   1.06479 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01530,    .00746,  16.60480,   1.14037,    .44758,
     +     .00000,    .87236,   1.14428,
     +     .01553,    .00757,  19.25028,   1.22296,    .53626,
     +     .00000,    .95685,   1.22687,
     +     .01571,    .00767,  21.50185,   1.29302,    .61042,
     +     .00000,   1.02838,   1.29693,
     +     .01613,    .00787,  26.70514,   1.45635,    .78277,
     +     .00000,   1.19478,   1.46025,
     +     .01647,    .00805,  31.42304,   1.61165,    .94547,
     +     .18878,   1.35264,   1.61553,
     +     .01688,    .00826,  37.25948,   1.80219,   1.14467,
     +     .42668,   1.54599,   1.80606,
     +     .01731,    .00848,  43.97753,   2.01984,   1.37144,
     +     .66392,   1.76648,   2.02370,
     +     .01770,    .00869,  50.62398,   2.23445,   1.59473,
     +     .89863,   1.98361,   2.23830 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01809,    .00890,  57.87663,   2.46867,   1.83808,
     +    1.15262,   2.22031,   2.47251,
     +     .01842,    .00907,  64.21921,   2.67584,   2.05028,
     +    1.36737,   2.42950,   2.67969,
     +     .01883,    .00929,  72.43448,   2.94413,   2.32642,
     +    1.65134,   2.70017,   2.94795,
     +     .01919,    .00949,  80.17462,   3.19757,   2.58779,
     +    1.92142,   2.95568,   3.20139,
     +     .01953,    .00966,  87.56628,   3.44243,   2.83835,
     +    2.17682,   3.20239,   3.44624,
     +     .01997,    .00989,  97.42554,   3.77132,   3.17489,
     +    2.52058,   3.53360,   3.77511,
     +     .02037,    .01011, 107.20846,   4.10002,   3.51149,
     +    2.86532,   3.86441,   4.10379,
     +     .02075,    .01031, 116.76213,   4.42456,   3.84295,
     +    3.20348,   4.19092,   4.42833 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .02115,    .01052, 126.63627,   4.76433,   4.18880,
     +    3.55489,   4.53259,   4.76808,
     +     .02153,    .01074, 136.75330,   5.11442,   4.54618,
     +    3.91989,   4.88453,   5.11816,
     +     .02190,    .01094, 146.53990,   5.45853,   4.89563,
     +    4.27421,   5.23034,   5.46226,
     +     .02224,    .01112, 156.10017,   5.79695,   5.23997,
     +    4.62458,   5.57035,   5.80068,
     +     .02260,    .01132, 165.93048,   6.14918,   5.59756,
     +    4.98741,   5.92415,   6.15290,
     +     .02295,    .01151, 175.85418,   6.50826,   5.96207,
     +    5.35743,   6.28474,   6.51197,
     +     .02329,    .01169, 185.50083,   6.86111,   6.31988,
     +    5.72023,   6.63902,   6.86481,
     +     .02361,    .01187, 194.83539,   7.20560,   6.66926,
     +    6.07469,   6.98483,   7.20930 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02393,    .01205, 204.37872,   7.56214,   7.03011,
     +    6.43987,   7.34270,   7.56583,
     +     .02426,    .01222, 214.07263,   7.92627,   7.39936,
     +    6.81469,   7.70811,   7.92995,
     +     .02457,    .01240, 223.32220,   8.27950,   7.75619,
     +    7.17507,   8.06255,   8.28317,
     +     .02486,    .01256, 232.39405,   8.62670,   8.10797,
     +    7.53188,   8.41087,   8.63036,
     +     .02516,    .01273, 241.55039,   8.98261,   8.46744,
     +    7.89502,   8.76793,   8.98627 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01550,    .00758,    .90453,    .56744,    .00000,
     +     .00000,    .30499,    .56982,
     +     .01580,    .00773,   1.80212,    .59808,    .00000,
     +     .00000,    .33805,    .60047,
     +     .01626,    .00796,   3.50556,    .65499,    .01508,
     +     .00000,    .39839,    .65736,
     +     .01661,    .00814,   5.03079,    .70533,    .03701,
     +     .00000,    .45117,    .70771,
     +     .01698,    .00831,   6.81192,    .76632,    .10907,
     +     .00000,    .51462,    .76870,
     +     .01729,    .00847,   8.59541,    .82607,    .17712,
     +     .00000,    .57642,    .82844,
     +     .01760,    .00864,  10.54689,    .88915,    .24693,
     +     .00000,    .64145,    .89152,
     +     .01792,    .00880,  12.87420,    .96253,    .32886,
     +     .00000,    .71684,    .96489 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01822,    .00895,  15.05431,   1.03275,    .40137,
     +     .00000,    .78878,   1.03511,
     +     .01849,    .00910,  17.37534,   1.10546,    .47945,
     +     .00000,    .86311,   1.10781,
     +     .01872,    .00921,  19.34071,   1.16690,    .54449,
     +     .00000,    .92582,   1.16926,
     +     .01920,    .00946,  23.85220,   1.30950,    .69492,
     +     .00000,   1.07105,   1.31184,
     +     .01962,    .00969,  27.90541,   1.44432,    .83611,
     +     .16366,   1.20808,   1.44667,
     +     .02011,    .00994,  32.88202,   1.60889,   1.00808,
     +     .36947,   1.37505,   1.61123,
     +     .02061,    .01021,  38.56564,   1.79585,   1.20272,
     +     .57324,   1.56444,   1.79819,
     +     .02108,    .01046,  44.14741,   1.97925,   1.39338,
     +     .77378,   1.74999,   1.98157 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .02155,    .01071,  50.19699,   2.17844,   1.60015,
     +     .98969,   1.95130,   2.18076,
     +     .02195,    .01092,  55.45327,   2.35381,   1.77959,
     +    1.17130,   2.12839,   2.35612,
     +     .02243,    .01118,  62.22248,   2.57996,   2.01214,
     +    1.41049,   2.35658,   2.58228,
     +     .02286,    .01142,  68.56315,   2.79271,   2.23131,
     +    1.63704,   2.57110,   2.79503,
     +     .02326,    .01163,  74.58492,   2.99741,   2.44057,
     +    1.85034,   2.77737,   2.99972,
     +     .02378,    .01192,  82.57258,   3.27124,   2.72048,
     +    2.13627,   3.05318,   3.27355,
     +     .02426,    .01218,  90.45278,   3.54374,   2.99926,
     +    2.42179,   3.32748,   3.54604,
     +     .02472,    .01244,  98.10611,   3.81168,   3.27263,
     +    2.70069,   3.59710,   3.81399 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02518,    .01268, 105.97410,   4.09108,   3.55673,
     +    2.98933,   3.87812,   4.09338,
     +     .02563,    .01293, 113.99832,   4.37794,   3.84930,
     +    3.28813,   4.16655,   4.38024,
     +     .02606,    .01317, 121.72077,   4.65882,   4.13425,
     +    3.57700,   4.44889,   4.66112,
     +     .02648,    .01340, 129.23373,   4.93418,   4.41417,
     +    3.86179,   4.72560,   4.93648,
     +     .02690,    .01363, 136.92544,   5.21983,   4.70390,
     +    4.15572,   5.01259,   5.22214,
     +     .02731,    .01386, 144.65861,   5.51013,   4.99833,
     +    4.45456,   5.30418,   5.51244,
     +     .02771,    .01408, 152.14629,   5.79452,   5.28646,
     +    4.74666,   5.58978,   5.79683,
     +     .02809,    .01429, 159.36573,   6.07140,   5.56704,
     +    5.03128,   5.86779,   6.07372 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02847,    .01450, 166.71872,   6.35715,   5.85599,
     +    5.32365,   6.15465,   6.35946,
     +     .02885,    .01471, 174.16457,   6.64825,   6.15097,
     +    5.62304,   6.44686,   6.65057,
     +     .02921,    .01491, 181.24062,   6.92980,   6.43514,
     +    5.90998,   6.72944,   6.93211,
     +     .02956,    .01511, 188.16380,   7.20599,   6.71477,
     +    6.19358,   7.00659,   7.20830,
     +     .02992,    .01531, 195.12513,   7.48831,   6.99969,
     +    6.48134,   7.28988,   7.49063 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01754,    .00861,    .87176,    .53000,    .00000,
     +     .00000,    .28526,    .53156,
     +     .01788,    .00878,   1.73207,    .55939,    .00000,
     +     .00000,    .31684,    .56096,
     +     .01840,    .00905,   3.34924,    .61326,    .01473,
     +     .00000,    .37382,    .61482,
     +     .01880,    .00925,   4.78543,    .66046,    .03515,
     +     .00000,    .42320,    .66201,
     +     .01921,    .00947,   6.45017,    .71722,    .10224,
     +     .00000,    .48218,    .71877,
     +     .01957,    .00965,   8.10671,    .77254,    .16531,
     +     .00000,    .53936,    .77408,
     +     .01992,    .00983,   9.90980,    .83071,    .22971,
     +     .00000,    .59927,    .83224,
     +     .02029,    .01003,  12.04900,    .89813,    .30502,
     +     .00000,    .66852,    .89967 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .02062,    .01020,  14.04238,    .96238,    .37139,
     +     .00000,    .73430,    .96392,
     +     .02094,    .01037,  16.15619,   1.02874,    .44266,
     +     .00000,    .80211,   1.03026,
     +     .02119,    .01050,  17.93948,   1.08467,    .50188,
     +     .00000,    .85918,   1.08620,
     +     .02174,    .01080,  22.01319,   1.21403,    .63838,
     +     .00000,    .99091,   1.21556,
     +     .02222,    .01106,  25.64919,   1.33587,    .76598,
     +     .14769,   1.11473,   1.33739,
     +     .02276,    .01134,  30.08907,   1.48404,    .92078,
     +     .33331,   1.26504,   1.48556,
     +     .02333,    .01166,  35.13102,   1.65168,   1.09531,
     +     .51616,   1.43487,   1.65320,
     +     .02386,    .01194,  40.05635,   1.81552,   1.26561,
     +     .69543,   1.60065,   1.81705 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02440,    .01223,  45.36825,   1.99288,   1.44966,
     +     .88773,   1.77989,   1.99440,
     +     .02485,    .01247,  49.96191,   2.14848,   1.60883,
     +    1.04889,   1.93704,   2.15000,
     +     .02539,    .01278,  55.85330,   2.34856,   1.81450,
     +    1.26055,   2.13894,   2.35010,
     +     .02588,    .01304,  61.34850,   2.53621,   2.00777,
     +    1.46041,   2.32818,   2.53774,
     +     .02633,    .01329,  66.54644,   2.71624,   2.19173,
     +    1.64799,   2.50962,   2.71777,
     +     .02692,    .01360,  73.41371,   2.95635,   2.43709,
     +    1.89872,   2.75149,   2.95789,
     +     .02746,    .01390,  80.16035,   3.19455,   2.68071,
     +    2.14833,   2.99132,   3.19610,
     +     .02797,    .01419,  86.68666,   3.42809,   2.91889,
     +    2.39140,   3.22634,   3.42964 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02850,    .01448,  93.36997,   3.67090,   3.16570,
     +    2.64222,   3.47062,   3.67246,
     +     .02901,    .01476, 100.16329,   3.91958,   3.41925,
     +    2.90126,   3.72069,   3.92114,
     +     .02950,    .01503, 106.67660,   4.16239,   3.66549,
     +    3.15093,   3.96480,   4.16396,
     +     .02997,    .01529, 112.99437,   4.39989,   3.90685,
     +    3.39656,   4.20351,   4.40146,
     +     .03043,    .01556, 119.44208,   4.64568,   4.15607,
     +    3.64944,   4.45049,   4.64726,
     +     .03090,    .01582, 125.90537,   4.89490,   4.40876,
     +    3.90598,   4.70086,   4.89649,
     +     .03134,    .01606, 132.14548,   5.13852,   4.65552,
     +    4.15619,   4.94557,   5.14012,
     +     .03178,    .01630, 138.14627,   5.37523,   4.89532,
     +    4.39951,   5.18328,   5.37684 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .03221,    .01654, 144.24107,   5.61901,   5.14177,
     +    4.64891,   5.42807,   5.62063,
     +     .03263,    .01678, 150.39938,   5.86692,   5.39294,
     +    4.90390,   5.67696,   5.86855,
     +     .03304,    .01701, 156.23389,   6.10618,   5.63436,
     +    5.14770,   5.91714,   6.10781,
     +     .03343,    .01723, 161.93273,   6.34053,   5.87159,
     +    5.38836,   6.15236,   6.34218,
     +     .03382,    .01745, 167.64675,   6.57962,   6.11281,
     +    5.63202,   6.39230,   6.58126 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01929,    .00951,    .84725,    .50273,    .00000,
     +     .00000,    .27092,    .50376,
     +     .01968,    .00970,   1.67977,    .53117,    .00000,
     +     .00000,    .30137,    .53219,
     +     .02025,    .01000,   3.23294,    .58275,    .01448,
     +     .00000,    .35585,    .58377,
     +     .02069,    .01023,   4.60353,    .62761,    .03380,
     +     .00000,    .40273,    .62863,
     +     .02115,    .01047,   6.18313,    .68128,    .09723,
     +     .00000,    .45844,    .68229,
     +     .02155,    .01068,   7.74720,    .73335,    .15667,
     +     .00000,    .51223,    .73436,
     +     .02193,    .01088,   9.44259,    .78795,    .21715,
     +     .00000,    .56844,    .78895,
     +     .02234,    .01110,  11.44587,    .85106,    .28765,
     +     .00000,    .63322,    .85207 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .02270,    .01129,  13.30484,    .91100,    .34959,
     +     .00000,    .69458,    .91200,
     +     .02305,    .01148,  15.26995,    .97276,    .41598,
     +     .00000,    .75770,    .97377,
     +     .02333,    .01163,  16.92299,   1.02474,    .47102,
     +     .00000,    .81072,   1.02574,
     +     .02393,    .01195,  20.68480,   1.14463,    .59755,
     +     .00000,    .93278,   1.14564,
     +     .02446,    .01224,  24.02560,   1.25718,    .71545,
     +     .13626,   1.04716,   1.25818,
     +     .02506,    .01256,  28.08728,   1.39365,    .85807,
     +     .30755,   1.18562,   1.39467,
     +     .02569,    .01291,  32.67910,   1.54760,   1.01834,
     +     .47559,   1.34158,   1.54862,
     +     .02628,    .01323,  37.14591,   1.69762,   1.17428,
     +     .63987,   1.49337,   1.69865 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02686,    .01354,  41.94466,   1.85957,   1.34237,
     +     .81561,   1.65707,   1.86061,
     +     .02735,    .01382,  46.07910,   2.00128,   1.48732,
     +     .96245,   1.80020,   2.00233,
     +     .02795,    .01415,  51.36431,   2.18310,   1.67419,
     +    1.15488,   1.98370,   2.18414,
     +     .02849,    .01444,  56.27775,   2.35319,   1.84938,
     +    1.33615,   2.15525,   2.35425,
     +     .02899,    .01472,  60.91061,   2.51601,   2.01575,
     +    1.50587,   2.31937,   2.51707,
     +     .02963,    .01508,  67.01195,   2.73267,   2.23712,
     +    1.73220,   2.53765,   2.73374,
     +     .03023,    .01541,  72.98647,   2.94708,   2.45640,
     +    1.95698,   2.75355,   2.94817,
     +     .03079,    .01572,  78.74755,   3.15681,   2.67029,
     +    2.17536,   2.96466,   3.15791 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .03136,    .01604,  84.62911,   3.37438,   2.89142,
     +    2.40016,   3.18357,   3.37550,
     +     .03193,    .01636,  90.59177,   3.59675,   3.11814,
     +    2.63190,   3.40723,   3.59788,
     +     .03247,    .01665,  96.29164,   3.81341,   3.33784,
     +    2.85474,   3.62508,   3.81455,
     +     .03298,    .01694, 101.80743,   4.02495,   3.55281,
     +    3.07360,   3.83773,   4.02610,
     +     .03350,    .01723, 107.42249,   4.24347,   3.77437,
     +    3.29850,   4.05733,   4.24463,
     +     .03400,    .01751, 113.03797,   4.46464,   3.99861,
     +    3.52624,   4.27957,   4.46582,
     +     .03449,    .01779, 118.44710,   4.68047,   4.21721,
     +    3.74798,   4.49640,   4.68165,
     +     .03495,    .01805, 123.63794,   4.88985,   4.42932,
     +    3.96328,   4.70671,   4.89105 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03543,    .01831, 128.89840,   5.10513,   4.64694,
     +    4.18358,   4.92291,   5.10634,
     +     .03590,    .01858, 134.20436,   5.32376,   4.86845,
     +    4.40854,   5.14245,   5.32499,
     +     .03634,    .01883, 139.21929,   5.53439,   5.08097,
     +    4.62322,   5.35393,   5.53564,
     +     .03677,    .01907, 144.11092,   5.74047,   5.28959,
     +    4.83494,   5.56079,   5.74172,
     +     .03721,    .01932, 149.00451,   5.95038,   5.50138,
     +    5.04893,   5.77149,   5.95164 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02604,    .01301,    .77475,    .42720,    .00000,
     +     .00000,    .23173,    .42734,
     +     .02655,    .01328,   1.52734,    .45263,    .00000,
     +     .00000,    .25877,    .45278,
     +     .02733,    .01371,   2.89708,    .49745,    .01397,
     +     .00000,    .30586,    .49760,
     +     .02792,    .01402,   4.08185,    .53557,    .03008,
     +     .00000,    .34559,    .53573,
     +     .02854,    .01436,   5.42203,    .58045,    .08321,
     +     .00000,    .39208,    .58061,
     +     .02908,    .01466,   6.72813,    .62343,    .13249,
     +     .00000,    .43642,    .62360,
     +     .02959,    .01494,   8.12527,    .66808,    .18205,
     +     .00000,    .48235,    .66826,
     +     .03016,    .01524,   9.75473,    .71923,    .23933,
     +     .00000,    .53482,    .71943 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .03064,    .01551,  11.24673,    .76731,    .28913,
     +     .00000,    .58401,    .76752,
     +     .03111,    .01578,  12.80822,    .81656,    .34218,
     +     .00000,    .63433,    .81678,
     +     .03149,    .01598,  14.10954,    .85773,    .38587,
     +     .00000,    .67632,    .85795,
     +     .03230,    .01643,  17.03501,    .95192,    .48548,
     +     .00000,    .77222,    .95217,
     +     .03301,    .01683,  19.59146,   1.03950,    .57739,
     +     .10530,    .86123,   1.03977,
     +     .03382,    .01728,  22.65513,   1.14472,    .68756,
     +     .23842,    .96801,   1.14500,
     +     .03467,    .01776,  26.06930,   1.26225,    .81012,
     +     .36736,   1.08712,   1.26257,
     +     .03545,    .01820,  29.34608,   1.37575,    .92827,
     +     .49225,   1.20200,   1.37608 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03624,    .01864,  32.82281,   1.49723,   1.05454,
     +     .62469,   1.32485,   1.49760,
     +     .03690,    .01902,  35.78236,   1.60264,   1.16249,
     +     .73433,   1.43136,   1.60302,
     +     .03771,    .01947,  39.52631,   1.73687,   1.30065,
     +     .87702,   1.56691,   1.73729,
     +     .03843,    .01988,  42.97003,   1.86154,   1.42921,
     +    1.01045,   1.69271,   1.86198,
     +     .03909,    .02025,  46.18372,   1.97999,   1.55038,
     +    1.13438,   1.81218,   1.98045,
     +     .03994,    .02074,  50.37316,   2.13647,   1.71045,
     +    1.29847,   1.96993,   2.13697,
     +     .04074,    .02120,  54.43222,   2.29015,   1.86781,
     +    1.46022,   2.12477,   2.29068,
     +     .04150,    .02163,  58.30648,   2.43937,   2.02015,
     +    1.61616,   2.27506,   2.43993 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .04226,    .02206,  62.22230,   2.59305,   2.17651,
     +    1.77551,   2.42978,   2.59364,
     +     .04301,    .02249,  66.15863,   2.74914,   2.33584,
     +    1.93878,   2.58687,   2.74976,
     +     .04373,    .02290,  69.88490,   2.90016,   2.48913,
     +    2.09463,   2.73882,   2.90082,
     +     .04440,    .02328,  73.46366,   3.04678,   2.63829,
     +    2.24686,   2.88631,   3.04747,
     +     .04509,    .02367,  77.07705,   3.19733,   2.79109,
     +    2.40233,   3.03771,   3.19805,
     +     .04576,    .02406,  80.66317,   3.34887,   2.94489,
     +    2.55890,   3.19007,   3.34961,
     +     .04640,    .02443,  84.09181,   3.49592,   3.09400,
     +    2.71049,   3.33791,   3.49671,
     +     .04702,    .02478,  87.35981,   3.63787,   3.23796,
     +    2.85696,   3.48058,   3.63868 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04764,    .02513,  90.64751,   3.78305,   3.38488,
     +    3.00602,   3.62648,   3.78390,
     +     .04826,    .02549,  93.94514,   3.92985,   3.53379,
     +    3.15761,   3.77398,   3.93072,
     +     .04885,    .02582,  97.03660,   4.07051,   3.67583,
     +    3.30139,   3.91529,   4.07141,
     +     .04941,    .02615, 100.03954,   4.20761,   3.81482,
     +    3.44277,   4.05303,   4.20855,
     +     .04999,    .02648, 103.02046,   4.34657,   3.95514,
     +    3.58486,   4.19258,   4.34752 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03527,    .01792,    .70976,    .36434,    .00000,
     +     .00000,    .19978,    .36456,
     +     .03596,    .01830,   1.39172,    .38673,    .00000,
     +     .00000,    .22349,    .38697,
     +     .03700,    .01887,   2.59898,    .42516,    .01382,
     +     .00000,    .26378,    .42543,
     +     .03779,    .01932,   3.62208,    .45720,    .02699,
     +     .00000,    .29713,    .45751,
     +     .03861,    .01978,   4.75649,    .49437,    .07116,
     +     .00000,    .33560,    .49470,
     +     .03933,    .02018,   5.84343,    .52950,    .11171,
     +     .00000,    .37185,    .52986,
     +     .04002,    .02058,   6.98981,    .56568,    .15202,
     +     .00000,    .40906,    .56607,
     +     .04076,    .02100,   8.30834,    .60676,    .19820,
     +     .00000,    .45121,    .60717 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .04141,    .02137,   9.49849,    .64497,    .23792,
     +     .00000,    .49033,    .64541,
     +     .04205,    .02173,  10.73093,    .68386,    .27999,
     +     .00000,    .53008,    .68433,
     +     .04256,    .02202,  11.74784,    .71616,    .31440,
     +     .00000,    .56305,    .71667,
     +     .04364,    .02264,  14.00444,    .78947,    .39224,
     +     .00000,    .63776,    .79001,
     +     .04459,    .02319,  15.94400,    .85696,    .46334,
     +     .07999,    .70640,    .85754,
     +     .04568,    .02382,  18.23095,    .93728,    .54774,
     +     .18280,    .78798,    .93793,
     +     .04682,    .02448,  20.74075,   1.02611,    .64071,
     +     .28109,    .87809,   1.02681,
     +     .04786,    .02507,  23.11508,   1.11108,    .72949,
     +     .37542,    .96418,   1.11183 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04891,    .02569,  25.60091,   1.20123,    .82353,
     +     .47454,   1.05545,   1.20203,
     +     .04979,    .02620,  27.68954,   1.27876,    .90319,
     +     .55581,   1.13387,   1.27962,
     +     .05086,    .02683,  30.30236,   1.37677,   1.00440,
     +     .66083,   1.23295,   1.37768,
     +     .05183,    .02738,  32.67836,   1.46708,   1.09785,
     +     .75829,   1.32417,   1.46805,
     +     .05271,    .02790,  34.87094,   1.55224,   1.18524,
     +     .84808,   1.41016,   1.55325,
     +     .05384,    .02855,  37.69792,   1.66389,   1.29981,
     +     .96607,   1.52283,   1.66496,
     +     .05491,    .02917,  40.40582,   1.77266,   1.41155,
     +    1.08146,   1.63256,   1.77380,
     +     .05591,    .02975,  42.96177,   1.87748,   1.51889,
     +    1.19183,   1.73824,   1.87867 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05693,    .03034,  45.51698,   1.98460,   1.62822,
     +    1.30373,   1.84620,   1.98586,
     +     .05792,    .03092,  48.06234,   2.09270,   1.73890,
     +    1.41768,   1.95512,   2.09401,
     +     .05886,    .03147,  50.44582,   2.19651,   1.84459,
     +    1.52559,   2.05969,   2.19789,
     +     .05975,    .03199,  52.71634,   2.29672,   1.94683,
     +    1.63040,   2.16060,   2.29814,
     +     .06065,    .03252,  54.98800,   2.39896,   2.05090,
     +    1.73674,   2.26353,   2.40043,
     +     .06155,    .03304,  57.22371,   2.50124,   2.15504,
     +    1.84321,   2.36649,   2.50278,
     +     .06240,    .03352,  59.34355,   2.59995,   2.25541,
     +    1.94569,   2.46582,   2.60153,
     +     .06321,    .03400,  61.34904,   2.69472,   2.35181,
     +    2.04419,   2.56118,   2.69635 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06403,    .03447,  63.35001,   2.79110,   2.44962,
     +    2.14384,   2.65816,   2.79279,
     +     .06484,    .03494,  65.34499,   2.88813,   2.54833,
     +    2.24477,   2.75575,   2.88986,
     +     .06562,    .03539,  67.19763,   2.98052,   2.64189,
     +    2.33986,   2.84868,   2.98230,
     +     .06636,    .03582,  68.98943,   3.07026,   2.73314,
     +    2.43309,   2.93894,   3.07209,
     +     .06710,    .03626,  70.75214,   3.16069,   2.82472,
     +    2.52620,   3.02987,   3.16257 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .04218,    .02168,    .67776,    .33284,    .00000,
     +     .00000,    .18408,    .33345,
     +     .04298,    .02213,   1.32257,    .35343,    .00000,
     +     .00000,    .20584,    .35408,
     +     .04421,    .02282,   2.44326,    .38825,    .01385,
     +     .00000,    .24236,    .38898,
     +     .04514,    .02334,   3.38123,    .41701,    .02540,
     +     .00000,    .27229,    .41777,
     +     .04611,    .02391,   4.40832,    .45007,    .06484,
     +     .00000,    .30653,    .45087,
     +     .04695,    .02439,   5.38195,    .48111,    .10083,
     +     .00000,    .33856,    .48196,
     +     .04777,    .02487,   6.39970,    .51290,    .13636,
     +     .00000,    .37129,    .51379,
     +     .04865,    .02539,   7.56012,    .54882,    .17685,
     +     .00000,    .40818,    .54976 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04942,    .02583,   8.59824,    .58201,    .21147,
     +     .00000,    .44218,    .58299,
     +     .05017,    .02627,   9.66607,    .61568,    .24801,
     +     .00000,    .47664,    .61671,
     +     .05078,    .02662,  10.54169,    .64356,    .27778,
     +     .00000,    .50510,    .64461,
     +     .05206,    .02736,  12.46896,    .70648,    .34479,
     +     .00000,    .56929,    .70761,
     +     .05319,    .02803,  14.10914,    .76407,    .40564,
     +     .06730,    .62792,    .76526,
     +     .05448,    .02878,  16.02239,    .83224,    .47749,
     +     .15529,    .69722,    .83351,
     +     .05582,    .02957,  18.10193,    .90715,    .55612,
     +     .23874,    .77329,    .90850,
     +     .05705,    .03029,  20.05143,    .97841,    .63080,
     +     .31838,    .84557,    .97983 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05830,    .03103,  22.07536,   1.05360,    .70946,
     +     .40160,    .92177,   1.05511,
     +     .05934,    .03163,  23.76181,   1.11793,    .77574,
     +     .46946,    .98691,   1.11949,
     +     .06062,    .03238,  25.85671,   1.19887,    .85956,
     +     .55676,   1.06882,   1.20052,
     +     .06175,    .03306,  27.74803,   1.27311,    .93660,
     +     .63740,   1.14388,   1.27482,
     +     .06280,    .03366,  29.48083,   1.34277,   1.00828,
     +     .71131,   1.21430,   1.34455,
     +     .06413,    .03444,  31.69944,   1.43369,   1.10182,
     +     .80800,   1.30615,   1.43556,
     +     .06538,    .03518,  33.80919,   1.52183,   1.19262,
     +     .90210,   1.39515,   1.52378,
     +     .06656,    .03588,  35.78638,   1.60635,   1.27941,
     +     .99167,   1.48046,   1.60839 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06776,    .03659,  37.74898,   1.69234,   1.36739,
     +    1.08204,   1.56722,   1.69446,
     +     .06892,    .03726,  39.69281,   1.77876,   1.45613,
     +    1.17373,   1.65438,   1.78095,
     +     .07003,    .03792,  41.50007,   1.86138,   1.54044,
     +    1.26011,   1.73769,   1.86364,
     +     .07108,    .03853,  43.21269,   1.94083,   1.62172,
     +    1.34373,   1.81778,   1.94316,
     +     .07214,    .03915,  44.91601,   2.02157,   1.70413,
     +    1.42823,   1.89915,   2.02397,
     +     .07319,    .03977,  46.58322,   2.10206,   1.78628,
     +    1.51253,   1.98026,   2.10454,
     +     .07418,    .04035,  48.15547,   2.17945,   1.86518,
     +    1.59337,   2.05822,   2.18199,
     +     .07513,    .04090,  49.63564,   2.25351,   1.94070,
     +    1.67081,   2.13281,   2.25610 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07609,    .04146,  51.10436,   2.32856,   2.01706,
     +    1.74887,   2.20841,   2.33123,
     +     .07703,    .04202,  52.56310,   2.40390,   2.09391,
     +    1.82774,   2.28428,   2.40663,
     +     .07793,    .04254,  53.90887,   2.47537,   2.16646,
     +    1.90173,   2.35624,   2.47816,
     +     .07880,    .04304,  55.20716,   2.54464,   2.23708,
     +    1.97414,   2.42597,   2.54750,
     +     .07967,    .04356,  56.47634,   2.61419,   2.30768,
     +    2.04617,   2.49598,   2.61710 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04789,    .02479,    .66066,    .31236,    .00000,
     +     .00000,    .17407,    .31351,
     +     .04880,    .02531,   1.28072,    .33168,    .00000,
     +     .00000,    .19449,    .33287,
     +     .05017,    .02611,   2.34312,    .36407,    .01389,
     +     .00000,    .22842,    .36530,
     +     .05121,    .02671,   3.22407,    .39060,    .02434,
     +     .00000,    .25605,    .39191,
     +     .05230,    .02735,   4.17960,    .42096,    .06062,
     +     .00000,    .28750,    .42232,
     +     .05325,    .02791,   5.07813,    .44931,    .09359,
     +     .00000,    .31679,    .45073,
     +     .05418,    .02845,   6.01112,    .47824,    .12597,
     +     .00000,    .34658,    .47970,
     +     .05518,    .02904,   7.06794,    .51081,    .16275,
     +     .00000,    .38005,    .51235 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05604,    .02955,   8.00700,    .54080,    .19406,
     +     .00000,    .41079,    .54237,
     +     .05688,    .03005,   8.96818,    .57112,    .22702,
     +     .00000,    .44184,    .57274,
     +     .05757,    .03045,   9.75266,    .59614,    .25381,
     +     .00000,    .46743,    .59780,
     +     .05901,    .03130,  11.46881,    .65246,    .31389,
     +     .00000,    .52491,    .65421,
     +     .06029,    .03207,  12.91846,    .70377,    .36821,
     +     .05922,    .57719,    .70560,
     +     .06174,    .03292,  14.59563,    .76426,    .43209,
     +     .13779,    .63874,    .76617,
     +     .06325,    .03382,  16.40542,    .83043,    .50169,
     +     .21187,    .70601,    .83245,
     +     .06464,    .03464,  18.09043,    .89312,    .56751,
     +     .28229,    .76964,    .89522 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06605,    .03548,  19.82872,    .95902,    .63657,
     +     .35556,    .83647,    .96121,
     +     .06722,    .03618,  21.26799,   1.01515,    .69452,
     +     .41506,    .89336,   1.01742,
     +     .06866,    .03703,  23.04643,   1.08554,    .76756,
     +     .49137,    .96466,   1.08791,
     +     .06992,    .03779,  24.64330,   1.14987,    .83445,
     +     .56160,   1.02978,   1.15233,
     +     .07110,    .03848,  26.09830,   1.21004,    .89648,
     +     .62574,   1.09064,   1.21256,
     +     .07259,    .03937,  27.95136,   1.28827,    .97715,
     +     .70937,   1.16974,   1.29090,
     +     .07400,    .04021,  29.70378,   1.36385,   1.05514,
     +     .79046,   1.24614,   1.36658,
     +     .07534,    .04099,  31.33711,   1.43607,   1.12945,
     +     .86736,   1.31909,   1.43889 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07666,    .04178,  32.94956,   1.50928,   1.20450,
     +     .94468,   1.39302,   1.51218,
     +     .07797,    .04255,  34.53962,   1.58263,   1.27997,
     +    1.02290,   1.46707,   1.58563,
     +     .07921,    .04329,  36.00974,   1.65251,   1.35142,
     +    1.09633,   1.53760,   1.65558,
     +     .08039,    .04397,  37.39734,   1.71952,   1.42013,
     +    1.16722,   1.60522,   1.72268,
     +     .08158,    .04467,  38.77103,   1.78743,   1.48957,
     +    1.23865,   1.67373,   1.79067,
     +     .08274,    .04536,  40.10988,   1.85493,   1.55861,
     +    1.30970,   1.74180,   1.85826,
     +     .08385,    .04601,  41.36716,   1.91965,   1.62473,
     +    1.37765,   1.80707,   1.92307,
     +     .08491,    .04663,  42.54630,   1.98144,   1.68786,
     +    1.44259,   1.86937,   1.98492 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08597,    .04725,  43.71119,   2.04389,   1.75153,
     +    1.50788,   1.93233,   2.04745,
     +     .08703,    .04788,  44.86480,   2.10644,   1.81549,
     +    1.57371,   1.99539,   2.11008,
     +     .08804,    .04846,  45.92350,   2.16561,   1.87567,
     +    1.63527,   2.05502,   2.16932,
     +     .08899,    .04902,  46.94287,   2.22287,   1.93417,
     +    1.69543,   2.11272,   2.22664,
     +     .08997,    .04959,  47.93430,   2.28019,   1.99248,
     +    1.75511,   2.17047,   2.28403 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .05288,    .02767,    .65291,    .29826,    .00000,
     +     .00000,    .16690,    .29947,
     +     .05387,    .02824,   1.25467,    .31658,    .00000,
     +     .00000,    .18623,    .31785,
     +     .05537,    .02912,   2.27309,    .34706,    .01387,
     +     .00000,    .21814,    .34841,
     +     .05651,    .02981,   3.11094,    .37192,    .02348,
     +     .00000,    .24401,    .37333,
     +     .05771,    .03051,   4.01266,    .40022,    .05738,
     +     .00000,    .27334,    .40171,
     +     .05876,    .03113,   4.85482,    .42656,    .08807,
     +     .00000,    .30053,    .42811,
     +     .05978,    .03174,   5.72432,    .45335,    .11812,
     +     .00000,    .32814,    .45497,
     +     .06087,    .03239,   6.70381,    .48344,    .15216,
     +     .00000,    .35906,    .48512 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .06183,    .03295,   7.56923,    .51104,    .18102,
     +     .00000,    .38736,    .51279,
     +     .06276,    .03351,   8.45136,    .53890,    .21135,
     +     .00000,    .41589,    .54070,
     +     .06350,    .03396,   9.16851,    .56185,    .23595,
     +     .00000,    .43935,    .56369,
     +     .06509,    .03491,  10.72926,    .61332,    .29094,
     +     .00000,    .49192,    .61527,
     +     .06650,    .03575,  12.03966,    .66006,    .34051,
     +     .05340,    .53958,    .66211,
     +     .06808,    .03669,  13.54532,    .71498,    .39859,
     +     .12508,    .59550,    .71714,
     +     .06975,    .03768,  15.16008,    .77486,    .46165,
     +     .19236,    .65637,    .77712,
     +     .07127,    .03860,  16.65487,    .83136,    .52107,
     +     .25609,    .71377,    .83373 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .07281,    .03952,  18.18869,    .89056,    .58323,
     +     .32219,    .77385,    .89304,
     +     .07410,    .04028,  19.45189,    .94083,    .63519,
     +     .37566,    .82484,    .94340,
     +     .07567,    .04122,  21.00579,   1.00370,    .70053,
     +     .44408,    .88855,   1.00637,
     +     .07706,    .04205,  22.39465,   1.06098,    .76018,
     +     .50687,    .94656,   1.06376,
     +     .07834,    .04281,  23.65417,   1.11440,    .81532,
     +     .56403,   1.00064,   1.11726,
     +     .07998,    .04378,  25.25114,   1.18364,    .88684,
     +     .63834,   1.07072,   1.18663,
     +     .08152,    .04469,  26.75436,   1.25035,    .95579,
     +     .71019,   1.13817,   1.25344,
     +     .08297,    .04555,  28.14887,   1.31388,   1.02127,
     +     .77813,   1.20240,   1.31707 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08442,    .04642,  29.51907,   1.37810,   1.08721,
     +     .84622,   1.26730,   1.38140,
     +     .08585,    .04726,  30.86522,   1.44229,   1.15336,
     +     .91495,   1.33215,   1.44570,
     +     .08720,    .04805,  32.10382,   1.50325,   1.21580,
     +     .97927,   1.39374,   1.50676,
     +     .08848,    .04881,  33.26885,   1.56158,   1.27570,
     +    1.04124,   1.45264,   1.56519,
     +     .08976,    .04956,  34.41743,   1.62056,   1.33611,
     +    1.10352,   1.51218,   1.62425,
     +     .09103,    .05031,  35.53309,   1.67904,   1.39601,
     +    1.16532,   1.57121,   1.68282,
     +     .09224,    .05102,  36.57715,   1.73497,   1.45326,
     +    1.22430,   1.62766,   1.73885,
     +     .09338,    .05170,  37.55285,   1.78825,   1.50782,
     +    1.28056,   1.68142,   1.79222 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09454,    .05237,  38.51264,   1.84199,   1.56270,
     +    1.33698,   1.73563,   1.84604,
     +     .09569,    .05304,  39.46085,   1.89572,   1.61773,
     +    1.39377,   1.78984,   1.89985,
     +     .09678,    .05368,  40.32729,   1.94643,   1.66939,
     +    1.44675,   1.84099,   1.95064,
     +     .09782,    .05429,  41.16027,   1.99542,   1.71955,
     +    1.49846,   1.89041,   1.99971,
     +     .09887,    .05490,  41.96658,   2.04436,   1.76943,
     +    1.54964,   1.93975,   2.04872 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .07211,    .03909,    .64783,    .26001,    .00000,
     +     .00000,    .14806,    .26222,
     +     .07341,    .03988,   1.19704,    .27512,    .00000,
     +     .00000,    .16398,    .27741,
     +     .07542,    .04110,   2.08750,    .29982,    .01372,
     +     .00000,    .18988,    .30225,
     +     .07694,    .04204,   2.80107,    .31971,    .02084,
     +     .00000,    .21059,    .32224,
     +     .07853,    .04302,   3.54874,    .34210,    .04793,
     +     .00000,    .23382,    .34475,
     +     .07994,    .04387,   4.23108,    .36273,    .07225,
     +     .00000,    .25515,    .36547,
     +     .08130,    .04471,   4.92215,    .38352,    .09576,
     +     .00000,    .27661,    .38636,
     +     .08277,    .04560,   5.68630,    .40668,    .12217,
     +     .00000,    .30046,    .40963 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08404,    .04638,   6.34875,    .42772,    .14432,
     +     .00000,    .32208,    .43075,
     +     .08529,    .04714,   7.01444,    .44881,    .16745,
     +     .00000,    .34374,    .45194,
     +     .08628,    .04775,   7.54853,    .46605,    .18608,
     +     .00000,    .36143,    .46927,
     +     .08841,    .04905,   8.69082,    .50444,    .22738,
     +     .00000,    .40072,    .50780,
     +     .09028,    .05018,   9.63056,    .53891,    .26420,
     +     .03747,    .43595,    .54241,
     +     .09239,    .05146,  10.68377,    .57896,    .30686,
     +     .09081,    .47684,    .58263,
     +     .09461,    .05280,  11.78998,    .62209,    .35263,
     +     .14009,    .52083,    .62594,
     +     .09662,    .05401,  12.79397,    .66236,    .39528,
     +     .18627,    .56185,    .66635 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09867,    .05525,  13.80542,    .70409,    .43942,
     +     .23365,    .60434,    .70825,
     +     .10036,    .05626,  14.62293,    .73914,    .47591,
     +     .27154,    .63998,    .74342,
     +     .10242,    .05750,  15.61322,    .78254,    .52136,
     +     .31959,    .68412,    .78700,
     +     .10426,    .05859,  16.48432,    .82173,    .56247,
     +     .36329,    .72393,    .82632,
     +     .10594,    .05959,  17.26134,    .85790,    .60009,
     +     .40265,    .76066,    .86261,
     +     .10807,    .06086,  18.23105,    .90434,    .64842,
     +     .45337,    .80782,    .90923,
     +     .11009,    .06205,  19.12892,    .94861,    .69455,
     +     .50192,    .85276,    .95366,
     +     .11197,    .06316,  19.94805,    .99035,    .73791,
     +     .54736,    .89510,    .99556 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11385,    .06427,  20.73934,   1.03213,    .78115,
     +     .59246,    .93748,   1.03749,
     +     .11569,    .06535,  21.50664,   1.07355,    .82418,
     +     .63762,    .97947,   1.07905,
     +     .11744,    .06637,  22.20012,   1.11247,    .86438,
     +     .67945,   1.01893,   1.11812,
     +     .11909,    .06734,  22.84450,   1.14944,    .90267,
     +     .71948,   1.05641,   1.15522,
     +     .12074,    .06829,  23.47031,   1.18649,    .94094,
     +     .75935,   1.09396,   1.19241,
     +     .12236,    .06923,  24.07003,   1.22295,    .97861,
     +     .79863,   1.13088,   1.22900,
     +     .12390,    .07012,  24.62361,   1.25754,   1.01433,
     +     .83583,   1.16594,   1.26371,
     +     .12536,    .07097,  25.13455,   1.29027,   1.04813,
     +     .87106,   1.19909,   1.29655 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12682,    .07182,  25.62970,   1.32300,   1.08187,
     +     .90612,   1.23225,   1.32940,
     +     .12828,    .07266,  26.11449,   1.35555,   1.11553,
     +     .94123,   1.26522,   1.36207,
     +     .12965,    .07345,  26.54911,   1.38599,   1.14683,
     +     .97368,   1.29605,   1.39262,
     +     .13097,    .07420,  26.96482,   1.41528,   1.17710,
     +    1.00525,   1.32572,   1.42201,
     +     .13228,    .07495,  27.35956,   1.44427,   1.20694,
     +    1.03621,   1.35509,   1.45113 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09883,    .05571,    .70443,    .22971,    .00000,
     +     .00000,    .13297,    .23354,
     +     .10057,    .05681,   1.20268,    .24156,    .00000,
     +     .00000,    .14551,    .24553,
     +     .10324,    .05851,   1.97130,    .26078,    .01280,
     +     .00000,    .16571,    .26496,
     +     .10529,    .05978,   2.56870,    .27613,    .01768,
     +     .00000,    .18175,    .28047,
     +     .10743,    .06111,   3.17559,    .29327,    .03880,
     +     .00000,    .19961,    .29779,
     +     .10930,    .06228,   3.71465,    .30892,    .05761,
     +     .00000,    .21586,    .31359,
     +     .11112,    .06341,   4.24843,    .32458,    .07557,
     +     .00000,    .23208,    .32940,
     +     .11308,    .06462,   4.82596,    .34189,    .09557,
     +     .00000,    .24998,    .34687 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11479,    .06566,   5.31566,    .35744,    .11214,
     +     .00000,    .26605,    .36257,
     +     .11645,    .06669,   5.79955,    .37294,    .12936,
     +     .00000,    .28202,    .37821,
     +     .11778,    .06750,   6.18177,    .38552,    .14312,
     +     .00000,    .29499,    .39091,
     +     .12061,    .06922,   6.98241,    .41326,    .17334,
     +     .00000,    .32352,    .41889,
     +     .12309,    .07072,   7.62665,    .43786,    .19995,
     +     .02435,    .34879,    .44371,
     +     .12587,    .07239,   8.32476,    .46612,    .23041,
     +     .06306,    .37778,    .47219,
     +     .12878,    .07412,   9.03972,    .49613,    .26266,
     +     .09824,    .40855,    .50246,
     +     .13142,    .07569,   9.67296,    .52378,    .29233,
     +     .13078,    .43687,    .53034 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13409,    .07727,  10.29656,    .55207,    .32265,
     +     .16377,    .46585,    .55887,
     +     .13629,    .07856,  10.78878,    .57554,    .34738,
     +     .18980,    .48985,    .58252,
     +     .13896,    .08013,  11.37360,    .60429,    .37789,
     +     .22251,    .51925,    .61150,
     +     .14133,    .08151,  11.87773,    .62993,    .40517,
     +     .25191,    .54547,    .63735,
     +     .14349,    .08277,  12.31762,    .65332,    .42985,
     +     .27810,    .56937,    .66093,
     +     .14622,    .08434,  12.85533,    .68302,    .46119,
     +     .31147,    .59972,    .69086,
     +     .14878,    .08582,  13.34255,    .71099,    .49078,
     +     .34308,    .62829,    .71905,
     +     .15117,    .08719,  13.77696,    .73704,    .51825,
     +     .37230,    .65490,    .74532 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15354,    .08854,  14.18683,    .76280,    .54532,
     +     .40097,    .68122,    .77127,
     +     .15587,    .08987,  14.57744,    .78808,    .57200,
     +     .42943,    .70703,    .79675,
     +     .15805,    .09110,  14.92118,    .81153,    .59664,
     +     .45548,    .73099,    .82040,
     +     .16010,    .09225,  15.23519,    .83362,    .61990,
     +     .48019,    .75353,    .84266,
     +     .16216,    .09340,  15.53339,    .85551,    .64290,
     +     .50455,    .77589,    .86472,
     +     .16417,    .09453,  15.81328,    .87684,    .66534,
     +     .52835,    .79768,    .88623,
     +     .16607,    .09559,  16.06611,    .89689,    .68642,
     +     .55068,    .81815,    .90644,
     +     .16787,    .09658,  16.29509,    .91569,    .70620,
     +     .57166,    .83735,    .92539 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16966,    .09757,  16.51170,    .93431,    .72576,
     +     .59235,    .85638,    .94416,
     +     .17144,    .09855,  16.72102,    .95269,    .74515,
     +     .61295,    .87516,    .96269,
     +     .17311,    .09947,  16.90213,    .96968,    .76297,
     +     .63177,    .89251,    .97982,
     +     .17471,    .10035,  17.07444,    .98594,    .78014,
     +     .65001,    .90914,    .99622,
     +     .17630,    .10121,  17.23190,   1.00187,    .79688,
     +     .66770,    .92542,   1.01228 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11903,    .06859,    .78148,    .21399,    .00000,
     +     .00000,    .12489,    .21925,
     +     .12111,    .06992,   1.24840,    .22402,    .00000,
     +     .00000,    .13554,    .22945,
     +     .12431,    .07196,   1.94561,    .24025,    .01153,
     +     .00000,    .15267,    .24596,
     +     .12673,    .07348,   2.47570,    .25316,    .01524,
     +     .00000,    .16624,    .25909,
     +     .12928,    .07507,   3.00358,    .26759,    .03328,
     +     .00000,    .18132,    .27374,
     +     .13149,    .07645,   3.46417,    .28066,    .04927,
     +     .00000,    .19496,    .28702,
     +     .13367,    .07778,   3.91340,    .29370,    .06441,
     +     .00000,    .20853,    .30025,
     +     .13600,    .07921,   4.39249,    .30804,    .08121,
     +     .00000,    .22344,    .31480 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13801,    .08044,   4.79272,    .32085,    .09501,
     +     .00000,    .23673,    .32780,
     +     .13998,    .08163,   5.18368,    .33357,    .10931,
     +     .00000,    .24991,    .34069,
     +     .14155,    .08257,   5.48927,    .34385,    .12067,
     +     .00000,    .26054,    .35111,
     +     .14489,    .08458,   6.12030,    .36637,    .14549,
     +     .00000,    .28381,    .37393,
     +     .14778,    .08630,   6.62129,    .38617,    .16715,
     +     .01771,    .30426,    .39399,
     +     .15103,    .08821,   7.14974,    .40871,    .19176,
     +     .04938,    .32753,    .41684,
     +     .15441,    .09020,   7.68135,    .43245,    .21759,
     +     .07784,    .35200,    .44089,
     +     .15747,    .09197,   8.14413,    .45413,    .24114,
     +     .10396,    .37433,    .46283 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16056,    .09376,   8.59234,    .47613,    .26501,
     +     .13021,    .39698,    .48511,
     +     .16310,    .09521,   8.93966,    .49419,    .28432,
     +     .15076,    .41559,    .50342,
     +     .16617,    .09696,   9.34648,    .51617,    .30796,
     +     .17639,    .43820,    .52567,
     +     .16887,    .09849,   9.69189,    .53561,    .32895,
     +     .19928,    .45821,    .54536,
     +     .17134,    .09989,   9.98813,    .55321,    .34778,
     +     .21951,    .47632,    .56317,
     +     .17445,    .10162,  10.34421,    .57537,    .37153,
     +     .24510,    .49912,    .58560,
     +     .17735,    .10325,  10.66133,    .59606,    .39375,
     +     .26914,    .52041,    .60656,
     +     .18007,    .10474,  10.93900,    .61516,    .41423,
     +     .29122,    .54007,    .62590 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18273,    .10621,  11.19533,    .63388,    .43424,
     +     .31269,    .55933,    .64485,
     +     .18535,    .10764,  11.43603,    .65212,    .45385,
     +     .33389,    .57811,    .66333,
     +     .18777,    .10896,  11.64268,    .66891,    .47179,
     +     .35313,    .59539,    .68033,
     +     .19007,    .11021,  11.82866,    .68460,    .48862,
     +     .37128,    .61154,    .69621,
     +     .19235,    .11143,  12.00141,    .70003,    .50516,
     +     .38905,    .62745,    .71185,
     +     .19457,    .11262,  12.16050,    .71496,    .52119,
     +     .40631,    .64283,    .72697,
     +     .19668,    .11374,  12.30119,    .72888,    .53615,
     +     .42241,    .65719,    .74108,
     +     .19865,    .11479,  12.42602,    .74186,    .55011,
     +     .43745,    .67057,    .75422 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20062,    .11583,  12.54066,    .75463,    .56381,
     +     .45218,    .68374,    .76716,
     +     .20257,    .11686,  12.65001,    .76716,    .57733,
     +     .46679,    .69668,    .77986,
     +     .20438,    .11781,  12.74056,    .77863,    .58966,
     +     .48003,    .70853,    .79149,
     +     .20612,    .11872,  12.82640,    .78958,    .60150,
     +     .49283,    .71984,    .80259,
     +     .20784,    .11962,  12.90096,    .80020,    .61295,
     +     .50516,    .73081,    .81335 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13594,    .07948,    .86696,    .20331,    .00000,
     +     .00000,    .11909,    .20985,
     +     .13830,    .08099,   1.30618,    .21210,    .00000,
     +     .00000,    .12848,    .21888,
     +     .14195,    .08330,   1.95066,    .22634,    .01009,
     +     .00000,    .14359,    .23345,
     +     .14471,    .08503,   2.43192,    .23768,    .01309,
     +     .00000,    .15556,    .24505,
     +     .14759,    .08682,   2.90373,    .25031,    .02913,
     +     .00000,    .16881,    .25795,
     +     .15011,    .08837,   3.30979,    .26172,    .04330,
     +     .00000,    .18078,    .26961,
     +     .15256,    .08986,   3.70119,    .27307,    .05664,
     +     .00000,    .19265,    .28119,
     +     .15518,    .09144,   4.11394,    .28550,    .07139,
     +     .00000,    .20564,    .29386 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15746,    .09281,   4.45478,    .29656,    .08343,
     +     .00000,    .21716,    .30514,
     +     .15967,    .09412,   4.78474,    .30748,    .09587,
     +     .00000,    .22855,    .31628,
     +     .16143,    .09517,   5.04051,    .31628,    .10571,
     +     .00000,    .23770,    .32526,
     +     .16516,    .09736,   5.56258,    .33548,    .12712,
     +     .00000,    .25765,    .34480,
     +     .16840,    .09925,   5.97314,    .35224,    .14569,
     +     .01340,    .27506,    .36188,
     +     .17201,    .10133,   6.39571,    .37121,    .16665,
     +     .04065,    .29474,    .38118,
     +     .17575,    .10346,   6.81449,    .39103,    .18849,
     +     .06495,    .31530,    .40134,
     +     .17912,    .10537,   7.17371,    .40900,    .20827,
     +     .08709,    .33392,    .41963 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18252,    .10729,   7.51668,    .42710,    .22820,
     +     .10921,    .35270,    .43806,
     +     .18529,    .10884,   7.77816,    .44187,    .24420,
     +     .12641,    .36800,    .45307,
     +     .18865,    .11069,   8.08062,    .45971,    .26368,
     +     .14775,    .38648,    .47122,
     +     .19161,    .11232,   8.33396,    .47540,    .28087,
     +     .16670,    .40274,    .48718,
     +     .19429,    .11377,   8.54771,    .48949,    .29621,
     +     .18335,    .41736,    .50153,
     +     .19766,    .11559,   8.80067,    .50713,    .31542,
     +     .20430,    .43564,    .51946,
     +     .20080,    .11729,   9.02225,    .52347,    .33329,
     +     .22385,    .45260,    .53609,
     +     .20370,    .11884,   9.21264,    .53846,    .34965,
     +     .24170,    .46815,    .55133 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20657,    .12037,   9.38463,    .55303,    .36554,
     +     .25896,    .48328,    .56616,
     +     .20936,    .12184,   9.54378,    .56716,    .38102,
     +     .27591,    .49795,    .58054,
     +     .21197,    .12319,   9.67665,    .58005,    .39508,
     +     .29120,    .51135,    .59365,
     +     .21441,    .12446,   9.79427,    .59203,    .40822,
     +     .30556,    .52381,    .60585,
     +     .21682,    .12571,   9.90072,    .60374,    .42105,
     +     .31954,    .53600,    .61777,
     +     .21917,    .12692,   9.99645,    .61499,    .43342,
     +     .33305,    .54772,    .62922,
     +     .22139,    .12805,  10.07881,    .62542,    .44490,
     +     .34560,    .55859,    .63985,
     +     .22347,    .12910,  10.14993,    .63509,    .45557,
     +     .35727,    .56868,    .64970 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22553,    .13015,  10.21266,    .64453,    .46597,
     +     .36864,    .57853,    .65932,
     +     .22757,    .13118,  10.27143,    .65377,    .47621,
     +     .37987,    .58818,    .66873,
     +     .22947,    .13212,  10.31667,    .66215,    .48548,
     +     .39001,    .59695,    .67727,
     +     .23128,    .13303,  10.35946,    .67013,    .49435,
     +     .39976,    .60529,    .68540,
     +     .23307,    .13391,  10.39320,    .67781,    .50288,
     +     .40911,    .61332,    .69321 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .15067,    .08899,    .95092,    .19485,    .00000,
     +     .00000,    .11428,    .20253,
     +     .15330,    .09069,   1.36681,    .20275,    .00000,
     +     .00000,    .12276,    .21069,
     +     .15736,    .09326,   1.96857,    .21555,    .00859,
     +     .00000,    .13640,    .22390,
     +     .16041,    .09514,   2.41071,    .22573,    .01111,
     +     .00000,    .14720,    .23440,
     +     .16359,    .09708,   2.83857,    .23707,    .02571,
     +     .00000,    .15918,    .24605,
     +     .16637,    .09877,   3.20260,    .24729,    .03858,
     +     .00000,    .16995,    .25654,
     +     .16906,    .10039,   3.55006,    .25742,    .05064,
     +     .00000,    .18060,    .26695,
     +     .17196,    .10211,   3.91302,    .26849,    .06390,
     +     .00000,    .19222,    .27830 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17444,    .10357,   4.20987,    .27827,    .07470,
     +     .00000,    .20248,    .28834,
     +     .17686,    .10499,   4.49504,    .28794,    .08582,
     +     .00000,    .21259,    .29822,
     +     .17879,    .10610,   4.71453,    .29569,    .09459,
     +     .00000,    .22071,    .30617,
     +     .18286,    .10845,   5.15806,    .31251,    .11358,
     +     .00000,    .23830,    .32340,
     +     .18637,    .11044,   5.50436,    .32713,    .12997,
     +     .01027,    .25357,    .33836,
     +     .19027,    .11264,   5.85238,    .34357,    .14837,
     +     .03441,    .27073,    .35517,
     +     .19430,    .11488,   6.19275,    .36063,    .16742,
     +     .05577,    .28853,    .37262,
     +     .19793,    .11688,   6.48074,    .37599,    .18459,
     +     .07515,    .30457,    .38832 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20156,    .11887,   6.75221,    .39139,    .20177,
     +     .09440,    .32064,    .40406,
     +     .20453,    .12047,   6.95576,    .40385,    .21549,
     +     .10928,    .33365,    .41680,
     +     .20811,    .12240,   7.18844,    .41884,    .23213,
     +     .12768,    .34930,    .43212,
     +     .21126,    .12406,   7.38083,    .43194,    .24672,
     +     .14393,    .36300,    .44552,
     +     .21409,    .12556,   7.54046,    .44364,    .25967,
     +     .15814,    .37522,    .45748,
     +     .21764,    .12743,   7.72641,    .45819,    .27582,
     +     .17593,    .39043,    .47235,
     +     .22095,    .12914,   7.88642,    .47159,    .29074,
     +     .19245,    .40447,    .48605,
     +     .22401,    .13072,   8.02094,    .48380,    .30434,
     +     .20745,    .41726,    .49853 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22701,    .13225,   8.13963,    .49559,    .31747,
     +     .22189,    .42961,    .51059,
     +     .22992,    .13373,   8.24771,    .50695,    .33021,
     +     .23601,    .44154,    .52221,
     +     .23263,    .13509,   8.33479,    .51724,    .34170,
     +     .24866,    .45235,    .53274,
     +     .23516,    .13635,   8.41027,    .52677,    .35240,
     +     .26052,    .46237,    .54248,
     +     .23765,    .13758,   8.47617,    .53603,    .36280,
     +     .27201,    .47211,    .55195,
     +     .24009,    .13879,   8.53344,    .54486,    .37279,
     +     .28307,    .48143,    .56100,
     +     .24236,    .13989,   8.58065,    .55301,    .38200,
     +     .29329,    .49003,    .56934,
     +     .24449,    .14093,   8.61977,    .56052,    .39053,
     +     .30276,    .49796,    .57702 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24661,    .14196,   8.65190,    .56780,    .39880,
     +     .31194,    .50567,    .58449,
     +     .24868,    .14295,   8.68104,    .57489,    .40691,
     +     .32100,    .51318,    .59175,
     +     .25062,    .14387,   8.69999,    .58127,    .41421,
     +     .32911,    .51996,    .59829,
     +     .25247,    .14474,   8.71788,    .58734,    .42119,
     +     .33692,    .52639,    .60450,
     +     .25428,    .14560,   8.72821,    .59312,    .42785,
     +     .34436,    .53255,    .61043 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17617,    .10544,   1.10529,    .18185,    .00000,
     +     .00000,    .10654,    .19172,
     +     .17930,    .10742,   1.48098,    .18848,    .00000,
     +     .00000,    .11375,    .19870,
     +     .18408,    .11036,   2.01398,    .19927,    .00567,
     +     .00000,    .12540,    .21002,
     +     .18765,    .11250,   2.39429,    .20785,    .00761,
     +     .00000,    .13461,    .21898,
     +     .19135,    .11471,   2.75432,    .21738,    .02023,
     +     .00000,    .14479,    .22891,
     +     .19456,    .11659,   3.05505,    .22592,    .03129,
     +     .00000,    .15389,    .23780,
     +     .19767,    .11838,   3.33745,    .23435,    .04159,
     +     .00000,    .16286,    .24654,
     +     .20098,    .12028,   3.62781,    .24350,    .05283,
     +     .00000,    .17259,    .25603 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20382,    .12189,   3.86137,    .25153,    .06192,
     +     .00000,    .18111,    .26436,
     +     .20658,    .12344,   4.08283,    .25942,    .07123,
     +     .00000,    .18947,    .27253,
     +     .20876,    .12466,   4.25121,    .26571,    .07854,
     +     .00000,    .19613,    .27905,
     +     .21335,    .12720,   4.58541,    .27927,    .09424,
     +     .00000,    .21050,    .29307,
     +     .21728,    .12931,   4.84396,    .29091,    .10766,
     +     .00591,    .22282,    .30510,
     +     .22161,    .13163,   5.09124,    .30388,    .12261,
     +     .02581,    .23656,    .31851,
     +     .22608,    .13399,   5.32716,    .31719,    .13792,
     +     .04324,    .25065,    .33224,
     +     .23007,    .13607,   5.52163,    .32904,    .15156,
     +     .05889,    .26321,    .34446 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23405,    .13812,   5.70006,    .34077,    .16512,
     +     .07433,    .27565,    .35658,
     +     .23728,    .13977,   5.82969,    .35017,    .17583,
     +     .08614,    .28562,    .36628,
     +     .24114,    .14172,   5.97405,    .36135,    .18869,
     +     .10063,    .29751,    .37782,
     +     .24452,    .14340,   6.08992,    .37104,    .19990,
     +     .11334,    .30782,    .38782,
     +     .24755,    .14491,   6.18256,    .37959,    .20976,
     +     .12436,    .31692,    .39664,
     +     .25134,    .14675,   6.28640,    .39010,    .22193,
     +     .13805,    .32814,    .40750,
     +     .25484,    .14845,   6.37192,    .39967,    .23308,
     +     .15066,    .33837,    .41738,
     +     .25804,    .14998,   6.43976,    .40829,    .24315,
     +     .16201,    .34759,    .42627 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26118,    .15147,   6.49534,    .41651,    .25277,
     +     .17284,    .35641,    .43476,
     +     .26422,    .15289,   6.54344,    .42434,    .26203,
     +     .18336,    .36484,    .44286,
     +     .26701,    .15418,   6.57743,    .43136,    .27030,
     +     .19270,    .37239,    .45010,
     +     .26961,    .15537,   6.60462,    .43777,    .27795,
     +     .20140,    .37933,    .45674,
     +     .27217,    .15654,   6.62470,    .44392,    .28531,
     +     .20976,    .38600,    .46310,
     +     .27464,    .15765,   6.63890,    .44973,    .29232,
     +     .21775,    .39231,    .46911,
     +     .27695,    .15868,   6.64715,    .45503,    .29875,
     +     .22508,    .39809,    .47459,
     +     .27910,    .15963,   6.65110,    .45987,    .30464,
     +     .23184,    .40336,    .47959 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28122,    .16055,   6.65001,    .46449,    .31032,
     +     .23835,    .40843,    .48439,
     +     .28330,    .16145,   6.64720,    .46895,    .31584,
     +     .24472,    .41334,    .48902,
     +     .28521,    .16228,   6.63820,    .47291,    .32076,
     +     .25038,    .41770,    .49310,
     +     .28703,    .16306,   6.62978,    .47664,    .32544,
     +     .25581,    .42182,    .49698,
     +     .28881,    .16381,   6.61607,    .48012,    .32986,
     +     .26094,    .42569,    .50059 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20818,    .12583,   1.30316,    .16694,    .00000,
     +     .00000,    .09715,    .17978,
     +     .21198,    .12813,   1.62717,    .17240,    .00000,
     +     .00000,    .10325,    .18572,
     +     .21769,    .13150,   2.07941,    .18133,    .00170,
     +     .00000,    .11307,    .19533,
     +     .22188,    .13391,   2.38922,    .18838,    .00326,
     +     .00000,    .12082,    .20286,
     +     .22622,    .13636,   2.67450,    .19620,    .01401,
     +     .00000,    .12932,    .21115,
     +     .22995,    .13843,   2.90745,    .20313,    .02338,
     +     .00000,    .13686,    .21850,
     +     .23354,    .14039,   3.12196,    .20991,    .03201,
     +     .00000,    .14423,    .22569,
     +     .23736,    .14244,   3.33834,    .21721,    .04137,
     +     .00000,    .15216,    .23341 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24060,    .14416,   3.50859,    .22356,    .04885,
     +     .00000,    .15904,    .24010,
     +     .24373,    .14580,   3.66736,    .22974,    .05647,
     +     .00000,    .16574,    .24661,
     +     .24619,    .14709,   3.78608,    .23463,    .06241,
     +     .00000,    .17105,    .25176,
     +     .25134,    .14974,   4.01597,    .24509,    .07507,
     +     .00000,    .18236,    .26274,
     +     .25568,    .15192,   4.19258,    .25392,    .08575,
     +     .00184,    .19195,    .27200,
     +     .26045,    .15426,   4.34760,    .26364,    .09750,
     +     .01779,    .20248,    .28218,
     +     .26530,    .15662,   4.48978,    .27344,    .10939,
     +     .03161,    .21314,    .29245,
     +     .26960,    .15868,   4.60193,    .28204,    .11988,
     +     .04388,    .22251,    .30145 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27386,    .16069,   4.70020,    .29045,    .13015,
     +     .05584,    .23167,    .31024,
     +     .27728,    .16227,   4.76695,    .29706,    .13818,
     +     .06490,    .23891,    .31717,
     +     .28136,    .16413,   4.83771,    .30482,    .14774,
     +     .07593,    .24743,    .32529,
     +     .28488,    .16573,   4.89105,    .31144,    .15597,
     +     .08550,    .25472,    .33222,
     +     .28803,    .16712,   4.92949,    .31720,    .16312,
     +     .09372,    .26107,    .33825,
     +     .29192,    .16882,   4.96799,    .32417,    .17185,
     +     .10382,    .26879,    .34555,
     +     .29549,    .17036,   4.99531,    .33043,    .17977,
     +     .11304,    .27575,    .35209,
     +     .29873,    .17173,   5.01218,    .33594,    .18683,
     +     .12126,    .28191,    .35786 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30187,    .17304,   5.02037,    .34110,    .19348,
     +     .12901,    .28771,    .36327,
     +     .30489,    .17429,   5.02412,    .34595,    .19984,
     +     .13648,    .29319,    .36836,
     +     .30763,    .17540,   5.01982,    .35019,    .20544,
     +     .14304,    .29800,    .37279,
     +     .31018,    .17641,   5.01263,    .35401,    .21056,
     +     .14910,    .30236,    .37679,
     +     .31266,    .17739,   5.00069,    .35760,    .21544,
     +     .15488,    .30649,    .38056,
     +     .31503,    .17830,   4.98539,    .36092,    .22004,
     +     .16035,    .31034,    .38406,
     +     .31723,    .17913,   4.96754,    .36391,    .22420,
     +     .16532,    .31381,    .38717,
     +     .31926,    .17990,   4.94826,    .36656,    .22798,
     +     .16987,    .31693,    .38997 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32126,    .18062,   4.92560,    .36903,    .23158,
     +     .17421,    .31987,    .39257,
     +     .32320,    .18134,   4.90243,    .37140,    .23505,
     +     .17843,    .32268,    .39506,
     +     .32497,    .18196,   4.87646,    .37340,    .23809,
     +     .18214,    .32511,    .39717,
     +     .32665,    .18255,   4.85218,    .37527,    .24097,
     +     .18568,    .32741,    .39916,
     +     .32827,    .18310,   4.82436,    .37695,    .24365,
     +     .18898,    .32949,    .40093 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25259,    .15309,   1.54455,    .14818,    .00000,
     +     .00000,    .08502,    .16592,
     +     .25729,    .15575,   1.79714,    .15258,    .00000,
     +     .00000,    .09012,    .17093,
     +     .26425,    .15954,   2.14639,    .15963,   -.00359,
     +     .00000,    .09827,    .17883,
     +     .26925,    .16215,   2.37010,    .16514,   -.00217,
     +     .00000,    .10456,    .18492,
     +     .27438,    .16477,   2.56740,    .17115,    .00673,
     +     .00000,    .11138,    .19152,
     +     .27871,    .16696,   2.72346,    .17641,    .01441,
     +     .00000,    .11735,    .19728,
     +     .28284,    .16900,   2.86309,    .18151,    .02139,
     +     .00000,    .12311,    .20280,
     +     .28718,    .17109,   2.99980,    .18690,    .02887,
     +     .00000,    .12922,    .20865 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29084,    .17282,   3.10352,    .19151,    .03478,
     +     .00000,    .13444,    .21364,
     +     .29433,    .17446,   3.19778,    .19594,    .04073,
     +     .00000,    .13946,    .21843,
     +     .29705,    .17572,   3.26633,    .19942,    .04532,
     +     .00000,    .14339,    .22216,
     +     .30272,    .17829,   3.39305,    .20670,    .05498,
     +     .00000,    .15165,    .22999,
     +     .30738,    .18033,   3.49037,    .21274,    .06299,
     +    -.00194,    .15851,    .23645,
     +     .31242,    .18251,   3.55898,    .21922,    .07168,
     +     .01013,    .16591,    .24337,
     +     .31749,    .18462,   3.61569,    .22561,    .08031,
     +     .02044,    .17324,    .25018,
     +     .32193,    .18642,   3.65469,    .23107,    .08779,
     +     .02946,    .17954,    .25600 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .32625,    .18814,   3.68348,    .23629,    .09502,
     +     .03814,    .18558,    .26156,
     +     .32967,    .18947,   3.69716,    .24026,    .10057,
     +     .04463,    .19024,    .26579,
     +     .33370,    .19099,   3.70698,    .24484,    .10709,
     +     .05243,    .19563,    .27066,
     +     .33715,    .19226,   3.70966,    .24865,    .11261,
     +     .05911,    .20016,    .27471,
     +     .34018,    .19335,   3.70531,    .25186,    .11734,
     +     .06477,    .20401,    .27812,
     +     .34386,    .19464,   3.69358,    .25564,    .12303,
     +     .07165,    .20859,    .28213,
     +     .34718,    .19577,   3.67736,    .25892,    .12811,
     +     .07784,    .21261,    .28560,
     +     .35017,    .19675,   3.65705,    .26172,    .13255,
     +     .08328,    .21609,    .28857 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .35301,    .19764,   3.63186,    .26422,    .13667,
     +     .08834,    .21925,    .29122,
     +     .35570,    .19846,   3.60513,    .26650,    .14054,
     +     .09317,    .22218,    .29363,
     +     .35809,    .19916,   3.57543,    .26837,    .14389,
     +     .09735,    .22467,    .29562,
     +     .36028,    .19978,   3.54606,    .27002,    .14692,
     +     .10116,    .22687,    .29735,
     +     .36239,    .20035,   3.51413,    .27146,    .14975,
     +     .10476,    .22888,    .29890,
     +     .36438,    .20086,   3.48108,    .27275,    .15236,
     +     .10812,    .23069,    .30025,
     +     .36618,    .20130,   3.44817,    .27381,    .15469,
     +     .11114,    .23228,    .30138,
     +     .36783,    .20169,   3.41607,    .27471,    .15678,
     +     .11387,    .23364,    .30233 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .36940,    .20204,   3.38226,    .27547,    .15871,
     +     .11643,    .23488,    .30312,
     +     .37092,    .20236,   3.34885,    .27616,    .16057,
     +     .11891,    .23602,    .30385,
     +     .37227,    .20262,   3.31509,    .27664,    .16214,
     +     .12105,    .23694,    .30436,
     +     .37355,    .20286,   3.28365,    .27709,    .16362,
     +     .12307,    .23779,    .30481,
     +     .37474,    .20306,   3.25031,    .27738,    .16495,
     +     .12493,    .23849,    .30513 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28965,    .17491,   1.69940,    .13320,    .00000,
     +     .00000,    .07541,    .15514,
     +     .29517,    .17775,   1.89371,    .13693,    .00000,
     +     .00000,    .07998,    .15960,
     +     .30316,    .18170,   2.16319,    .14284,   -.00731,
     +     .00000,    .08710,    .16649,
     +     .30881,    .18438,   2.32356,    .14735,   -.00583,
     +     .00000,    .09250,    .17164,
     +     .31445,    .18700,   2.45833,    .15222,    .00188,
     +     .00000,    .09828,    .17712,
     +     .31922,    .18915,   2.56147,    .15641,    .00848,
     +     .00000,    .10323,    .18179,
     +     .32370,    .19112,   2.65111,    .16037,    .01442,
     +     .00000,    .10795,    .18622,
     +     .32836,    .19312,   2.73609,    .16454,    .02070,
     +     .00000,    .11289,    .19084 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33224,    .19474,   2.79749,    .16803,    .02561,
     +     .00000,    .11704,    .19468,
     +     .33591,    .19625,   2.85153,    .17134,    .03051,
     +     .00000,    .12101,    .19834,
     +     .33876,    .19741,   2.88926,    .17391,    .03426,
     +     .00000,    .12408,    .20115,
     +     .34458,    .19968,   2.95423,    .17922,    .04208,
     +     .00000,    .13044,    .20695,
     +     .34930,    .20144,   3.00508,    .18350,    .04846,
     +    -.00387,    .13561,    .21159,
     +     .35431,    .20325,   3.02505,    .18801,    .05528,
     +     .00579,    .14109,    .21647,
     +     .35925,    .20497,   3.03523,    .19234,    .06198,
     +     .01397,    .14640,    .22112,
     +     .36353,    .20640,   3.03576,    .19594,    .06769,
     +     .02102,    .15087,    .22499 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .36763,    .20771,   3.02891,    .19928,    .07314,
     +     .02775,    .15510,    .22856,
     +     .37081,    .20868,   3.01624,    .20176,    .07727,
     +     .03272,    .15827,    .23119,
     +     .37450,    .20975,   2.99658,    .20452,    .08206,
     +     .03864,    .16186,    .23413,
     +     .37763,    .21060,   2.97547,    .20674,    .08607,
     +     .04365,    .16481,    .23649,
     +     .38032,    .21129,   2.95180,    .20854,    .08946,
     +     .04786,    .16726,    .23840,
     +     .38353,    .21208,   2.91813,    .21056,    .09348,
     +     .05293,    .17010,    .24054,
     +     .38638,    .21273,   2.88361,    .21225,    .09701,
     +     .05743,    .17253,    .24229,
     +     .38888,    .21324,   2.84838,    .21360,    .10007,
     +     .06135,    .17456,    .24368 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39119,    .21367,   2.81047,    .21470,    .10286,
     +     .06496,    .17635,    .24482,
     +     .39335,    .21402,   2.77265,    .21565,    .10544,
     +     .06836,    .17794,    .24579,
     +     .39523,    .21427,   2.73448,    .21633,    .10762,
     +     .07126,    .17923,    .24647,
     +     .39692,    .21447,   2.69811,    .21686,    .10957,
     +     .07390,    .18032,    .24700,
     +     .39849,    .21460,   2.66044,    .21726,    .11137,
     +     .07635,    .18126,    .24736,
     +     .39992,    .21470,   2.62286,    .21753,    .11300,
     +     .07862,    .18206,    .24759,
     +     .40120,    .21473,   2.58661,    .21769,    .11443,
     +     .08064,    .18271,    .24771,
     +     .40232,    .21474,   2.55205,    .21775,    .11567,
     +     .08244,    .18322,    .24772 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .40337,    .21470,   2.51656,    .21769,    .11681,
     +     .08412,    .18363,    .24761,
     +     .40437,    .21463,   2.48192,    .21760,    .11789,
     +     .08572,    .18399,    .24746,
     +     .40520,    .21451,   2.44805,    .21738,    .11877,
     +     .08709,    .18419,    .24718,
     +     .40598,    .21440,   2.41660,    .21716,    .11960,
     +     .08838,    .18436,    .24691,
     +     .40665,    .21423,   2.38407,    .21684,    .12030,
     +     .08954,    .18443,    .24651 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .35297,    .20884,   1.81948,    .11024,    .00000,
     +     .00000,    .06174,    .14054,
     +     .35957,    .21168,   1.92747,    .11311,    .00000,
     +     .00000,    .06562,    .14412,
     +     .36881,    .21542,   2.08279,    .11742,   -.01147,
     +     .00000,    .07137,    .14931,
     +     .37504,    .21781,   2.15799,    .12058,   -.00982,
     +     .00000,    .07552,    .15296,
     +     .38114,    .22006,   2.21166,    .12388,   -.00366,
     +     .00000,    .07985,    .15672,
     +     .38617,    .22181,   2.24849,    .12660,    .00149,
     +     .00000,    .08344,    .15981,
     +     .39080,    .22335,   2.27714,    .12913,    .00608,
     +     .00000,    .08677,    .16264,
     +     .39548,    .22486,   2.30061,    .13169,    .01082,
     +     .00000,    .09019,    .16546 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .39929,    .22602,   2.31299,    .13376,    .01448,
     +     .00000,    .09297,    .16773,
     +     .40285,    .22705,   2.32154,    .13568,    .01807,
     +     .00000,    .09557,    .16981,
     +     .40554,    .22779,   2.32523,    .13713,    .02077,
     +     .00000,    .09753,    .17136,
     +     .41091,    .22920,   2.32363,    .14002,    .02632,
     +     .00000,    .10150,    .17441,
     +     .41503,    .23014,   2.32507,    .14222,    .03075,
     +    -.00536,    .10462,    .17671,
     +     .41927,    .23099,   2.29708,    .14442,    .03537,
     +     .00134,    .10780,    .17896,
     +     .42329,    .23168,   2.26309,    .14638,    .03980,
     +     .00694,    .11075,    .18092,
     +     .42662,    .23214,   2.22844,    .14790,    .04351,
     +     .01169,    .11312,    .18238 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .42969,    .23246,   2.19056,    .14917,    .04695,
     +     .01613,    .11525,    .18358,
     +     .43193,    .23259,   2.15607,    .15001,    .04952,
     +     .01937,    .11676,    .18433,
     +     .43444,    .23262,   2.11310,    .15084,    .05243,
     +     .02316,    .11840,    .18503,
     +     .43644,    .23256,   2.07413,    .15143,    .05481,
     +     .02633,    .11967,    .18546,
     +     .43804,    .23242,   2.03695,    .15178,    .05677,
     +     .02893,    .12064,    .18567,
     +     .43984,    .23211,   1.98911,    .15206,    .05907,
     +     .03203,    .12168,    .18573,
     +     .44131,    .23174,   1.94388,    .15216,    .06102,
     +     .03472,    .12247,    .18561,
     +     .44248,    .23130,   1.90105,    .15210,    .06266,
     +     .03703,    .12305,    .18532 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .44344,    .23076,   1.85782,    .15189,    .06411,
     +     .03911,    .12346,    .18489,
     +     .44424,    .23018,   1.81614,    .15161,    .06543,
     +     .04105,    .12376,    .18437,
     +     .44479,    .22954,   1.77635,    .15120,    .06650,
     +     .04267,    .12389,    .18373,
     +     .44522,    .22891,   1.73941,    .15076,    .06743,
     +     .04412,    .12394,    .18305,
     +     .44549,    .22822,   1.70242,    .15023,    .06825,
     +     .04544,    .12390,    .18228,
     +     .44566,    .22749,   1.66646,    .14964,    .06898,
     +     .04663,    .12379,    .18144,
     +     .44571,    .22677,   1.63263,    .14902,    .06959,
     +     .04769,    .12360,    .18059,
     +     .44568,    .22604,   1.60104,    .14839,    .07010,
     +     .04861,    .12337,    .17972 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .44553,    .22527,   1.56940,    .14768,    .07052,
     +     .04944,    .12307,    .17878,
     +     .44534,    .22451,   1.53886,    .14697,    .07092,
     +     .05023,    .12275,    .17784,
     +     .44502,    .22372,   1.50974,    .14623,    .07121,
     +     .05088,    .12237,    .17685,
     +     .44472,    .22298,   1.48285,    .14553,    .07147,
     +     .05149,    .12200,    .17592,
     +     .44430,    .22219,   1.45568,    .14476,    .07166,
     +     .05201,    .12155,    .17492 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .40619,    .23396,   1.79088,    .09274,    .00000,
     +     .00000,    .05245,    .12991,
     +     .41330,    .23641,   1.84202,    .09498,    .00000,
     +     .00000,    .05573,    .13258,
     +     .42287,    .23947,   1.92313,    .09818,   -.01288,
     +     .00000,    .06039,    .13621,
     +     .42911,    .24122,   1.94726,    .10036,   -.01116,
     +     .00000,    .06364,    .13866,
     +     .43505,    .24277,   1.95449,    .10261,   -.00611,
     +     .00000,    .06692,    .14104,
     +     .43976,    .24390,   1.95457,    .10442,   -.00193,
     +     .00000,    .06957,    .14290,
     +     .44399,    .24481,   1.95050,    .10603,    .00173,
     +     .00000,    .07196,    .14450,
     +     .44818,    .24561,   1.94199,    .10759,    .00546,
     +     .00000,    .07437,    .14605 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .45146,    .24613,   1.92974,    .10881,    .00832,
     +     .00000,    .07626,    .14722,
     +     .45445,    .24654,   1.91610,    .10990,    .01108,
     +     .00000,    .07798,    .14822,
     +     .45665,    .24678,   1.90359,    .11068,    .01313,
     +     .00000,    .07928,    .14892,
     +     .46086,    .24707,   1.87167,    .11220,    .01730,
     +     .00000,    .08180,    .15020,
     +     .46389,    .24704,   1.85061,    .11324,    .02056,
     +    -.00552,    .08371,    .15098,
     +     .46679,    .24681,   1.80384,    .11420,    .02391,
     +    -.00059,    .08556,    .15160,
     +     .46932,    .24635,   1.75388,    .11493,    .02706,
     +     .00350,    .08718,    .15194,
     +     .47123,    .24576,   1.70761,    .11539,    .02964,
     +     .00690,    .08842,    .15201 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .47280,    .24506,   1.66040,    .11564,    .03200,
     +     .01004,    .08945,    .15188,
     +     .47376,    .24432,   1.62035,    .11570,    .03372,
     +     .01231,    .09010,    .15156,
     +     .47469,    .24331,   1.57231,    .11563,    .03565,
     +     .01494,    .09074,    .15104,
     +     .47527,    .24234,   1.53031,    .11545,    .03720,
     +     .01709,    .09117,    .15046,
     +     .47555,    .24135,   1.49175,    .11518,    .03845,
     +     .01885,    .09143,    .14978,
     +     .47562,    .24001,   1.44352,    .11470,    .03988,
     +     .02091,    .09161,    .14880,
     +     .47548,    .23866,   1.39914,    .11414,    .04108,
     +     .02269,    .09165,    .14776,
     +     .47510,    .23733,   1.35822,    .11354,    .04205,
     +     .02417,    .09158,    .14669 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .47451,    .23592,   1.31790,    .11283,    .04289,
     +     .02549,    .09139,    .14551,
     +     .47379,    .23450,   1.27963,    .11208,    .04363,
     +     .02672,    .09114,    .14430,
     +     .47291,    .23307,   1.24387,    .11128,    .04421,
     +     .02772,    .09080,    .14309,
     +     .47198,    .23171,   1.21111,    .11050,    .04469,
     +     .02859,    .09044,    .14190,
     +     .47090,    .23028,   1.17883,    .10967,    .04510,
     +     .02939,    .09001,    .14065,
     +     .46973,    .22886,   1.14783,    .10882,    .04544,
     +     .03009,    .08955,    .13938,
     +     .46850,    .22748,   1.11903,    .10798,    .04571,
     +     .03069,    .08907,    .13814,
     +     .46726,    .22615,   1.09241,    .10715,    .04592,
     +     .03122,    .08858,    .13694 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .46593,    .22478,   1.06606,    .10629,    .04608,
     +     .03169,    .08804,    .13571,
     +     .46457,    .22341,   1.04081,    .10543,    .04621,
     +     .03212,    .08749,    .13448,
     +     .46314,    .22207,   1.01703,    .10456,    .04629,
     +     .03246,    .08693,    .13328,
     +     .46178,    .22081,    .99516,    .10374,    .04634,
     +     .03278,    .08640,    .13215,
     +     .46030,    .21949,    .97334,    .10289,    .04636,
     +     .03305,    .08582,    .13096 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .45233,    .25309,   1.68661,    .07887,    .00000,
     +     .00000,    .04564,    .12099,
     +     .45947,    .25494,   1.70096,    .08053,    .00000,
     +     .00000,    .04834,    .12271,
     +     .46873,    .25694,   1.73410,    .08282,   -.01288,
     +     .00000,    .05205,    .12491,
     +     .47445,    .25789,   1.72762,    .08435,   -.01121,
     +     .00000,    .05456,    .12625,
     +     .47967,    .25858,   1.70825,    .08586,   -.00702,
     +     .00000,    .05700,    .12747,
     +     .48369,    .25892,   1.68797,    .08699,   -.00358,
     +     .00000,    .05894,    .12833,
     +     .48717,    .25906,   1.66634,    .08797,   -.00061,
     +     .00000,    .06064,    .12901,
     +     .49043,    .25904,   1.64126,    .08891,    .00239,
     +     .00000,    .06230,    .12955 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .49286,    .25884,   1.61671,    .08957,    .00467,
     +     .00000,    .06357,    .12985,
     +     .49495,    .25855,   1.59229,    .09013,    .00684,
     +     .00000,    .06471,    .13005,
     +     .49643,    .25824,   1.57215,    .09052,    .00846,
     +     .00000,    .06553,    .13015,
     +     .49903,    .25737,   1.52678,    .09118,    .01168,
     +     .00000,    .06710,    .13014,
     +     .50056,    .25634,   1.49582,    .09156,    .01417,
     +    -.00521,    .06820,    .12991,
     +     .50176,    .25497,   1.44295,    .09180,    .01668,
     +    -.00147,    .06921,    .12945,
     +     .50248,    .25337,   1.38868,    .09183,    .01900,
     +     .00161,    .07002,    .12877,
     +     .50267,    .25178,   1.34015,    .09172,    .02089,
     +     .00415,    .07056,    .12795 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .50252,    .25004,   1.29209,    .09146,    .02259,
     +     .00647,    .07094,    .12696,
     +     .50203,    .24846,   1.25245,    .09111,    .02381,
     +     .00813,    .07111,    .12604,
     +     .50118,    .24648,   1.20580,    .09060,    .02515,
     +     .01002,    .07119,    .12482,
     +     .50017,    .24467,   1.16576,    .09007,    .02621,
     +     .01156,    .07118,    .12365,
     +     .49901,    .24292,   1.12966,    .08950,    .02706,
     +     .01281,    .07106,    .12250,
     +     .49727,    .24063,   1.08527,    .08870,    .02800,
     +     .01425,    .07080,    .12097,
     +     .49541,    .23842,   1.04501,    .08789,    .02877,
     +     .01548,    .07047,    .11946,
     +     .49346,    .23629,   1.00845,    .08705,    .02939,
     +     .01649,    .07008,    .11801 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49129,    .23410,    .97295,    .08614,    .02989,
     +     .01739,    .06962,    .11648,
     +     .48907,    .23195,    .93958,    .08525,    .03033,
     +     .01820,    .06912,    .11498,
     +     .48673,    .22986,    .90881,    .08435,    .03066,
     +     .01885,    .06858,    .11350,
     +     .48446,    .22788,    .88083,    .08348,    .03092,
     +     .01943,    .06806,    .11209,
     +     .48208,    .22585,    .85355,    .08257,    .03113,
     +     .01993,    .06750,    .11067,
     +     .47961,    .22384,    .82756,    .08167,    .03129,
     +     .02038,    .06691,    .10925,
     +     .47718,    .22193,    .80360,    .08079,    .03140,
     +     .02075,    .06631,    .10789,
     +     .47481,    .22010,    .78161,    .07996,    .03148,
     +     .02107,    .06574,    .10660 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47235,    .21824,    .76003,    .07909,    .03152,
     +     .02134,    .06514,    .10530,
     +     .46991,    .21639,    .73943,    .07823,    .03155,
     +     .02160,    .06455,    .10400,
     +     .46742,    .21462,    .72023,    .07740,    .03153,
     +     .02179,    .06395,    .10276,
     +     .46511,    .21295,    .70262,    .07662,    .03150,
     +     .02196,    .06340,    .10158,
     +     .46266,    .21124,    .68515,    .07581,    .03145,
     +     .02210,    .06281,    .10038 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50153,    .26972,   1.51566,    .06475,    .00000,
     +     .00000,    .03889,    .11004,
     +     .50793,    .27051,   1.50233,    .06596,    .00000,
     +     .00000,    .04096,    .11067,
     +     .51567,    .27095,   1.49877,    .06747,   -.01202,
     +     .00000,    .04369,    .11130,
     +     .52007,    .27074,   1.47115,    .06843,   -.01046,
     +     .00000,    .04542,    .11149,
     +     .52378,    .27020,   1.43433,    .06933,   -.00710,
     +     .00000,    .04710,    .11159,
     +     .52638,    .26947,   1.40125,    .06997,   -.00438,
     +     .00000,    .04839,    .11149,
     +     .52842,    .26860,   1.36901,    .07047,   -.00203,
     +     .00000,    .04947,    .11127,
     +     .53010,    .26752,   1.33437,    .07088,    .00029,
     +     .00000,    .05048,    .11093 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53110,    .26640,   1.30312,    .07115,    .00206,
     +     .00000,    .05124,    .11051,
     +     .53182,    .26523,   1.27319,    .07134,    .00371,
     +     .00000,    .05188,    .11002,
     +     .53217,    .26422,   1.24941,    .07141,    .00494,
     +     .00000,    .05232,    .10960,
     +     .53235,    .26190,   1.19841,    .07147,    .00733,
     +     .00000,    .05310,    .10857,
     +     .53172,    .25967,   1.16317,    .07139,    .00916,
     +    -.00456,    .05359,    .10754,
     +     .53050,    .25702,   1.11025,    .07115,    .01098,
     +    -.00183,    .05397,    .10627,
     +     .52868,    .25411,   1.05732,    .07076,    .01264,
     +     .00041,    .05420,    .10479,
     +     .52662,    .25135,   1.01113,    .07030,    .01396,
     +     .00223,    .05425,    .10335 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .52417,    .24849,    .96630,    .06973,    .01512,
     +     .00386,    .05418,    .10182,
     +     .52181,    .24600,    .93014,    .06914,    .01595,
     +     .00503,    .05400,    .10049,
     +     .51871,    .24297,    .88817,    .06839,    .01685,
     +     .00634,    .05372,    .09883,
     +     .51574,    .24026,    .85264,    .06769,    .01755,
     +     .00740,    .05341,    .09732,
     +     .51280,    .23770,    .82112,    .06699,    .01808,
     +     .00824,    .05305,    .09588,
     +     .50883,    .23444,    .78286,    .06606,    .01867,
     +     .00921,    .05252,    .09406,
     +     .50492,    .23136,    .74862,    .06515,    .01913,
     +     .01001,    .05199,    .09233,
     +     .50111,    .22840,    .71791,    .06423,    .01950,
     +     .01068,    .05144,    .09070 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .49708,    .22545,    .68845,    .06330,    .01978,
     +     .01125,    .05085,    .08904,
     +     .49306,    .22259,    .66101,    .06239,    .02002,
     +     .01176,    .05025,    .08743,
     +     .48911,    .21984,    .63598,    .06149,    .02019,
     +     .01217,    .04964,    .08589,
     +     .48533,    .21725,    .61343,    .06064,    .02030,
     +     .01252,    .04905,    .08446,
     +     .48144,    .21466,    .59162,    .05978,    .02038,
     +     .01282,    .04845,    .08301,
     +     .47755,    .21210,    .57100,    .05893,    .02044,
     +     .01308,    .04784,    .08159,
     +     .47379,    .20967,    .55212,    .05810,    .02047,
     +     .01330,    .04725,    .08026,
     +     .47020,    .20739,    .53492,    .05732,    .02047,
     +     .01348,    .04669,    .07900 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .46650,    .20508,    .51815,    .05654,    .02044,
     +     .01362,    .04610,    .07774,
     +     .46284,    .20283,    .50221,    .05578,    .02041,
     +     .01376,    .04553,    .07651,
     +     .45927,    .20067,    .48749,    .05503,    .02036,
     +     .01386,    .04497,    .07534,
     +     .45592,    .19864,    .47404,    .05434,    .02030,
     +     .01394,    .04445,    .07424,
     +     .45247,    .19657,    .46079,    .05362,    .02022,
     +     .01400,    .04390,    .07313 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .54271,    .28023,   1.33600,    .05350,    .00000,
     +     .00000,    .03329,    .09879,
     +     .54764,    .27981,   1.30743,    .05433,    .00000,
     +     .00000,    .03481,    .09854,
     +     .55303,    .27843,   1.28309,    .05532,   -.01083,
     +     .00000,    .03677,    .09791,
     +     .55550,    .27698,   1.24505,    .05593,   -.00941,
     +     .00000,    .03798,    .09726,
     +     .55721,    .27514,   1.20060,    .05643,   -.00669,
     +     .00000,    .03912,    .09649,
     +     .55801,    .27329,   1.16234,    .05672,   -.00451,
     +     .00000,    .03992,    .09578,
     +     .55828,    .27138,   1.12617,    .05692,   -.00264,
     +     .00000,    .04058,    .09499,
     +     .55807,    .26925,   1.08836,    .05704,   -.00080,
     +     .00000,    .04117,    .09407 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .55742,    .26721,   1.05545,    .05704,    .00058,
     +     .00000,    .04157,    .09319,
     +     .55652,    .26519,   1.02442,    .05700,    .00187,
     +     .00000,    .04188,    .09229,
     +     .55558,    .26354,   1.00020,    .05692,    .00281,
     +     .00000,    .04210,    .09154,
     +     .55302,    .25989,    .94945,    .05666,    .00464,
     +     .00000,    .04241,    .08990,
     +     .55012,    .25656,    .91426,    .05633,    .00601,
     +    -.00389,    .04253,    .08843,
     +     .54637,    .25273,    .86487,    .05586,    .00736,
     +    -.00185,    .04253,    .08672,
     +     .54198,    .24867,    .81628,    .05524,    .00858,
     +    -.00019,    .04239,    .08487,
     +     .53760,    .24491,    .77454,    .05460,    .00953,
     +     .00114,    .04216,    .08315 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .53290,    .24109,    .73457,    .05392,    .01036,
     +     .00233,    .04187,    .08136,
     +     .52866,    .23790,    .70278,    .05328,    .01093,
     +     .00317,    .04153,    .07986,
     +     .52337,    .23398,    .66627,    .05247,    .01155,
     +     .00411,    .04107,    .07806,
     +     .51852,    .23052,    .63573,    .05172,    .01202,
     +     .00485,    .04064,    .07646,
     +     .51390,    .22733,    .60891,    .05099,    .01238,
     +     .00545,    .04019,    .07498,
     +     .50789,    .22328,    .57666,    .05005,    .01276,
     +     .00611,    .03959,    .07312,
     +     .50212,    .21950,    .54808,    .04914,    .01305,
     +     .00666,    .03898,    .07137,
     +     .49657,    .21599,    .52269,    .04829,    .01327,
     +     .00711,    .03840,    .06973 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49089,    .21245,    .49858,    .04741,    .01343,
     +     .00748,    .03778,    .06814,
     +     .48533,    .20905,    .47626,    .04655,    .01356,
     +     .00782,    .03717,    .06659,
     +     .47996,    .20580,    .45613,    .04571,    .01364,
     +     .00808,    .03657,    .06515,
     +     .47487,    .20280,    .43807,    .04495,    .01369,
     +     .00830,    .03600,    .06379,
     +     .46969,    .19982,    .42070,    .04417,    .01372,
     +     .00849,    .03544,    .06244,
     +     .46458,    .19690,    .40441,    .04342,    .01372,
     +     .00865,    .03487,    .06113,
     +     .45971,    .19413,    .38960,    .04269,    .01371,
     +     .00878,    .03432,    .05993,
     +     .45509,    .19153,    .37618,    .04200,    .01367,
     +     .00888,    .03380,    .05879 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45041,    .18893,    .36315,    .04132,    .01363,
     +     .00897,    .03328,    .05764,
     +     .44582,    .18639,    .35084,    .04065,    .01358,
     +     .00904,    .03278,    .05655,
     +     .44137,    .18397,    .33951,    .04001,    .01352,
     +     .00909,    .03228,    .05551,
     +     .43719,    .18172,    .32918,    .03942,    .01345,
     +     .00912,    .03182,    .05456,
     +     .43293,    .17944,    .31910,    .03881,    .01337,
     +     .00915,    .03134,    .05359 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .57625,    .28568,   1.16606,    .04450,    .00000,
     +     .00000,    .02832,    .08708,
     +     .57919,    .28395,   1.12937,    .04512,    .00000,
     +     .00000,    .02944,    .08615,
     +     .58144,    .28075,   1.09351,    .04580,   -.00960,
     +     .00000,    .03080,    .08458,
     +     .58164,    .27802,   1.05094,    .04609,   -.00832,
     +     .00000,    .03160,    .08342,
     +     .58093,    .27491,   1.00394,    .04637,   -.00610,
     +     .00000,    .03232,    .08216,
     +     .57962,    .27206,    .96442,    .04647,   -.00432,
     +     .00000,    .03281,    .08099,
     +     .57789,    .26921,    .92767,    .04648,   -.00282,
     +     .00000,    .03319,    .07982,
     +     .57561,    .26606,    .88996,    .04642,   -.00136,
     +     .00000,    .03348,    .07854 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .57316,    .26321,    .85772,    .04628,   -.00026,
     +     .00000,    .03365,    .07741,
     +     .57051,    .26044,    .82767,    .04611,    .00076,
     +     .00000,    .03375,    .07628,
     +     .56820,    .25822,    .80445,    .04597,    .00150,
     +     .00000,    .03379,    .07537,
     +     .56283,    .25339,    .75664,    .04556,    .00292,
     +     .00000,    .03379,    .07341,
     +     .55763,    .24911,    .72335,    .04509,    .00397,
     +    -.00328,    .03370,    .07175,
     +     .55136,    .24429,    .67874,    .04449,    .00500,
     +    -.00173,    .03349,    .06988,
     +     .54444,    .23926,    .63542,    .04380,    .00589,
     +    -.00049,    .03318,    .06790,
     +     .53791,    .23468,    .59864,    .04310,    .00660,
     +     .00051,    .03283,    .06611 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53103,    .23011,    .56384,    .04236,    .00721,
     +     .00140,    .03241,    .06432,
     +     .52512,    .22627,    .53643,    .04171,    .00762,
     +     .00202,    .03201,    .06283,
     +     .51783,    .22169,    .50523,    .04090,    .00805,
     +     .00270,    .03149,    .06105,
     +     .51131,    .21767,    .47934,    .04016,    .00838,
     +     .00324,    .03100,    .05951,
     +     .50519,    .21399,    .45686,    .03947,    .00861,
     +     .00365,    .03052,    .05810,
     +     .49737,    .20935,    .43000,    .03858,    .00887,
     +     .00412,    .02991,    .05634,
     +     .48997,    .20507,    .40640,    .03773,    .00905,
     +     .00451,    .02933,    .05473,
     +     .48292,    .20113,    .38565,    .03694,    .00919,
     +     .00482,    .02876,    .05324 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .47585,    .19722,    .36608,    .03615,    .00928,
     +     .00507,    .02818,    .05177,
     +     .46899,    .19347,    .34806,    .03538,    .00935,
     +     .00530,    .02762,    .05036,
     +     .46240,    .18994,    .33190,    .03466,    .00939,
     +     .00548,    .02708,    .04905,
     +     .45625,    .18667,    .31750,    .03397,    .00941,
     +     .00562,    .02657,    .04785,
     +     .45006,    .18340,    .30376,    .03329,    .00940,
     +     .00574,    .02605,    .04668,
     +     .44400,    .18025,    .29094,    .03261,    .00939,
     +     .00584,    .02554,    .04555,
     +     .43824,    .17728,    .27934,    .03199,    .00936,
     +     .00592,    .02508,    .04449,
     +     .43283,    .17450,    .26887,    .03140,    .00932,
     +     .00598,    .02463,    .04351 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42738,    .17173,    .25879,    .03080,    .00927,
     +     .00602,    .02417,    .04255,
     +     .42204,    .16903,    .24927,    .03023,    .00922,
     +     .00606,    .02374,    .04161,
     +     .41690,    .16650,    .24056,    .02971,    .00916,
     +     .00608,    .02331,    .04072,
     +     .41209,    .16415,    .23264,    .02922,    .00910,
     +     .00611,    .02292,    .03991,
     +     .40724,    .16176,    .22495,    .02871,    .00903,
     +     .00611,    .02254,    .03909 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .60253,    .28678,   1.01181,    .03734,    .00000,
     +     .00000,    .02385,    .07511,
     +     .60299,    .28377,    .97110,    .03778,    .00000,
     +     .00000,    .02465,    .07378,
     +     .60163,    .27875,    .92900,    .03816,   -.00845,
     +     .00000,    .02561,    .07175,
     +     .59927,    .27480,    .88508,    .03834,   -.00730,
     +     .00000,    .02614,    .07021,
     +     .59592,    .27050,    .83827,    .03839,   -.00546,
     +     .00000,    .02658,    .06868,
     +     .59243,    .26665,    .79949,    .03835,   -.00401,
     +     .00000,    .02684,    .06734,
     +     .58860,    .26289,    .76397,    .03824,   -.00279,
     +     .00000,    .02702,    .06600,
     +     .58409,    .25889,    .72787,    .03809,   -.00160,
     +     .00000,    .02714,    .06453 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .57980,    .25532,    .69739,    .03788,   -.00072,
     +     .00000,    .02718,    .06330,
     +     .57544,    .25188,    .66930,    .03762,    .00009,
     +     .00000,    .02715,    .06210,
     +     .57180,    .24913,    .64779,    .03741,    .00067,
     +     .00000,    .02709,    .06114,
     +     .56372,    .24327,    .60404,    .03687,    .00179,
     +     .00000,    .02693,    .05916,
     +     .55625,    .23822,    .57348,    .03634,    .00260,
     +    -.00274,    .02670,    .05748,
     +     .54762,    .23261,    .53393,    .03569,    .00338,
     +    -.00155,    .02639,    .05561,
     +     .53835,    .22680,    .49597,    .03497,    .00407,
     +    -.00060,    .02599,    .05368,
     +     .52973,    .22161,    .46410,    .03428,    .00460,
     +     .00016,    .02556,    .05198 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52100,    .21641,    .43419,    .03352,    .00504,
     +     .00081,    .02510,    .05032,
     +     .51352,    .21216,    .41090,    .03292,    .00533,
     +     .00127,    .02469,    .04891,
     +     .50446,    .20707,    .38459,    .03214,    .00565,
     +     .00177,    .02417,    .04726,
     +     .49645,    .20266,    .36293,    .03144,    .00588,
     +     .00217,    .02371,    .04585,
     +     .48905,    .19862,    .34425,    .03080,    .00604,
     +     .00247,    .02326,    .04459,
     +     .47964,    .19365,    .32212,    .02999,    .00622,
     +     .00281,    .02269,    .04301,
     +     .47085,    .18907,    .30284,    .02922,    .00633,
     +     .00307,    .02214,    .04158,
     +     .46266,    .18483,    .28597,    .02852,    .00641,
     +     .00329,    .02162,    .04028 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45447,    .18063,    .27017,    .02780,    .00647,
     +     .00347,    .02111,    .03903,
     +     .44657,    .17665,    .25573,    .02710,    .00651,
     +     .00363,    .02061,    .03783,
     +     .43905,    .17297,    .24290,    .02647,    .00652,
     +     .00375,    .02015,    .03669,
     +     .43207,    .16955,    .23153,    .02587,    .00651,
     +     .00384,    .01970,    .03565,
     +     .42511,    .16616,    .22070,    .02528,    .00650,
     +     .00392,    .01927,    .03465,
     +     .41830,    .16289,    .21065,    .02471,    .00647,
     +     .00398,    .01884,    .03369,
     +     .41190,    .15982,    .20163,    .02416,    .00645,
     +     .00403,    .01842,    .03283,
     +     .40588,    .15698,    .19351,    .02366,    .00641,
     +     .00407,    .01804,    .03202 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .39986,    .15414,    .18569,    .02318,    .00636,
     +     .00409,    .01767,    .03121,
     +     .39399,    .15140,    .17837,    .02270,    .00632,
     +     .00411,    .01731,    .03043,
     +     .38842,    .14881,    .17171,    .02223,    .00626,
     +     .00412,    .01695,    .02971,
     +     .38324,    .14642,    .16566,    .02180,    .00621,
     +     .00412,    .01664,    .02905,
     +     .37798,    .14400,    .15981,    .02138,    .00616,
     +     .00413,    .01631,    .02839 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .62170,    .28416,    .87345,    .03156,    .00000,
     +     .00000,    .01980,    .06346,
     +     .61940,    .27986,    .83117,    .03184,    .00000,
     +     .00000,    .02047,    .06189,
     +     .61414,    .27310,    .78606,    .03204,   -.00738,
     +     .00000,    .02111,    .05965,
     +     .60908,    .26801,    .74261,    .03203,   -.00635,
     +     .00000,    .02148,    .05805,
     +     .60299,    .26263,    .69759,    .03199,   -.00482,
     +     .00000,    .02171,    .05641,
     +     .59716,    .25794,    .66073,    .03184,   -.00362,
     +     .00000,    .02185,    .05497,
     +     .59120,    .25345,    .62723,    .03167,   -.00262,
     +     .00000,    .02192,    .05360,
     +     .58456,    .24868,    .59358,    .03143,   -.00166,
     +     .00000,    .02192,    .05216 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .57846,    .24447,    .56560,    .03114,   -.00095,
     +     .00000,    .02183,    .05095,
     +     .57243,    .24045,    .53992,    .03084,   -.00030,
     +     .00000,    .02173,    .04979,
     +     .56752,    .23729,    .52040,    .03058,    .00016,
     +     .00000,    .02164,    .04886,
     +     .55685,    .23057,    .48118,    .02998,    .00104,
     +     .00000,    .02138,    .04696,
     +     .54732,    .22491,    .45370,    .02943,    .00167,
     +    -.00226,    .02111,    .04537,
     +     .53648,    .21870,    .41921,    .02877,    .00228,
     +    -.00135,    .02075,    .04364,
     +     .52510,    .21233,    .38645,    .02804,    .00280,
     +    -.00062,    .02031,    .04189,
     +     .51473,    .20666,    .35921,    .02736,    .00319,
     +    -.00005,    .01989,    .04034 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50423,    .20109,    .33387,    .02667,    .00353,
     +     .00045,    .01943,    .03882,
     +     .49547,    .19651,    .31430,    .02608,    .00374,
     +     .00079,    .01904,    .03761,
     +     .48495,    .19109,    .29235,    .02536,    .00396,
     +     .00116,    .01856,    .03618,
     +     .47572,    .18643,    .27444,    .02473,    .00413,
     +     .00145,    .01813,    .03493,
     +     .46724,    .18223,    .25911,    .02413,    .00425,
     +     .00168,    .01773,    .03382,
     +     .45661,    .17701,    .24108,    .02340,    .00436,
     +     .00192,    .01720,    .03247,
     +     .44676,    .17224,    .22548,    .02273,    .00444,
     +     .00211,    .01672,    .03125,
     +     .43759,    .16789,    .21193,    .02210,    .00449,
     +     .00226,    .01627,    .03013 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .42855,    .16361,    .19935,    .02147,    .00453,
     +     .00239,    .01582,    .02906,
     +     .41990,    .15954,    .18789,    .02086,    .00454,
     +     .00249,    .01539,    .02806,
     +     .41170,    .15575,    .17775,    .02029,    .00454,
     +     .00257,    .01499,    .02717,
     +     .40412,    .15228,    .16881,    .01978,    .00453,
     +     .00264,    .01461,    .02633,
     +     .39659,    .14888,    .16038,    .01927,    .00451,
     +     .00268,    .01424,    .02551,
     +     .38928,    .14560,    .15260,    .01880,    .00448,
     +     .00272,    .01387,    .02472,
     +     .38242,    .14255,    .14560,    .01836,    .00446,
     +     .00276,    .01353,    .02399,
     +     .37601,    .13973,    .13934,    .01794,    .00442,
     +     .00278,    .01323,    .02333 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36962,    .13691,    .13335,    .01752,    .00439,
     +     .00280,    .01291,    .02269,
     +     .36344,    .13421,    .12777,    .01711,    .00434,
     +     .00280,    .01261,    .02207,
     +     .35757,    .13165,    .12271,    .01673,    .00430,
     +     .00281,    .01234,    .02148,
     +     .35214,    .12928,    .11814,    .01637,    .00426,
     +     .00281,    .01208,    .02095,
     +     .34666,    .12692,    .11372,    .01602,    .00421,
     +     .00280,    .01182,    .02042 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .63420,    .27803,    .74899,    .02663,    .00000,
     +     .00000,    .01648,    .05253,
     +     .62891,    .27259,    .70683,    .02686,    .00000,
     +     .00000,    .01688,    .05096,
     +     .61935,    .26446,    .66101,    .02697,   -.00639,
     +     .00000,    .01732,    .04863,
     +     .61148,    .25841,    .61940,    .02692,   -.00548,
     +     .00000,    .01750,    .04702,
     +     .60262,    .25214,    .57698,    .02679,   -.00420,
     +     .00000,    .01763,    .04542,
     +     .59455,    .24673,    .54273,    .02661,   -.00322,
     +     .00000,    .01765,    .04402,
     +     .58655,    .24159,    .51194,    .02638,   -.00240,
     +     .00000,    .01761,    .04274,
     +     .57786,    .23618,    .48129,    .02605,   -.00162,
     +     .00000,    .01751,    .04144 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57008,    .23150,    .45597,    .02572,   -.00103,
     +     .00000,    .01740,    .04028,
     +     .56248,    .22705,    .43298,    .02539,   -.00051,
     +     .00000,    .01727,    .03920,
     +     .55639,    .22356,    .41559,    .02512,   -.00015,
     +     .00000,    .01714,    .03837,
     +     .54326,    .21629,    .38101,    .02452,    .00055,
     +     .00000,    .01684,    .03663,
     +     .53190,    .21017,    .35682,    .02396,    .00105,
     +    -.00185,    .01653,    .03521,
     +     .51917,    .20353,    .32720,    .02333,    .00151,
     +    -.00115,    .01615,    .03367,
     +     .50597,    .19676,    .29931,    .02264,    .00192,
     +    -.00059,    .01574,    .03213,
     +     .49414,    .19079,    .27635,    .02198,    .00221,
     +    -.00015,    .01534,    .03078 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48226,    .18496,    .25519,    .02132,    .00246,
     +     .00023,    .01493,    .02948,
     +     .47241,    .18022,    .23898,    .02079,    .00263,
     +     .00049,    .01455,    .02844,
     +     .46067,    .17465,    .22095,    .02014,    .00278,
     +     .00075,    .01413,    .02721,
     +     .45049,    .16986,    .20636,    .01955,    .00290,
     +     .00097,    .01375,    .02617,
     +     .44123,    .16557,    .19390,    .01902,    .00299,
     +     .00113,    .01340,    .02527,
     +     .42968,    .16027,    .17943,    .01836,    .00307,
     +     .00131,    .01294,    .02417,
     +     .41902,    .15545,    .16695,    .01777,    .00312,
     +     .00145,    .01252,    .02317,
     +     .40923,    .15108,    .15621,    .01720,    .00315,
     +     .00156,    .01214,    .02225 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .39956,    .14682,    .14630,    .01666,    .00317,
     +     .00165,    .01177,    .02138,
     +     .39032,    .14277,    .13735,    .01615,    .00317,
     +     .00172,    .01141,    .02056,
     +     .38172,    .13903,    .12946,    .01566,    .00316,
     +     .00177,    .01107,    .01982,
     +     .37379,    .13560,    .12253,    .01521,    .00315,
     +     .00182,    .01077,    .01915,
     +     .36591,    .13223,    .11601,    .01479,    .00313,
     +     .00185,    .01047,    .01849,
     +     .35830,    .12900,    .11004,    .01439,    .00311,
     +     .00187,    .01018,    .01787,
     +     .35119,    .12603,    .10469,    .01401,    .00309,
     +     .00189,    .00991,    .01731,
     +     .34459,    .12328,    .09994,    .01366,    .00306,
     +     .00190,    .00964,    .01679 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33805,    .12055,    .09542,    .01330,    .00302,
     +     .00191,    .00939,    .01629,
     +     .33173,    .11794,    .09121,    .01295,    .00299,
     +     .00191,    .00915,    .01580,
     +     .32575,    .11546,    .08737,    .01264,    .00296,
     +     .00192,    .00893,    .01535,
     +     .32021,    .11317,    .08393,    .01236,    .00293,
     +     .00192,    .00873,    .01494,
     +     .31462,    .11091,    .08063,    .01207,    .00289,
     +     .00191,    .00853,    .01453 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .63895,    .27028,    .63676,    .02354,    .00000,
     +     .00000,    .01295,    .04195,
     +     .63078,    .26372,    .59575,    .02353,    .00000,
     +     .00000,    .01331,    .04056,
     +     .61732,    .25409,    .55062,    .02341,   -.00548,
     +     .00000,    .01368,    .03848,
     +     .60680,    .24713,    .51159,    .02318,   -.00466,
     +     .00000,    .01382,    .03706,
     +     .59544,    .24001,    .47254,    .02289,   -.00361,
     +     .00000,    .01389,    .03563,
     +     .58528,    .23397,    .44134,    .02259,   -.00280,
     +     .00000,    .01391,    .03442,
     +     .57544,    .22827,    .41350,    .02226,   -.00211,
     +     .00000,    .01386,    .03329,
     +     .56492,    .22231,    .38608,    .02186,   -.00148,
     +     .00000,    .01375,    .03216 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .55554,    .21729,    .36371,    .02151,   -.00102,
     +     .00000,    .01360,    .03115,
     +     .54653,    .21253,    .34345,    .02117,   -.00060,
     +     .00000,    .01348,    .03021,
     +     .53940,    .20880,    .32827,    .02088,   -.00031,
     +     .00000,    .01335,    .02949,
     +     .52430,    .20103,    .29837,    .02023,    .00024,
     +     .00000,    .01305,    .02799,
     +     .51137,    .19459,    .27748,    .01969,    .00063,
     +    -.00150,    .01277,    .02675,
     +     .49707,    .18767,    .25243,    .01905,    .00099,
     +    -.00096,    .01243,    .02547,
     +     .48236,    .18069,    .22913,    .01838,    .00130,
     +    -.00053,    .01205,    .02419,
     +     .46928,    .17457,    .21012,    .01777,    .00153,
     +    -.00019,    .01171,    .02307 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45644,    .16859,    .19272,    .01710,    .00171,
     +     .00009,    .01131,    .02203,
     +     .44574,    .16383,    .17957,    .01661,    .00184,
     +     .00029,    .01102,    .02114,
     +     .43312,    .15820,    .16502,    .01603,    .00195,
     +     .00049,    .01063,    .02015,
     +     .42224,    .15339,    .15328,    .01552,    .00203,
     +     .00065,    .01029,    .01932,
     +     .41239,    .14910,    .14340,    .01505,    .00209,
     +     .00076,    .01001,    .01857,
     +     .40019,    .14384,    .13192,    .01446,    .00215,
     +     .00090,    .00966,    .01768,
     +     .38901,    .13909,    .12214,    .01392,    .00218,
     +     .00099,    .00931,    .01688,
     +     .37880,    .13477,    .11377,    .01345,    .00221,
     +     .00108,    .00898,    .01616 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36880,    .13058,    .10609,    .01298,    .00221,
     +     .00113,    .00869,    .01547,
     +     .35929,    .12664,    .09916,    .01253,    .00221,
     +     .00118,    .00840,    .01483,
     +     .35047,    .12300,    .09311,    .01212,    .00221,
     +     .00123,    .00813,    .01426,
     +     .34233,    .11970,    .08786,    .01174,    .00219,
     +     .00125,    .00786,    .01373,
     +     .33430,    .11646,    .08295,    .01139,    .00218,
     +     .00127,    .00761,    .01323,
     +     .32659,    .11337,    .07843,    .01104,    .00215,
     +     .00129,    .00737,    .01276,
     +     .31943,    .11052,    .07443,    .01071,    .00213,
     +     .00130,    .00717,    .01230,
     +     .31279,    .10788,    .07087,    .01042,    .00211,
     +     .00131,    .00698,    .01190 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30620,    .10528,    .06749,    .01013,    .00209,
     +     .00132,    .00678,    .01151,
     +     .29985,    .10280,    .06435,    .00986,    .00206,
     +     .00131,    .00658,    .01114,
     +     .29390,    .10045,    .06152,    .00958,    .00203,
     +     .00131,    .00641,    .01081,
     +     .28838,    .09829,    .05898,    .00933,    .00200,
     +     .00131,    .00625,    .01051,
     +     .28287,    .09616,    .05656,    .00909,    .00199,
     +     .00131,    .00609,    .01020 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .63826,    .25918,    .53359,    .02000,    .00000,
     +     .00000,    .01050,    .03328,
     +     .62701,    .25178,    .49492,    .02000,    .00000,
     +     .00000,    .01076,    .03194,
     +     .60955,    .24099,    .45212,    .01972,   -.00463,
     +     .00000,    .01102,    .03011,
     +     .59642,    .23345,    .41637,    .01948,   -.00393,
     +     .00000,    .01108,    .02885,
     +     .58245,    .22585,    .38128,    .01922,   -.00305,
     +     .00000,    .01106,    .02756,
     +     .57037,    .21938,    .35349,    .01889,   -.00239,
     +     .00000,    .01101,    .02652,
     +     .55878,    .21331,    .32895,    .01853,   -.00184,
     +     .00000,    .01094,    .02553,
     +     .54651,    .20707,    .30496,    .01814,   -.00133,
     +     .00000,    .01082,    .02450 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .53583,    .20174,    .28552,    .01780,   -.00095,
     +     .00000,    .01068,    .02370,
     +     .52564,    .19674,    .26814,    .01742,   -.00062,
     +     .00000,    .01052,    .02294,
     +     .51762,    .19285,    .25521,    .01711,   -.00039,
     +     .00000,    .01038,    .02234,
     +     .50073,    .18487,    .22985,    .01647,    .00004,
     +     .00000,    .01009,    .02112,
     +     .48649,    .17831,    .21224,    .01596,    .00035,
     +    -.00119,    .00983,    .02010,
     +     .47095,    .17124,    .19154,    .01538,    .00062,
     +    -.00079,    .00954,    .01900,
     +     .45513,    .16421,    .17243,    .01475,    .00086,
     +    -.00045,    .00919,    .01795,
     +     .44114,    .15809,    .15702,    .01416,    .00103,
     +    -.00020,    .00887,    .01707 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42740,    .15215,    .14302,    .01361,    .00117,
     +     .00001,    .00856,    .01622,
     +     .41619,    .14739,    .13255,    .01319,    .00126,
     +     .00015,    .00829,    .01550,
     +     .40300,    .14182,    .12102,    .01265,    .00135,
     +     .00031,    .00800,    .01470,
     +     .39168,    .13709,    .11181,    .01219,    .00140,
     +     .00042,    .00774,    .01404,
     +     .38150,    .13292,    .10411,    .01178,    .00145,
     +     .00051,    .00747,    .01345,
     +     .36897,    .12780,    .09524,    .01127,    .00149,
     +     .00060,    .00715,    .01276,
     +     .35755,    .12319,    .08772,    .01081,    .00151,
     +     .00068,    .00686,    .01215,
     +     .34714,    .11904,    .08133,    .01041,    .00152,
     +     .00073,    .00661,    .01157 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33699,    .11502,    .07550,    .01002,    .00152,
     +     .00077,    .00637,    .01105,
     +     .32738,    .11126,    .07031,    .00963,    .00153,
     +     .00082,    .00612,    .01058,
     +     .31845,    .10783,    .06581,    .00930,    .00152,
     +     .00083,    .00591,    .01011,
     +     .31032,    .10469,    .06187,    .00901,    .00151,
     +     .00085,    .00571,    .00970,
     +     .30236,    .10162,    .05822,    .00869,    .00149,
     +     .00087,    .00551,    .00932,
     +     .29473,    .09870,    .05488,    .00840,    .00148,
     +     .00088,    .00534,    .00896,
     +     .28765,    .09598,    .05193,    .00813,    .00146,
     +     .00088,    .00518,    .00866,
     +     .28111,    .09351,    .04934,    .00788,    .00145,
     +     .00090,    .00502,    .00837 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27464,    .09107,    .04688,    .00763,    .00143,
     +     .00090,    .00487,    .00806,
     +     .26842,    .08875,    .04462,    .00741,    .00141,
     +     .00090,    .00473,    .00778,
     +     .26258,    .08658,    .04258,    .00721,    .00139,
     +     .00089,    .00459,    .00752,
     +     .25717,    .08458,    .04076,    .00703,    .00137,
     +     .00089,    .00447,    .00729,
     +     .25180,    .08260,    .03901,    .00683,    .00135,
     +     .00089,    .00434,    .00706 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .63102,    .24662,    .43930,    .01739,    .00000,
     +     .00000,    .00823,    .02551,
     +     .61702,    .23843,    .40374,    .01720,    .00000,
     +     .00000,    .00842,    .02448,
     +     .59584,    .22679,    .36425,    .01686,   -.00387,
     +     .00000,    .00860,    .02295,
     +     .58035,    .21875,    .33235,    .01653,   -.00326,
     +     .00000,    .00865,    .02189,
     +     .56431,    .21063,    .30150,    .01614,   -.00254,
     +     .00000,    .00866,    .02085,
     +     .55049,    .20386,    .27735,    .01578,   -.00200,
     +     .00000,    .00857,    .02000,
     +     .53740,    .19759,    .25620,    .01543,   -.00156,
     +     .00000,    .00847,    .01920,
     +     .52372,    .19113,    .23573,    .01502,   -.00115,
     +     .00000,    .00835,    .01838 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51188,    .18569,    .21936,    .01466,   -.00085,
     +     .00000,    .00827,    .01765,
     +     .50067,    .18055,    .20477,    .01431,   -.00059,
     +     .00000,    .00815,    .01700,
     +     .49193,    .17658,    .19396,    .01404,   -.00040,
     +     .00000,    .00800,    .01653,
     +     .47371,    .16850,    .17307,    .01342,   -.00006,
     +     .00000,    .00773,    .01555,
     +     .45849,    .16192,    .15860,    .01291,    .00017,
     +    -.00094,    .00749,    .01477,
     +     .44200,    .15490,    .14186,    .01235,    .00039,
     +    -.00063,    .00722,    .01392,
     +     .42536,    .14795,    .12660,    .01180,    .00055,
     +    -.00038,    .00691,    .01308,
     +     .41074,    .14194,    .11437,    .01131,    .00069,
     +    -.00019,    .00666,    .01238 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39652,    .13610,    .10347,    .01080,    .00079,
     +    -.00003,    .00642,    .01167,
     +     .38497,    .13148,    .09528,    .01041,    .00086,
     +     .00008,    .00621,    .01116,
     +     .37146,    .12610,    .08643,    .00993,    .00092,
     +     .00019,    .00594,    .01056,
     +     .35991,    .12155,    .07941,    .00954,    .00097,
     +     .00027,    .00570,    .01006,
     +     .34962,    .11753,    .07353,    .00919,    .00099,
     +     .00033,    .00550,    .00961,
     +     .33697,    .11263,    .06687,    .00875,    .00102,
     +     .00041,    .00525,    .00907,
     +     .32551,    .10825,    .06128,    .00836,    .00104,
     +     .00046,    .00501,    .00860,
     +     .31512,    .10430,    .05656,    .00801,    .00105,
     +     .00050,    .00482,    .00818 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30506,    .10052,    .05227,    .00769,    .00105,
     +     .00052,    .00462,    .00777,
     +     .29556,    .09697,    .04847,    .00738,    .00105,
     +     .00055,    .00444,    .00739,
     +     .28682,    .09373,    .04517,    .00709,    .00105,
     +     .00057,    .00427,    .00707,
     +     .27886,    .09078,    .04235,    .00683,    .00103,
     +     .00058,    .00411,    .00678,
     +     .27107,    .08790,    .03973,    .00657,    .00103,
     +     .00060,    .00396,    .00648,
     +     .26362,    .08519,    .03737,    .00633,    .00101,
     +     .00060,    .00382,    .00621,
     +     .25672,    .08269,    .03528,    .00612,    .00100,
     +     .00060,    .00367,    .00598,
     +     .25035,    .08041,    .03343,    .00593,    .00099,
     +     .00061,    .00356,    .00576 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24409,    .07816,    .03169,    .00575,    .00097,
     +     .00061,    .00346,    .00554,
     +     .23809,    .07604,    .03008,    .00557,    .00096,
     +     .00061,    .00335,    .00534,
     +     .23249,    .07404,    .02867,    .00538,    .00094,
     +     .00060,    .00325,    .00515,
     +     .22733,    .07220,    .02740,    .00523,    .00093,
     +     .00060,    .00315,    .00499,
     +     .22220,    .07039,    .02619,    .00507,    .00091,
     +     .00059,    .00305,    .00483 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .61817,    .23242,    .35273,    .01494,    .00000,
     +     .00000,    .00643,    .01920,
     +     .60153,    .22369,    .32097,    .01468,    .00000,
     +     .00000,    .00665,    .01833,
     +     .57703,    .21146,    .28586,    .01418,   -.00317,
     +     .00000,    .00671,    .01717,
     +     .55949,    .20302,    .25819,    .01381,   -.00265,
     +     .00000,    .00676,    .01633,
     +     .54156,    .19464,    .23188,    .01339,   -.00208,
     +     .00000,    .00669,    .01554,
     +     .52630,    .18770,    .21155,    .01305,   -.00165,
     +     .00000,    .00664,    .01479,
     +     .51198,    .18128,    .19389,    .01269,   -.00130,
     +     .00000,    .00654,    .01415,
     +     .49717,    .17471,    .17694,    .01227,   -.00097,
     +     .00000,    .00638,    .01355 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48442,    .16922,    .16351,    .01194,   -.00073,
     +     .00000,    .00628,    .01299,
     +     .47243,    .16413,    .15164,    .01160,   -.00052,
     +     .00000,    .00617,    .01248,
     +     .46313,    .16020,    .14296,    .01132,   -.00038,
     +     .00000,    .00606,    .01208,
     +     .44382,    .15220,    .12616,    .01080,   -.00013,
     +     .00000,    .00586,    .01128,
     +     .42799,    .14573,    .11466,    .01031,    .00006,
     +    -.00073,    .00565,    .01067,
     +     .41088,    .13885,    .10157,    .00982,    .00021,
     +    -.00050,    .00541,    .01004,
     +     .39375,    .13207,    .08977,    .00933,    .00035,
     +    -.00031,    .00517,    .00938,
     +     .37887,    .12624,    .08043,    .00890,    .00045,
     +    -.00017,    .00493,    .00883 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36438,    .12068,    .07213,    .00847,    .00053,
     +    -.00005,    .00468,    .00834,
     +     .35278,    .11623,    .06600,    .00812,    .00057,
     +     .00003,    .00452,    .00793,
     +     .33922,    .11110,    .05939,    .00772,    .00062,
     +     .00011,    .00433,    .00746,
     +     .32771,    .10679,    .05420,    .00737,    .00065,
     +     .00017,    .00415,    .00707,
     +     .31745,    .10298,    .04995,    .00706,    .00067,
     +     .00021,    .00400,    .00673,
     +     .30493,    .09836,    .04511,    .00671,    .00069,
     +     .00027,    .00382,    .00633,
     +     .29365,    .09424,    .04108,    .00639,    .00071,
     +     .00030,    .00364,    .00599,
     +     .28344,    .09058,    .03769,    .00612,    .00071,
     +     .00033,    .00347,    .00569 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27360,    .08704,    .03468,    .00585,    .00071,
     +     .00035,    .00332,    .00538,
     +     .26436,    .08374,    .03202,    .00560,    .00071,
     +     .00037,    .00319,    .00509,
     +     .25591,    .08072,    .02974,    .00537,    .00070,
     +     .00038,    .00305,    .00486,
     +     .24821,    .07801,    .02776,    .00515,    .00070,
     +     .00040,    .00293,    .00466,
     +     .24071,    .07538,    .02596,    .00494,    .00070,
     +     .00040,    .00283,    .00444,
     +     .23358,    .07291,    .02433,    .00474,    .00069,
     +     .00041,    .00272,    .00425,
     +     .22699,    .07062,    .02292,    .00457,    .00067,
     +     .00040,    .00261,    .00409,
     +     .22095,    .06853,    .02168,    .00440,    .00066,
     +     .00041,    .00251,    .00393 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21499,    .06649,    .02051,    .00427,    .00066,
     +     .00041,    .00243,    .00376,
     +     .20930,    .06455,    .01946,    .00411,    .00064,
     +     .00041,    .00234,    .00360,
     +     .20401,    .06274,    .01850,    .00398,    .00064,
     +     .00041,    .00227,    .00348,
     +     .19915,    .06108,    .01765,    .00385,    .00062,
     +     .00040,    .00221,    .00337,
     +     .19431,    .05945,    .01686,    .00373,    .00062,
     +     .00041,    .00213,    .00325 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60019,    .21678,    .27414,    .01241,    .00000,
     +     .00000,    .00509,    .01426,
     +     .58111,    .20781,    .24676,    .01217,    .00000,
     +     .00000,    .00522,    .01355,
     +     .55365,    .19519,    .21664,    .01169,   -.00256,
     +     .00000,    .00531,    .01258,
     +     .53439,    .18664,    .19346,    .01137,   -.00213,
     +     .00000,    .00523,    .01195,
     +     .51488,    .17816,    .17179,    .01095,   -.00168,
     +     .00000,    .00521,    .01129,
     +     .49848,    .17120,    .15518,    .01056,   -.00132,
     +     .00000,    .00513,    .01080,
     +     .48319,    .16481,    .14093,    .01021,   -.00105,
     +     .00000,    .00502,    .01032,
     +     .46745,    .15831,    .12744,    .00985,   -.00080,
     +     .00000,    .00490,    .00979 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45411,    .15288,    .11676,    .00955,   -.00061,
     +     .00000,    .00481,    .00936,
     +     .44160,    .14784,    .10749,    .00925,   -.00045,
     +     .00000,    .00470,    .00896,
     +     .43195,    .14397,    .10070,    .00899,   -.00034,
     +     .00000,    .00463,    .00867,
     +     .41203,    .13618,    .08789,    .00850,   -.00015,
     +     .00000,    .00442,    .00805,
     +     .39579,    .12989,    .07913,    .00808,   -.00001,
     +    -.00056,    .00424,    .00759,
     +     .37843,    .12327,    .06923,    .00765,    .00011,
     +    -.00038,    .00404,    .00711,
     +     .36115,    .11682,    .06041,    .00724,    .00021,
     +    -.00025,    .00383,    .00663,
     +     .34621,    .11128,    .05356,    .00687,    .00028,
     +    -.00014,    .00368,    .00619 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33178,    .10598,    .04758,    .00650,    .00034,
     +    -.00006,    .00348,    .00583,
     +     .32024,    .10177,    .04318,    .00621,    .00037,
     +     .00000,    .00334,    .00554,
     +     .30684,    .09695,    .03851,    .00587,    .00041,
     +     .00006,    .00318,    .00520,
     +     .29552,    .09290,    .03487,    .00561,    .00043,
     +     .00010,    .00303,    .00492,
     +     .28554,    .08937,    .03190,    .00535,    .00045,
     +     .00014,    .00291,    .00466,
     +     .27334,    .08509,    .02858,    .00507,    .00046,
     +     .00017,    .00274,    .00437,
     +     .26239,    .08127,    .02583,    .00481,    .00047,
     +     .00019,    .00262,    .00412,
     +     .25258,    .07789,    .02357,    .00455,    .00047,
     +     .00022,    .00249,    .00389 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24314,    .07465,    .02154,    .00435,    .00048,
     +     .00024,    .00238,    .00367,
     +     .23430,    .07164,    .01978,    .00416,    .00048,
     +     .00025,    .00228,    .00347,
     +     .22619,    .06890,    .01830,    .00397,    .00047,
     +     .00026,    .00218,    .00331,
     +     .21887,    .06643,    .01704,    .00381,    .00047,
     +     .00026,    .00208,    .00315,
     +     .21175,    .06404,    .01588,    .00365,    .00047,
     +     .00027,    .00198,    .00300,
     +     .20499,    .06180,    .01483,    .00351,    .00045,
     +     .00027,    .00190,    .00285,
     +     .19877,    .05975,    .01393,    .00338,    .00045,
     +     .00027,    .00184,    .00273,
     +     .19309,    .05786,    .01315,    .00326,    .00044,
     +     .00027,    .00177,    .00262 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18753,    .05604,    .01243,    .00312,    .00044,
     +     .00027,    .00170,    .00252,
     +     .18225,    .05431,    .01175,    .00301,    .00043,
     +     .00027,    .00163,    .00243,
     +     .17732,    .05269,    .01117,    .00289,    .00042,
     +     .00028,    .00158,    .00233,
     +     .17279,    .05121,    .01065,    .00279,    .00041,
     +     .00027,    .00152,    .00225,
     +     .16831,    .04976,    .01016,    .00271,    .00040,
     +     .00027,    .00147,    .00216 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .57718,    .20088,    .20344,    .01059,    .00000,
     +     .00000,    .00382,    .01013,
     +     .55621,    .19156,    .18085,    .01023,    .00000,
     +     .00000,    .00391,    .00970,
     +     .52627,    .17888,    .15619,    .00974,   -.00202,
     +     .00000,    .00398,    .00896,
     +     .50566,    .17028,    .13756,    .00938,   -.00168,
     +     .00000,    .00397,    .00846,
     +     .48498,    .16179,    .12048,    .00894,   -.00131,
     +     .00000,    .00388,    .00804,
     +     .46782,    .15490,    .10750,    .00860,   -.00105,
     +     .00000,    .00382,    .00763,
     +     .45187,    .14863,    .09650,    .00827,   -.00084,
     +     .00000,    .00377,    .00723,
     +     .43552,    .14225,    .08617,    .00796,   -.00064,
     +     .00000,    .00369,    .00685 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42181,    .13695,    .07821,    .00761,   -.00050,
     +     .00000,    .00358,    .00658,
     +     .40898,    .13207,    .07130,    .00734,   -.00038,
     +     .00000,    .00348,    .00631,
     +     .39905,    .12837,    .06631,    .00715,   -.00029,
     +     .00000,    .00341,    .00608,
     +     .37896,    .12084,    .05696,    .00673,   -.00014,
     +     .00000,    .00324,    .00562,
     +     .36264,    .11486,    .05061,    .00635,   -.00004,
     +    -.00042,    .00310,    .00528,
     +     .34532,    .10859,    .04356,    .00595,    .00005,
     +    -.00029,    .00294,    .00492,
     +     .32822,    .10244,    .03742,    .00557,    .00012,
     +    -.00019,    .00278,    .00455,
     +     .31347,    .09724,    .03271,    .00526,    .00017,
     +    -.00012,    .00264,    .00427 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29937,    .09230,    .02861,    .00495,    .00021,
     +    -.00005,    .00251,    .00399,
     +     .28806,    .08841,    .02565,    .00474,    .00024,
     +    -.00001,    .00239,    .00377,
     +     .27505,    .08394,    .02255,    .00447,    .00027,
     +     .00003,    .00227,    .00352,
     +     .26414,    .08020,    .02019,    .00423,    .00028,
     +     .00006,    .00215,    .00333,
     +     .25448,    .07692,    .01829,    .00402,    .00030,
     +     .00009,    .00205,    .00318,
     +     .24281,    .07299,    .01620,    .00377,    .00031,
     +     .00011,    .00195,    .00296,
     +     .23239,    .06952,    .01450,    .00358,    .00031,
     +     .00012,    .00184,    .00275,
     +     .22299,    .06643,    .01310,    .00342,    .00032,
     +     .00015,    .00174,    .00260 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21405,    .06350,    .01189,    .00325,    .00032,
     +     .00016,    .00165,    .00245,
     +     .20573,    .06079,    .01081,    .00308,    .00032,
     +     .00017,    .00157,    .00233,
     +     .19816,    .05831,    .00996,    .00290,    .00031,
     +     .00016,    .00151,    .00221,
     +     .19131,    .05609,    .00922,    .00277,    .00031,
     +     .00017,    .00144,    .00209,
     +     .18465,    .05397,    .00857,    .00266,    .00031,
     +     .00018,    .00137,    .00199,
     +     .17837,    .05196,    .00797,    .00253,    .00030,
     +     .00018,    .00131,    .00190,
     +     .17263,    .05011,    .00746,    .00244,    .00030,
     +     .00018,    .00125,    .00182,
     +     .16738,    .04845,    .00702,    .00235,    .00029,
     +     .00018,    .00121,    .00174 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16222,    .04684,    .00662,    .00226,    .00028,
     +     .00018,    .00117,    .00164,
     +     .15732,    .04532,    .00626,    .00218,    .00029,
     +     .00018,    .00112,    .00157,
     +     .15278,    .04388,    .00594,    .00209,    .00028,
     +     .00018,    .00108,    .00152,
     +     .14861,    .04258,    .00566,    .00201,    .00027,
     +     .00018,    .00105,    .00147,
     +     .14453,    .04130,    .00540,    .00195,    .00026,
     +     .00017,    .00101,    .00142 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .54989,    .18438,    .14095,    .00881,    .00000,
     +     .00000,    .00286,    .00710,
     +     .52739,    .17509,    .12315,    .00848,    .00000,
     +     .00000,    .00291,    .00677,
     +     .49577,    .16239,    .10418,    .00799,   -.00157,
     +     .00000,    .00292,    .00624,
     +     .47419,    .15391,    .09011,    .00760,   -.00129,
     +     .00000,    .00289,    .00586,
     +     .45268,    .14571,    .07724,    .00729,   -.00101,
     +     .00000,    .00286,    .00549,
     +     .43494,    .13900,    .06774,    .00695,   -.00081,
     +     .00000,    .00279,    .00522,
     +     .41864,    .13289,    .05985,    .00662,   -.00065,
     +     .00000,    .00273,    .00497,
     +     .40207,    .12677,    .05243,    .00633,   -.00050,
     +     .00000,    .00266,    .00468 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .38824,    .12171,    .04685,    .00603,   -.00039,
     +     .00000,    .00256,    .00447,
     +     .37537,    .11706,    .04205,    .00578,   -.00030,
     +     .00000,    .00248,    .00426,
     +     .36550,    .11352,    .03863,    .00561,   -.00024,
     +     .00000,    .00241,    .00410,
     +     .34542,    .10641,    .03236,    .00521,   -.00013,
     +     .00000,    .00229,    .00382,
     +     .32925,    .10077,    .02815,    .00496,   -.00006,
     +    -.00032,    .00219,    .00355,
     +     .31219,    .09488,    .02353,    .00467,    .00001,
     +    -.00022,    .00206,    .00327,
     +     .29549,    .08918,    .01958,    .00434,    .00006,
     +    -.00015,    .00194,    .00304,
     +     .28118,    .08434,    .01657,    .00408,    .00011,
     +    -.00009,    .00186,    .00282 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26760,    .07975,    .01404,    .00382,    .00014,
     +    -.00004,    .00176,    .00263,
     +     .25677,    .07618,    .01232,    .00362,    .00015,
     +    -.00002,    .00168,    .00249,
     +     .24433,    .07208,    .01053,    .00339,    .00017,
     +     .00001,    .00156,    .00233,
     +     .23388,    .06867,    .00919,    .00322,    .00019,
     +     .00004,    .00148,    .00217,
     +     .22473,    .06572,    .00814,    .00307,    .00019,
     +     .00005,    .00141,    .00205,
     +     .21370,    .06216,    .00700,    .00287,    .00019,
     +     .00007,    .00132,    .00192,
     +     .20388,    .05902,    .00610,    .00270,    .00020,
     +     .00008,    .00125,    .00180,
     +     .19515,    .05624,    .00538,    .00256,    .00020,
     +     .00009,    .00118,    .00170 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18683,    .05360,    .00481,    .00239,    .00020,
     +     .00010,    .00113,    .00159,
     +     .17909,    .05117,    .00433,    .00223,    .00021,
     +     .00011,    .00107,    .00148,
     +     .17201,    .04898,    .00390,    .00216,    .00020,
     +     .00011,    .00101,    .00140,
     +     .16565,    .04702,    .00357,    .00207,    .00020,
     +     .00011,    .00097,    .00133,
     +     .15953,    .04513,    .00329,    .00198,    .00020,
     +     .00011,    .00092,    .00126,
     +     .15375,    .04335,    .00304,    .00188,    .00020,
     +     .00012,    .00088,    .00121,
     +     .14848,    .04174,    .00283,    .00180,    .00019,
     +     .00012,    .00085,    .00114,
     +     .14366,    .04026,    .00266,    .00173,    .00019,
     +     .00012,    .00082,    .00109 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13897,    .03884,    .00252,    .00166,    .00018,
     +     .00011,    .00077,    .00104,
     +     .13451,    .03748,    .00238,    .00159,    .00019,
     +     .00012,    .00074,    .00101,
     +     .13039,    .03624,    .00227,    .00153,    .00018,
     +     .00012,    .00070,    .00097,
     +     .12663,    .03512,    .00217,    .00147,    .00018,
     +     .00012,    .00068,    .00092,
     +     .12291,    .03401,    .00207,    .00142,    .00017,
     +     .00012,    .00066,    .00089 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .51913,    .16736,    .08697,    .00699,    .00000,
     +     .00000,    .00218,    .00493,
     +     .49541,    .15827,    .07398,    .00669,    .00000,
     +     .00000,    .00221,    .00464,
     +     .46245,    .14583,    .06056,    .00629,   -.00119,
     +     .00000,    .00222,    .00429,
     +     .44034,    .13763,    .05059,    .00596,   -.00097,
     +     .00000,    .00218,    .00403,
     +     .41854,    .12973,    .04180,    .00561,   -.00077,
     +     .00000,    .00211,    .00378,
     +     .40055,    .12329,    .03541,    .00534,   -.00062,
     +     .00000,    .00205,    .00359,
     +     .38413,    .11746,    .03017,    .00510,   -.00049,
     +     .00000,    .00200,    .00340,
     +     .36756,    .11167,    .02541,    .00483,   -.00038,
     +     .00000,    .00192,    .00323 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35375,    .10687,    .02194,    .00464,   -.00031,
     +     .00000,    .00187,    .00303,
     +     .34102,    .10248,    .01901,    .00444,   -.00024,
     +     .00000,    .00182,    .00287,
     +     .33130,    .09916,    .01691,    .00429,   -.00019,
     +     .00000,    .00179,    .00275,
     +     .31165,    .09254,    .01317,    .00396,   -.00012,
     +     .00000,    .00168,    .00254,
     +     .29590,    .08731,    .01091,    .00372,   -.00006,
     +    -.00023,    .00158,    .00238,
     +     .27942,    .08187,    .00830,    .00343,   -.00001,
     +    -.00016,    .00147,    .00222,
     +     .26337,    .07663,    .00616,    .00317,    .00003,
     +    -.00011,    .00139,    .00204,
     +     .24967,    .07222,    .00462,    .00298,    .00005,
     +    -.00008,    .00131,    .00189 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23670,    .06806,    .00343,    .00276,    .00008,
     +    -.00004,    .00121,    .00176,
     +     .22644,    .06479,    .00261,    .00262,    .00009,
     +    -.00002,    .00116,    .00167,
     +     .21470,    .06110,    .00182,    .00245,    .00011,
     +     .00000,    .00110,    .00155,
     +     .20492,    .05804,    .00127,    .00231,    .00011,
     +     .00002,    .00103,    .00144,
     +     .19634,    .05539,    .00086,    .00217,    .00012,
     +     .00003,    .00099,    .00138,
     +     .18608,    .05223,    .00047,    .00203,    .00013,
     +     .00004,    .00092,    .00129,
     +     .17698,    .04943,    .00025,    .00188,    .00013,
     +     .00005,    .00087,    .00119,
     +     .16889,    .04697,    .00004,    .00178,    .00013,
     +     .00005,    .00082,    .00110 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16119,    .04464,   -.00008,    .00169,    .00013,
     +     .00006,    .00077,    .00104,
     +     .15408,    .04250,   -.00019,    .00159,    .00013,
     +     .00006,    .00073,    .00100,
     +     .14767,    .04055,   -.00022,    .00149,    .00013,
     +     .00007,    .00070,    .00093,
     +     .14188,    .03883,   -.00026,    .00141,    .00013,
     +     .00007,    .00066,    .00088,
     +     .13629,    .03719,   -.00029,    .00137,    .00012,
     +     .00007,    .00064,    .00083,
     +     .13106,    .03564,   -.00030,    .00130,    .00013,
     +     .00008,    .00061,    .00078,
     +     .12631,    .03425,   -.00029,    .00121,    .00012,
     +     .00008,    .00057,    .00075,
     +     .12199,    .03297,   -.00027,    .00115,    .00012,
     +     .00008,    .00054,    .00073 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11774,    .03174,   -.00024,    .00112,    .00012,
     +     .00007,    .00052,    .00069,
     +     .11375,    .03058,   -.00022,    .00107,    .00011,
     +     .00007,    .00049,    .00067,
     +     .11004,    .02951,   -.00020,    .00103,    .00011,
     +     .00007,    .00048,    .00064,
     +     .10667,    .02855,   -.00017,    .00099,    .00012,
     +     .00008,    .00046,    .00062,
     +     .10338,    .02760,   -.00015,    .00096,    .00011,
     +     .00008,    .00045,    .00058 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .48531,    .15041,    .04154,    .00540,    .00000,
     +     .00000,    .00173,    .00335,
     +     .46078,    .14160,    .03314,    .00518,    .00000,
     +     .00000,    .00173,    .00313,
     +     .42732,    .12956,    .02498,    .00473,   -.00088,
     +     .00000,    .00169,    .00293,
     +     .40488,    .12173,    .01884,    .00443,   -.00072,
     +     .00000,    .00168,    .00281,
     +     .38306,    .11417,    .01365,    .00406,   -.00057,
     +     .00000,    .00162,    .00268,
     +     .36515,    .10809,    .00999,    .00390,   -.00045,
     +     .00000,    .00158,    .00249,
     +     .34890,    .10265,    .00715,    .00372,   -.00036,
     +     .00000,    .00153,    .00231,
     +     .33265,    .09722,    .00471,    .00345,   -.00029,
     +     .00000,    .00151,    .00217 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .31915,    .09278,    .00294,    .00326,   -.00023,
     +     .00000,    .00144,    .00210,
     +     .30671,    .08871,    .00159,    .00311,   -.00018,
     +     .00000,    .00138,    .00201,
     +     .29721,    .08563,    .00067,    .00299,   -.00015,
     +     .00000,    .00132,    .00195,
     +     .27824,    .07948,   -.00091,    .00277,   -.00009,
     +     .00000,    .00125,    .00179,
     +     .26318,    .07473,   -.00169,    .00256,   -.00006,
     +    -.00016,    .00117,    .00166,
     +     .24745,    .06979,   -.00271,    .00240,   -.00002,
     +    -.00012,    .00111,    .00151,
     +     .23219,    .06504,   -.00338,    .00223,    .00001,
     +    -.00008,    .00105,    .00136,
     +     .21930,    .06107,   -.00379,    .00203,    .00003,
     +    -.00005,    .00098,    .00129 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20713,    .05733,   -.00399,    .00188,    .00004,
     +    -.00003,    .00091,    .00118,
     +     .19755,    .05443,   -.00409,    .00177,    .00005,
     +    -.00002,    .00086,    .00112,
     +     .18665,    .05117,   -.00410,    .00164,    .00007,
     +     .00000,    .00080,    .00103,
     +     .17760,    .04846,   -.00404,    .00154,    .00006,
     +     .00000,    .00076,    .00096,
     +     .16968,    .04610,   -.00395,    .00146,    .00007,
     +     .00002,    .00072,    .00089,
     +     .16022,    .04331,   -.00379,    .00137,    .00008,
     +     .00003,    .00066,    .00083,
     +     .15190,    .04087,   -.00362,    .00127,    .00008,
     +     .00003,    .00061,    .00078,
     +     .14456,    .03873,   -.00342,    .00117,    .00008,
     +     .00004,    .00058,    .00073 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13758,    .03671,   -.00324,    .00110,    .00008,
     +     .00004,    .00055,    .00069,
     +     .13112,    .03485,   -.00305,    .00104,    .00008,
     +     .00004,    .00053,    .00064,
     +     .12532,    .03319,   -.00286,    .00099,    .00008,
     +     .00005,    .00050,    .00060,
     +     .12013,    .03171,   -.00269,    .00094,    .00008,
     +     .00005,    .00047,    .00057,
     +     .11515,    .03028,   -.00251,    .00086,    .00008,
     +     .00005,    .00045,    .00054,
     +     .11047,    .02895,   -.00234,    .00082,    .00007,
     +     .00004,    .00043,    .00052,
     +     .10622,    .02775,   -.00219,    .00078,    .00008,
     +     .00005,    .00040,    .00048,
     +     .10235,    .02668,   -.00207,    .00076,    .00008,
     +     .00005,    .00039,    .00046 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09859,    .02563,   -.00193,    .00073,    .00008,
     +     .00005,    .00036,    .00045,
     +     .09503,    .02465,   -.00180,    .00071,    .00007,
     +     .00005,    .00035,    .00043,
     +     .09179,    .02375,   -.00168,    .00067,    .00007,
     +     .00005,    .00034,    .00040,
     +     .08883,    .02293,   -.00158,    .00065,    .00007,
     +     .00005,    .00033,    .00038,
     +     .08592,    .02213,   -.00149,    .00063,    .00007,
     +     .00005,    .00032,    .00036 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .44943,    .13451,    .00396,    .00461,    .00000,
     +     .00000,    .00098,    .00203,
     +     .42472,    .12597,   -.00024,    .00429,    .00000,
     +     .00000,    .00098,    .00197,
     +     .39113,    .11457,   -.00369,    .00392,   -.00064,
     +     .00000,    .00106,    .00179,
     +     .36902,    .10719,   -.00646,    .00363,   -.00052,
     +     .00000,    .00104,    .00167,
     +     .34739,    .10012,   -.00851,    .00334,   -.00040,
     +     .00000,    .00102,    .00160,
     +     .32986,    .09443,   -.00982,    .00317,   -.00033,
     +     .00000,    .00099,    .00151,
     +     .31406,    .08935,   -.01067,    .00300,   -.00026,
     +     .00000,    .00096,    .00142,
     +     .29830,    .08432,   -.01121,    .00276,   -.00021,
     +     .00000,    .00091,    .00135 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .28529,    .08019,   -.01147,    .00264,   -.00017,
     +     .00000,    .00087,    .00129,
     +     .27336,    .07646,   -.01161,    .00251,   -.00013,
     +     .00000,    .00085,    .00123,
     +     .26434,    .07367,   -.01155,    .00240,   -.00011,
     +     .00000,    .00082,    .00114,
     +     .24626,    .06812,   -.01133,    .00217,   -.00007,
     +     .00000,    .00077,    .00102,
     +     .23207,    .06377,   -.01097,    .00202,   -.00004,
     +    -.00011,    .00073,    .00096,
     +     .21729,    .05928,   -.01068,    .00183,   -.00002,
     +    -.00008,    .00068,    .00090,
     +     .20302,    .05504,   -.01027,    .00171,    .00000,
     +    -.00005,    .00062,    .00083,
     +     .19103,    .05151,   -.00981,    .00160,    .00001,
     +    -.00004,    .00058,    .00076 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .17978,    .04818,   -.00932,    .00145,    .00002,
     +    -.00002,    .00055,    .00072,
     +     .17094,    .04561,   -.00885,    .00138,    .00003,
     +    -.00001,    .00052,    .00067,
     +     .16093,    .04271,   -.00825,    .00125,    .00004,
     +     .00000,    .00048,    .00062,
     +     .15267,    .04032,   -.00777,    .00116,    .00004,
     +     .00000,    .00045,    .00058,
     +     .14548,    .03827,   -.00732,    .00109,    .00005,
     +     .00001,    .00043,    .00054,
     +     .13692,    .03584,   -.00674,    .00100,    .00005,
     +     .00001,    .00039,    .00051,
     +     .12939,    .03371,   -.00623,    .00092,    .00004,
     +     .00001,    .00037,    .00047,
     +     .12278,    .03183,   -.00580,    .00087,    .00005,
     +     .00002,    .00034,    .00045 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11650,    .03008,   -.00537,    .00082,    .00005,
     +     .00002,    .00032,    .00041,
     +     .11073,    .02849,   -.00497,    .00078,    .00005,
     +     .00002,    .00031,    .00037,
     +     .10554,    .02707,   -.00463,    .00074,    .00005,
     +     .00002,    .00029,    .00036,
     +     .10091,    .02581,   -.00430,    .00069,    .00005,
     +     .00003,    .00028,    .00034,
     +     .09651,    .02459,   -.00400,    .00065,    .00005,
     +     .00003,    .00025,    .00032,
     +     .09237,    .02347,   -.00372,    .00062,    .00005,
     +     .00003,    .00024,    .00029,
     +     .08860,    .02245,   -.00347,    .00058,    .00005,
     +     .00003,    .00023,    .00029,
     +     .08520,    .02153,   -.00325,    .00056,    .00005,
     +     .00003,    .00022,    .00028 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08193,    .02065,   -.00304,    .00055,    .00004,
     +     .00003,    .00022,    .00026,
     +     .07885,    .01981,   -.00285,    .00053,    .00004,
     +     .00003,    .00021,    .00023,
     +     .07600,    .01906,   -.00267,    .00050,    .00004,
     +     .00003,    .00020,    .00022,
     +     .07343,    .01837,   -.00250,    .00047,    .00004,
     +     .00003,    .00018,    .00022,
     +     .07091,    .01770,   -.00234,    .00044,    .00004,
     +     .00003,    .00017,    .00021 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .41143,    .11826,   -.02522,    .00331,    .00000,
     +     .00000,    .00087,    .00136,
     +     .38688,    .11021,   -.02589,    .00308,    .00000,
     +     .00000,    .00087,    .00133,
     +     .35388,    .09962,   -.02497,    .00270,   -.00045,
     +     .00000,    .00079,    .00122,
     +     .33214,    .09275,   -.02501,    .00255,   -.00036,
     +     .00000,    .00079,    .00115,
     +     .31122,    .08620,   -.02456,    .00239,   -.00028,
     +     .00000,    .00077,    .00107,
     +     .29445,    .08102,   -.02389,    .00222,   -.00024,
     +     .00000,    .00073,    .00097,
     +     .27933,    .07642,   -.02314,    .00208,   -.00019,
     +     .00000,    .00070,    .00091,
     +     .26422,    .07188,   -.02221,    .00195,   -.00014,
     +     .00000,    .00064,    .00086 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25185,    .06817,   -.02134,    .00185,   -.00012,
     +     .00000,    .00062,    .00080,
     +     .24058,    .06482,   -.02044,    .00176,   -.00010,
     +     .00000,    .00062,    .00075,
     +     .23209,    .06227,   -.01975,    .00169,   -.00009,
     +     .00000,    .00059,    .00073,
     +     .21518,    .05730,   -.01828,    .00152,   -.00005,
     +     .00000,    .00054,    .00070,
     +     .20194,    .05344,   -.01698,    .00140,   -.00004,
     +    -.00008,    .00049,    .00065,
     +     .18829,    .04950,   -.01578,    .00127,   -.00002,
     +    -.00006,    .00047,    .00060,
     +     .17519,    .04576,   -.01456,    .00115,   -.00001,
     +    -.00004,    .00043,    .00055,
     +     .16416,    .04264,   -.01347,    .00108,    .00000,
     +    -.00003,    .00040,    .00049 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15389,    .03975,   -.01239,    .00098,    .00001,
     +    -.00002,    .00036,    .00045,
     +     .14590,    .03753,   -.01155,    .00091,    .00001,
     +    -.00002,    .00033,    .00041,
     +     .13684,    .03502,   -.01063,    .00085,    .00002,
     +     .00000,    .00032,    .00039,
     +     .12935,    .03295,   -.00982,    .00080,    .00002,
     +     .00000,    .00028,    .00036,
     +     .12292,    .03120,   -.00916,    .00074,    .00003,
     +     .00001,    .00027,    .00033,
     +     .11527,    .02911,   -.00834,    .00067,    .00003,
     +     .00001,    .00026,    .00031,
     +     .10856,    .02729,   -.00764,    .00064,    .00003,
     +     .00001,    .00025,    .00029,
     +     .10266,    .02571,   -.00701,    .00062,    .00002,
     +     .00001,    .00024,    .00025 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09716,    .02423,   -.00644,    .00056,    .00003,
     +     .00002,    .00021,    .00024,
     +     .09211,    .02289,   -.00595,    .00051,    .00003,
     +     .00002,    .00019,    .00024,
     +     .08756,    .02168,   -.00549,    .00049,    .00003,
     +     .00002,    .00018,    .00022,
     +     .08352,    .02060,   -.00510,    .00046,    .00003,
     +     .00002,    .00018,    .00021,
     +     .07967,    .01959,   -.00472,    .00043,    .00003,
     +     .00002,    .00017,    .00019,
     +     .07606,    .01866,   -.00436,    .00041,    .00003,
     +     .00002,    .00015,    .00018,
     +     .07280,    .01780,   -.00406,    .00040,    .00003,
     +     .00002,    .00014,    .00017,
     +     .06986,    .01704,   -.00380,    .00038,    .00002,
     +     .00002,    .00014,    .00017 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06704,    .01631,   -.00353,    .00035,    .00002,
     +     .00001,    .00013,    .00015,
     +     .06439,    .01562,   -.00331,    .00033,    .00002,
     +     .00001,    .00013,    .00014,
     +     .06194,    .01500,   -.00310,    .00032,    .00003,
     +     .00002,    .00012,    .00014,
     +     .05972,    .01443,   -.00291,    .00030,    .00003,
     +     .00002,    .00012,    .00013,
     +     .05756,    .01387,   -.00272,    .00029,    .00003,
     +     .00002,    .00011,    .00013 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .37233,    .10269,   -.04657,    .00223,    .00000,
     +     .00000,    .00071,    .00099,
     +     .34831,    .09528,   -.04422,    .00214,    .00000,
     +     .00000,    .00071,    .00085,
     +     .31635,    .08550,   -.04006,    .00190,   -.00031,
     +     .00000,    .00064,    .00081,
     +     .29554,    .07930,   -.03771,    .00173,   -.00025,
     +     .00000,    .00061,    .00072,
     +     .27557,    .07339,   -.03532,    .00161,   -.00020,
     +     .00000,    .00059,    .00066,
     +     .25967,    .06868,   -.03324,    .00147,   -.00016,
     +     .00000,    .00055,    .00067,
     +     .24539,    .06452,   -.03124,    .00135,   -.00013,
     +     .00000,    .00051,    .00064,
     +     .23121,    .06046,   -.02921,    .00128,   -.00011,
     +     .00000,    .00050,    .00058 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .21973,    .05716,   -.02747,    .00116,   -.00009,
     +     .00000,    .00046,    .00054,
     +     .20927,    .05419,   -.02592,    .00110,   -.00006,
     +     .00000,    .00045,    .00052,
     +     .20134,    .05196,   -.02472,    .00108,   -.00006,
     +     .00000,    .00044,    .00049,
     +     .18570,    .04759,   -.02223,    .00096,   -.00004,
     +     .00000,    .00038,    .00044,
     +     .17355,    .04421,   -.02032,    .00088,   -.00003,
     +    -.00006,    .00036,    .00041,
     +     .16108,    .04075,   -.01852,    .00082,   -.00002,
     +    -.00004,    .00032,    .00039,
     +     .14920,    .03750,   -.01675,    .00072,   -.00001,
     +    -.00003,    .00030,    .00036,
     +     .13930,    .03482,   -.01528,    .00066,    .00000,
     +    -.00002,    .00028,    .00033 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13002,    .03235,   -.01390,    .00062,    .00000,
     +    -.00002,    .00027,    .00029,
     +     .12289,    .03042,   -.01287,    .00058,    .00001,
     +     .00000,    .00026,    .00027,
     +     .11485,    .02827,   -.01167,    .00053,    .00001,
     +     .00000,    .00023,    .00024,
     +     .10824,    .02654,   -.01071,    .00047,    .00001,
     +     .00000,    .00020,    .00024,
     +     .10251,    .02503,   -.00989,    .00045,    .00001,
     +     .00000,    .00019,    .00023,
     +     .09579,    .02328,   -.00893,    .00042,    .00002,
     +     .00001,    .00018,    .00020,
     +     .08992,    .02176,   -.00813,    .00038,    .00002,
     +     .00001,    .00017,    .00019,
     +     .08478,    .02043,   -.00743,    .00034,    .00002,
     +     .00001,    .00017,    .00018 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07994,    .01921,   -.00679,    .00034,    .00002,
     +     .00001,    .00015,    .00017,
     +     .07553,    .01809,   -.00620,    .00033,    .00002,
     +     .00001,    .00012,    .00014,
     +     .07164,    .01709,   -.00570,    .00030,    .00001,
     +     .00001,    .00013,    .00012,
     +     .06815,    .01620,   -.00526,    .00029,    .00001,
     +     .00001,    .00011,    .00011,
     +     .06484,    .01536,   -.00489,    .00027,    .00001,
     +     .00001,    .00012,    .00012,
     +     .06176,    .01459,   -.00451,    .00026,    .00001,
     +     .00001,    .00010,    .00012,
     +     .05899,    .01389,   -.00419,    .00024,    .00002,
     +     .00002,    .00010,    .00012,
     +     .05650,    .01327,   -.00391,    .00023,    .00002,
     +     .00002,    .00009,    .00010 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05412,    .01267,   -.00364,    .00020,    .00002,
     +     .00002,    .00009,    .00010,
     +     .05187,    .01212,   -.00339,    .00019,    .00002,
     +     .00002,    .00008,    .00009,
     +     .04980,    .01160,   -.00316,    .00018,    .00002,
     +     .00001,    .00008,    .00009,
     +     .04792,    .01114,   -.00297,    .00018,    .00002,
     +     .00001,    .00008,    .00008,
     +     .04608,    .01071,   -.00279,    .00018,    .00002,
     +     .00001,    .00008,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .33352,    .08858,   -.06181,    .00183,    .00000,
     +     .00000,    .00034,    .00051,
     +     .31055,    .08180,   -.05709,    .00160,    .00000,
     +     .00000,    .00034,    .00051,
     +     .27989,    .07292,   -.05032,    .00149,   -.00021,
     +     .00000,    .00034,    .00048,
     +     .26029,    .06729,   -.04635,    .00135,   -.00017,
     +     .00000,    .00035,    .00041,
     +     .24159,    .06201,   -.04237,    .00119,   -.00013,
     +     .00000,    .00030,    .00038,
     +     .22665,    .05783,   -.03919,    .00111,   -.00011,
     +     .00000,    .00029,    .00034,
     +     .21337,    .05413,   -.03634,    .00103,   -.00009,
     +     .00000,    .00030,    .00033,
     +     .20029,    .05050,   -.03353,    .00096,   -.00007,
     +     .00000,    .00028,    .00034 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .18964,    .04757,   -.03115,    .00091,   -.00006,
     +     .00000,    .00025,    .00030,
     +     .18004,    .04496,   -.02905,    .00085,   -.00004,
     +     .00000,    .00022,    .00027,
     +     .17283,    .04301,   -.02749,    .00079,   -.00004,
     +     .00000,    .00022,    .00026,
     +     .15861,    .03920,   -.02447,    .00072,   -.00003,
     +     .00000,    .00021,    .00025,
     +     .14763,    .03626,   -.02217,    .00065,   -.00002,
     +    -.00004,    .00021,    .00023,
     +     .13638,    .03330,   -.01990,    .00060,   -.00001,
     +    -.00002,    .00018,    .00020,
     +     .12573,    .03051,   -.01779,    .00054,   -.00001,
     +    -.00002,    .00015,    .00019,
     +     .11693,    .02819,   -.01608,    .00048,    .00000,
     +    -.00001,    .00014,    .00018 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10873,    .02609,   -.01447,    .00043,    .00000,
     +    -.00001,    .00013,    .00016,
     +     .10241,    .02447,   -.01329,    .00040,    .00000,
     +    -.00001,    .00012,    .00014,
     +     .09534,    .02266,   -.01199,    .00038,    .00001,
     +     .00000,    .00011,    .00013,
     +     .08956,    .02120,   -.01095,    .00035,    .00001,
     +     .00000,    .00010,    .00013,
     +     .08458,    .01994,   -.01006,    .00032,    .00001,
     +     .00000,    .00010,    .00013,
     +     .07871,    .01848,   -.00903,    .00031,    .00001,
     +     .00000,    .00009,    .00012,
     +     .07364,    .01721,   -.00816,    .00028,    .00001,
     +     .00000,    .00008,    .00010,
     +     .06920,    .01612,   -.00742,    .00026,    .00001,
     +     .00000,    .00008,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06511,    .01509,   -.00675,    .00023,    .00001,
     +     .00000,    .00008,    .00008,
     +     .06137,    .01416,   -.00617,    .00020,    .00001,
     +     .00000,    .00008,    .00008,
     +     .05799,    .01335,   -.00565,    .00021,    .00001,
     +     .00001,    .00007,    .00008,
     +     .05501,    .01263,   -.00521,    .00021,    .00001,
     +     .00001,    .00007,    .00007,
     +     .05221,    .01195,   -.00479,    .00019,    .00001,
     +     .00001,    .00006,    .00005,
     +     .04961,    .01132,   -.00443,    .00018,    .00001,
     +     .00001,    .00006,    .00006,
     +     .04729,    .01075,   -.00411,    .00017,    .00001,
     +     .00001,    .00006,    .00006,
     +     .04519,    .01026,   -.00382,    .00015,    .00001,
     +     .00001,    .00004,    .00006 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04317,    .00976,   -.00354,    .00014,    .00001,
     +     .00001,    .00004,    .00006,
     +     .04128,    .00932,   -.00329,    .00012,    .00001,
     +     .00001,    .00004,    .00006,
     +     .03956,    .00891,   -.00309,    .00013,    .00001,
     +     .00001,    .00005,    .00005,
     +     .03800,    .00854,   -.00290,    .00012,    .00001,
     +     .00001,    .00005,    .00005,
     +     .03650,    .00818,   -.00271,    .00012,    .00001,
     +     .00001,    .00003,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .29446,    .07476,   -.07045,    .00108,    .00000,
     +     .00000,    .00035,    .00038,
     +     .27272,    .06872,   -.06403,    .00095,    .00000,
     +     .00000,    .00033,    .00035,
     +     .24413,    .06087,   -.05541,    .00082,   -.00013,
     +     .00000,    .00031,    .00029,
     +     .22584,    .05593,   -.05033,    .00077,   -.00011,
     +     .00000,    .00027,    .00029,
     +     .20852,    .05124,   -.04548,    .00071,   -.00009,
     +     .00000,    .00027,    .00029,
     +     .19480,    .04759,   -.04159,    .00067,   -.00007,
     +     .00000,    .00025,    .00026,
     +     .18266,    .04439,   -.03821,    .00063,   -.00005,
     +     .00000,    .00022,    .00024,
     +     .17077,    .04127,   -.03487,    .00056,   -.00004,
     +     .00000,    .00022,    .00021 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16110,    .03878,   -.03227,    .00055,   -.00004,
     +     .00000,    .00020,    .00022,
     +     .15243,    .03653,   -.02988,    .00051,   -.00003,
     +     .00000,    .00019,    .00022,
     +     .14600,    .03484,   -.02809,    .00045,   -.00003,
     +     .00000,    .00017,    .00020,
     +     .13327,    .03157,   -.02470,    .00041,   -.00002,
     +     .00000,    .00016,    .00016,
     +     .12346,    .02911,   -.02217,    .00039,   -.00001,
     +    -.00002,    .00015,    .00013,
     +     .11355,    .02661,   -.01975,    .00034,   -.00001,
     +    -.00002,    .00013,    .00013,
     +     .10420,    .02426,   -.01751,    .00031,   -.00001,
     +    -.00002,    .00012,    .00012,
     +     .09647,    .02234,   -.01569,    .00029,    .00000,
     +    -.00001,    .00011,    .00011 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .08934,    .02058,   -.01407,    .00025,    .00000,
     +     .00000,    .00011,    .00011,
     +     .08386,    .01925,   -.01286,    .00024,    .00000,
     +     .00000,    .00010,    .00008,
     +     .07774,    .01776,   -.01150,    .00022,    .00000,
     +     .00000,    .00008,    .00007,
     +     .07276,    .01655,   -.01042,    .00020,    .00000,
     +     .00000,    .00007,    .00006,
     +     .06850,    .01552,   -.00954,    .00019,    .00000,
     +     .00000,    .00007,    .00007,
     +     .06351,    .01433,   -.00853,    .00018,    .00000,
     +     .00000,    .00006,    .00007,
     +     .05920,    .01329,   -.00768,    .00016,    .00001,
     +     .00001,    .00006,    .00007,
     +     .05546,    .01240,   -.00695,    .00015,    .00001,
     +     .00001,    .00006,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05199,    .01158,   -.00631,    .00014,    .00001,
     +     .00001,    .00006,    .00006,
     +     .04882,    .01084,   -.00573,    .00012,    .00001,
     +     .00001,    .00005,    .00006,
     +     .04601,    .01019,   -.00526,    .00011,    .00001,
     +     .00001,    .00005,    .00006,
     +     .04355,    .00960,   -.00481,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04122,    .00907,   -.00441,    .00010,    .00001,
     +     .00001,    .00003,    .00005,
     +     .03906,    .00856,   -.00406,    .00010,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03713,    .00812,   -.00375,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03540,    .00772,   -.00348,    .00008,    .00001,
     +     .00001,    .00003,    .00002 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03374,    .00734,   -.00323,    .00008,    .00001,
     +     .00001,    .00003,    .00002,
     +     .03219,    .00699,   -.00300,    .00008,    .00001,
     +     .00001,    .00003,    .00002,
     +     .03078,    .00667,   -.00279,    .00007,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02952,    .00637,   -.00260,    .00006,    .00001,
     +     .00001,    .00002,    .00002,
     +     .02828,    .00609,   -.00244,    .00006,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .21978,    .05127,   -.07353,    .00045,    .00000,
     +     .00000,    .00011,    .00014,
     +     .20129,    .04663,   -.06556,    .00045,    .00000,
     +     .00000,    .00012,    .00012,
     +     .17743,    .04068,   -.05540,    .00037,   -.00005,
     +     .00000,    .00012,    .00014,
     +     .16242,    .03700,   -.04931,    .00036,   -.00004,
     +     .00000,    .00011,    .00011,
     +     .14843,    .03357,   -.04368,    .00033,   -.00003,
     +     .00000,    .00009,    .00009,
     +     .13749,    .03092,   -.03936,    .00028,   -.00003,
     +     .00000,    .00007,    .00009,
     +     .12786,    .02861,   -.03563,    .00024,   -.00002,
     +     .00000,    .00007,    .00007,
     +     .11851,    .02639,   -.03212,    .00020,   -.00002,
     +     .00000,    .00007,    .00009 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11102,    .02459,   -.02934,    .00019,   -.00002,
     +     .00000,    .00007,    .00007,
     +     .10433,    .02302,   -.02692,    .00019,   -.00002,
     +     .00000,    .00007,    .00007,
     +     .09934,    .02185,   -.02514,    .00018,   -.00001,
     +     .00000,    .00007,    .00007,
     +     .08969,    .01959,   -.02174,    .00016,   -.00001,
     +     .00000,    .00005,    .00005,
     +     .08236,    .01790,   -.01930,    .00014,   -.00001,
     +    -.00001,    .00005,    .00005,
     +     .07500,    .01620,   -.01697,    .00013,   -.00001,
     +    -.00001,    .00005,    .00005,
     +     .06813,    .01463,   -.01481,    .00011,   -.00001,
     +    -.00001,    .00005,    .00004,
     +     .06252,    .01336,   -.01312,    .00009,   -.00001,
     +    -.00001,    .00004,    .00004 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05739,    .01220,   -.01162,    .00009,    .00000,
     +     .00000,    .00004,    .00004,
     +     .05349,    .01132,   -.01048,    .00008,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04918,    .01037,   -.00929,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04569,    .00959,   -.00839,    .00007,    .00000,
     +     .00000,    .00002,    .00004,
     +     .04273,    .00893,   -.00762,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .03929,    .00818,   -.00672,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03636,    .00753,   -.00602,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .03383,    .00699,   -.00542,    .00005,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03150,    .00647,   -.00489,    .00004,    .00000,
     +     .00000,    .00003,    .00003,
     +     .02940,    .00603,   -.00439,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02754,    .00562,   -.00398,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02592,    .00528,   -.00364,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02440,    .00496,   -.00334,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02300,    .00466,   -.00306,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02173,    .00439,   -.00281,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02062,    .00415,   -.00259,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01956,    .00393,   -.00239,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01857,    .00372,   -.00222,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01768,    .00353,   -.00206,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01689,    .00337,   -.00193,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01610,    .00321,   -.00180,    .00003,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .15252,    .03246,   -.06344,    .00017,    .00000,
     +     .00000,    .00005,    .00005,
     +     .13812,    .02917,   -.05575,    .00017,    .00000,
     +     .00000,    .00005,    .00005,
     +     .11983,    .02508,   -.04617,    .00014,   -.00002,
     +     .00000,    .00003,    .00003,
     +     .10850,    .02257,   -.04054,    .00011,   -.00001,
     +     .00000,    .00003,    .00003,
     +     .09802,    .02026,   -.03543,    .00009,   -.00001,
     +     .00000,    .00003,    .00003,
     +     .08992,    .01849,   -.03156,    .00007,   -.00001,
     +     .00000,    .00003,    .00003,
     +     .08287,    .01696,   -.02832,    .00008,   -.00001,
     +     .00000,    .00003,    .00003,
     +     .07609,    .01549,   -.02524,    .00010,   -.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=9,16)/
     +     .07072,    .01435,   -.02284,    .00008,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06598,    .01332,   -.02075,    .00006,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06249,    .01259,   -.01928,    .00006,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05575,    .01115,   -.01647,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05069,    .01009,   -.01448,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04567,    .00904,   -.01255,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04105,    .00807,   -.01084,    .00002,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03728,    .00730,   -.00951,    .00002,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03390,    .00660,   -.00833,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03137,    .00608,   -.00749,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02858,    .00551,   -.00658,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02634,    .00506,   -.00588,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02446,    .00468,   -.00530,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02230,    .00426,   -.00466,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02047,    .00389,   -.00413,    .00001,    .00000,
     +     .00000,    .00001,    .00000,
     +     .01889,    .00358,   -.00368,    .00001,    .00000,
     +     .00000,    .00001,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01745,    .00330,   -.00328,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01617,    .00304,   -.00296,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01505,    .00282,   -.00265,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01408,    .00264,   -.00242,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01316,    .00246,   -.00220,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01233,    .00229,   -.00199,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01159,    .00215,   -.00183,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01094,    .00202,   -.00169,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .01032,    .00191,   -.00154,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00975,    .00180,   -.00142,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00925,    .00169,   -.00131,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00878,    .00161,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00834,    .00152,   -.00113,    .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)/
     +     .09638,    .01849,   -.04698,    .00010,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .08620,    .01645,   -.04074,    .00007,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .07347,    .01389,   -.03321,    .00007,    .00000,
     +     .00000,    .00000,    .00000,
     +     .06572,    .01236,   -.02878,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05861,    .01097,   -.02484,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05321,    .00991,   -.02191,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04858,    .00900,   -.01944,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04416,    .00813,   -.01716,    .00002,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04069,    .00748,   -.01542,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03764,    .00688,   -.01391,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03541,    .00644,   -.01282,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03115,    .00565,   -.01082,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02802,    .00505,   -.00941,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02494,    .00448,   -.00808,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02214,    .00396,   -.00690,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01992,    .00353,   -.00599,    .00002,    .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)/
     +     .01792,    .00317,   -.00520,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01643,    .00290,   -.00464,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01481,    .00260,   -.00403,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01355,    .00235,   -.00356,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01247,    .00217,   -.00319,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01125,    .00195,   -.00277,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01022,    .00176,   -.00243,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00936,    .00161,   -.00216,    .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)/
     +     .00858,    .00147,   -.00192,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00789,    .00134,   -.00170,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00728,    .00125,   -.00153,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00676,    .00115,   -.00138,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00627,    .00106,   -.00124,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00584,    .00099,   -.00112,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00546,    .00092,   -.00103,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00513,    .00086,   -.00094,    .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)/
     +     .00481,    .00081,   -.00086,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00451,    .00075,   -.00078,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00426,    .00071,   -.00072,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00402,    .00066,   -.00066,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00380,    .00063,   -.00062,    .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)/
     +     .05329,    .00897,   -.02947,    .00000,    .00000,
     +     .00000,    .00000,    .00003,
     +     .04699,    .00786,   -.02521,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03924,    .00656,   -.02022,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03459,    .00576,   -.01730,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03045,    .00504,   -.01477,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02730,    .00451,   -.01289,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02463,    .00403,   -.01131,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02212,    .00362,   -.00988,    .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)/
     +     .02017,    .00328,   -.00879,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01848,    .00300,   -.00786,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01727,    .00280,   -.00722,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01494,    .00242,   -.00600,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01327,    .00214,   -.00516,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01164,    .00186,   -.00436,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01019,    .00164,   -.00369,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00905,    .00142,   -.00315,    .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)/
     +     .00804,    .00128,   -.00272,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00729,    .00114,   -.00238,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00650,    .00102,   -.00206,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00587,    .00092,   -.00180,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00537,    .00082,   -.00159,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00478,    .00074,   -.00138,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00430,    .00066,   -.00119,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00389,    .00060,   -.00104,    .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)/
     +     .00353,    .00054,   -.00092,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00322,    .00049,   -.00081,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00293,    .00046,   -.00072,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00271,    .00041,   -.00064,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00249,    .00038,   -.00057,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00230,    .00034,   -.00051,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00214,    .00033,   -.00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00199,    .00030,   -.00043,    .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)/
     +     .00185,    .00027,   -.00038,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00173,    .00026,   -.00035,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00161,    .00024,   -.00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00153,    .00023,   -.00029,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00143,    .00020,   -.00027,    .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)/
     +     .00752,    .00095,   -.00524,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00636,    .00080,   -.00434,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00500,    .00061,   -.00327,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00423,    .00051,   -.00271,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00355,    .00043,   -.00221,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00309,    .00037,   -.00188,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00269,    .00034,   -.00161,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00233,    .00028,   -.00136,    .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)/
     +     .00206,    .00026,   -.00117,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00184,    .00023,   -.00103,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00167,    .00020,   -.00092,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00139,    .00016,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00119,    .00013,   -.00061,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00100,    .00011,   -.00050,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00084,    .00009,   -.00040,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00072,    .00009,   -.00034,    .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)/
     +     .00062,    .00007,   -.00028,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00054,    .00007,   -.00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00047,    .00005,   -.00020,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00041,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00036,    .00005,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00031,    .00003,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00027,    .00003,   -.00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,   -.00009,    .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)/
     +     .00020,    .00003,   -.00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00019,    .00003,   -.00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00017,    .00001,   -.00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .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)/
     +     .00009,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .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='cor07dis.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