* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:31:03 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:50 plothow * Version 7.01 * * #include "pdf/pilot.h" C----------------------------------------------------------------------- SUBROUTINE STRH1B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) C :::::::::::: HMRS(B) ::::::::::::::::: 190 MEV:::::::::::: #include "pdf/impdp.inc" DIMENSION F(6,42,19),G(6),XX(42),N0(6) DATA ((F(I,1,K),I=1,6),K=1,19)/ + 0.04574, 0.01401, 3.78332, 0.03705, 0.01529, 0.00000, + 0.04583, 0.01480, 7.44979, 0.11624, 0.09317, 0.00000, + 0.04597, 0.01553, 11.82667, 0.22302, 0.19877, 0.00000, + 0.04613, 0.01621, 16.83759, 0.35351, 0.32816, 0.00000, + 0.04632, 0.01684, 22.23625, 0.49656, 0.47247, 0.00678, + 0.04652, 0.01743, 28.00661, 0.63049, 0.63148, 0.08486, + 0.04673, 0.01800, 34.08723, 0.75239, 0.80352, 0.23791, + 0.04696, 0.01855, 40.42050, 0.88657, 0.98694, 0.38816, + 0.04719, 0.01907, 46.95706, 1.02743, 1.18029, 0.54801, + 0.04743, 0.01957, 53.56265, 1.17269, 1.37934, 0.71167, + 0.04767, 0.02005, 60.28923, 1.32344, 1.58580, 0.88098, + 0.04792, 0.02052, 67.12621, 1.47943, 1.79932, 1.05568, + 0.04817, 0.02097, 74.03026, 1.63958, 2.01846, 1.23462, + 0.04842, 0.02140, 80.86339, 1.80069, 2.23883, 1.41431, + 0.04867, 0.02183, 87.78844, 1.96642, 2.46544, 1.59882, + 0.04893, 0.02224, 94.65599, 2.13324, 2.69348, 1.78428, + 0.04918, 0.02264,101.50505, 2.30199, 2.92411, 1.97165, + 0.04943, 0.02303,108.35330, 2.47295, 3.15771, 2.16125, + 0.04968, 0.02341,115.10117, 2.64375, 3.39106, 2.35052/ DATA ((F(I,2,K),I=1,6),K=1,19)/ + 0.05265, 0.01883, 3.67866, 0.04527, 0.01634, 0.00000, + 0.05306, 0.01986, 6.79273, 0.12172, 0.09128, 0.00000, + 0.05348, 0.02080, 10.33414, 0.21683, 0.18503, 0.00000, + 0.05389, 0.02167, 14.24124, 0.32750, 0.29446, 0.00000, + 0.05431, 0.02248, 18.32507, 0.44485, 0.41249, 0.00548, + 0.05473, 0.02324, 22.58011, 0.55196, 0.53918, 0.06741, + 0.05514, 0.02396, 26.96515, 0.64713, 0.67330, 0.18724, + 0.05556, 0.02465, 31.44249, 0.75000, 0.81364, 0.30249, + 0.05596, 0.02531, 35.98160, 0.85618, 0.95918, 0.42322, + 0.05638, 0.02594, 40.49191, 0.96407, 1.10683, 0.54504, + 0.05678, 0.02655, 45.01662, 1.07455, 1.25797, 0.66943, + 0.05718, 0.02713, 49.55295, 1.18747, 1.41239, 0.79623, + 0.05758, 0.02769, 54.07498, 1.30212, 1.56912, 0.92467, + 0.05797, 0.02823, 58.49271, 1.41623, 1.72507, 1.05230, + 0.05836, 0.02876, 62.92191, 1.53249, 1.88392, 1.18211, + 0.05874, 0.02927, 67.26494, 1.64844, 2.04232, 1.31140, + 0.05912, 0.02976, 71.55196, 1.76473, 2.20114, 1.44089, + 0.05950, 0.03024, 75.79805, 1.88160, 2.36074, 1.57090, + 0.05987, 0.03071, 79.94044, 1.99744, 2.51891, 1.69964/ DATA ((F(I,3,K),I=1,6),K=1,19)/ + 0.06032, 0.02531, 3.57497, 0.05532, 0.01703, 0.00000, + 0.06115, 0.02665, 6.18963, 0.12773, 0.08771, 0.00000, + 0.06195, 0.02786, 9.02308, 0.21119, 0.16962, 0.00000, + 0.06272, 0.02898, 12.03482, 0.30385, 0.26088, 0.00000, + 0.06346, 0.03001, 15.08739, 0.39900, 0.35621, 0.00439, + 0.06417, 0.03098, 18.18623, 0.48373, 0.45595, 0.05297, + 0.06487, 0.03189, 21.30760, 0.55723, 0.55930, 0.14581, + 0.06554, 0.03276, 24.43015, 0.63527, 0.66547, 0.23330, + 0.06620, 0.03359, 27.53772, 0.71448, 0.77379, 0.32356, + 0.06685, 0.03438, 30.57178, 0.79378, 0.88208, 0.41331, + 0.06748, 0.03513, 33.56853, 0.87389, 0.99147, 0.50376, + 0.06809, 0.03586, 36.53035, 0.95476, 1.10188, 0.59485, + 0.06869, 0.03655, 39.44325, 1.03595, 1.21269, 0.68609, + 0.06928, 0.03722, 42.24977, 1.11587, 1.32177, 0.77580, + 0.06985, 0.03787, 45.03233, 1.19652, 1.43182, 0.86616, + 0.07042, 0.03850, 47.72797, 1.27620, 1.54052, 0.95532, + 0.07097, 0.03910, 50.35994, 1.35540, 1.64857, 1.04385, + 0.07151, 0.03969, 52.94081, 1.43435, 1.75628, 1.13201, + 0.07204, 0.04026, 55.43167, 1.51197, 1.86215, 1.21861/ DATA ((F(I,4,K),I=1,6),K=1,19)/ + 0.06517, 0.03010, 3.51411, 0.06221, 0.01718, 0.00000, + 0.06632, 0.03165, 5.85884, 0.13155, 0.08467, 0.00000, + 0.06741, 0.03305, 8.32942, 0.20821, 0.15968, 0.00000, + 0.06843, 0.03434, 10.89840, 0.29112, 0.24109, 0.00000, + 0.06941, 0.03553, 13.45492, 0.37474, 0.32463, 0.00383, + 0.07035, 0.03665, 16.01010, 0.44815, 0.41077, 0.04572, + 0.07125, 0.03769, 18.54872, 0.51097, 0.49893, 0.12522, + 0.07213, 0.03868, 21.05713, 0.57697, 0.58853, 0.19927, + 0.07297, 0.03963, 23.52573, 0.64329, 0.67907, 0.27496, + 0.07379, 0.04052, 25.91005, 0.70912, 0.76882, 0.34960, + 0.07459, 0.04138, 28.24280, 0.77509, 0.85877, 0.42423, + 0.07536, 0.04220, 30.52843, 0.84121, 0.94892, 0.49887, + 0.07611, 0.04299, 32.75760, 0.90713, 1.03878, 0.57313, + 0.07685, 0.04374, 34.88687, 0.97161, 1.12667, 0.64568, + 0.07756, 0.04447, 36.98360, 1.03631, 1.21485, 0.71835, + 0.07826, 0.04518, 38.99945, 1.09985, 1.30146, 0.78965, + 0.07894, 0.04586, 40.95441, 1.16269, 1.38710, 0.86008, + 0.07960, 0.04651, 42.85948, 1.22502, 1.47205, 0.92987, + 0.08025, 0.04715, 44.68547, 1.28599, 1.55515, 0.99810/ DATA ((F(I,5,K),I=1,6),K=1,19)/ + 0.06880, 0.03403, 3.47049, 0.06760, 0.01715, 0.00000, + 0.07021, 0.03576, 5.63280, 0.13443, 0.08204, 0.00000, + 0.07153, 0.03732, 7.86636, 0.20627, 0.15216, 0.00000, + 0.07278, 0.03874, 10.15266, 0.28260, 0.22693, 0.00000, + 0.07395, 0.04006, 12.39806, 0.35863, 0.30271, 0.00346, + 0.07507, 0.04128, 14.61715, 0.42472, 0.38006, 0.04106, + 0.07615, 0.04243, 16.79994, 0.48073, 0.45854, 0.11206, + 0.07718, 0.04352, 18.93750, 0.53914, 0.53770, 0.17764, + 0.07818, 0.04455, 21.02394, 0.59742, 0.61715, 0.24425, + 0.07915, 0.04553, 23.02324, 0.65492, 0.69544, 0.30954, + 0.08008, 0.04647, 24.96574, 0.71221, 0.77346, 0.37446, + 0.08098, 0.04736, 26.85672, 0.76933, 0.85124, 0.43905, + 0.08186, 0.04822, 28.68982, 0.82600, 0.92842, 0.50302, + 0.08271, 0.04904, 30.42937, 0.88117, 1.00355, 0.56523, + 0.08354, 0.04983, 32.13374, 0.93629, 1.07862, 0.62728, + 0.08435, 0.05059, 33.76312, 0.99022, 1.15205, 0.68793, + 0.08513, 0.05133, 35.33519, 1.04333, 1.22438, 0.74760, + 0.08590, 0.05204, 36.86005, 1.09584, 1.29589, 0.80653, + 0.08665, 0.05273, 38.31403, 1.14702, 1.36558, 0.86394/ DATA ((F(I,6,K),I=1,6),K=1,19)/ + 0.07174, 0.03744, 3.43619, 0.07210, 0.01703, 0.00000, + 0.07337, 0.03931, 5.46192, 0.13677, 0.07969, 0.00000, + 0.07490, 0.04099, 7.52240, 0.20489, 0.14604, 0.00000, + 0.07633, 0.04253, 9.60580, 0.27629, 0.21585, 0.00000, + 0.07768, 0.04395, 11.63082, 0.34675, 0.28595, 0.00320, + 0.07896, 0.04527, 13.61438, 0.40755, 0.35694, 0.03770, + 0.08018, 0.04651, 15.55015, 0.45867, 0.42849, 0.10261, + 0.08135, 0.04768, 17.43233, 0.51169, 0.50024, 0.16218, + 0.08248, 0.04878, 19.25757, 0.56430, 0.57187, 0.22239, + 0.08357, 0.04983, 20.99544, 0.61595, 0.64212, 0.28112, + 0.08463, 0.05083, 22.67453, 0.66719, 0.71182, 0.33928, + 0.08564, 0.05179, 24.30077, 0.71807, 0.78104, 0.39691, + 0.08663, 0.05270, 25.86943, 0.76835, 0.84946, 0.45377, + 0.08759, 0.05358, 27.35023, 0.81712, 0.91582, 0.50887, + 0.08851, 0.05442, 28.79524, 0.86569, 0.98191, 0.56365, + 0.08942, 0.05523, 30.17026, 0.91305, 1.04636, 0.61702, + 0.09029, 0.05601, 31.49141, 0.95956, 1.10965, 0.66939, + 0.09115, 0.05676, 32.76807, 1.00540, 1.17205, 0.72095, + 0.09198, 0.05749, 33.98010, 1.04996, 1.23269, 0.77104/ DATA ((F(I,7,K),I=1,6),K=1,19)/ + 0.08175, 0.05035, 3.32503, 0.08794, 0.01603, 0.00000, + 0.08424, 0.05275, 4.95133, 0.14474, 0.07066, 0.00000, + 0.08654, 0.05489, 6.52810, 0.20135, 0.12539, 0.00000, + 0.08868, 0.05684, 8.06148, 0.25845, 0.18082, 0.00000, + 0.09067, 0.05861, 9.50291, 0.31328, 0.23499, 0.00247, + 0.09256, 0.06026, 10.87475, 0.35948, 0.28855, 0.02855, + 0.09435, 0.06179, 12.17946, 0.39743, 0.34145, 0.07707, + 0.09605, 0.06324, 13.41866, 0.43609, 0.39353, 0.12071, + 0.09768, 0.06459, 14.59475, 0.47380, 0.44468, 0.16413, + 0.09925, 0.06588, 15.69085, 0.51026, 0.49410, 0.20587, + 0.10075, 0.06709, 16.73024, 0.54591, 0.54245, 0.24664, + 0.10219, 0.06825, 17.71971, 0.58086, 0.58985, 0.28653, + 0.10359, 0.06936, 18.65834, 0.61497, 0.63615, 0.32543, + 0.10493, 0.07041, 19.52817, 0.64766, 0.68053, 0.36269, + 0.10623, 0.07142, 20.36560, 0.67988, 0.72429, 0.39936, + 0.10748, 0.07238, 21.14958, 0.71096, 0.76650, 0.43472, + 0.10870, 0.07331, 21.89204, 0.74118, 0.80757, 0.46909, + 0.10988, 0.07420, 22.60011, 0.77071, 0.84769, 0.50264, + 0.11103, 0.07506, 23.26193, 0.79912, 0.88632, 0.53492/ DATA ((F(I,8,K),I=1,6),K=1,19)/ + 0.09411, 0.06777, 3.20020, 0.10684, 0.01397, 0.00000, + 0.09778, 0.07078, 4.45951, 0.15403, 0.05899, 0.00000, + 0.10113, 0.07346, 5.62203, 0.19933, 0.10245, 0.00000, + 0.10423, 0.07588, 6.70688, 0.24352, 0.14505, 0.00000, + 0.10711, 0.07806, 7.69021, 0.28490, 0.18566, 0.00185, + 0.10980, 0.08007, 8.59676, 0.31896, 0.22491, 0.02109, + 0.11235, 0.08193, 9.43437, 0.34623, 0.26287, 0.05648, + 0.11476, 0.08367, 10.20893, 0.37352, 0.29956, 0.08766, + 0.11706, 0.08530, 10.92601, 0.39967, 0.33498, 0.11819, + 0.11925, 0.08683, 11.57743, 0.42453, 0.36867, 0.14709, + 0.12134, 0.08827, 12.18159, 0.44847, 0.40114, 0.17491, + 0.12335, 0.08963, 12.74499, 0.47161, 0.43255, 0.20178, + 0.12527, 0.09092, 13.26873, 0.49391, 0.46284, 0.22764, + 0.12711, 0.09215, 13.74260, 0.51498, 0.49149, 0.25212, + 0.12889, 0.09332, 14.19141, 0.53552, 0.51943, 0.27594, + 0.13060, 0.09443, 14.60262, 0.55510, 0.54609, 0.29866, + 0.13225, 0.09550, 14.98475, 0.57392, 0.57174, 0.32052, + 0.13385, 0.09652, 15.34300, 0.59213, 0.59656, 0.34164, + 0.13539, 0.09749, 15.67058, 0.60946, 0.62020, 0.36178/ DATA ((F(I,9,K),I=1,6),K=1,19)/ + 0.10357, 0.08067, 3.11537, 0.11927, 0.01233, 0.00000, + 0.10815, 0.08408, 4.17223, 0.16022, 0.05126, 0.00000, + 0.11231, 0.08709, 5.11878, 0.19904, 0.08842, 0.00000, + 0.11613, 0.08978, 5.97918, 0.23627, 0.12424, 0.00000, + 0.11967, 0.09221, 6.74062, 0.27064, 0.15792, 0.00155, + 0.12297, 0.09442, 7.42789, 0.29851, 0.19003, 0.01740, + 0.12607, 0.09647, 8.05054, 0.32044, 0.22070, 0.04635, + 0.12900, 0.09837, 8.61579, 0.34215, 0.25001, 0.07156, + 0.13178, 0.10014, 9.13005, 0.36272, 0.27800, 0.09598, + 0.13442, 0.10179, 9.58852, 0.38207, 0.30435, 0.11888, + 0.13693, 0.10334, 10.00690, 0.40052, 0.32952, 0.14073, + 0.13933, 0.10480, 10.39119, 0.41819, 0.35365, 0.16165, + 0.14162, 0.10619, 10.74296, 0.43506, 0.37673, 0.18163, + 0.14381, 0.10749, 11.05516, 0.45086, 0.39838, 0.20039, + 0.14592, 0.10873, 11.34723, 0.46615, 0.41934, 0.21852, + 0.14794, 0.10991, 11.61008, 0.48060, 0.43918, 0.23569, + 0.14989, 0.11103, 11.85054, 0.49440, 0.45815, 0.25209, + 0.15176, 0.11210, 12.07276, 0.50765, 0.47638, 0.26785, + 0.15357, 0.11311, 12.27197, 0.52016, 0.49362, 0.28277/ DATA ((F(I,10,K),I=1,6),K=1,19)/ + 0.11261, 0.09135, 3.04669, 0.12871, 0.01124, 0.00000, + 0.11802, 0.09503, 3.96303, 0.16545, 0.04625, 0.00000, + 0.12291, 0.09825, 4.76451, 0.19989, 0.07929, 0.00000, + 0.12739, 0.10112, 5.47809, 0.23245, 0.11070, 0.00000, + 0.13150, 0.10370, 6.09756, 0.26217, 0.13991, 0.00135, + 0.13532, 0.10604, 6.64704, 0.28595, 0.16744, 0.01503, + 0.13889, 0.10818, 7.13679, 0.30439, 0.19349, 0.03988, + 0.14226, 0.11017, 7.57452, 0.32249, 0.21815, 0.06131, + 0.14544, 0.11202, 7.96680, 0.33947, 0.24150, 0.08191, + 0.14844, 0.11373, 8.31082, 0.35531, 0.26331, 0.10108, + 0.15129, 0.11533, 8.62016, 0.37030, 0.28398, 0.11924, + 0.15400, 0.11684, 8.90041, 0.38454, 0.30367, 0.13651, + 0.15659, 0.11825, 9.15334, 0.39804, 0.32237, 0.15291, + 0.15905, 0.11958, 9.37363, 0.41059, 0.33980, 0.16821, + 0.16141, 0.12084, 9.57736, 0.42265, 0.35658, 0.18292, + 0.16367, 0.12203, 9.75742, 0.43398, 0.37236, 0.19676, + 0.16583, 0.12316, 9.91951, 0.44472, 0.38736, 0.20992, + 0.16792, 0.12424, 10.06711, 0.45498, 0.40171, 0.22251, + 0.16992, 0.12526, 10.19651, 0.46460, 0.41520, 0.23436/ DATA ((F(I,11,K),I=1,6),K=1,19)/ + 0.12165, 0.10064, 2.98697, 0.13629, 0.01055, 0.00000, + 0.12786, 0.10451, 3.79585, 0.17003, 0.04290, 0.00000, + 0.13343, 0.10788, 4.48910, 0.20117, 0.07296, 0.00000, + 0.13850, 0.11087, 5.09542, 0.23023, 0.10117, 0.00000, + 0.14314, 0.11353, 5.61288, 0.25645, 0.12712, 0.00120, + 0.14742, 0.11594, 6.06484, 0.27718, 0.15136, 0.01331, + 0.15141, 0.11814, 6.46177, 0.29304, 0.17408, 0.03520, + 0.15516, 0.12016, 6.81148, 0.30848, 0.19543, 0.05392, + 0.15868, 0.12204, 7.12050, 0.32286, 0.21549, 0.07180, + 0.16199, 0.12377, 7.38714, 0.33615, 0.23411, 0.08833, + 0.16512, 0.12538, 7.62354, 0.34865, 0.25164, 0.10390, + 0.16810, 0.12689, 7.83479, 0.36044, 0.26824, 0.11863, + 0.17092, 0.12831, 8.02271, 0.37155, 0.28391, 0.13253, + 0.17360, 0.12963, 8.18309, 0.38180, 0.29843, 0.14544, + 0.17617, 0.13088, 8.32963, 0.39160, 0.31234, 0.15779, + 0.17861, 0.13206, 8.45653, 0.40074, 0.32536, 0.16936, + 0.18095, 0.13317, 8.56867, 0.40936, 0.33767, 0.18031, + 0.18319, 0.13423, 8.66905, 0.41755, 0.34940, 0.19075, + 0.18533, 0.13522, 8.75464, 0.42518, 0.36037, 0.20052/ DATA ((F(I,12,K),I=1,6),K=1,19)/ + 0.16333, 0.13604, 2.75312, 0.15771, 0.00806, 0.00000, + 0.17239, 0.14024, 3.24960, 0.18109, 0.03178, 0.00000, + 0.18033, 0.14381, 3.64411, 0.20172, 0.05290, 0.00000, + 0.18742, 0.14689, 3.96605, 0.22018, 0.07194, 0.00000, + 0.19376, 0.14957, 4.22189, 0.23621, 0.08888, 0.00080, + 0.19951, 0.15195, 4.43079, 0.24824, 0.10421, 0.00865, + 0.20479, 0.15407, 4.60210, 0.25683, 0.11818, 0.02264, + 0.20967, 0.15598, 4.74273, 0.26498, 0.13094, 0.03429, + 0.21419, 0.15772, 4.85826, 0.27233, 0.14265, 0.04515, + 0.21836, 0.15928, 4.94870, 0.27889, 0.15325, 0.05500, + 0.22226, 0.16070, 5.02213, 0.28487, 0.16301, 0.06408, + 0.22591, 0.16201, 5.08195, 0.29036, 0.17205, 0.07251, + 0.22935, 0.16322, 5.12957, 0.29539, 0.18042, 0.08033, + 0.23254, 0.16431, 5.16313, 0.29985, 0.18800, 0.08745, + 0.23558, 0.16534, 5.19037, 0.30403, 0.19513, 0.09416, + 0.23844, 0.16627, 5.20833, 0.30779, 0.20168, 0.10034, + 0.24113, 0.16714, 5.21970, 0.31123, 0.20775, 0.10610, + 0.24369, 0.16795, 5.22619, 0.31442, 0.21343, 0.11150, + 0.24611, 0.16869, 5.22626, 0.31727, 0.21865, 0.11648/ DATA ((F(I,13,K),I=1,6),K=1,19)/ + 0.24459, 0.18331, 2.40477, 0.16610, 0.00563, 0.00000, + 0.25604, 0.18678, 2.62843, 0.17873, 0.02150, 0.00000, + 0.26571, 0.18953, 2.78248, 0.18911, 0.03487, 0.00000, + 0.27406, 0.19178, 2.89083, 0.19782, 0.04635, 0.00000, + 0.28126, 0.19359, 2.96146, 0.20486, 0.05614, 0.00048, + 0.28761, 0.19508, 3.00721, 0.20942, 0.06464, 0.00503, + 0.29326, 0.19632, 3.03438, 0.21193, 0.07211, 0.01299, + 0.29832, 0.19736, 3.04747, 0.21420, 0.07870, 0.01941, + 0.30289, 0.19823, 3.04985, 0.21604, 0.08454, 0.02523, + 0.30697, 0.19893, 3.04202, 0.21746, 0.08965, 0.03037, + 0.31067, 0.19951, 3.02819, 0.21860, 0.09421, 0.03499, + 0.31406, 0.19999, 3.01011, 0.21952, 0.09831, 0.03918, + 0.31717, 0.20039, 2.98846, 0.22022, 0.10200, 0.04298, + 0.31996, 0.20067, 2.96234, 0.22067, 0.10522, 0.04635, + 0.32256, 0.20091, 2.93540, 0.22102, 0.10818, 0.04947, + 0.32491, 0.20108, 2.90614, 0.22119, 0.11080, 0.05227, + 0.32709, 0.20119, 2.87577, 0.22124, 0.11316, 0.05482, + 0.32911, 0.20126, 2.84499, 0.22120, 0.11531, 0.05718, + 0.33094, 0.20128, 2.81304, 0.22104, 0.11721, 0.05930/ DATA ((F(I,14,K),I=1,6),K=1,19)/ + 0.31979, 0.21594, 2.12178, 0.15723, 0.00424, 0.00000, + 0.33083, 0.21786, 2.21401, 0.16380, 0.01586, 0.00000, + 0.33979, 0.21913, 2.26097, 0.16873, 0.02530, 0.00000, + 0.34723, 0.21997, 2.28060, 0.17252, 0.03314, 0.00000, + 0.35338, 0.22047, 2.27918, 0.17520, 0.03961, 0.00032, + 0.35859, 0.22070, 2.26523, 0.17628, 0.04507, 0.00336, + 0.36305, 0.22074, 2.24277, 0.17607, 0.04973, 0.00862, + 0.36687, 0.22064, 2.21449, 0.17580, 0.05374, 0.01276, + 0.37018, 0.22041, 2.18245, 0.17532, 0.05720, 0.01645, + 0.37299, 0.22006, 2.14672, 0.17465, 0.06015, 0.01965, + 0.37542, 0.21963, 2.10978, 0.17387, 0.06270, 0.02246, + 0.37754, 0.21915, 2.07249, 0.17303, 0.06493, 0.02497, + 0.37938, 0.21862, 2.03507, 0.17211, 0.06690, 0.02721, + 0.38092, 0.21802, 1.99681, 0.17110, 0.06855, 0.02916, + 0.38228, 0.21741, 1.95975, 0.17008, 0.07004, 0.03094, + 0.38342, 0.21676, 1.92289, 0.16901, 0.07131, 0.03250, + 0.38440, 0.21608, 1.88679, 0.16791, 0.07242, 0.03391, + 0.38524, 0.21539, 1.85174, 0.16680, 0.07340, 0.03519, + 0.38591, 0.21468, 1.81722, 0.16567, 0.07423, 0.03631/ DATA ((F(I,15,K),I=1,6),K=1,19)/ + 0.38671, 0.23943, 1.87713, 0.14198, 0.00330, 0.00000, + 0.39556, 0.23941, 1.89377, 0.14480, 0.01215, 0.00000, + 0.40229, 0.23894, 1.88287, 0.14651, 0.01913, 0.00000, + 0.40755, 0.23819, 1.85738, 0.14749, 0.02478, 0.00000, + 0.41158, 0.23720, 1.82160, 0.14777, 0.02932, 0.00023, + 0.41473, 0.23606, 1.78098, 0.14702, 0.03305, 0.00239, + 0.41716, 0.23484, 1.73778, 0.14546, 0.03616, 0.00609, + 0.41906, 0.23353, 1.69352, 0.14395, 0.03877, 0.00895, + 0.42048, 0.23219, 1.64928, 0.14238, 0.04097, 0.01146, + 0.42146, 0.23078, 1.60484, 0.14076, 0.04279, 0.01359, + 0.42212, 0.22936, 1.56160, 0.13915, 0.04433, 0.01545, + 0.42254, 0.22795, 1.51993, 0.13755, 0.04564, 0.01708, + 0.42274, 0.22654, 1.47977, 0.13597, 0.04676, 0.01852, + 0.42269, 0.22509, 1.44050, 0.13437, 0.04767, 0.01975, + 0.42253, 0.22368, 1.40326, 0.13282, 0.04847, 0.02085, + 0.42220, 0.22226, 1.36729, 0.13129, 0.04912, 0.02181, + 0.42174, 0.22086, 1.33284, 0.12978, 0.04966, 0.02266, + 0.42121, 0.21948, 1.29998, 0.12831, 0.05012, 0.02341, + 0.42054, 0.21811, 1.26830, 0.12686, 0.05048, 0.02407/ DATA ((F(I,16,K),I=1,6),K=1,19)/ + 0.44430, 0.25593, 1.66119, 0.12464, 0.00261, 0.00000, + 0.44982, 0.25383, 1.63158, 0.12511, 0.00950, 0.00000, + 0.45343, 0.25152, 1.58750, 0.12489, 0.01480, 0.00000, + 0.45577, 0.24912, 1.53785, 0.12425, 0.01899, 0.00000, + 0.45706, 0.24665, 1.48505, 0.12321, 0.02227, 0.00017, + 0.45764, 0.24416, 1.43238, 0.12151, 0.02491, 0.00176, + 0.45766, 0.24170, 1.38085, 0.11931, 0.02706, 0.00445, + 0.45726, 0.23925, 1.33111, 0.11723, 0.02883, 0.00651, + 0.45652, 0.23685, 1.28356, 0.11519, 0.03029, 0.00828, + 0.45545, 0.23446, 1.23778, 0.11320, 0.03145, 0.00977, + 0.45416, 0.23213, 1.19448, 0.11126, 0.03241, 0.01105, + 0.45273, 0.22986, 1.15370, 0.10939, 0.03321, 0.01216, + 0.45118, 0.22765, 1.11521, 0.10759, 0.03387, 0.01312, + 0.44944, 0.22546, 1.07845, 0.10582, 0.03438, 0.01394, + 0.44769, 0.22335, 1.04405, 0.10413, 0.03481, 0.01466, + 0.44583, 0.22126, 1.01138, 0.10248, 0.03513, 0.01528, + 0.44392, 0.21924, 0.98051, 0.10089, 0.03539, 0.01581, + 0.44199, 0.21727, 0.95138, 0.09936, 0.03559, 0.01628, + 0.43998, 0.21533, 0.92368, 0.09787, 0.03572, 0.01668/ DATA ((F(I,17,K),I=1,6),K=1,19)/ + 0.50285, 0.26861, 1.42406, 0.10292, 0.00199, 0.00001, + 0.50324, 0.26391, 1.36066, 0.10174, 0.00712, 0.00001, + 0.50222, 0.25934, 1.29441, 0.10023, 0.01096, 0.00000, + 0.50039, 0.25496, 1.23023, 0.09856, 0.01391, 0.00001, + 0.49787, 0.25074, 1.16867, 0.09674, 0.01616, 0.00013, + 0.49496, 0.24669, 1.11108, 0.09455, 0.01793, 0.00124, + 0.49175, 0.24281, 1.05741, 0.09212, 0.01933, 0.00311, + 0.48834, 0.23909, 1.00753, 0.08986, 0.02045, 0.00452, + 0.48481, 0.23553, 0.96131, 0.08771, 0.02134, 0.00571, + 0.48113, 0.23206, 0.91813, 0.08564, 0.02202, 0.00670, + 0.47741, 0.22874, 0.87816, 0.08368, 0.02257, 0.00753, + 0.47370, 0.22556, 0.84121, 0.08182, 0.02300, 0.00825, + 0.47000, 0.22250, 0.80693, 0.08004, 0.02334, 0.00886, + 0.46624, 0.21953, 0.77481, 0.07834, 0.02358, 0.00936, + 0.46258, 0.21669, 0.74511, 0.07672, 0.02377, 0.00980, + 0.45891, 0.21394, 0.71730, 0.07517, 0.02389, 0.01017, + 0.45529, 0.21128, 0.69133, 0.07369, 0.02397, 0.01049, + 0.45172, 0.20873, 0.66707, 0.07228, 0.02401, 0.01076, + 0.44818, 0.20625, 0.64427, 0.07091, 0.02402, 0.01098/ DATA ((F(I,18,K),I=1,6),K=1,19)/ + 0.54644, 0.27388, 1.21772, 0.08307, 0.00152, 0.00001, + 0.54122, 0.26674, 1.13669, 0.08111, 0.00539, 0.00001, + 0.53532, 0.26010, 1.06075, 0.07905, 0.00820, 0.00001, + 0.52915, 0.25395, 0.99175, 0.07700, 0.01032, 0.00001, + 0.52275, 0.24820, 0.92887, 0.07494, 0.01189, 0.00009, + 0.51636, 0.24281, 0.87215, 0.07271, 0.01309, 0.00089, + 0.51000, 0.23774, 0.82076, 0.07037, 0.01402, 0.00221, + 0.50371, 0.23294, 0.77418, 0.06822, 0.01474, 0.00320, + 0.49753, 0.22842, 0.73189, 0.06621, 0.01529, 0.00401, + 0.49139, 0.22410, 0.69313, 0.06430, 0.01570, 0.00468, + 0.48542, 0.21999, 0.65783, 0.06251, 0.01601, 0.00524, + 0.47962, 0.21609, 0.62563, 0.06083, 0.01624, 0.00571, + 0.47399, 0.21240, 0.59613, 0.05925, 0.01641, 0.00611, + 0.46843, 0.20883, 0.56887, 0.05774, 0.01651, 0.00643, + 0.46308, 0.20544, 0.54387, 0.05632, 0.01657, 0.00671, + 0.45784, 0.20219, 0.52072, 0.05497, 0.01659, 0.00693, + 0.45273, 0.19907, 0.49929, 0.05369, 0.01659, 0.00712, + 0.44777, 0.19610, 0.47944, 0.05247, 0.01657, 0.00729, + 0.44293, 0.19323, 0.46094, 0.05131, 0.01652, 0.00742/ DATA ((F(I,19,K),I=1,6),K=1,19)/ + 0.57591, 0.27299, 1.03779, 0.06582, 0.00117, 0.00000, + 0.56507, 0.26368, 0.94919, 0.06361, 0.00409, 0.00000, + 0.55434, 0.25527, 0.87084, 0.06144, 0.00617, 0.00000, + 0.54400, 0.24762, 0.80245, 0.05936, 0.00770, 0.00000, + 0.53397, 0.24060, 0.74213, 0.05735, 0.00881, 0.00006, + 0.52433, 0.23411, 0.68903, 0.05529, 0.00964, 0.00064, + 0.51505, 0.22809, 0.64200, 0.05320, 0.01026, 0.00159, + 0.50616, 0.22248, 0.60007, 0.05129, 0.01073, 0.00229, + 0.49763, 0.21720, 0.56261, 0.04953, 0.01108, 0.00286, + 0.48936, 0.21223, 0.52880, 0.04787, 0.01131, 0.00332, + 0.48142, 0.20755, 0.49838, 0.04633, 0.01149, 0.00370, + 0.47382, 0.20314, 0.47094, 0.04490, 0.01160, 0.00402, + 0.46656, 0.19897, 0.44606, 0.04355, 0.01167, 0.00428, + 0.45947, 0.19500, 0.42330, 0.04229, 0.01170, 0.00449, + 0.45271, 0.19125, 0.40259, 0.04110, 0.01171, 0.00466, + 0.44618, 0.18767, 0.38359, 0.03997, 0.01168, 0.00481, + 0.43989, 0.18425, 0.36613, 0.03891, 0.01164, 0.00492, + 0.43384, 0.18100, 0.35005, 0.03791, 0.01159, 0.00502, + 0.42795, 0.17788, 0.33518, 0.03696, 0.01152, 0.00509/ DATA ((F(I,20,K),I=1,6),K=1,19)/ + 0.59252, 0.26706, 0.88101, 0.05127, 0.00090, 0.00000, + 0.57632, 0.25594, 0.79114, 0.04912, 0.00312, 0.00000, + 0.56111, 0.24607, 0.71477, 0.04706, 0.00466, 0.00000, + 0.54695, 0.23723, 0.64999, 0.04516, 0.00577, 0.00000, + 0.53364, 0.22923, 0.59426, 0.04335, 0.00656, 0.00005, + 0.52114, 0.22192, 0.54614, 0.04155, 0.00713, 0.00047, + 0.50934, 0.21520, 0.50422, 0.03978, 0.00755, 0.00115, + 0.49821, 0.20899, 0.46739, 0.03817, 0.00785, 0.00165, + 0.48768, 0.20320, 0.43490, 0.03668, 0.00807, 0.00205, + 0.47762, 0.19779, 0.40595, 0.03531, 0.00820, 0.00237, + 0.46807, 0.19273, 0.38017, 0.03403, 0.00829, 0.00264, + 0.45902, 0.18799, 0.35712, 0.03286, 0.00835, 0.00285, + 0.45044, 0.18354, 0.33639, 0.03176, 0.00836, 0.00302, + 0.44215, 0.17932, 0.31761, 0.03073, 0.00835, 0.00316, + 0.43430, 0.17535, 0.30064, 0.02977, 0.00833, 0.00327, + 0.42678, 0.17158, 0.28518, 0.02886, 0.00829, 0.00336, + 0.41958, 0.16800, 0.27106, 0.02801, 0.00824, 0.00343, + 0.41268, 0.16461, 0.25814, 0.02721, 0.00818, 0.00349, + 0.40603, 0.16137, 0.24626, 0.02646, 0.00811, 0.00354/ DATA ((F(I,21,K),I=1,6),K=1,19)/ + 0.59760, 0.25710, 0.74463, 0.03934, 0.00069, 0.00000, + 0.57654, 0.24456, 0.65754, 0.03740, 0.00237, 0.00000, + 0.55733, 0.23359, 0.58570, 0.03559, 0.00352, 0.00000, + 0.53985, 0.22388, 0.52613, 0.03394, 0.00433, 0.00000, + 0.52373, 0.21517, 0.47593, 0.03240, 0.00489, 0.00004, + 0.50882, 0.20730, 0.43327, 0.03090, 0.00528, 0.00034, + 0.49495, 0.20013, 0.39664, 0.02944, 0.00556, 0.00084, + 0.48200, 0.19353, 0.36483, 0.02812, 0.00576, 0.00119, + 0.46986, 0.18744, 0.33707, 0.02692, 0.00589, 0.00148, + 0.45840, 0.18177, 0.31263, 0.02581, 0.00597, 0.00171, + 0.44763, 0.17651, 0.29105, 0.02479, 0.00601, 0.00189, + 0.43748, 0.17161, 0.27191, 0.02385, 0.00602, 0.00203, + 0.42787, 0.16702, 0.25483, 0.02298, 0.00602, 0.00215, + 0.41872, 0.16270, 0.23948, 0.02216, 0.00599, 0.00223, + 0.41009, 0.15866, 0.22569, 0.02141, 0.00595, 0.00231, + 0.40183, 0.15483, 0.21319, 0.02070, 0.00591, 0.00237, + 0.39399, 0.15121, 0.20186, 0.02004, 0.00585, 0.00241, + 0.38653, 0.14779, 0.19155, 0.01942, 0.00579, 0.00245, + 0.37937, 0.14453, 0.18212, 0.01883, 0.00573, 0.00247/ DATA ((F(I,22,K),I=1,6),K=1,19)/ + 0.59248, 0.24390, 0.62629, 0.02973, 0.00053, 0.00000, + 0.56722, 0.23035, 0.54441, 0.02807, 0.00180, 0.00000, + 0.54463, 0.21861, 0.47857, 0.02656, 0.00265, 0.00000, + 0.52438, 0.20835, 0.42499, 0.02518, 0.00324, 0.00000, + 0.50597, 0.19922, 0.38061, 0.02392, 0.00364, 0.00003, + 0.48918, 0.19104, 0.34347, 0.02270, 0.00391, 0.00025, + 0.47369, 0.18363, 0.31190, 0.02153, 0.00410, 0.00061, + 0.45936, 0.17686, 0.28482, 0.02048, 0.00422, 0.00087, + 0.44604, 0.17065, 0.26141, 0.01953, 0.00430, 0.00107, + 0.43355, 0.16491, 0.24100, 0.01866, 0.00434, 0.00123, + 0.42188, 0.15960, 0.22312, 0.01786, 0.00435, 0.00135, + 0.41097, 0.15468, 0.20737, 0.01713, 0.00435, 0.00145, + 0.40074, 0.15009, 0.19341, 0.01645, 0.00434, 0.00153, + 0.39101, 0.14579, 0.18096, 0.01582, 0.00430, 0.00159, + 0.38188, 0.14177, 0.16983, 0.01524, 0.00426, 0.00163, + 0.37321, 0.13799, 0.15982, 0.01470, 0.00421, 0.00167, + 0.36499, 0.13443, 0.15078, 0.01419, 0.00417, 0.00170, + 0.35720, 0.13108, 0.14259, 0.01371, 0.00412, 0.00172, + 0.34975, 0.12790, 0.13514, 0.01327, 0.00406, 0.00173/ DATA ((F(I,23,K),I=1,6),K=1,19)/ + 0.57866, 0.22836, 0.52395, 0.02215, 0.00040, 0.00000, + 0.54992, 0.21417, 0.44877, 0.02079, 0.00136, 0.00000, + 0.52462, 0.20201, 0.38958, 0.01956, 0.00199, 0.00000, + 0.50223, 0.19147, 0.34222, 0.01846, 0.00242, 0.00000, + 0.48209, 0.18218, 0.30359, 0.01745, 0.00270, 0.00002, + 0.46390, 0.17390, 0.27165, 0.01649, 0.00289, 0.00018, + 0.44726, 0.16645, 0.24481, 0.01558, 0.00302, 0.00045, + 0.43198, 0.15969, 0.22202, 0.01477, 0.00309, 0.00063, + 0.41788, 0.15352, 0.20250, 0.01403, 0.00314, 0.00078, + 0.40474, 0.14785, 0.18562, 0.01336, 0.00315, 0.00088, + 0.39254, 0.14262, 0.17094, 0.01275, 0.00315, 0.00097, + 0.38118, 0.13780, 0.15810, 0.01219, 0.00314, 0.00103, + 0.37059, 0.13333, 0.14680, 0.01167, 0.00312, 0.00109, + 0.36057, 0.12914, 0.13678, 0.01119, 0.00308, 0.00113, + 0.35120, 0.12526, 0.12786, 0.01076, 0.00305, 0.00116, + 0.34234, 0.12161, 0.11989, 0.01035, 0.00301, 0.00118, + 0.33398, 0.11819, 0.11272, 0.00997, 0.00296, 0.00120, + 0.32608, 0.11497, 0.10626, 0.00961, 0.00292, 0.00121, + 0.31856, 0.11193, 0.10041, 0.00928, 0.00288, 0.00121/ DATA ((F(I,24,K),I=1,6),K=1,19)/ + 0.55751, 0.21111, 0.43576, 0.01626, 0.00032, 0.00001, + 0.52605, 0.19665, 0.36800, 0.01519, 0.00103, 0.00001, + 0.49875, 0.18438, 0.31565, 0.01422, 0.00150, 0.00001, + 0.47481, 0.17382, 0.27441, 0.01336, 0.00181, 0.00001, + 0.45353, 0.16458, 0.24122, 0.01257, 0.00200, 0.00002, + 0.43438, 0.15641, 0.21409, 0.01184, 0.00213, 0.00014, + 0.41704, 0.14910, 0.19154, 0.01114, 0.00221, 0.00033, + 0.40122, 0.14250, 0.17256, 0.01052, 0.00226, 0.00046, + 0.38670, 0.13650, 0.15644, 0.00997, 0.00228, 0.00056, + 0.37328, 0.13102, 0.14261, 0.00946, 0.00229, 0.00063, + 0.36088, 0.12599, 0.13068, 0.00900, 0.00228, 0.00069, + 0.34938, 0.12136, 0.12030, 0.00857, 0.00227, 0.00074, + 0.33866, 0.11709, 0.11122, 0.00819, 0.00224, 0.00078, + 0.32860, 0.11311, 0.10321, 0.00784, 0.00221, 0.00080, + 0.31922, 0.10943, 0.09612, 0.00751, 0.00217, 0.00082, + 0.31039, 0.10598, 0.08982, 0.00721, 0.00214, 0.00083, + 0.30208, 0.10275, 0.08418, 0.00693, 0.00211, 0.00084, + 0.29427, 0.09973, 0.07911, 0.00666, 0.00207, 0.00085, + 0.28686, 0.09688, 0.07454, 0.00642, 0.00203, 0.00085/ DATA ((F(I,25,K),I=1,6),K=1,19)/ + 0.53038, 0.19284, 0.36016, 0.01175, 0.00024, 0.00001, + 0.49702, 0.17844, 0.30004, 0.01093, 0.00078, 0.00001, + 0.46839, 0.16633, 0.25439, 0.01019, 0.00112, 0.00001, + 0.44351, 0.15598, 0.21894, 0.00953, 0.00134, 0.00001, + 0.42157, 0.14698, 0.19077, 0.00893, 0.00147, 0.00002, + 0.40198, 0.13908, 0.16799, 0.00838, 0.00156, 0.00010, + 0.38436, 0.13205, 0.14924, 0.00786, 0.00161, 0.00024, + 0.36837, 0.12573, 0.13360, 0.00740, 0.00164, 0.00033, + 0.35378, 0.12002, 0.12041, 0.00699, 0.00165, 0.00040, + 0.34036, 0.11482, 0.10919, 0.00661, 0.00165, 0.00045, + 0.32801, 0.11006, 0.09957, 0.00627, 0.00164, 0.00050, + 0.31661, 0.10571, 0.09125, 0.00596, 0.00162, 0.00053, + 0.30604, 0.10171, 0.08401, 0.00568, 0.00160, 0.00055, + 0.29615, 0.09799, 0.07767, 0.00542, 0.00157, 0.00057, + 0.28696, 0.09456, 0.07208, 0.00518, 0.00155, 0.00058, + 0.27834, 0.09136, 0.06712, 0.00496, 0.00152, 0.00059, + 0.27026, 0.08837, 0.06272, 0.00476, 0.00149, 0.00059, + 0.26268, 0.08558, 0.05877, 0.00457, 0.00146, 0.00060, + 0.25551, 0.08296, 0.05523, 0.00439, 0.00143, 0.00060/ DATA ((F(I,26,K),I=1,6),K=1,19)/ + 0.49857, 0.17413, 0.29568, 0.00839, 0.00017, 0.00000, + 0.46410, 0.16007, 0.24309, 0.00777, 0.00057, 0.00000, + 0.43478, 0.14834, 0.20380, 0.00721, 0.00082, 0.00000, + 0.40952, 0.13841, 0.17369, 0.00672, 0.00098, 0.00000, + 0.38737, 0.12982, 0.15005, 0.00628, 0.00108, 0.00001, + 0.36780, 0.12231, 0.13113, 0.00587, 0.00114, 0.00007, + 0.35028, 0.11566, 0.11570, 0.00549, 0.00117, 0.00017, + 0.33447, 0.10972, 0.10294, 0.00515, 0.00118, 0.00023, + 0.32011, 0.10438, 0.09225, 0.00484, 0.00118, 0.00028, + 0.30695, 0.09953, 0.08323, 0.00457, 0.00118, 0.00032, + 0.29490, 0.09512, 0.07554, 0.00432, 0.00117, 0.00035, + 0.28381, 0.09109, 0.06893, 0.00410, 0.00115, 0.00037, + 0.27357, 0.08740, 0.06321, 0.00390, 0.00113, 0.00038, + 0.26404, 0.08399, 0.05822, 0.00371, 0.00111, 0.00040, + 0.25521, 0.08084, 0.05384, 0.00354, 0.00109, 0.00041, + 0.24696, 0.07792, 0.04998, 0.00338, 0.00107, 0.00041, + 0.23923, 0.07520, 0.04656, 0.00324, 0.00105, 0.00041, + 0.23201, 0.07266, 0.04351, 0.00310, 0.00102, 0.00041, + 0.22519, 0.07029, 0.04078, 0.00298, 0.00100, 0.00041/ DATA ((F(I,27,K),I=1,6),K=1,19)/ + 0.46329, 0.15537, 0.24091, 0.00586, 0.00013, 0.00000, + 0.42842, 0.14190, 0.19552, 0.00541, 0.00042, 0.00000, + 0.39903, 0.13075, 0.16212, 0.00501, 0.00060, 0.00000, + 0.37391, 0.12138, 0.13685, 0.00465, 0.00071, 0.00000, + 0.35203, 0.11332, 0.11724, 0.00434, 0.00078, 0.00000, + 0.33282, 0.10632, 0.10170, 0.00404, 0.00082, 0.00005, + 0.31570, 0.10014, 0.08913, 0.00376, 0.00084, 0.00012, + 0.30035, 0.09465, 0.07882, 0.00352, 0.00085, 0.00017, + 0.28647, 0.08974, 0.07025, 0.00330, 0.00084, 0.00020, + 0.27380, 0.08529, 0.06306, 0.00311, 0.00084, 0.00023, + 0.26225, 0.08127, 0.05697, 0.00293, 0.00083, 0.00025, + 0.25166, 0.07760, 0.05177, 0.00277, 0.00081, 0.00026, + 0.24192, 0.07426, 0.04728, 0.00263, 0.00080, 0.00027, + 0.23288, 0.07117, 0.04340, 0.00250, 0.00078, 0.00028, + 0.22453, 0.06834, 0.04000, 0.00238, 0.00077, 0.00028, + 0.21676, 0.06571, 0.03702, 0.00227, 0.00075, 0.00028, + 0.20951, 0.06327, 0.03438, 0.00217, 0.00073, 0.00029, + 0.20274, 0.06101, 0.03204, 0.00207, 0.00071, 0.00028, + 0.19637, 0.05889, 0.02996, 0.00198, 0.00069, 0.00028/ DATA ((F(I,28,K),I=1,6),K=1,19)/ + 0.42566, 0.13702, 0.19472, 0.00405, 0.00009, 0.00000, + 0.39105, 0.12435, 0.15604, 0.00373, 0.00030, -0.00001, + 0.36215, 0.11393, 0.12799, 0.00344, 0.00043, -0.00001, + 0.33762, 0.10522, 0.10702, 0.00319, 0.00051, -0.00001, + 0.31642, 0.09779, 0.09093, 0.00296, 0.00056, 0.00000, + 0.29787, 0.09136, 0.07830, 0.00275, 0.00058, 0.00003, + 0.28145, 0.08572, 0.06817, 0.00256, 0.00059, 0.00008, + 0.26677, 0.08073, 0.05993, 0.00238, 0.00060, 0.00011, + 0.25357, 0.07628, 0.05312, 0.00223, 0.00060, 0.00014, + 0.24158, 0.07227, 0.04745, 0.00210, 0.00059, 0.00016, + 0.23068, 0.06865, 0.04268, 0.00197, 0.00058, 0.00017, + 0.22074, 0.06537, 0.03862, 0.00186, 0.00057, 0.00018, + 0.21163, 0.06238, 0.03514, 0.00176, 0.00056, 0.00019, + 0.20319, 0.05964, 0.03215, 0.00167, 0.00054, 0.00019, + 0.19542, 0.05712, 0.02954, 0.00159, 0.00053, 0.00019, + 0.18822, 0.05480, 0.02725, 0.00151, 0.00052, 0.00019, + 0.18152, 0.05265, 0.02524, 0.00144, 0.00050, 0.00019, + 0.17527, 0.05065, 0.02346, 0.00137, 0.00049, 0.00019, + 0.16942, 0.04879, 0.02188, 0.00131, 0.00048, 0.00019/ DATA ((F(I,29,K),I=1,6),K=1,19)/ + 0.38667, 0.11938, 0.15599, 0.00273, 0.00006, 0.00000, + 0.35294, 0.10765, 0.12344, 0.00251, 0.00021, -0.00001, + 0.32500, 0.09808, 0.10017, 0.00231, 0.00031, 0.00000, + 0.30145, 0.09012, 0.08298, 0.00214, 0.00036, -0.00001, + 0.28122, 0.08337, 0.06993, 0.00198, 0.00040, 0.00000, + 0.26362, 0.07756, 0.05978, 0.00183, 0.00041, 0.00002, + 0.24812, 0.07250, 0.05171, 0.00170, 0.00042, 0.00006, + 0.23432, 0.06803, 0.04519, 0.00158, 0.00042, 0.00008, + 0.22198, 0.06406, 0.03984, 0.00148, 0.00042, 0.00010, + 0.21080, 0.06050, 0.03542, 0.00138, 0.00041, 0.00011, + 0.20069, 0.05730, 0.03171, 0.00130, 0.00040, 0.00012, + 0.19150, 0.05441, 0.02858, 0.00122, 0.00039, 0.00012, + 0.18310, 0.05178, 0.02591, 0.00115, 0.00038, 0.00013, + 0.17534, 0.04938, 0.02362, 0.00109, 0.00037, 0.00013, + 0.16822, 0.04718, 0.02164, 0.00104, 0.00036, 0.00013, + 0.16165, 0.04515, 0.01990, 0.00098, 0.00035, 0.00013, + 0.15554, 0.04328, 0.01839, 0.00093, 0.00034, 0.00013, + 0.14987, 0.04155, 0.01705, 0.00089, 0.00033, 0.00013, + 0.14456, 0.03995, 0.01586, 0.00085, 0.00033, 0.00013/ DATA ((F(I,30,K),I=1,6),K=1,19)/ + 0.34727, 0.10273, 0.12377, 0.00182, 0.00004, 0.00000, + 0.31495, 0.09205, 0.09673, 0.00167, 0.00016, 0.00000, + 0.28837, 0.08340, 0.07766, 0.00154, 0.00022, 0.00000, + 0.26611, 0.07625, 0.06374, 0.00142, 0.00026, 0.00000, + 0.24711, 0.07021, 0.05328, 0.00131, 0.00028, 0.00000, + 0.23068, 0.06505, 0.04521, 0.00121, 0.00029, 0.00002, + 0.21626, 0.06056, 0.03886, 0.00112, 0.00029, 0.00004, + 0.20349, 0.05663, 0.03376, 0.00104, 0.00029, 0.00005, + 0.19211, 0.05314, 0.02962, 0.00097, 0.00028, 0.00006, + 0.18187, 0.05003, 0.02620, 0.00090, 0.00028, 0.00007, + 0.17262, 0.04724, 0.02336, 0.00085, 0.00028, 0.00008, + 0.16424, 0.04473, 0.02097, 0.00080, 0.00027, 0.00008, + 0.15662, 0.04245, 0.01894, 0.00075, 0.00026, 0.00009, + 0.14961, 0.04037, 0.01721, 0.00071, 0.00026, 0.00009, + 0.14319, 0.03848, 0.01571, 0.00067, 0.00025, 0.00009, + 0.13726, 0.03674, 0.01441, 0.00063, 0.00024, 0.00009, + 0.13177, 0.03514, 0.01328, 0.00060, 0.00023, 0.00009, + 0.12669, 0.03367, 0.01228, 0.00057, 0.00023, 0.00009, + 0.12195, 0.03230, 0.01140, 0.00055, 0.00022, 0.00009/ DATA ((F(I,31,K),I=1,6),K=1,19)/ + 0.30821, 0.08726, 0.09717, 0.00118, 0.00003, 0.00000, + 0.27772, 0.07768, 0.07499, 0.00108, 0.00011, 0.00000, + 0.25284, 0.06999, 0.05957, 0.00099, 0.00015, 0.00000, + 0.23213, 0.06366, 0.04844, 0.00091, 0.00018, 0.00000, + 0.21457, 0.05835, 0.04016, 0.00084, 0.00019, 0.00000, + 0.19946, 0.05384, 0.03384, 0.00078, 0.00020, 0.00001, + 0.18626, 0.04993, 0.02889, 0.00072, 0.00020, 0.00003, + 0.17463, 0.04651, 0.02495, 0.00066, 0.00020, 0.00004, + 0.16430, 0.04350, 0.02178, 0.00062, 0.00019, 0.00004, + 0.15504, 0.04082, 0.01918, 0.00057, 0.00019, 0.00005, + 0.14671, 0.03843, 0.01703, 0.00054, 0.00019, 0.00005, + 0.13919, 0.03628, 0.01522, 0.00050, 0.00018, 0.00006, + 0.13237, 0.03434, 0.01370, 0.00047, 0.00018, 0.00006, + 0.12612, 0.03258, 0.01240, 0.00045, 0.00017, 0.00006, + 0.12041, 0.03097, 0.01129, 0.00042, 0.00017, 0.00006, + 0.11515, 0.02950, 0.01033, 0.00040, 0.00016, 0.00006, + 0.11030, 0.02815, 0.00949, 0.00038, 0.00015, 0.00006, + 0.10582, 0.02691, 0.00875, 0.00036, 0.00015, 0.00006, + 0.10164, 0.02577, 0.00811, 0.00034, 0.00015, 0.00006/ DATA ((F(I,32,K),I=1,6),K=1,19)/ + 0.27019, 0.07311, 0.07539, 0.00075, 0.00003, 0.00000, + 0.24189, 0.06466, 0.05745, 0.00069, 0.00008, 0.00000, + 0.21894, 0.05792, 0.04515, 0.00064, 0.00011, 0.00000, + 0.19998, 0.05242, 0.03636, 0.00058, 0.00013, 0.00000, + 0.18399, 0.04782, 0.02990, 0.00054, 0.00013, 0.00000, + 0.17031, 0.04393, 0.02502, 0.00049, 0.00014, 0.00001, + 0.15842, 0.04058, 0.02123, 0.00045, 0.00014, 0.00002, + 0.14798, 0.03767, 0.01823, 0.00042, 0.00014, 0.00003, + 0.13875, 0.03511, 0.01582, 0.00039, 0.00013, 0.00003, + 0.13051, 0.03284, 0.01387, 0.00036, 0.00013, 0.00004, + 0.12312, 0.03082, 0.01226, 0.00034, 0.00013, 0.00004, + 0.11647, 0.02901, 0.01092, 0.00032, 0.00012, 0.00004, + 0.11045, 0.02739, 0.00979, 0.00030, 0.00012, 0.00004, + 0.10495, 0.02591, 0.00883, 0.00028, 0.00012, 0.00004, + 0.09995, 0.02458, 0.00801, 0.00026, 0.00011, 0.00004, + 0.09536, 0.02335, 0.00731, 0.00025, 0.00011, 0.00004, + 0.09114, 0.02223, 0.00670, 0.00023, 0.00010, 0.00004, + 0.08725, 0.02121, 0.00617, 0.00022, 0.00010, 0.00004, + 0.08363, 0.02026, 0.00570, 0.00021, 0.00010, 0.00004/ DATA ((F(I,33,K),I=1,6),K=1,19)/ + 0.23385, 0.06037, 0.05777, 0.00046, 0.00001, 0.00000, + 0.20798, 0.05305, 0.04347, 0.00043, 0.00005, 0.00000, + 0.18716, 0.04725, 0.03379, 0.00039, 0.00007, 0.00000, + 0.17007, 0.04253, 0.02696, 0.00036, 0.00008, 0.00000, + 0.15573, 0.03863, 0.02199, 0.00033, 0.00009, 0.00000, + 0.14353, 0.03534, 0.01826, 0.00030, 0.00009, 0.00000, + 0.13297, 0.03251, 0.01539, 0.00028, 0.00009, 0.00001, + 0.12375, 0.03007, 0.01314, 0.00026, 0.00009, 0.00001, + 0.11564, 0.02792, 0.01135, 0.00024, 0.00008, 0.00001, + 0.10840, 0.02603, 0.00990, 0.00022, 0.00008, 0.00002, + 0.10195, 0.02436, 0.00871, 0.00021, 0.00008, 0.00002, + 0.09616, 0.02286, 0.00773, 0.00020, 0.00008, 0.00002, + 0.09094, 0.02152, 0.00691, 0.00018, 0.00007, 0.00002, + 0.08619, 0.02031, 0.00621, 0.00017, 0.00007, 0.00002, + 0.08188, 0.01921, 0.00562, 0.00016, 0.00007, 0.00002, + 0.07793, 0.01821, 0.00511, 0.00015, 0.00007, 0.00002, + 0.07430, 0.01730, 0.00467, 0.00014, 0.00007, 0.00003, + 0.07097, 0.01646, 0.00429, 0.00013, 0.00007, 0.00003, + 0.06789, 0.01569, 0.00396, 0.00013, 0.00006, 0.00003/ DATA ((F(I,34,K),I=1,6),K=1,19)/ + 0.19961, 0.04908, 0.04364, 0.00028, 0.00001, 0.00000, + 0.17635, 0.04284, 0.03241, 0.00026, 0.00003, 0.00000, + 0.15777, 0.03793, 0.02492, 0.00024, 0.00005, 0.00000, + 0.14260, 0.03396, 0.01969, 0.00022, 0.00005, 0.00000, + 0.12996, 0.03070, 0.01593, 0.00020, 0.00006, 0.00000, + 0.11925, 0.02796, 0.01313, 0.00019, 0.00006, 0.00000, + 0.11003, 0.02562, 0.01100, 0.00017, 0.00006, 0.00000, + 0.10202, 0.02360, 0.00933, 0.00016, 0.00006, 0.00000, + 0.09499, 0.02184, 0.00802, 0.00015, 0.00006, 0.00001, + 0.08875, 0.02030, 0.00696, 0.00014, 0.00005, 0.00001, + 0.08320, 0.01893, 0.00610, 0.00013, 0.00005, 0.00001, + 0.07824, 0.01772, 0.00539, 0.00012, 0.00005, 0.00001, + 0.07379, 0.01663, 0.00480, 0.00011, 0.00005, 0.00001, + 0.06975, 0.01565, 0.00430, 0.00010, 0.00004, 0.00001, + 0.06609, 0.01477, 0.00388, 0.00010, 0.00004, 0.00001, + 0.06274, 0.01397, 0.00352, 0.00009, 0.00004, 0.00001, + 0.05968, 0.01323, 0.00321, 0.00009, 0.00004, 0.00002, + 0.05688, 0.01257, 0.00294, 0.00008, 0.00004, 0.00002, + 0.05429, 0.01195, 0.00271, 0.00008, 0.00004, 0.00002/ DATA ((F(I,35,K),I=1,6),K=1,19)/ + 0.16787, 0.03921, 0.03245, 0.00016, 0.00001, 0.00000, + 0.14729, 0.03401, 0.02378, 0.00015, 0.00002, 0.00000, + 0.13099, 0.02993, 0.01807, 0.00014, 0.00003, 0.00000, + 0.11776, 0.02666, 0.01415, 0.00013, 0.00004, 0.00000, + 0.10681, 0.02397, 0.01135, 0.00012, 0.00003, -0.00001, + 0.09756, 0.02173, 0.00928, 0.00011, 0.00003, 0.00000, + 0.08965, 0.01984, 0.00772, 0.00010, 0.00003, 0.00000, + 0.08279, 0.01821, 0.00652, 0.00009, 0.00003, 0.00001, + 0.07682, 0.01678, 0.00557, 0.00008, 0.00004, 0.00001, + 0.07153, 0.01554, 0.00481, 0.00008, 0.00003, 0.00001, + 0.06684, 0.01445, 0.00420, 0.00007, 0.00003, 0.00001, + 0.06267, 0.01348, 0.00369, 0.00007, 0.00003, 0.00001, + 0.05893, 0.01262, 0.00328, 0.00006, 0.00003, 0.00001, + 0.05554, 0.01184, 0.00293, 0.00006, 0.00003, 0.00001, + 0.05249, 0.01114, 0.00263, 0.00006, 0.00003, 0.00001, + 0.04971, 0.01051, 0.00238, 0.00005, 0.00003, 0.00001, + 0.04717, 0.00994, 0.00217, 0.00005, 0.00003, 0.00001, + 0.04485, 0.00942, 0.00198, 0.00005, 0.00002, 0.00001, + 0.04271, 0.00894, 0.00182, 0.00004, 0.00002, 0.00001/ DATA ((F(I,36,K),I=1,6),K=1,19)/ + 0.13892, 0.03076, 0.02370, 0.00009, 0.00000, 0.00000, + 0.12104, 0.02649, 0.01713, 0.00009, 0.00001, 0.00000, + 0.10698, 0.02317, 0.01287, 0.00008, 0.00002, 0.00000, + 0.09565, 0.02052, 0.00998, 0.00008, 0.00002, 0.00000, + 0.08632, 0.01836, 0.00793, 0.00007, 0.00002, 0.00000, + 0.07849, 0.01657, 0.00644, 0.00006, 0.00002, 0.00000, + 0.07181, 0.01506, 0.00532, 0.00006, 0.00002, 0.00000, + 0.06606, 0.01377, 0.00446, 0.00005, 0.00002, 0.00000, + 0.06106, 0.01264, 0.00379, 0.00005, 0.00002, 0.00000, + 0.05666, 0.01167, 0.00326, 0.00004, 0.00002, 0.00001, + 0.05278, 0.01081, 0.00283, 0.00004, 0.00002, 0.00001, + 0.04933, 0.01006, 0.00248, 0.00004, 0.00002, 0.00001, + 0.04624, 0.00939, 0.00219, 0.00004, 0.00002, 0.00001, + 0.04347, 0.00878, 0.00196, 0.00003, 0.00002, 0.00001, + 0.04097, 0.00824, 0.00175, 0.00003, 0.00002, 0.00001, + 0.03869, 0.00776, 0.00158, 0.00003, 0.00002, 0.00001, + 0.03663, 0.00731, 0.00143, 0.00003, 0.00002, 0.00001, + 0.03474, 0.00691, 0.00131, 0.00003, 0.00001, 0.00001, + 0.03301, 0.00655, 0.00120, 0.00002, 0.00001, 0.00001/ DATA ((F(I,37,K),I=1,6),K=1,19)/ + 0.08998, 0.01773, 0.01186, 0.00003, 0.00000, 0.00000, + 0.07727, 0.01504, 0.00833, 0.00003, 0.00001, 0.00000, + 0.06741, 0.01299, 0.00611, 0.00002, 0.00001, 0.00000, + 0.05958, 0.01137, 0.00464, 0.00002, 0.00001, 0.00000, + 0.05319, 0.01007, 0.00362, 0.00002, 0.00001, 0.00000, + 0.04791, 0.00900, 0.00289, 0.00002, 0.00001, 0.00000, + 0.04344, 0.00811, 0.00236, 0.00002, 0.00001, 0.00000, + 0.03963, 0.00735, 0.00195, 0.00002, 0.00001, 0.00000, + 0.03634, 0.00670, 0.00164, 0.00001, 0.00001, 0.00000, + 0.03348, 0.00614, 0.00140, 0.00001, 0.00001, 0.00000, + 0.03097, 0.00565, 0.00120, 0.00001, 0.00001, 0.00000, + 0.02875, 0.00522, 0.00105, 0.00001, 0.00001, 0.00000, + 0.02678, 0.00484, 0.00092, 0.00001, 0.00001, 0.00000, + 0.02502, 0.00450, 0.00081, 0.00001, 0.00001, 0.00000, + 0.02345, 0.00420, 0.00072, 0.00001, 0.00001, 0.00000, + 0.02203, 0.00393, 0.00065, 0.00001, 0.00001, 0.00000, + 0.02075, 0.00369, 0.00059, 0.00001, 0.00001, 0.00000, + 0.01958, 0.00347, 0.00053, 0.00001, 0.00000, 0.00000, + 0.01852, 0.00327, 0.00049, 0.00001, 0.00000, 0.00000/ DATA ((F(I,38,K),I=1,6),K=1,19)/ + 0.05324, 0.00920, 0.00534, 0.00001, 0.00000, 0.00000, + 0.04500, 0.00768, 0.00364, 0.00001, 0.00000, 0.00000, + 0.03871, 0.00654, 0.00260, 0.00001, 0.00000, 0.00000, + 0.03378, 0.00565, 0.00193, 0.00001, 0.00000, 0.00000, + 0.02982, 0.00495, 0.00148, 0.00001, 0.00000, 0.00000, + 0.02658, 0.00438, 0.00116, 0.00000, 0.00000, 0.00000, + 0.02387, 0.00391, 0.00093, 0.00000, 0.00000, 0.00000, + 0.02157, 0.00351, 0.00076, 0.00000, 0.00000, 0.00000, + 0.01962, 0.00317, 0.00063, 0.00000, 0.00000, 0.00000, + 0.01793, 0.00288, 0.00053, 0.00000, 0.00000, 0.00000, + 0.01646, 0.00263, 0.00045, 0.00000, 0.00000, 0.00000, + 0.01517, 0.00241, 0.00039, 0.00000, 0.00000, 0.00000, + 0.01404, 0.00222, 0.00034, 0.00000, 0.00000, 0.00000, + 0.01304, 0.00205, 0.00030, 0.00000, 0.00000, 0.00000, + 0.01214, 0.00190, 0.00027, 0.00000, 0.00000, 0.00000, + 0.01134, 0.00177, 0.00024, 0.00000, 0.00000, 0.00000, + 0.01061, 0.00165, 0.00021, 0.00000, 0.00000, 0.00000, + 0.00996, 0.00155, 0.00019, 0.00000, 0.00000, 0.00000, + 0.00937, 0.00145, 0.00017, 0.00000, 0.00000, 0.00000/ DATA ((F(I,39,K),I=1,6),K=1,19)/ + 0.02793, 0.00414, 0.00208, 0.00000, 0.00000, 0.00000, + 0.02319, 0.00339, 0.00137, 0.00000, 0.00000, 0.00000, + 0.01964, 0.00284, 0.00095, 0.00000, 0.00000, 0.00000, + 0.01690, 0.00243, 0.00069, 0.00000, 0.00000, 0.00000, + 0.01473, 0.00210, 0.00051, 0.00000, 0.00000, 0.00000, + 0.01297, 0.00183, 0.00040, 0.00000, 0.00000, 0.00000, + 0.01152, 0.00162, 0.00031, 0.00000, 0.00000, 0.00000, + 0.01031, 0.00144, 0.00025, 0.00000, 0.00000, 0.00000, + 0.00929, 0.00129, 0.00021, 0.00000, 0.00000, 0.00000, + 0.00841, 0.00116, 0.00017, 0.00000, 0.00000, 0.00000, + 0.00766, 0.00105, 0.00015, 0.00000, 0.00000, 0.00000, + 0.00700, 0.00096, 0.00012, 0.00000, 0.00000, 0.00000, + 0.00643, 0.00087, 0.00011, 0.00000, 0.00000, 0.00000, + 0.00592, 0.00080, 0.00009, 0.00000, 0.00000, 0.00000, + 0.00548, 0.00074, 0.00008, 0.00000, 0.00000, 0.00000, + 0.00508, 0.00068, 0.00007, 0.00000, 0.00000, 0.00000, + 0.00473, 0.00063, 0.00007, 0.00000, 0.00000, 0.00000, + 0.00441, 0.00059, 0.00006, 0.00000, 0.00000, 0.00000, + 0.00412, 0.00055, 0.00005, 0.00000, 0.00000, 0.00000/ DATA ((F(I,40,K),I=1,6),K=1,19)/ + 0.01235, 0.00152, 0.00066, 0.00000, 0.00000, 0.00000, + 0.01004, 0.00122, 0.00041, 0.00000, 0.00000, 0.00000, + 0.00835, 0.00101, 0.00028, 0.00000, 0.00000, 0.00000, + 0.00707, 0.00084, 0.00020, 0.00000, 0.00000, 0.00000, + 0.00607, 0.00072, 0.00014, 0.00000, 0.00000, 0.00000, + 0.00527, 0.00062, 0.00011, 0.00000, 0.00000, 0.00000, + 0.00463, 0.00054, 0.00008, 0.00000, 0.00000, 0.00000, + 0.00409, 0.00047, 0.00007, 0.00000, 0.00000, 0.00000, + 0.00364, 0.00042, 0.00005, 0.00000, 0.00000, 0.00000, + 0.00326, 0.00037, 0.00004, 0.00000, 0.00000, 0.00000, + 0.00294, 0.00034, 0.00004, 0.00000, 0.00000, 0.00000, + 0.00267, 0.00030, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00243, 0.00027, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00222, 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00203, 0.00023, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00187, 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00173, 0.00019, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00160, 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00149, 0.00016, 0.00001, 0.00000, 0.00000, 0.00000/ DATA ((F(I,41,K),I=1,6),K=1,19)/ + 0.00087, 0.00006, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00067, 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00053, 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00043, 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00035, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00029, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000/ DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-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,1.D0/ DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/ DATA N0/3,3,4,8,0,0/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ C IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,41 DO 20 M=1,19 C READ(69,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M) DO 25 I=1,6 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) 20 CONTINUE DO 30 J=1,15 XX(J)= LOG10(XX(J))+ONEDO DO 30 I=1,5 DO 30 K=1,19 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K)) 50 FORMAT(6F10.5) DO 40 I=1,6 DO 40 M=1,19 40 F(I,42,M)=ZEROD 10 CONTINUE UPV=ZEROD DNV=ZEROD SEA=ZEROD STR=ZEROD CHM=ZEROD GL =ZEROD BOT=ZEROD C IF(X.LT.XMIN) X=XMIN C IF(X.GT.XMAX) X=XMAX IF(X.LT.XMIN) GOTO 777 IF(X.GT.XMAX) GOTO 777 QSQ=SCALE**2 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN IF(QSQ.GT.QSQMAX) QSQ=QSQMAX XXX=X IF(X.LT.PONED) XXX= LOG10(X)+ONEDO N=0 70 N=N+1 IF(XXX.GT.XX(N+1)) GOTO 70 A=(XXX-XX(N))/(XX(N+1)-XX(N)) RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) B=RM-AINT(RM) M=1+ INT(RM) DO 60 I=1,6 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.16) GOTO 65 IF(I.EQ.6) GOTO 65 FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1) G(I)=FAC**(G(I)/FAC) 65 CONTINUE G(I)=G(I)*(ONED-X)**N0(I) 60 CONTINUE UPV=G(1) DNV=G(2) SEA=G(4) STR=G(4) CHM=G(5) GL =G(3) BOT=G(6) 777 CONTINUE RETURN END