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

sfmrs_99a11.F

#include "pdf/pilot.h"
      subroutine sfmrs_99a11(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.10708,    .89447,    .00000,
     +     .00000,    .47645,    .90677,
     +     .00540,    .00231,   2.36693,    .92861,    .00000,
     +     .00000,    .51596,    .94098,
     +     .00564,    .00241,   4.75897,   1.00376,    .04191,
     +     .00000,    .59869,   1.01620,
     +     .00581,    .00249,   6.94730,   1.07521,    .13632,
     +     .00000,    .67542,   1.08769,
     +     .00600,    .00257,   9.76841,   1.16939,    .23766,
     +     .00000,    .77500,   1.18191,
     +     .00616,    .00264,  12.64487,   1.26580,    .33927,
     +     .00000,    .87595,   1.27835,
     +     .00631,    .00271,  15.87741,   1.37105,    .45296,
     +     .00000,    .98543,   1.38361,
     +     .00648,    .00278,  19.85334,   1.49743,    .59040,
     +     .00000,   1.11620,   1.51001 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00662,    .00285,  23.72488,   1.62149,    .72070,
     +     .00000,   1.24399,   1.63408,
     +     .00676,    .00291,  27.88427,   1.75343,    .85922,
     +     .00000,   1.37944,   1.76602,
     +     .00687,    .00297,  31.53034,   1.86642,    .97991,
     +     .00000,   1.49517,   1.87901,
     +     .00711,    .00308,  39.97499,   2.13582,   1.26222,
     +     .02243,   1.77026,   2.14841,
     +     .00732,    .00318,  47.92525,   2.39697,   1.53367,
     +     .34245,   2.03613,   2.40955,
     +     .00755,    .00329,  57.96980,   2.72424,   1.87403,
     +     .73681,   2.36854,   2.73680,
     +     .00779,    .00341,  69.79701,   3.10494,   2.26918,
     +    1.15155,   2.75444,   3.11748,
     +     .00802,    .00352,  81.76463,   3.48725,   2.66540,
     +    1.56753,   3.14133,   3.49976 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00825,    .00363,  95.10130,   3.91104,   3.10438,
     +    2.02653,   3.56962,   3.92352,
     +     .00844,    .00372, 107.10555,   4.29241,   3.49768,
     +    2.43289,   3.95465,   4.30486,
     +     .00867,    .00384, 122.81029,   4.79190,   4.01115,
     +    2.96119,   4.45846,   4.80430,
     +     .00888,    .00394, 137.86038,   5.26966,   4.50290,
     +    3.46954,   4.93996,   5.28203,
     +     .00908,    .00404, 152.63914,   5.73865,   4.98573,
     +    3.96901,   5.41230,   5.75098,
     +     .00932,    .00417, 172.52527,   6.37445,   5.63665,
     +    4.63549,   6.05227,   6.38673,
     +     .00956,    .00429, 192.60530,   7.01767,   6.29558,
     +    5.31208,   6.69931,   7.02989,
     +     .00978,    .00440, 212.72771,   7.66284,   6.95754,
     +    5.99425,   7.34798,   7.67502 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .01001,    .00451, 233.73041,   8.34407,   7.65229,
     +    6.70274,   8.03264,   8.35620,
     +     .01023,    .00463, 255.51657,   9.05224,   8.37576,
     +    7.44362,   8.74408,   9.06431,
     +     .01044,    .00474, 277.19427,   9.76035,   9.09891,
     +    8.18404,   9.45525,   9.77238,
     +     .01064,    .00484, 298.35843,  10.45818,   9.80957,
     +    8.90866,  10.15589,  10.47015,
     +     .01084,    .00495, 320.73434,  11.19690,  10.56351,
     +    9.68055,  10.89740,  11.20883,
     +     .01105,    .00505, 343.28830,  11.95067,  11.32976,
     +   10.46022,  11.65386,  11.96255,
     +     .01124,    .00515, 365.82144,  12.70401,  12.09764,
     +   11.24534,  12.40971,  12.71583,
     +     .01143,    .00525, 387.51144,  13.43834,  12.84330,
     +   12.00338,  13.14638,  13.45011 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01161,    .00535, 410.33365,  14.21221,  13.63052,
     +   12.80633,  13.92258,  14.22394,
     +     .01180,    .00544, 433.34561,  14.99994,  14.43042,
     +   13.62013,  14.71257,  15.01162,
     +     .01198,    .00554, 455.97171,  15.77867,  15.22117,
     +   14.42478,  15.49344,  15.79031,
     +     .01215,    .00563, 478.11319,  16.54384,  15.99860,
     +   15.21686,  16.26060,  16.55543,
     +     .01233,    .00572, 500.75018,  17.33508,  16.80047,
     +   16.03078,  17.05383,  17.34662 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00707,    .00306,   1.03275,    .75752,    .00000,
     +     .00000,    .40294,    .76464,
     +     .00730,    .00316,   2.16809,    .78931,    .00000,
     +     .00000,    .43892,    .79647,
     +     .00763,    .00331,   4.27838,    .85595,    .03625,
     +     .00000,    .51147,    .86314,
     +     .00787,    .00342,   6.17068,    .91772,    .11745,
     +     .00000,    .57735,    .92494,
     +     .00813,    .00354,   8.57017,    .99763,    .20316,
     +     .00000,    .66146,   1.00487,
     +     .00835,    .00365,  10.98115,   1.07833,    .28815,
     +     .00000,    .74568,   1.08558,
     +     .00856,    .00375,  13.65803,   1.16563,    .38238,
     +     .00000,    .83627,   1.17289,
     +     .00879,    .00386,  16.91184,   1.26959,    .49527,
     +     .00000,    .94363,   1.27687 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00899,    .00396,  20.04412,   1.37073,    .60134,
     +     .00000,   1.04765,   1.37801,
     +     .00919,    .00405,  23.37685,   1.47754,    .71330,
     +     .00000,   1.15718,   1.48482,
     +     .00934,    .00412,  26.27535,   1.56854,    .81027,
     +     .00000,   1.25031,   1.57583,
     +     .00967,    .00428,  32.90954,   1.78368,   1.03515,
     +     .01833,   1.46984,   1.79096,
     +     .00995,    .00443,  39.06670,   1.99025,   1.24924,
     +     .27001,   1.68006,   1.99753,
     +     .01027,    .00459,  46.74966,   2.24684,   1.51520,
     +     .57823,   1.94061,   2.25411,
     +     .01061,    .00475,  55.68116,   2.54251,   1.82100,
     +     .89861,   2.24029,   2.54978,
     +     .01092,    .00491,  64.61087,   2.83681,   2.12484,
     +    1.21697,   2.53812,   2.84406 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01123,    .00507,  74.45277,   3.16035,   2.45867,
     +    1.56522,   2.86513,   3.16759,
     +     .01149,    .00520,  83.22314,   3.44930,   2.75547,
     +    1.87106,   3.15689,   3.45653,
     +     .01181,    .00537,  94.58546,   3.82492,   3.14004,
     +    2.26563,   3.53584,   3.83213,
     +     .01210,    .00551, 105.37099,   4.18159,   3.50567,
     +    2.64255,   3.89538,   4.18878,
     +     .01236,    .00565, 115.87395,   4.52945,   3.86237,
     +    3.01051,   4.24582,   4.53662,
     +     .01270,    .00583, 129.87444,   4.99759,   4.33970,
     +    3.49774,   4.71717,   5.00474,
     +     .01302,    .00599, 143.87996,   5.46773,   4.81942,
     +    3.98883,   5.19025,   5.47486,
     +     .01332,    .00615, 157.79774,   5.93618,   5.29823,
     +    4.48083,   5.66139,   5.94329 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01363,    .00631, 172.19611,   6.42738,   5.79721,
     +    4.98804,   6.15522,   6.43446,
     +     .01393,    .00647, 187.01802,   6.93488,   6.31375,
     +    5.51539,   6.66525,   6.94193,
     +     .01421,    .00662, 201.65718,   7.43934,   6.82705,
     +    6.03937,   7.17205,   7.44637,
     +     .01448,    .00676, 215.84454,   7.93357,   7.32853,
     +    6.54909,   7.66846,   7.94058,
     +     .01476,    .00691, 230.75272,   8.45417,   7.85801,
     +    7.08962,   8.19120,   8.46116,
     +     .01503,    .00705, 245.67084,   8.98234,   8.39303,
     +    7.63227,   8.72144,   8.98931,
     +     .01529,    .00719, 260.49457,   9.50782,   8.92689,
     +    8.17657,   9.24886,   9.51477,
     +     .01554,    .00732, 274.66861,  10.01739,   9.44255,
     +    8.69915,   9.76023,  10.02431 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01579,    .00746, 289.50922,  10.55217,   9.98483,
     +    9.25068,  10.29681,  10.55908,
     +     .01604,    .00759, 304.38379,  11.09397,  10.53323,
     +    9.80694,  10.84035,  11.10085,
     +     .01628,    .00772, 318.93460,  11.62733,  11.07314,
     +   10.35474,  11.37536,  11.63420,
     +     .01651,    .00784, 333.10693,  12.14939,  11.60198,
     +   10.89205,  11.89896,  12.15624,
     +     .01674,    .00797, 347.51544,  12.68688,  12.14501,
     +   11.44159,  12.43798,  12.69371 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00955,    .00418,    .96445,    .64127,    .00000,
     +     .00000,    .34086,    .64479,
     +     .00986,    .00433,   1.98717,    .67061,    .00000,
     +     .00000,    .37346,    .67414,
     +     .01032,    .00455,   3.84754,    .72956,    .03135,
     +     .00000,    .43702,    .73311,
     +     .01066,    .00472,   5.48192,    .78293,    .10116,
     +     .00000,    .49358,    .78649,
     +     .01102,    .00489,   7.51963,    .85070,    .17362,
     +     .00000,    .56460,    .85426,
     +     .01132,    .00505,   9.53660,    .91819,    .24465,
     +     .00000,    .63481,    .92176,
     +     .01162,    .00520,  11.74857,    .99053,    .32270,
     +     .00000,    .70970,    .99411,
     +     .01194,    .00535,  14.40507,   1.07594,    .41534,
     +     .00000,    .79773,   1.07952 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01221,    .00549,  16.93248,   1.15825,    .50159,
     +     .00000,    .88226,   1.16183,
     +     .01248,    .00563,  19.59515,   1.24454,    .59196,
     +     .00000,    .97066,   1.24812,
     +     .01269,    .00574,  21.89241,   1.31768,    .66978,
     +     .00000,   1.04543,   1.32127,
     +     .01315,    .00597,  27.08695,   1.48906,    .84862,
     +     .01497,   1.22018,   1.49264,
     +     .01354,    .00617,  31.83747,   1.65200,   1.01718,
     +     .21279,   1.38592,   1.65558,
     +     .01398,    .00640,  37.69025,   1.85253,   1.22461,
     +     .45356,   1.58950,   1.85612,
     +     .01444,    .00664,  44.40569,   2.08139,   1.46074,
     +     .70088,   1.82142,   2.08497,
     +     .01487,    .00686,  51.03779,   2.30710,   1.69321,
     +     .94433,   2.04984,   2.31068 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01529,    .00709,  58.26522,   2.55316,   1.94644,
     +    1.20829,   2.29855,   2.55673,
     +     .01565,    .00727,  64.63999,   2.77120,   2.16981,
     +    1.43821,   2.51874,   2.77477,
     +     .01609,    .00751,  72.81618,   3.05247,   2.45701,
     +    1.73251,   2.80256,   3.05604,
     +     .01648,    .00771,  80.50210,   3.31755,   2.72804,
     +    2.01157,   3.06984,   3.32112,
     +     .01684,    .00790,  87.92296,   3.57439,   2.99072,
     +    2.28220,   3.32865,   3.57796,
     +     .01730,    .00815,  97.71957,   3.91745,   3.33957,
     +    2.63773,   3.67415,   3.92102,
     +     .01773,    .00838, 107.42630,   4.25940,   3.68758,
     +    2.99345,   4.01835,   4.26296,
     +     .01814,    .00860, 116.98965,   4.59783,   4.03263,
     +    3.34753,   4.35882,   4.60138 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01855,    .00882, 126.79259,   4.95015,   4.38961,
     +    3.70975,   4.71316,   4.95371,
     +     .01896,    .00904, 136.80528,   5.31191,   4.75691,
     +    4.08415,   5.07685,   5.31546,
     +     .01934,    .00925, 146.61942,   5.66933,   5.11973,
     +    4.45395,   5.43605,   5.67288,
     +     .01971,    .00945, 156.05798,   6.01741,   5.47206,
     +    4.81146,   5.78579,   6.02096,
     +     .02008,    .00965, 165.91473,   6.38221,   5.84227,
     +    5.18882,   6.15221,   6.38575,
     +     .02045,    .00985, 175.70300,   6.75013,   6.21409,
     +    5.56528,   6.52172,   6.75367,
     +     .02080,    .01004, 185.37604,   7.11451,   6.58351,
     +    5.94137,   6.88758,   7.11805,
     +     .02113,    .01022, 194.56026,   7.46596,   6.93836,
     +    6.30035,   7.24041,   7.46950 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02147,    .01040, 204.12854,   7.83326,   7.31006,
     +    6.67781,   7.60908,   7.83680,
     +     .02180,    .01058, 213.65871,   8.20358,   7.68411,
     +    7.05659,   7.98072,   8.20711,
     +     .02212,    .01076, 222.93195,   8.56657,   8.05082,
     +    7.42807,   8.34496,   8.57009,
     +     .02243,    .01093, 231.92090,   8.92047,   8.40865,
     +    7.79110,   8.70004,   8.92400,
     +     .02274,    .01110, 241.00519,   9.28317,   8.77437,
     +    8.16058,   9.06391,   9.28669 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01138,    .00502,    .92745,    .58161,    .00000,
     +     .00000,    .30917,    .58364,
     +     .01176,    .00521,   1.88940,    .60949,    .00000,
     +     .00000,    .33987,    .61152,
     +     .01232,    .00549,   3.61688,    .66431,    .02879,
     +     .00000,    .39865,    .66635,
     +     .01273,    .00570,   5.11606,    .71327,    .09268,
     +     .00000,    .45037,    .71532,
     +     .01316,    .00592,   6.96641,    .77479,    .15833,
     +     .00000,    .51469,    .77684,
     +     .01354,    .00611,   8.78158,    .83555,    .22227,
     +     .00000,    .57779,    .83761,
     +     .01390,    .00629,  10.75766,    .90032,    .29213,
     +     .00000,    .64475,    .90238,
     +     .01428,    .00649,  13.11384,    .97639,    .37460,
     +     .00000,    .72308,    .97845 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01461,    .00666,  15.33985,   1.04928,    .45097,
     +     .00000,    .79788,   1.05135,
     +     .01493,    .00683,  17.67116,   1.12537,    .53064,
     +     .00000,    .87577,   1.12744,
     +     .01519,    .00696,  19.67296,   1.18966,    .59900,
     +     .00000,    .94145,   1.19173,
     +     .01574,    .00725,  24.16658,   1.33947,    .75528,
     +     .01330,   1.09416,   1.34155,
     +     .01621,    .00750,  28.23981,   1.48107,    .90168,
     +     .18505,   1.23816,   1.48315,
     +     .01674,    .00778,  33.22008,   1.65439,   1.08084,
     +     .39334,   1.41408,   1.65647,
     +     .01730,    .00807,  38.88987,   1.85103,   1.28359,
     +     .60580,   1.61335,   1.85311,
     +     .01781,    .00835,  44.44827,   2.04391,   1.48209,
     +     .81377,   1.80854,   2.04600 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01832,    .00862,  50.46480,   2.25310,   1.69721,
     +    1.03808,   2.02000,   2.25520,
     +     .01875,    .00885,  55.73894,   2.43762,   1.88607,
     +    1.23251,   2.20635,   2.43972,
     +     .01928,    .00913,  62.46288,   2.67455,   2.12779,
     +    1.48020,   2.44545,   2.67665,
     +     .01974,    .00939,  68.74696,   2.89685,   2.35488,
     +    1.71405,   2.66963,   2.89896,
     +     .02017,    .00962,  74.78327,   3.11139,   2.57412,
     +    1.93993,   2.88585,   3.11350,
     +     .02072,    .00991,  82.70570,   3.39666,   2.86394,
     +    2.23527,   3.17320,   3.39878,
     +     .02124,    .01020,  90.51047,   3.67974,   3.15180,
     +    2.52948,   3.45819,   3.68186,
     +     .02173,    .01046,  98.16057,   3.95877,   3.43608,
     +    2.82119,   3.73897,   3.96090 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02222,    .01073, 105.95853,   4.24802,   3.72890,
     +    3.11822,   4.02993,   4.25015,
     +     .02270,    .01100, 113.88628,   4.54391,   4.02909,
     +    3.42418,   4.32746,   4.54605,
     +     .02316,    .01125, 121.62115,   4.83520,   4.32457,
     +    3.72529,   4.62027,   4.83735,
     +     .02360,    .01149, 129.02545,   5.11786,   4.61046,
     +    4.01531,   4.90434,   5.12001,
     +     .02404,    .01173, 136.72923,   5.41320,   4.90999,
     +    4.32059,   5.20107,   5.41536,
     +     .02448,    .01197, 144.34387,   5.71002,   5.20973,
     +    4.62398,   5.49924,   5.71219,
     +     .02489,    .01220, 151.84431,   6.00319,   5.50678,
     +    4.92635,   5.79366,   6.00536,
     +     .02529,    .01242, 158.93492,   6.28503,   5.79115,
     +    5.21394,   6.07667,   6.28721 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02569,    .01264, 166.30008,   6.57886,   6.08833,
     +    5.51567,   6.37168,   6.58105,
     +     .02609,    .01286, 173.60782,   6.87423,   6.38649,
     +    5.81753,   6.66817,   6.87642,
     +     .02647,    .01307, 180.69582,   7.16302,   6.67807,
     +    6.11283,   6.95803,   7.16522,
     +     .02683,    .01327, 187.54669,   7.44392,   6.96195,
     +    6.40078,   7.23993,   7.44613,
     +     .02720,    .01347, 194.44452,   7.73101,   7.25127,
     +    6.69297,   7.52802,   7.73323 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01289,    .00572,    .90263,    .54263,    .00000,
     +     .00000,    .28853,    .54385,
     +     .01333,    .00594,   1.82361,    .56948,    .00000,
     +     .00000,    .31793,    .57070,
     +     .01397,    .00627,   3.46229,    .62151,    .02710,
     +     .00000,    .37353,    .62273,
     +     .01444,    .00651,   4.87192,    .66756,    .08708,
     +     .00000,    .42206,    .66879,
     +     .01494,    .00677,   6.59911,    .72497,    .14828,
     +     .00000,    .48200,    .72621,
     +     .01536,    .00699,   8.28257,    .78136,    .20760,
     +     .00000,    .54049,    .78260,
     +     .01578,    .00721,  10.10556,    .84122,    .27216,
     +     .00000,    .60231,    .84246,
     +     .01621,    .00744,  12.26799,    .91126,    .34808,
     +     .00000,    .67438,    .91251 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01659,    .00764,  14.30063,    .97809,    .41811,
     +     .00000,    .74293,    .97935,
     +     .01696,    .00783,  16.42037,   1.04764,    .49093,
     +     .00000,    .81410,   1.04890,
     +     .01726,    .00799,  18.23427,   1.10626,    .55325,
     +     .00000,    .87398,   1.10752,
     +     .01788,    .00832,  22.28473,   1.24235,    .69520,
     +     .01222,   1.01266,   1.24362,
     +     .01842,    .00861,  25.93277,   1.37042,    .82760,
     +     .16754,   1.14288,   1.37170,
     +     .01903,    .00894,  30.36872,   1.52656,    .98897,
     +     .35543,   1.30135,   1.52784,
     +     .01966,    .00928,  35.39041,   1.70295,   1.17081,
     +     .54611,   1.48010,   1.70425,
     +     .02024,    .00959,  40.28738,   1.87530,   1.34813,
     +     .73203,   1.65451,   1.87660 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02083,    .00991,  45.56216,   2.06153,   1.53960,
     +     .93178,   1.84278,   2.06285,
     +     .02132,    .01018,  50.16556,   2.22524,   1.70712,
     +    1.10432,   2.00813,   2.22657,
     +     .02192,    .01050,  56.00888,   2.43476,   1.92082,
     +    1.32339,   2.21959,   2.43610,
     +     .02245,    .01079,  61.44703,   2.63072,   2.12094,
     +    1.52955,   2.41722,   2.63206,
     +     .02293,    .01106,  66.65147,   2.81929,   2.31360,
     +    1.72813,   2.60729,   2.82065,
     +     .02356,    .01140,  73.45324,   3.06922,   2.56744,
     +    1.98687,   2.85908,   3.07059,
     +     .02415,    .01172,  80.12617,   3.31644,   2.81876,
     +    2.24382,   3.10800,   3.31781,
     +     .02470,    .01203,  86.64272,   3.55941,   3.06626,
     +    2.49788,   3.35254,   3.56080 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02526,    .01233,  93.25818,   3.81050,   3.32037,
     +    2.75570,   3.60515,   3.81190,
     +     .02580,    .01264,  99.96101,   4.06667,   3.58021,
     +    3.02059,   3.86279,   4.06808,
     +     .02633,    .01293, 106.47905,   4.31820,   3.83531,
     +    3.28063,   4.11567,   4.31963,
     +     .02682,    .01320, 112.69733,   4.56164,   4.08148,
     +    3.53040,   4.36037,   4.56308,
     +     .02732,    .01347, 119.14987,   4.81546,   4.33885,
     +    3.79279,   4.61544,   4.81691,
     +     .02781,    .01375, 125.50588,   5.06989,   4.59574,
     +    4.05283,   4.87107,   5.07136,
     +     .02828,    .01401, 131.75200,   5.32071,   4.84984,
     +    4.31156,   5.12301,   5.32219,
     +     .02873,    .01426, 137.63797,   5.56126,   5.09251,
     +    4.55701,   5.36461,   5.56275 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02918,    .01451, 143.73883,   5.81161,   5.34568,
     +    4.81412,   5.61600,   5.81312,
     +     .02963,    .01476, 149.77502,   6.06273,   5.59914,
     +    5.07076,   5.86812,   6.06425,
     +     .03006,    .01500, 155.61607,   6.30781,   5.84656,
     +    5.32138,   6.11415,   6.30934,
     +     .03047,    .01523, 161.24983,   6.54579,   6.08705,
     +    5.56538,   6.35303,   6.54733,
     +     .03088,    .01546, 166.90662,   6.78853,   6.33163,
     +    5.81242,   6.59666,   6.79008 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01420,    .00633,    .88427,    .51418,    .00000,
     +     .00000,    .27351,    .51490,
     +     .01469,    .00658,   1.77467,    .54024,    .00000,
     +     .00000,    .30192,    .54096,
     +     .01540,    .00695,   3.34742,    .59018,    .02586,
     +     .00000,    .35517,    .59091,
     +     .01593,    .00723,   4.69101,    .63408,    .08296,
     +     .00000,    .40135,    .63481,
     +     .01648,    .00752,   6.32788,    .68850,    .14091,
     +     .00000,    .45810,    .68924,
     +     .01695,    .00777,   7.91522,    .74169,    .19687,
     +     .00000,    .51323,    .74243,
     +     .01741,    .00801,   9.62699,    .79798,    .25758,
     +     .00000,    .57134,    .79874,
     +     .01790,    .00827,  11.64925,    .86366,    .32876,
     +     .00000,    .63888,    .86442 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01832,    .00850,  13.54257,    .92612,    .39421,
     +     .00000,    .70292,    .92689,
     +     .01873,    .00872,  15.51044,    .99096,    .46211,
     +     .00000,    .76925,    .99173,
     +     .01905,    .00889,  17.18985,   1.04551,    .52011,
     +     .00000,    .82496,   1.04629,
     +     .01975,    .00927,  20.92450,   1.17176,    .65180,
     +     .01144,    .95360,   1.17255,
     +     .02034,    .00959,  24.27109,   1.29018,    .77422,
     +     .15508,   1.07399,   1.29098,
     +     .02102,    .00995,  28.32294,   1.43408,    .92296,
     +     .32849,   1.22004,   1.43489,
     +     .02172,    .01034,  32.88950,   1.59612,   1.09001,
     +     .50379,   1.38424,   1.59695,
     +     .02236,    .01069,  37.32410,   1.75395,   1.25239,
     +     .67416,   1.54396,   1.75479 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02301,    .01104,  42.08253,   1.92401,   1.42722,
     +     .85668,   1.71588,   1.92486,
     +     .02355,    .01134,  46.22077,   2.07310,   1.57978,
     +    1.01390,   1.86648,   2.07397,
     +     .02421,    .01170,  51.45560,   2.26341,   1.77388,
     +    1.21299,   2.05857,   2.26429,
     +     .02479,    .01202,  56.31138,   2.44095,   1.95520,
     +    1.39988,   2.23765,   2.44185,
     +     .02533,    .01232,  60.94501,   2.61143,   2.12936,
     +    1.57950,   2.40951,   2.61234,
     +     .02602,    .01270,  66.98047,   2.83679,   2.35825,
     +    1.81290,   2.63657,   2.83772,
     +     .02667,    .01306,  72.88228,   3.05914,   2.58429,
     +    2.04412,   2.86049,   3.06009,
     +     .02728,    .01340,  78.62894,   3.27718,   2.80640,
     +    2.27222,   3.07996,   3.27815 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02789,    .01374,  84.44400,   3.50195,   3.03387,
     +    2.50310,   3.30613,   3.50293,
     +     .02850,    .01408,  90.32017,   3.73079,   3.26599,
     +    2.73984,   3.53631,   3.73179,
     +     .02907,    .01440,  96.01937,   3.95502,   3.49341,
     +    2.97177,   3.76179,   3.95604,
     +     .02961,    .01470, 101.44176,   4.17160,   3.71242,
     +    3.19406,   3.97952,   4.17264,
     +     .03016,    .01501, 107.05673,   4.39704,   3.94103,
     +    3.42723,   4.20609,   4.39809,
     +     .03070,    .01531, 112.57251,   4.62255,   4.16872,
     +    3.65779,   4.43271,   4.62363,
     +     .03122,    .01560, 117.98296,   4.84453,   4.39364,
     +    3.88689,   4.65572,   4.84562,
     +     .03171,    .01587, 123.06846,   5.05702,   4.60801,
     +    4.10378,   4.86917,   5.05813 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03221,    .01615, 128.33081,   5.27787,   4.83136,
     +    4.33070,   5.09097,   5.27900,
     +     .03270,    .01643, 133.52554,   5.49902,   5.05458,
     +    4.55681,   5.31304,   5.50016,
     +     .03317,    .01669, 138.54323,   5.71453,   5.27218,
     +    4.77729,   5.52943,   5.71569,
     +     .03362,    .01694, 143.37474,   5.92354,   5.48341,
     +    4.99169,   5.73925,   5.92472,
     +     .03408,    .01720, 148.21529,   6.13638,   5.69788,
     +    5.20839,   5.95291,   6.13757 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .01921,    .00870,    .83298,    .43500,    .00000,
     +     .00000,    .23193,    .43483,
     +     .01989,    .00907,   1.63467,    .45862,    .00000,
     +     .00000,    .25740,    .45846,
     +     .02088,    .00962,   3.01798,    .50249,    .02231,
     +     .00000,    .30387,    .50235,
     +     .02161,    .01002,   4.17381,    .54026,    .07130,
     +     .00000,    .34345,    .54014,
     +     .02237,    .01044,   5.55641,    .58625,    .12014,
     +     .00000,    .39127,    .58615,
     +     .02303,    .01080,   6.87559,    .63057,    .16675,
     +     .00000,    .43710,    .63048,
     +     .02366,    .01115,   8.27941,    .67700,    .21684,
     +     .00000,    .48495,    .67693,
     +     .02434,    .01153,   9.91649,    .73066,    .27499,
     +     .00000,    .54007,    .73061 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02492,    .01185,  11.42979,    .78116,    .32795,
     +     .00000,    .59181,    .78113,
     +     .02548,    .01217,  12.98595,    .83317,    .38245,
     +     .00000,    .64497,    .83315,
     +     .02593,    .01242,  14.30268,    .87666,    .42873,
     +     .00000,    .68938,    .87667,
     +     .02689,    .01295,  17.19216,    .97634,    .53280,
     +     .00932,    .79092,    .97638,
     +     .02771,    .01341,  19.73948,   1.06882,    .62851,
     +     .12176,    .88493,   1.06888,
     +     .02863,    .01393,  22.78123,   1.18008,    .74363,
     +     .25667,    .99786,   1.18017,
     +     .02960,    .01448,  26.16103,   1.30404,    .87155,
     +     .39138,   1.12350,   1.30417,
     +     .03047,    .01497,  29.39954,   1.42357,    .99466,
     +     .52100,   1.24450,   1.42373 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03136,    .01547,  32.83208,   1.55119,   1.12601,
     +     .65857,   1.37357,   1.55139,
     +     .03210,    .01589,  35.78378,   1.66212,   1.23964,
     +     .77603,   1.48567,   1.66235,
     +     .03299,    .01640,  39.47672,   1.80255,   1.38302,
     +     .92352,   1.62748,   1.80281,
     +     .03379,    .01685,  42.86607,   1.93250,   1.51588,
     +    1.06089,   1.75862,   1.93280,
     +     .03452,    .01727,  46.07030,   2.05640,   1.64261,
     +    1.19198,   1.88359,   2.05673,
     +     .03545,    .01779,  50.19884,   2.21884,   1.80777,
     +    1.36086,   2.04735,   2.21922,
     +     .03633,    .01829,  54.19373,   2.37783,   1.96958,
     +    1.52683,   2.20755,   2.37824,
     +     .03716,    .01876,  58.04728,   2.53261,   2.12745,
     +    1.68944,   2.36344,   2.53307 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03799,    .01923,  61.90579,   2.69092,   2.28782,
     +    1.85262,   2.52283,   2.69141,
     +     .03880,    .01970,  65.77158,   2.85102,   2.45041,
     +    2.01889,   2.68397,   2.85155,
     +     .03957,    .02014,  69.48920,   3.00688,   2.60869,
     +    2.18073,   2.84079,   3.00744,
     +     .04030,    .02055,  72.99514,   3.15643,   2.76008,
     +    2.33477,   2.99123,   3.15703,
     +     .04104,    .02097,  76.60133,   3.31126,   2.91731,
     +    2.49556,   3.14695,   3.31190,
     +     .04176,    .02139,  80.11189,   3.46514,   3.07284,
     +    2.65343,   3.30167,   3.46581,
     +     .04246,    .02178,  83.53541,   3.61588,   3.22578,
     +    2.80963,   3.45321,   3.61658,
     +     .04311,    .02216,  86.72609,   3.75930,   3.37063,
     +    2.95653,   3.59737,   3.76004 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04378,    .02253,  90.01013,   3.90771,   3.52094,
     +    3.10962,   3.74653,   3.90849,
     +     .04443,    .02291,  93.22777,   4.05553,   3.67032,
     +    3.26129,   3.89506,   4.05633,
     +     .04506,    .02327,  96.31707,   4.19891,   3.81527,
     +    3.40853,   4.03912,   4.19975,
     +     .04566,    .02361,  99.27585,   4.33738,   3.95541,
     +    3.55112,   4.17822,   4.33825,
     +     .04627,    .02396, 102.21818,   4.47766,   4.09694,
     +    3.69444,   4.31913,   4.47856 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02606,    .01206,    .79322,    .36842,    .00000,
     +     .00000,    .19725,    .36821,
     +     .02700,    .01260,   1.51510,    .38965,    .00000,
     +     .00000,    .21998,    .38948,
     +     .02839,    .01340,   2.72960,    .42801,    .01920,
     +     .00000,    .26043,    .42790,
     +     .02939,    .01397,   3.72079,    .46039,    .06110,
     +     .00000,    .29425,    .46032,
     +     .03045,    .01459,   4.88364,    .49911,    .10213,
     +     .00000,    .33444,    .49909,
     +     .03136,    .01511,   5.97426,    .53588,    .14082,
     +     .00000,    .37243,    .53589,
     +     .03224,    .01562,   7.11866,    .57401,    .18197,
     +     .00000,    .41169,    .57406,
     +     .03317,    .01616,   8.43505,    .61763,    .22927,
     +     .00000,    .45649,    .61773 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03398,    .01662,   9.63560,    .65824,    .27192,
     +     .00000,    .49809,    .65838,
     +     .03475,    .01707,  10.85630,    .69970,    .31545,
     +     .00000,    .54048,    .69988,
     +     .03537,    .01743,  11.87989,    .73417,    .35218,
     +     .00000,    .57568,    .73438,
     +     .03669,    .01820,  14.09455,    .81233,    .43395,
     +     .00756,    .65533,    .81260,
     +     .03781,    .01885,  16.01305,    .88401,    .50830,
     +     .09515,    .72825,    .88434,
     +     .03908,    .01958,  18.27048,    .96933,    .59680,
     +     .19959,    .81491,    .96973,
     +     .04039,    .02035,  20.74124,   1.06333,    .69406,
     +     .30254,    .91025,   1.06380,
     +     .04159,    .02105,  23.07525,   1.15302,    .78668,
     +     .40058,   1.00113,   1.15355 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04280,    .02175,  25.51692,   1.24785,    .88455,
     +     .50363,   1.09712,   1.24845,
     +     .04381,    .02233,  27.59140,   1.32955,    .96847,
     +     .59080,   1.17975,   1.33020,
     +     .04502,    .02304,  30.15633,   1.43205,   1.07341,
     +     .69931,   1.28336,   1.43277,
     +     .04610,    .02367,  32.48389,   1.52610,   1.16986,
     +     .79953,   1.37837,   1.52689,
     +     .04710,    .02425,  34.66246,   1.61511,   1.26116,
     +     .89446,   1.46824,   1.61595,
     +     .04836,    .02498,  37.43662,   1.73078,   1.37911,
     +    1.01565,   1.58498,   1.73170,
     +     .04954,    .02567,  40.09083,   1.84304,   1.49369,
     +    1.13377,   1.69821,   1.84403,
     +     .05066,    .02632,  42.62560,   1.95150,   1.60465,
     +    1.24864,   1.80757,   1.95256 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05177,    .02696,  45.13422,   2.06150,   1.71640,
     +    1.36287,   1.91843,   2.06262,
     +     .05286,    .02760,  47.62458,   2.17197,   1.82892,
     +    1.47851,   2.02974,   2.17315,
     +     .05390,    .02820,  49.99756,   2.27877,   1.93771,
     +    1.59029,   2.13732,   2.28002,
     +     .05487,    .02876,  52.21356,   2.38053,   2.04102,
     +    1.69590,   2.23980,   2.38184,
     +     .05586,    .02934,  54.47674,   2.48530,   2.14774,
     +    1.80558,   2.34528,   2.48667,
     +     .05682,    .02990,  56.65751,   2.58868,   2.25253,
     +    1.91243,   2.44935,   2.59011,
     +     .05775,    .03043,  58.77127,   2.68946,   2.35510,
     +    2.01770,   2.55078,   2.69095,
     +     .05862,    .03094,  60.72215,   2.78472,   2.45158,
     +    2.11599,   2.64663,   2.78626 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .05950,    .03145,  62.71881,   2.88284,   2.55126,
     +    2.21800,   2.74536,   2.88444,
     +     .06037,    .03195,  64.65852,   2.98000,   2.64974,
     +    2.31845,   2.84309,   2.98165,
     +     .06121,    .03244,  66.50854,   3.07378,   2.74483,
     +    2.41550,   2.93743,   3.07549,
     +     .06200,    .03290,  68.27002,   3.16395,   2.83638,
     +    2.50910,   3.02812,   3.16571,
     +     .06280,    .03336,  70.00653,   3.25478,   2.92828,
     +    2.60258,   3.11946,   3.25659 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03122,    .01469,    .77781,    .33484,    .00000,
     +     .00000,    .17986,    .33491,
     +     .03236,    .01537,   1.45674,    .35471,    .00000,
     +     .00000,    .20106,    .35485,
     +     .03404,    .01636,   2.58065,    .39007,    .01755,
     +     .00000,    .23828,    .39029,
     +     .03526,    .01708,   3.48448,    .41957,    .05570,
     +     .00000,    .26907,    .41986,
     +     .03655,    .01784,   4.53209,    .45449,    .09266,
     +     .00000,    .30529,    .45484,
     +     .03765,    .01849,   5.50416,    .48734,    .12724,
     +     .00000,    .33924,    .48776,
     +     .03871,    .01911,   6.51527,    .52121,    .16381,
     +     .00000,    .37411,    .52168,
     +     .03983,    .01978,   7.66847,    .55971,    .20559,
     +     .00000,    .41367,    .56025 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04081,    .02035,   8.71138,    .59532,    .24302,
     +     .00000,    .45016,    .59591,
     +     .04174,    .02091,   9.76436,    .63147,    .28105,
     +     .00000,    .48715,    .63213,
     +     .04249,    .02135,  10.64239,    .66142,    .31300,
     +     .00000,    .51775,    .66212,
     +     .04407,    .02228,  12.52534,    .72889,    .38370,
     +     .00667,    .58655,    .72968,
     +     .04543,    .02308,  14.13853,    .79032,    .44755,
     +     .08205,    .64909,    .79119,
     +     .04695,    .02398,  16.01934,    .86297,    .52305,
     +     .17160,    .72294,    .86393,
     +     .04853,    .02491,  18.05855,    .94244,    .60546,
     +     .25917,    .80362,    .94350,
     +     .04996,    .02576,  19.96779,   1.01778,    .68345,
     +     .34205,    .88002,   1.01893 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05141,    .02661,  21.94876,   1.09695,    .76535,
     +     .42863,    .96025,   1.09820,
     +     .05261,    .02732,  23.61908,   1.16478,    .83519,
     +     .50147,   1.02892,   1.16610,
     +     .05406,    .02818,  25.66895,   1.24941,    .92206,
     +     .59163,   1.11455,   1.25083,
     +     .05535,    .02894,  27.51590,   1.32667,   1.00147,
     +     .67449,   1.19267,   1.32817,
     +     .05654,    .02963,  29.23378,   1.39944,   1.07631,
     +     .75261,   1.26622,   1.40101,
     +     .05803,    .03051,  31.40490,   1.49350,   1.17246,
     +     .85179,   1.36123,   1.49517,
     +     .05944,    .03134,  33.46731,   1.58429,   1.26538,
     +     .94796,   1.45291,   1.58606,
     +     .06077,    .03212,  35.42449,   1.67161,   1.35494,
     +    1.04106,   1.54105,   1.67347 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06209,    .03289,  37.34687,   1.75969,   1.44466,
     +    1.13312,   1.62992,   1.76164,
     +     .06338,    .03365,  39.24416,   1.84778,   1.53461,
     +    1.22593,   1.71876,   1.84981,
     +     .06460,    .03437,  41.04135,   1.93257,   1.62120,
     +    1.31526,   1.80426,   1.93468,
     +     .06576,    .03504,  42.70897,   2.01300,   1.70307,
     +    1.39928,   1.88534,   2.01519,
     +     .06692,    .03572,  44.40444,   2.09553,   1.78736,
     +    1.48626,   1.96852,   2.09780,
     +     .06806,    .03639,  46.02707,   2.17659,   1.86974,
     +    1.57059,   2.05021,   2.17894,
     +     .06915,    .03703,  47.59388,   2.25538,   1.95015,
     +    1.65345,   2.12959,   2.25780,
     +     .07018,    .03762,  49.03047,   2.32954,   2.02545,
     +    1.73045,   2.20429,   2.33203 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07121,    .03823,  50.49562,   2.40572,   2.10305,
     +    1.81018,   2.28102,   2.40828,
     +     .07224,    .03883,  51.91086,   2.48086,   2.17942,
     +    1.88839,   2.35670,   2.48349,
     +     .07322,    .03940,  53.25482,   2.55318,   2.25294,
     +    1.96372,   2.42952,   2.55588,
     +     .07415,    .03994,  54.52958,   2.62252,   2.32353,
     +    2.03618,   2.49933,   2.62528,
     +     .07509,    .04048,  55.77871,   2.69211,   2.39413,
     +    2.10827,   2.56939,   2.69494 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .03554,    .01699,    .77192,    .31336,    .00000,
     +     .00000,    .16874,    .31371,
     +     .03686,    .01778,   1.42183,    .33228,    .00000,
     +     .00000,    .18890,    .33272,
     +     .03879,    .01893,   2.48450,    .36559,    .01644,
     +     .00000,    .22392,    .36614,
     +     .04019,    .01977,   3.32970,    .39315,    .05208,
     +     .00000,    .25268,    .39379,
     +     .04166,    .02065,   4.30049,    .42553,    .08632,
     +     .00000,    .28627,    .42626,
     +     .04292,    .02141,   5.19411,    .45580,    .11821,
     +     .00000,    .31755,    .45661,
     +     .04413,    .02213,   6.11753,    .48686,    .15176,
     +     .00000,    .34955,    .48774,
     +     .04542,    .02290,   7.16402,    .52201,    .18993,
     +     .00000,    .38568,    .52298 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .04653,    .02357,   8.10452,    .55436,    .22397,
     +     .00000,    .41885,    .55539,
     +     .04760,    .02421,   9.04912,    .58707,    .25842,
     +     .00000,    .45234,    .58818,
     +     .04845,    .02472,   9.83348,    .61410,    .28729,
     +     .00000,    .47997,    .61526,
     +     .05026,    .02580,  11.50439,    .67469,    .35088,
     +     .00608,    .54181,    .67597,
     +     .05180,    .02672,  12.92400,    .72957,    .40801,
     +     .07366,    .59772,    .73095,
     +     .05353,    .02775,  14.56771,    .79414,    .47525,
     +     .15372,    .66342,    .79564,
     +     .05533,    .02882,  16.33730,    .86443,    .54826,
     +     .23156,    .73484,    .86604,
     +     .05696,    .02979,  17.98302,    .93073,    .61702,
     +     .30487,    .80214,    .93246 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .05860,    .03077,  19.68003,   1.00009,    .68893,
     +     .38113,    .87248,   1.00194,
     +     .05996,    .03157,  21.10275,   1.05927,    .74999,
     +     .44502,    .93246,   1.06121,
     +     .06161,    .03255,  22.83891,   1.13281,    .82563,
     +     .52378,   1.00693,   1.13486,
     +     .06307,    .03342,  24.39481,   1.19968,    .89451,
     +     .59589,   1.07461,   1.20183,
     +     .06440,    .03421,  25.83510,   1.26244,    .95920,
     +     .66365,   1.13811,   1.26469,
     +     .06610,    .03521,  27.64496,   1.34324,   1.04197,
     +     .74930,   1.21981,   1.34560,
     +     .06769,    .03615,  29.35489,   1.42093,   1.12165,
     +     .83205,   1.29833,   1.42340,
     +     .06918,    .03703,  30.96976,   1.49538,   1.19820,
     +     .91188,   1.37355,   1.49796 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07066,    .03791,  32.54670,   1.57018,   1.27455,
     +     .99050,   1.44910,   1.57287,
     +     .07212,    .03876,  34.09615,   1.64474,   1.35088,
     +    1.06951,   1.52438,   1.64753,
     +     .07350,    .03958,  35.55722,   1.71629,   1.42412,
     +    1.14532,   1.59660,   1.71918,
     +     .07479,    .04034,  36.90619,   1.78393,   1.49312,
     +    1.21638,   1.66485,   1.78691,
     +     .07610,    .04110,  38.27304,   1.85316,   1.56400,
     +    1.28976,   1.73470,   1.85623,
     +     .07738,    .04185,  39.57412,   1.92092,   1.63302,
     +    1.36065,   1.80306,   1.92409,
     +     .07860,    .04257,  40.82690,   1.98665,   1.70025,
     +    1.43018,   1.86934,   1.98990,
     +     .07975,    .04324,  41.96955,   2.04830,   1.76301,
     +    1.49456,   1.93152,   2.05164 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08091,    .04392,  43.13181,   2.11151,   1.82755,
     +    1.56111,   1.99525,   2.11493,
     +     .08205,    .04459,  44.24937,   2.17368,   1.89088,
     +    1.62619,   2.05793,   2.17719,
     +     .08315,    .04522,  45.30705,   2.23338,   1.95173,
     +    1.68874,   2.11810,   2.23697,
     +     .08419,    .04583,  46.30732,   2.29050,   2.01002,
     +    1.74879,   2.17568,   2.29417,
     +     .08523,    .04644,  47.28269,   2.34767,   2.06815,
     +    1.80835,   2.23329,   2.35141 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .03938,    .01917,    .77399,    .29865,    .00000,
     +     .00000,    .16093,    .29905,
     +     .04085,    .02006,   1.40171,    .31684,    .00000,
     +     .00000,    .18027,    .31734,
     +     .04300,    .02136,   2.41774,    .34857,    .01559,
     +     .00000,    .21360,    .34920,
     +     .04456,    .02230,   3.21851,    .37466,    .04931,
     +     .00000,    .24080,    .37539,
     +     .04620,    .02329,   4.13125,    .40510,    .08151,
     +     .00000,    .27237,    .40595,
     +     .04760,    .02414,   4.96582,    .43343,    .11135,
     +     .00000,    .30164,    .43437,
     +     .04895,    .02495,   5.82348,    .46238,    .14266,
     +     .00000,    .33146,    .46341,
     +     .05038,    .02581,   6.79026,    .49503,    .17813,
     +     .00000,    .36502,    .49615 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05161,    .02656,   7.65460,    .52495,    .20964,
     +     .00000,    .39571,    .52616,
     +     .05280,    .02727,   8.51889,    .55512,    .24145,
     +     .00000,    .42661,    .55641,
     +     .05375,    .02784,   9.23405,    .57998,    .26803,
     +     .00000,    .45203,    .58134,
     +     .05575,    .02904,  10.74902,    .63551,    .32638,
     +     .00565,    .50873,    .63701,
     +     .05745,    .03007,  12.02719,    .68559,    .37858,
     +     .06749,    .55977,    .68721,
     +     .05936,    .03121,  13.49853,    .74428,    .43978,
     +     .14058,    .61951,    .74604,
     +     .06135,    .03240,  15.07310,    .80789,    .50595,
     +     .21131,    .68418,    .80978,
     +     .06314,    .03348,  16.52924,    .86765,    .56803,
     +     .27767,    .74487,    .86968 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06496,    .03456,  18.02306,    .92995,    .63271,
     +     .34644,    .80809,    .93210,
     +     .06645,    .03545,  19.26929,    .98291,    .68745,
     +     .40385,    .86180,    .98518,
     +     .06827,    .03653,  20.78308,   1.04851,    .75502,
     +     .47441,    .92827,   1.05090,
     +     .06987,    .03748,  22.13351,   1.10796,    .81637,
     +     .53880,    .98849,   1.11047,
     +     .07134,    .03836,  23.37846,   1.16360,    .87382,
     +     .59913,   1.04482,   1.16622,
     +     .07320,    .03946,  24.93521,   1.23499,    .94708,
     +     .67514,   1.11705,   1.23774,
     +     .07494,    .04049,  26.39930,   1.30340,   1.01738,
     +     .74834,   1.18625,   1.30629,
     +     .07657,    .04145,  27.77646,   1.36877,   1.08472,
     +     .81877,   1.25235,   1.37178 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .07820,    .04241,  29.11435,   1.43424,   1.15166,
     +     .88788,   1.31852,   1.43736,
     +     .07979,    .04335,  30.42395,   1.49932,   1.21840,
     +     .95716,   1.38427,   1.50256,
     +     .08130,    .04423,  31.65404,   1.56160,   1.28228,
     +    1.02346,   1.44719,   1.56495,
     +     .08271,    .04506,  32.78495,   1.62031,   1.34229,
     +    1.08543,   1.50649,   1.62377,
     +     .08413,    .04590,  33.92763,   1.68028,   1.40381,
     +    1.14930,   1.56704,   1.68384,
     +     .08553,    .04671,  35.01021,   1.73881,   1.46355,
     +    1.21082,   1.62613,   1.74248,
     +     .08686,    .04749,  36.05012,   1.79548,   1.52163,
     +    1.27106,   1.68334,   1.79925,
     +     .08811,    .04822,  36.99419,   1.84849,   1.57569,
     +    1.32668,   1.73683,   1.85235 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .08937,    .04896,  37.95228,   1.90274,   1.63121,
     +    1.38408,   1.79158,   1.90669,
     +     .09061,    .04968,  38.86977,   1.95598,   1.68556,
     +    1.44009,   1.84530,   1.96002,
     +     .09180,    .05037,  39.73549,   2.00700,   1.73767,
     +    1.49381,   1.89678,   2.01114,
     +     .09293,    .05103,  40.55217,   2.05574,   1.78751,
     +    1.54531,   1.94594,   2.05996,
     +     .09406,    .05169,  41.34513,   2.10439,   1.83710,
     +    1.59626,   1.99502,   2.10870 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .05451,    .02824,    .80103,    .25856,    .00000,
     +     .00000,    .13986,    .25958,
     +     .05658,    .02953,   1.36307,    .27455,    .00000,
     +     .00000,    .15679,    .27573,
     +     .05961,    .03141,   2.24127,    .30164,    .01314,
     +     .00000,    .18521,    .30305,
     +     .06179,    .03276,   2.91248,    .32344,    .04138,
     +     .00000,    .20794,    .32502,
     +     .06407,    .03417,   3.65837,    .34838,    .06778,
     +     .00000,    .23382,    .35013,
     +     .06603,    .03537,   4.32538,    .37120,    .09190,
     +     .00000,    .25743,    .37311,
     +     .06789,    .03651,   4.99826,    .39423,    .11691,
     +     .00000,    .28120,    .39629,
     +     .06987,    .03772,   5.74333,    .41989,    .14491,
     +     .00000,    .30763,    .42210 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07157,    .03876,   6.39792,    .44311,    .16948,
     +     .00000,    .33149,    .44545,
     +     .07321,    .03976,   7.04290,    .46627,    .19403,
     +     .00000,    .35526,    .46875,
     +     .07451,    .04055,   7.57037,    .48521,    .21440,
     +     .00000,    .37468,    .48779,
     +     .07725,    .04221,   8.66676,    .52698,    .25855,
     +     .00444,    .41744,    .52978,
     +     .07958,    .04362,   9.56964,    .56412,    .29750,
     +     .05089,    .45540,    .56710,
     +     .08217,    .04519,  10.58876,    .60706,    .34257,
     +     .10537,    .49924,    .61025,
     +     .08486,    .04680,  11.65766,    .65294,    .39064,
     +     .15726,    .54602,    .65634,
     +     .08728,    .04826,  12.62737,    .69547,    .43515,
     +     .20533,    .58936,    .69906 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .08971,    .04971,  13.60465,    .73926,    .48097,
     +     .25455,    .63395,    .74305,
     +     .09172,    .05091,  14.40650,    .77607,    .51930,
     +     .29518,    .67140,    .78002,
     +     .09414,    .05235,  15.36458,    .82113,    .56610,
     +     .34456,    .71723,    .82528,
     +     .09628,    .05362,  16.20598,    .86153,    .60814,
     +     .38916,    .75830,    .86585,
     +     .09822,    .05477,  16.97092,    .89898,    .64714,
     +     .43057,    .79635,    .90346,
     +     .10068,    .05622,  17.91101,    .94649,    .69630,
     +     .48213,    .84460,    .95116,
     +     .10297,    .05757,  18.78100,    .99151,    .74297,
     +     .53127,    .89031,    .99637,
     +     .10512,    .05883,  19.58781,   1.03412,    .78726,
     +     .57813,    .93356,   1.03915 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .10725,    .06007,  20.35734,   1.07630,    .83078,
     +     .62356,    .97636,   1.08150,
     +     .10932,    .06128,  21.10062,   1.11785,    .87379,
     +     .66874,   1.01852,   1.12322,
     +     .11128,    .06242,  21.78913,   1.15727,    .91459,
     +     .71159,   1.05849,   1.16279,
     +     .11311,    .06349,  22.41208,   1.19406,    .95256,
     +     .75126,   1.09581,   1.19973,
     +     .11495,    .06455,  23.03520,   1.23138,    .99122,
     +     .79189,   1.13365,   1.23720,
     +     .11674,    .06559,  23.61502,   1.26744,   1.02838,
     +     .83062,   1.17021,   1.27340,
     +     .11845,    .06658,  24.16743,   1.30214,   1.06432,
     +     .86834,   1.20540,   1.30824,
     +     .12005,    .06750,  24.65989,   1.33429,   1.09743,
     +     .90284,   1.23798,   1.34052 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12167,    .06843,  25.15577,   1.36701,   1.13127,
     +     .93826,   1.27115,   1.37337,
     +     .12326,    .06934,  25.62320,   1.39885,   1.16411,
     +     .97254,   1.30343,   1.40533,
     +     .12476,    .07020,  26.05936,   1.42916,   1.19540,
     +    1.00521,   1.33415,   1.43577,
     +     .12620,    .07102,  26.46692,   1.45795,   1.22517,
     +    1.03637,   1.36333,   1.46468,
     +     .12763,    .07184,  26.85555,   1.48645,   1.25452,
     +    1.06692,   1.39221,   1.49328 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .07677,    .04280,    .88393,    .22764,    .00000,
     +     .00000,    .12346,    .22983,
     +     .07970,    .04463,   1.38069,    .24149,    .00000,
     +     .00000,    .13813,    .24394,
     +     .08396,    .04727,   2.12450,    .26420,    .01093,
     +     .00000,    .16199,    .26702,
     +     .08701,    .04915,   2.67333,    .28205,    .03424,
     +     .00000,    .18065,    .28514,
     +     .09018,    .05110,   3.26641,    .30203,    .05552,
     +     .00000,    .20146,    .30540,
     +     .09289,    .05275,   3.78350,    .31998,    .07467,
     +     .00000,    .22010,    .32359,
     +     .09546,    .05432,   4.29404,    .33784,    .09425,
     +     .00000,    .23862,    .34168,
     +     .09818,    .05597,   4.84782,    .35747,    .11587,
     +     .00000,    .25893,    .36155 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .10051,    .05738,   5.32472,    .37496,    .13459,
     +     .00000,    .27700,    .37925,
     +     .10275,    .05872,   5.78662,    .39222,    .15308,
     +     .00000,    .29480,    .39670,
     +     .10451,    .05979,   6.15925,    .40620,    .16828,
     +     .00000,    .30922,    .41084,
     +     .10822,    .06200,   6.91648,    .43659,    .20079,
     +     .00342,    .34050,    .44155,
     +     .11135,    .06387,   7.52167,    .46316,    .22902,
     +     .03740,    .36782,    .46840,
     +     .11483,    .06593,   8.18891,    .49342,    .26119,
     +     .07693,    .39889,    .49896,
     +     .11841,    .06804,   8.87208,    .52521,    .29496,
     +     .11391,    .43152,    .53107,
     +     .12162,    .06993,   9.47752,    .55423,    .32577,
     +     .14768,    .46129,    .56037 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .12483,    .07180,  10.07453,    .58368,    .35704,
     +     .18178,    .49147,    .59010,
     +     .12746,    .07334,  10.55434,    .60810,    .38286,
     +     .20956,    .51650,    .61475,
     +     .13062,    .07517,  11.11573,    .63761,    .41397,
     +     .24291,    .54672,    .64453,
     +     .13339,    .07677,  11.59918,    .66373,    .44158,
     +     .27268,    .57346,    .67088,
     +     .13591,    .07822,  12.03111,    .68766,    .46692,
     +     .30003,    .59796,    .69503,
     +     .13907,    .08003,  12.54985,    .71760,    .49842,
     +     .33363,    .62860,    .72524,
     +     .14202,    .08171,  13.01976,    .74561,    .52797,
     +     .36528,    .65726,    .75351,
     +     .14476,    .08327,  13.44746,    .77181,    .55570,
     +     .39514,    .68408,    .77995 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .14745,    .08479,  13.84509,    .79739,    .58257,
     +     .42370,    .71025,    .80575,
     +     .15007,    .08627,  14.22237,    .82232,    .60886,
     +     .45182,    .73575,    .83090,
     +     .15253,    .08765,  14.56517,    .84570,    .63355,
     +     .47824,    .75968,    .85449,
     +     .15482,    .08894,  14.86799,    .86728,    .65625,
     +     .50241,    .78175,    .87626,
     +     .15712,    .09022,  15.16686,    .88898,    .67919,
     +     .52700,    .80397,    .89816,
     +     .15935,    .09146,  15.43707,    .90968,    .70096,
     +     .55014,    .82515,    .91904,
     +     .16146,    .09263,  15.69184,    .92946,    .72189,
     +     .57256,    .84539,    .93900,
     +     .16343,    .09372,  15.91212,    .94755,    .74094,
     +     .59281,    .86392,    .95726 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .16542,    .09481,  16.13160,    .96585,    .76028,
     +     .61349,    .88266,    .97573,
     +     .16736,    .09588,  16.33303,    .98346,    .77887,
     +     .63330,    .90069,    .99350,
     +     .16920,    .09688,  16.51766,   1.00010,    .79644,
     +     .65205,    .91773,   1.01028,
     +     .17094,    .09783,  16.68760,   1.01578,    .81304,
     +     .66982,    .93380,   1.02611,
     +     .17267,    .09878,  16.84429,   1.03112,    .82924,
     +     .68706,    .94952,   1.04160 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .09477,    .05511,    .96699,    .21291,    .00000,
     +     .00000,    .11573,    .21634,
     +     .09836,    .05732,   1.42109,    .22549,    .00000,
     +     .00000,    .12910,    .22926,
     +     .10353,    .06049,   2.08497,    .24569,    .00974,
     +     .00000,    .15042,    .24995,
     +     .10722,    .06273,   2.56364,    .26134,    .03038,
     +     .00000,    .16686,    .26594,
     +     .11105,    .06504,   3.07175,    .27860,    .04896,
     +     .00000,    .18494,    .28357,
     +     .11430,    .06698,   3.50752,    .29393,    .06548,
     +     .00000,    .20094,    .29919,
     +     .11739,    .06883,   3.93170,    .30904,    .08224,
     +     .00000,    .21670,    .31459,
     +     .12064,    .07076,   4.38559,    .32549,    .10059,
     +     .00000,    .23383,    .33135 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .12341,    .07241,   4.77134,    .34002,    .11631,
     +     .00000,    .24892,    .34613,
     +     .12607,    .07397,   5.14073,    .35423,    .13174,
     +     .00000,    .26368,    .36059,
     +     .12816,    .07520,   5.43606,    .36568,    .14435,
     +     .00000,    .27556,    .37223,
     +     .13254,    .07777,   6.02669,    .39033,    .17107,
     +     .00290,    .30109,    .39727,
     +     .13623,    .07991,   6.48870,    .41164,    .19402,
     +     .03077,    .32315,    .41893,
     +     .14030,    .08226,   6.98971,    .43566,    .21992,
     +     .06301,    .34799,    .44331,
     +     .14447,    .08466,   7.49412,    .46061,    .24683,
     +     .09282,    .37378,    .46865,
     +     .14820,    .08679,   7.93376,    .48316,    .27113,
     +     .11978,    .39707,    .49153 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .15191,    .08890,   8.36048,    .50581,    .29557,
     +     .14676,    .42047,    .51451,
     +     .15495,    .09061,   8.69823,    .52441,    .31557,
     +     .16856,    .43968,    .53339,
     +     .15858,    .09266,   9.08730,    .54668,    .33946,
     +     .19451,    .46267,    .55598,
     +     .16175,    .09443,   9.41739,    .56623,    .36049,
     +     .21750,    .48285,    .57580,
     +     .16463,    .09604,   9.70832,    .58400,    .37965,
     +     .23847,    .50120,    .59383,
     +     .16821,    .09802,  10.05127,    .60601,    .40325,
     +     .26401,    .52393,    .61616,
     +     .17154,    .09986,  10.35692,    .62643,    .42520,
     +     .28787,    .54501,    .63686,
     +     .17463,    .10156,  10.63118,    .64537,    .44565,
     +     .31023,    .56457,    .65607 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .17766,    .10321,  10.88019,    .66366,    .46527,
     +     .33142,    .58347,    .67462,
     +     .18060,    .10480,  11.11304,    .68136,    .48435,
     +     .35216,    .60176,    .69257,
     +     .18334,    .10629,  11.32115,    .69783,    .50213,
     +     .37150,    .61879,    .70928,
     +     .18589,    .10766,  11.50078,    .71289,    .51834,
     +     .38907,    .63436,    .72456,
     +     .18844,    .10903,  11.67600,    .72795,    .53465,
     +     .40685,    .64994,    .73984,
     +     .19089,    .11034,  11.82988,    .74217,    .54998,
     +     .42345,    .66466,    .75426,
     +     .19322,    .11158,  11.97372,    .75570,    .56466,
     +     .43947,    .67867,    .76799,
     +     .19539,    .11272,  12.09420,    .76796,    .57790,
     +     .45382,    .69138,    .78043 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .19756,    .11387,  12.21315,    .78031,    .59129,
     +     .46842,    .70417,    .79296,
     +     .19968,    .11498,  12.31897,    .79208,    .60406,
     +     .48231,    .71638,    .80491,
     +     .20168,    .11603,  12.41399,    .80314,    .61607,
     +     .49539,    .72785,    .81613,
     +     .20357,    .11702,  12.50002,    .81351,    .62736,
     +     .50773,    .73861,    .82665,
     +     .20544,    .11800,  12.57586,    .82355,    .63829,
     +     .51961,    .74905,    .83685 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .11070,    .06619,   1.04409,    .20377,    .00000,
     +     .00000,    .11099,    .20849,
     +     .11482,    .06868,   1.46515,    .21541,    .00000,
     +     .00000,    .12342,    .22054,
     +     .12074,    .07223,   2.07021,    .23383,    .00892,
     +     .00000,    .14297,    .23953,
     +     .12495,    .07473,   2.49880,    .24792,    .02776,
     +     .00000,    .15787,    .25404,
     +     .12930,    .07731,   2.94767,    .26332,    .04451,
     +     .00000,    .17409,    .26986,
     +     .13299,    .07947,   3.32782,    .27686,    .05929,
     +     .00000,    .18831,    .28375,
     +     .13648,    .08150,   3.69381,    .29010,    .07418,
     +     .00000,    .20222,    .29733,
     +     .14014,    .08363,   4.08133,    .30443,    .09036,
     +     .00000,    .21723,    .31201 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .14326,    .08544,   4.40732,    .31698,    .10414,
     +     .00000,    .23037,    .32486,
     +     .14624,    .08715,   4.71666,    .32919,    .11758,
     +     .00000,    .24313,    .33734,
     +     .14858,    .08850,   4.96222,    .33898,    .12851,
     +     .00000,    .25336,    .34735,
     +     .15347,    .09129,   5.44701,    .35988,    .15151,
     +     .00256,    .27518,    .36871,
     +     .15757,    .09360,   5.81938,    .37781,    .17111,
     +     .02654,    .29387,    .38702,
     +     .16208,    .09614,   6.21776,    .39784,    .19306,
     +     .05417,    .31474,    .40747,
     +     .16668,    .09872,   6.61326,    .41848,    .21567,
     +     .07948,    .33624,    .42853,
     +     .17079,    .10099,   6.95316,    .43695,    .23593,
     +     .10221,    .35549,    .44738 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .17486,    .10324,   7.27868,    .45538,    .25617,
     +     .12480,    .37468,    .46617,
     +     .17818,    .10506,   7.53293,    .47040,    .27261,
     +     .14293,    .39032,    .48149,
     +     .18213,    .10721,   7.82176,    .48824,    .29211,
     +     .16438,    .40891,    .49968,
     +     .18558,    .10908,   8.06360,    .50378,    .30917,
     +     .18326,    .42511,    .51553,
     +     .18870,    .11076,   8.27418,    .51783,    .32463,
     +     .20040,    .43976,    .52986,
     +     .19257,    .11284,   8.51807,    .53509,    .34352,
     +     .22113,    .45776,    .54745,
     +     .19615,    .11474,   8.73205,    .55097,    .36098,
     +     .24037,    .47433,    .56365,
     +     .19946,    .11650,   8.92140,    .56561,    .37715,
     +     .25831,    .48961,    .57858 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .20270,    .11820,   9.08930,    .57962,    .39255,
     +     .27519,    .50426,    .59286,
     +     .20582,    .11984,   9.24397,    .59309,    .40743,
     +     .29162,    .51834,    .60660,
     +     .20874,    .12136,   9.37977,    .60555,    .42122,
     +     .30687,    .53137,    .61931,
     +     .21144,    .12275,   9.49405,    .61685,    .43372,
     +     .32064,    .54321,    .63083,
     +     .21413,    .12414,   9.60421,    .62810,    .44623,
     +     .33452,    .55500,    .64231,
     +     .21672,    .12547,   9.69753,    .63862,    .45791,
     +     .34739,    .56604,    .65305,
     +     .21916,    .12672,   9.78399,    .64860,    .46905,
     +     .35977,    .57651,    .66323,
     +     .22143,    .12787,   9.85329,    .65756,    .47903,
     +     .37079,    .58593,    .67237 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .22370,    .12902,   9.92097,    .66654,    .48909,
     +     .38197,    .59538,    .68154,
     +     .22590,    .13012,   9.97857,    .67505,    .49862,
     +     .39254,    .60433,    .69022,
     +     .22798,    .13117,  10.02880,    .68299,    .50754,
     +     .40246,    .61270,    .69833,
     +     .22994,    .13215,  10.07314,    .69040,    .51590,
     +     .41179,    .62052,    .70590,
     +     .23188,    .13311,  10.10928,    .69751,    .52393,
     +     .42071,    .62804,    .71316 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .12534,    .07639,   1.11315,    .19721,    .00000,
     +     .00000,    .10766,    .20326,
     +     .12992,    .07910,   1.50700,    .20808,    .00000,
     +     .00000,    .11935,    .21460,
     +     .13647,    .08295,   2.06478,    .22509,    .00830,
     +     .00000,    .13752,    .23226,
     +     .14111,    .08565,   2.45410,    .23798,    .02577,
     +     .00000,    .15124,    .24562,
     +     .14589,    .08842,   2.85744,    .25194,    .04116,
     +     .00000,    .16605,    .26004,
     +     .14992,    .09073,   3.19549,    .26412,    .05464,
     +     .00000,    .17894,    .27261,
     +     .15374,    .09291,   3.51799,    .27597,    .06814,
     +     .00000,    .19146,    .28483,
     +     .15773,    .09518,   3.85647,    .28870,    .08274,
     +     .00000,    .20491,    .29796 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .16114,    .09710,   4.13873,    .29979,    .09509,
     +     .00000,    .21660,    .30937,
     +     .16437,    .09891,   4.40448,    .31051,    .10709,
     +     .00000,    .22790,    .32040,
     +     .16692,    .10034,   4.61413,    .31908,    .11681,
     +     .00000,    .23692,    .32921,
     +     .17220,    .10328,   5.02356,    .33726,    .13713,
     +     .00231,    .25605,    .34789,
     +     .17662,    .10571,   5.33279,    .35274,    .15434,
     +     .02351,    .27232,    .36378,
     +     .18147,    .10836,   5.65971,    .36991,    .17348,
     +     .04786,    .29037,    .38140,
     +     .18640,    .11104,   5.98018,    .38746,    .19306,
     +     .07000,    .30881,    .39941,
     +     .19079,    .11340,   6.25208,    .40307,    .21050,
     +     .08976,    .32522,    .41541 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .19512,    .11572,   6.50937,    .41853,    .22780,
     +     .10929,    .34147,    .43126,
     +     .19864,    .11760,   6.70778,    .43104,    .24178,
     +     .12488,    .35464,    .44409,
     +     .20283,    .11981,   6.93011,    .44581,    .25827,
     +     .14322,    .37019,    .45923,
     +     .20646,    .12171,   7.11398,    .45860,    .27262,
     +     .15929,    .38365,    .47234,
     +     .20975,    .12343,   7.27230,    .47009,    .28554,
     +     .17380,    .39576,    .48411,
     +     .21381,    .12553,   7.45213,    .48410,    .30126,
     +     .19126,    .41055,    .49848,
     +     .21756,    .12746,   7.60735,    .49691,    .31569,
     +     .20739,    .42407,    .51161,
     +     .22102,    .12923,   7.74276,    .50865,    .32899,
     +     .22236,    .43648,    .52365 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .22438,    .13093,   7.85976,    .51979,    .34157,
     +     .23635,    .44828,    .53507,
     +     .22762,    .13256,   7.96567,    .53045,    .35368,
     +     .24992,    .45957,    .54600,
     +     .23064,    .13408,   8.05665,    .54024,    .36484,
     +     .26246,    .46995,    .55604,
     +     .23342,    .13546,   8.13098,    .54905,    .37490,
     +     .27372,    .47932,    .56508,
     +     .23619,    .13683,   8.20165,    .55779,    .38493,
     +     .28504,    .48862,    .57405,
     +     .23884,    .13813,   8.25850,    .56590,    .39423,
     +     .29547,    .49726,    .58237,
     +     .24135,    .13937,   8.31056,    .57356,    .40308,
     +     .30548,    .50544,    .59023,
     +     .24365,    .14049,   8.34935,    .58037,    .41095,
     +     .31434,    .51272,    .59722 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .24597,    .14161,   8.38659,    .58718,    .41886,
     +     .32331,    .52001,    .60421,
     +     .24820,    .14268,   8.41598,    .59357,    .42631,
     +     .33175,    .52687,    .61078,
     +     .25031,    .14369,   8.44025,    .59950,    .43326,
     +     .33964,    .53324,    .61688,
     +     .25229,    .14463,   8.46057,    .60501,    .43975,
     +     .34704,    .53918,    .62254,
     +     .25425,    .14556,   8.47404,    .61025,    .44594,
     +     .35407,    .54484,    .62793 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .15215,    .09493,   1.23070,    .18782,    .00000,
     +     .00000,    .10308,    .19662,
     +     .15746,    .09795,   1.57979,    .19747,    .00000,
     +     .00000,    .11360,    .20681,
     +     .16502,    .10220,   2.06279,    .21228,    .00738,
     +     .00000,    .12966,    .22239,
     +     .17034,    .10517,   2.39187,    .22333,    .02282,
     +     .00000,    .14160,    .23397,
     +     .17579,    .10818,   2.72681,    .23513,    .03621,
     +     .00000,    .15431,    .24631,
     +     .18037,    .11069,   3.00280,    .24529,    .04781,
     +     .00000,    .16524,    .25692,
     +     .18469,    .11304,   3.26214,    .25507,    .05933,
     +     .00000,    .17576,    .26712,
     +     .18919,    .11547,   3.53041,    .26549,    .07166,
     +     .00000,    .18694,    .27797 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .19300,    .11752,   3.75085,    .27446,    .08200,
     +     .00000,    .19656,    .28731,
     +     .19662,    .11945,   3.95574,    .28306,    .09195,
     +     .00000,    .20579,    .29626,
     +     .19946,    .12096,   4.11577,    .28989,    .09998,
     +     .00000,    .21311,    .30335,
     +     .20531,    .12405,   4.42171,    .30423,    .11659,
     +     .00196,    .22847,    .31824,
     +     .21018,    .12659,   4.64587,    .31629,    .13049,
     +     .01933,    .24137,    .33074,
     +     .21549,    .12934,   4.87755,    .32950,    .14580,
     +     .03917,    .25553,    .34444,
     +     .22087,    .13209,   5.09946,    .34283,    .16129,
     +     .05700,    .26982,    .35825,
     +     .22561,    .13451,   5.28326,    .35453,    .17493,
     +     .07276,    .28238,    .37037 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23028,    .13686,   5.45301,    .36598,    .18833,
     +     .08819,    .29469,    .38223,
     +     .23406,    .13874,   5.58063,    .37514,    .19905,
     +     .10039,    .30455,    .39173,
     +     .23852,    .14095,   5.71961,    .38583,    .21157,
     +     .11463,    .31607,    .40279,
     +     .24237,    .14284,   5.83148,    .39497,    .22237,
     +     .12701,    .32594,    .41226,
     +     .24584,    .14453,   5.92532,    .40311,    .23202,
     +     .13811,    .33474,    .42069,
     +     .25010,    .14659,   6.02752,    .41290,    .24363,
     +     .15133,    .34535,    .43083,
     +     .25401,    .14846,   6.11227,    .42173,    .25419,
     +     .16345,    .35495,    .43998,
     +     .25760,    .15016,   6.18350,    .42974,    .26384,
     +     .17460,    .36368,    .44829 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26106,    .15179,   6.24043,    .43722,    .27286,
     +     .18493,    .37185,    .45604,
     +     .26438,    .15334,   6.28951,    .44430,    .28147,
     +     .19488,    .37961,    .46337,
     +     .26747,    .15477,   6.32898,    .45073,    .28934,
     +     .20400,    .38667,    .47004,
     +     .27029,    .15606,   6.35756,    .45643,    .29635,
     +     .21212,    .39296,    .47595,
     +     .27308,    .15733,   6.38326,    .46203,    .30331,
     +     .22025,    .39915,    .48177,
     +     .27574,    .15853,   6.39951,    .46713,    .30969,
     +     .22766,    .40481,    .48706,
     +     .27826,    .15965,   6.41359,    .47191,    .31572,
     +     .23474,    .41015,    .49204,
     +     .28054,    .16067,   6.41932,    .47609,    .32102,
     +     .24095,    .41482,    .49637 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .28283,    .16168,   6.42383,    .48024,    .32632,
     +     .24721,    .41947,    .50069,
     +     .28503,    .16264,   6.42305,    .48406,    .33126,
     +     .25305,    .42379,    .50466,
     +     .28710,    .16354,   6.41971,    .48756,    .33584,
     +     .25847,    .42776,    .50831,
     +     .28904,    .16437,   6.41472,    .49079,    .34008,
     +     .26354,    .43143,    .51167,
     +     .29093,    .16518,   6.40475,    .49379,    .34407,
     +     .26830,    .43487,    .51480 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .18855,    .11948,   1.36530,    .17790,    .00000,
     +     .00000,    .09848,    .19086,
     +     .19466,    .12275,   1.66118,    .18611,    .00000,
     +     .00000,    .10768,    .19969,
     +     .20329,    .12730,   2.05957,    .19845,    .00641,
     +     .00000,    .12142,    .21289,
     +     .20931,    .13043,   2.32311,    .20750,    .01971,
     +     .00000,    .13145,    .22253,
     +     .21544,    .13360,   2.58587,    .21698,    .03105,
     +     .00000,    .14195,    .23260,
     +     .22056,    .13621,   2.79795,    .22502,    .04075,
     +     .00000,    .15085,    .24113,
     +     .22536,    .13864,   2.99358,    .23267,    .05027,
     +     .00000,    .15931,    .24924,
     +     .23034,    .14114,   3.19228,    .24072,    .06036,
     +     .00000,    .16821,    .25775 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .23453,    .14323,   3.35256,    .24757,    .06872,
     +     .00000,    .17578,    .26498,
     +     .23848,    .14518,   3.49903,    .25406,    .07670,
     +     .00000,    .18295,    .27183,
     +     .24157,    .14670,   3.61194,    .25917,    .08308,
     +     .00000,    .18860,    .27722,
     +     .24793,    .14978,   3.82153,    .26975,    .09615,
     +     .00161,    .20032,    .28837,
     +     .25315,    .15229,   3.96790,    .27852,    .10695,
     +     .01536,    .21002,    .29759,
     +     .25880,    .15498,   4.11425,    .28798,    .11869,
     +     .03097,    .22051,    .30752,
     +     .26448,    .15765,   4.24954,    .29735,    .13040,
     +     .04481,    .23093,    .31737,
     +     .26946,    .15995,   4.35727,    .30543,    .14059,
     +     .05689,    .23996,    .32586 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .27432,    .16218,   4.45276,    .31322,    .15047,
     +     .06860,    .24867,    .33404,
     +     .27822,    .16394,   4.52118,    .31935,    .15829,
     +     .07777,    .25555,    .34048,
     +     .28279,    .16598,   4.59173,    .32637,    .16731,
     +     .08835,    .26348,    .34785,
     +     .28671,    .16771,   4.64536,    .33229,    .17500,
     +     .09747,    .27019,    .35406,
     +     .29021,    .16924,   4.68771,    .33748,    .18181,
     +     .10557,    .27609,    .35952,
     +     .29447,    .17108,   4.72895,    .34359,    .18989,
     +     .11512,    .28308,    .36593,
     +     .29835,    .17273,   4.75940,    .34901,    .19715,
     +     .12378,    .28931,    .37162,
     +     .30189,    .17422,   4.78201,    .35384,    .20372,
     +     .13169,    .29490,    .37670 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .30528,    .17562,   4.79444,    .35822,    .20976,
     +     .13892,    .30003,    .38131,
     +     .30850,    .17693,   4.80202,    .36230,    .21547,
     +     .14582,    .30483,    .38559,
     +     .31146,    .17813,   4.80445,    .36593,    .22063,
     +     .15210,    .30913,    .38942,
     +     .31414,    .17920,   4.80075,    .36906,    .22517,
     +     .15763,    .31288,    .39271,
     +     .31679,    .18024,   4.79510,    .37209,    .22963,
     +     .16312,    .31654,    .39591,
     +     .31928,    .18120,   4.78356,    .37475,    .23365,
     +     .16807,    .31979,    .39872,
     +     .32162,    .18210,   4.77189,    .37723,    .23743,
     +     .17279,    .32283,    .40133,
     +     .32374,    .18288,   4.75597,    .37929,    .24069,
     +     .17686,    .32542,    .40351 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .32585,    .18367,   4.73930,    .38132,    .24394,
     +     .18095,    .32798,    .40566,
     +     .32784,    .18440,   4.71952,    .38311,    .24691,
     +     .18472,    .33029,    .40755,
     +     .32971,    .18507,   4.69912,    .38471,    .24964,
     +     .18820,    .33238,    .40925,
     +     .33144,    .18569,   4.67878,    .38615,    .25214,
     +     .19142,    .33428,    .41078,
     +     .33312,    .18627,   4.65517,    .38741,    .25445,
     +     .19442,    .33599,    .41212 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24321,    .15446,   1.50758,    .16529,    .00000,
     +     .00000,    .09304,    .18514,
     +     .25011,    .15778,   1.73585,    .17167,    .00000,
     +     .00000,    .10054,    .19215,
     +     .25973,    .16231,   2.03203,    .18099,    .00528,
     +     .00000,    .11147,    .20235,
     +     .26637,    .16539,   2.21993,    .18767,    .01614,
     +     .00000,    .11927,    .20961,
     +     .27307,    .16844,   2.40199,    .19450,    .02521,
     +     .00000,    .12727,    .21702,
     +     .27859,    .17094,   2.54459,    .20018,    .03283,
     +     .00000,    .13392,    .22316,
     +     .28374,    .17324,   2.67271,    .20549,    .04022,
     +     .00000,    .14014,    .22889,
     +     .28903,    .17557,   2.79945,    .21098,    .04795,
     +     .00000,    .14659,    .23481 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29345,    .17749,   2.89866,    .21556,    .05425,
     +     .00000,    .15198,    .23973,
     +     .29758,    .17927,   2.98689,    .21984,    .06020,
     +     .00000,    .15702,    .24433,
     +     .30079,    .18064,   3.05354,    .22317,    .06492,
     +     .00000,    .16095,    .24790,
     +     .30732,    .18337,   3.17049,    .22993,    .07444,
     +     .00125,    .16895,    .25514,
     +     .31261,    .18555,   3.24419,    .23539,    .08217,
     +     .01139,    .17545,    .26097,
     +     .31828,    .18784,   3.31272,    .24114,    .09044,
     +     .02282,    .18233,    .26710,
     +     .32389,    .19006,   3.37088,    .24667,    .09855,
     +     .03277,    .18901,    .27300,
     +     .32874,    .19194,   3.41243,    .25131,    .10548,
     +     .04134,    .19467,    .27794 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33342,    .19372,   3.44478,    .25565,    .11210,
     +     .04953,    .20000,    .28256,
     +     .33713,    .19509,   3.46407,    .25897,    .11725,
     +     .05586,    .20414,    .28608,
     +     .34140,    .19664,   3.47902,    .26264,    .12310,
     +     .06308,    .20877,    .28999,
     +     .34503,    .19792,   3.48642,    .26563,    .12801,
     +     .06922,    .21261,    .29317,
     +     .34823,    .19903,   3.48881,    .26819,    .13230,
     +     .07462,    .21592,    .29588,
     +     .35206,    .20032,   3.48377,    .27105,    .13729,
     +     .08088,    .21971,    .29892,
     +     .35549,    .20145,   3.47392,    .27348,    .14170,
     +     .08649,    .22301,    .30150,
     +     .35859,    .20243,   3.46122,    .27557,    .14562,
     +     .09156,    .22589,    .30371 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36148,    .20331,   3.44244,    .27732,    .14915,
     +     .09611,    .22842,    .30557,
     +     .36420,    .20411,   3.42166,    .27888,    .15243,
     +     .10042,    .23072,    .30722,
     +     .36666,    .20482,   3.39949,    .28019,    .15536,
     +     .10429,    .23272,    .30859,
     +     .36884,    .20541,   3.37526,    .28121,    .15786,
     +     .10764,    .23437,    .30966,
     +     .37098,    .20598,   3.35014,    .28216,    .16030,
     +     .11094,    .23596,    .31067,
     +     .37293,    .20646,   3.32214,    .28286,    .16243,
     +     .11387,    .23727,    .31140,
     +     .37476,    .20691,   3.29550,    .28349,    .16442,
     +     .11663,    .23848,    .31207,
     +     .37636,    .20726,   3.26764,    .28390,    .16607,
     +     .11898,    .23942,    .31249 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .37795,    .20761,   3.23953,    .28427,    .16771,
     +     .12132,    .24032,    .31287,
     +     .37942,    .20790,   3.21019,    .28450,    .16916,
     +     .12344,    .24107,    .31311,
     +     .38076,    .20815,   3.18166,    .28464,    .17046,
     +     .12537,    .24171,    .31325,
     +     .38200,    .20837,   3.15430,    .28473,    .17164,
     +     .12715,    .24226,    .31334,
     +     .38316,    .20855,   3.12510,    .28468,    .17267,
     +     .12877,    .24266,    .31328 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .29292,    .18406,   1.57803,    .15433,    .00000,
     +     .00000,    .08850,    .18071,
     +     .30014,    .18714,   1.75489,    .15928,    .00000,
     +     .00000,    .09470,    .18624,
     +     .31007,    .19128,   1.97674,    .16638,    .00447,
     +     .00000,    .10353,    .19406,
     +     .31686,    .19404,   2.11198,    .17135,    .01358,
     +     .00000,    .10973,    .19953,
     +     .32362,    .19675,   2.23942,    .17634,    .02107,
     +     .00000,    .11596,    .20498,
     +     .32915,    .19891,   2.33633,    .18041,    .02729,
     +     .00000,    .12106,    .20940,
     +     .33426,    .20087,   2.42110,    .18415,    .03325,
     +     .00000,    .12578,    .21347,
     +     .33947,    .20284,   2.50263,    .18796,    .03943,
     +     .00000,    .13060,    .21759 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .34377,    .20444,   2.56427,    .19108,    .04441,
     +     .00000,    .13456,    .22095,
     +     .34776,    .20590,   2.61733,    .19394,    .04907,
     +     .00000,    .13824,    .22403,
     +     .35086,    .20700,   2.65648,    .19614,    .05274,
     +     .00000,    .14107,    .22640,
     +     .35705,    .20916,   2.71967,    .20052,    .06006,
     +     .00102,    .14675,    .23110,
     +     .36202,    .21083,   2.75248,    .20397,    .06592,
     +     .00891,    .15127,    .23477,
     +     .36725,    .21253,   2.77842,    .20750,    .07211,
     +     .01776,    .15597,    .23851,
     +     .37235,    .21413,   2.79561,    .21077,    .07809,
     +     .02538,    .16043,    .24198,
     +     .37670,    .21543,   2.80301,    .21341,    .08313,
     +     .03185,    .16411,    .24476 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .38081,    .21662,   2.80364,    .21579,    .08788,
     +     .03798,    .16751,    .24724,
     +     .38402,    .21750,   2.79888,    .21752,    .09153,
     +     .04266,    .17007,    .24905,
     +     .38767,    .21843,   2.78738,    .21934,    .09561,
     +     .04795,    .17287,    .25094,
     +     .39072,    .21917,   2.77337,    .22075,    .09900,
     +     .05241,    .17513,    .25239,
     +     .39336,    .21978,   2.75769,    .22189,    .10192,
     +     .05630,    .17702,    .25356,
     +     .39645,    .22042,   2.73261,    .22304,    .10525,
     +     .06075,    .17911,    .25471,
     +     .39916,    .22094,   2.70604,    .22392,    .10815,
     +     .06470,    .18084,    .25558,
     +     .40156,    .22137,   2.67927,    .22460,    .11070,
     +     .06823,    .18231,    .25622 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40371,    .22168,   2.64872,    .22503,    .11293,
     +     .07136,    .18349,    .25660,
     +     .40571,    .22193,   2.61767,    .22534,    .11499,
     +     .07429,    .18452,    .25685,
     +     .40748,    .22210,   2.58699,    .22549,    .11678,
     +     .07690,    .18536,    .25695,
     +     .40899,    .22219,   2.55628,    .22549,    .11828,
     +     .07913,    .18598,    .25688,
     +     .41044,    .22226,   2.52533,    .22544,    .11972,
     +     .08131,    .18655,    .25675,
     +     .41172,    .22225,   2.49302,    .22522,    .12093,
     +     .08321,    .18693,    .25645,
     +     .41290,    .22223,   2.46265,    .22498,    .12206,
     +     .08500,    .18726,    .25614,
     +     .41386,    .22214,   2.43248,    .22463,    .12295,
     +     .08648,    .18742,    .25570 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41480,    .22204,   2.40236,    .22426,    .12383,
     +     .08796,    .18755,    .25522,
     +     .41563,    .22190,   2.37187,    .22378,    .12458,
     +     .08928,    .18758,    .25465,
     +     .41636,    .22174,   2.34271,    .22328,    .12522,
     +     .09047,    .18755,    .25405,
     +     .41701,    .22156,   2.31510,    .22278,    .12580,
     +     .09155,    .18748,    .25345,
     +     .41756,    .22134,   2.28644,    .22218,    .12627,
     +     .09251,    .18732,    .25274 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .38150,    .23149,   1.58848,    .13428,    .00000,
     +     .00000,    .08019,    .17170,
     +     .38836,    .23366,   1.69287,    .13719,    .00000,
     +     .00000,    .08440,    .17483,
     +     .39757,    .23640,   1.81448,    .14118,    .00331,
     +     .00000,    .09022,    .17907,
     +     .40368,    .23813,   1.88158,    .14389,    .01000,
     +     .00000,    .09417,    .18188,
     +     .40964,    .23973,   1.94056,    .14647,    .01537,
     +     .00000,    .09803,    .18456,
     +     .41440,    .24092,   1.98182,    .14849,    .01974,
     +     .00000,    .10110,    .18660,
     +     .41870,    .24194,   2.01518,    .15027,    .02387,
     +     .00000,    .10387,    .18839,
     +     .42300,    .24291,   2.04442,    .15202,    .02808,
     +     .00000,    .10664,    .19011 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .42647,    .24362,   2.06356,    .15338,    .03142,
     +     .00000,    .10884,    .19142,
     +     .42962,    .24422,   2.07770,    .15457,    .03450,
     +     .00000,    .11083,    .19256,
     +     .43202,    .24465,   2.08695,    .15545,    .03690,
     +     .00000,    .11234,    .19340,
     +     .43666,    .24537,   2.09336,    .15711,    .04160,
     +     .00072,    .11526,    .19491,
     +     .44022,    .24580,   2.08499,    .15828,    .04528,
     +     .00592,    .11749,    .19594,
     +     .44382,    .24612,   2.06947,    .15937,    .04909,
     +     .01171,    .11970,    .19681,
     +     .44716,    .24628,   2.04822,    .16020,    .05269,
     +     .01659,    .12167,    .19741,
     +     .44985,    .24627,   2.02483,    .16074,    .05565,
     +     .02067,    .12319,    .19771 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .45226,    .24615,   1.99800,    .16109,    .05837,
     +     .02447,    .12449,    .19781,
     +     .45402,    .24595,   1.97332,    .16122,    .06042,
     +     .02733,    .12540,    .19771,
     +     .45586,    .24559,   1.94091,    .16121,    .06265,
     +     .03050,    .12628,    .19738,
     +     .45729,    .24519,   1.91086,    .16107,    .06445,
     +     .03314,    .12691,    .19696,
     +     .45844,    .24477,   1.88237,    .16084,    .06597,
     +     .03540,    .12737,    .19648,
     +     .45960,    .24410,   1.84427,    .16037,    .06765,
     +     .03795,    .12776,    .19567,
     +     .46048,    .24340,   1.80771,    .15982,    .06906,
     +     .04017,    .12798,    .19479,
     +     .46116,    .24269,   1.77323,    .15922,    .07027,
     +     .04212,    .12809,    .19387 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .46158,    .24188,   1.73750,    .15849,    .07127,
     +     .04381,    .12803,    .19281,
     +     .46187,    .24104,   1.70265,    .15770,    .07216,
     +     .04537,    .12790,    .19170,
     +     .46202,    .24020,   1.66964,    .15690,    .07290,
     +     .04673,    .12769,    .19058,
     +     .46199,    .23934,   1.63816,    .15606,    .07348,
     +     .04787,    .12739,    .18943,
     +     .46192,    .23847,   1.60706,    .15519,    .07403,
     +     .04897,    .12707,    .18826,
     +     .46166,    .23754,   1.57604,    .15425,    .07444,
     +     .04989,    .12665,    .18701,
     +     .46140,    .23666,   1.54722,    .15336,    .07481,
     +     .05076,    .12624,    .18582,
     +     .46098,    .23576,   1.51961,    .15244,    .07505,
     +     .05145,    .12576,    .18462 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .46055,    .23486,   1.49235,    .15151,    .07529,
     +     .05212,    .12526,    .18341,
     +     .46000,    .23393,   1.46545,    .15054,    .07544,
     +     .05271,    .12472,    .18217,
     +     .45943,    .23303,   1.44011,    .14960,    .07556,
     +     .05323,    .12417,    .18096,
     +     .45886,    .23216,   1.41641,    .14869,    .07565,
     +     .05369,    .12364,    .17981,
     +     .45817,    .23124,   1.39238,    .14773,    .07567,
     +     .05407,    .12305,    .17858 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .45801,    .26691,   1.50558,    .11605,    .00000,
     +     .00000,    .07220,    .16115,
     +     .46362,    .26783,   1.56368,    .11762,    .00000,
     +     .00000,    .07503,    .16249,
     +     .47086,    .26878,   1.62397,    .11968,    .00253,
     +     .00000,    .07880,    .16414,
     +     .47549,    .26922,   1.65144,    .12099,    .00758,
     +     .00000,    .08130,    .16512,
     +     .47983,    .26947,   1.67202,    .12217,    .01158,
     +     .00000,    .08365,    .16592,
     +     .48315,    .26951,   1.68296,    .12301,    .01478,
     +     .00000,    .08547,    .16639,
     +     .48605,    .26944,   1.68914,    .12369,    .01778,
     +     .00000,    .08705,    .16672,
     +     .48885,    .26925,   1.69154,    .12431,    .02079,
     +     .00000,    .08859,    .16695 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .49098,    .26897,   1.68953,    .12471,    .02315,
     +     .00000,    .08978,    .16701,
     +     .49282,    .26863,   1.68482,    .12501,    .02531,
     +     .00000,    .09081,    .16698,
     +     .49417,    .26832,   1.67991,    .12521,    .02697,
     +     .00000,    .09156,    .16690,
     +     .49656,    .26750,   1.66069,    .12548,    .03018,
     +     .00053,    .09297,    .16654,
     +     .49818,    .26662,   1.63513,    .12554,    .03265,
     +     .00417,    .09396,    .16607,
     +     .49959,    .26551,   1.60336,    .12544,    .03517,
     +     .00821,    .09486,    .16535,
     +     .50064,    .26421,   1.56806,    .12514,    .03750,
     +     .01156,    .09555,    .16441,
     +     .50124,    .26291,   1.53431,    .12472,    .03937,
     +     .01432,    .09599,    .16339 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .50155,    .26151,   1.49911,    .12418,    .04106,
     +     .01686,    .09628,    .16223,
     +     .50157,    .26026,   1.46903,    .12363,    .04230,
     +     .01875,    .09638,    .16118,
     +     .50132,    .25865,   1.43180,    .12284,    .04362,
     +     .02082,    .09638,    .15979,
     +     .50089,    .25716,   1.39875,    .12207,    .04467,
     +     .02251,    .09627,    .15849,
     +     .50034,    .25578,   1.36848,    .12132,    .04553,
     +     .02395,    .09611,    .15724,
     +     .49936,    .25390,   1.32961,    .12026,    .04644,
     +     .02554,    .09577,    .15553,
     +     .49824,    .25209,   1.29342,    .11920,    .04717,
     +     .02691,    .09535,    .15388,
     +     .49707,    .25038,   1.26005,    .11817,    .04779,
     +     .02810,    .09490,    .15229 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .49565,    .24857,   1.22655,    .11704,    .04826,
     +     .02910,    .09436,    .15061,
     +     .49416,    .24678,   1.19444,    .11592,    .04865,
     +     .03002,    .09378,    .14896,
     +     .49263,    .24506,   1.16455,    .11484,    .04896,
     +     .03080,    .09319,    .14737,
     +     .49104,    .24340,   1.13661,    .11377,    .04917,
     +     .03144,    .09257,    .14583,
     +     .48941,    .24174,   1.10927,    .11269,    .04936,
     +     .03205,    .09194,    .14428,
     +     .48763,    .24004,   1.08251,    .11158,    .04946,
     +     .03255,    .09125,    .14272,
     +     .48594,    .23844,   1.05782,    .11054,    .04954,
     +     .03301,    .09060,    .14124,
     +     .48419,    .23687,   1.03458,    .10951,    .04956,
     +     .03336,    .08993,    .13981 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .48242,    .23531,   1.01178,    .10849,    .04956,
     +     .03370,    .08927,    .13837,
     +     .48058,    .23374,    .98954,    .10745,    .04952,
     +     .03398,    .08857,    .13693,
     +     .47878,    .23224,    .96877,    .10645,    .04946,
     +     .03422,    .08790,    .13556,
     +     .47705,    .23081,    .94947,    .10551,    .04939,
     +     .03443,    .08725,    .13427,
     +     .47519,    .22933,    .93013,    .10453,    .04928,
     +     .03459,    .08657,    .13293 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .52357,    .29288,   1.38284,    .09977,    .00000,
     +     .00000,    .06450,    .14905,
     +     .52734,    .29245,   1.41114,    .10048,    .00000,
     +     .00000,    .06631,    .14904,
     +     .53184,    .29146,   1.43344,    .10132,    .00196,
     +     .00000,    .06868,    .14881,
     +     .53448,    .29053,   1.43741,    .10179,    .00586,
     +     .00000,    .07017,    .14853,
     +     .53669,    .28938,   1.43579,    .10212,    .00890,
     +     .00000,    .07153,    .14803,
     +     .53818,    .28824,   1.42978,    .10227,    .01132,
     +     .00000,    .07253,    .14746,
     +     .53932,    .28706,   1.42120,    .10233,    .01355,
     +     .00000,    .07337,    .14683,
     +     .54024,    .28573,   1.40947,    .10231,    .01578,
     +     .00000,    .07415,    .14609 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .54076,    .28448,   1.39666,    .10219,    .01750,
     +     .00000,    .07469,    .14536,
     +     .54104,    .28320,   1.38261,    .10202,    .01906,
     +     .00000,    .07513,    .14459,
     +     .54117,    .28216,   1.37085,    .10186,    .02026,
     +     .00000,    .07545,    .14395,
     +     .54097,    .27985,   1.34012,    .10140,    .02254,
     +     .00041,    .07595,    .14247,
     +     .54040,    .27774,   1.30784,    .10089,    .02426,
     +     .00305,    .07623,    .14110,
     +     .53939,    .27527,   1.27037,    .10020,    .02600,
     +     .00597,    .07639,    .13948,
     +     .53795,    .27260,   1.23086,    .09935,    .02757,
     +     .00836,    .07638,    .13768,
     +     .53632,    .27011,   1.19471,    .09850,    .02881,
     +     .01031,    .07623,    .13597 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .53441,    .26754,   1.15826,    .09757,    .02991,
     +     .01209,    .07599,    .13417,
     +     .53263,    .26534,   1.12802,    .09671,    .03069,
     +     .01339,    .07571,    .13263,
     +     .53018,    .26265,   1.09153,    .09564,    .03151,
     +     .01480,    .07526,    .13070,
     +     .52785,    .26023,   1.05979,    .09465,    .03214,
     +     .01595,    .07480,    .12896,
     +     .52562,    .25798,   1.03118,    .09370,    .03264,
     +     .01691,    .07433,    .12736,
     +     .52250,    .25508,    .99524,    .09244,    .03315,
     +     .01796,    .07367,    .12527,
     +     .51942,    .25233,    .96229,    .09122,    .03355,
     +     .01885,    .07299,    .12329,
     +     .51645,    .24974,    .93232,    .09007,    .03385,
     +     .01962,    .07231,    .12145 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .51324,    .24712,    .90275,    .08887,    .03407,
     +     .02025,    .07157,    .11957,
     +     .51005,    .24456,    .87470,    .08770,    .03423,
     +     .02081,    .07083,    .11773,
     +     .50694,    .24212,    .84887,    .08657,    .03434,
     +     .02129,    .07011,    .11598,
     +     .50389,    .23979,    .82499,    .08549,    .03438,
     +     .02167,    .06939,    .11433,
     +     .50083,    .23747,    .80177,    .08441,    .03441,
     +     .02203,    .06867,    .11270,
     +     .49766,    .23516,    .77934,    .08332,    .03438,
     +     .02231,    .06793,    .11107,
     +     .49467,    .23300,    .75875,    .08230,    .03435,
     +     .02256,    .06722,    .10955,
     +     .49170,    .23092,    .73956,    .08132,    .03427,
     +     .02275,    .06653,    .10809 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .48872,    .22885,    .72080,    .08035,    .03419,
     +     .02292,    .06584,    .10664,
     +     .48571,    .22678,    .70267,    .07937,    .03407,
     +     .02306,    .06514,    .10521,
     +     .48282,    .22482,    .68583,    .07844,    .03396,
     +     .02317,    .06446,    .10386,
     +     .48006,    .22296,    .67025,    .07757,    .03383,
     +     .02327,    .06383,    .10259,
     +     .47719,    .22108,    .65476,    .07667,    .03368,
     +     .02333,    .06317,    .10129 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .59109,    .31453,   1.21452,    .08231,    .00000,
     +     .00000,    .05541,    .13234,
     +     .59200,    .31242,   1.22011,    .08239,    .00000,
     +     .00000,    .05636,    .13119,
     +     .59239,    .30905,   1.21468,    .08233,    .00146,
     +     .00000,    .05753,    .12942,
     +     .59211,    .30646,   1.20233,    .08219,    .00433,
     +     .00000,    .05822,    .12807,
     +     .59129,    .30360,   1.18581,    .08193,    .00655,
     +     .00000,    .05877,    .12658,
     +     .59019,    .30106,   1.16888,    .08161,    .00828,
     +     .00000,    .05913,    .12520,
     +     .58888,    .29857,   1.15112,    .08125,    .00987,
     +     .00000,    .05938,    .12386,
     +     .58725,    .29589,   1.13093,    .08081,    .01144,
     +     .00000,    .05957,    .12241 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .58557,    .29349,   1.11200,    .08038,    .01264,
     +     .00000,    .05965,    .12108,
     +     .58378,    .29115,   1.09294,    .07990,    .01372,
     +     .00000,    .05967,    .11978,
     +     .58228,    .28929,   1.07767,    .07951,    .01453,
     +     .00000,    .05966,    .11875,
     +     .57869,    .28528,   1.04188,    .07863,    .01607,
     +     .00030,    .05952,    .11653,
     +     .57529,    .28178,   1.00779,    .07778,    .01721,
     +     .00212,    .05930,    .11461,
     +     .57119,    .27783,    .96963,    .07678,    .01834,
     +     .00414,    .05896,    .11242,
     +     .56660,    .27369,    .93064,    .07568,    .01934,
     +     .00577,    .05850,    .11011,
     +     .56221,    .26992,    .89594,    .07462,    .02011,
     +     .00709,    .05800,    .10799 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .55759,    .26610,    .86172,    .07351,    .02077,
     +     .00827,    .05744,    .10585,
     +     .55357,    .26294,    .83388,    .07257,    .02123,
     +     .00912,    .05692,    .10407,
     +     .54853,    .25909,    .80093,    .07139,    .02169,
     +     .01004,    .05624,    .10191,
     +     .54397,    .25569,    .77270,    .07034,    .02204,
     +     .01077,    .05560,    .10001,
     +     .53971,    .25260,    .74760,    .06938,    .02230,
     +     .01138,    .05499,    .09826,
     +     .53412,    .24865,    .71654,    .06810,    .02254,
     +     .01203,    .05418,    .09607,
     +     .52879,    .24496,    .68846,    .06690,    .02271,
     +     .01257,    .05339,    .09404,
     +     .52376,    .24155,    .66318,    .06578,    .02283,
     +     .01303,    .05264,    .09215 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .51858,    .23811,    .63859,    .06464,    .02289,
     +     .01340,    .05186,    .09027,
     +     .51349,    .23479,    .61548,    .06353,    .02291,
     +     .01372,    .05109,    .08846,
     +     .50863,    .23168,    .59440,    .06249,    .02290,
     +     .01399,    .05035,    .08676,
     +     .50397,    .22874,    .57512,    .06150,    .02285,
     +     .01419,    .04964,    .08517,
     +     .49932,    .22584,    .55650,    .06053,    .02280,
     +     .01438,    .04894,    .08360,
     +     .49465,    .22296,    .53866,    .05956,    .02271,
     +     .01452,    .04823,    .08206,
     +     .49026,    .22028,    .52236,    .05866,    .02262,
     +     .01465,    .04756,    .08064,
     +     .48602,    .21773,    .50732,    .05779,    .02251,
     +     .01473,    .04692,    .07929 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .48180,    .21519,    .49270,    .05694,    .02239,
     +     .01481,    .04628,    .07796,
     +     .47757,    .21268,    .47865,    .05609,    .02226,
     +     .01486,    .04564,    .07666,
     +     .47355,    .21032,    .46566,    .05529,    .02213,
     +     .01489,    .04504,    .07544,
     +     .46974,    .20810,    .45371,    .05454,    .02200,
     +     .01491,    .04447,    .07429,
     +     .46583,    .20585,    .44191,    .05378,    .02185,
     +     .01492,    .04389,    .07312 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .64336,    .32644,   1.05342,    .06795,    .00000,
     +     .00000,    .04703,    .11486,
     +     .64116,    .32268,   1.04606,    .06765,    .00000,
     +     .00000,    .04743,    .11305,
     +     .63712,    .31702,   1.02563,    .06709,    .00110,
     +     .00000,    .04786,    .11041,
     +     .63371,    .31292,   1.00510,    .06662,    .00326,
     +     .00000,    .04806,    .10850,
     +     .62968,    .30852,    .98150,    .06606,    .00490,
     +     .00000,    .04815,    .10644,
     +     .62588,    .30471,    .95969,    .06550,    .00617,
     +     .00000,    .04813,    .10466,
     +     .62206,    .30105,    .93811,    .06494,    .00733,
     +     .00000,    .04805,    .10295,
     +     .61783,    .29718,    .91470,    .06431,    .00845,
     +     .00000,    .04791,    .10115 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .61395,    .29379,    .89373,    .06372,    .00931,
     +     .00000,    .04773,    .09958,
     +     .61007,    .29053,    .87325,    .06312,    .01006,
     +     .00000,    .04752,    .09807,
     +     .60695,    .28796,    .85714,    .06264,    .01064,
     +     .00000,    .04733,    .09688,
     +     .60002,    .28253,    .82107,    .06159,    .01170,
     +     .00023,    .04688,    .09434,
     +     .59387,    .27788,    .78830,    .06065,    .01247,
     +     .00152,    .04642,    .09221,
     +     .58682,    .27269,    .75240,    .05955,    .01322,
     +     .00295,    .04585,    .08986,
     +     .57928,    .26734,    .71638,    .05838,    .01387,
     +     .00409,    .04519,    .08743,
     +     .57229,    .26256,    .68485,    .05730,    .01436,
     +     .00499,    .04455,    .08524 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .56515,    .25777,    .65420,    .05620,    .01477,
     +     .00580,    .04386,    .08307,
     +     .55913,    .25384,    .62962,    .05528,    .01504,
     +     .00638,    .04327,    .08129,
     +     .55175,    .24909,    .60086,    .05414,    .01530,
     +     .00699,    .04253,    .07915,
     +     .54520,    .24494,    .57649,    .05313,    .01548,
     +     .00747,    .04186,    .07730,
     +     .53919,    .24120,    .55500,    .05221,    .01561,
     +     .00787,    .04122,    .07564,
     +     .53143,    .23649,    .52874,    .05103,    .01571,
     +     .00828,    .04040,    .07357,
     +     .52414,    .23213,    .50524,    .04994,    .01577,
     +     .00862,    .03963,    .07165,
     +     .51737,    .22811,    .48427,    .04894,    .01580,
     +     .00890,    .03890,    .06988 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .51047,    .22412,    .46404,    .04792,    .01578,
     +     .00913,    .03817,    .06814,
     +     .50378,    .22028,    .44517,    .04695,    .01575,
     +     .00932,    .03745,    .06649,
     +     .49748,    .21669,    .42807,    .04603,    .01569,
     +     .00947,    .03677,    .06496,
     +     .49151,    .21334,    .41257,    .04516,    .01562,
     +     .00958,    .03613,    .06354,
     +     .48559,    .21005,    .39769,    .04432,    .01553,
     +     .00968,    .03549,    .06215,
     +     .47972,    .20679,    .38353,    .04348,    .01543,
     +     .00975,    .03486,    .06080,
     +     .47423,    .20377,    .37065,    .04270,    .01532,
     +     .00980,    .03427,    .05955,
     +     .46896,    .20093,    .35885,    .04197,    .01521,
     +     .00983,    .03371,    .05837 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .46372,    .19812,    .34741,    .04125,    .01509,
     +     .00986,    .03316,    .05720,
     +     .45854,    .19535,    .33649,    .04055,    .01497,
     +     .00987,    .03261,    .05607,
     +     .45364,    .19275,    .32643,    .03988,    .01485,
     +     .00987,    .03209,    .05502,
     +     .44904,    .19031,    .31721,    .03926,    .01473,
     +     .00987,    .03161,    .05404,
     +     .44434,    .18786,    .30816,    .03862,    .01460,
     +     .00985,    .03113,    .05305 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .68144,    .33031,    .90969,    .05627,    .00000,
     +     .00000,    .03948,    .09753,
     +     .67599,    .32511,    .89499,    .05577,    .00000,
     +     .00000,    .03955,    .09538,
     +     .66734,    .31753,    .86665,    .05497,    .00084,
     +     .00000,    .03948,    .09231,
     +     .66079,    .31210,    .84227,    .05436,    .00248,
     +     .00000,    .03938,    .09013,
     +     .65357,    .30639,    .81563,    .05364,    .00371,
     +     .00000,    .03917,    .08789,
     +     .64714,    .30150,    .79204,    .05299,    .00465,
     +     .00000,    .03894,    .08596,
     +     .64088,    .29685,    .76931,    .05234,    .00551,
     +     .00000,    .03867,    .08414,
     +     .63415,    .29197,    .74524,    .05162,    .00633,
     +     .00000,    .03836,    .08226 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .62816,    .28778,    .72415,    .05098,    .00695,
     +     .00000,    .03805,    .08063,
     +     .62229,    .28377,    .70392,    .05035,    .00749,
     +     .00000,    .03772,    .07907,
     +     .61765,    .28064,    .68817,    .04985,    .00790,
     +     .00000,    .03745,    .07786,
     +     .60763,    .27405,    .65384,    .04877,    .00864,
     +     .00017,    .03683,    .07533,
     +     .59896,    .26848,    .62360,    .04782,    .00917,
     +     .00110,    .03628,    .07322,
     +     .58919,    .26236,    .59096,    .04674,    .00968,
     +     .00213,    .03562,    .07093,
     +     .57898,    .25611,    .55865,    .04562,    .01010,
     +     .00294,    .03490,    .06859,
     +     .56971,    .25055,    .53070,    .04460,    .01042,
     +     .00358,    .03423,    .06651 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .56038,    .24505,    .50382,    .04356,    .01067,
     +     .00414,    .03353,    .06448,
     +     .55265,    .24053,    .48249,    .04270,    .01083,
     +     .00454,    .03294,    .06283,
     +     .54323,    .23516,    .45776,    .04166,    .01097,
     +     .00495,    .03222,    .06087,
     +     .53497,    .23052,    .43699,    .04075,    .01107,
     +     .00528,    .03157,    .05919,
     +     .52748,    .22634,    .41884,    .03991,    .01113,
     +     .00554,    .03098,    .05769,
     +     .51795,    .22109,    .39683,    .03886,    .01116,
     +     .00581,    .03022,    .05584,
     +     .50907,    .21627,    .37729,    .03789,    .01116,
     +     .00603,    .02952,    .05414,
     +     .50085,    .21186,    .35999,    .03701,    .01114,
     +     .00621,    .02887,    .05259 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .49263,    .20750,    .34344,    .03612,    .01109,
     +     .00634,    .02821,    .05108,
     +     .48470,    .20333,    .32810,    .03527,    .01103,
     +     .00645,    .02758,    .04966,
     +     .47729,    .19945,    .31429,    .03448,    .01096,
     +     .00654,    .02699,    .04834,
     +     .47030,    .19586,    .30184,    .03374,    .01088,
     +     .00660,    .02643,    .04712,
     +     .46339,    .19235,    .28992,    .03302,    .01079,
     +     .00665,    .02588,    .04593,
     +     .45659,    .18890,    .27867,    .03231,    .01069,
     +     .00668,    .02535,    .04479,
     +     .45027,    .18570,    .26849,    .03166,    .01060,
     +     .00670,    .02485,    .04373,
     +     .44426,    .18270,    .25919,    .03105,    .01049,
     +     .00671,    .02438,    .04274 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .43832,    .17973,    .25021,    .03045,    .01039,
     +     .00671,    .02392,    .04177,
     +     .43246,    .17684,    .24167,    .02986,    .01028,
     +     .00671,    .02347,    .04083,
     +     .42692,    .17413,    .23384,    .02931,    .01018,
     +     .00670,    .02304,    .03996,
     +     .42174,    .17160,    .22669,    .02880,    .01007,
     +     .00668,    .02264,    .03915,
     +     .41651,    .16905,    .21972,    .02827,    .00996,
     +     .00666,    .02224,    .03834 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .70624,    .32778,    .78547,    .04682,    .00000,
     +     .00000,    .03276,    .08104,
     +     .69765,    .32130,    .76658,    .04620,    .00000,
     +     .00000,    .03260,    .07885,
     +     .68460,    .31204,    .73416,    .04527,    .00065,
     +     .00000,    .03229,    .07570,
     +     .67506,    .30547,    .70821,    .04456,    .00190,
     +     .00000,    .03202,    .07352,
     +     .66483,    .29868,    .68067,    .04380,    .00283,
     +     .00000,    .03167,    .07128,
     +     .65593,    .29290,    .65684,    .04308,    .00354,
     +     .00000,    .03132,    .06941,
     +     .64739,    .28747,    .63426,    .04240,    .00417,
     +     .00000,    .03097,    .06765,
     +     .63834,    .28182,    .61070,    .04167,    .00478,
     +     .00000,    .03058,    .06582 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .63043,    .27697,    .59043,    .04103,    .00522,
     +     .00000,    .03022,    .06425,
     +     .62279,    .27237,    .57118,    .04040,    .00561,
     +     .00000,    .02985,    .06279,
     +     .61679,    .26879,    .55630,    .03990,    .00591,
     +     .00000,    .02955,    .06166,
     +     .60400,    .26133,    .52456,    .03885,    .00643,
     +     .00013,    .02889,    .05931,
     +     .59313,    .25506,    .49718,    .03794,    .00680,
     +     .00081,    .02832,    .05737,
     +     .58104,    .24824,    .46796,    .03692,    .00714,
     +     .00156,    .02766,    .05527,
     +     .56855,    .24134,    .43937,    .03587,    .00742,
     +     .00214,    .02696,    .05316,
     +     .55735,    .23524,    .41491,    .03492,    .00762,
     +     .00259,    .02631,    .05131 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .54617,    .22924,    .39162,    .03397,    .00778,
     +     .00299,    .02565,    .04951,
     +     .53698,    .22436,    .37328,    .03320,    .00787,
     +     .00326,    .02511,    .04806,
     +     .52593,    .21859,    .35218,    .03225,    .00794,
     +     .00355,    .02445,    .04635,
     +     .51631,    .21361,    .33460,    .03144,    .00798,
     +     .00377,    .02388,    .04490,
     +     .50761,    .20915,    .31935,    .03072,    .00800,
     +     .00394,    .02335,    .04360,
     +     .49667,    .20360,    .30100,    .02979,    .00799,
     +     .00412,    .02267,    .04201,
     +     .48655,    .19853,    .28482,    .02895,    .00797,
     +     .00426,    .02206,    .04056,
     +     .47726,    .19392,    .27057,    .02819,    .00793,
     +     .00437,    .02150,    .03925 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .46802,    .18938,    .25705,    .02742,    .00787,
     +     .00445,    .02094,    .03798,
     +     .45915,    .18506,    .24460,    .02670,    .00780,
     +     .00452,    .02040,    .03679,
     +     .45089,    .18105,    .23347,    .02603,    .00773,
     +     .00457,    .01990,    .03570,
     +     .44319,    .17735,    .22347,    .02541,    .00765,
     +     .00460,    .01943,    .03469,
     +     .43561,    .17373,    .21394,    .02479,    .00757,
     +     .00462,    .01897,    .03372,
     +     .42818,    .17020,    .20498,    .02420,    .00748,
     +     .00463,    .01853,    .03279,
     +     .42127,    .16694,    .19689,    .02366,    .00740,
     +     .00464,    .01811,    .03193,
     +     .41475,    .16390,    .18956,    .02315,    .00731,
     +     .00463,    .01773,    .03112 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .40831,    .16091,    .18251,    .02265,    .00722,
     +     .00463,    .01736,    .03034,
     +     .40201,    .15800,    .17585,    .02216,    .00713,
     +     .00461,    .01699,    .02958,
     +     .39608,    .15527,    .16977,    .02171,    .00704,
     +     .00459,    .01664,    .02887,
     +     .39054,    .15273,    .16423,    .02129,    .00696,
     +     .00457,    .01632,    .02822,
     +     .38495,    .15019,    .15883,    .02087,    .00687,
     +     .00455,    .01600,    .02757 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .71901,    .31996,    .67942,    .03908,    .00000,
     +     .00000,    .02690,    .06599,
     +     .70740,    .31248,    .65810,    .03843,    .00000,
     +     .00000,    .02664,    .06386,
     +     .69026,    .30184,    .62373,    .03742,    .00050,
     +     .00000,    .02618,    .06091,
     +     .67797,    .29439,    .59746,    .03667,    .00146,
     +     .00000,    .02583,    .05888,
     +     .66501,    .28672,    .57010,    .03587,    .00217,
     +     .00000,    .02543,    .05680,
     +     .65387,    .28029,    .54680,    .03518,    .00270,
     +     .00000,    .02506,    .05504,
     +     .64329,    .27426,    .52502,    .03450,    .00317,
     +     .00000,    .02467,    .05343,
     +     .63220,    .26802,    .50257,    .03378,    .00362,
     +     .00000,    .02425,    .05178 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .62261,    .26269,    .48348,    .03315,    .00394,
     +     .00000,    .02388,    .05038,
     +     .61342,    .25767,    .46554,    .03254,    .00422,
     +     .00000,    .02350,    .04908,
     +     .60623,    .25379,    .45177,    .03207,    .00443,
     +     .00000,    .02320,    .04807,
     +     .59110,    .24570,    .42285,    .03108,    .00480,
     +     .00010,    .02256,    .04598,
     +     .57836,    .23898,    .39835,    .03022,    .00506,
     +     .00060,    .02201,    .04429,
     +     .56432,    .23171,    .37249,    .02927,    .00529,
     +     .00114,    .02140,    .04246,
     +     .54997,    .22438,    .34742,    .02831,    .00547,
     +     .00156,    .02075,    .04065,
     +     .53718,    .21796,    .32617,    .02746,    .00560,
     +     .00189,    .02016,    .03905 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .52452,    .21171,    .30610,    .02662,    .00569,
     +     .00217,    .01959,    .03749,
     +     .51423,    .20660,    .29044,    .02592,    .00574,
     +     .00236,    .01910,    .03628,
     +     .50192,    .20060,    .27258,    .02509,    .00577,
     +     .00255,    .01852,    .03485,
     +     .49125,    .19546,    .25778,    .02438,    .00578,
     +     .00270,    .01802,    .03363,
     +     .48167,    .19088,    .24500,    .02374,    .00578,
     +     .00282,    .01756,    .03255,
     +     .46966,    .18522,    .22977,    .02297,    .00575,
     +     .00294,    .01700,    .03122,
     +     .45867,    .18006,    .21643,    .02224,    .00571,
     +     .00303,    .01648,    .03003,
     +     .44865,    .17536,    .20476,    .02156,    .00567,
     +     .00310,    .01601,    .02896 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .43868,    .17079,    .19377,    .02092,    .00561,
     +     .00315,    .01553,    .02793,
     +     .42916,    .16645,    .18368,    .02032,    .00554,
     +     .00319,    .01508,    .02696,
     +     .42036,    .16244,    .17469,    .01976,    .00548,
     +     .00321,    .01467,    .02608,
     +     .41216,    .15875,    .16668,    .01924,    .00541,
     +     .00323,    .01429,    .02527,
     +     .40413,    .15516,    .15909,    .01873,    .00534,
     +     .00323,    .01392,    .02449,
     +     .39632,    .15167,    .15198,    .01825,    .00526,
     +     .00323,    .01355,    .02374,
     +     .38910,    .14844,    .14558,    .01780,    .00519,
     +     .00323,    .01321,    .02306,
     +     .38230,    .14544,    .13980,    .01737,    .00512,
     +     .00322,    .01291,    .02243 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .37560,    .14249,    .13426,    .01695,    .00505,
     +     .00321,    .01261,    .02181,
     +     .36906,    .13964,    .12905,    .01654,    .00498,
     +     .00319,    .01231,    .02122,
     +     .36293,    .13697,    .12431,    .01617,    .00491,
     +     .00317,    .01203,    .02067,
     +     .35722,    .13450,    .12000,    .01582,    .00484,
     +     .00315,    .01177,    .02017,
     +     .35149,    .13202,    .11582,    .01546,    .00477,
     +     .00313,    .01152,    .01967 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .72084,    .30798,    .58886,    .03270,    .00000,
     +     .00000,    .02188,    .05264,
     +     .70648,    .29973,    .56620,    .03201,    .00000,
     +     .00000,    .02155,    .05074,
     +     .68566,    .28805,    .53117,    .03098,    .00038,
     +     .00000,    .02103,    .04808,
     +     .67088,    .27999,    .50523,    .03027,    .00112,
     +     .00000,    .02064,    .04624,
     +     .65550,    .27173,    .47864,    .02948,    .00166,
     +     .00000,    .02022,    .04440,
     +     .64245,    .26480,    .45634,    .02879,    .00206,
     +     .00000,    .01982,    .04288,
     +     .63015,    .25835,    .43571,    .02814,    .00241,
     +     .00000,    .01944,    .04147,
     +     .61732,    .25171,    .41466,    .02746,    .00274,
     +     .00000,    .01903,    .04003 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .60632,    .24608,    .39696,    .02686,    .00298,
     +     .00000,    .01867,    .03883,
     +     .59585,    .24077,    .38048,    .02630,    .00318,
     +     .00000,    .01832,    .03771,
     +     .58770,    .23668,    .36791,    .02586,    .00333,
     +     .00000,    .01805,    .03684,
     +     .57062,    .22826,    .34179,    .02495,    .00359,
     +     .00008,    .01746,    .03506,
     +     .55635,    .22131,    .32009,    .02418,    .00377,
     +     .00044,    .01697,    .03361,
     +     .54077,    .21380,    .29737,    .02333,    .00392,
     +     .00084,    .01642,    .03207,
     +     .52499,    .20628,    .27553,    .02246,    .00404,
     +     .00114,    .01584,    .03056,
     +     .51103,    .19972,    .25720,    .02170,    .00412,
     +     .00137,    .01533,    .02924 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .49729,    .19333,    .24004,    .02097,    .00417,
     +     .00157,    .01484,    .02795,
     +     .48615,    .18820,    .22674,    .02036,    .00419,
     +     .00171,    .01443,    .02694,
     +     .47296,    .18214,    .21170,    .01963,    .00420,
     +     .00184,    .01393,    .02580,
     +     .46161,    .17696,    .19933,    .01900,    .00419,
     +     .00195,    .01349,    .02483,
     +     .45147,    .17239,    .18871,    .01843,    .00418,
     +     .00203,    .01310,    .02396,
     +     .43879,    .16674,    .17613,    .01776,    .00415,
     +     .00210,    .01265,    .02289,
     +     .42720,    .16163,    .16519,    .01715,    .00411,
     +     .00216,    .01222,    .02194,
     +     .41665,    .15702,    .15566,    .01659,    .00406,
     +     .00221,    .01182,    .02109 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .40631,    .15250,    .14673,    .01605,    .00401,
     +     .00223,    .01144,    .02027,
     +     .39648,    .14823,    .13858,    .01553,    .00395,
     +     .00225,    .01108,    .01951,
     +     .38741,    .14430,    .13137,    .01505,    .00389,
     +     .00227,    .01074,    .01883,
     +     .37900,    .14071,    .12495,    .01461,    .00384,
     +     .00227,    .01043,    .01820,
     +     .37078,    .13721,    .11888,    .01418,    .00378,
     +     .00227,    .01013,    .01759,
     +     .36278,    .13384,    .11328,    .01378,    .00372,
     +     .00227,    .00985,    .01701,
     +     .35540,    .13074,    .10825,    .01342,    .00366,
     +     .00226,    .00958,    .01647,
     +     .34849,    .12785,    .10371,    .01308,    .00360,
     +     .00225,    .00933,    .01599 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .34170,    .12503,    .09936,    .01274,    .00354,
     +     .00224,    .00909,    .01551,
     +     .33511,    .12229,    .09528,    .01241,    .00348,
     +     .00222,    .00886,    .01506,
     +     .32895,    .11974,    .09158,    .01210,    .00343,
     +     .00220,    .00865,    .01464,
     +     .32322,    .11738,    .08822,    .01181,    .00338,
     +     .00219,    .00845,    .01425,
     +     .31748,    .11503,    .08498,    .01153,    .00332,
     +     .00217,    .00825,    .01387 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .71259,    .29311,    .51101,    .02761,    .00000,
     +     .00000,    .01739,    .04104,
     +     .69590,    .28425,    .48763,    .02690,    .00000,
     +     .00000,    .01707,    .03938,
     +     .67192,    .27186,    .45272,    .02586,    .00030,
     +     .00000,    .01657,    .03709,
     +     .65512,    .26331,    .42753,    .02512,    .00086,
     +     .00000,    .01621,    .03556,
     +     .63776,    .25464,    .40204,    .02435,    .00127,
     +     .00000,    .01581,    .03399,
     +     .62311,    .24741,    .38100,    .02369,    .00157,
     +     .00000,    .01545,    .03271,
     +     .60939,    .24072,    .36172,    .02307,    .00183,
     +     .00000,    .01511,    .03154,
     +     .59517,    .23386,    .34222,    .02242,    .00207,
     +     .00000,    .01474,    .03034 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .58304,    .22808,    .32601,    .02187,    .00225,
     +     .00000,    .01442,    .02933,
     +     .57158,    .22263,    .31102,    .02134,    .00239,
     +     .00000,    .01412,    .02840,
     +     .56270,    .21843,    .29967,    .02091,    .00250,
     +     .00000,    .01388,    .02770,
     +     .54415,    .20986,    .27635,    .02010,    .00268,
     +     .00006,    .01335,    .02623,
     +     .52883,    .20278,    .25725,    .01937,    .00280,
     +     .00033,    .01292,    .02507,
     +     .51217,    .19518,    .23746,    .01859,    .00291,
     +     .00062,    .01245,    .02385,
     +     .49537,    .18764,    .21861,    .01781,    .00298,
     +     .00084,    .01196,    .02264,
     +     .48060,    .18109,    .20292,    .01715,    .00303,
     +     .00100,    .01154,    .02157 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .46614,    .17477,    .18833,    .01650,    .00305,
     +     .00115,    .01113,    .02053,
     +     .45452,    .16968,    .17710,    .01595,    .00306,
     +     .00124,    .01077,    .01975,
     +     .44076,    .16372,    .16452,    .01533,    .00305,
     +     .00133,    .01036,    .01883,
     +     .42895,    .15866,    .15424,    .01481,    .00304,
     +     .00140,    .01002,    .01804,
     +     .41844,    .15418,    .14546,    .01436,    .00302,
     +     .00146,    .00971,    .01734,
     +     .40545,    .14867,    .13511,    .01376,    .00299,
     +     .00151,    .00933,    .01652,
     +     .39361,    .14370,    .12617,    .01323,    .00295,
     +     .00154,    .00899,    .01578,
     +     .38287,    .13924,    .11843,    .01277,    .00291,
     +     .00157,    .00868,    .01512 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .37236,    .13489,    .11125,    .01233,    .00286,
     +     .00159,    .00836,    .01450,
     +     .36242,    .13078,    .10472,    .01190,    .00281,
     +     .00160,    .00807,    .01391,
     +     .35330,    .12703,    .09896,    .01149,    .00277,
     +     .00160,    .00780,    .01338,
     +     .34486,    .12360,    .09386,    .01112,    .00272,
     +     .00160,    .00756,    .01290,
     +     .33663,    .12028,    .08905,    .01076,    .00267,
     +     .00160,    .00734,    .01245,
     +     .32867,    .11707,    .08461,    .01043,    .00262,
     +     .00159,    .00711,    .01200,
     +     .32134,    .11412,    .08064,    .01012,    .00258,
     +     .00158,    .00690,    .01160,
     +     .31450,    .11140,    .07709,    .00985,    .00253,
     +     .00157,    .00671,    .01123 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .30779,    .10873,    .07370,    .00958,    .00248,
     +     .00156,    .00653,    .01088,
     +     .30128,    .10616,    .07053,    .00932,    .00244,
     +     .00155,    .00635,    .01053,
     +     .29520,    .10377,    .06766,    .00908,    .00240,
     +     .00153,    .00618,    .01021,
     +     .28956,    .10156,    .06507,    .00885,    .00235,
     +     .00152,    .00603,    .00992,
     +     .28395,    .09937,    .06258,    .00862,    .00231,
     +     .00150,    .00587,    .00964 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .69623,    .27539,    .44271,    .02291,    .00000,
     +     .00000,    .01386,    .03154,
     +     .67747,    .26621,    .41921,    .02221,    .00000,
     +     .00000,    .01355,    .03014,
     +     .65086,    .25339,    .38501,    .02124,    .00023,
     +     .00000,    .01308,    .02822,
     +     .63236,    .24463,    .36094,    .02055,    .00065,
     +     .00000,    .01272,    .02695,
     +     .61336,    .23579,    .33691,    .01984,    .00096,
     +     .00000,    .01233,    .02567,
     +     .59747,    .22844,    .31731,    .01922,    .00118,
     +     .00000,    .01202,    .02462,
     +     .58266,    .22163,    .29952,    .01864,    .00137,
     +     .00000,    .01171,    .02367,
     +     .56739,    .21470,    .28170,    .01805,    .00155,
     +     .00000,    .01137,    .02270 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .55441,    .20890,    .26699,    .01756,    .00167,
     +     .00000,    .01109,    .02187,
     +     .54218,    .20347,    .25353,    .01709,    .00178,
     +     .00000,    .01082,    .02112,
     +     .53273,    .19929,    .24339,    .01671,    .00185,
     +     .00000,    .01062,    .02055,
     +     .51319,    .19075,    .22283,    .01597,    .00198,
     +     .00005,    .01018,    .01937,
     +     .49708,    .18376,    .20616,    .01535,    .00206,
     +     .00024,    .00980,    .01845,
     +     .47968,    .17629,    .18904,    .01469,    .00213,
     +     .00045,    .00940,    .01747,
     +     .46227,    .16888,    .17293,    .01402,    .00218,
     +     .00061,    .00900,    .01650,
     +     .44705,    .16248,    .15964,    .01344,    .00220,
     +     .00073,    .00864,    .01566 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .43222,    .15631,    .14738,    .01288,    .00222,
     +     .00083,    .00829,    .01487,
     +     .42031,    .15138,    .13799,    .01242,    .00221,
     +     .00089,    .00801,    .01426,
     +     .40632,    .14563,    .12755,    .01189,    .00220,
     +     .00096,    .00767,    .01353,
     +     .39438,    .14076,    .11907,    .01145,    .00219,
     +     .00100,    .00740,    .01293,
     +     .38378,    .13645,    .11186,    .01104,    .00217,
     +     .00104,    .00715,    .01241,
     +     .37069,    .13118,    .10344,    .01056,    .00214,
     +     .00107,    .00684,    .01179,
     +     .35886,    .12644,    .09620,    .01012,    .00210,
     +     .00109,    .00656,    .01123,
     +     .34818,    .12220,    .08996,    .00972,    .00207,
     +     .00111,    .00631,    .01074 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33776,    .11810,    .08420,    .00935,    .00203,
     +     .00112,    .00607,    .01025,
     +     .32792,    .11424,    .07900,    .00900,    .00199,
     +     .00112,    .00584,    .00980,
     +     .31890,    .11072,    .07443,    .00868,    .00195,
     +     .00112,    .00564,    .00940,
     +     .31058,    .10750,    .07041,    .00840,    .00191,
     +     .00112,    .00545,    .00903,
     +     .30249,    .10438,    .06663,    .00813,    .00188,
     +     .00112,    .00527,    .00868,
     +     .29471,    .10140,    .06315,    .00785,    .00184,
     +     .00111,    .00510,    .00836,
     +     .28756,    .09866,    .06003,    .00760,    .00180,
     +     .00110,    .00495,    .00807,
     +     .28092,    .09612,    .05727,    .00737,    .00177,
     +     .00109,    .00480,    .00780 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .27443,    .09365,    .05465,    .00714,    .00173,
     +     .00108,    .00465,    .00754,
     +     .26815,    .09127,    .05219,    .00693,    .00170,
     +     .00107,    .00451,    .00729,
     +     .26232,    .08907,    .04997,    .00673,    .00166,
     +     .00106,    .00439,    .00706,
     +     .25691,    .08703,    .04797,    .00654,    .00163,
     +     .00105,    .00427,    .00685,
     +     .25149,    .08501,    .04604,    .00637,    .00160,
     +     .00104,    .00416,    .00664 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .67234,    .25616,    .38238,    .01900,    .00000,
     +     .00000,    .01086,    .02368,
     +     .65197,    .24683,    .35921,    .01834,    .00000,
     +     .00000,    .01057,    .02255,
     +     .62330,    .23388,    .32631,    .01742,    .00017,
     +     .00000,    .01014,    .02102,
     +     .60354,    .22506,    .30364,    .01676,    .00049,
     +     .00000,    .00983,    .02000,
     +     .58338,    .21616,    .28125,    .01611,    .00072,
     +     .00000,    .00949,    .01898,
     +     .56659,    .20884,    .26321,    .01554,    .00088,
     +     .00000,    .00921,    .01816,
     +     .55099,    .20212,    .24701,    .01502,    .00102,
     +     .00000,    .00895,    .01739,
     +     .53498,    .19530,    .23094,    .01451,    .00115,
     +     .00000,    .00867,    .01660 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52147,    .18956,    .21779,    .01406,    .00124,
     +     .00000,    .00844,    .01597,
     +     .50878,    .18420,    .20582,    .01363,    .00131,
     +     .00000,    .00821,    .01538,
     +     .49901,    .18009,    .19686,    .01331,    .00137,
     +     .00000,    .00803,    .01493,
     +     .47887,    .17173,    .17889,    .01266,    .00145,
     +     .00004,    .00765,    .01405,
     +     .46237,    .16493,    .16453,    .01210,    .00151,
     +     .00017,    .00736,    .01332,
     +     .44464,    .15771,    .14992,    .01151,    .00155,
     +     .00033,    .00702,    .01256,
     +     .42697,    .15057,    .13626,    .01094,    .00158,
     +     .00044,    .00669,    .01183,
     +     .41161,    .14442,    .12509,    .01044,    .00159,
     +     .00052,    .00640,    .01121 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39675,    .13850,    .11487,    .00996,    .00160,
     +     .00059,    .00612,    .01060,
     +     .38483,    .13380,    .10712,    .00959,    .00159,
     +     .00064,    .00590,    .01011,
     +     .37091,    .12834,    .09852,    .00913,    .00158,
     +     .00068,    .00564,    .00957,
     +     .35903,    .12374,    .09158,    .00877,    .00156,
     +     .00071,    .00541,    .00913,
     +     .34849,    .11969,    .08573,    .00847,    .00155,
     +     .00074,    .00522,    .00874,
     +     .33561,    .11473,    .07894,    .00807,    .00152,
     +     .00076,    .00497,    .00826,
     +     .32399,    .11029,    .07313,    .00771,    .00149,
     +     .00077,    .00475,    .00784,
     +     .31353,    .10632,    .06813,    .00739,    .00146,
     +     .00078,    .00457,    .00746 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .30341,    .10250,    .06355,    .00707,    .00143,
     +     .00079,    .00437,    .00712,
     +     .29385,    .09892,    .05943,    .00678,    .00140,
     +     .00079,    .00419,    .00680,
     +     .28506,    .09565,    .05583,    .00654,    .00137,
     +     .00079,    .00405,    .00650,
     +     .27704,    .09267,    .05268,    .00630,    .00134,
     +     .00078,    .00390,    .00624,
     +     .26927,    .08980,    .04973,    .00607,    .00131,
     +     .00078,    .00376,    .00599,
     +     .26181,    .08705,    .04703,    .00585,    .00128,
     +     .00077,    .00362,    .00576,
     +     .25497,    .08454,    .04462,    .00566,    .00125,
     +     .00077,    .00349,    .00555,
     +     .24863,    .08223,    .04248,    .00547,    .00123,
     +     .00076,    .00339,    .00535 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .24243,    .07998,    .04044,    .00530,    .00120,
     +     .00075,    .00328,    .00516,
     +     .23646,    .07781,    .03854,    .00513,    .00117,
     +     .00074,    .00318,    .00497,
     +     .23091,    .07580,    .03684,    .00498,    .00115,
     +     .00073,    .00309,    .00480,
     +     .22578,    .07395,    .03531,    .00484,    .00113,
     +     .00072,    .00300,    .00464,
     +     .22069,    .07213,    .03385,    .00470,    .00110,
     +     .00071,    .00292,    .00448 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .64229,    .23582,    .32835,    .01553,    .00000,
     +     .00000,    .00844,    .01748,
     +     .62078,    .22645,    .30593,    .01492,    .00000,
     +     .00000,    .00816,    .01662,
     +     .59065,    .21361,    .27482,    .01408,    .00013,
     +     .00000,    .00779,    .01539,
     +     .57004,    .20488,    .25376,    .01347,    .00037,
     +     .00000,    .00752,    .01461,
     +     .54908,    .19619,    .23328,    .01289,    .00053,
     +     .00000,    .00724,    .01380,
     +     .53169,    .18904,    .21695,    .01241,    .00065,
     +     .00000,    .00701,    .01313,
     +     .51566,    .18248,    .20241,    .01195,    .00075,
     +     .00000,    .00678,    .01256,
     +     .49929,    .17581,    .18808,    .01146,    .00084,
     +     .00000,    .00653,    .01200 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .48549,    .17024,    .17648,    .01108,    .00091,
     +     .00000,    .00634,    .01149,
     +     .47258,    .16506,    .16600,    .01072,    .00096,
     +     .00000,    .00615,    .01105,
     +     .46266,    .16111,    .15820,    .01045,    .00100,
     +     .00000,    .00599,    .01072,
     +     .44239,    .15307,    .14267,    .00985,    .00106,
     +     .00003,    .00569,    .01005,
     +     .42576,    .14660,    .13045,    .00942,    .00109,
     +     .00012,    .00544,    .00947,
     +     .40801,    .13971,    .11813,    .00895,    .00112,
     +     .00023,    .00518,    .00889,
     +     .39043,    .13293,    .10669,    .00846,    .00113,
     +     .00032,    .00492,    .00833,
     +     .37522,    .12712,    .09741,    .00804,    .00114,
     +     .00037,    .00469,    .00787 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36053,    .12157,    .08899,    .00764,    .00114,
     +     .00042,    .00447,    .00743,
     +     .34880,    .11716,    .08264,    .00734,    .00113,
     +     .00045,    .00430,    .00706,
     +     .33515,    .11204,    .07566,    .00697,    .00112,
     +     .00048,    .00409,    .00669,
     +     .32360,    .10774,    .07005,    .00666,    .00111,
     +     .00050,    .00390,    .00637,
     +     .31341,    .10397,    .06534,    .00639,    .00109,
     +     .00052,    .00375,    .00607,
     +     .30094,    .09939,    .05991,    .00606,    .00107,
     +     .00053,    .00357,    .00571,
     +     .28972,    .09530,    .05529,    .00578,    .00104,
     +     .00054,    .00341,    .00541,
     +     .27965,    .09165,    .05135,    .00554,    .00102,
     +     .00055,    .00326,    .00514 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26991,    .08814,    .04774,    .00528,    .00100,
     +     .00055,    .00312,    .00487,
     +     .26077,    .08485,    .04451,    .00505,    .00097,
     +     .00055,    .00298,    .00464,
     +     .25245,    .08187,    .04170,    .00485,    .00095,
     +     .00055,    .00287,    .00443,
     +     .24483,    .07916,    .03925,    .00466,    .00093,
     +     .00054,    .00275,    .00425,
     +     .23746,    .07656,    .03696,    .00448,    .00091,
     +     .00054,    .00264,    .00408,
     +     .23042,    .07407,    .03487,    .00431,    .00088,
     +     .00053,    .00254,    .00391,
     +     .22397,    .07180,    .03301,    .00415,    .00086,
     +     .00053,    .00246,    .00375,
     +     .21798,    .06971,    .03138,    .00403,    .00084,
     +     .00052,    .00238,    .00361 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .21215,    .06768,    .02982,    .00390,    .00082,
     +     .00052,    .00230,    .00347,
     +     .20656,    .06574,    .02838,    .00377,    .00081,
     +     .00051,    .00222,    .00334,
     +     .20139,    .06394,    .02709,    .00364,    .00079,
     +     .00050,    .00215,    .00321,
     +     .19662,    .06229,    .02593,    .00352,    .00077,
     +     .00049,    .00208,    .00310,
     +     .19187,    .06065,    .02481,    .00342,    .00075,
     +     .00049,    .00202,    .00300 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .60729,    .21479,    .27966,    .01247,    .00000,
     +     .00000,    .00650,    .01270,
     +     .58500,    .20564,    .25845,    .01192,    .00000,
     +     .00000,    .00626,    .01202,
     +     .55399,    .19312,    .22954,    .01117,    .00009,
     +     .00000,    .00592,    .01111,
     +     .53286,    .18468,    .21032,    .01066,    .00027,
     +     .00000,    .00572,    .01048,
     +     .51156,    .17625,    .19188,    .01014,    .00039,
     +     .00000,    .00546,    .00988,
     +     .49394,    .16938,    .17729,    .00973,    .00047,
     +     .00000,    .00527,    .00938,
     +     .47774,    .16309,    .16442,    .00935,    .00055,
     +     .00000,    .00508,    .00894,
     +     .46126,    .15671,    .15186,    .00895,    .00061,
     +     .00000,    .00488,    .00851 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .44745,    .15139,    .14178,    .00860,    .00065,
     +     .00000,    .00472,    .00817,
     +     .43458,    .14647,    .13274,    .00829,    .00069,
     +     .00000,    .00456,    .00783,
     +     .42472,    .14273,    .12605,    .00805,    .00072,
     +     .00000,    .00445,    .00756,
     +     .40455,    .13513,    .11286,    .00760,    .00076,
     +     .00002,    .00420,    .00704,
     +     .38816,    .12901,    .10259,    .00722,    .00078,
     +     .00009,    .00400,    .00663,
     +     .37076,    .12255,    .09231,    .00679,    .00080,
     +     .00017,    .00380,    .00621,
     +     .35354,    .11623,    .08287,    .00641,    .00080,
     +     .00022,    .00359,    .00579,
     +     .33870,    .11082,    .07528,    .00607,    .00080,
     +     .00026,    .00340,    .00545 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .32449,    .10563,    .06843,    .00574,    .00080,
     +     .00030,    .00324,    .00514,
     +     .31314,    .10156,    .06327,    .00549,    .00079,
     +     .00032,    .00310,    .00489,
     +     .29998,    .09687,    .05766,    .00521,    .00078,
     +     .00034,    .00293,    .00459,
     +     .28888,    .09292,    .05320,    .00497,    .00077,
     +     .00035,    .00279,    .00435,
     +     .27912,    .08945,    .04946,    .00476,    .00076,
     +     .00036,    .00269,    .00414,
     +     .26723,    .08526,    .04516,    .00449,    .00074,
     +     .00037,    .00256,    .00390,
     +     .25657,    .08153,    .04153,    .00426,    .00072,
     +     .00038,    .00242,    .00369,
     +     .24704,    .07822,    .03844,    .00406,    .00071,
     +     .00038,    .00230,    .00349 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23783,    .07505,    .03564,    .00388,    .00069,
     +     .00038,    .00220,    .00331,
     +     .22922,    .07209,    .03314,    .00370,    .00067,
     +     .00038,    .00211,    .00314,
     +     .22139,    .06941,    .03096,    .00355,    .00065,
     +     .00038,    .00202,    .00298,
     +     .21427,    .06697,    .02908,    .00340,    .00064,
     +     .00037,    .00193,    .00285,
     +     .20739,    .06463,    .02732,    .00326,    .00062,
     +     .00037,    .00185,    .00273,
     +     .20083,    .06241,    .02572,    .00313,    .00060,
     +     .00036,    .00178,    .00260,
     +     .19484,    .06040,    .02431,    .00301,    .00059,
     +     .00036,    .00171,    .00248,
     +     .18931,    .05853,    .02305,    .00290,    .00057,
     +     .00036,    .00165,    .00239 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18393,    .05672,    .02187,    .00280,    .00056,
     +     .00035,    .00159,    .00230,
     +     .17876,    .05500,    .02078,    .00270,    .00055,
     +     .00035,    .00153,    .00222,
     +     .17398,    .05340,    .01980,    .00261,    .00053,
     +     .00034,    .00148,    .00214,
     +     .16958,    .05194,    .01893,    .00252,    .00052,
     +     .00034,    .00143,    .00206,
     +     .16525,    .05051,    .01809,    .00243,    .00051,
     +     .00033,    .00139,    .00199 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .56814,    .19397,    .23592,    .01004,    .00000,
     +     .00000,    .00486,    .00894,
     +     .54551,    .18512,    .21618,    .00953,    .00000,
     +     .00000,    .00466,    .00847,
     +     .51425,    .17305,    .18981,    .00885,    .00007,
     +     .00000,    .00441,    .00776,
     +     .49303,    .16496,    .17261,    .00839,    .00019,
     +     .00000,    .00421,    .00735,
     +     .47172,    .15696,    .15624,    .00798,    .00028,
     +     .00000,    .00403,    .00687,
     +     .45423,    .15040,    .14346,    .00760,    .00034,
     +     .00000,    .00386,    .00653,
     +     .43818,    .14443,    .13229,    .00727,    .00039,
     +     .00000,    .00371,    .00621,
     +     .42189,    .13841,    .12148,    .00693,    .00044,
     +     .00000,    .00356,    .00588 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .40830,    .13341,    .11284,    .00665,    .00047,
     +     .00000,    .00343,    .00563,
     +     .39564,    .12880,    .10516,    .00640,    .00049,
     +     .00000,    .00331,    .00539,
     +     .38596,    .12530,    .09951,    .00620,    .00051,
     +     .00000,    .00321,    .00520,
     +     .36628,    .11824,    .08845,    .00582,    .00053,
     +     .00002,    .00303,    .00481,
     +     .35039,    .11255,    .07993,    .00550,    .00055,
     +     .00006,    .00288,    .00452,
     +     .33354,    .10657,    .07151,    .00517,    .00056,
     +     .00012,    .00272,    .00421,
     +     .31698,    .10072,    .06382,    .00485,    .00056,
     +     .00016,    .00256,    .00393,
     +     .30277,    .09574,    .05768,    .00456,    .00056,
     +     .00019,    .00242,    .00370 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .28916,    .09101,    .05219,    .00430,    .00056,
     +     .00021,    .00228,    .00349,
     +     .27837,    .08729,    .04810,    .00412,    .00055,
     +     .00022,    .00217,    .00329,
     +     .26592,    .08301,    .04363,    .00387,    .00054,
     +     .00024,    .00206,    .00308,
     +     .25543,    .07943,    .04009,    .00367,    .00053,
     +     .00024,    .00197,    .00290,
     +     .24620,    .07631,    .03716,    .00352,    .00052,
     +     .00025,    .00188,    .00275,
     +     .23501,    .07252,    .03380,    .00332,    .00051,
     +     .00026,    .00177,    .00260,
     +     .22502,    .06916,    .03098,    .00314,    .00050,
     +     .00026,    .00168,    .00245,
     +     .21613,    .06619,    .02860,    .00298,    .00048,
     +     .00026,    .00160,    .00232 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20760,    .06336,    .02644,    .00282,    .00047,
     +     .00026,    .00152,    .00219,
     +     .19962,    .06072,    .02451,    .00269,    .00046,
     +     .00026,    .00144,    .00207,
     +     .19238,    .05834,    .02285,    .00257,    .00044,
     +     .00026,    .00138,    .00196,
     +     .18580,    .05617,    .02141,    .00246,    .00043,
     +     .00025,    .00132,    .00188,
     +     .17948,    .05410,    .02008,    .00234,    .00042,
     +     .00025,    .00127,    .00180,
     +     .17344,    .05214,    .01887,    .00225,    .00041,
     +     .00025,    .00122,    .00171,
     +     .16794,    .05036,    .01780,    .00216,    .00040,
     +     .00024,    .00117,    .00164,
     +     .16289,    .04873,    .01686,    .00208,    .00039,
     +     .00024,    .00113,    .00157 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15798,    .04715,    .01597,    .00200,    .00038,
     +     .00024,    .00108,    .00149,
     +     .15328,    .04563,    .01515,    .00192,    .00037,
     +     .00023,    .00104,    .00143,
     +     .14894,    .04424,    .01441,    .00186,    .00036,
     +     .00023,    .00101,    .00138,
     +     .14495,    .04297,    .01376,    .00180,    .00035,
     +     .00023,    .00097,    .00133,
     +     .14100,    .04171,    .01313,    .00174,    .00034,
     +     .00022,    .00094,    .00129 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .52631,    .17326,    .19655,    .00782,    .00000,
     +     .00000,    .00362,    .00623,
     +     .50366,    .16487,    .17868,    .00741,    .00000,
     +     .00000,    .00345,    .00587,
     +     .47260,    .15347,    .15516,    .00686,    .00005,
     +     .00000,    .00322,    .00537,
     +     .45161,    .14588,    .14003,    .00648,    .00014,
     +     .00000,    .00306,    .00505,
     +     .43065,    .13837,    .12579,    .00615,    .00020,
     +     .00000,    .00291,    .00471,
     +     .41350,    .13222,    .11479,    .00584,    .00024,
     +     .00000,    .00278,    .00447,
     +     .39784,    .12667,    .10525,    .00556,    .00027,
     +     .00000,    .00266,    .00424,
     +     .38199,    .12110,    .09608,    .00529,    .00031,
     +     .00000,    .00254,    .00400 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .36879,    .11647,    .08883,    .00509,    .00033,
     +     .00000,    .00246,    .00380,
     +     .35659,    .11219,    .08241,    .00487,    .00034,
     +     .00000,    .00236,    .00363,
     +     .34729,    .10893,    .07770,    .00469,    .00035,
     +     .00000,    .00228,    .00351,
     +     .32840,    .10243,    .06861,    .00439,    .00037,
     +     .00001,    .00214,    .00325,
     +     .31320,    .09722,    .06166,    .00414,    .00038,
     +     .00004,    .00202,    .00303,
     +     .29715,    .09176,    .05484,    .00387,    .00039,
     +     .00008,    .00189,    .00282,
     +     .28145,    .08645,    .04867,    .00361,    .00039,
     +     .00011,    .00178,    .00262,
     +     .26802,    .08194,    .04377,    .00338,    .00039,
     +     .00013,    .00168,    .00245 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .25522,    .07767,    .03942,    .00318,    .00038,
     +     .00014,    .00158,    .00229,
     +     .24507,    .07433,    .03620,    .00304,    .00038,
     +     .00015,    .00150,    .00216,
     +     .23339,    .07048,    .03271,    .00286,    .00037,
     +     .00016,    .00142,    .00201,
     +     .22361,    .06727,    .02996,    .00272,    .00036,
     +     .00017,    .00135,    .00190,
     +     .21505,    .06447,    .02768,    .00259,    .00036,
     +     .00017,    .00128,    .00180,
     +     .20468,    .06111,    .02509,    .00243,    .00035,
     +     .00017,    .00121,    .00169,
     +     .19546,    .05814,    .02293,    .00230,    .00034,
     +     .00018,    .00114,    .00158,
     +     .18727,    .05552,    .02111,    .00218,    .00033,
     +     .00018,    .00108,    .00148 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .17941,    .05301,    .01946,    .00207,    .00032,
     +     .00018,    .00102,    .00140,
     +     .17210,    .05068,    .01801,    .00197,    .00031,
     +     .00018,    .00097,    .00133,
     +     .16550,    .04858,    .01675,    .00187,    .00030,
     +     .00017,    .00092,    .00127,
     +     .15953,    .04669,    .01567,    .00178,    .00029,
     +     .00017,    .00088,    .00120,
     +     .15380,    .04488,    .01466,    .00168,    .00028,
     +     .00017,    .00084,    .00114,
     +     .14832,    .04318,    .01376,    .00162,    .00027,
     +     .00017,    .00081,    .00108,
     +     .14333,    .04163,    .01296,    .00157,    .00027,
     +     .00016,    .00078,    .00103,
     +     .13878,    .04021,    .01225,    .00150,    .00026,
     +     .00016,    .00075,    .00099 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13439,    .03883,    .01159,    .00143,    .00025,
     +     .00016,    .00071,    .00095,
     +     .13017,    .03751,    .01098,    .00137,    .00024,
     +     .00016,    .00068,    .00091,
     +     .12627,    .03630,    .01044,    .00132,    .00024,
     +     .00015,    .00066,    .00088,
     +     .12269,    .03520,    .00995,    .00128,    .00023,
     +     .00015,    .00064,    .00084,
     +     .11916,    .03412,    .00949,    .00123,    .00023,
     +     .00015,    .00062,    .00081 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .48245,    .15316,    .16136,    .00595,    .00000,
     +     .00000,    .00267,    .00428,
     +     .46019,    .14530,    .14546,    .00562,    .00000,
     +     .00000,    .00255,    .00400,
     +     .42983,    .13465,    .12489,    .00514,    .00003,
     +     .00000,    .00234,    .00368,
     +     .40941,    .12758,    .11188,    .00485,    .00009,
     +     .00000,    .00223,    .00343,
     +     .38914,    .12059,    .09975,    .00457,    .00014,
     +     .00000,    .00211,    .00320,
     +     .37261,    .11494,    .09046,    .00433,    .00016,
     +     .00000,    .00200,    .00300,
     +     .35755,    .10982,    .08246,    .00410,    .00019,
     +     .00000,    .00191,    .00285,
     +     .34238,    .10468,    .07483,    .00388,    .00021,
     +     .00000,    .00183,    .00270 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .32976,    .10047,    .06886,    .00371,    .00022,
     +     .00000,    .00174,    .00257,
     +     .31811,    .09658,    .06360,    .00355,    .00023,
     +     .00000,    .00167,    .00244,
     +     .30925,    .09363,    .05977,    .00343,    .00024,
     +     .00000,    .00161,    .00235,
     +     .29135,    .08770,    .05242,    .00318,    .00025,
     +     .00001,    .00151,    .00218,
     +     .27699,    .08300,    .04687,    .00300,    .00026,
     +     .00003,    .00143,    .00202,
     +     .26193,    .07808,    .04143,    .00278,    .00026,
     +     .00006,    .00135,    .00187,
     +     .24722,    .07330,    .03656,    .00258,    .00026,
     +     .00007,    .00125,    .00174,
     +     .23467,    .06928,    .03274,    .00243,    .00026,
     +     .00009,    .00117,    .00163 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .22277,    .06548,    .02936,    .00226,    .00026,
     +     .00010,    .00110,    .00152,
     +     .21343,    .06249,    .02686,    .00213,    .00025,
     +     .00010,    .00104,    .00143,
     +     .20268,    .05909,    .02418,    .00199,    .00025,
     +     .00011,    .00098,    .00133,
     +     .19368,    .05626,    .02208,    .00189,    .00024,
     +     .00011,    .00093,    .00125,
     +     .18582,    .05380,    .02034,    .00179,    .00024,
     +     .00012,    .00089,    .00119,
     +     .17633,    .05085,    .01838,    .00168,    .00023,
     +     .00012,    .00084,    .00110,
     +     .16794,    .04824,    .01675,    .00158,    .00022,
     +     .00012,    .00079,    .00103,
     +     .16051,    .04593,    .01538,    .00149,    .00022,
     +     .00012,    .00075,    .00097 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15341,    .04375,    .01414,    .00140,    .00021,
     +     .00012,    .00070,    .00093,
     +     .14681,    .04174,    .01306,    .00132,    .00020,
     +     .00012,    .00067,    .00087,
     +     .14088,    .03993,    .01212,    .00125,    .00020,
     +     .00012,    .00064,    .00082,
     +     .13551,    .03829,    .01132,    .00119,    .00019,
     +     .00011,    .00061,    .00078,
     +     .13035,    .03673,    .01057,    .00113,    .00018,
     +     .00011,    .00058,    .00074,
     +     .12546,    .03525,    .00990,    .00108,    .00018,
     +     .00011,    .00055,    .00071,
     +     .12101,    .03392,    .00931,    .00103,    .00017,
     +     .00011,    .00052,    .00068,
     +     .11694,    .03270,    .00879,    .00100,    .00017,
     +     .00011,    .00050,    .00064 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11300,    .03153,    .00831,    .00097,    .00016,
     +     .00010,    .00048,    .00061,
     +     .10925,    .03042,    .00786,    .00093,    .00016,
     +     .00010,    .00046,    .00059,
     +     .10581,    .02940,    .00746,    .00089,    .00015,
     +     .00010,    .00044,    .00057,
     +     .10266,    .02846,    .00711,    .00085,    .00015,
     +     .00010,    .00042,    .00055,
     +     .09955,    .02754,    .00677,    .00082,    .00015,
     +     .00010,    .00041,    .00052 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .43766,    .13398,    .13040,    .00446,    .00000,
     +     .00000,    .00192,    .00287,
     +     .41612,    .12668,    .11660,    .00416,    .00000,
     +     .00000,    .00182,    .00272,
     +     .38680,    .11687,    .09898,    .00382,    .00002,
     +     .00000,    .00170,    .00243,
     +     .36728,    .11037,    .08798,    .00357,    .00006,
     +     .00000,    .00159,    .00228,
     +     .34792,    .10399,    .07786,    .00332,    .00009,
     +     .00000,    .00150,    .00213,
     +     .33220,    .09884,    .07016,    .00312,    .00011,
     +     .00000,    .00144,    .00201,
     +     .31792,    .09419,    .06360,    .00294,    .00013,
     +     .00000,    .00137,    .00190,
     +     .30356,    .08954,    .05741,    .00278,    .00014,
     +     .00000,    .00130,    .00178 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .29167,    .08573,    .05257,    .00265,    .00015,
     +     .00000,    .00125,    .00169,
     +     .28073,    .08222,    .04835,    .00252,    .00016,
     +     .00000,    .00120,    .00161,
     +     .27243,    .07956,    .04529,    .00242,    .00016,
     +     .00000,    .00116,    .00155,
     +     .25571,    .07426,    .03945,    .00224,    .00017,
     +     .00001,    .00106,    .00144,
     +     .24237,    .07005,    .03509,    .00208,    .00017,
     +     .00002,    .00101,    .00135,
     +     .22840,    .06567,    .03086,    .00192,    .00017,
     +     .00004,    .00094,    .00124,
     +     .21483,    .06145,    .02710,    .00178,    .00017,
     +     .00005,    .00087,    .00115,
     +     .20330,    .05790,    .02416,    .00166,    .00017,
     +     .00006,    .00082,    .00107 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .19239,    .05456,    .02157,    .00155,    .00017,
     +     .00006,    .00078,    .00098,
     +     .18387,    .05196,    .01968,    .00145,    .00017,
     +     .00007,    .00074,    .00093,
     +     .17406,    .04897,    .01766,    .00136,    .00016,
     +     .00007,    .00069,    .00087,
     +     .16587,    .04650,    .01608,    .00129,    .00016,
     +     .00007,    .00065,    .00082,
     +     .15875,    .04437,    .01478,    .00122,    .00015,
     +     .00008,    .00062,    .00077,
     +     .15025,    .04181,    .01331,    .00113,    .00015,
     +     .00008,    .00058,    .00072,
     +     .14270,    .03956,    .01210,    .00105,    .00014,
     +     .00008,    .00055,    .00068,
     +     .13602,    .03759,    .01108,    .00099,    .00014,
     +     .00008,    .00052,    .00064 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .12968,    .03571,    .01017,    .00094,    .00014,
     +     .00008,    .00049,    .00059,
     +     .12379,    .03398,    .00937,    .00089,    .00013,
     +     .00008,    .00046,    .00055,
     +     .11848,    .03243,    .00868,    .00085,    .00013,
     +     .00008,    .00043,    .00052,
     +     .11372,    .03104,    .00809,    .00080,    .00012,
     +     .00007,    .00042,    .00050,
     +     .10917,    .02971,    .00755,    .00076,    .00012,
     +     .00007,    .00040,    .00047,
     +     .10487,    .02846,    .00706,    .00071,    .00011,
     +     .00007,    .00038,    .00045,
     +     .10098,    .02734,    .00663,    .00067,    .00011,
     +     .00007,    .00036,    .00043,
     +     .09740,    .02631,    .00625,    .00065,    .00011,
     +     .00007,    .00034,    .00041 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09395,    .02532,    .00590,    .00063,    .00010,
     +     .00007,    .00033,    .00039,
     +     .09067,    .02438,    .00558,    .00060,    .00010,
     +     .00007,    .00032,    .00037,
     +     .08767,    .02352,    .00529,    .00057,    .00010,
     +     .00007,    .00031,    .00036,
     +     .08493,    .02273,    .00503,    .00054,    .00010,
     +     .00006,    .00029,    .00034,
     +     .08222,    .02197,    .00479,    .00052,    .00009,
     +     .00006,    .00028,    .00033 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
     +     .39276,    .11608,    .10368,    .00338,    .00000,
     +     .00000,    .00130,    .00183,
     +     .37222,    .10945,    .09201,    .00315,    .00000,
     +     .00000,    .00120,    .00173,
     +     .34446,    .10052,    .07729,    .00284,    .00002,
     +     .00000,    .00111,    .00155,
     +     .32601,    .09465,    .06823,    .00265,    .00004,
     +     .00000,    .00107,    .00142,
     +     .30779,    .08889,    .05998,    .00248,    .00006,
     +     .00000,    .00099,    .00133,
     +     .29304,    .08426,    .05375,    .00233,    .00007,
     +     .00000,    .00094,    .00125,
     +     .27970,    .08009,    .04847,    .00219,    .00008,
     +     .00000,    .00089,    .00118,
     +     .26635,    .07594,    .04351,    .00204,    .00009,
     +     .00000,    .00084,    .00112 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .25533,    .07254,    .03968,    .00195,    .00010,
     +     .00000,    .00080,    .00106,
     +     .24520,    .06942,    .03636,    .00186,    .00010,
     +     .00000,    .00076,    .00100,
     +     .23752,    .06707,    .03396,    .00180,    .00011,
     +     .00000,    .00074,    .00095,
     +     .22217,    .06238,    .02941,    .00162,    .00011,
     +     .00000,    .00067,    .00088,
     +     .20989,    .05868,    .02604,    .00153,    .00011,
     +     .00001,    .00063,    .00081,
     +     .19714,    .05484,    .02280,    .00141,    .00011,
     +     .00003,    .00059,    .00075,
     +     .18479,    .05115,    .01992,    .00131,    .00011,
     +     .00003,    .00054,    .00068,
     +     .17435,    .04806,    .01770,    .00122,    .00011,
     +     .00004,    .00051,    .00062 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .16452,    .04515,    .01576,    .00112,    .00011,
     +     .00004,    .00048,    .00058,
     +     .15680,    .04289,    .01433,    .00107,    .00011,
     +     .00005,    .00045,    .00054,
     +     .14800,    .04032,    .01282,    .00099,    .00011,
     +     .00005,    .00041,    .00052,
     +     .14070,    .03819,    .01164,    .00093,    .00010,
     +     .00005,    .00039,    .00049,
     +     .13438,    .03636,    .01068,    .00088,    .00010,
     +     .00005,    .00038,    .00045,
     +     .12680,    .03416,    .00960,    .00081,    .00010,
     +     .00005,    .00035,    .00042,
     +     .12010,    .03223,    .00870,    .00076,    .00009,
     +     .00005,    .00033,    .00039,
     +     .11417,    .03054,    .00795,    .00073,    .00009,
     +     .00005,    .00031,    .00038 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .10859,    .02896,    .00729,    .00067,    .00009,
     +     .00005,    .00028,    .00035,
     +     .10342,    .02750,    .00670,    .00063,    .00008,
     +     .00005,    .00026,    .00033,
     +     .09877,    .02619,    .00620,    .00061,    .00008,
     +     .00005,    .00026,    .00030,
     +     .09461,    .02501,    .00577,    .00058,    .00008,
     +     .00005,    .00025,    .00028,
     +     .09065,    .02389,    .00538,    .00054,    .00008,
     +     .00005,    .00024,    .00027,
     +     .08690,    .02284,    .00502,    .00052,    .00007,
     +     .00005,    .00023,    .00025,
     +     .08350,    .02189,    .00471,    .00050,    .00007,
     +     .00005,    .00021,    .00024,
     +     .08041,    .02103,    .00444,    .00047,    .00007,
     +     .00005,    .00020,    .00023 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07743,    .02021,    .00418,    .00045,    .00007,
     +     .00004,    .00019,    .00022,
     +     .07461,    .01943,    .00395,    .00043,    .00006,
     +     .00004,    .00018,    .00021,
     +     .07201,    .01871,    .00374,    .00041,    .00006,
     +     .00004,    .00017,    .00020,
     +     .06965,    .01806,    .00355,    .00039,    .00006,
     +     .00004,    .00017,    .00020,
     +     .06732,    .01743,    .00338,    .00038,    .00006,
     +     .00004,    .00016,    .00019 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .34833,    .09911,    .08058,    .00231,    .00000,
     +     .00000,    .00094,    .00122,
     +     .32905,    .09313,    .07097,    .00216,    .00000,
     +     .00000,    .00089,    .00112,
     +     .30300,    .08515,    .05899,    .00196,    .00001,
     +     .00000,    .00081,    .00102,
     +     .28587,    .07993,    .05172,    .00179,    .00003,
     +     .00000,    .00075,    .00094,
     +     .26895,    .07482,    .04516,    .00167,    .00004,
     +     .00000,    .00070,    .00089,
     +     .25535,    .07071,    .04024,    .00156,    .00005,
     +     .00000,    .00065,    .00084,
     +     .24306,    .06703,    .03611,    .00147,    .00005,
     +     .00000,    .00062,    .00078,
     +     .23078,    .06339,    .03226,    .00139,    .00006,
     +     .00000,    .00059,    .00072 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .22067,    .06041,    .02930,    .00132,    .00006,
     +     .00000,    .00055,    .00068,
     +     .21144,    .05769,    .02674,    .00124,    .00006,
     +     .00000,    .00053,    .00064,
     +     .20447,    .05565,    .02491,    .00119,    .00007,
     +     .00000,    .00051,    .00061,
     +     .19051,    .05158,    .02144,    .00109,    .00007,
     +     .00000,    .00046,    .00055,
     +     .17944,    .04836,    .01891,    .00101,    .00007,
     +     .00001,    .00043,    .00051,
     +     .16796,    .04504,    .01648,    .00092,    .00007,
     +     .00002,    .00039,    .00049,
     +     .15689,    .04187,    .01434,    .00086,    .00007,
     +     .00002,    .00036,    .00045,
     +     .14755,    .03921,    .01269,    .00080,    .00007,
     +     .00002,    .00034,    .00041 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .13878,    .03673,    .01126,    .00073,    .00007,
     +     .00003,    .00032,    .00037,
     +     .13194,    .03481,    .01022,    .00069,    .00007,
     +     .00003,    .00030,    .00035,
     +     .12414,    .03262,    .00911,    .00065,    .00007,
     +     .00003,    .00028,    .00033,
     +     .11769,    .03082,    .00826,    .00062,    .00006,
     +     .00003,    .00026,    .00031,
     +     .11213,    .02928,    .00755,    .00058,    .00006,
     +     .00003,    .00024,    .00029,
     +     .10549,    .02742,    .00678,    .00053,    .00006,
     +     .00003,    .00023,    .00026,
     +     .09964,    .02581,    .00613,    .00049,    .00006,
     +     .00003,    .00021,    .00024,
     +     .09450,    .02440,    .00559,    .00046,    .00006,
     +     .00003,    .00020,    .00021 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .08964,    .02307,    .00512,    .00043,    .00005,
     +     .00003,    .00019,    .00021,
     +     .08516,    .02185,    .00470,    .00040,    .00005,
     +     .00003,    .00017,    .00020,
     +     .08115,    .02076,    .00434,    .00038,    .00005,
     +     .00003,    .00016,    .00020,
     +     .07755,    .01979,    .00404,    .00037,    .00005,
     +     .00003,    .00015,    .00018,
     +     .07412,    .01886,    .00375,    .00036,    .00005,
     +     .00003,    .00014,    .00017,
     +     .07091,    .01800,    .00350,    .00034,    .00005,
     +     .00003,    .00013,    .00016,
     +     .06802,    .01722,    .00328,    .00032,    .00004,
     +     .00003,    .00013,    .00014,
     +     .06538,    .01652,    .00309,    .00030,    .00004,
     +     .00003,    .00012,    .00014 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06285,    .01584,    .00291,    .00028,    .00004,
     +     .00003,    .00012,    .00013,
     +     .06044,    .01520,    .00274,    .00026,    .00004,
     +     .00003,    .00011,    .00013,
     +     .05824,    .01461,    .00259,    .00025,    .00004,
     +     .00003,    .00011,    .00012,
     +     .05624,    .01408,    .00246,    .00024,    .00004,
     +     .00003,    .00010,    .00012,
     +     .05428,    .01357,    .00234,    .00023,    .00004,
     +     .00003,    .00010,    .00012 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
     +     .30520,    .08360,    .06132,    .00156,    .00000,
     +     .00000,    .00065,    .00080,
     +     .28731,    .07829,    .05359,    .00144,    .00000,
     +     .00000,    .00063,    .00075,
     +     .26331,    .07125,    .04410,    .00131,    .00001,
     +     .00000,    .00054,    .00066,
     +     .24757,    .06666,    .03840,    .00121,    .00002,
     +     .00000,    .00052,    .00060,
     +     .23214,    .06217,    .03330,    .00111,    .00002,
     +     .00000,    .00048,    .00057,
     +     .21971,    .05863,    .02953,    .00103,    .00003,
     +     .00000,    .00045,    .00052,
     +     .20855,    .05544,    .02636,    .00096,    .00003,
     +     .00000,    .00041,    .00049,
     +     .19746,    .05226,    .02343,    .00090,    .00004,
     +     .00000,    .00038,    .00046 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .18837,    .04968,    .02120,    .00086,    .00004,
     +     .00000,    .00037,    .00043,
     +     .18007,    .04733,    .01928,    .00081,    .00004,
     +     .00000,    .00036,    .00040,
     +     .17381,    .04555,    .01790,    .00077,    .00004,
     +     .00000,    .00035,    .00039,
     +     .16128,    .04207,    .01533,    .00071,    .00004,
     +     .00000,    .00033,    .00036,
     +     .15144,    .03932,    .01346,    .00066,    .00004,
     +     .00001,    .00029,    .00033,
     +     .14123,    .03650,    .01169,    .00060,    .00004,
     +     .00001,    .00026,    .00030,
     +     .13144,    .03381,    .01014,    .00054,    .00004,
     +     .00001,    .00024,    .00028,
     +     .12324,    .03156,    .00894,    .00050,    .00004,
     +     .00002,    .00023,    .00025 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .11555,    .02946,    .00791,    .00046,    .00004,
     +     .00002,    .00021,    .00024,
     +     .10956,    .02785,    .00716,    .00043,    .00004,
     +     .00002,    .00020,    .00022,
     +     .10279,    .02602,    .00637,    .00039,    .00004,
     +     .00002,    .00018,    .00021,
     +     .09719,    .02452,    .00576,    .00037,    .00004,
     +     .00002,    .00017,    .00019,
     +     .09235,    .02323,    .00526,    .00035,    .00004,
     +     .00002,    .00016,    .00018,
     +     .08659,    .02170,    .00471,    .00033,    .00004,
     +     .00002,    .00015,    .00017,
     +     .08155,    .02036,    .00425,    .00031,    .00004,
     +     .00002,    .00014,    .00015,
     +     .07713,    .01920,    .00387,    .00029,    .00003,
     +     .00002,    .00013,    .00014 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07297,    .01811,    .00354,    .00027,    .00003,
     +     .00002,    .00012,    .00013,
     +     .06915,    .01711,    .00325,    .00025,    .00003,
     +     .00002,    .00011,    .00012,
     +     .06576,    .01621,    .00300,    .00023,    .00003,
     +     .00002,    .00011,    .00011,
     +     .06270,    .01542,    .00278,    .00022,    .00003,
     +     .00002,    .00010,    .00011,
     +     .05978,    .01467,    .00258,    .00021,    .00003,
     +     .00002,    .00010,    .00010,
     +     .05707,    .01397,    .00241,    .00020,    .00003,
     +     .00002,    .00009,    .00010,
     +     .05464,    .01333,    .00225,    .00018,    .00003,
     +     .00002,    .00008,    .00010,
     +     .05242,    .01276,    .00212,    .00017,    .00003,
     +     .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)/
     +     .05028,    .01222,    .00199,    .00016,    .00002,
     +     .00002,    .00007,    .00009,
     +     .04827,    .01170,    .00188,    .00016,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04643,    .01123,    .00177,    .00015,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04476,    .01081,    .00168,    .00014,    .00002,
     +     .00002,    .00007,    .00008,
     +     .04313,    .01039,    .00160,    .00013,    .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)/
     +     .26408,    .06970,    .04565,    .00112,    .00000,
     +     .00000,    .00040,    .00046,
     +     .24778,    .06507,    .03960,    .00101,    .00000,
     +     .00000,    .00038,    .00043,
     +     .22596,    .05894,    .03231,    .00092,    .00000,
     +     .00000,    .00034,    .00039,
     +     .21171,    .05496,    .02795,    .00086,    .00001,
     +     .00000,    .00032,    .00035,
     +     .19783,    .05109,    .02408,    .00076,    .00001,
     +     .00000,    .00028,    .00032,
     +     .18671,    .04802,    .02125,    .00071,    .00002,
     +     .00000,    .00026,    .00030,
     +     .17674,    .04528,    .01890,    .00066,    .00002,
     +     .00000,    .00025,    .00028,
     +     .16685,    .04257,    .01673,    .00062,    .00002,
     +     .00000,    .00024,    .00026 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .15876,    .04036,    .01507,    .00059,    .00002,
     +     .00000,    .00022,    .00025,
     +     .15140,    .03837,    .01367,    .00055,    .00002,
     +     .00000,    .00020,    .00023,
     +     .14586,    .03688,    .01266,    .00053,    .00002,
     +     .00000,    .00019,    .00022,
     +     .13486,    .03393,    .01080,    .00047,    .00003,
     +     .00000,    .00018,    .00021,
     +     .12620,    .03161,    .00945,    .00045,    .00003,
     +     .00000,    .00016,    .00019,
     +     .11728,    .02924,    .00817,    .00040,    .00003,
     +     .00001,    .00015,    .00017,
     +     .10877,    .02699,    .00706,    .00035,    .00003,
     +     .00001,    .00014,    .00016,
     +     .10164,    .02511,    .00622,    .00033,    .00003,
     +     .00001,    .00012,    .00014 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .09497,    .02337,    .00549,    .00032,    .00003,
     +     .00001,    .00012,    .00013,
     +     .08981,    .02203,    .00496,    .00031,    .00002,
     +     .00001,    .00011,    .00012,
     +     .08400,    .02052,    .00440,    .00027,    .00002,
     +     .00001,    .00010,    .00011,
     +     .07921,    .01929,    .00397,    .00025,    .00002,
     +     .00001,    .00009,    .00011,
     +     .07510,    .01823,    .00363,    .00023,    .00002,
     +     .00001,    .00009,    .00009,
     +     .07020,    .01698,    .00324,    .00021,    .00002,
     +     .00001,    .00008,    .00009,
     +     .06593,    .01588,    .00292,    .00019,    .00002,
     +     .00001,    .00007,    .00008,
     +     .06220,    .01493,    .00266,    .00018,    .00002,
     +     .00001,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .05868,    .01405,    .00243,    .00018,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05546,    .01324,    .00222,    .00017,    .00002,
     +     .00001,    .00006,    .00007,
     +     .05260,    .01252,    .00205,    .00016,    .00002,
     +     .00001,    .00005,    .00006,
     +     .05005,    .01188,    .00190,    .00015,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04764,    .01128,    .00176,    .00014,    .00002,
     +     .00001,    .00005,    .00006,
     +     .04538,    .01071,    .00164,    .00013,    .00002,
     +     .00001,    .00005,    .00005,
     +     .04335,    .01021,    .00153,    .00013,    .00002,
     +     .00001,    .00005,    .00005,
     +     .04150,    .00976,    .00144,    .00012,    .00002,
     +     .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)/
     +     .03973,    .00932,    .00135,    .00011,    .00001,
     +     .00001,    .00004,    .00005,
     +     .03807,    .00891,    .00127,    .00011,    .00001,
     +     .00001,    .00004,    .00005,
     +     .03656,    .00854,    .00120,    .00010,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03518,    .00820,    .00114,    .00009,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03384,    .00788,    .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)/
     +     .22508,    .05704,    .03299,    .00067,    .00000,
     +     .00000,    .00030,    .00032,
     +     .21039,    .05307,    .02842,    .00062,    .00000,
     +     .00000,    .00027,    .00029,
     +     .19096,    .04783,    .02295,    .00054,    .00000,
     +     .00000,    .00024,    .00026,
     +     .17831,    .04445,    .01974,    .00049,    .00001,
     +     .00000,    .00022,    .00024,
     +     .16599,    .04118,    .01692,    .00045,    .00001,
     +     .00000,    .00020,    .00021,
     +     .15616,    .03858,    .01486,    .00042,    .00001,
     +     .00000,    .00019,    .00020,
     +     .14739,    .03628,    .01315,    .00039,    .00001,
     +     .00000,    .00017,    .00019,
     +     .13872,    .03401,    .01160,    .00036,    .00001,
     +     .00000,    .00015,    .00017 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .13166,    .03217,    .01042,    .00033,    .00001,
     +     .00000,    .00014,    .00016,
     +     .12524,    .03051,    .00942,    .00032,    .00001,
     +     .00000,    .00014,    .00015,
     +     .12041,    .02927,    .00871,    .00031,    .00001,
     +     .00000,    .00013,    .00014,
     +     .11086,    .02681,    .00740,    .00028,    .00001,
     +     .00000,    .00012,    .00012,
     +     .10342,    .02489,    .00645,    .00025,    .00001,
     +     .00000,    .00011,    .00012,
     +     .09576,    .02294,    .00556,    .00022,    .00001,
     +     .00000,    .00010,    .00011,
     +     .08845,    .02109,    .00479,    .00020,    .00001,
     +     .00001,    .00010,    .00010,
     +     .08237,    .01957,    .00421,    .00019,    .00001,
     +     .00001,    .00009,    .00009 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .07673,    .01815,    .00371,    .00017,    .00001,
     +     .00001,    .00008,    .00008,
     +     .07238,    .01706,    .00335,    .00016,    .00001,
     +     .00001,    .00008,    .00007,
     +     .06744,    .01584,    .00297,    .00015,    .00001,
     +     .00001,    .00007,    .00007,
     +     .06340,    .01484,    .00267,    .00014,    .00001,
     +     .00001,    .00006,    .00007,
     +     .05995,    .01399,    .00244,    .00013,    .00001,
     +     .00001,    .00006,    .00006,
     +     .05586,    .01299,    .00217,    .00012,    .00001,
     +     .00001,    .00005,    .00005,
     +     .05230,    .01212,    .00196,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04921,    .01137,    .00178,    .00010,    .00001,
     +     .00001,    .00005,    .00005 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04630,    .01066,    .00162,    .00009,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04365,    .01002,    .00148,    .00008,    .00001,
     +     .00001,    .00004,    .00004,
     +     .04129,    .00945,    .00136,    .00008,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03919,    .00895,    .00126,    .00008,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03721,    .00847,    .00117,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03536,    .00803,    .00109,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03371,    .00764,    .00102,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03221,    .00728,    .00096,    .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)/
     +     .03077,    .00694,    .00090,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02942,    .00662,    .00084,    .00006,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02821,    .00634,    .00080,    .00005,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02710,    .00607,    .00075,    .00005,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02601,    .00582,    .00071,    .00005,    .00001,
     +     .00001,    .00002,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
     +     .15604,    .03647,    .01578,    .00028,    .00000,
     +     .00000,    .00009,    .00010,
     +     .14479,    .03367,    .01342,    .00024,    .00000,
     +     .00000,    .00009,    .00010,
     +     .13002,    .03003,    .01066,    .00022,    .00000,
     +     .00000,    .00008,    .00007,
     +     .12049,    .02771,    .00907,    .00020,    .00000,
     +     .00000,    .00007,    .00007,
     +     .11132,    .02547,    .00770,    .00017,    .00000,
     +     .00000,    .00007,    .00007,
     +     .10407,    .02371,    .00671,    .00015,    .00000,
     +     .00000,    .00007,    .00007,
     +     .09762,    .02216,    .00590,    .00013,    .00000,
     +     .00000,    .00006,    .00007,
     +     .09129,    .02065,    .00517,    .00013,    .00000,
     +     .00000,    .00005,    .00006 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .08618,    .01942,    .00462,    .00012,    .00000,
     +     .00000,    .00005,    .00005,
     +     .08155,    .01832,    .00416,    .00012,    .00000,
     +     .00000,    .00005,    .00005,
     +     .07809,    .01750,    .00383,    .00011,    .00000,
     +     .00000,    .00004,    .00004,
     +     .07129,    .01590,    .00323,    .00010,    .00000,
     +     .00000,    .00004,    .00004,
     +     .06602,    .01466,    .00281,    .00009,    .00000,
     +     .00000,    .00004,    .00003,
     +     .06065,    .01341,    .00242,    .00008,    .00000,
     +     .00000,    .00003,    .00004,
     +     .05558,    .01223,    .00208,    .00007,    .00000,
     +     .00000,    .00003,    .00004,
     +     .05138,    .01126,    .00182,    .00007,    .00000,
     +     .00000,    .00003,    .00003 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
     +     .04751,    .01038,    .00160,    .00007,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04456,    .00970,    .00144,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .04126,    .00894,    .00127,    .00005,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03857,    .00833,    .00114,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03626,    .00781,    .00104,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03355,    .00720,    .00093,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .03121,    .00668,    .00083,    .00004,    .00000,
     +     .00000,    .00002,    .00002,
     +     .02919,    .00623,    .00076,    .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)/
     +     .02731,    .00581,    .00069,    .00003,    .00000,
     +     .00000,    .00002,    .00001,
     +     .02560,    .00543,    .00063,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02409,    .00509,    .00058,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02276,    .00480,    .00053,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02151,    .00452,    .00049,    .00002,    .00000,
     +     .00000,    .00001,    .00002,
     +     .02034,    .00427,    .00046,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01929,    .00404,    .00043,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01836,    .00384,    .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)/
     +     .01747,    .00364,    .00037,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01664,    .00346,    .00035,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01589,    .00330,    .00033,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01520,    .00315,    .00031,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01454,    .00301,    .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)/
     +     .10001,    .02137,    .00649,    .00008,    .00000,
     +     .00000,    .00002,    .00003,
     +     .09206,    .01958,    .00546,    .00008,    .00000,
     +     .00000,    .00002,    .00003,
     +     .08172,    .01727,    .00429,    .00007,    .00000,
     +     .00000,    .00002,    .00003,
     +     .07512,    .01580,    .00362,    .00006,    .00000,
     +     .00000,    .00002,    .00003,
     +     .06883,    .01441,    .00306,    .00006,    .00000,
     +     .00000,    .00002,    .00002,
     +     .06388,    .01333,    .00265,    .00006,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05953,    .01237,    .00233,    .00005,    .00000,
     +     .00000,    .00001,    .00001,
     +     .05530,    .01145,    .00203,    .00004,    .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=9,16)/
     +     .05189,    .01071,    .00181,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04883,    .01004,    .00163,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04655,    .00955,    .00150,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04210,    .00860,    .00126,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03870,    .00787,    .00110,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03525,    .00714,    .00094,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03202,    .00646,    .00081,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02937,    .00590,    .00071,    .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)/
     +     .02696,    .00539,    .00062,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02512,    .00501,    .00056,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02308,    .00459,    .00049,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02143,    .00424,    .00044,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02004,    .00395,    .00040,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01840,    .00362,    .00036,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01700,    .00333,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01581,    .00309,    .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)/
     +     .01469,    .00286,    .00026,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01368,    .00266,    .00024,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01281,    .00248,    .00022,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01203,    .00233,    .00020,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01131,    .00218,    .00019,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01064,    .00205,    .00017,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01004,    .00193,    .00016,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00952,    .00182,    .00015,    .00001,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00901,    .00172,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00855,    .00163,    .00013,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00812,    .00155,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00774,    .00147,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00738,    .00140,    .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)/
     +     .05778,    .01117,    .00219,    .00004,    .00000,
     +     .00000,    .00000,    .00000,
     +     .05270,    .01015,    .00183,    .00003,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04620,    .00884,    .00143,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04209,    .00801,    .00121,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03820,    .00724,    .00102,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03518,    .00665,    .00089,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03254,    .00612,    .00078,    .00001,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02999,    .00562,    .00068,    .00001,    .00000,
     +     .00000,    .00000,    .00001 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .02795,    .00522,    .00061,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02614,    .00487,    .00055,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02479,    .00461,    .00050,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02221,    .00411,    .00042,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02023,    .00373,    .00037,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01825,    .00335,    .00032,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01642,    .00300,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01493,    .00272,    .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)/
     +     .01359,    .00246,    .00021,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01257,    .00227,    .00019,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01145,    .00206,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01055,    .00190,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00980,    .00176,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00893,    .00159,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00819,    .00146,    .00011,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00755,    .00134,    .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)/
     +     .00697,    .00123,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00645,    .00114,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00600,    .00105,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00560,    .00098,    .00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00523,    .00092,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00490,    .00085,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00460,    .00080,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00433,    .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)/
     +     .00408,    .00071,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00385,    .00067,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00364,    .00063,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00345,    .00060,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00328,    .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)/
     +     .02873,    .00493,    .00056,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02594,    .00443,    .00047,    .00000,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02240,    .00381,    .00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02019,    .00342,    .00032,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01813,    .00306,    .00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01654,    .00278,    .00024,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01517,    .00254,    .00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01386,    .00231,    .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)/
     +     .01282,    .00213,    .00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01190,    .00197,    .00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01122,    .00186,    .00014,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00993,    .00163,    .00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00895,    .00147,    .00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00799,    .00130,    .00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00710,    .00116,    .00008,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00639,    .00104,    .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)/
     +     .00576,    .00093,    .00006,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00528,    .00085,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00477,    .00077,    .00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00436,    .00070,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00401,    .00064,    .00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00362,    .00058,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00329,    .00052,    .00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00301,    .00048,    .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)/
     +     .00275,    .00043,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00253,    .00040,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00233,    .00037,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00216,    .00034,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00201,    .00031,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00186,    .00029,    .00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00174,    .00027,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00163,    .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)/
     +     .00153,    .00024,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00143,    .00022,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00135,    .00021,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00127,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00120,    .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,
     +     .00216,    .00026,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00189,    .00023,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00164,    .00020,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00146,    .00018,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00131,    .00016,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00116,    .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)/
     +     .00105,    .00013,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00095,    .00011,    .00001,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00089,    .00011,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00076,    .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)/
     +     .00038,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00034,    .00004,    .00000,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00030,    .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='cor11.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