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

sfmrs_99d3.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d3(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)/
     +     .00515,    .00344,   1.17157,    .86093,    .00000,
     +     .00000,    .46130,    .86940,
     +     .00528,    .00350,   2.40193,    .90259,    .00000,
     +     .00000,    .50700,    .91122,
     +     .00549,    .00358,   4.80101,    .98679,    .01842,
     +     .00000,    .59703,    .99563,
     +     .00564,    .00364,   7.08586,   1.06473,    .06729,
     +     .00000,    .67909,   1.07371,
     +     .00580,    .00371,   9.86313,   1.16270,    .17965,
     +     .00000,    .78126,   1.17183,
     +     .00594,    .00377,  12.73980,   1.26213,    .28628,
     +     .00000,    .88426,   1.27139,
     +     .00606,    .00384,  15.97701,   1.36918,    .40303,
     +     .00000,    .99468,   1.37856,
     +     .00621,    .00389,  19.95835,   1.49622,    .54366,
     +     .00000,   1.12522,   1.50570 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00634,    .00395,  23.84658,   1.61990,    .67454,
     +     .00000,   1.25190,   1.62948,
     +     .00646,    .00401,  28.02788,   1.75063,    .81332,
     +     .00000,   1.38548,   1.76029,
     +     .00656,    .00405,  31.69464,   1.86214,    .93411,
     +     .00000,   1.49922,   1.87188,
     +     .00677,    .00415,  40.43898,   2.12665,   1.21450,
     +     .00000,   1.76839,   2.13653,
     +     .00694,    .00424,  48.19613,   2.38191,   1.48273,
     +     .35952,   2.02757,   2.39190,
     +     .00716,    .00434,  58.36002,   2.70087,   1.81815,
     +     .74773,   2.35083,   2.71097,
     +     .00739,    .00445,  70.33687,   3.07109,   2.20652,
     +    1.15416,   2.72543,   3.08130,
     +     .00759,    .00455,  82.46417,   3.44236,   2.59523,
     +    1.56115,   3.10059,   3.45268 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00779,    .00465,  95.98572,   3.85366,   3.02545,
     +    2.00975,   3.51573,   3.86406,
     +     .00798,    .00474, 108.16166,   4.22373,   3.41048,
     +    2.40656,   3.88894,   4.23421,
     +     .00819,    .00485, 124.09653,   4.70855,   3.91292,
     +    2.92230,   4.37748,   4.71911,
     +     .00838,    .00495, 139.37021,   5.17248,   4.39426,
     +    3.41871,   4.84466,   5.18311,
     +     .00856,    .00504, 154.37072,   5.62819,   4.86705,
     +    3.90662,   5.30329,   5.63887,
     +     .00879,    .00515, 174.55965,   6.24661,   5.50437,
     +    4.55783,   5.92535,   6.25736,
     +     .00902,    .00526, 194.94695,   6.87293,   6.15012,
     +    5.21949,   6.55505,   6.88375,
     +     .00922,    .00537, 215.37767,   7.50185,   6.79952,
     +    5.88722,   7.18706,   7.51273 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00943,    .00548, 236.70477,   8.16683,   7.48128,
     +    6.58119,   7.85508,   8.17777,
     +     .00964,    .00558, 258.82695,   8.85892,   8.19209,
     +    7.30767,   8.55010,   8.86991,
     +     .00984,    .00569, 280.83898,   9.55181,   8.90325,
     +    8.03441,   9.24572,   9.56283,
     +     .01003,    .00579, 302.32882,  10.23549,   9.60264,
     +    8.74627,   9.93194,  10.24655,
     +     .01023,    .00589, 325.04690,  10.95999,  10.34544,
     +    9.50528,  10.65894,  10.97108,
     +     .01042,    .00598, 347.94625,  11.70028,  11.10090,
     +   10.27268,  11.40167,  11.71140,
     +     .01060,    .00609, 370.82275,  12.44084,  11.85879,
     +   11.04615,  12.14451,  12.45199,
     +     .01077,    .00617, 392.84046,  13.16359,  12.59523,
     +   11.79363,  12.86939,  13.17476 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01095,    .00627, 416.00500,  13.92588,  13.37345,
     +   12.58604,  13.63381,  13.93708,
     +     .01113,    .00636, 439.36275,  14.70271,  14.16480,
     +   13.38985,  14.41270,  14.71393,
     +     .01130,    .00646, 462.32853,  15.47135,  14.94771,
     +   14.18524,  15.18330,  15.48259,
     +     .01147,    .00654, 484.80033,  16.22723,  15.71804,
     +   14.96879,  15.94101,  16.23848,
     +     .01163,    .00663, 507.77326,  17.00965,  16.51306,
     +   15.77457,  16.72526,  17.02092 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00727,    .00463,   1.06926,    .73842,    .00000,
     +     .00000,    .39556,    .74362,
     +     .00745,    .00472,   2.17403,    .77608,    .00000,
     +     .00000,    .43645,    .78137,
     +     .00772,    .00484,   4.28426,    .84969,    .01671,
     +     .00000,    .51472,    .85511,
     +     .00793,    .00493,   6.25693,    .91639,    .05812,
     +     .00000,    .58470,    .92190,
     +     .00815,    .00503,   8.61596,    .99895,    .15293,
     +     .00000,    .67061,   1.00456,
     +     .00833,    .00512,  11.02529,   1.08175,    .24176,
     +     .00000,    .75624,   1.08743,
     +     .00852,    .00520,  13.70515,   1.17016,    .33810,
     +     .00000,    .84731,   1.17591,
     +     .00871,    .00530,  16.96342,   1.27423,    .45314,
     +     .00000,    .95416,   1.28004 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00888,    .00538,  20.10997,   1.37473,    .55923,
     +     .00000,   1.05704,   1.38061,
     +     .00904,    .00546,  23.46170,   1.48026,    .67096,
     +     .00000,   1.16483,   1.48620,
     +     .00918,    .00553,  26.37842,   1.56984,    .76766,
     +     .00000,   1.25616,   1.57582,
     +     .00946,    .00567,  33.26071,   1.78064,    .99027,
     +     .00000,   1.47063,   1.78670,
     +     .00972,    .00579,  39.26452,   1.98225,   1.20120,
     +     .28312,   1.67534,   1.98839,
     +     .01000,    .00594,  47.04863,   2.23206,   1.46265,
     +     .58607,   1.92853,   2.23827,
     +     .01031,    .00609,  56.10528,   2.51939,   1.76257,
     +     .89962,   2.21930,   2.52567,
     +     .01058,    .00623,  65.16672,   2.80511,   2.06016,
     +    1.21081,   2.50807,   2.81146 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01087,    .00638,  75.15907,   3.11912,   2.38690,
     +    1.55096,   2.82510,   3.12553,
     +     .01112,    .00649,  84.06755,   3.39961,   2.67716,
     +    1.84951,   3.10806,   3.40608,
     +     .01141,    .00665,  95.61253,   3.76441,   3.05318,
     +    2.23466,   3.47579,   3.77094,
     +     .01167,    .00678, 106.57360,   4.11105,   3.41091,
     +    2.60280,   3.82497,   4.11763,
     +     .01192,    .00691, 117.24894,   4.44941,   3.76012,
     +    2.96238,   4.16561,   4.45603,
     +     .01223,    .00707, 131.48171,   4.90532,   4.22748,
     +    3.43873,   4.62438,   4.91199,
     +     .01252,    .00722, 145.72002,   5.36377,   4.69770,
     +    3.91936,   5.08545,   5.37048,
     +     .01281,    .00737, 159.86899,   5.82113,   5.16761,
     +    4.40141,   5.54522,   5.82789 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01310,    .00752, 174.50725,   6.30143,   5.65755,
     +    4.89877,   6.02792,   6.30824,
     +     .01337,    .00766, 189.57521,   6.79832,   6.16539,
     +    5.41650,   6.52709,   6.80516,
     +     .01364,    .00780, 204.45686,   7.29286,   6.67059,
     +    5.93148,   7.02376,   7.29973,
     +     .01390,    .00794, 218.87766,   7.77803,   7.16458,
     +    6.43294,   7.51091,   7.78494,
     +     .01417,    .00808, 234.02961,   8.28964,   7.68677,
     +    6.96524,   8.02448,   8.29657,
     +     .01442,    .00821, 249.19057,   8.80945,   8.21483,
     +    7.50020,   8.54619,   8.81641,
     +     .01467,    .00834, 264.25410,   9.32710,   8.74236,
     +    8.03729,   9.06563,   9.33410,
     +     .01491,    .00848, 278.65446,   9.82972,   9.25225,
     +    8.55346,   9.56990,   9.83674 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01515,    .00860, 293.73023,  10.35765,   9.78900,
     +    9.09866,  10.09950,  10.36470,
     +     .01539,    .00873, 308.83997,  10.89312,  10.33224,
     +    9.64905,  10.63659,  10.90018,
     +     .01562,    .00885, 323.61970,  11.42074,  10.86752,
     +   10.19151,  11.16573,  11.42783,
     +     .01584,    .00897, 338.01358,  11.93759,  11.39225,
     +   10.72398,  11.68402,  11.94471,
     +     .01607,    .00909, 352.64456,  12.47026,  11.93137,
     +   11.26902,  12.21811,  12.47739 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .01022,    .00624,    .97505,    .63331,    .00000,
     +     .00000,    .33952,    .63626,
     +     .01046,    .00637,   1.96707,    .66722,    .00000,
     +     .00000,    .37603,    .67022,
     +     .01084,    .00655,   3.82242,    .73144,    .01531,
     +     .00000,    .44395,    .73451,
     +     .01111,    .00668,   5.52442,    .78841,    .05033,
     +     .00000,    .50356,    .79153,
     +     .01141,    .00682,   7.52597,    .85786,    .13023,
     +     .00000,    .57568,    .86104,
     +     .01166,    .00696,   9.54094,    .92664,    .20413,
     +     .00000,    .64671,    .92986,
     +     .01191,    .00708,  11.75558,    .99947,    .28350,
     +     .00000,    .72165,   1.00271,
     +     .01218,    .00721,  14.41679,   1.08450,    .37746,
     +     .00000,    .80888,   1.08780 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01241,    .00733,  16.95729,   1.16591,    .46333,
     +     .00000,    .89217,   1.16925,
     +     .01264,    .00745,  19.63728,   1.25083,    .55310,
     +     .00000,    .97887,   1.25419,
     +     .01283,    .00754,  21.95115,   1.32254,    .63040,
     +     .00000,   1.05198,   1.32593,
     +     .01322,    .00773,  27.35228,   1.48995,    .80679,
     +     .00000,   1.22226,   1.49338,
     +     .01357,    .00792,  31.98257,   1.64858,    .97233,
     +     .22240,   1.38334,   1.65207,
     +     .01396,    .00812,  37.92147,   1.84344,   1.17569,
     +     .45860,   1.58086,   1.84698,
     +     .01437,    .00833,  44.74179,   2.06553,   1.40678,
     +     .70023,   1.80565,   2.06911,
     +     .01475,    .00853,  51.48248,   2.28446,   1.63406,
     +     .93790,   2.02697,   2.28808 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01515,    .00873,  58.83222,   2.52314,   1.88158,
     +    1.19550,   2.26801,   2.52681,
     +     .01547,    .00890,  65.31765,   2.73476,   2.09979,
     +    1.41980,   2.48155,   2.73847,
     +     .01588,    .00911,  73.63826,   3.00798,   2.38040,
     +    1.70700,   2.75705,   3.01172,
     +     .01623,    .00930,  81.46132,   3.26573,   2.64546,
     +    1.97955,   3.01679,   3.26951,
     +     .01656,    .00947,  89.01540,   3.51573,   2.90259,
     +    2.24410,   3.26857,   3.51953,
     +     .01699,    .00970,  98.98883,   3.85014,   3.24417,
     +    2.59185,   3.60520,   3.85399,
     +     .01739,    .00991, 108.87052,   4.18397,   3.58540,
     +    2.94024,   3.94107,   4.18786,
     +     .01778,    .01011, 118.60576,   4.51483,   3.92423,
     +    3.28748,   4.27380,   4.51874 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01816,    .01032, 128.58452,   4.85985,   4.27497,
     +    3.64304,   4.62069,   4.86382,
     +     .01854,    .01052, 138.77576,   5.21462,   4.63639,
     +    4.01105,   4.97723,   5.21861,
     +     .01891,    .01072, 148.76376,   5.56563,   4.99385,
     +    4.37499,   5.32990,   5.56965,
     +     .01926,    .01089, 158.36789,   5.90796,   5.34129,
     +    4.72719,   5.67376,   5.91200,
     +     .01960,    .01109, 168.39605,   6.26713,   5.70683,
     +    5.09937,   6.03445,   6.27121,
     +     .01996,    .01126, 178.35298,   6.62996,   6.07428,
     +    5.47109,   6.39876,   6.63407,
     +     .02028,    .01145, 188.19135,   6.98965,   6.43982,
     +    5.84281,   6.75983,   6.99378,
     +     .02060,    .01162, 197.52971,   7.33702,   6.79119,
     +    6.19799,   7.10850,   7.34118 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02093,    .01179, 207.25710,   7.70039,   7.15963,
     +    6.57178,   7.47315,   7.70457,
     +     .02125,    .01197, 216.94458,   8.06716,   7.53071,
     +    6.94723,   7.84118,   8.07136,
     +     .02156,    .01213, 226.37001,   8.42702,   7.89483,
     +    7.31576,   8.20222,   8.43125,
     +     .02185,    .01229, 235.50493,   8.77816,   8.25043,
     +    7.67617,   8.55448,   8.78241,
     +     .02216,    .01245, 244.73411,   9.13842,   8.61409,
     +    8.04330,   8.91584,   9.14268 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01244,    .00744,    .92319,    .57895,    .00000,
     +     .00000,    .31075,    .58101,
     +     .01274,    .00759,   1.85479,    .61078,    .00000,
     +     .00000,    .34485,    .61287,
     +     .01319,    .00782,   3.57519,    .66996,    .01465,
     +     .00000,    .40732,    .67211,
     +     .01353,    .00799,   5.13602,    .72186,    .04635,
     +     .00000,    .46151,    .72402,
     +     .01389,    .00816,   6.95324,    .78455,    .11858,
     +     .00000,    .52654,    .78674,
     +     .01418,    .00832,   8.76689,    .84616,    .18487,
     +     .00000,    .59013,    .84840,
     +     .01449,    .00848,  10.74610,    .91107,    .25567,
     +     .00000,    .65688,    .91334,
     +     .01482,    .00864,  13.10776,    .98650,    .33904,
     +     .00000,    .73424,    .98879 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01510,    .00878,  15.34674,   1.05834,    .41483,
     +     .00000,    .80773,   1.06066,
     +     .01536,    .00892,  17.69497,   1.13298,    .49374,
     +     .00000,    .88391,   1.13532,
     +     .01558,    .00904,  19.71292,   1.19581,    .56146,
     +     .00000,    .94796,   1.19818,
     +     .01606,    .00929,  24.39299,   1.34180,    .71521,
     +     .00000,   1.09647,   1.34420,
     +     .01647,    .00950,  28.36338,   1.47938,    .85871,
     +     .19276,   1.23618,   1.48182,
     +     .01695,    .00975,  33.42286,   1.64751,   1.03404,
     +     .39680,   1.40662,   1.64999,
     +     .01745,    .01001,  39.18801,   1.83810,   1.23216,
     +     .60412,   1.59955,   1.84061,
     +     .01791,    .01025,  44.84412,   2.02500,   1.42601,
     +     .80696,   1.78853,   2.02755 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01837,    .01050,  50.96955,   2.22780,   1.63610,
     +    1.02571,   1.99338,   2.23038,
     +     .01877,    .01070,  56.34139,   2.40681,   1.82049,
     +    1.21530,   2.17406,   2.40943,
     +     .01925,    .01095,  63.19169,   2.63691,   2.05655,
     +    1.45694,   2.40614,   2.63957,
     +     .01967,    .01119,  69.59476,   2.85307,   2.27858,
     +    1.68531,   2.62402,   2.85575,
     +     .02007,    .01140,  75.74585,   3.06193,   2.49317,
     +    1.90613,   2.83442,   3.06464,
     +     .02058,    .01167,  83.81922,   3.34012,   2.77698,
     +    2.19506,   3.11452,   3.34287,
     +     .02106,    .01192,  91.77220,   3.61661,   3.05929,
     +    2.48332,   3.39279,   3.61940,
     +     .02152,    .01217,  99.56692,   3.88957,   3.33855,
     +    2.76953,   3.66738,   3.89239 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02198,    .01241, 107.51143,   4.17305,   3.62638,
     +    3.06128,   3.95246,   4.17591,
     +     .02244,    .01266, 115.58696,   4.46348,   3.92195,
     +    3.36222,   4.24442,   4.46636,
     +     .02288,    .01289, 123.46483,   4.74981,   4.21325,
     +    3.65879,   4.53218,   4.75273,
     +     .02328,    .01311, 131.00431,   5.02809,   4.49537,
     +    3.94474,   4.81178,   5.03102,
     +     .02370,    .01333, 138.84730,   5.31918,   4.79137,
     +    4.24610,   5.10418,   5.32215,
     +     .02412,    .01355, 146.59777,   5.61222,   5.08783,
     +    4.54595,   5.39850,   5.61522,
     +     .02452,    .01377, 154.23077,   5.90195,   5.38202,
     +    4.84510,   5.68942,   5.90497,
     +     .02490,    .01397, 161.44419,   6.18086,   5.66386,
     +    5.12993,   5.96944,   6.18391 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02528,    .01418, 168.93534,   6.47189,   5.95873,
     +    5.42905,   6.26159,   6.47498,
     +     .02566,    .01439, 176.36703,   6.76481,   6.25481,
     +    5.72857,   6.55558,   6.76792,
     +     .02603,    .01458, 183.57417,   7.05147,   6.54462,
     +    6.02184,   6.84327,   7.05461,
     +     .02638,    .01477, 190.53882,   7.33053,   6.82703,
     +    6.30805,   7.12329,   7.33370,
     +     .02674,    .01496, 197.54882,   7.61606,   7.11502,
     +    6.59872,   7.40977,   7.61924 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01431,    .00844,    .88771,    .54331,    .00000,
     +     .00000,    .29198,    .54490,
     +     .01464,    .00860,   1.77883,    .57367,    .00000,
     +     .00000,    .32444,    .57528,
     +     .01515,    .00887,   3.40934,    .62949,    .01426,
     +     .00000,    .38325,    .63113,
     +     .01554,    .00907,   4.87701,    .67799,    .04375,
     +     .00000,    .43387,    .67969,
     +     .01594,    .00928,   6.57343,    .73625,    .11096,
     +     .00000,    .49426,    .73796,
     +     .01630,    .00945,   8.25600,    .79319,    .17230,
     +     .00000,    .55300,    .79492,
     +     .01665,    .00964,  10.08271,    .85295,    .23754,
     +     .00000,    .61445,    .85471,
     +     .01701,    .00983,  12.25143,    .92216,    .31409,
     +     .00000,    .68541,    .92395 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01733,    .00999,  14.29721,    .98784,    .38340,
     +     .00000,    .75259,    .98965,
     +     .01765,    .01016,  16.43382,   1.05587,    .45536,
     +     .00000,    .82203,   1.05769,
     +     .01790,    .01029,  18.26373,   1.11302,    .51697,
     +     .00000,    .88030,   1.11487,
     +     .01843,    .01057,  22.48799,   1.24535,    .65636,
     +     .00000,   1.01491,   1.24722,
     +     .01891,    .01082,  26.04482,   1.36957,    .78592,
     +     .17394,   1.14106,   1.37148,
     +     .01945,    .01110,  30.55587,   1.52081,    .94363,
     +     .35780,   1.29440,   1.52276,
     +     .02002,    .01140,  35.66712,   1.69158,   1.12114,
     +     .54368,   1.46730,   1.69356,
     +     .02054,    .01168,  40.65506,   1.85845,   1.29414,
     +     .72485,   1.63604,   1.86046 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02107,    .01197,  46.03052,   2.03886,   1.48100,
     +     .91954,   1.81832,   2.04091,
     +     .02152,    .01220,  50.72358,   2.19763,   1.64448,
     +    1.08772,   1.97859,   2.19970,
     +     .02207,    .01249,  56.68209,   2.40105,   1.85310,
     +    1.30138,   2.18381,   2.40316,
     +     .02255,    .01275,  62.22802,   2.59158,   2.04874,
     +    1.50269,   2.37588,   2.59371,
     +     .02300,    .01299,  67.53597,   2.77516,   2.23730,
     +    1.69681,   2.56086,   2.77733,
     +     .02358,    .01331,  74.47281,   3.01892,   2.48589,
     +    1.94998,   2.80637,   3.02114,
     +     .02413,    .01359,  81.27765,   3.26046,   2.73242,
     +    2.20179,   3.04951,   3.26271,
     +     .02465,    .01387,  87.92210,   3.49825,   2.97561,
     +    2.45112,   3.28877,   3.50053 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02517,    .01415,  94.66645,   3.74446,   3.22550,
     +    2.70447,   3.53642,   3.74677,
     +     .02569,    .01443, 101.49855,   3.99603,   3.48144,
     +    2.96515,   3.78937,   3.99839,
     +     .02617,    .01469, 108.14105,   4.24344,   3.73306,
     +    3.22140,   4.03808,   4.24582,
     +     .02665,    .01494, 114.47623,   4.48327,   3.97613,
     +    3.46782,   4.27910,   4.48569,
     +     .02712,    .01520, 121.04886,   4.73364,   4.23064,
     +    3.72701,   4.53066,   4.73608,
     +     .02758,    .01545, 127.52132,   4.98502,   4.48486,
     +    3.98419,   4.78319,   4.98750,
     +     .02804,    .01570, 133.88071,   5.23310,   4.73670,
     +    4.24035,   5.03234,   5.23560,
     +     .02846,    .01593, 139.87086,   5.47135,   4.97738,
     +    4.48363,   5.27161,   5.47389 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02890,    .01616, 146.07851,   5.71954,   5.22877,
     +    4.73870,   5.52079,   5.72210,
     +     .02933,    .01640, 152.21894,   5.96879,   5.48067,
     +    4.99357,   5.77102,   5.97138,
     +     .02975,    .01662, 158.15999,   6.21228,   5.72677,
     +    5.24266,   6.01544,   6.21490,
     +     .03014,    .01683, 163.88885,   6.44894,   5.96620,
     +    5.48538,   6.25295,   6.45158,
     +     .03055,    .01704, 169.63894,   6.69058,   6.20987,
     +    5.73135,   6.49546,   6.69325 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01594,    .00930,    .86104,    .51722,    .00000,
     +     .00000,    .27829,    .51850,
     +     .01632,    .00949,   1.72204,    .54648,    .00000,
     +     .00000,    .30950,    .54778,
     +     .01688,    .00978,   3.28598,    .59978,    .01399,
     +     .00000,    .36560,    .60112,
     +     .01731,    .01001,   4.68519,    .64580,    .04187,
     +     .00000,    .41359,    .64717,
     +     .01776,    .01024,   6.29336,    .70078,    .10538,
     +     .00000,    .47058,    .70218,
     +     .01815,    .01045,   7.88056,    .75432,    .16311,
     +     .00000,    .52579,    .75575,
     +     .01853,    .01064,   9.59678,    .81035,    .22432,
     +     .00000,    .58339,    .81179,
     +     .01894,    .01086,  11.62621,    .87505,    .29593,
     +     .00000,    .64973,    .87651 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01929,    .01104,  13.53305,    .93628,    .36058,
     +     .00000,    .71235,    .93776,
     +     .01964,    .01123,  15.51799,    .99954,    .42755,
     +     .00000,    .77693,   1.00105,
     +     .01992,    .01138,  17.21348,   1.05263,    .48478,
     +     .00000,    .83104,   1.05415,
     +     .02052,    .01168,  21.11321,   1.17515,    .61390,
     +     .00000,    .95571,   1.17670,
     +     .02104,    .01197,  24.37788,   1.28984,    .73353,
     +     .16050,   1.07218,   1.29142,
     +     .02163,    .01228,  28.50279,   1.42906,    .87873,
     +     .33002,   1.21336,   1.43068,
     +     .02226,    .01262,  33.15565,   1.58577,   1.04164,
     +     .50076,   1.37206,   1.58743,
     +     .02285,    .01293,  37.67725,   1.73845,   1.19998,
     +     .66669,   1.52650,   1.74015 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02343,    .01324,  42.53133,   1.90310,   1.37052,
     +     .84449,   1.69288,   1.90483,
     +     .02393,    .01351,  46.75423,   2.04762,   1.51933,
     +     .99768,   1.83880,   2.04939,
     +     .02453,    .01383,  52.09727,   2.23236,   1.70877,
     +    1.19180,   2.02520,   2.23416,
     +     .02507,    .01411,  57.05377,   2.40495,   1.88600,
     +    1.37427,   2.19925,   2.40679,
     +     .02556,    .01438,  61.78362,   2.57092,   2.05647,
     +    1.54986,   2.36651,   2.57279,
     +     .02621,    .01473,  67.94406,   2.79075,   2.28063,
     +    1.77825,   2.58795,   2.79265,
     +     .02681,    .01505,  73.96728,   3.00805,   2.50241,
     +    2.00489,   2.80673,   3.00999,
     +     .02738,    .01536,  79.83125,   3.22149,   2.72071,
     +    2.22882,   3.02155,   3.22348 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02796,    .01567,  85.76371,   3.44198,   2.94447,
     +    2.45576,   3.24337,   3.44400,
     +     .02853,    .01597,  91.75719,   3.66682,   3.17321,
     +    2.68883,   3.46951,   3.66888,
     +     .02907,    .01627,  97.56890,   3.88750,   3.39764,
     +    2.91748,   3.69138,   3.88958,
     +     .02958,    .01654, 103.09659,   4.10098,   3.61399,
     +    3.13690,   3.90597,   4.10310,
     +     .03010,    .01683, 108.81920,   4.32348,   3.84017,
     +    3.36735,   4.12957,   4.32563,
     +     .03062,    .01711, 114.43890,   4.54644,   4.06564,
     +    3.59550,   4.35360,   4.54863,
     +     .03111,    .01737, 119.95034,   4.76614,   4.28868,
     +    3.82246,   4.57429,   4.76835,
     +     .03158,    .01763, 125.12816,   4.97675,   4.50142,
     +    4.03757,   4.78584,   4.97900 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03205,    .01788, 130.48480,   5.19585,   4.72334,
     +    4.26283,   5.00586,   5.19813,
     +     .03253,    .01814, 135.77146,   5.41551,   4.94533,
     +    4.48752,   5.22643,   5.41782,
     +     .03298,    .01839, 140.87674,   5.62980,   5.16192,
     +    4.70681,   5.44157,   5.63214,
     +     .03342,    .01862, 145.79150,   5.83778,   5.37237,
     +    4.92022,   5.65036,   5.84016,
     +     .03386,    .01887, 150.71324,   6.04982,   5.58617,
     +    5.13611,   5.86320,   6.05222 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02234,    .01267,    .78247,    .44413,    .00000,
     +     .00000,    .24034,    .44510,
     +     .02284,    .01294,   1.55697,    .47006,    .00000,
     +     .00000,    .26788,    .47105,
     +     .02362,    .01335,   2.93067,    .51600,    .01340,
     +     .00000,    .31612,    .51703,
     +     .02421,    .01366,   4.13629,    .55491,    .03667,
     +     .00000,    .35665,    .55596,
     +     .02482,    .01398,   5.49690,    .60069,    .08980,
     +     .00000,    .40405,    .60177,
     +     .02537,    .01428,   6.81870,    .64468,    .13746,
     +     .00000,    .44942,    .64579,
     +     .02589,    .01455,   8.22949,    .69031,    .18749,
     +     .00000,    .49634,    .69145,
     +     .02644,    .01485,   9.87658,    .74256,    .24552,
     +     .00000,    .54992,    .74373 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02693,    .01511,  11.40471,    .79156,    .29740,
     +     .00000,    .60005,    .79275,
     +     .02741,    .01536,  12.97865,    .84183,    .35078,
     +     .00000,    .65139,    .84305,
     +     .02779,    .01557,  14.31171,    .88377,    .39614,
     +     .00000,    .69418,    .88502,
     +     .02860,    .01601,  17.34222,    .97980,    .49758,
     +     .00000,    .79194,    .98108,
     +     .02931,    .01640,  19.83201,   1.06880,    .59065,
     +     .12417,    .88241,   1.07013,
     +     .03013,    .01684,  22.93921,   1.17589,    .70259,
     +     .25560,    .99108,   1.17726,
     +     .03099,    .01730,  26.39429,   1.29526,    .82694,
     +     .38637,   1.11205,   1.29668,
     +     .03179,    .01773,  29.70693,   1.41051,    .94668,
     +     .51228,   1.22872,   1.41198 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03259,    .01817,  33.21926,   1.53375,   1.07455,
     +     .64602,   1.35335,   1.53527,
     +     .03326,    .01854,  36.24027,   1.64107,   1.18525,
     +     .76030,   1.46181,   1.64263,
     +     .03407,    .01898,  40.02014,   1.77719,   1.32506,
     +     .90397,   1.59928,   1.77881,
     +     .03480,    .01938,  43.48914,   1.90341,   1.45488,
     +    1.03802,   1.72667,   1.90508,
     +     .03548,    .01974,  46.76836,   2.02398,   1.57891,
     +    1.16614,   1.84828,   2.02569,
     +     .03634,    .02021,  50.99250,   2.18245,   1.74070,
     +    1.33141,   2.00804,   2.18420,
     +     .03716,    .02066,  55.07876,   2.33788,   1.89956,
     +    1.49418,   2.16467,   2.33969,
     +     .03793,    .02108,  59.01936,   2.48952,   2.05489,
     +    1.65394,   2.31741,   2.49138 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03871,    .02150,  62.96331,   2.64497,   2.21283,
     +    1.81451,   2.47394,   2.64688,
     +     .03948,    .02192,  66.91340,   2.80248,   2.37328,
     +    1.97840,   2.63248,   2.80445,
     +     .04020,    .02232,  70.71079,   2.95610,   2.52973,
     +    2.13818,   2.78706,   2.95812,
     +     .04089,    .02270,  74.29014,   3.10377,   2.67955,
     +    2.29048,   2.93562,   3.10583,
     +     .04159,    .02307,  77.97069,   3.25686,   2.83542,
     +    2.44968,   3.08960,   3.25897,
     +     .04228,    .02345,  81.55186,   3.40930,   2.98974,
     +    2.60619,   3.24290,   3.41146,
     +     .04294,    .02381,  85.04337,   3.55880,   3.14174,
     +    2.76123,   3.39321,   3.56101,
     +     .04357,    .02416,  88.29503,   3.70128,   3.28582,
     +    2.90722,   3.53642,   3.70352 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04421,    .02450,  91.64095,   3.84885,   3.43551,
     +    3.05951,   3.68474,   3.85115,
     +     .04484,    .02485,  94.91790,   3.99602,   3.58441,
     +    3.21056,   3.83264,   3.99835,
     +     .04544,    .02518,  98.06327,   4.13893,   3.72904,
     +    3.35732,   3.97624,   4.14130,
     +     .04603,    .02550, 101.07475,   4.27707,   3.86902,
     +    3.49959,   4.11501,   4.27949,
     +     .04661,    .02582, 104.06750,   4.41718,   4.01046,
     +    3.64271,   4.25577,   4.41964 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .03134,    .01739,    .71128,    .38208,    .00000,
     +     .00000,    .20874,    .38352,
     +     .03204,    .01776,   1.40953,    .40477,    .00000,
     +     .00000,    .23279,    .40625,
     +     .03309,    .01832,   2.61561,    .44395,    .01316,
     +     .00000,    .27390,    .44548,
     +     .03389,    .01875,   3.65348,    .47650,    .03233,
     +     .00000,    .30782,    .47807,
     +     .03472,    .01920,   4.80213,    .51424,    .07645,
     +     .00000,    .34694,    .51588,
     +     .03544,    .01959,   5.89929,    .55005,    .11549,
     +     .00000,    .38390,    .55175,
     +     .03616,    .01998,   7.05420,    .58686,    .15609,
     +     .00000,    .42179,    .58860,
     +     .03691,    .02039,   8.38432,    .62864,    .20276,
     +     .00000,    .46470,    .63043 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03758,    .02075,   9.60176,    .66747,    .24410,
     +     .00000,    .50448,    .66930,
     +     .03823,    .02111,  10.84163,    .70701,    .28631,
     +     .00000,    .54493,    .70889,
     +     .03874,    .02139,  11.88231,    .73984,    .32199,
     +     .00000,    .57846,    .74176,
     +     .03985,    .02200,  14.21888,    .81433,    .40108,
     +     .00000,    .65442,    .81633,
     +     .04084,    .02253,  16.10136,    .88272,    .47294,
     +     .09463,    .72403,    .88479,
     +     .04194,    .02315,  18.41816,    .96423,    .55855,
     +     .19589,    .80687,    .96638,
     +     .04310,    .02378,  20.95521,   1.05420,    .65270,
     +     .29539,    .89818,   1.05642,
     +     .04418,    .02437,  23.35274,   1.14025,    .74251,
     +     .39030,    .98542,   1.14256 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04526,    .02498,  25.86118,   1.23146,    .83758,
     +     .49022,   1.07781,   1.23385,
     +     .04617,    .02547,  27.99242,   1.31026,    .91918,
     +     .57486,   1.15757,   1.31272,
     +     .04728,    .02608,  30.62707,   1.40940,   1.02142,
     +     .68040,   1.25783,   1.41194,
     +     .04827,    .02663,  33.01730,   1.50061,   1.11561,
     +     .77811,   1.35002,   1.50322,
     +     .04918,    .02713,  35.25390,   1.58714,   1.20498,
     +     .87086,   1.43742,   1.58982,
     +     .05034,    .02777,  38.10052,   1.69993,   1.32058,
     +     .98947,   1.55132,   1.70270,
     +     .05145,    .02838,  40.82261,   1.80971,   1.43320,
     +    1.10538,   1.66209,   1.81256,
     +     .05248,    .02895,  43.42101,   1.91603,   1.54252,
     +    1.21833,   1.76934,   1.91896 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05351,    .02952,  45.99080,   2.02415,   1.65276,
     +    1.33089,   1.87836,   2.02716,
     +     .05454,    .03009,  48.54052,   2.13299,   1.76402,
     +    1.44503,   1.98807,   2.13607,
     +     .05552,    .03063,  50.96871,   2.23842,   1.87179,
     +    1.55558,   2.09432,   2.24159,
     +     .05645,    .03113,  53.23462,   2.33910,   1.97429,
     +    1.66021,   2.19574,   2.34233,
     +     .05737,    .03165,  55.54774,   2.44291,   2.08036,
     +    1.76902,   2.30030,   2.44622,
     +     .05830,    .03216,  57.77484,   2.54557,   2.18462,
     +    1.87520,   2.40368,   2.54895,
     +     .05917,    .03264,  59.93281,   2.64577,   2.28686,
     +    1.97994,   2.50455,   2.64922,
     +     .06001,    .03310,  61.92249,   2.74064,   2.38311,
     +    2.07786,   2.60006,   2.74416 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06085,    .03356,  63.95808,   2.83847,   2.48269,
     +    2.17961,   2.69853,   2.84205,
     +     .06169,    .03403,  65.93438,   2.93548,   2.58117,
     +    2.27991,   2.79615,   2.93913,
     +     .06250,    .03447,  67.81849,   3.02924,   2.67637,
     +    2.37692,   2.89047,   3.03294,
     +     .06326,    .03489,  69.61161,   3.11946,   2.76811,
     +    2.47056,   2.98124,   3.12322,
     +     .06403,    .03532,  71.37773,   3.21046,   2.86027,
     +    2.56419,   3.07279,   3.21429 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03821,    .02099,    .67467,    .35041,    .00000,
     +     .00000,    .19291,    .35244,
     +     .03904,    .02143,   1.33287,    .37122,    .00000,
     +     .00000,    .21496,    .37331,
     +     .04029,    .02211,   2.45015,    .40662,    .01317,
     +     .00000,    .25216,    .40882,
     +     .04124,    .02263,   3.40012,    .43575,    .03011,
     +     .00000,    .28253,    .43802,
     +     .04224,    .02316,   4.43867,    .46925,    .06949,
     +     .00000,    .31729,    .47159,
     +     .04310,    .02365,   5.42010,    .50080,    .10405,
     +     .00000,    .34992,    .50322,
     +     .04395,    .02410,   6.44423,    .53305,    .13978,
     +     .00000,    .38316,    .53553,
     +     .04486,    .02461,   7.61368,    .56950,    .18066,
     +     .00000,    .42063,    .57203 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04565,    .02504,   8.67497,    .60317,    .21665,
     +     .00000,    .45518,    .60578,
     +     .04642,    .02547,   9.74822,    .63732,    .25326,
     +     .00000,    .49016,    .63999,
     +     .04705,    .02581,  10.64395,    .66558,    .28411,
     +     .00000,    .51907,    .66830,
     +     .04837,    .02654,  12.63955,    .72939,    .35213,
     +     .00000,    .58423,    .73222,
     +     .04953,    .02719,  14.22810,    .78763,    .41356,
     +     .07989,    .64359,    .79056,
     +     .05087,    .02792,  16.16532,    .85667,    .48635,
     +     .16642,    .71386,    .85969,
     +     .05226,    .02869,  18.26634,    .93241,    .56590,
     +     .25081,    .79084,    .93555,
     +     .05353,    .02940,  20.23377,   1.00444,    .64136,
     +     .33086,    .86397,   1.00768 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05483,    .03012,  22.27498,   1.08039,    .72080,
     +     .41466,    .94101,   1.08375,
     +     .05590,    .03072,  23.99579,   1.14568,    .78866,
     +     .48529,   1.00718,   1.14912,
     +     .05723,    .03145,  26.10682,   1.22742,    .87324,
     +     .57291,   1.08996,   1.23097,
     +     .05840,    .03211,  28.00805,   1.30228,    .95080,
     +     .65366,   1.16572,   1.30592,
     +     .05949,    .03271,  29.77564,   1.37298,   1.02408,
     +     .72999,   1.23724,   1.37672,
     +     .06087,    .03347,  32.00796,   1.46469,   1.11837,
     +     .82707,   1.32996,   1.46854,
     +     .06216,    .03420,  34.12702,   1.55350,   1.20978,
     +     .92148,   1.41970,   1.55746,
     +     .06340,    .03488,  36.13666,   1.63914,   1.29813,
     +    1.01310,   1.50620,   1.64321 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06463,    .03556,  38.10873,   1.72581,   1.38676,
     +    1.10390,   1.59370,   1.72997,
     +     .06584,    .03623,  40.05371,   1.81268,   1.47586,
     +    1.19563,   1.68138,   1.81694,
     +     .06700,    .03688,  41.89477,   1.89650,   1.56180,
     +    1.28410,   1.76597,   1.90087,
     +     .06809,    .03748,  43.60149,   1.97620,   1.64317,
     +    1.36745,   1.84635,   1.98065,
     +     .06919,    .03808,  45.33576,   2.05810,   1.72713,
     +    1.45389,   1.92895,   2.06265,
     +     .07027,    .03869,  46.99383,   2.13875,   1.80927,
     +    1.53782,   2.01027,   2.14339,
     +     .07131,    .03926,  48.59420,   2.21723,   1.88960,
     +    1.62042,   2.08939,   2.22196,
     +     .07228,    .03981,  50.05970,   2.29125,   1.96490,
     +    1.69728,   2.16399,   2.29605 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07329,    .04035,  51.55364,   2.36736,   2.04262,
     +    1.77697,   2.24069,   2.37225,
     +     .07426,    .04090,  52.99555,   2.44256,   2.11918,
     +    1.85522,   2.31646,   2.44753,
     +     .07521,    .04141,  54.36406,   2.51501,   2.19296,
     +    1.93066,   2.38945,   2.52007,
     +     .07610,    .04191,  55.66139,   2.58454,   2.26388,
     +    2.00331,   2.45950,   2.58967,
     +     .07701,    .04241,  56.93127,   2.65444,   2.33486,
     +    2.07566,   2.52989,   2.65964 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04396,    .02398,    .65278,    .32966,    .00000,
     +     .00000,    .18273,    .33236,
     +     .04489,    .02448,   1.28446,    .34913,    .00000,
     +     .00000,    .20339,    .35191,
     +     .04630,    .02526,   2.34224,    .38200,    .01320,
     +     .00000,    .23792,    .38487,
     +     .04738,    .02585,   3.23358,    .40882,    .02864,
     +     .00000,    .26593,    .41179,
     +     .04851,    .02648,   4.19903,    .43952,    .06486,
     +     .00000,    .29782,    .44257,
     +     .04949,    .02702,   5.10406,    .46828,    .09646,
     +     .00000,    .32758,    .47141,
     +     .05045,    .02755,   6.04226,    .49757,    .12900,
     +     .00000,    .35781,    .50078,
     +     .05149,    .02812,   7.10668,    .53053,    .16610,
     +     .00000,    .39177,    .53384 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05239,    .02862,   8.06653,    .56088,    .19863,
     +     .00000,    .42294,    .56427,
     +     .05326,    .02911,   9.03199,    .59159,    .23163,
     +     .00000,    .45443,    .59503,
     +     .05397,    .02950,   9.83439,    .61692,    .25936,
     +     .00000,    .48039,    .62044,
     +     .05547,    .03034,  11.61165,    .67393,    .32030,
     +     .00000,    .53867,    .67757,
     +     .05681,    .03107,  13.01359,    .72574,    .37511,
     +     .07051,    .59155,    .72949,
     +     .05831,    .03192,  14.71135,    .78691,    .43976,
     +     .14770,    .65387,    .79079,
     +     .05988,    .03280,  16.53932,    .85372,    .51013,
     +     .22256,    .72186,    .85773,
     +     .06132,    .03361,  18.23930,    .91700,    .57658,
     +     .29326,    .78618,    .92113 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06280,    .03442,  19.99188,    .98345,    .64629,
     +     .36701,    .85367,    .98771,
     +     .06402,    .03511,  21.46066,   1.04036,    .70559,
     +     .42891,    .91142,   1.04473,
     +     .06551,    .03594,  23.25205,   1.11137,    .77924,
     +     .50544,    .98342,   1.11586,
     +     .06683,    .03668,  24.85650,   1.17614,    .84655,
     +     .57572,   1.04906,   1.18075,
     +     .06806,    .03736,  26.34089,   1.23715,    .90993,
     +     .64193,   1.11083,   1.24186,
     +     .06962,    .03823,  28.20442,   1.31597,    .99118,
     +     .72583,   1.19063,   1.32083,
     +     .07108,    .03905,  29.96355,   1.39203,   1.06965,
     +     .80712,   1.26757,   1.39701,
     +     .07246,    .03982,  31.62359,   1.46514,   1.14526,
     +     .88576,   1.34150,   1.47024 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07386,    .04059,  33.24278,   1.53883,   1.22080,
     +     .96337,   1.41599,   1.54405,
     +     .07522,    .04136,  34.83243,   1.61248,   1.29652,
     +    1.04156,   1.49041,   1.61782,
     +     .07652,    .04207,  36.33014,   1.68332,   1.36934,
     +    1.11674,   1.56198,   1.68877,
     +     .07773,    .04276,  37.71141,   1.75046,   1.43806,
     +    1.18734,   1.62978,   1.75601,
     +     .07897,    .04344,  39.11010,   1.81929,   1.50878,
     +    1.26036,   1.69928,   1.82496,
     +     .08019,    .04411,  40.43985,   1.88684,   1.57775,
     +    1.33105,   1.76747,   1.89261,
     +     .08135,    .04476,  41.71963,   1.95244,   1.64505,
     +    1.40045,   1.83366,   1.95831,
     +     .08244,    .04537,  42.88516,   2.01410,   1.70794,
     +    1.46483,   1.89589,   2.02006 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08356,    .04598,  44.07005,   2.07739,   1.77272,
     +    1.53146,   1.95975,   2.08345,
     +     .08465,    .04660,  45.20830,   2.13974,   1.83635,
     +    1.59668,   2.02264,   2.14589,
     +     .08571,    .04717,  46.28483,   2.19968,   1.89756,
     +    1.65945,   2.08310,   2.20592,
     +     .08671,    .04772,  47.30228,   2.25709,   1.95625,
     +    1.71975,   2.14100,   2.26341,
     +     .08771,    .04829,  48.29309,   2.31463,   2.01484,
     +    1.77965,   2.19903,   2.32104 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04902,    .02674,    .64027,    .31489,    .00000,
     +     .00000,    .17525,    .31781,
     +     .05003,    .02730,   1.25253,    .33333,    .00000,
     +     .00000,    .19479,    .33633,
     +     .05160,    .02816,   2.26586,    .36420,    .01320,
     +     .00000,    .22724,    .36734,
     +     .05279,    .02881,   3.11320,    .38928,    .02749,
     +     .00000,    .25344,    .39251,
     +     .05403,    .02951,   4.02385,    .41787,    .06133,
     +     .00000,    .28314,    .42121,
     +     .05512,    .03012,   4.87170,    .44454,    .09072,
     +     .00000,    .31076,    .44798,
     +     .05618,    .03071,   5.74572,    .47163,    .12089,
     +     .00000,    .33874,    .47516,
     +     .05732,    .03135,   6.73198,    .50204,    .15518,
     +     .00000,    .37007,    .50566 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05831,    .03190,   7.61652,    .52995,    .18517,
     +     .00000,    .39876,    .53367,
     +     .05928,    .03244,   8.50225,    .55811,    .21550,
     +     .00000,    .42767,    .56191,
     +     .06006,    .03288,   9.23577,    .58132,    .24096,
     +     .00000,    .45146,    .58518,
     +     .06172,    .03380,  10.85256,    .63337,    .29671,
     +     .00000,    .50470,    .63737,
     +     .06318,    .03463,  12.11838,    .68052,    .34668,
     +     .06373,    .55286,    .68466,
     +     .06483,    .03556,  13.64227,    .73599,    .40544,
     +     .13411,    .60943,    .74027,
     +     .06657,    .03653,  15.27305,    .79636,    .46916,
     +     .20206,    .67092,    .80080,
     +     .06815,    .03742,  16.78092,    .85334,    .52912,
     +     .26600,    .72889,    .85792 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06977,    .03832,  18.32712,    .91301,    .59181,
     +     .33248,    .78952,    .91772,
     +     .07111,    .03908,  19.61635,    .96393,    .64499,
     +     .38812,    .84125,    .96877,
     +     .07274,    .03999,  21.18117,   1.02728,    .71082,
     +     .45668,    .90553,   1.03225,
     +     .07420,    .04081,  22.57616,   1.08491,    .77080,
     +     .51946,    .96398,   1.09001,
     +     .07554,    .04156,  23.86139,   1.13902,    .82714,
     +     .57846,   1.01883,   1.14424,
     +     .07724,    .04251,  25.46663,   1.20874,    .89913,
     +     .65297,   1.08947,   1.21411,
     +     .07885,    .04341,  26.97482,   1.27580,    .96845,
     +     .72495,   1.15736,   1.28132,
     +     .08037,    .04426,  28.39218,   1.34007,   1.03506,
     +     .79439,   1.22243,   1.34573 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08188,    .04510,  29.76715,   1.40467,   1.10140,
     +     .86271,   1.28777,   1.41046,
     +     .08337,    .04593,  31.11196,   1.46904,   1.16772,
     +     .93136,   1.35289,   1.47497,
     +     .08478,    .04672,  32.37407,   1.53081,   1.23135,
     +     .99720,   1.41535,   1.53686,
     +     .08612,    .04746,  33.53260,   1.58920,   1.29122,
     +    1.05886,   1.47437,   1.59537,
     +     .08746,    .04821,  34.70221,   1.64894,   1.35273,
     +    1.12252,   1.53474,   1.65523,
     +     .08878,    .04894,  35.80908,   1.70740,   1.41253,
     +    1.18395,   1.59381,   1.71379,
     +     .09004,    .04964,  36.87180,   1.76406,   1.47079,
     +    1.24418,   1.65105,   1.77056,
     +     .09124,    .05030,  37.83477,   1.81717,   1.52507,
     +    1.29990,   1.70470,   1.82379 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09244,    .05097,  38.81145,   1.87160,   1.58090,
     +    1.35745,   1.75967,   1.87833,
     +     .09363,    .05163,  39.74577,   1.92510,   1.63562,
     +    1.41368,   1.81369,   1.93193,
     +     .09477,    .05225,  40.62676,   1.97644,   1.68814,
     +    1.46767,   1.86552,   1.98337,
     +     .09586,    .05285,  41.45718,   2.02553,   1.73844,
     +    1.51948,   1.91507,   2.03255,
     +     .09695,    .05346,  42.26194,   2.07460,   1.78850,
     +    1.57080,   1.96461,   2.08172 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06878,    .03770,    .61708,    .27400,    .00000,
     +     .00000,    .15521,    .27856,
     +     .07015,    .03848,   1.17401,    .28916,    .00000,
     +     .00000,    .17131,    .29382,
     +     .07225,    .03967,   2.05897,    .31408,    .01317,
     +     .00000,    .19758,    .31894,
     +     .07385,    .04058,   2.78008,    .33405,    .02413,
     +     .00000,    .21850,    .33906,
     +     .07553,    .04154,   3.53483,    .35657,    .05117,
     +     .00000,    .24198,    .36173,
     +     .07701,    .04237,   4.22136,    .37734,    .07433,
     +     .00000,    .26357,    .38264,
     +     .07844,    .04319,   4.91580,    .39826,    .09788,
     +     .00000,    .28525,    .40370,
     +     .07998,    .04407,   5.68513,    .42156,    .12444,
     +     .00000,    .30934,    .42714 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .08132,    .04484,   6.36262,    .44276,    .14742,
     +     .00000,    .33120,    .44845,
     +     .08262,    .04558,   7.03081,    .46397,    .17051,
     +     .00000,    .35307,    .46980,
     +     .08367,    .04618,   7.57753,    .48137,    .18977,
     +     .00000,    .37096,    .48728,
     +     .08591,    .04746,   8.76284,    .52002,    .23156,
     +     .00000,    .41066,    .52615,
     +     .08787,    .04857,   9.66734,    .55465,    .26860,
     +     .04532,    .44617,    .56096,
     +     .09009,    .04983,  10.73361,    .59497,    .31168,
     +     .09755,    .48744,    .60148,
     +     .09241,    .05115,  11.85098,    .63832,    .35786,
     +     .14723,    .53177,    .64506,
     +     .09452,    .05234,  12.86371,    .67878,    .40082,
     +     .19348,    .57310,    .68571 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09666,    .05355,  13.88318,    .72070,    .44526,
     +     .24104,    .61586,    .72783,
     +     .09845,    .05456,  14.71860,    .75612,    .48258,
     +     .28044,    .65198,    .76342,
     +     .10060,    .05578,  15.71529,    .79973,    .52830,
     +     .32850,    .69641,    .80723,
     +     .10253,    .05685,  16.58945,    .83902,    .56956,
     +     .37209,    .73642,    .84670,
     +     .10430,    .05785,  17.38326,    .87559,    .60798,
     +     .41270,    .77364,    .88343,
     +     .10653,    .05910,  18.35689,    .92220,    .65653,
     +     .46344,    .82106,    .93025,
     +     .10863,    .06028,  19.25642,    .96659,    .70282,
     +     .51197,    .86620,    .97483,
     +     .11061,    .06138,  20.08939,   1.00873,    .74692,
     +     .55840,    .90904,   1.01716 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11258,    .06247,  20.88203,   1.05063,    .79034,
     +     .60354,    .95161,   1.05924,
     +     .11451,    .06354,  21.64662,   1.09203,    .83339,
     +     .64855,    .99366,   1.10081,
     +     .11633,    .06456,  22.35388,   1.13141,    .87433,
     +     .69135,   1.03365,   1.14035,
     +     .11805,    .06551,  22.99223,   1.16828,    .91250,
     +     .73105,   1.07109,   1.17738,
     +     .11978,    .06646,  23.62996,   1.20575,    .95146,
     +     .77180,   1.10912,   1.21502,
     +     .12146,    .06741,  24.22217,   1.24206,    .98895,
     +     .81071,   1.14597,   1.25148,
     +     .12308,    .06829,  24.78599,   1.27704,   1.02529,
     +     .84867,   1.18148,   1.28661,
     +     .12460,    .06913,  25.28711,   1.30954,   1.05883,
     +     .88345,   1.21444,   1.31923 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12614,    .06997,  25.79127,   1.34264,   1.09313,
     +     .91920,   1.24804,   1.35248,
     +     .12765,    .07080,  26.26561,   1.37491,   1.12648,
     +     .95384,   1.28078,   1.38488,
     +     .12909,    .07158,  26.70769,   1.40568,   1.15829,
     +     .98690,   1.31200,   1.41579,
     +     .13046,    .07233,  27.12024,   1.43493,   1.18858,
     +    1.01844,   1.34167,   1.44516,
     +     .13183,    .07309,  27.51242,   1.46392,   1.21848,
     +    1.04943,   1.37108,   1.47427 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09660,    .05371,    .64373,    .24038,    .00000,
     +     .00000,    .13884,    .24735,
     +     .09844,    .05478,   1.14894,    .25220,    .00000,
     +     .00000,    .15147,    .25936,
     +     .10127,    .05644,   1.91455,    .27149,    .01266,
     +     .00000,    .17191,    .27891,
     +     .10342,    .05769,   2.51977,    .28680,    .02061,
     +     .00000,    .18805,    .29445,
     +     .10569,    .05901,   3.13398,    .30395,    .04166,
     +     .00000,    .20604,    .31183,
     +     .10767,    .06015,   3.67759,    .31964,    .05944,
     +     .00000,    .22243,    .32770,
     +     .10959,    .06126,   4.21527,    .33531,    .07738,
     +     .00000,    .23876,    .34356,
     +     .11166,    .06246,   4.79821,    .35262,    .09745,
     +     .00000,    .25676,    .36108 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11346,    .06350,   5.30062,    .36823,    .11462,
     +     .00000,    .27297,    .37687,
     +     .11522,    .06450,   5.78727,    .38375,    .13175,
     +     .00000,    .28905,    .39256,
     +     .11661,    .06531,   6.17980,    .39640,    .14596,
     +     .00000,    .30214,    .40535,
     +     .11960,    .06702,   7.01437,    .42424,    .17648,
     +     .00000,    .33089,    .43347,
     +     .12219,    .06850,   7.63232,    .44888,    .20320,
     +     .03028,    .35631,    .45837,
     +     .12512,    .07016,   8.34090,    .47722,    .23391,
     +     .06809,    .38550,    .48700,
     +     .12818,    .07188,   9.06456,    .50729,    .26639,
     +     .10349,    .41643,    .51737,
     +     .13094,    .07344,   9.70437,    .53499,    .29622,
     +     .13602,    .44492,    .54534 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13374,    .07501,  10.33382,    .56334,    .32671,
     +     .16907,    .47403,    .57395,
     +     .13606,    .07630,  10.83833,    .58702,    .35201,
     +     .19613,    .49834,    .59786,
     +     .13886,    .07786,  11.42732,    .61582,    .38264,
     +     .22875,    .52787,    .62691,
     +     .14133,    .07924,  11.93321,    .64145,    .40998,
     +     .25804,    .55416,    .65278,
     +     .14360,    .08049,  12.38397,    .66508,    .43517,
     +     .28504,    .57837,    .67662,
     +     .14645,    .08207,  12.92352,    .69481,    .46662,
     +     .31837,    .60884,    .70662,
     +     .14913,    .08353,  13.41099,    .72277,    .49624,
     +     .34987,    .63747,    .73484,
     +     .15164,    .08491,  13.85368,    .74903,    .52417,
     +     .37971,    .66437,    .76133 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15412,    .08627,  14.26343,    .77479,    .55130,
     +     .40835,    .69075,    .78731,
     +     .15654,    .08758,  14.65119,    .79997,    .57795,
     +     .43664,    .71653,    .81273,
     +     .15883,    .08882,  15.00249,    .82368,    .60303,
     +     .46326,    .74081,    .83665,
     +     .16096,    .08998,  15.31173,    .84562,    .62615,
     +     .48770,    .76327,    .85878,
     +     .16311,    .09114,  15.61638,    .86774,    .64956,
     +     .51258,    .78590,    .88108,
     +     .16520,    .09226,  15.89044,    .88889,    .67183,
     +     .53608,    .80757,    .90243,
     +     .16719,    .09333,  16.14846,    .90914,    .69327,
     +     .55886,    .82829,    .92286,
     +     .16905,    .09432,  16.37027,    .92771,    .71281,
     +     .57948,    .84731,    .94159 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17093,    .09532,  16.59092,    .94652,    .73270,
     +     .60056,    .86656,    .96057,
     +     .17277,    .09630,  16.79276,    .96465,    .75182,
     +     .62078,    .88513,    .97886,
     +     .17451,    .09723,  16.97735,    .98179,    .76993,
     +     .63994,    .90270,    .99616,
     +     .17617,    .09810,  17.14675,    .99797,    .78706,
     +     .65810,    .91927,   1.01248,
     +     .17783,    .09898,  17.30161,   1.01384,    .80378,
     +     .67576,    .93552,   1.02849 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11778,    .06616,    .69745,    .22286,    .00000,
     +     .00000,    .13025,    .23179,
     +     .11999,    .06746,   1.17218,    .23277,    .00000,
     +     .00000,    .14091,    .24195,
     +     .12337,    .06946,   1.86943,    .24896,    .01180,
     +     .00000,    .15817,    .25847,
     +     .12594,    .07097,   2.40890,    .26181,    .01816,
     +     .00000,    .17179,    .27159,
     +     .12863,    .07253,   2.94557,    .27617,    .03611,
     +     .00000,    .18693,    .28623,
     +     .13098,    .07390,   3.41195,    .28923,    .05115,
     +     .00000,    .20064,    .29953,
     +     .13326,    .07523,   3.86627,    .30223,    .06624,
     +     .00000,    .21428,    .31276,
     +     .13572,    .07664,   4.35167,    .31654,    .08305,
     +     .00000,    .22923,    .32732 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13785,    .07787,   4.76405,    .32937,    .09734,
     +     .00000,    .24262,    .34037,
     +     .13992,    .07906,   5.15853,    .34206,    .11153,
     +     .00000,    .25585,    .35328,
     +     .14158,    .08000,   5.47364,    .35237,    .12326,
     +     .00000,    .26658,    .36375,
     +     .14508,    .08199,   6.13486,    .37493,    .14828,
     +     .00000,    .29000,    .38665,
     +     .14813,    .08371,   6.61475,    .39473,    .17003,
     +     .02275,    .31055,    .40676,
     +     .15154,    .08562,   7.15297,    .41732,    .19482,
     +     .05364,    .33395,    .42969,
     +     .15508,    .08759,   7.69272,    .44108,    .22080,
     +     .08224,    .35855,    .45379,
     +     .15828,    .08938,   8.16147,    .46277,    .24447,
     +     .10831,    .38098,    .47579 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16151,    .09117,   8.61487,    .48478,    .26845,
     +     .13459,    .40373,    .49811,
     +     .16418,    .09262,   8.97240,    .50301,    .28820,
     +     .15594,    .42256,    .51659,
     +     .16739,    .09438,   9.38260,    .52498,    .31192,
     +     .18149,    .44526,    .53889,
     +     .17022,    .09592,   9.72932,    .54442,    .33292,
     +     .20425,    .46532,    .55858,
     +     .17279,    .09733,  10.03391,    .56218,    .35216,
     +     .22511,    .48366,    .57660,
     +     .17603,    .09908,  10.39124,    .58433,    .37595,
     +     .25062,    .50652,    .59905,
     +     .17905,    .10070,  10.70833,    .60498,    .39819,
     +     .27457,    .52783,    .61997,
     +     .18188,    .10221,  10.99175,    .62424,    .41900,
     +     .29709,    .54770,    .63948 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18466,    .10369,  11.24761,    .64293,    .43904,
     +     .31851,    .56700,    .65844,
     +     .18737,    .10513,  11.48582,    .66108,    .45858,
     +     .33953,    .58574,    .67683,
     +     .18992,    .10648,  11.69758,    .67803,    .47685,
     +     .35920,    .60324,    .69401,
     +     .19229,    .10773,  11.87936,    .69358,    .49356,
     +     .37711,    .61930,    .70977,
     +     .19467,    .10897,  12.05620,    .70917,    .51039,
     +     .39526,    .63540,    .72557,
     +     .19698,    .11017,  12.21036,    .72394,    .52625,
     +     .41224,    .65066,    .74054,
     +     .19917,    .11131,  12.35420,    .73801,    .54146,
     +     .42865,    .66520,    .75479,
     +     .20120,    .11237,  12.47323,    .75078,    .55521,
     +     .44339,    .67841,    .76775 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20325,    .11343,  12.59041,    .76366,    .56913,
     +     .45839,    .69174,    .78079,
     +     .20525,    .11447,  12.69388,    .77597,    .58243,
     +     .47268,    .70448,    .79328,
     +     .20716,    .11544,  12.78634,    .78754,    .59495,
     +     .48616,    .71646,    .80501,
     +     .20896,    .11636,  12.86958,    .79841,    .60673,
     +     .49887,    .72771,    .81603,
     +     .21074,    .11727,  12.94166,    .80895,    .61814,
     +     .51114,    .73864,    .82672 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13554,    .07670,    .76244,    .21103,    .00000,
     +     .00000,    .12421,    .22165,
     +     .13806,    .07821,   1.21271,    .21966,    .00000,
     +     .00000,    .13357,    .23056,
     +     .14190,    .08049,   1.86050,    .23379,    .01073,
     +     .00000,    .14872,    .24511,
     +     .14483,    .08220,   2.35279,    .24500,    .01608,
     +     .00000,    .16068,    .25663,
     +     .14788,    .08398,   2.83504,    .25754,    .03201,
     +     .00000,    .17397,    .26949,
     +     .15053,    .08552,   3.24828,    .26891,    .04529,
     +     .00000,    .18597,    .28114,
     +     .15310,    .08701,   3.64605,    .28018,    .05855,
     +     .00000,    .19786,    .29269,
     +     .15588,    .08859,   4.06619,    .29256,    .07328,
     +     .00000,    .21087,    .30535 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15827,    .08995,   4.41908,    .30362,    .08574,
     +     .00000,    .22246,    .31665,
     +     .16059,    .09127,   4.75334,    .31451,    .09806,
     +     .00000,    .23388,    .32780,
     +     .16244,    .09232,   5.01827,    .32334,    .10823,
     +     .00000,    .24312,    .33680,
     +     .16637,    .09453,   5.56848,    .34255,    .12979,
     +     .00000,    .26318,    .35642,
     +     .16975,    .09641,   5.96139,    .35931,    .14842,
     +     .01787,    .28067,    .37352,
     +     .17353,    .09849,   6.39348,    .37830,    .16952,
     +     .04443,    .30047,    .39288,
     +     .17744,    .10064,   6.82018,    .39813,    .19148,
     +     .06882,    .32112,    .41309,
     +     .18096,    .10257,   7.18512,    .41610,    .21136,
     +     .09092,    .33981,    .43141 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18451,    .10449,   7.53297,    .43422,    .23136,
     +     .11305,    .35865,    .44986,
     +     .18742,    .10607,   7.80331,    .44911,    .24773,
     +     .13091,    .37415,    .46503,
     +     .19092,    .10794,   8.10875,    .46695,    .26726,
     +     .15217,    .39271,    .48321,
     +     .19399,    .10958,   8.36323,    .48261,    .28446,
     +     .17100,    .40900,    .49916,
     +     .19679,    .11106,   8.58381,    .49686,    .30013,
     +     .18816,    .42381,    .51366,
     +     .20028,    .11291,   8.83762,    .51447,    .31936,
     +     .20902,    .44213,    .53160,
     +     .20355,    .11462,   9.05895,    .53078,    .33723,
     +     .22848,    .45910,    .54820,
     +     .20658,    .11620,   9.25376,    .54588,    .35385,
     +     .24668,    .47483,    .56358 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20956,    .11774,   9.42498,    .56043,    .36973,
     +     .26387,    .48997,    .57838,
     +     .21244,    .11924,   9.58172,    .57446,    .38515,
     +     .28067,    .50458,    .59267,
     +     .21515,    .12063,   9.71829,    .58748,    .39946,
     +     .29628,    .51817,    .60593,
     +     .21767,    .12191,   9.83214,    .59934,    .41248,
     +     .31042,    .53053,    .61800,
     +     .22018,    .12320,   9.94142,    .61116,    .42553,
     +     .32469,    .54286,    .63004,
     +     .22260,    .12442,  10.03277,    .62227,    .43775,
     +     .33797,    .55446,    .64134,
     +     .22491,    .12558,  10.11715,    .63281,    .44942,
     +     .35074,    .56548,    .65208,
     +     .22704,    .12666,  10.18327,    .64231,    .45990,
     +     .36215,    .57541,    .66174 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22919,    .12773,  10.24755,    .65183,    .47047,
     +     .37372,    .58537,    .67145,
     +     .23127,    .12876,  10.30130,    .66087,    .48049,
     +     .38468,    .59484,    .68065,
     +     .23326,    .12974,  10.34762,    .66932,    .48990,
     +     .39497,    .60370,    .68926,
     +     .23512,    .13067,  10.38800,    .67721,    .49871,
     +     .40465,    .61198,    .69730,
     +     .23696,    .13158,  10.41939,    .68481,    .50719,
     +     .41393,    .61996,    .70505 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .15103,    .08596,    .83229,    .20177,    .00000,
     +     .00000,    .11933,    .21383,
     +     .15384,    .08764,   1.26089,    .20947,    .00000,
     +     .00000,    .12771,    .22186,
     +     .15811,    .09018,   1.86907,    .22209,    .00954,
     +     .00000,    .14132,    .23495,
     +     .16133,    .09206,   2.32392,    .23214,    .01419,
     +     .00000,    .15209,    .24535,
     +     .16470,    .09402,   2.76375,    .24336,    .02866,
     +     .00000,    .16404,    .25695,
     +     .16762,    .09569,   3.13624,    .25351,    .04067,
     +     .00000,    .17482,    .26741,
     +     .17046,    .09732,   3.49123,    .26357,    .05263,
     +     .00000,    .18546,    .27777,
     +     .17349,    .09904,   3.86257,    .27455,    .06588,
     +     .00000,    .19710,    .28909 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17611,    .10052,   4.17142,    .28435,    .07704,
     +     .00000,    .20742,    .29916,
     +     .17865,    .10193,   4.46154,    .29397,    .08805,
     +     .00000,    .21755,    .30904,
     +     .18067,    .10307,   4.69000,    .30174,    .09709,
     +     .00000,    .22573,    .31702,
     +     .18493,    .10543,   5.16010,    .31858,    .11621,
     +     .00000,    .24342,    .33429,
     +     .18858,    .10744,   5.49139,    .33318,    .13264,
     +     .01433,    .25874,    .34927,
     +     .19266,    .10965,   5.84871,    .34964,    .15116,
     +     .03784,    .27600,    .36613,
     +     .19687,    .11192,   6.19678,    .36671,    .17032,
     +     .05929,    .29390,    .38362,
     +     .20065,    .11394,   6.49027,    .38209,    .18754,
     +     .07861,    .31001,    .39936 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20442,    .11596,   6.76619,    .39748,    .20479,
     +     .09786,    .32613,    .41511,
     +     .20753,    .11760,   6.97770,    .41009,    .21883,
     +     .11332,    .33933,    .42801,
     +     .21124,    .11955,   7.21321,    .42508,    .23550,
     +     .13163,    .35504,    .44335,
     +     .21449,    .12125,   7.40662,    .43815,    .25009,
     +     .14776,    .36874,    .45672,
     +     .21746,    .12278,   7.57197,    .44997,    .26333,
     +     .16241,    .38114,    .46881,
     +     .22114,    .12468,   7.75839,    .46451,    .27948,
     +     .18011,    .39639,    .48367,
     +     .22455,    .12642,   7.91797,    .47788,    .29440,
     +     .19654,    .41043,    .49735,
     +     .22773,    .12804,   8.05612,    .49019,    .30820,
     +     .21183,    .42335,    .50993 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23083,    .12960,   8.17373,    .50194,    .32131,
     +     .22619,    .43571,    .52195,
     +     .23384,    .13111,   8.27931,    .51323,    .33398,
     +     .24016,    .44759,    .53349,
     +     .23664,    .13251,   8.36911,    .52364,    .34568,
     +     .25309,    .45854,    .54413,
     +     .23924,    .13380,   8.44115,    .53305,    .35625,
     +     .26474,    .46847,    .55375,
     +     .24184,    .13509,   8.50911,    .54239,    .36682,
     +     .27646,    .47832,    .56331,
     +     .24433,    .13630,   8.56226,    .55109,    .37666,
     +     .28730,    .48752,    .57221,
     +     .24670,    .13746,   8.61064,    .55932,    .38602,
     +     .29769,    .49623,    .58063,
     +     .24887,    .13852,   8.64521,    .56666,    .39437,
     +     .30693,    .50401,    .58814 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25107,    .13958,   8.67809,    .57401,    .40276,
     +     .31627,    .51181,    .59566,
     +     .25319,    .14059,   8.70266,    .58094,    .41069,
     +     .32508,    .51916,    .60275,
     +     .25520,    .14156,   8.72209,    .58737,    .41809,
     +     .33331,    .52601,    .60933,
     +     .25709,    .14245,   8.73767,    .59336,    .42500,
     +     .34103,    .53239,    .61547,
     +     .25896,    .14334,   8.74585,    .59906,    .43161,
     +     .34840,    .53848,    .62130 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17784,    .10200,    .96872,    .18778,    .00000,
     +     .00000,    .11160,    .20252,
     +     .18116,    .10399,   1.36041,    .19416,    .00000,
     +     .00000,    .11864,    .20930,
     +     .18617,    .10694,   1.90529,    .20467,    .00709,
     +     .00000,    .13014,    .22041,
     +     .18991,    .10909,   2.30138,    .21306,    .01081,
     +     .00000,    .13925,    .22925,
     +     .19381,    .11131,   2.67599,    .22246,    .02329,
     +     .00000,    .14938,    .23907,
     +     .19718,    .11321,   2.98727,    .23091,    .03356,
     +     .00000,    .15846,    .24790,
     +     .20043,    .11503,   3.27896,    .23925,    .04374,
     +     .00000,    .16740,    .25660,
     +     .20389,    .11695,   3.57918,    .24832,    .05495,
     +     .00000,    .17711,    .26606 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20687,    .11859,   3.82471,    .25636,    .06432,
     +     .00000,    .18569,    .27440,
     +     .20974,    .12017,   4.05205,    .26421,    .07352,
     +     .00000,    .19405,    .28255,
     +     .21203,    .12140,   4.22912,    .27051,    .08105,
     +     .00000,    .20077,    .28910,
     +     .21681,    .12397,   4.58777,    .28410,    .09685,
     +     .00000,    .21522,    .30317,
     +     .22088,    .12614,   4.83483,    .29576,    .11031,
     +     .00937,    .22761,    .31522,
     +     .22539,    .12850,   5.09098,    .30877,    .12533,
     +     .02874,    .24141,    .32867,
     +     .23002,    .13091,   5.33399,    .32209,    .14070,
     +     .04623,    .25558,    .34243,
     +     .23416,    .13304,   5.53338,    .33396,    .15441,
     +     .06184,    .26820,    .35469 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23827,    .13514,   5.71584,    .34571,    .16800,
     +     .07725,    .28070,    .36683,
     +     .24163,    .13683,   5.85150,    .35522,    .17896,
     +     .08953,    .29082,    .37664,
     +     .24563,    .13884,   5.99785,    .36642,    .19185,
     +     .10395,    .30276,    .38820,
     +     .24911,    .14058,   6.11440,    .37610,    .20304,
     +     .11655,    .31307,    .39817,
     +     .25226,    .14213,   6.21111,    .38476,    .21310,
     +     .12790,    .32231,    .40709,
     +     .25615,    .14404,   6.31460,    .39526,    .22526,
     +     .14150,    .33354,    .41792,
     +     .25974,    .14578,   6.39911,    .40480,    .23638,
     +     .15402,    .34375,    .42775,
     +     .26307,    .14738,   6.46912,    .41349,    .24659,
     +     .16557,    .35308,    .43672 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26628,    .14891,   6.52307,    .42169,    .25617,
     +     .17632,    .36189,    .44516,
     +     .26939,    .15038,   6.56858,    .42947,    .26536,
     +     .18671,    .37025,    .45317,
     +     .27228,    .15174,   6.60407,    .43654,    .27377,
     +     .19624,    .37791,    .46047,
     +     .27494,    .15296,   6.62797,    .44286,    .28129,
     +     .20475,    .38474,    .46698,
     +     .27758,    .15420,   6.64870,    .44908,    .28877,
     +     .21327,    .39149,    .47339,
     +     .28009,    .15534,   6.65926,    .45478,    .29564,
     +     .22107,    .39768,    .47926,
     +     .28248,    .15643,   6.66786,    .46013,    .30214,
     +     .22852,    .40352,    .48478,
     +     .28466,    .15741,   6.66788,    .46481,    .30787,
     +     .23506,    .40865,    .48961 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28685,    .15840,   6.66658,    .46947,    .31361,
     +     .24166,    .41376,    .49442,
     +     .28895,    .15933,   6.65980,    .47378,    .31896,
     +     .24782,    .41852,    .49887,
     +     .29092,    .16020,   6.65065,    .47776,    .32394,
     +     .25356,    .42290,    .50296,
     +     .29278,    .16102,   6.64012,    .48142,    .32854,
     +     .25890,    .42696,    .50674,
     +     .29460,    .16181,   6.62431,    .48483,    .33289,
     +     .26395,    .43076,    .51027 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .21135,    .12204,   1.15871,    .17201,    .00000,
     +     .00000,    .10232,    .19026,
     +     .21533,    .12437,   1.50334,    .17715,    .00000,
     +     .00000,    .10815,    .19592,
     +     .22130,    .12778,   1.97389,    .18571,    .00347,
     +     .00000,    .11772,    .20523,
     +     .22571,    .13024,   2.30268,    .19258,    .00644,
     +     .00000,    .12531,    .21261,
     +     .23024,    .13274,   2.60510,    .20024,    .01705,
     +     .00000,    .13373,    .22080,
     +     .23413,    .13485,   2.85057,    .20708,    .02571,
     +     .00000,    .14122,    .22808,
     +     .23786,    .13685,   3.07582,    .21380,    .03422,
     +     .00000,    .14856,    .23520,
     +     .24182,    .13896,   3.30291,    .22106,    .04353,
     +     .00000,    .15648,    .24288 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24521,    .14074,   3.48471,    .22742,    .05125,
     +     .00000,    .16340,    .24960,
     +     .24844,    .14242,   3.64988,    .23358,    .05878,
     +     .00000,    .17010,    .25610,
     +     .25100,    .14375,   3.77666,    .23852,    .06489,
     +     .00000,    .17546,    .26128,
     +     .25634,    .14648,   4.02806,    .24901,    .07762,
     +     .00000,    .18685,    .27230,
     +     .26081,    .14873,   4.19598,    .25789,    .08832,
     +     .00460,    .19649,    .28161,
     +     .26573,    .15116,   4.35860,    .26766,    .10014,
     +     .02016,    .20711,    .29182,
     +     .27073,    .15360,   4.50655,    .27751,    .11208,
     +     .03402,    .21784,    .30213,
     +     .27515,    .15575,   4.62233,    .28617,    .12260,
     +     .04625,    .22726,    .31114 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27953,    .15783,   4.72316,    .29461,    .13290,
     +     .05821,    .23647,    .31994,
     +     .28307,    .15951,   4.79408,    .30132,    .14111,
     +     .06763,    .24382,    .32695,
     +     .28724,    .16145,   4.86547,    .30912,    .15066,
     +     .07859,    .25237,    .33507,
     +     .29084,    .16311,   4.91838,    .31574,    .15885,
     +     .08807,    .25965,    .34196,
     +     .29409,    .16459,   4.95903,    .32160,    .16614,
     +     .09652,    .26610,    .34805,
     +     .29807,    .16638,   4.99627,    .32855,    .17484,
     +     .10655,    .27382,    .35530,
     +     .30171,    .16799,   5.02173,    .33477,    .18271,
     +     .11568,    .28073,    .36176,
     +     .30504,    .16946,   5.03890,    .34035,    .18984,
     +     .12402,    .28695,    .36757 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30824,    .17084,   5.04491,    .34547,    .19645,
     +     .13170,    .29271,    .37288,
     +     .31130,    .17214,   5.04576,    .35025,    .20270,
     +     .13903,    .29811,    .37785,
     +     .31413,    .17334,   5.04135,    .35454,    .20837,
     +     .14572,    .30296,    .38230,
     +     .31669,    .17441,   5.03086,    .35826,    .21337,
     +     .15162,    .30722,    .38618,
     +     .31923,    .17546,   5.01836,    .36190,    .21829,
     +     .15748,    .31138,    .38995,
     +     .32163,    .17644,   4.99958,    .36512,    .22275,
     +     .16278,    .31512,    .39328,
     +     .32389,    .17735,   4.98106,    .36811,    .22694,
     +     .16781,    .31859,    .39638,
     +     .32594,    .17816,   4.95834,    .37064,    .23057,
     +     .17218,    .32157,    .39901 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32798,    .17896,   4.93489,    .37312,    .23418,
     +     .17655,    .32452,    .40159,
     +     .32991,    .17970,   4.90825,    .37535,    .23750,
     +     .18061,    .32718,    .40390,
     +     .33173,    .18039,   4.88132,    .37735,    .24055,
     +     .18433,    .32961,    .40598,
     +     .33342,    .18104,   4.85487,    .37916,    .24334,
     +     .18779,    .33181,    .40786,
     +     .33506,    .18164,   4.82510,    .38076,    .24593,
     +     .19100,    .33382,    .40953 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .25747,    .14908,   1.42081,    .15233,    .00000,
     +     .00000,    .09008,    .17606,
     +     .26241,    .15181,   1.69827,    .15635,    .00000,
     +     .00000,    .09486,    .18074,
     +     .26962,    .15572,   2.07186,    .16307,   -.00191,
     +     .00000,    .10268,    .18832,
     +     .27483,    .15846,   2.31631,    .16842,    .00055,
     +     .00000,    .10883,    .19424,
     +     .28013,    .16118,   2.53167,    .17435,    .00936,
     +     .00000,    .11558,    .20077,
     +     .28462,    .16346,   2.70054,    .17957,    .01646,
     +     .00000,    .12153,    .20645,
     +     .28888,    .16557,   2.85082,    .18465,    .02335,
     +     .00000,    .12726,    .21193,
     +     .29336,    .16776,   2.99766,    .19005,    .03080,
     +     .00000,    .13337,    .21778 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29714,    .16960,   3.11098,    .19472,    .03690,
     +     .00000,    .13864,    .22279,
     +     .30073,    .17132,   3.21068,    .19917,    .04278,
     +     .00000,    .14368,    .22757,
     +     .30355,    .17265,   3.28540,    .20270,    .04752,
     +     .00000,    .14768,    .23134,
     +     .30935,    .17535,   3.42835,    .21010,    .05725,
     +     .00000,    .15602,    .23922,
     +     .31411,    .17751,   3.51866,    .21621,    .06529,
     +    -.00005,    .16295,    .24569,
     +     .31928,    .17981,   3.59155,    .22279,    .07402,
     +     .01175,    .17040,    .25262,
     +     .32445,    .18206,   3.65076,    .22925,    .08269,
     +     .02212,    .17777,    .25944,
     +     .32897,    .18400,   3.69070,    .23477,    .09019,
     +     .03114,    .18411,    .26526 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33336,    .18583,   3.71948,    .24002,    .09741,
     +     .03981,    .19017,    .27077,
     +     .33687,    .18728,   3.73423,    .24410,    .10308,
     +     .04656,    .19490,    .27505,
     +     .34096,    .18892,   3.74232,    .24869,    .10955,
     +     .05429,    .20028,    .27985,
     +     .34445,    .19030,   3.74278,    .25250,    .11502,
     +     .06089,    .20477,    .28382,
     +     .34754,    .19150,   3.73822,    .25578,    .11983,
     +     .06672,    .20867,    .28724,
     +     .35126,    .19291,   3.72337,    .25954,    .12544,
     +     .07351,    .21319,    .29114,
     +     .35462,    .19414,   3.70379,    .26277,    .13044,
     +     .07961,    .21713,    .29449,
     +     .35766,    .19524,   3.68174,    .26558,    .13489,
     +     .08511,    .22061,    .29740 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36051,    .19623,   3.65328,    .26803,    .13893,
     +     .09009,    .22370,    .29992,
     +     .36320,    .19715,   3.62296,    .27023,    .14269,
     +     .09480,    .22652,    .30217,
     +     .36565,    .19797,   3.59163,    .27213,    .14604,
     +     .09903,    .22898,    .30411,
     +     .36783,    .19866,   3.55876,    .27366,    .14893,
     +     .10270,    .23106,    .30569,
     +     .36997,    .19932,   3.52514,    .27511,    .15174,
     +     .10632,    .23304,    .30715,
     +     .37193,    .19991,   3.48873,    .27627,    .15422,
     +     .10953,    .23471,    .30833,
     +     .37378,    .20045,   3.45432,    .27732,    .15653,
     +     .11255,    .23626,    .30938,
     +     .37539,    .20090,   3.41906,    .27810,    .15847,
     +     .11513,    .23748,    .31015 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37699,    .20133,   3.38370,    .27883,    .16037,
     +     .11769,    .23866,    .31086,
     +     .37849,    .20170,   3.34731,    .27940,    .16208,
     +     .12002,    .23966,    .31140,
     +     .37985,    .20204,   3.31220,    .27985,    .16361,
     +     .12215,    .24053,    .31183,
     +     .38111,    .20234,   3.27876,    .28021,    .16500,
     +     .12409,    .24128,    .31216,
     +     .38229,    .20259,   3.24350,    .28043,    .16624,
     +     .12587,    .24189,    .31234 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29573,    .17095,   1.62065,    .13628,    .00000,
     +     .00000,    .07984,    .16461,
     +     .30145,    .17394,   1.84014,    .13977,    .00000,
     +     .00000,    .08413,    .16877,
     +     .30971,    .17810,   2.13512,    .14548,   -.00626,
     +     .00000,    .09102,    .17539,
     +     .31552,    .18093,   2.31442,    .14993,   -.00394,
     +     .00000,    .09633,    .18045,
     +     .32137,    .18370,   2.46481,    .15482,    .00379,
     +     .00000,    .10210,    .18589,
     +     .32626,    .18598,   2.57860,    .15903,    .00994,
     +     .00000,    .10707,    .19055,
     +     .33085,    .18808,   2.67653,    .16307,    .01584,
     +     .00000,    .11181,    .19496,
     +     .33562,    .19022,   2.76885,    .16731,    .02213,
     +     .00000,    .11679,    .19958 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33960,    .19196,   2.83686,    .17091,    .02723,
     +     .00000,    .12102,    .20348,
     +     .34335,    .19358,   2.89418,    .17429,    .03210,
     +     .00000,    .12502,    .20713,
     +     .34628,    .19482,   2.93581,    .17695,    .03599,
     +     .00000,    .12815,    .20999,
     +     .35220,    .19730,   3.01118,    .18241,    .04388,
     +     .00000,    .13460,    .21581,
     +     .35698,    .19921,   3.05445,    .18681,    .05030,
     +    -.00266,    .13983,    .22047,
     +     .36207,    .20120,   3.07494,    .19142,    .05717,
     +     .00682,    .14537,    .22533,
     +     .36710,    .20309,   3.08408,    .19584,    .06388,
     +     .01506,    .15072,    .22995,
     +     .37141,    .20467,   3.08250,    .19950,    .06960,
     +     .02213,    .15521,    .23376 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37555,    .20614,   3.07287,    .20288,    .07503,
     +     .02885,    .15940,    .23726,
     +     .37879,    .20724,   3.05881,    .20543,    .07922,
     +     .03401,    .16261,    .23988,
     +     .38250,    .20846,   3.03529,    .20819,    .08396,
     +     .03988,    .16616,    .24270,
     +     .38561,    .20946,   3.01035,    .21039,    .08790,
     +     .04483,    .16905,    .24494,
     +     .38833,    .21028,   2.98452,    .21223,    .09132,
     +     .04915,    .17149,    .24678,
     +     .39156,    .21120,   2.94632,    .21420,    .09525,
     +     .05412,    .17423,    .24876,
     +     .39440,    .21197,   2.90742,    .21582,    .09869,
     +     .05854,    .17655,    .25033,
     +     .39691,    .21263,   2.86922,    .21714,    .10170,
     +     .06248,    .17852,    .25162 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .39921,    .21316,   2.82730,    .21818,    .10438,
     +     .06600,    .18019,    .25259,
     +     .40134,    .21362,   2.78541,    .21904,    .10683,
     +     .06928,    .18165,    .25337,
     +     .40324,    .21399,   2.74470,    .21968,    .10898,
     +     .07219,    .18287,    .25395,
     +     .40487,    .21427,   2.70475,    .22011,    .11080,
     +     .07470,    .18381,    .25428,
     +     .40645,    .21453,   2.66485,    .22047,    .11255,
     +     .07715,    .18468,    .25452,
     +     .40784,    .21469,   2.62394,    .22062,    .11404,
     +     .07928,    .18534,    .25456,
     +     .40913,    .21483,   2.58573,    .22073,    .11541,
     +     .08128,    .18591,    .25455,
     +     .41020,    .21489,   2.54829,    .22066,    .11653,
     +     .08296,    .18628,    .25437 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41126,    .21494,   2.51111,    .22056,    .11761,
     +     .08460,    .18661,    .25416,
     +     .41218,    .21494,   2.47388,    .22035,    .11855,
     +     .08608,    .18681,    .25381,
     +     .41302,    .21491,   2.43850,    .22007,    .11938,
     +     .08742,    .18694,    .25341,
     +     .41376,    .21486,   2.40522,    .21978,    .12011,
     +     .08862,    .18701,    .25298,
     +     .41440,    .21476,   2.37104,    .21935,    .12072,
     +     .08970,    .18697,    .25244 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .36035,    .20555,   1.84988,    .11153,    .00000,
     +     .00000,    .06429,    .14812,
     +     .36717,    .20863,   1.97554,    .11446,    .00000,
     +     .00000,    .06813,    .15161,
     +     .37660,    .21273,   2.14899,    .11897,   -.01207,
     +     .00000,    .07394,    .15676,
     +     .38298,    .21537,   2.23369,    .12232,   -.00970,
     +     .00000,    .07820,    .16048,
     +     .38925,    .21787,   2.29343,    .12585,   -.00337,
     +     .00000,    .08267,    .16428,
     +     .39436,    .21981,   2.33299,    .12878,    .00160,
     +     .00000,    .08637,    .16741,
     +     .39906,    .22155,   2.36265,    .13147,    .00625,
     +     .00000,    .08981,    .17026,
     +     .40381,    .22325,   2.38597,    .13421,    .01108,
     +     .00000,    .09333,    .17311 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40770,    .22459,   2.39819,    .13644,    .01495,
     +     .00000,    .09621,    .17542,
     +     .41127,    .22578,   2.40456,    .13848,    .01857,
     +     .00000,    .09886,    .17751,
     +     .41401,    .22665,   2.40725,    .14004,    .02140,
     +     .00000,    .10089,    .17908,
     +     .41943,    .22829,   2.40539,    .14311,    .02706,
     +     .00000,    .10496,    .18213,
     +     .42357,    .22943,   2.39639,    .14542,    .03153,
     +    -.00510,    .10812,    .18437,
     +     .42782,    .23050,   2.36205,    .14772,    .03619,
     +     .00153,    .11130,    .18653,
     +     .43183,    .23141,   2.32099,    .14974,    .04062,
     +     .00721,    .11423,    .18836,
     +     .43514,    .23206,   2.27962,    .15128,    .04430,
     +     .01197,    .11654,    .18968 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .43816,    .23255,   2.23490,    .15255,    .04771,
     +     .01641,    .11861,    .19074,
     +     .44041,    .23284,   2.19569,    .15340,    .05028,
     +     .01977,    .12008,    .19137,
     +     .44287,    .23305,   2.14611,    .15417,    .05312,
     +     .02350,    .12160,    .19187,
     +     .44482,    .23312,   2.10143,    .15467,    .05541,
     +     .02659,    .12274,    .19212,
     +     .44644,    .23312,   2.06002,    .15500,    .05735,
     +     .02925,    .12364,    .19219,
     +     .44816,    .23297,   2.00615,    .15518,    .05952,
     +     .03225,    .12453,    .19201,
     +     .44956,    .23273,   1.95557,    .15517,    .06135,
     +     .03486,    .12517,    .19167,
     +     .45070,    .23243,   1.90868,    .15503,    .06292,
     +     .03713,    .12562,    .19120 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45159,    .23200,   1.86113,    .15471,    .06425,
     +     .03913,    .12588,    .19054,
     +     .45230,    .23153,   1.81541,    .15430,    .06545,
     +     .04096,    .12601,    .18977,
     +     .45282,    .23103,   1.77272,    .15381,    .06645,
     +     .04256,    .12603,    .18895,
     +     .45315,    .23048,   1.73259,    .15324,    .06725,
     +     .04389,    .12592,    .18806,
     +     .45342,    .22990,   1.69328,    .15263,    .06800,
     +     .04518,    .12577,    .18714,
     +     .45348,    .22924,   1.65462,    .15192,    .06859,
     +     .04626,    .12550,    .18609,
     +     .45351,    .22861,   1.61894,    .15121,    .06914,
     +     .04727,    .12522,    .18508,
     +     .45338,    .22794,   1.58526,    .15046,    .06952,
     +     .04809,    .12485,    .18403 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45320,    .22727,   1.55216,    .14968,    .06990,
     +     .04889,    .12444,    .18295,
     +     .45291,    .22655,   1.51983,    .14884,    .07018,
     +     .04957,    .12399,    .18182,
     +     .45258,    .22585,   1.48960,    .14802,    .07041,
     +     .05018,    .12351,    .18071,
     +     .45222,    .22515,   1.46148,    .14722,    .07059,
     +     .05072,    .12304,    .17964,
     +     .45175,    .22440,   1.43326,    .14635,    .07071,
     +     .05118,    .12249,    .17850 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .41408,    .23178,   1.91556,    .09285,    .00000,
     +     .00000,    .05311,    .13531,
     +     .42140,    .23456,   1.97192,    .09546,    .00000,
     +     .00000,    .05664,    .13813,
     +     .43118,    .23806,   2.05754,    .09919,   -.01486,
     +     .00000,    .06169,    .14202,
     +     .43755,    .24013,   2.07936,    .10179,   -.01241,
     +     .00000,    .06520,    .14462,
     +     .44357,    .24199,   2.08150,    .10442,   -.00704,
     +     .00000,    .06874,    .14715,
     +     .44836,    .24336,   2.07576,    .10649,   -.00288,
     +     .00000,    .07159,    .14908,
     +     .45263,    .24448,   2.06538,    .10832,    .00092,
     +     .00000,    .07412,    .15075,
     +     .45685,    .24550,   2.04967,    .11011,    .00480,
     +     .00000,    .07664,    .15234 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .46017,    .24623,   2.03135,    .11150,    .00786,
     +     .00000,    .07865,    .15350,
     +     .46313,    .24680,   2.01082,    .11271,    .01067,
     +     .00000,    .08045,    .15449,
     +     .46537,    .24719,   1.99349,    .11361,    .01285,
     +     .00000,    .08180,    .15517,
     +     .46958,    .24777,   1.95352,    .11525,    .01713,
     +     .00000,    .08438,    .15637,
     +     .47253,    .24796,   1.91971,    .11639,    .02042,
     +    -.00571,    .08627,    .15707,
     +     .47539,    .24795,   1.86235,    .11738,    .02379,
     +    -.00083,    .08809,    .15754,
     +     .47787,    .24772,   1.80185,    .11809,    .02692,
     +     .00330,    .08964,    .15770,
     +     .47970,    .24732,   1.74654,    .11850,    .02947,
     +     .00671,    .09077,    .15756 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .48119,    .24677,   1.69087,    .11869,    .03177,
     +     .00983,    .09167,    .15721,
     +     .48213,    .24619,   1.64480,    .11870,    .03347,
     +     .01216,    .09223,    .15673,
     +     .48297,    .24534,   1.58940,    .11852,    .03530,
     +     .01471,    .09273,    .15598,
     +     .48344,    .24450,   1.54138,    .11823,    .03676,
     +     .01679,    .09301,    .15517,
     +     .48368,    .24367,   1.49823,    .11786,    .03796,
     +     .01855,    .09316,    .15432,
     +     .48365,    .24246,   1.44424,    .11725,    .03926,
     +     .02051,    .09316,    .15308,
     +     .48339,    .24123,   1.39497,    .11654,    .04034,
     +     .02220,    .09303,    .15179,
     +     .48297,    .24002,   1.35032,    .11581,    .04124,
     +     .02364,    .09281,    .15051 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48225,    .23871,   1.30643,    .11495,    .04196,
     +     .02488,    .09246,    .14911,
     +     .48141,    .23737,   1.26496,    .11406,    .04258,
     +     .02600,    .09204,    .14768,
     +     .48047,    .23607,   1.22689,    .11317,    .04310,
     +     .02696,    .09159,    .14628,
     +     .47942,    .23476,   1.19186,    .11225,    .04348,
     +     .02775,    .09108,    .14489,
     +     .47832,    .23344,   1.15790,    .11131,    .04382,
     +     .02850,    .09055,    .14348,
     +     .47703,    .23205,   1.12516,    .11032,    .04407,
     +     .02912,    .08995,    .14203,
     +     .47577,    .23074,   1.09518,    .10939,    .04427,
     +     .02968,    .08936,    .14065,
     +     .47441,    .22945,   1.06734,    .10844,    .04440,
     +     .03012,    .08875,    .13930 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47302,    .22816,   1.04018,    .10750,    .04451,
     +     .03056,    .08813,    .13793,
     +     .47155,    .22683,   1.01400,    .10652,    .04456,
     +     .03091,    .08747,    .13655,
     +     .47007,    .22555,    .98974,    .10558,    .04459,
     +     .03123,    .08682,    .13523,
     +     .46865,    .22432,    .96733,    .10468,    .04458,
     +     .03148,    .08620,    .13398,
     +     .46709,    .22305,    .94513,    .10375,    .04455,
     +     .03171,    .08554,    .13267 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .46043,    .25219,   1.87088,    .07860,    .00000,
     +     .00000,    .04500,    .12463,
     +     .46779,    .25442,   1.87760,    .08090,    .00000,
     +     .00000,    .04821,    .12670,
     +     .47718,    .25697,   1.90090,    .08397,   -.01560,
     +     .00000,    .05251,    .12927,
     +     .48299,    .25829,   1.88190,    .08596,   -.01317,
     +     .00000,    .05535,    .13082,
     +     .48831,    .25930,   1.84843,    .08787,   -.00861,
     +     .00000,    .05812,    .13221,
     +     .49236,    .25988,   1.81582,    .08928,   -.00511,
     +     .00000,    .06024,    .13317,
     +     .49582,    .26027,   1.78239,    .09050,   -.00196,
     +     .00000,    .06211,    .13389,
     +     .49906,    .26049,   1.74512,    .09162,    .00119,
     +     .00000,    .06388,    .13442 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .50152,    .26049,   1.71076,    .09241,    .00365,
     +     .00000,    .06525,    .13472,
     +     .50358,    .26038,   1.67662,    .09305,    .00588,
     +     .00000,    .06642,    .13488,
     +     .50504,    .26023,   1.64955,    .09349,    .00759,
     +     .00000,    .06726,    .13493,
     +     .50761,    .25960,   1.59184,    .09421,    .01088,
     +     .00000,    .06881,    .13482,
     +     .50907,    .25877,   1.54726,    .09457,    .01339,
     +    -.00553,    .06988,    .13446,
     +     .51016,    .25764,   1.48231,    .09478,    .01590,
     +    -.00186,    .07081,    .13380,
     +     .51075,    .25624,   1.41671,    .09473,    .01818,
     +     .00122,    .07151,    .13286,
     +     .51085,    .25481,   1.35898,    .09450,    .02001,
     +     .00373,    .07190,    .13181 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .51057,    .25323,   1.30264,    .09409,    .02163,
     +     .00600,    .07214,    .13061,
     +     .51005,    .25179,   1.25728,    .09363,    .02281,
     +     .00767,    .07218,    .12952,
     +     .50904,    .24995,   1.20406,    .09297,    .02406,
     +     .00948,    .07210,    .12803,
     +     .50791,    .24824,   1.15887,    .09230,    .02503,
     +     .01095,    .07192,    .12664,
     +     .50669,    .24661,   1.11894,    .09162,    .02582,
     +     .01217,    .07168,    .12530,
     +     .50481,    .24443,   1.07005,    .09063,    .02665,
     +     .01351,    .07124,    .12353,
     +     .50281,    .24231,   1.02617,    .08964,    .02732,
     +     .01465,    .07075,    .12179,
     +     .50079,    .24027,    .98693,    .08868,    .02786,
     +     .01562,    .07022,    .12014 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49846,    .23817,    .94908,    .08764,    .02828,
     +     .01643,    .06961,    .11842,
     +     .49608,    .23608,    .91370,    .08659,    .02863,
     +     .01716,    .06898,    .11670,
     +     .49371,    .23406,    .88161,    .08556,    .02889,
     +     .01777,    .06835,    .11508,
     +     .49131,    .23210,    .85244,    .08455,    .02908,
     +     .01827,    .06769,    .11351,
     +     .48884,    .23015,    .82434,    .08354,    .02925,
     +     .01874,    .06703,    .11196,
     +     .48624,    .22817,    .79761,    .08252,    .02934,
     +     .01911,    .06633,    .11039,
     +     .48376,    .22631,    .77326,    .08156,    .02941,
     +     .01945,    .06567,    .10891,
     +     .48126,    .22450,    .75091,    .08061,    .02943,
     +     .01971,    .06500,    .10749 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47874,    .22268,    .72920,    .07967,    .02943,
     +     .01995,    .06433,    .10608,
     +     .47616,    .22086,    .70846,    .07872,    .02940,
     +     .02015,    .06365,    .10469,
     +     .47366,    .21910,    .68934,    .07780,    .02936,
     +     .02032,    .06300,    .10335,
     +     .47126,    .21744,    .67179,    .07694,    .02931,
     +     .02047,    .06237,    .10210,
     +     .46872,    .21575,    .65451,    .07607,    .02923,
     +     .02058,    .06173,    .10082 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .50956,    .27068,   1.72358,    .06506,    .00000,
     +     .00000,    .03762,    .11216,
     +     .51612,    .27193,   1.69024,    .06695,    .00000,
     +     .00000,    .04025,    .11325,
     +     .52400,    .27288,   1.66294,    .06925,   -.01484,
     +     .00000,    .04366,    .11430,
     +     .52844,    .27305,   1.61430,    .07065,   -.01257,
     +     .00000,    .04577,    .11470,
     +     .53224,    .27281,   1.55667,    .07187,   -.00885,
     +     .00000,    .04773,    .11495,
     +     .53479,    .27236,   1.50682,    .07272,   -.00605,
     +     .00000,    .04917,    .11491,
     +     .53679,    .27171,   1.45953,    .07333,   -.00357,
     +     .00000,    .05036,    .11472,
     +     .53847,    .27082,   1.41006,    .07382,   -.00112,
     +     .00000,    .05144,    .11437 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .53946,    .26990,   1.36731,    .07411,    .00076,
     +     .00000,    .05221,    .11390,
     +     .54010,    .26887,   1.32669,    .07429,    .00246,
     +     .00000,    .05284,    .11334,
     +     .54044,    .26799,   1.29528,    .07439,    .00373,
     +     .00000,    .05327,    .11285,
     +     .54047,    .26593,   1.23085,    .07439,    .00616,
     +     .00000,    .05400,    .11162,
     +     .53972,    .26387,   1.18296,    .07420,    .00797,
     +    -.00480,    .05440,    .11042,
     +     .53839,    .26137,   1.11906,    .07380,    .00974,
     +    -.00218,    .05465,    .10893,
     +     .53646,    .25861,   1.05644,    .07322,    .01133,
     +    -.00001,    .05469,    .10722,
     +     .53423,    .25597,   1.00282,    .07257,    .01257,
     +     .00174,    .05459,    .10555 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .53162,    .25322,    .95167,    .07182,    .01365,
     +     .00330,    .05434,    .10379,
     +     .52919,    .25084,    .91133,    .07111,    .01443,
     +     .00444,    .05406,    .10229,
     +     .52592,    .24790,    .86494,    .07017,    .01524,
     +     .00566,    .05362,    .10040,
     +     .52279,    .24525,    .82616,    .06928,    .01585,
     +     .00663,    .05316,    .09871,
     +     .51978,    .24276,    .79241,    .06842,    .01633,
     +     .00743,    .05268,    .09714,
     +     .51566,    .23954,    .75179,    .06730,    .01684,
     +     .00830,    .05202,    .09510,
     +     .51159,    .23649,    .71587,    .06620,    .01722,
     +     .00902,    .05134,    .09318,
     +     .50768,    .23361,    .68409,    .06516,    .01753,
     +     .00963,    .05068,    .09139 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50350,    .23070,    .65394,    .06408,    .01776,
     +     .01014,    .04998,    .08959,
     +     .49933,    .22784,    .62603,    .06302,    .01794,
     +     .01059,    .04927,    .08784,
     +     .49531,    .22511,    .60099,    .06201,    .01806,
     +     .01095,    .04858,    .08619,
     +     .49136,    .22254,    .57843,    .06106,    .01814,
     +     .01125,    .04792,    .08463,
     +     .48737,    .22000,    .55686,    .06012,    .01820,
     +     .01152,    .04725,    .08308,
     +     .48336,    .21742,    .53658,    .05915,    .01821,
     +     .01174,    .04657,    .08157,
     +     .47956,    .21499,    .51819,    .05823,    .01821,
     +     .01193,    .04591,    .08019,
     +     .47583,    .21270,    .50147,    .05737,    .01818,
     +     .01207,    .04529,    .07884 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .47208,    .21040,    .48529,    .05653,    .01815,
     +     .01220,    .04468,    .07750,
     +     .46830,    .20813,    .46996,    .05568,    .01810,
     +     .01231,    .04405,    .07620,
     +     .46467,    .20598,    .45592,    .05488,    .01804,
     +     .01239,    .04346,    .07498,
     +     .46123,    .20395,    .44307,    .05412,    .01797,
     +     .01246,    .04290,    .07384,
     +     .45769,    .20186,    .43053,    .05335,    .01788,
     +     .01250,    .04233,    .07268 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .55057,    .28308,   1.52185,    .05507,    .00000,
     +     .00000,    .03223,    .10025,
     +     .55568,    .28307,   1.46656,    .05646,    .00000,
     +     .00000,    .03429,    .10044,
     +     .56111,    .28223,   1.41081,    .05804,   -.01311,
     +     .00000,    .03683,    .10018,
     +     .56369,    .28104,   1.34881,    .05882,   -.01108,
     +     .00000,    .03830,    .09973,
     +     .56535,    .27953,   1.28200,    .05951,   -.00811,
     +     .00000,    .03961,    .09904,
     +     .56614,    .27790,   1.22654,    .05985,   -.00588,
     +     .00000,    .04051,    .09830,
     +     .56634,    .27618,   1.17553,    .06004,   -.00395,
     +     .00000,    .04120,    .09746,
     +     .56605,    .27422,   1.12365,    .06012,   -.00206,
     +     .00000,    .04178,    .09646 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56535,    .27235,   1.08013,    .06006,   -.00062,
     +     .00000,    .04217,    .09550,
     +     .56434,    .27046,   1.03968,    .05993,    .00065,
     +     .00000,    .04242,    .09449,
     +     .56335,    .26892,   1.00884,    .05979,    .00160,
     +     .00000,    .04257,    .09367,
     +     .56069,    .26538,    .94690,    .05931,    .00340,
     +     .00000,    .04274,    .09184,
     +     .55763,    .26221,    .90169,    .05880,    .00471,
     +    -.00395,    .04273,    .09015,
     +     .55370,    .25849,    .84436,    .05811,    .00599,
     +    -.00206,    .04256,    .08822,
     +     .54912,    .25450,    .78928,    .05724,    .00711,
     +    -.00051,    .04226,    .08616,
     +     .54459,    .25082,    .74296,    .05639,    .00797,
     +     .00072,    .04187,    .08423 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .53970,    .24705,    .69944,    .05548,    .00872,
     +     .00181,    .04141,    .08225,
     +     .53538,    .24389,    .66564,    .05465,    .00925,
     +     .00260,    .04096,    .08062,
     +     .52994,    .23999,    .62727,    .05362,    .00978,
     +     .00343,    .04036,    .07862,
     +     .52494,    .23654,    .59560,    .05269,    .01018,
     +     .00409,    .03980,    .07686,
     +     .52022,    .23338,    .56827,    .05183,    .01049,
     +     .00463,    .03927,    .07527,
     +     .51399,    .22935,    .53576,    .05072,    .01081,
     +     .00521,    .03854,    .07323,
     +     .50803,    .22556,    .50732,    .04966,    .01104,
     +     .00568,    .03784,    .07136,
     +     .50239,    .22203,    .48242,    .04867,    .01122,
     +     .00608,    .03718,    .06962 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49658,    .21848,    .45899,    .04765,    .01135,
     +     .00641,    .03647,    .06793,
     +     .49085,    .21505,    .43750,    .04667,    .01145,
     +     .00669,    .03577,    .06631,
     +     .48538,    .21183,    .41834,    .04575,    .01152,
     +     .00693,    .03514,    .06477,
     +     .48014,    .20878,    .40124,    .04487,    .01154,
     +     .00711,    .03452,    .06336,
     +     .47492,    .20575,    .38495,    .04401,    .01155,
     +     .00727,    .03392,    .06198,
     +     .46968,    .20278,    .36976,    .04315,    .01155,
     +     .00741,    .03330,    .06062,
     +     .46476,    .19999,    .35603,    .04237,    .01154,
     +     .00752,    .03274,    .05935,
     +     .45998,    .19737,    .34362,    .04163,    .01150,
     +     .00760,    .03219,    .05817 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .45521,    .19476,    .33168,    .04090,    .01146,
     +     .00767,    .03165,    .05700,
     +     .45047,    .19218,    .32041,    .04018,    .01140,
     +     .00773,    .03111,    .05586,
     +     .44597,    .18974,    .31011,    .03949,    .01135,
     +     .00777,    .03060,    .05481,
     +     .44173,    .18745,    .30073,    .03886,    .01129,
     +     .00781,    .03013,    .05382,
     +     .43736,    .18514,    .29162,    .03823,    .01122,
     +     .00782,    .02965,    .05282 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .58396,    .29038,   1.30074,    .04741,    .00000,
     +     .00000,    .02805,    .08865,
     +     .58706,    .28899,   1.23614,    .04835,    .00000,
     +     .00000,    .02956,    .08800,
     +     .58935,    .28623,   1.16756,    .04922,   -.01103,
     +     .00000,    .03123,    .08671,
     +     .58952,    .28379,   1.10250,    .04963,   -.00931,
     +     .00000,    .03216,    .08554,
     +     .58880,    .28088,   1.03563,    .04980,   -.00696,
     +     .00000,    .03292,    .08428,
     +     .58740,    .27821,    .98146,    .04982,   -.00522,
     +     .00000,    .03338,    .08302,
     +     .58555,    .27551,    .93254,    .04973,   -.00373,
     +     .00000,    .03370,    .08174,
     +     .58314,    .27251,    .88364,    .04950,   -.00228,
     +     .00000,    .03391,    .08035 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .58062,    .26976,    .84337,    .04921,   -.00119,
     +     .00000,    .03400,    .07910,
     +     .57788,    .26702,    .80647,    .04886,   -.00024,
     +     .00000,    .03401,    .07786,
     +     .57556,    .26483,    .77865,    .04854,    .00047,
     +     .00000,    .03397,    .07686,
     +     .57004,    .26008,    .72350,    .04780,    .00180,
     +     .00000,    .03380,    .07470,
     +     .56463,    .25587,    .68373,    .04712,    .00276,
     +    -.00313,    .03353,    .07283,
     +     .55817,    .25111,    .63501,    .04626,    .00368,
     +    -.00178,    .03314,    .07074,
     +     .55104,    .24609,    .58886,    .04528,    .00448,
     +    -.00066,    .03265,    .06856,
     +     .54428,    .24152,    .55053,    .04434,    .00509,
     +     .00021,    .03215,    .06661 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53724,    .23693,    .51499,    .04338,    .00561,
     +     .00098,    .03157,    .06465,
     +     .53123,    .23309,    .48767,    .04256,    .00597,
     +     .00152,    .03107,    .06304,
     +     .52375,    .22847,    .45691,    .04154,    .00634,
     +     .00211,    .03044,    .06112,
     +     .51703,    .22441,    .43175,    .04064,    .00661,
     +     .00257,    .02987,    .05946,
     +     .51082,    .22074,    .41024,    .03982,    .00681,
     +     .00293,    .02932,    .05797,
     +     .50278,    .21606,    .38488,    .03876,    .00702,
     +     .00332,    .02864,    .05608,
     +     .49518,    .21174,    .36287,    .03779,    .00718,
     +     .00365,    .02797,    .05436,
     +     .48804,    .20776,    .34371,    .03690,    .00729,
     +     .00391,    .02735,    .05280 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .48082,    .20375,    .32585,    .03598,    .00736,
     +     .00412,    .02672,    .05130,
     +     .47379,    .19991,    .30954,    .03511,    .00742,
     +     .00431,    .02612,    .04984,
     +     .46717,    .19634,    .29507,    .03430,    .00746,
     +     .00447,    .02556,    .04850,
     +     .46086,    .19298,    .28224,    .03354,    .00747,
     +     .00459,    .02503,    .04726,
     +     .45460,    .18968,    .27006,    .03279,    .00746,
     +     .00469,    .02450,    .04606,
     +     .44837,    .18644,    .25876,    .03207,    .00745,
     +     .00477,    .02398,    .04490,
     +     .44255,    .18345,    .24859,    .03140,    .00744,
     +     .00485,    .02349,    .04382,
     +     .43700,    .18061,    .23942,    .03076,    .00740,
     +     .00489,    .02304,    .04283 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43147,    .17778,    .23063,    .03014,    .00736,
     +     .00493,    .02259,    .04185,
     +     .42602,    .17502,    .22237,    .02953,    .00732,
     +     .00497,    .02215,    .04090,
     +     .42088,    .17241,    .21486,    .02894,    .00728,
     +     .00500,    .02174,    .04002,
     +     .41603,    .16998,    .20802,    .02841,    .00724,
     +     .00501,    .02136,    .03920,
     +     .41108,    .16754,    .20139,    .02789,    .00719,
     +     .00502,    .02096,    .03838 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .61010,    .29324,   1.08194,    .04142,    .00000,
     +     .00000,    .02453,    .07717,
     +     .61063,    .29053,   1.01640,    .04191,    .00000,
     +     .00000,    .02551,    .07594,
     +     .60930,    .28580,    .94527,    .04214,   -.00896,
     +     .00000,    .02652,    .07395,
     +     .60692,    .28199,    .88342,    .04211,   -.00754,
     +     .00000,    .02700,    .07242,
     +     .60344,    .27789,    .82172,    .04197,   -.00573,
     +     .00000,    .02737,    .07068,
     +     .59984,    .27413,    .77258,    .04168,   -.00440,
     +     .00000,    .02750,    .06920,
     +     .59591,    .27043,    .72876,    .04134,   -.00325,
     +     .00000,    .02756,    .06772,
     +     .59130,    .26645,    .68552,    .04091,   -.00216,
     +     .00000,    .02753,    .06612 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .58691,    .26293,    .65041,    .04048,   -.00134,
     +     .00000,    .02742,    .06471,
     +     .58241,    .25949,    .61854,    .04000,   -.00062,
     +     .00000,    .02727,    .06338,
     +     .57873,    .25676,    .59468,    .03959,   -.00010,
     +     .00000,    .02714,    .06234,
     +     .57041,    .25091,    .54794,    .03872,    .00088,
     +     .00000,    .02676,    .06011,
     +     .56275,    .24585,    .51449,    .03791,    .00158,
     +    -.00243,    .02636,    .05826,
     +     .55391,    .24018,    .47461,    .03696,    .00224,
     +    -.00146,    .02587,    .05620,
     +     .54441,    .23433,    .43722,    .03596,    .00282,
     +    -.00066,    .02532,    .05408,
     +     .53560,    .22908,    .40651,    .03503,    .00325,
     +    -.00003,    .02476,    .05222 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52664,    .22382,    .37825,    .03407,    .00361,
     +     .00050,    .02418,    .05040,
     +     .51908,    .21949,    .35669,    .03328,    .00387,
     +     .00089,    .02369,    .04892,
     +     .50981,    .21433,    .33269,    .03234,    .00412,
     +     .00130,    .02306,    .04717,
     +     .50160,    .20983,    .31317,    .03151,    .00430,
     +     .00161,    .02252,    .04567,
     +     .49409,    .20575,    .29655,    .03075,    .00445,
     +     .00187,    .02204,    .04433,
     +     .48454,    .20063,    .27712,    .02978,    .00459,
     +     .00214,    .02139,    .04270,
     +     .47558,    .19593,    .26035,    .02890,    .00469,
     +     .00236,    .02080,    .04123,
     +     .46725,    .19163,    .24582,    .02810,    .00477,
     +     .00255,    .02026,    .03989 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45890,    .18735,    .23238,    .02732,    .00482,
     +     .00269,    .01972,    .03856,
     +     .45082,    .18328,    .22014,    .02657,    .00485,
     +     .00281,    .01921,    .03731,
     +     .44321,    .17951,    .20933,    .02587,    .00486,
     +     .00291,    .01873,    .03618,
     +     .43610,    .17596,    .19979,    .02522,    .00488,
     +     .00300,    .01828,    .03515,
     +     .42908,    .17249,    .19077,    .02457,    .00487,
     +     .00306,    .01784,    .03414,
     +     .42214,    .16912,    .18243,    .02397,    .00486,
     +     .00312,    .01741,    .03317,
     +     .41566,    .16600,    .17494,    .02341,    .00485,
     +     .00317,    .01701,    .03227,
     +     .40952,    .16306,    .16822,    .02287,    .00482,
     +     .00319,    .01663,    .03145 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40345,    .16015,    .16178,    .02235,    .00479,
     +     .00322,    .01626,    .03066,
     +     .39747,    .15732,    .15574,    .02185,    .00476,
     +     .00324,    .01590,    .02989,
     +     .39184,    .15467,    .15027,    .02139,    .00472,
     +     .00325,    .01558,    .02916,
     +     .38656,    .15220,    .14530,    .02094,    .00469,
     +     .00326,    .01527,    .02849,
     +     .38121,    .14971,    .14049,    .02050,    .00466,
     +     .00327,    .01496,    .02784 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .62928,    .29213,    .87783,    .03640,    .00000,
     +     .00000,    .02142,    .06628,
     +     .62707,    .28798,    .81664,    .03641,    .00000,
     +     .00000,    .02200,    .06467,
     +     .62165,    .28146,    .74941,    .03619,   -.00709,
     +     .00000,    .02250,    .06217,
     +     .61647,    .27647,    .69423,    .03585,   -.00595,
     +     .00000,    .02267,    .06037,
     +     .61032,    .27111,    .64035,    .03537,   -.00457,
     +     .00000,    .02270,    .05856,
     +     .60434,    .26643,    .59796,    .03493,   -.00355,
     +     .00000,    .02266,    .05690,
     +     .59825,    .26192,    .56062,    .03441,   -.00269,
     +     .00000,    .02252,    .05535,
     +     .59145,    .25710,    .52411,    .03382,   -.00189,
     +     .00000,    .02232,    .05376 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .58527,    .25287,    .49476,    .03325,   -.00127,
     +     .00000,    .02211,    .05239,
     +     .57905,    .24882,    .46837,    .03271,   -.00074,
     +     .00000,    .02187,    .05106,
     +     .57405,    .24564,    .44873,    .03227,   -.00035,
     +     .00000,    .02165,    .05002,
     +     .56311,    .23888,    .41058,    .03131,    .00036,
     +     .00000,    .02118,    .04787,
     +     .55338,    .23312,    .38344,    .03047,    .00087,
     +    -.00186,    .02073,    .04610,
     +     .54234,    .22677,    .35168,    .02954,    .00134,
     +    -.00116,    .02020,    .04419,
     +     .53070,    .22028,    .32220,    .02857,    .00177,
     +    -.00058,    .01962,    .04226,
     +     .52013,    .21450,    .29818,    .02767,    .00207,
     +    -.00014,    .01908,    .04058 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50946,    .20875,    .27629,    .02677,    .00233,
     +     .00024,    .01852,    .03897,
     +     .50052,    .20411,    .25969,    .02607,    .00251,
     +     .00052,    .01806,    .03765,
     +     .48980,    .19854,    .24126,    .02519,    .00269,
     +     .00081,    .01751,    .03613,
     +     .48039,    .19376,    .22637,    .02442,    .00281,
     +     .00102,    .01703,    .03485,
     +     .47181,    .18946,    .21378,    .02375,    .00292,
     +     .00120,    .01658,    .03370,
     +     .46100,    .18407,    .19914,    .02291,    .00301,
     +     .00139,    .01603,    .03229,
     +     .45095,    .17915,    .18657,    .02215,    .00308,
     +     .00154,    .01552,    .03102,
     +     .44169,    .17469,    .17574,    .02147,    .00314,
     +     .00167,    .01506,    .02989 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43244,    .17030,    .16572,    .02079,    .00317,
     +     .00176,    .01461,    .02880,
     +     .42357,    .16610,    .15665,    .02015,    .00320,
     +     .00186,    .01417,    .02778,
     +     .41532,    .16222,    .14866,    .01957,    .00320,
     +     .00192,    .01376,    .02684,
     +     .40761,    .15864,    .14163,    .01902,    .00320,
     +     .00198,    .01339,    .02598,
     +     .40004,    .15512,    .13501,    .01849,    .00321,
     +     .00203,    .01304,    .02516,
     +     .39260,    .15171,    .12890,    .01796,    .00320,
     +     .00206,    .01268,    .02438,
     +     .38570,    .14856,    .12342,    .01748,    .00318,
     +     .00208,    .01234,    .02368,
     +     .37915,    .14563,    .11854,    .01706,    .00316,
     +     .00211,    .01204,    .02301 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37270,    .14275,    .11385,    .01666,    .00314,
     +     .00212,    .01176,    .02235,
     +     .36639,    .13994,    .10946,    .01625,    .00312,
     +     .00213,    .01149,    .02171,
     +     .36048,    .13731,    .10546,    .01586,    .00310,
     +     .00215,    .01123,    .02114,
     +     .35496,    .13487,    .10186,    .01550,    .00308,
     +     .00216,    .01098,    .02060,
     +     .34940,    .13242,    .09839,    .01514,    .00305,
     +     .00215,    .01074,    .02010 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64183,    .28737,    .69500,    .03170,    .00000,
     +     .00000,    .01882,    .05615,
     +     .63652,    .28200,    .64104,    .03148,    .00000,
     +     .00000,    .01901,    .05431,
     +     .62684,    .27383,    .58157,    .03091,   -.00549,
     +     .00000,    .01902,    .05161,
     +     .61878,    .26778,    .53473,    .03039,   -.00460,
     +     .00000,    .01893,    .04969,
     +     .60981,    .26143,    .48967,    .02976,   -.00356,
     +     .00000,    .01877,    .04780,
     +     .60156,    .25596,    .45464,    .02917,   -.00281,
     +     .00000,    .01855,    .04619,
     +     .59337,    .25073,    .42399,    .02859,   -.00216,
     +     .00000,    .01829,    .04467,
     +     .58445,    .24524,    .39435,    .02795,   -.00157,
     +     .00000,    .01800,    .04309 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .57652,    .24050,    .37064,    .02737,   -.00112,
     +     .00000,    .01770,    .04178,
     +     .56873,    .23596,    .34951,    .02680,   -.00073,
     +     .00000,    .01739,    .04053,
     +     .56254,    .23240,    .33384,    .02636,   -.00044,
     +     .00000,    .01716,    .03957,
     +     .54919,    .22492,    .30369,    .02540,    .00008,
     +     .00000,    .01662,    .03762,
     +     .53764,    .21866,    .28234,    .02456,    .00045,
     +    -.00141,    .01616,    .03605,
     +     .52463,    .21184,    .25772,    .02367,    .00080,
     +    -.00091,    .01564,    .03433,
     +     .51117,    .20490,    .23501,    .02277,    .00110,
     +    -.00049,    .01509,    .03262,
     +     .49906,    .19876,    .21667,    .02195,    .00132,
     +    -.00018,    .01461,    .03116 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48695,    .19274,    .20003,    .02114,    .00151,
     +     .00010,    .01411,    .02977,
     +     .47701,    .18786,    .18747,    .02047,    .00163,
     +     .00029,    .01371,    .02866,
     +     .46506,    .18211,    .17366,    .01970,    .00176,
     +     .00050,    .01323,    .02736,
     +     .45468,    .17715,    .16253,    .01903,    .00186,
     +     .00065,    .01280,    .02627,
     +     .44535,    .17273,    .15316,    .01843,    .00192,
     +     .00077,    .01242,    .02531,
     +     .43356,    .16726,    .14230,    .01771,    .00200,
     +     .00091,    .01196,    .02415,
     +     .42272,    .16228,    .13301,    .01706,    .00204,
     +     .00102,    .01153,    .02311,
     +     .41281,    .15775,    .12498,    .01648,    .00208,
     +     .00111,    .01116,    .02218 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40302,    .15332,    .11766,    .01589,    .00210,
     +     .00117,    .01076,    .02131,
     +     .39364,    .14911,    .11103,    .01535,    .00212,
     +     .00123,    .01040,    .02049,
     +     .38495,    .14524,    .10523,    .01484,    .00212,
     +     .00127,    .01008,    .01973,
     +     .37685,    .14169,    .10011,    .01440,    .00212,
     +     .00131,    .00977,    .01905,
     +     .36888,    .13823,    .09529,    .01399,    .00212,
     +     .00135,    .00947,    .01839,
     +     .36117,    .13487,    .09084,    .01355,    .00211,
     +     .00137,    .00920,    .01777,
     +     .35404,    .13178,    .08686,    .01315,    .00211,
     +     .00139,    .00895,    .01721,
     +     .34734,    .12889,    .08334,    .01278,    .00210,
     +     .00141,    .00871,    .01669 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34074,    .12606,    .07997,    .01243,    .00209,
     +     .00142,    .00848,    .01619,
     +     .33431,    .12333,    .07681,    .01209,    .00207,
     +     .00142,    .00825,    .01570,
     +     .32826,    .12079,    .07396,    .01178,    .00206,
     +     .00144,    .00804,    .01524,
     +     .32263,    .11842,    .07136,    .01150,    .00204,
     +     .00144,    .00785,    .01483,
     +     .31698,    .11607,    .06887,    .01123,    .00202,
     +     .00144,    .00767,    .01441 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .64677,    .28061,    .53656,    .02840,    .00000,
     +     .00000,    .01574,    .04630,
     +     .63847,    .27401,    .49113,    .02782,    .00000,
     +     .00000,    .01575,    .04445,
     +     .62470,    .26426,    .44096,    .02687,   -.00418,
     +     .00000,    .01559,    .04183,
     +     .61404,    .25718,    .40263,    .02610,   -.00350,
     +     .00000,    .01535,    .04007,
     +     .60233,    .25001,    .36635,    .02538,   -.00273,
     +     .00000,    .01509,    .03819,
     +     .59201,    .24381,    .33833,    .02468,   -.00217,
     +     .00000,    .01482,    .03672,
     +     .58193,    .23797,    .31405,    .02401,   -.00170,
     +     .00000,    .01454,    .03535,
     +     .57111,    .23189,    .29073,    .02331,   -.00125,
     +     .00000,    .01421,    .03393 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .56163,    .22668,    .27226,    .02271,   -.00093,
     +     .00000,    .01392,    .03273,
     +     .55245,    .22173,    .25580,    .02213,   -.00063,
     +     .00000,    .01364,    .03162,
     +     .54522,    .21787,    .24370,    .02167,   -.00043,
     +     .00000,    .01340,    .03078,
     +     .52981,    .20988,    .22057,    .02069,   -.00006,
     +     .00000,    .01291,    .02909,
     +     .51661,    .20329,    .20432,    .01992,    .00021,
     +    -.00106,    .01248,    .02771,
     +     .50205,    .19611,    .18567,    .01906,    .00047,
     +    -.00070,    .01199,    .02627,
     +     .48714,    .18884,    .16869,    .01819,    .00068,
     +    -.00040,    .01149,    .02484,
     +     .47382,    .18249,    .15503,    .01744,    .00084,
     +    -.00018,    .01107,    .02363 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46061,    .17632,    .14268,    .01674,    .00097,
     +     .00002,    .01063,    .02246,
     +     .44989,    .17132,    .13340,    .01613,    .00106,
     +     .00016,    .01029,    .02155,
     +     .43710,    .16548,    .12322,    .01544,    .00116,
     +     .00031,    .00989,    .02048,
     +     .42600,    .16049,    .11507,    .01486,    .00122,
     +     .00042,    .00955,    .01960,
     +     .41604,    .15607,    .10820,    .01435,    .00128,
     +     .00051,    .00922,    .01885,
     +     .40364,    .15059,    .10031,    .01372,    .00132,
     +     .00060,    .00883,    .01791,
     +     .39232,    .14562,    .09359,    .01317,    .00136,
     +     .00068,    .00849,    .01707,
     +     .38200,    .14115,    .08785,    .01266,    .00138,
     +     .00073,    .00817,    .01632 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37187,    .13678,    .08255,    .01217,    .00140,
     +     .00079,    .00789,    .01562,
     +     .36220,    .13266,    .07778,    .01171,    .00142,
     +     .00083,    .00761,    .01497,
     +     .35326,    .12892,    .07360,    .01131,    .00142,
     +     .00086,    .00735,    .01436,
     +     .34499,    .12545,    .06995,    .01093,    .00142,
     +     .00088,    .00711,    .01382,
     +     .33693,    .12209,    .06650,    .01056,    .00142,
     +     .00091,    .00689,    .01331,
     +     .32910,    .11885,    .06333,    .01022,    .00142,
     +     .00093,    .00667,    .01282,
     +     .32186,    .11588,    .06053,    .00991,    .00140,
     +     .00093,    .00647,    .01237,
     +     .31511,    .11313,    .05802,    .00963,    .00140,
     +     .00095,    .00628,    .01198 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30847,    .11043,    .05562,    .00934,    .00139,
     +     .00096,    .00610,    .01159,
     +     .30202,    .10782,    .05339,    .00907,    .00138,
     +     .00096,    .00593,    .01123,
     +     .29602,    .10539,    .05136,    .00880,    .00137,
     +     .00096,    .00576,    .01091,
     +     .29043,    .10314,    .04953,    .00857,    .00136,
     +     .00097,    .00560,    .01060,
     +     .28484,    .10091,    .04777,    .00834,    .00135,
     +     .00097,    .00547,    .01029 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .64614,    .27043,    .40128,    .02449,    .00000,
     +     .00000,    .01355,    .03791,
     +     .63477,    .26282,    .36471,    .02378,    .00000,
     +     .00000,    .01335,    .03614,
     +     .61692,    .25177,    .32457,    .02267,   -.00313,
     +     .00000,    .01295,    .03366,
     +     .60353,    .24399,    .29451,    .02187,   -.00262,
     +     .00000,    .01261,    .03201,
     +     .58941,    .23605,    .26639,    .02105,   -.00207,
     +     .00000,    .01227,    .03037,
     +     .57703,    .22939,    .24487,    .02037,   -.00165,
     +     .00000,    .01198,    .02896,
     +     .56518,    .22312,    .22636,    .01970,   -.00131,
     +     .00000,    .01164,    .02773,
     +     .55267,    .21664,    .20866,    .01900,   -.00099,
     +     .00000,    .01129,    .02653 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54181,    .21112,    .19477,    .01842,   -.00075,
     +     .00000,    .01097,    .02550,
     +     .53135,    .20594,    .18248,    .01786,   -.00054,
     +     .00000,    .01070,    .02452,
     +     .52316,    .20193,    .17342,    .01745,   -.00039,
     +     .00000,    .01050,    .02377,
     +     .50596,    .19364,    .15629,    .01659,   -.00012,
     +     .00000,    .01003,    .02229,
     +     .49155,    .18677,    .14431,    .01586,    .00007,
     +    -.00079,    .00964,    .02116,
     +     .47573,    .17944,    .13066,    .01508,    .00026,
     +    -.00053,    .00923,    .01992,
     +     .45960,    .17214,    .11827,    .01432,    .00042,
     +    -.00032,    .00879,    .01876,
     +     .44536,    .16576,    .10836,    .01366,    .00053,
     +    -.00016,    .00840,    .01776 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43137,    .15956,    .09946,    .01303,    .00062,
     +    -.00002,    .00804,    .01680,
     +     .42005,    .15460,    .09282,    .01253,    .00069,
     +     .00008,    .00774,    .01607,
     +     .40663,    .14883,    .08554,    .01195,    .00076,
     +     .00019,    .00739,    .01520,
     +     .39511,    .14390,    .07973,    .01147,    .00081,
     +     .00026,    .00711,    .01448,
     +     .38483,    .13953,    .07489,    .01102,    .00085,
     +     .00033,    .00686,    .01387,
     +     .37210,    .13419,    .06927,    .01051,    .00088,
     +     .00040,    .00655,    .01312,
     +     .36046,    .12937,    .06451,    .01007,    .00091,
     +     .00045,    .00627,    .01247,
     +     .34989,    .12505,    .06047,    .00968,    .00093,
     +     .00049,    .00601,    .01189 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33967,    .12084,    .05677,    .00925,    .00093,
     +     .00052,    .00576,    .01134,
     +     .32994,    .11688,    .05341,    .00888,    .00094,
     +     .00055,    .00555,    .01082,
     +     .32094,    .11328,    .05049,    .00855,    .00095,
     +     .00058,    .00537,    .01036,
     +     .31270,    .10999,    .04795,    .00824,    .00095,
     +     .00060,    .00518,    .00995,
     +     .30467,    .10680,    .04557,    .00791,    .00095,
     +     .00061,    .00497,    .00957,
     +     .29691,    .10372,    .04338,    .00763,    .00094,
     +     .00062,    .00480,    .00921,
     +     .28976,    .10092,    .04142,    .00737,    .00094,
     +     .00063,    .00464,    .00888,
     +     .28311,    .09831,    .03967,    .00715,    .00093,
     +     .00063,    .00451,    .00858 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27658,    .09578,    .03799,    .00693,    .00093,
     +     .00064,    .00437,    .00827,
     +     .27027,    .09333,    .03643,    .00672,    .00092,
     +     .00065,    .00424,    .00799,
     +     .26439,    .09106,    .03504,    .00652,    .00092,
     +     .00065,    .00412,    .00773,
     +     .25895,    .08896,    .03378,    .00634,    .00090,
     +     .00065,    .00400,    .00749,
     +     .25351,    .08688,    .03257,    .00617,    .00090,
     +     .00065,    .00390,    .00725 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .63924,    .25835,    .28860,    .02111,    .00000,
     +     .00000,    .01128,    .03049,
     +     .62480,    .25002,    .26055,    .02031,    .00000,
     +     .00000,    .01097,    .02884,
     +     .60320,    .23789,    .22990,    .01912,   -.00232,
     +     .00000,    .01050,    .02661,
     +     .58741,    .22953,    .20735,    .01829,   -.00195,
     +     .00000,    .01016,    .02510,
     +     .57103,    .22105,    .18649,    .01748,   -.00154,
     +     .00000,    .00978,    .02364,
     +     .55687,    .21403,    .17062,    .01680,   -.00124,
     +     .00000,    .00945,    .02248,
     +     .54350,    .20745,    .15706,    .01614,   -.00099,
     +     .00000,    .00916,    .02143,
     +     .52955,    .20067,    .14420,    .01548,   -.00077,
     +     .00000,    .00886,    .02037 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .51752,    .19499,    .13418,    .01494,   -.00059,
     +     .00000,    .00857,    .01950,
     +     .50610,    .18963,    .12537,    .01442,   -.00044,
     +     .00000,    .00830,    .01871,
     +     .49722,    .18550,    .11893,    .01401,   -.00034,
     +     .00000,    .00808,    .01813,
     +     .47862,    .17711,    .10669,    .01322,   -.00014,
     +     .00000,    .00769,    .01688,
     +     .46314,    .17026,    .09828,    .01260,    .00001,
     +    -.00059,    .00733,    .01590,
     +     .44635,    .16288,    .08867,    .01193,    .00013,
     +    -.00041,    .00697,    .01493,
     +     .42947,    .15556,    .07996,    .01127,    .00025,
     +    -.00025,    .00662,    .01397,
     +     .41463,    .14925,    .07304,    .01069,    .00033,
     +    -.00014,    .00631,    .01318 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .40016,    .14317,    .06691,    .01012,    .00040,
     +    -.00003,    .00600,    .01243,
     +     .38845,    .13835,    .06230,    .00974,    .00045,
     +     .00004,    .00576,    .01180,
     +     .37473,    .13269,    .05730,    .00924,    .00050,
     +     .00011,    .00549,    .01112,
     +     .36301,    .12791,    .05332,    .00882,    .00053,
     +     .00016,    .00526,    .01058,
     +     .35259,    .12369,    .05003,    .00846,    .00056,
     +     .00021,    .00505,    .01009,
     +     .33975,    .11859,    .04622,    .00802,    .00058,
     +     .00026,    .00480,    .00951,
     +     .32813,    .11397,    .04299,    .00764,    .00060,
     +     .00029,    .00458,    .00901,
     +     .31764,    .10983,    .04024,    .00732,    .00061,
     +     .00032,    .00440,    .00856 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30745,    .10585,    .03777,    .00696,    .00062,
     +     .00035,    .00419,    .00814,
     +     .29782,    .10212,    .03552,    .00666,    .00063,
     +     .00037,    .00401,    .00777,
     +     .28900,    .09871,    .03354,    .00637,    .00064,
     +     .00039,    .00386,    .00742,
     +     .28089,    .09560,    .03182,    .00613,    .00064,
     +     .00040,    .00371,    .00712,
     +     .27303,    .09260,    .03022,    .00592,    .00063,
     +     .00041,    .00357,    .00682,
     +     .26546,    .08975,    .02875,    .00571,    .00063,
     +     .00042,    .00344,    .00653,
     +     .25851,    .08713,    .02746,    .00550,    .00063,
     +     .00043,    .00333,    .00626,
     +     .25208,    .08473,    .02629,    .00532,    .00063,
     +     .00043,    .00322,    .00603 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24579,    .08238,    .02518,    .00513,    .00062,
     +     .00043,    .00311,    .00583,
     +     .23970,    .08013,    .02415,    .00496,    .00062,
     +     .00044,    .00302,    .00560,
     +     .23406,    .07805,    .02322,    .00482,    .00062,
     +     .00044,    .00292,    .00541,
     +     .22883,    .07612,    .02238,    .00468,    .00061,
     +     .00044,    .00284,    .00522,
     +     .22364,    .07422,    .02157,    .00453,    .00060,
     +     .00044,    .00275,    .00507 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .62653,    .24458,    .19616,    .01792,    .00000,
     +     .00000,    .00929,    .02409,
     +     .60951,    .23542,    .17574,    .01707,    .00000,
     +     .00000,    .00897,    .02262,
     +     .58442,    .22261,    .15389,    .01584,   -.00171,
     +     .00000,    .00846,    .02068,
     +     .56644,    .21385,    .13785,    .01509,   -.00143,
     +     .00000,    .00812,    .01936,
     +     .54810,    .20508,    .12321,    .01428,   -.00114,
     +     .00000,    .00773,    .01819,
     +     .53258,    .19770,    .11219,    .01361,   -.00094,
     +     .00000,    .00742,    .01726,
     +     .51793,    .19095,    .10283,    .01301,   -.00075,
     +     .00000,    .00714,    .01637,
     +     .50271,    .18412,    .09403,    .01244,   -.00059,
     +     .00000,    .00684,    .01547 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48977,    .17838,    .08717,    .01192,   -.00046,
     +     .00000,    .00662,    .01477,
     +     .47753,    .17302,    .08119,    .01147,   -.00036,
     +     .00000,    .00638,    .01411,
     +     .46805,    .16889,    .07684,    .01113,   -.00027,
     +     .00000,    .00619,    .01361,
     +     .44846,    .16047,    .06878,    .01043,   -.00013,
     +     .00000,    .00586,    .01258,
     +     .43235,    .15365,    .06315,    .00988,   -.00003,
     +    -.00044,    .00557,    .01183,
     +     .41498,    .14641,    .05671,    .00928,    .00007,
     +    -.00030,    .00527,    .01105,
     +     .39754,    .13929,    .05097,    .00874,    .00015,
     +    -.00020,    .00498,    .01029,
     +     .38237,    .13316,    .04644,    .00827,    .00020,
     +    -.00012,    .00470,    .00967 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36772,    .12728,    .04242,    .00780,    .00025,
     +    -.00005,    .00445,    .00909,
     +     .35594,    .12259,    .03943,    .00744,    .00029,
     +     .00001,    .00427,    .00862,
     +     .34218,    .11719,    .03618,    .00702,    .00032,
     +     .00006,    .00404,    .00811,
     +     .33048,    .11264,    .03364,    .00668,    .00035,
     +     .00010,    .00384,    .00767,
     +     .32012,    .10867,    .03149,    .00639,    .00037,
     +     .00014,    .00369,    .00732,
     +     .30742,    .10379,    .02907,    .00605,    .00039,
     +     .00017,    .00350,    .00687,
     +     .29596,    .09945,    .02705,    .00574,    .00040,
     +     .00020,    .00333,    .00646,
     +     .28567,    .09558,    .02533,    .00547,    .00041,
     +     .00021,    .00317,    .00611 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .27571,    .09188,    .02373,    .00521,    .00042,
     +     .00024,    .00302,    .00580,
     +     .26635,    .08840,    .02231,    .00497,    .00043,
     +     .00025,    .00289,    .00551,
     +     .25779,    .08523,    .02108,    .00475,    .00043,
     +     .00026,    .00277,    .00528,
     +     .24998,    .08237,    .02002,    .00456,    .00043,
     +     .00027,    .00267,    .00502,
     +     .24241,    .07963,    .01902,    .00439,    .00042,
     +     .00027,    .00256,    .00478,
     +     .23519,    .07699,    .01810,    .00420,    .00043,
     +     .00028,    .00246,    .00458,
     +     .22856,    .07458,    .01729,    .00402,    .00043,
     +     .00029,    .00236,    .00442,
     +     .22242,    .07237,    .01656,    .00389,    .00042,
     +     .00029,    .00227,    .00424 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21644,    .07024,    .01585,    .00376,    .00042,
     +     .00030,    .00221,    .00406,
     +     .21066,    .06819,    .01522,    .00363,    .00042,
     +     .00029,    .00212,    .00390,
     +     .20531,    .06629,    .01463,    .00352,    .00042,
     +     .00030,    .00206,    .00376,
     +     .20036,    .06454,    .01412,    .00341,    .00041,
     +     .00030,    .00198,    .00364,
     +     .19548,    .06282,    .01362,    .00330,    .00040,
     +     .00030,    .00193,    .00352 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60873,    .22906,    .12139,    .01463,    .00000,
     +     .00000,    .00772,    .01894,
     +     .58918,    .21957,    .10780,    .01389,    .00000,
     +     .00000,    .00731,    .01763,
     +     .56098,    .20628,    .09364,    .01280,   -.00125,
     +     .00000,    .00680,    .01596,
     +     .54137,    .19717,    .08315,    .01203,   -.00106,
     +     .00000,    .00645,    .01491,
     +     .52133,    .18830,    .07372,    .01135,   -.00085,
     +     .00000,    .00613,    .01386,
     +     .50453,    .18097,    .06667,    .01079,   -.00069,
     +     .00000,    .00587,    .01301,
     +     .48892,    .17421,    .06072,    .01028,   -.00056,
     +     .00000,    .00561,    .01229,
     +     .47287,    .16734,    .05526,    .00974,   -.00045,
     +     .00000,    .00535,    .01157 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .45929,    .16158,    .05102,    .00933,   -.00036,
     +     .00000,    .00514,    .01097,
     +     .44650,    .15628,    .04736,    .00894,   -.00028,
     +     .00000,    .00492,    .01046,
     +     .43660,    .15223,    .04468,    .00867,   -.00022,
     +     .00000,    .00475,    .01009,
     +     .41636,    .14397,    .03979,    .00809,   -.00012,
     +     .00000,    .00443,    .00931,
     +     .39985,    .13736,    .03655,    .00759,   -.00005,
     +    -.00033,    .00422,    .00871,
     +     .38215,    .13035,    .03262,    .00712,    .00002,
     +    -.00024,    .00397,    .00812,
     +     .36460,    .12351,    .02918,    .00664,    .00008,
     +    -.00015,    .00371,    .00754,
     +     .34943,    .11767,    .02651,    .00624,    .00012,
     +    -.00010,    .00349,    .00704 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33478,    .11207,    .02413,    .00589,    .00016,
     +    -.00004,    .00332,    .00655,
     +     .32309,    .10765,    .02240,    .00560,    .00018,
     +    -.00001,    .00316,    .00621,
     +     .30952,    .10253,    .02055,    .00527,    .00021,
     +     .00004,    .00298,    .00580,
     +     .29801,    .09826,    .01906,    .00500,    .00023,
     +     .00006,    .00284,    .00548,
     +     .28784,    .09454,    .01786,    .00479,    .00025,
     +     .00009,    .00271,    .00520,
     +     .27554,    .09001,    .01649,    .00447,    .00026,
     +     .00011,    .00254,    .00488,
     +     .26446,    .08598,    .01535,    .00422,    .00027,
     +     .00013,    .00241,    .00460,
     +     .25453,    .08240,    .01436,    .00403,    .00028,
     +     .00015,    .00232,    .00432 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .24497,    .07897,    .01348,    .00382,    .00028,
     +     .00016,    .00219,    .00409,
     +     .23603,    .07577,    .01269,    .00361,    .00029,
     +     .00017,    .00208,    .00389,
     +     .22790,    .07290,    .01201,    .00344,    .00029,
     +     .00018,    .00198,    .00370,
     +     .22047,    .07028,    .01143,    .00330,    .00029,
     +     .00018,    .00189,    .00353,
     +     .21329,    .06776,    .01088,    .00316,    .00029,
     +     .00019,    .00181,    .00337,
     +     .20644,    .06537,    .01038,    .00303,    .00028,
     +     .00019,    .00174,    .00322,
     +     .20018,    .06319,    .00994,    .00290,    .00029,
     +     .00020,    .00168,    .00309,
     +     .19443,    .06121,    .00955,    .00279,    .00028,
     +     .00020,    .00161,    .00295 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18884,    .05929,    .00916,    .00268,    .00029,
     +     .00020,    .00155,    .00283,
     +     .18345,    .05746,    .00881,    .00258,    .00028,
     +     .00020,    .00149,    .00271,
     +     .17846,    .05576,    .00850,    .00249,    .00028,
     +     .00020,    .00144,    .00260,
     +     .17388,    .05420,    .00821,    .00242,    .00027,
     +     .00020,    .00140,    .00251,
     +     .16936,    .05267,    .00793,    .00234,    .00028,
     +     .00021,    .00135,    .00242 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .58574,    .21302,    .06198,    .01222,    .00000,
     +     .00000,    .00605,    .01440,
     +     .56422,    .20321,    .05408,    .01140,    .00000,
     +     .00000,    .00572,    .01336,
     +     .53367,    .18962,    .04646,    .01035,   -.00091,
     +     .00000,    .00526,    .01201,
     +     .51252,    .18048,    .04055,    .00971,   -.00078,
     +     .00000,    .00502,    .01110,
     +     .49138,    .17152,    .03532,    .00906,   -.00063,
     +     .00000,    .00466,    .01037,
     +     .47370,    .16420,    .03157,    .00857,   -.00051,
     +     .00000,    .00444,    .00968,
     +     .45740,    .15753,    .02845,    .00810,   -.00043,
     +     .00000,    .00422,    .00910,
     +     .44078,    .15076,    .02556,    .00760,   -.00034,
     +     .00000,    .00403,    .00857 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .42668,    .14518,    .02343,    .00730,   -.00027,
     +     .00000,    .00386,    .00806,
     +     .41359,    .14000,    .02167,    .00697,   -.00022,
     +     .00000,    .00367,    .00765,
     +     .40355,    .13606,    .02042,    .00670,   -.00018,
     +     .00000,    .00352,    .00736,
     +     .38304,    .12811,    .01806,    .00619,   -.00011,
     +     .00000,    .00331,    .00677,
     +     .36649,    .12178,    .01653,    .00580,   -.00005,
     +    -.00024,    .00311,    .00629,
     +     .34883,    .11510,    .01464,    .00538,    .00000,
     +    -.00017,    .00290,    .00584,
     +     .33140,    .10860,    .01298,    .00502,    .00004,
     +    -.00012,    .00270,    .00538,
     +     .31640,    .10308,    .01170,    .00472,    .00008,
     +    -.00007,    .00256,    .00501 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .30203,    .09782,    .01063,    .00441,    .00010,
     +    -.00004,    .00241,    .00468,
     +     .29064,    .09371,    .00984,    .00418,    .00012,
     +    -.00001,    .00228,    .00441,
     +     .27746,    .08896,    .00900,    .00392,    .00014,
     +     .00001,    .00214,    .00413,
     +     .26633,    .08500,    .00838,    .00371,    .00016,
     +     .00004,    .00203,    .00387,
     +     .25658,    .08156,    .00786,    .00354,    .00016,
     +     .00006,    .00194,    .00365,
     +     .24471,    .07739,    .00730,    .00333,    .00017,
     +     .00007,    .00181,    .00341,
     +     .23415,    .07370,    .00682,    .00314,    .00018,
     +     .00009,    .00171,    .00321,
     +     .22472,    .07044,    .00642,    .00295,    .00019,
     +     .00010,    .00162,    .00303 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .21564,    .06734,    .00607,    .00282,    .00018,
     +     .00010,    .00154,    .00284,
     +     .20721,    .06445,    .00576,    .00267,    .00019,
     +     .00011,    .00146,    .00267,
     +     .19962,    .06183,    .00551,    .00250,    .00020,
     +     .00012,    .00138,    .00253,
     +     .19267,    .05947,    .00527,    .00237,    .00019,
     +     .00012,    .00133,    .00243,
     +     .18597,    .05721,    .00505,    .00226,    .00020,
     +     .00013,    .00128,    .00231,
     +     .17961,    .05508,    .00486,    .00217,    .00019,
     +     .00013,    .00122,    .00220,
     +     .17379,    .05315,    .00469,    .00210,    .00019,
     +     .00013,    .00118,    .00210,
     +     .16845,    .05138,    .00453,    .00202,    .00019,
     +     .00013,    .00113,    .00200 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .16327,    .04967,    .00438,    .00193,    .00019,
     +     .00014,    .00108,    .00191,
     +     .15832,    .04803,    .00425,    .00186,    .00019,
     +     .00014,    .00104,    .00183,
     +     .15374,    .04652,    .00414,    .00178,    .00019,
     +     .00013,    .00099,    .00176,
     +     .14953,    .04514,    .00402,    .00172,    .00018,
     +     .00013,    .00096,    .00169,
     +     .14537,    .04379,    .00390,    .00167,    .00019,
     +     .00014,    .00094,    .00163 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .55863,    .19627,    .01537,    .00982,    .00000,
     +     .00000,    .00473,    .01080,
     +     .53548,    .18631,    .01224,    .00912,    .00000,
     +     .00000,    .00444,    .00996,
     +     .50291,    .17281,    .01005,    .00829,   -.00067,
     +     .00000,    .00401,    .00881,
     +     .48083,    .16372,    .00778,    .00766,   -.00056,
     +     .00000,    .00369,    .00828,
     +     .45873,    .15494,    .00602,    .00716,   -.00047,
     +     .00000,    .00346,    .00762,
     +     .44057,    .14778,    .00479,    .00676,   -.00038,
     +     .00000,    .00327,    .00709,
     +     .42391,    .14125,    .00392,    .00638,   -.00032,
     +     .00000,    .00309,    .00662,
     +     .40698,    .13474,    .00319,    .00599,   -.00026,
     +     .00000,    .00291,    .00615 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .39284,    .12935,    .00271,    .00563,   -.00021,
     +     .00000,    .00277,    .00585,
     +     .37966,    .12441,    .00228,    .00537,   -.00017,
     +     .00000,    .00265,    .00554,
     +     .36958,    .12065,    .00200,    .00521,   -.00014,
     +     .00000,    .00258,    .00527,
     +     .34916,    .11307,    .00175,    .00480,   -.00008,
     +     .00000,    .00236,    .00479,
     +     .33268,    .10708,    .00165,    .00452,   -.00005,
     +    -.00019,    .00220,    .00445,
     +     .31536,    .10082,    .00124,    .00418,   -.00001,
     +    -.00013,    .00205,    .00407,
     +     .29839,    .09474,    .00093,    .00385,    .00002,
     +    -.00009,    .00192,    .00376,
     +     .28385,    .08960,    .00074,    .00359,    .00005,
     +    -.00005,    .00179,    .00349 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26996,    .08474,    .00063,    .00336,    .00006,
     +    -.00003,    .00167,    .00326,
     +     .25905,    .08091,    .00059,    .00317,    .00007,
     +    -.00002,    .00159,    .00306,
     +     .24641,    .07658,    .00057,    .00298,    .00009,
     +     .00001,    .00149,    .00280,
     +     .23583,    .07295,    .00056,    .00281,    .00010,
     +     .00003,    .00141,    .00263,
     +     .22662,    .06979,    .00056,    .00265,    .00010,
     +     .00003,    .00133,    .00250,
     +     .21541,    .06601,    .00060,    .00248,    .00011,
     +     .00004,    .00124,    .00234,
     +     .20546,    .06269,    .00065,    .00232,    .00012,
     +     .00006,    .00116,    .00218,
     +     .19665,    .05974,    .00070,    .00219,    .00013,
     +     .00007,    .00109,    .00203 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18818,    .05693,    .00075,    .00205,    .00012,
     +     .00007,    .00103,    .00193,
     +     .18032,    .05435,    .00080,    .00193,    .00013,
     +     .00008,    .00098,    .00181,
     +     .17321,    .05202,    .00082,    .00185,    .00013,
     +     .00008,    .00094,    .00171,
     +     .16679,    .04992,    .00086,    .00177,    .00013,
     +     .00008,    .00089,    .00162,
     +     .16062,    .04791,    .00089,    .00168,    .00013,
     +     .00009,    .00086,    .00154,
     +     .15477,    .04604,    .00091,    .00160,    .00013,
     +     .00009,    .00083,    .00147,
     +     .14946,    .04434,    .00094,    .00153,    .00013,
     +     .00009,    .00079,    .00139,
     +     .14457,    .04277,    .00097,    .00148,    .00012,
     +     .00009,    .00075,    .00133 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13985,    .04125,    .00101,    .00142,    .00013,
     +     .00009,    .00072,    .00126,
     +     .13534,    .03982,    .00102,    .00136,    .00013,
     +     .00009,    .00068,    .00120,
     +     .13120,    .03850,    .00106,    .00130,    .00013,
     +     .00009,    .00065,    .00116,
     +     .12740,    .03731,    .00107,    .00124,    .00012,
     +     .00009,    .00063,    .00112,
     +     .12365,    .03613,    .00108,    .00120,    .00012,
     +     .00009,    .00060,    .00108 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .52787,    .17874,   -.02035,    .00762,    .00000,
     +     .00000,    .00369,    .00806,
     +     .50343,    .16893,   -.01968,    .00704,    .00000,
     +     .00000,    .00338,    .00744,
     +     .46955,    .15559,   -.01740,    .00625,   -.00049,
     +     .00000,    .00306,    .00658,
     +     .44670,    .14687,   -.01671,    .00584,   -.00042,
     +     .00000,    .00282,    .00600,
     +     .42441,    .13833,   -.01583,    .00540,   -.00034,
     +     .00000,    .00260,    .00549,
     +     .40599,    .13147,   -.01503,    .00504,   -.00028,
     +     .00000,    .00246,    .00508,
     +     .38915,    .12525,   -.01421,    .00476,   -.00024,
     +     .00000,    .00233,    .00473,
     +     .37215,    .11903,   -.01334,    .00448,   -.00019,
     +     .00000,    .00218,    .00440 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .35807,    .11392,   -.01259,    .00426,   -.00016,
     +     .00000,    .00205,    .00416,
     +     .34505,    .10922,   -.01186,    .00401,   -.00013,
     +     .00000,    .00196,    .00393,
     +     .33516,    .10568,   -.01129,    .00382,   -.00011,
     +     .00000,    .00188,    .00374,
     +     .31510,    .09859,   -.01002,    .00349,   -.00007,
     +     .00000,    .00172,    .00342,
     +     .29912,    .09300,   -.00915,    .00326,   -.00004,
     +    -.00013,    .00161,    .00318,
     +     .28235,    .08719,   -.00841,    .00301,   -.00002,
     +    -.00010,    .00149,    .00293,
     +     .26602,    .08160,   -.00762,    .00277,    .00001,
     +    -.00007,    .00137,    .00265,
     +     .25212,    .07688,   -.00696,    .00256,    .00002,
     +    -.00005,    .00127,    .00244 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23892,    .07244,   -.00635,    .00236,    .00003,
     +    -.00003,    .00120,    .00227,
     +     .22855,    .06898,   -.00586,    .00222,    .00004,
     +    -.00002,    .00114,    .00213,
     +     .21663,    .06502,   -.00531,    .00208,    .00005,
     +     .00000,    .00106,    .00198,
     +     .20667,    .06177,   -.00485,    .00196,    .00006,
     +     .00001,    .00100,    .00185,
     +     .19801,    .05896,   -.00445,    .00185,    .00007,
     +     .00002,    .00095,    .00172,
     +     .18759,    .05556,   -.00398,    .00170,    .00007,
     +     .00003,    .00089,    .00159,
     +     .17837,    .05259,   -.00359,    .00161,    .00008,
     +     .00004,    .00083,    .00150,
     +     .17020,    .04996,   -.00326,    .00152,    .00008,
     +     .00004,    .00081,    .00142 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .16237,    .04751,   -.00292,    .00145,    .00009,
     +     .00005,    .00076,    .00130,
     +     .15515,    .04522,   -.00262,    .00136,    .00009,
     +     .00005,    .00071,    .00123,
     +     .14870,    .04315,   -.00236,    .00126,    .00008,
     +     .00005,    .00067,    .00119,
     +     .14283,    .04132,   -.00213,    .00120,    .00008,
     +     .00005,    .00063,    .00113,
     +     .13722,    .03958,   -.00191,    .00114,    .00009,
     +     .00006,    .00060,    .00105,
     +     .13190,    .03793,   -.00171,    .00108,    .00009,
     +     .00006,    .00058,    .00099,
     +     .12708,    .03645,   -.00155,    .00105,    .00009,
     +     .00006,    .00055,    .00094,
     +     .12270,    .03509,   -.00139,    .00099,    .00008,
     +     .00006,    .00052,    .00090 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11848,    .03379,   -.00125,    .00094,    .00008,
     +     .00006,    .00049,    .00086,
     +     .11443,    .03255,   -.00112,    .00090,    .00008,
     +     .00006,    .00047,    .00082,
     +     .11069,    .03142,   -.00102,    .00087,    .00009,
     +     .00007,    .00046,    .00080,
     +     .10729,    .03039,   -.00091,    .00084,    .00009,
     +     .00006,    .00044,    .00077,
     +     .10395,    .02938,   -.00080,    .00081,    .00008,
     +     .00006,    .00043,    .00073 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .49380,    .16125,   -.04683,    .00568,    .00000,
     +     .00000,    .00284,    .00596,
     +     .46865,    .15160,   -.04317,    .00520,    .00000,
     +     .00000,    .00263,    .00544,
     +     .43401,    .13868,   -.03754,    .00470,   -.00036,
     +     .00000,    .00237,    .00474,
     +     .41103,    .13026,   -.03442,    .00427,   -.00030,
     +     .00000,    .00219,    .00429,
     +     .38853,    .12217,   -.03154,    .00391,   -.00025,
     +     .00000,    .00202,    .00398,
     +     .37026,    .11560,   -.02915,    .00362,   -.00021,
     +     .00000,    .00188,    .00367,
     +     .35361,    .10973,   -.02700,    .00338,   -.00018,
     +     .00000,    .00176,    .00343,
     +     .33687,    .10389,   -.02492,    .00318,   -.00014,
     +     .00000,    .00164,    .00319 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .32310,    .09913,   -.02316,    .00294,   -.00013,
     +     .00000,    .00158,    .00299,
     +     .31041,    .09474,   -.02161,    .00277,   -.00010,
     +     .00000,    .00151,    .00279,
     +     .30079,    .09144,   -.02040,    .00264,   -.00009,
     +     .00000,    .00143,    .00265,
     +     .28142,    .08489,   -.01816,    .00241,   -.00006,
     +     .00000,    .00131,    .00244,
     +     .26610,    .07978,   -.01634,    .00221,   -.00004,
     +    -.00010,    .00122,    .00223,
     +     .25010,    .07449,   -.01478,    .00203,   -.00002,
     +    -.00008,    .00113,    .00204,
     +     .23458,    .06941,   -.01330,    .00185,    .00000,
     +    -.00005,    .00104,    .00190,
     +     .22144,    .06515,   -.01206,    .00171,    .00001,
     +    -.00003,    .00096,    .00174 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20906,    .06118,   -.01090,    .00158,    .00002,
     +    -.00002,    .00089,    .00160,
     +     .19934,    .05808,   -.01005,    .00150,    .00002,
     +    -.00002,    .00084,    .00152,
     +     .18826,    .05457,   -.00909,    .00139,    .00003,
     +     .00000,    .00078,    .00139,
     +     .17906,    .05166,   -.00831,    .00130,    .00004,
     +     .00001,    .00074,    .00130,
     +     .17111,    .04916,   -.00766,    .00121,    .00004,
     +     .00001,    .00071,    .00122,
     +     .16150,    .04619,   -.00686,    .00114,    .00005,
     +     .00002,    .00065,    .00112,
     +     .15306,    .04357,   -.00622,    .00107,    .00005,
     +     .00002,    .00062,    .00103,
     +     .14566,    .04128,   -.00563,    .00097,    .00005,
     +     .00002,    .00057,    .00095 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13859,    .03911,   -.00512,    .00090,    .00006,
     +     .00003,    .00053,    .00092,
     +     .13205,    .03714,   -.00466,    .00086,    .00006,
     +     .00003,    .00049,    .00086,
     +     .12618,    .03538,   -.00428,    .00083,    .00006,
     +     .00003,    .00048,    .00080,
     +     .12092,    .03378,   -.00392,    .00078,    .00005,
     +     .00003,    .00045,    .00076,
     +     .11591,    .03227,   -.00359,    .00073,    .00005,
     +     .00003,    .00042,    .00073,
     +     .11114,    .03087,   -.00330,    .00070,    .00006,
     +     .00004,    .00040,    .00069,
     +     .10684,    .02959,   -.00303,    .00068,    .00006,
     +     .00004,    .00039,    .00064,
     +     .10294,    .02843,   -.00281,    .00065,    .00006,
     +     .00004,    .00038,    .00060 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09917,    .02733,   -.00260,    .00061,    .00006,
     +     .00004,    .00036,    .00058,
     +     .09559,    .02627,   -.00240,    .00059,    .00006,
     +     .00004,    .00034,    .00056,
     +     .09231,    .02532,   -.00220,    .00056,    .00005,
     +     .00004,    .00032,    .00052,
     +     .08932,    .02444,   -.00205,    .00054,    .00005,
     +     .00004,    .00031,    .00050,
     +     .08641,    .02358,   -.00191,    .00051,    .00005,
     +     .00004,    .00030,    .00049 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .45780,    .14465,   -.06671,    .00473,    .00000,
     +     .00000,    .00185,    .00402,
     +     .43210,    .13540,   -.06061,    .00436,    .00000,
     +     .00000,    .00171,    .00363,
     +     .39761,    .12304,   -.05222,    .00374,   -.00026,
     +     .00000,    .00151,    .00322,
     +     .37482,    .11497,   -.04749,    .00335,   -.00022,
     +     .00000,    .00135,    .00303,
     +     .35263,    .10733,   -.04298,    .00308,   -.00018,
     +     .00000,    .00130,    .00269,
     +     .33473,    .10118,   -.03945,    .00284,   -.00016,
     +     .00000,    .00121,    .00251,
     +     .31855,    .09569,   -.03630,    .00264,   -.00013,
     +     .00000,    .00114,    .00231,
     +     .30234,    .09030,   -.03322,    .00247,   -.00011,
     +     .00000,    .00104,    .00210 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .28901,    .08589,   -.03083,    .00235,   -.00009,
     +     .00000,    .00099,    .00196,
     +     .27682,    .08186,   -.02863,    .00219,   -.00008,
     +     .00000,    .00093,    .00185,
     +     .26764,    .07882,   -.02702,    .00207,   -.00007,
     +     .00000,    .00089,    .00179,
     +     .24917,    .07282,   -.02389,    .00189,   -.00004,
     +     .00000,    .00084,    .00158,
     +     .23469,    .06818,   -.02150,    .00171,   -.00003,
     +    -.00007,    .00077,    .00146,
     +     .21961,    .06341,   -.01932,    .00159,   -.00002,
     +    -.00005,    .00069,    .00133,
     +     .20515,    .05883,   -.01727,    .00143,    .00000,
     +    -.00004,    .00065,    .00120,
     +     .19295,    .05502,   -.01561,    .00130,    .00001,
     +    -.00003,    .00060,    .00112 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .18144,    .05149,   -.01411,    .00123,    .00001,
     +    -.00002,    .00055,    .00102,
     +     .17252,    .04872,   -.01297,    .00117,    .00002,
     +    -.00001,    .00053,    .00092,
     +     .16237,    .04563,   -.01170,    .00107,    .00002,
     +    -.00001,    .00048,    .00086,
     +     .15397,    .04306,   -.01066,    .00097,    .00003,
     +     .00000,    .00044,    .00081,
     +     .14671,    .04086,   -.00980,    .00091,    .00003,
     +     .00000,    .00042,    .00076,
     +     .13798,    .03827,   -.00886,    .00086,    .00004,
     +     .00002,    .00039,    .00072,
     +     .13035,    .03599,   -.00801,    .00079,    .00003,
     +     .00002,    .00037,    .00066,
     +     .12366,    .03401,   -.00728,    .00072,    .00003,
     +     .00002,    .00035,    .00061 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11731,    .03214,   -.00665,    .00070,    .00003,
     +     .00002,    .00032,    .00056,
     +     .11146,    .03044,   -.00606,    .00067,    .00003,
     +     .00002,    .00030,    .00052,
     +     .10623,    .02891,   -.00556,    .00063,    .00004,
     +     .00003,    .00026,    .00049,
     +     .10157,    .02754,   -.00512,    .00059,    .00004,
     +     .00003,    .00025,    .00046,
     +     .09714,    .02624,   -.00473,    .00057,    .00004,
     +     .00003,    .00025,    .00043,
     +     .09296,    .02505,   -.00435,    .00051,    .00004,
     +     .00003,    .00024,    .00040,
     +     .08920,    .02395,   -.00404,    .00048,    .00004,
     +     .00003,    .00023,    .00040,
     +     .08576,    .02298,   -.00374,    .00046,    .00004,
     +     .00002,    .00022,    .00037 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .08244,    .02204,   -.00346,    .00045,    .00003,
     +     .00002,    .00019,    .00034,
     +     .07932,    .02115,   -.00322,    .00042,    .00003,
     +     .00002,    .00019,    .00033,
     +     .07646,    .02034,   -.00300,    .00041,    .00003,
     +     .00002,    .00018,    .00032,
     +     .07385,    .01959,   -.00281,    .00039,    .00003,
     +     .00002,    .00019,    .00031,
     +     .07129,    .01888,   -.00262,    .00038,    .00003,
     +     .00002,    .00017,    .00028 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .41964,    .12752,   -.07959,    .00318,    .00000,
     +     .00000,    .00144,    .00291,
     +     .39418,    .11872,   -.07177,    .00291,    .00000,
     +     .00000,    .00130,    .00263,
     +     .35996,    .10717,   -.06149,    .00257,   -.00019,
     +     .00000,    .00115,    .00229,
     +     .33769,    .09975,   -.05553,    .00236,   -.00017,
     +     .00000,    .00107,    .00204,
     +     .31617,    .09269,   -.04995,    .00217,   -.00014,
     +     .00000,    .00096,    .00185,
     +     .29883,    .08707,   -.04557,    .00202,   -.00012,
     +     .00000,    .00089,    .00168,
     +     .28327,    .08206,   -.04179,    .00186,   -.00010,
     +     .00000,    .00083,    .00159,
     +     .26782,    .07711,   -.03808,    .00169,   -.00008,
     +     .00000,    .00076,    .00150 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .25522,    .07310,   -.03522,    .00160,   -.00006,
     +     .00000,    .00072,    .00138,
     +     .24368,    .06949,   -.03262,    .00151,   -.00006,
     +     .00000,    .00066,    .00130,
     +     .23499,    .06678,   -.03068,    .00144,   -.00005,
     +     .00000,    .00063,    .00121,
     +     .21779,    .06145,   -.02700,    .00127,   -.00004,
     +     .00000,    .00057,    .00106,
     +     .20429,    .05730,   -.02429,    .00116,   -.00003,
     +    -.00005,    .00053,    .00098,
     +     .19034,    .05305,   -.02172,    .00106,   -.00001,
     +    -.00004,    .00047,    .00091,
     +     .17697,    .04902,   -.01937,    .00100,    .00000,
     +    -.00003,    .00043,    .00083,
     +     .16580,    .04566,   -.01744,    .00091,    .00000,
     +    -.00002,    .00040,    .00074 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15536,    .04256,   -.01570,    .00083,    .00001,
     +    -.00001,    .00037,    .00068,
     +     .14723,    .04017,   -.01439,    .00078,    .00001,
     +    -.00001,    .00035,    .00062,
     +     .13806,    .03746,   -.01294,    .00069,    .00002,
     +     .00000,    .00032,    .00059,
     +     .13051,    .03526,   -.01180,    .00063,    .00002,
     +     .00000,    .00029,    .00055,
     +     .12400,    .03335,   -.01084,    .00059,    .00002,
     +     .00000,    .00028,    .00051,
     +     .11624,    .03113,   -.00974,    .00056,    .00002,
     +     .00000,    .00027,    .00044,
     +     .10943,    .02918,   -.00880,    .00052,    .00002,
     +     .00000,    .00025,    .00042,
     +     .10349,    .02748,   -.00802,    .00050,    .00003,
     +     .00001,    .00023,    .00039 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09787,    .02589,   -.00729,    .00046,    .00002,
     +     .00001,    .00021,    .00037,
     +     .09274,    .02446,   -.00665,    .00043,    .00002,
     +     .00001,    .00020,    .00035,
     +     .08816,    .02317,   -.00610,    .00041,    .00002,
     +     .00001,    .00019,    .00031,
     +     .08406,    .02203,   -.00562,    .00038,    .00002,
     +     .00001,    .00018,    .00029,
     +     .08018,    .02094,   -.00519,    .00037,    .00002,
     +     .00001,    .00017,    .00027,
     +     .07655,    .01994,   -.00478,    .00035,    .00002,
     +     .00001,    .00016,    .00026,
     +     .07328,    .01902,   -.00443,    .00033,    .00002,
     +     .00001,    .00014,    .00024,
     +     .07030,    .01821,   -.00413,    .00031,    .00002,
     +     .00001,    .00014,    .00024 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06745,    .01742,   -.00382,    .00028,    .00002,
     +     .00001,    .00013,    .00022,
     +     .06475,    .01669,   -.00357,    .00027,    .00002,
     +     .00001,    .00013,    .00021,
     +     .06230,    .01601,   -.00332,    .00027,    .00003,
     +     .00002,    .00012,    .00020,
     +     .06007,    .01541,   -.00311,    .00026,    .00003,
     +     .00002,    .00011,    .00019,
     +     .05789,    .01481,   -.00291,    .00023,    .00003,
     +     .00002,    .00011,    .00019 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .37998,    .11106,   -.08727,    .00220,    .00000,
     +     .00000,    .00111,    .00210,
     +     .35524,    .10292,   -.07828,    .00190,    .00000,
     +     .00000,    .00103,    .00191,
     +     .32216,    .09227,   -.06668,    .00169,   -.00014,
     +     .00000,    .00088,    .00160,
     +     .30067,    .08547,   -.05989,    .00149,   -.00012,
     +     .00000,    .00078,    .00153,
     +     .28012,    .07905,   -.05355,    .00137,   -.00010,
     +     .00000,    .00073,    .00132,
     +     .26375,    .07395,   -.04864,    .00123,   -.00009,
     +     .00000,    .00067,    .00122,
     +     .24909,    .06945,   -.04446,    .00116,   -.00008,
     +     .00000,    .00060,    .00114,
     +     .23452,    .06505,   -.04038,    .00109,   -.00006,
     +     .00000,    .00054,    .00104 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22272,    .06145,   -.03712,    .00104,   -.00005,
     +     .00000,    .00051,    .00090,
     +     .21198,    .05824,   -.03430,    .00096,   -.00004,
     +     .00000,    .00049,    .00085,
     +     .20392,    .05585,   -.03225,    .00089,   -.00004,
     +     .00000,    .00048,    .00083,
     +     .18806,    .05108,   -.02828,    .00078,   -.00003,
     +     .00000,    .00041,    .00077,
     +     .17568,    .04744,   -.02536,    .00072,   -.00002,
     +    -.00004,    .00039,    .00068,
     +     .16292,    .04373,   -.02253,    .00065,   -.00002,
     +    -.00003,    .00036,    .00059,
     +     .15078,    .04024,   -.01997,    .00060,   -.00001,
     +    -.00002,    .00032,    .00055,
     +     .14067,    .03736,   -.01791,    .00055,   -.00001,
     +    -.00002,    .00029,    .00050 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .13129,    .03468,   -.01605,    .00049,    .00000,
     +    -.00001,    .00027,    .00045,
     +     .12407,    .03262,   -.01466,    .00046,    .00000,
     +    -.00001,    .00024,    .00042,
     +     .11588,    .03032,   -.01318,    .00043,    .00000,
     +    -.00001,    .00023,    .00038,
     +     .10916,    .02843,   -.01199,    .00040,    .00000,
     +    -.00001,    .00022,    .00035,
     +     .10339,    .02683,   -.01100,    .00038,    .00001,
     +     .00001,    .00020,    .00033,
     +     .09658,    .02493,   -.00986,    .00033,    .00001,
     +     .00001,    .00019,    .00030,
     +     .09061,    .02330,   -.00890,    .00031,    .00001,
     +     .00001,    .00016,    .00029,
     +     .08541,    .02188,   -.00808,    .00029,    .00001,
     +     .00001,    .00015,    .00028 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .08055,    .02056,   -.00735,    .00026,    .00001,
     +     .00001,    .00014,    .00025,
     +     .07611,    .01935,   -.00670,    .00025,    .00001,
     +     .00001,    .00014,    .00022,
     +     .07216,    .01828,   -.00614,    .00022,    .00001,
     +     .00001,    .00013,    .00021,
     +     .06862,    .01733,   -.00564,    .00023,    .00001,
     +     .00001,    .00011,    .00020,
     +     .06526,    .01644,   -.00519,    .00022,    .00001,
     +     .00001,    .00010,    .00019,
     +     .06214,    .01561,   -.00479,    .00022,    .00002,
     +     .00002,    .00010,    .00018,
     +     .05934,    .01487,   -.00443,    .00021,    .00002,
     +     .00001,    .00010,    .00015,
     +     .05683,    .01420,   -.00411,    .00018,    .00002,
     +     .00001,    .00009,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05443,    .01356,   -.00382,    .00017,    .00002,
     +     .00001,    .00009,    .00015,
     +     .05214,    .01296,   -.00356,    .00016,    .00002,
     +     .00001,    .00009,    .00014,
     +     .05005,    .01242,   -.00332,    .00016,    .00002,
     +     .00001,    .00008,    .00014,
     +     .04816,    .01193,   -.00312,    .00015,    .00002,
     +     .00001,    .00008,    .00014,
     +     .04634,    .01145,   -.00292,    .00015,    .00002,
     +     .00001,    .00008,    .00012 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .34088,    .09608,   -.09141,    .00166,    .00000,
     +     .00000,    .00065,    .00127,
     +     .31697,    .08860,   -.08165,    .00149,    .00000,
     +     .00000,    .00057,    .00115,
     +     .28534,    .07885,   -.06920,    .00125,   -.00010,
     +     .00000,    .00047,    .00106,
     +     .26493,    .07276,   -.06184,    .00121,   -.00009,
     +     .00000,    .00044,    .00085,
     +     .24576,    .06693,   -.05507,    .00103,   -.00008,
     +     .00000,    .00041,    .00077,
     +     .23034,    .06239,   -.04988,    .00097,   -.00006,
     +     .00000,    .00037,    .00069,
     +     .21665,    .05838,   -.04540,    .00090,   -.00005,
     +     .00000,    .00035,    .00064,
     +     .20320,    .05442,   -.04111,    .00084,   -.00004,
     +     .00000,    .00031,    .00060 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19232,    .05126,   -.03782,    .00077,   -.00004,
     +     .00000,    .00031,    .00060,
     +     .18251,    .04842,   -.03485,    .00072,   -.00003,
     +     .00000,    .00028,    .00054,
     +     .17514,    .04633,   -.03264,    .00069,   -.00003,
     +     .00000,    .00027,    .00047,
     +     .16063,    .04218,   -.02850,    .00059,   -.00002,
     +     .00000,    .00024,    .00045,
     +     .14937,    .03902,   -.02547,    .00057,   -.00002,
     +    -.00003,    .00021,    .00039,
     +     .13793,    .03579,   -.02258,    .00052,    .00000,
     +    -.00002,    .00020,    .00033,
     +     .12711,    .03277,   -.01997,    .00046,    .00000,
     +    -.00001,    .00017,    .00032,
     +     .11813,    .03030,   -.01785,    .00041,    .00000,
     +    -.00001,    .00016,    .00030 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10980,    .02802,   -.01596,    .00038,    .00000,
     +    -.00001,    .00015,    .00026,
     +     .10342,    .02626,   -.01454,    .00033,    .00001,
     +     .00000,    .00014,    .00026,
     +     .09623,    .02431,   -.01301,    .00030,    .00001,
     +     .00000,    .00013,    .00023,
     +     .09034,    .02274,   -.01179,    .00029,    .00001,
     +     .00000,    .00011,    .00020,
     +     .08529,    .02140,   -.01078,    .00026,    .00001,
     +     .00000,    .00011,    .00019,
     +     .07934,    .01982,   -.00963,    .00026,    .00001,
     +     .00000,    .00009,    .00016,
     +     .07421,    .01845,   -.00867,    .00024,    .00000,
     +     .00000,    .00009,    .00015,
     +     .06975,    .01727,   -.00786,    .00022,    .00000,
     +     .00000,    .00008,    .00015 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06556,    .01617,   -.00713,    .00020,    .00000,
     +     .00000,    .00008,    .00014,
     +     .06174,    .01519,   -.00648,    .00020,    .00001,
     +     .00001,    .00007,    .00013,
     +     .05835,    .01430,   -.00593,    .00018,    .00001,
     +     .00001,    .00007,    .00012,
     +     .05537,    .01353,   -.00546,    .00017,    .00001,
     +     .00001,    .00007,    .00012,
     +     .05255,    .01280,   -.00499,    .00014,    .00001,
     +     .00001,    .00005,    .00010,
     +     .04993,    .01213,   -.00461,    .00014,    .00001,
     +     .00001,    .00006,    .00009,
     +     .04758,    .01152,   -.00427,    .00013,    .00001,
     +     .00001,    .00006,    .00009,
     +     .04546,    .01098,   -.00396,    .00011,    .00001,
     +     .00001,    .00004,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04343,    .01046,   -.00368,    .00011,    .00001,
     +     .00001,    .00004,    .00009,
     +     .04153,    .00997,   -.00342,    .00010,    .00001,
     +     .00001,    .00004,    .00008,
     +     .03979,    .00954,   -.00319,    .00009,    .00001,
     +     .00001,    .00004,    .00008,
     +     .03822,    .00914,   -.00298,    .00009,    .00001,
     +     .00001,    .00003,    .00007,
     +     .03669,    .00876,   -.00279,    .00009,    .00001,
     +     .00001,    .00003,    .00007 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .30123,    .08125,   -.09127,    .00094,    .00000,
     +     .00000,    .00050,    .00095,
     +     .27851,    .07467,   -.08120,    .00087,    .00000,
     +     .00000,    .00044,    .00084,
     +     .24888,    .06601,   -.06853,    .00079,   -.00008,
     +     .00000,    .00041,    .00066,
     +     .23008,    .06054,   -.06101,    .00067,   -.00007,
     +     .00000,    .00037,    .00062,
     +     .21221,    .05548,   -.05412,    .00060,   -.00006,
     +     .00000,    .00032,    .00056,
     +     .19806,    .05149,   -.04883,    .00056,   -.00005,
     +     .00000,    .00028,    .00052,
     +     .18557,    .04799,   -.04432,    .00051,   -.00003,
     +     .00000,    .00025,    .00048,
     +     .17337,    .04458,   -.03997,    .00045,   -.00003,
     +     .00000,    .00023,    .00043 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16350,    .04187,   -.03659,    .00042,   -.00002,
     +     .00000,    .00020,    .00038,
     +     .15460,    .03941,   -.03360,    .00039,   -.00002,
     +     .00000,    .00018,    .00034,
     +     .14798,    .03759,   -.03150,    .00038,   -.00002,
     +     .00000,    .00020,    .00034,
     +     .13498,    .03405,   -.02738,    .00032,   -.00001,
     +     .00000,    .00018,    .00032,
     +     .12506,    .03136,   -.02440,    .00029,   -.00001,
     +    -.00002,    .00015,    .00028,
     +     .11492,    .02867,   -.02154,    .00026,   -.00001,
     +    -.00002,    .00014,    .00025,
     +     .10535,    .02611,   -.01890,    .00023,    .00000,
     +    -.00001,    .00012,    .00022,
     +     .09748,    .02403,   -.01684,    .00022,    .00000,
     +    -.00001,    .00013,    .00018 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .09023,    .02213,   -.01501,    .00019,    .00000,
     +     .00000,    .00009,    .00018,
     +     .08465,    .02070,   -.01366,    .00019,    .00000,
     +     .00000,    .00009,    .00017,
     +     .07846,    .01908,   -.01217,    .00017,    .00000,
     +     .00000,    .00009,    .00015,
     +     .07339,    .01778,   -.01102,    .00016,    .00000,
     +     .00000,    .00009,    .00014,
     +     .06907,    .01668,   -.01006,    .00017,    .00000,
     +     .00000,    .00009,    .00012,
     +     .06403,    .01538,   -.00893,    .00013,    .00000,
     +     .00000,    .00007,    .00011,
     +     .05965,    .01427,   -.00801,    .00012,    .00001,
     +     .00001,    .00006,    .00011,
     +     .05587,    .01332,   -.00726,    .00013,    .00001,
     +     .00001,    .00006,    .00010 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .05235,    .01242,   -.00656,    .00009,    .00001,
     +     .00001,    .00006,    .00010,
     +     .04916,    .01163,   -.00595,    .00010,    .00001,
     +     .00001,    .00004,    .00008,
     +     .04633,    .01093,   -.00543,    .00008,    .00001,
     +     .00001,    .00005,    .00007,
     +     .04384,    .01031,   -.00498,    .00008,    .00001,
     +     .00001,    .00005,    .00007,
     +     .04148,    .00973,   -.00458,    .00008,    .00001,
     +     .00001,    .00005,    .00007,
     +     .03930,    .00919,   -.00420,    .00008,    .00001,
     +     .00001,    .00003,    .00006,
     +     .03734,    .00871,   -.00388,    .00007,    .00001,
     +     .00001,    .00003,    .00006,
     +     .03559,    .00827,   -.00360,    .00007,    .00001,
     +     .00001,    .00003,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03391,    .00787,   -.00334,    .00007,    .00001,
     +     .00001,    .00003,    .00006,
     +     .03235,    .00749,   -.00310,    .00007,    .00001,
     +     .00001,    .00003,    .00005,
     +     .03093,    .00714,   -.00288,    .00006,    .00001,
     +     .00001,    .00003,    .00005,
     +     .02966,    .00683,   -.00269,    .00006,    .00001,
     +     .00001,    .00002,    .00005,
     +     .02842,    .00653,   -.00251,    .00005,    .00001,
     +     .00001,    .00002,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .22523,    .05605,   -.08332,    .00042,    .00000,
     +     .00000,    .00016,    .00036,
     +     .20600,    .05086,   -.07345,    .00040,    .00000,
     +     .00000,    .00019,    .00026,
     +     .18128,    .04433,   -.06119,    .00027,   -.00004,
     +     .00000,    .00012,    .00026,
     +     .16572,    .04028,   -.05403,    .00027,   -.00003,
     +     .00000,    .00012,    .00022,
     +     .15125,    .03651,   -.04749,    .00023,   -.00003,
     +     .00000,    .00012,    .00019,
     +     .13996,    .03357,   -.04259,    .00020,   -.00002,
     +     .00000,    .00012,    .00021,
     +     .13004,    .03103,   -.03834,    .00019,   -.00002,
     +     .00000,    .00010,    .00017,
     +     .12041,    .02859,   -.03437,    .00019,   -.00002,
     +     .00000,    .00010,    .00014 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11274,    .02664,   -.03125,    .00017,   -.00002,
     +     .00000,    .00008,    .00012,
     +     .10587,    .02492,   -.02860,    .00016,   -.00001,
     +     .00000,    .00008,    .00014,
     +     .10078,    .02364,   -.02664,    .00014,   -.00001,
     +     .00000,    .00007,    .00013,
     +     .09090,    .02119,   -.02291,    .00012,   -.00001,
     +     .00000,    .00007,    .00010,
     +     .08343,    .01934,   -.02027,    .00010,   -.00001,
     +    -.00001,    .00005,    .00010,
     +     .07591,    .01749,   -.01772,    .00009,   -.00001,
     +    -.00001,    .00005,    .00009,
     +     .06891,    .01579,   -.01544,    .00008,   -.00001,
     +    -.00001,    .00005,    .00008,
     +     .06319,    .01441,   -.01364,    .00008,   -.00001,
     +    -.00001,    .00004,    .00008 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .05797,    .01315,   -.01204,    .00006,    .00000,
     +     .00000,    .00004,    .00005,
     +     .05402,    .01220,   -.01089,    .00007,    .00000,
     +     .00000,    .00004,    .00005,
     +     .04962,    .01116,   -.00963,    .00007,    .00000,
     +     .00000,    .00002,    .00005,
     +     .04609,    .01032,   -.00865,    .00005,    .00000,
     +     .00000,    .00003,    .00004,
     +     .04312,    .00962,   -.00784,    .00004,    .00000,
     +     .00000,    .00003,    .00004,
     +     .03962,    .00881,   -.00696,    .00005,    .00000,
     +     .00000,    .00003,    .00004,
     +     .03665,    .00811,   -.00620,    .00004,    .00000,
     +     .00000,    .00003,    .00004,
     +     .03409,    .00751,   -.00555,    .00002,    .00000,
     +     .00000,    .00003,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .03172,    .00696,   -.00501,    .00004,    .00000,
     +     .00000,    .00003,    .00002,
     +     .02957,    .00648,   -.00451,    .00002,    .00000,
     +     .00000,    .00003,    .00002,
     +     .02771,    .00604,   -.00409,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02606,    .00567,   -.00374,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02452,    .00532,   -.00341,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02311,    .00499,   -.00312,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02186,    .00471,   -.00287,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02072,    .00446,   -.00265,    .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)/
     +     .01966,    .00422,   -.00245,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01866,    .00400,   -.00226,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01777,    .00379,   -.00210,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01696,    .00361,   -.00196,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01618,    .00344,   -.00182,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .15666,    .03563,   -.06789,    .00014,    .00000,
     +     .00000,    .00005,    .00011,
     +     .14168,    .03198,   -.05931,    .00009,    .00000,
     +     .00000,    .00005,    .00011,
     +     .12256,    .02744,   -.04886,    .00014,   -.00002,
     +     .00000,    .00006,    .00006,
     +     .11080,    .02463,   -.04268,    .00009,   -.00001,
     +     .00000,    .00006,    .00006,
     +     .10000,    .02209,   -.03719,    .00009,   -.00001,
     +     .00000,    .00003,    .00006,
     +     .09163,    .02013,   -.03304,    .00007,   -.00001,
     +     .00000,    .00003,    .00006,
     +     .08438,    .01844,   -.02954,    .00005,   -.00001,
     +     .00000,    .00003,    .00005,
     +     .07743,    .01683,   -.02625,    .00005,   -.00001,
     +     .00000,    .00003,    .00004 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .07189,    .01557,   -.02375,    .00006,   -.00001,
     +     .00000,    .00003,    .00004,
     +     .06700,    .01445,   -.02155,    .00004,   -.00001,
     +     .00000,    .00003,    .00003,
     +     .06343,    .01365,   -.02000,    .00005,   -.00001,
     +     .00000,    .00001,    .00003,
     +     .05651,    .01208,   -.01703,    .00004,    .00000,
     +     .00000,    .00001,    .00003,
     +     .05136,    .01092,   -.01495,    .00004,    .00000,
     +     .00000,    .00001,    .00003,
     +     .04624,    .00978,   -.01295,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04150,    .00873,   -.01117,    .00002,    .00000,
     +     .00000,    .00001,    .00003,
     +     .03770,    .00788,   -.00981,    .00003,    .00000,
     +     .00000,    .00001,    .00003 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .03427,    .00714,   -.00859,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03169,    .00657,   -.00768,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02885,    .00595,   -.00676,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02657,    .00548,   -.00602,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02467,    .00505,   -.00540,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02247,    .00458,   -.00475,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02061,    .00419,   -.00421,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01903,    .00386,   -.00376,    .00001,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01757,    .00354,   -.00336,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01627,    .00327,   -.00301,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01513,    .00304,   -.00271,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01415,    .00283,   -.00246,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01324,    .00264,   -.00224,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01240,    .00247,   -.00204,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01166,    .00232,   -.00187,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01099,    .00217,   -.00171,    .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)/
     +     .01037,    .00205,   -.00158,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00980,    .00192,   -.00145,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00929,    .00182,   -.00134,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00882,    .00172,   -.00123,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00837,    .00164,   -.00115,    .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)/
     +     .09926,    .02039,   -.04922,    .00007,    .00000,
     +     .00000,   -.00004,    .00002,
     +     .08857,    .01809,   -.04260,    .00007,    .00000,
     +     .00000,   -.00001,    .00002,
     +     .07529,    .01525,   -.03457,    .00004,   -.00001,
     +     .00000,   -.00001,    .00002,
     +     .06724,    .01353,   -.02994,    .00004,    .00000,
     +     .00000,    .00000,    .00002,
     +     .05985,    .01198,   -.02576,    .00004,    .00000,
     +     .00000,    .00000,    .00002,
     +     .05428,    .01083,   -.02270,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04947,    .00982,   -.02012,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04492,    .00887,   -.01774,    .00004,    .00000,
     +     .00000,    .00000,    .00002 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04137,    .00812,   -.01590,    .00002,    .00000,
     +     .00000,    .00000,    .00002,
     +     .03824,    .00750,   -.01434,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03597,    .00701,   -.01319,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03161,    .00613,   -.01113,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02840,    .00548,   -.00967,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02526,    .00485,   -.00828,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02239,    .00428,   -.00707,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02014,    .00383,   -.00613,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01809,    .00342,   -.00531,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01659,    .00313,   -.00475,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01495,    .00280,   -.00411,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01365,    .00254,   -.00363,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01257,    .00234,   -.00327,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01134,    .00211,   -.00283,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01030,    .00191,   -.00248,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00942,    .00174,   -.00220,    .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)/
     +     .00864,    .00158,   -.00195,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00793,    .00146,   -.00174,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00733,    .00134,   -.00156,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00679,    .00124,   -.00140,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00632,    .00114,   -.00127,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00587,    .00106,   -.00114,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00548,    .00098,   -.00104,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00514,    .00093,   -.00095,    .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)/
     +     .00482,    .00087,   -.00087,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00453,    .00081,   -.00080,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00427,    .00076,   -.00074,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00403,    .00072,   -.00068,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00380,    .00067,   -.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)/
     +     .05498,    .00990,   -.03073,    .00000,    .00000,
     +     .00000,    .00002,    .00000,
     +     .04838,    .00868,   -.02625,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04027,    .00718,   -.02095,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03545,    .00632,   -.01794,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03113,    .00553,   -.01528,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02786,    .00491,   -.01330,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02511,    .00442,   -.01167,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02254,    .00396,   -.01020,    .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)/
     +     .02053,    .00359,   -.00905,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01880,    .00325,   -.00809,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01755,    .00304,   -.00742,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01517,    .00262,   -.00616,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01346,    .00231,   -.00530,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01180,    .00202,   -.00448,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01031,    .00176,   -.00376,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00914,    .00155,   -.00323,    .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)/
     +     .00813,    .00139,   -.00279,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00736,    .00125,   -.00245,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00656,    .00109,   -.00209,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00592,    .00099,   -.00184,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00540,    .00090,   -.00163,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00481,    .00081,   -.00142,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00432,    .00072,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00391,    .00064,   -.00106,    .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)/
     +     .00355,    .00058,   -.00094,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00323,    .00052,   -.00082,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00295,    .00049,   -.00073,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00271,    .00044,   -.00065,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00250,    .00041,   -.00058,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00231,    .00038,   -.00052,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00214,    .00035,   -.00048,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00199,    .00032,   -.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,    .00030,   -.00039,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00174,    .00028,   -.00036,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00161,    .00026,   -.00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00153,    .00024,   -.00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00143,    .00023,   -.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)/
     +     .00780,    .00107,   -.00551,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00657,    .00089,   -.00453,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00515,    .00069,   -.00342,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00057,   -.00280,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00364,    .00048,   -.00229,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00315,    .00042,   -.00193,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00275,    .00036,   -.00165,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00238,    .00031,   -.00139,    .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)/
     +     .00211,    .00028,   -.00121,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00187,    .00025,   -.00105,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00170,    .00023,   -.00094,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00018,   -.00076,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00120,    .00015,   -.00062,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00101,    .00013,   -.00051,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00086,    .00011,   -.00042,    .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,    .00007,   -.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)/
     +     .00021,    .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='cor03dis.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