#include "pdf/pilot.h" subroutine sfmrs_98lo3(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)/ + .01533, .00682, 3.82482, 1.04177, .00000, + .00000, .54126, 1.06235, + .01551, .00686, 6.49464, 1.04966, .00003, + .00000, .55369, 1.07017, + .01578, .00691, 11.52070, 1.07950, .03363, + .00000, .59018, 1.09989, + .01598, .00696, 16.05415, 1.11744, .08765, + .00000, .63290, 1.13773, + .01619, .00701, 21.47815, 1.17970, .15513, + .00000, .70017, 1.19989, + .01638, .00705, 27.07859, 1.24525, .23167, + .00000, .76998, 1.26535, + .01656, .00709, 32.97137, 1.32575, .31608, + .00000, .85453, 1.34575, + .01674, .00714, 40.02710, 1.42741, .42461, + .00000, .96044, 1.44731 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .01691, .00718, 46.86293, 1.53028, .53533, + .00000, 1.06697, 1.55009, + .01707, .00723, 53.94938, 1.64555, .65484, + .00000, 1.18573, 1.66525, + .01719, .00726, 60.02959, 1.74700, .76117, + .00000, 1.28993, 1.76663, + .01747, .00734, 74.15377, 1.99686, 1.02171, + .00043, 1.54556, 2.01631, + .01770, .00740, 87.71672, 2.24975, 1.28804, + .22598, 1.80335, 2.26906, + .01796, .00748, 104.31261, 2.57683, 1.63276, + .65558, 2.13580, 2.59595, + .01824, .00757, 123.11718, 2.97196, 2.03917, + 1.05843, 2.53643, 2.99089, + .01849, .00765, 141.78433, 3.37845, 2.45925, + 1.49436, 2.94781, 3.39720 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .01874, .00773, 162.29823, 3.83886, 2.93823, + 1.99962, 3.41305, 3.85743, + .01896, .00780, 180.41515, 4.26082, 3.37412, + 2.44947, 3.83896, 4.27923, + .01921, .00789, 203.72588, 4.82128, 3.95161, + 3.04486, 4.40414, 4.83950, + .01944, .00797, 225.90144, 5.36721, 4.51776, + 3.63514, 4.95415, 5.38526, + .01965, .00805, 246.94786, 5.90401, 5.06758, + 4.19622, 5.49465, 5.92191, + .01992, .00814, 275.34183, 6.64433, 5.82943, + 4.98095, 6.23958, 6.66202, + .02018, .00824, 303.69211, 7.40309, 6.61103, + 5.78717, 7.00258, 7.42059, + .02042, .00833, 331.06958, 8.15927, 7.38358, + 6.57487, 7.76268, 8.17659 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .02066, .00842, 360.08072, 8.97523, 8.22142, + 7.43594, 8.58247, 8.99236, + .02089, .00852, 389.31223, 9.81923, 9.08354, + 8.31573, 9.43017, 9.83618, + .02112, .00861, 418.20016, 10.66907, 9.95295, + 9.20540, 10.28346, 10.68585, + .02133, .00869, 446.22760, 11.51068, 10.81192, + 10.08181, 11.12827, 11.52730, + .02155, .00878, 475.36163, 12.40063, 11.72065, + 11.00997, 12.02139, 12.41709, + .02176, .00887, 504.71277, 13.31439, 12.65171, + 11.95843, 12.93823, 13.33069, + .02196, .00895, 533.58722, 14.22675, 13.58241, + 12.90830, 13.85347, 14.24291, + .02216, .00904, 561.23547, 15.11630, 14.48689, + 13.82771, 14.74572, 15.13231 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .02235, .00912, 590.35858, 16.06343, 15.45300, + 14.81407, 15.69553, 16.07930, + .02255, .00920, 618.93628, 17.01118, 16.41469, + 15.78969, 16.64590, 17.02691, + .02273, .00929, 647.27740, 17.96089, 17.38068, + 16.77283, 17.59807, 17.97648, + .02291, .00936, 674.55219, 18.88732, 18.32208, + 17.72995, 18.52681, 18.90278, + .02309, .00944, 702.42944, 19.84722, 19.29596, + 18.71830, 19.48903, 19.86256 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .01892, .00830, 3.76676, .87670, .00000, + .00000, .45335, .88849, + .01914, .00837, 6.11509, .88699, .00003, + .00000, .46721, .89873, + .01949, .00846, 10.39534, .91683, .03034, + .00000, .50231, .92850, + .01974, .00853, 14.15784, .95150, .07838, + .00000, .54075, .96310, + .02000, .00861, 18.57940, 1.00553, .13693, + .00000, .59873, 1.01707, + .02024, .00869, 23.07161, 1.06153, .20218, + .00000, .65808, 1.07300, + .02046, .00875, 27.73746, 1.12894, .27309, + .00000, .72867, 1.14034, + .02070, .00883, 33.25460, 1.21303, .36315, + .00000, .81612, 1.22437 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .02091, .00890, 38.54031, 1.29731, .45397, + .00000, .90327, 1.30859, + .02111, .00896, 43.96573, 1.39075, .55102, + .00000, .99945, 1.40196, + .02127, .00902, 48.58296, 1.47244, .63667, + .00000, 1.08330, 1.48360, + .02161, .00913, 59.18499, 1.67163, .84426, + .00037, 1.28703, 1.68269, + .02191, .00924, 69.22492, 1.87102, 1.05378, + .17642, 1.49026, 1.88198, + .02225, .00936, 81.34620, 2.12611, 1.32175, + .50967, 1.74957, 2.13696, + .02260, .00949, 94.90487, 2.43061, 1.63374, + .81709, 2.05838, 2.44133, + .02292, .00961, 108.20579, 2.74059, 1.95269, + 1.14637, 2.37219, 2.75121 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .02325, .00973, 122.66561, 3.08833, 2.31274, + 1.52435, 2.72373, 3.09884, + .02352, .00983, 135.31071, 3.40420, 2.63743, + 1.85766, 3.04270, 3.41461, + .02385, .00996, 151.42639, 3.82014, 3.06382, + 2.29498, 3.46232, 3.83043, + .02415, .01008, 166.61813, 4.22190, 3.47836, + 2.72517, 3.86729, 4.23209, + .02442, .01019, 180.90945, 4.61383, 3.87772, + 3.13052, 4.26211, 4.62393, + .02476, .01033, 200.02777, 5.15014, 4.42686, + 3.69343, 4.80202, 5.16011, + .02509, .01046, 218.94470, 5.69524, 4.98563, + 4.26719, 5.35044, 5.70509, + .02540, .01059, 237.04790, 6.23413, 5.53345, + 4.82301, 5.89239, 6.24387 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .02571, .01073, 256.08987, 6.81157, 6.12363, + 5.42694, 6.47284, 6.82120, + .02601, .01086, 275.11990, 7.40455, 6.72652, + 6.03939, 7.06872, 7.41408, + .02630, .01098, 293.79529, 7.99777, 7.33072, + 6.65507, 7.66463, 8.00720, + .02657, .01110, 311.78915, 8.58163, 7.92401, + 7.25786, 8.25099, 8.59096, + .02685, .01123, 330.37619, 9.19546, 8.54818, + 7.89282, 8.86730, 9.20469, + .02712, .01135, 348.97989, 9.82209, 9.18403, + 8.53794, 9.49634, 9.83123, + .02738, .01147, 367.17776, 10.44448, 9.81645, + 9.18096, 10.12098, 10.45353, + .02763, .01158, 384.49509, 11.04811, 10.42777, + 9.79994, 10.72672, 11.05708 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .02789, .01170, 402.65543, 11.68797, 11.07811, + 10.46162, 11.36869, 11.69686, + .02814, .01181, 420.35617, 12.32485, 11.72188, + 11.11218, 12.00761, 12.33365, + .02838, .01192, 437.83783, 12.96041, 12.36607, + 11.76554, 12.64510, 12.96914, + .02860, .01203, 454.57648, 13.57769, 12.99116, + 12.39886, 13.26419, 13.58634, + .02884, .01214, 471.59869, 14.21454, 13.63504, + 13.05001, 13.90285, 14.22311 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .02335, .01012, 3.70879, .73710, .00000, + .00000, .37983, .74284, + .02363, .01021, 5.75677, .74881, .00003, + .00000, .39435, .75452, + .02406, .01037, 9.37810, .77793, .02736, + .00000, .42760, .78358, + .02438, .01048, 12.48273, .80943, .07006, + .00000, .46207, .81503, + .02471, .01060, 16.06774, .85627, .12081, + .00000, .51201, .86183, + .02500, .01071, 19.65195, .90408, .17637, + .00000, .56246, .90960, + .02529, .01081, 23.32715, .96048, .23585, + .00000, .62135, .96595, + .02559, .01093, 27.61873, 1.02996, .31045, + .00000, .69346, 1.03539 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .02585, .01103, 31.68451, 1.09889, .38481, + .00000, .76465, 1.10427, + .02611, .01113, 35.81625, 1.17446, .46345, + .00000, .84237, 1.17980, + .02631, .01121, 39.30379, 1.24007, .53229, + .00000, .90967, 1.24538, + .02675, .01138, 47.21823, 1.39840, .69730, + .00033, 1.07155, 1.40364, + .02713, .01154, 54.60760, 1.55505, .86172, + .13764, 1.23122, 1.56024, + .02756, .01171, 63.40700, 1.75323, 1.06947, + .39601, 1.43269, 1.75835, + .02801, .01190, 73.12212, 1.98686, 1.30828, + .63041, 1.66969, 1.99191, + .02842, .01207, 82.53810, 2.22217, 1.54970, + .87888, 1.90800, 2.22715 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .02884, .01225, 92.66283, 2.48356, 1.81948, + 1.16133, 2.17235, 2.48848, + .02919, .01240, 101.42827, 2.71884, 2.06051, + 1.40796, 2.41005, 2.72371, + .02961, .01259, 112.49094, 3.02592, 2.37423, + 1.72869, 2.72001, 3.03072, + .02999, .01275, 122.82294, 3.32004, 2.67667, + 2.04168, 3.01663, 3.32479, + .03034, .01291, 132.45436, 3.60464, 2.96563, + 2.33396, 3.30348, 3.60933, + .03078, .01311, 145.22800, 3.99101, 3.35989, + 2.73693, 3.69266, 3.99564, + .03120, .01330, 157.75087, 4.38041, 3.75774, + 3.14434, 4.08465, 4.38497, + .03159, .01348, 169.62244, 4.76223, 4.14457, + 3.53556, 4.46885, 4.76673 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .03199, .01367, 182.01605, 5.16849, 4.55850, + 3.95804, 4.87745, 5.17293, + .03238, .01385, 194.29724, 5.58261, 4.97822, + 4.38319, 5.29383, 5.58700, + .03275, .01402, 206.26282, 5.99420, 5.39617, + 4.80799, 5.70752, 5.99853, + .03310, .01419, 217.70959, 6.39674, 5.80403, + 5.22128, 6.11201, 6.40103, + .03346, .01436, 229.45668, 6.81749, 6.23068, + 5.65425, 6.53469, 6.82172, + .03381, .01453, 241.13463, 7.24449, 6.66277, + 6.09153, 6.96356, 7.24867, + .03415, .01469, 252.49120, 7.66635, 7.09033, + 6.52528, 7.38718, 7.67049, + .03446, .01485, 263.22784, 8.07329, 7.50137, + 6.94044, 7.79575, 8.07739 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .03479, .01500, 274.43741, 8.50276, 7.93688, + 7.38265, 8.22686, 8.50681, + .03511, .01516, 285.28430, 8.92785, 8.36547, + 7.81469, 8.65354, 8.93186, + .03541, .01531, 295.95221, 9.35032, 8.79273, + 8.24712, 9.07751, 9.35429, + .03571, .01546, 306.11252, 9.75881, 9.20546, + 8.66443, 9.48741, 9.76274, + .03600, .01561, 316.39001, 10.17840, 9.62874, + 9.09154, 9.90841, 10.18229 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .02641, .01136, 3.67464, .66565, .00000, + .00000, .34256, .66891, + .02673, .01149, 5.55619, .67785, .00002, + .00000, .35720, .68107, + .02722, .01168, 8.82843, .70628, .02574, + .00000, .38922, .70946, + .02758, .01182, 11.59412, .73598, .06559, + .00000, .42150, .73912, + .02797, .01198, 14.75583, .77904, .11224, + .00000, .46725, .78215, + .02830, .01211, 17.88737, .82261, .16277, + .00000, .51311, .82569, + .02863, .01224, 21.07447, .87339, .21639, + .00000, .56606, .87643, + .02897, .01239, 24.76887, .93548, .28314, + .00000, .63044, .93849 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .02928, .01251, 28.24594, .99670, .34922, + .00000, .69361, .99968, + .02957, .01264, 31.75870, 1.06336, .41868, + .00000, .76214, 1.06631, + .02981, .01274, 34.70948, 1.12100, .47918, + .00000, .82124, 1.12392, + .03031, .01296, 41.35928, 1.25920, .62326, + .00030, .96252, 1.26207, + .03075, .01315, 47.51574, 1.39498, .76573, + .11899, 1.10090, 1.39781, + .03124, .01336, 54.78694, 1.56558, .94447, + .34150, 1.27437, 1.56837, + .03176, .01360, 62.75267, 1.76520, 1.14837, + .54139, 1.47691, 1.76794, + .03224, .01381, 70.41783, 1.96497, 1.35314, + .75199, 1.67926, 1.96766 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .03272, .01403, 78.60638, 2.18559, 1.58060, + .98999, 1.90245, 2.18824, + .03312, .01421, 85.65311, 2.38309, 1.78269, + 1.19660, 2.10203, 2.38570, + .03361, .01444, 94.49472, 2.63950, 2.04434, + 1.46386, 2.36094, 2.64207, + .03405, .01465, 102.70686, 2.88387, 2.29532, + 1.72344, 2.60746, 2.88640, + .03445, .01484, 110.32007, 3.11918, 2.53394, + 1.96455, 2.84472, 3.12167, + .03496, .01508, 120.36529, 3.43715, 2.85801, + 2.29553, 3.16511, 3.43960, + .03545, .01531, 130.15887, 3.75599, 3.18342, + 2.62854, 3.48620, 3.75840, + .03590, .01553, 139.39001, 4.06712, 3.49825, + 2.94664, 3.79938, 4.06949 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .03636, .01575, 148.98409, 4.39678, 3.83379, + 3.28890, 4.13106, 4.39912, + .03681, .01598, 158.44194, 4.73135, 4.17252, + 3.63173, 4.46758, 4.73365, + .03724, .01619, 167.61710, 5.06259, 4.50855, + 3.97304, 4.80063, 5.06486, + .03765, .01639, 176.35620, 5.38533, 4.83524, + 4.30385, 5.12505, 5.38757, + .03806, .01659, 185.28952, 5.72150, 5.17582, + 4.64927, 5.46289, 5.72371, + .03846, .01680, 194.13322, 6.06148, 5.51954, + 4.99689, 5.80448, 6.06366, + .03885, .01699, 202.70367, 6.39631, 5.85864, + 5.34070, 6.14083, 6.39846, + .03922, .01718, 210.77374, 6.71825, 6.18355, + 5.66864, 6.46418, 6.72038 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .03959, .01736, 219.17712, 7.05713, 6.52697, + 6.01722, 6.80448, 7.05924, + .03996, .01755, 227.27155, 7.39144, 6.86376, + 6.35647, 7.14016, 7.39353, + .04032, .01773, 235.21315, 7.72289, 7.19875, + 6.69535, 7.47290, 7.72495, + .04065, .01791, 242.75183, 8.04251, 7.52148, + 7.02150, 7.79373, 8.04454, + .04100, .01808, 250.35229, 8.36994, 7.85158, + 7.35441, 8.12239, 8.37196 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .02882, .01235, 3.65016, .61905, .00000, + .00000, .31841, .62097, + .02918, .01249, 5.41761, .63145, .00002, + .00000, .33303, .63334, + .02971, .01272, 8.45714, .65931, .02465, + .00000, .36414, .66116, + .03011, .01288, 11.00086, .68776, .06258, + .00000, .39493, .68958, + .03053, .01307, 13.88844, .72832, .10650, + .00000, .43792, .73010, + .03090, .01322, 16.72957, .76909, .15372, + .00000, .48076, .77085, + .03126, .01338, 19.60587, .81621, .20351, + .00000, .52985, .81794, + .03164, .01355, 22.92260, .87352, .26516, + .00000, .58922, .87522 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .03198, .01369, 26.02967, .92977, .32590, + .00000, .64723, .93145, + .03230, .01384, 29.15546, .99071, .38945, + .00000, .70986, .99237, + .03256, .01396, 31.77217, 1.04324, .44463, + .00000, .76372, 1.04488, + .03312, .01421, 37.63966, 1.16862, .57540, + .00029, .89188, 1.17022, + .03361, .01443, 43.03900, 1.29118, .70400, + .10727, 1.01679, 1.29275, + .03415, .01468, 49.37828, 1.44441, .86450, + .30734, 1.17261, 1.44594, + .03473, .01495, 56.28437, 1.62273, 1.04662, + .48580, 1.35356, 1.62422, + .03525, .01520, 62.89569, 1.80035, 1.22864, + .67299, 1.53352, 1.80182 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .03579, .01545, 69.92533, 1.99570, 1.42996, + .88367, 1.73118, 1.99713, + .03623, .01566, 75.94859, 2.16988, 1.60812, + 1.06579, 1.90725, 2.17128, + .03677, .01593, 83.47417, 2.39518, 1.83790, + 1.30048, 2.13479, 2.39655, + .03726, .01616, 90.43631, 2.60911, 2.05754, + 1.52764, 2.35067, 2.61046, + .03770, .01638, 96.86484, 2.81440, 2.26561, + 1.73783, 2.55771, 2.81572, + .03827, .01666, 105.31554, 3.09087, 2.54726, + 2.02547, 2.83637, 3.09216, + .03881, .01692, 113.52155, 3.36711, 2.82909, + 2.31387, 3.11463, 3.36838, + .03931, .01718, 121.22409, 3.63571, 3.10076, + 2.58830, 3.38509, 3.63696 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .03982, .01743, 129.20363, 3.91948, 3.38949, + 2.88280, 3.67068, 3.92070, + .04032, .01768, 137.04033, 4.20656, 3.68002, + 3.17681, 3.95951, 4.20776, + .04080, .01793, 144.61890, 4.48999, 3.96746, + 3.46876, 4.24457, 4.49117, + .04125, .01816, 151.81448, 4.76541, 4.24616, + 3.75095, 4.52151, 4.76657, + .04170, .01839, 159.14885, 5.05158, 4.53601, + 4.04490, 4.80919, 5.05273, + .04215, .01862, 166.38780, 5.34026, 4.82779, + 4.33996, 5.09932, 5.34139, + .04258, .01884, 173.38519, 5.62393, 5.11501, + 4.63119, 5.38435, 5.62504, + .04299, .01905, 179.95418, 5.89604, 5.38956, + 4.90827, 5.65774, 5.89714 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .04340, .01927, 186.78185, 6.18195, 5.67926, + 5.20235, 5.94492, 6.18303, + .04381, .01948, 193.33636, 6.46331, 5.96264, + 5.48776, 6.22752, 6.46438, + .04420, .01968, 199.75565, 6.74179, 6.24405, + 5.77245, 6.50716, 6.74285, + .04458, .01988, 205.83473, 7.00980, 6.51464, + 6.04591, 6.77627, 7.01085, + .04496, .02008, 211.94839, 7.28386, 6.79087, + 6.32448, 7.05142, 7.28489 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .03084, .01317, 3.63092, .58508, .00000, + .00000, .30090, .58618, + .03123, .01334, 5.31209, .59758, .00002, + .00000, .31546, .59865, + .03180, .01359, 8.17921, .62495, .02383, + .00000, .34583, .62598, + .03223, .01378, 10.56060, .65246, .06032, + .00000, .37550, .65346, + .03269, .01398, 13.24936, .69115, .10223, + .00000, .41645, .69213, + .03309, .01416, 15.88131, .72987, .14703, + .00000, .45709, .73082, + .03347, .01434, 18.53496, .77433, .19401, + .00000, .50336, .77526, + .03389, .01452, 21.58254, .82816, .25196, + .00000, .55910, .82907 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .03425, .01469, 24.42711, .88081, .30883, + .00000, .61339, .88170, + .03460, .01485, 27.27947, .93764, .36813, + .00000, .67178, .93850, + .03488, .01498, 29.66087, .98650, .41946, + .00000, .72186, .98735, + .03548, .01527, 34.97985, 1.10269, .54070, + .00028, .84063, 1.10351, + .03601, .01552, 39.85119, 1.21581, .65942, + .09895, .95593, 1.21661, + .03660, .01580, 45.54391, 1.35670, .80699, + .28313, 1.09920, 1.35747, + .03722, .01610, 51.71860, 1.51994, .97373, + .44652, 1.26488, 1.52068, + .03779, .01637, 57.60577, 1.68196, 1.13975, + .61731, 1.42906, 1.68268 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .03837, .01666, 63.84251, 1.85956, 1.32276, + .80890, 1.60879, 1.86025, + .03885, .01689, 69.16811, 2.01742, 1.48422, + .97398, 1.76840, 2.01810, + .03944, .01719, 75.80003, 2.22101, 1.69184, + 1.18607, 1.97406, 2.22167, + .03996, .01745, 81.91624, 2.41379, 1.88974, + 1.39082, 2.16864, 2.41443, + .04044, .01769, 87.54590, 2.59827, 2.07669, + 1.57969, 2.35474, 2.59889, + .04106, .01800, 94.92479, 2.84607, 2.32911, + 1.83752, 2.60456, 2.84667, + .04164, .01830, 102.06748, 3.09297, 2.58098, + 2.09534, 2.85332, 3.09355, + .04219, .01858, 108.74973, 3.33238, 2.82309, + 2.33993, 3.09444, 3.33295 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .04274, .01886, 115.65474, 3.58472, 3.07983, + 2.60187, 3.34847, 3.58527, + .04328, .01914, 122.41576, 3.83937, 3.33752, + 2.86268, 3.60474, 3.83991, + .04379, .01941, 128.93799, 4.09024, 3.59194, + 3.12114, 3.85711, 4.09077, + .04428, .01966, 135.11490, 4.33351, 3.83809, + 3.37042, 4.10178, 4.33403, + .04477, .01992, 141.39679, 4.58578, 4.09360, + 3.62961, 4.35544, 4.58629, + .04526, .02017, 147.58199, 4.83975, 4.35030, + 3.88925, 4.61076, 4.84026, + .04572, .02042, 153.54874, 5.08888, 4.60257, + 4.14510, 4.86115, 5.08938, + .04616, .02065, 159.13672, 5.32743, 4.84324, + 4.38803, 5.10087, 5.32792 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .04661, .02089, 164.93646, 5.57770, 5.09687, + 4.64557, 5.35232, 5.57819, + .04705, .02112, 170.48869, 5.82353, 5.34445, + 4.89496, 5.59928, 5.82401, + .04748, .02135, 175.91905, 6.06650, 5.59001, + 5.14344, 5.84333, 6.06698, + .04788, .02156, 181.05157, 6.30000, 5.82577, + 5.38176, 6.07784, 6.30047, + .04829, .02178, 186.20313, 6.53839, 6.06609, + 5.62415, 6.31725, 6.53886 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .03809, .01616, 3.56895, .49072, .00000, + .00000, .25270, .49032, + .03857, .01640, 4.99408, .50322, .00002, + .00000, .26683, .50281, + .03930, .01676, 7.36745, .52886, .02141, + .00000, .29485, .52843, + .03985, .01703, 9.29438, .55351, .05374, + .00000, .32121, .55306, + .04042, .01732, 11.43460, .58688, .08990, + .00000, .35636, .58642, + .04093, .01758, 13.49646, .61980, .12782, + .00000, .39080, .61932, + .04142, .01782, 15.54910, .65682, .16698, + .00000, .42925, .65633, + .04194, .01809, 17.87669, .70105, .21465, + .00000, .47498, .70055 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .04240, .01833, 20.02466, .74382, .26086, + .00000, .51904, .74331, + .04285, .01856, 22.15641, .78939, .30852, + .00000, .56585, .78888, + .04321, .01874, 23.92123, .82828, .34943, + .00000, .60570, .82776, + .04398, .01914, 27.81435, .91966, .44493, + .00024, .69911, .91913, + .04464, .01949, 31.32617, 1.00748, .53720, + .07685, .78864, 1.00695, + .04540, .01989, 35.36919, 1.11549, .65044, + .21896, .89854, 1.11495, + .04619, .02031, 39.69390, 1.23892, .77668, + .34286, 1.02389, 1.23838, + .04692, .02070, 43.76435, 1.36002, .90090, + .47098, 1.14668, 1.35947 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .04766, .02109, 48.02629, 1.49136, 1.03639, + .61323, 1.27971, 1.49082, + .04827, .02142, 51.62602, 1.60698, 1.15475, + .73452, 1.39669, 1.60644, + .04903, .02183, 56.06120, 1.75468, 1.30551, + .88888, 1.54602, 1.75414, + .04969, .02219, 60.11106, 1.89329, 1.44795, + 1.03666, 1.68605, 1.89276, + .05031, .02252, 63.80042, 2.02478, 1.58133, + 1.17164, 1.81882, 2.02425, + .05110, .02295, 68.59129, 2.19995, 1.75994, + 1.35451, 1.99557, 2.19943, + .05184, .02336, 73.18208, 2.37293, 1.93661, + 1.53579, 2.17002, 2.37242, + .05254, .02374, 77.43040, 2.53920, 2.10490, + 1.70612, 2.33764, 2.53870 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .05325, .02413, 81.78507, 2.71317, 2.28212, + 1.88736, 2.51293, 2.71268, + .05394, .02451, 86.00712, 2.88736, 2.45857, + 2.06629, 2.68839, 2.88688, + .05460, .02488, 90.04762, 3.05778, 2.63160, + 2.24247, 2.86000, 3.05731, + .05522, .02522, 93.84268, 3.22193, 2.79789, + 2.41121, 3.02525, 3.22148, + .05585, .02557, 97.67391, 3.39112, 2.96946, + 2.58563, 3.19552, 3.39068, + .05647, .02592, 101.41618, 3.56037, 3.14074, + 2.75922, 3.36583, 3.55995, + .05707, .02625, 105.00274, 3.72548, 3.30814, + 2.92938, 3.53193, 3.72506, + .05763, .02657, 108.33491, 3.88264, 3.46689, + 3.08992, 3.69001, 3.88223 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .05820, .02688, 111.77772, 4.04679, 3.63350, + 3.25951, 3.85509, 4.04640, + .05877, .02720, 115.04256, 4.20701, 3.79505, + 3.42253, 4.01621, 4.20664, + .05931, .02750, 118.22214, 4.36472, 3.95466, + 3.58440, 4.17476, 4.36436, + .05982, .02779, 121.20779, 4.51553, 4.10716, + 3.73887, 4.32638, 4.51519, + .06034, .02809, 124.18467, 4.66878, 4.26184, + 3.89520, 4.48042, 4.66845 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .04708, .02000, 3.50055, .41161, .00000, + .00000, .21286, .41103, + .04769, .02034, 4.68720, .42376, .00002, + .00000, .22630, .42317, + .04862, .02085, 6.62344, .44744, .01916, + .00000, .25188, .44685, + .04931, .02123, 8.16161, .46934, .04768, + .00000, .27515, .46876, + .05005, .02163, 9.84293, .49798, .07872, + .00000, .30521, .49739, + .05069, .02199, 11.43691, .52583, .11066, + .00000, .33426, .52524, + .05132, .02234, 13.00367, .55650, .14310, + .00000, .36608, .55592, + .05199, .02271, 14.75741, .59263, .18207, + .00000, .40341, .59205 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .05258, .02304, 16.35716, .62715, .21937, + .00000, .43896, .62658, + .05315, .02337, 17.92805, .66346, .25741, + .00000, .47625, .66289, + .05360, .02363, 19.21733, .69417, .28978, + .00000, .50773, .69361, + .05459, .02418, 22.02465, .76546, .36444, + .00021, .58064, .76491, + .05544, .02467, 24.51690, .83302, .43557, + .05934, .64958, .83249, + .05641, .02522, 27.34078, .91504, .52174, + .16835, .73309, .91452, + .05743, .02580, 30.31759, 1.00739, .61645, + .26170, .82698, 1.00690, + .05836, .02634, 33.08152, 1.09690, .70853, + .35716, .91784, 1.09642 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .05930, .02688, 35.94005, 1.19292, .80786, + .46203, 1.01521, 1.19247, + .06009, .02734, 38.32644, 1.27658, .89375, + .55048, 1.09996, 1.27615, + .06106, .02790, 41.23340, 1.38240, 1.00208, + .66195, 1.20709, 1.38199, + .06191, .02839, 43.86008, 1.48080, 1.10350, + .76773, 1.30662, 1.48042, + .06270, .02885, 46.22615, 1.57328, 1.19758, + .86337, 1.40012, 1.57292, + .06371, .02944, 49.26821, 1.69543, 1.32252, + .99192, 1.52355, 1.69511, + .06466, .02999, 52.15181, 1.81496, 1.44497, + 1.11820, 1.64425, 1.81466, + .06556, .03052, 54.78825, 1.92878, 1.56051, + 1.23565, 1.75915, 1.92852 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .06646, .03104, 57.46760, 2.04698, 1.68130, + 1.35980, 1.87841, 2.04675, + .06735, .03156, 60.03704, 2.16434, 1.80055, + 1.48126, 1.99680, 2.16415, + .06819, .03205, 62.47474, 2.27835, 1.91667, + 1.60006, 2.11176, 2.27819, + .06899, .03252, 64.74339, 2.38740, 2.02748, + 1.71301, 2.22169, 2.38727, + .06979, .03299, 67.01519, 2.49907, 2.14109, + 1.82905, 2.33423, 2.49897, + .07059, .03346, 69.21439, 2.61005, 2.25374, + 1.94373, 2.44606, 2.60998, + .07134, .03390, 71.30714, 2.71768, 2.36323, + 2.05555, 2.55449, 2.71764, + .07206, .03432, 73.23340, 2.81948, 2.46638, + 2.16031, 2.65704, 2.81948 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .07279, .03475, 75.21457, 2.92534, 2.57419, + 2.27058, 2.76364, 2.92536, + .07351, .03517, 77.07191, 3.02796, 2.67796, + 2.37573, 2.86699, 3.02802, + .07419, .03557, 78.87296, 3.12854, 2.78009, + 2.47979, 2.96825, 3.12863, + .07485, .03596, 80.55136, 3.22422, 2.87716, + 2.57856, 3.06458, 3.22434, + .07551, .03635, 82.21176, 3.32095, 2.97510, + 2.67797, 3.16196, 3.32111 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .05333, .02282, 3.45503, .37184, .00000, + .00000, .19301, .37157, + .05404, .02323, 4.51018, .38365, .00002, + .00000, .20595, .38338, + .05511, .02385, 6.21358, .40609, .01790, + .00000, .23007, .40584, + .05591, .02431, 7.55002, .42644, .04430, + .00000, .25163, .42619, + .05677, .02481, 8.99736, .45252, .07259, + .00000, .27895, .45228, + .05751, .02524, 10.35647, .47766, .10135, + .00000, .30516, .47744, + .05824, .02567, 11.68228, .50502, .13028, + .00000, .33353, .50481, + .05901, .02612, 13.15480, .53698, .16476, + .00000, .36654, .53678 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .05969, .02652, 14.48869, .56729, .19750, + .00000, .39777, .56711, + .06036, .02691, 15.79009, .59891, .23067, + .00000, .43025, .59874, + .06089, .02723, 16.85260, .62552, .25875, + .00000, .45754, .62537, + .06203, .02790, 19.14765, .68681, .32304, + .00019, .52027, .68669, + .06302, .02849, 21.16503, .74442, .38378, + .05077, .57908, .74432, + .06414, .02916, 23.42813, .81377, .45677, + .14366, .64977, .81370, + .06532, .02986, 25.79230, .89117, .53632, + .22235, .72852, .89114, + .06640, .03050, 27.96894, .96561, .61309, + .30227, .80417, .96562 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .06749, .03116, 30.20295, 1.04495, .69535, + .38951, .88469, 1.04499, + .06841, .03170, 32.05434, 1.11362, .76604, + .46261, .95434, 1.11370, + .06952, .03237, 34.29350, 1.19997, .85466, + .55418, 1.04185, 1.20009, + .07051, .03297, 36.30355, 1.27981, .93718, + .64062, 1.12270, 1.27997, + .07143, .03352, 38.10107, 1.35443, 1.01327, + .71828, 1.19822, 1.35462, + .07260, .03422, 40.39776, 1.45247, 1.11382, + .82216, 1.29740, 1.45271, + .07370, .03488, 42.55990, 1.54786, 1.21182, + .92365, 1.39383, 1.54814, + .07474, .03550, 44.52111, 1.63817, 1.30374, + 1.01745, 1.48511, 1.63850 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .07578, .03613, 46.50364, 1.73154, 1.39942, + 1.11620, 1.57942, 1.73191, + .07680, .03674, 48.39109, 1.82377, 1.49338, + 1.21228, 1.67256, 1.82419, + .07777, .03733, 50.17185, 1.91297, 1.58449, + 1.30586, 1.76262, 1.91343, + .07869, .03788, 51.81911, 1.99792, 1.67105, + 1.39444, 1.84836, 1.99842, + .07962, .03844, 53.45995, 2.08456, 1.75945, + 1.48509, 1.93579, 2.08511, + .08054, .03899, 55.03883, 2.17032, 1.84674, + 1.57430, 2.02231, 2.17092, + .08141, .03951, 56.53437, 2.25319, 1.93128, + 1.66099, 2.10590, 2.25383, + .08223, .04001, 57.90223, 2.33127, 2.01061, + 1.74187, 2.18465, 2.33195 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .08307, .04051, 59.30517, 2.41224, 2.09332, + 1.82681, 2.26628, 2.41296, + .08390, .04101, 60.60976, 2.49039, 2.17256, + 1.90741, 2.34508, 2.49115, + .08469, .04148, 61.87150, 2.56679, 2.25036, + 1.98699, 2.42210, 2.56760, + .08544, .04194, 63.04122, 2.63924, 2.32407, + 2.06229, 2.49513, 2.64008, + .08621, .04239, 64.19206, 2.71224, 2.39819, + 2.13781, 2.56870, 2.71312 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .05829, .02519, 3.41885, .34645, .00000, + .00000, .18037, .34648, + .05908, .02566, 4.38435, .35797, .00002, + .00000, .19293, .35802, + .06027, .02637, 5.93159, .37951, .01701, + .00000, .21600, .37958, + .06116, .02690, 7.13475, .39876, .04195, + .00000, .23635, .39885, + .06211, .02747, 8.42916, .42309, .06836, + .00000, .26183, .42320, + .06294, .02797, 9.63629, .44641, .09499, + .00000, .28613, .44654, + .06375, .02846, 10.80740, .47156, .12159, + .00000, .31220, .47172, + .06461, .02898, 12.10073, .50076, .15309, + .00000, .34237, .50094 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .06537, .02944, 13.26635, .52831, .18285, + .00000, .37075, .52851, + .06611, .02989, 14.39820, .55688, .21285, + .00000, .40012, .55710, + .06670, .03025, 15.31874, .58083, .23814, + .00000, .42469, .58107, + .06797, .03102, 17.29532, .63568, .29575, + .00018, .48087, .63596, + .06908, .03169, 19.01996, .68692, .34985, + .04530, .53322, .68724, + .07032, .03245, 20.94017, .74823, .41448, + .12793, .59575, .74859, + .07163, .03325, 22.93266, .81620, .48448, + .19738, .66497, .81661, + .07283, .03398, 24.75556, .88123, .55166, + .26758, .73111, .88168 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .07405, .03473, 26.61585, .95018, .62330, + .34384, .80116, .95068, + .07507, .03535, 28.14907, 1.00958, .68458, + .40742, .86146, 1.01013, + .07631, .03611, 29.99335, 1.08395, .76107, + .48673, .93690, 1.08455, + .07741, .03679, 31.64086, 1.15242, .83200, + .56131, 1.00631, 1.15307, + .07843, .03741, 33.10592, 1.21615, .89713, + .62800, 1.07087, 1.21684, + .07973, .03820, 34.96905, 1.29955, .98287, + .71690, 1.15533, 1.30031, + .08095, .03895, 36.71387, 1.38037, 1.06610, + .80339, 1.23712, 1.38118, + .08210, .03965, 38.28684, 1.45656, 1.14382, + .88297, 1.31420, 1.45743 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .08326, .04036, 39.87045, 1.53506, 1.22446, + .96649, 1.39358, 1.53598, + .08439, .04105, 41.36962, 1.61231, 1.30334, + 1.04742, 1.47168, 1.61329, + .08547, .04171, 42.77802, 1.68678, 1.37960, + 1.12601, 1.54694, 1.68781, + .08649, .04233, 44.07462, 1.75747, 1.45180, + 1.20016, 1.61837, 1.75856, + .08751, .04296, 45.36089, 1.82936, 1.52533, + 1.27582, 1.69099, 1.83050, + .08852, .04358, 46.59272, 1.90030, 1.59771, + 1.35004, 1.76264, 1.90149, + .08949, .04416, 47.75534, 1.96867, 1.66764, + 1.42200, 1.83168, 1.96992, + .09040, .04472, 48.81320, 2.03290, 1.73305, + 1.48891, 1.89653, 2.03419 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .09133, .04528, 49.89605, 2.09936, 1.80112, + 1.55907, 1.96363, 2.10071, + .09224, .04584, 50.89618, 2.16331, 1.86612, + 1.62539, 2.02818, 2.16470, + .09311, .04637, 51.86161, 2.22570, 1.92982, + 1.69078, 2.09115, 2.22715, + .09394, .04687, 52.75280, 2.28472, 1.99002, + 1.75249, 2.15072, 2.28622, + .09479, .04738, 53.62564, 2.34405, 2.05041, + 1.81423, 2.21058, 2.34559 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .06245, .02741, 3.38701, .32919, .00000, + .00000, .17156, .32916, + .06331, .02794, 4.28560, .34048, .00002, + .00000, .18382, .34047, + .06462, .02874, 5.71490, .36129, .01630, + .00000, .20604, .36131, + .06559, .02934, 6.81785, .37966, .04009, + .00000, .22544, .37971, + .06663, .02998, 7.99795, .40263, .06505, + .00000, .24947, .40271, + .06754, .03053, 9.09228, .42453, .09006, + .00000, .27228, .42465, + .06842, .03108, 10.14922, .44798, .11488, + .00000, .29659, .44813, + .06936, .03166, 11.31107, .47508, .14415, + .00000, .32459, .47526 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .07019, .03217, 12.35384, .50054, .17167, + .00000, .35083, .50075, + .07100, .03267, 13.36244, .52682, .19930, + .00000, .37785, .52706, + .07164, .03307, 14.18015, .54878, .22253, + .00000, .40039, .54905, + .07302, .03393, 15.92736, .59887, .27520, + .00017, .45171, .59919, + .07423, .03468, 17.44253, .64542, .32441, + .04127, .49929, .64579, + .07559, .03553, 19.11884, .70086, .38294, + .11636, .55587, .70129, + .07703, .03641, 20.84862, .76199, .44599, + .17908, .61817, .76248, + .07834, .03722, 22.42294, .82021, .50624, + .24221, .67743, .82077 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07966, .03805, 24.02194, .88171, .57025, + .31053, .73996, .88232, + .08077, .03874, 25.33375, .93449, .62479, + .36727, .79358, .93516, + .08213, .03957, 26.90449, 1.00032, .69262, + .43780, .86041, 1.00105, + .08333, .04032, 28.30188, 1.06074, .75532, + .50390, .92170, 1.06153, + .08443, .04100, 29.53856, 1.11677, .81269, + .56280, .97852, 1.11762, + .08584, .04187, 31.10498, 1.18987, .88798, + .64107, 1.05261, 1.19079, + .08718, .04270, 32.56544, 1.26046, .96082, + .71699, 1.12411, 1.26146, + .08843, .04347, 33.87533, 1.32678, 1.02860, + .78657, 1.19127, 1.32785 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08968, .04424, 35.18961, 1.39493, 1.09874, + .85942, 1.26024, 1.39606, + .09091, .04500, 36.42752, 1.46177, 1.16713, + .92978, 1.32788, 1.46297, + .09208, .04572, 37.58620, 1.52604, 1.23307, + .99793, 1.39289, 1.52730, + .09319, .04640, 38.64848, 1.58688, 1.29535, + 1.06205, 1.45443, 1.58820, + .09430, .04708, 39.69867, 1.64860, 1.35861, + 1.12734, 1.51684, 1.64999, + .09540, .04775, 40.70041, 1.70935, 1.42073, + 1.19121, 1.57826, 1.71081, + .09644, .04839, 41.64283, 1.76778, 1.48063, + 1.25302, 1.63732, 1.76929, + .09743, .04900, 42.49616, 1.82253, 1.53650, + 1.31034, 1.69265, 1.82410 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09843, .04961, 43.36823, 1.87909, 1.59458, + 1.37037, 1.74982, 1.88073, + .09942, .05021, 44.16887, 1.93336, 1.64985, + 1.42692, 1.80465, 1.93505, + .10036, .05079, 44.94052, 1.98623, 1.70396, + 1.48262, 1.85807, 1.98798, + .10126, .05134, 45.65007, 2.03614, 1.75499, + 1.53509, 1.90850, 2.03795, + .10217, .05189, 46.34208, 2.08621, 1.80607, + 1.58746, 1.95908, 2.08807 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .07765, .03620, 3.26654, .28212, .00000, + .00000, .14771, .28233, + .07880, .03696, 3.96859, .29253, .00002, + .00000, .15890, .29280, + .08053, .03810, 5.06049, .31093, .01412, + .00000, .17846, .31128, + .08182, .03894, 5.88319, .32662, .03444, + .00000, .19497, .32703, + .08320, .03984, 6.74859, .34557, .05515, + .00000, .21479, .34605, + .08441, .04063, 7.53677, .36336, .07545, + .00000, .23331, .36389, + .08558, .04139, 8.28716, .38199, .09524, + .00000, .25264, .38257, + .08683, .04221, 9.09976, .40317, .11823, + .00000, .27456, .40382 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08793, .04293, 9.81935, .42280, .13954, + .00000, .29483, .42351, + .08900, .04362, 10.50655, .44276, .16065, + .00000, .31539, .44353, + .08985, .04417, 11.05801, .45928, .17822, + .00000, .33239, .46009, + .09168, .04536, 12.21699, .49642, .21752, + .00015, .37054, .49733, + .09328, .04639, 13.20138, .53037, .25366, + .03049, .40535, .53137, + .09508, .04755, 14.26712, .57018, .29598, + .08555, .44611, .57128, + .09696, .04876, 15.34634, .61333, .34082, + .13059, .49023, .61454, + .09868, .04986, 16.31122, .65383, .38307, + .17535, .53159, .65515 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .10043, .05097, 17.27557, .69604, .42737, + .22319, .57467, .69747, + .10188, .05190, 18.05412, .73183, .46466, + .26241, .61117, .73335, + .10365, .05302, 18.97165, .77594, .51050, + .31061, .65612, .77757, + .10522, .05401, 19.77653, .81597, .55242, + .35532, .69690, .81770, + .10666, .05492, 20.47666, .85268, .59033, + .39467, .73427, .85450, + .10849, .05608, 21.35129, .90007, .63960, + .44648, .78251, .90202, + .11022, .05716, 22.15410, .94533, .68674, + .49620, .82855, .94739, + .11184, .05817, 22.86003, .98735, .73009, + .54119, .87128, .98952 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11346, .05918, 23.55998, 1.03014, .77457, + .58794, .91478, 1.03241, + .11505, .06017, 24.20711, 1.07166, .81747, + .63259, .95699, 1.07405, + .11656, .06110, 24.80476, 1.11124, .85848, + .67549, .99721, 1.11372, + .11797, .06198, 25.34412, 1.14837, .89688, + .71549, 1.03494, 1.15095, + .11940, .06286, 25.87028, 1.18573, .93558, + .75591, 1.07291, 1.18841, + .12080, .06372, 26.36407, 1.22219, .97325, + .79512, 1.10995, 1.22497, + .12213, .06453, 26.82324, 1.25700, 1.00933, + .83281, 1.14531, 1.25987, + .12339, .06530, 27.23119, 1.28934, 1.04269, + .86746, 1.17817, 1.29230 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12466, .06608, 27.64592, 1.32258, 1.07721, + .90359, 1.21194, 1.32564, + .12591, .06684, 28.01666, 1.35416, 1.10973, + .93728, 1.24401, 1.35730, + .12711, .06757, 28.37215, 1.38477, 1.14142, + .97032, 1.27511, 1.38800, + .12824, .06825, 28.69380, 1.41346, 1.17110, + 1.00123, 1.30426, 1.41678, + .12939, .06894, 29.00194, 1.44204, 1.20061, + 1.03187, 1.33329, 1.44544 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09746, .04950, 3.09228, .24546, .00000, + .00000, .12887, .24607, + .09903, .05057, 3.61674, .25469, .00002, + .00000, .13875, .25540, + .10141, .05217, 4.41226, .27038, .01189, + .00000, .15540, .27124, + .10318, .05335, 4.99614, .28329, .02877, + .00000, .16902, .28427, + .10506, .05461, 5.59921, .29839, .04546, + .00000, .18484, .29949, + .10670, .05570, 6.13801, .31231, .06149, + .00000, .19940, .31353, + .10829, .05675, 6.64283, .32657, .07680, + .00000, .21426, .32790, + .10999, .05787, 7.18058, .34253, .09431, + .00000, .23085, .34398 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11148, .05885, 7.64975, .35710, .11030, + .00000, .24597, .35865, + .11292, .05979, 8.09136, .37169, .12592, + .00000, .26109, .37334, + .11407, .06054, 8.44169, .38363, .13879, + .00000, .27345, .38538, + .11654, .06214, 9.16375, .41008, .16714, + .00012, .30078, .41200, + .11869, .06352, 9.76187, .43383, .19276, + .02183, .32529, .43591, + .12109, .06506, 10.39209, .46121, .22228, + .06092, .35351, .46347, + .12361, .06666, 11.01596, .49034, .25299, + .09220, .38350, .49279, + .12589, .06811, 11.56168, .51724, .28148, + .12284, .41118, .51987 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12820, .06956, 12.09645, .54487, .31094, + .15516, .43959, .54768, + .13012, .07076, 12.51949, .56798, .33540, + .18129, .46333, .57094, + .13245, .07221, 13.00779, .59607, .36508, + .21300, .49219, .59921, + .13450, .07348, 13.42860, .62126, .39191, + .24209, .51806, .62456, + .13638, .07464, 13.78593, .64405, .41585, + .26734, .54146, .64750, + .13877, .07611, 14.22437, .67313, .44663, + .30025, .57131, .67678, + .14101, .07747, 14.61852, .70055, .47573, + .33146, .59946, .70438, + .14309, .07874, 14.95473, .72566, .50211, + .35932, .62523, .72966 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14518, .08000, 15.28289, .75097, .52894, + .38801, .65120, .75514, + .14721, .08122, 15.57776, .77521, .55449, + .41507, .67609, .77955, + .14913, .08237, 15.84472, .79808, .57869, + .44085, .69957, .80258, + .15093, .08344, 16.07956, .81931, .60110, + .46464, .72136, .82395, + .15273, .08451, 16.30390, .84048, .62350, + .48847, .74309, .84527, + .15450, .08555, 16.50867, .86091, .64508, + .51136, .76408, .86584, + .15618, .08654, 16.69555, .88026, .66559, + .53321, .78395, .88533, + .15775, .08746, 16.85576, .89803, .68436, + .55308, .80222, .90324 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .15935, .08839, 17.01774, .91621, .70368, + .57372, .82089, .92155, + .16090, .08929, 17.15468, .93324, .72165, + .59271, .83840, .93871, + .16238, .09016, 17.28525, .94967, .73908, + .61126, .85529, .95526, + .16379, .09097, 17.39945, .96492, .75527, + .62848, .87098, .97064, + .16520, .09178, 17.50457, .97997, .77122, + .64540, .88647, .98581 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11223, .06028, 2.95588, .22769, .00000, + .00000, .11969, .22881, + .11415, .06157, 3.38585, .23606, .00002, + .00000, .12867, .23733, + .11704, .06351, 4.02793, .25001, .01058, + .00000, .14353, .25149, + .11919, .06493, 4.49141, .26126, .02545, + .00000, .15545, .26291, + .12146, .06642, 4.96459, .27416, .03992, + .00000, .16906, .27600, + .12345, .06772, 5.38232, .28595, .05364, + .00000, .18145, .28795, + .12536, .06897, 5.76966, .29786, .06658, + .00000, .19394, .30001, + .12741, .07029, 6.17795, .31105, .08125, + .00000, .20774, .31337 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12920, .07144, 6.53079, .32299, .09452, + .00000, .22021, .32545, + .13093, .07254, 6.85965, .33482, .10737, + .00000, .23257, .33744, + .13231, .07342, 7.11856, .34446, .11789, + .00000, .24260, .34718, + .13526, .07529, 7.64496, .36557, .14086, + .00011, .26458, .36855, + .13781, .07689, 8.07327, .38433, .16139, + .01764, .28409, .38752, + .14067, .07868, 8.51552, .40573, .18481, + .04904, .30631, .40916, + .14364, .08052, 8.94620, .42821, .20889, + .07383, .32964, .43190, + .14634, .08217, 9.31690, .44876, .23101, + .09791, .35096, .45268 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .14905, .08383, 9.67488, .46967, .25368, + .12308, .37264, .47383, + .15130, .08519, 9.95358, .48700, .27235, + .14327, .39061, .49135, + .15401, .08682, 10.27026, .50787, .29481, + .16756, .41225, .51246, + .15641, .08825, 10.53957, .52644, .31496, + .18969, .43150, .53125, + .15859, .08955, 10.76338, .54309, .33278, + .20874, .44876, .54809, + .16135, .09118, 11.03398, .56418, .35554, + .23340, .47062, .56942, + .16394, .09269, 11.27297, .58388, .37688, + .25661, .49106, .58936, + .16633, .09409, 11.47102, .60175, .39606, + .27714, .50959, .60743 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .16872, .09548, 11.66181, .61963, .41544, + .29817, .52815, .62553, + .17104, .09681, 11.82853, .63662, .43374, + .31785, .54579, .64272, + .17322, .09806, 11.97657, .65253, .45097, + .33648, .56231, .65882, + .17526, .09922, 12.10328, .66717, .46681, + .35356, .57753, .67365, + .17731, .10038, 12.22164, .68168, .48255, + .37058, .59261, .68834, + .17930, .10150, 12.32626, .69558, .49761, + .38682, .60708, .70243, + .18119, .10256, 12.41973, .70867, .51185, + .40224, .62070, .71568, + .18295, .10354, 12.49616, .72059, .52478, + .41617, .63312, .72776 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .18474, .10453, 12.57316, .73273, .53806, + .43060, .64578, .74007, + .18646, .10549, 12.63289, .74399, .55029, + .44376, .65752, .75148, + .18812, .10640, 12.68959, .75481, .56212, + .45659, .66882, .76245, + .18967, .10725, 12.73651, .76480, .57305, + .46843, .67925, .77257, + .19123, .10810, 12.77667, .77457, .58374, + .47999, .68947, .78249 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .12476, .06976, 2.83957, .21646, .00000, + .00000, .11386, .21818, + .12698, .07122, 3.20719, .22415, .00002, + .00000, .12216, .22606, + .13032, .07340, 3.74968, .23677, .00963, + .00000, .13569, .23896, + .13279, .07500, 4.13629, .24681, .02310, + .00000, .14641, .24922, + .13541, .07667, 4.52748, .25818, .03604, + .00000, .15848, .26083, + .13768, .07813, 4.86979, .26849, .04820, + .00000, .16940, .27134, + .13988, .07951, 5.18459, .27881, .05957, + .00000, .18030, .28186, + .14221, .08098, 5.51372, .29015, .07237, + .00000, .19226, .29341 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14426, .08226, 5.79605, .30035, .08388, + .00000, .20300, .30379, + .14623, .08348, 6.05711, .31040, .09496, + .00000, .21357, .31402, + .14779, .08445, 6.26144, .31853, .10397, + .00000, .22211, .32230, + .15113, .08650, 6.67215, .33624, .12353, + .00010, .24070, .34031, + .15402, .08826, 7.00135, .35183, .14088, + .01500, .25705, .35617, + .15724, .09021, 7.33535, .36948, .16052, + .04161, .27554, .37411, + .16058, .09220, 7.65597, .38785, .18053, + .06240, .29478, .39279, + .16359, .09399, 7.92813, .40450, .19878, + .08246, .31221, .40972 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .16663, .09577, 8.18762, .42132, .21736, + .10331, .32983, .42683, + .16913, .09723, 8.38670, .43516, .23256, + .11992, .34433, .44090, + .17214, .09898, 8.60947, .45172, .25073, + .13978, .36168, .45775, + .17480, .10050, 8.79659, .46636, .26695, + .15779, .37701, .47263, + .17720, .10188, 8.94884, .47939, .28119, + .17318, .39067, .48588, + .18024, .10360, 9.13028, .49578, .29928, + .19302, .40786, .50257, + .18308, .10520, 9.28762, .51100, .31614, + .21158, .42383, .51805, + .18570, .10666, 9.41394, .52468, .33118, + .22788, .43820, .53198 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .18830, .10810, 9.53394, .53831, .34631, + .24452, .45253, .54585, + .19082, .10949, 9.63525, .55114, .36050, + .25998, .46604, .55892, + .19319, .11079, 9.72315, .56310, .37380, + .27456, .47863, .57110, + .19540, .11198, 9.79576, .57403, .38596, + .28785, .49015, .58224, + .19760, .11317, 9.86156, .58480, .39798, + .30104, .50152, .59321, + .19974, .11432, 9.91700, .59505, .40942, + .31356, .51235, .60366, + .20177, .11540, 9.96498, .60465, .42019, + .32541, .52251, .61346, + .20365, .11640, 10.00108, .61333, .42991, + .33606, .53170, .62231 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .20556, .11741, 10.03737, .62215, .43988, + .34706, .54105, .63131, + .20740, .11837, 10.06075, .63024, .44897, + .35702, .54964, .63957, + .20915, .11929, 10.08285, .63800, .45776, + .36671, .55789, .64749, + .21080, .12014, 10.09860, .64511, .46583, + .37562, .56547, .65476, + .21244, .12099, 10.10903, .65203, .47369, + .38428, .57284, .66183 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .13600, .07834, 2.73733, .20832, .00000, + .00000, .10967, .21071, + .13849, .07993, 3.05947, .21543, .00002, + .00000, .11741, .21805, + .14223, .08231, 3.53025, .22698, .00890, + .00000, .12989, .22995, + .14499, .08405, 3.86220, .23607, .02129, + .00000, .13967, .23931, + .14790, .08587, 4.19566, .24627, .03309, + .00000, .15058, .24979, + .15043, .08744, 4.48534, .25546, .04408, + .00000, .16040, .25922, + .15287, .08893, 4.74985, .26459, .05431, + .00000, .17013, .26858, + .15545, .09051, 5.02451, .27457, .06575, + .00000, .18074, .27881 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .15771, .09188, 5.25862, .28349, .07598, + .00000, .19023, .28795, + .15988, .09319, 5.47366, .29223, .08577, + .00000, .19950, .29690, + .16160, .09422, 5.64112, .29928, .09372, + .00000, .20698, .30412, + .16528, .09641, 5.97425, .31454, .11086, + .00009, .22314, .31973, + .16844, .09827, 6.23765, .32789, .12598, + .01315, .23727, .33339, + .17197, .10033, 6.50071, .34289, .14297, + .03638, .25314, .34873, + .17560, .10243, 6.74953, .35838, .16018, + .05440, .26953, .36458, + .17888, .10430, 6.95821, .37233, .17577, + .07169, .28430, .37885 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .18217, .10617, 7.15481, .38634, .19156, + .08957, .29913, .39318, + .18488, .10769, 7.30336, .39779, .20440, + .10373, .31126, .40490, + .18812, .10949, 7.46692, .41141, .21968, + .12060, .32570, .41884, + .19098, .11108, 7.60256, .42339, .23325, + .13582, .33840, .43109, + .19356, .11249, 7.71055, .43398, .24510, + .14876, .34964, .44193, + .19680, .11426, 7.83716, .44723, .26009, + .16537, .36373, .45550, + .19984, .11589, 7.94465, .45946, .27399, + .18084, .37674, .46803, + .20262, .11738, 8.02771, .47037, .28631, + .19435, .38836, .47921 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .20539, .11885, 8.10530, .48118, .29865, + .20810, .39990, .49029, + .20805, .12025, 8.16770, .49130, .31017, + .22080, .41071, .50066, + .21055, .12155, 8.22018, .50067, .32092, + .23273, .42074, .51028, + .21287, .12276, 8.26134, .50919, .33069, + .24357, .42988, .51903, + .21518, .12395, 8.29673, .51754, .34032, + .25428, .43885, .52760, + .21742, .12509, 8.32387, .52544, .34944, + .26441, .44734, .53570, + .21953, .12617, 8.34589, .53280, .35800, + .27396, .45528, .54326, + .22149, .12716, 8.35932, .53940, .36568, + .28250, .46242, .55006 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .22348, .12816, 8.37279, .54611, .37354, + .29132, .46966, .55695, + .22538, .12910, 8.37614, .55218, .38066, + .29925, .47626, .56320, + .22720, .13000, 8.37924, .55799, .38753, + .30695, .48258, .56919, + .22890, .13084, 8.37810, .56329, .39381, + .31400, .48836, .57465, + .23059, .13167, 8.37267, .56840, .39989, + .32083, .49395, .57993 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15623, .09367, 2.56251, .19662, .00000, + .00000, .10375, .20056, + .15918, .09547, 2.82122, .20280, .00002, + .00000, .11060, .20704, + .16360, .09813, 3.19341, .21266, .00781, + .00000, .12146, .21737, + .16685, .10006, 3.45126, .22031, .01860, + .00000, .12985, .22536, + .17026, .10207, 3.70708, .22876, .02873, + .00000, .13907, .23417, + .17322, .10380, 3.92676, .23631, .03807, + .00000, .14729, .24202, + .17605, .10544, 4.12498, .24372, .04666, + .00000, .15535, .24972, + .17905, .10717, 4.32838, .25175, .05620, + .00000, .16406, .25807 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .18167, .10865, 4.49986, .25886, .06466, + .00000, .17178, .26546, + .18417, .11007, 4.65552, .26577, .07270, + .00000, .17927, .27263, + .18615, .11118, 4.77569, .27131, .07917, + .00000, .18527, .27838, + .19035, .11353, 5.01025, .28318, .09304, + .00008, .19812, .29069, + .19395, .11551, 5.19099, .29345, .10513, + .01064, .20923, .30133, + .19795, .11769, 5.36580, .30487, .11861, + .02933, .22159, .31316, + .20205, .11990, 5.52675, .31651, .13209, + .04366, .23420, .32523, + .20571, .12185, 5.65819, .32686, .14420, + .05729, .24544, .33596 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .20938, .12378, 5.77892, .33715, .15635, + .07127, .25662, .34663, + .21238, .12535, 5.86727, .34548, .16615, + .08226, .26568, .35527, + .21596, .12720, 5.96103, .35528, .17771, + .09524, .27635, .36543, + .21910, .12881, 6.03654, .36381, .18789, + .10687, .28566, .37428, + .22192, .13023, 6.09316, .37126, .19671, + .11668, .29382, .38202, + .22545, .13200, 6.15681, .38050, .20777, + .12919, .30395, .39162, + .22873, .13363, 6.20774, .38894, .21795, + .14075, .31322, .40039, + .23172, .13510, 6.24225, .39635, .22687, + .15075, .32141, .40810 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .23468, .13654, 6.27265, .40364, .23576, + .16086, .32947, .41569, + .23752, .13790, 6.29253, .41037, .24398, + .17014, .33694, .42269, + .24016, .13916, 6.30657, .41654, .25158, + .17880, .34381, .42912, + .24260, .14032, 6.31385, .42208, .25845, + .18661, .35001, .43490, + .24503, .14145, 6.31699, .42745, .26516, + .19428, .35604, .44051, + .24737, .14254, 6.31475, .43246, .27147, + .20148, .36169, .44575, + .24957, .14355, 6.31000, .43709, .27735, + .20823, .36693, .45060, + .25160, .14447, 6.30034, .44118, .28258, + .21423, .37158, .45487 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .25365, .14540, 6.29067, .44531, .28791, + .22040, .37629, .45920, + .25559, .14627, 6.27418, .44897, .29268, + .22589, .38050, .46304, + .25745, .14709, 6.25853, .45246, .29727, + .23121, .38453, .46671, + .25918, .14786, 6.24104, .45559, .30143, + .23605, .38816, .47001, + .26089, .14860, 6.22059, .45857, .30542, + .24070, .39164, .47314 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .18343, .11361, 2.35044, .18437, .00000, + .00000, .09777, .19095, + .18695, .11558, 2.54917, .18947, .00001, + .00000, .10362, .19645, + .19219, .11849, 2.82971, .19747, .00667, + .00000, .11275, .20505, + .19601, .12058, 3.01995, .20357, .01583, + .00000, .11969, .21158, + .20000, .12274, 3.20560, .21021, .02429, + .00000, .12719, .21867, + .20345, .12459, 3.36282, .21607, .03201, + .00000, .13381, .22492, + .20673, .12633, 3.50246, .22175, .03902, + .00000, .14022, .23097, + .21019, .12814, 3.64367, .22785, .04674, + .00000, .14709, .23745 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .21319, .12970, 3.76109, .23320, .05352, + .00000, .15312, .24314, + .21605, .13118, 3.86585, .23834, .05991, + .00000, .15890, .24859, + .21830, .13233, 3.94577, .24243, .06502, + .00000, .16351, .25293, + .22306, .13474, 4.09757, .25110, .07586, + .00007, .17327, .26212, + .22711, .13676, 4.21002, .25850, .08521, + .00833, .18161, .26996, + .23158, .13897, 4.31307, .26661, .09551, + .02290, .19076, .27855, + .23610, .14117, 4.40362, .27474, .10569, + .03391, .19996, .28716, + .24013, .14310, 4.47404, .28186, .11471, + .04428, .20805, .29470 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .24414, .14499, 4.53566, .28884, .12369, + .05482, .21601, .30211, + .24739, .14651, 4.57776, .29440, .13085, + .06303, .22238, .30801, + .25125, .14828, 4.61874, .30085, .13920, + .07263, .22979, .31486, + .25460, .14981, 4.64935, .30640, .14651, + .08118, .23619, .32076, + .25759, .15115, 4.66809, .31116, .15275, + .08831, .24171, .32581, + .26131, .15280, 4.68606, .31698, .16052, + .09733, .24850, .33201, + .26474, .15431, 4.69670, .32221, .16760, + .10560, .25464, .33758, + .26784, .15563, 4.69746, .32670, .17372, + .11267, .25995, .34237 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .27090, .15693, 4.69547, .33105, .17978, + .11979, .26514, .34703, + .27379, .15814, 4.68681, .33499, .18530, + .12623, .26987, .35124, + .27647, .15925, 4.67544, .33854, .19037, + .13221, .27416, .35504, + .27894, .16025, 4.66075, .34165, .19490, + .13756, .27798, .35839, + .28136, .16123, 4.64333, .34462, .19929, + .14277, .28165, .36159, + .28368, .16215, 4.62280, .34731, .20336, + .14762, .28502, .36450, + .28585, .16300, 4.60177, .34977, .20713, + .15214, .28812, .36716, + .28783, .16376, 4.57864, .35186, .21044, + .15611, .29081, .36943 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .28983, .16453, 4.55559, .35397, .21380, + .16019, .29353, .37173, + .29170, .16522, 4.52847, .35574, .21674, + .16377, .29588, .37366, + .29348, .16588, 4.50287, .35741, .21957, + .16722, .29811, .37549, + .29513, .16648, 4.47700, .35887, .22210, + .17034, .30010, .37709, + .29675, .16706, 4.44919, .36020, .22450, + .17330, .30195, .37856 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .22454, .14158, 2.08130, .16926, .00000, + .00000, .09086, .18090, + .22873, .14364, 2.22157, .17305, .00001, + .00000, .09554, .18519, + .23492, .14664, 2.41443, .17888, .00544, + .00000, .10270, .19176, + .23940, .14878, 2.54109, .18325, .01284, + .00000, .10805, .19664, + .24402, .15096, 2.66169, .18790, .01956, + .00000, .11372, .20182, + .24800, .15280, 2.76185, .19196, .02560, + .00000, .11865, .20633, + .25174, .15452, 2.84857, .19582, .03101, + .00000, .12336, .21062, + .25566, .15629, 2.93419, .19991, .03691, + .00000, .12833, .21515 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .25903, .15781, 3.00378, .20346, .04203, + .00000, .13265, .21907, + .26222, .15921, 3.06404, .20681, .04680, + .00000, .13675, .22276, + .26473, .16031, 3.10911, .20945, .05059, + .00000, .13998, .22568, + .26996, .16256, 3.19027, .21496, .05852, + .00006, .14672, .23174, + .27437, .16443, 3.24557, .21956, .06527, + .00613, .15238, .23681, + .27919, .16644, 3.28989, .22449, .07260, + .01678, .15849, .24225, + .28399, .16839, 3.32400, .22931, .07971, + .02468, .16450, .24754, + .28823, .17007, 3.34645, .23341, .08593, + .03204, .16968, .25207 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .29240, .17170, 3.36241, .23734, .09204, + .03943, .17469, .25642, + .29573, .17298, 3.36944, .24040, .09684, + .04511, .17863, .25979, + .29964, .17444, 3.37113, .24384, .10236, + .05169, .18312, .26361, + .30301, .17568, 3.36895, .24674, .10714, + .05749, .18694, .26682, + .30596, .17674, 3.36099, .24912, .11115, + .06226, .19014, .26947, + .30961, .17801, 3.34725, .25195, .11609, + .06825, .19402, .27263, + .31294, .17915, 3.33049, .25442, .12053, + .07367, .19745, .27538, + .31587, .18012, 3.30920, .25641, .12429, + .07823, .20032, .27762 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .31874, .18105, 3.28652, .25830, .12797, + .08278, .20308, .27975, + .32142, .18188, 3.26034, .25989, .13126, + .08685, .20552, .28156, + .32388, .18262, 3.23397, .26126, .13424, + .09059, .20767, .28313, + .32611, .18327, 3.20701, .26238, .13687, + .09389, .20953, .28442, + .32827, .18389, 3.17864, .26339, .13937, + .09708, .21127, .28559, + .33030, .18445, 3.14898, .26423, .14166, + .10000, .21281, .28658, + .33219, .18495, 3.12016, .26495, .14374, + .10271, .21419, .28743, + .33387, .18538, 3.09117, .26547, .14553, + .10505, .21533, .28807 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .33557, .18581, 3.06240, .26599, .14734, + .10744, .21647, .28871, + .33711, .18616, 3.03170, .26629, .14887, + .10950, .21736, .28910, + .33858, .18649, 3.00287, .26657, .15034, + .11148, .21821, .28948, + .33991, .18678, 2.97481, .26674, .15162, + .11324, .21892, .28973, + .34119, .18703, 2.94570, .26682, .15281, + .11489, .21953, .28988 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .26261, .16501, 1.87974, .15664, .00000, + .00000, .08549, .17374, + .26721, .16700, 1.98484, .15949, .00001, + .00000, .08934, .17711, + .27394, .16986, 2.12582, .16381, .00462, + .00000, .09514, .18219, + .27877, .17187, 2.21550, .16699, .01085, + .00000, .09940, .18591, + .28371, .17388, 2.29874, .17033, .01644, + .00000, .10385, .18978, + .28794, .17558, 2.36656, .17320, .02142, + .00000, .10769, .19310, + .29188, .17713, 2.42358, .17590, .02582, + .00000, .11131, .19621, + .29599, .17872, 2.47839, .17871, .03058, + .00000, .11509, .19945 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .29949, .18006, 2.52176, .18112, .03468, + .00000, .11833, .20221, + .30278, .18129, 2.55788, .18337, .03847, + .00000, .12138, .20478, + .30535, .18224, 2.58419, .18512, .04145, + .00000, .12376, .20678, + .31067, .18416, 2.62799, .18870, .04765, + .00006, .12867, .21087, + .31510, .18572, 2.65378, .19163, .05286, + .00482, .13273, .21422, + .31989, .18736, 2.66863, .19470, .05845, + .01313, .13703, .21773, + .32460, .18890, 2.67494, .19758, .06380, + .01922, .14118, .22102, + .32870, .19020, 2.67430, .19996, .06842, + .02484, .14469, .22374 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .33268, .19143, 2.66880, .20218, .07291, + .03043, .14802, .22628, + .33581, .19237, 2.65977, .20383, .07640, + .03469, .15058, .22818, + .33944, .19340, 2.64402, .20562, .08036, + .03957, .15344, .23023, + .34255, .19426, 2.62763, .20706, .08375, + .04384, .15583, .23189, + .34523, .19494, 2.60850, .20816, .08656, + .04731, .15777, .23318, + .34849, .19575, 2.58200, .20941, .08998, + .05164, .16008, .23465, + .35141, .19644, 2.55474, .21042, .09301, + .05551, .16206, .23584, + .35394, .19697, 2.52552, .21112, .09553, + .05873, .16365, .23669 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .35639, .19747, 2.49572, .21173, .09798, + .06193, .16514, .23744, + .35862, .19787, 2.46417, .21214, .10012, + .06474, .16638, .23795, + .36063, .19821, 2.43353, .21242, .10204, + .06731, .16744, .23833, + .36241, .19847, 2.40348, .21257, .10370, + .06956, .16831, .23855, + .36412, .19869, 2.37272, .21262, .10526, + .07170, .16908, .23867, + .36569, .19885, 2.34158, .21256, .10666, + .07365, .16970, .23865, + .36712, .19898, 2.31184, .21244, .10792, + .07544, .17023, .23857, + .36836, .19905, 2.28280, .21222, .10897, + .07696, .17061, .23838 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .36961, .19912, 2.25409, .21200, .11003, + .07852, .17099, .23818, + .37069, .19912, 2.22442, .21162, .11089, + .07982, .17119, .23781, + .37170, .19911, 2.19666, .21126, .11170, + .08108, .17138, .23745, + .37260, .19908, 2.17004, .21085, .11240, + .08218, .17148, .23705, + .37344, .19900, 2.14283, .21037, .11301, + .08320, .17151, .23656 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .33243, .20242, 1.59633, .13430, .00000, + .00000, .07642, .16208, + .33724, .20398, 1.65988, .13590, .00001, + .00000, .07912, .16410, + .34417, .20615, 1.74056, .13827, .00355, + .00000, .08310, .16704, + .34906, .20762, 1.78808, .13995, .00829, + .00000, .08595, .16910, + .35395, .20902, 1.82919, .14165, .01245, + .00000, .08884, .17117, + .35808, .21017, 1.86103, .14308, .01610, + .00000, .09128, .17289, + .36186, .21117, 1.88543, .14437, .01927, + .00000, .09353, .17443, + .36573, .21216, 1.90687, .14567, .02265, + .00000, .09583, .17597 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .36899, .21297, 1.92223, .14675, .02552, + .00000, .09778, .17724, + .37198, .21367, 1.93290, .14770, .02814, + .00000, .09955, .17836, + .37429, .21419, 1.93966, .14843, .03017, + .00000, .10092, .17921, + .37897, .21517, 1.94526, .14984, .03434, + .00005, .10366, .18083, + .38278, .21590, 1.94170, .15090, .03777, + .00329, .10586, .18205, + .38677, .21659, 1.92825, .15191, .04139, + .00890, .10809, .18320, + .39054, .21713, 1.90875, .15272, .04476, + .01293, .11013, .18410, + .39371, .21750, 1.88747, .15327, .04761, + .01658, .11177, .18471 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .39669, .21777, 1.86341, .15368, .05033, + .02016, .11326, .18515, + .39895, .21791, 1.84103, .15390, .05239, + .02285, .11433, .18535, + .40146, .21796, 1.81157, .15400, .05468, + .02588, .11544, .18542, + .40353, .21795, 1.78457, .15399, .05661, + .02849, .11632, .18538, + .40521, .21784, 1.75774, .15384, .05816, + .03058, .11695, .18516, + .40716, .21764, 1.72306, .15354, .06000, + .03314, .11763, .18477, + .40882, .21736, 1.68978, .15317, .06160, + .03540, .11814, .18429, + .41011, .21700, 1.65708, .15266, .06287, + .03723, .11843, .18365 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .41131, .21660, 1.62465, .15211, .06408, + .03903, .11867, .18297, + .41228, .21612, 1.59211, .15145, .06509, + .04058, .11876, .18215, + .41308, .21563, 1.56143, .15077, .06598, + .04197, .11877, .18132, + .41371, .21511, 1.53233, .15005, .06671, + .04316, .11869, .18046, + .41423, .21456, 1.50324, .14929, .06737, + .04428, .11855, .17954, + .41462, .21396, 1.47457, .14848, .06793, + .04527, .11834, .17856, + .41492, .21337, 1.44763, .14768, .06842, + .04617, .11810, .17759, + .41507, .21277, 1.42202, .14686, .06879, + .04692, .11780, .17660 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .41521, .21217, 1.39682, .14605, .06917, + .04767, .11750, .17560, + .41519, .21149, 1.37160, .14515, .06942, + .04827, .11709, .17454, + .41516, .21085, 1.34811, .14431, .06966, + .04885, .11670, .17353, + .41506, .21021, 1.32596, .14347, .06984, + .04934, .11630, .17253, + .41487, .20954, 1.30367, .14259, .06996, + .04978, .11585, .17148 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .39497, .23051, 1.40509, .11433, .00000, + .00000, .06830, .15113, + .39938, .23142, 1.44369, .11521, .00001, + .00000, .07024, .15215, + .40560, .23259, 1.48886, .11644, .00286, + .00000, .07304, .15356, + .40988, .23331, 1.51207, .11728, .00664, + .00000, .07498, .15446, + .41406, .23390, 1.52931, .11807, .00991, + .00000, .07691, .15529, + .41751, .23433, 1.54114, .11870, .01274, + .00000, .07850, .15594, + .42059, .23465, 1.54768, .11923, .01516, + .00000, .07993, .15644, + .42367, .23490, 1.55118, .11972, .01770, + .00000, .08135, .15688 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .42621, .23505, 1.55175, .12010, .01984, + .00000, .08252, .15719, + .42847, .23511, 1.54923, .12038, .02176, + .00000, .08356, .15740, + .43018, .23512, 1.54602, .12058, .02325, + .00000, .08434, .15752, + .43352, .23503, 1.53271, .12088, .02624, + .00004, .08585, .15763, + .43610, .23483, 1.51529, .12102, .02867, + .00240, .08699, .15756, + .43868, .23447, 1.48927, .12103, .03118, + .00648, .08809, .15733, + .44092, .23390, 1.45894, .12085, .03346, + .00934, .08900, .15685, + .44264, .23328, 1.42959, .12055, .03535, + .01191, .08965, .15626 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .44413, .23256, 1.39884, .12015, .03712, + .01439, .09018, .15554, + .44514, .23188, 1.37215, .11972, .03843, + .01623, .09050, .15482, + .44609, .23094, 1.33882, .11909, .03986, + .01827, .09074, .15383, + .44677, .23006, 1.30927, .11848, .04103, + .02001, .09087, .15288, + .44714, .22916, 1.28128, .11781, .04195, + .02138, .09087, .15189, + .44743, .22797, 1.24598, .11690, .04301, + .02303, .09079, .15057, + .44752, .22678, 1.21298, .11600, .04391, + .02447, .09062, .14926, + .44732, .22557, 1.18167, .11504, .04458, + .02561, .09033, .14791 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .44703, .22434, 1.15107, .11407, .04521, + .02672, .09000, .14655, + .44653, .22306, 1.12113, .11304, .04571, + .02765, .08959, .14513, + .44594, .22182, 1.09330, .11204, .04612, + .02848, .08916, .14376, + .44525, .22061, 1.06735, .11107, .04643, + .02917, .08870, .14241, + .44446, .21936, 1.04174, .11006, .04670, + .02981, .08820, .14104, + .44356, .21810, 1.01688, .10904, .04690, + .03036, .08766, .13966, + .44265, .21688, .99376, .10806, .04706, + .03085, .08712, .13834, + .44164, .21569, .97208, .10709, .04715, + .03125, .08657, .13705 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .44064, .21450, .95085, .10614, .04724, + .03165, .08602, .13576, + .43947, .21325, .92997, .10514, .04726, + .03195, .08542, .13443, + .43835, .21208, .91061, .10420, .04727, + .03223, .08484, .13318, + .43722, .21095, .89251, .10330, .04725, + .03246, .08428, .13197, + .43599, .20979, .87448, .10237, .04720, + .03266, .08368, .13074 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45038, .25143, 1.26414, .09663, .00000, + .00000, .06076, .13984, + .45393, .25158, 1.28525, .09707, .00001, + .00000, .06216, .14008, + .45878, .25161, 1.30598, .09766, .00236, + .00000, .06412, .14032, + .46199, .25150, 1.31283, .09802, .00546, + .00000, .06545, .14037, + .46496, .25120, 1.31429, .09830, .00810, + .00000, .06671, .14030, + .46735, .25087, 1.31314, .09850, .01035, + .00000, .06772, .14017, + .46938, .25045, 1.30835, .09860, .01225, + .00000, .06860, .13994, + .47130, .24992, 1.30068, .09864, .01423, + .00000, .06945, .13960 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .47281, .24939, 1.29221, .09864, .01587, + .00000, .07013, .13926, + .47407, .24879, 1.28184, .09856, .01734, + .00000, .07069, .13885, + .47497, .24828, 1.27280, .09848, .01846, + .00000, .07110, .13850, + .47654, .24707, 1.24886, .09820, .02068, + .00003, .07183, .13761, + .47757, .24592, 1.22406, .09787, .02246, + .00183, .07234, .13672, + .47839, .24452, 1.19187, .09738, .02426, + .00489, .07276, .13561, + .47873, .24290, 1.15679, .09673, .02586, + .00701, .07300, .13428, + .47873, .24133, 1.12432, .09604, .02716, + .00889, .07308, .13296 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .47850, .23966, 1.09140, .09527, .02835, + .01069, .07307, .13154, + .47807, .23820, 1.06376, .09455, .02921, + .01200, .07296, .13030, + .47728, .23634, 1.03015, .09362, .03013, + .01344, .07272, .12871, + .47642, .23467, 1.00092, .09276, .03087, + .01465, .07247, .12727, + .47536, .23306, .97394, .09190, .03142, + .01558, .07213, .12587, + .47385, .23099, .94045, .09079, .03204, + .01670, .07166, .12406, + .47227, .22900, .90968, .08970, .03255, + .01767, .07115, .12234, + .47052, .22703, .88107, .08861, .03290, + .01841, .07059, .12066 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .46869, .22507, .85339, .08752, .03321, + .01913, .07000, .11898, + .46667, .22310, .82678, .08642, .03343, + .01972, .06937, .11728, + .46468, .22122, .80230, .08537, .03360, + .02023, .06875, .11567, + .46271, .21941, .77974, .08435, .03371, + .02065, .06813, .11414, + .46062, .21759, .75767, .08332, .03378, + .02103, .06749, .11260, + .45845, .21577, .73648, .08229, .03381, + .02135, .06683, .11108, + .45634, .21403, .71691, .08131, .03382, + .02163, .06620, .10963, + .45423, .21236, .69877, .08036, .03378, + .02184, .06557, .10825 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .45212, .21069, .68105, .07943, .03374, + .02206, .06495, .10688, + .44986, .20899, .66384, .07848, .03365, + .02220, .06429, .10550, + .44773, .20740, .64793, .07759, .03357, + .02234, .06366, .10421, + .44564, .20587, .63317, .07673, .03347, + .02245, .06307, .10297, + .44347, .20430, .61856, .07586, .03335, + .02253, .06246, .10171 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .50953, .26945, 1.12633, .07781, .00000, + .00000, .05203, .12496, + .51153, .26860, 1.13133, .07798, .00001, + .00000, .05295, .12448, + .51402, .26715, 1.13009, .07814, .00189, + .00000, .05419, .12364, + .51546, .26595, 1.12263, .07818, .00435, + .00000, .05498, .12293, + .51652, .26453, 1.11063, .07812, .00641, + .00000, .05568, .12206, + .51722, .26324, 1.09867, .07802, .00814, + .00000, .05622, .12126, + .51760, .26190, 1.08469, .07787, .00958, + .00000, .05664, .12042, + .51777, .26039, 1.06822, .07764, .01106, + .00000, .05701, .11945 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .51776, .25903, 1.05283, .07740, .01227, + .00000, .05729, .11858, + .51751, .25764, 1.03662, .07712, .01333, + .00000, .05748, .11767, + .51721, .25651, 1.02337, .07687, .01413, + .00000, .05760, .11694, + .51622, .25401, .99219, .07627, .01571, + .00003, .05774, .11528, + .51504, .25177, .96287, .07568, .01694, + .00133, .05776, .11378, + .51341, .24916, .92755, .07493, .01816, + .00354, .05767, .11202, + .51123, .24632, .89070, .07404, .01921, + .00505, .05743, .11009, + .50895, .24366, .85768, .07316, .02004, + .00636, .05712, .10829 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .50642, .24095, .82505, .07223, .02078, + .00760, .05674, .10642, + .50410, .23864, .79833, .07143, .02130, + .00849, .05636, .10484, + .50104, .23580, .76656, .07039, .02183, + .00945, .05583, .10289, + .49822, .23328, .73937, .06946, .02225, + .01025, .05533, .10117, + .49540, .23089, .71483, .06855, .02253, + .01085, .05480, .09956, + .49170, .22787, .68481, .06740, .02284, + .01157, .05411, .09752, + .48808, .22502, .65765, .06631, .02308, + .01217, .05342, .09561, + .48444, .22229, .63288, .06524, .02321, + .01262, .05273, .09379 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .48077, .21959, .60916, .06419, .02331, + .01305, .05204, .09199, + .47701, .21690, .58670, .06313, .02336, + .01339, .05132, .09024, + .47338, .21437, .56625, .06214, .02337, + .01368, .05063, .08858, + .46985, .21200, .54762, .06121, .02335, + .01391, .04997, .08702, + .46625, .20960, .52955, .06027, .02331, + .01411, .04929, .08547, + .46266, .20723, .51238, .05933, .02324, + .01428, .04862, .08396, + .45921, .20499, .49663, .05845, .02316, + .01442, .04798, .08254, + .45585, .20287, .48218, .05761, .02306, + .01451, .04736, .08120 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .45250, .20076, .46813, .05678, .02295, + .01461, .04675, .07987, + .44905, .19863, .45464, .05595, .02282, + .01466, .04611, .07856, + .44581, .19663, .44222, .05517, .02269, + .01471, .04552, .07734, + .44268, .19474, .43077, .05443, .02256, + .01474, .04496, .07618, + .43946, .19282, .41952, .05369, .02241, + .01475, .04439, .07501 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .55744, .28006, 1.01083, .06258, .00000, + .00000, .04411, .10946, + .55756, .27822, 1.00391, .06262, .00001, + .00000, .04470, .10849, + .55721, .27531, .98693, .06258, .00153, + .00000, .04543, .10695, + .55656, .27308, .96961, .06247, .00350, + .00000, .04587, .10575, + .55541, .27057, .94866, .06226, .00512, + .00000, .04620, .10440, + .55423, .26836, .92973, .06203, .00646, + .00000, .04644, .10319, + .55278, .26616, .91008, .06176, .00756, + .00000, .04658, .10197, + .55103, .26375, .88838, .06140, .00867, + .00000, .04667, .10065 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .54936, .26160, .86908, .06106, .00958, + .00000, .04670, .09947, + .54749, .25949, .84978, .06070, .01036, + .00000, .04666, .09830, + .54591, .25782, .83439, .06040, .01095, + .00000, .04660, .09736, + .54223, .25415, .80002, .05968, .01207, + .00002, .04641, .09530, + .53879, .25092, .76924, .05900, .01293, + .00099, .04616, .09350, + .53467, .24725, .73370, .05816, .01377, + .00261, .04580, .09147, + .52990, .24337, .69764, .05723, .01447, + .00370, .04532, .08928, + .52534, .23981, .66604, .05633, .01500, + .00464, .04482, .08728 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .52059, .23620, .63538, .05540, .01546, + .00551, .04428, .08527, + .51646, .23319, .61071, .05459, .01577, + .00612, .04377, .08361, + .51125, .22952, .58189, .05359, .01607, + .00678, .04311, .08160, + .50657, .22630, .55755, .05270, .01629, + .00732, .04252, .07984, + .50207, .22331, .53592, .05186, .01643, + .00772, .04194, .07820, + .49630, .21955, .50975, .05079, .01657, + .00818, .04120, .07616, + .49082, .21603, .48637, .04978, .01665, + .00857, .04048, .07427, + .48547, .21270, .46536, .04882, .01667, + .00885, .03977, .07252 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .48015, .20943, .44542, .04787, .01667, + .00911, .03907, .07080, + .47480, .20623, .42677, .04694, .01663, + .00931, .03837, .06913, + .46973, .20323, .40991, .04606, .01657, + .00947, .03770, .06757, + .46490, .20042, .39468, .04524, .01650, + .00960, .03707, .06612, + .46003, .19762, .38003, .04442, .01641, + .00971, .03643, .06469, + .45519, .19486, .36623, .04361, .01630, + .00979, .03581, .06331, + .45060, .19226, .35365, .04286, .01619, + .00985, .03522, .06202, + .44620, .18981, .34220, .04214, .01607, + .00989, .03466, .06081 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .44183, .18738, .33111, .04144, .01595, + .00993, .03411, .05962, + .43739, .18497, .32055, .04073, .01581, + .00993, .03356, .05845, + .43323, .18271, .31086, .04008, .01568, + .00994, .03304, .05735, + .42926, .18058, .30199, .03946, .01555, + .00994, .03254, .05633, + .42522, .17842, .29331, .03884, .01541, + .00992, .03204, .05532 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .59428, .28460, .90672, .05063, .00000, + .00000, .03703, .09383, + .59234, .28183, .89107, .05060, .00001, + .00000, .03738, .09256, + .58893, .27758, .86301, .05046, .00123, + .00000, .03776, .09062, + .58605, .27441, .83910, .05029, .00281, + .00000, .03794, .08914, + .58258, .27092, .81247, .05001, .00409, + .00000, .03803, .08752, + .57941, .26788, .78933, .04973, .00514, + .00000, .03807, .08611, + .57606, .26493, .76646, .04941, .00598, + .00000, .03801, .08473, + .57231, .26174, .74204, .04902, .00683, + .00000, .03791, .08324 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .56892, .25895, .72087, .04865, .00750, + .00000, .03778, .08194, + .56544, .25621, .70028, .04826, .00808, + .00000, .03762, .08066, + .56262, .25404, .68414, .04794, .00851, + .00000, .03747, .07964, + .55631, .24936, .64919, .04720, .00932, + .00002, .03710, .07745, + .55065, .24532, .61888, .04652, .00993, + .00074, .03671, .07556, + .54410, .24080, .58486, .04572, .01050, + .00194, .03622, .07345, + .53690, .23605, .55106, .04480, .01097, + .00274, .03561, .07127, + .53021, .23175, .52195, .04395, .01131, + .00341, .03504, .06931 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .52337, .22745, .49411, .04307, .01159, + .00403, .03443, .06735, + .51758, .22387, .47206, .04233, .01177, + .00446, .03389, .06574, + .51041, .21957, .44660, .04141, .01193, + .00492, .03323, .06381, + .50405, .21582, .42532, .04060, .01204, + .00529, .03263, .06213, + .49808, .21238, .40667, .03984, .01210, + .00555, .03206, .06061, + .49051, .20806, .38433, .03888, .01213, + .00586, .03134, .05873, + .48339, .20406, .36458, .03800, .01214, + .00611, .03065, .05700, + .47658, .20032, .34705, .03716, .01210, + .00628, .02999, .05540 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .46985, .19665, .33051, .03634, .01205, + .00645, .02935, .05384, + .46320, .19307, .31519, .03552, .01198, + .00656, .02871, .05235, + .45694, .18973, .30146, .03477, .01190, + .00666, .02811, .05098, + .45103, .18662, .28915, .03405, .01180, + .00673, .02755, .04972, + .44510, .18354, .27739, .03335, .01170, + .00678, .02699, .04847, + .43927, .18054, .26637, .03267, .01159, + .00682, .02644, .04727, + .43377, .17773, .25638, .03204, .01148, + .00684, .02593, .04615, + .42853, .17509, .24735, .03144, .01136, + .00685, .02545, .04510 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42336, .17249, .23862, .03085, .01125, + .00686, .02497, .04407, + .41815, .16989, .23040, .03027, .01112, + .00685, .02450, .04308, + .41327, .16747, .22287, .02973, .01100, + .00684, .02406, .04216, + .40865, .16519, .21600, .02922, .01088, + .00682, .02364, .04130, + .40400, .16291, .20932, .02869, .01076, + .00680, .02322, .04045 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .62053, .28413, .80896, .04141, .00000, + .00000, .03076, .07863, + .61644, .28052, .78719, .04134, .00001, + .00000, .03094, .07723, + .60990, .27508, .75181, .04114, .00099, + .00000, .03109, .07512, + .60479, .27104, .72386, .04092, .00225, + .00000, .03111, .07354, + .59898, .26672, .69406, .04061, .00326, + .00000, .03104, .07186, + .59383, .26298, .66879, .04030, .00408, + .00000, .03094, .07041, + .58867, .25934, .64453, .03995, .00472, + .00000, .03080, .06898, + .58301, .25547, .61916, .03955, .00536, + .00000, .03060, .06747 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .57798, .25212, .59754, .03917, .00587, + .00000, .03040, .06617, + .57295, .24887, .57695, .03877, .00629, + .00000, .03017, .06491, + .56893, .24630, .56099, .03845, .00661, + .00000, .02997, .06391, + .56013, .24081, .52716, .03772, .00719, + .00002, .02949, .06180, + .55241, .23609, .49851, .03705, .00762, + .00055, .02905, .06000, + .54366, .23086, .46707, .03627, .00801, + .00145, .02851, .05801, + .53426, .22545, .43636, .03543, .00831, + .00203, .02790, .05595, + .52566, .22059, .41028, .03464, .00853, + .00252, .02732, .05412 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .51697, .21574, .38565, .03384, .00870, + .00296, .02672, .05233, + .50971, .21175, .36636, .03316, .00879, + .00327, .02620, .05087, + .50085, .20698, .34437, .03233, .00887, + .00358, .02557, .04915, + .49307, .20286, .32616, .03160, .00892, + .00384, .02501, .04766, + .48583, .19908, .31038, .03094, .00892, + .00402, .02448, .04632, + .47674, .19439, .29160, .03011, .00891, + .00422, .02382, .04465, + .46825, .19007, .27511, .02934, .00887, + .00438, .02321, .04313, + .46026, .18603, .26066, .02860, .00881, + .00449, .02263, .04176 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .45241, .18209, .24713, .02788, .00874, + .00459, .02206, .04043, + .44472, .17829, .23468, .02717, .00866, + .00466, .02151, .03916, + .43751, .17477, .22360, .02653, .00857, + .00471, .02099, .03800, + .43073, .17150, .21374, .02593, .00848, + .00474, .02050, .03693, + .42399, .16826, .20437, .02534, .00838, + .00477, .02002, .03588, + .41741, .16511, .19565, .02475, .00828, + .00478, .01956, .03489, + .41123, .16218, .18778, .02421, .00818, + .00479, .01913, .03397, + .40539, .15944, .18070, .02372, .00807, + .00478, .01872, .03310 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .39961, .15674, .17389, .02323, .00797, + .00478, .01833, .03224, + .39385, .15408, .16749, .02276, .00786, + .00476, .01794, .03143, + .38846, .15160, .16163, .02231, .00776, + .00474, .01757, .03067, + .38338, .14927, .15632, .02189, .00766, + .00472, .01723, .02997, + .37827, .14694, .15118, .02146, .00756, + .00470, .01689, .02928 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .63678, .27951, .71569, .03432, .00000, + .00000, .02530, .06439, + .63058, .27515, .69004, .03420, .00001, + .00000, .02536, .06300, + .62099, .26865, .65046, .03394, .00080, + .00000, .02535, .06092, + .61372, .26390, .62056, .03368, .00179, + .00000, .02529, .05938, + .60570, .25884, .58956, .03332, .00258, + .00000, .02513, .05776, + .59869, .25451, .56371, .03298, .00322, + .00000, .02496, .05637, + .59178, .25034, .53943, .03263, .00371, + .00000, .02475, .05503, + .58433, .24594, .51443, .03222, .00419, + .00000, .02451, .05360 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .57779, .24213, .49343, .03184, .00457, + .00000, .02428, .05237, + .57135, .23847, .47370, .03146, .00488, + .00000, .02402, .05120, + .56623, .23558, .45855, .03115, .00511, + .00000, .02380, .05028, + .55519, .22946, .42698, .03044, .00552, + .00002, .02330, .04835, + .54563, .22424, .40074, .02981, .00582, + .00041, .02284, .04672, + .53493, .21848, .37243, .02906, .00609, + .00108, .02230, .04497, + .52360, .21257, .34522, .02828, .00628, + .00151, .02172, .04314, + .51334, .20731, .32241, .02756, .00641, + .00186, .02117, .04154 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .50308, .20210, .30108, .02684, .00651, + .00218, .02062, .03998, + .49461, .19783, .28455, .02621, .00656, + .00239, .02016, .03871, + .48434, .19276, .26586, .02547, .00658, + .00261, .01959, .03722, + .47539, .18838, .25051, .02484, .00659, + .00279, .01909, .03594, + .46714, .18441, .23735, .02425, .00657, + .00291, .01862, .03481, + .45684, .17950, .22181, .02352, .00654, + .00304, .01805, .03341, + .44728, .17499, .20828, .02285, .00649, + .00315, .01753, .03212, + .43837, .17080, .19652, .02220, .00642, + .00322, .01703, .03099 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .42966, .16673, .18557, .02158, .00635, + .00328, .01655, .02990, + .42116, .16283, .17559, .02099, .00627, + .00331, .01608, .02885, + .41326, .15921, .16674, .02044, .00618, + .00334, .01564, .02789, + .40589, .15586, .15890, .01992, .00610, + .00336, .01523, .02703, + .39858, .15256, .15148, .01942, .00601, + .00337, .01483, .02618, + .39145, .14938, .14462, .01894, .00592, + .00337, .01445, .02537, + .38479, .14642, .13845, .01849, .00583, + .00336, .01410, .02462, + .37852, .14366, .13291, .01808, .00575, + .00335, .01377, .02393 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37234, .14095, .12759, .01767, .00566, + .00334, .01345, .02325, + .36623, .13829, .12265, .01727, .00557, + .00332, .01313, .02261, + .36053, .13581, .11815, .01689, .00549, + .00331, .01284, .02201, + .35517, .13349, .11407, .01655, .00541, + .00328, .01257, .02146, + .34980, .13117, .11013, .01620, .00532, + .00326, .01229, .02092 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .64371, .27145, .62673, .02881, .00000, + .00000, .02060, .05153, + .63549, .26651, .59911, .02866, .00001, + .00000, .02059, .05021, + .62301, .25918, .55787, .02835, .00063, + .00000, .02049, .04825, + .61371, .25385, .52769, .02805, .00142, + .00000, .02035, .04685, + .60365, .24823, .49705, .02768, .00203, + .00000, .02013, .04537, + .59494, .24344, .47185, .02734, .00252, + .00000, .01992, .04410, + .58645, .23887, .44851, .02698, .00289, + .00000, .01969, .04289, + .57738, .23406, .42481, .02657, .00325, + .00000, .01942, .04163 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .56949, .22991, .40512, .02619, .00353, + .00000, .01917, .04056, + .56183, .22592, .38684, .02580, .00376, + .00000, .01891, .03954, + .55577, .22279, .37291, .02548, .00392, + .00000, .01869, .03875, + .54278, .21622, .34430, .02481, .00422, + .00001, .01821, .03706, + .53162, .21066, .32090, .02423, .00443, + .00031, .01779, .03564, + .51924, .20457, .29605, .02355, .00461, + .00080, .01729, .03412, + .50632, .19834, .27238, .02282, .00473, + .00112, .01676, .03257, + .49473, .19282, .25281, .02216, .00481, + .00137, .01627, .03122 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48323, .18738, .23469, .02150, .00486, + .00160, .01578, .02991, + .47379, .18295, .22076, .02095, .00488, + .00175, .01537, .02885, + .46241, .17771, .20516, .02029, .00488, + .00190, .01488, .02762, + .45254, .17321, .19243, .01973, .00486, + .00202, .01446, .02658, + .44358, .16914, .18157, .01918, .00483, + .00211, .01406, .02566, + .43240, .16412, .16885, .01853, .00479, + .00220, .01356, .02453, + .42207, .15954, .15789, .01796, .00473, + .00226, .01311, .02352, + .41248, .15532, .14844, .01742, .00467, + .00231, .01270, .02259 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40314, .15124, .13967, .01690, .00460, + .00234, .01231, .02170, + .39413, .14732, .13169, .01638, .00453, + .00236, .01193, .02086, + .38576, .14371, .12468, .01591, .00446, + .00238, .01157, .02010, + .37798, .14037, .11851, .01547, .00439, + .00238, .01124, .01943, + .37031, .13710, .11270, .01505, .00431, + .00238, .01091, .01878, + .36288, .13396, .10734, .01463, .00424, + .00238, .01061, .01814, + .35595, .13104, .10254, .01426, .00417, + .00237, .01032, .01755, + .34945, .12832, .09826, .01391, .00409, + .00236, .01006, .01702 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34305, .12565, .09415, .01358, .00402, + .00235, .00980, .01650, + .33676, .12306, .09034, .01324, .00395, + .00233, .00955, .01600, + .33091, .12064, .08687, .01292, .00389, + .00231, .00932, .01554, + .32542, .11839, .08374, .01263, .00382, + .00229, .00910, .01511, + .31994, .11614, .08073, .01235, .00376, + .00227, .00889, .01469 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .64186, .26103, .54284, .02474, .00000, + .00000, .01644, .04003, + .63182, .25558, .51472, .02452, .00001, + .00000, .01639, .03888, + .61676, .24755, .47380, .02411, .00050, + .00000, .01624, .03719, + .60567, .24175, .44458, .02376, .00111, + .00000, .01607, .03599, + .59383, .23568, .41535, .02334, .00159, + .00000, .01586, .03471, + .58365, .23053, .39159, .02296, .00196, + .00000, .01566, .03363, + .57383, .22563, .36992, .02257, .00224, + .00000, .01544, .03261, + .56340, .22051, .34815, .02215, .00251, + .00000, .01518, .03154 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .55438, .21613, .33023, .02178, .00272, + .00000, .01494, .03063, + .54563, .21195, .31375, .02141, .00289, + .00000, .01470, .02976, + .53874, .20869, .30128, .02112, .00300, + .00000, .01451, .02908, + .52417, .20179, .27599, .02046, .00321, + .00001, .01407, .02770, + .51177, .19599, .25557, .01987, .00335, + .00023, .01368, .02655, + .49807, .18972, .23412, .01923, .00347, + .00060, .01324, .02529, + .48389, .18330, .21399, .01858, .00355, + .00083, .01278, .02403, + .47130, .17762, .19746, .01796, .00359, + .00101, .01237, .02294 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .45886, .17208, .18229, .01735, .00361, + .00117, .01195, .02190, + .44865, .16763, .17074, .01687, .00361, + .00128, .01160, .02106, + .43650, .16234, .15788, .01627, .00360, + .00139, .01118, .02009, + .42603, .15779, .14747, .01574, .00358, + .00147, .01083, .01927, + .41650, .15372, .13868, .01528, .00354, + .00153, .01051, .01853, + .40471, .14872, .12843, .01473, .00350, + .00159, .01011, .01762, + .39391, .14418, .11963, .01423, .00345, + .00163, .00975, .01681, + .38393, .14001, .11208, .01376, .00339, + .00165, .00940, .01611 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37424, .13598, .10511, .01330, .00333, + .00168, .00908, .01544, + .36493, .13213, .09885, .01285, .00327, + .00169, .00878, .01478, + .35632, .12860, .09335, .01245, .00321, + .00169, .00850, .01420, + .34833, .12534, .08852, .01209, .00315, + .00169, .00823, .01368, + .34049, .12217, .08400, .01174, .00309, + .00169, .00797, .01318, + .33292, .11912, .07984, .01138, .00303, + .00168, .00772, .01272, + .32589, .11629, .07612, .01105, .00297, + .00167, .00749, .01229, + .31933, .11366, .07281, .01076, .00291, + .00166, .00729, .01188 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .31289, .11109, .06963, .01048, .00286, + .00165, .00709, .01148, + .30657, .10860, .06673, .01020, .00280, + .00163, .00689, .01112, + .30070, .10628, .06409, .00994, .00275, + .00162, .00670, .01078, + .29521, .10413, .06170, .00970, .00270, + .00160, .00654, .01046, + .28973, .10198, .05940, .00947, .00265, + .00159, .00638, .01014 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .63265, .24801, .46410, .02108, .00000, + .00000, .01316, .03046, + .62096, .24220, .43674, .02081, .00001, + .00000, .01307, .02949, + .60359, .23370, .39769, .02035, .00039, + .00000, .01288, .02809, + .59090, .22762, .37035, .01999, .00086, + .00000, .01271, .02707, + .57749, .22128, .34341, .01957, .00122, + .00000, .01249, .02601, + .56604, .21591, .32172, .01919, .00151, + .00000, .01228, .02511, + .55506, .21083, .30213, .01881, .00171, + .00000, .01206, .02427, + .54351, .20551, .28263, .01839, .00191, + .00000, .01182, .02340 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .53358, .20098, .26672, .01802, .00206, + .00000, .01161, .02267, + .52400, .19667, .25224, .01765, .00218, + .00000, .01139, .02196, + .51648, .19333, .24135, .01737, .00227, + .00000, .01122, .02141, + .50063, .18632, .21945, .01675, .00241, + .00001, .01085, .02029, + .48721, .18045, .20198, .01622, .00251, + .00017, .01051, .01936, + .47252, .17406, .18386, .01563, .00258, + .00044, .01013, .01838, + .45743, .16764, .16699, .01502, .00263, + .00060, .00972, .01739, + .44408, .16199, .15328, .01448, .00265, + .00074, .00936, .01653 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43096, .15649, .14079, .01396, .00266, + .00085, .00900, .01570, + .42028, .15205, .13135, .01353, .00265, + .00093, .00872, .01504, + .40764, .14682, .12093, .01300, .00263, + .00100, .00838, .01429, + .39678, .14236, .11254, .01253, .00261, + .00106, .00809, .01366, + .38693, .13837, .10550, .01215, .00257, + .00109, .00782, .01310, + .37482, .13347, .09733, .01166, .00253, + .00113, .00750, .01243, + .36382, .12901, .09036, .01118, .00249, + .00116, .00719, .01185, + .35366, .12497, .08442, .01079, .00244, + .00118, .00692, .01130 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .34382, .12108, .07896, .01040, .00239, + .00119, .00667, .01079, + .33442, .11737, .07406, .01002, .00234, + .00119, .00642, .01031, + .32575, .11398, .06978, .00968, .00229, + .00119, .00620, .00988, + .31777, .11087, .06604, .00938, .00224, + .00119, .00599, .00949, + .30992, .10783, .06254, .00909, .00220, + .00119, .00579, .00911, + .30236, .10493, .05934, .00881, .00215, + .00118, .00560, .00876, + .29536, .10224, .05648, .00856, .00210, + .00117, .00543, .00843, + .28885, .09976, .05395, .00832, .00206, + .00116, .00527, .00814 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .28248, .09734, .05154, .00808, .00202, + .00115, .00512, .00785, + .27627, .09499, .04930, .00784, .00197, + .00114, .00497, .00758, + .27051, .09281, .04728, .00762, .00193, + .00113, .00482, .00732, + .26514, .09078, .04546, .00742, .00190, + .00112, .00469, .00710, + .25980, .08876, .04373, .00722, .00186, + .00110, .00456, .00688 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .61649, .23352, .39183, .01808, .00000, + .00000, .01035, .02251, + .60342, .22747, .36609, .01776, .00000, + .00000, .01025, .02175, + .58414, .21867, .32996, .01725, .00030, + .00000, .01006, .02061, + .57016, .21241, .30509, .01689, .00066, + .00000, .00990, .01978, + .55549, .20591, .28087, .01645, .00093, + .00000, .00968, .01894, + .54303, .20042, .26156, .01607, .00115, + .00000, .00950, .01824, + .53116, .19524, .24429, .01569, .00130, + .00000, .00931, .01757, + .51872, .18985, .22723, .01528, .00144, + .00000, .00910, .01689 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .50807, .18528, .21342, .01492, .00155, + .00000, .00891, .01632, + .49787, .18093, .20095, .01458, .00164, + .00000, .00871, .01578, + .48989, .17755, .19163, .01430, .00170, + .00000, .00856, .01537, + .47313, .17055, .17306, .01373, .00180, + .00001, .00822, .01451, + .45902, .16471, .15839, .01323, .00186, + .00012, .00793, .01379, + .44366, .15836, .14335, .01269, .00191, + .00032, .00762, .01304, + .42800, .15202, .12946, .01214, .00193, + .00044, .00729, .01229, + .41423, .14647, .11827, .01164, .00194, + .00053, .00700, .01164 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40077, .14107, .10814, .01116, .00194, + .00062, .00671, .01101, + .38986, .13675, .10053, .01077, .00193, + .00067, .00648, .01052, + .37696, .13167, .09219, .01033, .00191, + .00072, .00620, .00995, + .36592, .12735, .08551, .00995, .00188, + .00076, .00596, .00948, + .35599, .12350, .07993, .00960, .00186, + .00078, .00575, .00907, + .34379, .11879, .07350, .00919, .00182, + .00081, .00549, .00858, + .33271, .11452, .06803, .00882, .00178, + .00083, .00526, .00814, + .32259, .11067, .06341, .00847, .00174, + .00083, .00505, .00774 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .31283, .10697, .05917, .00813, .00171, + .00084, .00485, .00736, + .30351, .10344, .05537, .00782, .00167, + .00084, .00465, .00703, + .29496, .10022, .05206, .00753, .00163, + .00084, .00447, .00671, + .28712, .09729, .04919, .00728, .00159, + .00084, .00432, .00642, + .27943, .09443, .04651, .00703, .00155, + .00083, .00417, .00614, + .27204, .09171, .04405, .00680, .00152, + .00083, .00403, .00588, + .26522, .08920, .04187, .00658, .00148, + .00082, .00390, .00565, + .25891, .08687, .03995, .00638, .00145, + .00081, .00377, .00544 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .25275, .08461, .03811, .00618, .00142, + .00080, .00365, .00524, + .24673, .08242, .03642, .00599, .00139, + .00079, .00353, .00505, + .24115, .08040, .03489, .00582, .00136, + .00078, .00342, .00488, + .23597, .07852, .03352, .00566, .00133, + .00078, .00332, .00472, + .23083, .07667, .03221, .00550, .00130, + .00077, .00323, .00456 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .59448, .21780, .32630, .01537, .00000, + .00000, .00809, .01618, + .58028, .21162, .30281, .01503, .00000, + .00000, .00798, .01558, + .55947, .20268, .27029, .01451, .00023, + .00000, .00779, .01472, + .54450, .19634, .24823, .01411, .00050, + .00000, .00762, .01411, + .52887, .18978, .22699, .01369, .00070, + .00000, .00744, .01347, + .51565, .18428, .21019, .01333, .00086, + .00000, .00728, .01292, + .50312, .17912, .19531, .01297, .00097, + .00000, .00712, .01241, + .49006, .17377, .18074, .01258, .00108, + .00000, .00693, .01190 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .47892, .16922, .16902, .01224, .00116, + .00000, .00676, .01148, + .46828, .16492, .15849, .01192, .00122, + .00000, .00660, .01107, + .45999, .16160, .15065, .01167, .00126, + .00000, .00648, .01074, + .44269, .15468, .13517, .01114, .00132, + .00001, .00620, .01011, + .42819, .14895, .12309, .01070, .00137, + .00009, .00595, .00958, + .41243, .14282, .11081, .01025, .00140, + .00023, .00569, .00899, + .39651, .13663, .09955, .00974, .00141, + .00032, .00543, .00845, + .38258, .13124, .09056, .00930, .00141, + .00038, .00519, .00798 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36901, .12604, .08248, .00888, .00140, + .00044, .00496, .00753, + .35806, .12189, .07643, .00854, .00139, + .00048, .00477, .00719, + .34518, .11704, .06984, .00815, .00137, + .00051, .00455, .00678, + .33420, .11292, .06459, .00783, .00135, + .00054, .00436, .00644, + .32435, .10926, .06023, .00754, .00133, + .00056, .00420, .00614, + .31231, .10480, .05522, .00719, .00130, + .00057, .00400, .00578, + .30143, .10079, .05097, .00687, .00127, + .00058, .00381, .00546, + .29148, .09716, .04741, .00659, .00124, + .00059, .00365, .00517 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .28192, .09368, .04414, .00631, .00121, + .00059, .00350, .00491, + .27287, .09038, .04125, .00604, .00118, + .00059, .00335, .00467, + .26458, .08739, .03872, .00581, .00115, + .00059, .00321, .00444, + .25698, .08467, .03652, .00560, .00112, + .00059, .00310, .00423, + .24957, .08202, .03448, .00539, .00109, + .00058, .00298, .00405, + .24249, .07948, .03262, .00518, .00107, + .00058, .00286, .00388, + .23596, .07715, .03098, .00500, .00104, + .00057, .00276, .00373, + .22992, .07502, .02952, .00484, .00102, + .00057, .00267, .00358 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .22402, .07294, .02813, .00468, .00099, + .00056, .00258, .00344, + .21830, .07092, .02686, .00454, .00097, + .00055, .00250, .00330, + .21301, .06906, .02571, .00440, .00095, + .00054, .00241, .00318, + .20809, .06734, .02468, .00428, .00093, + .00054, .00234, .00307, + .20322, .06565, .02369, .00415, .00091, + .00053, .00227, .00297 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .56745, .20124, .26786, .01290, .00000, + .00000, .00627, .01130, + .55238, .19507, .24700, .01256, .00000, + .00000, .00616, .01086, + .53045, .18615, .21851, .01204, .00017, + .00000, .00599, .01022, + .51480, .17982, .19943, .01165, .00037, + .00000, .00585, .00978, + .49851, .17336, .18120, .01125, .00052, + .00000, .00568, .00929, + .48480, .16794, .16689, .01091, .00064, + .00000, .00552, .00889, + .47188, .16283, .15432, .01056, .00072, + .00000, .00537, .00855, + .45843, .15758, .14209, .01021, .00079, + .00000, .00521, .00819 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44699, .15315, .13233, .00991, .00085, + .00000, .00508, .00787, + .43614, .14897, .12362, .00963, .00089, + .00000, .00495, .00757, + .42771, .14574, .11717, .00940, .00092, + .00000, .00484, .00733, + .41017, .13905, .10453, .00892, .00096, + .00001, .00462, .00686, + .39554, .13352, .09474, .00853, .00099, + .00006, .00443, .00649, + .37972, .12762, .08486, .00811, .00101, + .00016, .00423, .00607, + .36380, .12169, .07589, .00769, .00101, + .00023, .00401, .00569, + .34994, .11657, .06877, .00731, .00101, + .00027, .00382, .00536 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33652, .11164, .06241, .00695, .00100, + .00031, .00363, .00504, + .32575, .10770, .05769, .00666, .00099, + .00034, .00348, .00479, + .31309, .10312, .05255, .00633, .00098, + .00037, .00332, .00449, + .30233, .09925, .04846, .00606, .00096, + .00039, .00318, .00425, + .29275, .09581, .04509, .00581, .00094, + .00040, .00305, .00405, + .28105, .09164, .04123, .00552, .00092, + .00041, .00289, .00381, + .27049, .08791, .03797, .00527, .00090, + .00042, .00274, .00358, + .26092, .08453, .03526, .00503, .00087, + .00042, .00262, .00339 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .25175, .08130, .03278, .00480, .00085, + .00042, .00250, .00321, + .24308, .07826, .03057, .00457, .00083, + .00042, .00239, .00305, + .23516, .07551, .02866, .00438, .00080, + .00042, .00230, .00289, + .22792, .07301, .02700, .00422, .00078, + .00041, .00221, .00275, + .22087, .07058, .02547, .00406, .00076, + .00041, .00212, .00262, + .21415, .06827, .02407, .00391, .00074, + .00041, .00203, .00251, + .20796, .06615, .02283, .00377, .00073, + .00040, .00195, .00240, + .20226, .06421, .02173, .00364, .00071, + .00040, .00188, .00231 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .19671, .06232, .02069, .00352, .00069, + .00039, .00181, .00221, + .19136, .06049, .01974, .00338, .00067, + .00039, .00175, .00212, + .18643, .05881, .01888, .00326, .00066, + .00038, .00170, .00204, + .18185, .05725, .01811, .00315, .00064, + .00038, .00164, .00196, + .17733, .05572, .01737, .00305, .00063, + .00037, .00159, .00189 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .53626, .18443, .21682, .01078, .00000, + .00000, .00473, .00758, + .52065, .17831, .19872, .01044, .00000, + .00000, .00463, .00728, + .49800, .16955, .17430, .00994, .00013, + .00000, .00448, .00683, + .48186, .16339, .15812, .00961, .00027, + .00000, .00436, .00649, + .46524, .15707, .14281, .00923, .00039, + .00000, .00423, .00617, + .45132, .15178, .13088, .00889, .00047, + .00000, .00410, .00591, + .43825, .14682, .12050, .00856, .00053, + .00000, .00398, .00569, + .42468, .14175, .11046, .00825, .00058, + .00000, .00385, .00542 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .41315, .13749, .10247, .00800, .00062, + .00000, .00375, .00517, + .40229, .13347, .09539, .00772, .00065, + .00000, .00364, .00496, + .39389, .13037, .09018, .00750, .00067, + .00000, .00355, .00482, + .37640, .12397, .08002, .00709, .00070, + .00000, .00337, .00450, + .36187, .11872, .07221, .00676, .00071, + .00005, .00322, .00423, + .34629, .11310, .06440, .00640, .00072, + .00012, .00307, .00396, + .33068, .10752, .05737, .00604, .00073, + .00016, .00289, .00369, + .31710, .10270, .05181, .00572, .00072, + .00019, .00274, .00346 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .30399, .09808, .04687, .00542, .00071, + .00022, .00260, .00325, + .29353, .09440, .04322, .00516, .00070, + .00024, .00249, .00309, + .28128, .09013, .03926, .00490, .00069, + .00026, .00236, .00289, + .27089, .08653, .03613, .00469, .00068, + .00027, .00225, .00272, + .26171, .08336, .03356, .00448, .00066, + .00028, .00216, .00259, + .25054, .07950, .03063, .00423, .00065, + .00029, .00204, .00244, + .24050, .07605, .02817, .00401, .00063, + .00030, .00193, .00230, + .23141, .07296, .02611, .00381, .00061, + .00030, .00184, .00217 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .22272, .07002, .02424, .00363, .00060, + .00030, .00176, .00204, + .21447, .06726, .02258, .00349, .00058, + .00030, .00168, .00192, + .20700, .06475, .02114, .00334, .00056, + .00030, .00160, .00181, + .20023, .06247, .01990, .00320, .00055, + .00030, .00154, .00172, + .19365, .06027, .01874, .00306, .00053, + .00030, .00147, .00164, + .18737, .05819, .01770, .00294, .00052, + .00030, .00141, .00156, + .18162, .05628, .01677, .00282, .00051, + .00029, .00135, .00149, + .17634, .05453, .01596, .00272, .00049, + .00029, .00130, .00144 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .17121, .05283, .01518, .00261, .00048, + .00029, .00125, .00138, + .16624, .05120, .01447, .00252, .00047, + .00029, .00121, .00131, + .16165, .04971, .01383, .00244, .00046, + .00029, .00117, .00125, + .15743, .04832, .01325, .00235, .00045, + .00028, .00113, .00120, + .15328, .04696, .01270, .00226, .00044, + .00028, .00109, .00117 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .50178, .16749, .17280, .00882, .00000, + .00000, .00354, .00489, + .48587, .16153, .15748, .00851, .00000, + .00000, .00346, .00470, + .46296, .15302, .13702, .00804, .00009, + .00000, .00333, .00441, + .44675, .14706, .12364, .00771, .00020, + .00000, .00322, .00421, + .43005, .14098, .11107, .00738, .00028, + .00000, .00311, .00398, + .41610, .13593, .10133, .00709, .00034, + .00000, .00300, .00379, + .40306, .13122, .09292, .00684, .00038, + .00000, .00290, .00362, + .38959, .12639, .08481, .00657, .00042, + .00000, .00280, .00344 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37820, .12234, .07839, .00634, .00045, + .00000, .00271, .00328, + .36747, .11854, .07275, .00612, .00047, + .00000, .00262, .00314, + .35918, .11561, .06861, .00595, .00048, + .00000, .00255, .00304, + .34206, .10958, .06060, .00559, .00050, + .00000, .00242, .00283, + .32791, .10463, .05449, .00530, .00051, + .00003, .00230, .00266, + .31274, .09939, .04840, .00499, .00052, + .00008, .00218, .00247, + .29765, .09418, .04296, .00469, .00052, + .00011, .00205, .00230, + .28459, .08971, .03869, .00443, .00051, + .00013, .00194, .00215 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .27202, .08542, .03491, .00417, .00051, + .00015, .00183, .00202, + .26199, .08203, .03212, .00398, .00050, + .00016, .00174, .00192, + .25034, .07810, .02912, .00376, .00049, + .00018, .00165, .00179, + .24051, .07480, .02676, .00357, .00048, + .00018, .00157, .00167, + .23182, .07190, .02482, .00340, .00047, + .00019, .00149, .00158, + .22127, .06839, .02262, .00320, .00046, + .00019, .00140, .00148, + .21181, .06527, .02077, .00304, .00045, + .00020, .00133, .00138, + .20327, .06246, .01923, .00290, .00043, + .00020, .00126, .00130 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .19514, .05980, .01783, .00277, .00042, + .00020, .00120, .00122, + .18752, .05729, .01660, .00262, .00041, + .00020, .00114, .00116, + .18060, .05503, .01553, .00249, .00040, + .00020, .00108, .00110, + .17433, .05300, .01460, .00237, .00039, + .00020, .00103, .00104, + .16825, .05104, .01374, .00226, .00038, + .00020, .00099, .00099, + .16247, .04918, .01296, .00217, .00037, + .00020, .00094, .00095, + .15718, .04748, .01228, .00208, .00037, + .00020, .00091, .00091, + .15233, .04592, .01167, .00200, .00036, + .00020, .00087, .00086 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .14762, .04441, .01110, .00192, .00035, + .00020, .00084, .00082, + .14309, .04297, .01057, .00185, .00034, + .00020, .00081, .00079, + .13893, .04164, .01009, .00178, .00034, + .00020, .00078, .00075, + .13508, .04043, .00967, .00172, .00033, + .00020, .00076, .00072, + .13130, .03923, .00926, .00165, .00032, + .00020, .00072, .00069 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .46494, .15057, .13543, .00701, .00000, + .00000, .00263, .00306, + .44898, .14487, .12276, .00675, .00000, + .00000, .00256, .00293, + .42608, .13676, .10600, .00636, .00007, + .00000, .00246, .00272, + .41001, .13109, .09513, .00606, .00014, + .00000, .00237, .00259, + .39355, .12530, .08499, .00576, .00020, + .00000, .00228, .00247, + .37982, .12051, .07719, .00551, .00024, + .00000, .00220, .00236, + .36700, .11608, .07051, .00528, .00027, + .00000, .00213, .00224, + .35383, .11154, .06411, .00504, .00030, + .00000, .00204, .00213 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .34277, .10773, .05908, .00484, .00032, + .00000, .00196, .00205, + .33237, .10416, .05468, .00465, .00034, + .00000, .00190, .00196, + .32434, .10142, .05145, .00450, .00035, + .00000, .00185, .00189, + .30778, .09582, .04525, .00421, .00036, + .00000, .00174, .00175, + .29416, .09125, .04055, .00397, .00037, + .00002, .00165, .00164, + .27963, .08638, .03590, .00372, .00038, + .00005, .00155, .00153, + .26520, .08160, .03176, .00349, .00038, + .00007, .00147, .00143, + .25279, .07750, .02853, .00329, .00037, + .00009, .00138, .00134 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .24090, .07358, .02568, .00309, .00037, + .00010, .00129, .00125, + .23147, .07049, .02359, .00293, .00036, + .00011, .00124, .00117, + .22052, .06692, .02135, .00275, .00036, + .00011, .00116, .00109, + .21131, .06394, .01959, .00260, .00035, + .00012, .00110, .00103, + .20315, .06132, .01815, .00249, .00034, + .00012, .00105, .00096, + .19333, .05817, .01651, .00234, .00033, + .00012, .00099, .00090, + .18461, .05535, .01515, .00219, .00032, + .00012, .00094, .00084, + .17675, .05284, .01401, .00206, .00032, + .00012, .00089, .00079 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16927, .05047, .01298, .00195, .00031, + .00012, .00084, .00075, + .16224, .04824, .01207, .00186, .00030, + .00012, .00080, .00070, + .15588, .04623, .01128, .00177, .00030, + .00012, .00076, .00067, + .15013, .04443, .01060, .00169, .00029, + .00012, .00073, .00064, + .14458, .04270, .00997, .00161, .00029, + .00012, .00069, .00061, + .13933, .04106, .00940, .00153, .00028, + .00012, .00066, .00058, + .13454, .03956, .00890, .00146, .00027, + .00012, .00063, .00055, + .13016, .03819, .00845, .00140, .00027, + .00012, .00061, .00053 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .12591, .03687, .00803, .00133, .00026, + .00012, .00058, .00050, + .12181, .03562, .00764, .00129, .00026, + .00012, .00056, .00047, + .11805, .03447, .00730, .00124, .00026, + .00012, .00054, .00045, + .11460, .03341, .00698, .00120, .00025, + .00012, .00052, .00043, + .11122, .03237, .00668, .00115, .00025, + .00012, .00050, .00042 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .42643, .13419, .10434, .00547, .00000, + .00000, .00192, .00181, + .41073, .12876, .09407, .00521, .00000, + .00000, .00186, .00175, + .38829, .12105, .08063, .00485, .00005, + .00000, .00177, .00165, + .37254, .11570, .07200, .00463, .00010, + .00000, .00172, .00155, + .35652, .11028, .06400, .00436, .00014, + .00000, .00164, .00149, + .34322, .10581, .05789, .00414, .00017, + .00000, .00158, .00144, + .33084, .10167, .05269, .00396, .00019, + .00000, .00153, .00139, + .31815, .09745, .04774, .00377, .00021, + .00000, .00147, .00132 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .30750, .09392, .04387, .00360, .00022, + .00000, .00140, .00125, + .29751, .09063, .04049, .00346, .00023, + .00000, .00136, .00119, + .28981, .08811, .03802, .00335, .00024, + .00000, .00133, .00115, + .27404, .08295, .03332, .00311, .00025, + .00000, .00125, .00107, + .26113, .07875, .02977, .00292, .00026, + .00001, .00118, .00100, + .24739, .07432, .02629, .00275, .00026, + .00004, .00111, .00091, + .23387, .06997, .02321, .00254, .00026, + .00005, .00104, .00085, + .22226, .06625, .02081, .00236, .00026, + .00006, .00099, .00080 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .21115, .06272, .01869, .00221, .00026, + .00006, .00093, .00075, + .20233, .05994, .01715, .00210, .00026, + .00007, .00088, .00071, + .19218, .05675, .01550, .00197, .00026, + .00007, .00082, .00066, + .18368, .05408, .01420, .00186, .00025, + .00007, .00078, .00062, + .17621, .05173, .01315, .00175, .00025, + .00007, .00074, .00060, + .16719, .04893, .01196, .00163, .00025, + .00007, .00069, .00056, + .15915, .04645, .01096, .00154, .00025, + .00007, .00066, .00051, + .15198, .04423, .01013, .00145, .00024, + .00007, .00062, .00049 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .14518, .04214, .00937, .00137, .00023, + .00007, .00058, .00046, + .13883, .04018, .00870, .00129, .00023, + .00007, .00055, .00043, + .13310, .03843, .00813, .00122, .00023, + .00007, .00052, .00041, + .12791, .03686, .00764, .00115, .00022, + .00007, .00050, .00038, + .12293, .03534, .00718, .00109, .00022, + .00007, .00048, .00036, + .11824, .03392, .00676, .00103, .00022, + .00007, .00046, .00034, + .11395, .03262, .00640, .00098, .00021, + .00007, .00044, .00033, + .11001, .03144, .00607, .00095, .00021, + .00007, .00042, .00031 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .10620, .03030, .00577, .00091, .00021, + .00007, .00040, .00030, + .10257, .02921, .00549, .00087, .00021, + .00007, .00038, .00029, + .09924, .02822, .00523, .00083, .00021, + .00007, .00037, .00028, + .09618, .02731, .00500, .00080, .00020, + .00007, .00036, .00027, + .09319, .02642, .00479, .00077, .00020, + .00007, .00034, .00026 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .38711, .11853, .07911, .00429, .00000, + .00000, .00132, .00094, + .37186, .11346, .07099, .00409, .00000, + .00000, .00127, .00092, + .35017, .10630, .06045, .00380, .00003, + .00000, .00120, .00088, + .33504, .10134, .05375, .00360, .00007, + .00000, .00116, .00082, + .31968, .09632, .04760, .00337, .00010, + .00000, .00110, .00079, + .30698, .09219, .04292, .00319, .00011, + .00000, .00106, .00075, + .29520, .08839, .03896, .00303, .00013, + .00000, .00102, .00072, + .28315, .08451, .03520, .00289, .00014, + .00000, .00097, .00068 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .27305, .08128, .03228, .00277, .00015, + .00000, .00093, .00064, + .26364, .07828, .02973, .00265, .00015, + .00000, .00090, .00062, + .25642, .07599, .02788, .00255, .00016, + .00000, .00087, .00059, + .24164, .07130, .02436, .00235, .00016, + .00000, .00082, .00056, + .22956, .06750, .02172, .00221, .00016, + .00001, .00077, .00053, + .21675, .06352, .01914, .00208, .00016, + .00002, .00073, .00050, + .20422, .05961, .01686, .00191, .00016, + .00003, .00067, .00046, + .19348, .05628, .01510, .00179, .00016, + .00003, .00063, .00042 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .18326, .05313, .01355, .00168, .00016, + .00003, .00058, .00038, + .17522, .05066, .01243, .00157, .00016, + .00003, .00055, .00037, + .16595, .04782, .01123, .00146, .00016, + .00003, .00052, .00035, + .15821, .04545, .01028, .00137, .00016, + .00003, .00050, .00033, + .15140, .04340, .00951, .00130, .00016, + .00003, .00047, .00031, + .14323, .04093, .00864, .00121, .00016, + .00003, .00044, .00029, + .13601, .03875, .00792, .00113, .00016, + .00003, .00041, .00027, + .12954, .03682, .00731, .00107, .00016, + .00003, .00038, .00025 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .12343, .03500, .00676, .00102, .00016, + .00003, .00036, .00023, + .11772, .03331, .00628, .00096, .00016, + .00003, .00034, .00021, + .11260, .03178, .00586, .00090, .00016, + .00003, .00032, .00020, + .10800, .03041, .00550, .00085, .00016, + .00003, .00031, .00019, + .10357, .02910, .00517, .00081, .00016, + .00003, .00029, .00018, + .09939, .02787, .00487, .00078, .00016, + .00003, .00028, .00016, + .09559, .02676, .00460, .00074, .00016, + .00003, .00027, .00016, + .09216, .02574, .00437, .00070, .00016, + .00003, .00025, .00016 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08884, .02476, .00415, .00066, .00016, + .00003, .00024, .00016, + .08565, .02383, .00394, .00063, .00016, + .00003, .00023, .00015, + .08272, .02299, .00376, .00061, .00016, + .00003, .00022, .00014, + .08004, .02222, .00359, .00059, .00016, + .00003, .00021, .00013, + .07742, .02146, .00343, .00057, .00016, + .00003, .00020, .00012 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .34756, .10327, .05859, .00306, .00000, + .00000, .00097, .00053, + .33296, .09861, .05236, .00290, .00000, + .00000, .00093, .00052, + .31227, .09204, .04434, .00268, .00002, + .00000, .00087, .00050, + .29790, .08749, .03926, .00253, .00004, + .00000, .00084, .00047, + .28336, .08294, .03464, .00239, .00006, + .00000, .00080, .00043, + .27137, .07920, .03114, .00227, .00007, + .00000, .00076, .00040, + .26032, .07574, .02818, .00214, .00008, + .00000, .00072, .00040, + .24905, .07224, .02541, .00202, .00009, + .00000, .00069, .00039 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .23964, .06934, .02325, .00194, .00009, + .00000, .00066, .00037, + .23085, .06665, .02138, .00186, .00009, + .00000, .00063, .00034, + .22412, .06461, .02003, .00180, .00010, + .00000, .00061, .00032, + .21042, .06042, .01745, .00167, .00010, + .00000, .00057, .00030, + .19932, .05703, .01553, .00155, .00010, + .00000, .00053, .00029, + .18767, .05346, .01367, .00140, .00010, + .00001, .00050, .00028, + .17616, .05002, .01203, .00129, .00010, + .00001, .00046, .00025, + .16636, .04710, .01077, .00122, .00010, + .00001, .00043, .00023 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15708, .04434, .00966, .00115, .00010, + .00001, .00040, .00022, + .14980, .04217, .00885, .00107, .00010, + .00001, .00038, .00020, + .14146, .03968, .00799, .00098, .00010, + .00001, .00035, .00019, + .13451, .03762, .00731, .00091, .00010, + .00001, .00032, .00019, + .12840, .03584, .00676, .00087, .00010, + .00001, .00031, .00017, + .12109, .03370, .00614, .00082, .00010, + .00001, .00029, .00016, + .11463, .03182, .00562, .00078, .00010, + .00001, .00027, .00015, + .10891, .03015, .00519, .00072, .00010, + .00001, .00025, .00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .10351, .02858, .00480, .00067, .00010, + .00001, .00024, .00013, + .09851, .02713, .00445, .00062, .00010, + .00001, .00022, .00012, + .09400, .02583, .00416, .00059, .00010, + .00001, .00021, .00011, + .08994, .02467, .00390, .00057, .00010, + .00001, .00020, .00011, + .08606, .02356, .00366, .00054, .00010, + .00001, .00019, .00010, + .08242, .02252, .00345, .00051, .00010, + .00001, .00018, .00009, + .07912, .02158, .00325, .00049, .00010, + .00001, .00017, .00008, + .07612, .02072, .00309, .00046, .00010, + .00001, .00016, .00008 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .07323, .01990, .00293, .00044, .00010, + .00001, .00016, .00008, + .07047, .01912, .00278, .00042, .00010, + .00001, .00015, .00007, + .06794, .01841, .00265, .00041, .00010, + .00001, .00015, .00007, + .06563, .01776, .00253, .00039, .00010, + .00001, .00014, .00007, + .06338, .01713, .00242, .00038, .00010, + .00001, .00013, .00006 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30835, .08905, .04253, .00219, .00000, + .00000, .00070, .00026, + .29460, .08480, .03785, .00206, .00000, + .00000, .00066, .00026, + .27520, .07884, .03187, .00188, .00001, + .00000, .00060, .00025, + .26175, .07475, .02812, .00177, .00003, + .00000, .00058, .00024, + .24822, .07065, .02473, .00165, .00004, + .00000, .00055, .00024, + .23710, .06729, .02218, .00155, .00005, + .00000, .00052, .00023, + .22686, .06419, .02003, .00147, .00005, + .00000, .00050, .00022, + .21645, .06107, .01802, .00139, .00005, + .00000, .00047, .00021 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .20779, .05849, .01646, .00133, .00005, + .00000, .00045, .00020, + .19975, .05609, .01512, .00126, .00005, + .00000, .00043, .00019, + .19362, .05426, .01415, .00121, .00005, + .00000, .00042, .00019, + .18113, .05057, .01231, .00111, .00005, + .00000, .00039, .00018, + .17103, .04760, .01095, .00103, .00005, + .00000, .00037, .00017, + .16043, .04449, .00962, .00093, .00005, + .00000, .00034, .00015, + .15008, .04146, .00846, .00086, .00005, + .00000, .00031, .00014, + .14128, .03892, .00756, .00081, .00005, + .00000, .00029, .00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13297, .03652, .00678, .00076, .00005, + .00000, .00027, .00011, + .12647, .03464, .00621, .00071, .00005, + .00000, .00026, .00011, + .11904, .03251, .00561, .00065, .00005, + .00000, .00024, .00010, + .11288, .03075, .00513, .00061, .00005, + .00000, .00022, .00010, + .10749, .02922, .00475, .00057, .00005, + .00000, .00021, .00010, + .10106, .02739, .00431, .00053, .00005, + .00000, .00019, .00009, + .09540, .02578, .00395, .00050, .00005, + .00000, .00018, .00009, + .09041, .02437, .00364, .00046, .00005, + .00000, .00017, .00008 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .08570, .02305, .00337, .00043, .00005, + .00000, .00017, .00007, + .08133, .02183, .00312, .00040, .00005, + .00000, .00015, .00007, + .07743, .02073, .00291, .00037, .00005, + .00000, .00014, .00007, + .07393, .01975, .00273, .00036, .00005, + .00000, .00013, .00006, + .07059, .01882, .00256, .00034, .00005, + .00000, .00013, .00006, + .06747, .01795, .00241, .00031, .00005, + .00000, .00012, .00007, + .06463, .01716, .00227, .00029, .00005, + .00000, .00011, .00006, + .06205, .01645, .00215, .00028, .00005, + .00000, .00011, .00005 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05956, .01577, .00204, .00027, .00005, + .00000, .00010, .00004, + .05721, .01513, .00194, .00026, .00005, + .00000, .00010, .00004, + .05506, .01454, .00184, .00025, .00005, + .00000, .00010, .00004, + .05310, .01400, .00176, .00024, .00005, + .00000, .00009, .00003, + .05119, .01348, .00168, .00023, .00005, + .00000, .00009, .00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .27043, .07600, .03023, .00156, .00000, + .00000, .00043, .00009, + .25765, .07217, .02682, .00147, .00000, + .00000, .00041, .00009, + .23969, .06683, .02249, .00134, .00001, + .00000, .00039, .00008, + .22732, .06319, .01979, .00125, .00002, + .00000, .00037, .00009, + .21489, .05953, .01736, .00116, .00002, + .00000, .00035, .00009, + .20472, .05655, .01554, .00110, .00002, + .00000, .00033, .00010, + .19538, .05382, .01401, .00103, .00002, + .00000, .00031, .00010, + .18592, .05108, .01259, .00097, .00002, + .00000, .00029, .00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .17807, .04882, .01149, .00094, .00002, + .00000, .00028, .00007, + .17079, .04673, .01055, .00090, .00002, + .00000, .00026, .00007, + .16522, .04514, .00986, .00086, .00002, + .00000, .00025, .00007, + .15399, .04191, .00858, .00079, .00002, + .00000, .00023, .00007, + .14495, .03932, .00762, .00073, .00002, + .00000, .00022, .00007, + .13550, .03664, .00670, .00066, .00002, + .00000, .00020, .00008, + .12631, .03403, .00589, .00060, .00002, + .00000, .00018, .00006, + .11854, .03183, .00527, .00056, .00002, + .00000, .00017, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .11123, .02978, .00473, .00051, .00002, + .00000, .00015, .00006, + .10553, .02818, .00433, .00047, .00002, + .00000, .00014, .00005, + .09901, .02636, .00391, .00044, .00002, + .00000, .00014, .00005, + .09361, .02486, .00358, .00042, .00002, + .00000, .00013, .00005, + .08895, .02357, .00331, .00038, .00002, + .00000, .00012, .00004, + .08337, .02203, .00300, .00036, .00002, + .00000, .00011, .00004, + .07846, .02069, .00275, .00034, .00002, + .00000, .00011, .00003, + .07414, .01950, .00254, .00031, .00002, + .00000, .00010, .00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .07010, .01839, .00234, .00029, .00002, + .00000, .00009, .00003, + .06636, .01737, .00217, .00027, .00002, + .00000, .00009, .00003, + .06303, .01647, .00203, .00026, .00002, + .00000, .00008, .00002, + .06004, .01565, .00190, .00024, .00002, + .00000, .00008, .00002, + .05720, .01488, .00178, .00023, .00002, + .00000, .00007, .00002, + .05454, .01417, .00167, .00022, .00002, + .00000, .00006, .00002, + .05214, .01352, .00158, .00020, .00002, + .00000, .00006, .00002, + .04997, .01293, .00149, .00019, .00002, + .00000, .00006, .00002 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04788, .01237, .00141, .00018, .00002, + .00000, .00006, .00002, + .04590, .01184, .00134, .00017, .00002, + .00000, .00005, .00002, + .04410, .01136, .00128, .00017, .00002, + .00000, .00005, .00002, + .04246, .01093, .00122, .00016, .00002, + .00000, .00005, .00002, + .04086, .01050, .00116, .00015, .00002, + .00000, .00005, .00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .23379, .06379, .02087, .00099, .00000, + .00000, .00031, .00004, + .22210, .06042, .01846, .00093, .00000, + .00000, .00030, .00005, + .20574, .05571, .01542, .00084, .00000, + .00000, .00028, .00006, + .19452, .05252, .01354, .00077, .00000, + .00000, .00026, .00006, + .18331, .04933, .01186, .00072, .00000, + .00000, .00025, .00005, + .17415, .04673, .01060, .00067, .00000, + .00000, .00024, .00005, + .16579, .04437, .00955, .00062, .00000, + .00000, .00022, .00005, + .15732, .04199, .00858, .00058, .00000, + .00000, .00021, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .15031, .04002, .00783, .00056, .00000, + .00000, .00019, .00005, + .14383, .03822, .00718, .00053, .00000, + .00000, .00018, .00005, + .13890, .03686, .00671, .00050, .00000, + .00000, .00017, .00005, + .12895, .03410, .00584, .00047, .00000, + .00000, .00016, .00004, + .12096, .03190, .00519, .00044, .00000, + .00000, .00015, .00005, + .11265, .02961, .00456, .00040, .00000, + .00000, .00013, .00006, + .10464, .02740, .00401, .00035, .00000, + .00000, .00013, .00004, + .09788, .02555, .00359, .00032, .00000, + .00000, .00012, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .09153, .02383, .00322, .00030, .00000, + .00000, .00011, .00004, + .08657, .02249, .00295, .00029, .00000, + .00000, .00010, .00004, + .08097, .02098, .00267, .00026, .00000, + .00000, .00009, .00003, + .07636, .01973, .00244, .00023, .00000, + .00000, .00008, .00003, + .07235, .01865, .00226, .00022, .00000, + .00000, .00008, .00003, + .06759, .01737, .00205, .00020, .00000, + .00000, .00007, .00003, + .06342, .01626, .00187, .00019, .00000, + .00000, .00007, .00003, + .05976, .01529, .00173, .00018, .00000, + .00000, .00006, .00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05634, .01438, .00160, .00017, .00000, + .00000, .00006, .00002, + .05318, .01355, .00148, .00016, .00000, + .00000, .00006, .00002, + .05038, .01281, .00138, .00014, .00000, + .00000, .00005, .00002, + .04789, .01215, .00129, .00013, .00000, + .00000, .00005, .00002, + .04552, .01152, .00121, .00012, .00000, + .00000, .00005, .00002, + .04330, .01094, .00113, .00012, .00000, + .00000, .00005, .00002, + .04130, .01042, .00107, .00011, .00000, + .00000, .00005, .00002, + .03949, .00995, .00101, .00011, .00000, + .00000, .00004, .00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03776, .00950, .00096, .00011, .00000, + .00000, .00004, .00002, + .03614, .00908, .00091, .00009, .00000, + .00000, .00004, .00001, + .03466, .00869, .00086, .00008, .00000, + .00000, .00003, .00001, + .03331, .00834, .00082, .00008, .00000, + .00000, .00003, .00001, + .03199, .00800, .00078, .00008, .00000, + .00000, .00003, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .16721, .04311, .00917, .00041, .00000, + .00000, .00010, -.00001, + .15788, .04059, .00808, .00039, .00000, + .00000, .00010, -.00001, + .14494, .03710, .00673, .00035, .00000, + .00000, .00009, .00000, + .13615, .03476, .00590, .00032, .00000, + .00000, .00009, .00000, + .12744, .03242, .00516, .00030, .00000, + .00000, .00009, .00000, + .12037, .03054, .00462, .00027, .00000, + .00000, .00008, .00000, + .11395, .02884, .00416, .00025, .00000, + .00000, .00008, .00001, + .10751, .02714, .00374, .00022, .00000, + .00000, .00007, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .10222, .02574, .00342, .00020, .00000, + .00000, .00007, .00001, + .09735, .02447, .00314, .00019, .00000, + .00000, .00006, .00002, + .09366, .02350, .00294, .00018, .00000, + .00000, .00006, .00002, + .08625, .02157, .00256, .00017, .00000, + .00000, .00006, .00001, + .08035, .02005, .00229, .00017, .00000, + .00000, .00006, .00001, + .07426, .01847, .00201, .00015, .00000, + .00000, .00005, .00001, + .06843, .01697, .00178, .00013, .00000, + .00000, .00004, .00001, + .06356, .01572, .00159, .00012, .00000, + .00000, .00004, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05902, .01455, .00143, .00011, .00000, + .00000, .00004, .00001, + .05551, .01365, .00131, .00010, .00000, + .00000, .00003, .00001, + .05156, .01265, .00119, .00009, .00000, + .00000, .00003, .00001, + .04832, .01183, .00109, .00009, .00000, + .00000, .00003, .00001, + .04554, .01112, .00101, .00007, .00000, + .00000, .00003, .00001, + .04226, .01029, .00091, .00006, .00000, + .00000, .00002, .00001, + .03941, .00958, .00083, .00006, .00000, + .00000, .00002, .00001, + .03692, .00895, .00077, .00005, .00000, + .00000, .00002, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .03460, .00837, .00071, .00005, .00000, + .00000, .00002, .00001, + .03249, .00784, .00066, .00004, .00000, + .00000, .00002, .00001, + .03061, .00737, .00061, .00004, .00000, + .00000, .00002, .00001, + .02895, .00696, .00057, .00004, .00000, + .00000, .00002, .00001, + .02737, .00657, .00053, .00004, .00000, + .00000, .00002, .00000, + .02591, .00621, .00050, .00004, .00000, + .00000, .00001, .00001, + .02460, .00589, .00047, .00004, .00000, + .00000, .00001, .00001, + .02343, .00560, .00044, .00003, .00000, + .00000, .00001, .00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .02232, .00532, .00042, .00003, .00000, + .00000, .00001, .00000, + .02126, .00506, .00039, .00003, .00000, + .00000, .00001, .00000, + .02031, .00483, .00037, .00002, .00000, + .00000, .00001, .00000, + .01945, .00462, .00036, .00002, .00000, + .00000, .00001, .00001, + .01861, .00441, .00034, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .11108, .02696, .00349, .00014, .00000, + .00000, .00003, .00000, + .10421, .02522, .00308, .00012, .00000, + .00000, .00003, .00000, + .09475, .02285, .00258, .00012, .00000, + .00000, .00003, -.00001, + .08837, .02125, .00227, .00011, .00000, + .00000, .00003, -.00001, + .08210, .01969, .00200, .00010, .00000, + .00000, .00003, .00000, + .07706, .01844, .00180, .00009, .00000, + .00000, .00003, .00000, + .07253, .01731, .00163, .00008, .00000, + .00000, .00002, .00001, + .06799, .01619, .00147, .00007, .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=9,16)/ + .06427, .01528, .00135, .00008, .00000, + .00000, .00001, .00000, + .06089, .01445, .00125, .00008, .00000, + .00000, .00001, .00000, + .05834, .01382, .00117, .00007, .00000, + .00000, .00002, .00000, + .05328, .01257, .00103, .00005, .00000, + .00000, .00001, .00000, + .04928, .01160, .00092, .00004, .00000, + .00000, .00001, .00001, + .04516, .01060, .00081, .00005, .00000, + .00000, .00002, .00001, + .04127, .00965, .00072, .00004, .00000, + .00000, .00001, .00000, + .03804, .00888, .00065, .00003, .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=17,24)/ + .03506, .00816, .00058, .00003, .00000, + .00000, .00001, .00000, + .03276, .00761, .00054, .00004, .00000, + .00000, .00001, .00000, + .03020, .00700, .00048, .00003, .00000, + .00000, .00001, .00000, + .02813, .00650, .00044, .00002, .00000, + .00000, .00001, .00000, + .02634, .00608, .00041, .00003, .00000, + .00000, .00001, .00000, + .02426, .00558, .00037, .00003, .00000, + .00000, .00001, .00000, + .02246, .00516, .00034, .00002, .00000, + .00000, .00001, .00001, + .02091, .00479, .00031, .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)/ + .01948, .00445, .00029, .00002, .00000, + .00000, .00000, .00000, + .01817, .00415, .00026, .00001, .00000, + .00000, .00000, .00000, + .01703, .00388, .00025, .00001, .00000, + .00000, .00000, .00000, + .01602, .00364, .00023, .00001, .00000, + .00000, .00000, .00000, + .01507, .00342, .00021, .00001, .00000, + .00000, .00000, .00000, + .01419, .00322, .00020, .00001, .00000, + .00000, .00000, .00000, + .01341, .00303, .00019, .00001, .00000, + .00000, .00000, .00000, + .01271, .00287, .00018, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .01204, .00272, .00017, .00001, .00000, + .00000, .00000, .00000, + .01142, .00257, .00016, .00001, .00000, + .00000, .00000, .00000, + .01086, .00244, .00015, .00001, .00000, + .00000, .00000, .00000, + .01036, .00233, .00014, .00001, .00000, + .00000, .00000, .00000, + .00987, .00222, .00013, .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)/ + .06695, .01523, .00110, .00005, .00000, + .00000, .00000, .00000, + .06235, .01415, .00099, .00004, .00000, + .00000, .00000, .00000, + .05609, .01268, .00084, .00004, .00000, + .00000, .00000, .00000, + .05192, .01171, .00075, .00004, .00000, + .00000, .00000, .00000, + .04784, .01076, .00067, .00003, .00000, + .00000, .00000, .00000, + .04458, .01001, .00061, .00003, .00000, + .00000, .00000, .00000, + .04167, .00934, .00056, .00003, .00000, + .00000, .00000, .00000, + .03879, .00867, .00051, .00003, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .03646, .00813, .00047, .00002, .00000, + .00000, .00000, .00000, + .03434, .00764, .00044, .00002, .00000, + .00000, .00000, .00000, + .03276, .00728, .00041, .00002, .00000, + .00000, .00000, .00000, + .02961, .00656, .00036, .00002, .00000, + .00000, .00000, .00000, + .02716, .00600, .00033, .00001, .00000, + .00000, .00000, .00000, + .02467, .00544, .00029, .00001, .00000, + .00000, .00000, .00000, + .02232, .00491, .00026, .00001, .00000, + .00000, .00000, .00000, + .02040, .00447, .00023, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01864, .00408, .00021, .00001, .00000, + .00000, .00000, .00000, + .01731, .00378, .00019, .00001, .00000, + .00000, .00000, .00000, + .01582, .00344, .00017, .00001, .00000, + .00000, .00000, .00000, + .01462, .00318, .00016, .00001, .00000, + .00000, .00000, .00000, + .01360, .00295, .00015, .00001, .00000, + .00000, .00000, .00000, + .01243, .00269, .00013, .00001, .00000, + .00000, .00000, .00000, + .01142, .00247, .00012, .00001, .00000, + .00000, .00000, .00000, + .01055, .00227, .00011, .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)/ + .00976, .00210, .00010, .00000, .00000, + .00000, .00000, .00000, + .00904, .00194, .00009, .00000, .00000, + .00000, .00000, .00000, + .00842, .00180, .00009, .00000, .00000, + .00000, .00000, .00000, + .00787, .00168, .00008, .00000, .00000, + .00000, .00000, .00000, + .00735, .00157, .00007, .00000, .00000, + .00000, .00000, .00000, + .00689, .00147, .00007, .00000, .00000, + .00000, .00000, .00000, + .00647, .00138, .00006, .00000, .00000, + .00000, .00000, .00000, + .00610, .00130, .00006, .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)/ + .00575, .00122, .00006, .00000, .00000, + .00000, .00000, .00000, + .00543, .00115, .00005, .00000, .00000, + .00000, .00000, .00000, + .00514, .00109, .00005, .00000, .00000, + .00000, .00000, .00000, + .00488, .00103, .00005, .00000, .00000, + .00000, .00000, .00000, + .00463, .00098, .00004, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .03506, .00741, .00027, .00001, .00000, + .00000, .00000, .00000, + .03238, .00682, .00025, .00001, .00000, + .00000, .00001, .00000, + .02877, .00604, .00022, .00000, .00000, + .00000, .00000, .00000, + .02639, .00553, .00020, .00000, .00000, + .00000, .00000, .00000, + .02409, .00504, .00019, .00000, .00000, + .00000, .00000, .00000, + .02227, .00465, .00017, .00000, .00000, + .00000, .00000, .00000, + .02065, .00430, .00016, .00001, .00000, + .00000, .00000, .00000, + .01907, .00396, .00015, .00001, .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)/ + .01779, .00369, .00014, .00001, .00000, + .00000, .00000, .00000, + .01664, .00345, .00013, .00000, .00000, + .00000, .00000, .00000, + .01579, .00326, .00012, .00000, .00000, + .00000, .00000, .00000, + .01412, .00291, .00011, .00000, .00000, + .00000, .00000, .00000, + .01282, .00264, .00010, .00000, .00000, + .00000, .00000, .00000, + .01152, .00236, .00009, .00000, .00000, + .00000, .00000, .00000, + .01031, .00211, .00008, .00000, .00000, + .00000, .00000, .00000, + .00933, .00190, .00007, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ + .00844, .00172, .00006, .00000, .00000, + .00000, .00000, .00000, + .00777, .00158, .00006, .00000, .00000, + .00000, .00000, .00000, + .00704, .00143, .00005, .00000, .00000, + .00000, .00000, .00000, + .00645, .00131, .00005, .00000, .00000, + .00000, .00000, .00000, + .00595, .00120, .00004, .00000, .00000, + .00000, .00000, .00000, + .00538, .00109, .00004, .00000, .00000, + .00000, .00000, .00000, + .00490, .00099, .00004, .00000, .00000, + .00000, .00000, .00000, + .00449, .00090, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00412, .00083, .00003, .00000, .00000, + .00000, .00000, .00000, + .00379, .00076, .00003, .00000, .00000, + .00000, .00000, .00000, + .00350, .00070, .00002, .00000, .00000, + .00000, .00000, .00000, + .00325, .00065, .00002, .00000, .00000, + .00000, .00000, .00000, + .00301, .00060, .00002, .00000, .00000, + .00000, .00000, .00000, + .00280, .00056, .00002, .00000, .00000, + .00000, .00000, .00000, + .00262, .00052, .00002, .00000, .00000, + .00000, .00000, .00000, + .00245, .00049, .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)/ + .00230, .00046, .00002, .00000, .00000, + .00000, .00000, .00000, + .00215, .00043, .00002, .00000, .00000, + .00000, .00000, .00000, + .00203, .00040, .00001, .00000, .00000, + .00000, .00000, .00000, + .00191, .00038, .00001, .00000, .00000, + .00000, .00000, .00000, + .00181, .00036, .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)/ + .00428, .00074, .00000, .00000, .00000, + .00000, .00000, .00000, + .00386, .00067, .00000, .00000, .00000, + .00000, .00000, .00000, + .00331, .00057, .00000, .00000, .00000, + .00000, .00000, .00000, + .00296, .00051, .00000, .00000, .00000, + .00000, .00000, .00000, + .00263, .00045, .00000, .00000, .00000, + .00000, .00000, .00000, + .00237, .00041, .00000, .00000, .00000, + .00000, .00000, .00000, + .00215, .00037, .00000, .00000, .00000, + .00000, .00000, .00000, + .00194, .00033, .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=9,16)/ + .00177, .00030, .00000, .00000, .00000, + .00000, .00000, .00000, + .00163, .00028, .00000, .00000, .00000, + .00000, .00000, .00000, + .00152, .00026, .00000, .00000, .00000, + .00000, .00000, .00000, + .00131, .00022, .00000, .00000, .00000, + .00000, .00000, .00000, + .00116, .00020, .00000, .00000, .00000, + .00000, .00000, .00000, + .00101, .00017, .00000, .00000, .00000, + .00000, .00000, .00000, + .00088, .00015, .00000, .00000, .00000, + .00000, .00000, .00000, + .00077, .00013, .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)/ + .00068, .00011, .00000, .00000, .00000, + .00000, .00000, .00000, + .00061, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00054, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00048, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00043, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00038, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00034, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00030, .00005, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00027, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00024, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00022, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00020, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00013, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .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='lo10a.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