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

sfmrs_99a9.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a9(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
C
#include "pdf/impdp.inc"
C
      parameter(nx=49,nq=37,ntenth=23,np=8)
C
#include "pdf/expdp.inc"
     +       f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
     +     .00524,    .00225,   1.11507,    .91673,    .00000,
     +     .00000,    .43325,    .92916,
     +     .00541,    .00231,   2.38593,    .95124,    .00000,
     +     .00000,    .47390,    .96375,
     +     .00565,    .00241,   4.88911,   1.02724,    .00000,
     +     .00000,    .55860,   1.03984,
     +     .00582,    .00249,   7.22930,   1.10088,    .04540,
     +     .00000,    .63830,   1.11354,
     +     .00601,    .00257,  10.05464,   1.19630,    .15607,
     +     .00000,    .73982,   1.20900,
     +     .00617,    .00264,  12.97012,   1.29483,    .26204,
     +     .00000,    .84348,   1.30757,
     +     .00632,    .00271,  16.24274,   1.40201,    .37896,
     +     .00000,    .95547,   1.41478,
     +     .00648,    .00279,  20.25854,   1.53030,    .52072,
     +     .00000,   1.08873,   1.54311 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00663,    .00285,  24.17170,   1.65622,    .65343,
     +     .00000,   1.21886,   1.66904,
     +     .00677,    .00292,  28.37326,   1.78997,    .79473,
     +     .00000,   1.35661,   1.80282,
     +     .00688,    .00297,  32.05407,   1.90447,    .91807,
     +     .00000,   1.47420,   1.91732,
     +     .00712,    .00308,  40.57703,   2.17721,   1.20547,
     +     .02267,   1.75337,   2.19008,
     +     .00732,    .00318,  48.59679,   2.44136,   1.48125,
     +     .34670,   2.02287,   2.45424,
     +     .00756,    .00329,  58.72475,   2.77219,   1.82688,
     +     .74567,   2.35952,   2.78507,
     +     .00780,    .00341,  70.64552,   3.15679,   2.22779,
     +    1.16491,   2.75001,   3.16967,
     +     .00803,    .00352,  82.70376,   3.54281,   2.62948,
     +    1.58516,   3.14121,   3.55567 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00826,    .00363,  96.13752,   3.97051,   3.07427,
     +    2.04863,   3.57401,   3.98336,
     +     .00845,    .00373, 108.22611,   4.35525,   3.47240,
     +    2.45877,   3.96288,   4.36809,
     +     .00868,    .00384, 124.03743,   4.85895,   3.99182,
     +    2.99179,   4.47149,   4.87177,
     +     .00889,    .00395, 139.18558,   5.34060,   4.48917,
     +    3.50449,   4.95738,   5.35340,
     +     .00909,    .00405, 154.05742,   5.81329,   4.97738,
     +    4.00810,   5.43387,   5.82607,
     +     .00934,    .00417, 174.06555,   6.45391,   5.63494,
     +    4.67988,   6.07920,   6.46665,
     +     .00957,    .00429, 194.26398,   7.10182,   6.30046,
     +    5.36164,   6.73144,   7.11453,
     +     .00979,    .00440, 214.50067,   7.75156,   6.96900,
     +    6.04885,   7.38514,   7.76423 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01002,    .00452, 235.61906,   8.43742,   7.67005,
     +    6.76241,   8.07489,   8.45006,
     +     .01024,    .00463, 257.52185,   9.15027,   8.40007,
     +    7.50843,   8.79146,   9.16287,
     +     .01045,    .00474, 279.31253,   9.86294,   9.12959,
     +    8.25385,   9.50759,   9.87551,
     +     .01065,    .00485, 300.58368,  10.56513,   9.84621,
     +    8.98322,  10.21299,  10.57766,
     +     .01086,    .00495, 323.06915,  11.30837,  10.60650,
     +    9.76005,  10.95939,  11.32087,
     +     .01106,    .00506, 345.73203,  12.06667,  11.37879,
     +   10.54457,  11.72074,  12.07913,
     +     .01125,    .00516, 368.37097,  12.82443,  12.15279,
     +   11.33447,  12.48136,  12.83686,
     +     .01144,    .00526, 390.16098,  13.56290,  12.90404,
     +   12.09701,  13.22250,  13.57529 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01163,    .00535, 413.08563,  14.34101,  13.69720,
     +   12.90463,  14.00325,  14.35336,
     +     .01181,    .00545, 436.19785,  15.13305,  14.50293,
     +   13.72307,  14.79787,  15.14537,
     +     .01199,    .00555, 458.92014,  15.91600,  15.29935,
     +   14.53222,  15.58324,  15.92828,
     +     .01217,    .00564, 481.15384,  16.68521,  16.08232,
     +   15.32866,  16.35472,  16.69745,
     +     .01234,    .00573, 503.88434,  17.48048,  16.88959,
     +   16.14695,  17.15225,  17.49269 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00708,    .00307,   1.04011,    .77621,    .00000,
     +     .00000,    .36687,    .78339,
     +     .00730,    .00317,   2.18517,    .80835,    .00000,
     +     .00000,    .40381,    .81557,
     +     .00764,    .00332,   4.39208,    .87572,    .00000,
     +     .00000,    .47799,    .88299,
     +     .00788,    .00343,   6.41419,    .93928,    .03864,
     +     .00000,    .54628,    .94658,
     +     .00814,    .00355,   8.81468,   1.02017,    .13234,
     +     .00000,    .63194,   1.02750,
     +     .00836,    .00365,  11.25605,   1.10257,    .22094,
     +     .00000,    .71834,   1.10992,
     +     .00857,    .00375,  13.96372,   1.19142,    .31773,
     +     .00000,    .81093,   1.19879,
     +     .00880,    .00386,  17.24739,   1.29689,    .43405,
     +     .00000,    .92026,   1.30427 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00900,    .00396,  20.41074,   1.39947,    .54195,
     +     .00000,   1.02612,   1.40687,
     +     .00920,    .00405,  23.77456,   1.50770,    .65602,
     +     .00000,   1.13744,   1.51510,
     +     .00935,    .00413,  26.69842,   1.59986,    .75502,
     +     .00000,   1.23201,   1.60727,
     +     .00968,    .00429,  33.38902,   1.81755,    .98368,
     +     .01852,   1.45469,   1.82497,
     +     .00996,    .00443,  39.59538,   2.02639,   1.20093,
     +     .27322,   1.66767,   2.03381,
     +     .01029,    .00459,  47.33649,   2.28562,   1.47070,
     +     .58488,   1.93141,   2.29305,
     +     .01062,    .00476,  56.33228,   2.58417,   1.78060,
     +     .90858,   2.23451,   2.59160,
     +     .01093,    .00492,  65.32340,   2.88116,   2.08830,
     +    1.23006,   2.53552,   2.88859 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01125,    .00508,  75.23013,   3.20752,   2.42619,
     +    1.58154,   2.86582,   3.21494,
     +     .01151,    .00521,  84.05628,   3.49888,   2.72630,
     +    1.89008,   3.16037,   3.50630,
     +     .01183,    .00537,  95.48808,   3.87748,   3.11491,
     +    2.28799,   3.54275,   3.88489,
     +     .01211,    .00552, 106.33683,   4.23687,   3.48432,
     +    2.66797,   3.90541,   4.24427,
     +     .01238,    .00566, 116.89914,   4.58730,   3.84463,
     +    3.03880,   4.25877,   4.59470,
     +     .01272,    .00583, 130.97639,   5.05875,   4.32633,
     +    3.52968,   4.73386,   5.06613,
     +     .01304,    .00600, 145.05559,   5.53209,   4.81037,
     +    4.02430,   5.21054,   5.53946,
     +     .01334,    .00616, 159.04370,   6.00362,   5.29347,
     +    4.51972,   5.68514,   6.01098 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01364,    .00632, 173.51248,   6.49792,   5.79648,
     +    5.03032,   6.18243,   6.50526,
     +     .01394,    .00648, 188.40450,   7.00854,   6.31720,
     +    5.56110,   6.69592,   7.01587,
     +     .01423,    .00663, 203.11081,   7.51600,   6.83454,
     +    6.08838,   7.20605,   7.52332,
     +     .01450,    .00677, 217.36116,   8.01310,   7.33975,
     +    6.60121,   7.70561,   8.02040,
     +     .01478,    .00692, 232.33342,   8.53662,   7.87322,
     +    7.14495,   8.23158,   8.54391,
     +     .01505,    .00706, 247.31435,   9.06772,   8.41195,
     +    7.69074,   8.76503,   9.07499,
     +     .01531,    .00720, 262.19849,   9.59605,   8.94960,
     +    8.23810,   9.29557,   9.60331,
     +     .01556,    .00733, 276.42926,  10.10825,   9.46867,
     +    8.76356,   9.80983,  10.11550 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01581,    .00747, 291.32748,  10.64572,  10.01457,
     +    9.31805,  10.34934,  10.65295,
     +     .01606,    .00760, 306.25809,  11.19023,  10.56648,
     +    9.87724,  10.89584,  11.19745,
     +     .01630,    .00773, 320.86191,  11.72624,  11.10979,
     +   10.42786,  11.43371,  11.73344,
     +     .01653,    .00785, 335.08524,  12.25082,  11.64195,
     +   10.96788,  11.96005,  12.25801,
     +     .01677,    .00798, 349.54446,  12.79079,  12.18817,
     +   11.52014,  12.50177,  12.79796 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00955,    .00419,    .97124,    .65697,    .00000,
     +     .00000,    .31075,    .66050,
     +     .00987,    .00434,   2.00252,    .68662,    .00000,
     +     .00000,    .34416,    .69017,
     +     .01033,    .00456,   3.94679,    .74620,    .00000,
     +     .00000,    .40905,    .74978,
     +     .01067,    .00473,   5.69200,    .80103,    .03287,
     +     .00000,    .46757,    .80461,
     +     .01103,    .00490,   7.72829,    .86957,    .11219,
     +     .00000,    .53982,    .87316,
     +     .01134,    .00505,   9.76873,    .93843,    .18622,
     +     .00000,    .61178,    .94204,
     +     .01164,    .00520,  12.00411,   1.01200,    .26631,
     +     .00000,    .68826,   1.01562,
     +     .01195,    .00536,  14.68262,   1.09859,    .36168,
     +     .00000,    .77784,   1.10221 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01223,    .00550,  17.23293,   1.18202,    .44934,
     +     .00000,    .86381,   1.18565,
     +     .01250,    .00564,  19.91822,   1.26941,    .54133,
     +     .00000,    .95359,   1.27304,
     +     .01271,    .00574,  22.23371,   1.34344,    .62070,
     +     .00000,   1.02948,   1.34707,
     +     .01316,    .00598,  27.46826,   1.51675,    .80239,
     +     .01512,   1.20664,   1.52038,
     +     .01356,    .00618,  32.25300,   1.68138,    .97327,
     +     .21521,   1.37448,   1.68502,
     +     .01400,    .00641,  38.14560,   1.88388,   1.18348,
     +     .45855,   1.58045,   1.88753,
     +     .01446,    .00665,  44.90436,   2.11484,   1.42257,
     +     .70831,   1.81491,   2.11849,
     +     .01488,    .00687,  51.57720,   2.34250,   1.65779,
     +     .95403,   2.04566,   2.34616 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01531,    .00710,  58.84702,   2.59057,   1.91387,
     +    1.22031,   2.29675,   2.59423,
     +     .01567,    .00728,  65.25777,   2.81031,   2.13954,
     +    1.45215,   2.51895,   2.81397,
     +     .01611,    .00752,  73.47825,   3.09367,   2.42951,
     +    1.74880,   2.80520,   3.09733,
     +     .01650,    .00772,  81.20396,   3.36064,   2.70311,
     +    2.02999,   3.07469,   3.36431,
     +     .01686,    .00791,  88.66174,   3.61925,   2.96823,
     +    2.30261,   3.33554,   3.62291,
     +     .01732,    .00816,  98.50539,   3.96456,   3.31998,
     +    2.66064,   3.68364,   3.96823,
     +     .01775,    .00839, 108.25667,   4.30867,   3.67084,
     +    3.01876,   4.03031,   4.31233,
     +     .01816,    .00861, 117.86207,   4.64915,   4.01871,
     +    3.37514,   4.37313,   4.65282 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01857,    .00883, 127.70645,   5.00353,   4.37827,
     +    3.73962,   4.72980,   5.00719,
     +     .01898,    .00905, 137.75996,   5.36732,   4.74825,
     +    4.11628,   5.09580,   5.37099,
     +     .01937,    .00926, 147.61273,   5.72670,   5.11365,
     +    4.48824,   5.45721,   5.73037,
     +     .01973,    .00946, 157.08716,   6.07662,   5.46832,
     +    4.84777,   5.80902,   6.08029,
     +     .02010,    .00966, 166.97978,   6.44329,   5.84103,
     +    5.22720,   6.17756,   6.44696,
     +     .02047,    .00986, 176.80305,   6.81308,   6.21515,
     +    5.60567,   6.54915,   6.81675,
     +     .02082,    .01005, 186.50916,   7.17926,   6.58693,
     +    5.98371,   6.91702,   7.18293,
     +     .02115,    .01023, 195.72423,   7.53236,   6.94385,
     +    6.34450,   7.27168,   7.53603 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02149,    .01042, 205.32343,   7.90133,   7.31776,
     +    6.72382,   7.64222,   7.90500,
     +     .02183,    .01060, 214.88344,   8.27331,   7.69392,
     +    7.10443,   8.01572,   8.27698,
     +     .02215,    .01078, 224.18472,   8.63792,   8.06268,
     +    7.47765,   8.38177,   8.64160,
     +     .02246,    .01094, 233.20016,   8.99336,   8.42250,
     +    7.84235,   8.73855,   8.99704,
     +     .02277,    .01112, 242.31064,   9.35757,   8.79010,
     +    8.21348,   9.10410,   9.36125 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01138,    .00503,    .93392,    .59578,    .00000,
     +     .00000,    .28205,    .59782,
     +     .01177,    .00521,   1.90382,    .62396,    .00000,
     +     .00000,    .31349,    .62601,
     +     .01233,    .00550,   3.70850,    .67935,    .00000,
     +     .00000,    .37348,    .68140,
     +     .01275,    .00570,   5.30865,    .72960,    .02990,
     +     .00000,    .42692,    .73166,
     +     .01318,    .00592,   7.15650,    .79179,    .10183,
     +     .00000,    .49231,    .79386,
     +     .01355,    .00611,   8.99173,    .85376,    .16845,
     +     .00000,    .55695,    .85583,
     +     .01391,    .00630,  10.98762,    .91960,    .24011,
     +     .00000,    .62529,    .92168,
     +     .01430,    .00650,  13.36209,    .99669,    .32499,
     +     .00000,    .70496,    .99877 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01463,    .00667,  15.60710,   1.07055,    .40257,
     +     .00000,    .78101,   1.07264,
     +     .01495,    .00684,  17.95703,   1.14758,    .48363,
     +     .00000,    .86010,   1.14967,
     +     .01521,    .00697,  19.97372,   1.21262,    .55333,
     +     .00000,    .92674,   1.21471,
     +     .01576,    .00726,  24.49977,   1.36408,    .71203,
     +     .01343,   1.08151,   1.36618,
     +     .01623,    .00751,  28.60038,   1.50710,    .86039,
     +     .18709,   1.22728,   1.50921,
     +     .01676,    .00779,  33.61220,   1.68206,   1.04187,
     +     .39755,   1.40522,   1.68418,
     +     .01732,    .00809,  39.31599,   1.88044,   1.24708,
     +     .61204,   1.60660,   1.88256,
     +     .01783,    .00836,  44.90605,   2.07493,   1.44784,
     +     .82189,   1.80373,   2.07706 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01835,    .00863,  50.95521,   2.28577,   1.66530,
     +    1.04811,   2.01717,   2.28791,
     +     .01878,    .00886,  56.25687,   2.47167,   1.85604,
     +    1.24411,   2.20516,   2.47381,
     +     .01930,    .00915,  63.01435,   2.71028,   2.09998,
     +    1.49372,   2.44626,   2.71243,
     +     .01977,    .00940,  69.32825,   2.93410,   2.32914,
     +    1.72928,   2.67222,   2.93626,
     +     .02020,    .00963,  75.39213,   3.15005,   2.55033,
     +    1.95677,   2.89010,   3.15221,
     +     .02075,    .00993,  83.34931,   3.43711,   2.84245,
     +    2.25410,   3.17953,   3.43928,
     +     .02127,    .01021,  91.18669,   3.72189,   3.13255,
     +    2.55021,   3.46649,   3.72406,
     +     .02176,    .01048,  98.86726,   4.00254,   3.41905,
     +    2.84374,   3.74915,   4.00472 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02225,    .01075, 106.69511,   4.29338,   3.71387,
     +    3.14255,   4.04195,   4.29557,
     +     .02273,    .01101, 114.65194,   4.59085,   4.01614,
     +    3.45027,   4.34130,   4.59306,
     +     .02319,    .01126, 122.41418,   4.88365,   4.31361,
     +    3.75306,   4.63584,   4.88586,
     +     .02363,    .01150, 129.84366,   5.16772,   4.60129,
     +    4.04464,   4.92151,   5.16994,
     +     .02407,    .01175, 137.57248,   5.46449,   4.90274,
     +    4.35151,   5.21988,   5.46672,
     +     .02451,    .01198, 145.21123,   5.76273,   5.20421,
     +    4.65644,   5.51965,   5.76496,
     +     .02492,    .01221, 152.73439,   6.05726,   5.50305,
     +    4.96030,   5.81563,   6.05950,
     +     .02532,    .01243, 159.84604,   6.34034,   5.78897,
     +    5.24926,   6.10004,   6.34258 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02572,    .01265, 167.23213,   6.63542,   6.08782,
     +    5.55240,   6.39646,   6.63768,
     +     .02612,    .01287, 174.55977,   6.93203,   6.38756,
     +    5.85562,   6.69437,   6.93430,
     +     .02650,    .01309, 181.66635,   7.22203,   6.68067,
     +    6.15224,   6.98559,   7.22430,
     +     .02687,    .01329, 188.53462,   7.50407,   6.96602,
     +    6.44144,   7.26878,   7.50635,
     +     .02724,    .01349, 195.44975,   7.79227,   7.25672,
     +    6.73487,   7.55813,   7.79457 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01290,    .00572,    .90888,    .55581,    .00000,
     +     .00000,    .26336,    .55703,
     +     .01334,    .00595,   1.83741,    .58295,    .00000,
     +     .00000,    .29344,    .58418,
     +     .01399,    .00628,   3.54883,    .63551,    .00000,
     +     .00000,    .35015,    .63674,
     +     .01446,    .00652,   5.05294,    .68274,    .02795,
     +     .00000,    .40026,    .68398,
     +     .01495,    .00678,   6.77699,    .74077,    .09505,
     +     .00000,    .46117,    .74201,
     +     .01538,    .00700,   8.47832,    .79825,    .15686,
     +     .00000,    .52106,    .79949,
     +     .01579,    .00722,  10.31886,    .85908,    .22306,
     +     .00000,    .58415,    .86033,
     +     .01623,    .00745,  12.49725,    .93003,    .30118,
     +     .00000,    .65743,    .93129 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01662,    .00765,  14.54646,    .99774,    .37229,
     +     .00000,    .72710,    .99901,
     +     .01698,    .00784,  16.68237,   1.06813,    .44637,
     +     .00000,    .79934,   1.06940,
     +     .01728,    .00800,  18.50912,   1.12743,    .50990,
     +     .00000,    .86008,   1.12870,
     +     .01790,    .00833,  22.58739,   1.26497,    .65401,
     +     .01234,   1.00060,   1.26625,
     +     .01844,    .00862,  26.25867,   1.39430,    .78815,
     +     .16935,   1.13240,   1.39560,
     +     .01905,    .00895,  30.72119,   1.55188,    .95158,
     +     .35915,   1.29265,   1.55318,
     +     .01969,    .00929,  35.77131,   1.72980,   1.13558,
     +     .55163,   1.47326,   1.73111,
     +     .02027,    .00960,  40.69457,   1.90354,   1.31488,
     +     .73918,   1.64937,   1.90486 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02086,    .00992,  45.99630,   2.09120,   1.50839,
     +     .94060,   1.83936,   2.09254,
     +     .02135,    .01019,  50.62225,   2.25611,   1.67753,
     +    1.11450,   2.00614,   2.25745,
     +     .02194,    .01052,  56.49287,   2.46707,   1.89314,
     +    1.33521,   2.21933,   2.46843,
     +     .02247,    .01081,  61.95516,   2.66432,   2.09504,
     +    1.54285,   2.41849,   2.66569,
     +     .02296,    .01107,  67.18176,   2.85409,   2.28937,
     +    1.74280,   2.60999,   2.85547,
     +     .02359,    .01141,  74.01127,   3.10553,   2.54517,
     +    2.00325,   2.86356,   3.10692,
     +     .02418,    .01174,  80.71011,   3.35418,   2.79839,
     +    2.26181,   3.11416,   3.35558,
     +     .02473,    .01204,  87.25063,   3.59851,   3.04776,
     +    2.51739,   3.36028,   3.59993 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02529,    .01235,  93.88946,   3.85092,   3.30356,
     +    2.77671,   3.61445,   3.85236,
     +     .02584,    .01265, 100.61486,   4.10841,   3.56513,
     +    3.04308,   3.87361,   4.10986,
     +     .02636,    .01294, 107.15408,   4.36119,   3.82189,
     +    3.30451,   4.12795,   4.36265,
     +     .02685,    .01322, 113.39166,   4.60579,   4.06955,
     +    3.55558,   4.37399,   4.60727,
     +     .02735,    .01349, 119.86333,   4.86079,   4.32852,
     +    3.81929,   4.63041,   4.86228,
     +     .02784,    .01377, 126.23753,   5.11638,   4.58683,
     +    4.08060,   4.88738,   5.11788,
     +     .02831,    .01403, 132.50072,   5.36831,   4.84241,
     +    4.34055,   5.14060,   5.36982,
     +     .02876,    .01428, 138.40245,   5.60987,   5.08635,
     +    4.58713,   5.38335,   5.61139 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02921,    .01453, 144.51881,   5.86123,   5.34088,
     +    4.84538,   5.63591,   5.86277,
     +     .02966,    .01478, 150.56964,   6.11335,   5.59563,
     +    5.10314,   5.88919,   6.11491,
     +     .03009,    .01502, 156.42438,   6.35940,   5.84428,
     +    5.35483,   6.13633,   6.36097,
     +     .03051,    .01525, 162.07086,   6.59830,   6.08597,
     +    5.59983,   6.37626,   6.59988,
     +     .03092,    .01548, 167.74022,   6.84192,   6.33167,
     +    5.84787,   6.62090,   6.84352 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01421,    .00634,    .89036,    .52665,    .00000,
     +     .00000,    .24975,    .52737,
     +     .01470,    .00659,   1.78800,    .55298,    .00000,
     +     .00000,    .27881,    .55371,
     +     .01542,    .00696,   3.43021,    .60343,    .00000,
     +     .00000,    .33309,    .60416,
     +     .01595,    .00724,   4.86351,    .64843,    .02653,
     +     .00000,    .38075,    .64917,
     +     .01650,    .00753,   6.49679,    .70341,    .09008,
     +     .00000,    .43840,    .70416,
     +     .01697,    .00778,   8.10045,    .75762,    .14840,
     +     .00000,    .49483,    .75837,
     +     .01743,    .00802,   9.82816,    .81482,    .21064,
     +     .00000,    .55411,    .81558,
     +     .01792,    .00828,  11.86473,    .88133,    .28387,
     +     .00000,    .62277,    .88210 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01834,    .00851,  13.77292,    .94460,    .35033,
     +     .00000,    .68785,    .94537,
     +     .01875,    .00873,  15.75522,   1.01021,    .41939,
     +     .00000,    .75516,   1.01099,
     +     .01908,    .00890,  17.44606,   1.06538,    .47850,
     +     .00000,    .81166,   1.06616,
     +     .01977,    .00928,  21.20529,   1.19296,    .61218,
     +     .01155,    .94198,   1.19375,
     +     .02037,    .00960,  24.57227,   1.31252,    .73619,
     +     .15673,   1.06380,   1.31332,
     +     .02104,    .00997,  28.64731,   1.45772,    .88680,
     +     .33187,   1.21147,   1.45854,
     +     .02175,    .01035,  33.23850,   1.62114,   1.05581,
     +     .50879,   1.37736,   1.62197,
     +     .02239,    .01070,  37.69575,   1.78021,   1.21998,
     +     .68064,   1.53862,   1.78106 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02304,    .01106,  42.47726,   1.95154,   1.39665,
     +     .86465,   1.71209,   1.95241,
     +     .02358,    .01136,  46.63472,   2.10169,   1.55067,
     +    1.02309,   1.86397,   2.10257,
     +     .02424,    .01172,  51.89274,   2.29328,   1.74647,
     +    1.22364,   2.05760,   2.29418,
     +     .02483,    .01204,  56.76890,   2.47197,   1.92937,
     +    1.41184,   2.23805,   2.47288,
     +     .02537,    .01234,  61.42110,   2.64350,   2.10503,
     +    1.59267,   2.41116,   2.64442,
     +     .02605,    .01272,  67.47970,   2.87018,   2.33563,
     +    1.82758,   2.63980,   2.87112,
     +     .02670,    .01308,  73.40303,   3.09378,   2.56335,
     +    2.06021,   2.86519,   3.09474,
     +     .02732,    .01342,  79.16953,   3.31300,   2.78711,
     +    2.28966,   3.08606,   3.31398 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02793,    .01376,  85.00373,   3.53892,   3.01605,
     +    2.52184,   3.31358,   3.53992,
     +     .02853,    .01410,  90.89830,   3.76889,   3.24969,
     +    2.75986,   3.54510,   3.76991,
     +     .02911,    .01442,  96.61463,   3.99421,   3.47857,
     +    2.99300,   3.77184,   3.99524,
     +     .02965,    .01472, 102.05259,   4.21178,   3.69886,
     +    3.21641,   3.99074,   4.21284,
     +     .03020,    .01503, 107.68278,   4.43822,   3.92886,
     +    3.45072,   4.21849,   4.43930,
     +     .03074,    .01533, 113.21310,   4.66473,   4.15778,
     +    3.68238,   4.44625,   4.66582,
     +     .03126,    .01562, 118.63709,   4.88765,   4.38396,
     +    3.91253,   4.67036,   4.88876,
     +     .03175,    .01589, 123.73497,   5.10100,   4.59942,
     +    4.13038,   4.88481,   5.10213 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03225,    .01617, 129.00952,   5.32270,   4.82394,
     +    4.35828,   5.10760,   5.32384,
     +     .03274,    .01645, 134.21579,   5.54470,   5.04826,
     +    4.58533,   5.33066,   5.54586,
     +     .03321,    .01671, 139.24394,   5.76103,   5.26691,
     +    4.80672,   5.54800,   5.76221,
     +     .03366,    .01697, 144.08517,   5.97080,   5.47917,
     +    5.02197,   5.75871,   5.97200,
     +     .03412,    .01722, 148.93529,   6.18438,   5.69458,
     +    5.23951,   5.97323,   6.18560 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01922,    .00871,    .83860,    .44549,    .00000,
     +     .00000,    .21203,    .44532,
     +     .01990,    .00908,   1.64666,    .46935,    .00000,
     +     .00000,    .23804,    .46920,
     +     .02091,    .00963,   3.09004,    .51366,    .00000,
     +     .00000,    .28538,    .51352,
     +     .02164,    .01003,   4.32212,    .55232,    .02252,
     +     .00000,    .32614,    .55220,
     +     .02240,    .01045,   5.70005,    .59875,    .07618,
     +     .00000,    .37466,    .59864,
     +     .02306,    .01082,   7.03138,    .64387,    .12476,
     +     .00000,    .42153,    .64378,
     +     .02369,    .01117,   8.44685,    .69101,    .17608,
     +     .00000,    .47030,    .69094,
     +     .02437,    .01154,  10.09392,    .74531,    .23591,
     +     .00000,    .52628,    .74526 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02495,    .01187,  11.61763,    .79643,    .28966,
     +     .00000,    .57883,    .79640,
     +     .02552,    .01219,  13.18375,    .84902,    .34508,
     +     .00000,    .63274,    .84900,
     +     .02597,    .01244,  14.50823,    .89298,    .39223,
     +     .00000,    .67775,    .89298,
     +     .02692,    .01297,  17.41410,    .99365,    .49784,
     +     .00940,    .78056,    .99368,
     +     .02775,    .01343,  19.97463,   1.08696,    .59476,
     +     .12299,    .87565,   1.08702,
     +     .02867,    .01395,  23.03109,   1.19917,    .71130,
     +     .25918,    .98977,   1.19926,
     +     .02963,    .01450,  26.42619,   1.32410,    .84068,
     +     .39506,   1.11663,   1.32423,
     +     .03051,    .01499,  29.67850,   1.44451,    .96512,
     +     .52574,   1.23875,   1.44467 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03140,    .01549,  33.12479,   1.57301,   1.09781,
     +     .66437,   1.36891,   1.57321,
     +     .03214,    .01591,  36.08778,   1.68467,   1.21250,
     +     .78268,   1.48192,   1.68490,
     +     .03304,    .01642,  39.79404,   1.82597,   1.35709,
     +     .93119,   1.62480,   1.82623,
     +     .03383,    .01687,  43.19487,   1.95669,   1.49108,
     +    1.06946,   1.75689,   1.95698,
     +     .03457,    .01729,  46.40940,   2.08128,   1.61885,
     +    1.20137,   1.88271,   2.08161,
     +     .03550,    .01782,  50.55047,   2.24459,   1.78520,
     +    1.37126,   2.04754,   2.24496,
     +     .03638,    .01832,  54.55672,   2.40438,   1.94816,
     +    1.53817,   2.20872,   2.40479,
     +     .03721,    .01879,  58.42054,   2.55992,   2.10716,
     +    1.70166,   2.36555,   2.56037 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03804,    .01926,  62.28871,   2.71895,   2.26851,
     +    1.86568,   2.52581,   2.71943,
     +     .03885,    .01973,  66.16357,   2.87976,   2.43212,
     +    2.03278,   2.68782,   2.88028,
     +     .03962,    .02017,  69.88950,   3.03628,   2.59135,
     +    2.19539,   2.84545,   3.03684,
     +     .04035,    .02058,  73.40279,   3.18644,   2.74359,
     +    2.35013,   2.99663,   3.18703,
     +     .04109,    .02100,  77.01593,   3.34188,   2.90171,
     +    2.51163,   3.15309,   3.34250,
     +     .04181,    .02142,  80.53297,   3.49634,   3.05803,
     +    2.67017,   3.30853,   3.49700,
     +     .04251,    .02181,  83.96243,   3.64764,   3.21179,
     +    2.82702,   3.46075,   3.64834,
     +     .04316,    .02219,  87.15832,   3.79156,   3.35733,
     +    2.97450,   3.60552,   3.79229 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04383,    .02256,  90.44739,   3.94047,   3.50837,
     +    3.12817,   3.75528,   3.94123,
     +     .04449,    .02294,  93.66962,   4.08877,   3.65844,
     +    3.28041,   3.90440,   4.08956,
     +     .04512,    .02330,  96.76295,   4.23261,   3.80404,
     +    3.42818,   4.04903,   4.23344,
     +     .04572,    .02364,  99.72530,   4.37151,   3.94482,
     +    3.57128,   4.18866,   4.37237,
     +     .04632,    .02399, 102.67111,   4.51220,   4.08692,
     +    3.71508,   4.33008,   4.51310 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02607,    .01207,    .79842,    .37727,    .00000,
     +     .00000,    .18052,    .37706,
     +     .02702,    .01261,   1.52590,    .39873,    .00000,
     +     .00000,    .20370,    .39856,
     +     .02842,    .01341,   2.79219,    .43745,    .00000,
     +     .00000,    .24486,    .43734,
     +     .02943,    .01400,   3.84790,    .47054,    .01906,
     +     .00000,    .27963,    .47047,
     +     .03049,    .01461,   5.00539,    .50960,    .06422,
     +     .00000,    .32036,    .50957,
     +     .03141,    .01514,   6.10480,    .54700,    .10456,
     +     .00000,    .35917,    .54701,
     +     .03228,    .01564,   7.25746,    .58567,    .14672,
     +     .00000,    .39915,    .58573,
     +     .03321,    .01618,   8.58051,    .62979,    .19538,
     +     .00000,    .44461,    .62989 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03402,    .01665,   9.78807,    .67086,    .23866,
     +     .00000,    .48683,    .67100,
     +     .03480,    .01710,  11.01534,    .71276,    .28292,
     +     .00000,    .52979,    .71294,
     +     .03542,    .01746,  12.04395,    .74757,    .32034,
     +     .00000,    .56544,    .74778,
     +     .03673,    .01822,  14.26900,    .82645,    .40332,
     +     .00762,    .64604,    .82673,
     +     .03786,    .01888,  16.19555,    .89874,    .47862,
     +     .09606,    .71975,    .89907,
     +     .03913,    .01961,  18.46170,    .98474,    .56820,
     +     .20144,    .80728,    .98513,
     +     .04045,    .02038,  20.94131,   1.07942,    .66657,
     +     .30523,    .90351,   1.07989,
     +     .04165,    .02108,  23.28308,   1.16972,    .76019,
     +     .40402,    .99517,   1.17025 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04286,    .02178,  25.73228,   1.26515,    .85907,
     +     .50781,   1.09194,   1.26575,
     +     .04386,    .02237,  27.81280,   1.34733,    .94376,
     +     .59558,   1.17520,   1.34798,
     +     .04508,    .02308,  30.38466,   1.45040,   1.04959,
     +     .70477,   1.27955,   1.45113,
     +     .04616,    .02370,  32.71801,   1.54496,   1.14684,
     +     .80560,   1.37520,   1.54574,
     +     .04716,    .02428,  34.90164,   1.63441,   1.23890,
     +     .90108,   1.46564,   1.63525,
     +     .04842,    .02501,  37.68175,   1.75064,   1.35769,
     +    1.02293,   1.58309,   1.75155,
     +     .04960,    .02571,  40.34114,   1.86340,   1.47308,
     +    1.14167,   1.69697,   1.86438,
     +     .05072,    .02635,  42.88042,   1.97233,   1.58483,
     +    1.25711,   1.80693,   1.97338 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05183,    .02700,  45.39313,   2.08276,   1.69725,
     +    1.37188,   1.91836,   2.08387,
     +     .05293,    .02764,  47.88715,   2.19365,   1.81047,
     +    1.48803,   2.03021,   2.19483,
     +     .05396,    .02824,  50.26330,   2.30085,   1.91991,
     +    1.60029,   2.13831,   2.30209,
     +     .05494,    .02880,  52.48197,   2.40296,   2.02378,
     +    1.70633,   2.24124,   2.40426,
     +     .05592,    .02938,  54.74751,   2.50807,   2.13110,
     +    1.81644,   2.34718,   2.50944,
     +     .05689,    .02994,  56.93035,   2.61179,   2.23641,
     +    1.92370,   2.45168,   2.61321,
     +     .05782,    .03047,  59.04585,   2.71289,   2.33952,
     +    2.02935,   2.55352,   2.71437,
     +     .05869,    .03098,  60.99816,   2.80841,   2.43645,
     +    2.12798,   2.64974,   2.80994 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05957,    .03149,  62.99603,   2.90681,   2.53661,
     +    2.23034,   2.74882,   2.90839,
     +     .06045,    .03200,  64.93672,   3.00422,   2.63552,
     +    2.33111,   2.84690,   3.00586,
     +     .06128,    .03248,  66.78748,   3.09825,   2.73104,
     +    2.42846,   2.94156,   3.09995,
     +     .06207,    .03294,  68.54951,   3.18865,   2.82298,
     +    2.52234,   3.03255,   3.19039,
     +     .06288,    .03340,  70.28646,   3.27969,   2.91524,
     +    2.61609,   3.12418,   3.28148 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03123,    .01470,    .78279,    .34288,    .00000,
     +     .00000,    .16469,    .34295,
     +     .03239,    .01538,   1.46689,    .36296,    .00000,
     +     .00000,    .18631,    .36310,
     +     .03408,    .01638,   2.63818,    .39864,    .00000,
     +     .00000,    .22415,    .39887,
     +     .03531,    .01711,   3.60037,    .42877,    .01724,
     +     .00000,    .25577,    .42906,
     +     .03660,    .01787,   4.64233,    .46396,    .05797,
     +     .00000,    .29245,    .46432,
     +     .03770,    .01852,   5.62154,    .49737,    .09405,
     +     .00000,    .32711,    .49779,
     +     .03876,    .01914,   6.63925,    .53170,    .13151,
     +     .00000,    .36260,    .53218,
     +     .03989,    .01981,   7.79753,    .57062,    .17449,
     +     .00000,    .40272,    .57116 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04086,    .02038,   8.84585,    .60662,    .21248,
     +     .00000,    .43973,    .60721,
     +     .04180,    .02094,   9.90383,    .64314,    .25115,
     +     .00000,    .47721,    .64379,
     +     .04255,    .02138,  10.78562,    .67337,    .28370,
     +     .00000,    .50819,    .67407,
     +     .04413,    .02232,  12.67622,    .74143,    .35546,
     +     .00672,    .57778,    .74223,
     +     .04549,    .02312,  14.29517,    .80336,    .42012,
     +     .08281,    .64098,    .80424,
     +     .04701,    .02402,  16.18208,    .87655,    .49656,
     +     .17313,    .71555,    .87752,
     +     .04859,    .02495,  18.22735,    .95658,    .57992,
     +     .26139,    .79696,    .95764,
     +     .05003,    .02580,  20.14179,   1.03240,    .65876,
     +     .34488,    .87400,   1.03355 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05147,    .02665,  22.12769,   1.11205,    .74151,
     +     .43205,    .95485,   1.11329,
     +     .05268,    .02736,  23.80189,   1.18025,    .81201,
     +     .50536,   1.02402,   1.18158,
     +     .05413,    .02822,  25.85609,   1.26533,    .89962,
     +     .59608,   1.11024,   1.26675,
     +     .05542,    .02898,  27.70656,   1.34297,    .97971,
     +     .67942,   1.18887,   1.34447,
     +     .05661,    .02968,  29.42742,   1.41608,   1.05517,
     +     .75797,   1.26287,   1.41765,
     +     .05811,    .03056,  31.60191,   1.51055,   1.15201,
     +     .85766,   1.35843,   1.51222,
     +     .05952,    .03139,  33.66714,   1.60172,   1.24560,
     +     .95430,   1.45062,   1.60349,
     +     .06084,    .03216,  35.62668,   1.68938,   1.33581,
     +    1.04783,   1.53921,   1.69124 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06216,    .03294,  37.55106,   1.77778,   1.42607,
     +    1.14030,   1.62851,   1.77972,
     +     .06346,    .03370,  39.45002,   1.86616,   1.51658,
     +    1.23350,   1.71777,   1.86819,
     +     .06468,    .03442,  41.24856,   1.95124,   1.60370,
     +    1.32319,   1.80365,   1.95335,
     +     .06584,    .03509,  42.91718,   2.03191,   1.68602,
     +    1.40753,   1.88507,   2.03410,
     +     .06700,    .03577,  44.61341,   2.11468,   1.77079,
     +    1.49482,   1.96859,   2.11695,
     +     .06814,    .03644,  46.23659,   2.19598,   1.85358,
     +    1.57944,   2.05060,   2.19832,
     +     .06923,    .03707,  47.80375,   2.27499,   1.93442,
     +    1.66258,   2.13028,   2.27741,
     +     .07026,    .03767,  49.24052,   2.34932,   2.01007,
     +    1.73983,   2.20524,   2.35181 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07130,    .03828,  50.70566,   2.42568,   2.08805,
     +    1.81980,   2.28223,   2.42824,
     +     .07232,    .03888,  52.12072,   2.50100,   2.16476,
     +    1.89824,   2.35815,   2.50363,
     +     .07330,    .03945,  53.46436,   2.57347,   2.23861,
     +    1.97378,   2.43120,   2.57617,
     +     .07423,    .03999,  54.73871,   2.64296,   2.30951,
     +    2.04643,   2.50123,   2.64572,
     +     .07517,    .04053,  55.98736,   2.71268,   2.38038,
     +    2.11871,   2.57149,   2.71551 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03556,    .01700,    .77674,    .32088,    .00000,
     +     .00000,    .15456,    .32124,
     +     .03689,    .01779,   1.43155,    .34001,    .00000,
     +     .00000,    .17510,    .34044,
     +     .03883,    .01896,   2.53864,    .37361,    .00000,
     +     .00000,    .21070,    .37417,
     +     .04025,    .01981,   3.43805,    .40174,    .01603,
     +     .00000,    .24021,    .40238,
     +     .04172,    .02068,   4.40305,    .43436,    .05382,
     +     .00000,    .27421,    .43509,
     +     .04298,    .02144,   5.30275,    .46513,    .08708,
     +     .00000,    .30613,    .46594,
     +     .04419,    .02217,   6.23173,    .49660,    .12145,
     +     .00000,    .33868,    .49749,
     +     .04548,    .02294,   7.28232,    .53212,    .16073,
     +     .00000,    .37531,    .53309 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04659,    .02360,   8.22722,    .56481,    .19527,
     +     .00000,    .40894,    .56585,
     +     .04767,    .02425,   9.17585,    .59785,    .23031,
     +     .00000,    .44287,    .59896,
     +     .04852,    .02476,   9.96321,    .62512,    .25973,
     +     .00000,    .47083,    .62628,
     +     .05033,    .02584,  11.64012,    .68623,    .32427,
     +     .00613,    .53337,    .68751,
     +     .05187,    .02676,  13.06412,    .74153,    .38214,
     +     .07432,    .58985,    .74292,
     +     .05360,    .02779,  14.71239,    .80658,    .45022,
     +     .15505,    .65618,    .80808,
     +     .05540,    .02886,  16.48641,    .87733,    .52408,
     +     .23348,    .72822,    .87895,
     +     .05703,    .02983,  18.13585,    .94403,    .59360,
     +     .30732,    .79606,    .94577 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05867,    .03081,  19.83631,   1.01380,    .66627,
     +     .38409,    .86695,   1.01564,
     +     .06004,    .03162,  21.26170,   1.07329,    .72790,
     +     .44838,    .92735,   1.07523,
     +     .06169,    .03260,  23.00074,   1.14719,    .80420,
     +     .52760,   1.00232,   1.14925,
     +     .06315,    .03347,  24.55889,   1.21437,    .87368,
     +     .60012,   1.07042,   1.21652,
     +     .06449,    .03426,  26.00104,   1.27741,    .93892,
     +     .66823,   1.13430,   1.27966,
     +     .06618,    .03526,  27.81288,   1.35854,   1.02229,
     +     .75431,   1.21645,   1.36090,
     +     .06777,    .03620,  29.52437,   1.43653,   1.10256,
     +     .83745,   1.29539,   1.43900,
     +     .06926,    .03708,  31.14047,   1.51125,   1.17967,
     +     .91764,   1.37099,   1.51384 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07075,    .03796,  32.71831,   1.58630,   1.25649,
     +     .99658,   1.44689,   1.58899,
     +     .07221,    .03882,  34.26839,   1.66110,   1.33330,
     +    1.07591,   1.52251,   1.66389,
     +     .07359,    .03963,  35.72988,   1.73286,   1.40699,
     +    1.15200,   1.59504,   1.73575,
     +     .07488,    .04039,  37.07903,   1.80069,   1.47638,
     +    1.22331,   1.66357,   1.80367,
     +     .07619,    .04116,  38.44583,   1.87010,   1.54767,
     +    1.29695,   1.73368,   1.87318,
     +     .07747,    .04191,  39.74676,   1.93804,   1.61705,
     +    1.36807,   1.80230,   1.94121,
     +     .07869,    .04262,  40.99919,   2.00392,   1.68465,
     +    1.43781,   1.86882,   2.00718,
     +     .07984,    .04329,  42.14141,   2.06571,   1.74769,
     +    1.50239,   1.93120,   2.06905 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08100,    .04397,  43.30307,   2.12905,   1.81255,
     +    1.56913,   1.99513,   2.13247,
     +     .08215,    .04464,  44.41993,   2.19134,   1.87618,
     +    1.63438,   2.05800,   2.19485,
     +     .08324,    .04528,  45.47681,   2.25116,   1.93729,
     +    1.69709,   2.11836,   2.25474,
     +     .08428,    .04589,  46.47623,   2.30838,   1.99585,
     +    1.75729,   2.17610,   2.31204,
     +     .08533,    .04649,  47.45072,   2.36564,   2.05422,
     +    1.81700,   2.23387,   2.36938 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03940,    .01918,    .77871,    .30581,    .00000,
     +     .00000,    .14744,    .30621,
     +     .04088,    .02007,   1.41112,    .32420,    .00000,
     +     .00000,    .16714,    .32469,
     +     .04305,    .02139,   2.46931,    .35621,    .00000,
     +     .00000,    .20100,    .35684,
     +     .04463,    .02234,   3.32113,    .38281,    .01512,
     +     .00000,    .22889,    .38355,
     +     .04626,    .02333,   4.22799,    .41348,    .05067,
     +     .00000,    .26084,    .41432,
     +     .04767,    .02418,   5.06785,    .44226,    .08181,
     +     .00000,    .29069,    .44320,
     +     .04902,    .02499,   5.93032,    .47158,    .11387,
     +     .00000,    .32102,    .47262,
     +     .05045,    .02586,   6.90050,    .50456,    .15037,
     +     .00000,    .35503,    .50569 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05168,    .02660,   7.76852,    .53479,    .18236,
     +     .00000,    .38614,    .53601,
     +     .05287,    .02732,   8.63616,    .56525,    .21470,
     +     .00000,    .41742,    .56655,
     +     .05382,    .02789,   9.35380,    .59034,    .24180,
     +     .00000,    .44315,    .59170,
     +     .05582,    .02909,  10.87364,    .64633,    .30102,
     +     .00569,    .50047,    .64783,
     +     .05753,    .03012,  12.15519,    .69679,    .35390,
     +     .06808,    .55203,    .69841,
     +     .05944,    .03126,  13.62998,    .75589,    .41587,
     +     .14177,    .61233,    .75764,
     +     .06143,    .03245,  15.20792,    .81990,    .48282,
     +     .21302,    .67755,    .82180,
     +     .06323,    .03353,  16.66681,    .88002,    .54559,
     +     .27985,    .73873,    .88204 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06504,    .03461,  18.16304,    .94265,    .61095,
     +     .34906,    .80241,    .94481,
     +     .06654,    .03550,  19.41115,    .99589,    .66621,
     +     .40683,    .85649,    .99815,
     +     .06836,    .03658,  20.92673,   1.06179,    .73438,
     +     .47779,    .92340,   1.06419,
     +     .06996,    .03754,  22.27855,   1.12151,    .79626,
     +     .54252,    .98399,   1.12402,
     +     .07143,    .03841,  23.52471,   1.17738,    .85421,
     +     .60317,   1.04064,   1.18000,
     +     .07329,    .03951,  25.08263,   1.24904,    .92801,
     +     .67954,   1.11327,   1.25180,
     +     .07503,    .04054,  26.54743,   1.31771,    .99882,
     +     .75307,   1.18283,   1.32059,
     +     .07667,    .04151,  27.92491,   1.38331,   1.06667,
     +     .82380,   1.24925,   1.38631 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07830,    .04247,  29.26313,   1.44897,   1.13403,
     +     .89319,   1.31572,   1.45210,
     +     .07989,    .04341,  30.57278,   1.51424,   1.20120,
     +     .96273,   1.38176,   1.51748,
     +     .08140,    .04429,  31.80276,   1.57669,   1.26548,
     +    1.02928,   1.44493,   1.58004,
     +     .08281,    .04512,  32.93354,   1.63555,   1.32583,
     +    1.09145,   1.50446,   1.63901,
     +     .08423,    .04596,  34.07595,   1.69567,   1.38771,
     +    1.15554,   1.56524,   1.69923,
     +     .08563,    .04677,  35.15788,   1.75434,   1.44775,
     +    1.21724,   1.62454,   1.75800,
     +     .08696,    .04755,  36.19698,   1.81112,   1.50616,
     +    1.27766,   1.68194,   1.81489,
     +     .08821,    .04828,  37.14016,   1.86423,   1.56048,
     +    1.33344,   1.73560,   1.86809 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .08947,    .04902,  38.09722,   1.91858,   1.61628,
     +    1.39099,   1.79052,   1.92254,
     +     .09072,    .04975,  39.01365,   1.97191,   1.67088,
     +    1.44714,   1.84439,   1.97596,
     +     .09191,    .05044,  39.87831,   2.02302,   1.72322,
     +    1.50099,   1.89602,   2.02715,
     +     .09303,    .05109,  40.69391,   2.07183,   1.77330,
     +    1.55260,   1.94532,   2.07605,
     +     .09417,    .05175,  41.48587,   2.12056,   1.82308,
     +    1.60367,   1.99453,   2.12486 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05454,    .02826,    .80541,    .26476,    .00000,
     +     .00000,    .12819,    .26578,
     +     .05663,    .02956,   1.37157,    .28091,    .00000,
     +     .00000,    .14542,    .28209,
     +     .05968,    .03146,   2.28533,    .30822,    .00000,
     +     .00000,    .17425,    .30964,
     +     .06189,    .03282,   2.99849,    .33042,    .01251,
     +     .00000,    .19751,    .33200,
     +     .06417,    .03422,   3.73843,    .35551,    .04173,
     +     .00000,    .22367,    .35728,
     +     .06612,    .03543,   4.40863,    .37867,    .06693,
     +     .00000,    .24771,    .38058,
     +     .06799,    .03657,   5.08431,    .40198,    .09254,
     +     .00000,    .27186,    .40404,
     +     .06997,    .03778,   5.83099,    .42787,    .12136,
     +     .00000,    .29862,    .43009 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07168,    .03883,   6.48745,    .45131,    .14630,
     +     .00000,    .32279,    .45366,
     +     .07332,    .03983,   7.13405,    .47467,    .17128,
     +     .00000,    .34684,    .47715,
     +     .07461,    .04062,   7.66265,    .49376,    .19205,
     +     .00000,    .36648,    .49635,
     +     .07735,    .04228,   8.76110,    .53584,    .23688,
     +     .00447,    .40968,    .53865,
     +     .07968,    .04369,   9.66511,    .57323,    .27636,
     +     .05130,    .44799,    .57622,
     +     .08228,    .04526,  10.68520,    .61644,    .32202,
     +     .10619,    .49221,    .61963,
     +     .08497,    .04687,  11.75491,    .66257,    .37068,
     +     .15843,    .53937,    .66598,
     +     .08740,    .04833,  12.72512,    .70532,    .41571,
     +     .20681,    .58304,    .70892 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .08983,    .04978,  13.70266,    .74932,    .46204,
     +     .25632,    .62793,    .75312,
     +     .09184,    .05098,  14.50461,    .78628,    .50076,
     +     .29718,    .66562,    .79024,
     +     .09426,    .05242,  15.46248,    .83153,    .54800,
     +     .34681,    .71173,    .83568,
     +     .09640,    .05369,  16.30354,    .87208,    .59043,
     +     .39163,    .75304,    .87640,
     +     .09835,    .05484,  17.06816,    .90966,    .62978,
     +     .43322,    .79129,    .91414,
     +     .10080,    .05629,  18.00762,    .95730,    .67933,
     +     .48501,    .83978,    .96198,
     +     .10310,    .05764,  18.87675,   1.00246,    .72638,
     +     .53435,    .88571,   1.00732,
     +     .10525,    .05890,  19.68255,   1.04518,    .77102,
     +     .58137,    .92916,   1.05022 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10737,    .06015,  20.45109,   1.08745,    .81484,
     +     .62696,    .97213,   1.09266,
     +     .10945,    .06136,  21.19327,   1.12909,    .85816,
     +     .67229,   1.01445,   1.13447,
     +     .11141,    .06250,  21.88066,   1.16858,    .89924,
     +     .71527,   1.05458,   1.17411,
     +     .11324,    .06356,  22.50256,   1.20543,    .93745,
     +     .75505,   1.09202,   1.21111,
     +     .11508,    .06463,  23.12455,   1.24281,    .97636,
     +     .79579,   1.12999,   1.24864,
     +     .11688,    .06567,  23.70303,   1.27892,   1.01374,
     +     .83462,   1.16667,   1.28489,
     +     .11859,    .06666,  24.25408,   1.31367,   1.04989,
     +     .87243,   1.20195,   1.31978,
     +     .12019,    .06758,  24.74519,   1.34585,   1.08319,
     +     .90701,   1.23463,   1.35208 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12180,    .06851,  25.23965,   1.37860,   1.11721,
     +     .94250,   1.26789,   1.38496,
     +     .12339,    .06942,  25.70567,   1.41046,   1.15023,
     +     .97684,   1.30024,   1.41695,
     +     .12490,    .07028,  26.14047,   1.44080,   1.18168,
     +    1.00958,   1.33104,   1.44741,
     +     .12633,    .07110,  26.54672,   1.46960,   1.21161,
     +    1.04078,   1.36029,   1.47633,
     +     .12777,    .07191,  26.93410,   1.49811,   1.24110,
     +    1.07139,   1.38923,   1.50496 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07680,    .04282,    .88798,    .23311,    .00000,
     +     .00000,    .11315,    .23529,
     +     .07976,    .04466,   1.38828,    .24709,    .00000,
     +     .00000,    .12805,    .24954,
     +     .08407,    .04733,   2.16153,    .26997,    .00000,
     +     .00000,    .15224,    .27280,
     +     .08715,    .04924,   2.74406,    .28810,    .01019,
     +     .00000,    .17129,    .29120,
     +     .09032,    .05118,   3.33137,    .30818,    .03383,
     +     .00000,    .19230,    .31157,
     +     .09303,    .05283,   3.84995,    .32637,    .05385,
     +     .00000,    .21126,    .32999,
     +     .09560,    .05440,   4.36172,    .34442,    .07391,
     +     .00000,    .23004,    .34827,
     +     .09832,    .05605,   4.91583,    .36420,    .09619,
     +     .00000,    .25059,    .36829 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10066,    .05746,   5.39336,    .38184,    .11520,
     +     .00000,    .26888,    .38614,
     +     .10289,    .05881,   5.85567,    .39923,    .13403,
     +     .00000,    .28688,    .40372,
     +     .10466,    .05988,   6.22848,    .41331,    .14954,
     +     .00000,    .30144,    .41796,
     +     .10837,    .06209,   6.98590,    .44389,    .18258,
     +     .00344,    .33303,    .44887,
     +     .11150,    .06396,   7.59079,    .47061,    .21121,
     +     .03768,    .36059,    .47587,
     +     .11498,    .06602,   8.25751,    .50103,    .24384,
     +     .07747,    .39192,    .50658,
     +     .11856,    .06813,   8.94007,    .53297,    .27806,
     +     .11468,    .42479,    .53884,
     +     .12177,    .07002,   9.54480,    .56211,    .30926,
     +     .14864,    .45477,    .56826 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12498,    .07190,  10.14086,    .59168,    .34092,
     +     .18292,    .48516,    .59811,
     +     .12762,    .07343,  10.61976,    .61618,    .36703,
     +     .21084,    .51034,    .62284,
     +     .13078,    .07526,  11.18004,    .64577,    .39847,
     +     .24434,    .54072,    .65270,
     +     .13355,    .07686,  11.66240,    .67195,    .42637,
     +     .27424,    .56761,    .67912,
     +     .13608,    .07832,  12.09321,    .69595,    .45197,
     +     .30169,    .59223,    .70333,
     +     .13924,    .08012,  12.61039,    .72595,    .48377,
     +     .33542,    .62302,    .73360,
     +     .14218,    .08180,  13.07889,    .75401,    .51359,
     +     .36718,    .65182,    .76192,
     +     .14492,    .08336,  13.50533,    .78026,    .54158,
     +     .39713,    .67875,    .78840 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14761,    .08489,  13.90146,    .80585,    .56867,
     +     .42577,    .70501,    .81423,
     +     .15024,    .08636,  14.27725,    .83081,    .59519,
     +     .45397,    .73061,    .83940,
     +     .15270,    .08775,  14.61864,    .85422,    .62008,
     +     .48044,    .75463,    .86302,
     +     .15499,    .08903,  14.92014,    .87580,    .64296,
     +     .50467,    .77677,    .88479,
     +     .15729,    .09031,  15.21765,    .89750,    .66609,
     +     .52931,    .79904,    .90669,
     +     .15952,    .09155,  15.48652,    .91820,    .68802,
     +     .55250,    .82029,    .92758,
     +     .16163,    .09272,  15.73996,    .93798,    .70910,
     +     .57495,    .84059,    .94754,
     +     .16360,    .09381,  15.95885,    .95607,    .72828,
     +     .59524,    .85916,    .96579 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16559,    .09490,  16.17686,    .97436,    .74777,
     +     .61595,    .87795,    .98425,
     +     .16753,    .09597,  16.37712,    .99197,    .76648,
     +     .63579,    .89603,   1.00202,
     +     .16937,    .09698,  16.56075,   1.00859,    .78417,
     +     .65456,    .91310,   1.01879,
     +     .17110,    .09793,  16.72968,   1.02426,    .80089,
     +     .67234,    .92920,   1.03461,
     +     .17284,    .09887,  16.88521,   1.03959,    .81719,
     +     .68960,    .94496,   1.05008 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09481,    .05514,    .97078,    .21803,    .00000,
     +     .00000,    .10602,    .22147,
     +     .09843,    .05736,   1.42811,    .23073,    .00000,
     +     .00000,    .11960,    .23450,
     +     .10366,    .06056,   2.11801,    .25107,    .00000,
     +     .00000,    .14121,    .25534,
     +     .10740,    .06283,   2.62589,    .26694,    .00896,
     +     .00000,    .15797,    .27156,
     +     .11122,    .06514,   3.12842,    .28428,    .02963,
     +     .00000,    .17621,    .28926,
     +     .11447,    .06709,   3.56491,    .29979,    .04694,
     +     .00000,    .19248,    .30507,
     +     .11756,    .06893,   3.98965,    .31505,    .06411,
     +     .00000,    .20845,    .32062,
     +     .12081,    .07087,   4.44336,    .33162,    .08303,
     +     .00000,    .22577,    .33749 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12359,    .07251,   4.82921,    .34626,    .09901,
     +     .00000,    .24104,    .35238,
     +     .12624,    .07408,   5.19851,    .36056,    .11474,
     +     .00000,    .25596,    .36693,
     +     .12834,    .07531,   5.49362,    .37208,    .12762,
     +     .00000,    .26795,    .37865,
     +     .13272,    .07787,   6.08367,    .39687,    .15479,
     +     .00292,    .29373,    .40383,
     +     .13640,    .08001,   6.54492,    .41829,    .17809,
     +     .03098,    .31598,    .42559,
     +     .14048,    .08237,   7.04489,    .44241,    .20439,
     +     .06342,    .34101,    .45008,
     +     .14465,    .08476,   7.54807,    .46747,    .23169,
     +     .09340,    .36701,    .47552,
     +     .14838,    .08689,   7.98654,    .49009,    .25633,
     +     .12050,    .39046,    .49847 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15209,    .08900,   8.41205,    .51280,    .28109,
     +     .14762,    .41401,    .52152,
     +     .15513,    .09072,   8.74862,    .53146,    .30135,
     +     .16952,    .43334,    .54045,
     +     .15876,    .09276,   9.13640,    .55378,    .32552,
     +     .19557,    .45647,    .56309,
     +     .16193,    .09454,   9.46525,    .57336,    .34680,
     +     .21865,    .47675,    .58295,
     +     .16482,    .09614,   9.75488,    .59116,    .36619,
     +     .23969,    .49520,    .60101,
     +     .16840,    .09813,  10.09633,    .61319,    .39004,
     +     .26532,    .51803,    .62336,
     +     .17173,    .09996,  10.40051,    .63362,    .41222,
     +     .28925,    .53921,    .64408,
     +     .17482,    .10166,  10.67329,    .65258,    .43290,
     +     .31167,    .55886,    .66330 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17785,    .10331,  10.92080,    .67087,    .45271,
     +     .33292,    .57783,    .68185,
     +     .18078,    .10491,  11.15212,    .68857,    .47198,
     +     .35370,    .59619,    .69980,
     +     .18353,    .10639,  11.35874,    .70505,    .48993,
     +     .37309,    .61329,    .71652,
     +     .18608,    .10776,  11.53723,    .72010,    .50630,
     +     .39069,    .62892,    .73179,
     +     .18863,    .10913,  11.71141,    .73516,    .52277,
     +     .40850,    .64455,    .74706,
     +     .19108,    .11044,  11.86421,    .74937,    .53824,
     +     .42512,    .65932,    .76147,
     +     .19341,    .11168,  12.00701,    .76288,    .55305,
     +     .44116,    .67338,    .77519,
     +     .19558,    .11282,  12.12629,    .77512,    .56641,
     +     .45553,    .68611,    .78761 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19775,    .11397,  12.24398,    .78744,    .57992,
     +     .47014,    .69893,    .80011,
     +     .19986,    .11508,  12.34867,    .79919,    .59281,
     +     .48404,    .71117,    .81204,
     +     .20186,    .11613,  12.44269,    .81023,    .60492,
     +     .49713,    .72267,    .82323,
     +     .20375,    .11712,  12.52772,    .82057,    .61632,
     +     .50948,    .73346,    .83374,
     +     .20563,    .11809,  12.60244,    .83059,    .62733,
     +     .52137,    .74392,    .84391 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11075,    .06621,   1.04773,    .20869,    .00000,
     +     .00000,    .10165,    .21342,
     +     .11491,    .06873,   1.47173,    .22043,    .00000,
     +     .00000,    .11427,    .22556,
     +     .12090,    .07232,   2.10045,    .23896,    .00000,
     +     .00000,    .13407,    .24468,
     +     .12516,    .07486,   2.55521,    .25324,    .00813,
     +     .00000,    .14925,    .25938,
     +     .12950,    .07742,   2.99868,    .26869,    .02680,
     +     .00000,    .16561,    .27525,
     +     .13318,    .07958,   3.37909,    .28239,    .04230,
     +     .00000,    .18007,    .28930,
     +     .13667,    .08162,   3.74524,    .29576,    .05757,
     +     .00000,    .19416,    .30300,
     +     .14033,    .08375,   4.13229,    .31017,    .07427,
     +     .00000,    .20934,    .31777 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14346,    .08556,   4.45806,    .32281,    .08829,
     +     .00000,    .22263,    .33070,
     +     .14644,    .08727,   4.76705,    .33509,    .10199,
     +     .00000,    .23552,    .34326,
     +     .14878,    .08862,   5.01220,    .34493,    .11317,
     +     .00000,    .24585,    .35332,
     +     .15367,    .09140,   5.49604,    .36594,    .13658,
     +     .00257,    .26787,    .37479,
     +     .15777,    .09372,   5.86740,    .38394,    .15650,
     +     .02671,    .28673,    .39317,
     +     .16228,    .09626,   6.26450,    .40405,    .17881,
     +     .05450,    .30777,    .41370,
     +     .16689,    .09883,   6.65855,    .42475,    .20177,
     +     .07995,    .32943,    .43482,
     +     .17099,    .10111,   6.99712,    .44329,    .22234,
     +     .10279,    .34882,    .45373 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17506,    .10335,   7.32130,    .46175,    .24287,
     +     .12549,    .36814,    .47256,
     +     .17838,    .10517,   7.57429,    .47680,    .25954,
     +     .14370,    .38389,    .48791,
     +     .18233,    .10733,   7.86175,    .49467,    .27930,
     +     .16522,    .40259,    .50613,
     +     .18578,    .10919,   8.10230,    .51023,    .29659,
     +     .18418,    .41888,    .52200,
     +     .18890,    .11087,   8.31159,    .52429,    .31225,
     +     .20137,    .43361,    .53633,
     +     .19277,    .11295,   8.55400,    .54155,    .33137,
     +     .22215,    .45169,    .55393,
     +     .19635,    .11485,   8.76654,    .55743,    .34904,
     +     .24146,    .46834,    .57012,
     +     .19967,    .11661,   8.95448,    .57207,    .36542,
     +     .25944,    .48370,    .58505 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20290,    .11831,   9.12095,    .58607,    .38099,
     +     .27635,    .49841,    .59933,
     +     .20603,    .11994,   9.27419,    .59953,    .39604,
     +     .29282,    .51255,    .61306,
     +     .20894,    .12146,   9.40864,    .61198,    .41000,
     +     .30809,    .52565,    .62575,
     +     .21164,    .12286,   9.52187,    .62326,    .42264,
     +     .32188,    .53753,    .63726,
     +     .21433,    .12425,   9.63105,    .63449,    .43530,
     +     .33578,    .54936,    .64872,
     +     .21692,    .12557,   9.72340,    .64500,    .44710,
     +     .34867,    .56045,    .65944,
     +     .21937,    .12682,   9.80892,    .65495,    .45837,
     +     .36106,    .57096,    .66960,
     +     .22163,    .12796,   9.87717,    .66388,    .46846,
     +     .37209,    .58040,    .67871 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22390,    .12911,   9.94376,    .67284,    .47863,
     +     .38328,    .58988,    .68785,
     +     .22610,    .13022,  10.00038,    .68131,    .48826,
     +     .39386,    .59886,    .69651,
     +     .22818,    .13126,  10.04972,    .68923,    .49728,
     +     .40378,    .60725,    .70459,
     +     .23013,    .13224,  10.09319,    .69661,    .50574,
     +     .41311,    .61510,    .71213,
     +     .23207,    .13320,  10.12839,    .70370,    .51385,
     +     .42203,    .62264,    .71937 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12539,    .07642,   1.11663,    .20198,    .00000,
     +     .00000,    .09856,    .20805,
     +     .13001,    .07915,   1.51318,    .21295,    .00000,
     +     .00000,    .11043,    .21948,
     +     .13664,    .08305,   2.09283,    .23005,    .00000,
     +     .00000,    .12884,    .23724,
     +     .14134,    .08578,   2.50605,    .24310,    .00750,
     +     .00000,    .14281,    .25076,
     +     .14611,    .08854,   2.90417,    .25710,    .02468,
     +     .00000,    .15774,    .26523,
     +     .15014,    .09086,   3.24216,    .26941,    .03883,
     +     .00000,    .17084,    .27792,
     +     .15396,    .09304,   3.56453,    .28136,    .05269,
     +     .00000,    .18353,    .29024,
     +     .15795,    .09530,   3.90234,    .29416,    .06777,
     +     .00000,    .19712,    .30344 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16136,    .09722,   4.18415,    .30532,    .08035,
     +     .00000,    .20895,    .31492,
     +     .16459,    .09904,   4.44943,    .31610,    .09259,
     +     .00000,    .22037,    .32601,
     +     .16713,    .10046,   4.65866,    .32471,    .10253,
     +     .00000,    .22948,    .33486,
     +     .17242,    .10340,   5.06683,    .34297,    .12325,
     +     .00232,    .24879,    .35362,
     +     .17684,    .10583,   5.37489,    .35851,    .14075,
     +     .02366,    .26521,    .36957,
     +     .18169,    .10848,   5.70050,    .37574,    .16022,
     +     .04814,    .28341,    .38725,
     +     .18662,    .11116,   6.01951,    .39334,    .18013,
     +     .07039,    .30200,    .40530,
     +     .19100,    .11352,   6.29002,    .40897,    .19785,
     +     .09024,    .31853,    .42133 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19534,    .11584,   6.54588,    .42445,    .21543,
     +     .10986,    .33490,    .43721,
     +     .19887,    .11771,   6.74307,    .43698,    .22962,
     +     .12551,    .34815,    .45006,
     +     .20305,    .11992,   6.96398,    .45176,    .24635,
     +     .14391,    .36380,    .46521,
     +     .20669,    .12183,   7.14652,    .46456,    .26091,
     +     .16004,    .37735,    .47832,
     +     .20997,    .12354,   7.30353,    .47605,    .27403,
     +     .17460,    .38953,    .49010,
     +     .21403,    .12564,   7.48205,    .49005,    .28996,
     +     .19210,    .40440,    .50445,
     +     .21777,    .12757,   7.63597,    .50285,    .30459,
     +     .20828,    .41799,    .51757,
     +     .22123,    .12934,   7.77005,    .51458,    .31808,
     +     .22327,    .43047,    .52959 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22459,    .13104,   7.88566,    .52570,    .33083,
     +     .23729,    .44232,    .54100,
     +     .22783,    .13267,   7.99031,    .53633,    .34310,
     +     .25089,    .45366,    .55191,
     +     .23085,    .13418,   8.08024,    .54611,    .35441,
     +     .26345,    .46411,    .56193,
     +     .23363,    .13556,   8.15341,    .55490,    .36459,
     +     .27472,    .47352,    .57095,
     +     .23640,    .13693,   8.22286,    .56362,    .37476,
     +     .28605,    .48286,    .57989,
     +     .23904,    .13824,   8.27870,    .57170,    .38418,
     +     .29650,    .49154,    .58818,
     +     .24155,    .13946,   8.32982,    .57933,    .39315,
     +     .30651,    .49975,    .59602,
     +     .24385,    .14058,   8.36785,    .58611,    .40113,
     +     .31538,    .50705,    .60297 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24617,    .14170,   8.40435,    .59288,    .40915,
     +     .32435,    .51437,    .60993,
     +     .24840,    .14278,   8.43287,    .59924,    .41670,
     +     .33279,    .52125,    .61647,
     +     .25051,    .14378,   8.45623,    .60514,    .42374,
     +     .34068,    .52766,    .62254,
     +     .25249,    .14473,   8.47574,    .61063,    .43032,
     +     .34808,    .53362,    .62818,
     +     .25444,    .14565,   8.48851,    .61584,    .43659,
     +     .35512,    .53930,    .63354 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15221,    .09496,   1.23390,    .19241,    .00000,
     +     .00000,    .09430,    .20121,
     +     .15756,    .09801,   1.58534,    .20213,    .00000,
     +     .00000,    .10499,    .21148,
     +     .16521,    .10231,   2.08751,    .21700,    .00000,
     +     .00000,    .12125,    .22713,
     +     .17061,    .10532,   2.43716,    .22817,    .00658,
     +     .00000,    .13341,    .23883,
     +     .17604,    .10832,   2.76720,    .23998,    .02158,
     +     .00000,    .14623,    .25119,
     +     .18062,    .11083,   3.04278,    .25024,    .03378,
     +     .00000,    .15734,    .26189,
     +     .18494,    .11318,   3.30171,    .26010,    .04562,
     +     .00000,    .16800,    .27217,
     +     .18944,    .11561,   3.56910,    .27055,    .05838,
     +     .00000,    .17931,    .28307 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19325,    .11766,   3.78889,    .27957,    .06892,
     +     .00000,    .18905,    .29245,
     +     .19687,    .11959,   3.99307,    .28821,    .07910,
     +     .00000,    .19837,    .30143,
     +     .19970,    .12109,   4.15248,    .29507,    .08733,
     +     .00000,    .20577,    .30855,
     +     .20556,    .12418,   4.45712,    .30945,    .10428,
     +     .00197,    .22129,    .32348,
     +     .21042,    .12672,   4.67995,    .32154,    .11846,
     +     .01944,    .23432,    .33601,
     +     .21573,    .12947,   4.91020,    .33478,    .13407,
     +     .03938,    .24861,    .34974,
     +     .22111,    .13222,   5.13056,    .34813,    .14985,
     +     .05730,    .26303,    .36357,
     +     .22585,    .13463,   5.31292,    .35984,    .16374,
     +     .07312,    .27569,    .37570 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23052,    .13698,   5.48127,    .37129,    .17739,
     +     .08861,    .28810,    .38756,
     +     .23430,    .13886,   5.60766,    .38044,    .18830,
     +     .10086,    .29804,    .39705,
     +     .23875,    .14107,   5.74536,    .39112,    .20104,
     +     .11514,    .30964,    .40811,
     +     .24260,    .14296,   5.85602,    .40026,    .21203,
     +     .12755,    .31960,    .41757,
     +     .24607,    .14465,   5.94864,    .40838,    .22185,
     +     .13868,    .32846,    .42598,
     +     .25032,    .14670,   6.04949,    .41815,    .23366,
     +     .15194,    .33915,    .43610,
     +     .25423,    .14857,   6.13300,    .42696,    .24440,
     +     .16408,    .34882,    .44523,
     +     .25782,    .15027,   6.20308,    .43495,    .25422,
     +     .17526,    .35760,    .45351 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26128,    .15190,   6.25902,    .44240,    .26339,
     +     .18560,    .36583,    .46123,
     +     .26460,    .15345,   6.30711,    .44944,    .27215,
     +     .19556,    .37363,    .46853,
     +     .26768,    .15487,   6.34562,    .45584,    .28016,
     +     .20470,    .38074,    .47517,
     +     .27050,    .15615,   6.37332,    .46151,    .28729,
     +     .21282,    .38707,    .48105,
     +     .27329,    .15743,   6.39816,    .46708,    .29438,
     +     .22095,    .39330,    .48684,
     +     .27595,    .15862,   6.41352,    .47215,    .30086,
     +     .22837,    .39901,    .49210,
     +     .27845,    .15975,   6.42674,    .47691,    .30701,
     +     .23546,    .40438,    .49705,
     +     .28074,    .16076,   6.43175,    .48105,    .31240,
     +     .24166,    .40909,    .50135 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28303,    .16177,   6.43554,    .48517,    .31781,
     +     .24792,    .41377,    .50563,
     +     .28523,    .16273,   6.43404,    .48895,    .32284,
     +     .25376,    .41811,    .50957,
     +     .28730,    .16362,   6.43001,    .49243,    .32750,
     +     .25919,    .42212,    .51319,
     +     .28923,    .16445,   6.42443,    .49562,    .33183,
     +     .26425,    .42581,    .51652,
     +     .29112,    .16526,   6.41399,    .49859,    .33590,
     +     .26901,    .42927,    .51961 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18861,    .11952,   1.36810,    .18230,    .00000,
     +     .00000,    .09001,    .19527,
     +     .19478,    .12280,   1.66592,    .19056,    .00000,
     +     .00000,    .09936,    .20415,
     +     .20351,    .12741,   2.08067,    .20293,    .00000,
     +     .00000,    .11328,    .21739,
     +     .20961,    .13059,   2.36144,    .21204,    .00563,
     +     .00000,    .12350,    .22710,
     +     .21572,    .13375,   2.61974,    .22153,    .01838,
     +     .00000,    .13411,    .23718,
     +     .22084,    .13636,   2.83105,    .22963,    .02861,
     +     .00000,    .14316,    .24577,
     +     .22564,    .13879,   3.02600,    .23733,    .03842,
     +     .00000,    .15175,    .25391,
     +     .23061,    .14128,   3.22374,    .24540,    .04888,
     +     .00000,    .16076,    .26245 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23481,    .14337,   3.38325,    .25226,    .05742,
     +     .00000,    .16842,    .26969,
     +     .23876,    .14532,   3.52891,    .25877,    .06560,
     +     .00000,    .17569,    .27656,
     +     .24185,    .14684,   3.64114,    .26388,    .07217,
     +     .00000,    .18141,    .28196,
     +     .24819,    .14992,   3.84931,    .27449,    .08555,
     +     .00162,    .19327,    .29313,
     +     .25341,    .15243,   3.99431,    .28326,    .09659,
     +     .01544,    .20308,    .30234,
     +     .25907,    .15511,   4.13926,    .29271,    .10859,
     +     .03112,    .21368,    .31228,
     +     .26475,    .15777,   4.27307,    .30208,    .12057,
     +     .04502,    .22422,    .32211,
     +     .26972,    .16007,   4.37945,    .31015,    .13098,
     +     .05714,    .23335,    .33060 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27457,    .16229,   4.47364,    .31792,    .14109,
     +     .06889,    .24216,    .33876,
     +     .27847,    .16405,   4.54096,    .32404,    .14908,
     +     .07809,    .24911,    .34517,
     +     .28303,    .16609,   4.61038,    .33103,    .15830,
     +     .08870,    .25712,    .35253,
     +     .28695,    .16782,   4.66303,    .33693,    .16617,
     +     .09784,    .26390,    .35872,
     +     .29044,    .16935,   4.70443,    .34209,    .17313,
     +     .10596,    .26986,    .36414,
     +     .29471,    .17118,   4.74458,    .34816,    .18138,
     +     .11553,    .27693,    .37052,
     +     .29858,    .17283,   4.77391,    .35354,    .18881,
     +     .12420,    .28323,    .37617,
     +     .30212,    .17432,   4.79540,    .35833,    .19553,
     +     .13212,    .28888,    .38122 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30549,    .17571,   4.80691,    .36269,    .20171,
     +     .13936,    .29407,    .38579,
     +     .30870,    .17702,   4.81360,    .36673,    .20756,
     +     .14627,    .29892,    .39004,
     +     .31167,    .17822,   4.81517,    .37032,    .21285,
     +     .15256,    .30327,    .39382,
     +     .31434,    .17928,   4.81085,    .37341,    .21749,
     +     .15808,    .30706,    .39708,
     +     .31699,    .18032,   4.80463,    .37641,    .22207,
     +     .16358,    .31075,    .40024,
     +     .31948,    .18128,   4.79246,    .37904,    .22619,
     +     .16853,    .31406,    .40301,
     +     .32181,    .18217,   4.78018,    .38148,    .23008,
     +     .17324,    .31714,    .40559,
     +     .32392,    .18296,   4.76370,    .38351,    .23343,
     +     .17731,    .31977,    .40774 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32602,    .18374,   4.74648,    .38550,    .23677,
     +     .18140,    .32236,    .40985,
     +     .32802,    .18446,   4.72612,    .38726,    .23982,
     +     .18517,    .32470,    .41171,
     +     .32988,    .18513,   4.70517,    .38883,    .24263,
     +     .18864,    .32682,    .41338,
     +     .33162,    .18575,   4.68435,    .39024,    .24521,
     +     .19187,    .32876,    .41488,
     +     .33329,    .18633,   4.66038,    .39146,    .24759,
     +     .19486,    .33050,    .41619 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24328,    .15450,   1.50983,    .16948,    .00000,
     +     .00000,    .08491,    .18933,
     +     .25024,    .15784,   1.73955,    .17587,    .00000,
     +     .00000,    .09257,    .19637,
     +     .25998,    .16243,   2.04891,    .18518,    .00000,
     +     .00000,    .10367,    .20656,
     +     .26671,    .16555,   2.25041,    .19187,    .00456,
     +     .00000,    .11163,    .21385,
     +     .27338,    .16860,   2.42857,    .19869,    .01480,
     +     .00000,    .11973,    .22124,
     +     .27891,    .17109,   2.57025,    .20439,    .02288,
     +     .00000,    .12652,    .22740,
     +     .28405,    .17338,   2.69756,    .20972,    .03052,
     +     .00000,    .13286,    .23314,
     +     .28933,    .17570,   2.82328,    .21520,    .03856,
     +     .00000,    .13941,    .23906 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29375,    .17762,   2.92167,    .21978,    .04503,
     +     .00000,    .14489,    .24398,
     +     .29788,    .17939,   3.00908,    .22405,    .05116,
     +     .00000,    .15002,    .24856,
     +     .30108,    .18076,   3.07508,    .22738,    .05603,
     +     .00000,    .15401,    .25213,
     +     .30759,    .18350,   3.19062,    .23412,    .06582,
     +     .00126,    .16215,    .25934,
     +     .31289,    .18566,   3.26308,    .23956,    .07377,
     +     .01144,    .16875,    .26516,
     +     .31855,    .18795,   3.33033,    .24528,    .08227,
     +     .02291,    .17575,    .27126,
     +     .32416,    .19017,   3.38717,    .25078,    .09061,
     +     .03291,    .18254,    .27713,
     +     .32899,    .19205,   3.42757,    .25539,    .09774,
     +     .04150,    .18829,    .28203 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33366,    .19381,   3.45886,    .25969,    .10456,
     +     .04972,    .19372,    .28662,
     +     .33736,    .19518,   3.47729,    .26297,    .10986,
     +     .05606,    .19793,    .29010,
     +     .34164,    .19672,   3.49127,    .26661,    .11588,
     +     .06329,    .20265,    .29397,
     +     .34526,    .19800,   3.49781,    .26957,    .12094,
     +     .06944,    .20656,    .29712,
     +     .34845,    .19911,   3.49937,    .27209,    .12537,
     +     .07485,    .20994,    .29980,
     +     .35227,    .20039,   3.49345,    .27491,    .13051,
     +     .08113,    .21382,    .30279,
     +     .35569,    .20151,   3.48277,    .27730,    .13506,
     +     .08675,    .21718,    .30532,
     +     .35878,    .20249,   3.46930,    .27935,    .13913,
     +     .09181,    .22013,    .30749 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36167,    .20336,   3.44991,    .28105,    .14278,
     +     .09637,    .22272,    .30930,
     +     .36438,    .20416,   3.42850,    .28257,    .14618,
     +     .10068,    .22509,    .31090,
     +     .36683,    .20487,   3.40567,    .28384,    .14921,
     +     .10454,    .22715,    .31224,
     +     .36901,    .20546,   3.38096,    .28482,    .15181,
     +     .10790,    .22886,    .31328,
     +     .37114,    .20602,   3.35541,    .28572,    .15435,
     +     .11120,    .23049,    .31424,
     +     .37309,    .20650,   3.32694,    .28639,    .15657,
     +     .11412,    .23186,    .31494,
     +     .37491,    .20694,   3.29985,    .28699,    .15865,
     +     .11689,    .23312,    .31557,
     +     .37650,    .20730,   3.27163,    .28736,    .16039,
     +     .11923,    .23410,    .31595 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37808,    .20764,   3.24318,    .28770,    .16210,
     +     .12156,    .23504,    .31629,
     +     .37954,    .20793,   3.21347,    .28789,    .16363,
     +     .12368,    .23583,    .31649,
     +     .38088,    .20818,   3.18458,    .28800,    .16500,
     +     .12562,    .23651,    .31660,
     +     .38212,    .20840,   3.15690,    .28805,    .16625,
     +     .12739,    .23709,    .31666,
     +     .38327,    .20857,   3.12743,    .28798,    .16735,
     +     .12900,    .23754,    .31657 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29298,    .18410,   1.57981,    .15836,    .00000,
     +     .00000,    .08068,    .18473,
     +     .30026,    .18719,   1.75775,    .16330,    .00000,
     +     .00000,    .08702,    .19025,
     +     .31033,    .19139,   1.99062,    .17034,    .00000,
     +     .00000,    .09603,    .19804,
     +     .31721,    .19420,   2.13696,    .17529,    .00381,
     +     .00000,    .10237,    .20349,
     +     .32395,    .19688,   2.26103,    .18025,    .01230,
     +     .00000,    .10871,    .20891,
     +     .32948,    .19903,   2.35695,    .18431,    .01892,
     +     .00000,    .11395,    .21333,
     +     .33458,    .20099,   2.44087,    .18805,    .02511,
     +     .00000,    .11877,    .21738,
     +     .33977,    .20296,   2.52143,    .19183,    .03155,
     +     .00000,    .12370,    .22149 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34407,    .20455,   2.58228,    .19493,    .03668,
     +     .00000,    .12776,    .22484,
     +     .34806,    .20600,   2.63458,    .19778,    .04150,
     +     .00000,    .13152,    .22789,
     +     .35114,    .20711,   2.67313,    .19997,    .04531,
     +     .00000,    .13442,    .23024,
     +     .35733,    .20925,   2.73503,    .20432,    .05287,
     +     .00102,    .14024,    .23490,
     +     .36227,    .21092,   2.76678,    .20773,    .05892,
     +     .00895,    .14487,    .23854,
     +     .36750,    .21261,   2.79153,    .21121,    .06532,
     +     .01783,    .14968,    .24224,
     +     .37259,    .21421,   2.80758,    .21444,    .07151,
     +     .02546,    .15426,    .24565,
     +     .37692,    .21550,   2.81404,    .21704,    .07673,
     +     .03196,    .15804,    .24839 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38103,    .21667,   2.81376,    .21937,    .08165,
     +     .03810,    .16154,    .25084,
     +     .38424,    .21755,   2.80828,    .22106,    .08544,
     +     .04280,    .16418,    .25260,
     +     .38787,    .21849,   2.79592,    .22284,    .08967,
     +     .04809,    .16708,    .25444,
     +     .39090,    .21923,   2.78120,    .22421,    .09319,
     +     .05256,    .16941,    .25585,
     +     .39354,    .21983,   2.76493,    .22530,    .09623,
     +     .05645,    .17138,    .25696,
     +     .39662,    .22047,   2.73921,    .22640,    .09970,
     +     .06090,    .17354,    .25807,
     +     .39932,    .22098,   2.71200,    .22723,    .10273,
     +     .06486,    .17535,    .25889,
     +     .40170,    .22139,   2.68460,    .22787,    .10540,
     +     .06839,    .17689,    .25950 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40386,    .22170,   2.65356,    .22825,    .10775,
     +     .07152,    .17816,    .25983,
     +     .40585,    .22194,   2.62203,    .22850,    .10990,
     +     .07445,    .17926,    .26003,
     +     .40762,    .22210,   2.59092,    .22861,    .11179,
     +     .07706,    .18016,    .26009,
     +     .40912,    .22220,   2.55983,    .22858,    .11338,
     +     .07929,    .18084,    .25997,
     +     .41056,    .22227,   2.52851,    .22849,    .11491,
     +     .08147,    .18147,    .25980,
     +     .41181,    .22226,   2.49585,    .22824,    .11621,
     +     .08337,    .18190,    .25945,
     +     .41297,    .22224,   2.46516,    .22798,    .11741,
     +     .08515,    .18228,    .25910,
     +     .41394,    .22215,   2.43470,    .22758,    .11838,
     +     .08664,    .18249,    .25861 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41488,    .22205,   2.40431,    .22717,    .11933,
     +     .08811,    .18268,    .25811,
     +     .41570,    .22190,   2.37357,    .22666,    .12014,
     +     .08942,    .18275,    .25750,
     +     .41643,    .22173,   2.34418,    .22612,    .12085,
     +     .09061,    .18277,    .25687,
     +     .41707,    .22155,   2.31636,    .22559,    .12148,
     +     .09169,    .18274,    .25624,
     +     .41762,    .22133,   2.28750,    .22495,    .12201,
     +     .09265,    .18261,    .25550 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38157,    .23151,   1.58960,    .13796,    .00000,
     +     .00000,    .07295,    .17538,
     +     .38846,    .23369,   1.69459,    .14084,    .00000,
     +     .00000,    .07732,    .17847,
     +     .39781,    .23646,   1.82407,    .14473,    .00000,
     +     .00000,    .08332,    .18262,
     +     .40400,    .23824,   1.89916,    .14737,    .00278,
     +     .00000,    .08742,    .18538,
     +     .40994,    .23981,   1.95567,    .14991,    .00890,
     +     .00000,    .09141,    .18798,
     +     .41469,    .24099,   1.99592,    .15189,    .01359,
     +     .00000,    .09461,    .19001,
     +     .41898,    .24201,   2.02848,    .15365,    .01791,
     +     .00000,    .09749,    .19177,
     +     .42327,    .24297,   2.05692,    .15536,    .02233,
     +     .00000,    .10036,    .19345 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42673,    .24368,   2.07537,    .15667,    .02579,
     +     .00000,    .10266,    .19474,
     +     .42986,    .24427,   2.08886,    .15783,    .02900,
     +     .00000,    .10474,    .19584,
     +     .43225,    .24470,   2.09761,    .15870,    .03151,
     +     .00000,    .10633,    .19664,
     +     .43687,    .24541,   2.10305,    .16029,    .03640,
     +     .00072,    .10939,    .19809,
     +     .44042,    .24582,   2.09382,    .16142,    .04024,
     +     .00593,    .11174,    .19907,
     +     .44401,    .24613,   2.07741,    .16244,    .04422,
     +     .01174,    .11406,    .19989,
     +     .44733,    .24629,   2.05529,    .16322,    .04798,
     +     .01663,    .11616,    .20043,
     +     .45000,    .24628,   2.03119,    .16371,    .05108,
     +     .02072,    .11780,    .20067 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45239,    .24615,   2.00376,    .16400,    .05394,
     +     .02453,    .11921,    .20070,
     +     .45414,    .24595,   1.97858,    .16408,    .05609,
     +     .02739,    .12020,    .20055,
     +     .45597,    .24558,   1.94558,    .16402,    .05845,
     +     .03057,    .12119,    .20018,
     +     .45738,    .24518,   1.91506,    .16383,    .06036,
     +     .03321,    .12192,    .19971,
     +     .45852,    .24475,   1.88620,    .16356,    .06197,
     +     .03547,    .12246,    .19918,
     +     .45967,    .24407,   1.84761,    .16304,    .06377,
     +     .03802,    .12294,    .19832,
     +     .46055,    .24336,   1.81063,    .16243,    .06528,
     +     .04024,    .12325,    .19738,
     +     .46121,    .24265,   1.77578,    .16180,    .06658,
     +     .04219,    .12344,    .19642 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46163,    .24183,   1.73970,    .16101,    .06767,
     +     .04388,    .12346,    .19530,
     +     .46191,    .24098,   1.70456,    .16017,    .06865,
     +     .04544,    .12340,    .19414,
     +     .46204,    .24014,   1.67132,    .15933,    .06947,
     +     .04680,    .12325,    .19298,
     +     .46200,    .23929,   1.63961,    .15845,    .07013,
     +     .04793,    .12302,    .19180,
     +     .46191,    .23841,   1.60828,    .15755,    .07074,
     +     .04903,    .12276,    .19059,
     +     .46165,    .23748,   1.57705,    .15657,    .07121,
     +     .04995,    .12240,    .18930,
     +     .46137,    .23660,   1.54804,    .15563,    .07164,
     +     .05081,    .12205,    .18808,
     +     .46095,    .23570,   1.52029,    .15468,    .07194,
     +     .05151,    .12162,    .18684 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46051,    .23480,   1.49289,    .15372,    .07223,
     +     .05218,    .12118,    .18560,
     +     .45996,    .23386,   1.46585,    .15272,    .07244,
     +     .05277,    .12069,    .18432,
     +     .45939,    .23295,   1.44038,    .15175,    .07261,
     +     .05328,    .12020,    .18308,
     +     .45881,    .23207,   1.41656,    .15081,    .07274,
     +     .05374,    .11972,    .18189,
     +     .45811,    .23115,   1.39243,    .14982,    .07281,
     +     .05412,    .11917,    .18064 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45807,    .26692,   1.50624,    .11938,    .00000,
     +     .00000,    .06560,    .16448,
     +     .46371,    .26784,   1.56467,    .12089,    .00000,
     +     .00000,    .06857,    .16577,
     +     .47105,    .26881,   1.63087,    .12284,    .00000,
     +     .00000,    .07255,    .16727,
     +     .47575,    .26927,   1.66429,    .12408,    .00209,
     +     .00000,    .07517,    .16818,
     +     .48007,    .26949,   1.68286,    .12518,    .00667,
     +     .00000,    .07767,    .16891,
     +     .48338,    .26952,   1.69293,    .12598,    .01013,
     +     .00000,    .07961,    .16935,
     +     .48625,    .26944,   1.69842,    .12663,    .01328,
     +     .00000,    .08132,    .16964,
     +     .48902,    .26926,   1.70016,    .12719,    .01646,
     +     .00000,    .08297,    .16982 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49114,    .26897,   1.69759,    .12755,    .01892,
     +     .00000,    .08426,    .16983,
     +     .49296,    .26862,   1.69237,    .12782,    .02118,
     +     .00000,    .08538,    .16975,
     +     .49430,    .26831,   1.68707,    .12799,    .02293,
     +     .00000,    .08621,    .16965,
     +     .49667,    .26747,   1.66710,    .12819,    .02631,
     +     .00054,    .08777,    .16923,
     +     .49827,    .26659,   1.64089,    .12819,    .02890,
     +     .00418,    .08889,    .16869,
     +     .49967,    .26547,   1.60845,    .12803,    .03156,
     +     .00823,    .08992,    .16791,
     +     .50069,    .26416,   1.57254,    .12767,    .03402,
     +     .01158,    .09074,    .16690,
     +     .50128,    .26286,   1.53828,    .12720,    .03601,
     +     .01435,    .09129,    .16583 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50158,    .26144,   1.50259,    .12659,    .03781,
     +     .01689,    .09169,    .16462,
     +     .50157,    .26019,   1.47215,    .12600,    .03914,
     +     .01878,    .09189,    .16351,
     +     .50130,    .25858,   1.43453,    .12515,    .04056,
     +     .02085,    .09199,    .16206,
     +     .50087,    .25709,   1.40115,    .12433,    .04169,
     +     .02255,    .09198,    .16071,
     +     .50031,    .25568,   1.37058,    .12353,    .04262,
     +     .02398,    .09189,    .15942,
     +     .49933,    .25380,   1.33139,    .12241,    .04362,
     +     .02558,    .09164,    .15766,
     +     .49820,    .25199,   1.29492,    .12130,    .04444,
     +     .02695,    .09132,    .15595,
     +     .49702,    .25026,   1.26131,    .12022,    .04513,
     +     .02813,    .09096,    .15432 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49557,    .24846,   1.22760,    .11906,    .04567,
     +     .02914,    .09049,    .15260,
     +     .49407,    .24667,   1.19530,    .11790,    .04613,
     +     .03005,    .08999,    .15090,
     +     .49253,    .24495,   1.16524,    .11677,    .04651,
     +     .03083,    .08946,    .14928,
     +     .49093,    .24328,   1.13715,    .11566,    .04677,
     +     .03147,    .08891,    .14769,
     +     .48929,    .24161,   1.10967,    .11455,    .04701,
     +     .03208,    .08834,    .14611,
     +     .48750,    .23991,   1.08279,    .11340,    .04716,
     +     .03258,    .08772,    .14450,
     +     .48581,    .23830,   1.05800,    .11233,    .04730,
     +     .03303,    .08713,    .14299,
     +     .48405,    .23674,   1.03467,    .11127,    .04736,
     +     .03339,    .08652,    .14153 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .48228,    .23518,   1.01177,    .11021,    .04741,
     +     .03373,    .08590,    .14006,
     +     .48042,    .23361,    .98946,    .10914,    .04741,
     +     .03401,    .08526,    .13860,
     +     .47862,    .23210,    .96861,    .10812,    .04738,
     +     .03425,    .08463,    .13720,
     +     .47687,    .23067,    .94926,    .10715,    .04735,
     +     .03445,    .08403,    .13588,
     +     .47502,    .22919,    .92986,    .10615,    .04727,
     +     .03461,    .08340,    .13452 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52361,    .29287,   1.38320,    .10277,    .00000,
     +     .00000,    .05853,    .15202,
     +     .52740,    .29243,   1.41162,    .10341,    .00000,
     +     .00000,    .06051,    .15196,
     +     .53196,    .29143,   1.43847,    .10412,    .00000,
     +     .00000,    .06307,    .15159,
     +     .53463,    .29052,   1.44693,    .10451,    .00161,
     +     .00000,    .06470,    .15118,
     +     .53682,    .28935,   1.44375,    .10477,    .00511,
     +     .00000,    .06621,    .15063,
     +     .53829,    .28820,   1.43704,    .10486,    .00773,
     +     .00000,    .06733,    .15003,
     +     .53941,    .28700,   1.42790,    .10487,    .01008,
     +     .00000,    .06828,    .14935,
     +     .54033,    .28565,   1.41563,    .10479,    .01245,
     +     .00000,    .06917,    .14854 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54081,    .28441,   1.40236,    .10464,    .01426,
     +     .00000,    .06983,    .14775,
     +     .54107,    .28313,   1.38789,    .10443,    .01590,
     +     .00000,    .07037,    .14693,
     +     .54118,    .28210,   1.37582,    .10423,    .01717,
     +     .00000,    .07075,    .14626,
     +     .54100,    .27975,   1.34448,    .10368,    .01958,
     +     .00041,    .07140,    .14474,
     +     .54038,    .27764,   1.31171,    .10312,    .02141,
     +     .00305,    .07180,    .14331,
     +     .53934,    .27517,   1.27374,    .10238,    .02325,
     +     .00598,    .07209,    .14161,
     +     .53789,    .27249,   1.23376,    .10147,    .02493,
     +     .00837,    .07222,    .13975,
     +     .53625,    .26999,   1.19723,    .10055,    .02627,
     +     .01033,    .07219,    .13798 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53432,    .26742,   1.16041,    .09956,    .02745,
     +     .01210,    .07205,    .13612,
     +     .53250,    .26524,   1.12990,    .09869,    .02831,
     +     .01341,    .07186,    .13452,
     +     .53006,    .26252,   1.09313,    .09754,    .02921,
     +     .01482,    .07151,    .13255,
     +     .52773,    .26008,   1.06115,    .09649,    .02991,
     +     .01597,    .07114,    .13078,
     +     .52547,    .25784,   1.03236,    .09551,    .03048,
     +     .01693,    .07075,    .12913,
     +     .52236,    .25491,    .99618,    .09418,    .03106,
     +     .01798,    .07019,    .12700,
     +     .51928,    .25215,    .96305,    .09292,    .03152,
     +     .01887,    .06959,    .12498,
     +     .51627,    .24959,    .93292,    .09174,    .03189,
     +     .01963,    .06900,    .12308 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51307,    .24695,    .90320,    .09049,    .03216,
     +     .02026,    .06834,    .12116,
     +     .50986,    .24439,    .87502,    .08927,    .03237,
     +     .02083,    .06767,    .11928,
     +     .50673,    .24196,    .84908,    .08812,    .03253,
     +     .02130,    .06701,    .11751,
     +     .50367,    .23963,    .82512,    .08700,    .03262,
     +     .02168,    .06636,    .11582,
     +     .50060,    .23732,    .80182,    .08589,    .03269,
     +     .02204,    .06570,    .11414,
     +     .49742,    .23500,    .77930,    .08477,    .03270,
     +     .02232,    .06502,    .11247,
     +     .49442,    .23283,    .75863,    .08373,    .03271,
     +     .02257,    .06437,    .11092,
     +     .49145,    .23074,    .73938,    .08271,    .03267,
     +     .02275,    .06373,    .10944 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48848,    .22866,    .72058,    .08171,    .03262,
     +     .02293,    .06308,    .10798,
     +     .48547,    .22659,    .70240,    .08070,    .03254,
     +     .02307,    .06243,    .10652,
     +     .48257,    .22463,    .68550,    .07975,    .03245,
     +     .02318,    .06180,    .10514,
     +     .47981,    .22278,    .66989,    .07886,    .03235,
     +     .02327,    .06121,    .10384,
     +     .47693,    .22089,    .65436,    .07794,    .03223,
     +     .02333,    .06060,    .10252 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59109,    .31452,   1.21467,    .08491,    .00000,
     +     .00000,    .05022,    .13492,
     +     .59199,    .31238,   1.22025,    .08491,    .00000,
     +     .00000,    .05134,    .13369,
     +     .59241,    .30894,   1.21811,    .08471,    .00000,
     +     .00000,    .05270,    .13177,
     +     .59213,    .30634,   1.20904,    .08449,    .00119,
     +     .00000,    .05351,    .13031,
     +     .59128,    .30349,   1.19137,    .08416,    .00374,
     +     .00000,    .05423,    .12874,
     +     .59017,    .30093,   1.17385,    .08377,    .00564,
     +     .00000,    .05470,    .12733,
     +     .58883,    .29844,   1.15565,    .08336,    .00733,
     +     .00000,    .05507,    .12593,
     +     .58717,    .29576,   1.13506,    .08287,    .00900,
     +     .00000,    .05537,    .12441 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58548,    .29336,   1.11577,    .08238,    .01027,
     +     .00000,    .05554,    .12305,
     +     .58366,    .29101,   1.09639,    .08188,    .01141,
     +     .00000,    .05565,    .12171,
     +     .58214,    .28916,   1.08088,    .08147,    .01228,
     +     .00000,    .05572,    .12063,
     +     .57855,    .28513,   1.04463,    .08049,    .01392,
     +     .00030,    .05573,    .11835,
     +     .57513,    .28161,   1.01018,    .07959,    .01514,
     +     .00213,    .05563,    .11637,
     +     .57100,    .27766,    .97168,    .07854,    .01636,
     +     .00415,    .05541,    .11411,
     +     .56639,    .27353,    .93236,    .07737,    .01744,
     +     .00578,    .05508,    .11174,
     +     .56199,    .26975,    .89738,    .07625,    .01828,
     +     .00709,    .05469,    .10958 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55734,    .26593,    .86290,    .07510,    .01902,
     +     .00827,    .05423,    .10739,
     +     .55333,    .26275,    .83489,    .07412,    .01953,
     +     .00913,    .05379,    .10556,
     +     .54828,    .25889,    .80174,    .07289,    .02005,
     +     .01004,    .05320,    .10336,
     +     .54371,    .25549,    .77335,    .07179,    .02045,
     +     .01078,    .05265,    .10141,
     +     .53945,    .25238,    .74811,    .07077,    .02076,
     +     .01139,    .05212,    .09964,
     +     .53385,    .24844,    .71691,    .06946,    .02106,
     +     .01204,    .05139,    .09740,
     +     .52850,    .24475,    .68872,    .06822,    .02128,
     +     .01258,    .05068,    .09531,
     +     .52346,    .24134,    .66334,    .06707,    .02144,
     +     .01303,    .05000,    .09339 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51826,    .23791,    .63867,    .06589,    .02154,
     +     .01340,    .04929,    .09147,
     +     .51316,    .23458,    .61550,    .06475,    .02160,
     +     .01373,    .04859,    .08962,
     +     .50832,    .23146,    .59435,    .06367,    .02163,
     +     .01399,    .04792,    .08790,
     +     .50365,    .22852,    .57501,    .06265,    .02162,
     +     .01420,    .04726,    .08628,
     +     .49899,    .22561,    .55633,    .06165,    .02160,
     +     .01438,    .04661,    .08468,
     +     .49430,    .22275,    .53844,    .06066,    .02155,
     +     .01452,    .04595,    .08312,
     +     .48990,    .22007,    .52210,    .05974,    .02148,
     +     .01465,    .04534,    .08167,
     +     .48566,    .21751,    .50702,    .05884,    .02140,
     +     .01473,    .04474,    .08030 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48144,    .21497,    .49236,    .05795,    .02131,
     +     .01480,    .04416,    .07894,
     +     .47721,    .21247,    .47829,    .05708,    .02120,
     +     .01485,    .04356,    .07762,
     +     .47318,    .21010,    .46529,    .05627,    .02109,
     +     .01489,    .04300,    .07638,
     +     .46936,    .20788,    .45333,    .05550,    .02098,
     +     .01491,    .04246,    .07521,
     +     .46544,    .20564,    .44152,    .05473,    .02085,
     +     .01492,    .04192,    .07403 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .64335,    .32638,   1.05341,    .07016,    .00000,
     +     .00000,    .04260,    .11705,
     +     .64113,    .32258,   1.04598,    .06976,    .00000,
     +     .00000,    .04316,    .11517,
     +     .63701,    .31689,   1.02799,    .06908,    .00000,
     +     .00000,    .04376,    .11235,
     +     .63354,    .31274,   1.00990,    .06855,    .00089,
     +     .00000,    .04409,    .11030,
     +     .62952,    .30834,    .98542,    .06790,    .00279,
     +     .00000,    .04431,    .10822,
     +     .62572,    .30450,    .96314,    .06728,    .00419,
     +     .00000,    .04440,    .10640,
     +     .62188,    .30084,    .94121,    .06667,    .00542,
     +     .00000,    .04443,    .10464,
     +     .61761,    .29697,    .91749,    .06600,    .00663,
     +     .00000,    .04441,    .10277 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61372,    .29358,    .89625,    .06535,    .00754,
     +     .00000,    .04432,    .10117,
     +     .60982,    .29031,    .87554,    .06471,    .00835,
     +     .00000,    .04420,    .09960,
     +     .60669,    .28775,    .85924,    .06422,    .00896,
     +     .00000,    .04408,    .09837,
     +     .59977,    .28227,    .82282,    .06308,    .01010,
     +     .00023,    .04374,    .09583,
     +     .59359,    .27764,    .78980,    .06209,    .01094,
     +     .00152,    .04340,    .09364,
     +     .58651,    .27245,    .75364,    .06095,    .01176,
     +     .00295,    .04294,    .09121,
     +     .57894,    .26711,    .71737,    .05974,    .01248,
     +     .00409,    .04239,    .08871,
     +     .57194,    .26232,    .68565,    .05861,    .01302,
     +     .00500,    .04185,    .08649 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56481,    .25752,    .65483,    .05744,    .01348,
     +     .00580,    .04127,    .08427,
     +     .55878,    .25359,    .63014,    .05648,    .01380,
     +     .00638,    .04076,    .08244,
     +     .55137,    .24885,    .60123,    .05531,    .01411,
     +     .00699,    .04009,    .08028,
     +     .54480,    .24472,    .57675,    .05427,    .01434,
     +     .00747,    .03949,    .07839,
     +     .53876,    .24099,    .55520,    .05332,    .01450,
     +     .00787,    .03894,    .07667,
     +     .53100,    .23626,    .52885,    .05211,    .01465,
     +     .00828,    .03820,    .07455,
     +     .52372,    .23189,    .50525,    .05097,    .01474,
     +     .00862,    .03749,    .07261,
     +     .51694,    .22787,    .48420,    .04992,    .01481,
     +     .00891,    .03683,    .07082 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .51007,    .22387,    .46392,    .04887,    .01482,
     +     .00912,    .03616,    .06906,
     +     .50338,    .22003,    .44501,    .04786,    .01482,
     +     .00931,    .03550,    .06738,
     +     .49707,    .21644,    .42788,    .04692,    .01479,
     +     .00947,    .03487,    .06582,
     +     .49109,    .21309,    .41235,    .04604,    .01474,
     +     .00958,    .03428,    .06437,
     +     .48516,    .20979,    .39743,    .04517,    .01468,
     +     .00968,    .03370,    .06295,
     +     .47928,    .20655,    .38326,    .04430,    .01460,
     +     .00974,    .03311,    .06158,
     +     .47379,    .20353,    .37036,    .04350,    .01453,
     +     .00980,    .03257,    .06031,
     +     .46853,    .20068,    .35853,    .04274,    .01443,
     +     .00983,    .03205,    .05912 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46331,    .19785,    .34707,    .04200,    .01434,
     +     .00986,    .03153,    .05795,
     +     .45813,    .19509,    .33614,    .04127,    .01423,
     +     .00987,    .03102,    .05680,
     +     .45323,    .19250,    .32608,    .04059,    .01412,
     +     .00987,    .03054,    .05573,
     +     .44861,    .19007,    .31685,    .03995,    .01402,
     +     .00986,    .03009,    .05472,
     +     .44390,    .18762,    .30779,    .03932,    .01390,
     +     .00985,    .02963,    .05372 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .68137,    .33026,    .90960,    .05813,    .00000,
     +     .00000,    .03574,    .09937,
     +     .67585,    .32503,    .89478,    .05756,    .00000,
     +     .00000,    .03593,    .09714,
     +     .66713,    .31733,    .86826,    .05663,    .00000,
     +     .00000,    .03606,    .09392,
     +     .66049,    .31184,    .84571,    .05593,    .00067,
     +     .00000,    .03607,    .09164,
     +     .65327,    .30614,    .81843,    .05518,    .00211,
     +     .00000,    .03600,    .08930,
     +     .64683,    .30123,    .79446,    .05445,    .00315,
     +     .00000,    .03587,    .08735,
     +     .64054,    .29658,    .77145,    .05375,    .00407,
     +     .00000,    .03570,    .08551,
     +     .63377,    .29173,    .74710,    .05300,    .00495,
     +     .00000,    .03548,    .08357 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62775,    .28754,    .72582,    .05234,    .00561,
     +     .00000,    .03525,    .08187,
     +     .62189,    .28352,    .70540,    .05167,    .00620,
     +     .00000,    .03501,    .08027,
     +     .61727,    .28036,    .68951,    .05112,    .00664,
     +     .00000,    .03480,    .07905,
     +     .60724,    .27376,    .65496,    .04996,    .00744,
     +     .00017,    .03430,    .07650,
     +     .59854,    .26820,    .62453,    .04897,    .00803,
     +     .00110,    .03384,    .07434,
     +     .58876,    .26208,    .59169,    .04786,    .00859,
     +     .00213,    .03328,    .07198,
     +     .57855,    .25583,    .55919,    .04668,    .00907,
     +     .00294,    .03267,    .06959,
     +     .56928,    .25026,    .53111,    .04561,    .00943,
     +     .00358,    .03208,    .06749 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .55994,    .24476,    .50414,    .04452,    .00972,
     +     .00414,    .03146,    .06543,
     +     .55216,    .24027,    .48270,    .04364,    .00992,
     +     .00454,    .03093,    .06373,
     +     .54276,    .23490,    .45788,    .04256,    .01010,
     +     .00495,    .03028,    .06174,
     +     .53451,    .23024,    .43704,    .04161,    .01022,
     +     .00528,    .02971,    .06004,
     +     .52700,    .22605,    .41885,    .04075,    .01031,
     +     .00554,    .02918,    .05851,
     +     .51745,    .22082,    .39678,    .03967,    .01038,
     +     .00581,    .02850,    .05660,
     +     .50856,    .21601,    .37719,    .03868,    .01041,
     +     .00603,    .02786,    .05487,
     +     .50036,    .21161,    .35983,    .03776,    .01042,
     +     .00620,    .02726,    .05330 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49213,    .20725,    .34325,    .03685,    .01039,
     +     .00634,    .02665,    .05177,
     +     .48418,    .20308,    .32788,    .03598,    .01036,
     +     .00645,    .02607,    .05031,
     +     .47674,    .19921,    .31406,    .03518,    .01031,
     +     .00654,    .02553,    .04896,
     +     .46976,    .19561,    .30158,    .03442,    .01025,
     +     .00660,    .02502,    .04773,
     +     .46288,    .19208,    .28964,    .03367,    .01018,
     +     .00665,    .02451,    .04653,
     +     .45609,    .18864,    .27839,    .03293,    .01010,
     +     .00668,    .02401,    .04536,
     +     .44976,    .18546,    .26819,    .03226,    .01002,
     +     .00670,    .02355,    .04429,
     +     .44376,    .18245,    .25887,    .03163,    .00993,
     +     .00671,    .02311,    .04329 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43783,    .17948,    .24988,    .03100,    .00985,
     +     .00671,    .02268,    .04231,
     +     .43197,    .17658,    .24135,    .03040,    .00975,
     +     .00670,    .02226,    .04136,
     +     .42644,    .17387,    .23353,    .02983,    .00966,
     +     .00669,    .02187,    .04048,
     +     .42126,    .17133,    .22639,    .02930,    .00957,
     +     .00667,    .02150,    .03966,
     +     .41603,    .16878,    .21940,    .02877,    .00947,
     +     .00665,    .02112,    .03885 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70616,    .32769,    .78533,    .04837,    .00000,
     +     .00000,    .02965,    .08256,
     +     .69744,    .32122,    .76630,    .04769,    .00000,
     +     .00000,    .02962,    .08027,
     +     .68428,    .31179,    .73526,    .04662,    .00000,
     +     .00000,    .02947,    .07701,
     +     .67462,    .30515,    .71072,    .04584,    .00051,
     +     .00000,    .02929,    .07474,
     +     .66440,    .29836,    .68264,    .04502,    .00160,
     +     .00000,    .02905,    .07245,
     +     .65547,    .29259,    .65853,    .04427,    .00239,
     +     .00000,    .02881,    .07053,
     +     .64691,    .28716,    .63573,    .04356,    .00307,
     +     .00000,    .02855,    .06872,
     +     .63785,    .28151,    .61197,    .04279,    .00373,
     +     .00000,    .02824,    .06684 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .62994,    .27666,    .59154,    .04211,    .00421,
     +     .00000,    .02794,    .06526,
     +     .62229,    .27206,    .57215,    .04144,    .00464,
     +     .00000,    .02764,    .06377,
     +     .61627,    .26848,    .55718,    .04092,    .00496,
     +     .00000,    .02740,    .06260,
     +     .60351,    .26100,    .52520,    .03980,    .00553,
     +     .00013,    .02685,    .06023,
     +     .59258,    .25477,    .49769,    .03886,    .00594,
     +     .00081,    .02635,    .05825,
     +     .58047,    .24796,    .46836,    .03781,    .00633,
     +     .00156,    .02579,    .05609,
     +     .56798,    .24106,    .43964,    .03671,    .00665,
     +     .00214,    .02517,    .05394,
     +     .55677,    .23495,    .41508,    .03572,    .00688,
     +     .00259,    .02460,    .05206 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54559,    .22895,    .39170,    .03473,    .00707,
     +     .00299,    .02403,    .05022,
     +     .53639,    .22408,    .37328,    .03393,    .00719,
     +     .00326,    .02354,    .04875,
     +     .52535,    .21831,    .35215,    .03297,    .00729,
     +     .00355,    .02294,    .04701,
     +     .51573,    .21333,    .33454,    .03213,    .00736,
     +     .00377,    .02241,    .04552,
     +     .50703,    .20888,    .31925,    .03137,    .00740,
     +     .00394,    .02193,    .04420,
     +     .49607,    .20334,    .30086,    .03043,    .00742,
     +     .00412,    .02133,    .04258,
     +     .48596,    .19826,    .28465,    .02955,    .00741,
     +     .00426,    .02077,    .04112,
     +     .47669,    .19363,    .27039,    .02876,    .00740,
     +     .00437,    .02026,    .03979 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46745,    .18911,    .25684,    .02798,    .00736,
     +     .00445,    .01973,    .03850,
     +     .45858,    .18479,    .24436,    .02724,    .00731,
     +     .00452,    .01924,    .03728,
     +     .45032,    .18079,    .23320,    .02654,    .00726,
     +     .00456,    .01879,    .03617,
     +     .44260,    .17708,    .22321,    .02591,    .00719,
     +     .00459,    .01835,    .03515,
     +     .43502,    .17346,    .21369,    .02529,    .00713,
     +     .00462,    .01792,    .03417,
     +     .42759,    .16995,    .20472,    .02468,    .00705,
     +     .00463,    .01751,    .03322,
     +     .42069,    .16670,    .19662,    .02412,    .00698,
     +     .00463,    .01713,    .03234,
     +     .41419,    .16366,    .18930,    .02359,    .00691,
     +     .00463,    .01677,    .03152 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40776,    .16067,    .18226,    .02307,    .00683,
     +     .00462,    .01642,    .03073,
     +     .40146,    .15775,    .17560,    .02257,    .00675,
     +     .00461,    .01608,    .02996,
     +     .39553,    .15502,    .16950,    .02211,    .00667,
     +     .00459,    .01575,    .02925,
     +     .38999,    .15249,    .16395,    .02169,    .00660,
     +     .00457,    .01545,    .02859,
     +     .38440,    .14995,    .15853,    .02125,    .00652,
     +     .00454,    .01516,    .02793 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .71889,    .31987,    .67926,    .04038,    .00000,
     +     .00000,    .02434,    .06723,
     +     .70715,    .31236,    .65776,    .03966,    .00000,
     +     .00000,    .02419,    .06502,
     +     .68983,    .30157,    .62447,    .03852,    .00000,
     +     .00000,    .02388,    .06195,
     +     .67737,    .29403,    .59924,    .03770,    .00039,
     +     .00000,    .02360,    .05985,
     +     .66445,    .28637,    .57143,    .03686,    .00122,
     +     .00000,    .02330,    .05772,
     +     .65330,    .27993,    .54792,    .03612,    .00182,
     +     .00000,    .02300,    .05595,
     +     .64270,    .27391,    .52599,    .03541,    .00233,
     +     .00000,    .02270,    .05430,
     +     .63158,    .26769,    .50339,    .03467,    .00282,
     +     .00000,    .02235,    .05261 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62199,    .26237,    .48415,    .03400,    .00317,
     +     .00000,    .02206,    .05117,
     +     .61280,    .25734,    .46611,    .03336,    .00348,
     +     .00000,    .02175,    .04982,
     +     .60561,    .25344,    .45230,    .03287,    .00371,
     +     .00000,    .02150,    .04880,
     +     .59048,    .24536,    .42321,    .03183,    .00412,
     +     .00010,    .02093,    .04670,
     +     .57773,    .23864,    .39862,    .03093,    .00441,
     +     .00059,    .02045,    .04497,
     +     .56367,    .23137,    .37266,    .02996,    .00468,
     +     .00114,    .01992,    .04311,
     +     .54933,    .22405,    .34748,    .02896,    .00489,
     +     .00156,    .01935,    .04124,
     +     .53656,    .21763,    .32616,    .02807,    .00505,
     +     .00188,    .01884,    .03962 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52392,    .21136,    .30606,    .02720,    .00516,
     +     .00216,    .01831,    .03805,
     +     .51360,    .20628,    .29036,    .02647,    .00523,
     +     .00236,    .01787,    .03682,
     +     .50129,    .20028,    .27246,    .02562,    .00529,
     +     .00255,    .01735,    .03535,
     +     .49064,    .19515,    .25766,    .02489,    .00532,
     +     .00270,    .01689,    .03411,
     +     .48107,    .19058,    .24489,    .02422,    .00533,
     +     .00282,    .01648,    .03302,
     +     .46908,    .18492,    .22961,    .02341,    .00533,
     +     .00294,    .01595,    .03167,
     +     .45808,    .17977,    .21624,    .02267,    .00531,
     +     .00303,    .01547,    .03046,
     +     .44803,    .17508,    .20454,    .02199,    .00528,
     +     .00310,    .01504,    .02937 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43809,    .17050,    .19356,    .02131,    .00524,
     +     .00314,    .01461,    .02834,
     +     .42859,    .16616,    .18347,    .02069,    .00519,
     +     .00318,    .01420,    .02735,
     +     .41978,    .16216,    .17446,    .02012,    .00514,
     +     .00321,    .01383,    .02645,
     +     .41159,    .15848,    .16645,    .01960,    .00508,
     +     .00322,    .01347,    .02562,
     +     .40356,    .15490,    .15885,    .01909,    .00502,
     +     .00323,    .01312,    .02482,
     +     .39577,    .15140,    .15174,    .01858,    .00496,
     +     .00323,    .01278,    .02407,
     +     .38855,    .14817,    .14535,    .01810,    .00489,
     +     .00322,    .01247,    .02339,
     +     .38175,    .14518,    .13957,    .01767,    .00483,
     +     .00321,    .01218,    .02274 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37505,    .14225,    .13403,    .01725,    .00477,
     +     .00320,    .01190,    .02210,
     +     .36851,    .13940,    .12881,    .01684,    .00470,
     +     .00319,    .01162,    .02150,
     +     .36238,    .13674,    .12406,    .01646,    .00464,
     +     .00317,    .01136,    .02095,
     +     .35667,    .13426,    .11975,    .01611,    .00458,
     +     .00315,    .01112,    .02043,
     +     .35094,    .13179,    .11557,    .01575,    .00452,
     +     .00313,    .01088,    .01993 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .72072,    .30786,    .58868,    .03372,    .00000,
     +     .00000,    .01980,    .05369,
     +     .70619,    .29959,    .56584,    .03299,    .00000,
     +     .00000,    .01956,    .05169,
     +     .68512,    .28777,    .53157,    .03187,    .00000,
     +     .00000,    .01914,    .04893,
     +     .67017,    .27957,    .50647,    .03108,    .00030,
     +     .00000,    .01884,    .04703,
     +     .65484,    .27133,    .47954,    .03025,    .00093,
     +     .00000,    .01852,    .04514,
     +     .64176,    .26441,    .45707,    .02954,    .00138,
     +     .00000,    .01820,    .04358,
     +     .62943,    .25798,    .43632,    .02887,    .00177,
     +     .00000,    .01788,    .04214,
     +     .61658,    .25137,    .41515,    .02816,    .00213,
     +     .00000,    .01754,    .04066 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60557,    .24574,    .39735,    .02754,    .00239,
     +     .00000,    .01723,    .03944,
     +     .59510,    .24044,    .38078,    .02694,    .00261,
     +     .00000,    .01693,    .03831,
     +     .58696,    .23635,    .36815,    .02648,    .00278,
     +     .00000,    .01668,    .03743,
     +     .56989,    .22793,    .34195,    .02554,    .00308,
     +     .00008,    .01618,    .03560,
     +     .55564,    .22097,    .32015,    .02472,    .00328,
     +     .00044,    .01574,    .03415,
     +     .54010,    .21345,    .29737,    .02384,    .00346,
     +     .00084,    .01525,    .03258,
     +     .52432,    .20592,    .27548,    .02295,    .00361,
     +     .00114,    .01476,    .03102,
     +     .51037,    .19935,    .25713,    .02216,    .00371,
     +     .00137,    .01430,    .02969 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49666,    .19297,    .23995,    .02138,    .00378,
     +     .00157,    .01384,    .02840,
     +     .48552,    .18786,    .22662,    .02075,    .00382,
     +     .00171,    .01347,    .02737,
     +     .47233,    .18182,    .21156,    .02000,    .00384,
     +     .00184,    .01302,    .02619,
     +     .46097,    .17666,    .19916,    .01936,    .00385,
     +     .00194,    .01263,    .02519,
     +     .45079,    .17208,    .18850,    .01880,    .00385,
     +     .00202,    .01229,    .02431,
     +     .43813,    .16645,    .17593,    .01810,    .00384,
     +     .00210,    .01185,    .02323,
     +     .42656,    .16135,    .16497,    .01747,    .00381,
     +     .00216,    .01145,    .02226,
     +     .41603,    .15674,    .15541,    .01691,    .00378,
     +     .00220,    .01108,    .02140 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40570,    .15222,    .14650,    .01634,    .00374,
     +     .00223,    .01074,    .02058,
     +     .39587,    .14796,    .13836,    .01581,    .00369,
     +     .00225,    .01042,    .01980,
     +     .38679,    .14404,    .13115,    .01533,    .00365,
     +     .00226,    .01011,    .01909,
     +     .37837,    .14046,    .12475,    .01488,    .00360,
     +     .00227,    .00982,    .01845,
     +     .37015,    .13697,    .11869,    .01444,    .00355,
     +     .00227,    .00954,    .01783,
     +     .36218,    .13360,    .11307,    .01403,    .00349,
     +     .00226,    .00927,    .01724,
     +     .35482,    .13049,    .10802,    .01365,    .00344,
     +     .00226,    .00903,    .01670,
     +     .34792,    .12761,    .10350,    .01330,    .00339,
     +     .00224,    .00880,    .01621 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34114,    .12479,    .09916,    .01295,    .00334,
     +     .00223,    .00857,    .01574,
     +     .33455,    .12206,    .09509,    .01262,    .00329,
     +     .00222,    .00835,    .01526,
     +     .32839,    .11951,    .09139,    .01232,    .00324,
     +     .00220,    .00815,    .01482,
     +     .32266,    .11715,    .08804,    .01204,    .00319,
     +     .00218,    .00797,    .01442,
     +     .31692,    .11480,    .08481,    .01175,    .00314,
     +     .00216,    .00779,    .01405 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .71240,    .29302,    .51084,    .02846,    .00000,
     +     .00000,    .01571,    .04183,
     +     .69555,    .28412,    .48728,    .02768,    .00000,
     +     .00000,    .01547,    .04014,
     +     .67130,    .27155,    .45291,    .02656,    .00000,
     +     .00000,    .01507,    .03777,
     +     .65427,    .26290,    .42831,    .02577,    .00023,
     +     .00000,    .01478,    .03616,
     +     .63702,    .25421,    .40264,    .02494,    .00071,
     +     .00000,    .01446,    .03459,
     +     .62235,    .24700,    .38144,    .02426,    .00105,
     +     .00000,    .01417,    .03327,
     +     .60863,    .24031,    .36205,    .02362,    .00134,
     +     .00000,    .01388,    .03206,
     +     .59442,    .23345,    .34247,    .02295,    .00161,
     +     .00000,    .01357,    .03083 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58226,    .22770,    .32619,    .02239,    .00180,
     +     .00000,    .01329,    .02980,
     +     .57079,    .22227,    .31114,    .02183,    .00197,
     +     .00000,    .01302,    .02886,
     +     .56191,    .21806,    .29975,    .02139,    .00209,
     +     .00000,    .01281,    .02815,
     +     .54341,    .20949,    .27636,    .02052,    .00229,
     +     .00006,    .01236,    .02667,
     +     .52806,    .20243,    .25720,    .01978,    .00244,
     +     .00032,    .01198,    .02548,
     +     .51141,    .19487,    .23736,    .01900,    .00256,
     +     .00062,    .01157,    .02419,
     +     .49459,    .18734,    .21847,    .01821,    .00266,
     +     .00084,    .01115,    .02293,
     +     .47983,    .18079,    .20277,    .01751,    .00272,
     +     .00100,    .01076,    .02187 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46544,    .17444,    .18821,    .01682,    .00276,
     +     .00114,    .01036,    .02086,
     +     .45380,    .16937,    .17697,    .01627,    .00278,
     +     .00124,    .01005,    .02004,
     +     .44006,    .16341,    .16434,    .01563,    .00279,
     +     .00133,    .00968,    .01912,
     +     .42828,    .15836,    .15404,    .01509,    .00279,
     +     .00140,    .00936,    .01833,
     +     .41776,    .15389,    .14525,    .01462,    .00278,
     +     .00146,    .00908,    .01761,
     +     .40479,    .14838,    .13492,    .01401,    .00276,
     +     .00151,    .00873,    .01678,
     +     .39297,    .14341,    .12600,    .01348,    .00273,
     +     .00154,    .00842,    .01602,
     +     .38224,    .13894,    .11826,    .01301,    .00270,
     +     .00157,    .00814,    .01533 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37174,    .13462,    .11106,    .01253,    .00267,
     +     .00158,    .00784,    .01472,
     +     .36181,    .13053,    .10453,    .01209,    .00263,
     +     .00159,    .00757,    .01412,
     +     .35268,    .12679,    .09876,    .01169,    .00259,
     +     .00160,    .00733,    .01357,
     +     .34425,    .12336,    .09367,    .01131,    .00255,
     +     .00160,    .00711,    .01309,
     +     .33603,    .12003,    .08888,    .01094,    .00251,
     +     .00160,    .00689,    .01262,
     +     .32808,    .11684,    .08445,    .01060,    .00246,
     +     .00159,    .00668,    .01218,
     +     .32075,    .11390,    .08048,    .01030,    .00242,
     +     .00158,    .00648,    .01178,
     +     .31391,    .11118,    .07693,    .01002,    .00238,
     +     .00157,    .00631,    .01139 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30721,    .10852,    .07355,    .00974,    .00234,
     +     .00156,    .00614,    .01101,
     +     .30070,    .10595,    .07038,    .00947,    .00230,
     +     .00154,    .00597,    .01067,
     +     .29464,    .10357,    .06750,    .00923,    .00226,
     +     .00153,    .00582,    .01035,
     +     .28901,    .10136,    .06491,    .00899,    .00222,
     +     .00152,    .00567,    .01006,
     +     .28342,    .09916,    .06241,    .00876,    .00219,
     +     .00150,    .00553,    .00978 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69603,    .27528,    .44250,    .02357,    .00000,
     +     .00000,    .01253,    .03218,
     +     .67713,    .26603,    .41885,    .02285,    .00000,
     +     .00000,    .01229,    .03072,
     +     .65016,    .25309,    .38506,    .02179,    .00000,
     +     .00000,    .01189,    .02875,
     +     .63145,    .24418,    .36145,    .02104,    .00018,
     +     .00000,    .01160,    .02742,
     +     .61250,    .23539,    .33727,    .02031,    .00054,
     +     .00000,    .01127,    .02611,
     +     .59661,    .22804,    .31753,    .01967,    .00079,
     +     .00000,    .01100,    .02504,
     +     .58178,    .22128,    .29968,    .01908,    .00100,
     +     .00000,    .01074,    .02406,
     +     .56649,    .21438,    .28182,    .01848,    .00120,
     +     .00000,    .01045,    .02306 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55357,    .20853,    .26704,    .01794,    .00134,
     +     .00000,    .01022,    .02224,
     +     .54136,    .20308,    .25353,    .01745,    .00146,
     +     .00000,    .00998,    .02148,
     +     .53192,    .19891,    .24335,    .01708,    .00155,
     +     .00000,    .00980,    .02089,
     +     .51242,    .19036,    .22275,    .01629,    .00169,
     +     .00005,    .00940,    .01971,
     +     .49628,    .18342,    .20607,    .01567,    .00179,
     +     .00024,    .00907,    .01875,
     +     .47888,    .17596,    .18893,    .01498,    .00188,
     +     .00045,    .00873,    .01774,
     +     .46148,    .16856,    .17277,    .01430,    .00194,
     +     .00061,    .00837,    .01674,
     +     .44628,    .16216,    .15946,    .01370,    .00198,
     +     .00073,    .00805,    .01589 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43149,    .15600,    .14719,    .01312,    .00200,
     +     .00082,    .00773,    .01509,
     +     .41960,    .15106,    .13782,    .01265,    .00201,
     +     .00089,    .00745,    .01448,
     +     .40563,    .14533,    .12737,    .01210,    .00201,
     +     .00095,    .00716,    .01375,
     +     .39369,    .14046,    .11889,    .01164,    .00201,
     +     .00100,    .00691,    .01314,
     +     .38308,    .13617,    .11169,    .01125,    .00199,
     +     .00104,    .00668,    .01261,
     +     .37001,    .13092,    .10327,    .01075,    .00197,
     +     .00107,    .00640,    .01196,
     +     .35818,    .12619,    .09603,    .01030,    .00195,
     +     .00109,    .00615,    .01140,
     +     .34750,    .12194,    .08979,    .00990,    .00192,
     +     .00111,    .00591,    .01090 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33711,    .11784,    .08403,    .00951,    .00189,
     +     .00112,    .00568,    .01041,
     +     .32728,    .11399,    .07882,    .00916,    .00186,
     +     .00112,    .00547,    .00995,
     +     .31826,    .11049,    .07426,    .00885,    .00182,
     +     .00112,    .00529,    .00952,
     +     .30997,    .10728,    .07024,    .00854,    .00179,
     +     .00112,    .00511,    .00916,
     +     .30192,    .10416,    .06645,    .00824,    .00176,
     +     .00112,    .00494,    .00884,
     +     .29415,    .10118,    .06299,    .00796,    .00172,
     +     .00111,    .00478,    .00851,
     +     .28701,    .09844,    .05989,    .00771,    .00169,
     +     .00110,    .00463,    .00820,
     +     .28037,    .09591,    .05713,    .00749,    .00166,
     +     .00109,    .00449,    .00792 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27388,    .09344,    .05450,    .00727,    .00163,
     +     .00108,    .00437,    .00764,
     +     .26760,    .09107,    .05205,    .00705,    .00160,
     +     .00107,    .00424,    .00739,
     +     .26176,    .08887,    .04984,    .00685,    .00157,
     +     .00106,    .00412,    .00716,
     +     .25635,    .08683,    .04784,    .00666,    .00154,
     +     .00105,    .00401,    .00695,
     +     .25096,    .08482,    .04592,    .00649,    .00151,
     +     .00103,    .00390,    .00674 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67211,    .25605,    .38219,    .01950,    .00000,
     +     .00000,    .00982,    .02420,
     +     .65162,    .24663,    .35887,    .01882,    .00000,
     +     .00000,    .00958,    .02303,
     +     .62258,    .23354,    .32621,    .01784,    .00000,
     +     .00000,    .00922,    .02142,
     +     .60254,    .22461,    .30388,    .01714,    .00013,
     +     .00000,    .00895,    .02038,
     +     .58243,    .21580,    .28141,    .01648,    .00040,
     +     .00000,    .00866,    .01932,
     +     .56567,    .20846,    .26328,    .01589,    .00059,
     +     .00000,    .00843,    .01848,
     +     .55009,    .20173,    .24702,    .01535,    .00075,
     +     .00000,    .00820,    .01770,
     +     .53407,    .19491,    .23088,    .01483,    .00089,
     +     .00000,    .00796,    .01690 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52056,    .18918,    .21769,    .01437,    .00099,
     +     .00000,    .00775,    .01625,
     +     .50789,    .18384,    .20573,    .01393,    .00108,
     +     .00000,    .00755,    .01565,
     +     .49813,    .17975,    .19679,    .01359,    .00114,
     +     .00000,    .00740,    .01520,
     +     .47802,    .17140,    .17876,    .01292,    .00124,
     +     .00004,    .00707,    .01426,
     +     .46153,    .16461,    .16437,    .01235,    .00131,
     +     .00017,    .00679,    .01354,
     +     .44382,    .15740,    .14976,    .01174,    .00137,
     +     .00033,    .00651,    .01276,
     +     .42617,    .15027,    .13610,    .01115,    .00141,
     +     .00044,    .00621,    .01202,
     +     .41086,    .14411,    .12491,    .01063,    .00143,
     +     .00052,    .00594,    .01138 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39603,    .13819,    .11469,    .01013,    .00144,
     +     .00059,    .00569,    .01077,
     +     .38410,    .13352,    .10695,    .00975,    .00144,
     +     .00064,    .00549,    .01027,
     +     .37016,    .12806,    .09835,    .00931,    .00144,
     +     .00068,    .00525,    .00973,
     +     .35831,    .12345,    .09142,    .00894,    .00143,
     +     .00071,    .00505,    .00927,
     +     .34783,    .11941,    .08557,    .00861,    .00142,
     +     .00074,    .00487,    .00887,
     +     .33498,    .11447,    .07876,    .00819,    .00140,
     +     .00076,    .00463,    .00840,
     +     .32337,    .11005,    .07296,    .00782,    .00138,
     +     .00077,    .00443,    .00797,
     +     .31291,    .10610,    .06798,    .00750,    .00136,
     +     .00078,    .00426,    .00757 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30280,    .10226,    .06339,    .00717,    .00133,
     +     .00078,    .00409,    .00724,
     +     .29325,    .09868,    .05928,    .00688,    .00130,
     +     .00079,    .00393,    .00691,
     +     .28449,    .09544,    .05569,    .00662,    .00128,
     +     .00078,    .00378,    .00660,
     +     .27649,    .09247,    .05254,    .00639,    .00125,
     +     .00078,    .00365,    .00633,
     +     .26874,    .08960,    .04959,    .00616,    .00123,
     +     .00078,    .00352,    .00607,
     +     .26127,    .08686,    .04689,    .00595,    .00120,
     +     .00077,    .00339,    .00584,
     +     .25442,    .08436,    .04450,    .00576,    .00118,
     +     .00076,    .00328,    .00563,
     +     .24809,    .08205,    .04236,    .00557,    .00115,
     +     .00076,    .00317,    .00543 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24192,    .07980,    .04033,    .00538,    .00113,
     +     .00075,    .00308,    .00522,
     +     .23595,    .07763,    .03845,    .00521,    .00111,
     +     .00074,    .00298,    .00504,
     +     .23041,    .07563,    .03675,    .00505,    .00108,
     +     .00073,    .00289,    .00487,
     +     .22528,    .07378,    .03523,    .00491,    .00106,
     +     .00072,    .00281,    .00471,
     +     .22019,    .07196,    .03376,    .00477,    .00104,
     +     .00071,    .00273,    .00456 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .64209,    .23567,    .32815,    .01593,    .00000,
     +     .00000,    .00762,    .01788,
     +     .62041,    .22626,    .30560,    .01528,    .00000,
     +     .00000,    .00740,    .01698,
     +     .58985,    .21330,    .27465,    .01441,    .00000,
     +     .00000,    .00709,    .01569,
     +     .56898,    .20446,    .25381,    .01377,    .00010,
     +     .00000,    .00685,    .01488,
     +     .54812,    .19579,    .23328,    .01317,    .00030,
     +     .00000,    .00661,    .01406,
     +     .53075,    .18865,    .21689,    .01267,    .00044,
     +     .00000,    .00641,    .01339,
     +     .51472,    .18209,    .20231,    .01219,    .00055,
     +     .00000,    .00621,    .01280,
     +     .49835,    .17543,    .18796,    .01171,    .00065,
     +     .00000,    .00600,    .01221 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48457,    .16989,    .17635,    .01132,    .00073,
     +     .00000,    .00582,    .01171,
     +     .47168,    .16473,    .16587,    .01094,    .00079,
     +     .00000,    .00565,    .01125,
     +     .46178,    .16079,    .15807,    .01065,    .00083,
     +     .00000,    .00551,    .01090,
     +     .44152,    .15274,    .14253,    .01005,    .00090,
     +     .00003,    .00526,    .01021,
     +     .42495,    .14626,    .13028,    .00958,    .00095,
     +     .00012,    .00503,    .00965,
     +     .40720,    .13940,    .11795,    .00911,    .00098,
     +     .00023,    .00479,    .00905,
     +     .38965,    .13263,    .10652,    .00861,    .00101,
     +     .00031,    .00457,    .00848,
     +     .37448,    .12683,    .09725,    .00816,    .00102,
     +     .00037,    .00436,    .00801 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .35982,    .12129,    .08882,    .00775,    .00103,
     +     .00042,    .00414,    .00755,
     +     .34810,    .11689,    .08247,    .00744,    .00103,
     +     .00045,    .00400,    .00719,
     +     .33444,    .11180,    .07549,    .00710,    .00102,
     +     .00048,    .00381,    .00676,
     +     .32292,    .10751,    .06990,    .00678,    .00101,
     +     .00050,    .00365,    .00643,
     +     .31280,    .10372,    .06522,    .00647,    .00100,
     +     .00052,    .00350,    .00617,
     +     .30029,    .09916,    .05978,    .00617,    .00098,
     +     .00053,    .00333,    .00580,
     +     .28907,    .09507,    .05517,    .00588,    .00097,
     +     .00054,    .00318,    .00549,
     +     .27903,    .09142,    .05123,    .00561,    .00095,
     +     .00055,    .00304,    .00523 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26931,    .08792,    .04762,    .00537,    .00093,
     +     .00055,    .00291,    .00496,
     +     .26019,    .08464,    .04439,    .00514,    .00091,
     +     .00055,    .00279,    .00471,
     +     .25187,    .08166,    .04160,    .00494,    .00089,
     +     .00055,    .00268,    .00451,
     +     .24428,    .07896,    .03915,    .00474,    .00087,
     +     .00054,    .00258,    .00432,
     +     .23693,    .07637,    .03687,    .00455,    .00085,
     +     .00054,    .00248,    .00413,
     +     .22988,    .07389,    .03477,    .00439,    .00083,
     +     .00053,    .00239,    .00395,
     +     .22341,    .07163,    .03291,    .00424,    .00081,
     +     .00053,    .00230,    .00379,
     +     .21746,    .06954,    .03128,    .00409,    .00079,
     +     .00052,    .00222,    .00366 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21167,    .06751,    .02974,    .00395,    .00078,
     +     .00051,    .00215,    .00353,
     +     .20609,    .06557,    .02830,    .00381,    .00076,
     +     .00051,    .00207,    .00340,
     +     .20092,    .06377,    .02701,    .00369,    .00074,
     +     .00050,    .00201,    .00328,
     +     .19615,    .06212,    .02585,    .00357,    .00073,
     +     .00049,    .00194,    .00317,
     +     .19141,    .06050,    .02473,    .00346,    .00071,
     +     .00049,    .00189,    .00306 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60700,    .21473,    .27946,    .01282,    .00000,
     +     .00000,    .00588,    .01295,
     +     .58458,    .20549,    .25810,    .01221,    .00000,
     +     .00000,    .00568,    .01229,
     +     .55319,    .19281,    .22928,    .01142,    .00000,
     +     .00000,    .00539,    .01132,
     +     .53175,    .18428,    .21029,    .01090,    .00007,
     +     .00000,    .00522,    .01065,
     +     .51055,    .17589,    .19177,    .01037,    .00022,
     +     .00000,    .00500,    .01004,
     +     .49296,    .16900,    .17716,    .00993,    .00032,
     +     .00000,    .00482,    .00955,
     +     .47680,    .16270,    .16428,    .00952,    .00040,
     +     .00000,    .00465,    .00911,
     +     .46036,    .15633,    .15171,    .00910,    .00047,
     +     .00000,    .00447,    .00868 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44654,    .15105,    .14164,    .00877,    .00052,
     +     .00000,    .00433,    .00830,
     +     .43368,    .14614,    .13258,    .00845,    .00056,
     +     .00000,    .00420,    .00796,
     +     .42382,    .14240,    .12587,    .00821,    .00059,
     +     .00000,    .00409,    .00770,
     +     .40371,    .13482,    .11266,    .00774,    .00064,
     +     .00002,    .00387,    .00715,
     +     .38735,    .12872,    .10241,    .00735,    .00067,
     +     .00009,    .00369,    .00675,
     +     .36992,    .12227,    .09214,    .00695,    .00070,
     +     .00017,    .00351,    .00631,
     +     .35274,    .11595,    .08270,    .00653,    .00071,
     +     .00022,    .00332,    .00591,
     +     .33794,    .11055,    .07511,    .00618,    .00072,
     +     .00026,    .00315,    .00557 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32371,    .10540,    .06827,    .00586,    .00072,
     +     .00030,    .00300,    .00522,
     +     .31242,    .10134,    .06315,    .00560,    .00072,
     +     .00032,    .00288,    .00496,
     +     .29929,    .09663,    .05754,    .00530,    .00071,
     +     .00034,    .00273,    .00467,
     +     .28820,    .09268,    .05307,    .00504,    .00071,
     +     .00035,    .00261,    .00443,
     +     .27847,    .08924,    .04933,    .00482,    .00070,
     +     .00036,    .00249,    .00423,
     +     .26662,    .08506,    .04505,    .00455,    .00068,
     +     .00037,    .00237,    .00397,
     +     .25598,    .08133,    .04142,    .00432,    .00067,
     +     .00037,    .00225,    .00375,
     +     .24646,    .07801,    .03833,    .00413,    .00066,
     +     .00038,    .00215,    .00356 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23727,    .07486,    .03554,    .00394,    .00064,
     +     .00038,    .00206,    .00335,
     +     .22868,    .07191,    .03304,    .00376,    .00062,
     +     .00038,    .00197,    .00318,
     +     .22089,    .06923,    .03086,    .00358,    .00061,
     +     .00037,    .00188,    .00304,
     +     .21377,    .06680,    .02898,    .00344,    .00060,
     +     .00037,    .00181,    .00290,
     +     .20690,    .06446,    .02723,    .00331,    .00058,
     +     .00037,    .00173,    .00277,
     +     .20034,    .06224,    .02564,    .00318,    .00057,
     +     .00036,    .00166,    .00265,
     +     .19435,    .06022,    .02422,    .00306,    .00055,
     +     .00036,    .00160,    .00255,
     +     .18884,    .05837,    .02298,    .00295,    .00054,
     +     .00035,    .00154,    .00244 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18348,    .05657,    .02181,    .00284,    .00053,
     +     .00035,    .00149,    .00234,
     +     .17833,    .05485,    .02072,    .00273,    .00051,
     +     .00034,    .00144,    .00225,
     +     .17356,    .05327,    .01974,    .00264,    .00050,
     +     .00034,    .00139,    .00216,
     +     .16917,    .05181,    .01886,    .00255,    .00049,
     +     .00033,    .00135,    .00208,
     +     .16481,    .05037,    .01803,    .00248,    .00048,
     +     .00033,    .00131,    .00202 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56796,    .19383,    .23571,    .01024,    .00000,
     +     .00000,    .00439,    .00919,
     +     .54512,    .18494,    .21589,    .00973,    .00000,
     +     .00000,    .00423,    .00867,
     +     .51345,    .17276,    .18959,    .00902,    .00000,
     +     .00000,    .00399,    .00796,
     +     .49194,    .16457,    .17249,    .00856,    .00005,
     +     .00000,    .00382,    .00749,
     +     .47075,    .15656,    .15612,    .00811,    .00016,
     +     .00000,    .00367,    .00705,
     +     .45326,    .15003,    .14331,    .00775,    .00023,
     +     .00000,    .00353,    .00667,
     +     .43724,    .14407,    .13211,    .00741,    .00029,
     +     .00000,    .00340,    .00634,
     +     .42100,    .13806,    .12127,    .00704,    .00034,
     +     .00000,    .00327,    .00602 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40739,    .13309,    .11265,    .00677,    .00037,
     +     .00000,    .00317,    .00574,
     +     .39478,    .12850,    .10498,    .00650,    .00040,
     +     .00000,    .00305,    .00548,
     +     .38515,    .12499,    .09933,    .00629,    .00042,
     +     .00000,    .00296,    .00529,
     +     .36549,    .11791,    .08830,    .00589,    .00046,
     +     .00002,    .00280,    .00493,
     +     .34961,    .11226,    .07978,    .00558,    .00048,
     +     .00006,    .00266,    .00463,
     +     .33278,    .10629,    .07134,    .00525,    .00049,
     +     .00012,    .00251,    .00431,
     +     .31625,    .10046,    .06366,    .00491,    .00050,
     +     .00016,    .00236,    .00402,
     +     .30207,    .09549,    .05752,    .00462,    .00050,
     +     .00018,    .00223,    .00378 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28850,    .09078,    .05203,    .00436,    .00050,
     +     .00021,    .00212,    .00355,
     +     .27773,    .08707,    .04795,    .00417,    .00050,
     +     .00022,    .00202,    .00336,
     +     .26528,    .08279,    .04351,    .00393,    .00049,
     +     .00023,    .00192,    .00314,
     +     .25479,    .07922,    .03999,    .00373,    .00049,
     +     .00024,    .00183,    .00296,
     +     .24558,    .07610,    .03705,    .00357,    .00048,
     +     .00025,    .00175,    .00282,
     +     .23443,    .07234,    .03370,    .00337,    .00047,
     +     .00025,    .00166,    .00264,
     +     .22447,    .06899,    .03088,    .00318,    .00046,
     +     .00026,    .00157,    .00249,
     +     .21560,    .06601,    .02850,    .00303,    .00045,
     +     .00026,    .00148,    .00235 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20705,    .06319,    .02635,    .00289,    .00044,
     +     .00026,    .00142,    .00222,
     +     .19907,    .06056,    .02444,    .00276,    .00043,
     +     .00026,    .00135,    .00210,
     +     .19184,    .05818,    .02278,    .00264,    .00041,
     +     .00026,    .00129,    .00199,
     +     .18530,    .05602,    .02135,    .00252,    .00040,
     +     .00025,    .00125,    .00190,
     +     .17901,    .05395,    .02001,    .00240,    .00039,
     +     .00025,    .00120,    .00182,
     +     .17299,    .05200,    .01881,    .00229,    .00038,
     +     .00025,    .00115,    .00173,
     +     .16750,    .05024,    .01774,    .00220,    .00037,
     +     .00024,    .00110,    .00165,
     +     .16247,    .04860,    .01680,    .00210,    .00036,
     +     .00024,    .00105,    .00159 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15758,    .04701,    .01592,    .00201,    .00036,
     +     .00024,    .00101,    .00154,
     +     .15288,    .04550,    .01510,    .00194,    .00035,
     +     .00023,    .00098,    .00147,
     +     .14853,    .04410,    .01437,    .00189,    .00034,
     +     .00023,    .00095,    .00141,
     +     .14454,    .04283,    .01371,    .00183,    .00033,
     +     .00023,    .00091,    .00135,
     +     .14062,    .04158,    .01309,    .00176,    .00032,
     +     .00022,    .00088,    .00131 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52600,    .17319,    .19639,    .00801,    .00000,
     +     .00000,    .00327,    .00639,
     +     .50324,    .16473,    .17840,    .00758,    .00000,
     +     .00000,    .00313,    .00602,
     +     .47178,    .15322,    .15489,    .00699,    .00000,
     +     .00000,    .00293,    .00549,
     +     .45057,    .14549,    .13983,    .00659,    .00004,
     +     .00000,    .00278,    .00517,
     +     .42973,    .13800,    .12560,    .00622,    .00011,
     +     .00000,    .00266,    .00482,
     +     .41262,    .13188,    .11460,    .00592,    .00016,
     +     .00000,    .00254,    .00456,
     +     .39697,    .12633,    .10505,    .00565,    .00020,
     +     .00000,    .00244,    .00432,
     +     .38114,    .12075,    .09588,    .00537,    .00024,
     +     .00000,    .00233,    .00408 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36799,    .11614,    .08865,    .00514,    .00026,
     +     .00000,    .00224,    .00388,
     +     .35578,    .11190,    .08224,    .00493,    .00028,
     +     .00000,    .00216,    .00370,
     +     .34647,    .10867,    .07753,    .00478,    .00029,
     +     .00000,    .00210,    .00356,
     +     .32767,    .10214,    .06845,    .00442,    .00032,
     +     .00001,    .00196,    .00332,
     +     .31248,    .09694,    .06152,    .00418,    .00033,
     +     .00004,    .00186,    .00312,
     +     .29640,    .09152,    .05470,    .00394,    .00034,
     +     .00008,    .00175,    .00288,
     +     .28071,    .08622,    .04854,    .00368,    .00034,
     +     .00011,    .00164,    .00267,
     +     .26731,    .08172,    .04365,    .00346,    .00035,
     +     .00013,    .00155,    .00250 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25450,    .07746,    .03930,    .00326,    .00035,
     +     .00014,    .00146,    .00234,
     +     .24441,    .07411,    .03610,    .00309,    .00034,
     +     .00015,    .00139,    .00222,
     +     .23279,    .07029,    .03261,    .00290,    .00034,
     +     .00016,    .00131,    .00206,
     +     .22303,    .06709,    .02987,    .00275,    .00033,
     +     .00017,    .00124,    .00194,
     +     .21449,    .06429,    .02760,    .00261,    .00033,
     +     .00017,    .00117,    .00186,
     +     .20415,    .06094,    .02502,    .00245,    .00032,
     +     .00017,    .00111,    .00174,
     +     .19496,    .05798,    .02286,    .00232,    .00031,
     +     .00018,    .00105,    .00162,
     +     .18678,    .05536,    .02104,    .00220,    .00030,
     +     .00018,    .00100,    .00152 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17896,    .05285,    .01940,    .00207,    .00029,
     +     .00018,    .00094,    .00143,
     +     .17168,    .05053,    .01794,    .00197,    .00029,
     +     .00017,    .00090,    .00135,
     +     .16509,    .04842,    .01669,    .00188,    .00028,
     +     .00017,    .00086,    .00129,
     +     .15910,    .04655,    .01561,    .00180,    .00027,
     +     .00017,    .00082,    .00123,
     +     .15336,    .04475,    .01461,    .00172,    .00026,
     +     .00017,    .00078,    .00117,
     +     .14791,    .04305,    .01371,    .00164,    .00026,
     +     .00017,    .00075,    .00112,
     +     .14295,    .04150,    .01291,    .00157,    .00025,
     +     .00016,    .00072,    .00107,
     +     .13841,    .04008,    .01221,    .00151,    .00024,
     +     .00016,    .00069,    .00102 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13400,    .03870,    .01155,    .00146,    .00024,
     +     .00016,    .00066,    .00097,
     +     .12978,    .03739,    .01094,    .00140,    .00023,
     +     .00016,    .00064,    .00093,
     +     .12589,    .03619,    .01040,    .00134,    .00022,
     +     .00015,    .00061,    .00090,
     +     .12232,    .03510,    .00991,    .00130,    .00022,
     +     .00015,    .00059,    .00086,
     +     .11881,    .03403,    .00945,    .00125,    .00021,
     +     .00015,    .00057,    .00083 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48222,    .15305,    .16120,    .00608,    .00000,
     +     .00000,    .00240,    .00441,
     +     .45982,    .14514,    .14524,    .00572,    .00000,
     +     .00000,    .00231,    .00411,
     +     .42903,    .13437,    .12466,    .00527,    .00000,
     +     .00000,    .00213,    .00375,
     +     .40842,    .12720,    .11167,    .00491,    .00003,
     +     .00000,    .00203,    .00352,
     +     .38823,    .12026,    .09956,    .00462,    .00008,
     +     .00000,    .00192,    .00329,
     +     .37170,    .11463,    .09027,    .00440,    .00011,
     +     .00000,    .00184,    .00309,
     +     .35668,    .10952,    .08227,    .00418,    .00014,
     +     .00000,    .00176,    .00291,
     +     .34155,    .10439,    .07466,    .00394,    .00016,
     +     .00000,    .00168,    .00275 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32895,    .10019,    .06868,    .00374,    .00018,
     +     .00000,    .00159,    .00264,
     +     .31732,    .09630,    .06344,    .00358,    .00019,
     +     .00000,    .00152,    .00252,
     +     .30848,    .09336,    .05962,    .00346,    .00020,
     +     .00000,    .00148,    .00242,
     +     .29061,    .08746,    .05226,    .00322,    .00022,
     +     .00001,    .00139,    .00222,
     +     .27630,    .08276,    .04673,    .00302,    .00022,
     +     .00003,    .00132,    .00205,
     +     .26126,    .07785,    .04132,    .00281,    .00023,
     +     .00006,    .00124,    .00192,
     +     .24657,    .07309,    .03646,    .00261,    .00023,
     +     .00007,    .00115,    .00179,
     +     .23407,    .06907,    .03263,    .00244,    .00023,
     +     .00009,    .00109,    .00166 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22221,    .06528,    .02926,    .00229,    .00023,
     +     .00010,    .00103,    .00155,
     +     .21285,    .06230,    .02678,    .00217,    .00023,
     +     .00010,    .00097,    .00147,
     +     .20209,    .05891,    .02410,    .00204,    .00023,
     +     .00011,    .00092,    .00136,
     +     .19312,    .05609,    .02201,    .00193,    .00022,
     +     .00011,    .00087,    .00127,
     +     .18531,    .05364,    .02027,    .00182,    .00022,
     +     .00011,    .00082,    .00120,
     +     .17588,    .05068,    .01832,    .00170,    .00021,
     +     .00012,    .00077,    .00113,
     +     .16750,    .04808,    .01669,    .00159,    .00021,
     +     .00012,    .00073,    .00106,
     +     .16006,    .04579,    .01533,    .00150,    .00020,
     +     .00012,    .00069,    .00100 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15297,    .04361,    .01410,    .00142,    .00019,
     +     .00012,    .00064,    .00094,
     +     .14639,    .04160,    .01301,    .00134,    .00019,
     +     .00012,    .00061,    .00089,
     +     .14045,    .03980,    .01208,    .00128,    .00018,
     +     .00011,    .00059,    .00085,
     +     .13509,    .03817,    .01128,    .00121,    .00018,
     +     .00011,    .00056,    .00080,
     +     .12995,    .03662,    .01053,    .00115,    .00017,
     +     .00011,    .00054,    .00075,
     +     .12508,    .03515,    .00987,    .00110,    .00017,
     +     .00011,    .00051,    .00072,
     +     .12066,    .03382,    .00928,    .00105,    .00016,
     +     .00011,    .00049,    .00069,
     +     .11659,    .03261,    .00876,    .00101,    .00016,
     +     .00011,    .00047,    .00066 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11266,    .03144,    .00828,    .00098,    .00015,
     +     .00010,    .00045,    .00062,
     +     .10892,    .03032,    .00783,    .00094,    .00015,
     +     .00010,    .00043,    .00060,
     +     .10550,    .02929,    .00743,    .00090,    .00015,
     +     .00010,    .00042,    .00057,
     +     .10236,    .02836,    .00708,    .00087,    .00014,
     +     .00010,    .00040,    .00055,
     +     .09927,    .02745,    .00674,    .00083,    .00014,
     +     .00010,    .00039,    .00053 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .43742,    .13392,    .13027,    .00454,    .00000,
     +     .00000,    .00173,    .00296,
     +     .41572,    .12659,    .11640,    .00426,    .00000,
     +     .00000,    .00166,    .00275,
     +     .38607,    .11663,    .09873,    .00388,    .00000,
     +     .00000,    .00154,    .00249,
     +     .36629,    .11004,    .08778,    .00362,    .00002,
     +     .00000,    .00144,    .00233,
     +     .34704,    .10370,    .07768,    .00336,    .00005,
     +     .00000,    .00138,    .00216,
     +     .33131,    .09855,    .06998,    .00318,    .00007,
     +     .00000,    .00131,    .00204,
     +     .31705,    .09391,    .06343,    .00300,    .00009,
     +     .00000,    .00125,    .00194,
     +     .30275,    .08928,    .05724,    .00282,    .00011,
     +     .00000,    .00119,    .00183 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29090,    .08547,    .05242,    .00267,    .00012,
     +     .00000,    .00114,    .00174,
     +     .28001,    .08198,    .04821,    .00253,    .00013,
     +     .00000,    .00110,    .00164,
     +     .27175,    .07933,    .04515,    .00243,    .00013,
     +     .00000,    .00107,    .00157,
     +     .25503,    .07404,    .03933,    .00226,    .00014,
     +     .00001,    .00100,    .00147,
     +     .24171,    .06985,    .03498,    .00210,    .00015,
     +     .00002,    .00093,    .00136,
     +     .22777,    .06548,    .03076,    .00194,    .00015,
     +     .00004,    .00087,    .00126,
     +     .21422,    .06128,    .02701,    .00180,    .00015,
     +     .00005,    .00082,    .00117,
     +     .20271,    .05773,    .02408,    .00168,    .00015,
     +     .00006,    .00077,    .00108 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19182,    .05439,    .02150,    .00158,    .00015,
     +     .00006,    .00073,    .00101,
     +     .18330,    .05178,    .01962,    .00150,    .00015,
     +     .00007,    .00068,    .00095,
     +     .17356,    .04881,    .01759,    .00138,    .00015,
     +     .00007,    .00065,    .00088,
     +     .16543,    .04635,    .01602,    .00129,    .00015,
     +     .00007,    .00061,    .00083,
     +     .15834,    .04422,    .01472,    .00122,    .00014,
     +     .00008,    .00058,    .00080,
     +     .14982,    .04168,    .01326,    .00114,    .00014,
     +     .00008,    .00054,    .00074,
     +     .14229,    .03943,    .01205,    .00107,    .00013,
     +     .00008,    .00051,    .00069,
     +     .13564,    .03746,    .01103,    .00100,    .00013,
     +     .00008,    .00049,    .00064 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12929,    .03559,    .01013,    .00095,    .00013,
     +     .00008,    .00045,    .00061,
     +     .12341,    .03387,    .00933,    .00089,    .00012,
     +     .00008,    .00042,    .00057,
     +     .11814,    .03232,    .00865,    .00084,    .00012,
     +     .00008,    .00040,    .00054,
     +     .11339,    .03093,    .00806,    .00080,    .00012,
     +     .00007,    .00039,    .00052,
     +     .10885,    .02961,    .00752,    .00076,    .00011,
     +     .00007,    .00037,    .00049,
     +     .10455,    .02836,    .00703,    .00073,    .00011,
     +     .00007,    .00035,    .00046,
     +     .10066,    .02724,    .00660,    .00069,    .00011,
     +     .00007,    .00034,    .00043,
     +     .09709,    .02622,    .00623,    .00066,    .00010,
     +     .00007,    .00032,    .00042 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09365,    .02523,    .00588,    .00063,    .00010,
     +     .00007,    .00031,    .00040,
     +     .09039,    .02429,    .00555,    .00061,    .00010,
     +     .00007,    .00030,    .00039,
     +     .08740,    .02344,    .00527,    .00058,    .00009,
     +     .00007,    .00029,    .00037,
     +     .08466,    .02265,    .00501,    .00055,    .00009,
     +     .00006,    .00028,    .00035,
     +     .08197,    .02189,    .00476,    .00053,    .00009,
     +     .00006,    .00027,    .00034 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39248,    .11603,    .10357,    .00347,    .00000,
     +     .00000,    .00116,    .00189,
     +     .37189,    .10932,    .09181,    .00318,    .00000,
     +     .00000,    .00109,    .00178,
     +     .34373,    .10029,    .07709,    .00292,    .00000,
     +     .00000,    .00100,    .00160,
     +     .32506,    .09435,    .06804,    .00270,    .00001,
     +     .00000,    .00097,    .00148,
     +     .30693,    .08863,    .05978,    .00251,    .00003,
     +     .00000,    .00091,    .00137,
     +     .29225,    .08399,    .05358,    .00234,    .00005,
     +     .00000,    .00086,    .00129,
     +     .27896,    .07984,    .04833,    .00220,    .00006,
     +     .00000,    .00081,    .00121,
     +     .26562,    .07572,    .04338,    .00208,    .00007,
     +     .00000,    .00076,    .00113 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25461,    .07231,    .03955,    .00198,    .00008,
     +     .00000,    .00073,    .00108,
     +     .24450,    .06920,    .03624,    .00188,    .00008,
     +     .00000,    .00070,    .00102,
     +     .23685,    .06686,    .03384,    .00180,    .00009,
     +     .00000,    .00067,    .00098,
     +     .22149,    .06218,    .02931,    .00167,    .00009,
     +     .00000,    .00061,    .00089,
     +     .20930,    .05849,    .02594,    .00155,    .00010,
     +     .00001,    .00058,    .00084,
     +     .19656,    .05466,    .02271,    .00143,    .00010,
     +     .00003,    .00054,    .00078,
     +     .18424,    .05100,    .01986,    .00131,    .00010,
     +     .00003,    .00050,    .00071,
     +     .17385,    .04790,    .01764,    .00122,    .00010,
     +     .00004,    .00047,    .00065 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16404,    .04499,    .01570,    .00113,    .00010,
     +     .00004,    .00044,    .00060,
     +     .15634,    .04275,    .01428,    .00108,    .00010,
     +     .00005,    .00042,    .00056,
     +     .14757,    .04018,    .01277,    .00100,    .00010,
     +     .00005,    .00039,    .00052,
     +     .14030,    .03806,    .01160,    .00094,    .00009,
     +     .00005,    .00037,    .00050,
     +     .13399,    .03623,    .01063,    .00089,    .00009,
     +     .00005,    .00034,    .00047,
     +     .12641,    .03405,    .00955,    .00082,    .00009,
     +     .00005,    .00032,    .00044,
     +     .11973,    .03213,    .00866,    .00077,    .00009,
     +     .00005,    .00030,    .00041,
     +     .11385,    .03045,    .00792,    .00073,    .00008,
     +     .00005,    .00029,    .00038 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10829,    .02885,    .00726,    .00067,    .00008,
     +     .00005,    .00027,    .00036,
     +     .10313,    .02739,    .00667,    .00062,    .00008,
     +     .00005,    .00025,    .00034,
     +     .09849,    .02609,    .00617,    .00060,    .00008,
     +     .00005,    .00023,    .00031,
     +     .09431,    .02493,    .00575,    .00058,    .00007,
     +     .00005,    .00022,    .00029,
     +     .09033,    .02382,    .00535,    .00055,    .00007,
     +     .00005,    .00021,    .00028,
     +     .08660,    .02277,    .00500,    .00052,    .00007,
     +     .00005,    .00020,    .00027,
     +     .08322,    .02182,    .00469,    .00050,    .00007,
     +     .00005,    .00019,    .00026,
     +     .08013,    .02097,    .00442,    .00048,    .00007,
     +     .00005,    .00018,    .00024 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07715,    .02015,    .00417,    .00047,    .00006,
     +     .00004,    .00018,    .00023,
     +     .07433,    .01937,    .00393,    .00045,    .00006,
     +     .00004,    .00017,    .00022,
     +     .07175,    .01866,    .00373,    .00042,    .00006,
     +     .00004,    .00016,    .00021,
     +     .06940,    .01801,    .00354,    .00040,    .00006,
     +     .00004,    .00015,    .00020,
     +     .06710,    .01737,    .00337,    .00038,    .00006,
     +     .00004,    .00015,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34812,    .09903,    .08050,    .00237,    .00000,
     +     .00000,    .00085,    .00129,
     +     .32866,    .09303,    .07081,    .00219,    .00000,
     +     .00000,    .00079,    .00119,
     +     .30236,    .08496,    .05881,    .00197,    .00000,
     +     .00000,    .00072,    .00106,
     +     .28496,    .07966,    .05157,    .00183,    .00001,
     +     .00000,    .00067,    .00097,
     +     .26818,    .07457,    .04502,    .00170,    .00002,
     +     .00000,    .00063,    .00089,
     +     .25461,    .07049,    .04011,    .00158,    .00003,
     +     .00000,    .00060,    .00084,
     +     .24234,    .06684,    .03599,    .00149,    .00004,
     +     .00000,    .00056,    .00079,
     +     .23007,    .06320,    .03215,    .00141,    .00005,
     +     .00000,    .00053,    .00074 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22004,    .06022,    .02920,    .00133,    .00005,
     +     .00000,    .00051,    .00070,
     +     .21081,    .05750,    .02664,    .00126,    .00005,
     +     .00000,    .00048,    .00066,
     +     .20382,    .05547,    .02481,    .00122,    .00006,
     +     .00000,    .00045,    .00063,
     +     .18994,    .05140,    .02136,    .00110,    .00006,
     +     .00000,    .00042,    .00057,
     +     .17890,    .04821,    .01883,    .00103,    .00006,
     +     .00001,    .00039,    .00053,
     +     .16741,    .04491,    .01641,    .00095,    .00006,
     +     .00002,    .00037,    .00048,
     +     .15637,    .04173,    .01428,    .00087,    .00006,
     +     .00002,    .00033,    .00044,
     +     .14709,    .03907,    .01264,    .00079,    .00006,
     +     .00002,    .00030,    .00042 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13834,    .03661,    .01121,    .00074,    .00006,
     +     .00003,    .00029,    .00039,
     +     .13151,    .03469,    .01018,    .00071,    .00006,
     +     .00003,    .00027,    .00036,
     +     .12375,    .03251,    .00907,    .00066,    .00006,
     +     .00003,    .00025,    .00033,
     +     .11733,    .03071,    .00822,    .00062,    .00006,
     +     .00003,    .00024,    .00030,
     +     .11177,    .02917,    .00753,    .00059,    .00006,
     +     .00003,    .00023,    .00029,
     +     .10514,    .02733,    .00675,    .00054,    .00006,
     +     .00003,    .00021,    .00027,
     +     .09932,    .02572,    .00611,    .00050,    .00005,
     +     .00003,    .00019,    .00026,
     +     .09421,    .02431,    .00557,    .00046,    .00005,
     +     .00003,    .00019,    .00024 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08935,    .02298,    .00510,    .00044,    .00005,
     +     .00003,    .00017,    .00022,
     +     .08488,    .02177,    .00468,    .00041,    .00005,
     +     .00003,    .00016,    .00020,
     +     .08088,    .02068,    .00432,    .00038,    .00005,
     +     .00003,    .00015,    .00020,
     +     .07730,    .01971,    .00402,    .00037,    .00005,
     +     .00003,    .00014,    .00019,
     +     .07388,    .01880,    .00374,    .00035,    .00004,
     +     .00003,    .00014,    .00018,
     +     .07068,    .01793,    .00349,    .00034,    .00004,
     +     .00003,    .00013,    .00016,
     +     .06779,    .01715,    .00327,    .00032,    .00004,
     +     .00003,    .00012,    .00015,
     +     .06515,    .01645,    .00307,    .00031,    .00004,
     +     .00003,    .00011,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06262,    .01578,    .00290,    .00029,    .00004,
     +     .00003,    .00011,    .00014,
     +     .06022,    .01515,    .00273,    .00028,    .00004,
     +     .00003,    .00010,    .00013,
     +     .05803,    .01457,    .00258,    .00027,    .00004,
     +     .00003,    .00010,    .00012,
     +     .05603,    .01404,    .00245,    .00025,    .00004,
     +     .00003,    .00010,    .00012,
     +     .05408,    .01352,    .00233,    .00024,    .00003,
     +     .00003,    .00009,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30504,    .08354,    .06124,    .00157,    .00000,
     +     .00000,    .00060,    .00083,
     +     .28700,    .07820,    .05347,    .00147,    .00000,
     +     .00000,    .00054,    .00078,
     +     .26272,    .07108,    .04396,    .00133,    .00000,
     +     .00000,    .00050,    .00068,
     +     .24675,    .06642,    .03826,    .00123,    .00000,
     +     .00000,    .00046,    .00063,
     +     .23140,    .06198,    .03318,    .00112,    .00001,
     +     .00000,    .00044,    .00057,
     +     .21903,    .05842,    .02941,    .00105,    .00002,
     +     .00000,    .00041,    .00053,
     +     .20791,    .05523,    .02626,    .00098,    .00002,
     +     .00000,    .00039,    .00051,
     +     .19685,    .05208,    .02334,    .00090,    .00003,
     +     .00000,    .00036,    .00048 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18777,    .04951,    .02112,    .00087,    .00003,
     +     .00000,    .00034,    .00044,
     +     .17948,    .04717,    .01920,    .00082,    .00003,
     +     .00000,    .00032,    .00042,
     +     .17323,    .04542,    .01783,    .00078,    .00003,
     +     .00000,    .00031,    .00040,
     +     .16078,    .04193,    .01527,    .00071,    .00004,
     +     .00000,    .00029,    .00035,
     +     .15096,    .03919,    .01341,    .00066,    .00004,
     +     .00001,    .00027,    .00033,
     +     .14080,    .03637,    .01164,    .00059,    .00004,
     +     .00001,    .00025,    .00031,
     +     .13101,    .03369,    .01009,    .00055,    .00004,
     +     .00001,    .00023,    .00029,
     +     .12281,    .03145,    .00890,    .00051,    .00004,
     +     .00002,    .00021,    .00027 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11515,    .02937,    .00787,    .00046,    .00004,
     +     .00002,    .00019,    .00024,
     +     .10919,    .02775,    .00713,    .00044,    .00004,
     +     .00002,    .00019,    .00022,
     +     .10244,    .02592,    .00634,    .00040,    .00004,
     +     .00002,    .00017,    .00021,
     +     .09686,    .02442,    .00574,    .00037,    .00004,
     +     .00002,    .00016,    .00020,
     +     .09203,    .02315,    .00524,    .00035,    .00004,
     +     .00002,    .00015,    .00018,
     +     .08631,    .02162,    .00469,    .00032,    .00003,
     +     .00002,    .00013,    .00017,
     +     .08128,    .02029,    .00423,    .00030,    .00003,
     +     .00002,    .00012,    .00016,
     +     .07687,    .01913,    .00386,    .00029,    .00003,
     +     .00002,    .00012,    .00015 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07274,    .01803,    .00352,    .00027,    .00003,
     +     .00002,    .00011,    .00014,
     +     .06893,    .01704,    .00323,    .00025,    .00003,
     +     .00002,    .00010,    .00013,
     +     .06552,    .01616,    .00298,    .00024,    .00003,
     +     .00002,    .00010,    .00012,
     +     .06247,    .01536,    .00277,    .00023,    .00003,
     +     .00002,    .00009,    .00011,
     +     .05958,    .01461,    .00257,    .00022,    .00003,
     +     .00002,    .00009,    .00011,
     +     .05687,    .01391,    .00240,    .00020,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05443,    .01328,    .00224,    .00019,    .00003,
     +     .00002,    .00008,    .00009,
     +     .05222,    .01271,    .00211,    .00019,    .00002,
     +     .00002,    .00008,    .00009 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05009,    .01217,    .00198,    .00018,    .00002,
     +     .00002,    .00008,    .00008,
     +     .04808,    .01166,    .00187,    .00017,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04626,    .01119,    .00177,    .00016,    .00002,
     +     .00002,    .00006,    .00007,
     +     .04459,    .01077,    .00168,    .00014,    .00002,
     +     .00002,    .00006,    .00007,
     +     .04296,    .01035,    .00159,    .00014,    .00002,
     +     .00002,    .00006,    .00007 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .26390,    .06965,    .04560,    .00113,    .00000,
     +     .00000,    .00036,    .00050,
     +     .24749,    .06498,    .03952,    .00103,    .00000,
     +     .00000,    .00033,    .00046,
     +     .22540,    .05878,    .03218,    .00093,    .00000,
     +     .00000,    .00030,    .00040,
     +     .21102,    .05475,    .02781,    .00083,    .00000,
     +     .00000,    .00028,    .00036,
     +     .19718,    .05090,    .02399,    .00078,    .00001,
     +     .00000,    .00025,    .00033,
     +     .18609,    .04785,    .02116,    .00073,    .00001,
     +     .00000,    .00024,    .00030,
     +     .17615,    .04513,    .01881,    .00068,    .00001,
     +     .00000,    .00024,    .00028,
     +     .16629,    .04243,    .01665,    .00064,    .00002,
     +     .00000,    .00022,    .00027 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15823,    .04023,    .01501,    .00060,    .00002,
     +     .00000,    .00020,    .00025,
     +     .15088,    .03824,    .01361,    .00056,    .00002,
     +     .00000,    .00019,    .00024,
     +     .14536,    .03676,    .01261,    .00053,    .00002,
     +     .00000,    .00018,    .00023,
     +     .13440,    .03379,    .01075,    .00048,    .00002,
     +     .00000,    .00015,    .00022,
     +     .12579,    .03149,    .00941,    .00044,    .00002,
     +     .00000,    .00015,    .00019,
     +     .11689,    .02913,    .00814,    .00040,    .00002,
     +     .00001,    .00014,    .00018,
     +     .10838,    .02688,    .00703,    .00037,    .00002,
     +     .00001,    .00012,    .00017,
     +     .10128,    .02502,    .00619,    .00034,    .00002,
     +     .00001,    .00011,    .00016 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09465,    .02329,    .00546,    .00031,    .00002,
     +     .00001,    .00011,    .00014,
     +     .08951,    .02195,    .00493,    .00030,    .00002,
     +     .00001,    .00011,    .00013,
     +     .08371,    .02044,    .00438,    .00028,    .00002,
     +     .00001,    .00010,    .00011,
     +     .07893,    .01921,    .00396,    .00026,    .00002,
     +     .00001,    .00009,    .00010,
     +     .07481,    .01816,    .00361,    .00025,    .00002,
     +     .00001,    .00008,    .00009,
     +     .06995,    .01691,    .00323,    .00022,    .00002,
     +     .00001,    .00007,    .00009,
     +     .06568,    .01582,    .00291,    .00021,    .00002,
     +     .00001,    .00007,    .00008,
     +     .06195,    .01488,    .00265,    .00020,    .00002,
     +     .00001,    .00006,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05846,    .01399,    .00241,    .00018,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05525,    .01319,    .00221,    .00017,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05240,    .01248,    .00204,    .00016,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04986,    .01184,    .00189,    .00015,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04746,    .01123,    .00175,    .00014,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04521,    .01067,    .00163,    .00013,    .00002,
     +     .00001,    .00004,    .00005,
     +     .04318,    .01017,    .00153,    .00013,    .00002,
     +     .00001,    .00004,    .00005,
     +     .04135,    .00972,    .00143,    .00012,    .00001,
     +     .00001,    .00004,    .00005 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .03959,    .00928,    .00135,    .00011,    .00001,
     +     .00001,    .00004,    .00005,
     +     .03793,    .00888,    .00127,    .00011,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03641,    .00851,    .00120,    .00010,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03504,    .00817,    .00114,    .00010,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03371,    .00784,    .00108,    .00009,    .00001,
     +     .00001,    .00003,    .00004 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
     +     .22488,    .05701,    .03294,    .00069,    .00000,
     +     .00000,    .00027,    .00033,
     +     .21015,    .05302,    .02835,    .00063,    .00000,
     +     .00000,    .00025,    .00030,
     +     .19048,    .04771,    .02286,    .00055,    .00000,
     +     .00000,    .00021,    .00026,
     +     .17763,    .04428,    .01964,    .00051,    .00000,
     +     .00000,    .00020,    .00024,
     +     .16544,    .04103,    .01683,    .00045,    .00000,
     +     .00000,    .00018,    .00022,
     +     .15564,    .03844,    .01479,    .00041,    .00001,
     +     .00000,    .00017,    .00020,
     +     .14688,    .03615,    .01309,    .00039,    .00001,
     +     .00000,    .00016,    .00020,
     +     .13822,    .03389,    .01154,    .00037,    .00001,
     +     .00000,    .00015,    .00019 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13120,    .03206,    .01037,    .00034,    .00001,
     +     .00000,    .00014,    .00016,
     +     .12481,    .03040,    .00937,    .00031,    .00001,
     +     .00000,    .00013,    .00014,
     +     .12001,    .02916,    .00866,    .00030,    .00001,
     +     .00000,    .00012,    .00013,
     +     .11048,    .02670,    .00736,    .00027,    .00001,
     +     .00000,    .00011,    .00014,
     +     .10304,    .02480,    .00642,    .00025,    .00001,
     +     .00000,    .00010,    .00012,
     +     .09540,    .02286,    .00554,    .00023,    .00001,
     +     .00000,    .00009,    .00011,
     +     .08812,    .02102,    .00477,    .00021,    .00001,
     +     .00001,    .00008,    .00010,
     +     .08206,    .01949,    .00419,    .00020,    .00001,
     +     .00001,    .00008,    .00010 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07642,    .01808,    .00369,    .00018,    .00001,
     +     .00001,    .00007,    .00009,
     +     .07209,    .01699,    .00333,    .00017,    .00001,
     +     .00001,    .00007,    .00008,
     +     .06719,    .01578,    .00295,    .00015,    .00001,
     +     .00001,    .00006,    .00007,
     +     .06317,    .01478,    .00266,    .00014,    .00001,
     +     .00001,    .00006,    .00007,
     +     .05973,    .01394,    .00242,    .00013,    .00001,
     +     .00001,    .00005,    .00007,
     +     .05566,    .01294,    .00216,    .00012,    .00001,
     +     .00001,    .00005,    .00006,
     +     .05211,    .01207,    .00195,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04900,    .01132,    .00177,    .00010,    .00001,
     +     .00001,    .00004,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04612,    .01062,    .00161,    .00009,    .00001,
     +     .00001,    .00004,    .00005,
     +     .04348,    .00998,    .00148,    .00008,    .00001,
     +     .00001,    .00004,    .00005,
     +     .04113,    .00942,    .00136,    .00008,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03905,    .00891,    .00126,    .00008,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03708,    .00844,    .00117,    .00007,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03523,    .00800,    .00108,    .00007,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03358,    .00761,    .00101,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03208,    .00726,    .00095,    .00006,    .00001,
     +     .00001,    .00003,    .00003 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
     +     .03065,    .00692,    .00089,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02931,    .00660,    .00084,    .00006,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02809,    .00631,    .00079,    .00005,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02699,    .00605,    .00075,    .00005,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02591,    .00580,    .00071,    .00005,    .00001,
     +     .00001,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .15595,    .03642,    .01576,    .00026,    .00000,
     +     .00000,    .00009,    .00011,
     +     .14461,    .03362,    .01339,    .00025,    .00000,
     +     .00000,    .00008,    .00011,
     +     .12965,    .02995,    .01061,    .00021,    .00000,
     +     .00000,    .00007,    .00008,
     +     .12000,    .02759,    .00902,    .00020,    .00000,
     +     .00000,    .00006,    .00007,
     +     .11089,    .02536,    .00765,    .00018,    .00000,
     +     .00000,    .00005,    .00009,
     +     .10365,    .02362,    .00667,    .00016,    .00000,
     +     .00000,    .00005,    .00007,
     +     .09723,    .02208,    .00587,    .00014,    .00000,
     +     .00000,    .00005,    .00006,
     +     .09094,    .02056,    .00514,    .00013,    .00000,
     +     .00000,    .00005,    .00005 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08584,    .01934,    .00459,    .00012,    .00000,
     +     .00000,    .00005,    .00005,
     +     .08123,    .01824,    .00414,    .00011,    .00000,
     +     .00000,    .00004,    .00005,
     +     .07779,    .01743,    .00381,    .00011,    .00000,
     +     .00000,    .00004,    .00004,
     +     .07100,    .01583,    .00322,    .00010,    .00000,
     +     .00000,    .00003,    .00004,
     +     .06576,    .01460,    .00279,    .00009,    .00000,
     +     .00000,    .00003,    .00004,
     +     .06041,    .01335,    .00240,    .00008,    .00000,
     +     .00000,    .00003,    .00004,
     +     .05536,    .01218,    .00206,    .00007,    .00000,
     +     .00000,    .00003,    .00003,
     +     .05118,    .01122,    .00181,    .00006,    .00000,
     +     .00000,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04733,    .01033,    .00159,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04439,    .00966,    .00143,    .00005,    .00000,
     +     .00000,    .00002,    .00003,
     +     .04109,    .00891,    .00127,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03840,    .00829,    .00114,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03611,    .00778,    .00104,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03341,    .00717,    .00092,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03109,    .00665,    .00083,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02907,    .00620,    .00075,    .00003,    .00000,
     +     .00000,    .00002,    .00002 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
     +     .02719,    .00578,    .00068,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02549,    .00540,    .00062,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02400,    .00507,    .00057,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02267,    .00478,    .00053,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02141,    .00450,    .00049,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02025,    .00425,    .00046,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01921,    .00402,    .00042,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01828,    .00382,    .00040,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
     +     .01740,    .00362,    .00037,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01657,    .00344,    .00035,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01582,    .00328,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01514,    .00314,    .00031,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01448,    .00299,    .00029,    .00001,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
     +     .09990,    .02135,    .00648,    .00010,    .00000,
     +     .00000,    .00002,    .00002,
     +     .09193,    .01955,    .00545,    .00008,    .00000,
     +     .00000,    .00003,    .00003,
     +     .08146,    .01721,    .00427,    .00007,    .00000,
     +     .00000,    .00001,    .00003,
     +     .07479,    .01573,    .00360,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .06853,    .01435,    .00303,    .00006,    .00000,
     +     .00000,    .00001,    .00002,
     +     .06362,    .01326,    .00263,    .00005,    .00000,
     +     .00000,    .00001,    .00002,
     +     .05928,    .01231,    .00231,    .00004,    .00000,
     +     .00000,    .00001,    .00002,
     +     .05504,    .01140,    .00202,    .00005,    .00000,
     +     .00000,    .00001,    .00002 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .05165,    .01066,    .00180,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04861,    .01000,    .00161,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04635,    .00951,    .00149,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04191,    .00856,    .00125,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03852,    .00784,    .00109,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03509,    .00710,    .00093,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03187,    .00642,    .00080,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02924,    .00587,    .00070,    .00002,    .00000,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
     +     .02684,    .00537,    .00062,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02502,    .00499,    .00055,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02298,    .00456,    .00049,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02133,    .00423,    .00044,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01994,    .00394,    .00040,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .01832,    .00360,    .00036,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01693,    .00332,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01573,    .00307,    .00029,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
     +     .01462,    .00285,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01362,    .00265,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01275,    .00247,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01197,    .00232,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01125,    .00217,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01059,    .00204,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01000,    .00192,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00947,    .00181,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00897,    .00171,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00850,    .00162,    .00013,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00808,    .00154,    .00012,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00770,    .00146,    .00012,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00734,    .00139,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
     +     .05773,    .01116,    .00219,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05263,    .01013,    .00183,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04605,    .00880,    .00143,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04188,    .00798,    .00120,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03803,    .00721,    .00101,    .00002,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03502,    .00661,    .00088,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .03239,    .00609,    .00077,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02985,    .00560,    .00067,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02782,    .00520,    .00060,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02601,    .00484,    .00054,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02467,    .00459,    .00050,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02209,    .00409,    .00042,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02012,    .00371,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01816,    .00333,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01633,    .00298,    .00027,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01486,    .00270,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01352,    .00245,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01251,    .00226,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01139,    .00205,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01050,    .00188,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00976,    .00175,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00889,    .00158,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00814,    .00145,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00751,    .00133,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
     +     .00693,    .00123,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00642,    .00113,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00597,    .00105,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00557,    .00098,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00520,    .00091,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00487,    .00085,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00457,    .00080,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00431,    .00075,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
     +     .00406,    .00070,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00383,    .00066,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00362,    .00063,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00344,    .00059,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00326,    .00056,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
     +     .02869,    .00493,    .00056,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02589,    .00443,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02231,    .00379,    .00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02008,    .00340,    .00031,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01803,    .00304,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01646,    .00276,    .00023,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01509,    .00252,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01378,    .00230,    .00018,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
     +     .01274,    .00212,    .00016,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01183,    .00196,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01116,    .00185,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00987,    .00162,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00890,    .00146,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00794,    .00130,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00706,    .00115,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00636,    .00103,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
     +     .00573,    .00092,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00526,    .00085,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00474,    .00076,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .00069,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00399,    .00064,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00360,    .00057,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00327,    .00052,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00299,    .00047,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00274,    .00043,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00251,    .00040,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00232,    .00036,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00199,    .00031,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00185,    .00029,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00173,    .00027,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00162,    .00025,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
     +     .00152,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00142,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00134,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00126,    .00019,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00119,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
     +     .00298,    .00037,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00261,    .00032,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00215,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00188,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00163,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00145,    .00017,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00130,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00115,    .00014,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
     +     .00104,    .00012,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00095,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00088,    .00010,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00075,    .00009,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00066,    .00008,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00057,    .00007,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00049,    .00006,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00043,    .00005,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00037,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00034,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00029,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00024,    .00003,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00021,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00015,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00002,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00012,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00009,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00007,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00006,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor09.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