#include "pdf/pilot.h" subroutine sfmrs_98lo5(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 #if defined(CERNLIB_DOUBLE) DOUBLE PRECISION #endif #if defined(CERNLIB_SINGLE) REAL #endif + 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)/ + .01522, .00506, 4.20964, .84794, .00000, + .00000, .44092, .85946, + .01540, .00511, 6.87150, .86679, .00000, + .00000, .46241, .87825, + .01567, .00518, 12.04203, .91271, .00022, + .00000, .51218, .92409, + .01587, .00523, 16.72429, .96279, .04817, + .00000, .56503, .97410, + .01607, .00529, 22.54385, 1.03158, .13938, + .00000, .63671, 1.04283, + .01625, .00534, 28.11045, 1.11130, .21710, + .00000, .71889, 1.12248, + .01643, .00539, 34.28648, 1.20023, .31514, + .00000, .81015, 1.21134, + .01661, .00545, 41.66399, 1.31153, .43887, + .00000, .92390, 1.32258 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .01677, .00550, 48.56876, 1.42686, .55785, + .00000, 1.04133, 1.43785, + .01692, .00555, 56.11204, 1.54972, .69664, + .00000, 1.16620, 1.56065, + .01705, .00559, 62.23749, 1.66141, .80973, + .00000, 1.27947, 1.67229, + .01731, .00568, 76.92472, 1.93061, 1.09827, + .00003, 1.55199, 1.94139, + .01753, .00576, 91.00851, 2.20317, 1.39206, + .18916, 1.82738, 2.21387, + .01779, .00585, 107.90884, 2.55480, 1.76329, + .58833, 2.18211, 2.56539, + .01805, .00595, 127.29146, 2.97625, 2.20641, + 1.06503, 2.60674, 2.98674, + .01830, .00605, 146.49048, 3.40949, 2.66184, + 1.54018, 3.04282, 3.41988 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .01854, .00614, 167.49516, 3.89907, 3.17727, + 2.08283, 3.53522, 3.90937, + .01875, .00623, 186.06137, 4.34675, 3.64576, + 2.56706, 3.98520, 4.35697, + .01900, .00633, 209.87674, 4.93958, 4.26291, + 3.20132, 4.58079, 4.94971, + .01922, .00642, 232.41144, 5.51494, 4.86353, + 3.82453, 5.15855, 5.52498, + .01942, .00651, 254.00319, 6.08221, 5.45190, + 4.42770, 5.72799, 6.09217, + .01968, .00663, 282.81448, 6.85906, 6.25632, + 5.25270, 6.50757, 6.86893, + .01993, .00673, 311.55673, 7.65365, 7.07978, + 6.10055, 7.30467, 7.66342, + .02016, .00684, 339.51544, 8.44806, 7.89857, + 6.93671, 8.10140, 8.45775 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .02040, .00695, 368.69308, 9.29558, 8.77155, + 7.82919, 8.95122, 9.30519, + .02063, .00705, 398.62814, 10.18271, 9.68581, + 8.76618, 9.84057, 10.19224, + .02085, .00716, 427.53406, 11.05997, 10.58510, + 9.68071, 10.71991, 11.06943, + .02106, .00725, 456.20486, 11.94278, 11.49317, + 10.61085, 11.60465, 11.95217, + .02127, .00735, 485.20676, 12.85590, 12.42668, + 11.55820, 12.51968, 12.86522, + .02148, .00745, 515.20947, 13.81260, 13.40818, + 12.56139, 13.47825, 13.82185, + .02168, .00755, 543.78943, 14.74263, 14.35731, + 13.52386, 14.41004, 14.75182, + .02187, .00764, 572.03125, 15.67223, 15.30838, + 14.49327, 15.34128, 15.68136 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .02206, .00774, 600.71460, 16.63219, 16.28762, + 15.48725, 16.30289, 16.64126, + .02225, .00783, 629.87500, 17.62051, 17.29615, + 16.51235, 17.29282, 17.62953, + .02244, .00792, 658.24414, 18.59479, 18.28989, + 17.52233, 18.26863, 18.60376, + .02261, .00801, 685.40521, 19.54059, 19.25282, + 18.49860, 19.21587, 19.54951, + .02279, .00810, 713.82660, 20.53977, 20.27151, + 19.53440, 20.21648, 20.54863 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .01866, .00637, 3.98187, .75094, .00000, + .00000, .38862, .75777, + .01889, .00645, 6.27331, .76828, .00000, + .00000, .40823, .77507, + .01924, .00656, 10.59739, .80879, .00021, + .00000, .45206, .81551, + .01949, .00664, 14.42244, .85183, .04126, + .00000, .49748, .85850, + .01976, .00673, 19.09329, .91008, .11862, + .00000, .55821, .91670, + .01999, .00681, 23.49726, .97653, .18315, + .00000, .62677, .98309, + .02022, .00689, 28.32275, 1.05002, .26370, + .00000, .70226, 1.05654, + .02045, .00698, 34.01944, 1.14116, .36417, + .00000, .79550, 1.14764 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .02066, .00706, 39.29349, 1.23466, .45969, + .00000, .89080, 1.24109, + .02086, .00713, 45.00336, 1.33363, .57028, + .00000, .99149, 1.34001, + .02102, .00720, 49.60126, 1.42285, .65954, + .00000, 1.08206, 1.42920, + .02137, .00733, 60.51071, 1.63605, .88528, + .00002, 1.29810, 1.64232, + .02166, .00745, 70.83442, 1.84947, 1.11245, + .14530, 1.51393, 1.85569, + .02199, .00759, 83.05656, 2.12174, 1.39622, + .45016, 1.78885, 2.12788, + .02234, .00773, 96.90530, 2.44437, 1.73117, + .80992, 2.11419, 2.45044, + .02266, .00787, 110.46761, 2.77247, 2.07189, + 1.16444, 2.44471, 2.77847 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .02298, .00801, 125.15162, 3.13956, 2.45388, + 1.56554, 2.81419, 3.14550, + .02325, .00813, 138.00935, 3.47227, 2.79814, + 1.92026, 3.14885, 3.47815, + .02358, .00828, 154.35030, 3.90905, 3.24788, + 2.38098, 3.58797, 3.91486, + .02387, .00841, 169.67639, 4.32931, 3.68215, + 2.83024, 4.01026, 4.33506, + .02414, .00853, 184.24153, 4.74054, 4.10444, + 3.26173, 4.42334, 4.74624, + .02448, .00869, 203.51265, 5.29922, 4.67748, + 3.84754, 4.98432, 5.30486, + .02480, .00885, 222.57230, 5.86590, 5.25960, + 4.44514, 5.55313, 5.87148, + .02511, .00899, 240.95566, 6.42812, 5.83410, + 5.02995, 6.11731, 6.43364 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .02541, .00914, 259.99448, 7.02365, 6.44253, + 5.65006, 6.71478, 7.02911, + .02571, .00929, 279.38925, 7.64274, 7.07575, + 6.29718, 7.33574, 7.64816, + .02600, .00943, 297.97342, 8.25090, 7.69443, + 6.92438, 7.94564, 8.25626, + .02627, .00957, 316.30252, 8.85937, 8.31605, + 7.55943, 8.55574, 8.86468, + .02655, .00971, 334.70853, 9.48497, 8.95109, + 8.20191, 9.18296, 9.49024, + .02682, .00984, 353.65399, 10.13697, 9.61582, + 8.87959, 9.83653, 10.14220, + .02708, .00997, 371.57556, 10.76728, 10.25483, + 9.52566, 10.46832, 10.77247, + .02733, .01010, 389.20682, 11.39439, 10.89264, + 10.17412, 11.09681, 11.39954 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .02758, .01023, 407.00687, 12.03878, 11.54601, + 10.83552, 11.74259, 12.04389, + .02783, .01036, 425.01764, 12.69923, 12.21616, + 11.51496, 12.40439, 12.70431, + .02807, .01048, 442.45279, 13.34742, 12.87369, + 12.18158, 13.05386, 13.35247, + .02830, .01060, 459.05978, 13.97396, 13.50809, + 12.82310, 13.68160, 13.97897, + .02853, .01072, 476.37503, 14.63340, 14.17706, + 13.50176, 14.34225, 14.63838 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .02288, .00803, 3.76535, .66432, .00000, + .00000, .34249, .66775, + .02317, .00814, 5.72565, .68024, .00000, + .00000, .36037, .68364, + .02362, .00832, 9.32339, .71594, .00019, + .00000, .39894, .71928, + .02394, .00844, 12.43359, .75287, .03533, + .00000, .43793, .75618, + .02429, .00858, 16.16555, .80209, .10091, + .00000, .48928, .80536, + .02459, .00870, 19.63433, .85728, .15444, + .00000, .54630, .86052, + .02488, .00882, 23.38783, .91779, .22055, + .00000, .60853, .92099, + .02519, .00895, 27.76694, .99211, .30205, + .00000, .68465, .99527 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .02546, .00907, 31.77701, 1.06754, .37863, + .00000, .76163, 1.07067, + .02572, .00918, 36.07922, 1.14686, .46661, + .00000, .84243, 1.14997, + .02592, .00927, 39.51414, 1.21775, .53695, + .00000, .91448, 1.22084, + .02637, .00947, 47.57838, 1.38568, .71325, + .00002, 1.08485, 1.38872, + .02675, .00964, 55.10751, 1.55186, .88856, + .11154, 1.25309, 1.55485, + .02719, .00984, 63.89800, 1.76146, 1.10501, + .34425, 1.46497, 1.76441, + .02764, .01005, 73.73700, 2.00700, 1.35760, + .61556, 1.71282, 2.00990, + .02805, .01025, 83.26137, 2.25400, 1.61185, + .87985, 1.96189, 2.25686 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .02847, .01045, 93.46465, 2.52761, 1.89420, + 1.17603, 2.23753, 2.53042, + .02882, .01062, 102.31332, 2.77338, 2.14646, + 1.43557, 2.48498, 2.77616, + .02925, .01083, 113.45316, 3.09324, 2.47321, + 1.76977, 2.80683, 3.09598, + .02963, .01102, 123.80727, 3.39836, 2.78622, + 2.09316, 3.11367, 3.40106, + .02998, .01119, 133.56477, 3.69465, 3.08832, + 2.40131, 3.41153, 3.69732, + .03043, .01142, 146.36327, 4.09397, 3.49513, + 2.81651, 3.81281, 4.09660, + .03085, .01163, 158.90976, 4.49563, 3.90519, + 3.23688, 4.21628, 4.49823, + .03125, .01183, 170.90536, 4.89106, 4.30679, + 3.64498, 4.61337, 4.89362 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .03164, .01204, 183.23145, 5.30690, 4.72921, + 4.07483, 5.03085, 5.30943, + .03204, .01224, 195.69661, 5.73623, 5.16604, + 4.52064, 5.46177, 5.73873, + .03241, .01244, 207.54509, 6.15515, 5.58991, + 4.94960, 5.88217, 6.15762, + .03276, .01262, 219.16406, 6.57185, 6.01365, + 5.38196, 6.30025, 6.57430, + .03312, .01281, 230.74216, 6.99770, 6.44376, + 5.81635, 6.72746, 7.00012, + .03348, .01300, 242.59944, 7.43918, 6.89196, + 6.27274, 7.17027, 7.44158, + .03381, .01318, 253.73288, 7.86354, 7.32019, + 6.70497, 7.59588, 7.86591, + .03413, .01335, 264.63751, 8.28380, 7.74592, + 7.13728, 8.01730, 8.28615 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .03446, .01353, 275.57642, 8.71345, 8.17976, + 7.57580, 8.44812, 8.71578, + .03478, .01370, 286.59131, 9.15183, 8.62289, + 8.02449, 8.88765, 9.15414, + .03509, .01387, 297.19922, 9.58013, 9.05579, + 8.46283, 9.31703, 9.58243, + .03539, .01403, 307.24789, 9.99232, 9.47159, + 8.88272, 9.73023, 9.99460, + .03569, .01419, 317.68741, 10.42456, 9.90864, + 9.32562, 10.16349, 10.42682 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .02578, .00920, 3.64332, .61796, .00000, + .00000, .31807, .61994, + .02612, .00934, 5.42651, .63309, .00000, + .00000, .33500, .63504, + .02663, .00956, 8.64830, .66622, .00018, + .00000, .37077, .66813, + .02701, .00972, 11.39695, .69996, .03225, + .00000, .40641, .70185, + .02741, .00990, 14.66167, .74450, .09177, + .00000, .45291, .74635, + .02776, .01005, 17.67103, .79392, .13972, + .00000, .50401, .79575, + .02809, .01020, 20.90358, .84782, .19858, + .00000, .55948, .84962, + .02845, .01036, 24.64886, .91361, .27064, + .00000, .62694, .91539 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .02876, .01051, 28.05639, .97996, .33787, + .00000, .69471, .98171, + .02906, .01065, 31.69275, 1.04947, .41477, + .00000, .76558, 1.05120, + .02930, .01076, 34.58135, 1.11126, .47590, + .00000, .82843, 1.11297, + .02982, .01101, 41.32073, 1.25688, .62830, + .00002, .97628, 1.25855, + .03027, .01122, 47.56264, 1.39999, .77879, + .09551, 1.12129, 1.40164, + .03077, .01147, 54.78955, 1.57929, .96330, + .29411, 1.30267, 1.58090, + .03130, .01173, 62.81971, 1.78791, 1.17715, + .52402, 1.51341, 1.78948, + .03178, .01197, 70.53969, 1.99644, 1.39108, + .74645, 1.72383, 1.99799 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .03227, .01222, 78.75777, 2.22607, 1.62730, + .99431, 1.95533, 2.22759, + .03268, .01242, 85.84405, 2.43127, 1.83727, + 1.21033, 2.16205, 2.43276, + .03318, .01268, 94.71450, 2.69696, 2.10787, + 1.48707, 2.42956, 2.69842, + .03362, .01291, 102.91511, 2.94912, 2.36585, + 1.75362, 2.68330, 2.95056, + .03403, .01312, 110.60407, 3.19290, 2.61373, + 2.00643, 2.92851, 3.19432, + .03455, .01339, 120.63696, 3.51990, 2.94602, + 2.34551, 3.25729, 3.52129, + .03504, .01365, 130.42043, 3.84719, 3.27942, + 2.68728, 3.58624, 3.84856, + .03551, .01390, 139.72467, 4.16795, 3.60444, + 3.01748, 3.90851, 4.16929 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .03597, .01415, 149.24026, 4.50383, 3.94492, + 3.36390, 4.24589, 4.50515, + .03643, .01439, 158.82104, 4.84920, 4.29569, + 3.72185, 4.59271, 4.85051, + .03686, .01463, 167.88298, 5.18487, 4.63464, + 4.06478, 4.92972, 5.18616, + .03728, .01485, 176.73967, 5.51762, 4.97249, + 4.40950, 5.26373, 5.51889, + .03769, .01508, 185.52283, 5.85644, 5.31408, + 4.75438, 5.60380, 5.85771, + .03810, .01530, 194.49126, 6.20662, 5.66910, + 5.11589, 5.95519, 6.20787, + .03850, .01552, 202.87347, 6.54207, 6.00704, + 5.45689, 6.29177, 6.54331, + .03887, .01573, 211.06198, 6.87339, 6.34224, + 5.79726, 6.62415, 6.87461 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .03925, .01593, 219.24371, 7.21108, 6.68273, + 6.14136, 6.96291, 7.21229, + .03962, .01614, 227.45834, 7.55472, 7.02966, + 6.49261, 7.30758, 7.55592, + .03998, .01634, 235.34453, 7.88956, 7.36770, + 6.83487, 7.64341, 7.89075, + .04032, .01653, 242.78946, 8.21096, 7.69151, + 7.16181, 7.96573, 8.21215, + .04067, .01673, 250.50777, 8.54726, 8.03123, + 7.50608, 8.30295, 8.54844 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .02806, .01014, 3.55855, .58685, .00000, + .00000, .30179, .58803, + .02844, .01031, 5.22297, .60142, .00000, + .00000, .31807, .60258, + .02900, .01056, 8.19782, .63283, .00017, + .00000, .35198, .63395, + .02942, .01075, 10.71240, .66446, .03022, + .00000, .38540, .66556, + .02986, .01096, 13.67770, .70592, .08577, + .00000, .42871, .70699, + .03025, .01114, 16.39502, .75158, .13011, + .00000, .47594, .75263, + .03062, .01131, 19.29865, .80117, .18429, + .00000, .52703, .80220, + .03102, .01150, 22.64630, .86145, .25029, + .00000, .58887, .86245 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .03136, .01167, 25.67804, .92195, .31156, + .00000, .65071, .92293, + .03170, .01183, 28.90111, .98515, .38142, + .00000, .71519, .98612, + .03197, .01197, 31.45208, 1.04112, .43672, + .00000, .77216, 1.04207, + .03254, .01225, 37.37722, 1.17252, .57408, + .00002, .90568, 1.17345, + .03304, .01250, 42.83348, 1.30104, .70903, + .08553, 1.03598, 1.30195, + .03360, .01279, 49.11255, 1.46128, .87366, + .26295, 1.19817, 1.46216, + .03419, .01309, 56.05313, 1.64681, 1.06355, + .46730, 1.38571, 1.64767, + .03473, .01336, 62.69258, 1.83143, 1.25266, + .66403, 1.57210, 1.83227 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .03527, .01365, 69.72842, 2.03388, 1.46063, + .88237, 1.77631, 2.03469, + .03573, .01389, 75.77008, 2.21411, 1.64480, + 1.07193, 1.95798, 2.21491, + .03628, .01418, 83.30199, 2.44663, 1.88129, + 1.31386, 2.19221, 2.44741, + .03678, .01444, 90.23820, 2.66651, 2.10599, + 1.54612, 2.41358, 2.66728, + .03723, .01469, 96.71779, 2.87841, 2.32120, + 1.76566, 2.62682, 2.87916, + .03781, .01500, 105.14092, 3.16169, 2.60874, + 2.05917, 2.91177, 3.16242, + .03836, .01530, 113.32323, 3.44423, 2.89630, + 2.35404, 3.19587, 3.44495, + .03887, .01558, 121.07475, 3.72024, 3.17569, + 2.63796, 3.47330, 3.72094 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .03939, .01586, 128.97507, 4.00837, 3.46753, + 2.93496, 3.76284, 4.00906, + .03990, .01614, 136.90460, 4.30381, 3.76737, + 3.24104, 4.05963, 4.30449, + .04039, .01641, 144.37753, 4.59011, 4.05624, + 3.53334, 4.34720, 4.59078, + .04085, .01667, 151.66348, 4.87325, 4.34357, + 3.82662, 4.63151, 4.87391, + .04131, .01693, 158.86346, 5.16080, 4.63324, + 4.11912, 4.92023, 5.16145, + .04177, .01718, 166.19995, 5.45734, 4.93375, + 4.42523, 5.21791, 5.45799, + .04220, .01743, 173.03319, 5.74071, 5.21903, + 4.71313, 5.50234, 5.74135, + .04262, .01766, 179.69626, 6.02004, 5.50153, + 5.00007, 5.78267, 6.02067 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .04304, .01790, 186.33412, 6.30413, 5.78783, + 5.28946, 6.06776, 6.30476, + .04346, .01814, 192.98479, 6.59268, 6.07902, + 5.58436, 6.35728, 6.59330, + .04385, .01836, 199.35475, 6.87330, 6.36223, + 5.87118, 6.63882, 6.87392, + .04424, .01858, 205.35309, 7.14215, 6.63297, + 6.14459, 6.90853, 7.14276, + .04462, .01880, 211.56236, 7.42302, 6.91664, + 6.43216, 7.19027, 7.42364 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .02997, .01094, 3.49370, .56367, .00000, + .00000, .28974, .56435, + .03038, .01113, 5.06975, .57783, .00000, + .00000, .30552, .57848, + .03099, .01141, 7.86360, .60795, .00017, + .00000, .33804, .60858, + .03144, .01163, 10.20843, .63803, .02873, + .00000, .36982, .63863, + .03192, .01186, 12.95823, .67723, .08137, + .00000, .41080, .67781, + .03233, .01206, 15.46662, .72013, .12308, + .00000, .45522, .72070, + .03274, .01226, 18.13613, .76659, .17388, + .00000, .50311, .76714, + .03317, .01248, 21.20205, .82287, .23551, + .00000, .56088, .82340 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .03354, .01266, 23.96868, .87914, .29251, + .00000, .61843, .87966, + .03391, .01285, 26.90123, .93780, .35733, + .00000, .67831, .93830, + .03420, .01300, 29.21565, .98958, .40848, + .00000, .73105, .99007, + .03482, .01332, 34.57262, 1.11081, .53515, + .00002, .85430, 1.11128, + .03537, .01360, 39.48342, 1.22892, .65910, + .07849, .97412, 1.22938, + .03598, .01391, 45.10780, 1.37563, .80973, + .24101, 1.12270, 1.37606, + .03662, .01425, 51.29933, 1.54486, .98282, + .42746, 1.29384, 1.54528, + .03720, .01456, 57.19919, 1.71266, 1.15458, + .60626, 1.46333, 1.71306 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .03779, .01488, 63.42905, 1.89606, 1.34288, + .80408, 1.64842, 1.89645, + .03829, .01515, 68.76122, 2.05887, 1.50914, + .97530, 1.81259, 2.05924, + .03889, .01547, 75.38713, 2.26831, 1.72203, + 1.19320, 2.02366, 2.26867, + .03943, .01577, 81.47045, 2.46581, 1.92377, + 1.40185, 2.22259, 2.46616, + .03992, .01604, 87.13692, 2.65567, 2.11650, + 1.59854, 2.41373, 2.65601, + .04055, .01639, 94.48097, 2.90882, 2.37335, + 1.86084, 2.66848, 2.90915, + .04115, .01672, 101.59372, 3.16063, 2.62955, + 2.12369, 2.92177, 3.16095, + .04171, .01703, 108.31135, 3.40598, 2.87783, + 2.37609, 3.16848, 3.40630 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .04227, .01734, 115.13943, 3.66152, 3.13657, + 2.63951, 3.42537, 3.66183, + .04282, .01765, 121.97561, 3.92294, 3.40185, + 2.91043, 3.68808, 3.92325, + .04335, .01795, 128.39973, 4.17572, 3.65682, + 3.16852, 3.94206, 4.17602, + .04385, .01823, 134.65117, 4.42522, 3.91000, + 3.42707, 4.19269, 4.42552, + .04435, .01852, 140.81136, 4.67811, 4.16468, + 3.68432, 4.44669, 4.67841, + .04485, .01880, 147.07799, 4.93845, 4.42851, + 3.95319, 4.70811, 4.93875, + .04532, .01907, 152.89870, 5.18675, 4.67843, + 4.20548, 4.95742, 5.18704, + .04577, .01933, 158.56612, 5.43114, 4.92559, + 4.45665, 5.20277, 5.43143 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .04623, .01959, 164.19890, 5.67928, 5.17563, + 4.70947, 5.45186, 5.67957, + .04668, .01985, 169.83310, 5.93093, 5.42959, + 4.96676, 5.70443, 5.93122, + .04712, .02010, 175.21950, 6.17530, 5.67621, + 5.21664, 5.94968, 6.17559, + .04753, .02034, 180.28142, 6.40907, 5.91163, + 5.45445, 6.18427, 6.40936, + .04795, .02058, 185.51512, 6.65300, 6.15802, + 5.70434, 6.42903, 6.65329 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .03678, .01388, 3.29613, .49667, .00000, + .00000, .25523, .49642, + .03730, .01415, 4.61716, .50955, .00000, + .00000, .26954, .50928, + .03808, .01457, 6.90235, .53596, .00016, + .00000, .29805, .53567, + .03866, .01488, 8.77904, .56160, .02451, + .00000, .32519, .56130, + .03927, .01521, 10.94228, .59443, .06897, + .00000, .35959, .59413, + .03981, .01551, 12.88794, .62966, .10341, + .00000, .39614, .62935, + .04033, .01579, 14.93244, .66743, .14489, + .00000, .43516, .66711, + .04088, .01610, 17.25252, .71266, .19460, + .00000, .48172, .71234 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .04136, .01637, 19.32249, .75735, .24002, + .00000, .52752, .75702, + .04183, .01663, 21.49644, .80361, .29126, + .00000, .57486, .80328, + .04221, .01684, 23.19662, .84404, .33128, + .00000, .61613, .84371, + .04301, .01730, 27.08887, .93784, .42947, + .00002, .71171, .93751, + .04371, .01769, 30.60603, 1.02813, .52437, + .05999, .80348, 1.02779, + .04450, .01814, 34.57262, 1.13893, .63827, + .18347, .91593, 1.13860, + .04533, .01862, 38.88286, 1.26525, .76759, + .32338, 1.04392, 1.26492, + .04608, .01905, 42.93943, 1.38911, .89450, + .45594, 1.16927, 1.38878 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .04685, .01950, 47.17448, 1.52311, 1.03224, + .60115, 1.30475, 1.52279, + .04749, .01987, 50.76159, 1.64099, 1.15275, + .72562, 1.42382, 1.64066, + .04827, .02033, 55.17305, 1.79128, 1.30566, + .88258, 1.57555, 1.79097, + .04897, .02073, 59.18406, 1.93177, 1.44936, + 1.03166, 1.71729, 1.93146, + .04961, .02111, 62.88540, 2.06578, 1.58554, + 1.17101, 1.85241, 2.06547, + .05042, .02159, 67.63684, 2.24300, 1.76555, + 1.35535, 2.03103, 2.24270, + .05119, .02205, 72.19431, 2.41777, 1.94364, + 1.53858, 2.20710, 2.41749, + .05192, .02248, 76.45595, 2.58671, 2.11480, + 1.71302, 2.37724, 2.58644 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .05265, .02291, 80.74980, 2.76136, 2.29187, + 1.89377, 2.55306, 2.76110, + .05336, .02333, 85.01447, 2.93877, 2.47220, + 2.07845, 2.73160, 2.93852, + .05404, .02374, 88.98389, 3.10911, 2.64421, + 2.25297, 2.90300, 3.10887, + .05468, .02412, 92.82371, 3.27625, 2.81414, + 2.42700, 3.07112, 3.27603, + .05533, .02451, 96.57157, 3.44457, 2.98384, + 2.59878, 3.24041, 3.44435, + .05597, .02490, 100.36469, 3.61691, 3.15884, + 2.77762, 3.41371, 3.61672, + .05659, .02526, 103.85516, 3.78027, 3.32347, + 2.94418, 3.57795, 3.78009, + .05717, .02561, 107.23846, 3.94032, 3.48564, + 3.10940, 3.73883, 3.94014 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .05775, .02596, 110.57428, 4.10192, 3.64872, + 3.27469, 3.90127, 4.10176, + .05833, .02631, 113.89301, 4.26505, 3.81364, + 3.44218, 4.06520, 4.26490, + .05889, .02665, 117.04645, 4.42271, 3.97304, + 3.60408, 4.22363, 4.42257, + .05942, .02697, 119.98976, 4.57280, 4.12443, + 3.75737, 4.37445, 4.57268, + .05996, .02729, 123.02187, 4.72885, 4.28237, + 3.91797, 4.53121, 4.72874 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .04521, .01776, 3.10079, .43659, .00000, + .00000, .22470, .43620, + .04588, .01816, 4.19360, .44822, .00000, + .00000, .23760, .44783, + .04688, .01876, 6.04118, .47124, .00014, + .00000, .26249, .47085, + .04762, .01920, 7.52655, .49296, .02082, + .00000, .28555, .49257, + .04841, .01968, 9.20946, .52028, .05820, + .00000, .31425, .51989, + .04910, .02009, 10.70181, .54897, .08648, + .00000, .34412, .54858, + .04976, .02050, 12.24983, .57939, .12017, + .00000, .37566, .57901, + .05047, .02093, 13.98515, .61540, .16005, + .00000, .41284, .61503 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .05110, .02131, 15.51542, .65050, .19602, + .00000, .44895, .65014, + .05171, .02168, 17.10750, .68660, .23627, + .00000, .48600, .68624, + .05219, .02198, 18.34082, .71780, .26737, + .00000, .51795, .71745, + .05323, .02262, 21.13243, .78954, .34298, + .00002, .59126, .78920, + .05413, .02318, 23.61727, .85771, .41511, + .04559, .66077, .85738, + .05515, .02381, 26.37363, .94035, .50058, + .13887, .74488, .94005, + .05622, .02447, 29.32838, 1.03343, .59643, + .24322, .83945, 1.03314, + .05720, .02508, 32.07320, 1.12366, .68942, + .34088, .93101, 1.12339 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .05819, .02570, 34.90466, 1.22026, .78930, + .44676, 1.02893, 1.22002, + .05902, .02621, 37.27644, 1.30445, .87585, + .53661, 1.11419, 1.30422, + .06003, .02684, 40.16104, 1.41083, .98465, + .64885, 1.22185, 1.41062, + .06093, .02740, 42.75693, 1.50937, 1.08601, + .75455, 1.32151, 1.50919, + .06176, .02792, 45.12833, 1.60262, 1.18125, + .85250, 1.41576, 1.60246, + .06281, .02858, 48.14121, 1.72490, 1.30610, + .98096, 1.53930, 1.72477, + .06381, .02920, 51.00142, 1.84445, 1.42856, + 1.10761, 1.66001, 1.84434, + .06474, .02979, 53.64687, 1.95906, 1.54524, + 1.22707, 1.77568, 1.95898 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .06568, .03038, 56.28695, 2.07663, 1.66504, + 1.34994, 1.89431, 2.07658, + .06660, .03096, 58.88662, 2.19520, 1.78619, + 1.47462, 2.01390, 2.19518, + .06748, .03150, 61.28042, 2.30821, 1.90082, + 1.59144, 2.12785, 2.30821, + .06831, .03202, 63.58167, 2.41843, 2.01348, + 1.70737, 2.23896, 2.41846, + .06915, .03255, 65.80326, 2.52866, 2.12510, + 1.82086, 2.35006, 2.52871, + .06997, .03306, 68.03996, 2.64092, 2.23969, + 1.93853, 2.46318, 2.64101, + .07076, .03356, 70.07580, 2.74663, 2.34668, + 2.04723, 2.56968, 2.74674, + .07150, .03402, 72.04005, 2.84970, 2.45164, + 2.15468, 2.67350, 2.84984 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .07226, .03450, 73.95877, 2.95317, 2.55653, + 2.26145, 2.77772, 2.95333, + .07300, .03496, 75.85645, 3.05711, 2.66211, + 2.36917, 2.88239, 3.05730, + .07371, .03541, 77.64714, 3.15706, 2.76366, + 2.47278, 2.98304, 3.15728, + .07439, .03583, 79.30514, 3.25174, 2.85958, + 2.57033, 3.07837, 3.25198, + .07508, .03627, 81.00677, 3.34980, 2.95933, + 2.67223, 3.17708, 3.35006 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .05107, .02067, 2.98480, .40440, .00000, + .00000, .20847, .40420, + .05184, .02116, 3.95519, .41529, .00000, + .00000, .22056, .41510, + .05301, .02189, 5.57481, .43644, .00013, + .00000, .24345, .43626, + .05387, .02244, 6.86088, .45607, .01885, + .00000, .26434, .45589, + .05479, .02302, 8.30319, .48046, .05250, + .00000, .29004, .48030, + .05559, .02353, 9.57147, .50576, .07760, + .00000, .31645, .50561, + .05636, .02403, 10.87694, .53241, .10731, + .00000, .34415, .53227, + .05719, .02456, 12.32965, .56373, .14220, + .00000, .37656, .56360 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .05792, .02502, 13.60164, .59401, .17343, + .00000, .40779, .59389, + .05863, .02547, 14.91758, .62501, .20823, + .00000, .43969, .62491, + .05919, .02584, 15.93101, .65164, .23493, + .00000, .46702, .65155, + .06040, .02661, 18.20917, .71251, .29948, + .00002, .52938, .71244, + .06146, .02729, 20.21820, .76992, .36059, + .03864, .58804, .76987, + .06264, .02806, 22.42362, .83899, .43244, + .11743, .65850, .83897, + .06389, .02886, 24.76809, .91621, .51241, + .20491, .73713, .91622, + .06503, .02959, 26.92844, .99056, .58946, + .28615, .81274, .99060 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .06619, .03034, 29.14046, 1.06966, .67170, + .37370, .89308, 1.06973, + .06715, .03096, 30.98054, 1.13821, .74255, + .44754, .96265, 1.13831, + .06833, .03172, 33.20286, 1.22435, .83110, + .53925, 1.05000, 1.22448, + .06937, .03239, 35.18994, 1.30372, .91316, + .62518, 1.13042, 1.30388, + .07033, .03301, 36.99350, 1.37846, .98988, + .70437, 1.20612, 1.37865, + .07156, .03380, 39.26997, 1.47598, 1.08992, + .80771, 1.30482, 1.47621, + .07271, .03454, 41.41702, 1.57080, 1.18755, + .90907, 1.40075, 1.57107, + .07380, .03524, 43.38885, 1.66126, 1.28006, + 1.00415, 1.49222, 1.66156 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .07489, .03594, 45.34467, 1.75362, 1.37461, + 1.10149, 1.58558, 1.75396, + .07596, .03663, 47.25998, 1.84636, 1.46982, + 1.19985, 1.67929, 1.84673, + .07698, .03729, 49.01102, 1.93433, 1.55945, + 1.29153, 1.76817, 1.93475, + .07794, .03790, 50.68794, 2.01984, 1.64726, + 1.38226, 1.85451, 2.02029, + .07891, .03852, 52.29477, 2.10498, 1.73385, + 1.47060, 1.94049, 2.10547, + .07986, .03913, 53.90745, 2.19141, 1.82248, + 1.56197, 2.02774, 2.19194, + .08077, .03971, 55.36417, 2.27246, 1.90485, + 1.64596, 2.10954, 2.27302, + .08163, .04027, 56.76581, 2.35126, 1.98547, + 1.72880, 2.18906, 2.35185 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .08251, .04082, 58.12616, 2.43008, 2.06571, + 1.81078, 2.26859, 2.43070, + .08337, .04137, 59.46655, 2.50902, 2.14625, + 1.89325, 2.34823, 2.50968, + .08419, .04190, 60.72542, 2.58469, 2.22347, + 1.97234, 2.42457, 2.58539, + .08497, .04239, 61.88445, 2.65615, 2.29617, + 2.04654, 2.49664, 2.65687, + .08577, .04290, 63.07138, 2.72998, 2.37161, + 2.12391, 2.57111, 2.73074 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .05573, .02314, 2.90028, .38282, .00000, + .00000, .19760, .38282, + .05659, .02370, 3.78832, .39319, .00000, + .00000, .20911, .39320, + .05789, .02455, 5.25710, .41304, .00013, + .00000, .23063, .41306, + .05885, .02518, 6.41309, .43124, .01752, + .00000, .25004, .43127, + .05988, .02585, 7.69998, .45368, .04867, + .00000, .27374, .45374, + .06077, .02644, 8.82474, .47674, .07167, + .00000, .29786, .47681, + .06164, .02701, 9.97600, .50091, .09876, + .00000, .32304, .50100, + .06257, .02762, 11.25028, .52917, .13041, + .00000, .35235, .52927 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .06338, .02816, 12.36026, .55633, .15857, + .00000, .38041, .55645, + .06417, .02868, 13.50389, .58405, .18984, + .00000, .40900, .58418, + .06480, .02909, 14.38080, .60774, .21373, + .00000, .43337, .60789, + .06615, .02999, 16.34212, .66168, .27123, + .00002, .48874, .66186, + .06733, .03076, 18.05984, .71227, .32537, + .03426, .54054, .71248, + .06866, .03164, 19.93069, .77281, .38866, + .10391, .60241, .77305, + .07005, .03256, 21.90718, .84013, .45871, + .18083, .67108, .84041, + .07132, .03339, 23.71752, .90462, .52587, + .25188, .73679, .90494 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .07261, .03424, 25.56090, .97292, .59722, + .32808, .80629, .97328, + .07369, .03495, 27.08629, 1.03187, .65843, + .39208, .86622, 1.03226, + .07500, .03581, 28.91886, 1.10564, .73460, + .47123, .94116, 1.10608, + .07616, .03658, 30.54955, 1.17335, .80493, + .54511, 1.00989, 1.17383, + .07724, .03728, 32.02237, 1.23688, .87042, + .61293, 1.07434, 1.23740, + .07860, .03817, 33.87216, 1.31947, .95551, + .70110, 1.15808, 1.32002, + .07989, .03902, 35.60817, 1.39946, 1.03822, + .78726, 1.23914, 1.40006, + .08110, .03981, 37.19380, 1.47548, 1.11630, + .86775, 1.31614, 1.47613 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .08231, .04060, 38.75918, 1.55284, 1.19581, + .94988, 1.39447, 1.55353, + .08350, .04137, 40.28574, 1.63026, 1.27563, + 1.03261, 1.47283, 1.63100, + .08463, .04211, 41.67348, 1.70346, 1.35050, + 1.10942, 1.54691, 1.70424, + .08570, .04280, 42.99872, 1.77442, 1.42368, + 1.18528, 1.61868, 1.77524, + .08677, .04349, 44.26095, 1.84484, 1.49556, + 1.25885, 1.68991, 1.84571, + .08783, .04418, 45.52487, 1.91616, 1.56902, + 1.33481, 1.76203, 1.91707, + .08884, .04483, 46.65956, 1.98283, 1.63703, + 1.40437, 1.82944, 1.98378, + .08980, .04545, 47.74915, 2.04752, 1.70347, + 1.47287, 1.89482, 2.04851 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .09076, .04607, 48.80110, 2.11204, 1.76941, + 1.54045, 1.96004, 2.11307, + .09172, .04668, 49.83452, 2.17652, 1.83546, + 1.60830, 2.02520, 2.17759, + .09263, .04727, 50.80153, 2.23819, 1.89865, + 1.67322, 2.08752, 2.23931, + .09349, .04783, 51.68776, 2.29628, 1.95798, + 1.73396, 2.14621, 2.29743, + .09437, .04839, 52.59384, 2.35621, 2.01946, + 1.79722, 2.20675, 2.35740 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .05966, .02548, 2.83081, .36696, .00000, + .00000, .18946, .36692, + .06061, .02611, 3.65680, .37690, .00000, + .00000, .20049, .37687, + .06203, .02706, 5.01226, .39570, .00013, + .00000, .22092, .39570, + .06309, .02777, 6.07123, .41280, .01650, + .00000, .23917, .41281, + .06421, .02852, 7.24299, .43374, .04572, + .00000, .26133, .43379, + .06520, .02918, 8.26211, .45511, .06713, + .00000, .28372, .45517, + .06615, .02982, 9.30049, .47742, .09224, + .00000, .30701, .47751, + .06716, .03050, 10.44489, .50340, .12146, + .00000, .33401, .50351 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .06806, .03110, 11.43751, .52826, .14734, + .00000, .35974, .52839, + .06892, .03168, 12.45684, .55357, .17601, + .00000, .38588, .55372, + .06961, .03214, 13.23565, .57512, .19781, + .00000, .40809, .57529, + .07110, .03313, 14.97036, .62402, .25014, + .00001, .45837, .62424, + .07239, .03400, 16.48096, .66969, .29918, + .03105, .50521, .66994, + .07384, .03497, 18.11548, .72409, .35626, + .09405, .56090, .72439, + .07537, .03599, 19.83346, .78432, .41915, + .16331, .62244, .78467, + .07676, .03691, 21.39920, .84179, .47920, + .22699, .68109, .84219 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07817, .03785, 22.98625, .90243, .54276, + .29506, .74289, .90287, + .07935, .03863, 24.29393, .95459, .59709, + .35202, .79600, .95507, + .08079, .03958, 25.85781, 1.01964, .66449, + .42221, .86219, 1.02018, + .08206, .04042, 27.24377, 1.07916, .72652, + .48754, .92269, 1.07974, + .08323, .04119, 28.49037, 1.13484, .78411, + .54733, .97926, 1.13547, + .08472, .04217, 30.04955, 1.20699, .85869, + .62481, 1.05254, 1.20768, + .08612, .04310, 31.50676, 1.27667, .93097, + .70029, 1.12325, 1.27741, + .08744, .04396, 32.83133, 1.34267, .99897, + .77058, 1.19021, 1.34347 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08876, .04483, 34.13370, 1.40965, 1.06804, + .84209, 1.25813, 1.41050, + .09006, .04568, 35.39923, 1.47650, 1.13720, + .91395, 1.32589, 1.47740, + .09129, .04648, 36.54436, 1.53952, 1.20186, + .98047, 1.38977, 1.54048, + .09245, .04723, 37.63538, 1.60048, 1.26495, + 1.04604, 1.45152, 1.60149, + .09362, .04799, 38.66879, 1.66083, 1.32674, + 1.10943, 1.51265, 1.66189, + .09477, .04873, 39.70168, 1.72183, 1.38978, + 1.17480, 1.57443, 1.72294, + .09586, .04944, 40.62400, 1.77869, 1.44797, + 1.23446, 1.63201, 1.77985, + .09690, .05011, 41.50821, 1.83377, 1.50475, + 1.29314, 1.68777, 1.83497 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09795, .05078, 42.35767, 1.88857, 1.56095, + 1.35088, 1.74325, 1.88982, + .09898, .05145, 43.18997, 1.94325, 1.61715, + 1.40877, 1.79858, 1.94455, + .09997, .05208, 43.96630, 1.99544, 1.67080, + 1.46405, 1.85141, 1.99678, + .10091, .05268, 44.67489, 2.04450, 1.72108, + 1.51566, 1.90106, 2.04589, + .10186, .05329, 45.39841, 2.09505, 1.77313, + 1.56936, 1.95220, 2.09648 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .07407, .03482, 2.60406, .32108, .00000, + .00000, .16601, .32113, + .07534, .03572, 3.25226, .32964, .00000, + .00000, .17558, .32973, + .07726, .03708, 4.29063, .34534, .00011, + .00000, .19274, .34548, + .07869, .03809, 5.08330, .35921, .01354, + .00000, .20767, .35939, + .08020, .03916, 5.94363, .37586, .03726, + .00000, .22542, .37609, + .08153, .04008, 6.68019, .39247, .05421, + .00000, .24297, .39275, + .08281, .04098, 7.41980, .40961, .07385, + .00000, .26099, .40993, + .08417, .04193, 8.22363, .42930, .09638, + .00000, .28162, .42966 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08537, .04276, 8.91122, .44786, .11606, + .00000, .30098, .44827, + .08654, .04357, 9.60986, .46661, .13766, + .00000, .32051, .46706, + .08746, .04421, 10.13727, .48238, .15389, + .00000, .33687, .48287, + .08945, .04558, 11.29627, .51780, .19244, + .00001, .37357, .51837, + .09118, .04676, 12.28648, .55041, .22804, + .02261, .40726, .55104, + .09312, .04809, 13.33388, .58870, .26887, + .06816, .44674, .58941, + .09515, .04947, 14.41605, .63051, .31322, + .11753, .48976, .63130, + .09700, .05072, 15.38580, .66987, .35500, + .16228, .53021, .67075 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09888, .05198, 16.35352, .71090, .39871, + .20955, .57233, .71186, + .10044, .05302, 17.13896, .74581, .43565, + .24865, .60812, .74684, + .10233, .05429, 18.06389, .78888, .48096, + .29630, .65225, .79000, + .10401, .05540, 18.87232, .82787, .52225, + .34023, .69217, .82907, + .10555, .05642, 19.58885, .86399, .56019, + .38000, .72912, .86526, + .10750, .05771, 20.47179, .91033, .60883, + .43104, .77651, .91170, + .10934, .05891, 21.28502, .95461, .65551, + .48028, .82177, .95607, + .11106, .06004, 22.01168, .99613, .69895, + .52563, .86419, .99768 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11278, .06116, 22.71587, 1.03786, .74266, + .57136, .90681, 1.03950, + .11447, .06225, 23.39154, 1.07916, .78607, + .61694, .94897, 1.08088, + .11606, .06327, 23.99154, 1.11771, .82625, + .65868, .98833, 1.11952, + .11756, .06424, 24.55867, 1.15475, .86521, + .69961, 1.02612, 1.15663, + .11906, .06520, 25.08462, 1.19106, .90298, + .73875, 1.06318, 1.19302, + .12055, .06615, 25.60719, 1.22755, .94131, + .77893, 1.10040, 1.22959, + .12195, .06704, 26.06350, 1.26123, .97634, + .81522, 1.13477, 1.26336, + .12328, .06788, 26.49865, 1.29370, 1.01037, + .85077, 1.16788, 1.29589 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12461, .06872, 26.90870, 1.32573, 1.04376, + .88545, 1.20056, 1.32800, + .12593, .06956, 27.30662, 1.35750, 1.07697, + .92003, 1.23296, 1.35984, + .12719, .07035, 27.67292, 1.38762, 1.10847, + .95285, 1.26369, 1.39004, + .12837, .07109, 28.00148, 1.41574, 1.13778, + .98327, 1.29237, 1.41822, + .12958, .07184, 28.33557, 1.44459, 1.16800, + 1.01481, 1.32179, 1.44714 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09315, .04905, 2.34630, .28014, .00000, + .00000, .14490, .28029, + .09493, .05032, 2.83833, .28725, .00000, + .00000, .15294, .28748, + .09760, .05223, 3.60678, .29989, .00010, + .00000, .16694, .30023, + .09958, .05363, 4.17894, .31075, .01084, + .00000, .17878, .31117, + .10168, .05511, 4.78699, .32353, .02962, + .00000, .19260, .32404, + .10351, .05638, 5.29864, .33599, .04269, + .00000, .20593, .33659, + .10527, .05761, 5.80439, .34868, .05765, + .00000, .21946, .34937, + .10715, .05891, 6.34566, .36307, .07456, + .00000, .23473, .36385 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10880, .06003, 6.80137, .37643, .08911, + .00000, .24884, .37729, + .11039, .06112, 7.25917, .38981, .10494, + .00000, .26296, .39075, + .11166, .06198, 7.59987, .40092, .11667, + .00000, .27463, .40192, + .11436, .06381, 8.33737, .42559, .14423, + .00001, .30051, .42674, + .11671, .06538, 8.95353, .44796, .16930, + .01599, .32392, .44923, + .11933, .06713, 9.58715, .47382, .19759, + .04798, .35091, .47524, + .12207, .06893, 10.22861, .50162, .22784, + .08212, .37988, .50319, + .12455, .07055, 10.79185, .52742, .25594, + .11260, .40672, .52913 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12705, .07218, 11.34330, .55395, .28495, + .14438, .43429, .55580, + .12912, .07352, 11.78243, .57625, .30917, + .17034, .45744, .57822, + .13162, .07512, 12.28955, .60342, .33852, + .20160, .48564, .60554, + .13383, .07654, 12.72522, .62773, .36496, + .23011, .51085, .62999, + .13586, .07782, 13.10388, .65000, .38898, + .25563, .53393, .65238, + .13841, .07942, 13.56124, .67824, .41944, + .28802, .56319, .68078, + .14080, .08092, 13.97441, .70490, .44834, + .31894, .59081, .70759, + .14303, .08231, 14.33476, .72960, .47491, + .34706, .61638, .73243 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14525, .08368, 14.67707, .75416, .50137, + .37514, .64181, .75713, + .14742, .08502, 14.99993, .77821, .52740, + .40288, .66671, .78133, + .14945, .08625, 15.27799, .80041, .55121, + .42797, .68969, .80365, + .15137, .08742, 15.53819, .82157, .57415, + .45244, .71159, .82494, + .15327, .08857, 15.77128, .84205, .59610, + .47554, .73281, .84555, + .15515, .08970, 16.00135, .86251, .61827, + .49915, .75399, .86613, + .15691, .09075, 16.19454, .88116, .63828, + .52020, .77332, .88490, + .15858, .09175, 16.37771, .89904, .65763, + .54075, .79184, .90289 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16025, .09274, 16.54413, .91649, .67641, + .56058, .80992, .92045, + .16189, .09371, 16.70311, .93367, .69498, + .58024, .82773, .93775, + .16345, .09463, 16.84604, .94984, .71247, + .59876, .84449, .95402, + .16492, .09549, 16.96993, .96478, .72858, + .61578, .85999, .96906, + .16641, .09636, 17.09534, .98004, .74515, + .63336, .87582, .98443 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .10760, .06060, 2.17838, .25817, .00000, + .00000, .13354, .25846, + .10979, .06214, 2.58946, .26439, .00000, + .00000, .14067, .26480, + .11307, .06442, 3.22168, .27528, .00009, + .00000, .15289, .27585, + .11549, .06609, 3.68513, .28447, .00939, + .00000, .16306, .28518, + .11805, .06785, 4.17109, .29518, .02554, + .00000, .17479, .29602, + .12027, .06935, 4.57540, .30547, .03661, + .00000, .18595, .30644, + .12241, .07080, 4.97116, .31589, .04919, + .00000, .19719, .31698, + .12470, .07232, 5.39058, .32759, .06328, + .00000, .20976, .32881 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12668, .07364, 5.73995, .33835, .07529, + .00000, .22127, .33969, + .12860, .07491, 6.08847, .34908, .08829, + .00000, .23273, .35054, + .13012, .07590, 6.34523, .35791, .09784, + .00000, .24212, .35946, + .13337, .07802, 6.89560, .37739, .12013, + .00001, .26281, .37914, + .13617, .07983, 7.34838, .39489, .14021, + .01286, .28134, .39682, + .13930, .08183, 7.80445, .41491, .16264, + .03846, .30249, .41704, + .14255, .08388, 8.25957, .43622, .18640, + .06553, .32497, .43856, + .14548, .08572, 8.65344, .45580, .20827, + .08946, .34560, .45834 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .14843, .08756, 9.03382, .47577, .23065, + .11422, .36662, .47850, + .15086, .08906, 9.33247, .49242, .24920, + .13428, .38413, .49532, + .15379, .09085, 9.67212, .51253, .27149, + .15826, .40528, .51564, + .15637, .09242, 9.96012, .53040, .29143, + .17998, .42404, .53368, + .15872, .09383, 10.20656, .54663, .30941, + .19927, .44110, .55008, + .16167, .09561, 10.49940, .56706, .33205, + .22360, .46256, .57071, + .16443, .09725, 10.75989, .58620, .35337, + .24666, .48266, .59005, + .16699, .09876, 10.98248, .60377, .37281, + .26746, .50111, .60780 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .16953, .10024, 11.19001, .62110, .39205, + .28810, .51933, .62533, + .17201, .10169, 11.38266, .63797, .41086, + .30838, .53706, .64238, + .17431, .10302, 11.54403, .65339, .42791, + .32657, .55327, .65797, + .17649, .10427, 11.69389, .66802, .44428, + .34425, .56866, .67276, + .17864, .10549, 11.82327, .68206, .45981, + .36079, .58344, .68696, + .18075, .10669, 11.95043, .69602, .47545, + .37765, .59814, .70108, + .18273, .10780, 12.05218, .70862, .48943, + .39256, .61142, .71383, + .18460, .10885, 12.14827, .72066, .50291, + .40707, .62411, .72601 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .18646, .10988, 12.23196, .73231, .51591, + .42098, .63640, .73780, + .18828, .11089, 12.31053, .74373, .52870, + .43471, .64846, .74936, + .19002, .11185, 12.37900, .75440, .54068, + .44759, .65973, .76016, + .19164, .11274, 12.43542, .76419, .55165, + .45935, .67009, .77008, + .19328, .11364, 12.49236, .77417, .56290, + .47147, .68064, .78018 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .12001, .07072, 2.05040, .24336, .00000, + .00000, .12587, .24384, + .12255, .07246, 2.40883, .24894, .00000, + .00000, .13236, .24958, + .12635, .07503, 2.95385, .25858, .00009, + .00000, .14335, .25945, + .12915, .07690, 3.34872, .26664, .00841, + .00000, .15239, .26769, + .13211, .07886, 3.75858, .27595, .02283, + .00000, .16272, .27718, + .13467, .08053, 4.09658, .28482, .03259, + .00000, .17246, .28622, + .13713, .08213, 4.42499, .29374, .04363, + .00000, .18221, .29530, + .13974, .08381, 4.77042, .30370, .05591, + .00000, .19306, .30544 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14201, .08526, 5.05574, .31280, .06631, + .00000, .20291, .31469, + .14421, .08666, 5.33886, .32184, .07751, + .00000, .21269, .32388, + .14593, .08774, 5.54572, .32923, .08569, + .00000, .22065, .33139, + .14963, .09006, 5.98573, .34546, .10470, + .00001, .23810, .34787, + .15280, .09202, 6.34320, .35993, .12170, + .01092, .25361, .36257, + .15633, .09419, 6.69700, .37636, .14055, + .03259, .27119, .37925, + .15998, .09640, 7.04591, .39371, .16036, + .05534, .28973, .39686, + .16326, .09837, 7.34414, .40954, .17847, + .07531, .30662, .41294 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .16655, .10033, 7.62880, .42557, .19690, + .09585, .32372, .42921, + .16926, .10192, 7.84953, .43884, .21207, + .11239, .33787, .44270, + .17251, .10382, 8.09714, .45478, .23020, + .13205, .35486, .45888, + .17536, .10547, 8.30466, .46885, .24633, + .14976, .36985, .47317, + .17795, .10696, 8.47961, .48155, .26079, + .16542, .38339, .48607, + .18120, .10881, 8.68435, .49743, .27889, + .18504, .40032, .50221, + .18423, .11052, 8.86379, .51222, .29585, + .20355, .41609, .51723, + .18703, .11208, 9.01384, .52569, .31122, + .22014, .43047, .53093 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .18979, .11362, 9.15119, .53891, .32633, + .23653, .44458, .54436, + .19247, .11510, 9.27668, .55169, .34105, + .25255, .45824, .55736, + .19497, .11646, 9.37838, .56328, .35430, + .26684, .47064, .56915, + .19732, .11774, 9.47212, .57425, .36698, + .28068, .48238, .58031, + .19962, .11897, 9.54932, .58467, .37893, + .29355, .49356, .59092, + .20189, .12019, 9.62495, .59501, .39093, + .30664, .50465, .60144, + .20400, .12131, 9.68170, .60426, .40158, + .31813, .51459, .61086, + .20600, .12236, 9.73514, .61307, .41183, + .32929, .52406, .61983 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .20797, .12340, 9.77864, .62153, .42164, + .33994, .53318, .62846, + .20991, .12441, 9.81839, .62978, .43128, + .35041, .54208, .63687, + .21174, .12535, 9.85125, .63746, .44026, + .36020, .55037, .64470, + .21345, .12623, 9.87579, .64445, .44844, + .36909, .55793, .65183, + .21519, .12712, 9.90052, .65155, .45682, + .37824, .56562, .65908 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .13123, .07987, 1.94659, .23224, .00000, + .00000, .12014, .23297, + .13409, .08175, 2.26700, .23731, .00000, + .00000, .12613, .23824, + .13836, .08454, 2.74979, .24601, .00008, + .00000, .13618, .24723, + .14149, .08657, 3.09625, .25321, .00770, + .00000, .14438, .25465, + .14480, .08868, 3.45292, .26148, .02083, + .00000, .15369, .26315, + .14765, .09048, 3.74479, .26930, .02965, + .00000, .16240, .27118, + .15038, .09219, 4.02670, .27713, .03957, + .00000, .17108, .27921, + .15328, .09400, 4.32137, .28584, .05056, + .00000, .18068, .28813 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .15579, .09554, 4.56299, .29374, .05981, + .00000, .18936, .29622, + .15822, .09703, 4.80173, .30157, .06975, + .00000, .19794, .30423, + .16012, .09818, 4.97489, .30794, .07697, + .00000, .20489, .31074, + .16418, .10062, 5.34087, .32187, .09368, + .00001, .22007, .32498, + .16767, .10270, 5.63499, .33421, .10853, + .00957, .23348, .33760, + .17153, .10497, 5.92138, .34813, .12489, + .02851, .24858, .35183, + .17550, .10727, 6.20085, .36275, .14200, + .04828, .26440, .36675, + .17907, .10933, 6.43711, .37599, .15755, + .06553, .27874, .38029 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .18263, .11135, 6.66016, .38933, .17329, + .08319, .29317, .39392, + .18556, .11300, 6.83100, .40031, .18618, + .09734, .30505, .40514, + .18905, .11495, 7.02024, .41342, .20151, + .11408, .31923, .41854, + .19212, .11665, 7.17707, .42494, .21508, + .12910, .33169, .43031, + .19489, .11817, 7.30726, .43528, .22720, + .14232, .34288, .44088, + .19836, .12005, 7.45727, .44813, .24229, + .15881, .35681, .45402, + .20158, .12178, 7.58671, .46003, .25636, + .17430, .36971, .46619, + .20455, .12336, 7.69231, .47079, .26904, + .18812, .38140, .47721 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .20747, .12490, 7.78707, .48130, .28147, + .20170, .39282, .48796, + .21030, .12638, 7.87218, .49141, .29351, + .21494, .40383, .49831, + .21292, .12774, 7.93826, .50051, .30430, + .22668, .41376, .50764, + .21538, .12900, 7.99864, .50910, .31459, + .23802, .42313, .51644, + .21779, .13023, 8.04515, .51718, .32423, + .24852, .43199, .52473, + .22016, .13143, 8.09056, .52518, .33389, + .25917, .44075, .53294, + .22235, .13252, 8.12130, .53228, .34241, + .26847, .44856, .54022, + .22442, .13356, 8.15017, .53903, .35059, + .27749, .45598, .54715 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .22646, .13456, 8.17078, .54545, .35839, + .28605, .46307, .55375, + .22847, .13555, 8.18853, .55169, .36602, + .29445, .46997, .56017, + .23036, .13646, 8.20137, .55746, .37311, + .30226, .47637, .56610, + .23211, .13731, 8.20819, .56268, .37953, + .30934, .48217, .57148, + .23389, .13817, 8.21506, .56798, .38610, + .31661, .48807, .57693 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15158, .09613, 1.78379, .21592, .00000, + .00000, .11179, .21732, + .15499, .09824, 2.05162, .22022, .00000, + .00000, .11704, .22188, + .16006, .10134, 2.44943, .22749, .00008, + .00000, .12574, .22957, + .16376, .10357, 2.73054, .23344, .00668, + .00000, .13273, .23583, + .16765, .10590, 3.01599, .24021, .01801, + .00000, .14059, .24292, + .17098, .10786, 3.24670, .24654, .02551, + .00000, .14785, .24953, + .17417, .10972, 3.46734, .25283, .03389, + .00000, .15504, .25609, + .17754, .11167, 3.69554, .25977, .04310, + .00000, .16292, .26333 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .18044, .11333, 3.88038, .26602, .05079, + .00000, .16998, .26983, + .18324, .11492, 4.06182, .27218, .05900, + .00000, .17694, .27623, + .18542, .11615, 4.19160, .27715, .06492, + .00000, .18252, .28139, + .19007, .11874, 4.46294, .28795, .07854, + .00001, .19463, .29260, + .19403, .12092, 4.67683, .29742, .09053, + .00777, .20523, .30243, + .19840, .12330, 4.87900, .30799, .10361, + .02307, .21703, .31339, + .20286, .12569, 5.07249, .31896, .11716, + .03890, .22928, .32477, + .20685, .12780, 5.23257, .32880, .12935, + .05258, .24027, .33497 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .21081, .12987, 5.38054, .33861, .14160, + .06648, .25122, .34515, + .21405, .13154, 5.49125, .34662, .15155, + .07753, .26016, .35344, + .21789, .13351, 5.61054, .35607, .16328, + .09051, .27074, .36325, + .22124, .13520, 5.70706, .36429, .17359, + .10207, .27995, .37179, + .22426, .13671, 5.78445, .37160, .18273, + .11217, .28816, .37938, + .22801, .13856, 5.87046, .38059, .19402, + .12469, .29827, .38872, + .23148, .14025, 5.94203, .38883, .20446, + .13636, .30755, .39728, + .23465, .14178, 5.99693, .39619, .21379, + .14668, .31589, .40494 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .23775, .14326, 6.04340, .40330, .22285, + .15676, .32395, .41234, + .24075, .14468, 6.08295, .41008, .23159, + .16652, .33166, .41941, + .24350, .14596, 6.10944, .41610, .23933, + .17511, .33853, .42568, + .24609, .14715, 6.13296, .42173, .24669, + .18338, .34498, .43156, + .24859, .14829, 6.14619, .42694, .25350, + .19095, .35100, .43701, + .25106, .14940, 6.15900, .43208, .26031, + .19861, .35693, .44239, + .25331, .15040, 6.16211, .43656, .26625, + .20524, .36213, .44707, + .25543, .15135, 6.16497, .44080, .27194, + .21164, .36707, .45151 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .25751, .15226, 6.16174, .44476, .27730, + .21767, .37172, .45567, + .25955, .15314, 6.15677, .44858, .28253, + .22356, .37622, .45968, + .26145, .15396, 6.14920, .45207, .28735, + .22902, .38035, .46335, + .26322, .15470, 6.13831, .45517, .29168, + .23392, .38405, .46662, + .26500, .15546, 6.12738, .45831, .29610, + .23894, .38780, .46993 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .17919, .11713, 1.60638, .19884, .00000, + .00000, .10323, .20160, + .18326, .11943, 1.82471, .20229, .00000, + .00000, .10771, .20544, + .18928, .12278, 2.14369, .20805, .00007, + .00000, .11503, .21180, + .19365, .12517, 2.36499, .21272, .00569, + .00000, .12082, .21690, + .19822, .12765, 2.58606, .21797, .01528, + .00000, .12726, .22261, + .20209, .12971, 2.76190, .22283, .02152, + .00000, .13313, .22785, + .20578, .13166, 2.92813, .22762, .02846, + .00000, .13889, .23301, + .20967, .13369, 3.09787, .23286, .03600, + .00000, .14515, .23864 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .21298, .13540, 3.23313, .23752, .04223, + .00000, .15069, .24364, + .21619, .13704, 3.36483, .24210, .04886, + .00000, .15613, .24855, + .21866, .13829, 3.45730, .24575, .05358, + .00000, .16044, .25245, + .22390, .14092, 3.64796, .25363, .06438, + .00001, .16973, .26086, + .22835, .14311, 3.79429, .26045, .07379, + .00614, .17776, .26814, + .23320, .14546, 3.92670, .26796, .08394, + .01816, .18660, .27614, + .23812, .14781, 4.04971, .27565, .09432, + .03047, .19565, .28434, + .24248, .14985, 4.14822, .28244, .10357, + .04100, .20367, .29158 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .24678, .15184, 4.23628, .28913, .11277, + .05160, .21158, .29871, + .25026, .15343, 4.29950, .29451, .12017, + .05995, .21796, .30445, + .25437, .15527, 4.36421, .30077, .12880, + .06966, .22541, .31113, + .25793, .15684, 4.41427, .30614, .13633, + .07826, .23184, .31688, + .26110, .15823, 4.45166, .31086, .14294, + .08569, .23750, .32192, + .26502, .15991, 4.48971, .31656, .15102, + .09483, .24438, .32802, + .26861, .16143, 4.51840, .32171, .15842, + .10328, .25063, .33354, + .27187, .16277, 4.53632, .32623, .16496, + .11068, .25616, .33839 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .27503, .16406, 4.54812, .33050, .17126, + .11785, .26143, .34299, + .27807, .16529, 4.55543, .33453, .17727, + .12474, .26642, .34733, + .28082, .16637, 4.55463, .33800, .18253, + .13073, .27079, .35108, + .28339, .16737, 4.55296, .34124, .18752, + .13648, .27487, .35458, + .28586, .16830, 4.54394, .34413, .19206, + .14167, .27859, .35772, + .28829, .16922, 4.53510, .34696, .19658, + .14692, .28225, .36081, + .29047, .17001, 4.52044, .34934, .20046, + .15139, .28537, .36340, + .29253, .17077, 4.50669, .35158, .20417, + .15571, .28833, .36585 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .29451, .17148, 4.48877, .35360, .20761, + .15973, .29105, .36807, + .29644, .17216, 4.47005, .35551, .21095, + .16364, .29365, .37017, + .29824, .17278, 4.45042, .35722, .21400, + .16723, .29601, .37206, + .29989, .17334, 4.42940, .35868, .21670, + .17042, .29809, .37368, + .30156, .17390, 4.40837, .36016, .21946, + .17369, .30019, .37532 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .22120, .14628, 1.40728, .17869, .00000, + .00000, .09358, .18478, + .22606, .14866, 1.57690, .18115, .00000, + .00000, .09722, .18781, + .23317, .15208, 1.81949, .18523, .00006, + .00000, .10307, .19272, + .23827, .15449, 1.98368, .18849, .00468, + .00000, .10761, .19659, + .24357, .15695, 2.14398, .19212, .01250, + .00000, .11258, .20084, + .24800, .15898, 2.26862, .19543, .01750, + .00000, .11702, .20467, + .25221, .16087, 2.38455, .19866, .02300, + .00000, .12134, .20840, + .25661, .16282, 2.50069, .20215, .02891, + .00000, .12597, .21242 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .26032, .16443, 2.59094, .20522, .03372, + .00000, .13002, .21593, + .26389, .16598, 2.67788, .20821, .03881, + .00000, .13396, .21934, + .26660, .16713, 2.73711, .21056, .04239, + .00000, .13704, .22200, + .27234, .16954, 2.85663, .21558, .05051, + .00001, .14361, .22768, + .27714, .17151, 2.94430, .21985, .05748, + .00460, .14920, .23250, + .28232, .17359, 3.01734, .22444, .06488, + .01353, .15523, .23769, + .28751, .17561, 3.08126, .22902, .07234, + .02257, .16131, .24287, + .29204, .17733, 3.12893, .23298, .07890, + .03019, .16658, .24734 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .29645, .17897, 3.16828, .23679, .08533, + .03776, .17170, .25166, + .29999, .18025, 3.19355, .23978, .09043, + .04367, .17576, .25504, + .30409, .18171, 3.21540, .24317, .09631, + .05045, .18041, .25888, + .30761, .18293, 3.22950, .24602, .10138, + .05639, .18436, .26211, + .31070, .18397, 3.23640, .24843, .10576, + .06147, .18776, .26486, + .31447, .18520, 3.23877, .25126, .11105, + .06764, .19182, .26810, + .31789, .18628, 3.23626, .25373, .11583, + .07329, .19544, .27095, + .32093, .18720, 3.22786, .25580, .11998, + .07817, .19854, .27334 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .32385, .18806, 3.21560, .25768, .12393, + .08284, .20145, .27552, + .32661, .18885, 3.20105, .25938, .12765, + .08728, .20415, .27752, + .32907, .18951, 3.18240, .26074, .13084, + .09109, .20642, .27913, + .33135, .19011, 3.16450, .26199, .13384, + .09472, .20852, .28061, + .33348, .19063, 3.14191, .26298, .13652, + .09795, .21035, .28182, + .33556, .19114, 3.12002, .26396, .13917, + .10119, .21214, .28301, + .33738, .19154, 3.09548, .26464, .14138, + .10390, .21358, .28387, + .33910, .19191, 3.07260, .26528, .14349, + .10651, .21493, .28467 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .34071, .19223, 3.04715, .26576, .14540, + .10890, .21611, .28531, + .34227, .19253, 3.02164, .26618, .14723, + .11121, .21721, .28588, + .34369, .19279, 2.99645, .26650, .14888, + .11330, .21817, .28634, + .34498, .19299, 2.97127, .26669, .15031, + .11513, .21897, .28665, + .34627, .19320, 2.94618, .26689, .15176, + .11701, .21976, .28696 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .26018, .17046, 1.27594, .16290, .00000, + .00000, .08653, .17341, + .26552, .17272, 1.41540, .16465, .00000, + .00000, .08961, .17586, + .27327, .17595, 1.61125, .16756, .00006, + .00000, .09446, .17979, + .27877, .17819, 1.74096, .16988, .00404, + .00000, .09818, .18282, + .28443, .18045, 1.86504, .17243, .01075, + .00000, .10219, .18610, + .28912, .18226, 1.95940, .17474, .01497, + .00000, .10573, .18900, + .29354, .18395, 2.04587, .17697, .01958, + .00000, .10913, .19180, + .29812, .18567, 2.13098, .17937, .02448, + .00000, .11276, .19476 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .30194, .18706, 2.19538, .18144, .02843, + .00000, .11587, .19731, + .30561, .18839, 2.25682, .18345, .03259, + .00000, .11889, .19977, + .30837, .18935, 2.29729, .18500, .03548, + .00000, .12122, .20166, + .31417, .19135, 2.37713, .18827, .04198, + .00001, .12614, .20563, + .31896, .19295, 2.43258, .19102, .04751, + .00368, .13026, .20894, + .32403, .19458, 2.47370, .19388, .05330, + .01079, .13464, .21240, + .32906, .19612, 2.50654, .19667, .05906, + .01791, .13896, .21577, + .33339, .19739, 2.52791, .19900, .06406, + .02385, .14264, .21860 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .33756, .19857, 2.54246, .20117, .06892, + .02968, .14616, .22124, + .34084, .19946, 2.54874, .20283, .07273, + .03419, .14889, .22325, + .34460, .20042, 2.54966, .20462, .07706, + .03932, .15196, .22545, + .34778, .20120, 2.54660, .20607, .08075, + .04378, .15452, .22724, + .35054, .20182, 2.53935, .20724, .08390, + .04755, .15668, .22869, + .35384, .20251, 2.52549, .20852, .08767, + .05209, .15919, .23031, + .35679, .20309, 2.50919, .20958, .09103, + .05619, .16138, .23165, + .35935, .20353, 2.48979, .21036, .09391, + .05970, .16319, .23268 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .36176, .20390, 2.46776, .21100, .09660, + .06303, .16483, .23355, + .36401, .20422, 2.44457, .21153, .09912, + .06617, .16633, .23427, + .36594, .20442, 2.41935, .21183, .10123, + .06883, .16751, .23474, + .36773, .20460, 2.39562, .21209, .10320, + .07135, .16859, .23515, + .36934, .20468, 2.36883, .21215, .10492, + .07355, .16945, .23534, + .37090, .20476, 2.34299, .21220, .10662, + .07576, .17028, .23552, + .37221, .20475, 2.31596, .21208, .10799, + .07757, .17088, .23549, + .37343, .20474, 2.29087, .21196, .10929, + .07931, .17143, .23546 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .37453, .20468, 2.26412, .21171, .11044, + .08087, .17185, .23529, + .37558, .20459, 2.23766, .21143, .11153, + .08237, .17222, .23508, + .37651, .20448, 2.21204, .21111, .11249, + .08372, .17250, .23481, + .37730, .20434, 2.18704, .21072, .11330, + .08488, .17267, .23446, + .37811, .20420, 2.16220, .21033, .11412, + .08607, .17284, .23411 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .33173, .20861, 1.11938, .13627, .00000, + .00000, .07564, .15779, + .33731, .21035, 1.22095, .13712, .00000, + .00000, .07795, .15938, + .34527, .21274, 1.35883, .13856, .00005, + .00000, .08151, .16185, + .35082, .21432, 1.44631, .13970, .00324, + .00000, .08416, .16369, + .35642, .21586, 1.52652, .14094, .00856, + .00000, .08695, .16562, + .36094, .21703, 1.58466, .14205, .01182, + .00000, .08934, .16726, + .36514, .21808, 1.63629, .14310, .01533, + .00000, .09161, .16879, + .36944, .21910, 1.68507, .14419, .01901, + .00000, .09397, .17036 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .37292, .21987, 1.71963, .14510, .02192, + .00000, .09595, .17165, + .37624, .22059, 1.75189, .14598, .02495, + .00000, .09784, .17288, + .37868, .22105, 1.77117, .14662, .02702, + .00000, .09926, .17376, + .38370, .22196, 1.80673, .14793, .03162, + .00001, .10221, .17557, + .38773, .22262, 1.82701, .14898, .03546, + .00261, .10461, .17698, + .39188, .22317, 1.83411, .14994, .03938, + .00760, .10704, .17831, + .39580, .22358, 1.83453, .15079, .04320, + .01250, .10935, .17947, + .39904, .22381, 1.82920, .15139, .04645, + .01652, .11124, .18031 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .40206, .22392, 1.81928, .15187, .04953, + .02040, .11296, .18098, + .40433, .22392, 1.80740, .15214, .05190, + .02335, .11423, .18139, + .40681, .22380, 1.78889, .15232, .05453, + .02665, .11557, .18168, + .40882, .22362, 1.77037, .15238, .05674, + .02947, .11664, .18181, + .41045, .22337, 1.75086, .15232, .05857, + .03181, .11746, .18179, + .41228, .22296, 1.72367, .15211, .06071, + .03459, .11834, .18160, + .41381, .22251, 1.69661, .15182, .06257, + .03707, .11904, .18130, + .41500, .22198, 1.66915, .15142, .06412, + .03913, .11952, .18086 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .41602, .22139, 1.64065, .15092, .06552, + .04106, .11989, .18030, + .41690, .22077, 1.61232, .15038, .06680, + .04285, .12017, .17968, + .41749, .22010, 1.58401, .14974, .06783, + .04432, .12027, .17895, + .41801, .21946, 1.55781, .14913, .06878, + .04571, .12035, .17824, + .41832, .21871, 1.53010, .14840, .06955, + .04688, .12028, .17740, + .41861, .21799, 1.50358, .14768, .07031, + .04805, .12022, .17657, + .41867, .21723, 1.47734, .14690, .07087, + .04898, .12002, .17565, + .41872, .21652, 1.45312, .14617, .07140, + .04986, .11983, .17479 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .41864, .21574, 1.42821, .14536, .07183, + .05063, .11955, .17384, + .41851, .21497, 1.40392, .14454, .07222, + .05135, .11925, .17288, + .41832, .21420, 1.38083, .14374, .07255, + .05199, .11893, .17193, + .41805, .21344, 1.35879, .14293, .07279, + .05251, .11857, .17097, + .41777, .21267, 1.33700, .14212, .07303, + .05305, .11820, .17002 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .39575, .23690, 1.03576, .11288, .00000, + .00000, .06669, .14621, + .40087, .23788, 1.11208, .11327, .00000, + .00000, .06849, .14710, + .40802, .23911, 1.21196, .11395, .00005, + .00000, .07120, .14843, + .41285, .23984, 1.27225, .11449, .00273, + .00000, .07316, .14935, + .41763, .24046, 1.32467, .11507, .00717, + .00000, .07519, .15028, + .42137, .24081, 1.36031, .11555, .00983, + .00000, .07688, .15100, + .42478, .24108, 1.39060, .11600, .01266, + .00000, .07844, .15164, + .42817, .24127, 1.41749, .11644, .01558, + .00000, .08003, .15224 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .43082, .24130, 1.43438, .11678, .01786, + .00000, .08133, .15267, + .43332, .24131, 1.44960, .11710, .02021, + .00000, .08255, .15306, + .43506, .24121, 1.45666, .11729, .02179, + .00000, .08343, .15329, + .43856, .24092, 1.46719, .11765, .02526, + .00001, .08522, .15368, + .44123, .24056, 1.46816, .11789, .02809, + .00198, .08663, .15387, + .44378, .23994, 1.45736, .11799, .03094, + .00574, .08798, .15386, + .44597, .23916, 1.44130, .11795, .03366, + .00937, .08918, .15366, + .44762, .23833, 1.42294, .11779, .03591, + .01230, .09008, .15330 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .44899, .23738, 1.40158, .11752, .03802, + .01508, .09084, .15281, + .44987, .23650, 1.38160, .11721, .03960, + .01717, .09134, .15228, + .45063, .23533, 1.35496, .11673, .04131, + .01947, .09179, .15148, + .45111, .23424, 1.33037, .11623, .04272, + .02141, .09209, .15069, + .45133, .23317, 1.30643, .11569, .04387, + .02299, .09225, .14986, + .45136, .23172, 1.27498, .11491, .04517, + .02484, .09233, .14870, + .45119, .23030, 1.24499, .11412, .04627, + .02647, .09231, .14754, + .45078, .22890, 1.21601, .11330, .04714, + .02779, .09216, .14634 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .45019, .22745, 1.18684, .11242, .04791, + .02901, .09194, .14507, + .44950, .22599, 1.15848, .11153, .04859, + .03013, .09166, .14379, + .44862, .22454, 1.13110, .11060, .04910, + .03102, .09130, .14248, + .44778, .22318, 1.10599, .10973, .04956, + .03185, .09094, .14125, + .44669, .22174, 1.08025, .10878, .04989, + .03253, .09049, .13992, + .44562, .22034, 1.05575, .10786, .05022, + .03320, .09004, .13863, + .44440, .21894, 1.03213, .10692, .05042, + .03371, .08953, .13733, + .44325, .21763, 1.01045, .10605, .05060, + .03419, .08905, .13612 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .44195, .21626, .98856, .10512, .05072, + .03460, .08851, .13484, + .44064, .21492, .96740, .10421, .05081, + .03497, .08796, .13357, + .43932, .21362, .94750, .10333, .05086, + .03529, .08742, .13234, + .43797, .21236, .92875, .10246, .05087, + .03553, .08687, .13116, + .43662, .21110, .91029, .10160, .05088, + .03578, .08632, .12997 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45243, .25776, .98684, .09209, .00000, + .00000, .05873, .13590, + .45656, .25788, 1.04349, .09231, .00000, + .00000, .06017, .13616, + .46214, .25783, 1.11436, .09270, .00004, + .00000, .06228, .13648, + .46577, .25761, 1.15430, .09299, .00236, + .00000, .06377, .13665, + .46921, .25723, 1.18628, .09328, .00615, + .00000, .06525, .13675, + .47173, .25674, 1.20567, .09350, .00838, + .00000, .06645, .13673, + .47394, .25618, 1.22079, .09368, .01073, + .00000, .06753, .13667, + .47605, .25549, 1.23237, .09383, .01311, + .00000, .06861, .13654 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .47755, .25478, 1.23716, .09390, .01495, + .00000, .06944, .13632, + .47893, .25407, 1.24086, .09396, .01683, + .00000, .07023, .13610, + .47975, .25341, 1.23984, .09396, .01807, + .00000, .07076, .13584, + .48129, .25193, 1.23409, .09391, .02078, + .00001, .07182, .13520, + .48226, .25054, 1.22289, .09379, .02295, + .00156, .07260, .13454, + .48284, .24884, 1.20126, .09351, .02508, + .00449, .07327, .13361, + .48298, .24693, 1.17567, .09310, .02708, + .00729, .07378, .13249, + .48276, .24509, 1.15016, .09264, .02870, + .00951, .07409, .13136 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .48225, .24315, 1.12287, .09208, .03019, + .01159, .07428, .13011, + .48159, .24147, 1.09898, .09154, .03127, + .01313, .07434, .12900, + .48047, .23934, 1.06880, .09081, .03243, + .01480, .07429, .12754, + .47930, .23743, 1.04187, .09012, .03335, + .01619, .07417, .12619, + .47802, .23560, 1.01660, .08942, .03409, + .01731, .07396, .12490, + .47616, .23324, .98435, .08847, .03489, + .01860, .07362, .12318, + .47423, .23099, .95431, .08754, .03554, + .01971, .07323, .12153, + .47217, .22883, .92604, .08662, .03603, + .02061, .07277, .11994 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .46998, .22664, .89812, .08566, .03645, + .02141, .07225, .11829, + .46774, .22450, .87137, .08471, .03679, + .02213, .07172, .11667, + .46540, .22240, .84609, .08375, .03701, + .02269, .07113, .11508, + .46319, .22045, .82307, .08285, .03721, + .02321, .07058, .11361, + .46075, .21843, .79994, .08191, .03731, + .02362, .06996, .11207, + .45839, .21647, .77802, .08099, .03742, + .02402, .06936, .11059, + .45593, .21456, .75726, .08009, .03743, + .02431, .06872, .10913, + .45364, .21278, .73828, .07925, .03745, + .02458, .06814, .10777 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .45120, .21095, .71937, .07837, .03741, + .02479, .06751, .10639, + .44879, .20915, .70120, .07750, .03736, + .02498, .06688, .10503, + .44643, .20743, .68426, .07667, .03729, + .02513, .06627, .10373, + .44412, .20578, .66844, .07587, .03719, + .02524, .06567, .10248, + .44180, .20414, .65291, .07507, .03709, + .02536, .06508, .10125 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .51293, .27559, .94714, .07016, .00000, + .00000, .04979, .12286, + .51531, .27458, .98354, .07042, .00000, + .00000, .05091, .12242, + .51822, .27285, 1.02524, .07081, .00004, + .00000, .05248, .12170, + .51985, .27142, 1.04521, .07107, .00199, + .00000, .05353, .12109, + .52115, .26981, 1.05756, .07129, .00516, + .00000, .05456, .12037, + .52178, .26826, 1.06166, .07143, .00698, + .00000, .05533, .11966, + .52217, .26670, 1.06282, .07153, .00888, + .00000, .05600, .11894, + .52233, .26497, 1.06060, .07159, .01077, + .00000, .05663, .11812 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .52212, .26336, 1.05468, .07158, .01220, + .00000, .05710, .11731, + .52185, .26181, 1.04838, .07156, .01366, + .00000, .05753, .11652, + .52136, .26048, 1.04050, .07148, .01460, + .00000, .05777, .11583, + .52012, .25761, 1.02129, .07128, .01663, + .00001, .05823, .11433, + .51870, .25506, 1.00044, .07102, .01822, + .00119, .05852, .11296, + .51661, .25210, .97076, .07062, .01974, + .00340, .05866, .11128, + .51403, .24891, .93852, .07009, .02113, + .00548, .05867, .10946, + .51138, .24595, .90845, .06952, .02223, + .00710, .05855, .10774 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .50846, .24292, .87776, .06889, .02320, + .00860, .05834, .10594, + .50579, .24038, .85199, .06832, .02390, + .00968, .05809, .10440, + .50231, .23724, .82061, .06754, .02460, + .01084, .05770, .10249, + .49908, .23445, .79332, .06683, .02516, + .01179, .05730, .10080, + .49592, .23187, .76840, .06615, .02557, + .01254, .05687, .09920, + .49173, .22858, .73733, .06523, .02599, + .01339, .05626, .09716, + .48768, .22548, .70895, .06434, .02632, + .01411, .05566, .09524, + .48371, .22254, .68283, .06346, .02654, + .01467, .05502, .09344 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .47962, .21961, .65749, .06256, .02669, + .01516, .05436, .09164, + .47555, .21678, .63355, .06168, .02680, + .01559, .05369, .08988, + .47154, .21404, .61134, .06081, .02684, + .01591, .05302, .08820, + .46781, .21151, .59126, .06000, .02687, + .01621, .05239, .08665, + .46383, .20894, .57144, .05917, .02683, + .01642, .05172, .08506, + .45998, .20648, .55277, .05837, .02678, + .01663, .05107, .08353, + .45619, .20407, .53536, .05757, .02669, + .01677, .05041, .08207, + .45267, .20185, .51953, .05683, .02661, + .01690, .04980, .08072 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .44899, .19958, .50393, .05607, .02648, + .01698, .04917, .07936, + .44537, .19738, .48904, .05533, .02635, + .01705, .04855, .07803, + .44190, .19528, .47527, .05462, .02621, + .01710, .04795, .07678, + .43855, .19327, .46254, .05394, .02606, + .01713, .04737, .07560, + .43522, .19128, .45009, .05326, .02591, + .01715, .04680, .07443 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .56200, .28600, .91473, .05307, .00000, + .00000, .04182, .10876, + .56225, .28387, .93414, .05350, .00000, + .00000, .04271, .10777, + .56199, .28052, .95209, .05408, .00004, + .00000, .04390, .10626, + .56129, .27795, .95627, .05442, .00169, + .00000, .04466, .10510, + .56013, .27515, .95353, .05473, .00436, + .00000, .04536, .10381, + .55866, .27259, .94615, .05491, .00586, + .00000, .04586, .10262, + .55704, .27010, .93707, .05504, .00740, + .00000, .04627, .10145, + .55508, .26741, .92499, .05512, .00892, + .00000, .04662, .10018 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .55304, .26498, .91165, .05512, .01005, + .00000, .04684, .09901, + .55103, .26266, .89855, .05512, .01119, + .00000, .04703, .09789, + .54917, .26074, .88616, .05504, .01191, + .00000, .04711, .09696, + .54502, .25665, .85841, .05484, .01344, + .00000, .04721, .09496, + .54114, .25309, .83182, .05461, .01463, + .00092, .04720, .09317, + .53640, .24903, .79787, .05422, .01573, + .00262, .04705, .09111, + .53110, .24475, .76259, .05372, .01670, + .00420, .04677, .08894, + .52606, .24086, .73083, .05319, .01744, + .00540, .04643, .08695 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .52078, .23694, .69934, .05259, .01808, + .00649, .04602, .08494, + .51623, .23368, .67357, .05205, .01852, + .00727, .04561, .08326, + .51047, .22973, .64293, .05137, .01895, + .00809, .04506, .08120, + .50531, .22626, .61675, .05073, .01927, + .00876, .04454, .07939, + .50047, .22306, .59331, .05009, .01949, + .00927, .04402, .07775, + .49419, .21902, .56457, .04927, .01969, + .00984, .04332, .07567, + .48822, .21527, .53872, .04848, .01983, + .01031, .04264, .07374, + .48251, .21178, .51534, .04772, .01989, + .01066, .04198, .07193 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .47674, .20830, .49294, .04693, .01991, + .01097, .04130, .07015, + .47111, .20494, .47199, .04616, .01990, + .01123, .04062, .06846, + .46563, .20177, .45284, .04542, .01984, + .01141, .03994, .06686, + .46054, .19885, .43565, .04473, .01978, + .01158, .03932, .06538, + .45530, .19589, .41890, .04402, .01967, + .01169, .03867, .06390, + .45025, .19304, .40321, .04334, .01956, + .01179, .03805, .06247, + .44533, .19032, .38876, .04266, .01942, + .01185, .03744, .06113, + .44076, .18780, .37568, .04204, .01930, + .01190, .03688, .05990 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .43608, .18525, .36293, .04140, .01915, + .01192, .03629, .05867, + .43150, .18276, .35083, .04078, .01899, + .01193, .03572, .05748, + .42713, .18042, .33970, .04018, .01883, + .01193, .03518, .05636, + .42296, .17820, .32948, .03962, .01867, + .01192, .03467, .05530, + .41881, .17600, .31951, .03906, .01852, + .01190, .03417, .05426 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .59994, .29039, .88103, .04070, .00000, + .00000, .03478, .09351, + .59784, .28722, .88616, .04130, .00000, + .00000, .03548, .09218, + .59413, .28240, .88472, .04207, .00003, + .00000, .03639, .09017, + .59093, .27880, .87642, .04253, .00144, + .00000, .03693, .08867, + .58717, .27496, .86208, .04295, .00369, + .00000, .03740, .08704, + .58352, .27150, .84613, .04319, .00493, + .00000, .03770, .08559, + .57985, .26818, .82961, .04337, .00619, + .00000, .03793, .08419, + .57573, .26465, .81060, .04349, .00741, + .00000, .03809, .08270 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .57185, .26152, .79224, .04352, .00830, + .00000, .03815, .08137, + .56809, .25854, .77465, .04354, .00920, + .00000, .03819, .08009, + .56487, .25610, .75940, .04348, .00975, + .00000, .03816, .07905, + .55791, .25098, .72654, .04333, .01092, + .00000, .03805, .07684, + .55166, .24659, .69687, .04314, .01180, + .00072, .03787, .07492, + .54436, .24164, .66123, .04278, .01260, + .00204, .03755, .07276, + .53652, .23650, .62519, .04233, .01328, + .00324, .03713, .07053, + .52923, .23188, .59358, .04186, .01378, + .00414, .03668, .06852 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .52178, .22727, .56288, .04133, .01420, + .00495, .03617, .06650, + .51552, .22345, .53823, .04085, .01447, + .00552, .03572, .06484, + .50779, .21885, .50943, .04023, .01472, + .00611, .03511, .06286, + .50094, .21485, .48517, .03965, .01489, + .00658, .03455, .06114, + .49458, .21121, .46374, .03909, .01500, + .00693, .03403, .05958, + .48646, .20666, .43787, .03837, .01507, + .00732, .03334, .05762, + .47885, .20246, .41490, .03769, .01510, + .00763, .03267, .05583, + .47167, .19855, .39437, .03702, .01507, + .00786, .03202, .05419 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .46450, .19471, .37493, .03634, .01502, + .00805, .03137, .05259, + .45755, .19102, .35695, .03567, .01495, + .00820, .03074, .05105, + .45092, .18752, .34066, .03501, .01484, + .00831, .03013, .04964, + .44479, .18431, .32611, .03441, .01474, + .00840, .02956, .04835, + .43853, .18111, .31212, .03380, .01461, + .00845, .02897, .04706, + .43250, .17804, .29907, .03321, .01448, + .00849, .02841, .04583, + .42671, .17511, .28718, .03264, .01433, + .00850, .02787, .04467, + .42135, .17240, .27645, .03210, .01419, + .00851, .02738, .04361 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .41588, .16969, .26609, .03157, .01404, + .00850, .02687, .04256, + .41054, .16706, .25631, .03105, .01388, + .00849, .02637, .04155, + .40549, .16459, .24735, .03056, .01373, + .00847, .02590, .04061, + .40071, .16225, .23916, .03008, .01358, + .00843, .02547, .03973, + .39596, .15994, .23121, .02961, .01343, + .00840, .02503, .03886 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .62725, .28984, .84226, .03240, .00000, + .00000, .02858, .07769, + .62271, .28575, .83554, .03309, .00000, + .00000, .02916, .07620, + .61547, .27959, .81853, .03396, .00003, + .00000, .02988, .07399, + .60977, .27505, .80056, .03446, .00122, + .00000, .03028, .07237, + .60347, .27027, .77755, .03490, .00311, + .00000, .03059, .07065, + .59766, .26606, .75542, .03516, .00413, + .00000, .03075, .06914, + .59196, .26204, .73370, .03535, .00516, + .00000, .03086, .06770, + .58575, .25780, .71002, .03549, .00614, + .00000, .03090, .06616 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .58011, .25408, .68847, .03552, .00684, + .00000, .03088, .06482, + .57470, .25054, .66815, .03554, .00755, + .00000, .03084, .06354, + .57018, .24772, .65132, .03549, .00797, + .00000, .03075, .06250, + .56056, .24177, .61587, .03535, .00886, + .00000, .03052, .06032, + .55216, .23668, .58505, .03513, .00951, + .00056, .03025, .05850, + .54254, .23103, .54941, .03480, .01008, + .00159, .02985, .05645, + .53241, .22521, .51419, .03436, .01056, + .00251, .02938, .05434, + .52316, .22002, .48388, .03391, .01090, + .00319, .02890, .05248 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .51382, .21488, .45492, .03341, .01116, + .00379, .02838, .05064, + .50603, .21069, .43204, .03298, .01133, + .00421, .02791, .04912, + .49660, .20563, .40569, .03238, .01146, + .00463, .02732, .04737, + .48833, .20125, .38376, .03184, .01153, + .00496, .02678, .04585, + .48069, .19732, .36462, .03135, .01156, + .00521, .02629, .04446, + .47106, .19241, .34177, .03070, .01156, + .00547, .02564, .04276, + .46213, .18790, .32169, .03007, .01153, + .00568, .02502, .04122, + .45378, .18374, .30394, .02946, .01146, + .00582, .02444, .03982 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .44551, .17965, .28730, .02885, .01137, + .00594, .02385, .03846, + .43752, .17574, .27201, .02826, .01127, + .00603, .02328, .03717, + .42998, .17208, .25834, .02768, .01114, + .00608, .02275, .03598, + .42303, .16873, .24620, .02715, .01103, + .00613, .02226, .03489, + .41599, .16539, .23464, .02661, .01089, + .00614, .02175, .03383, + .40923, .16220, .22390, .02610, .01076, + .00615, .02126, .03282, + .40277, .15919, .21419, .02560, .01062, + .00615, .02080, .03188, + .39681, .15641, .20546, .02515, .01049, + .00614, .02037, .03102 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .39081, .15362, .19707, .02468, .01034, + .00611, .01995, .03017, + .38499, .15093, .18919, .02422, .01020, + .00609, .01953, .02935, + .37948, .14840, .18201, .02380, .01007, + .00605, .01914, .02859, + .37427, .14604, .17551, .02339, .00993, + .00602, .01878, .02789, + .36911, .14371, .16920, .02299, .00979, + .00598, .01842, .02719 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .64447, .28526, .79733, .02725, .00000, + .00000, .02326, .06198, + .63756, .28032, .78107, .02792, .00000, + .00000, .02374, .06055, + .62687, .27301, .75194, .02875, .00003, + .00000, .02430, .05843, + .61876, .26769, .72676, .02923, .00103, + .00000, .02458, .05688, + .61002, .26212, .69756, .02960, .00261, + .00000, .02480, .05525, + .60217, .25727, .67129, .02982, .00344, + .00000, .02489, .05382, + .59458, .25268, .64625, .02996, .00428, + .00000, .02493, .05248, + .58644, .24786, .61976, .03005, .00506, + .00000, .02490, .05106 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .57918, .24367, .59646, .03004, .00562, + .00000, .02482, .04983, + .57226, .23970, .57474, .03002, .00616, + .00000, .02474, .04866, + .56660, .23654, .55729, .02994, .00649, + .00000, .02461, .04773, + .55462, .22993, .52113, .02973, .00716, + .00000, .02432, .04580, + .54428, .22434, .49049, .02950, .00765, + .00044, .02401, .04416, + .53262, .21818, .45618, .02913, .00805, + .00124, .02360, .04234, + .52050, .21189, .42280, .02869, .00838, + .00194, .02312, .04051, + .50957, .20630, .39454, .02823, .00860, + .00246, .02265, .03890 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .49866, .20079, .36793, .02773, .00876, + .00290, .02215, .03734, + .48967, .19630, .34717, .02727, .00885, + .00321, .02171, .03608, + .47879, .19100, .32353, .02672, .00891, + .00351, .02117, .03458, + .46932, .18642, .30406, .02622, .00892, + .00375, .02068, .03329, + .46072, .18228, .28727, .02572, .00891, + .00392, .02024, .03216, + .44993, .17715, .26740, .02510, .00886, + .00409, .01965, .03078, + .43997, .17246, .25013, .02451, .00880, + .00423, .01910, .02953, + .43071, .16818, .23505, .02395, .00871, + .00432, .01859, .02838 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .42160, .16400, .22099, .02340, .00861, + .00439, .01809, .02728, + .41285, .16002, .20815, .02287, .00850, + .00444, .01761, .02624, + .40464, .15630, .19679, .02234, .00838, + .00446, .01715, .02530, + .39711, .15290, .18675, .02185, .00827, + .00448, .01673, .02446, + .38953, .14953, .17726, .02138, .00814, + .00448, .01629, .02362, + .38228, .14633, .16847, .02092, .00801, + .00448, .01588, .02283, + .37541, .14330, .16060, .02047, .00788, + .00446, .01549, .02210, + .36907, .14051, .15355, .02006, .00777, + .00444, .01514, .02144 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .36271, .13773, .14682, .01965, .00764, + .00441, .01479, .02078, + .35656, .13505, .14051, .01925, .00752, + .00438, .01446, .02015, + .35077, .13254, .13481, .01888, .00740, + .00435, .01414, .01957, + .34532, .13020, .12967, .01852, .00728, + .00431, .01383, .01904, + .33994, .12788, .12470, .01816, .00717, + .00427, .01353, .01852 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .65239, .27732, .74652, .02422, .00000, + .00000, .01874, .04726, + .64318, .27171, .72294, .02481, .00000, + .00000, .01912, .04600, + .62924, .26348, .68490, .02550, .00003, + .00000, .01957, .04413, + .61887, .25753, .65472, .02588, .00086, + .00000, .01978, .04277, + .60784, .25136, .62153, .02617, .00217, + .00000, .01991, .04134, + .59814, .24600, .59276, .02627, .00285, + .00000, .01994, .04015, + .58885, .24096, .56592, .02632, .00352, + .00000, .01993, .03901, + .57898, .23570, .53813, .02632, .00415, + .00000, .01986, .03780 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .57027, .23118, .51426, .02626, .00458, + .00000, .01975, .03674, + .56199, .22692, .49223, .02619, .00501, + .00000, .01964, .03574, + .55533, .22351, .47487, .02606, .00526, + .00000, .01950, .03497, + .54133, .21642, .43939, .02577, .00577, + .00000, .01919, .03336, + .52934, .21048, .40995, .02547, .00612, + .00034, .01888, .03201, + .51598, .20397, .37776, .02504, .00641, + .00096, .01849, .03052, + .50223, .19738, .34692, .02454, .00663, + .00150, .01804, .02903, + .48997, .19155, .32116, .02404, .00676, + .00189, .01760, .02774 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .47780, .18583, .29719, .02351, .00686, + .00222, .01714, .02649, + .46780, .18122, .27870, .02307, .00690, + .00244, .01676, .02547, + .45584, .17574, .25789, .02252, .00691, + .00266, .01626, .02431, + .44550, .17106, .24091, .02202, .00689, + .00283, .01583, .02331, + .43614, .16687, .22640, .02154, .00686, + .00295, .01545, .02241, + .42449, .16167, .20937, .02093, .00679, + .00307, .01495, .02132, + .41381, .15694, .19468, .02037, .00671, + .00316, .01448, .02034, + .40393, .15262, .18200, .01985, .00662, + .00321, .01406, .01947 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .39428, .14842, .17027, .01932, .00652, + .00325, .01363, .01865, + .38507, .14443, .15963, .01880, .00641, + .00327, .01321, .01789, + .37643, .14074, .15027, .01834, .00630, + .00328, .01283, .01716, + .36852, .13738, .14204, .01791, .00620, + .00329, .01249, .01651, + .36066, .13405, .13431, .01745, .00608, + .00327, .01213, .01591, + .35315, .13087, .12720, .01701, .00597, + .00326, .01180, .01534, + .34604, .12791, .12087, .01661, .00586, + .00324, .01148, .01478, + .33949, .12520, .11522, .01625, .00576, + .00322, .01120, .01427 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .33296, .12249, .10986, .01588, .00565, + .00319, .01091, .01379, + .32667, .11988, .10485, .01552, .00554, + .00316, .01063, .01334, + .32076, .11744, .10034, .01518, .00544, + .00313, .01038, .01292, + .31522, .11517, .09628, .01486, .00535, + .00310, .01013, .01254, + .30974, .11293, .09237, .01454, .00525, + .00307, .00990, .01216 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .65151, .26704, .69116, .02273, .00000, + .00000, .01475, .03395, + .64020, .26087, .66219, .02314, .00000, + .00000, .01509, .03297, + .62335, .25186, .61801, .02358, .00002, + .00000, .01545, .03152, + .61099, .24539, .58474, .02377, .00072, + .00000, .01562, .03046, + .59796, .23873, .54938, .02389, .00180, + .00000, .01573, .02933, + .58663, .23303, .51953, .02386, .00235, + .00000, .01574, .02839, + .57587, .22766, .49210, .02378, .00290, + .00000, .01571, .02750, + .56453, .22207, .46415, .02365, .00339, + .00000, .01563, .02657 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .55463, .21728, .44060, .02348, .00373, + .00000, .01551, .02576, + .54526, .21277, .41905, .02332, .00406, + .00000, .01540, .02499, + .53774, .20923, .40233, .02314, .00425, + .00000, .01527, .02439, + .52205, .20187, .36857, .02274, .00463, + .00000, .01497, .02315, + .50876, .19570, .34107, .02236, .00488, + .00027, .01469, .02209, + .49405, .18900, .31149, .02186, .00508, + .00075, .01434, .02095, + .47908, .18219, .28357, .02128, .00523, + .00116, .01392, .01986, + .46578, .17624, .26053, .02073, .00531, + .00145, .01353, .01890 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .45266, .17046, .23933, .02018, .00535, + .00170, .01313, .01796, + .44197, .16580, .22313, .01972, .00536, + .00186, .01280, .01720, + .42926, .16031, .20507, .01915, .00534, + .00202, .01239, .01632, + .41832, .15561, .19046, .01865, .00531, + .00214, .01203, .01559, + .40848, .15141, .17809, .01818, .00526, + .00222, .01169, .01493, + .39627, .14626, .16369, .01758, .00519, + .00230, .01128, .01414, + .38512, .14159, .15137, .01703, .00511, + .00235, .01089, .01344, + .37488, .13734, .14078, .01653, .00502, + .00238, .01053, .01281 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .36492, .13321, .13108, .01604, .00492, + .00240, .01018, .01221, + .35546, .12931, .12235, .01557, .00482, + .00242, .00985, .01164, + .34664, .12571, .11473, .01511, .00473, + .00241, .00954, .01113, + .33860, .12244, .10805, .01469, .00464, + .00241, .00926, .01068, + .33059, .11922, .10182, .01429, .00454, + .00239, .00897, .01024, + .32297, .11616, .09610, .01392, .00444, + .00238, .00869, .00983, + .31580, .11330, .09104, .01356, .00435, + .00236, .00845, .00945, + .30921, .11068, .08654, .01324, .00426, + .00234, .00823, .00911 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30267, .10809, .08229, .01289, .00417, + .00231, .00800, .00878, + .29637, .10561, .07834, .01255, .00408, + .00228, .00778, .00847, + .29048, .10329, .07479, .01225, .00400, + .00226, .00758, .00818, + .28497, .10114, .07161, .01198, .00392, + .00223, .00739, .00790, + .27953, .09902, .06854, .01171, .00385, + .00220, .00720, .00763 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .64320, .25424, .63211, .02141, .00000, + .00000, .01164, .02288, + .63000, .24766, .59964, .02163, .00000, + .00000, .01192, .02221, + .61054, .23812, .55184, .02181, .00002, + .00000, .01221, .02119, + .59641, .23130, .51707, .02183, .00059, + .00000, .01235, .02043, + .58168, .22430, .48105, .02177, .00147, + .00000, .01241, .01964, + .56896, .21838, .45129, .02163, .00191, + .00000, .01239, .01896, + .55695, .21282, .42429, .02145, .00235, + .00000, .01234, .01832, + .54439, .20702, .39715, .02122, .00273, + .00000, .01226, .01766 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .53348, .20211, .37459, .02097, .00300, + .00000, .01214, .01707, + .52319, .19751, .35409, .02074, .00325, + .00000, .01202, .01652, + .51503, .19388, .33838, .02050, .00339, + .00000, .01191, .01608, + .49802, .18637, .30700, .02000, .00367, + .00000, .01164, .01519, + .48367, .18014, .28185, .01956, .00385, + .00021, .01138, .01446, + .46802, .17335, .25526, .01899, .00399, + .00057, .01107, .01365, + .45211, .16656, .23044, .01837, .00408, + .00089, .01069, .01289, + .43807, .16063, .21017, .01781, .00412, + .00110, .01036, .01221 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .42430, .15490, .19170, .01725, .00414, + .00128, .01003, .01154, + .41315, .15030, .17773, .01679, .00413, + .00140, .00974, .01100, + .39998, .14488, .16229, .01622, .00410, + .00151, .00939, .01039, + .38869, .14026, .14990, .01572, .00405, + .00160, .00909, .00990, + .37856, .13615, .13949, .01527, .00401, + .00165, .00880, .00947, + .36608, .13112, .12746, .01471, .00393, + .00170, .00846, .00892, + .35474, .12658, .11723, .01420, .00386, + .00174, .00815, .00842, + .34441, .12247, .10854, .01370, .00378, + .00176, .00785, .00799 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33435, .11850, .10061, .01324, .00369, + .00177, .00757, .00759, + .32480, .11476, .09350, .01281, .00361, + .00177, .00730, .00722, + .31596, .11132, .08735, .01240, .00352, + .00176, .00705, .00686, + .30792, .10821, .08198, .01203, .00344, + .00175, .00682, .00655, + .29996, .10513, .07701, .01166, .00336, + .00174, .00660, .00626, + .29241, .10221, .07246, .01130, .00328, + .00172, .00639, .00600, + .28535, .09950, .06846, .01096, .00321, + .00170, .00619, .00575, + .27888, .09702, .06490, .01065, .00314, + .00168, .00601, .00553 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27246, .09458, .06156, .01036, .00306, + .00166, .00583, .00531, + .26628, .09224, .05846, .01009, .00299, + .00164, .00566, .00509, + .26052, .09007, .05569, .00983, .00293, + .00162, .00550, .00490, + .25514, .08804, .05323, .00959, .00286, + .00159, .00535, .00473, + .24984, .08605, .05086, .00935, .00280, + .00157, .00520, .00456 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .62789, .24002, .57138, .02029, .00000, + .00000, .00903, .01390, + .61309, .23314, .53698, .02032, .00000, + .00000, .00927, .01352, + .59144, .22323, .48765, .02024, .00002, + .00000, .00951, .01294, + .57585, .21621, .45274, .02009, .00048, + .00000, .00961, .01249, + .55971, .20904, .41730, .01987, .00119, + .00000, .00966, .01200, + .54594, .20294, .38847, .01959, .00155, + .00000, .00963, .01160, + .53297, .19727, .36261, .01931, .00189, + .00000, .00959, .01120, + .51944, .19143, .33691, .01899, .00219, + .00000, .00952, .01076 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .50779, .18645, .31582, .01866, .00239, + .00000, .00941, .01041, + .49683, .18179, .29679, .01835, .00258, + .00000, .00929, .01008, + .48817, .17815, .28238, .01808, .00268, + .00000, .00918, .00981, + .47023, .17065, .25384, .01751, .00289, + .00000, .00895, .00924, + .45523, .16443, .23128, .01698, .00302, + .00016, .00873, .00877, + .43887, .15773, .20778, .01638, .00311, + .00044, .00843, .00828, + .42238, .15106, .18604, .01577, .00316, + .00067, .00813, .00776, + .40792, .14525, .16851, .01520, .00318, + .00084, .00785, .00732 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39384, .13962, .15269, .01464, .00318, + .00097, .00758, .00690, + .38250, .13511, .14079, .01418, .00316, + .00105, .00735, .00655, + .36910, .12987, .12777, .01364, .00312, + .00113, .00707, .00615, + .35768, .12541, .11740, .01317, .00308, + .00119, .00682, .00583, + .34754, .12144, .10874, .01271, .00303, + .00122, .00658, .00556, + .33502, .11662, .09880, .01218, .00296, + .00126, .00630, .00521, + .32368, .11229, .09043, .01172, .00289, + .00128, .00605, .00490, + .31337, .10838, .08335, .01127, .00283, + .00129, .00581, .00464 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30341, .10461, .07693, .01085, .00275, + .00129, .00559, .00439, + .29400, .10107, .07121, .01046, .00268, + .00129, .00538, .00416, + .28536, .09781, .06630, .01008, .00261, + .00128, .00518, .00395, + .27751, .09486, .06203, .00974, .00255, + .00127, .00500, .00376, + .26975, .09197, .05809, .00941, .00248, + .00126, .00482, .00358, + .26240, .08925, .05449, .00910, .00242, + .00124, .00464, .00341, + .25553, .08671, .05134, .00881, .00235, + .00123, .00449, .00326, + .24925, .08440, .04856, .00855, .00230, + .00121, .00436, .00313 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24304, .08214, .04595, .00829, .00224, + .00119, .00422, .00300, + .23709, .07997, .04355, .00803, .00218, + .00117, .00408, .00288, + .23155, .07796, .04140, .00780, .00213, + .00116, .00396, .00276, + .22641, .07609, .03948, .00759, .00208, + .00114, .00384, .00264, + .22137, .07425, .03765, .00738, .00203, + .00112, .00373, .00253 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .60671, .22447, .51022, .01884, .00000, + .00000, .00694, .00720, + .59057, .21746, .47528, .01872, .00000, + .00000, .00715, .00706, + .56714, .20739, .42621, .01843, .00002, + .00000, .00734, .00684, + .55041, .20029, .39222, .01815, .00039, + .00000, .00741, .00666, + .53321, .19306, .35832, .01781, .00096, + .00000, .00743, .00644, + .51860, .18694, .33109, .01744, .00124, + .00000, .00742, .00623, + .50491, .18127, .30692, .01708, .00150, + .00000, .00738, .00605, + .49068, .17543, .28316, .01669, .00173, + .00000, .00729, .00586 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .47852, .17051, .26388, .01632, .00188, + .00000, .00720, .00567, + .46712, .16591, .24660, .01598, .00203, + .00000, .00711, .00547, + .45814, .16232, .23361, .01568, .00210, + .00000, .00703, .00533, + .43963, .15494, .20814, .01506, .00225, + .00000, .00682, .00503, + .42425, .14885, .18826, .01451, .00234, + .00012, .00662, .00477, + .40754, .14232, .16782, .01394, .00240, + .00033, .00640, .00445, + .39080, .13581, .14909, .01332, .00243, + .00051, .00614, .00418, + .37620, .13020, .13412, .01278, .00243, + .00063, .00591, .00395 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36204, .12479, .12073, .01225, .00242, + .00072, .00568, .00372, + .35071, .12048, .11076, .01179, .00239, + .00078, .00549, .00352, + .33739, .11546, .09991, .01127, .00236, + .00084, .00525, .00330, + .32606, .11122, .09134, .01083, .00232, + .00088, .00504, .00312, + .31601, .10747, .08422, .01043, .00227, + .00090, .00486, .00295, + .30369, .10290, .07613, .00995, .00221, + .00092, .00465, .00275, + .29259, .09881, .06935, .00953, .00216, + .00094, .00446, .00258, + .28254, .09512, .06365, .00912, .00210, + .00094, .00427, .00243 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27286, .09159, .05852, .00874, .00204, + .00094, .00409, .00230, + .26375, .08828, .05397, .00839, .00198, + .00093, .00391, .00216, + .25537, .08525, .05007, .00806, .00192, + .00093, .00376, .00204, + .24778, .08251, .04670, .00777, .00187, + .00092, .00362, .00193, + .24034, .07984, .04361, .00747, .00182, + .00090, .00349, .00184, + .23331, .07732, .04081, .00719, .00177, + .00089, .00336, .00176, + .22676, .07498, .03836, .00695, .00172, + .00088, .00324, .00167, + .22078, .07285, .03619, .00672, .00167, + .00087, .00313, .00160 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21487, .07076, .03418, .00650, .00163, + .00085, .00303, .00152, + .20922, .06878, .03232, .00629, .00158, + .00084, .00292, .00146, + .20398, .06693, .03067, .00610, .00154, + .00082, .00283, .00140, + .19913, .06522, .02921, .00591, .00150, + .00081, .00275, .00133, + .19437, .06355, .02781, .00574, .00147, + .00079, .00266, .00128 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .58035, .20815, .45003, .01706, .00000, + .00000, .00530, .00246, + .56321, .20109, .41567, .01681, .00000, + .00000, .00546, .00254, + .53851, .19098, .36828, .01635, .00001, + .00000, .00563, .00262, + .52099, .18389, .33607, .01597, .00031, + .00000, .00569, .00264, + .50303, .17672, .30439, .01554, .00076, + .00000, .00570, .00263, + .48783, .17070, .27928, .01515, .00098, + .00000, .00566, .00261, + .47368, .16513, .25715, .01476, .00118, + .00000, .00562, .00256, + .45907, .15942, .23557, .01434, .00136, + .00000, .00557, .00248 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44663, .15459, .21829, .01396, .00147, + .00000, .00549, .00242, + .43500, .15009, .20291, .01360, .00158, + .00000, .00541, .00237, + .42588, .14659, .19142, .01330, .00163, + .00000, .00532, .00233, + .40715, .13943, .16907, .01267, .00174, + .00000, .00514, .00223, + .39166, .13356, .15183, .01214, .00180, + .00009, .00498, .00212, + .37488, .12730, .13428, .01158, .00183, + .00025, .00479, .00201, + .35824, .12108, .11843, .01097, .00185, + .00038, .00459, .00188, + .34375, .11572, .10584, .01047, .00184, + .00047, .00440, .00177 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32975, .11058, .09466, .01000, .00182, + .00054, .00421, .00166, + .31855, .10651, .08641, .00960, .00180, + .00058, .00406, .00158, + .30555, .10177, .07751, .00910, .00176, + .00062, .00388, .00149, + .29453, .09777, .07051, .00869, .00173, + .00064, .00373, .00140, + .28473, .09427, .06475, .00835, .00169, + .00066, .00359, .00132, + .27280, .09000, .05823, .00793, .00164, + .00067, .00341, .00123, + .26210, .08619, .05280, .00755, .00159, + .00068, .00324, .00115, + .25244, .08278, .04828, .00721, .00154, + .00068, .00310, .00108 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24315, .07952, .04422, .00689, .00149, + .00068, .00297, .00101, + .23443, .07646, .04063, .00659, .00145, + .00067, .00284, .00095, + .22644, .07367, .03758, .00632, .00140, + .00066, .00272, .00089, + .21923, .07115, .03495, .00608, .00136, + .00066, .00262, .00084, + .21218, .06871, .03255, .00583, .00132, + .00065, .00251, .00080, + .20553, .06641, .03037, .00560, .00128, + .00064, .00241, .00077, + .19937, .06428, .02849, .00539, .00124, + .00062, .00233, .00073, + .19376, .06234, .02683, .00520, .00120, + .00061, .00225, .00069 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18824, .06045, .02528, .00500, .00117, + .00060, .00217, .00065, + .18298, .05866, .02386, .00482, .00114, + .00059, .00209, .00062, + .17809, .05700, .02260, .00466, .00111, + .00058, .00202, .00059, + .17357, .05546, .02148, .00451, .00108, + .00057, .00195, .00056, + .16913, .05395, .02042, .00436, .00105, + .00056, .00189, .00054 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .54966, .19157, .39221, .01515, .00000, + .00000, .00393, -.00067, + .53184, .18455, .35930, .01480, .00000, + .00000, .00407, -.00042, + .50630, .17456, .31462, .01425, .00001, + .00000, .00421, -.00014, + .48829, .16760, .28475, .01382, .00024, + .00000, .00426, .00001, + .46992, .16057, .25575, .01335, .00060, + .00000, .00429, .00014, + .45452, .15469, .23304, .01290, .00076, + .00000, .00425, .00025, + .44019, .14928, .21321, .01250, .00092, + .00000, .00421, .00031, + .42541, .14377, .19405, .01210, .00106, + .00000, .00416, .00034 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .41290, .13910, .17880, .01172, .00114, + .00000, .00409, .00039, + .40125, .13476, .16529, .01136, .00122, + .00000, .00402, .00043, + .39213, .13140, .15533, .01107, .00126, + .00000, .00396, .00043, + .37345, .12456, .13608, .01048, .00133, + .00000, .00383, .00045, + .35808, .11897, .12134, .00999, .00137, + .00007, .00369, .00047, + .34159, .11300, .10654, .00946, .00139, + .00018, .00354, .00046, + .32524, .10714, .09327, .00894, .00139, + .00028, .00337, .00044, + .31114, .10209, .08283, .00847, .00138, + .00034, .00323, .00043 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .29757, .09726, .07363, .00801, .00136, + .00040, .00310, .00041, + .28676, .09345, .06688, .00765, .00134, + .00043, .00296, .00039, + .27418, .08904, .05968, .00723, .00131, + .00046, .00282, .00037, + .26356, .08534, .05406, .00689, .00128, + .00047, .00270, .00036, + .25418, .08209, .04944, .00660, .00125, + .00048, .00259, .00034, + .24278, .07816, .04425, .00624, .00121, + .00049, .00246, .00031, + .23258, .07465, .03995, .00592, .00117, + .00049, .00233, .00029, + .22344, .07150, .03637, .00562, .00113, + .00049, .00223, .00028 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21469, .06851, .03319, .00535, .00109, + .00049, .00212, .00026, + .20649, .06574, .03042, .00509, .00105, + .00048, .00201, .00024, + .19901, .06320, .02805, .00486, .00102, + .00048, .00192, .00023, + .19228, .06091, .02601, .00465, .00098, + .00047, .00185, .00021, + .18570, .05871, .02416, .00444, .00095, + .00046, .00177, .00020, + .17951, .05664, .02249, .00426, .00092, + .00045, .00169, .00019, + .17378, .05472, .02105, .00408, .00089, + .00045, .00163, .00019, + .16858, .05297, .01978, .00392, .00087, + .00044, .00157, .00019 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16347, .05127, .01861, .00377, .00084, + .00043, .00151, .00017, + .15861, .04967, .01754, .00363, .00082, + .00042, .00146, .00015, + .15411, .04818, .01659, .00351, .00079, + .00041, .00141, .00014, + .14993, .04681, .01575, .00340, .00077, + .00041, .00137, .00012, + .14584, .04548, .01495, .00329, .00075, + .00040, .00132, .00011 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .51572, .17467, .33733, .01291, .00000, + .00000, .00291, -.00240, + .49751, .16782, .30664, .01256, .00000, + .00000, .00302, -.00208, + .47153, .15813, .26554, .01199, .00001, + .00000, .00312, -.00168, + .45333, .15139, .23844, .01156, .00019, + .00000, .00316, -.00143, + .43486, .14462, .21244, .01109, .00046, + .00000, .00316, -.00121, + .41942, .13899, .19228, .01069, .00059, + .00000, .00313, -.00106, + .40512, .13381, .17483, .01030, .00071, + .00000, .00310, -.00093, + .39046, .12852, .15813, .00991, .00081, + .00000, .00306, -.00082 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37809, .12409, .14492, .00957, .00087, + .00000, .00300, -.00074, + .36659, .11998, .13330, .00925, .00093, + .00000, .00294, -.00066, + .35766, .11681, .12476, .00899, .00095, + .00000, .00290, -.00061, + .33938, .11035, .10838, .00845, .00100, + .00000, .00279, -.00052, + .32440, .10509, .09599, .00802, .00103, + .00005, .00268, -.00046, + .30840, .09948, .08371, .00754, .00104, + .00014, .00256, -.00037, + .29259, .09401, .07277, .00710, .00104, + .00021, .00243, -.00032, + .27902, .08932, .06423, .00669, .00103, + .00025, .00232, -.00028 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .26602, .08485, .05677, .00629, .00101, + .00029, .00221, -.00025, + .25566, .08135, .05135, .00601, .00099, + .00031, .00212, -.00024, + .24371, .07728, .04556, .00565, .00096, + .00033, .00201, -.00021, + .23367, .07387, .04107, .00534, .00094, + .00035, .00191, -.00019, + .22480, .07090, .03742, .00510, .00091, + .00036, .00183, -.00017, + .21409, .06730, .03334, .00480, .00088, + .00036, .00173, -.00015, + .20455, .06411, .02998, .00452, .00085, + .00036, .00165, -.00014, + .19604, .06126, .02721, .00427, .00082, + .00036, .00156, -.00013 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18786, .05857, .02475, .00406, .00079, + .00036, .00148, -.00013, + .18020, .05608, .02259, .00388, .00076, + .00036, .00141, -.00014, + .17329, .05379, .02078, .00367, .00073, + .00035, .00134, -.00012, + .16709, .05174, .01922, .00349, .00071, + .00035, .00129, -.00011, + .16103, .04976, .01782, .00334, .00068, + .00034, .00123, -.00011, + .15533, .04790, .01655, .00320, .00066, + .00033, .00118, -.00011, + .15006, .04620, .01547, .00306, .00064, + .00033, .00113, -.00010, + .14529, .04466, .01451, .00294, .00062, + .00032, .00109, -.00009 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .14062, .04315, .01363, .00283, .00060, + .00032, .00104, -.00009, + .13618, .04171, .01282, .00272, .00058, + .00031, .00100, -.00008, + .13210, .04040, .01210, .00262, .00056, + .00031, .00097, -.00008, + .12834, .03920, .01148, .00252, .00055, + .00030, .00093, -.00008, + .12467, .03803, .01088, .00242, .00053, + .00030, .00090, -.00007 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .47915, .15781, .28622, .01062, .00000, + .00000, .00212, -.00308, + .46084, .15121, .25818, .01025, .00000, + .00000, .00221, -.00273, + .43487, .14192, .22108, .00972, .00001, + .00000, .00230, -.00231, + .41677, .13549, .19696, .00932, .00015, + .00000, .00233, -.00204, + .39851, .12902, .17410, .00889, .00035, + .00000, .00234, -.00179, + .38327, .12366, .15655, .00851, .00045, + .00000, .00233, -.00159, + .36923, .11876, .14145, .00817, .00054, + .00000, .00230, -.00143, + .35492, .11378, .12709, .00782, .00061, + .00000, .00227, -.00130 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .34286, .10961, .11585, .00751, .00066, + .00000, .00222, -.00118, + .33167, .10575, .10601, .00723, .00070, + .00000, .00217, -.00108, + .32300, .10278, .09883, .00702, .00072, + .00000, .00213, -.00103, + .30535, .09675, .08517, .00656, .00075, + .00000, .00205, -.00092, + .29096, .09186, .07493, .00618, .00077, + .00004, .00198, -.00082, + .27566, .08668, .06487, .00576, .00077, + .00010, .00186, -.00071, + .26061, .08163, .05599, .00538, .00076, + .00015, .00178, -.00063, + .24771, .07732, .04913, .00505, .00075, + .00018, .00169, -.00057 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .23541, .07324, .04318, .00474, .00074, + .00021, .00159, -.00051, + .22569, .07003, .03887, .00449, .00072, + .00022, .00152, -.00047, + .21447, .06633, .03431, .00420, .00070, + .00023, .00144, -.00041, + .20506, .06324, .03080, .00397, .00068, + .00024, .00137, -.00037, + .19680, .06056, .02796, .00378, .00066, + .00025, .00131, -.00036, + .18687, .05732, .02480, .00352, .00063, + .00025, .00123, -.00032, + .17806, .05444, .02221, .00330, .00061, + .00026, .00116, -.00028, + .17013, .05190, .02009, .00314, .00059, + .00026, .00110, -.00027 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16262, .04950, .01821, .00297, .00056, + .00025, .00105, -.00026, + .15564, .04726, .01657, .00280, .00054, + .00025, .00100, -.00024, + .14932, .04524, .01520, .00264, .00052, + .00025, .00095, -.00022, + .14365, .04343, .01403, .00250, .00051, + .00025, .00091, -.00021, + .13815, .04168, .01298, .00239, .00049, + .00025, .00087, -.00020, + .13299, .04005, .01203, .00228, .00047, + .00025, .00083, -.00019, + .12823, .03854, .01122, .00218, .00046, + .00025, .00079, -.00017, + .12392, .03719, .01051, .00209, .00044, + .00025, .00076, -.00016 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11972, .03587, .00985, .00200, .00043, + .00024, .00073, -.00015, + .11573, .03462, .00926, .00191, .00042, + .00024, .00070, -.00014, + .11206, .03347, .00873, .00183, .00041, + .00024, .00067, -.00013, + .10869, .03242, .00827, .00176, .00040, + .00024, .00064, -.00013, + .10541, .03139, .00782, .00170, .00039, + .00023, .00062, -.00013 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .44073, .14139, .23955, .00848, .00000, + .00000, .00152, -.00316, + .42266, .13508, .21441, .00813, .00000, + .00000, .00161, -.00282, + .39714, .12622, .18159, .00761, .00001, + .00000, .00168, -.00238, + .37942, .12012, .16052, .00725, .00011, + .00000, .00170, -.00211, + .36161, .11406, .14076, .00687, .00027, + .00000, .00170, -.00186, + .34686, .10901, .12571, .00652, .00034, + .00000, .00170, -.00166, + .33328, .10441, .11289, .00622, .00041, + .00000, .00168, -.00150, + .31943, .09976, .10080, .00594, .00046, + .00000, .00165, -.00135 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .30782, .09590, .09138, .00569, .00049, + .00000, .00162, -.00125, + .29708, .09235, .08317, .00546, .00052, + .00000, .00159, -.00116, + .28880, .08958, .07726, .00527, .00054, + .00000, .00156, -.00108, + .27201, .08400, .06606, .00488, .00056, + .00000, .00150, -.00093, + .25837, .07951, .05773, .00457, .00057, + .00003, .00144, -.00083, + .24390, .07479, .04963, .00427, .00057, + .00007, .00137, -.00076, + .22978, .07019, .04254, .00395, .00056, + .00010, .00129, -.00069, + .21768, .06628, .03711, .00370, .00055, + .00013, .00122, -.00061 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .20618, .06259, .03244, .00346, .00054, + .00014, .00115, -.00054, + .19715, .05970, .02907, .00327, .00053, + .00015, .00109, -.00050, + .18677, .05637, .02554, .00305, .00051, + .00016, .00104, -.00044, + .17810, .05361, .02283, .00286, .00050, + .00017, .00099, -.00040, + .17054, .05120, .02065, .00269, .00048, + .00017, .00094, -.00037, + .16142, .04833, .01823, .00251, .00046, + .00017, .00089, -.00034, + .15332, .04579, .01626, .00236, .00045, + .00017, .00084, -.00032, + .14615, .04353, .01466, .00221, .00043, + .00017, .00079, -.00029 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13934, .04141, .01325, .00207, .00041, + .00017, .00075, -.00026, + .13302, .03945, .01203, .00195, .00040, + .00017, .00071, -.00025, + .12731, .03768, .01101, .00184, .00039, + .00017, .00067, -.00023, + .12221, .03609, .01014, .00175, .00037, + .00017, .00064, -.00022, + .11726, .03456, .00936, .00166, .00036, + .00017, .00061, -.00020, + .11262, .03313, .00866, .00157, .00035, + .00017, .00058, -.00018, + .10839, .03183, .00806, .00150, .00034, + .00017, .00056, -.00017, + .10456, .03065, .00754, .00143, .00033, + .00017, .00053, -.00016 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .10084, .02952, .00706, .00136, .00032, + .00017, .00051, -.00014, + .09731, .02844, .00662, .00129, .00031, + .00017, .00049, -.00013, + .09406, .02745, .00623, .00124, .00031, + .00017, .00047, -.00012, + .09107, .02655, .00590, .00119, .00030, + .00017, .00045, -.00013, + .08816, .02567, .00558, .00115, .00029, + .00017, .00044, -.00013 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .40142, .12562, .19780, .00663, .00000, + .00000, .00100, -.00290, + .38382, .11969, .17578, .00633, .00000, + .00000, .00107, -.00260, + .35906, .11140, .14733, .00589, .00001, + .00000, .00114, -.00220, + .34197, .10571, .12929, .00558, .00008, + .00000, .00116, -.00195, + .32488, .10005, .11253, .00526, .00020, + .00000, .00117, -.00173, + .31073, .09542, .09985, .00501, .00025, + .00000, .00115, -.00156, + .29777, .09118, .08913, .00477, .00030, + .00000, .00114, -.00143, + .28465, .08690, .07911, .00451, .00034, + .00000, .00113, -.00129 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .27367, .08333, .07137, .00431, .00037, + .00000, .00110, -.00118, + .26353, .08004, .06465, .00412, .00039, + .00000, .00108, -.00108, + .25575, .07753, .05984, .00397, .00040, + .00000, .00106, -.00102, + .23998, .07247, .05078, .00367, .00042, + .00000, .00101, -.00091, + .22718, .06840, .04410, .00345, .00043, + .00002, .00096, -.00082, + .21376, .06411, .03768, .00317, .00043, + .00005, .00090, -.00071, + .20062, .05997, .03210, .00295, .00042, + .00007, .00085, -.00062, + .18948, .05648, .02784, .00274, .00041, + .00009, .00081, -.00057 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .17894, .05317, .02421, .00254, .00040, + .00010, .00077, -.00052, + .17066, .05058, .02161, .00241, .00039, + .00010, .00073, -.00047, + .16119, .04764, .01890, .00223, .00038, + .00010, .00068, -.00043, + .15329, .04519, .01683, .00209, .00037, + .00010, .00065, -.00039, + .14640, .04307, .01517, .00198, .00036, + .00010, .00061, -.00036, + .13815, .04053, .01334, .00184, .00035, + .00010, .00057, -.00032, + .13089, .03829, .01186, .00170, .00033, + .00010, .00053, -.00029, + .12443, .03632, .01067, .00160, .00032, + .00010, .00050, -.00027 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11832, .03447, .00962, .00150, .00031, + .00010, .00048, -.00025, + .11266, .03276, .00871, .00142, .00030, + .00010, .00045, -.00024, + .10759, .03122, .00795, .00133, .00029, + .00010, .00043, -.00022, + .10306, .02984, .00731, .00125, .00028, + .00010, .00040, -.00021, + .09867, .02852, .00673, .00119, .00027, + .00010, .00039, -.00019, + .09458, .02730, .00622, .00112, .00027, + .00010, .00037, -.00017, + .09086, .02618, .00578, .00106, .00026, + .00010, .00035, -.00016, + .08749, .02517, .00540, .00101, .00025, + .00010, .00033, -.00016 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08421, .02418, .00505, .00096, .00025, + .00010, .00032, -.00015, + .08110, .02325, .00473, .00092, .00024, + .00010, .00031, -.00014, + .07826, .02241, .00445, .00089, .00024, + .00010, .00029, -.00014, + .07566, .02164, .00420, .00085, .00023, + .00010, .00028, -.00013, + .07313, .02089, .00397, .00082, .00023, + .00010, .00027, -.00012 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .36162, .11019, .16047, .00480, .00000, + .00000, .00073, -.00232, + .34468, .10471, .14151, .00458, .00000, + .00000, .00079, -.00208, + .32098, .09706, .11736, .00426, .00001, + .00000, .00084, -.00176, + .30471, .09182, .10223, .00402, .00006, + .00000, .00084, -.00155, + .28851, .08663, .08830, .00378, .00015, + .00000, .00084, -.00136, + .27519, .08239, .07787, .00357, .00018, + .00000, .00083, -.00123, + .26302, .07853, .06910, .00339, .00022, + .00000, .00082, -.00112, + .25070, .07464, .06095, .00322, .00025, + .00000, .00082, -.00102 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .24045, .07142, .05470, .00306, .00026, + .00000, .00079, -.00094, + .23100, .06847, .04932, .00291, .00028, + .00000, .00076, -.00086, + .22377, .06620, .04548, .00279, .00029, + .00000, .00074, -.00080, + .20918, .06165, .03829, .00256, .00030, + .00000, .00071, -.00070, + .19739, .05801, .03305, .00238, .00031, + .00001, .00067, -.00062, + .18505, .05420, .02805, .00221, .00031, + .00003, .00065, -.00056, + .17305, .05051, .02373, .00203, .00031, + .00005, .00060, -.00049, + .16292, .04741, .02048, .00187, .00030, + .00005, .00056, -.00043 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15336, .04450, .01771, .00173, .00030, + .00006, .00052, -.00039, + .14587, .04224, .01574, .00163, .00029, + .00006, .00049, -.00035, + .13730, .03966, .01370, .00153, .00028, + .00006, .00046, -.00031, + .13020, .03752, .01216, .00144, .00028, + .00006, .00044, -.00029, + .12406, .03567, .01092, .00134, .00027, + .00006, .00042, -.00027, + .11671, .03347, .00958, .00123, .00026, + .00006, .00039, -.00024, + .11024, .03154, .00849, .00114, .00025, + .00006, .00036, -.00021, + .10454, .02984, .00760, .00106, .00024, + .00006, .00034, -.00020 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09916, .02823, .00684, .00099, .00024, + .00006, .00033, -.00018, + .09419, .02676, .00618, .00093, .00023, + .00006, .00031, -.00016, + .08970, .02544, .00563, .00088, .00022, + .00006, .00029, -.00015, + .08569, .02428, .00516, .00084, .00022, + .00006, .00027, -.00015, + .08187, .02316, .00475, .00079, .00021, + .00006, .00026, -.00013, + .07832, .02211, .00438, .00075, .00021, + .00006, .00024, -.00012, + .07507, .02116, .00407, .00071, .00020, + .00006, .00023, -.00012, + .07214, .02030, .00379, .00067, .00020, + .00006, .00022, -.00011 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06930, .01948, .00354, .00064, .00020, + .00006, .00021, -.00010, + .06663, .01870, .00331, .00061, .00019, + .00006, .00020, -.00009, + .06418, .01799, .00311, .00058, .00019, + .00006, .00019, -.00009, + .06194, .01734, .00294, .00055, .00019, + .00006, .00018, -.00008, + .05977, .01671, .00277, .00053, .00019, + .00006, .00017, -.00008 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .32207, .09571, .12802, .00339, .00000, + .00000, .00052, -.00178, + .30607, .09065, .11211, .00320, .00000, + .00000, .00056, -.00156, + .28377, .08366, .09198, .00295, .00000, + .00000, .00059, -.00130, + .26852, .07891, .07950, .00278, .00004, + .00000, .00060, -.00115, + .25338, .07421, .06813, .00259, .00010, + .00000, .00061, -.00101, + .24096, .07037, .05969, .00244, .00013, + .00000, .00059, -.00089, + .22966, .06690, .05266, .00231, .00015, + .00000, .00058, -.00079, + .21826, .06342, .04616, .00218, .00017, + .00000, .00057, -.00072 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .20881, .06055, .04121, .00207, .00018, + .00000, .00055, -.00066, + .20013, .05793, .03698, .00197, .00019, + .00000, .00053, -.00061, + .19350, .05591, .03397, .00190, .00019, + .00000, .00052, -.00057, + .18018, .05186, .02838, .00173, .00020, + .00000, .00050, -.00049, + .16951, .04862, .02435, .00158, .00020, + .00001, .00046, -.00043, + .15829, .04528, .02052, .00146, .00020, + .00002, .00044, -.00038, + .14746, .04205, .01725, .00135, .00019, + .00003, .00042, -.00033, + .13836, .03934, .01480, .00124, .00019, + .00003, .00039, -.00029 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .12981, .03680, .01274, .00114, .00018, + .00003, .00037, -.00026, + .12315, .03484, .01128, .00107, .00018, + .00003, .00035, -.00024, + .11555, .03261, .00977, .00099, .00017, + .00003, .00033, -.00021, + .10926, .03077, .00864, .00092, .00016, + .00003, .00031, -.00019, + .10382, .02918, .00774, .00086, .00016, + .00003, .00029, -.00017, + .09736, .02729, .00676, .00079, .00015, + .00003, .00027, -.00015, + .09171, .02564, .00597, .00073, .00014, + .00003, .00025, -.00013, + .08669, .02419, .00534, .00069, .00014, + .00003, .00023, -.00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .08200, .02284, .00479, .00064, .00014, + .00003, .00022, -.00011, + .07771, .02159, .00431, .00058, .00013, + .00003, .00021, -.00010, + .07382, .02048, .00392, .00056, .00013, + .00003, .00019, -.00010, + .07036, .01950, .00359, .00054, .00013, + .00003, .00018, -.00010, + .06708, .01855, .00330, .00050, .00013, + .00003, .00017, -.00009, + .06403, .01767, .00304, .00047, .00013, + .00003, .00015, -.00008, + .06124, .01688, .00282, .00044, .00013, + .00003, .00015, -.00007, + .05873, .01617, .00262, .00042, .00013, + .00003, .00014, -.00007 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05631, .01548, .00245, .00040, .00013, + .00003, .00014, -.00007, + .05403, .01483, .00229, .00037, .00013, + .00003, .00013, -.00006, + .05196, .01424, .00215, .00035, .00013, + .00003, .00013, -.00005, + .05007, .01370, .00203, .00033, .00013, + .00003, .00012, -.00005, + .04823, .01318, .00191, .00032, .00013, + .00003, .00012, -.00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .28358, .08232, .10051, .00238, .00000, + .00000, .00031, -.00131, + .26863, .07774, .08735, .00225, .00000, + .00000, .00034, -.00115, + .24790, .07144, .07091, .00207, .00000, + .00000, .00037, -.00094, + .23380, .06717, .06085, .00194, .00003, + .00000, .00038, -.00083, + .21990, .06295, .05177, .00179, .00007, + .00000, .00039, -.00074, + .20850, .05955, .04507, .00169, .00009, + .00000, .00038, -.00065, + .19817, .05646, .03952, .00160, .00010, + .00000, .00037, -.00057, + .18779, .05338, .03444, .00150, .00012, + .00000, .00036, -.00052 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .17925, .05083, .03060, .00140, .00012, + .00000, .00035, -.00046, + .17142, .04850, .02732, .00132, .00013, + .00000, .00034, -.00041, + .16542, .04673, .02501, .00127, .00013, + .00000, .00034, -.00039, + .15340, .04319, .02074, .00117, .00013, + .00000, .00032, -.00034, + .14380, .04037, .01768, .00107, .00013, + .00000, .00030, -.00030, + .13380, .03747, .01481, .00100, .00012, + .00001, .00028, -.00027, + .12422, .03466, .01237, .00089, .00012, + .00001, .00025, -.00022, + .11615, .03232, .01056, .00082, .00012, + .00001, .00023, -.00019 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .10860, .03015, .00905, .00076, .00011, + .00001, .00022, -.00018, + .10274, .02847, .00798, .00071, .00011, + .00001, .00021, -.00017, + .09608, .02656, .00689, .00066, .00010, + .00001, .00020, -.00015, + .09061, .02498, .00607, .00061, .00009, + .00001, .00019, -.00013, + .08589, .02364, .00542, .00057, .00009, + .00001, .00018, -.00012, + .08027, .02204, .00472, .00053, .00008, + .00001, .00016, -.00011, + .07537, .02065, .00416, .00049, .00008, + .00001, .00015, -.00010, + .07109, .01943, .00371, .00044, .00007, + .00001, .00014, -.00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06705, .01830, .00332, .00041, .00007, + .00001, .00013, -.00008, + .06333, .01726, .00298, .00040, .00007, + .00001, .00012, -.00008, + .06004, .01632, .00271, .00037, .00007, + .00001, .00011, -.00007, + .05712, .01550, .00248, .00034, .00007, + .00001, .00011, -.00006, + .05432, .01472, .00227, .00032, .00007, + .00001, .00010, -.00006, + .05172, .01400, .00209, .00031, .00007, + .00001, .00010, -.00006, + .04937, .01334, .00193, .00029, .00007, + .00001, .00009, -.00005, + .04726, .01275, .00180, .00027, .00007, + .00001, .00009, -.00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04522, .01218, .00168, .00025, .00007, + .00001, .00008, -.00004, + .04331, .01166, .00157, .00023, .00007, + .00001, .00007, -.00004, + .04157, .01117, .00147, .00022, .00007, + .00001, .00007, -.00004, + .03998, .01073, .00138, .00021, .00007, + .00001, .00007, -.00003, + .03845, .01031, .00130, .00020, .00007, + .00001, .00007, -.00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .24626, .06966, .07711, .00145, .00000, + .00000, .00024, -.00083, + .23254, .06559, .06652, .00138, .00000, + .00000, .00026, -.00073, + .21359, .06000, .05343, .00127, .00000, + .00000, .00027, -.00059, + .20075, .05623, .04550, .00119, .00002, + .00000, .00027, -.00050, + .18808, .05254, .03841, .00112, .00005, + .00000, .00028, -.00045, + .17781, .04955, .03323, .00105, .00006, + .00000, .00027, -.00040, + .16852, .04686, .02896, .00099, .00007, + .00000, .00027, -.00036, + .15924, .04416, .02506, .00093, .00007, + .00000, .00027, -.00032 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .15159, .04195, .02215, .00087, .00008, + .00000, .00026, -.00029, + .14460, .03994, .01969, .00081, .00008, + .00000, .00025, -.00026, + .13926, .03841, .01796, .00078, .00008, + .00000, .00024, -.00025, + .12859, .03537, .01478, .00072, .00008, + .00000, .00022, -.00021, + .12011, .03295, .01252, .00067, .00008, + .00000, .00021, -.00018, + .11135, .03045, .01042, .00060, .00007, + .00000, .00020, -.00015, + .10296, .02807, .00865, .00053, .00007, + .00000, .00018, -.00012, + .09595, .02609, .00735, .00049, .00007, + .00000, .00017, -.00011 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .08939, .02425, .00626, .00046, .00006, + .00000, .00016, -.00011, + .08432, .02283, .00550, .00043, .00006, + .00000, .00015, -.00010, + .07860, .02122, .00473, .00039, .00006, + .00000, .00014, -.00008, + .07390, .01991, .00415, .00035, .00005, + .00000, .00013, -.00006, + .06985, .01878, .00370, .00033, .00005, + .00000, .00012, -.00006, + .06506, .01746, .00321, .00031, .00005, + .00000, .00011, -.00005, + .06090, .01631, .00282, .00028, .00005, + .00000, .00010, -.00005, + .05726, .01530, .00251, .00025, .00005, + .00000, .00009, -.00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05385, .01437, .00224, .00023, .00004, + .00000, .00008, -.00004, + .05073, .01351, .00201, .00022, .00004, + .00000, .00008, -.00003, + .04798, .01275, .00182, .00020, .00004, + .00000, .00008, -.00003, + .04554, .01208, .00166, .00018, .00004, + .00000, .00007, -.00003, + .04320, .01144, .00153, .00017, .00004, + .00000, .00007, -.00003, + .04104, .01085, .00140, .00016, .00004, + .00000, .00006, -.00002, + .03907, .01032, .00130, .00015, .00004, + .00000, .00006, -.00002, + .03732, .00985, .00120, .00015, .00004, + .00000, .00006, -.00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03563, .00939, .00112, .00014, .00004, + .00000, .00005, -.00002, + .03406, .00896, .00105, .00013, .00004, + .00000, .00005, -.00002, + .03262, .00857, .00098, .00013, .00004, + .00000, .00005, -.00002, + .03132, .00822, .00092, .00012, .00004, + .00000, .00005, -.00002, + .03006, .00788, .00087, .00012, .00004, + .00000, .00005, -.00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .17787, .04798, .04254, .00055, .00000, + .00000, .00007, -.00032, + .16682, .04489, .03613, .00052, .00000, + .00000, .00008, -.00027, + .15170, .04069, .02839, .00048, .00000, + .00000, .00010, -.00022, + .14156, .03787, .02380, .00046, .00001, + .00000, .00011, -.00019, + .13165, .03511, .01978, .00043, .00002, + .00000, .00011, -.00016, + .12370, .03290, .01688, .00038, .00001, + .00000, .00010, -.00013, + .11654, .03093, .01453, .00035, .00001, + .00000, .00010, -.00011, + .10941, .02898, .01243, .00033, .00001, + .00000, .00010, -.00011 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .10358, .02739, .01087, .00031, .00001, + .00000, .00009, -.00009, + .09829, .02594, .00957, .00029, .00001, + .00000, .00009, -.00008, + .09428, .02485, .00866, .00028, .00001, + .00000, .00008, -.00007, + .08632, .02268, .00702, .00025, .00001, + .00000, .00008, -.00005, + .08006, .02097, .00588, .00022, .00001, + .00000, .00007, -.00004, + .07360, .01924, .00483, .00021, .00001, + .00000, .00007, -.00003, + .06750, .01759, .00396, .00018, .00001, + .00000, .00007, -.00004, + .06243, .01624, .00333, .00016, .00001, + .00000, .00006, -.00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05774, .01498, .00282, .00015, .00001, + .00000, .00006, -.00002, + .05414, .01402, .00246, .00014, .00001, + .00000, .00005, -.00002, + .05011, .01295, .00210, .00013, .00001, + .00000, .00005, -.00002, + .04681, .01207, .00183, .00012, .00001, + .00000, .00005, -.00002, + .04400, .01133, .00162, .00011, .00001, + .00000, .00004, -.00001, + .04070, .01045, .00140, .00010, .00001, + .00000, .00004, -.00001, + .03785, .00970, .00123, .00009, .00001, + .00000, .00004, -.00001, + .03536, .00905, .00109, .00008, .00001, + .00000, .00003, -.00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .03306, .00844, .00097, .00008, .00001, + .00000, .00003, -.00001, + .03097, .00790, .00087, .00007, .00001, + .00000, .00003, .00000, + .02912, .00741, .00078, .00006, .00001, + .00000, .00003, .00000, + .02750, .00699, .00071, .00006, .00001, + .00000, .00003, .00000, + .02595, .00659, .00065, .00006, .00001, + .00000, .00003, .00000, + .02452, .00622, .00060, .00006, .00001, + .00000, .00002, .00000, + .02324, .00589, .00055, .00005, .00001, + .00000, .00002, .00000, + .02210, .00559, .00051, .00005, .00001, + .00000, .00002, .00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .02101, .00531, .00048, .00005, .00001, + .00000, .00002, .00000, + .02000, .00505, .00044, .00004, .00001, + .00000, .00002, .00000, + .01908, .00481, .00041, .00004, .00001, + .00000, .00002, .00000, + .01826, .00460, .00039, .00003, .00001, + .00000, .00002, .00000, + .01746, .00439, .00037, .00003, .00001, + .00000, .00002, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .11955, .03073, .02095, .00017, .00000, + .00000, .00001, -.00008, + .11129, .02854, .01751, .00017, .00000, + .00000, .00002, -.00007, + .10014, .02559, .01345, .00015, .00000, + .00000, .00003, -.00006, + .09275, .02364, .01110, .00014, .00000, + .00000, .00003, -.00005, + .08557, .02176, .00907, .00012, .00000, + .00000, .00003, -.00004, + .07982, .02026, .00764, .00012, .00000, + .00000, .00003, -.00003, + .07470, .01892, .00650, .00011, .00000, + .00000, .00003, -.00003, + .06965, .01761, .00548, .00011, .00000, + .00000, .00003, -.00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .06555, .01654, .00475, .00010, .00000, + .00000, .00003, -.00002, + .06184, .01559, .00414, .00009, .00000, + .00000, .00003, -.00001, + .05906, .01487, .00372, .00009, .00000, + .00000, .00003, -.00002, + .05358, .01345, .00297, .00008, .00000, + .00000, .00003, -.00002, + .04930, .01234, .00246, .00007, .00000, + .00000, .00002, -.00001, + .04495, .01122, .00200, .00006, .00000, + .00000, .00002, -.00001, + .04084, .01017, .00162, .00005, .00000, + .00000, .00002, -.00001, + .03747, .00931, .00135, .00005, .00000, + .00000, .00002, -.00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .03438, .00853, .00113, .00005, .00000, + .00000, .00002, .00000, + .03203, .00793, .00098, .00004, .00000, + .00000, .00002, .00000, + .02941, .00727, .00084, .00004, .00000, + .00000, .00002, .00000, + .02729, .00673, .00073, .00003, .00000, + .00000, .00001, .00000, + .02550, .00628, .00064, .00003, .00000, + .00000, .00001, .00000, + .02340, .00575, .00055, .00003, .00000, + .00000, .00001, .00000, + .02160, .00530, .00048, .00003, .00000, + .00000, .00001, .00000, + .02005, .00491, .00042, .00002, .00000, + .00000, .00001, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01862, .00455, .00038, .00002, .00000, + .00000, .00001, .00000, + .01734, .00423, .00034, .00002, .00000, + .00000, .00001, .00000, + .01621, .00395, .00030, .00002, .00000, + .00000, .00001, .00000, + .01521, .00370, .00028, .00002, .00000, + .00000, .00001, .00000, + .01428, .00347, .00025, .00002, .00000, + .00000, .00001, .00000, + .01342, .00326, .00023, .00002, .00000, + .00000, .00001, .00000, + .01266, .00307, .00021, .00001, .00000, + .00000, .00001, .00000, + .01199, .00290, .00020, .00001, .00000, + .00000, .00001, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .01134, .00274, .00018, .00001, .00000, + .00000, .00001, .00000, + .01074, .00260, .00017, .00001, .00000, + .00000, .00001, .00000, + .01020, .00246, .00016, .00001, .00000, + .00000, .00000, .00000, + .00972, .00234, .00015, .00001, .00000, + .00000, .00000, .00000, + .00925, .00223, .00014, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ + .07311, .01788, .00887, .00005, .00000, + .00000, -.00001, -.00003, + .06751, .01647, .00729, .00005, .00000, + .00000, .00000, -.00002, + .06001, .01459, .00546, .00004, .00000, + .00000, .00001, -.00001, + .05509, .01337, .00443, .00004, .00000, + .00000, .00000, -.00001, + .05037, .01219, .00356, .00004, .00000, + .00000, .00000, -.00001, + .04664, .01127, .00296, .00003, .00000, + .00000, .00000, -.00001, + .04334, .01045, .00248, .00003, .00000, + .00000, .00000, .00000, + .04011, .00965, .00207, .00003, .00000, + .00000, .00001, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .03750, .00901, .00177, .00002, .00000, + .00000, .00001, .00000, + .03515, .00843, .00153, .00002, .00000, + .00000, .00001, .00000, + .03340, .00800, .00136, .00003, .00000, + .00000, .00001, .00000, + .02998, .00717, .00107, .00002, .00000, + .00000, .00001, .00000, + .02734, .00652, .00088, .00002, .00000, + .00000, .00001, .00000, + .02468, .00587, .00071, .00002, .00000, + .00000, .00001, .00000, + .02220, .00527, .00057, .00001, .00000, + .00000, .00001, .00000, + .02019, .00478, .00047, .00001, .00000, + .00000, .00001, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01836, .00434, .00039, .00001, .00000, + .00000, .00000, .00000, + .01697, .00401, .00034, .00001, .00000, + .00000, .00000, .00000, + .01545, .00364, .00029, .00001, .00000, + .00000, .00000, .00000, + .01424, .00335, .00025, .00001, .00000, + .00000, .00000, .00000, + .01321, .00310, .00022, .00001, .00000, + .00000, .00000, .00000, + .01201, .00282, .00019, .00001, .00000, + .00000, .00000, .00000, + .01100, .00258, .00016, .00001, .00000, + .00000, .00000, .00000, + .01013, .00237, .00014, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00934, .00218, .00013, .00001, .00000, + .00000, .00000, .00000, + .00863, .00201, .00011, .00001, .00000, + .00000, .00000, .00000, + .00802, .00187, .00010, .00000, .00000, + .00000, .00000, .00000, + .00748, .00174, .00009, .00000, .00000, + .00000, .00000, .00000, + .00698, .00162, .00008, .00000, .00000, + .00000, .00000, .00000, + .00652, .00151, .00008, .00000, .00000, + .00000, .00000, .00000, + .00612, .00142, .00007, .00000, .00000, + .00000, .00000, .00000, + .00576, .00133, .00007, .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)/ + .00542, .00125, .00006, .00000, .00000, + .00000, .00000, .00000, + .00510, .00118, .00006, .00000, .00000, + .00000, .00000, .00000, + .00482, .00111, .00005, .00000, .00000, + .00000, .00000, .00000, + .00457, .00106, .00005, .00000, .00000, + .00000, .00000, .00000, + .00434, .00100, .00005, .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)/ + .03900, .00901, .00301, .00000, .00000, + .00000, .00000, .00000, + .03567, .00823, .00243, .00000, .00000, + .00000, .00000, .00000, + .03127, .00719, .00177, .00000, .00000, + .00000, .00000, .00000, + .02842, .00652, .00141, .00000, .00000, + .00000, .00000, .00000, + .02572, .00589, .00111, .00000, .00000, + .00000, .00000, .00000, + .02360, .00540, .00091, .00000, .00000, + .00000, .00000, .00000, + .02174, .00496, .00075, .00000, .00000, + .00000, .00000, .00000, + .01994, .00454, .00062, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/ + .01850, .00421, .00053, .00000, .00000, + .00000, .00000, .00000, + .01722, .00391, .00045, .00000, .00000, + .00000, .00000, .00000, + .01627, .00369, .00040, .00000, .00000, + .00000, .00000, .00000, + .01442, .00327, .00031, .00000, .00000, + .00000, .00000, .00000, + .01302, .00294, .00025, .00000, .00000, + .00000, .00000, .00000, + .01161, .00262, .00020, .00000, .00000, + .00000, .00000, .00000, + .01033, .00233, .00016, .00000, .00000, + .00000, .00000, .00000, + .00929, .00209, .00013, .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)/ + .00836, .00188, .00011, .00000, .00000, + .00000, .00000, .00000, + .00767, .00172, .00009, .00000, .00000, + .00000, .00000, .00000, + .00691, .00155, .00008, .00000, .00000, + .00000, .00000, .00000, + .00630, .00141, .00007, .00000, .00000, + .00000, .00000, .00000, + .00580, .00129, .00006, .00000, .00000, + .00000, .00000, .00000, + .00523, .00116, .00005, .00000, .00000, + .00000, .00000, .00000, + .00474, .00105, .00004, .00000, .00000, + .00000, .00000, .00000, + .00433, .00096, .00004, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00396, .00088, .00004, .00000, .00000, + .00000, .00000, .00000, + .00362, .00080, .00003, .00000, .00000, + .00000, .00000, .00000, + .00334, .00074, .00003, .00000, .00000, + .00000, .00000, .00000, + .00309, .00068, .00003, .00000, .00000, + .00000, .00000, .00000, + .00286, .00063, .00002, .00000, .00000, + .00000, .00000, .00000, + .00266, .00059, .00002, .00000, .00000, + .00000, .00000, .00000, + .00248, .00055, .00002, .00000, .00000, + .00000, .00000, .00000, + .00232, .00051, .00002, .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)/ + .00217, .00048, .00002, .00000, .00000, + .00000, .00000, .00000, + .00203, .00045, .00002, .00000, .00000, + .00000, .00000, .00000, + .00191, .00042, .00001, .00000, .00000, + .00000, .00000, .00000, + .00180, .00039, .00001, .00000, .00000, + .00000, .00000, .00000, + .00169, .00037, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00505, .00102, .00010, .00000, .00000, + .00000, .00000, .00000, + .00449, .00090, .00008, .00000, .00000, + .00000, .00000, .00000, + .00378, .00076, .00005, .00000, .00000, + .00000, .00000, .00000, + .00334, .00067, .00004, .00000, .00000, + .00000, .00000, .00000, + .00293, .00059, .00003, .00000, .00000, + .00000, .00000, .00000, + .00262, .00052, .00002, .00000, .00000, + .00000, .00000, .00000, + .00236, .00047, .00002, .00000, .00000, + .00000, .00000, .00000, + .00211, .00042, .00002, .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)/ + .00191, .00038, .00001, .00000, .00000, + .00000, .00000, .00000, + .00174, .00035, .00001, .00000, .00000, + .00000, .00000, .00000, + .00162, .00032, .00001, .00000, .00000, + .00000, .00000, .00000, + .00139, .00027, .00001, .00000, .00000, + .00000, .00000, .00000, + .00121, .00024, .00001, .00000, .00000, + .00000, .00000, .00000, + .00105, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00090, .00018, .00000, .00000, .00000, + .00000, .00000, .00000, + .00079, .00015, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00069, .00014, .00000, .00000, .00000, + .00000, .00000, .00000, + .00061, .00012, .00000, .00000, .00000, + .00000, .00000, .00000, + .00054, .00011, .00000, .00000, .00000, + .00000, .00000, .00000, + .00048, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00043, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00038, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00033, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00006, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00026, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00024, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00021, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00019, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00014, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00003, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00012, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='lo07a.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