* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:31:06 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:51 plothow * Version 7.01 * * #include "pdf/pilot.h" C----------------------------------------------------------------------- SUBROUTINE STRH2E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL) C :::::: HARRIMAN MARTIN ROBERTS STIRLING (E) sea=ubar=dbar=2sbar at Q0* #include "pdf/impdp.inc" DIMENSION F(7,42,19),G(7),XX(42),N0(7) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/ + 0.04096, 0.00664, 3.32967, 0.04384, 0.01024, 0.00000, 0.02701, + 0.04188, 0.00720, 6.12704, 0.09283, 0.05797, 0.00000, 0.07537, + 0.04274, 0.00772, 9.45610, 0.15957, 0.12355, 0.00000, 0.14153, + 0.04354, 0.00823, 13.16263, 0.24006, 0.20295, 0.00000, 0.22148, + 0.04430, 0.00870, 17.21933, 0.33222, 0.29517, 0.00219, 0.31422, + 0.04502, 0.00917, 21.57890, 0.41810, 0.39894, 0.03991, 0.41848, + 0.04570, 0.00961, 26.15117, 0.48102, 0.51187, 0.14176, 0.53187, + 0.04636, 0.01004, 30.94051, 0.55380, 0.63407, 0.24236, 0.65451, + 0.04699, 0.01046, 35.92586, 0.63218, 0.76497, 0.34910, 0.78584, + 0.04760, 0.01087, 41.09314, 0.71529, 0.90419, 0.46294, 0.92547, + 0.04819, 0.01127, 46.34061, 0.80175, 1.04876, 0.58071, 1.07044, + 0.04876, 0.01166, 51.66371, 0.89136, 1.19854, 0.70254, 1.22059, + 0.04931, 0.01204, 57.13947, 0.98544, 1.35571, 0.83018, 1.37813, + 0.04985, 0.01241, 62.57440, 1.08054, 1.51455, 0.95903, 1.53732, + 0.05037, 0.01277, 68.11569, 1.17925, 1.67934, 1.09255, 1.70245, + 0.05088, 0.01312, 73.65871, 1.27962, 1.84688, 1.22818, 1.87032, + 0.05137, 0.01347, 79.22708, 1.38207, 2.01784, 1.36647, 2.04160, + 0.05185, 0.01381, 84.80046, 1.48615, 2.19149, 1.50684, 2.21556, + 0.05232, 0.01414, 90.37953, 1.59186, 2.36781, 1.64928, 2.39219/ DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/ + 0.05088, 0.01010, 3.25209, 0.05395, 0.01104, 0.00000, 0.03247, + 0.05205, 0.01088, 5.65026, 0.10300, 0.05863, 0.00000, 0.08079, + 0.05312, 0.01162, 8.38432, 0.16513, 0.11943, 0.00000, 0.14226, + 0.05412, 0.01232, 11.32975, 0.23659, 0.18965, 0.00000, 0.21310, + 0.05507, 0.01298, 14.46710, 0.31557, 0.26840, 0.00185, 0.29244, + 0.05596, 0.01362, 17.76108, 0.38730, 0.35459, 0.03294, 0.37917, + 0.05681, 0.01423, 21.14510, 0.43849, 0.44628, 0.11599, 0.47138, + 0.05762, 0.01482, 24.62537, 0.49662, 0.54359, 0.19631, 0.56918, + 0.05840, 0.01539, 28.18849, 0.55814, 0.64605, 0.28006, 0.67211, + 0.05915, 0.01595, 31.82632, 0.62234, 0.75336, 0.36806, 0.77987, + 0.05988, 0.01648, 35.46771, 0.68822, 0.86329, 0.45787, 0.89023, + 0.06058, 0.01700, 39.11272, 0.75563, 0.97577, 0.54962, 1.00312, + 0.06125, 0.01751, 42.81876, 0.82558, 1.09244, 0.64465, 1.12019, + 0.06191, 0.01800, 46.45189, 0.89555, 1.20912, 0.73957, 1.23725, + 0.06254, 0.01849, 50.11823, 0.96744, 1.32897, 0.83696, 1.35747, + 0.06316, 0.01895, 53.74707, 1.03986, 1.44970, 0.93498, 1.47856, + 0.06376, 0.01941, 57.35736, 1.11314, 1.57183, 1.03404, 1.60103, + 0.06435, 0.01986, 60.93729, 1.18697, 1.69487, 1.13378, 1.72440, + 0.06492, 0.02030, 64.48935, 1.26137, 1.81884, 1.23420, 1.84869/ DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/ + 0.06282, 0.01534, 3.17485, 0.06637, 0.01161, 0.00000, 0.03897, + 0.06428, 0.01644, 5.20773, 0.11445, 0.05804, 0.00000, 0.08623, + 0.06562, 0.01747, 7.42919, 0.17128, 0.11338, 0.00000, 0.14232, + 0.06687, 0.01844, 9.74484, 0.23376, 0.17448, 0.00000, 0.20412, + 0.06804, 0.01935, 12.14470, 0.30053, 0.24073, 0.00154, 0.27102, + 0.06915, 0.02022, 14.60555, 0.35966, 0.31132, 0.02684, 0.34221, + 0.07020, 0.02105, 17.08078, 0.40082, 0.38480, 0.09372, 0.41626, + 0.07121, 0.02186, 19.57907, 0.44670, 0.46130, 0.15709, 0.49329, + 0.07218, 0.02263, 22.09364, 0.49444, 0.54051, 0.22204, 0.57300, + 0.07310, 0.02337, 24.62143, 0.54347, 0.62221, 0.28930, 0.65519, + 0.07399, 0.02409, 27.11404, 0.59310, 0.70479, 0.35702, 0.73823, + 0.07485, 0.02478, 29.57483, 0.64326, 0.78825, 0.42536, 0.82212, + 0.07568, 0.02546, 32.04695, 0.69469, 0.87382, 0.49532, 0.90812, + 0.07648, 0.02611, 34.43900, 0.74558, 0.95850, 0.56448, 0.99320, + 0.07726, 0.02674, 36.82719, 0.79735, 1.04462, 0.63473, 1.07971, + 0.07801, 0.02736, 39.16483, 0.84901, 1.13058, 0.70478, 1.16604, + 0.07875, 0.02796, 41.46690, 0.90082, 1.21677, 0.77497, 1.25258, + 0.07946, 0.02854, 43.72720, 0.95259, 1.30289, 0.84504, 1.33905, + 0.08015, 0.02911, 45.94916, 1.00434, 1.38898, 0.91504, 1.42547/ DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/ + 0.07083, 0.01959, 3.12932, 0.07489, 0.01177, 0.00000, 0.04332, + 0.07248, 0.02092, 4.96284, 0.12181, 0.05696, 0.00000, 0.08938, + 0.07401, 0.02217, 6.91799, 0.17521, 0.10877, 0.00000, 0.14199, + 0.07544, 0.02333, 8.91708, 0.23247, 0.16457, 0.00000, 0.19853, + 0.07677, 0.02443, 10.95555, 0.29250, 0.22396, 0.00137, 0.25859, + 0.07802, 0.02547, 13.01664, 0.34494, 0.28628, 0.02363, 0.32154, + 0.07922, 0.02646, 15.06373, 0.38092, 0.35035, 0.08216, 0.38620, + 0.08036, 0.02741, 17.10666, 0.42060, 0.41633, 0.13696, 0.45273, + 0.08145, 0.02833, 19.14198, 0.46148, 0.48398, 0.19257, 0.52090, + 0.08250, 0.02921, 21.16891, 0.50309, 0.55315, 0.24968, 0.59058, + 0.08351, 0.03005, 23.14951, 0.54487, 0.62253, 0.30672, 0.66042, + 0.08448, 0.03087, 25.08839, 0.58678, 0.69213, 0.36388, 0.73047, + 0.08541, 0.03166, 27.02209, 0.62947, 0.76303, 0.42201, 0.80180, + 0.08632, 0.03243, 28.87794, 0.67144, 0.83274, 0.47912, 0.87192, + 0.08719, 0.03317, 30.71896, 0.71387, 0.90324, 0.53679, 0.94280, + 0.08804, 0.03389, 32.50862, 0.75599, 0.97321, 0.59398, 1.01315, + 0.08887, 0.03459, 34.25996, 0.79801, 1.04301, 0.65098, 1.08331, + 0.08967, 0.03526, 35.96909, 0.83978, 1.11241, 0.70762, 1.15306, + 0.09044, 0.03592, 37.63948, 0.88134, 1.18147, 0.76393, 1.22245/ DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/ + 0.07699, 0.02329, 3.09657, 0.08155, 0.01180, 0.00000, 0.04667, + 0.07881, 0.02482, 4.79457, 0.12736, 0.05579, 0.00000, 0.09158, + 0.08048, 0.02624, 6.57428, 0.17816, 0.10496, 0.00000, 0.14157, + 0.08204, 0.02757, 8.36915, 0.23173, 0.15703, 0.00000, 0.19440, + 0.08350, 0.02881, 10.17824, 0.28718, 0.21174, 0.00126, 0.24980, + 0.08488, 0.02999, 11.98900, 0.33514, 0.26855, 0.02151, 0.30725, + 0.08619, 0.03111, 13.77102, 0.36771, 0.32645, 0.07456, 0.36576, + 0.08744, 0.03218, 15.53498, 0.40338, 0.38563, 0.12382, 0.42550, + 0.08863, 0.03321, 17.27930, 0.43987, 0.44589, 0.17347, 0.48629, + 0.08977, 0.03420, 19.00464, 0.47677, 0.50713, 0.22414, 0.54803, + 0.09087, 0.03515, 20.67931, 0.51362, 0.56822, 0.27448, 0.60959, + 0.09193, 0.03606, 22.30855, 0.55039, 0.62918, 0.32467, 0.67101, + 0.09295, 0.03695, 23.92488, 0.58765, 0.69099, 0.37547, 0.73324, + 0.09394, 0.03780, 25.46680, 0.62412, 0.75150, 0.42515, 0.79416, + 0.09489, 0.03862, 26.98915, 0.66084, 0.81243, 0.47512, 0.85548, + 0.09582, 0.03942, 28.46149, 0.69714, 0.87267, 0.52448, 0.91609, + 0.09671, 0.04020, 29.89561, 0.73322, 0.93254, 0.57349, 0.97632, + 0.09758, 0.04095, 31.28883, 0.76896, 0.99187, 0.62202, 1.03599, + 0.09843, 0.04168, 32.64464, 0.80439, 1.05069, 0.67011, 1.09514/ DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/ + 0.08206, 0.02664, 3.07078, 0.08710, 0.01175, 0.00000, 0.04942, + 0.08401, 0.02833, 4.66685, 0.13185, 0.05465, 0.00000, 0.09326, + 0.08581, 0.02990, 6.31762, 0.18056, 0.10168, 0.00000, 0.14113, + 0.08749, 0.03136, 7.96477, 0.23128, 0.15087, 0.00000, 0.19110, + 0.08906, 0.03274, 9.60994, 0.28326, 0.20205, 0.00118, 0.24298, + 0.09053, 0.03403, 11.24354, 0.32790, 0.25479, 0.01995, 0.29637, + 0.09194, 0.03526, 12.83967, 0.35799, 0.30819, 0.06899, 0.35038, + 0.09328, 0.03644, 14.40938, 0.39074, 0.36245, 0.11424, 0.40520, + 0.09456, 0.03756, 15.95251, 0.42407, 0.41741, 0.15961, 0.46069, + 0.09578, 0.03864, 17.47061, 0.45761, 0.47299, 0.20569, 0.51678, + 0.09696, 0.03967, 18.93633, 0.49096, 0.52820, 0.25129, 0.57246, + 0.09809, 0.04067, 20.35518, 0.52410, 0.58308, 0.29657, 0.62780, + 0.09918, 0.04163, 21.75691, 0.55755, 0.63852, 0.34222, 0.68365, + 0.10024, 0.04255, 23.08755, 0.59018, 0.69260, 0.38673, 0.73814, + 0.10126, 0.04345, 24.39639, 0.62292, 0.74688, 0.43134, 0.79281, + 0.10224, 0.04431, 25.65698, 0.65519, 0.80039, 0.47527, 0.84668, + 0.10320, 0.04515, 26.88029, 0.68716, 0.85341, 0.51877, 0.90005, + 0.10413, 0.04596, 28.06430, 0.71875, 0.90580, 0.56172, 0.95278, + 0.10503, 0.04675, 29.21252, 0.74998, 0.95762, 0.60418, 1.00492/ DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/ + 0.09951, 0.04035, 2.98677, 0.10658, 0.01118, 0.00000, 0.05889, + 0.10196, 0.04266, 4.28244, 0.14692, 0.04959, 0.00000, 0.09828, + 0.10422, 0.04478, 5.56876, 0.18861, 0.08956, 0.00000, 0.13912, + 0.10631, 0.04674, 6.80979, 0.23055, 0.12995, 0.00000, 0.18029, + 0.10828, 0.04857, 8.01392, 0.27234, 0.17081, 0.00094, 0.22186, + 0.11012, 0.05029, 9.17943, 0.30744, 0.21194, 0.01554, 0.26364, + 0.11188, 0.05190, 10.29177, 0.33053, 0.25279, 0.05340, 0.30508, + 0.11355, 0.05344, 11.36288, 0.35525, 0.29355, 0.08767, 0.34639, + 0.11514, 0.05490, 12.39573, 0.37999, 0.33418, 0.12147, 0.38753, + 0.11666, 0.05629, 13.39404, 0.40451, 0.37467, 0.15531, 0.42850, + 0.11813, 0.05762, 14.34086, 0.42855, 0.41436, 0.18836, 0.46863, + 0.11953, 0.05889, 15.24236, 0.45214, 0.45333, 0.22078, 0.50802, + 0.12088, 0.06012, 16.12077, 0.47567, 0.49223, 0.25309, 0.54731, + 0.12219, 0.06129, 16.94078, 0.49836, 0.52977, 0.28424, 0.58522, + 0.12344, 0.06242, 17.73729, 0.52089, 0.56706, 0.31516, 0.62286, + 0.12466, 0.06351, 18.49368, 0.54287, 0.60347, 0.34531, 0.65960, + 0.12584, 0.06456, 19.21832, 0.56444, 0.63921, 0.37489, 0.69565, + 0.12698, 0.06557, 19.91093, 0.58556, 0.67422, 0.40385, 0.73096, + 0.12809, 0.06655, 20.57460, 0.60626, 0.70855, 0.43223, 0.76557/ DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/ + 0.11992, 0.06089, 2.89161, 0.12944, 0.00987, 0.00000, 0.06968, + 0.12303, 0.06395, 3.90807, 0.16359, 0.04220, 0.00000, 0.10293, + 0.12589, 0.06674, 4.87665, 0.19762, 0.07464, 0.00000, 0.13618, + 0.12855, 0.06929, 5.77887, 0.23094, 0.10657, 0.00000, 0.16880, + 0.13104, 0.07165, 6.62765, 0.26332, 0.13808, 0.00073, 0.20094, + 0.13337, 0.07384, 7.42676, 0.28995, 0.16912, 0.01176, 0.23254, + 0.13558, 0.07590, 8.16982, 0.30701, 0.19939, 0.04019, 0.26332, + 0.13768, 0.07783, 8.86874, 0.32497, 0.22908, 0.06544, 0.29346, + 0.13968, 0.07966, 9.52822, 0.34266, 0.25819, 0.08993, 0.32299, + 0.14160, 0.08140, 10.15303, 0.35991, 0.28678, 0.11411, 0.35196, + 0.14343, 0.08304, 10.73344, 0.37660, 0.31442, 0.13741, 0.37996, + 0.14518, 0.08461, 11.27537, 0.39275, 0.34122, 0.15998, 0.40708, + 0.14687, 0.08611, 11.79519, 0.40865, 0.36765, 0.18220, 0.43380, + 0.14849, 0.08753, 12.27041, 0.42381, 0.39286, 0.20340, 0.45928, + 0.15005, 0.08890, 12.72536, 0.43869, 0.41764, 0.22420, 0.48432, + 0.15156, 0.09020, 13.14986, 0.45305, 0.44158, 0.24428, 0.50849, + 0.15301, 0.09146, 13.55015, 0.46699, 0.46485, 0.26380, 0.53197, + 0.15442, 0.09267, 13.92672, 0.48051, 0.48742, 0.28272, 0.55475, + 0.15578, 0.09383, 14.28213, 0.49363, 0.50936, 0.30110, 0.57688/ DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/ + 0.13374, 0.07721, 2.82642, 0.14409, 0.00880, 0.00000, 0.07645, + 0.13736, 0.08074, 3.68746, 0.17391, 0.03704, 0.00000, 0.10550, + 0.14069, 0.08394, 4.48785, 0.20325, 0.06502, 0.00000, 0.13417, + 0.14377, 0.08684, 5.21715, 0.23162, 0.09224, 0.00000, 0.16197, + 0.14665, 0.08951, 5.88979, 0.25884, 0.11877, 0.00062, 0.18901, + 0.14934, 0.09198, 6.51178, 0.28095, 0.14460, 0.00981, 0.21528, + 0.15189, 0.09428, 7.08019, 0.29481, 0.16952, 0.03346, 0.24059, + 0.15431, 0.09643, 7.60644, 0.30929, 0.19371, 0.05423, 0.26512, + 0.15661, 0.09846, 8.09574, 0.32341, 0.21720, 0.07417, 0.28892, + 0.15880, 0.10037, 8.55301, 0.33705, 0.24005, 0.09369, 0.31205, + 0.16090, 0.10218, 8.97158, 0.35012, 0.26198, 0.11235, 0.33422, + 0.16290, 0.10388, 9.35695, 0.36266, 0.28306, 0.13027, 0.35551, + 0.16483, 0.10552, 9.72256, 0.37492, 0.30369, 0.14779, 0.37634, + 0.16667, 0.10706, 10.05156, 0.38650, 0.32323, 0.16439, 0.39605, + 0.16845, 0.10853, 10.36322, 0.39779, 0.34230, 0.18057, 0.41528, + 0.17016, 0.10994, 10.65013, 0.40860, 0.36060, 0.19609, 0.43372, + 0.17180, 0.11128, 10.91742, 0.41903, 0.37828, 0.21107, 0.45152, + 0.17339, 0.11257, 11.16580, 0.42907, 0.39533, 0.22552, 0.46868, + 0.17493, 0.11380, 11.39737, 0.43876, 0.41180, 0.23947, 0.48524/ DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/ + 0.14500, 0.09118, 2.77331, 0.15476, 0.00808, 0.00000, 0.08144, + 0.14908, 0.09501, 3.52587, 0.18162, 0.03367, 0.00000, 0.10767, + 0.15283, 0.09846, 4.21204, 0.20775, 0.05877, 0.00000, 0.13330, + 0.15630, 0.10157, 4.82669, 0.23277, 0.08293, 0.00000, 0.15790, + 0.15952, 0.10442, 5.38470, 0.25653, 0.10624, 0.00055, 0.18157, + 0.16253, 0.10705, 5.89329, 0.27559, 0.12871, 0.00857, 0.20435, + 0.16538, 0.10948, 6.35166, 0.28730, 0.15021, 0.02914, 0.22610, + 0.16807, 0.11174, 6.77052, 0.29946, 0.17090, 0.04706, 0.24701, + 0.17062, 0.11387, 7.15523, 0.31123, 0.19085, 0.06413, 0.26714, + 0.17305, 0.11587, 7.51064, 0.32250, 0.21011, 0.08072, 0.28656, + 0.17536, 0.11774, 7.83187, 0.33323, 0.22847, 0.09648, 0.30504, + 0.17757, 0.11951, 8.12401, 0.34344, 0.24601, 0.11153, 0.32268, + 0.17969, 0.12119, 8.39861, 0.35336, 0.26307, 0.12615, 0.33983, + 0.18172, 0.12277, 8.64208, 0.36266, 0.27913, 0.13992, 0.35596, + 0.18366, 0.12428, 8.87064, 0.37168, 0.29473, 0.15327, 0.37161, + 0.18553, 0.12571, 9.07849, 0.38027, 0.30962, 0.16602, 0.38653, + 0.18733, 0.12708, 9.26993, 0.38850, 0.32393, 0.17827, 0.40086, + 0.18906, 0.12838, 9.44570, 0.39638, 0.33766, 0.19002, 0.41461, + 0.19073, 0.12963, 9.60769, 0.40394, 0.35086, 0.20132, 0.42782/ DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/ + 0.15493, 0.10355, 2.72690, 0.16298, 0.00763, 0.00000, 0.08533, + 0.15946, 0.10757, 3.39611, 0.18773, 0.03148, 0.00000, 0.10964, + 0.16361, 0.11117, 3.99639, 0.21148, 0.05455, 0.00000, 0.13306, + 0.16743, 0.11440, 4.52622, 0.23398, 0.07651, 0.00000, 0.15530, + 0.17097, 0.11735, 5.00081, 0.25513, 0.09749, 0.00049, 0.17649, + 0.17428, 0.12005, 5.42798, 0.27190, 0.11754, 0.00767, 0.19670, + 0.17739, 0.12253, 5.80819, 0.28198, 0.13658, 0.02602, 0.21586, + 0.18032, 0.12484, 6.15162, 0.29240, 0.15478, 0.04189, 0.23413, + 0.18309, 0.12700, 6.46357, 0.30240, 0.17219, 0.05691, 0.25160, + 0.18573, 0.12902, 6.74881, 0.31193, 0.18891, 0.07141, 0.26835, + 0.18823, 0.13091, 7.00353, 0.32092, 0.20475, 0.08512, 0.28419, + 0.19062, 0.13268, 7.23250, 0.32943, 0.21979, 0.09814, 0.29923, + 0.19290, 0.13436, 7.44589, 0.33765, 0.23436, 0.11072, 0.31377, + 0.19508, 0.13594, 7.63229, 0.34531, 0.24800, 0.12252, 0.32737, + 0.19716, 0.13743, 7.80575, 0.35269, 0.26118, 0.13392, 0.34050, + 0.19916, 0.13885, 7.96148, 0.35968, 0.27371, 0.14474, 0.35297, + 0.20108, 0.14020, 8.10325, 0.36635, 0.28570, 0.15510, 0.36488, + 0.20293, 0.14147, 8.23181, 0.37270, 0.29715, 0.16501, 0.37626, + 0.20470, 0.14269, 8.34882, 0.37875, 0.30812, 0.17449, 0.38714/ DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/ + 0.19507, 0.15149, 2.54346, 0.18440, 0.00598, 0.00000, 0.09521, + 0.20131, 0.15569, 2.96819, 0.20159, 0.02401, 0.00000, 0.11283, + 0.20694, 0.15935, 3.32764, 0.21746, 0.04078, 0.00000, 0.12916, + 0.21205, 0.16257, 3.62763, 0.23196, 0.05622, 0.00000, 0.14413, + 0.21673, 0.16543, 3.88265, 0.24514, 0.07053, 0.00034, 0.15796, + 0.22104, 0.16799, 4.10092, 0.25506, 0.08382, 0.00516, 0.17078, + 0.22504, 0.17030, 4.28491, 0.26029, 0.09613, 0.01738, 0.18260, + 0.22877, 0.17240, 4.44280, 0.26563, 0.10761, 0.02770, 0.19359, + 0.23226, 0.17432, 4.57919, 0.27064, 0.11836, 0.03726, 0.20386, + 0.23554, 0.17609, 4.69793, 0.27527, 0.12846, 0.04630, 0.21349, + 0.23862, 0.17771, 4.79753, 0.27950, 0.13784, 0.05470, 0.22239, + 0.24152, 0.17919, 4.88154, 0.28339, 0.14658, 0.06253, 0.23066, + 0.24427, 0.18058, 4.95632, 0.28706, 0.15489, 0.06998, 0.23852, + 0.24686, 0.18185, 5.01563, 0.29035, 0.16254, 0.07685, 0.24570, + 0.24933, 0.18303, 5.06787, 0.29346, 0.16980, 0.08338, 0.25253, + 0.25166, 0.18413, 5.11053, 0.29631, 0.17659, 0.08950, 0.25887, + 0.25388, 0.18515, 5.14600, 0.29895, 0.18298, 0.09526, 0.26483, + 0.25600, 0.18610, 5.17482, 0.30139, 0.18900, 0.10070, 0.27042, + 0.25802, 0.18698, 5.19803, 0.30366, 0.19467, 0.10583, 0.27567/ DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/ + 0.26393, 0.21301, 2.26515, 0.18753, 0.00432, 0.00000, 0.09594, + 0.27194, 0.21591, 2.47235, 0.19663, 0.01691, 0.00000, 0.10679, + 0.27896, 0.21829, 2.63149, 0.20455, 0.02807, 0.00000, 0.11633, + 0.28514, 0.22024, 2.75087, 0.21138, 0.03793, 0.00000, 0.12467, + 0.29065, 0.22184, 2.84173, 0.21723, 0.04672, 0.00021, 0.13205, + 0.29561, 0.22318, 2.91059, 0.22098, 0.05461, 0.00316, 0.13861, + 0.30008, 0.22428, 2.96015, 0.22184, 0.06168, 0.01051, 0.14441, + 0.30416, 0.22518, 2.99567, 0.22282, 0.06808, 0.01655, 0.14960, + 0.30789, 0.22594, 3.02037, 0.22363, 0.07390, 0.02199, 0.15428, + 0.31132, 0.22658, 3.03673, 0.22425, 0.07922, 0.02702, 0.15851, + 0.31446, 0.22708, 3.04427, 0.22469, 0.08403, 0.03159, 0.16227, + 0.31734, 0.22748, 3.04506, 0.22497, 0.08839, 0.03575, 0.16563, + 0.32003, 0.22782, 3.04251, 0.22518, 0.09245, 0.03964, 0.16874, + 0.32247, 0.22804, 3.03359, 0.22521, 0.09608, 0.04314, 0.17144, + 0.32477, 0.22822, 3.02254, 0.22518, 0.09945, 0.04640, 0.17393, + 0.32689, 0.22833, 3.00814, 0.22505, 0.10253, 0.04940, 0.17615, + 0.32886, 0.22839, 2.99155, 0.22485, 0.10535, 0.05218, 0.17816, + 0.33070, 0.22840, 2.97306, 0.22458, 0.10795, 0.05475, 0.17996, + 0.33241, 0.22838, 2.95314, 0.22426, 0.11034, 0.05713, 0.18159/ DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/ + 0.32748, 0.25117, 2.03445, 0.17254, 0.00335, 0.00000, 0.08794, + 0.33553, 0.25211, 2.13380, 0.17708, 0.01289, 0.00000, 0.09499, + 0.34236, 0.25266, 2.19959, 0.18076, 0.02109, 0.00001, 0.10093, + 0.34819, 0.25287, 2.23928, 0.18367, 0.02813, 0.00001, 0.10590, + 0.35322, 0.25285, 2.26129, 0.18592, 0.03425, 0.00015, 0.11012, + 0.35760, 0.25267, 2.27045, 0.18676, 0.03960, 0.00220, 0.11372, + 0.36144, 0.25231, 2.26868, 0.18563, 0.04428, 0.00727, 0.11677, + 0.36481, 0.25184, 2.25964, 0.18468, 0.04843, 0.01135, 0.11938, + 0.36779, 0.25128, 2.24539, 0.18368, 0.05211, 0.01497, 0.12163, + 0.37045, 0.25066, 2.22753, 0.18264, 0.05542, 0.01825, 0.12358, + 0.37279, 0.24998, 2.20577, 0.18154, 0.05834, 0.02118, 0.12523, + 0.37484, 0.24924, 2.18135, 0.18040, 0.06093, 0.02381, 0.12661, + 0.37671, 0.24848, 2.15634, 0.17927, 0.06329, 0.02623, 0.12782, + 0.37831, 0.24766, 2.12875, 0.17807, 0.06535, 0.02837, 0.12879, + 0.37977, 0.24683, 2.10118, 0.17689, 0.06724, 0.03035, 0.12964, + 0.38105, 0.24598, 2.07277, 0.17569, 0.06892, 0.03213, 0.13033, + 0.38218, 0.24511, 2.04421, 0.17449, 0.07043, 0.03376, 0.13089, + 0.38317, 0.24423, 2.01557, 0.17330, 0.07179, 0.03524, 0.13133, + 0.38405, 0.24334, 1.98706, 0.17210, 0.07301, 0.03660, 0.13169/ DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/ + 0.38577, 0.27514, 1.83134, 0.15191, 0.00268, 0.00000, 0.07728, + 0.39258, 0.27396, 1.86637, 0.15372, 0.01018, -0.00001, 0.08194, + 0.39814, 0.27257, 1.87912, 0.15493, 0.01646, 0.00000, 0.08569, + 0.40260, 0.27103, 1.87548, 0.15564, 0.02174, 0.00000, 0.08868, + 0.40628, 0.26939, 1.86163, 0.15593, 0.02622, 0.00011, 0.09109, + 0.40931, 0.26770, 1.84105, 0.15524, 0.03006, 0.00162, 0.09305, + 0.41176, 0.26596, 1.81489, 0.15319, 0.03336, 0.00532, 0.09459, + 0.41378, 0.26417, 1.78555, 0.15134, 0.03622, 0.00826, 0.09583, + 0.41544, 0.26239, 1.75442, 0.14954, 0.03872, 0.01082, 0.09682, + 0.41679, 0.26062, 1.72249, 0.14777, 0.04091, 0.01311, 0.09761, + 0.41784, 0.25884, 1.68940, 0.14602, 0.04281, 0.01513, 0.09818, + 0.41864, 0.25707, 1.65589, 0.14429, 0.04446, 0.01693, 0.09859, + 0.41929, 0.25534, 1.62326, 0.14262, 0.04595, 0.01856, 0.09890, + 0.41967, 0.25360, 1.59008, 0.14096, 0.04721, 0.01997, 0.09906, + 0.41994, 0.25191, 1.55799, 0.13935, 0.04834, 0.02127, 0.09914, + 0.42007, 0.25022, 1.52634, 0.13777, 0.04933, 0.02242, 0.09913, + 0.42007, 0.24855, 1.49547, 0.13623, 0.05019, 0.02346, 0.09905, + 0.41997, 0.24691, 1.46537, 0.13472, 0.05095, 0.02439, 0.09891, + 0.41978, 0.24530, 1.43613, 0.13325, 0.05161, 0.02524, 0.09872/ DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/ + 0.43776, 0.28909, 1.64882, 0.13023, 0.00217, 0.00000, 0.06619, + 0.44242, 0.28586, 1.64270, 0.13041, 0.00819, -0.00001, 0.06929, + 0.44588, 0.28264, 1.62295, 0.13020, 0.01312, 0.00000, 0.07166, + 0.44831, 0.27945, 1.59396, 0.12968, 0.01718, 0.00000, 0.07342, + 0.45005, 0.27632, 1.56010, 0.12891, 0.02056, 0.00008, 0.07474, + 0.45121, 0.27326, 1.52371, 0.12745, 0.02341, 0.00123, 0.07574, + 0.45186, 0.27026, 1.48531, 0.12503, 0.02581, 0.00402, 0.07642, + 0.45214, 0.26732, 1.44645, 0.12283, 0.02786, 0.00621, 0.07688, + 0.45213, 0.26446, 1.40796, 0.12073, 0.02961, 0.00810, 0.07718, + 0.45188, 0.26169, 1.37039, 0.11871, 0.03112, 0.00976, 0.07735, + 0.45138, 0.25898, 1.33333, 0.11675, 0.03240, 0.01121, 0.07737, + 0.45069, 0.25633, 1.29717, 0.11485, 0.03350, 0.01248, 0.07728, + 0.44991, 0.25379, 1.26272, 0.11303, 0.03447, 0.01363, 0.07714, + 0.44891, 0.25129, 1.22885, 0.11126, 0.03526, 0.01461, 0.07690, + 0.44785, 0.24887, 1.19662, 0.10956, 0.03597, 0.01549, 0.07662, + 0.44669, 0.24650, 1.16549, 0.10792, 0.03656, 0.01627, 0.07629, + 0.44546, 0.24420, 1.13563, 0.10633, 0.03706, 0.01697, 0.07592, + 0.44417, 0.24195, 1.10696, 0.10479, 0.03749, 0.01758, 0.07552, + 0.44282, 0.23976, 1.07949, 0.10331, 0.03785, 0.01813, 0.07509/ DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/ + 0.49294, 0.29618, 1.44435, 0.10451, 0.00171, 0.00001, 0.05311, + 0.49398, 0.29063, 1.40607, 0.10363, 0.00635, 0.00001, 0.05498, + 0.49408, 0.28536, 1.36223, 0.10254, 0.01007, 0.00001, 0.05629, + 0.49338, 0.28036, 1.31553, 0.10128, 0.01305, 0.00001, 0.05715, + 0.49220, 0.27560, 1.26866, 0.09991, 0.01550, 0.00007, 0.05771, + 0.49061, 0.27111, 1.22275, 0.09811, 0.01751, 0.00090, 0.05803, + 0.48868, 0.26677, 1.17775, 0.09567, 0.01917, 0.00292, 0.05814, + 0.48652, 0.26264, 1.13448, 0.09344, 0.02055, 0.00449, 0.05811, + 0.48419, 0.25868, 1.09324, 0.09134, 0.02171, 0.00581, 0.05797, + 0.48176, 0.25490, 1.05420, 0.08936, 0.02269, 0.00697, 0.05775, + 0.47917, 0.25126, 1.01686, 0.08745, 0.02350, 0.00796, 0.05745, + 0.47650, 0.24775, 0.98134, 0.08563, 0.02417, 0.00882, 0.05709, + 0.47385, 0.24440, 0.94806, 0.08391, 0.02475, 0.00958, 0.05671, + 0.47107, 0.24115, 0.91612, 0.08224, 0.02521, 0.01022, 0.05626, + 0.46831, 0.23804, 0.88614, 0.08066, 0.02560, 0.01079, 0.05581, + 0.46553, 0.23503, 0.85766, 0.07914, 0.02591, 0.01129, 0.05534, + 0.46275, 0.23212, 0.83070, 0.07768, 0.02616, 0.01173, 0.05484, + 0.45997, 0.22932, 0.80515, 0.07629, 0.02637, 0.01211, 0.05434, + 0.45721, 0.22661, 0.78094, 0.07495, 0.02653, 0.01244, 0.05383/ DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/ + 0.53606, 0.29472, 1.26244, 0.08206, 0.00135, 0.00001, 0.04169, + 0.53294, 0.28717, 1.20527, 0.08075, 0.00496, 0.00000, 0.04285, + 0.52924, 0.28021, 1.14839, 0.07934, 0.00780, 0.00000, 0.04356, + 0.52513, 0.27371, 1.09311, 0.07786, 0.01004, 0.00000, 0.04393, + 0.52077, 0.26768, 1.04076, 0.07635, 0.01182, 0.00005, 0.04408, + 0.51629, 0.26203, 0.99161, 0.07455, 0.01327, 0.00067, 0.04407, + 0.51168, 0.25666, 0.94522, 0.07233, 0.01444, 0.00215, 0.04390, + 0.50700, 0.25161, 0.90185, 0.07031, 0.01539, 0.00329, 0.04365, + 0.50233, 0.24683, 0.86145, 0.06841, 0.01617, 0.00424, 0.04334, + 0.49771, 0.24230, 0.82391, 0.06663, 0.01682, 0.00506, 0.04298, + 0.49309, 0.23797, 0.78871, 0.06494, 0.01733, 0.00576, 0.04257, + 0.48850, 0.23384, 0.75579, 0.06334, 0.01775, 0.00635, 0.04212, + 0.48404, 0.22993, 0.72530, 0.06184, 0.01809, 0.00687, 0.04167, + 0.47957, 0.22616, 0.69651, 0.06039, 0.01835, 0.00731, 0.04119, + 0.47521, 0.22257, 0.66975, 0.05903, 0.01857, 0.00769, 0.04071, + 0.47090, 0.21913, 0.64460, 0.05772, 0.01873, 0.00801, 0.04022, + 0.46668, 0.21582, 0.62104, 0.05648, 0.01885, 0.00829, 0.03973, + 0.46255, 0.21265, 0.59892, 0.05530, 0.01893, 0.00853, 0.03923, + 0.45848, 0.20960, 0.57815, 0.05417, 0.01898, 0.00874, 0.03875/ DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/ + 0.56694, 0.28694, 1.10021, 0.06328, 0.00106, 0.00000, 0.03217, + 0.55946, 0.27779, 1.03264, 0.06190, 0.00389, 0.00001, 0.03289, + 0.55189, 0.26947, 0.96958, 0.06048, 0.00607, 0.00000, 0.03327, + 0.54428, 0.26185, 0.91115, 0.05905, 0.00776, 0.00000, 0.03339, + 0.53682, 0.25481, 0.85768, 0.05761, 0.00909, 0.00004, 0.03335, + 0.52950, 0.24831, 0.80881, 0.05599, 0.01014, 0.00050, 0.03318, + 0.52229, 0.24221, 0.76377, 0.05408, 0.01097, 0.00161, 0.03292, + 0.51523, 0.23650, 0.72247, 0.05234, 0.01163, 0.00245, 0.03259, + 0.50836, 0.23114, 0.68464, 0.05073, 0.01216, 0.00314, 0.03223, + 0.50172, 0.22610, 0.64998, 0.04923, 0.01258, 0.00373, 0.03184, + 0.49523, 0.22130, 0.61793, 0.04780, 0.01292, 0.00422, 0.03141, + 0.48890, 0.21677, 0.58836, 0.04646, 0.01317, 0.00464, 0.03097, + 0.48281, 0.21250, 0.56123, 0.04521, 0.01338, 0.00500, 0.03054, + 0.47681, 0.20841, 0.53590, 0.04401, 0.01352, 0.00529, 0.03009, + 0.47104, 0.20453, 0.51254, 0.04289, 0.01363, 0.00555, 0.02964, + 0.46542, 0.20083, 0.49080, 0.04182, 0.01371, 0.00577, 0.02920, + 0.45995, 0.19729, 0.47060, 0.04080, 0.01375, 0.00595, 0.02876, + 0.45463, 0.19391, 0.45177, 0.03985, 0.01377, 0.00610, 0.02833, + 0.44947, 0.19068, 0.43421, 0.03893, 0.01377, 0.00623, 0.02790/ DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/ + 0.58616, 0.27450, 0.95557, 0.04797, 0.00085, 0.00000, 0.02441, + 0.57437, 0.26414, 0.88327, 0.04672, 0.00307, 0.00001, 0.02489, + 0.56303, 0.25483, 0.81839, 0.04544, 0.00475, 0.00000, 0.02510, + 0.55212, 0.24639, 0.76014, 0.04417, 0.00603, 0.00000, 0.02509, + 0.54172, 0.23867, 0.70811, 0.04292, 0.00701, 0.00003, 0.02497, + 0.53177, 0.23159, 0.66150, 0.04155, 0.00778, 0.00038, 0.02476, + 0.52219, 0.22501, 0.61931, 0.03997, 0.00837, 0.00121, 0.02447, + 0.51298, 0.21888, 0.58120, 0.03855, 0.00883, 0.00183, 0.02415, + 0.50416, 0.21317, 0.54674, 0.03724, 0.00919, 0.00234, 0.02380, + 0.49573, 0.20783, 0.51553, 0.03601, 0.00947, 0.00276, 0.02344, + 0.48761, 0.20278, 0.48701, 0.03486, 0.00969, 0.00312, 0.02305, + 0.47978, 0.19803, 0.46095, 0.03377, 0.00984, 0.00341, 0.02266, + 0.47231, 0.19357, 0.43724, 0.03277, 0.00996, 0.00367, 0.02228, + 0.46504, 0.18933, 0.41532, 0.03181, 0.01003, 0.00387, 0.02189, + 0.45808, 0.18532, 0.39525, 0.03091, 0.01008, 0.00404, 0.02151, + 0.45137, 0.18150, 0.37671, 0.03006, 0.01010, 0.00419, 0.02113, + 0.44489, 0.17788, 0.35960, 0.02926, 0.01011, 0.00431, 0.02076, + 0.43862, 0.17442, 0.34376, 0.02851, 0.01009, 0.00441, 0.02040, + 0.43258, 0.17113, 0.32907, 0.02779, 0.01006, 0.00449, 0.02004/ DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/ + 0.59448, 0.25877, 0.82678, 0.03584, 0.00066, 0.00000, 0.01825, + 0.57863, 0.24757, 0.75359, 0.03480, 0.00241, -0.00001, 0.01859, + 0.56384, 0.23761, 0.68973, 0.03373, 0.00371, 0.00000, 0.01871, + 0.54994, 0.22863, 0.63373, 0.03268, 0.00467, 0.00000, 0.01866, + 0.53691, 0.22051, 0.58465, 0.03165, 0.00541, 0.00002, 0.01852, + 0.52465, 0.21310, 0.54138, 0.03053, 0.00598, 0.00028, 0.01832, + 0.51300, 0.20626, 0.50281, 0.02928, 0.00640, 0.00091, 0.01806, + 0.50196, 0.19993, 0.46836, 0.02814, 0.00672, 0.00137, 0.01776, + 0.49149, 0.19406, 0.43757, 0.02710, 0.00697, 0.00175, 0.01746, + 0.48157, 0.18860, 0.40997, 0.02613, 0.00716, 0.00206, 0.01715, + 0.47210, 0.18347, 0.38500, 0.02522, 0.00729, 0.00231, 0.01682, + 0.46304, 0.17866, 0.36236, 0.02437, 0.00738, 0.00252, 0.01650, + 0.45446, 0.17417, 0.34190, 0.02358, 0.00744, 0.00270, 0.01618, + 0.44619, 0.16989, 0.32316, 0.02283, 0.00747, 0.00284, 0.01585, + 0.43831, 0.16588, 0.30612, 0.02214, 0.00748, 0.00296, 0.01554, + 0.43073, 0.16208, 0.29049, 0.02149, 0.00747, 0.00305, 0.01523, + 0.42346, 0.15847, 0.27614, 0.02087, 0.00746, 0.00313, 0.01494, + 0.41649, 0.15505, 0.26293, 0.02028, 0.00743, 0.00320, 0.01464, + 0.40980, 0.15179, 0.25075, 0.01973, 0.00739, 0.00325, 0.01436/ DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/ + 0.59269, 0.24072, 0.71230, 0.02635, 0.00053, 0.00000, 0.01344, + 0.57325, 0.22903, 0.64079, 0.02552, 0.00190, 0.00000, 0.01371, + 0.55540, 0.21872, 0.57977, 0.02468, 0.00290, 0.00000, 0.01379, + 0.53890, 0.20950, 0.52731, 0.02385, 0.00364, 0.00001, 0.01374, + 0.52366, 0.20121, 0.48206, 0.02304, 0.00418, 0.00002, 0.01361, + 0.50947, 0.19370, 0.44267, 0.02217, 0.00459, 0.00022, 0.01343, + 0.49615, 0.18680, 0.40803, 0.02118, 0.00489, 0.00069, 0.01321, + 0.48362, 0.18045, 0.37744, 0.02031, 0.00511, 0.00103, 0.01297, + 0.47185, 0.17458, 0.35033, 0.01950, 0.00528, 0.00131, 0.01271, + 0.46077, 0.16914, 0.32623, 0.01875, 0.00540, 0.00154, 0.01246, + 0.45025, 0.16407, 0.30462, 0.01806, 0.00548, 0.00172, 0.01220, + 0.44028, 0.15933, 0.28518, 0.01740, 0.00553, 0.00187, 0.01193, + 0.43089, 0.15491, 0.26773, 0.01680, 0.00556, 0.00199, 0.01167, + 0.42188, 0.15073, 0.25188, 0.01623, 0.00557, 0.00209, 0.01142, + 0.41334, 0.14682, 0.23754, 0.01569, 0.00556, 0.00217, 0.01117, + 0.40518, 0.14312, 0.22446, 0.01520, 0.00554, 0.00223, 0.01092, + 0.39739, 0.13962, 0.21252, 0.01473, 0.00551, 0.00228, 0.01069, + 0.38996, 0.13631, 0.20159, 0.01429, 0.00548, 0.00233, 0.01046, + 0.38284, 0.13317, 0.19155, 0.01387, 0.00543, 0.00236, 0.01024/ DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/ + 0.58209, 0.22129, 0.61084, 0.01911, 0.00042, 0.00000, 0.00976, + 0.55958, 0.20941, 0.54275, 0.01849, 0.00149, 0.00000, 0.00999, + 0.53918, 0.19902, 0.48575, 0.01786, 0.00226, 0.00000, 0.01006, + 0.52057, 0.18978, 0.43753, 0.01723, 0.00282, 0.00001, 0.01002, + 0.50356, 0.18153, 0.39650, 0.01660, 0.00322, 0.00001, 0.00991, + 0.48786, 0.17410, 0.36121, 0.01594, 0.00352, 0.00016, 0.00977, + 0.47325, 0.16730, 0.33052, 0.01519, 0.00373, 0.00052, 0.00959, + 0.45961, 0.16108, 0.30369, 0.01453, 0.00389, 0.00078, 0.00940, + 0.44688, 0.15535, 0.28012, 0.01391, 0.00400, 0.00098, 0.00920, + 0.43497, 0.15007, 0.25933, 0.01334, 0.00407, 0.00115, 0.00900, + 0.42373, 0.14516, 0.24083, 0.01282, 0.00412, 0.00128, 0.00879, + 0.41314, 0.14058, 0.22432, 0.01233, 0.00415, 0.00138, 0.00858, + 0.40320, 0.13633, 0.20958, 0.01187, 0.00416, 0.00147, 0.00838, + 0.39372, 0.13233, 0.19628, 0.01145, 0.00415, 0.00154, 0.00818, + 0.38477, 0.12860, 0.18431, 0.01105, 0.00413, 0.00159, 0.00799, + 0.37626, 0.12508, 0.17346, 0.01068, 0.00410, 0.00163, 0.00780, + 0.36817, 0.12176, 0.16361, 0.01033, 0.00407, 0.00167, 0.00761, + 0.36047, 0.11862, 0.15463, 0.01000, 0.00404, 0.00169, 0.00744, + 0.35313, 0.11566, 0.14642, 0.00969, 0.00399, 0.00171, 0.00727/ DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/ + 0.56377, 0.20114, 0.52115, 0.01364, 0.00033, 0.00001, 0.00699, + 0.53879, 0.18934, 0.45761, 0.01320, 0.00117, 0.00001, 0.00720, + 0.51640, 0.17908, 0.40527, 0.01275, 0.00176, 0.00001, 0.00726, + 0.49621, 0.17003, 0.36168, 0.01228, 0.00218, 0.00000, 0.00723, + 0.47786, 0.16200, 0.32500, 0.01182, 0.00248, 0.00002, 0.00716, + 0.46111, 0.15479, 0.29381, 0.01132, 0.00269, 0.00013, 0.00705, + 0.44557, 0.14823, 0.26694, 0.01077, 0.00285, 0.00040, 0.00691, + 0.43119, 0.14225, 0.24366, 0.01028, 0.00295, 0.00058, 0.00676, + 0.41785, 0.13678, 0.22339, 0.00982, 0.00303, 0.00073, 0.00660, + 0.40544, 0.13175, 0.20564, 0.00940, 0.00307, 0.00085, 0.00645, + 0.39380, 0.12708, 0.18996, 0.00901, 0.00310, 0.00095, 0.00629, + 0.38287, 0.12275, 0.17606, 0.00864, 0.00310, 0.00102, 0.00613, + 0.37265, 0.11874, 0.16373, 0.00831, 0.00310, 0.00108, 0.00598, + 0.36293, 0.11499, 0.15267, 0.00799, 0.00309, 0.00113, 0.00583, + 0.35382, 0.11148, 0.14276, 0.00770, 0.00306, 0.00117, 0.00568, + 0.34519, 0.10819, 0.13383, 0.00743, 0.00304, 0.00120, 0.00553, + 0.33700, 0.10510, 0.12576, 0.00717, 0.00301, 0.00122, 0.00540, + 0.32922, 0.10219, 0.11844, 0.00694, 0.00297, 0.00124, 0.00526, + 0.32182, 0.09944, 0.11178, 0.00671, 0.00294, 0.00125, 0.00514/ DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/ + 0.53899, 0.18084, 0.44224, 0.00958, 0.00026, 0.00001, 0.00493, + 0.51217, 0.16935, 0.38389, 0.00929, 0.00091, 0.00001, 0.00511, + 0.48837, 0.15944, 0.33655, 0.00897, 0.00136, 0.00001, 0.00517, + 0.46709, 0.15074, 0.29763, 0.00864, 0.00168, 0.00000, 0.00516, + 0.44789, 0.14305, 0.26526, 0.00831, 0.00190, 0.00001, 0.00511, + 0.43049, 0.13619, 0.23801, 0.00795, 0.00205, 0.00010, 0.00503, + 0.41444, 0.12998, 0.21475, 0.00755, 0.00216, 0.00030, 0.00493, + 0.39969, 0.12434, 0.19478, 0.00719, 0.00223, 0.00044, 0.00482, + 0.38606, 0.11919, 0.17752, 0.00685, 0.00228, 0.00055, 0.00470, + 0.37344, 0.11448, 0.16251, 0.00655, 0.00230, 0.00063, 0.00458, + 0.36167, 0.11013, 0.14934, 0.00626, 0.00231, 0.00070, 0.00446, + 0.35065, 0.10611, 0.13775, 0.00600, 0.00231, 0.00075, 0.00435, + 0.34039, 0.10239, 0.12752, 0.00575, 0.00230, 0.00080, 0.00423, + 0.33068, 0.09892, 0.11839, 0.00553, 0.00229, 0.00083, 0.00412, + 0.32160, 0.09569, 0.11026, 0.00532, 0.00226, 0.00085, 0.00401, + 0.31303, 0.09266, 0.10297, 0.00512, 0.00224, 0.00087, 0.00390, + 0.30493, 0.08982, 0.09641, 0.00493, 0.00221, 0.00089, 0.00380, + 0.29725, 0.08716, 0.09048, 0.00476, 0.00218, 0.00090, 0.00370, + 0.28998, 0.08466, 0.08512, 0.00460, 0.00215, 0.00090, 0.00360/ DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/ + 0.50900, 0.16088, 0.37309, 0.00666, 0.00020, 0.00000, 0.00342, + 0.48098, 0.14990, 0.32025, 0.00648, 0.00069, -0.00001, 0.00358, + 0.45635, 0.14048, 0.27801, 0.00626, 0.00104, -0.00001, 0.00365, + 0.43445, 0.13227, 0.24366, 0.00604, 0.00128, 0.00000, 0.00365, + 0.41488, 0.12504, 0.21543, 0.00580, 0.00143, 0.00000, 0.00362, + 0.39720, 0.11861, 0.19189, 0.00555, 0.00154, 0.00007, 0.00356, + 0.38103, 0.11283, 0.17198, 0.00525, 0.00162, 0.00022, 0.00349, + 0.36623, 0.10759, 0.15501, 0.00499, 0.00167, 0.00032, 0.00341, + 0.35261, 0.10283, 0.14045, 0.00475, 0.00170, 0.00040, 0.00332, + 0.34006, 0.09849, 0.12787, 0.00453, 0.00172, 0.00046, 0.00324, + 0.32841, 0.09449, 0.11692, 0.00432, 0.00172, 0.00051, 0.00315, + 0.31753, 0.09081, 0.10733, 0.00413, 0.00171, 0.00055, 0.00306, + 0.30743, 0.08742, 0.09891, 0.00396, 0.00170, 0.00058, 0.00298, + 0.29793, 0.08426, 0.09145, 0.00380, 0.00168, 0.00060, 0.00289, + 0.28906, 0.08132, 0.08483, 0.00365, 0.00166, 0.00062, 0.00281, + 0.28071, 0.07858, 0.07892, 0.00351, 0.00164, 0.00063, 0.00273, + 0.27285, 0.07602, 0.07363, 0.00338, 0.00161, 0.00064, 0.00266, + 0.26544, 0.07362, 0.06887, 0.00325, 0.00159, 0.00064, 0.00258, + 0.25843, 0.07137, 0.06458, 0.00314, 0.00156, 0.00065, 0.00251/ DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/ + 0.47497, 0.14157, 0.31271, 0.00452, 0.00015, 0.00000, 0.00233, + 0.44637, 0.13125, 0.26548, 0.00442, 0.00053, 0.00000, 0.00247, + 0.42143, 0.12245, 0.22823, 0.00428, 0.00079, 0.00000, 0.00254, + 0.39940, 0.11481, 0.19828, 0.00414, 0.00097, 0.00000, 0.00255, + 0.37984, 0.10812, 0.17392, 0.00398, 0.00108, 0.00000, 0.00253, + 0.36227, 0.10220, 0.15380, 0.00380, 0.00116, 0.00005, 0.00249, + 0.34629, 0.09689, 0.13692, 0.00360, 0.00121, 0.00016, 0.00245, + 0.33173, 0.09210, 0.12265, 0.00341, 0.00124, 0.00023, 0.00239, + 0.31839, 0.08777, 0.11049, 0.00324, 0.00126, 0.00029, 0.00232, + 0.30614, 0.08383, 0.10005, 0.00309, 0.00127, 0.00034, 0.00226, + 0.29482, 0.08022, 0.09102, 0.00294, 0.00127, 0.00037, 0.00220, + 0.28430, 0.07690, 0.08316, 0.00281, 0.00126, 0.00040, 0.00213, + 0.27455, 0.07385, 0.07630, 0.00268, 0.00124, 0.00042, 0.00207, + 0.26542, 0.07102, 0.07025, 0.00257, 0.00123, 0.00044, 0.00201, + 0.25691, 0.06839, 0.06491, 0.00247, 0.00121, 0.00045, 0.00195, + 0.24894, 0.06595, 0.06016, 0.00237, 0.00119, 0.00045, 0.00190, + 0.24145, 0.06367, 0.05593, 0.00228, 0.00117, 0.00046, 0.00184, + 0.23440, 0.06154, 0.05214, 0.00219, 0.00115, 0.00046, 0.00179, + 0.22776, 0.05955, 0.04874, 0.00211, 0.00113, 0.00046, 0.00174/ DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/ + 0.43807, 0.12325, 0.26028, 0.00305, 0.00011, -0.00001, 0.00157, + 0.40947, 0.11370, 0.21859, 0.00300, 0.00040, -0.00001, 0.00169, + 0.38473, 0.10559, 0.18611, 0.00291, 0.00059, -0.00001, 0.00175, + 0.36299, 0.09860, 0.16030, 0.00283, 0.00072, -0.00001, 0.00177, + 0.34382, 0.09249, 0.13949, 0.00271, 0.00081, 0.00000, 0.00176, + 0.32665, 0.08713, 0.12247, 0.00260, 0.00087, 0.00004, 0.00174, + 0.31119, 0.08233, 0.10830, 0.00245, 0.00091, 0.00012, 0.00171, + 0.29711, 0.07802, 0.09642, 0.00232, 0.00092, 0.00017, 0.00166, + 0.28427, 0.07413, 0.08637, 0.00220, 0.00093, 0.00021, 0.00162, + 0.27253, 0.07061, 0.07779, 0.00210, 0.00093, 0.00024, 0.00157, + 0.26170, 0.06739, 0.07042, 0.00200, 0.00092, 0.00027, 0.00153, + 0.25169, 0.06444, 0.06404, 0.00190, 0.00092, 0.00029, 0.00148, + 0.24247, 0.06173, 0.05849, 0.00182, 0.00091, 0.00030, 0.00144, + 0.23384, 0.05923, 0.05363, 0.00174, 0.00089, 0.00031, 0.00139, + 0.22582, 0.05692, 0.04935, 0.00166, 0.00088, 0.00032, 0.00135, + 0.21833, 0.05477, 0.04557, 0.00159, 0.00086, 0.00032, 0.00131, + 0.21131, 0.05277, 0.04222, 0.00153, 0.00084, 0.00033, 0.00127, + 0.20472, 0.05090, 0.03923, 0.00147, 0.00083, 0.00033, 0.00123, + 0.19853, 0.04916, 0.03655, 0.00142, 0.00081, 0.00033, 0.00119/ DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/ + 0.39932, 0.10609, 0.21499, 0.00199, 0.00008, -0.00001, 0.00103, + 0.37125, 0.09738, 0.17861, 0.00198, 0.00030, -0.00001, 0.00113, + 0.34714, 0.09003, 0.15062, 0.00194, 0.00044, -0.00001, 0.00118, + 0.32609, 0.08372, 0.12861, 0.00189, 0.00054, -0.00001, 0.00120, + 0.30762, 0.07824, 0.11104, 0.00181, 0.00060, 0.00000, 0.00120, + 0.29117, 0.07344, 0.09679, 0.00174, 0.00064, 0.00003, 0.00119, + 0.27641, 0.06917, 0.08503, 0.00164, 0.00067, 0.00008, 0.00117, + 0.26304, 0.06534, 0.07523, 0.00155, 0.00067, 0.00012, 0.00114, + 0.25090, 0.06191, 0.06700, 0.00147, 0.00068, 0.00015, 0.00111, + 0.23984, 0.05880, 0.06003, 0.00140, 0.00068, 0.00018, 0.00108, + 0.22966, 0.05597, 0.05406, 0.00133, 0.00067, 0.00019, 0.00105, + 0.22030, 0.05339, 0.04893, 0.00127, 0.00066, 0.00020, 0.00101, + 0.21169, 0.05102, 0.04450, 0.00121, 0.00065, 0.00021, 0.00098, + 0.20367, 0.04884, 0.04063, 0.00115, 0.00064, 0.00022, 0.00095, + 0.19624, 0.04683, 0.03724, 0.00110, 0.00063, 0.00023, 0.00092, + 0.18931, 0.04497, 0.03426, 0.00105, 0.00061, 0.00023, 0.00089, + 0.18283, 0.04324, 0.03163, 0.00101, 0.00060, 0.00023, 0.00086, + 0.17677, 0.04163, 0.02929, 0.00097, 0.00059, 0.00023, 0.00084, + 0.17109, 0.04013, 0.02721, 0.00093, 0.00057, 0.00023, 0.00081/ DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/ + 0.35977, 0.09027, 0.17611, 0.00129, 0.00006, 0.00000, 0.00067, + 0.33269, 0.08244, 0.14474, 0.00130, 0.00022, -0.00001, 0.00076, + 0.30956, 0.07587, 0.12088, 0.00129, 0.00033, 0.00000, 0.00081, + 0.28955, 0.07026, 0.10233, 0.00125, 0.00040, 0.00000, 0.00082, + 0.27202, 0.06542, 0.08765, 0.00121, 0.00044, 0.00000, 0.00082, + 0.25654, 0.06119, 0.07585, 0.00116, 0.00046, 0.00002, 0.00081, + 0.24267, 0.05744, 0.06620, 0.00109, 0.00048, 0.00006, 0.00080, + 0.23017, 0.05410, 0.05821, 0.00104, 0.00049, 0.00009, 0.00078, + 0.21888, 0.05110, 0.05154, 0.00098, 0.00049, 0.00011, 0.00076, + 0.20862, 0.04840, 0.04592, 0.00093, 0.00049, 0.00013, 0.00074, + 0.19922, 0.04595, 0.04115, 0.00088, 0.00048, 0.00014, 0.00071, + 0.19059, 0.04372, 0.03707, 0.00084, 0.00047, 0.00014, 0.00069, + 0.18268, 0.04168, 0.03356, 0.00080, 0.00047, 0.00015, 0.00067, + 0.17533, 0.03981, 0.03052, 0.00076, 0.00046, 0.00016, 0.00065, + 0.16855, 0.03808, 0.02787, 0.00073, 0.00045, 0.00016, 0.00063, + 0.16225, 0.03649, 0.02554, 0.00070, 0.00043, 0.00016, 0.00061, + 0.15637, 0.03502, 0.02349, 0.00067, 0.00042, 0.00016, 0.00058, + 0.15087, 0.03365, 0.02169, 0.00064, 0.00041, 0.00016, 0.00057, + 0.14572, 0.03238, 0.02008, 0.00062, 0.00040, 0.00016, 0.00055/ DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/ + 0.32018, 0.07586, 0.14295, 0.00080, 0.00004, 0.00000, 0.00042, + 0.29450, 0.06894, 0.11621, 0.00083, 0.00016, 0.00000, 0.00049, + 0.27271, 0.06315, 0.09613, 0.00083, 0.00024, 0.00000, 0.00053, + 0.25396, 0.05824, 0.08066, 0.00081, 0.00029, 0.00000, 0.00055, + 0.23762, 0.05402, 0.06854, 0.00079, 0.00032, 0.00000, 0.00055, + 0.22327, 0.05035, 0.05888, 0.00076, 0.00033, 0.00001, 0.00055, + 0.21046, 0.04710, 0.05104, 0.00071, 0.00035, 0.00004, 0.00054, + 0.19896, 0.04422, 0.04460, 0.00068, 0.00035, 0.00006, 0.00052, + 0.18861, 0.04165, 0.03926, 0.00064, 0.00035, 0.00008, 0.00051, + 0.17925, 0.03934, 0.03479, 0.00060, 0.00035, 0.00009, 0.00050, + 0.17070, 0.03725, 0.03102, 0.00057, 0.00034, 0.00009, 0.00048, + 0.16287, 0.03535, 0.02781, 0.00055, 0.00033, 0.00010, 0.00046, + 0.15572, 0.03362, 0.02506, 0.00052, 0.00033, 0.00011, 0.00045, + 0.14910, 0.03203, 0.02270, 0.00050, 0.00032, 0.00011, 0.00043, + 0.14300, 0.03058, 0.02064, 0.00047, 0.00031, 0.00011, 0.00042, + 0.13735, 0.02924, 0.01885, 0.00045, 0.00030, 0.00011, 0.00040, + 0.13209, 0.02800, 0.01728, 0.00043, 0.00030, 0.00011, 0.00039, + 0.12718, 0.02685, 0.01589, 0.00041, 0.00029, 0.00011, 0.00038, + 0.12260, 0.02579, 0.01467, 0.00040, 0.00028, 0.00011, 0.00036/ DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/ + 0.28136, 0.06292, 0.11486, 0.00050, 0.00004, 0.00000, 0.00027, + 0.25741, 0.05689, 0.09236, 0.00052, 0.00012, 0.00000, 0.00033, + 0.23722, 0.05187, 0.07564, 0.00053, 0.00018, 0.00000, 0.00035, + 0.21993, 0.04764, 0.06291, 0.00052, 0.00021, 0.00000, 0.00037, + 0.20495, 0.04401, 0.05303, 0.00051, 0.00023, 0.00000, 0.00037, + 0.19184, 0.04087, 0.04522, 0.00049, 0.00024, 0.00001, 0.00037, + 0.18020, 0.03811, 0.03893, 0.00046, 0.00025, 0.00003, 0.00036, + 0.16981, 0.03566, 0.03380, 0.00043, 0.00025, 0.00005, 0.00035, + 0.16047, 0.03349, 0.02958, 0.00041, 0.00025, 0.00005, 0.00034, + 0.15204, 0.03154, 0.02607, 0.00039, 0.00024, 0.00006, 0.00033, + 0.14438, 0.02979, 0.02312, 0.00037, 0.00024, 0.00007, 0.00032, + 0.13739, 0.02820, 0.02063, 0.00035, 0.00024, 0.00007, 0.00031, + 0.13102, 0.02675, 0.01851, 0.00033, 0.00023, 0.00007, 0.00030, + 0.12515, 0.02543, 0.01668, 0.00032, 0.00022, 0.00007, 0.00029, + 0.11975, 0.02421, 0.01511, 0.00030, 0.00022, 0.00007, 0.00028, + 0.11475, 0.02310, 0.01375, 0.00029, 0.00021, 0.00007, 0.00027, + 0.11012, 0.02208, 0.01256, 0.00028, 0.00021, 0.00007, 0.00026, + 0.10581, 0.02114, 0.01151, 0.00026, 0.00020, 0.00007, 0.00025, + 0.10180, 0.02026, 0.01059, 0.00025, 0.00019, 0.00007, 0.00024/ DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/ + 0.24401, 0.05147, 0.09129, 0.00030, 0.00002, 0.00000, 0.00016, + 0.22204, 0.04630, 0.07259, 0.00033, 0.00008, 0.00000, 0.00020, + 0.20363, 0.04202, 0.05887, 0.00033, 0.00012, 0.00000, 0.00023, + 0.18793, 0.03842, 0.04852, 0.00033, 0.00015, 0.00000, 0.00024, + 0.17440, 0.03538, 0.04058, 0.00033, 0.00016, 0.00000, 0.00024, + 0.16264, 0.03272, 0.03433, 0.00031, 0.00017, 0.00001, 0.00024, + 0.15222, 0.03041, 0.02936, 0.00030, 0.00017, 0.00002, 0.00024, + 0.14297, 0.02836, 0.02532, 0.00028, 0.00017, 0.00003, 0.00023, + 0.13469, 0.02655, 0.02202, 0.00027, 0.00017, 0.00003, 0.00023, + 0.12724, 0.02494, 0.01929, 0.00025, 0.00017, 0.00004, 0.00022, + 0.12049, 0.02348, 0.01702, 0.00024, 0.00016, 0.00004, 0.00021, + 0.11435, 0.02217, 0.01512, 0.00023, 0.00016, 0.00004, 0.00020, + 0.10876, 0.02098, 0.01350, 0.00022, 0.00015, 0.00004, 0.00019, + 0.10363, 0.01990, 0.01212, 0.00021, 0.00015, 0.00005, 0.00019, + 0.09893, 0.01891, 0.01093, 0.00020, 0.00014, 0.00005, 0.00018, + 0.09459, 0.01800, 0.00991, 0.00018, 0.00014, 0.00005, 0.00018, + 0.09057, 0.01716, 0.00901, 0.00017, 0.00014, 0.00005, 0.00017, + 0.08685, 0.01639, 0.00823, 0.00017, 0.00013, 0.00005, 0.00016, + 0.08340, 0.01568, 0.00755, 0.00016, 0.00013, 0.00005, 0.00016/ DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/ + 0.20866, 0.04147, 0.07167, 0.00018, 0.00002, 0.00000, 0.00010, + 0.18883, 0.03710, 0.05635, 0.00020, 0.00006, 0.00000, 0.00013, + 0.17232, 0.03352, 0.04523, 0.00021, 0.00009, 0.00000, 0.00015, + 0.15832, 0.03051, 0.03694, 0.00021, 0.00010, 0.00000, 0.00016, + 0.14631, 0.02798, 0.03063, 0.00021, 0.00011, 0.00000, 0.00016, + 0.13591, 0.02579, 0.02572, 0.00020, 0.00012, 0.00000, 0.00016, + 0.12675, 0.02388, 0.02183, 0.00019, 0.00012, 0.00001, 0.00016, + 0.11864, 0.02220, 0.01871, 0.00018, 0.00012, 0.00002, 0.00015, + 0.11141, 0.02072, 0.01617, 0.00017, 0.00012, 0.00002, 0.00015, + 0.10493, 0.01940, 0.01409, 0.00016, 0.00011, 0.00003, 0.00014, + 0.09907, 0.01822, 0.01236, 0.00015, 0.00011, 0.00003, 0.00013, + 0.09377, 0.01715, 0.01092, 0.00015, 0.00011, 0.00003, 0.00013, + 0.08896, 0.01620, 0.00970, 0.00014, 0.00010, 0.00003, 0.00012, + 0.08455, 0.01532, 0.00867, 0.00013, 0.00010, 0.00003, 0.00012, + 0.08052, 0.01453, 0.00779, 0.00012, 0.00010, 0.00003, 0.00012, + 0.07681, 0.01380, 0.00703, 0.00012, 0.00009, 0.00003, 0.00011, + 0.07339, 0.01313, 0.00638, 0.00011, 0.00009, 0.00003, 0.00011, + 0.07022, 0.01251, 0.00580, 0.00011, 0.00009, 0.00003, 0.00010, + 0.06729, 0.01194, 0.00530, 0.00010, 0.00008, 0.00003, 0.00010/ DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/ + 0.17573, 0.03287, 0.05549, 0.00010, 0.00001, 0.00000, 0.00006, + 0.15815, 0.02925, 0.04312, 0.00012, 0.00004, 0.00000, 0.00008, + 0.14359, 0.02629, 0.03426, 0.00013, 0.00006, 0.00000, 0.00009, + 0.13133, 0.02382, 0.02772, 0.00013, 0.00007, 0.00000, 0.00010, + 0.12086, 0.02174, 0.02278, 0.00013, 0.00008, -0.00001, 0.00010, + 0.11182, 0.01998, 0.01898, 0.00013, 0.00007, 0.00000, 0.00010, + 0.10390, 0.01843, 0.01599, 0.00012, 0.00008, 0.00001, 0.00010, + 0.09691, 0.01708, 0.01361, 0.00011, 0.00008, 0.00001, 0.00009, + 0.09070, 0.01589, 0.01169, 0.00011, 0.00008, 0.00002, 0.00009, + 0.08516, 0.01483, 0.01013, 0.00010, 0.00008, 0.00002, 0.00009, + 0.08018, 0.01389, 0.00884, 0.00009, 0.00007, 0.00002, 0.00009, + 0.07568, 0.01304, 0.00776, 0.00009, 0.00007, 0.00002, 0.00009, + 0.07160, 0.01228, 0.00686, 0.00008, 0.00007, 0.00002, 0.00008, + 0.06788, 0.01159, 0.00611, 0.00008, 0.00007, 0.00002, 0.00008, + 0.06448, 0.01096, 0.00546, 0.00008, 0.00006, 0.00002, 0.00007, + 0.06137, 0.01039, 0.00491, 0.00007, 0.00006, 0.00002, 0.00007, + 0.05850, 0.00986, 0.00444, 0.00007, 0.00006, 0.00002, 0.00007, + 0.05586, 0.00938, 0.00402, 0.00006, 0.00006, 0.00002, 0.00007, + 0.05341, 0.00894, 0.00366, 0.00006, 0.00006, 0.00002, 0.00006/ DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/ + 0.14559, 0.02558, 0.04232, 0.00006, 0.00001, 0.00000, 0.00003, + 0.13028, 0.02263, 0.03249, 0.00007, 0.00003, 0.00000, 0.00005, + 0.11768, 0.02024, 0.02554, 0.00008, 0.00004, 0.00000, 0.00006, + 0.10712, 0.01826, 0.02046, 0.00008, 0.00005, 0.00000, 0.00006, + 0.09816, 0.01660, 0.01667, 0.00008, 0.00005, 0.00000, 0.00006, + 0.09044, 0.01519, 0.01377, 0.00008, 0.00005, 0.00000, 0.00006, + 0.08373, 0.01396, 0.01152, 0.00008, 0.00005, 0.00000, 0.00006, + 0.07782, 0.01289, 0.00973, 0.00007, 0.00005, 0.00001, 0.00006, + 0.07259, 0.01195, 0.00830, 0.00007, 0.00005, 0.00001, 0.00006, + 0.06793, 0.01113, 0.00715, 0.00006, 0.00005, 0.00001, 0.00006, + 0.06377, 0.01039, 0.00620, 0.00006, 0.00005, 0.00001, 0.00005, + 0.06002, 0.00973, 0.00542, 0.00005, 0.00005, 0.00001, 0.00005, + 0.05663, 0.00913, 0.00477, 0.00005, 0.00004, 0.00001, 0.00005, + 0.05354, 0.00860, 0.00422, 0.00005, 0.00004, 0.00001, 0.00005, + 0.05074, 0.00811, 0.00376, 0.00005, 0.00004, 0.00001, 0.00005, + 0.04817, 0.00767, 0.00337, 0.00004, 0.00004, 0.00001, 0.00004, + 0.04581, 0.00727, 0.00303, 0.00004, 0.00004, 0.00001, 0.00004, + 0.04365, 0.00690, 0.00274, 0.00004, 0.00004, 0.00001, 0.00004, + 0.04165, 0.00656, 0.00248, 0.00004, 0.00004, 0.00001, 0.00004/ DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/ + 0.09445, 0.01453, 0.02330, 0.00001, 0.00001, 0.00000, 0.00001, + 0.08350, 0.01270, 0.01744, 0.00002, 0.00001, 0.00000, 0.00002, + 0.07461, 0.01124, 0.01339, 0.00002, 0.00002, 0.00000, 0.00002, + 0.06725, 0.01004, 0.01051, 0.00003, 0.00002, 0.00000, 0.00002, + 0.06106, 0.00905, 0.00840, 0.00003, 0.00002, 0.00000, 0.00002, + 0.05579, 0.00821, 0.00682, 0.00003, 0.00002, 0.00000, 0.00002, + 0.05124, 0.00749, 0.00562, 0.00002, 0.00002, 0.00000, 0.00002, + 0.04727, 0.00687, 0.00467, 0.00002, 0.00002, 0.00000, 0.00002, + 0.04379, 0.00632, 0.00393, 0.00002, 0.00002, 0.00000, 0.00002, + 0.04071, 0.00585, 0.00334, 0.00002, 0.00002, 0.00001, 0.00002, + 0.03797, 0.00542, 0.00286, 0.00002, 0.00002, 0.00001, 0.00002, + 0.03552, 0.00505, 0.00247, 0.00002, 0.00002, 0.00001, 0.00002, + 0.03332, 0.00472, 0.00215, 0.00002, 0.00002, 0.00000, 0.00002, + 0.03133, 0.00442, 0.00189, 0.00002, 0.00002, 0.00000, 0.00002, + 0.02954, 0.00414, 0.00166, 0.00002, 0.00002, 0.00000, 0.00002, + 0.02790, 0.00390, 0.00148, 0.00001, 0.00001, 0.00000, 0.00002, + 0.02641, 0.00368, 0.00132, 0.00001, 0.00001, 0.00000, 0.00002, + 0.02504, 0.00347, 0.00118, 0.00001, 0.00001, 0.00000, 0.00001, + 0.02378, 0.00329, 0.00106, 0.00001, 0.00001, 0.00000, 0.00001/ DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/ + 0.05591, 0.00743, 0.01171, 0.00001, 0.00000, 0.00000, 0.00000, + 0.04880, 0.00642, 0.00852, 0.00001, 0.00000, 0.00000, 0.00001, + 0.04309, 0.00562, 0.00638, 0.00001, 0.00001, 0.00000, 0.00001, + 0.03843, 0.00496, 0.00490, 0.00001, 0.00001, 0.00000, 0.00001, + 0.03455, 0.00443, 0.00383, 0.00001, 0.00001, 0.00000, 0.00001, + 0.03128, 0.00398, 0.00305, 0.00001, 0.00001, 0.00000, 0.00001, + 0.02847, 0.00360, 0.00247, 0.00001, 0.00001, 0.00000, 0.00001, + 0.02606, 0.00328, 0.00202, 0.00001, 0.00001, 0.00000, 0.00001, + 0.02395, 0.00299, 0.00167, 0.00001, 0.00001, 0.00000, 0.00001, + 0.02211, 0.00275, 0.00140, 0.00001, 0.00001, 0.00000, 0.00001, + 0.02048, 0.00253, 0.00119, 0.00001, 0.00001, 0.00000, 0.00001, + 0.01904, 0.00234, 0.00101, 0.00001, 0.00001, 0.00000, 0.00001, + 0.01775, 0.00218, 0.00087, 0.00000, 0.00001, 0.00000, 0.00001, + 0.01659, 0.00202, 0.00075, 0.00000, 0.00001, 0.00000, 0.00001, + 0.01555, 0.00189, 0.00066, 0.00000, 0.00001, 0.00000, 0.00001, + 0.01461, 0.00177, 0.00058, 0.00000, 0.00001, 0.00000, 0.00001, + 0.01375, 0.00166, 0.00051, 0.00000, 0.00000, 0.00000, 0.00000, + 0.01297, 0.00156, 0.00045, 0.00000, 0.00000, 0.00000, 0.00000, + 0.01226, 0.00147, 0.00041, 0.00000, 0.00000, 0.00000, 0.00000/ DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/ + 0.02931, 0.00330, 0.00519, 0.00000, 0.00000, 0.00000, 0.00000, + 0.02521, 0.00281, 0.00366, 0.00000, 0.00000, 0.00000, 0.00000, + 0.02197, 0.00243, 0.00266, 0.00000, 0.00000, 0.00000, 0.00000, + 0.01936, 0.00212, 0.00199, 0.00000, 0.00000, 0.00000, 0.00000, + 0.01722, 0.00187, 0.00152, 0.00000, 0.00000, 0.00000, 0.00000, + 0.01543, 0.00167, 0.00119, 0.00000, 0.00000, 0.00000, 0.00000, + 0.01391, 0.00149, 0.00094, 0.00000, 0.00000, 0.00000, 0.00000, + 0.01262, 0.00135, 0.00076, 0.00000, 0.00000, 0.00000, 0.00000, + 0.01150, 0.00122, 0.00062, 0.00000, 0.00000, 0.00000, 0.00000, + 0.01053, 0.00111, 0.00051, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00968, 0.00102, 0.00042, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00893, 0.00093, 0.00035, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00827, 0.00086, 0.00030, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00768, 0.00080, 0.00026, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00715, 0.00074, 0.00022, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00667, 0.00069, 0.00019, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00624, 0.00064, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00586, 0.00060, 0.00015, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00551, 0.00056, 0.00013, 0.00000, 0.00000, 0.00000, 0.00000/ DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/ + 0.01294, 0.00120, 0.00192, 0.00000, 0.00000, 0.00000, 0.00000, + 0.01094, 0.00100, 0.00130, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00940, 0.00085, 0.00092, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00816, 0.00074, 0.00067, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00716, 0.00064, 0.00050, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00634, 0.00057, 0.00038, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00566, 0.00050, 0.00029, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00508, 0.00045, 0.00023, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00458, 0.00040, 0.00018, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00416, 0.00036, 0.00015, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00379, 0.00033, 0.00012, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00346, 0.00030, 0.00010, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00318, 0.00027, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00293, 0.00025, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00271, 0.00023, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00251, 0.00021, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00233, 0.00020, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00217, 0.00018, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00203, 0.00017, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000/ DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/ + 0.00090, 0.00005, 0.00009, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00073, 0.00004, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00060, 0.00003, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00050, 0.00002, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00042, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00036, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00031, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00027, 0.00001, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00024, 0.00001, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000, + 0.00008, 0.00001, 0.00000, 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/2,5,4,5,0,0,5/ 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(27,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,15 XX(J)= LOG10(XX(J))+ONEDO DO 30 I=1,6 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(7F10.5) DO 40 I=1,7 DO 40 M=1,19 40 F(I,42,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) IF(M.GT.18) M=18 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.16) GOTO 65 IF(I.EQ.7) 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(6) CHM=G(5) GL =G(3) BOT=G(7) RETURN END