* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:30:52 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:47 plothow * Version 7.01 * * #include "pdf/pilot.h" C C SUBROUTINE SMRSP33(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GLU) C C :::::::::::: PION STRUCTURE FUNCTION :: 20% SEA ::::::::::::::::: C #include "pdf/impdp.inc" PARAMETER(NX=50) PARAMETER(NQ=19) PARAMETER(NTENTH=21) DIMENSION F(7,NX,NQ),G(7),XX(NX),N0(7) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ +0.00073, 0.00073, 1.66123, 0.23785, 0.01467, 0.000, 0.23785, +0.00089, 0.00089, 6.40189, 0.30465, 0.07117, 0.000, 0.30465, +0.00105, 0.00105, 14.97676, 0.38939, 0.14670, 0.000, 0.38939, +0.00121, 0.00121, 27.90529, 0.49312, 0.24206, 0.000, 0.49312, +0.00137, 0.00137, 44.87845, 0.61728, 0.35858, 0.000, 0.61728, +0.00153, 0.00153, 66.11195, 0.76244, 0.49668, 0.000, 0.76244, +0.00169, 0.00169, 91.55411, 0.92921, 0.65689, 0.000, 0.92921, +0.00186, 0.00186,121.11298, 1.11797, 0.83951, 0.000, 1.11797, +0.00202, 0.00202,154.70744, 1.32898, 1.04476, 0.000, 1.32898, +0.00218, 0.00218,191.69145, 1.56152, 1.27187, 0.000, 1.56152, +0.00235, 0.00235,232.42030, 1.81590, 1.52109, 0.000, 1.81590, +0.00251, 0.00251,276.89560, 2.09225, 1.79254, 0.000, 2.09225, +0.00268, 0.00268,324.88199, 2.39028, 2.08588, 0.000, 2.39028, +0.00284, 0.00284,375.47061, 2.70749, 2.39863, 0.000, 2.70749, +0.00301, 0.00301,429.74271, 3.04645, 2.73329, 0.000, 3.04645, +0.00317, 0.00317,486.63776, 3.40429, 3.08701, 0.000, 3.40429, +0.00334, 0.00334,546.39929, 3.78121, 3.45997, 0.000, 3.78121, +0.00350, 0.00350,609.11194, 4.17769, 3.85260, 0.000, 4.17769, +0.00367, 0.00367,673.96960, 4.59037, 4.26159, 0.000, 4.59037/ DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ +0.00113, 0.00113, 1.59510, 0.23632, 0.01372, 0.000, 0.23632, +0.00136, 0.00136, 5.60677, 0.29736, 0.06555, 0.000, 0.29736, +0.00159, 0.00159, 12.38822, 0.37313, 0.13313, 0.000, 0.37313, +0.00181, 0.00181, 22.13688, 0.46396, 0.21656, 0.000, 0.46396, +0.00204, 0.00204, 34.47487, 0.57057, 0.31644, 0.000, 0.57057, +0.00226, 0.00226, 49.45894, 0.69296, 0.43265, 0.000, 0.69296, +0.00249, 0.00249, 66.96782, 0.83122, 0.56519, 0.000, 0.83122, +0.00271, 0.00271, 86.87107, 0.98529, 0.71393, 0.000, 0.98529, +0.00293, 0.00293,109.06017, 1.15505, 0.87869, 0.000, 1.15505, +0.00316, 0.00316,133.06537, 1.33960, 1.05855, 0.000, 1.33960, +0.00338, 0.00338,159.09331, 1.53896, 1.25348, 0.000, 1.53896, +0.00360, 0.00360,187.11481, 1.75302, 1.46333, 0.000, 1.75302, +0.00382, 0.00382,216.95308, 1.98134, 1.68765, 0.000, 1.98134, +0.00403, 0.00403,248.01726, 2.22184, 1.92434, 0.000, 2.22184, +0.00425, 0.00425,280.97537, 2.47635, 2.17520, 0.000, 2.47635, +0.00447, 0.00447,315.15277, 2.74257, 2.43792, 0.000, 2.74257, +0.00468, 0.00468,350.69443, 3.02056, 2.71255, 0.000, 3.02056, +0.00490, 0.00490,387.64322, 3.31057, 2.99932, 0.000, 3.31057, +0.00511, 0.00511,425.50595, 3.61007, 3.29570, 0.000, 3.61007/ DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ +0.00176, 0.00176, 1.53159, 0.23460, 0.01276, 0.000, 0.23460, +0.00208, 0.00208, 4.91031, 0.29002, 0.06007, 0.000, 0.29002, +0.00240, 0.00240, 10.24688, 0.35732, 0.12021, 0.000, 0.35732, +0.00272, 0.00272, 17.56050, 0.43634, 0.19279, 0.000, 0.43634, +0.00304, 0.00304, 26.48240, 0.52728, 0.27791, 0.000, 0.52728, +0.00335, 0.00335, 36.99974, 0.62980, 0.37511, 0.000, 0.62980, +0.00366, 0.00366, 48.98272, 0.74368, 0.48408, 0.000, 0.74368, +0.00396, 0.00396, 62.30855, 0.86860, 0.60446, 0.000, 0.86860, +0.00426, 0.00426, 76.87907, 1.00426, 0.73587, 0.000, 1.00426, +0.00456, 0.00456, 92.36638, 1.14975, 0.87739, 0.000, 1.14975, +0.00486, 0.00486,108.89706, 1.30495, 1.02885, 0.000, 1.30495, +0.00515, 0.00515,126.44055, 1.46964, 1.19001, 0.000, 1.46964, +0.00544, 0.00544,144.87434, 1.64338, 1.36039, 0.000, 1.64338, +0.00573, 0.00573,163.82210, 1.82447, 1.53830, 0.000, 1.82447, +0.00601, 0.00601,183.70142, 2.01427, 1.72506, 0.000, 2.01427, +0.00630, 0.00630,204.08971, 2.21096, 1.91884, 0.000, 2.21096, +0.00658, 0.00658,225.07739, 2.41456, 2.11966, 0.000, 2.41456, +0.00686, 0.00686,246.68988, 2.62523, 2.32765, 0.000, 2.62523, +0.00713, 0.00713,268.62991, 2.84106, 2.54091, 0.000, 2.84106/ DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ +0.00227, 0.00227, 1.49559, 0.23348, 0.01220, 0.000, 0.23348, +0.00267, 0.00267, 4.54366, 0.28567, 0.05693, 0.000, 0.28567, +0.00307, 0.00307, 9.17008, 0.34825, 0.11294, 0.000, 0.34825, +0.00345, 0.00345, 15.33534, 0.42083, 0.17965, 0.000, 0.42083, +0.00384, 0.00384, 22.69571, 0.50340, 0.25693, 0.000, 0.50340, +0.00421, 0.00421, 31.22177, 0.59550, 0.34420, 0.000, 0.59550, +0.00458, 0.00458, 40.79263, 0.69680, 0.44106, 0.000, 0.69680, +0.00494, 0.00494, 51.29930, 0.80690, 0.54707, 0.000, 0.80690, +0.00530, 0.00530, 62.65648, 0.92546, 0.66181, 0.000, 0.92546, +0.00566, 0.00566, 74.60306, 1.05159, 0.78438, 0.000, 1.05159, +0.00600, 0.00600, 87.23674, 1.18516, 0.91460, 0.000, 1.18516, +0.00635, 0.00635,100.53127, 1.32592, 1.05221, 0.000, 1.32592, +0.00669, 0.00669,114.39108, 1.47346, 1.19676, 0.000, 1.47346, +0.00703, 0.00703,128.52966, 1.62629, 1.34676, 0.000, 1.62629, +0.00736, 0.00736,143.26573, 1.78556, 1.50333, 0.000, 1.78556, +0.00769, 0.00769,158.28004, 1.94972, 1.66492, 0.000, 1.94972, +0.00802, 0.00802,173.64276, 2.11878, 1.83152, 0.000, 2.11878, +0.00834, 0.00834,189.37436, 2.29286, 2.00324, 0.000, 2.29286, +0.00867, 0.00867,205.25529, 2.47038, 2.17849, 0.000, 2.47038/ DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ +0.00273, 0.00273, 1.47054, 0.23263, 0.01180, 0.000, 0.23263, +0.00319, 0.00319, 4.30020, 0.28256, 0.05473, 0.000, 0.28256, +0.00365, 0.00365, 8.47533, 0.34188, 0.10792, 0.000, 0.34188, +0.00409, 0.00409, 13.92958, 0.41009, 0.17065, 0.000, 0.41009, +0.00453, 0.00453, 20.34189, 0.48705, 0.24269, 0.000, 0.48705, +0.00495, 0.00495, 27.67776, 0.57226, 0.32342, 0.000, 0.57226, +0.00537, 0.00537, 35.82585, 0.66531, 0.41237, 0.000, 0.66531, +0.00579, 0.00579, 44.68855, 0.76580, 0.50907, 0.000, 0.76580, +0.00619, 0.00619, 54.19072, 0.87334, 0.61310, 0.000, 0.87334, +0.00659, 0.00659, 64.11164, 0.98712, 0.72361, 0.000, 0.98712, +0.00698, 0.00698, 74.53390, 1.10697, 0.84038, 0.000, 1.10697, +0.00737, 0.00737, 85.43520, 1.23266, 0.96318, 0.000, 1.23266, +0.00775, 0.00775, 96.73615, 1.36379, 1.09157, 0.000, 1.36379, +0.00813, 0.00813,108.20181, 1.49903, 1.22423, 0.000, 1.49903, +0.00850, 0.00850,120.09572, 1.63941, 1.36215, 0.000, 1.63941, +0.00887, 0.00887,132.15727, 1.78353, 1.50393, 0.000, 1.78353, +0.00923, 0.00923,144.44543, 1.93141, 1.64957, 0.000, 1.93141, +0.00959, 0.00959,156.97807, 2.08316, 1.79918, 0.000, 2.08316, +0.00995, 0.00995,169.57884, 2.23739, 1.95135, 0.000, 2.23739/ DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ +0.00314, 0.00314, 1.45140, 0.23193, 0.01150, 0.000, 0.23193, +0.00366, 0.00366, 4.12035, 0.28012, 0.05305, 0.000, 0.28012, +0.00417, 0.00417, 7.97282, 0.33697, 0.10409, 0.000, 0.33697, +0.00466, 0.00466, 12.92842, 0.40190, 0.16384, 0.000, 0.40190, +0.00515, 0.00515, 18.68538, 0.47470, 0.23201, 0.000, 0.47470, +0.00562, 0.00562, 25.20800, 0.55482, 0.30793, 0.000, 0.55482, +0.00608, 0.00608, 32.39333, 0.64184, 0.39110, 0.000, 0.64184, +0.00654, 0.00654, 40.15287, 0.73534, 0.48106, 0.000, 0.73534, +0.00698, 0.00698, 48.41951, 0.83495, 0.57738, 0.000, 0.83495, +0.00742, 0.00742, 57.00030, 0.93986, 0.67924, 0.000, 0.93986, +0.00785, 0.00785, 65.96819, 1.04991, 0.78643, 0.000, 1.04991, +0.00827, 0.00827, 75.30411, 1.16490, 0.89872, 0.000, 1.16490, +0.00869, 0.00869, 84.93983, 1.28443, 1.01572, 0.000, 1.28443, +0.00910, 0.00910, 94.67431, 1.40729, 1.13618, 0.000, 1.40729, +0.00950, 0.00950,104.73546, 1.53442, 1.26103, 0.000, 1.53442, +0.00990, 0.00990,114.90069, 1.66454, 1.38898, 0.000, 1.66454, +0.01030, 0.01030,125.22188, 1.79768, 1.52005, 0.000, 1.79768, +0.01069, 0.01069,135.71541, 1.93394, 1.65433, 0.000, 1.93394, +0.01107, 0.01107,146.23267, 2.07206, 1.79056, 0.000, 2.07206/ DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ +0.00487, 0.00487, 1.39340, 0.22952, 0.01054, 0.000, 0.22952, +0.00561, 0.00561, 3.60798, 0.27238, 0.04789, 0.000, 0.27238, +0.00632, 0.00632, 6.59361, 0.32184, 0.09258, 0.000, 0.32184, +0.00701, 0.00701, 10.25390, 0.37715, 0.14368, 0.000, 0.37715, +0.00767, 0.00767, 14.35074, 0.43796, 0.20075, 0.000, 0.43796, +0.00831, 0.00831, 18.85406, 0.50367, 0.26309, 0.000, 0.50367, +0.00894, 0.00894, 23.68863, 0.57384, 0.33019, 0.000, 0.57384, +0.00955, 0.00955, 28.79337, 0.64806, 0.40161, 0.000, 0.64806, +0.01014, 0.01014, 34.12415, 0.72597, 0.47694, 0.000, 0.72597, +0.01072, 0.01072, 39.55686, 0.80691, 0.55549, 0.000, 0.80691, +0.01128, 0.01128, 45.14307, 0.89075, 0.63711, 0.000, 0.89075, +0.01184, 0.01184, 50.87281, 0.97732, 0.72159, 0.000, 0.97732, +0.01238, 0.01238, 56.70524, 1.06631, 0.80863, 0.000, 1.06631, +0.01291, 0.01291, 62.51816, 1.15680, 0.89729, 0.000, 1.15680, +0.01344, 0.01344, 68.45716, 1.24953, 0.98829, 0.000, 1.24953, +0.01395, 0.01395, 74.38765, 1.34355, 1.08066, 0.000, 1.34355, +0.01446, 0.01446, 80.34506, 1.43890, 1.17445, 0.000, 1.43890, +0.01495, 0.01495, 86.34202, 1.53567, 1.26974, 0.000, 1.53567, +0.01544, 0.01544, 92.29215, 1.63297, 1.36562, 0.000, 1.63297/ DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ +0.00755, 0.00755, 1.33748, 0.22665, 0.00958, 0.000, 0.22665, +0.00859, 0.00859, 3.15874, 0.26428, 0.04287, 0.000, 0.26428, +0.00958, 0.00958, 5.45189, 0.30676, 0.08163, 0.000, 0.30676, +0.01053, 0.01053, 8.13087, 0.35328, 0.12490, 0.000, 0.35328, +0.01143, 0.01143, 11.01904, 0.40342, 0.17219, 0.000, 0.40342, +0.01230, 0.01230, 14.09815, 0.45662, 0.22283, 0.000, 0.45662, +0.01313, 0.01313, 17.31847, 0.51246, 0.27639, 0.000, 0.51246, +0.01394, 0.01394, 20.64180, 0.57060, 0.33245, 0.000, 0.57060, +0.01473, 0.01473, 24.04236, 0.63074, 0.39069, 0.000, 0.63074, +0.01549, 0.01549, 27.44328, 0.69236, 0.45058, 0.000, 0.69236, +0.01622, 0.01622, 30.88253, 0.75537, 0.51199, 0.000, 0.75537, +0.01694, 0.01694, 34.35690, 0.81966, 0.57479, 0.000, 0.81966, +0.01764, 0.01764, 37.84361, 0.88502, 0.63876, 0.000, 0.88502, +0.01833, 0.01833, 41.26999, 0.95076, 0.70321, 0.000, 0.95076, +0.01900, 0.01900, 44.72956, 1.01747, 0.76870, 0.000, 1.01747, +0.01965, 0.01965, 48.14228, 1.08446, 0.83456, 0.000, 1.08446, +0.02029, 0.02029, 51.53264, 1.15179, 0.90081, 0.000, 1.15179, +0.02091, 0.02091, 54.91068, 1.21956, 0.96756, 0.000, 1.21956, +0.02153, 0.02153, 58.22705, 1.28713, 1.03417, 0.000, 1.28713/ DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ +0.00977, 0.00977, 1.30563, 0.22468, 0.00902, 0.000, 0.22468, +0.01103, 0.01103, 2.92190, 0.25931, 0.03999, 0.000, 0.25931, +0.01222, 0.01222, 4.87718, 0.29788, 0.07546, 0.000, 0.29788, +0.01335, 0.01335, 7.09775, 0.33961, 0.11452, 0.000, 0.33961, +0.01443, 0.01443, 9.43942, 0.38407, 0.15664, 0.000, 0.38407, +0.01546, 0.01546, 11.89116, 0.43072, 0.20123, 0.000, 0.43072, +0.01645, 0.01645, 14.41587, 0.47921, 0.24788, 0.000, 0.47921, +0.01740, 0.01740, 16.98611, 0.52923, 0.29624, 0.000, 0.52923, +0.01832, 0.01832, 19.58434, 0.58052, 0.34603, 0.000, 0.58052, +0.01920, 0.01920, 22.15357, 0.63264, 0.39679, 0.000, 0.63264, +0.02006, 0.02006, 24.72598, 0.68555, 0.44845, 0.000, 0.68555, +0.02089, 0.02089, 27.30105, 0.73915, 0.50090, 0.000, 0.73915, +0.02170, 0.02170, 29.86323, 0.79327, 0.55396, 0.000, 0.79327, +0.02249, 0.02249, 32.35952, 0.84737, 0.60707, 0.000, 0.84737, +0.02325, 0.02325, 34.86224, 0.90195, 0.66073, 0.000, 0.90195, +0.02400, 0.02400, 37.31274, 0.95645, 0.71437, 0.000, 0.95645, +0.02473, 0.02473, 39.73085, 1.01094, 0.76805, 0.000, 1.01094, +0.02545, 0.02545, 42.12524, 1.06550, 0.82186, 0.000, 1.06550, +0.02614, 0.02614, 44.46061, 1.11964, 0.87529, 0.000, 1.11964/ DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ +0.01172, 0.01172, 1.28335, 0.22313, 0.00862, 0.000, 0.22313, +0.01317, 0.01317, 2.76440, 0.25563, 0.03797, 0.000, 0.25563, +0.01452, 0.01452, 4.50602, 0.29152, 0.07120, 0.000, 0.29152, +0.01581, 0.01581, 6.44455, 0.32999, 0.10740, 0.000, 0.32999, +0.01702, 0.01702, 8.45683, 0.37064, 0.14609, 0.000, 0.37064, +0.01818, 0.01818, 10.53661, 0.41298, 0.18671, 0.000, 0.41298, +0.01929, 0.01929, 12.65459, 0.45667, 0.22887, 0.000, 0.45667, +0.02036, 0.02036, 14.78975, 0.50143, 0.27228, 0.000, 0.50143, +0.02138, 0.02138, 16.92937, 0.54706, 0.31668, 0.000, 0.54706, +0.02236, 0.02236, 19.02782, 0.59315, 0.36167, 0.000, 0.59315, +0.02331, 0.02331, 21.11372, 0.63969, 0.40721, 0.000, 0.63969, +0.02424, 0.02424, 23.18807, 0.68660, 0.45320, 0.000, 0.68660, +0.02513, 0.02513, 25.23925, 0.73374, 0.49950, 0.000, 0.73374, +0.02600, 0.02600, 27.22513, 0.78065, 0.54564, 0.000, 0.78065, +0.02684, 0.02684, 29.20597, 0.82777, 0.59205, 0.000, 0.82777, +0.02766, 0.02766, 31.13490, 0.87464, 0.63826, 0.000, 0.87464, +0.02846, 0.02846, 33.02897, 0.92132, 0.68432, 0.000, 0.92132, +0.02924, 0.02924, 34.89596, 0.96790, 0.73032, 0.000, 0.96790, +0.03000, 0.03000, 36.70819, 1.01395, 0.77585, 0.000, 1.01395/ DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ +0.01349, 0.01349, 1.26623, 0.22181, 0.00831, 0.000, 0.22181, +0.01510, 0.01510, 2.64788, 0.25269, 0.03642, 0.000, 0.25269, +0.01660, 0.01660, 4.23730, 0.28652, 0.06795, 0.000, 0.28652, +0.01802, 0.01802, 5.97899, 0.32256, 0.10203, 0.000, 0.32256, +0.01935, 0.01935, 7.76485, 0.36038, 0.13818, 0.000, 0.36038, +0.02062, 0.02062, 9.59205, 0.39954, 0.17588, 0.000, 0.39954, +0.02183, 0.02183, 11.43667, 0.43973, 0.21479, 0.000, 0.43973, +0.02299, 0.02299, 13.28202, 0.48069, 0.25462, 0.000, 0.48069, +0.02410, 0.02410, 15.11854, 0.52224, 0.29517, 0.000, 0.52224, +0.02517, 0.02517, 16.90808, 0.56403, 0.33606, 0.000, 0.56403, +0.02620, 0.02620, 18.67683, 0.60604, 0.37725, 0.000, 0.60604, +0.02719, 0.02719, 20.42662, 0.64822, 0.41870, 0.000, 0.64822, +0.02816, 0.02816, 22.14841, 0.69046, 0.46027, 0.000, 0.69046, +0.02909, 0.02909, 23.80702, 0.73232, 0.50153, 0.000, 0.73232, +0.03000, 0.03000, 25.45474, 0.77426, 0.54291, 0.000, 0.77426, +0.03088, 0.03088, 27.05230, 0.81583, 0.58396, 0.000, 0.81583, +0.03173, 0.03173, 28.61486, 0.85711, 0.62477, 0.000, 0.85711, +0.03257, 0.03257, 30.14953, 0.89819, 0.66541, 0.000, 0.89819, +0.03338, 0.03338, 31.63343, 0.93869, 0.70551, 0.000, 0.93869/ DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ +0.02091, 0.02091, 1.21367, 0.21697, 0.00735, 0.000, 0.21697, +0.02311, 0.02311, 2.31471, 0.24282, 0.03168, 0.000, 0.24282, +0.02514, 0.02514, 3.49787, 0.27052, 0.05818, 0.000, 0.27052, +0.02704, 0.02704, 4.73269, 0.29940, 0.08609, 0.000, 0.29940, +0.02880, 0.02880, 5.95085, 0.32910, 0.11502, 0.000, 0.32910, +0.03046, 0.03046, 7.15802, 0.35928, 0.14457, 0.000, 0.35928, +0.03204, 0.03204, 8.34344, 0.38972, 0.17449, 0.000, 0.38972, +0.03353, 0.03353, 9.50062, 0.42024, 0.20459, 0.000, 0.42024, +0.03495, 0.03495, 10.62717, 0.45074, 0.23474, 0.000, 0.45074, +0.03631, 0.03631, 11.70209, 0.48097, 0.26469, 0.000, 0.48097, +0.03761, 0.03761, 12.74515, 0.51096, 0.29446, 0.000, 0.51096, +0.03886, 0.03886, 13.75982, 0.54071, 0.32402, 0.000, 0.54071, +0.04006, 0.04006, 14.74244, 0.57016, 0.35331, 0.000, 0.57016, +0.04122, 0.04122, 15.67339, 0.59901, 0.38205, 0.000, 0.59901, +0.04233, 0.04233, 16.58623, 0.62761, 0.41057, 0.000, 0.62761, +0.04341, 0.04341, 17.45856, 0.65568, 0.43858, 0.000, 0.65568, +0.04446, 0.04446, 18.30080, 0.68329, 0.46615, 0.000, 0.68329, +0.04547, 0.04547, 19.11826, 0.71053, 0.49336, 0.000, 0.71053, +0.04646, 0.04646, 19.89841, 0.73715, 0.51997, 0.000, 0.73715/ DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ +0.03237, 0.03237, 1.16120, 0.21054, 0.00638, 0.000, 0.21054, +0.03533, 0.03533, 2.01965, 0.23144, 0.02704, 0.000, 0.23144, +0.03803, 0.03803, 2.88157, 0.25332, 0.04886, 0.000, 0.25332, +0.04051, 0.04051, 3.73789, 0.27564, 0.07123, 0.000, 0.27564, +0.04280, 0.04280, 4.54980, 0.29813, 0.09386, 0.000, 0.29813, +0.04494, 0.04494, 5.32816, 0.32054, 0.11647, 0.000, 0.32054, +0.04694, 0.04694, 6.07063, 0.34275, 0.13892, 0.000, 0.34275, +0.04882, 0.04882, 6.77683, 0.36465, 0.16110, 0.000, 0.36465, +0.05061, 0.05061, 7.44837, 0.38619, 0.18294, 0.000, 0.38619, +0.05229, 0.05229, 8.07461, 0.40723, 0.20430, 0.000, 0.40723, +0.05389, 0.05389, 8.67028, 0.42782, 0.22523, 0.000, 0.42782, +0.05542, 0.05542, 9.23921, 0.44798, 0.24574, 0.000, 0.44798, +0.05688, 0.05688, 9.78057, 0.46769, 0.26581, 0.000, 0.46769, +0.05828, 0.05828, 10.28380, 0.48678, 0.28525, 0.000, 0.48678, +0.05963, 0.05963, 10.77027, 0.50550, 0.30434, 0.000, 0.50550, +0.06092, 0.06092, 11.22747, 0.52368, 0.32288, 0.000, 0.52368, +0.06216, 0.06216, 11.66241, 0.54139, 0.34095, 0.000, 0.54139, +0.06336, 0.06336, 12.07892, 0.55869, 0.35862, 0.000, 0.55869, +0.06452, 0.06452, 12.47029, 0.57543, 0.37573, 0.000, 0.57543/ DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ +0.04175, 0.04175, 1.12987, 0.20573, 0.00581, 0.000, 0.20573, +0.04525, 0.04525, 1.86188, 0.22375, 0.02438, 0.000, 0.22375, +0.04839, 0.04839, 2.56833, 0.24237, 0.04361, 0.000, 0.24237, +0.05127, 0.05127, 3.24996, 0.26111, 0.06300, 0.000, 0.26111, +0.05390, 0.05390, 3.88091, 0.27976, 0.08233, 0.000, 0.27976, +0.05634, 0.05634, 4.47364, 0.29814, 0.10139, 0.000, 0.29814, +0.05861, 0.05861, 5.02897, 0.31614, 0.12008, 0.000, 0.31614, +0.06074, 0.06074, 5.54866, 0.33373, 0.13835, 0.000, 0.33373, +0.06274, 0.06274, 6.03555, 0.35086, 0.15616, 0.000, 0.35086, +0.06462, 0.06462, 6.48290, 0.36744, 0.17340, 0.000, 0.36744, +0.06641, 0.06641, 6.90295, 0.38352, 0.19015, 0.000, 0.38352, +0.06810, 0.06810, 7.29942, 0.39915, 0.20643, 0.000, 0.39915, +0.06972, 0.06972, 7.67236, 0.41432, 0.22223, 0.000, 0.41432, +0.07126, 0.07126, 8.01454, 0.42889, 0.23743, 0.000, 0.42889, +0.07273, 0.07273, 8.34228, 0.44310, 0.25226, 0.000, 0.44310, +0.07414, 0.07414, 8.64677, 0.45680, 0.26656, 0.000, 0.45680, +0.07549, 0.07549, 8.93352, 0.47006, 0.28041, 0.000, 0.47006, +0.07679, 0.07679, 9.20561, 0.48295, 0.29387, 0.000, 0.48295, +0.07804, 0.07804, 9.45843, 0.49534, 0.30683, 0.000, 0.49534/ DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ +0.04999, 0.04999, 1.10698, 0.20169, 0.00541, 0.000, 0.20169, +0.05388, 0.05388, 1.75554, 0.21768, 0.02251, 0.000, 0.21768, +0.05737, 0.05737, 2.36412, 0.23404, 0.03997, 0.000, 0.23404, +0.06054, 0.06054, 2.93908, 0.25036, 0.05737, 0.000, 0.25036, +0.06342, 0.06342, 3.46204, 0.26645, 0.07451, 0.000, 0.26645, +0.06608, 0.06608, 3.94599, 0.28216, 0.09125, 0.000, 0.28216, +0.06855, 0.06855, 4.39336, 0.29745, 0.10753, 0.000, 0.29745, +0.07085, 0.07085, 4.80691, 0.31226, 0.12331, 0.000, 0.31226, +0.07301, 0.07301, 5.19000, 0.32659, 0.13858, 0.000, 0.32659, +0.07503, 0.07503, 5.53794, 0.34036, 0.15326, 0.000, 0.34036, +0.07693, 0.07693, 5.86141, 0.35364, 0.16742, 0.000, 0.35364, +0.07874, 0.07874, 6.16391, 0.36646, 0.18110, 0.000, 0.36646, +0.08046, 0.08046, 6.44589, 0.37885, 0.19432, 0.000, 0.37885, +0.08208, 0.08208, 6.70189, 0.39067, 0.20695, 0.000, 0.39067, +0.08364, 0.08364, 6.94532, 0.40214, 0.21921, 0.000, 0.40214, +0.08512, 0.08512, 7.16934, 0.41315, 0.23098, 0.000, 0.41315, +0.08654, 0.08654, 7.37857, 0.42375, 0.24232, 0.000, 0.42375, +0.08790, 0.08790, 7.57561, 0.43400, 0.25330, 0.000, 0.43400, +0.08921, 0.08921, 7.75697, 0.44382, 0.26382, 0.000, 0.44382/ DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ +0.05745, 0.05745, 1.08866, 0.19812, 0.00510, 0.000, 0.19812, +0.06167, 0.06167, 1.67582, 0.21255, 0.02107, 0.000, 0.21255, +0.06542, 0.06542, 2.21492, 0.22719, 0.03719, 0.000, 0.22719, +0.06882, 0.06882, 2.71585, 0.24169, 0.05311, 0.000, 0.24169, +0.07190, 0.07190, 3.16511, 0.25588, 0.06865, 0.000, 0.25588, +0.07473, 0.07473, 3.57586, 0.26965, 0.08371, 0.000, 0.26965, +0.07735, 0.07735, 3.95142, 0.28295, 0.09824, 0.000, 0.28295, +0.07978, 0.07978, 4.29511, 0.29577, 0.11224, 0.000, 0.29577, +0.08205, 0.08205, 4.61052, 0.30810, 0.12571, 0.000, 0.30810, +0.08417, 0.08417, 4.89421, 0.31988, 0.13858, 0.000, 0.31988, +0.08616, 0.08616, 5.15574, 0.33118, 0.15094, 0.000, 0.33118, +0.08805, 0.08805, 5.39840, 0.34205, 0.16282, 0.000, 0.34205, +0.08984, 0.08984, 5.62287, 0.35250, 0.17424, 0.000, 0.35250, +0.09152, 0.09152, 5.82475, 0.36242, 0.18511, 0.000, 0.36242, +0.09313, 0.09313, 6.01554, 0.37201, 0.19561, 0.000, 0.37201, +0.09466, 0.09466, 6.18964, 0.38117, 0.20566, 0.000, 0.38117, +0.09613, 0.09613, 6.35104, 0.38996, 0.21530, 0.000, 0.38996, +0.09753, 0.09753, 6.50204, 0.39843, 0.22461, 0.000, 0.39843, +0.09886, 0.09886, 6.63979, 0.40650, 0.23349, 0.000, 0.40650/ DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ +0.08813, 0.08813, 1.02649, 0.18386, 0.00411, 0.000, 0.18386, +0.09335, 0.09335, 1.44003, 0.19349, 0.01667, 0.000, 0.19349, +0.09791, 0.09791, 1.79464, 0.20302, 0.02885, 0.000, 0.20302, +0.10196, 0.10196, 2.10680, 0.21223, 0.04048, 0.000, 0.21223, +0.10559, 0.10559, 2.37372, 0.22101, 0.05152, 0.000, 0.22101, +0.10887, 0.10887, 2.60773, 0.22935, 0.06193, 0.000, 0.22935, +0.11186, 0.11186, 2.81355, 0.23722, 0.07175, 0.000, 0.23722, +0.11460, 0.11460, 2.99513, 0.24465, 0.08100, 0.000, 0.24465, +0.11714, 0.11714, 3.15608, 0.25166, 0.08973, 0.000, 0.25166, +0.11947, 0.11947, 3.29546, 0.25822, 0.09791, 0.000, 0.25822, +0.12164, 0.12164, 3.41981, 0.26439, 0.10562, 0.000, 0.26439, +0.12367, 0.12367, 3.53169, 0.27023, 0.11293, 0.000, 0.27023, +0.12558, 0.12558, 3.63197, 0.27575, 0.11984, 0.000, 0.27575, +0.12736, 0.12736, 3.71854, 0.28088, 0.12631, 0.000, 0.28088, +0.12905, 0.12905, 3.79831, 0.28579, 0.13248, 0.000, 0.28579, +0.13063, 0.13063, 3.86833, 0.29039, 0.13830, 0.000, 0.29039, +0.13213, 0.13213, 3.93107, 0.29473, 0.14382, 0.000, 0.29473, +0.13356, 0.13356, 3.98797, 0.29886, 0.14908, 0.000, 0.29886, +0.13490, 0.13490, 4.03761, 0.30273, 0.15403, 0.000, 0.30273/ DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ +0.13362, 0.13362, 0.94987, 0.16274, 0.00313, 0.000, 0.16274, +0.13951, 0.13951, 1.21337, 0.16778, 0.01238, 0.000, 0.16778, +0.14452, 0.14452, 1.42343, 0.17263, 0.02095, 0.000, 0.17263, +0.14889, 0.14889, 1.59704, 0.17717, 0.02883, 0.000, 0.17717, +0.15269, 0.15269, 1.73665, 0.18135, 0.03604, 0.000, 0.18135, +0.15606, 0.15606, 1.85229, 0.18519, 0.04264, 0.000, 0.18519, +0.15907, 0.15907, 1.94848, 0.18870, 0.04870, 0.000, 0.18870, +0.16178, 0.16178, 2.02872, 0.19191, 0.05426, 0.000, 0.19191, +0.16424, 0.16424, 2.09596, 0.19484, 0.05939, 0.000, 0.19484, +0.16645, 0.16645, 2.15029, 0.19749, 0.06408, 0.000, 0.19749, +0.16847, 0.16847, 2.19588, 0.19990, 0.06841, 0.000, 0.19990, +0.17034, 0.17034, 2.23447, 0.20211, 0.07244, 0.000, 0.20211, +0.17206, 0.17206, 2.26677, 0.20414, 0.07617, 0.000, 0.20414, +0.17362, 0.17362, 2.29184, 0.20595, 0.07960, 0.000, 0.20595, +0.17509, 0.17509, 2.31353, 0.20764, 0.08282, 0.000, 0.20764, +0.17644, 0.17644, 2.33039, 0.20915, 0.08580, 0.000, 0.20915, +0.17770, 0.17770, 2.34379, 0.21054, 0.08858, 0.000, 0.21054, +0.17888, 0.17888, 2.35456, 0.21182, 0.09119, 0.000, 0.21182, +0.17997, 0.17997, 2.36198, 0.21296, 0.09361, 0.000, 0.21296/ DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ +0.16875, 0.16875, 0.89321, 0.14580, 0.00256, 0.000, 0.14580, +0.17455, 0.17455, 1.07935, 0.14839, 0.00996, 0.000, 0.14839, +0.17938, 0.17938, 1.22043, 0.15081, 0.01660, 0.000, 0.15081, +0.18348, 0.18348, 1.33146, 0.15300, 0.02254, 0.000, 0.15300, +0.18698, 0.18698, 1.41606, 0.15494, 0.02783, 0.000, 0.15494, +0.19001, 0.19001, 1.48247, 0.15664, 0.03259, 0.000, 0.15664, +0.19266, 0.19266, 1.53461, 0.15814, 0.03686, 0.000, 0.15814, +0.19499, 0.19499, 1.57542, 0.15943, 0.04071, 0.000, 0.15943, +0.19707, 0.19707, 1.60727, 0.16056, 0.04420, 0.000, 0.16056, +0.19888, 0.19888, 1.63045, 0.16150, 0.04734, 0.000, 0.16150, +0.20051, 0.20051, 1.64797, 0.16231, 0.05020, 0.000, 0.16231, +0.20198, 0.20198, 1.66112, 0.16300, 0.05281, 0.000, 0.16300, +0.20331, 0.20331, 1.67044, 0.16359, 0.05520, 0.000, 0.16359, +0.20448, 0.20448, 1.67533, 0.16405, 0.05736, 0.000, 0.16405, +0.20556, 0.20556, 1.67841, 0.16445, 0.05937, 0.000, 0.16445, +0.20652, 0.20652, 1.67871, 0.16476, 0.06120, 0.000, 0.16476, +0.20740, 0.20740, 1.67716, 0.16499, 0.06288, 0.000, 0.16499, +0.20820, 0.20820, 1.67429, 0.16518, 0.06444, 0.000, 0.16518, +0.20892, 0.20892, 1.66964, 0.16529, 0.06587, 0.000, 0.16529/ DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ +0.19769, 0.19769, 0.84506, 0.13114, 0.00216, 0.000, 0.13114, +0.20301, 0.20301, 0.98118, 0.13217, 0.00831, 0.000, 0.13217, +0.20730, 0.20730, 1.07967, 0.13308, 0.01367, 0.000, 0.13308, +0.21087, 0.21087, 1.15344, 0.13386, 0.01836, 0.000, 0.13386, +0.21381, 0.21381, 1.20628, 0.13446, 0.02246, 0.000, 0.13446, +0.21629, 0.21629, 1.24504, 0.13493, 0.02607, 0.000, 0.13493, +0.21840, 0.21840, 1.27308, 0.13526, 0.02926, 0.000, 0.13526, +0.22020, 0.22020, 1.29284, 0.13548, 0.03210, 0.000, 0.13548, +0.22175, 0.22175, 1.30624, 0.13560, 0.03463, 0.000, 0.13560, +0.22305, 0.22305, 1.31360, 0.13562, 0.03687, 0.000, 0.13562, +0.22417, 0.22417, 1.31720, 0.13556, 0.03888, 0.000, 0.13556, +0.22515, 0.22515, 1.31802, 0.13545, 0.04070, 0.000, 0.13545, +0.22600, 0.22600, 1.31645, 0.13528, 0.04234, 0.000, 0.13528, +0.22670, 0.22670, 1.31207, 0.13505, 0.04380, 0.000, 0.13505, +0.22732, 0.22732, 1.30677, 0.13479, 0.04515, 0.000, 0.13479, +0.22785, 0.22785, 1.29985, 0.13448, 0.04635, 0.000, 0.13448, +0.22829, 0.22829, 1.29196, 0.13415, 0.04745, 0.000, 0.13415, +0.22867, 0.22867, 1.28347, 0.13379, 0.04845, 0.000, 0.13379, +0.22897, 0.22897, 1.27402, 0.13340, 0.04936, 0.000, 0.13340/ DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ +0.22220, 0.22220, 0.80186, 0.11802, 0.00186, 0.000, 0.11802, +0.22677, 0.22677, 0.90221, 0.11800, 0.00708, 0.000, 0.11800, +0.23033, 0.23033, 0.97123, 0.11792, 0.01151, 0.000, 0.11792, +0.23317, 0.23317, 1.01994, 0.11777, 0.01532, 0.000, 0.11777, +0.23542, 0.23542, 1.05194, 0.11753, 0.01859, 0.000, 0.11753, +0.23722, 0.23722, 1.07300, 0.11722, 0.02142, 0.000, 0.11722, +0.23868, 0.23868, 1.08596, 0.11684, 0.02388, 0.000, 0.11684, +0.23985, 0.23985, 1.09285, 0.11640, 0.02604, 0.000, 0.11640, +0.24079, 0.24079, 1.09522, 0.11593, 0.02794, 0.000, 0.11593, +0.24151, 0.24151, 1.09336, 0.11539, 0.02960, 0.000, 0.11539, +0.24207, 0.24207, 1.08904, 0.11483, 0.03107, 0.000, 0.11483, +0.24251, 0.24251, 1.08301, 0.11426, 0.03238, 0.000, 0.11426, +0.24284, 0.24284, 1.07554, 0.11367, 0.03355, 0.000, 0.11367, +0.24304, 0.24304, 1.06632, 0.11304, 0.03457, 0.000, 0.11304, +0.24318, 0.24318, 1.05676, 0.11242, 0.03551, 0.000, 0.11242, +0.24323, 0.24323, 1.04631, 0.11179, 0.03633, 0.000, 0.11179, +0.24322, 0.24322, 1.03543, 0.11114, 0.03707, 0.000, 0.11114, +0.24317, 0.24317, 1.02439, 0.11050, 0.03774, 0.000, 0.11050, +0.24304, 0.24304, 1.01291, 0.10985, 0.03833, 0.000, 0.10985/ DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ +0.24801, 0.24801, 0.75284, 0.10129, 0.00158, 0.000, 0.10129, +0.25131, 0.25131, 0.82075, 0.10057, 0.00592, 0.000, 0.10057, +0.25367, 0.25367, 0.86303, 0.09985, 0.00954, 0.000, 0.09985, +0.25538, 0.25538, 0.88939, 0.09912, 0.01258, 0.000, 0.09912, +0.25656, 0.25656, 0.90315, 0.09835, 0.01515, 0.000, 0.09835, +0.25735, 0.25735, 0.90907, 0.09757, 0.01733, 0.000, 0.09757, +0.25785, 0.25785, 0.90941, 0.09677, 0.01920, 0.000, 0.09677, +0.25812, 0.25812, 0.90579, 0.09596, 0.02081, 0.000, 0.09596, +0.25820, 0.25820, 0.89937, 0.09515, 0.02221, 0.000, 0.09515, +0.25810, 0.25810, 0.89037, 0.09433, 0.02342, 0.000, 0.09433, +0.25788, 0.25788, 0.88010, 0.09350, 0.02447, 0.000, 0.09350, +0.25758, 0.25758, 0.86905, 0.09269, 0.02539, 0.000, 0.09269, +0.25720, 0.25720, 0.85743, 0.09189, 0.02620, 0.000, 0.09189, +0.25672, 0.25672, 0.84495, 0.09108, 0.02690, 0.000, 0.09108, +0.25621, 0.25621, 0.83262, 0.09029, 0.02753, 0.000, 0.09029, +0.25563, 0.25563, 0.82001, 0.08951, 0.02808, 0.000, 0.08951, +0.25502, 0.25502, 0.80743, 0.08874, 0.02856, 0.000, 0.08874, +0.25439, 0.25439, 0.79505, 0.08798, 0.02898, 0.000, 0.08798, +0.25372, 0.25372, 0.78263, 0.08723, 0.02935, 0.000, 0.08723/ DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ +0.26951, 0.26951, 0.70727, 0.08710, 0.00135, 0.000, 0.08710, +0.27138, 0.27138, 0.75098, 0.08595, 0.00503, 0.000, 0.08595, +0.27242, 0.27242, 0.77407, 0.08484, 0.00803, 0.000, 0.08484, +0.27291, 0.27291, 0.78491, 0.08377, 0.01051, 0.000, 0.08377, +0.27295, 0.27295, 0.78643, 0.08270, 0.01255, 0.000, 0.08270, +0.27268, 0.27268, 0.78248, 0.08166, 0.01427, 0.000, 0.08166, +0.27220, 0.27220, 0.77489, 0.08063, 0.01572, 0.000, 0.08063, +0.27154, 0.27154, 0.76487, 0.07963, 0.01695, 0.000, 0.07963, +0.27075, 0.27075, 0.75331, 0.07865, 0.01800, 0.000, 0.07865, +0.26983, 0.26983, 0.74032, 0.07768, 0.01889, 0.000, 0.07768, +0.26884, 0.26884, 0.72687, 0.07673, 0.01965, 0.000, 0.07673, +0.26780, 0.26780, 0.71331, 0.07581, 0.02031, 0.000, 0.07581, +0.26673, 0.26673, 0.69972, 0.07492, 0.02089, 0.000, 0.07492, +0.26558, 0.26558, 0.68587, 0.07404, 0.02137, 0.000, 0.07404, +0.26445, 0.26445, 0.67249, 0.07319, 0.02180, 0.000, 0.07319, +0.26328, 0.26328, 0.65921, 0.07236, 0.02216, 0.000, 0.07236, +0.26210, 0.26210, 0.64624, 0.07155, 0.02247, 0.000, 0.07155, +0.26092, 0.26092, 0.63368, 0.07077, 0.02275, 0.000, 0.07077, +0.25972, 0.25972, 0.62134, 0.07000, 0.02298, 0.000, 0.07000/ DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ +0.28743, 0.28743, 0.66438, 0.07495, 0.00117, 0.000, 0.07495, +0.28777, 0.28777, 0.68946, 0.07354, 0.00432, 0.000, 0.07354, +0.28741, 0.28741, 0.69830, 0.07221, 0.00683, 0.000, 0.07221, +0.28664, 0.28664, 0.69802, 0.07094, 0.00887, 0.000, 0.07094, +0.28551, 0.28551, 0.69105, 0.06971, 0.01052, 0.000, 0.06971, +0.28417, 0.28417, 0.68051, 0.06853, 0.01188, 0.000, 0.06853, +0.28269, 0.28269, 0.66780, 0.06739, 0.01302, 0.000, 0.06739, +0.28111, 0.28111, 0.65383, 0.06629, 0.01396, 0.000, 0.06629, +0.27947, 0.27947, 0.63925, 0.06524, 0.01476, 0.000, 0.06524, +0.27774, 0.27774, 0.62408, 0.06421, 0.01542, 0.000, 0.06421, +0.27600, 0.27600, 0.60902, 0.06322, 0.01598, 0.000, 0.06322, +0.27426, 0.27426, 0.59431, 0.06228, 0.01645, 0.000, 0.06228, +0.27252, 0.27252, 0.57995, 0.06136, 0.01686, 0.000, 0.06136, +0.27075, 0.27075, 0.56574, 0.06047, 0.01719, 0.000, 0.06047, +0.26902, 0.26902, 0.55218, 0.05962, 0.01748, 0.000, 0.05962, +0.26729, 0.26729, 0.53899, 0.05879, 0.01772, 0.000, 0.05879, +0.26558, 0.26558, 0.52628, 0.05799, 0.01792, 0.000, 0.05799, +0.26389, 0.26389, 0.51410, 0.05722, 0.01809, 0.000, 0.05722, +0.26221, 0.26221, 0.50230, 0.05647, 0.01822, 0.000, 0.05647/ DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ +0.30227, 0.30227, 0.62370, 0.06441, 0.00102, 0.000, 0.06441, +0.30100, 0.30100, 0.63418, 0.06286, 0.00373, 0.000, 0.06286, +0.29922, 0.29922, 0.63226, 0.06141, 0.00584, 0.000, 0.06141, +0.29715, 0.29715, 0.62384, 0.06005, 0.00753, 0.000, 0.06005, +0.29485, 0.29485, 0.61090, 0.05875, 0.00888, 0.000, 0.05875, +0.29245, 0.29245, 0.59590, 0.05752, 0.00997, 0.000, 0.05752, +0.28999, 0.28999, 0.57989, 0.05634, 0.01086, 0.000, 0.05634, +0.28751, 0.28751, 0.56353, 0.05522, 0.01159, 0.000, 0.05522, +0.28503, 0.28503, 0.54724, 0.05416, 0.01220, 0.000, 0.05416, +0.28254, 0.28254, 0.53099, 0.05313, 0.01269, 0.000, 0.05313, +0.28007, 0.28007, 0.51527, 0.05215, 0.01309, 0.000, 0.05215, +0.27766, 0.27766, 0.50020, 0.05122, 0.01343, 0.000, 0.05122, +0.27529, 0.27529, 0.48577, 0.05033, 0.01372, 0.000, 0.05033, +0.27293, 0.27293, 0.47174, 0.04946, 0.01394, 0.000, 0.04946, +0.27065, 0.27065, 0.45851, 0.04864, 0.01413, 0.000, 0.04864, +0.26839, 0.26839, 0.44579, 0.04785, 0.01428, 0.000, 0.04785, +0.26618, 0.26618, 0.43367, 0.04709, 0.01440, 0.000, 0.04709, +0.26403, 0.26403, 0.42215, 0.04636, 0.01450, 0.000, 0.04636, +0.26191, 0.26191, 0.41110, 0.04565, 0.01457, 0.000, 0.04565/ DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ +0.31438, 0.31438, 0.58494, 0.05519, 0.00089, 0.000, 0.05519, +0.31147, 0.31147, 0.58388, 0.05360, 0.00323, 0.000, 0.05360, +0.30824, 0.30824, 0.57373, 0.05212, 0.00502, 0.000, 0.05212, +0.30488, 0.30488, 0.55933, 0.05073, 0.00643, 0.000, 0.05073, +0.30143, 0.30143, 0.54219, 0.04943, 0.00752, 0.000, 0.04943, +0.29797, 0.29797, 0.52421, 0.04820, 0.00840, 0.000, 0.04820, +0.29456, 0.29456, 0.50614, 0.04704, 0.00910, 0.000, 0.04704, +0.29121, 0.29121, 0.48841, 0.04594, 0.00967, 0.000, 0.04594, +0.28793, 0.28793, 0.47128, 0.04491, 0.01013, 0.000, 0.04491, +0.28470, 0.28470, 0.45465, 0.04392, 0.01049, 0.000, 0.04392, +0.28155, 0.28155, 0.43885, 0.04298, 0.01078, 0.000, 0.04298, +0.27851, 0.27851, 0.42393, 0.04209, 0.01103, 0.000, 0.04209, +0.27555, 0.27555, 0.40982, 0.04124, 0.01122, 0.000, 0.04124, +0.27264, 0.27264, 0.39631, 0.04043, 0.01137, 0.000, 0.04043, +0.26984, 0.26984, 0.38366, 0.03966, 0.01149, 0.000, 0.03966, +0.26711, 0.26711, 0.37164, 0.03892, 0.01157, 0.000, 0.03892, +0.26445, 0.26445, 0.36027, 0.03822, 0.01164, 0.000, 0.03822, +0.26187, 0.26187, 0.34955, 0.03754, 0.01169, 0.000, 0.03754, +0.25935, 0.25935, 0.33934, 0.03689, 0.01172, 0.000, 0.03689/ DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ +0.32405, 0.32405, 0.54796, 0.04709, 0.00078, 0.000, 0.04709, +0.31947, 0.31947, 0.53787, 0.04556, 0.00280, 0.000, 0.04556, +0.31477, 0.31477, 0.52148, 0.04413, 0.00432, 0.000, 0.04413, +0.31013, 0.31013, 0.50268, 0.04281, 0.00550, 0.000, 0.04281, +0.30553, 0.30553, 0.48261, 0.04156, 0.00640, 0.000, 0.04156, +0.30105, 0.30105, 0.46269, 0.04039, 0.00711, 0.000, 0.04039, +0.29671, 0.29671, 0.44340, 0.03930, 0.00767, 0.000, 0.03930, +0.29252, 0.29252, 0.42498, 0.03827, 0.00811, 0.000, 0.03827, +0.28847, 0.28847, 0.40757, 0.03731, 0.00847, 0.000, 0.03731, +0.28454, 0.28454, 0.39100, 0.03639, 0.00874, 0.000, 0.03639, +0.28075, 0.28075, 0.37549, 0.03552, 0.00895, 0.000, 0.03552, +0.27710, 0.27710, 0.36100, 0.03470, 0.00913, 0.000, 0.03470, +0.27360, 0.27360, 0.34744, 0.03393, 0.00926, 0.000, 0.03393, +0.27018, 0.27018, 0.33461, 0.03319, 0.00935, 0.000, 0.03319, +0.26690, 0.26690, 0.32268, 0.03249, 0.00943, 0.000, 0.03249, +0.26372, 0.26372, 0.31144, 0.03182, 0.00948, 0.000, 0.03182, +0.26065, 0.26065, 0.30089, 0.03118, 0.00951, 0.000, 0.03118, +0.25769, 0.25769, 0.29099, 0.03057, 0.00953, 0.000, 0.03057, +0.25480, 0.25480, 0.28164, 0.02999, 0.00953, 0.000, 0.02999/ DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ +0.33149, 0.33149, 0.51257, 0.03996, 0.00068, 0.000, 0.03996, +0.32523, 0.32523, 0.49539, 0.03854, 0.00242, 0.000, 0.03854, +0.31909, 0.31909, 0.47426, 0.03722, 0.00372, 0.000, 0.03722, +0.31318, 0.31318, 0.45230, 0.03600, 0.00471, 0.000, 0.03600, +0.30746, 0.30746, 0.43026, 0.03485, 0.00545, 0.000, 0.03485, +0.30199, 0.30199, 0.40916, 0.03379, 0.00603, 0.000, 0.03379, +0.29676, 0.29676, 0.38927, 0.03279, 0.00648, 0.000, 0.03279, +0.29177, 0.29177, 0.37068, 0.03185, 0.00683, 0.000, 0.03185, +0.28700, 0.28700, 0.35339, 0.03098, 0.00710, 0.000, 0.03098, +0.28241, 0.28241, 0.33720, 0.03015, 0.00731, 0.000, 0.03015, +0.27801, 0.27801, 0.32220, 0.02937, 0.00747, 0.000, 0.02937, +0.27382, 0.27382, 0.30834, 0.02863, 0.00759, 0.000, 0.02863, +0.26981, 0.26981, 0.29548, 0.02794, 0.00768, 0.000, 0.02794, +0.26592, 0.26592, 0.28344, 0.02728, 0.00774, 0.000, 0.02728, +0.26221, 0.26221, 0.27231, 0.02666, 0.00779, 0.000, 0.02666, +0.25863, 0.25863, 0.26189, 0.02606, 0.00781, 0.000, 0.02606, +0.25518, 0.25518, 0.25218, 0.02550, 0.00782, 0.000, 0.02550, +0.25187, 0.25187, 0.24312, 0.02496, 0.00782, 0.000, 0.02496, +0.24866, 0.24866, 0.23461, 0.02445, 0.00781, 0.000, 0.02445/ DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ +0.33688, 0.33688, 0.47859, 0.03367, 0.00059, 0.000, 0.03367, +0.32897, 0.32897, 0.45578, 0.03238, 0.00210, 0.000, 0.03238, +0.32141, 0.32141, 0.43109, 0.03118, 0.00320, 0.000, 0.03118, +0.31429, 0.31429, 0.40693, 0.03007, 0.00403, 0.000, 0.03007, +0.30750, 0.30750, 0.38368, 0.02904, 0.00464, 0.000, 0.02904, +0.30109, 0.30109, 0.36202, 0.02807, 0.00511, 0.000, 0.02807, +0.29502, 0.29502, 0.34202, 0.02717, 0.00547, 0.000, 0.02717, +0.28928, 0.28928, 0.32364, 0.02634, 0.00574, 0.000, 0.02634, +0.28384, 0.28384, 0.30678, 0.02555, 0.00595, 0.000, 0.02555, +0.27864, 0.27864, 0.29119, 0.02481, 0.00611, 0.000, 0.02481, +0.27370, 0.27370, 0.27690, 0.02412, 0.00622, 0.000, 0.02412, +0.26901, 0.26901, 0.26380, 0.02347, 0.00630, 0.000, 0.02347, +0.26454, 0.26454, 0.25175, 0.02286, 0.00636, 0.000, 0.02286, +0.26023, 0.26023, 0.24055, 0.02228, 0.00640, 0.000, 0.02228, +0.25614, 0.25614, 0.23027, 0.02173, 0.00642, 0.000, 0.02173, +0.25221, 0.25221, 0.22071, 0.02121, 0.00642, 0.000, 0.02121, +0.24843, 0.24843, 0.21184, 0.02072, 0.00642, 0.000, 0.02072, +0.24482, 0.24482, 0.20361, 0.02025, 0.00641, 0.000, 0.02025, +0.24133, 0.24133, 0.19592, 0.01980, 0.00638, 0.000, 0.01980/ DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ +0.34037, 0.34037, 0.44594, 0.02813, 0.00051, 0.000, 0.02813, +0.33085, 0.33085, 0.41872, 0.02698, 0.00181, 0.000, 0.02698, +0.32193, 0.32193, 0.39145, 0.02591, 0.00275, 0.000, 0.02591, +0.31363, 0.31363, 0.36585, 0.02492, 0.00344, 0.000, 0.02492, +0.30583, 0.30583, 0.34199, 0.02400, 0.00394, 0.000, 0.02400, +0.29853, 0.29853, 0.32024, 0.02314, 0.00432, 0.000, 0.02314, +0.29169, 0.29169, 0.30049, 0.02235, 0.00461, 0.000, 0.02235, +0.28526, 0.28526, 0.28259, 0.02160, 0.00482, 0.000, 0.02160, +0.27921, 0.27921, 0.26637, 0.02091, 0.00498, 0.000, 0.02091, +0.27345, 0.27345, 0.25155, 0.02027, 0.00509, 0.000, 0.02027, +0.26802, 0.26802, 0.23808, 0.01966, 0.00517, 0.000, 0.01966, +0.26288, 0.26288, 0.22583, 0.01909, 0.00522, 0.000, 0.01909, +0.25800, 0.25800, 0.21463, 0.01856, 0.00526, 0.000, 0.01856, +0.25332, 0.25332, 0.20432, 0.01805, 0.00527, 0.000, 0.01805, +0.24890, 0.24890, 0.19489, 0.01758, 0.00528, 0.000, 0.01758, +0.24466, 0.24466, 0.18618, 0.01713, 0.00527, 0.000, 0.01713, +0.24060, 0.24060, 0.17814, 0.01670, 0.00525, 0.000, 0.01670, +0.23673, 0.23673, 0.17072, 0.01630, 0.00523, 0.000, 0.01630, +0.23301, 0.23301, 0.16381, 0.01591, 0.00520, 0.000, 0.01591/ DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ +0.34210, 0.34210, 0.41457, 0.02327, 0.00045, 0.000, 0.02327, +0.33100, 0.33100, 0.38398, 0.02227, 0.00156, 0.000, 0.02227, +0.32077, 0.32077, 0.35494, 0.02133, 0.00235, 0.000, 0.02133, +0.31136, 0.31136, 0.32852, 0.02046, 0.00293, 0.000, 0.02046, +0.30261, 0.30261, 0.30451, 0.01965, 0.00334, 0.000, 0.01965, +0.29449, 0.29449, 0.28303, 0.01890, 0.00364, 0.000, 0.01890, +0.28693, 0.28693, 0.26380, 0.01821, 0.00387, 0.000, 0.01821, +0.27987, 0.27987, 0.24659, 0.01756, 0.00403, 0.000, 0.01756, +0.27326, 0.27326, 0.23116, 0.01696, 0.00415, 0.000, 0.01696, +0.26701, 0.26701, 0.21720, 0.01640, 0.00422, 0.000, 0.01640, +0.26113, 0.26113, 0.20462, 0.01587, 0.00427, 0.000, 0.01587, +0.25560, 0.25560, 0.19326, 0.01538, 0.00431, 0.000, 0.01538, +0.25037, 0.25037, 0.18294, 0.01492, 0.00432, 0.000, 0.01492, +0.24537, 0.24537, 0.17351, 0.01449, 0.00432, 0.000, 0.01449, +0.24066, 0.24066, 0.16492, 0.01408, 0.00432, 0.000, 0.01408, +0.23616, 0.23616, 0.15704, 0.01370, 0.00430, 0.000, 0.01370, +0.23187, 0.23187, 0.14980, 0.01334, 0.00428, 0.000, 0.01334, +0.22778, 0.22778, 0.14314, 0.01299, 0.00425, 0.000, 0.01299, +0.22386, 0.22386, 0.13698, 0.01267, 0.00422, 0.000, 0.01267/ DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ +0.34216, 0.34216, 0.38444, 0.01904, 0.00039, 0.000, 0.01904, +0.32956, 0.32956, 0.35137, 0.01818, 0.00135, 0.000, 0.01818, +0.31808, 0.31808, 0.32121, 0.01737, 0.00201, 0.000, 0.01737, +0.30763, 0.30763, 0.29448, 0.01662, 0.00249, 0.000, 0.01662, +0.29799, 0.29799, 0.27071, 0.01592, 0.00282, 0.000, 0.01592, +0.28911, 0.28911, 0.24976, 0.01528, 0.00306, 0.000, 0.01528, +0.28089, 0.28089, 0.23126, 0.01468, 0.00323, 0.000, 0.01468, +0.27326, 0.27326, 0.21489, 0.01412, 0.00335, 0.000, 0.01412, +0.26615, 0.26615, 0.20034, 0.01361, 0.00344, 0.000, 0.01361, +0.25947, 0.25947, 0.18731, 0.01313, 0.00349, 0.000, 0.01313, +0.25320, 0.25320, 0.17565, 0.01268, 0.00352, 0.000, 0.01268, +0.24733, 0.24733, 0.16519, 0.01227, 0.00354, 0.000, 0.01227, +0.24180, 0.24180, 0.15576, 0.01188, 0.00354, 0.000, 0.01188, +0.23653, 0.23653, 0.14719, 0.01151, 0.00353, 0.000, 0.01151, +0.23158, 0.23158, 0.13942, 0.01117, 0.00351, 0.000, 0.01117, +0.22686, 0.22686, 0.13233, 0.01084, 0.00349, 0.000, 0.01084, +0.22237, 0.22237, 0.12585, 0.01054, 0.00347, 0.000, 0.01054, +0.21812, 0.21812, 0.11991, 0.01025, 0.00344, 0.000, 0.01025, +0.21404, 0.21404, 0.11444, 0.00998, 0.00340, 0.000, 0.00998/ DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ +0.34067, 0.34067, 0.35551, 0.01538, 0.00033, 0.000, 0.01538, +0.32662, 0.32662, 0.32073, 0.01466, 0.00115, 0.000, 0.01466, +0.31396, 0.31396, 0.29002, 0.01397, 0.00171, 0.000, 0.01397, +0.30253, 0.30253, 0.26339, 0.01334, 0.00210, 0.000, 0.01334, +0.29208, 0.29208, 0.24015, 0.01275, 0.00237, 0.000, 0.01275, +0.28251, 0.28251, 0.21995, 0.01220, 0.00256, 0.000, 0.01220, +0.27370, 0.27370, 0.20233, 0.01169, 0.00269, 0.000, 0.01169, +0.26557, 0.26557, 0.18688, 0.01123, 0.00278, 0.000, 0.01123, +0.25802, 0.25802, 0.17329, 0.01079, 0.00284, 0.000, 0.01079, +0.25096, 0.25096, 0.16122, 0.01039, 0.00287, 0.000, 0.01039, +0.24437, 0.24437, 0.15050, 0.01001, 0.00288, 0.000, 0.01001, +0.23820, 0.23820, 0.14094, 0.00966, 0.00289, 0.000, 0.00966, +0.23242, 0.23242, 0.13237, 0.00934, 0.00288, 0.000, 0.00934, +0.22693, 0.22693, 0.12462, 0.00903, 0.00286, 0.000, 0.00903, +0.22178, 0.22178, 0.11765, 0.00875, 0.00284, 0.000, 0.00875, +0.21689, 0.21689, 0.11131, 0.00848, 0.00282, 0.000, 0.00848, +0.21226, 0.21226, 0.10554, 0.00823, 0.00279, 0.000, 0.00823, +0.20787, 0.20787, 0.10027, 0.00799, 0.00276, 0.000, 0.00799, +0.20367, 0.20367, 0.09544, 0.00776, 0.00273, 0.000, 0.00776/ DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ +0.33769, 0.33769, 0.32780, 0.01266, 0.00029, 0.000, 0.01266, +0.32227, 0.32227, 0.29201, 0.01205, 0.00099, 0.000, 0.01205, +0.30851, 0.30851, 0.26124, 0.01146, 0.00146, 0.000, 0.01146, +0.29619, 0.29619, 0.23506, 0.01092, 0.00178, 0.000, 0.01092, +0.28499, 0.28499, 0.21257, 0.01041, 0.00200, 0.000, 0.01041, +0.27480, 0.27480, 0.19327, 0.00993, 0.00215, 0.000, 0.00993, +0.26547, 0.26547, 0.17663, 0.00950, 0.00225, 0.000, 0.00950, +0.25689, 0.25689, 0.16218, 0.00910, 0.00232, 0.000, 0.00910, +0.24897, 0.24897, 0.14956, 0.00873, 0.00236, 0.000, 0.00873, +0.24159, 0.24159, 0.13845, 0.00839, 0.00238, 0.000, 0.00839, +0.23472, 0.23472, 0.12864, 0.00807, 0.00238, 0.000, 0.00807, +0.22832, 0.22832, 0.11996, 0.00777, 0.00238, 0.000, 0.00777, +0.22233, 0.22233, 0.11221, 0.00750, 0.00237, 0.000, 0.00750, +0.21667, 0.21667, 0.10526, 0.00724, 0.00235, 0.000, 0.00724, +0.21137, 0.21137, 0.09902, 0.00700, 0.00233, 0.000, 0.00700, +0.20635, 0.20635, 0.09338, 0.00677, 0.00230, 0.000, 0.00677, +0.20161, 0.20161, 0.08826, 0.00656, 0.00227, 0.000, 0.00656, +0.19712, 0.19712, 0.08362, 0.00636, 0.00224, 0.000, 0.00636, +0.19285, 0.19285, 0.07937, 0.00617, 0.00221, 0.000, 0.00617/ DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ +0.33330, 0.33330, 0.30123, 0.01046, 0.00025, 0.000, 0.01046, +0.31661, 0.31661, 0.26502, 0.00993, 0.00085, 0.000, 0.00993, +0.30183, 0.30183, 0.23458, 0.00943, 0.00124, 0.000, 0.00943, +0.28869, 0.28869, 0.20913, 0.00896, 0.00151, 0.000, 0.00896, +0.27683, 0.27683, 0.18757, 0.00852, 0.00169, 0.000, 0.00852, +0.26609, 0.26609, 0.16930, 0.00811, 0.00180, 0.000, 0.00811, +0.25631, 0.25631, 0.15370, 0.00774, 0.00188, 0.000, 0.00774, +0.24736, 0.24736, 0.14028, 0.00740, 0.00193, 0.000, 0.00740, +0.23913, 0.23913, 0.12866, 0.00708, 0.00196, 0.000, 0.00708, +0.23148, 0.23148, 0.11850, 0.00679, 0.00197, 0.000, 0.00679, +0.22440, 0.22440, 0.10960, 0.00652, 0.00197, 0.000, 0.00652, +0.21781, 0.21781, 0.10176, 0.00627, 0.00196, 0.000, 0.00627, +0.21167, 0.21167, 0.09480, 0.00604, 0.00194, 0.000, 0.00604, +0.20588, 0.20588, 0.08860, 0.00582, 0.00192, 0.000, 0.00582, +0.20048, 0.20048, 0.08305, 0.00562, 0.00190, 0.000, 0.00562, +0.19538, 0.19538, 0.07806, 0.00543, 0.00188, 0.000, 0.00543, +0.19056, 0.19056, 0.07356, 0.00525, 0.00185, 0.000, 0.00525, +0.18602, 0.18602, 0.06949, 0.00508, 0.00182, 0.000, 0.00508, +0.18170, 0.18170, 0.06578, 0.00492, 0.00180, 0.000, 0.00492/ DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ +0.32759, 0.32759, 0.27579, 0.00849, 0.00021, 0.000, 0.00849, +0.30970, 0.30970, 0.23961, 0.00805, 0.00072, 0.000, 0.00805, +0.29401, 0.29401, 0.20983, 0.00763, 0.00104, 0.000, 0.00763, +0.28014, 0.28014, 0.18533, 0.00723, 0.00126, 0.000, 0.00723, +0.26769, 0.26769, 0.16487, 0.00686, 0.00141, 0.000, 0.00686, +0.25649, 0.25649, 0.14771, 0.00652, 0.00150, 0.000, 0.00652, +0.24633, 0.24633, 0.13321, 0.00621, 0.00156, 0.000, 0.00621, +0.23708, 0.23708, 0.12085, 0.00593, 0.00159, 0.000, 0.00593, +0.22860, 0.22860, 0.11022, 0.00566, 0.00161, 0.000, 0.00566, +0.22075, 0.22075, 0.10100, 0.00542, 0.00161, 0.000, 0.00542, +0.21350, 0.21350, 0.09298, 0.00519, 0.00161, 0.000, 0.00519, +0.20679, 0.20679, 0.08596, 0.00498, 0.00160, 0.000, 0.00498, +0.20055, 0.20055, 0.07976, 0.00479, 0.00158, 0.000, 0.00479, +0.19468, 0.19468, 0.07426, 0.00461, 0.00156, 0.000, 0.00461, +0.18922, 0.18922, 0.06937, 0.00444, 0.00154, 0.000, 0.00444, +0.18407, 0.18407, 0.06498, 0.00428, 0.00152, 0.000, 0.00428, +0.17923, 0.17923, 0.06105, 0.00414, 0.00149, 0.000, 0.00414, +0.17467, 0.17467, 0.05750, 0.00400, 0.00147, 0.000, 0.00400, +0.17035, 0.17035, 0.05428, 0.00387, 0.00144, 0.000, 0.00387/ DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ +0.32060, 0.32060, 0.25146, 0.00676, 0.00018, 0.000, 0.00676, +0.30163, 0.30163, 0.21574, 0.00640, 0.00060, 0.000, 0.00640, +0.28512, 0.28512, 0.18689, 0.00606, 0.00087, 0.000, 0.00606, +0.27061, 0.27061, 0.16352, 0.00573, 0.00105, 0.000, 0.00573, +0.25767, 0.25767, 0.14425, 0.00543, 0.00116, 0.000, 0.00543, +0.24608, 0.24608, 0.12828, 0.00515, 0.00123, 0.000, 0.00515, +0.23563, 0.23563, 0.11491, 0.00489, 0.00127, 0.000, 0.00489, +0.22613, 0.22613, 0.10361, 0.00466, 0.00130, 0.000, 0.00466, +0.21747, 0.21747, 0.09397, 0.00444, 0.00131, 0.000, 0.00444, +0.20949, 0.20949, 0.08567, 0.00424, 0.00131, 0.000, 0.00424, +0.20214, 0.20214, 0.07849, 0.00406, 0.00130, 0.000, 0.00406, +0.19535, 0.19535, 0.07224, 0.00389, 0.00129, 0.000, 0.00389, +0.18906, 0.18906, 0.06676, 0.00373, 0.00127, 0.000, 0.00373, +0.18316, 0.18316, 0.06192, 0.00358, 0.00125, 0.000, 0.00358, +0.17768, 0.17768, 0.05764, 0.00345, 0.00123, 0.000, 0.00345, +0.17253, 0.17253, 0.05382, 0.00332, 0.00121, 0.000, 0.00332, +0.16770, 0.16770, 0.05041, 0.00320, 0.00119, 0.000, 0.00320, +0.16316, 0.16316, 0.04734, 0.00309, 0.00116, 0.000, 0.00309, +0.15886, 0.15886, 0.04457, 0.00298, 0.00114, 0.000, 0.00298/ DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ +0.31240, 0.31240, 0.22824, 0.00525, 0.00015, 0.000, 0.00525, +0.29246, 0.29246, 0.19333, 0.00498, 0.00050, 0.000, 0.00498, +0.27523, 0.27523, 0.16565, 0.00470, 0.00072, 0.000, 0.00470, +0.26018, 0.26018, 0.14355, 0.00445, 0.00086, 0.000, 0.00445, +0.24684, 0.24684, 0.12556, 0.00420, 0.00095, 0.000, 0.00420, +0.23496, 0.23496, 0.11081, 0.00398, 0.00100, 0.000, 0.00398, +0.22428, 0.22428, 0.09859, 0.00377, 0.00103, 0.000, 0.00377, +0.21462, 0.21462, 0.08834, 0.00359, 0.00104, 0.000, 0.00359, +0.20584, 0.20584, 0.07966, 0.00341, 0.00105, 0.000, 0.00341, +0.19779, 0.19779, 0.07225, 0.00325, 0.00104, 0.000, 0.00325, +0.19039, 0.19039, 0.06588, 0.00310, 0.00103, 0.000, 0.00310, +0.18358, 0.18358, 0.06037, 0.00297, 0.00102, 0.000, 0.00297, +0.17728, 0.17728, 0.05556, 0.00284, 0.00101, 0.000, 0.00284, +0.17140, 0.17140, 0.05133, 0.00273, 0.00099, 0.000, 0.00273, +0.16595, 0.16595, 0.04761, 0.00262, 0.00097, 0.000, 0.00262, +0.16084, 0.16084, 0.04431, 0.00252, 0.00095, 0.000, 0.00252, +0.15605, 0.15605, 0.04137, 0.00242, 0.00093, 0.000, 0.00242, +0.15157, 0.15157, 0.03873, 0.00234, 0.00091, 0.000, 0.00234, +0.14733, 0.14733, 0.03637, 0.00225, 0.00089, 0.000, 0.00225/ DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ +0.30304, 0.30304, 0.20611, 0.00395, 0.00012, 0.000, 0.00395, +0.28226, 0.28226, 0.17233, 0.00376, 0.00041, 0.000, 0.00376, +0.26441, 0.26441, 0.14602, 0.00355, 0.00059, 0.000, 0.00355, +0.24894, 0.24894, 0.12530, 0.00335, 0.00070, 0.000, 0.00335, +0.23529, 0.23529, 0.10865, 0.00317, 0.00076, 0.000, 0.00317, +0.22319, 0.22319, 0.09514, 0.00299, 0.00080, 0.000, 0.00299, +0.21236, 0.21236, 0.08405, 0.00283, 0.00082, 0.000, 0.00283, +0.20262, 0.20262, 0.07484, 0.00269, 0.00083, 0.000, 0.00269, +0.19379, 0.19379, 0.06710, 0.00255, 0.00083, 0.000, 0.00255, +0.18572, 0.18572, 0.06053, 0.00243, 0.00082, 0.000, 0.00243, +0.17833, 0.17833, 0.05492, 0.00231, 0.00081, 0.000, 0.00231, +0.17155, 0.17155, 0.05010, 0.00221, 0.00080, 0.000, 0.00221, +0.16530, 0.16530, 0.04591, 0.00211, 0.00078, 0.000, 0.00211, +0.15948, 0.15948, 0.04226, 0.00202, 0.00077, 0.000, 0.00202, +0.15410, 0.15410, 0.03905, 0.00194, 0.00075, 0.000, 0.00194, +0.14906, 0.14906, 0.03622, 0.00186, 0.00073, 0.000, 0.00186, +0.14436, 0.14436, 0.03371, 0.00179, 0.00072, 0.000, 0.00179, +0.13996, 0.13996, 0.03147, 0.00172, 0.00070, 0.000, 0.00172, +0.13582, 0.13582, 0.02947, 0.00166, 0.00068, 0.000, 0.00166/ DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ +0.29258, 0.29258, 0.18508, 0.00286, 0.00010, 0.000, 0.00286, +0.27107, 0.27107, 0.15270, 0.00273, 0.00033, 0.000, 0.00273, +0.25274, 0.25274, 0.12791, 0.00259, 0.00047, 0.000, 0.00259, +0.23694, 0.23694, 0.10866, 0.00245, 0.00055, 0.000, 0.00245, +0.22309, 0.22309, 0.09339, 0.00231, 0.00060, 0.000, 0.00231, +0.21086, 0.21086, 0.08113, 0.00218, 0.00063, 0.000, 0.00218, +0.19997, 0.19997, 0.07116, 0.00206, 0.00064, 0.000, 0.00206, +0.19021, 0.19021, 0.06294, 0.00195, 0.00065, 0.000, 0.00195, +0.18140, 0.18140, 0.05609, 0.00185, 0.00064, 0.000, 0.00185, +0.17337, 0.17337, 0.05033, 0.00176, 0.00064, 0.000, 0.00176, +0.16605, 0.16605, 0.04544, 0.00167, 0.00062, 0.000, 0.00167, +0.15936, 0.15936, 0.04125, 0.00159, 0.00061, 0.000, 0.00159, +0.15319, 0.15319, 0.03764, 0.00152, 0.00060, 0.000, 0.00152, +0.14748, 0.14748, 0.03451, 0.00145, 0.00059, 0.000, 0.00145, +0.14220, 0.14220, 0.03177, 0.00139, 0.00057, 0.000, 0.00139, +0.13728, 0.13728, 0.02937, 0.00133, 0.00056, 0.000, 0.00133, +0.13270, 0.13270, 0.02724, 0.00128, 0.00054, 0.000, 0.00128, +0.12842, 0.12842, 0.02536, 0.00123, 0.00053, 0.000, 0.00123, +0.12440, 0.12440, 0.02367, 0.00118, 0.00052, 0.000, 0.00118/ DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ +0.28106, 0.28106, 0.16514, 0.00209, 0.00008, 0.000, 0.00209, +0.25898, 0.25898, 0.13441, 0.00200, 0.00027, 0.000, 0.00200, +0.24029, 0.24029, 0.11128, 0.00190, 0.00038, 0.000, 0.00190, +0.22427, 0.22427, 0.09355, 0.00179, 0.00044, 0.000, 0.00179, +0.21030, 0.21030, 0.07966, 0.00169, 0.00048, 0.000, 0.00169, +0.19804, 0.19804, 0.06864, 0.00159, 0.00050, 0.000, 0.00159, +0.18717, 0.18717, 0.05975, 0.00150, 0.00050, 0.000, 0.00150, +0.17747, 0.17747, 0.05249, 0.00142, 0.00050, 0.000, 0.00142, +0.16874, 0.16874, 0.04649, 0.00135, 0.00050, 0.000, 0.00135, +0.16082, 0.16082, 0.04148, 0.00128, 0.00049, 0.000, 0.00128, +0.15362, 0.15362, 0.03725, 0.00121, 0.00048, 0.000, 0.00121, +0.14706, 0.14706, 0.03366, 0.00115, 0.00047, 0.000, 0.00115, +0.14103, 0.14103, 0.03058, 0.00110, 0.00046, 0.000, 0.00110, +0.13546, 0.13546, 0.02791, 0.00105, 0.00045, 0.000, 0.00105, +0.13033, 0.13033, 0.02560, 0.00100, 0.00043, 0.000, 0.00100, +0.12556, 0.12556, 0.02358, 0.00096, 0.00042, 0.000, 0.00096, +0.12113, 0.12113, 0.02180, 0.00092, 0.00041, 0.000, 0.00092, +0.11700, 0.11700, 0.02022, 0.00088, 0.00040, 0.000, 0.00088, +0.11313, 0.11313, 0.01883, 0.00085, 0.00039, 0.000, 0.00085/ DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),K=1,19)/ +0.25505, 0.25505, 0.12855, 0.00125, 0.00005, 0.000, 0.00125, +0.23227, 0.23227, 0.10169, 0.00120, 0.00017, 0.000, 0.00120, +0.21326, 0.21326, 0.08213, 0.00113, 0.00024, 0.000, 0.00113, +0.19717, 0.19717, 0.06753, 0.00106, 0.00028, 0.000, 0.00106, +0.18330, 0.18330, 0.05640, 0.00100, 0.00030, 0.000, 0.00100, +0.17125, 0.17125, 0.04775, 0.00093, 0.00031, 0.000, 0.00093, +0.16066, 0.16066, 0.04091, 0.00088, 0.00031, 0.000, 0.00088, +0.15129, 0.15129, 0.03542, 0.00082, 0.00031, 0.000, 0.00082, +0.14293, 0.14293, 0.03096, 0.00078, 0.00030, 0.000, 0.00078, +0.13540, 0.13540, 0.02729, 0.00073, 0.00029, 0.000, 0.00073, +0.12861, 0.12861, 0.02423, 0.00069, 0.00029, 0.000, 0.00069, +0.12245, 0.12245, 0.02167, 0.00065, 0.00028, 0.000, 0.00065, +0.11684, 0.11684, 0.01950, 0.00062, 0.00027, 0.000, 0.00062, +0.11167, 0.11167, 0.01764, 0.00059, 0.00026, 0.000, 0.00059, +0.10694, 0.10694, 0.01605, 0.00056, 0.00025, 0.000, 0.00056, +0.10257, 0.10257, 0.01466, 0.00053, 0.00024, 0.000, 0.00053, +0.09853, 0.09853, 0.01346, 0.00051, 0.00024, 0.000, 0.00051, +0.09478, 0.09478, 0.01240, 0.00049, 0.00023, 0.000, 0.00049, +0.09128, 0.09128, 0.01147, 0.00047, 0.00022, 0.000, 0.00047/ DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),K=1,19)/ +0.22539, 0.22539, 0.09632, 0.00064, 0.00003, 0.000, 0.00064, +0.20257, 0.20257, 0.07383, 0.00061, 0.00010, 0.000, 0.00061, +0.18383, 0.18383, 0.05802, 0.00058, 0.00014, 0.000, 0.00058, +0.16817, 0.16817, 0.04656, 0.00054, 0.00016, 0.000, 0.00054, +0.15484, 0.15484, 0.03806, 0.00050, 0.00017, 0.000, 0.00050, +0.14338, 0.14338, 0.03161, 0.00047, 0.00017, 0.000, 0.00047, +0.13342, 0.13342, 0.02661, 0.00044, 0.00017, 0.000, 0.00044, +0.12468, 0.12468, 0.02267, 0.00041, 0.00017, 0.000, 0.00041, +0.11695, 0.11695, 0.01954, 0.00039, 0.00016, 0.000, 0.00039, +0.11005, 0.11005, 0.01699, 0.00036, 0.00016, 0.000, 0.00036, +0.10386, 0.10386, 0.01491, 0.00034, 0.00015, 0.000, 0.00034, +0.09830, 0.09830, 0.01319, 0.00032, 0.00015, 0.000, 0.00032, +0.09326, 0.09326, 0.01174, 0.00030, 0.00014, 0.000, 0.00030, +0.08865, 0.08865, 0.01053, 0.00029, 0.00014, 0.000, 0.00029, +0.08446, 0.08446, 0.00949, 0.00027, 0.00013, 0.000, 0.00027, +0.08061, 0.08061, 0.00860, 0.00026, 0.00013, 0.000, 0.00026, +0.07706, 0.07706, 0.00784, 0.00024, 0.00012, 0.000, 0.00024, +0.07379, 0.07379, 0.00717, 0.00023, 0.00012, 0.000, 0.00023, +0.07076, 0.07076, 0.00659, 0.00022, 0.00011, 0.000, 0.00022/ DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),K=1,19)/ +0.19244, 0.19244, 0.06849, 0.00023, 0.00002, 0.000, 0.00023, +0.17036, 0.17036, 0.05066, 0.00023, 0.00005, 0.000, 0.00023, +0.15253, 0.15253, 0.03859, 0.00022, 0.00007, 0.000, 0.00022, +0.13786, 0.13786, 0.03013, 0.00020, 0.00008, 0.000, 0.00020, +0.12553, 0.12553, 0.02404, 0.00019, 0.00008, 0.000, 0.00019, +0.11506, 0.11506, 0.01953, 0.00018, 0.00008, 0.000, 0.00018, +0.10606, 0.10606, 0.01612, 0.00017, 0.00008, 0.000, 0.00017, +0.09825, 0.09825, 0.01349, 0.00016, 0.00008, 0.000, 0.00016, +0.09141, 0.09141, 0.01144, 0.00014, 0.00007, 0.000, 0.00014, +0.08535, 0.08535, 0.00981, 0.00014, 0.00007, 0.000, 0.00014, +0.07997, 0.07997, 0.00849, 0.00013, 0.00007, 0.000, 0.00013, +0.07516, 0.07516, 0.00741, 0.00012, 0.00006, 0.000, 0.00012, +0.07084, 0.07084, 0.00653, 0.00011, 0.00006, 0.000, 0.00011, +0.06693, 0.06693, 0.00579, 0.00010, 0.00006, 0.000, 0.00010, +0.06338, 0.06338, 0.00517, 0.00010, 0.00006, 0.000, 0.00010, +0.06015, 0.06015, 0.00465, 0.00009, 0.00005, 0.000, 0.00009, +0.05719, 0.05719, 0.00420, 0.00009, 0.00005, 0.000, 0.00009, +0.05448, 0.05448, 0.00381, 0.00008, 0.00005, 0.000, 0.00008, +0.05198, 0.05198, 0.00348, 0.00008, 0.00005, 0.000, 0.00008/ DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),K=1,19)/ +0.15661, 0.15661, 0.04516, 0.00009, 0.00001, 0.000, 0.00009, +0.13618, 0.13618, 0.03203, 0.00009, 0.00002, 0.000, 0.00009, +0.11998, 0.11998, 0.02351, 0.00009, 0.00003, 0.000, 0.00009, +0.10688, 0.10688, 0.01778, 0.00008, 0.00003, 0.000, 0.00008, +0.09605, 0.09605, 0.01377, 0.00008, 0.00004, 0.000, 0.00008, +0.08698, 0.08698, 0.01089, 0.00007, 0.00003, 0.000, 0.00007, +0.07928, 0.07928, 0.00879, 0.00006, 0.00003, 0.000, 0.00006, +0.07267, 0.07267, 0.00720, 0.00006, 0.00003, 0.000, 0.00006, +0.06695, 0.06695, 0.00599, 0.00006, 0.00003, 0.000, 0.00006, +0.06195, 0.06195, 0.00504, 0.00005, 0.00003, 0.000, 0.00005, +0.05754, 0.05754, 0.00430, 0.00005, 0.00003, 0.000, 0.00005, +0.05364, 0.05364, 0.00370, 0.00004, 0.00003, 0.000, 0.00004, +0.05016, 0.05016, 0.00321, 0.00004, 0.00002, 0.000, 0.00004, +0.04704, 0.04704, 0.00281, 0.00004, 0.00002, 0.000, 0.00004, +0.04424, 0.04424, 0.00248, 0.00004, 0.00002, 0.000, 0.00004, +0.04170, 0.04170, 0.00221, 0.00003, 0.00002, 0.000, 0.00003, +0.03939, 0.03939, 0.00198, 0.00003, 0.00002, 0.000, 0.00003, +0.03729, 0.03729, 0.00178, 0.00003, 0.00002, 0.000, 0.00003, +0.03536, 0.03536, 0.00161, 0.00003, 0.00002, 0.000, 0.00003/ DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),K=1,19)/ +0.11838, 0.11838, 0.02641, 0.00003, 0.000, 0.000, 0.00003, +0.10062, 0.10062, 0.01777, 0.00003, 0.00001, 0.000, 0.00003, +0.08688, 0.08688, 0.01245, 0.00003, 0.00001, 0.000, 0.00003, +0.07599, 0.07599, 0.00905, 0.00003, 0.00001, 0.000, 0.00003, +0.06717, 0.06717, 0.00676, 0.00002, 0.00001, 0.000, 0.00002, +0.05990, 0.05990, 0.00518, 0.00002, 0.00001, 0.000, 0.00002, +0.05383, 0.05383, 0.00406, 0.00002, 0.00001, 0.000, 0.00002, +0.04870, 0.04870, 0.00324, 0.00002, 0.00001, 0.000, 0.00002, +0.04432, 0.04432, 0.00263, 0.00002, 0.00001, 0.000, 0.00002, +0.04053, 0.04053, 0.00217, 0.00001, 0.00001, 0.000, 0.00001, +0.03724, 0.03724, 0.00181, 0.00001, 0.00001, 0.000, 0.00001, +0.03436, 0.03436, 0.00154, 0.00001, 0.00001, 0.000, 0.00001, +0.03182, 0.03182, 0.00131, 0.00001, 0.00001, 0.000, 0.00001, +0.02957, 0.02957, 0.00113, 0.00001, 0.00001, 0.000, 0.00001, +0.02756, 0.02756, 0.00099, 0.00001, 0.00001, 0.000, 0.00001, +0.02575, 0.02575, 0.00087, 0.00001, 0.00001, 0.000, 0.00001, +0.02413, 0.02413, 0.00077, 0.00001, 0.00001, 0.000, 0.00001, +0.02267, 0.02267, 0.00068, 0.00001, 0.00001, 0.000, 0.00001, +0.02134, 0.02134, 0.00061, 0.00001, 0.000, 0.000, 0.00001/ DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),K=1,19)/ +0.07838, 0.07838, 0.01240, 0.000, 0.000, 0.000, 0.000, +0.06456, 0.06456, 0.00776, 0.000, 0.000, 0.000, 0.000, +0.05420, 0.05420, 0.00512, 0.000, 0.000, 0.000, 0.000, +0.04623, 0.04623, 0.00352, 0.000, 0.000, 0.000, 0.000, +0.03993, 0.03993, 0.00250, 0.000, 0.000, 0.000, 0.000, +0.03487, 0.03487, 0.00184, 0.000, 0.000, 0.000, 0.000, +0.03073, 0.03073, 0.00139, 0.000, 0.000, 0.000, 0.000, +0.02731, 0.02731, 0.00107, 0.000, 0.000, 0.000, 0.000, +0.02443, 0.02443, 0.00084, 0.000, 0.000, 0.000, 0.000, +0.02199, 0.02199, 0.00068, 0.000, 0.000, 0.000, 0.000, +0.01991, 0.01991, 0.00055, 0.000, 0.000, 0.000, 0.000, +0.01811, 0.01811, 0.00046, 0.000, 0.000, 0.000, 0.000, +0.01655, 0.01655, 0.00038, 0.000, 0.000, 0.000, 0.000, +0.01518, 0.01518, 0.00032, 0.000, 0.000, 0.000, 0.000, +0.01397, 0.01397, 0.00028, 0.000, 0.000, 0.000, 0.000, +0.01291, 0.01291, 0.00024, 0.000, 0.000, 0.000, 0.000, +0.01196, 0.01196, 0.00021, 0.000, 0.000, 0.000, 0.000, +0.01111, 0.01111, 0.00019, 0.000, 0.000, 0.000, 0.000, +0.01035, 0.01035, 0.00016, 0.000, 0.000, 0.000, 0.000/ DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),K=1,19)/ +0.03767, 0.03767, 0.00340, 0.000, 0.000, 0.000, 0.000, +0.02943, 0.02943, 0.00189, 0.000, 0.000, 0.000, 0.000, +0.02358, 0.02358, 0.00113, 0.000, 0.000, 0.000, 0.000, +0.01928, 0.01928, 0.00071, 0.000, 0.000, 0.000, 0.000, +0.01602, 0.01602, 0.00047, 0.000, 0.000, 0.000, 0.000, +0.01351, 0.01351, 0.00032, 0.000, 0.000, 0.000, 0.000, +0.01152, 0.01152, 0.00023, 0.000, 0.000, 0.000, 0.000, +0.00993, 0.00993, 0.00016, 0.000, 0.000, 0.000, 0.000, +0.00864, 0.00864, 0.00012, 0.000, 0.000, 0.000, 0.000, +0.00757, 0.00757, 0.00010, 0.000, 0.000, 0.000, 0.000, +0.00668, 0.00668, 0.00007, 0.000, 0.000, 0.000, 0.000, +0.00594, 0.00594, 0.00006, 0.000, 0.000, 0.000, 0.000, +0.00530, 0.00530, 0.00005, 0.000, 0.000, 0.000, 0.000, +0.00476, 0.00476, 0.00004, 0.000, 0.000, 0.000, 0.000, +0.00430, 0.00430, 0.00003, 0.000, 0.000, 0.000, 0.000, +0.00389, 0.00389, 0.00003, 0.000, 0.000, 0.000, 0.000, +0.00354, 0.00354, 0.00002, 0.000, 0.000, 0.000, 0.000, +0.00323, 0.00323, 0.00002, 0.000, 0.000, 0.000, 0.000, +0.00296, 0.00296, 0.00002, 0.000, 0.000, 0.000, 0.000/ DATA ((F(I,49,K),I=1,5),F(7,49,K),F(6,49,K),K=1,19)/ +0.01778, 0.01778, 0.00094, 0.000, 0.000, 0.000, 0.000, +0.01319, 0.01319, 0.00046, 0.000, 0.000, 0.000, 0.000, +0.01008, 0.01008, 0.00025, 0.000, 0.000, 0.000, 0.000, +0.00791, 0.00791, 0.00014, 0.000, 0.000, 0.000, 0.000, +0.00633, 0.00633, 0.00009, 0.000, 0.000, 0.000, 0.000, +0.00515, 0.00515, 0.00006, 0.000, 0.000, 0.000, 0.000, +0.00426, 0.00426, 0.00004, 0.000, 0.000, 0.000, 0.000, +0.00356, 0.00356, 0.00003, 0.000, 0.000, 0.000, 0.000, +0.00301, 0.00301, 0.00002, 0.000, 0.000, 0.000, 0.000, +0.00257, 0.00257, 0.00001, 0.000, 0.000, 0.000, 0.000, +0.00221, 0.00221, 0.00001, 0.000, 0.000, 0.000, 0.000, +0.00192, 0.00192, 0.00001, 0.000, 0.000, 0.000, 0.000, +0.00168, 0.00168, 0.00001, 0.000, 0.000, 0.000, 0.000, +0.00148, 0.00148, 0.00001, 0.000, 0.000, 0.000, 0.000, +0.00130, 0.00130, 0.000, 0.000, 0.000, 0.000, 0.000, +0.00116, 0.00116, 0.000, 0.000, 0.000, 0.000, 0.000, +0.00104, 0.00104, 0.000, 0.000, 0.000, 0.000, 0.000, +0.00093, 0.00093, 0.000, 0.000, 0.000, 0.000, 0.000, +0.00084, 0.00084, 0.000, 0.000, 0.000, 0.000, 0.000/ DATA ((F(I,50,K),I=1,5),F(7,50,K),F(6,50,K),K=1,19)/ +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, +0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000/ DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, . 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,.85D0,.9D0,.95D0,.975D0,1.D0/ DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ DATA N0/0,0,3,5,0,5,0/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ XSAVE=X IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,NX-1 DO 20 M=1,NQ C READ(103,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), C . F(6,N,M) C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR DO 25 I=1,7 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) 20 CONTINUE DO 30 J=1,NTENTH-1 XX(J)= LOG10(XX(J))+ONEDO DO 30 I=2,6 DO 30 K=1,NQ 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) 50 FORMAT(7F10.5) DO 40 I=1,7 DO 40 M=1,NQ 40 F(I,NX,M)=ZEROD 10 CONTINUE IF(X.LT.XMIN) X=XMIN IF(X.GT.XMAX) X=XMAX 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,7 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.7.OR.I.EQ.1) GOTO 65 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) G(I)=FAC**(G(I)/FAC) 65 CONTINUE G(I)=G(I)*(ONED-X)**N0(I) 60 CONTINUE C UPBAR DISTRIBUTION = D DISTRIBUTION UPV=G(2) DNV=G(2) C THIS SEA IS (UBAR+DBAR)/2 SEA=G(4) STR=G(6) CHM=G(5) GLU=G(3) BOT=G(7) X=XSAVE RETURN END