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

sfmrs_99d5.F

#include "pdf/pilot.h"
      subroutine sfmrs_99d5(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)/
     +     .00510,    .00248,   1.15875,    .80457,    .00000,
     +     .00000,    .43584,    .81333,
     +     .00524,    .00255,   2.44288,    .85343,    .00000,
     +     .00000,    .48940,    .86231,
     +     .00546,    .00265,   4.94837,    .95131,    .02486,
     +     .00000,    .59391,    .96036,
     +     .00562,    .00272,   7.22115,   1.04178,    .14224,
     +     .00000,    .68893,   1.05093,
     +     .00579,    .00280,  10.19717,   1.15592,    .27368,
     +     .00000,    .80771,   1.16517,
     +     .00593,    .00288,  13.26742,   1.27018,    .39655,
     +     .00000,    .92586,   1.27952,
     +     .00607,    .00294,  16.70902,   1.39398,    .52962,
     +     .00000,   1.05327,   1.40339,
     +     .00622,    .00301,  20.93945,   1.54105,    .68806,
     +     .00000,   1.20411,   1.55053 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
     +     .00635,    .00308,  25.13928,   1.68250,    .84135,
     +     .00000,   1.34872,   1.69203,
     +     .00648,    .00314,  29.64337,   1.83218,   1.00083,
     +     .00000,   1.50141,   1.84177,
     +     .00657,    .00319,  33.52577,   1.96017,   1.13539,
     +     .00000,   1.63173,   1.96979,
     +     .00678,    .00330,  42.76441,   2.26157,   1.45403,
     +     .00000,   1.93798,   2.27127,
     +     .00698,    .00340,  51.53056,   2.55293,   1.76125,
     +     .26005,   2.23338,   2.56268,
     +     .00720,    .00352,  62.35968,   2.91409,   2.14030,
     +     .71494,   2.59892,   2.92390,
     +     .00743,    .00363,  75.14676,   3.33200,   2.57737,
     +    1.17566,   3.02127,   3.34187,
     +     .00764,    .00374,  88.07106,   3.74884,   3.01230,
     +    1.63594,   3.44202,   3.75874 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
     +     .00786,    .00386, 102.44391,   4.20852,   3.49091,
     +    2.13864,   3.90553,   4.21845,
     +     .00804,    .00395, 115.38252,   4.62053,   3.91832,
     +    2.58331,   4.32067,   4.63050,
     +     .00826,    .00406, 132.28655,   5.15822,   4.47398,
     +    3.15755,   4.86205,   5.16821,
     +     .00846,    .00417, 148.42119,   5.67052,   5.00290,
     +    3.70513,   5.37754,   5.68053,
     +     .00864,    .00427, 164.27665,   6.17247,   5.52197,
     +    4.24607,   5.88235,   6.18250,
     +     .00888,    .00439, 185.62041,   6.85182,   6.22086,
     +    4.96588,   6.56525,   6.86187,
     +     .00911,    .00451, 207.01149,   7.53587,   6.92280,
     +    5.68645,   7.25255,   7.54592,
     +     .00932,    .00463, 228.33761,   8.21937,   7.62441,
     +    6.40892,   7.93905,   8.22943 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
     +     .00954,    .00474, 250.92066,   8.94537,   8.36958,
     +    7.17732,   8.66797,   8.95544,
     +     .00975,    .00486, 273.90762,   9.69278,   9.13297,
     +    7.95706,   9.41819,   9.70285,
     +     .00996,    .00498, 296.85894,  10.44070,   9.89808,
     +    8.74257,  10.16871,  10.45077,
     +     .01015,    .00508, 319.33918,  11.17892,  10.65183,
     +    9.51399,  10.90934,  11.18899,
     +     .01035,    .00518, 342.78744,  11.95423,  11.44270,
     +   10.32281,  11.68703,  11.96430,
     +     .01055,    .00529, 366.80706,  12.75245,  12.25693,
     +   11.15631,  12.48756,  12.76253,
     +     .01073,    .00540, 390.26199,  13.53974,  13.05827,
     +   11.97372,  13.27700,  13.54981,
     +     .01092,    .00549, 413.30719,  14.31630,  13.84915,
     +   12.78213,  14.05557,  14.32636 /
        DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
     +     .01110,    .00559, 437.09049,  15.12524,  14.67171,
     +   13.62076,  14.86650,  15.13529,
     +     .01128,    .00570, 461.30544,  15.95361,  15.51394,
     +   14.47976,  15.69681,  15.96367,
     +     .01146,    .00579, 485.02052,  16.77040,  16.34404,
     +   15.32632,  16.51542,  16.78044,
     +     .01163,    .00589, 507.94550,  17.56723,  17.15264,
     +   16.14898,  17.31395,  17.57726,
     +     .01180,    .00598, 532.01069,  18.40452,  18.00365,
     +   17.01812,  18.15294,  18.41454 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
     +     .00710,    .00350,   1.03862,    .68956,    .00000,
     +     .00000,    .37314,    .69479,
     +     .00731,    .00359,   2.17310,    .73291,    .00000,
     +     .00000,    .42021,    .73821,
     +     .00761,    .00373,   4.34499,    .81724,    .02183,
     +     .00000,    .50978,    .82263,
     +     .00782,    .00384,   6.27929,    .89357,    .12073,
     +     .00000,    .58972,    .89901,
     +     .00805,    .00396,   8.77439,    .98858,    .23013,
     +     .00000,    .68839,    .99409,
     +     .00825,    .00407,  11.31317,   1.08263,    .33113,
     +     .00000,    .78548,   1.08818,
     +     .00844,    .00416,  14.12580,   1.18362,    .43950,
     +     .00000,    .88933,   1.18921,
     +     .00865,    .00427,  17.54414,   1.30264,    .56738,
     +     .00000,   1.01128,   1.30827 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
     +     .00883,    .00436,  20.90263,   1.41627,    .69014,
     +     .00000,   1.12740,   1.42195,
     +     .00901,    .00445,  24.47004,   1.53572,    .81691,
     +     .00000,   1.24920,   1.54142,
     +     .00915,    .00452,  27.51981,   1.63724,    .92321,
     +     .00000,   1.35254,   1.64296,
     +     .00945,    .00467,  34.69952,   1.87458,   1.17303,
     +     .00000,   1.59367,   1.88034,
     +     .00971,    .00481,  41.42091,   2.10195,   1.41166,
     +     .20127,   1.82420,   2.10774,
     +     .01001,    .00497,  49.61898,   2.38140,   1.70352,
     +     .55208,   2.10707,   2.38724,
     +     .01033,    .00514,  59.17983,   2.70186,   2.03697,
     +     .90335,   2.43099,   2.70774,
     +     .01062,    .00530,  68.73089,   3.01878,   2.36600,
     +    1.25123,   2.75096,   3.02469 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
     +     .01091,    .00545,  79.23797,   3.36554,   2.72520,
     +    1.62803,   3.10071,   3.37148,
     +     .01117,    .00558,  88.60517,   3.67414,   3.04371,
     +    1.95885,   3.41172,   3.68009,
     +     .01147,    .00574, 100.72617,   4.07398,   3.45481,
     +    2.38290,   3.81444,   4.07995,
     +     .01174,    .00590, 112.18709,   4.45226,   3.84345,
     +    2.78445,   4.19521,   4.45826,
     +     .01200,    .00603, 123.35974,   4.82067,   4.22261,
     +    3.17883,   4.56584,   4.82668,
     +     .01232,    .00621, 138.26267,   5.31583,   4.72957,
     +    3.69979,   5.06375,   5.32186,
     +     .01263,    .00637, 153.05795,   5.81083,   5.23514,
     +    4.21752,   5.56129,   5.81687,
     +     .01291,    .00653, 167.68606,   6.30227,   5.73732,
     +    4.73343,   6.05505,   6.30833 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
     +     .01321,    .00669, 183.05484,   6.82107,   6.26752,
     +    5.27890,   6.57613,   6.82715,
     +     .01351,    .00685, 198.56705,   7.35174,   6.80715,
     +    5.82864,   7.10897,   7.35782,
     +     .01377,    .00700, 213.94810,   7.87986,   7.34517,
     +    6.37968,   7.63911,   7.88595,
     +     .01404,    .00715, 228.90825,   8.39828,   7.87233,
     +    6.91784,   8.15941,   8.40438,
     +     .01431,    .00729, 244.40962,   8.93994,   8.42265,
     +    7.47924,   8.70292,   8.94605,
     +     .01457,    .00743, 260.19079,   9.49487,   8.98654,
     +    8.05506,   9.25963,   9.50098,
     +     .01483,    .00757, 275.50095,  10.03942,   9.53868,
     +    8.61683,   9.80586,  10.04554,
     +     .01507,    .00771, 290.46374,  10.57424,  10.08138,
     +    9.17021,  10.34224,  10.58037 /
        DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
     +     .01532,    .00785, 305.81536,  11.12882,  10.64325,
     +    9.74160,  10.89836,  11.13495,
     +     .01557,    .00799, 321.36373,  11.69433,  11.21619,
     +   10.32451,  11.46538,  11.70046,
     +     .01580,    .00812, 336.51235,  12.24962,  11.77860,
     +   10.89667,  12.02209,  12.25576,
     +     .01603,    .00824, 351.07943,  12.78911,  12.32420,
     +   11.45036,  12.56293,  12.79526,
     +     .01627,    .00837, 366.31234,  13.35414,  12.89667,
     +   12.03371,  13.12927,  13.36029 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
     +     .00990,    .00492,    .93023,    .59085,    .00000,
     +     .00000,    .31959,    .59362,
     +     .01017,    .00506,   1.93249,    .62920,    .00000,
     +     .00000,    .36091,    .63200,
     +     .01058,    .00527,   3.81466,    .70175,    .01917,
     +     .00000,    .43761,    .70459,
     +     .01088,    .00542,   5.45975,    .76605,    .10243,
     +     .00000,    .50475,    .76893,
     +     .01120,    .00559,   7.54944,    .84499,    .19339,
     +     .00000,    .58658,    .84789,
     +     .01148,    .00574,   9.64589,    .92221,    .27629,
     +     .00000,    .66620,    .92513,
     +     .01174,    .00588,  11.94075,   1.00438,    .36442,
     +     .00000,    .75059,   1.00732,
     +     .01203,    .00602,  14.69766,   1.10041,    .46747,
     +     .00000,    .84893,   1.10337 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
     +     .01228,    .00616,  17.37765,   1.19141,    .56561,
     +     .00000,    .94187,   1.19438,
     +     .01252,    .00629,  20.19652,   1.28639,    .66622,
     +     .00000,   1.03868,   1.28939,
     +     .01271,    .00639,  22.58607,   1.36664,    .75004,
     +     .00000,   1.12035,   1.36964,
     +     .01313,    .00661,  28.15013,   1.55283,    .94552,
     +     .00000,   1.30951,   1.55587,
     +     .01349,    .00681,  33.28788,   1.72959,   1.13048,
     +     .15514,   1.48872,   1.73264,
     +     .01391,    .00703,  39.47154,   1.94496,   1.35471,
     +     .42547,   1.70675,   1.94803,
     +     .01434,    .00726,  46.59206,   2.18968,   1.60852,
     +     .69304,   1.95414,   2.19277,
     +     .01474,    .00748,  53.62043,   2.42962,   1.85680,
     +     .95570,   2.19644,   2.43274 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
     +     .01515,    .00770,  61.26695,   2.69004,   2.12568,
     +    1.23781,   2.45919,   2.69318,
     +     .01549,    .00789,  68.01609,   2.92012,   2.36236,
     +    1.48361,   2.69113,   2.92328,
     +     .01591,    .00811,  76.66377,   3.21610,   2.66564,
     +    1.79634,   2.98933,   3.21928,
     +     .01628,    .00832,  84.76192,   3.49411,   2.95032,
     +    2.09036,   3.26924,   3.49731,
     +     .01662,    .00851,  92.59193,   3.76319,   3.22640,
     +    2.37742,   3.54005,   3.76640,
     +     .01707,    .00875, 102.93767,   4.12232,   3.59291,
     +    2.75378,   3.90131,   4.12555,
     +     .01749,    .00898, 113.10924,   4.47872,   3.95576,
     +    3.12505,   4.25965,   4.48196,
     +     .01788,    .00919, 123.08018,   4.83024,   4.31389,
     +    3.49268,   4.61296,   4.83350 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
     +     .01828,    .00942, 133.47171,   5.19904,   4.68971,
     +    3.87903,   4.98351,   5.20232,
     +     .01867,    .00963, 143.86815,   5.57379,   5.06965,
     +    4.26566,   5.35994,   5.57708,
     +     .01905,    .00985, 154.10395,   5.94467,   5.44645,
     +    4.65122,   5.73237,   5.94797,
     +     .01941,    .01004, 163.98741,   6.30670,   5.81359,
     +    5.02563,   6.09585,   6.31002,
     +     .01977,    .01024, 174.15869,   6.68297,   6.19485,
     +    5.41416,   6.47355,   6.68631,
     +     .02012,    .01045, 184.44794,   7.06653,   6.58363,
     +    5.81078,   6.85849,   7.06988,
     +     .02047,    .01063, 194.36186,   7.44097,   6.96232,
     +    6.19563,   7.23421,   7.44433,
     +     .02080,    .01082, 203.99855,   7.80712,   7.33297,
     +    6.57319,   7.60157,   7.81050 /
        DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
     +     .02113,    .01101, 213.82457,   8.18501,   7.71491,
     +    6.96116,   7.98064,   8.18839,
     +     .02146,    .01120, 223.72283,   8.56870,   8.10276,
     +    7.35532,   8.36550,   8.57209,
     +     .02178,    .01136, 233.31486,   8.94386,   8.48189,
     +    7.74063,   8.74175,   8.94728,
     +     .02208,    .01154, 242.48780,   9.30683,   8.84812,
     +    8.11185,   9.10574,   9.31024,
     +     .02239,    .01171, 252.04288,   9.68569,   9.23123,
     +    8.50187,   9.48563,   9.68912 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
     +     .01199,    .00602,    .87158,    .53974,    .00000,
     +     .00000,    .29201,    .54150,
     +     .01233,    .00618,   1.80373,    .57542,    .00000,
     +     .00000,    .33028,    .57720,
     +     .01282,    .00644,   3.53451,    .64177,    .01779,
     +     .00000,    .40026,    .64357,
     +     .01318,    .00664,   5.03046,    .69988,    .09302,
     +     .00000,    .46085,    .70170,
     +     .01358,    .00684,   6.91342,    .77061,    .17460,
     +     .00000,    .53410,    .77245,
     +     .01391,    .00701,   8.78656,    .83931,    .24841,
     +     .00000,    .60488,    .84116,
     +     .01424,    .00719,  10.82228,    .91203,    .32641,
     +     .00000,    .67954,    .91389,
     +     .01458,    .00737,  13.25099,    .99657,    .41714,
     +     .00000,    .76608,    .99846 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
     +     .01488,    .00753,  15.59701,   1.07633,    .50315,
     +     .00000,    .84753,   1.07823,
     +     .01517,    .00769,  18.05011,   1.15924,    .59092,
     +     .00000,    .93202,   1.16114,
     +     .01541,    .00782,  20.11909,   1.22902,    .66379,
     +     .00000,   1.00303,   1.23093,
     +     .01590,    .00809,  24.90522,   1.39024,    .83293,
     +     .00000,   1.16681,   1.39218,
     +     .01635,    .00833,  29.28900,   1.54246,    .99208,
     +     .13283,   1.32115,   1.54440,
     +     .01684,    .00861,  34.52250,   1.72697,   1.18401,
     +     .36478,   1.50796,   1.72894,
     +     .01737,    .00889,  40.50315,   1.93549,   1.40007,
     +     .59281,   1.71879,   1.93748,
     +     .01785,    .00916,  46.36408,   2.13891,   1.61034,
     +     .81550,   1.92423,   2.14091 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
     +     .01834,    .00942,  52.69814,   2.35863,   1.83697,
     +    1.05348,   2.14596,   2.36065,
     +     .01875,    .00965,  58.25545,   2.55192,   2.03559,
     +    1.25990,   2.34086,   2.55396,
     +     .01925,    .00993,  65.33386,   2.79950,   2.28900,
     +    1.52137,   2.59035,   2.80156,
     +     .01970,    .01018,  71.92415,   3.03107,   2.52587,
     +    1.76614,   2.82355,   3.03315,
     +     .02011,    .01040,  78.26498,   3.25439,   2.75477,
     +    2.00428,   3.04835,   3.25648,
     +     .02064,    .01070,  86.59539,   3.55119,   3.05735,
     +    2.31512,   3.34698,   3.55330,
     +     .02115,    .01098,  94.73757,   3.84445,   3.35561,
     +    2.62039,   3.64192,   3.84659,
     +     .02161,    .01124, 102.67831,   4.13258,   3.64886,
     +    2.92152,   3.93158,   4.13473 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
     +     .02210,    .01151, 110.91375,   4.43377,   3.95550,
     +    3.23687,   4.23426,   4.43594,
     +     .02256,    .01177, 119.10916,   4.73860,   4.26425,
     +    3.55109,   4.54054,   4.74079,
     +     .02302,    .01202, 127.14385,   5.03929,   4.56947,
     +    3.86349,   4.84257,   5.04149,
     +     .02344,    .01226, 134.86764,   5.33184,   4.86587,
     +    4.16581,   5.13636,   5.33406,
     +     .02388,    .01250, 142.78351,   5.63492,   5.17274,
     +    4.47856,   5.44067,   5.63717,
     +     .02430,    .01274, 150.76048,   5.94298,   5.48473,
     +    4.79690,   5.74990,   5.94524,
     +     .02471,    .01297, 158.41447,   6.24276,   5.78766,
     +    5.10479,   6.05079,   6.24504,
     +     .02511,    .01319, 165.83014,   6.53516,   6.08344,
     +    5.40612,   6.34421,   6.53745 /
        DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
     +     .02550,    .01341, 173.36306,   6.83607,   6.38734,
     +    5.71485,   6.64615,   6.83839,
     +     .02589,    .01363, 180.92657,   7.14083,   6.69518,
     +    6.02774,   6.95191,   7.14316,
     +     .02627,    .01384, 188.23205,   7.43806,   6.99535,
     +    6.33282,   7.25008,   7.44041,
     +     .02663,    .01405, 195.19448,   7.72489,   7.28456,
     +    6.62599,   7.53779,   7.72725,
     +     .02700,    .01425, 202.43064,   8.02372,   7.58657,
     +    6.93351,   7.83751,   8.02610 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
     +     .01376,    .00693,    .83174,    .50621,    .00000,
     +     .00000,    .27398,    .50744,
     +     .01412,    .00713,   1.71726,    .54004,    .00000,
     +     .00000,    .31019,    .54128,
     +     .01470,    .00743,   3.34792,    .60230,    .01689,
     +     .00000,    .37574,    .60356,
     +     .01512,    .00765,   4.74623,    .65633,    .08687,
     +     .00000,    .43203,    .65760,
     +     .01556,    .00789,   6.49468,    .72172,    .16235,
     +     .00000,    .49970,    .72299,
     +     .01594,    .00810,   8.22338,    .78491,    .23027,
     +     .00000,    .56478,    .78619,
     +     .01631,    .00830,  10.09245,    .85150,    .30175,
     +     .00000,    .63314,    .85281,
     +     .01670,    .00852,  12.31123,    .92867,    .38461,
     +     .00000,    .71212,    .92998 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
     +     .01706,    .00870,  14.44466,   1.00123,    .46288,
     +     .00000,    .78621,   1.00256,
     +     .01738,    .00888,  16.66602,   1.07643,    .54250,
     +     .00000,    .86284,   1.07776,
     +     .01765,    .00903,  18.53266,   1.13956,    .60842,
     +     .00000,    .92710,   1.14090,
     +     .01822,    .00933,  22.83041,   1.28496,    .76096,
     +     .00000,   1.07480,   1.28631,
     +     .01872,    .00962,  26.74438,   1.42169,    .90390,
     +     .11874,   1.21345,   1.42306,
     +     .01929,    .00992,  31.38915,   1.58685,   1.07566,
     +     .32674,   1.38068,   1.58824,
     +     .01990,    .01026,  36.66785,   1.77276,   1.26824,
     +     .53022,   1.56867,   1.77417,
     +     .02045,    .01056,  41.81406,   1.95345,   1.45498,
     +     .72820,   1.75120,   1.95487 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
     +     .02101,    .01088,  47.34896,   2.14796,   1.65555,
     +     .93903,   1.94752,   2.14943,
     +     .02147,    .01113,  52.18413,   2.31856,   1.83079,
     +    1.12131,   2.11956,   2.32003,
     +     .02204,    .01145,  58.31623,   2.53639,   2.05366,
     +    1.35145,   2.33911,   2.53789,
     +     .02255,    .01174,  64.00164,   2.73951,   2.26136,
     +    1.56625,   2.54372,   2.74102,
     +     .02302,    .01199,  69.45243,   2.93489,   2.46157,
     +    1.77471,   2.74042,   2.93643,
     +     .02362,    .01234,  76.58389,   3.19378,   2.72540,
     +    2.04591,   3.00096,   3.19534,
     +     .02419,    .01265,  83.52451,   3.44879,   2.98465,
     +    2.31142,   3.25746,   3.45036,
     +     .02473,    .01295,  90.26823,   3.69863,   3.23886,
     +    2.57262,   3.50869,   3.70023 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
     +     .02528,    .01325,  97.23781,   3.95910,   3.50399,
     +    2.84545,   3.77051,   3.96072,
     +     .02581,    .01355, 104.14633,   4.22198,   3.77015,
     +    3.11645,   4.03469,   4.22363,
     +     .02631,    .01385, 110.89855,   4.48068,   4.03267,
     +    3.38529,   4.29459,   4.48234,
     +     .02680,    .01411, 117.36865,   4.73177,   4.28699,
     +    3.64483,   4.54679,   4.73345,
     +     .02729,    .01439, 123.97963,   4.99132,   4.54970,
     +    3.91271,   4.80744,   4.99302,
     +     .02778,    .01466, 130.62317,   5.25455,   4.81624,
     +    4.18481,   5.07173,   5.25627,
     +     .02824,    .01493, 136.97819,   5.51014,   5.07445,
     +    4.44735,   5.32832,   5.51189,
     +     .02868,    .01517, 143.12088,   5.75897,   5.32611,
     +    4.70386,   5.57808,   5.76074 /
        DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
     +     .02913,    .01542, 149.34326,   6.01454,   5.58414,
     +    4.96610,   5.83456,   6.01633,
     +     .02957,    .01567, 155.57614,   6.27289,   5.84506,
     +    5.23140,   6.09380,   6.27469,
     +     .03000,    .01591, 161.58191,   6.52440,   6.09901,
     +    5.48963,   6.34616,   6.52622,
     +     .03040,    .01615, 167.29133,   6.76666,   6.34324,
     +    5.73729,   6.58922,   6.76851,
     +     .03081,    .01637, 173.21547,   7.01871,   6.59794,
     +    5.99677,   6.84205,   7.02057 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
     +     .01528,    .00774,    .80189,    .48166,    .00000,
     +     .00000,    .26082,    .48253,
     +     .01571,    .00797,   1.65286,    .51414,    .00000,
     +     .00000,    .29548,    .51501,
     +     .01634,    .00831,   3.20981,    .57335,    .01624,
     +     .00000,    .35778,    .57424,
     +     .01680,    .00856,   4.53685,    .62440,    .08237,
     +     .00000,    .41093,    .62529,
     +     .01729,    .00882,   6.18754,    .68588,    .15341,
     +     .00000,    .47453,    .68679,
     +     .01772,    .00905,   7.81177,    .74505,    .21706,
     +     .00000,    .53547,    .74599,
     +     .01813,    .00927,   9.56071,    .80724,    .28385,
     +     .00000,    .59929,    .80818,
     +     .01857,    .00951,  11.62875,    .87908,    .36103,
     +     .00000,    .67282,    .88003 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
     +     .01895,    .00972,  13.61010,    .94648,    .43376,
     +     .00000,    .74163,    .94743,
     +     .01932,    .00993,  15.66619,   1.01614,    .50755,
     +     .00000,    .81264,   1.01711,
     +     .01962,    .01009,  17.38901,   1.07451,    .56851,
     +     .00000,    .87204,   1.07550,
     +     .02025,    .01043,  21.34091,   1.20862,    .70923,
     +     .00000,   1.00829,   1.20963,
     +     .02081,    .01075,  24.92418,   1.33436,    .84070,
     +     .10872,   1.13581,   1.33538,
     +     .02145,    .01110,  29.15660,   1.48580,    .99821,
     +     .29980,   1.28916,   1.48683,
     +     .02211,    .01147,  33.94572,   1.65573,   1.17426,
     +     .48602,   1.46104,   1.65680,
     +     .02271,    .01180,  38.59547,   1.82044,   1.34448,
     +     .66669,   1.62745,   1.82153 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
     +     .02334,    .01215,  43.57749,   1.99729,   1.52682,
     +     .85854,   1.80596,   1.99840,
     +     .02385,    .01244,  47.91467,   2.15200,   1.68574,
     +    1.02399,   1.96201,   2.15313,
     +     .02448,    .01280,  53.39663,   2.34908,   1.88738,
     +    1.23238,   2.16068,   2.35023,
     +     .02505,    .01311,  58.46244,   2.53242,   2.07483,
     +    1.42640,   2.34539,   2.53360,
     +     .02557,    .01340,  63.30567,   2.70841,   2.25516,
     +    1.61432,   2.52261,   2.70960,
     +     .02622,    .01377,  69.62133,   2.94105,   2.49224,
     +    1.85820,   2.75677,   2.94227,
     +     .02686,    .01412,  75.74732,   3.16964,   2.72462,
     +    2.09635,   2.98676,   3.17089,
     +     .02745,    .01445,  81.68210,   3.39312,   2.95199,
     +    2.33015,   3.21151,   3.39440 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
     +     .02805,    .01479,  87.79851,   3.62562,   3.18865,
     +    2.57385,   3.44527,   3.62693,
     +     .02864,    .01513,  93.84247,   3.85976,   3.42568,
     +    2.81534,   3.68060,   3.86109,
     +     .02920,    .01544,  99.73538,   4.08974,   3.65906,
     +    3.05450,   3.91169,   4.09109,
     +     .02973,    .01574, 105.36778,   4.31253,   3.88472,
     +    3.28492,   4.13551,   4.31391,
     +     .03027,    .01604, 111.10889,   4.54242,   4.11740,
     +    3.52233,   4.36642,   4.54383,
     +     .03080,    .01635, 116.86572,   4.77520,   4.35310,
     +    3.76308,   4.60017,   4.77662,
     +     .03131,    .01664, 122.35898,   5.00081,   4.58101,
     +    3.99495,   4.82670,   5.00226,
     +     .03180,    .01692, 127.65862,   5.22013,   4.80283,
     +    4.22118,   5.04689,   5.22161 /
        DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
     +     .03229,    .01718, 133.01532,   5.44503,   5.02990,
     +    4.45208,   5.27262,   5.44652,
     +     .03278,    .01746, 138.37084,   5.67204,   5.25918,
     +    4.68535,   5.50047,   5.67356,
     +     .03325,    .01773, 143.52128,   5.89274,   5.48202,
     +    4.91206,   5.72195,   5.89428,
     +     .03370,    .01798, 148.40790,   6.10501,   5.69602,
     +    5.12918,   5.93496,   6.10657,
     +     .03415,    .01824, 153.47189,   6.32562,   5.91897,
     +    5.35644,   6.15629,   6.32721 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
     +     .02129,    .01099,    .71412,    .41282,    .00000,
     +     .00000,    .22415,    .41316,
     +     .02188,    .01130,   1.46655,    .44126,    .00000,
     +     .00000,    .25439,    .44162,
     +     .02274,    .01178,   2.81510,    .49174,    .01440,
     +     .00000,    .30737,    .49213,
     +     .02338,    .01212,   3.94211,    .53437,    .06975,
     +     .00000,    .35170,    .53477,
     +     .02406,    .01250,   5.32082,    .58496,    .12843,
     +     .00000,    .40400,    .58537,
     +     .02465,    .01282,   6.65668,    .63303,    .18030,
     +     .00000,    .45350,    .63346,
     +     .02522,    .01314,   8.07650,    .68305,    .23421,
     +     .00000,    .50483,    .68351,
     +     .02581,    .01347,   9.73439,    .74033,    .29593,
     +     .00000,    .56347,    .74081 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
     +     .02634,    .01377,  11.30458,    .79364,    .35361,
     +     .00000,    .61792,    .79413,
     +     .02685,    .01405,  12.91661,    .84833,    .41169,
     +     .00000,    .67368,    .84884,
     +     .02725,    .01428,  14.25491,    .89386,    .45936,
     +     .00000,    .72006,    .89439,
     +     .02812,    .01477,  17.28851,    .99767,    .56852,
     +     .00000,    .82557,    .99823,
     +     .02890,    .01520,  20.00138,   1.09407,    .66953,
     +     .08179,    .92341,   1.09467,
     +     .02976,    .01569,  23.15555,   1.20914,    .78944,
     +     .22825,   1.04002,   1.20978,
     +     .03067,    .01620,  26.67521,   1.33705,    .92218,
     +     .36928,   1.16947,   1.33772,
     +     .03150,    .01667,  30.04775,   1.45991,   1.04935,
     +     .50487,   1.29368,   1.46062 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
     +     .03235,    .01715,  33.61745,   1.59072,   1.18444,
     +     .64762,   1.42583,   1.59147,
     +     .03305,    .01755,  36.69105,   1.70428,   1.30126,
     +     .76973,   1.54047,   1.70507,
     +     .03392,    .01804,  40.53370,   1.84786,   1.44835,
     +     .92234,   1.68531,   1.84868,
     +     .03468,    .01848,  44.04697,   1.98042,   1.58406,
     +    1.06336,   1.81896,   1.98128,
     +     .03538,    .01887,  47.37591,   2.10686,   1.71380,
     +    1.19910,   1.94637,   2.10776,
     +     .03629,    .01939,  51.67095,   2.27275,   1.88306,
     +    1.37384,   2.11348,   2.27368,
     +     .03714,    .01987,  55.79175,   2.43449,   2.04768,
     +    1.54314,   2.27632,   2.43547,
     +     .03794,    .02033,  59.74630,   2.59153,   2.20764,
     +    1.70821,   2.43438,   2.59256 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
     +     .03875,    .02079,  63.78553,   2.75385,   2.37307,
     +    1.87917,   2.59769,   2.75492,
     +     .03954,    .02124,  67.73639,   2.91615,   2.53754,
     +    2.04728,   2.76093,   2.91725,
     +     .04030,    .02168,  71.55868,   3.07462,   2.69856,
     +    2.21284,   2.92029,   3.07577,
     +     .04102,    .02209,  75.18152,   3.22723,   2.85331,
     +    2.37138,   3.07372,   3.22842,
     +     .04174,    .02251,  78.84567,   3.38383,   3.01198,
     +    2.53379,   3.23111,   3.38504,
     +     .04246,    .02291,  82.49369,   3.54153,   3.17185,
     +    2.69763,   3.38960,   3.54279,
     +     .04315,    .02330,  85.94668,   3.69351,   3.32556,
     +    2.85448,   3.54231,   3.69482,
     +     .04380,    .02368,  89.25805,   3.84059,   3.47449,
     +    3.00685,   3.69008,   3.84193 /
        DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
     +     .04446,    .02405,  92.58047,   3.99062,   3.62615,
     +    3.16154,   3.84079,   3.99200,
     +     .04511,    .02442,  95.88177,   4.14138,   3.77859,
     +    3.31711,   3.99220,   4.14279,
     +     .04574,    .02478,  99.03690,   4.28727,   3.92607,
     +    3.46762,   4.13871,   4.28872,
     +     .04632,    .02512, 102.01039,   4.42693,   4.06703,
     +    3.61105,   4.27896,   4.42842,
     +     .04693,    .02546, 105.07972,   4.57159,   4.21342,
     +    3.76076,   4.42420,   4.57311 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
     +     .02982,    .01567,    .63294,    .35426,    .00000,
     +     .00000,    .19331,    .35480,
     +     .03060,    .01611,   1.29913,    .37895,    .00000,
     +     .00000,    .21951,    .37952,
     +     .03176,    .01674,   2.46697,    .42163,    .01286,
     +     .00000,    .26427,    .42225,
     +     .03263,    .01723,   3.42298,    .45691,    .05890,
     +     .00000,    .30099,    .45758,
     +     .03355,    .01775,   4.57195,    .49815,    .10705,
     +     .00000,    .34367,    .49887,
     +     .03434,    .01819,   5.66711,    .53684,    .14903,
     +     .00000,    .38355,    .53761,
     +     .03511,    .01863,   6.81507,    .57671,    .19222,
     +     .00000,    .42451,    .57750,
     +     .03593,    .01910,   8.13771,    .62194,    .24122,
     +     .00000,    .47087,    .62278 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
     +     .03665,    .01951,   9.37517,    .66369,    .28665,
     +     .00000,    .51359,    .66457,
     +     .03734,    .01990,  10.63119,    .70621,    .33201,
     +     .00000,    .55700,    .70712,
     +     .03789,    .02022,  11.66369,    .74138,    .36900,
     +     .00000,    .59285,    .74232,
     +     .03908,    .02089,  13.97478,    .82092,    .45305,
     +     .00000,    .67382,    .82193,
     +     .04013,    .02150,  16.01320,    .89409,    .53006,
     +     .06008,    .74818,    .89516,
     +     .04131,    .02218,  18.34105,    .98064,    .62063,
     +     .17167,    .83600,    .98177,
     +     .04255,    .02289,  20.90036,   1.07589,    .71990,
     +     .27780,    .93255,   1.07710,
     +     .04367,    .02354,  23.31838,   1.16655,    .81412,
     +     .37891,   1.02434,   1.16783 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
     +     .04483,    .02420,  25.84459,   1.26225,    .91333,
     +     .48441,   1.12114,   1.26359,
     +     .04578,    .02475,  27.99411,   1.34468,    .99845,
     +     .57392,   1.20447,   1.34609,
     +     .04695,    .02543,  30.65001,   1.44808,   1.10476,
     +     .68488,   1.30892,   1.44956,
     +     .04799,    .02603,  33.05062,   1.54281,   1.20209,
     +     .78662,   1.40456,   1.54435,
     +     .04894,    .02658,  35.30357,   1.63256,   1.29453,
     +     .88393,   1.49513,   1.63416,
     +     .05016,    .02728,  38.17687,   1.74941,   1.41416,
     +    1.00815,   1.61299,   1.75109,
     +     .05131,    .02795,  40.90115,   1.86242,   1.52954,
     +    1.12749,   1.72692,   1.86417,
     +     .05240,    .02857,  43.48892,   1.97136,   1.64089,
     +    1.24307,   1.83671,   1.97318 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
     +     .05349,    .02920,  46.10662,   2.08320,   1.75526,
     +    1.36195,   1.94938,   2.08509,
     +     .05455,    .02981,  48.63818,   2.19418,   1.86806,
     +    1.47787,   2.06116,   2.19614,
     +     .05557,    .03040,  51.06693,   2.30190,   1.97786,
     +    1.59141,   2.16962,   2.30393,
     +     .05653,    .03095,  53.34794,   2.40498,   2.08271,
     +    1.69941,   2.27338,   2.40707,
     +     .05750,    .03150,  55.63508,   2.51011,   2.18957,
     +    1.80939,   2.37918,   2.51226,
     +     .05845,    .03206,  57.89449,   2.61540,   2.29665,
     +    1.91974,   2.48514,   2.61762,
     +     .05937,    .03258,  60.01378,   2.71627,   2.39895,
     +    2.02470,   2.58662,   2.71856,
     +     .06023,    .03309,  62.03292,   2.81342,   2.49762,
     +    2.12620,   2.68433,   2.81575 /
        DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
     +     .06112,    .03359,  64.04207,   2.91196,   2.59752,
     +    2.22864,   2.78345,   2.91436,
     +     .06198,    .03409,  66.02483,   3.01051,   2.69747,
     +    2.33119,   2.88255,   3.01296,
     +     .06281,    .03456,  67.90659,   3.10541,   2.79370,
     +    2.42992,   2.97797,   3.10792,
     +     .06360,    .03501,  69.66651,   3.19581,   2.88520,
     +    2.52351,   3.06886,   3.19837,
     +     .06441,    .03547,  71.47571,   3.28912,   2.97993,
     +    2.62091,   3.16266,   3.29174 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
     +     .03634,    .01931,    .58857,    .32431,    .00000,
     +     .00000,    .17770,    .32525,
     +     .03726,    .01981,   1.20962,    .34689,    .00000,
     +     .00000,    .20167,    .34790,
     +     .03864,    .02059,   2.28290,    .38534,    .01209,
     +     .00000,    .24204,    .38643,
     +     .03968,    .02117,   3.15042,    .41674,    .05324,
     +     .00000,    .27474,    .41789,
     +     .04076,    .02180,   4.18138,    .45314,    .09592,
     +     .00000,    .31246,    .45435,
     +     .04171,    .02234,   5.15402,    .48702,    .13282,
     +     .00000,    .34742,    .48829,
     +     .04263,    .02287,   6.16471,    .52172,    .17058,
     +     .00000,    .38312,    .52305,
     +     .04360,    .02343,   7.31951,    .56087,    .21317,
     +     .00000,    .42332,    .56226 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
     +     .04446,    .02392,   8.39171,    .59684,    .25245,
     +     .00000,    .46017,    .59828,
     +     .04529,    .02441,   9.47224,    .63330,    .29152,
     +     .00000,    .49745,    .63480,
     +     .04596,    .02479,  10.35501,    .66335,    .32323,
     +     .00000,    .52812,    .66490,
     +     .04737,    .02562,  12.31554,    .73099,    .39498,
     +     .00000,    .59708,    .73263,
     +     .04863,    .02634,  14.03063,    .79286,    .46033,
     +     .04934,    .66004,    .79458,
     +     .05004,    .02716,  15.96627,    .86564,    .53677,
     +     .14409,    .73401,    .86746,
     +     .05152,    .02802,  18.07457,    .94528,    .62005,
     +     .23354,    .81482,    .94720,
     +     .05287,    .02880,  20.04892,   1.02065,    .69864,
     +     .31828,    .89124,   1.02265 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
     +     .05424,    .02961,  22.09470,   1.09979,    .78097,
     +     .40622,    .97141,   1.10189,
     +     .05538,    .03026,  23.82243,   1.16765,    .85126,
     +     .48048,   1.04009,   1.16983,
     +     .05677,    .03108,  25.94130,   1.25235,    .93862,
     +     .57207,   1.12576,   1.25463,
     +     .05801,    .03180,  27.84266,   1.32958,   1.01822,
     +     .65566,   1.20383,   1.33195,
     +     .05914,    .03246,  29.61634,   1.40247,   1.09352,
     +     .73529,   1.27748,   1.40491,
     +     .06060,    .03330,  31.86162,   1.49690,   1.19048,
     +     .83642,   1.37284,   1.49945,
     +     .06197,    .03409,  33.97434,   1.58778,   1.28353,
     +     .93309,   1.46458,   1.59042,
     +     .06325,    .03484,  35.96819,   1.67500,   1.37294,
     +    1.02631,   1.55258,   1.67774 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
     +     .06454,    .03559,  37.97270,   1.76417,   1.46438,
     +    1.12179,   1.64253,   1.76700,
     +     .06580,    .03631,  39.89688,   1.85224,   1.55414,
     +    1.21443,   1.73134,   1.85515,
     +     .06701,    .03701,  41.73313,   1.93740,   1.64118,
     +    1.30484,   1.81719,   1.94040,
     +     .06815,    .03767,  43.44735,   2.01858,   1.72398,
     +    1.39051,   1.89900,   2.02166,
     +     .06929,    .03833,  45.15654,   2.10105,   1.80804,
     +    1.47739,   1.98211,   2.10423,
     +     .07042,    .03898,  46.83656,   2.18339,   1.89200,
     +    1.56430,   2.06506,   2.18664,
     +     .07150,    .03960,  48.40290,   2.26196,   1.97190,
     +    1.64662,   2.14420,   2.26529,
     +     .07252,    .04019,  49.88898,   2.33740,   2.04873,
     +    1.72601,   2.22017,   2.34080 /
        DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
     +     .07355,    .04078,  51.35947,   2.41366,   2.12626,
     +    1.80584,   2.29697,   2.41714,
     +     .07457,    .04137,  52.80423,   2.48970,   2.20358,
     +    1.88553,   2.37353,   2.49326,
     +     .07555,    .04193,  54.16900,   2.56271,   2.27781,
     +    1.96201,   2.44702,   2.56634,
     +     .07648,    .04246,  55.43881,   2.63203,   2.34815,
     +    2.03427,   2.51680,   2.63573,
     +     .07743,    .04300,  56.74094,   2.70343,   2.42084,
     +    2.10935,   2.58867,   2.70719 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
     +     .04181,    .02235,    .55966,    .30459,    .00000,
     +     .00000,    .16759,    .30606,
     +     .04284,    .02293,   1.15081,    .32575,    .00000,
     +     .00000,    .19004,    .32727,
     +     .04439,    .02383,   2.16126,    .36137,    .01158,
     +     .00000,    .22747,    .36299,
     +     .04555,    .02449,   2.97011,    .39023,    .04948,
     +     .00000,    .25756,    .39192,
     +     .04679,    .02521,   3.92331,    .42344,    .08854,
     +     .00000,    .29201,    .42522,
     +     .04787,    .02583,   4.81562,    .45420,    .12213,
     +     .00000,    .32380,    .45605,
     +     .04891,    .02643,   5.73684,    .48558,    .15634,
     +     .00000,    .35612,    .48749,
     +     .05001,    .02708,   6.78287,    .52083,    .19478,
     +     .00000,    .39235,    .52281 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
     +     .05099,    .02764,   7.74853,    .55310,    .23013,
     +     .00000,    .42546,    .55515,
     +     .05194,    .02820,   8.71649,    .58572,    .26515,
     +     .00000,    .45883,    .58782,
     +     .05268,    .02864,   9.50363,    .61251,    .29352,
     +     .00000,    .48623,    .61467,
     +     .05430,    .02958,  11.24149,    .67263,    .35744,
     +     .00000,    .54760,    .67490,
     +     .05572,    .03042,  12.75274,    .72739,    .41543,
     +     .04262,    .60338,    .72976,
     +     .05732,    .03136,  14.44284,    .79155,    .48298,
     +     .12675,    .66867,    .79405,
     +     .05900,    .03234,  16.27090,    .86146,    .55625,
     +     .20573,    .73969,    .86406,
     +     .06053,    .03324,  17.97138,    .92734,    .62513,
     +     .28027,    .80657,    .93006 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
     +     .06209,    .03415,  19.72252,    .99626,    .69699,
     +     .35733,    .87647,    .99910,
     +     .06339,    .03491,  21.19308,   1.05514,    .75812,
     +     .42214,    .93612,   1.05807,
     +     .06496,    .03582,  22.98638,   1.12837,    .83382,
     +     .50180,   1.01028,   1.13141,
     +     .06635,    .03665,  24.58679,   1.19491,    .90256,
     +     .57424,   1.07763,   1.19805,
     +     .06764,    .03740,  26.07290,   1.25752,    .96740,
     +     .64307,   1.14096,   1.26076,
     +     .06928,    .03835,  27.94355,   1.33836,   1.05057,
     +     .73014,   1.22267,   1.34171,
     +     .07082,    .03924,  29.69357,   1.41584,   1.13008,
     +     .81305,   1.30099,   1.41932,
     +     .07228,    .04009,  31.33696,   1.48998,   1.20624,
     +     .89274,   1.37587,   1.49355 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
     +     .07373,    .04094,  32.98138,   1.56552,   1.28390,
     +     .97413,   1.45216,   1.56922,
     +     .07515,    .04176,  34.55081,   1.63988,   1.35984,
     +    1.05279,   1.52722,   1.64367,
     +     .07651,    .04255,  36.04249,   1.71157,   1.43330,
     +    1.12937,   1.59958,   1.71548,
     +     .07778,    .04329,  37.42858,   1.77971,   1.50295,
     +    1.20169,   1.66834,   1.78371,
     +     .07907,    .04402,  38.80456,   1.84876,   1.57347,
     +    1.27486,   1.73799,   1.85285,
     +     .08034,    .04476,  40.15186,   1.91751,   1.64372,
     +    1.34784,   1.80731,   1.92170,
     +     .08154,    .04546,  41.40200,   1.98291,   1.71038,
     +    1.41678,   1.87326,   1.98720,
     +     .08269,    .04611,  42.58428,   2.04558,   1.77435,
     +    1.48311,   1.93645,   2.04995 /
        DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
     +     .08385,    .04678,  43.74900,   2.10877,   1.83872,
     +    1.54965,   2.00015,   2.11322,
     +     .08499,    .04744,  44.88939,   2.17162,   1.90278,
     +    1.61590,   2.06350,   2.17616,
     +     .08607,    .04806,  45.96268,   2.23182,   1.96413,
     +    1.67936,   2.12418,   2.23645,
     +     .08711,    .04865,  46.95713,   2.28886,   2.02213,
     +    1.73915,   2.18166,   2.29356,
     +     .08817,    .04926,  47.97505,   2.34751,   2.08198,
     +    1.80120,   2.24076,   2.35230 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
     +     .04664,    .02515,    .53915,    .29068,    .00000,
     +     .00000,    .16022,    .29227,
     +     .04775,    .02580,   1.10856,    .31073,    .00000,
     +     .00000,    .18147,    .31239,
     +     .04947,    .02678,   2.07250,    .34420,    .01120,
     +     .00000,    .21662,    .34597,
     +     .05075,    .02752,   2.83783,    .37112,    .04663,
     +     .00000,    .24469,    .37298,
     +     .05212,    .02832,   3.73324,    .40196,    .08299,
     +     .00000,    .27669,    .40391,
     +     .05330,    .02902,   4.56597,    .43040,    .11410,
     +     .00000,    .30608,    .43242,
     +     .05444,    .02968,   5.42092,    .45929,    .14569,
     +     .00000,    .33587,    .46140,
     +     .05567,    .03040,   6.38658,    .49167,    .18108,
     +     .00000,    .36918,    .49387 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
     +     .05675,    .03104,   7.27378,    .52125,    .21352,
     +     .00000,    .39952,    .52352,
     +     .05780,    .03165,   8.15909,    .55103,    .24559,
     +     .00000,    .43005,    .55339,
     +     .05862,    .03214,   8.87626,    .57547,    .27150,
     +     .00000,    .45504,    .57788,
     +     .06040,    .03319,  10.45185,    .63013,    .32973,
     +     .00000,    .51087,    .63267,
     +     .06197,    .03411,  11.81510,    .67975,    .38237,
     +     .03786,    .56146,    .68240,
     +     .06374,    .03515,  13.32837,    .73770,    .44351,
     +     .11428,    .62047,    .74049,
     +     .06560,    .03624,  14.95547,    .80061,    .50957,
     +     .18571,    .68445,    .80353,
     +     .06728,    .03723,  16.46059,    .85970,    .57146,
     +     .25290,    .74448,    .86275 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
     +     .06899,    .03823,  18.00246,    .92133,    .63583,
     +     .32212,    .80702,    .92451,
     +     .07042,    .03907,  19.29111,    .97381,    .69042,
     +     .38018,    .86026,    .97711,
     +     .07214,    .04008,  20.85512,   1.03891,    .75783,
     +     .45131,    .92622,   1.04233,
     +     .07368,    .04098,  22.24438,   1.09788,    .81886,
     +     .51583,    .98596,   1.10141,
     +     .07509,    .04181,  23.52946,   1.15322,    .87628,
     +     .57696,   1.04199,   1.15687,
     +     .07689,    .04285,  25.13916,   1.22446,    .94972,
     +     .65407,   1.11409,   1.22825,
     +     .07858,    .04384,  26.63782,   1.29255,   1.01972,
     +     .72727,   1.18295,   1.29647,
     +     .08017,    .04476,  28.03921,   1.35751,   1.08657,
     +     .79744,   1.24863,   1.36155 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
     +     .08176,    .04568,  29.43574,   1.42355,   1.15457,
     +     .86892,   1.31537,   1.42771,
     +     .08331,    .04658,  30.76205,   1.48833,   1.22086,
     +     .93779,   1.38082,   1.49261,
     +     .08480,    .04744,  32.01839,   1.55066,   1.28483,
     +    1.00468,   1.44379,   1.55506,
     +     .08619,    .04824,  33.18126,   1.60976,   1.34535,
     +    1.06771,   1.50347,   1.61427,
     +     .08759,    .04905,  34.33115,   1.66950,   1.40647,
     +    1.13131,   1.56379,   1.67411,
     +     .08898,    .04984,  35.45319,   1.72884,   1.46724,
     +    1.19463,   1.62369,   1.73356,
     +     .09028,    .05060,  36.48999,   1.78517,   1.52475,
     +    1.25429,   1.68054,   1.78999,
     +     .09153,    .05131,  37.46785,   1.83903,   1.57985,
     +    1.31159,   1.73491,   1.84395 /
        DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
     +     .09279,    .05203,  38.42753,   1.89323,   1.63516,
     +    1.36894,   1.78959,   1.89825,
     +     .09403,    .05274,  39.36441,   1.94704,   1.69011,
     +    1.42595,   1.84388,   1.95215,
     +     .09521,    .05342,  40.24320,   1.99848,   1.74263,
     +    1.48044,   1.89577,   2.00369,
     +     .09633,    .05406,  41.05423,   2.04710,   1.79218,
     +    1.53168,   1.94482,   2.05241,
     +     .09748,    .05470,  41.88317,   2.09705,   1.84325,
     +    1.58480,   1.99520,   2.10245 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
     +     .06558,    .03634,    .47695,    .25235,    .00000,
     +     .00000,    .14044,    .25510,
     +     .06706,    .03722,    .98524,    .26896,    .00000,
     +     .00000,    .15806,    .27182,
     +     .06935,    .03859,   1.81732,    .29600,    .01017,
     +     .00000,    .18653,    .29902,
     +     .07108,    .03962,   2.45988,    .31732,    .03855,
     +     .00000,    .20883,    .32048,
     +     .07293,    .04072,   3.19338,    .34140,    .06728,
     +     .00000,    .23391,    .34470,
     +     .07453,    .04168,   3.86051,    .36332,    .09150,
     +     .00000,    .25665,    .36674,
     +     .07608,    .04261,   4.53281,    .38538,    .11585,
     +     .00000,    .27947,    .38892,
     +     .07775,    .04360,   5.27878,    .40986,    .14287,
     +     .00000,    .30474,    .41354 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
     +     .07920,    .04448,   5.95309,    .43204,    .16744,
     +     .00000,    .32759,    .43583,
     +     .08062,    .04533,   6.61582,    .45420,    .19152,
     +     .00000,    .35039,    .45811,
     +     .08175,    .04600,   7.14566,    .47224,    .21082,
     +     .00000,    .36892,    .47623,
     +     .08416,    .04743,   8.29037,    .51230,    .25388,
     +     .00000,    .40999,    .51648,
     +     .08629,    .04869,   9.26500,    .54825,    .29238,
     +     .02515,    .44679,    .55261,
     +     .08866,    .05010,  10.31788,    .58981,    .33662,
     +     .08122,    .48929,    .59437,
     +     .09115,    .05157,  11.42749,    .63442,    .38387,
     +     .13288,    .53482,    .63919,
     +     .09342,    .05289,  12.43438,    .67587,    .42766,
     +     .18095,    .57710,    .68081 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
     +     .09570,    .05423,  13.44754,    .71864,    .47272,
     +     .22997,    .62068,    .72377,
     +     .09760,    .05535,  14.28049,    .75472,    .51058,
     +     .27067,    .65743,    .76001,
     +     .09991,    .05669,  15.27475,    .79903,    .55686,
     +     .32008,    .70251,    .80452,
     +     .10194,    .05788,  16.14381,    .83879,    .59835,
     +     .36445,    .74295,    .84444,
     +     .10381,    .05896,  16.93708,    .87580,    .63709,
     +     .40617,    .78057,    .88160,
     +     .10618,    .06033,  17.91383,    .92296,    .68613,
     +     .45826,    .82851,    .92897,
     +     .10840,    .06162,  18.80742,    .96757,    .73238,
     +     .50719,    .87382,    .97376,
     +     .11048,    .06281,  19.63074,   1.00975,    .77616,
     +     .55369,    .91664,   1.01611 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
     +     .11257,    .06400,  20.43964,   1.05225,    .82032,
     +     .60066,    .95977,   1.05878,
     +     .11459,    .06516,  21.19385,   1.09351,    .86292,
     +     .64545,   1.00165,   1.10021,
     +     .11650,    .06625,  21.89968,   1.13292,    .90372,
     +     .68863,   1.04162,   1.13978,
     +     .11831,    .06728,  22.54342,   1.16996,    .94199,
     +     .72898,   1.07920,   1.17697,
     +     .12012,    .06831,  23.17117,   1.20711,    .98035,
     +     .76939,   1.11687,   1.21426,
     +     .12190,    .06931,  23.77634,   1.24374,   1.01821,
     +     .80933,   1.15401,   1.25104,
     +     .12358,    .07027,  24.32669,   1.27822,   1.05375,
     +     .84666,   1.18897,   1.28566,
     +     .12517,    .07117,  24.84060,   1.31099,   1.08758,
     +     .88229,   1.22219,   1.31856 /
        DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
     +     .12677,    .07206,  25.33740,   1.34370,   1.12129,
     +     .91769,   1.25535,   1.35141,
     +     .12835,    .07294,  25.81693,   1.37597,   1.15457,
     +     .95266,   1.28807,   1.38381,
     +     .12985,    .07379,  26.26122,   1.40662,   1.18617,
     +     .98588,   1.31913,   1.41458,
     +     .13127,    .07458,  26.66518,   1.43538,   1.21576,
     +    1.01689,   1.34828,   1.44345,
     +     .13271,    .07539,  27.07608,   1.46480,   1.24616,
     +    1.04891,   1.37810,   1.47299 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
     +     .09249,    .05269,    .42059,    .22154,    .00000,
     +     .00000,    .12480,    .22616,
     +     .09447,    .05391,    .87657,    .23464,    .00000,
     +     .00000,    .13878,    .23942,
     +     .09754,    .05580,   1.59274,    .25555,    .00937,
     +     .00000,    .16092,    .26059,
     +     .09987,    .05721,   2.12818,    .27182,    .03145,
     +     .00000,    .17803,    .27705,
     +     .10236,    .05873,   2.72171,    .28995,    .05349,
     +     .00000,    .19704,    .29540,
     +     .10452,    .06004,   3.24748,    .30628,    .07181,
     +     .00000,    .21409,    .31192,
     +     .10663,    .06130,   3.76577,    .32257,    .09008,
     +     .00000,    .23104,    .32838,
     +     .10888,    .06266,   4.32891,    .34049,    .11016,
     +     .00000,    .24966,    .34650 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
     +     .11086,    .06385,   4.82833,    .35657,    .12827,
     +     .00000,    .26635,    .36276,
     +     .11277,    .06499,   5.31040,    .37254,    .14586,
     +     .00000,    .28288,    .37890,
     +     .11428,    .06589,   5.68982,    .38544,    .15988,
     +     .00000,    .29622,    .39194,
     +     .11753,    .06780,   6.49354,    .41384,    .19084,
     +     .00000,    .32553,    .42062,
     +     .12037,    .06948,   7.16564,    .43904,    .21821,
     +     .01526,    .35151,    .44607,
     +     .12354,    .07133,   7.86675,    .46787,    .24932,
     +     .05536,    .38116,    .47517,
     +     .12683,    .07324,   8.58793,    .49839,    .28213,
     +     .09175,    .41255,    .50599,
     +     .12982,    .07496,   9.22712,    .52642,    .31216,
     +     .12521,    .44132,    .53428 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
     +     .13282,    .07669,   9.85621,    .55500,    .34271,
     +     .15893,    .47066,    .56313,
     +     .13531,    .07812,  10.36284,    .57883,    .36809,
     +     .18663,    .49511,    .58718,
     +     .13830,    .07982,  10.95499,    .60779,    .39877,
     +     .21989,    .52479,    .61640,
     +     .14094,    .08132,  11.46209,    .63348,    .42598,
     +     .24944,    .55111,    .64232,
     +     .14335,    .08269,  11.91730,    .65717,    .45115,
     +     .27699,    .57538,    .66622,
     +     .14639,    .08440,  12.46525,    .68699,    .48264,
     +     .31097,    .60592,    .69631,
     +     .14923,    .08598,  12.95469,    .71486,    .51197,
     +     .34252,    .63444,    .72441,
     +     .15188,    .08747,  13.39697,    .74091,    .53947,
     +     .37221,    .66110,    .75070 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
     +     .15452,    .08893,  13.82356,    .76690,    .56691,
     +     .40191,    .68771,    .77693,
     +     .15707,    .09033,  14.21074,    .79183,    .59305,
     +     .42987,    .71321,    .80207,
     +     .15948,    .09166,  14.56719,    .81541,    .61790,
     +     .45663,    .73733,    .82585,
     +     .16173,    .09289,  14.88532,    .83735,    .64096,
     +     .48139,    .75977,    .84798,
     +     .16398,    .09412,  15.18931,    .85912,    .66385,
     +     .50595,    .78206,    .86995,
     +     .16618,    .09532,  15.47729,    .88042,    .68626,
     +     .53003,    .80385,    .89143,
     +     .16825,    .09644,  15.73269,    .90025,    .70708,
     +     .55232,    .82414,    .91143,
     +     .17021,    .09751,  15.96774,    .91896,    .72675,
     +     .57345,    .84327,    .93030 /
        DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
     +     .17217,    .09856,  16.18931,    .93744,    .74618,
     +     .59425,    .86221,    .94896,
     +     .17409,    .09960,  16.39936,    .95555,    .76521,
     +     .61465,    .88073,    .96721,
     +     .17592,    .10057,  16.59013,    .97258,    .78313,
     +     .63388,    .89817,    .98441,
     +     .17763,    .10148,  16.75919,    .98843,    .79977,
     +     .65167,    .91439,   1.00039,
     +     .17937,    .10241,  16.93021,   1.00457,    .81680,
     +     .66999,    .93091,   1.01666 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
     +     .11308,    .06535,    .39394,    .20615,    .00000,
     +     .00000,    .11732,    .21236,
     +     .11544,    .06684,    .82265,    .21718,    .00000,
     +     .00000,    .12914,    .22359,
     +     .11912,    .06914,   1.47698,    .23467,    .00902,
     +     .00000,    .14778,    .24141,
     +     .12190,    .07083,   1.95603,    .24821,    .02774,
     +     .00000,    .16213,    .25520,
     +     .12488,    .07265,   2.47658,    .26323,    .04632,
     +     .00000,    .17796,    .27050,
     +     .12748,    .07421,   2.92954,    .27669,    .06163,
     +     .00000,    .19211,    .28420,
     +     .12998,    .07572,   3.36949,    .29005,    .07681,
     +     .00000,    .20611,    .29779,
     +     .13267,    .07732,   3.84076,    .30467,    .09344,
     +     .00000,    .22141,    .31267 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
     +     .13502,    .07872,   4.25331,    .31776,    .10836,
     +     .00000,    .23507,    .32597,
     +     .13730,    .08007,   4.64666,    .33068,    .12279,
     +     .00000,    .24853,    .33910,
     +     .13910,    .08112,   4.95293,    .34109,    .13422,
     +     .00000,    .25936,    .34967,
     +     .14293,    .08336,   5.59288,    .36386,    .15938,
     +     .00000,    .28301,    .37280,
     +     .14628,    .08529,   6.12225,    .38391,    .18145,
     +     .01060,    .30383,    .39317,
     +     .14999,    .08742,   6.66005,    .40670,    .20637,
     +     .04311,    .32744,    .41629,
     +     .15384,    .08962,   7.20369,    .43063,    .23243,
     +     .07232,    .35221,    .44057,
     +     .15731,    .09157,   7.67756,    .45242,    .25609,
     +     .09898,    .37473,    .46267 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
     +     .16078,    .09353,   8.13656,    .47446,    .27998,
     +     .12565,    .39752,    .48502,
     +     .16366,    .09513,   8.50064,    .49273,    .29969,
     +     .14740,    .41639,    .50355,
     +     .16709,    .09704,   8.91925,    .51473,    .32332,
     +     .17333,    .43911,    .52585,
     +     .17012,    .09871,   9.27228,    .53409,    .34415,
     +     .19622,    .45910,    .54549,
     +     .17288,    .10023,   9.58528,    .55183,    .36329,
     +     .21743,    .47742,    .56348,
     +     .17633,    .10211,   9.95522,    .57399,    .38703,
     +     .24338,    .50028,    .58593,
     +     .17955,    .10386,  10.27973,    .59451,    .40898,
     +     .26730,    .52147,    .60674,
     +     .18253,    .10547,  10.56829,    .61355,    .42941,
     +     .28966,    .54112,    .62604 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
     +     .18550,    .10707,  10.84211,    .63242,    .44966,
     +     .31188,    .56059,    .64516,
     +     .18835,    .10858,  11.08500,    .65033,    .46879,
     +     .33263,    .57909,    .66332,
     +     .19104,    .11001,  11.30561,    .66717,    .48685,
     +     .35238,    .59647,    .68038,
     +     .19354,    .11133,  11.49864,    .68272,    .50350,
     +     .37052,    .61253,    .69615,
     +     .19603,    .11264,  11.67952,    .69806,    .51992,
     +     .38842,    .62838,    .71170,
     +     .19846,    .11391,  11.84811,    .71294,    .53591,
     +     .40587,    .64376,    .72679,
     +     .20074,    .11509,  11.99389,    .72670,    .55065,
     +     .42191,    .65798,    .74073,
     +     .20289,    .11621,  12.12628,    .73961,    .56452,
     +     .43705,    .67132,    .75381 /
        DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
     +     .20502,    .11732,  12.24775,    .75227,    .57811,
     +     .45186,    .68442,    .76665,
     +     .20712,    .11839,  12.36072,    .76459,    .59135,
     +     .46631,    .69718,    .77915,
     +     .20910,    .11941,  12.46098,    .77612,    .60376,
     +     .47986,    .70911,    .79084,
     +     .21096,    .12036,  12.54700,    .78676,    .61520,
     +     .49232,    .72013,    .80163,
     +     .21284,    .12132,  12.63368,    .79756,    .62687,
     +     .50512,    .73132,    .81257 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
     +     .13037,    .07603,    .38011,    .19632,    .00000,
     +     .00000,    .11265,    .20392,
     +     .13308,    .07776,    .79059,    .20587,    .00000,
     +     .00000,    .12296,    .21372,
     +     .13730,    .08038,   1.40332,    .22098,    .00881,
     +     .00000,    .13918,    .22924,
     +     .14046,    .08233,   1.84471,    .23269,    .02530,
     +     .00000,    .15167,    .24126,
     +     .14386,    .08438,   2.31694,    .24564,    .04158,
     +     .00000,    .16543,    .25454,
     +     .14680,    .08615,   2.72210,    .25722,    .05493,
     +     .00000,    .17768,    .26640,
     +     .14965,    .08784,   3.11100,    .26868,    .06814,
     +     .00000,    .18977,    .27814,
     +     .15269,    .08963,   3.52292,    .28121,    .08256,
     +     .00000,    .20296,    .29095 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
     +     .15536,    .09121,   3.87983,    .29238,    .09546,
     +     .00000,    .21469,    .30237,
     +     .15793,    .09269,   4.21682,    .30336,    .10789,
     +     .00000,    .22621,    .31361,
     +     .15994,    .09386,   4.47689,    .31218,    .11772,
     +     .00000,    .23546,    .32263,
     +     .16425,    .09633,   5.01454,    .33143,    .13924,
     +     .00000,    .25559,    .34228,
     +     .16799,    .09844,   5.45552,    .34828,    .15802,
     +     .00773,    .27320,    .35948,
     +     .17210,    .10077,   5.89358,    .36732,    .17911,
     +     .03552,    .29306,    .37891,
     +     .17636,    .10314,   6.33006,    .38720,    .20104,
     +     .06032,    .31378,    .39917,
     +     .18021,    .10525,   6.70519,    .40517,    .22082,
     +     .08282,    .33250,    .41749 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
     +     .18403,    .10736,   7.06360,    .42324,    .24067,
     +     .10519,    .35132,    .43591,
     +     .18718,    .10906,   7.34414,    .43812,    .25696,
     +     .12335,    .36681,    .45107,
     +     .19093,    .11109,   7.66223,    .45593,    .27639,
     +     .14488,    .38535,    .46923,
     +     .19422,    .11286,   7.92682,    .47152,    .29340,
     +     .16377,    .40158,    .48510,
     +     .19723,    .11446,   8.15882,    .48572,    .30896,
     +     .18120,    .41636,    .49957,
     +     .20096,    .11644,   8.42841,    .50333,    .32814,
     +     .20241,    .43470,    .51751,
     +     .20443,    .11825,   8.66073,    .51953,    .34576,
     +     .22183,    .45156,    .53401,
     +     .20763,    .11993,   8.86424,    .53447,    .36206,
     +     .23989,    .46712,    .54922 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
     +     .21081,    .12158,   9.05449,    .54917,    .37813,
     +     .25775,    .48243,    .56419,
     +     .21384,    .12315,   9.21910,    .56303,    .39320,
     +     .27431,    .49688,    .57831,
     +     .21670,    .12461,   9.36659,    .57598,    .40738,
     +     .29002,    .51039,    .59150,
     +     .21935,    .12596,   9.49289,    .58788,    .42037,
     +     .30437,    .52280,    .60362,
     +     .22198,    .12729,   9.60878,    .59951,    .43311,
     +     .31846,    .53496,    .61547,
     +     .22454,    .12858,   9.71483,    .61076,    .44546,
     +     .33214,    .54671,    .62693,
     +     .22694,    .12978,   9.80371,    .62108,    .45676,
     +     .34463,    .55751,    .63744,
     +     .22919,    .13090,   9.88313,    .63071,    .46736,
     +     .35639,    .56758,    .64726 /
        DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
     +     .23141,    .13201,   9.95342,    .64011,    .47769,
     +     .36782,    .57741,    .65682,
     +     .23360,    .13309,  10.01714,    .64920,    .48772,
     +     .37895,    .58695,    .66609,
     +     .23565,    .13410,  10.07188,    .65766,    .49706,
     +     .38934,    .59582,    .67471,
     +     .23757,    .13503,  10.11656,    .66540,    .50563,
     +     .39884,    .60395,    .68262,
     +     .23953,    .13598,  10.16144,    .67325,    .51434,
     +     .40857,    .61220,    .69062 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
     +     .14544,    .08537,    .37556,    .18900,    .00000,
     +     .00000,    .10923,    .19775,
     +     .14848,    .08731,    .77241,    .19737,    .00000,
     +     .00000,    .11836,    .20645,
     +     .15320,    .09024,   1.35385,    .21070,    .00863,
     +     .00000,    .13276,    .22026,
     +     .15672,    .09238,   1.76724,    .22104,    .02347,
     +     .00000,    .14386,    .23095,
     +     .16048,    .09465,   2.20372,    .23249,    .03809,
     +     .00000,    .15610,    .24278,
     +     .16374,    .09659,   2.57377,    .24271,    .05002,
     +     .00000,    .16699,    .25333,
     +     .16689,    .09843,   2.92541,    .25280,    .06182,
     +     .00000,    .17773,    .26375,
     +     .17024,    .10039,   3.29432,    .26381,    .07466,
     +     .00000,    .18940,    .27510 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
     +     .17317,    .10207,   3.61118,    .27361,    .08612,
     +     .00000,    .19977,    .28517,
     +     .17598,    .10368,   3.90780,    .28324,    .09714,
     +     .00000,    .20994,    .29507,
     +     .17820,    .10494,   4.13509,    .29093,    .10583,
     +     .00000,    .21806,    .30299,
     +     .18290,    .10760,   4.60057,    .30769,    .12479,
     +     .00000,    .23570,    .32020,
     +     .18695,    .10984,   4.97972,    .32230,    .14128,
     +     .00572,    .25108,    .33520,
     +     .19141,    .11229,   5.34861,    .33873,    .15971,
     +     .03022,    .26834,    .35204,
     +     .19600,    .11479,   5.71164,    .35577,    .17877,
     +     .05195,    .28625,    .36951,
     +     .20012,    .11701,   6.01962,    .37111,    .19587,
     +     .07156,    .30234,    .38523 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
     +     .20422,    .11920,   6.31016,    .38645,    .21297,
     +     .09099,    .31845,    .40095,
     +     .20757,    .12097,   6.53478,    .39900,    .22691,
     +     .10667,    .33162,    .41380,
     +     .21157,    .12307,   6.78627,    .41395,    .24346,
     +     .12518,    .34731,    .42911,
     +     .21506,    .12489,   6.99271,    .42695,    .25788,
     +     .14136,    .36097,    .44243,
     +     .21823,    .12653,   7.17174,    .43877,    .27103,
     +     .15624,    .37337,    .45451,
     +     .22217,    .12856,   7.37614,    .45331,    .28714,
     +     .17423,    .38865,    .46940,
     +     .22579,    .13041,   7.54904,    .46660,    .30186,
     +     .19064,    .40263,    .48300,
     +     .22916,    .13211,   7.69830,    .47878,    .31540,
     +     .20581,    .41543,    .49547 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
     +     .23247,    .13377,   7.83578,    .49071,    .32870,
     +     .22076,    .42799,    .50768,
     +     .23563,    .13534,   7.95125,    .50187,    .34110,
     +     .23457,    .43976,    .51909,
     +     .23858,    .13680,   8.05309,    .51226,    .35270,
     +     .24759,    .45070,    .52973,
     +     .24133,    .13815,   8.13809,    .52173,    .36328,
     +     .25944,    .46071,    .53942,
     +     .24403,    .13947,   8.21415,    .53095,    .37362,
     +     .27103,    .47045,    .54886,
     +     .24666,    .14074,   8.28225,    .53982,    .38358,
     +     .28223,    .47984,    .55795,
     +     .24911,    .14192,   8.33673,    .54790,    .39266,
     +     .29242,    .48839,    .56621,
     +     .25141,    .14302,   8.38423,    .55541,    .40115,
     +     .30198,    .49637,    .57390 /
        DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
     +     .25368,    .14410,   8.42403,    .56268,    .40938,
     +     .31124,    .50408,    .58135,
     +     .25589,    .14514,   8.45866,    .56969,    .41732,
     +     .32020,    .51153,    .58852,
     +     .25797,    .14613,   8.48666,    .57615,    .42470,
     +     .32855,    .51843,    .59515,
     +     .25992,    .14704,   8.50723,    .58205,    .43143,
     +     .33615,    .52472,    .60120,
     +     .26188,    .14794,   8.52781,    .58802,    .43827,
     +     .34393,    .53109,    .60730 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
     +     .17153,    .10146,    .38063,    .17865,    .00000,
     +     .00000,    .10458,    .18963,
     +     .17517,    .10377,    .75741,    .18524,    .00000,
     +     .00000,    .11192,    .19664,
     +     .18078,    .10722,   1.29310,    .19589,    .00826,
     +     .00000,    .12367,    .20792,
     +     .18493,    .10969,   1.66570,    .20427,    .02078,
     +     .00000,    .13281,    .21676,
     +     .18933,    .11228,   2.05054,    .21356,    .03306,
     +     .00000,    .14292,    .22651,
     +     .19313,    .11447,   2.37039,    .22186,    .04304,
     +     .00000,    .15190,    .23521,
     +     .19677,    .11655,   2.66925,    .23005,    .05288,
     +     .00000,    .16075,    .24380,
     +     .20064,    .11873,   2.97775,    .23896,    .06356,
     +     .00000,    .17033,    .25310 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
     +     .20399,    .12061,   3.23879,    .24687,    .07307,
     +     .00000,    .17884,    .26134,
     +     .20721,    .12239,   3.47970,    .25461,    .08216,
     +     .00000,    .18713,    .26940,
     +     .20973,    .12376,   3.66190,    .26078,    .08931,
     +     .00000,    .19374,    .27583,
     +     .21505,    .12665,   4.02892,    .27413,    .10483,
     +     .00000,    .20803,    .28971,
     +     .21959,    .12906,   4.32498,    .28569,    .11823,
     +     .00297,    .22037,    .30170,
     +     .22455,    .13168,   4.60183,    .29858,    .13310,
     +     .02306,    .23414,    .31506,
     +     .22962,    .13431,   4.86794,    .31183,    .14834,
     +     .04069,    .24828,    .32878,
     +     .23414,    .13663,   5.08833,    .32363,    .16191,
     +     .05648,    .26089,    .34100 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
     +     .23860,    .13888,   5.29137,    .33532,    .17534,
     +     .07200,    .27337,    .35310,
     +     .24224,    .14072,   5.44464,    .34481,    .18623,
     +     .08445,    .28352,    .36291,
     +     .24653,    .14286,   5.61160,    .35600,    .19904,
     +     .09903,    .29547,    .37447,
     +     .25028,    .14470,   5.74495,    .36564,    .21010,
     +     .11167,    .30579,    .38443,
     +     .25366,    .14635,   5.85803,    .37431,    .22011,
     +     .12321,    .31508,    .39338,
     +     .25782,    .14836,   5.98263,    .38488,    .23227,
     +     .13708,    .32641,    .40430,
     +     .26164,    .15019,   6.08350,    .39441,    .24327,
     +     .14960,    .33664,    .41414,
     +     .26514,    .15185,   6.16730,    .40307,    .25331,
     +     .16111,    .34596,    .42308 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
     +     .26859,    .15345,   6.24139,    .41145,    .26309,
     +     .17235,    .35500,    .43174,
     +     .27184,    .15496,   6.29894,    .41919,    .27210,
     +     .18263,    .36335,    .43973,
     +     .27487,    .15636,   6.34758,    .42632,    .28049,
     +     .19229,    .37107,    .44709,
     +     .27766,    .15763,   6.38499,    .43275,    .28806,
     +     .20100,    .37805,    .45373,
     +     .28041,    .15887,   6.41526,    .43893,    .29539,
     +     .20946,    .38477,    .46011,
     +     .28306,    .16005,   6.43985,    .44482,    .30242,
     +     .21759,    .39120,    .46620,
     +     .28551,    .16114,   6.45575,    .45011,    .30875,
     +     .22492,    .39698,    .47167,
     +     .28780,    .16214,   6.46794,    .45500,    .31463,
     +     .23176,    .40233,    .47671 /
        DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
     +     .29005,    .16312,   6.47418,    .45965,    .32028,
     +     .23834,    .40745,    .48153,
     +     .29224,    .16407,   6.47698,    .46410,    .32570,
     +     .24467,    .41236,    .48613,
     +     .29429,    .16494,   6.47611,    .46816,    .33069,
     +     .25052,    .41685,    .49032,
     +     .29618,    .16574,   6.47109,    .47180,    .33520,
     +     .25582,    .42089,    .49409,
     +     .29810,    .16655,   6.46598,    .47547,    .33977,
     +     .26122,    .42497,    .49789 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
     +     .20407,    .12139,    .41528,    .16774,    .00000,
     +     .00000,    .09968,    .18159,
     +     .20857,    .12417,    .77022,    .17243,    .00000,
     +     .00000,    .10514,    .18687,
     +     .21540,    .12822,   1.25773,    .18037,    .00746,
     +     .00000,    .11424,    .19566,
     +     .22036,    .13107,   1.58757,    .18679,    .01776,
     +     .00000,    .12149,    .20266,
     +     .22558,    .13399,   1.91925,    .19398,    .02783,
     +     .00000,    .12954,    .21044,
     +     .23003,    .13646,   2.18821,    .20043,    .03597,
     +     .00000,    .13672,    .21738,
     +     .23427,    .13877,   2.43430,    .20679,    .04399,
     +     .00000,    .14377,    .22420,
     +     .23872,    .14116,   2.68323,    .21372,    .05267,
     +     .00000,    .15142,    .23159 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
     +     .24258,    .14320,   2.88993,    .21983,    .06036,
     +     .00000,    .15817,    .23810,
     +     .24623,    .14511,   3.07716,    .22579,    .06769,
     +     .00000,    .16474,    .24444,
     +     .24907,    .14657,   3.21635,    .23052,    .07341,
     +     .00000,    .16995,    .24946,
     +     .25506,    .14963,   3.49075,    .24071,    .08579,
     +     .00000,    .18112,    .26024,
     +     .26006,    .15213,   3.70994,    .24943,    .09637,
     +     .00037,    .19069,    .26943,
     +     .26551,    .15480,   3.90272,    .25907,    .10802,
     +     .01643,    .20126,    .27958,
     +     .27100,    .15746,   4.08186,    .26886,    .11982,
     +     .03037,    .21199,    .28984,
     +     .27585,    .15976,   4.22489,    .27745,    .13022,
     +     .04274,    .22144,    .29886 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
     +     .28061,    .16200,   4.35182,    .28586,    .14041,
     +     .05477,    .23068,    .30767,
     +     .28443,    .16378,   4.44371,    .29259,    .14857,
     +     .06434,    .23811,    .31473,
     +     .28894,    .16582,   4.53937,    .30042,    .15809,
     +     .07545,    .24675,    .32292,
     +     .29282,    .16756,   4.61194,    .30707,    .16622,
     +     .08500,    .25411,    .32988,
     +     .29629,    .16911,   4.67082,    .31299,    .17351,
     +     .09364,    .26067,    .33606,
     +     .30053,    .17098,   4.73037,    .32007,    .18226,
     +     .10392,    .26855,    .34346,
     +     .30438,    .17263,   4.77377,    .32634,    .19008,
     +     .11310,    .27557,    .35002,
     +     .30788,    .17412,   4.80623,    .33197,    .19714,
     +     .12147,    .28187,    .35588 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
     +     .31129,    .17555,   4.83137,    .33733,    .20395,
     +     .12958,    .28790,    .36147,
     +     .31447,    .17685,   4.84502,    .34216,    .21013,
     +     .13691,    .29337,    .36651,
     +     .31743,    .17805,   4.85377,    .34654,    .21581,
     +     .14372,    .29836,    .37109,
     +     .32012,    .17913,   4.85600,    .35042,    .22090,
     +     .14982,    .30281,    .37515,
     +     .32274,    .18017,   4.85318,    .35410,    .22576,
     +     .15569,    .30704,    .37898,
     +     .32525,    .18114,   4.84694,    .35752,    .23038,
     +     .16129,    .31102,    .38255,
     +     .32755,    .18203,   4.83581,    .36053,    .23448,
     +     .16628,    .31453,    .38569,
     +     .32969,    .18283,   4.82347,    .36327,    .23825,
     +     .17090,    .31773,    .38854 /
        DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
     +     .33175,    .18360,   4.80709,    .36581,    .24183,
     +     .17531,    .32075,    .39119,
     +     .33375,    .18433,   4.78888,    .36819,    .24523,
     +     .17952,    .32359,    .39367,
     +     .33561,    .18500,   4.76931,    .37031,    .24832,
     +     .18338,    .32616,    .39589,
     +     .33731,    .18559,   4.74803,    .37216,    .25107,
     +     .18683,    .32842,    .39782,
     +     .33903,    .18620,   4.72675,    .37400,    .25385,
     +     .19033,    .33068,    .39975 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
     +     .24884,    .14805,    .51415,    .15438,    .00000,
     +     .00000,    .09339,    .17293,
     +     .25464,    .15142,    .83965,    .15703,    .00000,
     +     .00000,    .09696,    .17639,
     +     .26318,    .15618,   1.26882,    .16213,    .00548,
     +     .00000,    .10336,    .18257,
     +     .26918,    .15941,   1.54712,    .16655,    .01362,
     +     .00000,    .10872,    .18770,
     +     .27541,    .16266,   1.81690,    .17162,    .02157,
     +     .00000,    .11476,    .19345,
     +     .28064,    .16533,   2.02831,    .17619,    .02796,
     +     .00000,    .12015,    .19860,
     +     .28558,    .16778,   2.21605,    .18071,    .03422,
     +     .00000,    .12546,    .20364,
     +     .29071,    .17029,   2.40041,    .18562,    .04099,
     +     .00000,    .13120,    .20909 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
     +     .29508,    .17239,   2.54926,    .18996,    .04695,
     +     .00000,    .13623,    .21385,
     +     .29917,    .17435,   2.68029,    .19416,    .05258,
     +     .00000,    .14109,    .21843,
     +     .30233,    .17582,   2.77516,    .19747,    .05694,
     +     .00000,    .14493,    .22203,
     +     .30889,    .17884,   2.95571,    .20452,    .06632,
     +     .00000,    .15307,    .22967,
     +     .31427,    .18123,   3.09899,    .21047,    .07422,
     +    -.00229,    .15993,    .23606,
     +     .32001,    .18374,   3.20999,    .21693,    .08281,
     +     .00992,    .16739,    .24298,
     +     .32571,    .18616,   3.30646,    .22335,    .09138,
     +     .02038,    .17483,    .24984,
     +     .33067,    .18822,   3.37768,    .22888,    .09881,
     +     .02954,    .18125,    .25572 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
     +     .33545,    .19015,   3.43520,    .23416,    .10599,
     +     .03834,    .18743,    .26133,
     +     .33926,    .19165,   3.47254,    .23829,    .11166,
     +     .04526,    .19228,    .26571,
     +     .34365,    .19335,   3.50578,    .24298,    .11815,
     +     .05317,    .19783,    .27068,
     +     .34737,    .19476,   3.52633,    .24687,    .12362,
     +     .05989,    .20245,    .27477,
     +     .35067,    .19598,   3.53969,    .25025,    .12846,
     +     .06591,    .20649,    .27833,
     +     .35463,    .19740,   3.54604,    .25417,    .13417,
     +     .07297,    .21124,    .28245,
     +     .35814,    .19862,   3.54353,    .25753,    .13918,
     +     .07919,    .21536,    .28597,
     +     .36129,    .19969,   3.53587,    .26043,    .14361,
     +     .08477,    .21897,    .28901 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
     +     .36432,    .20068,   3.52366,    .26310,    .14782,
     +     .09012,    .22232,    .29182,
     +     .36708,    .20154,   3.50464,    .26540,    .15157,
     +     .09488,    .22527,    .29421,
     +     .36959,    .20231,   3.48440,    .26743,    .15496,
     +     .09926,    .22790,    .29631,
     +     .37186,    .20296,   3.46182,    .26913,    .15793,
     +     .10312,    .23017,    .29807,
     +     .37401,    .20356,   3.43632,    .27065,    .16072,
     +     .10679,    .23224,    .29965,
     +     .37605,    .20411,   3.40948,    .27201,    .16332,
     +     .11025,    .23414,    .30106,
     +     .37786,    .20458,   3.38110,    .27311,    .16558,
     +     .11329,    .23575,    .30219,
     +     .37952,    .20499,   3.35353,    .27407,    .16764,
     +     .11608,    .23717,    .30316 /
        DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
     +     .38110,    .20535,   3.32360,    .27488,    .16953,
     +     .11869,    .23844,    .30397,
     +     .38260,    .20568,   3.29316,    .27558,    .17129,
     +     .12116,    .23960,    .30467,
     +     .38397,    .20596,   3.26317,    .27615,    .17287,
     +     .12339,    .24060,    .30523,
     +     .38518,    .20618,   3.23341,    .27656,    .17423,
     +     .12536,    .24140,    .30563,
     +     .38640,    .20641,   3.20384,    .27696,    .17559,
     +     .12736,    .24220,    .30602 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
     +     .28583,    .16945,    .65207,    .14221,    .00000,
     +     .00000,    .08679,    .16465,
     +     .29282,    .17325,    .94707,    .14368,    .00000,
     +     .00000,    .08928,    .16710,
     +     .30285,    .17845,   1.32742,    .14713,    .00273,
     +     .00000,    .09421,    .17184,
     +     .30975,    .18185,   1.56296,    .15036,    .00966,
     +     .00000,    .09851,    .17588,
     +     .31675,    .18521,   1.78398,    .15418,    .01643,
     +     .00000,    .10340,    .18046,
     +     .32257,    .18793,   1.95182,    .15766,    .02183,
     +     .00000,    .10778,    .18453,
     +     .32795,    .19039,   2.09667,    .16110,    .02710,
     +     .00000,    .11207,    .18850,
     +     .33348,    .19286,   2.23487,    .16482,    .03275,
     +     .00000,    .11666,    .19273 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
     +     .33812,    .19488,   2.34340,    .16808,    .03770,
     +     .00000,    .12067,    .19639,
     +     .34246,    .19673,   2.43612,    .17121,    .04234,
     +     .00000,    .12452,    .19989,
     +     .34576,    .19810,   2.50126,    .17365,    .04592,
     +     .00000,    .12751,    .20260,
     +     .35251,    .20086,   2.62022,    .17882,    .05352,
     +     .00000,    .13383,    .20828,
     +     .35793,    .20297,   2.71514,    .18309,    .05985,
     +    -.00403,    .13905,    .21292,
     +     .36360,    .20510,   2.77518,    .18765,    .06663,
     +     .00589,    .14465,    .21784,
     +     .36915,    .20713,   2.82163,    .19206,    .07330,
     +     .01430,    .15011,    .22256,
     +     .37388,    .20877,   2.85046,    .19576,    .07901,
     +     .02158,    .15474,    .22650 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
     +     .37836,    .21028,   2.86832,    .19921,    .08443,
     +     .02848,    .15908,    .23014,
     +     .38188,    .21141,   2.87518,    .20183,    .08866,
     +     .03385,    .16244,    .23292,
     +     .38585,    .21263,   2.87447,    .20472,    .09344,
     +     .03994,    .16617,    .23594,
     +     .38914,    .21360,   2.86744,    .20702,    .09740,
     +     .04505,    .16921,    .23833,
     +     .39203,    .21440,   2.85724,    .20897,    .10086,
     +     .04957,    .17183,    .24035,
     +     .39541,    .21528,   2.83690,    .21112,    .10488,
     +     .05482,    .17481,    .24257,
     +     .39836,    .21598,   2.81215,    .21285,    .10834,
     +     .05938,    .17729,    .24433,
     +     .40092,    .21655,   2.78570,    .21428,    .11135,
     +     .06343,    .17939,    .24575 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
     +     .40334,    .21705,   2.75655,    .21552,    .11417,
     +     .06728,    .18130,    .24698,
     +     .40545,    .21741,   2.72364,    .21647,    .11661,
     +     .07064,    .18288,    .24788,
     +     .40736,    .21770,   2.69146,    .21724,    .11879,
     +     .07371,    .18424,    .24861,
     +     .40901,    .21791,   2.65912,    .21780,    .12066,
     +     .07639,    .18535,    .24913,
     +     .41055,    .21805,   2.62517,    .21823,    .12238,
     +     .07889,    .18631,    .24948,
     +     .41195,    .21816,   2.59107,    .21855,    .12396,
     +     .08124,    .18713,    .24972,
     +     .41316,    .21818,   2.55707,    .21869,    .12529,
     +     .08327,    .18776,    .24979,
     +     .41424,    .21818,   2.52482,    .21876,    .12646,
     +     .08511,    .18828,    .24978 /
        DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
     +     .41522,    .21813,   2.49127,    .21871,    .12753,
     +     .08682,    .18868,    .24965,
     +     .41610,    .21805,   2.45796,    .21860,    .12849,
     +     .08840,    .18899,    .24944,
     +     .41688,    .21794,   2.42590,    .21841,    .12933,
     +     .08983,    .18920,    .24915,
     +     .41753,    .21779,   2.39491,    .21815,    .13001,
     +     .09106,    .18931,    .24879,
     +     .41818,    .21764,   2.36423,    .21787,    .13070,
     +     .09230,    .18942,    .24842 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
     +     .34849,    .20336,    .94873,    .11973,    .00000,
     +     .00000,    .07363,    .15022,
     +     .35734,    .20751,   1.17958,    .12022,    .00000,
     +     .00000,    .07535,    .15172,
     +     .36942,    .21288,   1.46933,    .12218,   -.00319,
     +     .00000,    .07903,    .15490,
     +     .37731,    .21620,   1.62926,    .12428,    .00258,
     +     .00000,    .08228,    .15766,
     +     .38512,    .21931,   1.76971,    .12674,    .00816,
     +     .00000,    .08595,    .16073,
     +     .39138,    .22171,   1.86920,    .12899,    .01253,
     +     .00000,    .08918,    .16341,
     +     .39704,    .22379,   1.94948,    .13116,    .01674,
     +     .00000,    .09226,    .16593,
     +     .40270,    .22580,   2.02063,    .13348,    .02117,
     +     .00000,    .09551,    .16855 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
     +     .40735,    .22737,   2.07239,    .13548,    .02496,
     +     .00000,    .09828,    .17074,
     +     .41154,    .22875,   2.11271,    .13733,    .02847,
     +     .00000,    .10087,    .17277,
     +     .41468,    .22973,   2.13814,    .13876,    .03113,
     +     .00000,    .10285,    .17429,
     +     .42092,    .23157,   2.17716,    .14165,    .03667,
     +     .00000,    .10691,    .17733,
     +     .42565,    .23282,   2.21113,    .14392,    .04116,
     +    -.00597,    .11012,    .17967,
     +     .43042,    .23394,   2.20939,    .14624,    .04584,
     +     .00121,    .11344,    .18199,
     +     .43486,    .23486,   2.19759,    .14832,    .05033,
     +     .00721,    .11653,    .18400,
     +     .43847,    .23546,   2.17903,    .14992,    .05406,
     +     .01228,    .11902,    .18551 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
     +     .44173,    .23591,   2.15414,    .15128,    .05751,
     +     .01700,    .12122,    .18674,
     +     .44414,    .23612,   2.12935,    .15223,    .06013,
     +     .02060,    .12284,    .18753,
     +     .44672,    .23625,   2.09477,    .15312,    .06299,
     +     .02460,    .12453,    .18822,
     +     .44872,    .23623,   2.06140,    .15371,    .06531,
     +     .02790,    .12580,    .18860,
     +     .45036,    .23612,   2.02954,    .15413,    .06729,
     +     .03077,    .12682,    .18882,
     +     .45210,    .23587,   1.98605,    .15445,    .06951,
     +     .03403,    .12786,    .18883,
     +     .45345,    .23547,   1.94320,    .15452,    .07134,
     +     .03681,    .12860,    .18862,
     +     .45450,    .23502,   1.90241,    .15445,    .07288,
     +     .03922,    .12914,    .18828 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
     +     .45536,    .23449,   1.86130,    .15426,    .07427,
     +     .04146,    .12952,    .18781,
     +     .45595,    .23385,   1.81964,    .15389,    .07541,
     +     .04337,    .12971,    .18715,
     +     .45637,    .23320,   1.78065,    .15346,    .07640,
     +     .04510,    .12980,    .18645,
     +     .45662,    .23254,   1.74368,    .15297,    .07719,
     +     .04656,    .12977,    .18566,
     +     .45670,    .23181,   1.70656,    .15239,    .07788,
     +     .04791,    .12965,    .18478,
     +     .45668,    .23106,   1.67045,    .15176,    .07849,
     +     .04914,    .12945,    .18385,
     +     .45651,    .23027,   1.63602,    .15107,    .07894,
     +     .05017,    .12917,    .18288,
     +     .45630,    .22951,   1.60402,    .15038,    .07933,
     +     .05109,    .12885,    .18192 /
        DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
     +     .45597,    .22870,   1.57181,    .14962,    .07963,
     +     .05192,    .12846,    .18088,
     +     .45557,    .22787,   1.54047,    .14883,    .07988,
     +     .05268,    .12803,    .17982,
     +     .45510,    .22706,   1.51095,    .14804,    .08007,
     +     .05333,    .12757,    .17877,
     +     .45456,    .22625,   1.48309,    .14725,    .08017,
     +     .05388,    .12709,    .17773,
     +     .45402,    .22543,   1.45568,    .14645,    .08028,
     +     .05443,    .12660,    .17668 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
     +     .40108,    .22926,   1.21697,    .09864,    .00000,
     +     .00000,    .06057,    .13598,
     +     .41109,    .23327,   1.37978,    .09918,    .00000,
     +     .00000,    .06241,    .13726,
     +     .42422,    .23815,   1.58213,    .10089,   -.00842,
     +     .00000,    .06590,    .13973,
     +     .43241,    .24094,   1.67494,    .10259,   -.00311,
     +     .00000,    .06878,    .14175,
     +     .44017,    .24342,   1.74858,    .10451,    .00195,
     +     .00000,    .07187,    .14386,
     +     .44625,    .24518,   1.79453,    .10614,    .00583,
     +     .00000,    .07446,    .14560,
     +     .45156,    .24662,   1.82653,    .10768,    .00947,
     +     .00000,    .07687,    .14717,
     +     .45669,    .24787,   1.84978,    .10924,    .01320,
     +     .00000,    .07932,    .14870 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
     +     .46078,    .24878,   1.86257,    .11052,    .01635,
     +     .00000,    .08135,    .14990,
     +     .46436,    .24947,   1.86807,    .11168,    .01919,
     +     .00000,    .08317,    .15094,
     +     .46695,    .24990,   1.86793,    .11253,    .02133,
     +     .00000,    .08454,    .15166,
     +     .47189,    .25056,   1.85758,    .11416,    .02567,
     +     .00000,    .08724,    .15297,
     +     .47533,    .25076,   1.85479,    .11534,    .02908,
     +    -.00669,    .08926,    .15383,
     +     .47856,    .25070,   1.81866,    .11642,    .03257,
     +    -.00117,    .09125,    .15450,
     +     .48130,    .25036,   1.77631,    .11725,    .03581,
     +     .00339,    .09299,    .15484,
     +     .48327,    .24986,   1.73449,    .11777,    .03843,
     +     .00716,    .09426,    .15490 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
     +     .48483,    .24918,   1.68985,    .11808,    .04080,
     +     .01063,    .09529,    .15469,
     +     .48579,    .24847,   1.65138,    .11817,    .04255,
     +     .01321,    .09597,    .15438,
     +     .48657,    .24745,   1.60340,    .11808,    .04442,
     +     .01605,    .09656,    .15377,
     +     .48696,    .24645,   1.56057,    .11786,    .04588,
     +     .01834,    .09692,    .15308,
     +     .48712,    .24547,   1.52159,    .11758,    .04710,
     +     .02031,    .09715,    .15233,
     +     .48695,    .24408,   1.47166,    .11706,    .04841,
     +     .02250,    .09724,    .15121,
     +     .48649,    .24265,   1.42497,    .11640,    .04945,
     +     .02434,    .09714,    .15002,
     +     .48585,    .24124,   1.38204,    .11570,    .05030,
     +     .02590,    .09694,    .14882 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
     +     .48501,    .23979,   1.34003,    .11494,    .05103,
     +     .02734,    .09666,    .14753,
     +     .48392,    .23825,   1.29909,    .11407,    .05158,
     +     .02853,    .09623,    .14615,
     +     .48276,    .23678,   1.26151,    .11321,    .05203,
     +     .02959,    .09579,    .14480,
     +     .48153,    .23533,   1.22672,    .11233,    .05237,
     +     .03047,    .09529,    .14348,
     +     .48015,    .23383,   1.19250,    .11140,    .05262,
     +     .03126,    .09473,    .14208,
     +     .47869,    .23234,   1.15975,    .11045,    .05282,
     +     .03196,    .09414,    .14070,
     +     .47716,    .23086,   1.12913,    .10951,    .05293,
     +     .03255,    .09352,    .13933,
     +     .47567,    .22946,   1.10099,    .10860,    .05301,
     +     .03306,    .09291,    .13803 /
        DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
     +     .47404,    .22801,   1.07314,    .10764,    .05303,
     +     .03350,    .09226,    .13668,
     +     .47239,    .22657,   1.04635,    .10669,    .05302,
     +     .03390,    .09158,    .13531,
     +     .47072,    .22517,   1.02141,    .10575,    .05296,
     +     .03422,    .09092,    .13402,
     +     .46906,    .22384,    .99818,    .10485,    .05288,
     +     .03449,    .09025,    .13275,
     +     .46739,    .22249,    .97543,    .10395,    .05279,
     +     .03475,    .08959,    .13149 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
     +     .44699,    .24985,   1.41216,    .08020,    .00000,
     +     .00000,    .04908,    .12287,
     +     .45762,    .25334,   1.50918,    .08116,    .00000,
     +     .00000,    .05132,    .12408,
     +     .47090,    .25727,   1.63097,    .08305,   -.01204,
     +     .00000,    .05488,    .12603,
     +     .47874,    .25928,   1.66701,    .08464,   -.00701,
     +     .00000,    .05756,    .12744,
     +     .48593,    .26082,   1.68708,    .08628,   -.00232,
     +     .00000,    .06024,    .12877,
     +     .49126,    .26178,   1.69197,    .08757,    .00122,
     +     .00000,    .06240,    .12975,
     +     .49574,    .26238,   1.68840,    .08872,    .00446,
     +     .00000,    .06433,    .13052,
     +     .49988,    .26273,   1.67771,    .08981,    .00771,
     +     .00000,    .06619,    .13118 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
     +     .50302,    .26284,   1.66388,    .09066,    .01037,
     +     .00000,    .06767,    .13160,
     +     .50562,    .26276,   1.64641,    .09136,    .01276,
     +     .00000,    .06897,    .13188,
     +     .50740,    .26258,   1.62994,    .09183,    .01452,
     +     .00000,    .06990,    .13201,
     +     .51049,    .26192,   1.58920,    .09267,    .01803,
     +     .00000,    .07166,    .13210,
     +     .51225,    .26101,   1.56427,    .09319,    .02072,
     +    -.00667,    .07289,    .13189,
     +     .51352,    .25973,   1.50985,    .09355,    .02339,
     +    -.00232,    .07400,    .13144,
     +     .51418,    .25815,   1.45251,    .09367,    .02583,
     +     .00124,    .07485,    .13070,
     +     .51426,    .25652,   1.40028,    .09355,    .02775,
     +     .00413,    .07539,    .12981 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
     +     .51387,    .25472,   1.34785,    .09327,    .02945,
     +     .00673,    .07572,    .12874,
     +     .51318,    .25313,   1.30475,    .09294,    .03067,
     +     .00867,    .07584,    .12772,
     +     .51200,    .25106,   1.25318,    .09237,    .03194,
     +     .01075,    .07583,    .12636,
     +     .51066,    .24912,   1.20867,    .09177,    .03292,
     +     .01241,    .07570,    .12506,
     +     .50924,    .24730,   1.16911,    .09114,    .03370,
     +     .01381,    .07549,    .12382,
     +     .50707,    .24489,   1.11995,    .09024,    .03452,
     +     .01537,    .07508,    .12213,
     +     .50474,    .24253,   1.07521,    .08930,    .03513,
     +     .01663,    .07459,    .12045,
     +     .50237,    .24028,   1.03487,    .08837,    .03561,
     +     .01770,    .07405,    .11882 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
     +     .49984,    .23801,    .99608,    .08739,    .03600,
     +     .01867,    .07345,    .11718,
     +     .49712,    .23569,    .95910,    .08635,    .03626,
     +     .01945,    .07279,    .11549,
     +     .49444,    .23349,    .92559,    .08534,    .03645,
     +     .02014,    .07212,    .11389,
     +     .49177,    .23141,    .89502,    .08438,    .03657,
     +     .02069,    .07144,    .11236,
     +     .48896,    .22927,    .86533,    .08338,    .03664,
     +     .02119,    .07074,    .11080,
     +     .48616,    .22716,    .83720,    .08238,    .03667,
     +     .02163,    .07002,    .10926,
     +     .48336,    .22512,    .81126,    .08140,    .03664,
     +     .02198,    .06931,    .10778,
     +     .48067,    .22320,    .78760,    .08048,    .03659,
     +     .02228,    .06863,    .10638 /
        DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
     +     .47787,    .22124,    .76442,    .07953,    .03650,
     +     .02252,    .06791,    .10497,
     +     .47506,    .21932,    .74230,    .07859,    .03639,
     +     .02274,    .06719,    .10358,
     +     .47232,    .21747,    .72188,    .07769,    .03626,
     +     .02291,    .06648,    .10225,
     +     .46965,    .21571,    .70299,    .07684,    .03613,
     +     .02305,    .06581,    .10098,
     +     .46696,    .21395,    .68459,    .07598,    .03598,
     +     .02317,    .06514,    .09971 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
     +     .49700,    .26908,   1.53791,    .06144,    .00000,
     +     .00000,    .03750,    .10789,
     +     .50720,    .27156,   1.56482,    .06297,    .00000,
     +     .00000,    .04007,    .10883,
     +     .51919,    .27378,   1.60280,    .06522,   -.01431,
     +     .00000,    .04368,    .11003,
     +     .52575,    .27445,   1.58519,    .06673,   -.00967,
     +     .00000,    .04609,    .11076,
     +     .53129,    .27463,   1.55691,    .06814,   -.00541,
     +     .00000,    .04835,    .11121,
     +     .53509,    .27436,   1.52632,    .06917,   -.00226,
     +     .00000,    .05008,    .11139,
     +     .53800,    .27379,   1.49338,    .06998,    .00054,
     +     .00000,    .05151,    .11140,
     +     .54034,    .27295,   1.45574,    .07070,    .00328,
     +     .00000,    .05284,    .11124 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
     +     .54186,    .27202,   1.42165,    .07120,    .00549,
     +     .00000,    .05383,    .11096,
     +     .54288,    .27095,   1.38738,    .07155,    .00743,
     +     .00000,    .05466,    .11057,
     +     .54335,    .26998,   1.35947,    .07177,    .00883,
     +     .00000,    .05523,    .11018,
     +     .54366,    .26772,   1.29889,    .07206,    .01157,
     +     .00000,    .05619,    .10917,
     +     .54300,    .26546,   1.25924,    .07208,    .01360,
     +    -.00604,    .05679,    .10816,
     +     .54158,    .26269,   1.19580,    .07190,    .01559,
     +    -.00277,    .05722,    .10687,
     +     .53944,    .25963,   1.13245,    .07155,    .01735,
     +    -.00012,    .05743,    .10531,
     +     .53696,    .25676,   1.07734,    .07108,    .01870,
     +     .00199,    .05744,    .10378 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
     +     .53405,    .25372,   1.02406,    .07046,    .01986,
     +     .00387,    .05727,    .10215,
     +     .53135,    .25110,    .98165,    .06986,    .02067,
     +     .00524,    .05704,    .10072,
     +     .52770,    .24786,    .93237,    .06902,    .02150,
     +     .00670,    .05664,    .09891,
     +     .52421,    .24495,    .89084,    .06824,    .02210,
     +     .00784,    .05621,    .09726,
     +     .52084,    .24229,    .85462,    .06748,    .02258,
     +     .00880,    .05576,    .09573,
     +     .51627,    .23882,    .81067,    .06645,    .02305,
     +     .00983,    .05511,    .09373,
     +     .51175,    .23551,    .77150,    .06542,    .02338,
     +     .01067,    .05440,    .09186,
     +     .50739,    .23241,    .73677,    .06442,    .02361,
     +     .01135,    .05371,    .09009 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
     +     .50292,    .22928,    .70389,    .06340,    .02379,
     +     .01197,    .05301,    .08832,
     +     .49831,    .22622,    .67310,    .06237,    .02388,
     +     .01246,    .05224,    .08658,
     +     .49391,    .22333,    .64548,    .06140,    .02394,
     +     .01288,    .05151,    .08494,
     +     .48967,    .22059,    .62060,    .06047,    .02394,
     +     .01322,    .05081,    .08342,
     +     .48533,    .21786,    .59672,    .05953,    .02391,
     +     .01351,    .05008,    .08187,
     +     .48102,    .21518,    .57429,    .05862,    .02385,
     +     .01375,    .04937,    .08037,
     +     .47684,    .21263,    .55384,    .05771,    .02376,
     +     .01394,    .04867,    .07896,
     +     .47289,    .21023,    .53532,    .05687,    .02367,
     +     .01410,    .04801,    .07764 /
        DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
     +     .46883,    .20780,    .51735,    .05602,    .02355,
     +     .01423,    .04735,    .07631,
     +     .46482,    .20543,    .50034,    .05520,    .02342,
     +     .01434,    .04668,    .07502,
     +     .46097,    .20317,    .48471,    .05441,    .02328,
     +     .01442,    .04605,    .07379,
     +     .45728,    .20102,    .47041,    .05365,    .02313,
     +     .01447,    .04544,    .07263,
     +     .45359,    .19889,    .45647,    .05291,    .02299,
     +     .01453,    .04484,    .07149 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
     +     .54008,    .28286,   1.54157,    .04757,    .00000,
     +     .00000,    .02911,    .09470,
     +     .54896,    .28382,   1.51635,    .04936,    .00000,
     +     .00000,    .03175,    .09527,
     +     .55845,    .28395,   1.49327,    .05164,   -.01457,
     +     .00000,    .03514,    .09562,
     +     .56296,    .28311,   1.44096,    .05305,   -.01040,
     +     .00000,    .03724,    .09558,
     +     .56620,    .28176,   1.38330,    .05424,   -.00663,
     +     .00000,    .03909,    .09527,
     +     .56794,    .28019,   1.33249,    .05501,   -.00391,
     +     .00000,    .04038,    .09485,
     +     .56877,    .27845,   1.28372,    .05559,   -.00152,
     +     .00000,    .04143,    .09424,
     +     .56894,    .27635,   1.23261,    .05602,    .00076,
     +     .00000,    .04234,    .09346 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
     +     .56857,    .27436,   1.18907,    .05628,    .00256,
     +     .00000,    .04299,    .09269,
     +     .56771,    .27232,   1.14770,    .05644,    .00412,
     +     .00000,    .04347,    .09184,
     +     .56675,    .27060,   1.11542,    .05647,    .00524,
     +     .00000,    .04376,    .09112,
     +     .56400,    .26676,   1.04851,    .05637,    .00737,
     +     .00000,    .04420,    .08951,
     +     .56072,    .26325,   1.00395,    .05613,    .00893,
     +    -.00515,    .04439,    .08800,
     +     .55645,    .25920,    .94091,    .05573,    .01042,
     +    -.00268,    .04442,    .08623,
     +     .55144,    .25483,    .87985,    .05512,    .01170,
     +    -.00071,    .04426,    .08430,
     +     .54644,    .25082,    .82811,    .05447,    .01268,
     +     .00086,    .04397,    .08247 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
     +     .54105,    .24673,    .77924,    .05373,    .01349,
     +     .00222,    .04358,    .08058,
     +     .53631,    .24330,    .74107,    .05306,    .01405,
     +     .00321,    .04318,    .07900,
     +     .53031,    .23910,    .69752,    .05218,    .01460,
     +     .00424,    .04262,    .07707,
     +     .52481,    .23538,    .66146,    .05135,    .01500,
     +     .00505,    .04207,    .07534,
     +     .51967,    .23200,    .63036,    .05059,    .01529,
     +     .00571,    .04154,    .07378,
     +     .51294,    .22769,    .59321,    .04957,    .01558,
     +     .00642,    .04082,    .07179,
     +     .50642,    .22365,    .56060,    .04858,    .01577,
     +     .00699,    .04009,    .06996,
     +     .50026,    .21989,    .53201,    .04765,    .01588,
     +     .00744,    .03939,    .06825 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
     +     .49408,    .21617,    .50518,    .04672,    .01596,
     +     .00784,    .03867,    .06657,
     +     .48786,    .21253,    .48042,    .04577,    .01599,
     +     .00817,    .03795,    .06495,
     +     .48200,    .20912,    .45838,    .04489,    .01598,
     +     .00843,    .03728,    .06344,
     +     .47645,    .20594,    .43870,    .04405,    .01594,
     +     .00864,    .03663,    .06202,
     +     .47081,    .20278,    .41995,    .04323,    .01588,
     +     .00882,    .03598,    .06064,
     +     .46526,    .19970,    .40247,    .04243,    .01580,
     +     .00897,    .03534,    .05929,
     +     .45997,    .19679,    .38665,    .04166,    .01572,
     +     .00908,    .03471,    .05805,
     +     .45500,    .19407,    .37242,    .04093,    .01562,
     +     .00917,    .03414,    .05688 /
        DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
     +     .44995,    .19134,    .35868,    .04022,    .01551,
     +     .00924,    .03356,    .05572,
     +     .44497,    .18867,    .34574,    .03952,    .01539,
     +     .00929,    .03299,    .05459,
     +     .44022,    .18616,    .33394,    .03886,    .01527,
     +     .00933,    .03245,    .05354,
     +     .43570,    .18380,    .32319,    .03825,    .01514,
     +     .00935,    .03194,    .05253,
     +     .43119,    .18146,    .31275,    .03763,    .01500,
     +     .00936,    .03144,    .05155 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
     +     .57679,    .29185,   1.45303,    .03775,    .00000,
     +     .00000,    .02327,    .08290,
     +     .58334,    .29127,   1.39444,    .03962,    .00000,
     +     .00000,    .02569,    .08278,
     +     .58920,    .28911,   1.33260,    .04182,   -.01353,
     +     .00000,    .02856,    .08218,
     +     .59103,    .28674,   1.26198,    .04297,   -.00993,
     +     .00000,    .03026,    .08154,
     +     .59146,    .28380,   1.19023,    .04389,   -.00671,
     +     .00000,    .03164,    .08064,
     +     .59077,    .28094,   1.13078,    .04444,   -.00440,
     +     .00000,    .03258,    .07971,
     +     .58930,    .27801,   1.07620,    .04480,   -.00243,
     +     .00000,    .03328,    .07868,
     +     .58703,    .27474,   1.02102,    .04503,   -.00057,
     +     .00000,    .03383,    .07750 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
     +     .58455,    .27178,    .97541,    .04510,    .00089,
     +     .00000,    .03419,    .07642,
     +     .58173,    .26883,    .93324,    .04509,    .00213,
     +     .00000,    .03440,    .07530,
     +     .57922,    .26641,    .90102,    .04501,    .00302,
     +     .00000,    .03452,    .07440,
     +     .57327,    .26119,    .83585,    .04469,    .00468,
     +     .00000,    .03464,    .07243,
     +     .56741,    .25656,    .79238,    .04429,    .00587,
     +    -.00424,    .03456,    .07071,
     +     .56037,    .25134,    .73478,    .04374,    .00700,
     +    -.00238,    .03438,    .06875,
     +     .55257,    .24591,    .68007,    .04305,    .00795,
     +    -.00090,    .03402,    .06669,
     +     .54517,    .24096,    .63456,    .04235,    .00866,
     +     .00026,    .03361,    .06481 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
     +     .53745,    .23598,    .59223,    .04157,    .00925,
     +     .00127,    .03310,    .06293,
     +     .53089,    .23189,    .55960,    .04089,    .00964,
     +     .00198,    .03266,    .06137,
     +     .52275,    .22694,    .52287,    .04003,    .01002,
     +     .00273,    .03207,    .05949,
     +     .51546,    .22261,    .49279,    .03925,    .01029,
     +     .00331,    .03150,    .05787,
     +     .50874,    .21870,    .46709,    .03851,    .01048,
     +     .00377,    .03096,    .05642,
     +     .50009,    .21376,    .43674,    .03757,    .01066,
     +     .00426,    .03027,    .05459,
     +     .49191,    .20915,    .41037,    .03668,    .01077,
     +     .00466,    .02959,    .05293,
     +     .48425,    .20493,    .38744,    .03584,    .01083,
     +     .00497,    .02895,    .05138 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
     +     .47659,    .20081,    .36610,    .03503,    .01087,
     +     .00524,    .02831,    .04988,
     +     .46906,    .19679,    .34656,    .03422,    .01086,
     +     .00545,    .02768,    .04844,
     +     .46200,    .19306,    .32929,    .03345,    .01083,
     +     .00563,    .02708,    .04712,
     +     .45535,    .18959,    .31398,    .03275,    .01078,
     +     .00576,    .02654,    .04589,
     +     .44871,    .18615,    .29948,    .03203,    .01072,
     +     .00588,    .02597,    .04469,
     +     .44226,    .18281,    .28604,    .03133,    .01065,
     +     .00597,    .02541,    .04355,
     +     .43608,    .17969,    .27392,    .03069,    .01057,
     +     .00604,    .02490,    .04248,
     +     .43030,    .17679,    .26304,    .03010,    .01048,
     +     .00609,    .02443,    .04150 /
        DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
     +     .42449,    .17388,    .25263,    .02950,    .01039,
     +     .00612,    .02395,    .04052,
     +     .41882,    .17105,    .24285,    .02892,    .01029,
     +     .00615,    .02348,    .03960,
     +     .41345,    .16840,    .23398,    .02838,    .01019,
     +     .00617,    .02303,    .03872,
     +     .40835,    .16592,    .22593,    .02785,    .01010,
     +     .00618,    .02262,    .03792,
     +     .40330,    .16347,    .21815,    .02734,    .00999,
     +     .00618,    .02221,    .03711 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
     +     .60704,    .29679,   1.30635,    .03111,    .00000,
     +     .00000,    .01911,    .07188,
     +     .61064,    .29444,   1.23046,    .03276,    .00000,
     +     .00000,    .02117,    .07118,
     +     .61224,    .28978,   1.14872,    .03449,   -.01187,
     +     .00000,    .02348,    .06989,
     +     .61100,    .28588,   1.07209,    .03541,   -.00885,
     +     .00000,    .02470,    .06873,
     +     .60821,    .28146,    .99710,    .03607,   -.00617,
     +     .00000,    .02572,    .06738,
     +     .60483,    .27738,    .93704,    .03640,   -.00427,
     +     .00000,    .02635,    .06610,
     +     .60090,    .27336,    .88320,    .03655,   -.00267,
     +     .00000,    .02678,    .06482,
     +     .59608,    .26896,    .82990,    .03658,   -.00117,
     +     .00000,    .02709,    .06344 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
     +     .59147,    .26509,    .78665,    .03651,   -.00001,
     +     .00000,    .02725,    .06219,
     +     .58666,    .26131,    .74729,    .03636,    .00097,
     +     .00000,    .02732,    .06097,
     +     .58260,    .25829,    .71770,    .03619,    .00167,
     +     .00000,    .02731,    .05999,
     +     .57353,    .25187,    .65878,    .03575,    .00295,
     +     .00000,    .02720,    .05790,
     +     .56517,    .24629,    .61933,    .03526,    .00387,
     +    -.00341,    .02699,    .05615,
     +     .55547,    .24014,    .56934,    .03464,    .00472,
     +    -.00201,    .02663,    .05424,
     +     .54508,    .23380,    .52253,    .03391,    .00544,
     +    -.00089,    .02620,    .05224,
     +     .53552,    .22813,    .48408,    .03319,    .00595,
     +    -.00004,    .02575,    .05044 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
     +     .52572,    .22249,    .44876,    .03243,    .00638,
     +     .00071,    .02524,    .04869,
     +     .51750,    .21787,    .42179,    .03179,    .00665,
     +     .00122,    .02479,    .04726,
     +     .50752,    .21234,    .39170,    .03098,    .00692,
     +     .00177,    .02422,    .04558,
     +     .49868,    .20756,    .36727,    .03026,    .00711,
     +     .00218,    .02369,    .04411,
     +     .49061,    .20329,    .34651,    .02960,    .00724,
     +     .00251,    .02322,    .04282,
     +     .48039,    .19791,    .32219,    .02876,    .00736,
     +     .00287,    .02258,    .04123,
     +     .47080,    .19300,    .30127,    .02798,    .00742,
     +     .00314,    .02198,    .03975,
     +     .46193,    .18850,    .28321,    .02725,    .00746,
     +     .00336,    .02143,    .03841 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
     +     .45316,    .18408,    .26649,    .02653,    .00747,
     +     .00355,    .02088,    .03713,
     +     .44459,    .17982,    .25132,    .02582,    .00745,
     +     .00369,    .02035,    .03592,
     +     .43661,    .17589,    .23794,    .02517,    .00742,
     +     .00381,    .01984,    .03481,
     +     .42917,    .17226,    .22610,    .02456,    .00737,
     +     .00390,    .01937,    .03380,
     +     .42176,    .16868,    .21498,    .02396,    .00732,
     +     .00397,    .01890,    .03281,
     +     .41457,    .16525,    .20472,    .02339,    .00726,
     +     .00403,    .01844,    .03188,
     +     .40777,    .16203,    .19554,    .02285,    .00720,
     +     .00407,    .01801,    .03100,
     +     .40146,    .15904,    .18731,    .02235,    .00713,
     +     .00410,    .01763,    .03020 /
        DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
     +     .39512,    .15606,    .17944,    .02185,    .00704,
     +     .00412,    .01724,    .02941,
     +     .38896,    .15319,    .17207,    .02138,    .00697,
     +     .00413,    .01686,    .02865,
     +     .38315,    .15049,    .16541,    .02093,    .00689,
     +     .00414,    .01650,    .02794,
     +     .37766,    .14798,    .15937,    .02051,    .00682,
     +     .00414,    .01617,    .02729,
     +     .37223,    .14549,    .15355,    .02012,    .00674,
     +     .00413,    .01584,    .02664 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
     +     .63114,    .29788,   1.13133,    .02643,    .00000,
     +     .00000,    .01607,    .06163,
     +     .63123,    .29374,   1.05035,    .02776,    .00000,
     +     .00000,    .01771,    .06043,
     +     .62785,    .28675,    .96284,    .02902,   -.01004,
     +     .00000,    .01944,    .05853,
     +     .62323,    .28138,    .88832,    .02960,   -.00756,
     +     .00000,    .02034,    .05710,
     +     .61715,    .27546,    .81716,    .02996,   -.00538,
     +     .00000,    .02101,    .05549,
     +     .61095,    .27032,    .76130,    .03012,   -.00384,
     +     .00000,    .02137,    .05402,
     +     .60449,    .26527,    .71201,    .03011,   -.00256,
     +     .00000,    .02159,    .05267,
     +     .59713,    .25990,    .66394,    .02998,   -.00137,
     +     .00000,    .02169,    .05121 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
     +     .59042,    .25524,    .62538,    .02980,   -.00045,
     +     .00000,    .02171,    .04994,
     +     .58368,    .25073,    .59065,    .02956,    .00031,
     +     .00000,    .02166,    .04873,
     +     .57816,    .24719,    .56479,    .02934,    .00086,
     +     .00000,    .02159,    .04776,
     +     .56608,    .23975,    .51395,    .02879,    .00185,
     +     .00000,    .02136,    .04575,
     +     .55537,    .23346,    .47990,    .02824,    .00255,
     +    -.00271,    .02107,    .04410,
     +     .54329,    .22657,    .43800,    .02759,    .00319,
     +    -.00166,    .02070,    .04230,
     +     .53058,    .21956,    .39914,    .02687,    .00373,
     +    -.00082,    .02024,    .04047,
     +     .51904,    .21336,    .36756,    .02618,    .00411,
     +    -.00018,    .01979,    .03885 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
     +     .50748,    .20721,    .33872,    .02548,    .00442,
     +     .00037,    .01929,    .03730,
     +     .49790,    .20225,    .31688,    .02489,    .00463,
     +     .00075,    .01888,    .03605,
     +     .48634,    .19637,    .29271,    .02414,    .00482,
     +     .00116,    .01835,    .03457,
     +     .47624,    .19130,    .27323,    .02349,    .00495,
     +     .00146,    .01789,    .03331,
     +     .46709,    .18679,    .25679,    .02291,    .00504,
     +     .00170,    .01746,    .03220,
     +     .45555,    .18120,    .23767,    .02220,    .00512,
     +     .00194,    .01691,    .03082,
     +     .44492,    .17603,    .22124,    .02150,    .00515,
     +     .00214,    .01640,    .02962,
     +     .43514,    .17135,    .20717,    .02086,    .00518,
     +     .00230,    .01592,    .02854 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
     +     .42550,    .16685,    .19420,    .02025,    .00518,
     +     .00243,    .01544,    .02750,
     +     .41623,    .16250,    .18248,    .01963,    .00516,
     +     .00253,    .01500,    .02648,
     +     .40761,    .15850,    .17219,    .01908,    .00513,
     +     .00261,    .01459,    .02557,
     +     .39957,    .15482,    .16320,    .01858,    .00509,
     +     .00266,    .01418,    .02475,
     +     .39164,    .15121,    .15473,    .01808,    .00504,
     +     .00271,    .01381,    .02395,
     +     .38401,    .14774,    .14694,    .01760,    .00500,
     +     .00275,    .01345,    .02319,
     +     .37681,    .14452,    .13998,    .01715,    .00494,
     +     .00277,    .01311,    .02249,
     +     .37011,    .14155,    .13379,    .01674,    .00488,
     +     .00279,    .01279,    .02184 /
        DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
     +     .36345,    .13862,    .12788,    .01634,    .00483,
     +     .00280,    .01247,    .02122,
     +     .35699,    .13578,    .12239,    .01594,    .00477,
     +     .00281,    .01217,    .02062,
     +     .35093,    .13312,    .11742,    .01558,    .00471,
     +     .00281,    .01190,    .02007,
     +     .34526,    .13064,    .11293,    .01524,    .00465,
     +     .00281,    .01164,    .01954,
     +     .33965,    .12820,    .10862,    .01489,    .00459,
     +     .00280,    .01139,    .01902 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
     +     .64909,    .29544,    .95067,    .02283,    .00000,
     +     .00000,    .01389,    .05206,
     +     .64521,    .28956,    .87300,    .02380,    .00000,
     +     .00000,    .01500,    .05057,
     +     .63633,    .28052,    .78903,    .02475,   -.00831,
     +     .00000,    .01618,    .04820,
     +     .62823,    .27375,    .72145,    .02505,   -.00631,
     +     .00000,    .01673,    .04665,
     +     .61867,    .26659,    .65788,    .02517,   -.00456,
     +     .00000,    .01711,    .04497,
     +     .60978,    .26043,    .60869,    .02515,   -.00333,
     +     .00000,    .01728,    .04352,
     +     .60083,    .25451,    .56573,    .02500,   -.00230,
     +     .00000,    .01735,    .04215,
     +     .59098,    .24836,    .52420,    .02480,   -.00136,
     +     .00000,    .01733,    .04071 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
     +     .58220,    .24310,    .49123,    .02457,   -.00064,
     +     .00000,    .01726,    .03946,
     +     .57361,    .23804,    .46176,    .02427,   -.00004,
     +     .00000,    .01712,    .03834,
     +     .56671,    .23409,    .43996,    .02402,    .00038,
     +     .00000,    .01701,    .03744,
     +     .55196,    .22586,    .39747,    .02341,    .00115,
     +     .00000,    .01669,    .03564,
     +     .53920,    .21899,    .36897,    .02286,    .00169,
     +    -.00214,    .01637,    .03415,
     +     .52501,    .21155,    .33462,    .02223,    .00218,
     +    -.00135,    .01599,    .03253,
     +     .51036,    .20405,    .30303,    .02153,    .00258,
     +    -.00071,    .01555,    .03093,
     +     .49723,    .19746,    .27753,    .02087,    .00287,
     +    -.00023,    .01512,    .02957 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
     +     .48415,    .19106,    .25440,    .02021,    .00310,
     +     .00018,    .01468,    .02825,
     +     .47347,    .18588,    .23702,    .01966,    .00325,
     +     .00046,    .01432,    .02716,
     +     .46068,    .17981,    .21791,    .01901,    .00338,
     +     .00075,    .01386,    .02590,
     +     .44959,    .17459,    .20256,    .01842,    .00348,
     +     .00097,    .01343,    .02489,
     +     .43967,    .16994,    .18965,    .01790,    .00355,
     +     .00115,    .01305,    .02401,
     +     .42728,    .16423,    .17472,    .01723,    .00359,
     +     .00133,    .01262,    .02291,
     +     .41582,    .15905,    .16203,    .01665,    .00362,
     +     .00147,    .01219,    .02188,
     +     .40537,    .15437,    .15117,    .01611,    .00363,
     +     .00158,    .01180,    .02097 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
     +     .39520,    .14983,    .14119,    .01560,    .00362,
     +     .00167,    .01142,    .02011,
     +     .38539,    .14552,    .13222,    .01508,    .00361,
     +     .00175,    .01104,    .01932,
     +     .37636,    .14157,    .12441,    .01461,    .00358,
     +     .00179,    .01071,    .01859,
     +     .36800,    .13793,    .11756,    .01419,    .00355,
     +     .00184,    .01040,    .01794,
     +     .35978,    .13437,    .11117,    .01377,    .00351,
     +     .00186,    .01009,    .01731,
     +     .35193,    .13097,    .10530,    .01336,    .00348,
     +     .00190,    .00980,    .01672,
     +     .34454,    .12781,    .10008,    .01298,    .00343,
     +     .00191,    .00953,    .01616,
     +     .33769,    .12493,    .09544,    .01264,    .00339,
     +     .00192,    .00928,    .01566 /
        DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
     +     .33089,    .12207,    .09102,    .01230,    .00334,
     +     .00193,    .00903,    .01518,
     +     .32431,    .11934,    .08691,    .01201,    .00330,
     +     .00193,    .00880,    .01471,
     +     .31817,    .11679,    .08321,    .01171,    .00325,
     +     .00192,    .00857,    .01428,
     +     .31242,    .11440,    .07991,    .01143,    .00321,
     +     .00192,    .00836,    .01389,
     +     .30675,    .11206,    .07671,    .01115,    .00316,
     +     .00191,    .00816,    .01351 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
     +     .65950,    .29101,    .78030,    .02104,    .00000,
     +     .00000,    .01130,    .04255,
     +     .65164,    .28346,    .71038,    .02153,    .00000,
     +     .00000,    .01214,    .04093,
     +     .63761,    .27217,    .63503,    .02180,   -.00681,
     +     .00000,    .01300,    .03868,
     +     .62610,    .26417,    .57635,    .02186,   -.00520,
     +     .00000,    .01337,    .03712,
     +     .61326,    .25587,    .52181,    .02170,   -.00380,
     +     .00000,    .01359,    .03556,
     +     .60177,    .24880,    .47999,    .02151,   -.00282,
     +     .00000,    .01367,    .03420,
     +     .59050,    .24220,    .44373,    .02123,   -.00200,
     +     .00000,    .01366,    .03295,
     +     .57845,    .23533,    .40892,    .02087,   -.00126,
     +     .00000,    .01359,    .03170 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
     +     .56793,    .22947,    .38148,    .02052,   -.00069,
     +     .00000,    .01346,    .03064,
     +     .55770,    .22396,    .35709,    .02018,   -.00023,
     +     .00000,    .01336,    .02960,
     +     .54959,    .21970,    .33912,    .01988,    .00011,
     +     .00000,    .01323,    .02885,
     +     .53249,    .21087,    .30436,    .01926,    .00071,
     +     .00000,    .01291,    .02724,
     +     .51793,    .20360,    .28106,    .01872,    .00112,
     +    -.00169,    .01263,    .02592,
     +     .50197,    .19582,    .25337,    .01808,    .00149,
     +    -.00109,    .01227,    .02459,
     +     .48573,    .18801,    .22807,    .01740,    .00179,
     +    -.00061,    .01184,    .02330,
     +     .47134,    .18122,    .20777,    .01678,    .00202,
     +    -.00024,    .01146,    .02217 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
     +     .45712,    .17465,    .18953,    .01617,    .00219,
     +     .00007,    .01109,    .02105,
     +     .44560,    .16937,    .17586,    .01566,    .00230,
     +     .00028,    .01079,    .02018,
     +     .43194,    .16320,    .16089,    .01507,    .00240,
     +     .00049,    .01038,    .01919,
     +     .42018,    .15794,    .14891,    .01455,    .00246,
     +     .00065,    .01006,    .01837,
     +     .40968,    .15331,    .13891,    .01407,    .00251,
     +     .00079,    .00977,    .01763,
     +     .39663,    .14763,    .12742,    .01353,    .00254,
     +     .00092,    .00938,    .01671,
     +     .38474,    .14250,    .11768,    .01300,    .00255,
     +     .00101,    .00902,    .01593,
     +     .37394,    .13786,    .10938,    .01254,    .00256,
     +     .00110,    .00871,    .01522 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
     +     .36344,    .13342,    .10181,    .01209,    .00255,
     +     .00116,    .00840,    .01454,
     +     .35335,    .12921,    .09502,    .01167,    .00253,
     +     .00121,    .00811,    .01393,
     +     .34411,    .12537,    .08912,    .01128,    .00251,
     +     .00124,    .00784,    .01335,
     +     .33568,    .12185,    .08397,    .01093,    .00248,
     +     .00127,    .00760,    .01284,
     +     .32737,    .11843,    .07919,    .01056,    .00246,
     +     .00130,    .00734,    .01235,
     +     .31938,    .11517,    .07482,    .01022,    .00242,
     +     .00131,    .00711,    .01190,
     +     .31196,    .11215,    .07094,    .00992,    .00239,
     +     .00132,    .00690,    .01150,
     +     .30513,    .10937,    .06749,    .00963,    .00236,
     +     .00133,    .00670,    .01114 /
        DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
     +     .29839,    .10664,    .06424,    .00935,    .00233,
     +     .00133,    .00650,    .01076,
     +     .29190,    .10403,    .06122,    .00907,    .00229,
     +     .00133,    .00632,    .01040,
     +     .28583,    .10161,    .05852,    .00882,    .00226,
     +     .00133,    .00614,    .01007,
     +     .28015,    .09936,    .05607,    .00859,    .00223,
     +     .00133,    .00599,    .00977,
     +     .27456,    .09714,    .05375,    .00836,    .00219,
     +     .00132,    .00583,    .00947 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
     +     .66474,    .28289,    .62750,    .01850,    .00000,
     +     .00000,    .00959,    .03438,
     +     .65265,    .27386,    .56732,    .01870,    .00000,
     +     .00000,    .01014,    .03288,
     +     .63304,    .26091,    .50282,    .01874,   -.00557,
     +     .00000,    .01064,    .03069,
     +     .61814,    .25191,    .45363,    .01860,   -.00428,
     +     .00000,    .01084,    .02925,
     +     .60216,    .24267,    .40809,    .01837,   -.00315,
     +     .00000,    .01093,    .02777,
     +     .58816,    .23500,    .37346,    .01807,   -.00237,
     +     .00000,    .01092,    .02656,
     +     .57474,    .22783,    .34359,    .01775,   -.00172,
     +     .00000,    .01087,    .02545,
     +     .56057,    .22046,    .31509,    .01735,   -.00113,
     +     .00000,    .01073,    .02436 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
     +     .54840,    .21426,    .29266,    .01699,   -.00069,
     +     .00000,    .01059,    .02346,
     +     .53676,    .20845,    .27288,    .01663,   -.00032,
     +     .00000,    .01045,    .02260,
     +     .52757,    .20397,    .25836,    .01635,   -.00006,
     +     .00000,    .01031,    .02192,
     +     .50847,    .19476,    .23043,    .01571,    .00040,
     +     .00000,    .01001,    .02060,
     +     .49252,    .18725,    .21171,    .01514,    .00072,
     +    -.00134,    .00971,    .01957,
     +     .47517,    .17931,    .18967,    .01455,    .00101,
     +    -.00088,    .00939,    .01844,
     +     .45766,    .17143,    .16968,    .01395,    .00125,
     +    -.00051,    .00905,    .01732,
     +     .44228,    .16459,    .15373,    .01340,    .00140,
     +    -.00024,    .00874,    .01639 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
     +     .42730,    .15798,    .13947,    .01283,    .00154,
     +     .00000,    .00841,    .01550,
     +     .41521,    .15272,    .12885,    .01236,    .00162,
     +     .00015,    .00811,    .01487,
     +     .40096,    .14662,    .11725,    .01184,    .00169,
     +     .00031,    .00779,    .01407,
     +     .38874,    .14147,    .10806,    .01141,    .00174,
     +     .00044,    .00753,    .01338,
     +     .37792,    .13694,    .10041,    .01103,    .00177,
     +     .00053,    .00728,    .01276,
     +     .36458,    .13141,    .09167,    .01052,    .00180,
     +     .00063,    .00695,    .01212,
     +     .35243,    .12642,    .08430,    .01008,    .00180,
     +     .00070,    .00668,    .01149,
     +     .34148,    .12196,    .07803,    .00970,    .00180,
     +     .00076,    .00644,    .01094 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
     +     .33092,    .11769,    .07234,    .00931,    .00180,
     +     .00080,    .00618,    .01043,
     +     .32085,    .11364,    .06728,    .00893,    .00178,
     +     .00084,    .00594,    .00995,
     +     .31166,    .10996,    .06290,    .00861,    .00177,
     +     .00087,    .00572,    .00952,
     +     .30322,    .10662,    .05910,    .00831,    .00174,
     +     .00088,    .00554,    .00912,
     +     .29497,    .10337,    .05556,    .00803,    .00172,
     +     .00090,    .00534,    .00876,
     +     .28709,    .10032,    .05235,    .00777,    .00170,
     +     .00091,    .00514,    .00842,
     +     .27982,    .09747,    .04951,    .00751,    .00167,
     +     .00091,    .00498,    .00811,
     +     .27313,    .09487,    .04700,    .00727,    .00165,
     +     .00092,    .00483,    .00781 /
        DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
     +     .26653,    .09232,    .04464,    .00703,    .00162,
     +     .00092,    .00468,    .00754,
     +     .26018,    .08987,    .04246,    .00681,    .00159,
     +     .00092,    .00454,    .00728,
     +     .25427,    .08763,    .04049,    .00661,    .00157,
     +     .00092,    .00441,    .00703,
     +     .24877,    .08553,    .03875,    .00644,    .00154,
     +     .00091,    .00429,    .00680,
     +     .24337,    .08348,    .03708,    .00626,    .00152,
     +     .00091,    .00416,    .00659 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
     +     .66338,    .27286,    .49602,    .01650,    .00000,
     +     .00000,    .00774,    .02701,
     +     .64712,    .26261,    .44588,    .01650,    .00000,
     +     .00000,    .00815,    .02554,
     +     .62245,    .24804,    .39242,    .01621,   -.00457,
     +     .00000,    .00850,    .02369,
     +     .60437,    .23826,    .35190,    .01597,   -.00353,
     +     .00000,    .00857,    .02243,
     +     .58546,    .22831,    .31469,    .01559,   -.00263,
     +     .00000,    .00860,    .02121,
     +     .56935,    .22006,    .28646,    .01520,   -.00199,
     +     .00000,    .00856,    .02025,
     +     .55406,    .21250,    .26225,    .01483,   -.00147,
     +     .00000,    .00847,    .01932,
     +     .53812,    .20478,    .23925,    .01443,   -.00100,
     +     .00000,    .00838,    .01836 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
     +     .52457,    .19835,    .22124,    .01407,   -.00065,
     +     .00000,    .00824,    .01760,
     +     .51172,    .19233,    .20540,    .01371,   -.00035,
     +     .00000,    .00809,    .01691,
     +     .50172,    .18772,    .19384,    .01340,   -.00015,
     +     .00000,    .00794,    .01640,
     +     .48102,    .17836,    .17173,    .01277,    .00021,
     +     .00000,    .00767,    .01531,
     +     .46392,    .17081,    .15687,    .01229,    .00046,
     +    -.00106,    .00745,    .01443,
     +     .44558,    .16280,    .13956,    .01175,    .00068,
     +    -.00071,    .00717,    .01355,
     +     .42719,    .15492,    .12397,    .01117,    .00086,
     +    -.00042,    .00686,    .01271,
     +     .41119,    .14818,    .11161,    .01065,    .00099,
     +    -.00021,    .00657,    .01200 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
     +     .39572,    .14171,    .10063,    .01013,    .00108,
     +    -.00004,    .00630,    .01133,
     +     .38327,    .13661,    .09253,    .00975,    .00114,
     +     .00008,    .00608,    .01076,
     +     .36865,    .13068,    .08372,    .00935,    .00119,
     +     .00020,    .00582,    .01012,
     +     .35627,    .12568,    .07676,    .00898,    .00123,
     +     .00029,    .00559,    .00960,
     +     .34537,    .12130,    .07100,    .00863,    .00126,
     +     .00036,    .00538,    .00917,
     +     .33202,    .11600,    .06445,    .00819,    .00127,
     +     .00043,    .00514,    .00863,
     +     .31994,    .11123,    .05894,    .00781,    .00128,
     +     .00049,    .00492,    .00817,
     +     .30909,    .10698,    .05433,    .00748,    .00127,
     +     .00053,    .00471,    .00776 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
     +     .29866,    .10292,    .05018,    .00713,    .00127,
     +     .00056,    .00451,    .00737,
     +     .28874,    .09913,    .04649,    .00682,    .00125,
     +     .00058,    .00431,    .00702,
     +     .27970,    .09568,    .04330,    .00655,    .00124,
     +     .00060,    .00415,    .00671,
     +     .27144,    .09255,    .04054,    .00633,    .00122,
     +     .00061,    .00399,    .00641,
     +     .26343,    .08952,    .03800,    .00609,    .00120,
     +     .00062,    .00385,    .00613,
     +     .25583,    .08664,    .03569,    .00586,    .00119,
     +     .00063,    .00371,    .00589,
     +     .24879,    .08402,    .03367,    .00566,    .00117,
     +     .00063,    .00357,    .00565,
     +     .24232,    .08162,    .03191,    .00547,    .00115,
     +     .00064,    .00346,    .00541 /
        DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
     +     .23596,    .07927,    .03023,    .00529,    .00113,
     +     .00064,    .00335,    .00522,
     +     .22988,    .07700,    .02869,    .00512,    .00111,
     +     .00064,    .00323,    .00503,
     +     .22422,    .07493,    .02732,    .00496,    .00108,
     +     .00063,    .00314,    .00486,
     +     .21899,    .07302,    .02608,    .00481,    .00107,
     +     .00063,    .00304,    .00468,
     +     .21387,    .07114,    .02491,    .00467,    .00104,
     +     .00062,    .00295,    .00453 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
     +     .65603,    .26077,    .38549,    .01453,    .00000,
     +     .00000,    .00618,    .02058,
     +     .63599,    .24928,    .34465,    .01422,    .00000,
     +     .00000,    .00644,    .01950,
     +     .60638,    .23369,    .30128,    .01381,   -.00377,
     +     .00000,    .00667,    .01792,
     +     .58558,    .22319,    .26839,    .01347,   -.00293,
     +     .00000,    .00678,    .01687,
     +     .56406,    .21280,    .23847,    .01307,   -.00219,
     +     .00000,    .00673,    .01589,
     +     .54602,    .20424,    .21582,    .01268,   -.00167,
     +     .00000,    .00667,    .01506,
     +     .52916,    .19637,    .19642,    .01230,   -.00125,
     +     .00000,    .00658,    .01436,
     +     .51178,    .18847,    .17816,    .01188,   -.00088,
     +     .00000,    .00644,    .01362 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
     +     .49710,    .18194,    .16390,    .01152,   -.00060,
     +     .00000,    .00633,    .01301,
     +     .48336,    .17586,    .15145,    .01116,   -.00037,
     +     .00000,    .00620,    .01244,
     +     .47267,    .17126,    .14232,    .01089,   -.00021,
     +     .00000,    .00610,    .01202,
     +     .45078,    .16191,    .12492,    .01034,    .00008,
     +     .00000,    .00586,    .01118,
     +     .43295,    .15438,    .11348,    .00987,    .00028,
     +    -.00083,    .00564,    .01052,
     +     .41393,    .14650,    .10014,    .00938,    .00044,
     +    -.00057,    .00539,    .00985,
     +     .39508,    .13882,    .08818,    .00885,    .00059,
     +    -.00035,    .00513,    .00920,
     +     .37881,    .13224,    .07880,    .00837,    .00068,
     +    -.00019,    .00490,    .00864 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
     +     .36307,    .12598,    .07051,    .00797,    .00075,
     +    -.00006,    .00470,    .00808,
     +     .35055,    .12108,    .06440,    .00766,    .00080,
     +     .00003,    .00452,    .00767,
     +     .33605,    .11541,    .05781,    .00724,    .00084,
     +     .00012,    .00431,    .00722,
     +     .32372,    .11065,    .05271,    .00690,    .00086,
     +     .00019,    .00411,    .00684,
     +     .31284,    .10651,    .04850,    .00664,    .00088,
     +     .00024,    .00393,    .00650,
     +     .29971,    .10146,    .04373,    .00626,    .00089,
     +     .00029,    .00376,    .00612,
     +     .28784,    .09700,    .03976,    .00595,    .00090,
     +     .00033,    .00357,    .00577,
     +     .27721,    .09302,    .03646,    .00569,    .00089,
     +     .00036,    .00341,    .00545 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
     +     .26703,    .08926,    .03350,    .00543,    .00088,
     +     .00038,    .00327,    .00515,
     +     .25742,    .08571,    .03088,    .00519,    .00087,
     +     .00040,    .00312,    .00489,
     +     .24870,    .08251,    .02865,    .00498,    .00087,
     +     .00041,    .00299,    .00466,
     +     .24079,    .07963,    .02673,    .00477,    .00085,
     +     .00042,    .00286,    .00444,
     +     .23313,    .07685,    .02496,    .00459,    .00083,
     +     .00043,    .00275,    .00423,
     +     .22588,    .07421,    .02338,    .00440,    .00082,
     +     .00043,    .00264,    .00405,
     +     .21918,    .07179,    .02200,    .00423,    .00081,
     +     .00043,    .00255,    .00388,
     +     .21306,    .06960,    .02077,    .00407,    .00079,
     +     .00044,    .00245,    .00372 /
        DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
     +     .20704,    .06747,    .01964,    .00394,    .00078,
     +     .00044,    .00238,    .00358,
     +     .20128,    .06546,    .01859,    .00381,    .00076,
     +     .00043,    .00229,    .00343,
     +     .19596,    .06358,    .01767,    .00369,    .00075,
     +     .00044,    .00221,    .00330,
     +     .19107,    .06184,    .01685,    .00356,    .00073,
     +     .00043,    .00214,    .00317,
     +     .18627,    .06015,    .01608,    .00344,    .00073,
     +     .00043,    .00208,    .00305 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
     +     .64325,    .24663,    .29389,    .01212,    .00000,
     +     .00000,    .00493,    .01544,
     +     .61941,    .23453,    .26096,    .01192,    .00000,
     +     .00000,    .00513,    .01450,
     +     .58558,    .21799,    .22654,    .01141,   -.00313,
     +     .00000,    .00528,    .01325,
     +     .56224,    .20717,    .20025,    .01109,   -.00243,
     +     .00000,    .00525,    .01246,
     +     .53867,    .19636,    .17636,    .01062,   -.00182,
     +     .00000,    .00525,    .01173,
     +     .51906,    .18767,    .15834,    .01025,   -.00140,
     +     .00000,    .00518,    .01113,
     +     .50089,    .17979,    .14314,    .00991,   -.00107,
     +     .00000,    .00508,    .01054,
     +     .48232,    .17191,    .12880,    .00954,   -.00076,
     +     .00000,    .00498,    .00996 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
     +     .46682,    .16539,    .11772,    .00921,   -.00054,
     +     .00000,    .00486,    .00950,
     +     .45239,    .15932,    .10806,    .00889,   -.00035,
     +     .00000,    .00477,    .00908,
     +     .44127,    .15471,    .10110,    .00866,   -.00022,
     +     .00000,    .00467,    .00873,
     +     .41862,    .14551,    .08780,    .00819,    .00000,
     +     .00000,    .00446,    .00807,
     +     .40030,    .13823,    .07916,    .00778,    .00015,
     +    -.00066,    .00426,    .00756,
     +     .38103,    .13061,    .06906,    .00731,    .00029,
     +    -.00045,    .00407,    .00704,
     +     .36203,    .12319,    .06011,    .00686,    .00039,
     +    -.00028,    .00387,    .00654,
     +     .34566,    .11690,    .05315,    .00652,    .00046,
     +    -.00017,    .00370,    .00612 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
     +     .33002,    .11097,    .04710,    .00616,    .00052,
     +    -.00006,    .00351,    .00572,
     +     .31765,    .10632,    .04266,    .00589,    .00055,
     +     .00000,    .00334,    .00542,
     +     .30334,    .10097,    .03797,    .00554,    .00058,
     +     .00007,    .00317,    .00508,
     +     .29130,    .09650,    .03433,    .00527,    .00060,
     +     .00012,    .00303,    .00479,
     +     .28075,    .09262,    .03135,    .00504,    .00061,
     +     .00016,    .00290,    .00453,
     +     .26797,    .08794,    .02801,    .00472,    .00062,
     +     .00020,    .00274,    .00426,
     +     .25654,    .08379,    .02529,    .00448,    .00062,
     +     .00022,    .00259,    .00400,
     +     .24634,    .08011,    .02303,    .00425,    .00062,
     +     .00024,    .00248,    .00379 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
     +     .23661,    .07665,    .02100,    .00405,    .00061,
     +     .00026,    .00234,    .00360,
     +     .22744,    .07340,    .01925,    .00385,    .00060,
     +     .00027,    .00225,    .00339,
     +     .21919,    .07050,    .01777,    .00367,    .00059,
     +     .00028,    .00216,    .00320,
     +     .21172,    .06786,    .01652,    .00350,    .00058,
     +     .00029,    .00206,    .00304,
     +     .20448,    .06533,    .01538,    .00336,    .00057,
     +     .00029,    .00196,    .00289,
     +     .19763,    .06296,    .01434,    .00323,    .00057,
     +     .00030,    .00187,    .00274,
     +     .19133,    .06080,    .01345,    .00310,    .00056,
     +     .00030,    .00179,    .00263,
     +     .18561,    .05883,    .01267,    .00297,    .00054,
     +     .00030,    .00173,    .00252 /
        DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
     +     .18002,    .05690,    .01196,    .00285,    .00054,
     +     .00030,    .00166,    .00242,
     +     .17468,    .05506,    .01129,    .00275,    .00052,
     +     .00029,    .00161,    .00233,
     +     .16977,    .05338,    .01070,    .00265,    .00051,
     +     .00029,    .00156,    .00224,
     +     .16522,    .05183,    .01020,    .00256,    .00050,
     +     .00029,    .00150,    .00216,
     +     .16079,    .05033,    .00971,    .00247,    .00049,
     +     .00029,    .00145,    .00209 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
     +     .62468,    .23163,    .21814,    .01042,    .00000,
     +     .00000,    .00352,    .01107,
     +     .59770,    .21893,    .19209,    .01007,    .00000,
     +     .00000,    .00378,    .01034,
     +     .56008,    .20190,    .16503,    .00959,   -.00259,
     +     .00000,    .00389,    .00949,
     +     .53482,    .19081,    .14424,    .00919,   -.00202,
     +     .00000,    .00395,    .00892,
     +     .50961,    .17992,    .12550,    .00875,   -.00152,
     +     .00000,    .00398,    .00834,
     +     .48881,    .17117,    .11161,    .00834,   -.00117,
     +     .00000,    .00391,    .00790,
     +     .46977,    .16330,    .09989,    .00798,   -.00090,
     +     .00000,    .00384,    .00750,
     +     .45044,    .15545,    .08891,    .00767,   -.00066,
     +     .00000,    .00372,    .00711 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
     +     .43437,    .14904,    .08057,    .00740,   -.00048,
     +     .00000,    .00363,    .00675,
     +     .41955,    .14319,    .07330,    .00708,   -.00033,
     +     .00000,    .00356,    .00638,
     +     .40824,    .13872,    .06804,    .00688,   -.00022,
     +     .00000,    .00348,    .00615,
     +     .38527,    .12980,    .05826,    .00644,   -.00005,
     +     .00000,    .00329,    .00568,
     +     .36692,    .12277,    .05195,    .00605,    .00007,
     +    -.00052,    .00314,    .00532,
     +     .34765,    .11549,    .04456,    .00567,    .00018,
     +    -.00035,    .00299,    .00495,
     +     .32877,    .10848,    .03815,    .00532,    .00026,
     +    -.00023,    .00282,    .00459,
     +     .31267,    .10256,    .03322,    .00504,    .00031,
     +    -.00013,    .00267,    .00425 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
     +     .29735,    .09696,    .02903,    .00474,    .00035,
     +    -.00006,    .00253,    .00397,
     +     .28538,    .09258,    .02596,    .00444,    .00038,
     +    -.00001,    .00242,    .00375,
     +     .27146,    .08762,    .02275,    .00420,    .00040,
     +     .00004,    .00229,    .00351,
     +     .25982,    .08350,    .02032,    .00399,    .00041,
     +     .00007,    .00217,    .00329,
     +     .24969,    .07993,    .01834,    .00382,    .00042,
     +     .00010,    .00207,    .00310,
     +     .23743,    .07563,    .01617,    .00360,    .00043,
     +     .00013,    .00196,    .00289,
     +     .22655,    .07184,    .01442,    .00338,    .00042,
     +     .00015,    .00185,    .00271,
     +     .21690,    .06848,    .01302,    .00319,    .00043,
     +     .00017,    .00175,    .00255 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
     +     .20777,    .06531,    .01178,    .00299,    .00042,
     +     .00018,    .00166,    .00241,
     +     .19916,    .06238,    .01072,    .00283,    .00041,
     +     .00018,    .00157,    .00227,
     +     .19142,    .05974,    .00981,    .00270,    .00041,
     +     .00019,    .00150,    .00214,
     +     .18445,    .05738,    .00904,    .00260,    .00040,
     +     .00020,    .00143,    .00205,
     +     .17768,    .05513,    .00836,    .00250,    .00039,
     +     .00019,    .00136,    .00194,
     +     .17130,    .05301,    .00775,    .00239,    .00039,
     +     .00020,    .00131,    .00185,
     +     .16551,    .05108,    .00726,    .00228,    .00037,
     +     .00020,    .00125,    .00176,
     +     .16025,    .04932,    .00680,    .00219,    .00037,
     +     .00020,    .00121,    .00166 /
        DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
     +     .15513,    .04761,    .00638,    .00210,    .00036,
     +     .00020,    .00117,    .00160,
     +     .15025,    .04599,    .00603,    .00200,    .00035,
     +     .00019,    .00112,    .00152,
     +     .14573,    .04450,    .00570,    .00192,    .00035,
     +     .00020,    .00108,    .00146,
     +     .14156,    .04314,    .00542,    .00187,    .00034,
     +     .00020,    .00105,    .00140,
     +     .13750,    .04182,    .00516,    .00181,    .00033,
     +     .00019,    .00100,    .00135 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
     +     .60121,    .21567,    .15493,    .00867,    .00000,
     +     .00000,    .00252,    .00757,
     +     .57160,    .20256,    .13463,    .00837,    .00000,
     +     .00000,    .00267,    .00716,
     +     .53115,    .18528,    .11398,    .00786,   -.00214,
     +     .00000,    .00281,    .00658,
     +     .50428,    .17420,    .09802,    .00750,   -.00166,
     +     .00000,    .00283,    .00619,
     +     .47779,    .16346,    .08378,    .00704,   -.00125,
     +     .00000,    .00282,    .00583,
     +     .45619,    .15488,    .07329,    .00683,   -.00098,
     +     .00000,    .00278,    .00541,
     +     .43648,    .14723,    .06452,    .00658,   -.00075,
     +     .00000,    .00273,    .00511,
     +     .41680,    .13956,    .05653,    .00622,   -.00056,
     +     .00000,    .00267,    .00483 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
     +     .40066,    .13329,    .05044,    .00591,   -.00041,
     +     .00000,    .00261,    .00461,
     +     .38566,    .12760,    .04524,    .00566,   -.00029,
     +     .00000,    .00253,    .00440,
     +     .37423,    .12335,    .04153,    .00547,   -.00021,
     +     .00000,    .00247,    .00421,
     +     .35129,    .11487,    .03464,    .00512,   -.00007,
     +     .00000,    .00234,    .00386,
     +     .33313,    .10821,    .03028,    .00480,    .00002,
     +    -.00040,    .00223,    .00364,
     +     .31419,    .10136,    .02527,    .00444,    .00010,
     +    -.00027,    .00211,    .00338,
     +     .29579,    .09478,    .02098,    .00416,    .00016,
     +    -.00018,    .00197,    .00308,
     +     .28023,    .08925,    .01774,    .00388,    .00020,
     +    -.00011,    .00187,    .00288 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
     +     .26552,    .08405,    .01499,    .00364,    .00024,
     +    -.00005,    .00178,    .00269,
     +     .25389,    .08004,    .01310,    .00346,    .00025,
     +    -.00002,    .00168,    .00252,
     +     .24071,    .07545,    .01116,    .00320,    .00027,
     +     .00002,    .00157,    .00235,
     +     .22970,    .07166,    .00969,    .00303,    .00028,
     +     .00004,    .00149,    .00220,
     +     .22011,    .06838,    .00854,    .00287,    .00029,
     +     .00007,    .00143,    .00207,
     +     .20858,    .06449,    .00733,    .00268,    .00028,
     +     .00008,    .00133,    .00193,
     +     .19838,    .06106,    .00635,    .00250,    .00029,
     +     .00010,    .00125,    .00182,
     +     .18937,    .05806,    .00558,    .00234,    .00029,
     +     .00011,    .00119,    .00171 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
     +     .18082,    .05525,    .00494,    .00222,    .00029,
     +     .00012,    .00113,    .00157,
     +     .17282,    .05261,    .00440,    .00213,    .00028,
     +     .00012,    .00107,    .00147,
     +     .16567,    .05026,    .00398,    .00201,    .00027,
     +     .00013,    .00102,    .00139,
     +     .15928,    .04814,    .00362,    .00189,    .00027,
     +     .00014,    .00097,    .00132,
     +     .15312,    .04612,    .00329,    .00180,    .00026,
     +     .00013,    .00093,    .00127,
     +     .14730,    .04424,    .00303,    .00170,    .00025,
     +     .00013,    .00088,    .00120,
     +     .14197,    .04253,    .00279,    .00165,    .00026,
     +     .00014,    .00085,    .00114,
     +     .13713,    .04098,    .00261,    .00159,    .00025,
     +     .00013,    .00080,    .00110 /
        DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
     +     .13246,    .03948,    .00245,    .00153,    .00024,
     +     .00013,    .00077,    .00104,
     +     .12804,    .03807,    .00230,    .00146,    .00024,
     +     .00014,    .00074,    .00099,
     +     .12397,    .03677,    .00217,    .00140,    .00023,
     +     .00014,    .00070,    .00094,
     +     .12023,    .03558,    .00206,    .00134,    .00023,
     +     .00013,    .00068,    .00091,
     +     .11659,    .03444,    .00196,    .00130,    .00022,
     +     .00013,    .00066,    .00087 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
     +     .57331,    .19859,    .10203,    .00681,    .00000,
     +     .00000,    .00177,    .00510,
     +     .54160,    .18547,    .08656,    .00656,    .00000,
     +     .00000,    .00195,    .00485,
     +     .49881,    .16825,    .07160,    .00613,   -.00175,
     +     .00000,    .00205,    .00452,
     +     .47094,    .15736,    .05969,    .00589,   -.00136,
     +     .00000,    .00210,    .00423,
     +     .44367,    .14690,    .04935,    .00559,   -.00102,
     +     .00000,    .00208,    .00391,
     +     .42175,    .13848,    .04188,    .00527,   -.00080,
     +     .00000,    .00206,    .00375,
     +     .40195,    .13107,    .03581,    .00498,   -.00062,
     +     .00000,    .00202,    .00354,
     +     .38213,    .12378,    .03030,    .00471,   -.00046,
     +     .00000,    .00196,    .00333 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
     +     .36591,    .11785,    .02622,    .00450,   -.00035,
     +     .00000,    .00194,    .00314,
     +     .35103,    .11248,    .02279,    .00431,   -.00025,
     +     .00000,    .00185,    .00300,
     +     .33977,    .10843,    .02039,    .00413,   -.00020,
     +     .00000,    .00181,    .00289,
     +     .31725,    .10042,    .01608,    .00379,   -.00009,
     +     .00000,    .00171,    .00268,
     +     .29954,    .09419,    .01346,    .00357,   -.00001,
     +    -.00030,    .00162,    .00249,
     +     .28123,    .08783,    .01034,    .00330,    .00005,
     +    -.00021,    .00153,    .00231,
     +     .26358,    .08176,    .00778,    .00303,    .00009,
     +    -.00014,    .00144,    .00212,
     +     .24870,    .07670,    .00597,    .00283,    .00012,
     +    -.00009,    .00136,    .00195 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
     +     .23467,    .07197,    .00451,    .00263,    .00015,
     +    -.00005,    .00126,    .00182,
     +     .22375,    .06828,    .00353,    .00247,    .00016,
     +    -.00002,    .00121,    .00169,
     +     .21122,    .06417,    .00261,    .00232,    .00017,
     +     .00000,    .00112,    .00156,
     +     .20085,    .06076,    .00193,    .00217,    .00019,
     +     .00003,    .00106,    .00147,
     +     .19190,    .05782,    .00145,    .00205,    .00019,
     +     .00004,    .00100,    .00138,
     +     .18117,    .05432,    .00094,    .00193,    .00019,
     +     .00005,    .00094,    .00127,
     +     .17174,    .05126,    .00060,    .00181,    .00019,
     +     .00006,    .00089,    .00118,
     +     .16343,    .04859,    .00034,    .00170,    .00019,
     +     .00007,    .00084,    .00111 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
     +     .15560,    .04609,    .00014,    .00159,    .00018,
     +     .00007,    .00080,    .00103,
     +     .14835,    .04375,    .00002,    .00148,    .00018,
     +     .00008,    .00074,    .00098,
     +     .14185,    .04168,   -.00009,    .00139,    .00018,
     +     .00008,    .00070,    .00093,
     +     .13599,    .03984,   -.00016,    .00133,    .00018,
     +     .00009,    .00068,    .00088,
     +     .13038,    .03810,   -.00020,    .00125,    .00017,
     +     .00009,    .00064,    .00083,
     +     .12514,    .03646,   -.00023,    .00120,    .00016,
     +     .00008,    .00061,    .00078,
     +     .12036,    .03498,   -.00024,    .00114,    .00017,
     +     .00009,    .00059,    .00073,
     +     .11604,    .03363,   -.00023,    .00110,    .00016,
     +     .00009,    .00056,    .00069 /
        DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
     +     .11185,    .03233,   -.00024,    .00105,    .00016,
     +     .00009,    .00053,    .00067,
     +     .10790,    .03111,   -.00022,    .00099,    .00015,
     +     .00008,    .00051,    .00065,
     +     .10426,    .02999,   -.00022,    .00095,    .00015,
     +     .00008,    .00049,    .00063,
     +     .10091,    .02897,   -.00019,    .00092,    .00015,
     +     .00009,    .00046,    .00060,
     +     .09767,    .02798,   -.00018,    .00090,    .00015,
     +     .00009,    .00044,    .00057 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
     +     .54154,    .18102,    .05720,    .00519,    .00000,
     +     .00000,    .00123,    .00338,
     +     .50817,    .16801,    .04641,    .00492,    .00000,
     +     .00000,    .00137,    .00328,
     +     .46409,    .15112,    .03651,    .00454,   -.00141,
     +     .00000,    .00153,    .00301,
     +     .43570,    .14053,    .02835,    .00426,   -.00108,
     +     .00000,    .00158,    .00288,
     +     .40809,    .13043,    .02142,    .00403,   -.00082,
     +     .00000,    .00161,    .00273,
     +     .38603,    .12248,    .01665,    .00379,   -.00064,
     +     .00000,    .00154,    .00266,
     +     .36632,    .11546,    .01293,    .00355,   -.00050,
     +     .00000,    .00153,    .00249,
     +     .34677,    .10852,    .00964,    .00334,   -.00038,
     +     .00000,    .00150,    .00234 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
     +     .33086,    .10294,    .00728,    .00316,   -.00028,
     +     .00000,    .00143,    .00224,
     +     .31636,    .09790,    .00545,    .00297,   -.00022,
     +     .00000,    .00139,    .00214,
     +     .30538,    .09414,    .00419,    .00285,   -.00017,
     +     .00000,    .00135,    .00204,
     +     .28359,    .08674,    .00200,    .00264,   -.00008,
     +     .00000,    .00128,    .00184,
     +     .26658,    .08104,    .00082,    .00246,   -.00003,
     +    -.00022,    .00122,    .00170,
     +     .24910,    .07519,   -.00066,    .00226,    .00002,
     +    -.00015,    .00116,    .00157,
     +     .23234,    .06966,   -.00177,    .00206,    .00005,
     +    -.00011,    .00107,    .00147,
     +     .21827,    .06509,   -.00246,    .00192,    .00007,
     +    -.00007,    .00100,    .00136 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
     +     .20510,    .06083,   -.00290,    .00180,    .00009,
     +    -.00004,    .00094,    .00122,
     +     .19492,    .05755,   -.00312,    .00166,    .00010,
     +    -.00002,    .00086,    .00117,
     +     .18336,    .05386,   -.00336,    .00153,    .00011,
     +     .00000,    .00084,    .00109,
     +     .17380,    .05083,   -.00343,    .00145,    .00011,
     +     .00001,    .00079,    .00101,
     +     .16555,    .04824,   -.00343,    .00138,    .00012,
     +     .00002,    .00075,    .00094,
     +     .15580,    .04516,   -.00337,    .00124,    .00012,
     +     .00003,    .00069,    .00088,
     +     .14717,    .04248,   -.00326,    .00115,    .00012,
     +     .00004,    .00064,    .00083,
     +     .13958,    .04013,   -.00315,    .00110,    .00012,
     +     .00004,    .00060,    .00076 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
     +     .13247,    .03795,   -.00299,    .00103,    .00012,
     +     .00005,    .00057,    .00069,
     +     .12592,    .03595,   -.00285,    .00095,    .00012,
     +     .00005,    .00053,    .00068,
     +     .12008,    .03417,   -.00270,    .00089,    .00012,
     +     .00006,    .00050,    .00064,
     +     .11482,    .03257,   -.00256,    .00086,    .00012,
     +     .00006,    .00047,    .00059,
     +     .10981,    .03105,   -.00242,    .00083,    .00011,
     +     .00006,    .00045,    .00056,
     +     .10515,    .02964,   -.00226,    .00077,    .00011,
     +     .00005,    .00043,    .00053,
     +     .10092,    .02837,   -.00213,    .00072,    .00010,
     +     .00005,    .00042,    .00051,
     +     .09710,    .02724,   -.00200,    .00068,    .00011,
     +     .00006,    .00039,    .00048 /
        DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
     +     .09338,    .02614,   -.00187,    .00065,    .00010,
     +     .00006,    .00037,    .00046,
     +     .08988,    .02509,   -.00177,    .00064,    .00010,
     +     .00006,    .00036,    .00042,
     +     .08667,    .02414,   -.00165,    .00062,    .00010,
     +     .00006,    .00033,    .00040,
     +     .08377,    .02329,   -.00155,    .00058,    .00009,
     +     .00006,    .00032,    .00039,
     +     .08094,    .02245,   -.00146,    .00055,    .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=1,8)/
     +     .50674,    .16426,    .01871,    .00442,    .00000,
     +     .00000,    .00049,    .00184,
     +     .47247,    .15154,    .01201,    .00422,    .00000,
     +     .00000,    .00067,    .00181,
     +     .42775,    .13523,    .00682,    .00383,   -.00111,
     +     .00000,    .00083,    .00176,
     +     .39931,    .12500,    .00217,    .00354,   -.00086,
     +     .00000,    .00090,    .00176,
     +     .37196,    .11543,   -.00152,    .00332,   -.00065,
     +     .00000,    .00093,    .00160,
     +     .35026,    .10792,   -.00390,    .00311,   -.00050,
     +     .00000,    .00095,    .00151,
     +     .33097,    .10128,   -.00565,    .00291,   -.00039,
     +     .00000,    .00092,    .00150,
     +     .31198,    .09481,   -.00694,    .00269,   -.00029,
     +     .00000,    .00088,    .00142 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
     +     .29653,    .08963,   -.00771,    .00254,   -.00023,
     +     .00000,    .00088,    .00134,
     +     .28246,    .08501,   -.00832,    .00248,   -.00017,
     +     .00000,    .00086,    .00124,
     +     .27199,    .08153,   -.00861,    .00235,   -.00014,
     +     .00000,    .00083,    .00119,
     +     .25129,    .07472,   -.00896,    .00209,   -.00007,
     +     .00000,    .00077,    .00112,
     +     .23517,    .06948,   -.00888,    .00196,   -.00003,
     +    -.00016,    .00073,    .00103,
     +     .21875,    .06420,   -.00904,    .00178,    .00000,
     +    -.00012,    .00070,    .00096,
     +     .20306,    .05921,   -.00896,    .00163,    .00003,
     +    -.00008,    .00065,    .00088,
     +     .19004,    .05511,   -.00874,    .00151,    .00004,
     +    -.00005,    .00061,    .00080 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
     +     .17792,    .05132,   -.00846,    .00137,    .00005,
     +    -.00003,    .00057,    .00076,
     +     .16855,    .04839,   -.00810,    .00128,    .00006,
     +    -.00002,    .00053,    .00070,
     +     .15792,    .04512,   -.00767,    .00119,    .00006,
     +    -.00001,    .00051,    .00064,
     +     .14920,    .04243,   -.00727,    .00110,    .00007,
     +     .00000,    .00047,    .00060,
     +     .14173,    .04014,   -.00692,    .00103,    .00008,
     +     .00001,    .00044,    .00059,
     +     .13283,    .03745,   -.00641,    .00094,    .00008,
     +     .00002,    .00040,    .00055,
     +     .12504,    .03513,   -.00596,    .00089,    .00008,
     +     .00002,    .00038,    .00048,
     +     .11825,    .03309,   -.00555,    .00083,    .00007,
     +     .00002,    .00036,    .00045 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
     +     .11190,    .03121,   -.00517,    .00077,    .00008,
     +     .00003,    .00032,    .00044,
     +     .10605,    .02947,   -.00480,    .00073,    .00007,
     +     .00003,    .00031,    .00040,
     +     .10085,    .02792,   -.00447,    .00069,    .00007,
     +     .00003,    .00029,    .00036,
     +     .09620,    .02657,   -.00420,    .00065,    .00007,
     +     .00003,    .00028,    .00034,
     +     .09179,    .02527,   -.00389,    .00062,    .00007,
     +     .00004,    .00026,    .00032,
     +     .08769,    .02406,   -.00362,    .00058,    .00007,
     +     .00004,    .00024,    .00030,
     +     .08396,    .02298,   -.00338,    .00054,    .00007,
     +     .00004,    .00023,    .00029,
     +     .08061,    .02201,   -.00318,    .00054,    .00006,
     +     .00004,    .00022,    .00028 /
        DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
     +     .07736,    .02108,   -.00298,    .00050,    .00006,
     +     .00004,    .00021,    .00027,
     +     .07432,    .02021,   -.00278,    .00047,    .00006,
     +     .00003,    .00020,    .00025,
     +     .07154,    .01941,   -.00261,    .00044,    .00006,
     +     .00003,    .00020,    .00023,
     +     .06901,    .01867,   -.00245,    .00044,    .00006,
     +     .00003,    .00019,    .00022,
     +     .06657,    .01798,   -.00231,    .00041,    .00005,
     +     .00003,    .00018,    .00021 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
     +     .46900,    .14647,   -.01308,    .00309,    .00000,
     +     .00000,    .00033,    .00108,
     +     .43454,    .13429,   -.01591,    .00287,    .00000,
     +     .00000,    .00050,    .00117,
     +     .38982,    .11890,   -.01684,    .00268,   -.00085,
     +     .00000,    .00059,    .00117,
     +     .36179,    .10937,   -.01836,    .00247,   -.00065,
     +     .00000,    .00065,    .00112,
     +     .33504,    .10046,   -.01931,    .00230,   -.00049,
     +     .00000,    .00070,    .00105,
     +     .31408,    .09348,   -.01956,    .00214,   -.00038,
     +     .00000,    .00069,    .00098,
     +     .29549,    .08735,   -.01947,    .00199,   -.00030,
     +     .00000,    .00067,    .00096,
     +     .27724,    .08143,   -.01911,    .00186,   -.00023,
     +     .00000,    .00064,    .00093 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
     +     .26255,    .07673,   -.01870,    .00176,   -.00018,
     +     .00000,    .00064,    .00086,
     +     .24927,    .07249,   -.01820,    .00166,   -.00014,
     +     .00000,    .00063,    .00084,
     +     .23933,    .06936,   -.01770,    .00161,   -.00012,
     +     .00000,    .00059,    .00079,
     +     .21988,    .06323,   -.01663,    .00147,   -.00006,
     +     .00000,    .00055,    .00071,
     +     .20494,    .05857,   -.01560,    .00132,   -.00003,
     +    -.00011,    .00053,    .00066,
     +     .18964,    .05388,   -.01469,    .00124,   -.00001,
     +    -.00008,    .00047,    .00061,
     +     .17524,    .04947,   -.01371,    .00111,    .00001,
     +    -.00006,    .00045,    .00055,
     +     .16326,    .04582,   -.01278,    .00103,    .00001,
     +    -.00004,    .00042,    .00051 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
     +     .15217,    .04250,   -.01185,    .00095,    .00003,
     +    -.00002,    .00038,    .00046,
     +     .14367,    .03996,   -.01113,    .00091,    .00003,
     +    -.00002,    .00036,    .00044,
     +     .13411,    .03713,   -.01023,    .00080,    .00004,
     +    -.00001,    .00033,    .00039,
     +     .12628,    .03481,   -.00949,    .00073,    .00004,
     +     .00000,    .00031,    .00037,
     +     .11957,    .03284,   -.00887,    .00070,    .00004,
     +     .00000,    .00028,    .00035,
     +     .11162,    .03053,   -.00812,    .00065,    .00005,
     +     .00001,    .00026,    .00034,
     +     .10473,    .02851,   -.00744,    .00061,    .00005,
     +     .00001,    .00025,    .00030,
     +     .09875,    .02677,   -.00686,    .00057,    .00004,
     +     .00001,    .00024,    .00028 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
     +     .09316,    .02517,   -.00630,    .00052,    .00004,
     +     .00001,    .00021,    .00026,
     +     .08802,    .02370,   -.00580,    .00046,    .00005,
     +     .00002,    .00020,    .00024,
     +     .08348,    .02241,   -.00535,    .00044,    .00005,
     +     .00002,    .00018,    .00021,
     +     .07943,    .02126,   -.00495,    .00042,    .00004,
     +     .00002,    .00016,    .00019,
     +     .07559,    .02017,   -.00461,    .00039,    .00004,
     +     .00002,    .00015,    .00019,
     +     .07202,    .01917,   -.00428,    .00037,    .00004,
     +     .00002,    .00015,    .00019,
     +     .06881,    .01825,   -.00399,    .00034,    .00004,
     +     .00002,    .00014,    .00019,
     +     .06592,    .01745,   -.00372,    .00032,    .00004,
     +     .00002,    .00013,    .00018 /
        DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
     +     .06314,    .01667,   -.00346,    .00031,    .00003,
     +     .00002,    .00013,    .00016,
     +     .06054,    .01594,   -.00324,    .00031,    .00003,
     +     .00002,    .00012,    .00014,
     +     .05815,    .01528,   -.00304,    .00030,    .00004,
     +     .00003,    .00012,    .00013,
     +     .05598,    .01469,   -.00285,    .00027,    .00004,
     +     .00003,    .00011,    .00013,
     +     .05389,    .01411,   -.00266,    .00026,    .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)/
     +     .42913,    .12913,   -.03879,    .00199,    .00000,
     +     .00000,    .00029,    .00067,
     +     .39489,    .11771,   -.03800,    .00191,    .00000,
     +     .00000,    .00039,    .00071,
     +     .35124,    .10327,   -.03490,    .00172,   -.00064,
     +     .00000,    .00044,    .00076,
     +     .32406,    .09448,   -.03390,    .00162,   -.00048,
     +     .00000,    .00048,    .00077,
     +     .29835,    .08630,   -.03233,    .00150,   -.00036,
     +     .00000,    .00047,    .00071,
     +     .27821,    .07997,   -.03082,    .00142,   -.00028,
     +     .00000,    .00048,    .00066,
     +     .26056,    .07441,   -.02934,    .00136,   -.00022,
     +     .00000,    .00047,    .00065,
     +     .24334,    .06908,   -.02763,    .00126,   -.00017,
     +     .00000,    .00046,    .00060 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
     +     .22957,    .06485,   -.02615,    .00118,   -.00013,
     +     .00000,    .00043,    .00058,
     +     .21729,    .06107,   -.02472,    .00107,   -.00011,
     +     .00000,    .00040,    .00054,
     +     .20806,    .05826,   -.02366,    .00103,   -.00009,
     +     .00000,    .00040,    .00052,
     +     .19002,    .05281,   -.02144,    .00093,   -.00006,
     +     .00000,    .00039,    .00048,
     +     .17629,    .04869,   -.01966,    .00084,   -.00004,
     +    -.00009,    .00036,    .00045,
     +     .16238,    .04458,   -.01803,    .00078,   -.00002,
     +    -.00006,    .00035,    .00040,
     +     .14926,    .04074,   -.01634,    .00069,    .00000,
     +    -.00004,    .00030,    .00036,
     +     .13846,    .03759,   -.01497,    .00063,    .00001,
     +    -.00002,    .00028,    .00034 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
     +     .12853,    .03470,   -.01365,    .00058,    .00001,
     +    -.00002,    .00026,    .00032,
     +     .12096,    .03250,   -.01263,    .00051,    .00002,
     +    -.00001,    .00025,    .00030,
     +     .11244,    .03006,   -.01150,    .00048,    .00002,
     +    -.00001,    .00023,    .00028,
     +     .10548,    .02810,   -.01054,    .00046,    .00003,
     +     .00000,    .00020,    .00026,
     +     .09957,    .02644,   -.00974,    .00043,    .00002,
     +     .00000,    .00019,    .00023,
     +     .09263,    .02448,   -.00881,    .00039,    .00002,
     +     .00000,    .00018,    .00020,
     +     .08659,    .02279,   -.00800,    .00036,    .00003,
     +     .00001,    .00016,    .00019,
     +     .08135,    .02134,   -.00733,    .00034,    .00003,
     +     .00001,    .00015,    .00018 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
     +     .07648,    .02000,   -.00669,    .00032,    .00003,
     +     .00001,    .00014,    .00016,
     +     .07206,    .01876,   -.00612,    .00029,    .00002,
     +     .00001,    .00013,    .00017,
     +     .06813,    .01768,   -.00562,    .00027,    .00002,
     +     .00001,    .00013,    .00015,
     +     .06467,    .01673,   -.00518,    .00025,    .00002,
     +     .00001,    .00011,    .00013,
     +     .06138,    .01585,   -.00479,    .00024,    .00002,
     +     .00001,    .00010,    .00011,
     +     .05835,    .01501,   -.00442,    .00021,    .00002,
     +     .00001,    .00010,    .00012,
     +     .05560,    .01427,   -.00410,    .00020,    .00003,
     +     .00002,    .00009,    .00012,
     +     .05315,    .01361,   -.00382,    .00019,    .00003,
     +     .00002,    .00009,    .00011 /
        DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
     +     .05080,    .01298,   -.00356,    .00018,    .00003,
     +     .00002,    .00009,    .00011,
     +     .04859,    .01239,   -.00331,    .00016,    .00003,
     +     .00002,    .00008,    .00009,
     +     .04658,    .01184,   -.00311,    .00017,    .00002,
     +     .00002,    .00008,    .00009,
     +     .04477,    .01136,   -.00291,    .00015,    .00002,
     +     .00002,    .00008,    .00008,
     +     .04302,    .01089,   -.00272,    .00014,    .00002,
     +     .00002,    .00007,    .00008 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
     +     .38859,    .11315,   -.05971,    .00170,    .00000,
     +     .00000,   -.00001,    .00023,
     +     .35540,    .10243,   -.05561,    .00155,    .00000,
     +     .00000,    .00009,    .00028,
     +     .31326,    .08919,   -.04899,    .00134,   -.00046,
     +     .00000,    .00019,    .00036,
     +     .28725,    .08117,   -.04554,    .00132,   -.00035,
     +     .00000,    .00021,    .00030,
     +     .26290,    .07363,   -.04194,    .00119,   -.00026,
     +     .00000,    .00022,    .00035,
     +     .24405,    .06790,   -.03906,    .00112,   -.00021,
     +     .00000,    .00023,    .00037,
     +     .22759,    .06292,   -.03627,    .00100,   -.00017,
     +     .00000,    .00026,    .00033,
     +     .21161,    .05814,   -.03353,    .00094,   -.00012,
     +     .00000,    .00026,    .00031 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
     +     .19887,    .05438,   -.03123,    .00089,   -.00010,
     +     .00000,    .00025,    .00029,
     +     .18748,    .05102,   -.02914,    .00081,   -.00008,
     +     .00000,    .00025,    .00029,
     +     .17901,    .04856,   -.02757,    .00077,   -.00006,
     +     .00000,    .00025,    .00026,
     +     .16257,    .04378,   -.02449,    .00069,   -.00004,
     +     .00000,    .00021,    .00026,
     +     .15010,    .04021,   -.02214,    .00061,   -.00003,
     +    -.00006,    .00019,    .00024,
     +     .13757,    .03663,   -.01994,    .00056,   -.00002,
     +    -.00004,    .00017,    .00022,
     +     .12587,    .03328,   -.01783,    .00051,   -.00001,
     +    -.00003,    .00016,    .00019,
     +     .11627,    .03058,   -.01610,    .00046,    .00000,
     +    -.00002,    .00016,    .00019 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
     +     .10748,    .02814,   -.01453,    .00041,    .00001,
     +    -.00001,    .00015,    .00016,
     +     .10078,    .02627,   -.01332,    .00038,    .00001,
     +    -.00001,    .00012,    .00016,
     +     .09326,    .02420,   -.01201,    .00038,    .00001,
     +    -.00001,    .00011,    .00014,
     +     .08719,    .02254,   -.01095,    .00035,    .00002,
     +     .00000,    .00012,    .00013,
     +     .08206,    .02113,   -.01003,    .00030,    .00002,
     +     .00000,    .00010,    .00011,
     +     .07600,    .01949,   -.00898,    .00029,    .00001,
     +     .00000,    .00009,    .00010,
     +     .07082,    .01808,   -.00813,    .00026,    .00001,
     +     .00000,    .00009,    .00011,
     +     .06633,    .01687,   -.00738,    .00022,    .00001,
     +     .00000,    .00008,    .00009 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
     +     .06218,    .01575,   -.00670,    .00020,    .00001,
     +     .00000,    .00007,    .00009,
     +     .05836,    .01475,   -.00611,    .00019,    .00001,
     +     .00000,    .00007,    .00008,
     +     .05502,    .01386,   -.00560,    .00018,    .00002,
     +     .00001,    .00007,    .00008,
     +     .05207,    .01307,   -.00516,    .00018,    .00002,
     +     .00001,    .00007,    .00007,
     +     .04929,    .01234,   -.00474,    .00017,    .00002,
     +     .00001,    .00006,    .00007,
     +     .04673,    .01167,   -.00436,    .00015,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04443,    .01106,   -.00404,    .00014,    .00002,
     +     .00001,    .00006,    .00006,
     +     .04240,    .01053,   -.00373,    .00013,    .00002,
     +     .00001,    .00004,    .00004 /
        DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
     +     .04042,    .01002,   -.00347,    .00013,    .00002,
     +     .00001,    .00004,    .00004,
     +     .03857,    .00954,   -.00322,    .00013,    .00001,
     +     .00001,    .00004,    .00004,
     +     .03689,    .00911,   -.00300,    .00012,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03537,    .00871,   -.00281,    .00012,    .00001,
     +     .00001,    .00003,    .00004,
     +     .03393,    .00834,   -.00263,    .00010,    .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)/
     +     .34712,    .09694,   -.07404,    .00085,    .00000,
     +     .00000,    .00009,    .00019,
     +     .31525,    .08725,   -.06732,    .00080,    .00000,
     +     .00000,    .00014,    .00028,
     +     .27529,    .07535,   -.05789,    .00081,   -.00032,
     +     .00000,    .00019,    .00025,
     +     .25106,    .06814,   -.05262,    .00073,   -.00024,
     +     .00000,    .00020,    .00025,
     +     .22840,    .06156,   -.04754,    .00067,   -.00018,
     +     .00000,    .00019,    .00027,
     +     .21094,    .05646,   -.04337,    .00058,   -.00014,
     +     .00000,    .00020,    .00024,
     +     .19571,    .05212,   -.03977,    .00058,   -.00012,
     +     .00000,    .00019,    .00022,
     +     .18108,    .04796,   -.03623,    .00055,   -.00009,
     +     .00000,    .00017,    .00021 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
     +     .16954,    .04468,   -.03344,    .00051,   -.00006,
     +     .00000,    .00016,    .00020,
     +     .15926,    .04177,   -.03094,    .00047,   -.00005,
     +     .00000,    .00016,    .00021,
     +     .15164,    .03963,   -.02905,    .00043,   -.00004,
     +     .00000,    .00015,    .00020,
     +     .13686,    .03554,   -.02545,    .00038,   -.00003,
     +     .00000,    .00015,    .00019,
     +     .12575,    .03247,   -.02281,    .00037,   -.00002,
     +    -.00004,    .00014,    .00016,
     +     .11465,    .02942,   -.02027,    .00031,   -.00001,
     +    -.00003,    .00013,    .00015,
     +     .10432,    .02664,   -.01792,    .00028,    .00000,
     +    -.00001,    .00012,    .00014,
     +     .09593,    .02436,   -.01603,    .00026,    .00000,
     +    -.00001,    .00011,    .00012 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
     +     .08825,    .02230,   -.01429,    .00023,    .00000,
     +    -.00001,    .00009,    .00011,
     +     .08245,    .02075,   -.01301,    .00021,    .00001,
     +     .00000,    .00008,    .00011,
     +     .07599,    .01903,   -.01163,    .00019,    .00001,
     +     .00000,    .00007,    .00010,
     +     .07077,    .01766,   -.01051,    .00017,    .00000,
     +     .00000,    .00007,    .00008,
     +     .06637,    .01651,   -.00960,    .00016,    .00000,
     +     .00000,    .00007,    .00009,
     +     .06125,    .01516,   -.00854,    .00015,    .00000,
     +     .00000,    .00006,    .00007,
     +     .05682,    .01401,   -.00767,    .00014,    .00000,
     +     .00000,    .00006,    .00006,
     +     .05303,    .01303,   -.00694,    .00012,    .00001,
     +     .00001,    .00005,    .00006 /
        DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
     +     .04953,    .01213,   -.00628,    .00012,    .00001,
     +     .00001,    .00005,    .00006,
     +     .04637,    .01130,   -.00570,    .00011,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04358,    .01060,   -.00518,    .00009,    .00001,
     +     .00001,    .00005,    .00005,
     +     .04114,    .00998,   -.00474,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03883,    .00939,   -.00436,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03672,    .00886,   -.00401,    .00008,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03482,    .00837,   -.00369,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .03311,    .00795,   -.00342,    .00007,    .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)/
     +     .03150,    .00754,   -.00316,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02998,    .00716,   -.00294,    .00007,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02863,    .00682,   -.00274,    .00006,    .00001,
     +     .00001,    .00003,    .00003,
     +     .02740,    .00651,   -.00255,    .00006,    .00001,
     +     .00001,    .00002,    .00003,
     +     .02622,    .00623,   -.00239,    .00006,    .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)/
     +     .26523,    .06871,   -.08706,    .00039,    .00000,
     +     .00000,   -.00004,    .00002,
     +     .23754,    .06107,   -.07665,    .00042,    .00000,
     +     .00000,    .00002,    .00000,
     +     .20358,    .05173,   -.06352,    .00034,   -.00014,
     +     .00000,    .00003,    .00007,
     +     .18337,    .04624,   -.05598,    .00025,   -.00011,
     +     .00000,    .00003,    .00006,
     +     .16470,    .04122,   -.04915,    .00023,   -.00008,
     +     .00000,    .00005,    .00009,
     +     .15052,    .03746,   -.04399,    .00024,   -.00006,
     +     .00000,    .00008,    .00006,
     +     .13834,    .03424,   -.03953,    .00022,   -.00005,
     +     .00000,    .00006,    .00007,
     +     .12675,    .03122,   -.03533,    .00018,   -.00004,
     +     .00000,    .00007,    .00007 /
        DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
     +     .11765,    .02883,   -.03208,    .00017,   -.00003,
     +     .00000,    .00008,    .00008,
     +     .10964,    .02676,   -.02921,    .00015,   -.00003,
     +     .00000,    .00006,    .00007,
     +     .10377,    .02524,   -.02717,    .00016,   -.00003,
     +     .00000,    .00006,    .00005,
     +     .09252,    .02235,   -.02328,    .00014,   -.00002,
     +     .00000,    .00005,    .00005,
     +     .08415,    .02023,   -.02051,    .00010,   -.00002,
     +    -.00002,    .00005,    .00005,
     +     .07591,    .01813,   -.01789,    .00011,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06832,    .01623,   -.01555,    .00012,   -.00001,
     +    -.00001,    .00003,    .00003,
     +     .06221,    .01470,   -.01367,    .00009,   -.00001,
     +    -.00001,    .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)/
     +     .05668,    .01334,   -.01203,    .00008,   -.00001,
     +    -.00001,    .00004,    .00004,
     +     .05254,    .01232,   -.01084,    .00009,   -.00001,
     +    -.00001,    .00004,    .00002,
     +     .04801,    .01120,   -.00955,    .00006,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04438,    .01031,   -.00856,    .00006,    .00000,
     +     .00000,    .00003,    .00002,
     +     .04132,    .00957,   -.00775,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03780,    .00873,   -.00684,    .00005,    .00000,
     +     .00000,    .00003,    .00003,
     +     .03480,    .00800,   -.00606,    .00004,    .00000,
     +     .00000,    .00003,    .00001,
     +     .03223,    .00738,   -.00542,    .00004,    .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=25,32)/
     +     .02990,    .00682,   -.00488,    .00004,    .00000,
     +     .00000,    .00001,    .00003,
     +     .02777,    .00632,   -.00437,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02594,    .00589,   -.00397,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02433,    .00551,   -.00361,    .00004,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02284,    .00515,   -.00329,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02148,    .00483,   -.00300,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02025,    .00454,   -.00275,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01917,    .00429,   -.00254,    .00003,    .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)/
     +     .01815,    .00406,   -.00235,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01720,    .00384,   -.00217,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01635,    .00363,   -.00200,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01558,    .00345,   -.00187,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .01484,    .00328,   -.00174,    .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)/
     +     .18890,    .04506,   -.08179,    .00014,    .00000,
     +     .00000,    .00001,   -.00001,
     +     .16681,    .03945,   -.07027,    .00007,    .00000,
     +     .00000,    .00001,    .00003,
     +     .14005,    .03282,   -.05661,    .00012,   -.00005,
     +     .00000,    .00003,    .00000,
     +     .12441,    .02896,   -.04895,    .00010,   -.00004,
     +     .00000,    .00004,    .00004,
     +     .11030,    .02549,   -.04201,    .00006,   -.00003,
     +     .00000,    .00002,    .00002,
     +     .09967,    .02291,   -.03696,    .00008,   -.00002,
     +     .00000,    .00000,    .00002,
     +     .09066,    .02076,   -.03273,    .00006,   -.00002,
     +     .00000,    .00000,    .00003,
     +     .08219,    .01871,   -.02882,    .00006,   -.00001,
     +     .00000,    .00001,    .00001 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
     +     .07561,    .01713,   -.02587,    .00008,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .06985,    .01575,   -.02334,    .00008,   -.00001,
     +     .00000,    .00001,    .00003,
     +     .06568,    .01478,   -.02150,    .00006,   -.00001,
     +     .00000,    .00001,    .00003,
     +     .05781,    .01292,   -.01812,    .00004,   -.00001,
     +     .00000,    .00001,    .00001,
     +     .05201,    .01157,   -.01576,    .00004,   -.00001,
     +    -.00001,    .00001,    .00001,
     +     .04636,    .01026,   -.01353,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .04126,    .00907,   -.01158,    .00001,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03717,    .00814,   -.01006,    .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=17,24)/
     +     .03353,    .00730,   -.00875,    .00002,    .00000,
     +     .00000,    .00001,    .00001,
     +     .03080,    .00670,   -.00783,    .00003,    .00000,
     +     .00000,    .00001,    .00001,
     +     .02787,    .00603,   -.00682,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02554,    .00550,   -.00604,    .00003,    .00000,
     +     .00000,    .00000,    .00001,
     +     .02361,    .00507,   -.00541,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02139,    .00457,   -.00471,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01952,    .00415,   -.00415,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01794,    .00381,   -.00369,    .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)/
     +     .01650,    .00349,   -.00328,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01523,    .00321,   -.00293,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01412,    .00297,   -.00263,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01316,    .00276,   -.00239,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01228,    .00256,   -.00216,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01146,    .00240,   -.00196,    .00001,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01075,    .00224,   -.00178,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01012,    .00210,   -.00163,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
     +     .00954,    .00197,   -.00150,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00899,    .00186,   -.00138,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00849,    .00175,   -.00126,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00805,    .00166,   -.00117,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00764,    .00157,   -.00109,    .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)/
     +     .12287,    .02676,   -.06462,    .00009,    .00000,
     +     .00000,   -.00003,    .00000,
     +     .10674,    .02307,   -.05436,    .00006,    .00000,
     +     .00000,   -.00002,   -.00002,
     +     .08770,    .01879,   -.04271,    .00007,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .07675,    .01634,   -.03625,    .00007,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .06706,    .01420,   -.03066,    .00007,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05986,    .01261,   -.02655,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .05382,    .01128,   -.02321,    .00004,   -.00001,
     +     .00000,   -.00001,   -.00001,
     +     .04822,    .01006,   -.02019,    .00004,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
     +     .04393,    .00912,   -.01789,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04022,    .00832,   -.01596,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03753,    .00774,   -.01460,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03252,    .00666,   -.01211,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02891,    .00589,   -.01039,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02543,    .00516,   -.00880,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02232,    .00451,   -.00742,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01989,    .00400,   -.00637,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
     +     .01773,    .00356,   -.00550,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01616,    .00323,   -.00484,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01444,    .00287,   -.00417,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01311,    .00260,   -.00367,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01201,    .00238,   -.00326,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01077,    .00211,   -.00281,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00973,    .00191,   -.00245,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00886,    .00174,   -.00217,    .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)/
     +     .00808,    .00157,   -.00190,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00740,    .00143,   -.00168,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00681,    .00132,   -.00151,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00630,    .00121,   -.00136,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00583,    .00113,   -.00122,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00541,    .00103,   -.00110,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00504,    .00097,   -.00099,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00471,    .00090,   -.00090,    .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)/
     +     .00442,    .00085,   -.00083,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00413,    .00078,   -.00075,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00389,    .00074,   -.00069,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00367,    .00069,   -.00064,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00346,    .00065,   -.00059,    .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)/
     +     .07021,    .01351,   -.04236,   -.00001,    .00000,
     +     .00000,   -.00001,   -.00001,
     +     .05991,    .01148,   -.03512,    .00002,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04804,    .00918,   -.02694,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .04138,    .00785,   -.02248,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03550,    .00673,   -.01869,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .03125,    .00589,   -.01598,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02773,    .00523,   -.01381,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .02452,    .00458,   -.01184,    .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)/
     +     .02207,    .00413,   -.01040,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01998,    .00371,   -.00916,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01849,    .00346,   -.00834,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01575,    .00293,   -.00682,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01380,    .00254,   -.00576,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01195,    .00219,   -.00479,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .01032,    .00189,   -.00399,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00905,    .00164,   -.00336,    .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)/
     +     .00797,    .00144,   -.00286,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00718,    .00130,   -.00252,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00634,    .00114,   -.00213,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00569,    .00102,   -.00186,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00517,    .00092,   -.00163,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00457,    .00081,   -.00139,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00409,    .00073,   -.00120,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00367,    .00065,   -.00104,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
     +     .00332,    .00058,   -.00092,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00300,    .00052,   -.00079,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00274,    .00049,   -.00071,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00251,    .00044,   -.00063,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00231,    .00040,   -.00056,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00211,    .00037,   -.00049,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00196,    .00034,   -.00046,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00182,    .00031,   -.00041,    .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)/
     +     .00169,    .00029,   -.00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00157,    .00027,   -.00033,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00147,    .00026,   -.00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00137,    .00023,   -.00027,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00130,    .00022,   -.00025,    .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)/
     +     .01100,    .00167,   -.00840,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00890,    .00135,   -.00662,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00662,    .00098,   -.00472,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00542,    .00080,   -.00376,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00442,    .00064,   -.00297,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00373,    .00054,   -.00245,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00319,    .00046,   -.00203,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00270,    .00039,   -.00168,    .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)/
     +     .00235,    .00034,   -.00143,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00206,    .00031,   -.00123,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00186,    .00026,   -.00108,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00150,    .00021,   -.00084,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00126,    .00018,   -.00069,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00104,    .00016,   -.00056,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00087,    .00011,   -.00044,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00074,    .00011,   -.00037,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
     +     .00062,    .00009,   -.00030,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00054,    .00007,   -.00025,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00046,    .00007,   -.00021,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00040,    .00005,   -.00017,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00035,    .00005,   -.00015,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00030,    .00005,   -.00012,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00026,    .00003,   -.00010,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00023,    .00003,   -.00009,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
     +     .00019,    .00003,   -.00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00018,    .00003,   -.00007,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00016,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00014,    .00001,   -.00005,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00013,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00011,    .00001,   -.00004,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00010,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
        DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
     +     .00008,    .00001,   -.00003,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00008,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00007,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000,
     +     .00005,    .00001,   -.00002,    .00000,    .00000,
     +     .00000,    .00000,    .00000 /
      data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
     .            1d-4,2d-4,4d-4,6d-4,8d-4,
     .            1d-3,2d-3,4d-3,6d-3,8d-3,
     .            1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
     .         .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
     .         .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
     .         .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
     .         .8d0,.9d0,1d0/
      data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
     .        1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
     .        1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
     .        1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
     .        1.8d6,3.2d6,5.6d6,1d7/
      data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
      data n0/3,4,5,9,9,9,9,9/
      DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
      data init/0/
      save
      xsave=x
      q2save=qsq
      if(init.ne.0) goto 10
C        open(unit=1,file='cor05dis.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