* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:29:39 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:33 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFDISD0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C THIS IS THE NEW B0-TYPE FIT "D0'" WITH UBAR < DBAR (230 MEV) C IN THE ** DIS ** SCHEME C #include "pdf/impdp.inc" PARAMETER(NX=47) PARAMETER(NTENTH=21) DIMENSION F(8,NX,20),G(8),XX(NX),N0(8) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/ + 0.00930, 0.00352, 4.30034, 0.47321, 0.06807, + 0.00000, 0.27447, 0.47849, + 0.00976, 0.00366, 11.00467, 0.65733, 0.25226, + 0.00000, 0.45879, 0.66265, + 0.01020, 0.00380, 19.93318, 0.89179, 0.48679, + 0.00000, 0.69346, 0.89715, + 0.01060, 0.00393, 30.63055, 1.17179, 0.76686, + 0.00000, 0.97364, 1.17720, + 0.01098, 0.00406, 43.07445, 1.49553, 1.09068, + 0.07132, 1.29756, 1.50100, + 0.01134, 0.00418, 57.04886, 1.86041, 1.45562, + 0.40646, 1.66261, 1.86591, + 0.01168, 0.00431, 72.39754, 2.26499, 1.86027, + 0.83916, 2.06736, 2.27054 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.01201, 0.00442, 88.96280, 2.70667, 2.30201, + 1.30378, 2.50917, 2.71224, + 0.01234, 0.00454, 106.60825, 3.18275, 2.77815, + 1.80435, 2.98540, 3.18836, + 0.01264, 0.00466, 125.23030, 3.69120, 3.28666, + 2.33731, 3.49399, 3.69685, + 0.01294, 0.00478, 144.75316, 4.23047, 3.82598, + 2.90128, 4.03339, 4.23615, + 0.01323, 0.00489, 165.02708, 4.79753, 4.39310, + 3.49297, 4.60057, 4.80326, + 0.01351, 0.00499, 185.74925, 5.38564, 4.98127, + 4.10534, 5.18881, 5.39140, + 0.01378, 0.00510, 207.19238, 6.00021, 5.59589, + 4.74396, 5.80350, 6.00601 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.01405, 0.00521, 229.19391, 6.63778, 6.23352, + 5.40525, 6.44118, 6.64362, + 0.01431, 0.00531, 251.37769, 7.28997, 6.88577, + 6.08051, 7.09349, 7.29585, + 0.01456, 0.00541, 274.24219, 7.96752, 7.56338, + 6.78087, 7.77116, 7.97344, + 0.01481, 0.00551, 297.05859, 8.65364, 8.24955, + 7.48899, 8.45738, 8.65965, + 0.01505, 0.00561, 320.44653, 9.36224, 8.95821, + 8.21925, 9.16609, 9.36827 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.01259, 0.00479, 4.16478, 0.46504, 0.06334, + 0.00000, 0.26692, 0.46940, + 0.01320, 0.00501, 10.00315, 0.62742, 0.22605, + 0.00000, 0.42958, 0.63184, + 0.01378, 0.00521, 17.46046, 0.82840, 0.42734, + 0.00000, 0.63082, 0.83288, + 0.01430, 0.00540, 26.12637, 1.06285, 0.66208, + 0.00000, 0.86551, 1.06738, + 0.01480, 0.00558, 35.96332, 1.32860, 0.92810, + 0.05844, 1.13149, 1.33316, + 0.01527, 0.00576, 46.78426, 1.62303, 1.22278, + 0.32996, 1.42615, 1.62765, + 0.01573, 0.00595, 58.45795, 1.94464, 1.54464, + 0.67577, 1.74796, 1.94930 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.01617, 0.00612, 70.85808, 2.29108, 1.89131, + 1.04175, 2.09460, 2.29578, + 0.01659, 0.00629, 83.87958, 2.66004, 2.26049, + 1.43112, 2.46375, 2.66479, + 0.01700, 0.00645, 97.44549, 3.04980, 2.65045, + 1.84095, 2.85367, 3.05457, + 0.01739, 0.00661, 111.50072, 3.45902, 3.05988, + 2.27012, 3.26308, 3.46383, + 0.01776, 0.00677, 125.93797, 3.88536, 3.48643, + 2.71604, 3.68959, 3.89023, + 0.01813, 0.00691, 140.54074, 4.32375, 3.92499, + 3.17347, 4.12812, 4.32864, + 0.01849, 0.00706, 155.51309, 4.77817, 4.37961, + 3.64656, 4.58271, 4.78312 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.01883, 0.00721, 170.74072, 5.24610, 4.84771, + 4.13266, 5.05078, 5.25107, + 0.01917, 0.00735, 185.96050, 5.72129, 5.32308, + 4.62538, 5.52612, 5.72630, + 0.01949, 0.00749, 201.53256, 6.21173, 5.81370, + 5.13296, 6.01671, 6.21678, + 0.01981, 0.00764, 216.94591, 6.70518, 6.30732, + 5.64278, 6.51029, 6.71027, + 0.02012, 0.00777, 232.64290, 7.21178, 6.81408, + 6.16538, 7.01702, 7.21691 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.01703, 0.00655, 4.03320, 0.45621, 0.05864, + 0.00000, 0.25929, 0.46003, + 0.01785, 0.00685, 9.09126, 0.59826, 0.20126, + 0.00000, 0.40170, 0.60215, + 0.01859, 0.00715, 15.29068, 0.76919, 0.37273, + 0.00000, 0.57297, 0.77315, + 0.01929, 0.00742, 22.27757, 0.96407, 0.56809, + 0.00000, 0.76815, 0.96809, + 0.01994, 0.00770, 30.01537, 1.18069, 0.78516, + 0.04761, 0.98505, 1.18476, + 0.02057, 0.00796, 38.35127, 1.41665, 1.02158, + 0.26639, 1.22130, 1.42079, + 0.02116, 0.00821, 47.18178, 1.67063, 1.27597, + 0.54128, 1.47553, 1.67483 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.02174, 0.00845, 56.41171, 1.94061, 1.54634, + 0.82802, 1.74576, 1.94485, + 0.02229, 0.00868, 65.96436, 2.22474, 1.83085, + 1.12931, 2.03013, 2.22904, + 0.02282, 0.00891, 75.78619, 2.52162, 2.12809, + 1.44280, 2.32722, 2.52596, + 0.02333, 0.00914, 85.84114, 2.83023, 2.43705, + 1.76766, 2.63605, 2.83461, + 0.02382, 0.00935, 96.05449, 3.14877, 2.75594, + 2.10195, 2.95481, 3.15321, + 0.02430, 0.00957, 106.27458, 3.47349, 3.08099, + 2.44181, 3.27974, 3.47799, + 0.02477, 0.00978, 116.65524, 3.80741, 3.41522, + 2.79038, 3.61385, 3.81194 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.02522, 0.00998, 127.11835, 4.14866, 3.75679, + 3.14577, 3.95529, 4.15324, + 0.02566, 0.01018, 137.48166, 4.49272, 4.10115, + 3.50332, 4.29955, 4.49735, + 0.02608, 0.01038, 148.00665, 4.84548, 4.45421, + 3.86915, 4.65249, 4.85016, + 0.02649, 0.01057, 158.33673, 5.19808, 4.80709, + 4.23413, 5.00525, 5.20279, + 0.02690, 0.01076, 168.78696, 5.55796, 5.16725, + 4.60601, 5.36531, 5.56271 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.02032, 0.00786, 3.95792, 0.45065, 0.05589, + 0.00000, 0.25476, 0.45434, + 0.02127, 0.00824, 8.59567, 0.58140, 0.18738, + 0.00000, 0.38592, 0.58517, + 0.02215, 0.00861, 14.14575, 0.73620, 0.34286, + 0.00000, 0.54112, 0.74006, + 0.02297, 0.00896, 20.28943, 0.91037, 0.51766, + 0.00000, 0.71566, 0.91431, + 0.02374, 0.00929, 26.99515, 1.10181, 0.70969, + 0.04210, 0.90743, 1.10583, + 0.02447, 0.00960, 34.13046, 1.30835, 0.91679, + 0.23435, 1.11429, 1.31244, + 0.02518, 0.00992, 41.60805, 1.52875, 1.13771, + 0.47401, 1.33499, 1.53290 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.02584, 0.01021, 49.34917, 1.76126, 1.37071, + 0.72190, 1.56778, 1.76547, + 0.02649, 0.01049, 57.29214, 2.00425, 1.61419, + 0.98047, 1.81105, 2.00852, + 0.02710, 0.01078, 65.39511, 2.25655, 1.86695, + 1.24772, 2.06360, 2.26088, + 0.02770, 0.01105, 73.63124, 2.51728, 2.12814, + 1.52295, 2.32460, 2.52167, + 0.02828, 0.01132, 81.94168, 2.78495, 2.39625, + 1.80457, 2.59252, 2.78940, + 0.02884, 0.01158, 90.20387, 3.05645, 2.66816, + 2.08939, 2.86425, 3.06095, + 0.02938, 0.01183, 98.54913, 3.33434, 2.94644, + 2.38008, 3.14236, 3.33888 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.02990, 0.01207, 106.91562, 3.61706, 3.22957, + 2.67509, 3.42531, 3.62166, + 0.03042, 0.01231, 115.15706, 3.90090, 3.51379, + 2.97059, 3.70937, 3.90555, + 0.03091, 0.01255, 123.49012, 4.19080, 3.80406, + 3.27173, 3.99947, 4.19549, + 0.03139, 0.01278, 131.62665, 4.47943, 4.09306, + 3.57098, 4.28832, 4.48418, + 0.03186, 0.01301, 139.82590, 4.77302, 4.38699, + 3.87479, 4.58210, 4.77781 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.02302, 0.00895, 3.90519, 0.44646, 0.05393, + 0.00000, 0.25149, 0.45017, + 0.02409, 0.00941, 8.25971, 0.56944, 0.17778, + 0.00000, 0.37494, 0.57324, + 0.02508, 0.00982, 13.38381, 0.71341, 0.32254, + 0.00000, 0.51934, 0.71731, + 0.02600, 0.01023, 18.98395, 0.87391, 0.48377, + 0.00000, 0.68024, 0.87789, + 0.02685, 0.01061, 25.03314, 1.04893, 0.65948, + 0.03852, 0.85564, 1.05300, + 0.02767, 0.01097, 31.41321, 1.23647, 0.84766, + 0.21366, 1.04353, 1.24062, + 0.02846, 0.01133, 38.04781, 1.43539, 1.04721, + 0.43078, 1.24279, 1.43962 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.02921, 0.01168, 44.86905, 1.64411, 1.25652, + 0.65401, 1.45184, 1.64841, + 0.02993, 0.01201, 51.82478, 1.86119, 1.47416, + 0.88566, 1.66923, 1.86556, + 0.03062, 0.01233, 58.88084, 2.08556, 1.69907, + 1.12394, 1.89390, 2.09000, + 0.03129, 0.01265, 66.01596, 2.31648, 1.93052, + 1.36828, 2.12510, 2.32099, + 0.03193, 0.01296, 73.18097, 2.55265, 2.16719, + 1.61728, 2.36154, 2.55722, + 0.03256, 0.01325, 80.27115, 2.79133, 2.40635, + 1.86815, 2.60049, 2.79595, + 0.03315, 0.01354, 87.40392, 3.03480, 2.65030, + 2.12331, 2.84422, 3.03948 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.03374, 0.01383, 94.52690, 3.28175, 2.89769, + 2.38141, 3.09141, 3.28649, + 0.03431, 0.01409, 101.51570, 3.52892, 3.14531, + 2.63914, 3.33883, 3.53372, + 0.03486, 0.01437, 108.55965, 3.78067, 3.39749, + 2.90102, 3.59082, 3.78552, + 0.03539, 0.01463, 115.41191, 4.03062, 3.64786, + 3.16052, 3.84099, 4.03552, + 0.03592, 0.01489, 122.29738, 4.28423, 3.90188, + 3.42330, 4.09483, 4.28918 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.02537, 0.00991, 3.86466, 0.44311, 0.05242, + 0.00000, 0.24892, 0.44686, + 0.02653, 0.01041, 8.00759, 0.56020, 0.17053, + 0.00000, 0.36655, 0.56407, + 0.02761, 0.01089, 12.81977, 0.69609, 0.30735, + 0.00000, 0.50293, 0.70006, + 0.02861, 0.01134, 18.02698, 0.84651, 0.45862, + 0.00000, 0.65380, 0.85058, + 0.02955, 0.01177, 23.60628, 1.00956, 0.62247, + 0.03593, 0.81728, 1.01372, + 0.03044, 0.01218, 29.45024, 1.18336, 0.79701, + 0.19869, 0.99149, 1.18760, + 0.03129, 0.01258, 35.49059, 1.36685, 0.98123, + 0.39962, 1.17536, 1.37119 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.03212, 0.01296, 41.66748, 1.55859, 1.17364, + 0.60524, 1.36746, 1.56301, + 0.03290, 0.01334, 47.93552, 1.75725, 1.37294, + 0.81775, 1.56648, 1.76174, + 0.03365, 0.01369, 54.26602, 1.96188, 1.57819, + 1.03554, 1.77143, 1.96644, + 0.03437, 0.01405, 60.64156, 2.17180, 1.78871, + 1.25811, 1.98168, 2.17645, + 0.03507, 0.01439, 67.01950, 2.38586, 2.00335, + 1.48421, 2.19605, 2.39058, + 0.03575, 0.01472, 73.30774, 2.60160, 2.21962, + 1.71136, 2.41208, 2.60638, + 0.03641, 0.01503, 79.61375, 2.82111, 2.43965, + 1.94175, 2.63186, 2.82595 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.03704, 0.01535, 85.89183, 3.04319, 2.66225, + 2.17421, 2.85423, 3.04810, + 0.03767, 0.01565, 92.03229, 3.26495, 2.88451, + 2.40575, 3.07625, 3.26991, + 0.03827, 0.01595, 98.20593, 3.49033, 3.11038, + 2.64051, 3.30189, 3.49536, + 0.03885, 0.01624, 104.19360, 3.71363, 3.33415, + 2.87262, 3.52545, 3.71871, + 0.03942, 0.01653, 110.19688, 3.93976, 3.56073, + 3.10719, 3.75182, 3.94490 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.03425, 0.01362, 3.74033, 0.43143, 0.04762, + 0.00000, 0.24055, 0.43580, + 0.03578, 0.01434, 7.26782, 0.53101, 0.14856, + 0.00000, 0.34083, 0.53554, + 0.03719, 0.01501, 11.20423, 0.64354, 0.26233, + 0.00000, 0.45401, 0.64822, + 0.03850, 0.01566, 15.33313, 0.76547, 0.38541, + 0.00000, 0.57654, 0.77029, + 0.03972, 0.01625, 19.64542, 0.89523, 0.51625, + 0.02874, 0.70687, 0.90018, + 0.04089, 0.01684, 24.06464, 1.03135, 0.65338, + 0.15761, 0.84351, 1.03641, + 0.04201, 0.01740, 28.54543, 1.17303, 0.79602, + 0.31460, 0.98569, 1.17822 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.04308, 0.01794, 33.04964, 1.31920, 0.94310, + 0.47294, 1.13234, 1.32449, + 0.04410, 0.01846, 37.54993, 1.46889, 1.09365, + 0.63456, 1.28249, 1.47429, + 0.04507, 0.01896, 42.03134, 1.62143, 1.24702, + 0.79829, 1.43545, 1.62692, + 0.04602, 0.01945, 46.48680, 1.77637, 1.40275, + 0.96383, 1.59081, 1.78196, + 0.04694, 0.01992, 50.89040, 1.93290, 1.56005, + 1.13036, 1.74774, 1.93859, + 0.04781, 0.02037, 55.18082, 2.08930, 1.71718, + 1.29613, 1.90453, 2.09507, + 0.04866, 0.02083, 59.43996, 2.24715, 1.87574, + 1.46283, 2.06274, 2.25300 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.04948, 0.02126, 63.63884, 2.40563, 2.03491, + 1.62969, 2.22159, 2.41156, + 0.05028, 0.02167, 67.70392, 2.56271, 2.19264, + 1.79460, 2.37901, 2.56872, + 0.05106, 0.02209, 71.75874, 2.72129, 2.35186, + 1.96064, 2.53792, 2.72738, + 0.05180, 0.02249, 75.65318, 2.87732, 2.50853, + 2.12364, 2.69428, 2.88349, + 0.05255, 0.02288, 79.53020, 3.03439, 2.66619, + 2.28734, 2.85166, 3.04061 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.04617, 0.01882, 3.61733, 0.41736, 0.04261, + 0.00000, 0.23127, 0.42307, + 0.04818, 0.01984, 6.58533, 0.50052, 0.12751, + 0.00000, 0.31536, 0.50646, + 0.05001, 0.02080, 9.76781, 0.59212, 0.22069, + 0.00000, 0.40779, 0.59826, + 0.05172, 0.02168, 13.00129, 0.68937, 0.31940, + 0.00000, 0.50581, 0.69568, + 0.05332, 0.02253, 16.29041, 0.79105, 0.42243, + 0.02273, 0.60820, 0.79754, + 0.05484, 0.02334, 19.58540, 0.89605, 0.52871, + 0.12364, 0.71387, 0.90269, + 0.05629, 0.02413, 22.86000, 1.00381, 0.63770, + 0.24494, 0.82228, 1.01060 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.05767, 0.02488, 26.09285, 1.11359, 0.74865, + 0.36551, 0.93267, 1.12052, + 0.05900, 0.02560, 29.27072, 1.22471, 0.86088, + 0.48701, 1.04437, 1.23178, + 0.06027, 0.02630, 32.38834, 1.33674, 0.97396, + 0.60866, 1.15696, 1.34393, + 0.06149, 0.02698, 35.44592, 1.44940, 1.08764, + 0.73033, 1.27015, 1.45671, + 0.06266, 0.02763, 38.42929, 1.56215, 1.20137, + 0.85150, 1.38342, 1.56958, + 0.06381, 0.02826, 41.29901, 1.67382, 1.31397, + 0.97098, 1.49557, 1.68135, + 0.06489, 0.02887, 44.11739, 1.78559, 1.42665, + 1.09008, 1.60781, 1.79323 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.06596, 0.02947, 46.86678, 1.89693, 1.53887, + 1.20831, 1.71962, 1.90468, + 0.06698, 0.03005, 49.49901, 2.00645, 1.64924, + 1.32423, 1.82957, 2.01429, + 0.06798, 0.03061, 52.10284, 2.11626, 1.75987, + 1.44009, 1.93981, 2.12420, + 0.06894, 0.03115, 54.57664, 2.22354, 1.86794, + 1.55300, 2.04751, 2.23156, + 0.06989, 0.03169, 57.02118, 2.33086, 1.97604, + 1.66567, 2.15523, 2.33897 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.05494, 0.02282, 3.54508, 0.40767, 0.03953, + 0.00000, 0.22523, 0.41451, + 0.05727, 0.02406, 6.20753, 0.48175, 0.11561, + 0.00000, 0.30037, 0.48885, + 0.05941, 0.02521, 8.99580, 0.56216, 0.19784, + 0.00000, 0.38176, 0.56948, + 0.06140, 0.02631, 11.77479, 0.64655, 0.28392, + 0.00000, 0.46704, 0.65409, + 0.06327, 0.02734, 14.55657, 0.73390, 0.37284, + 0.01969, 0.55521, 0.74163, + 0.06504, 0.02833, 17.30482, 0.82328, 0.46369, + 0.10656, 0.64538, 0.83119, + 0.06672, 0.02928, 20.00250, 0.91426, 0.55608, + 0.21017, 0.73712, 0.92235 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.06833, 0.03019, 22.63635, 1.00626, 0.64942, + 0.31224, 0.82982, 1.01451, + 0.06987, 0.03106, 25.19928, 1.09875, 0.74319, + 0.41433, 0.92298, 1.10714, + 0.07135, 0.03191, 27.69032, 1.19140, 0.83705, + 0.51582, 1.01627, 1.19994, + 0.07276, 0.03272, 30.11273, 1.28401, 0.93083, + 0.61666, 1.10950, 1.29268, + 0.07412, 0.03351, 32.45729, 1.37619, 1.02413, + 0.71647, 1.20226, 1.38498, + 0.07543, 0.03426, 34.69431, 1.46697, 1.11599, + 0.81433, 1.29362, 1.47589, + 0.07670, 0.03500, 36.87650, 1.55740, 1.20745, + 0.91137, 1.38458, 1.56643 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.07792, 0.03571, 38.99127, 1.64706, 1.29810, + 1.00721, 1.47476, 1.65619, + 0.07910, 0.03640, 41.00131, 1.73483, 1.38684, + 1.10071, 1.56304, 1.74407, + 0.08025, 0.03707, 42.97942, 1.82247, 1.47543, + 1.19376, 1.65118, 1.83182, + 0.08136, 0.03772, 44.84538, 1.90772, 1.56158, + 1.28403, 1.73690, 1.91716, + 0.08244, 0.03836, 46.68073, 1.99268, 1.64743, + 1.37374, 1.82232, 2.00221 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.06212, 0.02617, 3.49319, 0.40002, 0.03729, + 0.00000, 0.22061, 0.40784, + 0.06472, 0.02760, 5.94688, 0.46792, 0.10740, + 0.00000, 0.28969, 0.47602, + 0.06711, 0.02895, 8.47302, 0.54087, 0.18238, + 0.00000, 0.36373, 0.54923, + 0.06932, 0.03021, 10.95557, 0.61684, 0.26020, + 0.00000, 0.44068, 0.62542, + 0.07139, 0.03139, 13.41141, 0.69490, 0.34000, + 0.01771, 0.51967, 0.70368, + 0.07336, 0.03253, 15.81283, 0.77426, 0.42099, + 0.09553, 0.59991, 0.78324, + 0.07524, 0.03362, 18.14856, 0.85457, 0.50286, + 0.18781, 0.68103, 0.86373 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.07702, 0.03466, 20.41023, 0.93535, 0.58511, + 0.27815, 0.76260, 0.94466, + 0.07873, 0.03566, 22.59435, 1.01614, 0.66730, + 0.36799, 0.84413, 1.02562, + 0.08037, 0.03663, 24.70258, 1.09668, 0.74919, + 0.45684, 0.92538, 1.10632, + 0.08193, 0.03755, 26.73956, 1.17686, 0.83064, + 0.54470, 1.00623, 1.18662, + 0.08343, 0.03845, 28.69916, 1.25632, 0.91134, + 0.63128, 1.08634, 1.26622, + 0.08488, 0.03931, 30.55730, 1.33426, 0.99047, + 0.71580, 1.16491, 1.34430, + 0.08628, 0.04014, 32.36076, 1.41162, 1.06897, + 0.79929, 1.24287, 1.42177 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.08764, 0.04095, 34.09976, 1.48805, 1.14650, + 0.88144, 1.31988, 1.49832, + 0.08895, 0.04173, 35.74342, 1.56260, 1.22213, + 0.96130, 1.39500, 1.57298, + 0.09021, 0.04248, 37.35477, 1.63683, 1.29738, + 1.04051, 1.46977, 1.64731, + 0.09143, 0.04323, 38.86623, 1.70878, 1.37033, + 1.11709, 1.54224, 1.71936, + 0.09263, 0.04394, 40.34767, 1.78030, 1.44282, + 1.19299, 1.61427, 1.79097 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.06823, 0.02930, 3.45185, 0.39349, 0.03552, + 0.00000, 0.21660, 0.40196, + 0.07105, 0.03091, 5.74432, 0.45677, 0.10126, + 0.00000, 0.28119, 0.46554, + 0.07365, 0.03240, 8.07149, 0.52425, 0.17098, + 0.00000, 0.34985, 0.53327, + 0.07605, 0.03380, 10.33184, 0.59402, 0.24282, + 0.00000, 0.42071, 0.60328, + 0.07830, 0.03512, 12.54625, 0.66531, 0.31601, + 0.01627, 0.49302, 0.67480, + 0.08044, 0.03639, 14.69372, 0.73738, 0.38989, + 0.08749, 0.56603, 0.74706, + 0.08247, 0.03759, 16.76697, 0.80994, 0.46416, + 0.17154, 0.63951, 0.81982 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.08440, 0.03875, 18.76009, 0.88259, 0.53842, + 0.25335, 0.71301, 0.89264, + 0.08625, 0.03986, 20.67302, 0.95494, 0.61231, + 0.33435, 0.78618, 0.96516, + 0.08801, 0.04092, 22.50847, 1.02681, 0.68564, + 0.41412, 0.85881, 1.03717, + 0.08971, 0.04194, 24.27223, 1.09805, 0.75830, + 0.49268, 0.93080, 1.10857, + 0.09134, 0.04292, 25.96126, 1.16844, 0.83001, + 0.56981, 1.00189, 1.17909, + 0.09290, 0.04387, 27.55463, 1.23725, 0.90012, + 0.64485, 1.07137, 1.24804, + 0.09441, 0.04479, 29.09367, 1.30533, 0.96944, + 0.71872, 1.14011, 1.31625 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.09586, 0.04567, 30.56998, 1.37240, 1.03771, + 0.79119, 1.20781, 1.38344, + 0.09727, 0.04652, 31.96104, 1.43763, 1.10408, + 0.86142, 1.27364, 1.44878, + 0.09864, 0.04735, 33.32074, 1.50241, 1.16997, + 0.93090, 1.33900, 1.51366, + 0.09995, 0.04816, 34.58902, 1.56502, 1.23365, + 0.99788, 1.40217, 1.57638, + 0.10123, 0.04894, 35.82820, 1.62712, 1.29679, + 1.06411, 1.46482, 1.63858 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.09112, 0.04183, 3.31902, 0.36936, 0.02965, + 0.00000, 0.20230, 0.38041, + 0.09476, 0.04409, 5.13839, 0.41917, 0.08259, + 0.00000, 0.25378, 0.43056, + 0.09811, 0.04618, 6.90384, 0.47100, 0.13726, + 0.00000, 0.30711, 0.48270, + 0.10121, 0.04812, 8.55537, 0.52349, 0.19237, + 0.00000, 0.36098, 0.53545, + 0.10409, 0.04994, 10.12249, 0.57611, 0.24740, + 0.01230, 0.41487, 0.58832, + 0.10683, 0.05167, 11.60013, 0.62838, 0.30194, + 0.06555, 0.46834, 0.64082, + 0.10942, 0.05332, 12.99109, 0.68017, 0.35587, + 0.12743, 0.52125, 0.69282 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.11189, 0.05487, 14.29765, 0.73125, 0.40897, + 0.18663, 0.57340, 0.74408, + 0.11423, 0.05636, 15.52510, 0.78143, 0.46107, + 0.24436, 0.62460, 0.79444, + 0.11647, 0.05778, 16.67973, 0.83064, 0.51210, + 0.30042, 0.67475, 0.84382, + 0.11860, 0.05914, 17.76906, 0.87885, 0.56205, + 0.35492, 0.72387, 0.89219, + 0.12066, 0.06045, 18.79407, 0.92593, 0.61079, + 0.40779, 0.77183, 0.93941, + 0.12262, 0.06169, 19.74326, 0.97144, 0.65789, + 0.45862, 0.81816, 0.98506, + 0.12451, 0.06289, 20.64661, 1.01603, 0.70399, + 0.50814, 0.86354, 1.02977 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.12632, 0.06404, 21.50026, 1.05952, 0.74896, + 0.55624, 0.90781, 1.07339, + 0.12807, 0.06515, 22.29103, 1.10140, 0.79224, + 0.60238, 0.95041, 1.11537, + 0.12977, 0.06623, 23.05534, 1.14265, 0.83485, + 0.64763, 0.99237, 1.15673, + 0.13140, 0.06727, 23.75552, 1.18214, 0.87565, + 0.69085, 1.03254, 1.19632, + 0.13299, 0.06826, 24.43269, 1.22101, 0.91579, + 0.73325, 1.07208, 1.23528 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.12137, 0.06045, 3.17302, 0.33802, 0.02317, + 0.00001, 0.18413, 0.35222, + 0.12605, 0.06356, 4.55432, 0.37577, 0.06479, + 0.00001, 0.22393, 0.39034, + 0.13035, 0.06641, 5.82961, 0.41410, 0.10661, + 0.00002, 0.26410, 0.42900, + 0.13430, 0.06903, 6.97356, 0.45203, 0.14772, + 0.00002, 0.30370, 0.46721, + 0.13797, 0.07146, 8.01993, 0.48928, 0.18792, + 0.00905, 0.34250, 0.50471, + 0.14143, 0.07376, 8.97472, 0.52556, 0.22693, + 0.04767, 0.38019, 0.54121, + 0.14470, 0.07591, 9.84731, 0.56084, 0.26479, + 0.09180, 0.41683, 0.57669 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.14778, 0.07794, 10.64545, 0.59507, 0.30145, + 0.13323, 0.45233, 0.61111, + 0.15072, 0.07985, 11.37539, 0.62817, 0.33685, + 0.17295, 0.48662, 0.64437, + 0.15350, 0.08166, 12.04496, 0.66014, 0.37099, + 0.21090, 0.51972, 0.67648, + 0.15614, 0.08339, 12.66244, 0.69101, 0.40393, + 0.24727, 0.55166, 0.70750, + 0.15866, 0.08503, 13.23087, 0.72078, 0.43566, + 0.28207, 0.58245, 0.73739, + 0.16108, 0.08659, 13.74389, 0.74919, 0.46596, + 0.31511, 0.61183, 0.76592, + 0.16340, 0.08807, 14.22304, 0.77669, 0.49526, + 0.34692, 0.64025, 0.79352 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.16561, 0.08950, 14.66714, 0.80320, 0.52349, + 0.37744, 0.66765, 0.82014, + 0.16773, 0.09086, 15.06887, 0.82840, 0.55037, + 0.40639, 0.69372, 0.84543, + 0.16977, 0.09218, 15.45178, 0.85301, 0.57657, + 0.43451, 0.71914, 0.87013, + 0.17173, 0.09342, 15.79320, 0.87628, 0.60138, + 0.46108, 0.74321, 0.89347, + 0.17365, 0.09464, 16.11903, 0.89901, 0.62559, + 0.48692, 0.76669, 0.91627 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.14342, 0.07512, 3.07660, 0.31604, 0.01904, + 0.00001, 0.17161, 0.33229, + 0.14884, 0.07883, 4.21919, 0.34742, 0.05474, + 0.00001, 0.20525, 0.36404, + 0.15380, 0.08218, 5.24090, 0.37880, 0.09001, + 0.00003, 0.23867, 0.39573, + 0.15835, 0.08525, 6.13208, 0.40939, 0.12414, + 0.00002, 0.27110, 0.42660, + 0.16257, 0.08807, 6.92730, 0.43904, 0.15703, + 0.00742, 0.30244, 0.45647, + 0.16649, 0.09070, 7.63787, 0.46753, 0.18853, + 0.03885, 0.33249, 0.48515, + 0.17021, 0.09315, 8.27315, 0.49489, 0.21873, + 0.07440, 0.36132, 0.51270 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.17370, 0.09544, 8.84254, 0.52115, 0.24763, + 0.10733, 0.38894, 0.53909, + 0.17700, 0.09759, 9.35405, 0.54625, 0.27525, + 0.13857, 0.41533, 0.56435, + 0.18011, 0.09962, 9.81489, 0.57027, 0.30164, + 0.16814, 0.44058, 0.58849, + 0.18307, 0.10155, 10.23244, 0.59328, 0.32688, + 0.19623, 0.46473, 0.61160, + 0.18587, 0.10337, 10.61008, 0.61522, 0.35097, + 0.22285, 0.48778, 0.63364, + 0.18855, 0.10507, 10.94457, 0.63597, 0.37375, + 0.24791, 0.50956, 0.65448, + 0.19111, 0.10669, 11.25268, 0.65589, 0.39562, + 0.27184, 0.53048, 0.67450 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.19356, 0.10825, 11.53408, 0.67495, 0.41655, + 0.29464, 0.55050, 0.69364, + 0.19588, 0.10973, 11.78216, 0.69291, 0.43630, + 0.31608, 0.56936, 0.71166, + 0.19813, 0.11115, 12.01576, 0.71033, 0.45542, + 0.33678, 0.58765, 0.72913, + 0.20026, 0.11249, 12.21901, 0.72665, 0.47340, + 0.35620, 0.60480, 0.74550, + 0.20234, 0.11378, 12.41085, 0.74249, 0.49084, + 0.37498, 0.62146, 0.76139 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.16147, 0.08764, 3.00073, 0.29862, 0.01597, + 0.00001, 0.16174, 0.31640, + 0.16748, 0.09180, 3.98180, 0.32581, 0.04780, + 0.00001, 0.19136, 0.34394, + 0.17297, 0.09553, 4.83776, 0.35268, 0.07884, + 0.00003, 0.22040, 0.37111, + 0.17796, 0.09891, 5.56809, 0.37857, 0.10849, + 0.00001, 0.24824, 0.39724, + 0.18259, 0.10199, 6.20721, 0.40340, 0.13677, + 0.00638, 0.27484, 0.42229, + 0.18688, 0.10484, 6.76805, 0.42703, 0.16359, + 0.03327, 0.30011, 0.44604, + 0.19092, 0.10750, 7.26082, 0.44949, 0.18904, + 0.06342, 0.32411, 0.46866 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.19470, 0.10994, 7.69514, 0.47083, 0.21319, + 0.09110, 0.34688, 0.49012, + 0.19826, 0.11222, 8.07902, 0.49107, 0.23605, + 0.11714, 0.36846, 0.51047, + 0.20160, 0.11438, 8.41936, 0.51028, 0.25775, + 0.14160, 0.38895, 0.52977, + 0.20476, 0.11641, 8.72300, 0.52854, 0.27836, + 0.16467, 0.40841, 0.54809, + 0.20777, 0.11832, 8.99337, 0.54581, 0.29788, + 0.18638, 0.42682, 0.56545, + 0.21062, 0.12009, 9.22818, 0.56203, 0.31623, + 0.20669, 0.44413, 0.58173, + 0.21334, 0.12178, 9.44151, 0.57749, 0.33373, + 0.22596, 0.46063, 0.59726 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.21593, 0.12339, 9.63339, 0.59219, 0.35038, + 0.24422, 0.47631, 0.61202, + 0.21838, 0.12491, 9.79865, 0.60594, 0.36597, + 0.26129, 0.49098, 0.62579, + 0.22073, 0.12637, 9.95258, 0.61920, 0.38102, + 0.27769, 0.50513, 0.63907, + 0.22297, 0.12772, 10.08275, 0.63152, 0.39505, + 0.29299, 0.51832, 0.65142, + 0.22515, 0.12905, 10.20421, 0.64342, 0.40862, + 0.30771, 0.53106, 0.66335 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.17684, 0.09866, 2.93643, 0.28433, 0.01360, + 0.00003, 0.15388, 0.30324, + 0.18338, 0.10317, 3.79703, 0.30849, 0.04267, + 0.00003, 0.18056, 0.32772, + 0.18931, 0.10721, 4.53271, 0.33213, 0.07071, + 0.00004, 0.20647, 0.35162, + 0.19472, 0.11083, 5.14857, 0.35467, 0.09723, + 0.00004, 0.23105, 0.37435, + 0.19968, 0.11411, 5.67919, 0.37609, 0.12227, + 0.00566, 0.25432, 0.39593, + 0.20428, 0.11711, 6.13669, 0.39627, 0.14580, + 0.02932, 0.27620, 0.41627, + 0.20858, 0.11986, 6.53273, 0.41531, 0.16797, + 0.05568, 0.29684, 0.43543 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.21258, 0.12242, 6.87682, 0.43327, 0.18884, + 0.07969, 0.31628, 0.45349, + 0.21633, 0.12480, 7.17569, 0.45017, 0.20849, + 0.10213, 0.33456, 0.47046, + 0.21987, 0.12700, 7.43658, 0.46609, 0.22698, + 0.12307, 0.35179, 0.48644, + 0.22320, 0.12907, 7.66622, 0.48111, 0.24445, + 0.14270, 0.36805, 0.50150, + 0.22634, 0.13102, 7.86790, 0.49523, 0.26088, + 0.16107, 0.38333, 0.51566, + 0.22930, 0.13282, 8.03932, 0.50836, 0.27620, + 0.17811, 0.39755, 0.52882, + 0.23212, 0.13453, 8.19258, 0.52083, 0.29075, + 0.19424, 0.41106, 0.54131 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.23480, 0.13614, 8.32788, 0.53263, 0.30456, + 0.20947, 0.42387, 0.55313, + 0.23735, 0.13765, 8.44142, 0.54355, 0.31739, + 0.22362, 0.43576, 0.56408, + 0.23980, 0.13910, 8.54592, 0.55404, 0.32974, + 0.23717, 0.44719, 0.57460, + 0.24210, 0.14045, 8.63130, 0.56376, 0.34122, + 0.24976, 0.45779, 0.58431, + 0.24432, 0.14175, 8.71006, 0.57311, 0.35225, + 0.26184, 0.46797, 0.59366 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.23577, 0.14170, 2.68956, 0.23378, 0.00583, + 0.00000, 0.12578, 0.25617, + 0.24410, 0.14711, 3.20585, 0.24968, 0.02715, + 0.00002, 0.14440, 0.27219, + 0.25155, 0.15174, 3.61381, 0.26460, 0.04690, + 0.00001, 0.16173, 0.28719, + 0.25815, 0.15578, 3.92986, 0.27828, 0.06486, + 0.00002, 0.17753, 0.30088, + 0.26410, 0.15930, 4.18309, 0.29080, 0.08128, + 0.00368, 0.19201, 0.31338, + 0.26946, 0.16243, 4.38658, 0.30217, 0.09622, + 0.01877, 0.20512, 0.32470, + 0.27438, 0.16524, 4.55016, 0.31252, 0.10988, + 0.03524, 0.21710, 0.33499 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.27892, 0.16776, 4.68128, 0.32196, 0.12242, + 0.04985, 0.22806, 0.34438, + 0.28310, 0.17001, 4.78554, 0.33056, 0.13390, + 0.06317, 0.23809, 0.35291, + 0.28695, 0.17206, 4.86872, 0.33841, 0.14446, + 0.07531, 0.24727, 0.36068, + 0.29055, 0.17395, 4.93511, 0.34560, 0.15419, + 0.08646, 0.25570, 0.36778, + 0.29385, 0.17569, 4.98624, 0.35217, 0.16317, + 0.09671, 0.26343, 0.37425, + 0.29693, 0.17725, 5.02253, 0.35809, 0.17136, + 0.10605, 0.27046, 0.38007, + 0.29984, 0.17869, 5.05074, 0.36356, 0.17899, + 0.11473, 0.27698, 0.38544 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.30258, 0.18003, 5.07113, 0.36855, 0.18605, + 0.12275, 0.28297, 0.39035, + 0.30513, 0.18122, 5.08129, 0.37303, 0.19251, + 0.13009, 0.28842, 0.39474, + 0.30756, 0.18236, 5.08812, 0.37725, 0.19863, + 0.13703, 0.29357, 0.39888, + 0.30978, 0.18339, 5.08587, 0.38101, 0.20417, + 0.14335, 0.29819, 0.40253, + 0.31191, 0.18438, 5.08184, 0.38454, 0.20943, + 0.14933, 0.30256, 0.40597 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.31675, 0.19817, 2.33149, 0.17843, 0.00001, + 0.00011, 0.09467, 0.20244, + 0.32671, 0.20322, 2.55776, 0.18772, 0.01323, + 0.00010, 0.10662, 0.21145, + 0.33511, 0.20726, 2.71158, 0.19587, 0.02620, + 0.00012, 0.11707, 0.21926, + 0.34226, 0.21044, 2.81105, 0.20280, 0.03748, + 0.00012, 0.12606, 0.22586, + 0.34845, 0.21304, 2.87604, 0.20872, 0.04732, + 0.00200, 0.13387, 0.23150, + 0.35382, 0.21516, 2.91558, 0.21374, 0.05590, + 0.01061, 0.14058, 0.23616, + 0.35852, 0.21686, 2.93654, 0.21800, 0.06344, + 0.01974, 0.14639, 0.24010 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.36269, 0.21825, 2.94294, 0.22159, 0.07012, + 0.02757, 0.15146, 0.24341, + 0.36635, 0.21943, 2.93888, 0.22464, 0.07602, + 0.03452, 0.15584, 0.24619, + 0.36961, 0.22040, 2.92715, 0.22722, 0.08127, + 0.04070, 0.15968, 0.24850, + 0.37255, 0.22118, 2.90980, 0.22942, 0.08599, + 0.04623, 0.16306, 0.25040, + 0.37518, 0.22181, 2.88783, 0.23130, 0.09020, + 0.05118, 0.16603, 0.25197, + 0.37750, 0.22228, 2.86153, 0.23278, 0.09390, + 0.05557, 0.16853, 0.25320, + 0.37962, 0.22265, 2.83369, 0.23401, 0.09722, + 0.05956, 0.17074, 0.25422 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.38155, 0.22293, 2.80427, 0.23499, 0.10021, + 0.06316, 0.17268, 0.25502, + 0.38325, 0.22311, 2.77247, 0.23573, 0.10285, + 0.06634, 0.17433, 0.25552, + 0.38482, 0.22325, 2.74123, 0.23636, 0.10529, + 0.06931, 0.17581, 0.25593, + 0.38618, 0.22329, 2.70816, 0.23676, 0.10744, + 0.07194, 0.17702, 0.25610, + 0.38744, 0.22331, 2.67594, 0.23709, 0.10945, + 0.07440, 0.17811, 0.25621 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.37716, 0.23432, 2.04614, 0.14605, 0.00001, + 0.00000, 0.07662, 0.16943, + 0.38715, 0.23771, 2.13651, 0.15212, 0.00667, + 0.00003, 0.08529, 0.17487, + 0.39510, 0.24007, 2.18071, 0.15705, 0.01640, + 0.00003, 0.09244, 0.17918, + 0.40150, 0.24165, 2.19287, 0.16082, 0.02454, + 0.00001, 0.09823, 0.18231, + 0.40673, 0.24267, 2.18715, 0.16382, 0.03143, + 0.00144, 0.10304, 0.18473, + 0.41101, 0.24323, 2.16903, 0.16608, 0.03721, + 0.00715, 0.10692, 0.18655, + 0.41457, 0.24336, 2.14268, 0.16776, 0.04218, + 0.01304, 0.11007, 0.18774 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.41749, 0.24330, 2.11091, 0.16895, 0.04642, + 0.01797, 0.11270, 0.18858, + 0.41987, 0.24306, 2.07567, 0.16983, 0.05009, + 0.02232, 0.11485, 0.18902, + 0.42188, 0.24264, 2.03849, 0.17040, 0.05329, + 0.02612, 0.11664, 0.18919, + 0.42355, 0.24211, 2.00049, 0.17072, 0.05606, + 0.02944, 0.11812, 0.18916, + 0.42485, 0.24153, 1.96204, 0.17089, 0.05842, + 0.03238, 0.11928, 0.18895, + 0.42586, 0.24088, 1.92301, 0.17078, 0.06046, + 0.03486, 0.12015, 0.18845, + 0.42670, 0.24014, 1.88496, 0.17056, 0.06228, + 0.03710, 0.12086, 0.18791 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.42736, 0.23933, 1.84771, 0.17021, 0.06389, + 0.03911, 0.12141, 0.18732, + 0.42783, 0.23845, 1.81057, 0.16971, 0.06524, + 0.04088, 0.12177, 0.18656, + 0.42819, 0.23758, 1.77513, 0.16918, 0.06645, + 0.04249, 0.12205, 0.18578, + 0.42835, 0.23665, 1.73997, 0.16854, 0.06744, + 0.04387, 0.12218, 0.18488, + 0.42846, 0.23572, 1.70644, 0.16789, 0.06835, + 0.04514, 0.12226, 0.18397 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.42581, 0.25814, 1.80115, 0.12381, 0.00001, + 0.00007, 0.06420, 0.14518, + 0.43471, 0.25940, 1.81457, 0.12765, 0.00306, + 0.00005, 0.07065, 0.14825, + 0.44129, 0.25975, 1.80085, 0.13045, 0.01081, + 0.00009, 0.07572, 0.15018, + 0.44611, 0.25935, 1.76984, 0.13232, 0.01701, + 0.00009, 0.07958, 0.15141, + 0.44973, 0.25854, 1.73120, 0.13353, 0.02210, + 0.00111, 0.08255, 0.15202, + 0.45238, 0.25736, 1.68831, 0.13417, 0.02631, + 0.00512, 0.08484, 0.15211, + 0.45414, 0.25602, 1.64338, 0.13441, 0.02977, + 0.00923, 0.08660, 0.15189 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.45534, 0.25452, 1.59761, 0.13439, 0.03266, + 0.01261, 0.08790, 0.15135, + 0.45609, 0.25289, 1.55215, 0.13412, 0.03512, + 0.01550, 0.08887, 0.15060, + 0.45647, 0.25119, 1.50778, 0.13364, 0.03721, + 0.01799, 0.08959, 0.14971, + 0.45654, 0.24949, 1.46494, 0.13303, 0.03898, + 0.02015, 0.09008, 0.14870, + 0.45630, 0.24779, 1.42360, 0.13239, 0.04046, + 0.02203, 0.09038, 0.14760, + 0.45582, 0.24599, 1.38349, 0.13160, 0.04172, + 0.02361, 0.09046, 0.14642, + 0.45521, 0.24419, 1.34542, 0.13071, 0.04279, + 0.02500, 0.09046, 0.14522 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.45448, 0.24242, 1.30910, 0.12974, 0.04370, + 0.02623, 0.09038, 0.14398, + 0.45357, 0.24062, 1.27398, 0.12876, 0.04442, + 0.02725, 0.09018, 0.14271, + 0.45262, 0.23887, 1.24091, 0.12778, 0.04504, + 0.02817, 0.08994, 0.14146, + 0.45148, 0.23714, 1.20892, 0.12673, 0.04558, + 0.02897, 0.08960, 0.14014, + 0.45033, 0.23546, 1.17876, 0.12569, 0.04604, + 0.02969, 0.08923, 0.13886 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.46658, 0.27334, 1.58593, 0.10650, 0.00001, + 0.00007, 0.05433, 0.12564, + 0.47323, 0.27236, 1.55280, 0.10877, 0.00073, + 0.00007, 0.05917, 0.12682, + 0.47775, 0.27046, 1.50636, 0.10999, 0.00688, + 0.00007, 0.06266, 0.12743, + 0.48045, 0.26811, 1.45307, 0.11057, 0.01179, + 0.00004, 0.06522, 0.12715, + 0.48187, 0.26563, 1.39881, 0.11064, 0.01574, + 0.00078, 0.06703, 0.12645, + 0.48223, 0.26289, 1.34532, 0.11039, 0.01886, + 0.00373, 0.06827, 0.12551, + 0.48200, 0.26005, 1.29339, 0.10983, 0.02139, + 0.00669, 0.06913, 0.12433 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.48130, 0.25717, 1.24366, 0.10898, 0.02343, + 0.00905, 0.06964, 0.12315, + 0.48019, 0.25422, 1.19639, 0.10799, 0.02513, + 0.01110, 0.06992, 0.12183, + 0.47873, 0.25139, 1.15171, 0.10699, 0.02657, + 0.01284, 0.07003, 0.12032, + 0.47703, 0.24866, 1.10970, 0.10596, 0.02779, + 0.01429, 0.06998, 0.11875, + 0.47521, 0.24592, 1.07018, 0.10482, 0.02874, + 0.01545, 0.06980, 0.11729, + 0.47313, 0.24320, 1.03270, 0.10368, 0.02953, + 0.01654, 0.06954, 0.11574, + 0.47100, 0.24058, 0.99767, 0.10251, 0.03020, + 0.01747, 0.06921, 0.11423 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.46882, 0.23802, 0.96477, 0.10131, 0.03072, + 0.01825, 0.06881, 0.11277, + 0.46656, 0.23547, 0.93347, 0.10006, 0.03117, + 0.01888, 0.06837, 0.11130, + 0.46432, 0.23302, 0.90427, 0.09884, 0.03154, + 0.01945, 0.06792, 0.10988, + 0.46190, 0.23061, 0.87657, 0.09766, 0.03181, + 0.01995, 0.06739, 0.10844, + 0.45951, 0.22830, 0.85065, 0.09650, 0.03204, + 0.02039, 0.06687, 0.10705 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.50652, 0.28284, 1.35102, 0.08926, 0.00001, + 0.00008, 0.04486, 0.10529, + 0.50988, 0.27866, 1.28468, 0.08989, 0.00001, + 0.00004, 0.04820, 0.10508, + 0.51092, 0.27418, 1.21704, 0.08994, 0.00417, + 0.00011, 0.05049, 0.10409, + 0.51031, 0.26953, 1.15112, 0.08934, 0.00790, + 0.00006, 0.05187, 0.10280, + 0.50858, 0.26505, 1.08961, 0.08861, 0.01075, + 0.00058, 0.05272, 0.10125, + 0.50614, 0.26051, 1.03265, 0.08751, 0.01299, + 0.00260, 0.05321, 0.09965, + 0.50314, 0.25608, 0.97995, 0.08630, 0.01481, + 0.00464, 0.05342, 0.09791 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.49993, 0.25167, 0.93124, 0.08496, 0.01625, + 0.00629, 0.05334, 0.09623, + 0.49635, 0.24755, 0.88635, 0.08364, 0.01738, + 0.00760, 0.05314, 0.09444, + 0.49266, 0.24352, 0.84504, 0.08230, 0.01828, + 0.00869, 0.05284, 0.09266, + 0.48894, 0.23959, 0.80701, 0.08091, 0.01904, + 0.00964, 0.05245, 0.09098, + 0.48506, 0.23594, 0.77191, 0.07957, 0.01965, + 0.01041, 0.05198, 0.08932, + 0.48113, 0.23231, 0.73924, 0.07820, 0.02012, + 0.01105, 0.05145, 0.08764, + 0.47718, 0.22888, 0.70913, 0.07689, 0.02047, + 0.01161, 0.05092, 0.08605 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.47320, 0.22564, 0.68125, 0.07563, 0.02070, + 0.01208, 0.05037, 0.08453, + 0.46927, 0.22240, 0.65519, 0.07441, 0.02092, + 0.01247, 0.04981, 0.08295, + 0.46547, 0.21930, 0.63109, 0.07324, 0.02111, + 0.01282, 0.04926, 0.08145, + 0.46163, 0.21629, 0.60840, 0.07203, 0.02121, + 0.01310, 0.04865, 0.08004, + 0.45791, 0.21341, 0.58734, 0.07088, 0.02129, + 0.01334, 0.04807, 0.07871 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.53667, 0.28422, 1.14794, 0.07452, 0.00001, + 0.00017, 0.03719, 0.08793, + 0.53576, 0.27723, 1.06488, 0.07421, 0.00001, + 0.00012, 0.03937, 0.08670, + 0.53298, 0.27026, 0.98862, 0.07327, 0.00240, + 0.00014, 0.04074, 0.08501, + 0.52855, 0.26380, 0.91938, 0.07231, 0.00528, + 0.00015, 0.04137, 0.08296, + 0.52365, 0.25748, 0.85763, 0.07090, 0.00751, + 0.00049, 0.04167, 0.08100, + 0.51826, 0.25141, 0.80251, 0.06941, 0.00915, + 0.00196, 0.04162, 0.07914, + 0.51251, 0.24572, 0.75290, 0.06795, 0.01039, + 0.00333, 0.04142, 0.07714 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.50655, 0.24032, 0.70830, 0.06651, 0.01141, + 0.00443, 0.04109, 0.07510, + 0.50067, 0.23516, 0.66795, 0.06501, 0.01220, + 0.00533, 0.04064, 0.07323, + 0.49480, 0.23027, 0.63143, 0.06352, 0.01281, + 0.00606, 0.04018, 0.07139, + 0.48896, 0.22565, 0.59837, 0.06210, 0.01330, + 0.00667, 0.03969, 0.06962, + 0.48330, 0.22114, 0.56832, 0.06068, 0.01367, + 0.00713, 0.03907, 0.06807, + 0.47751, 0.21697, 0.54066, 0.05945, 0.01391, + 0.00752, 0.03851, 0.06639, + 0.47198, 0.21296, 0.51545, 0.05820, 0.01414, + 0.00789, 0.03792, 0.06481 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.46670, 0.20906, 0.49238, 0.05691, 0.01433, + 0.00827, 0.03734, 0.06333, + 0.46134, 0.20539, 0.47115, 0.05570, 0.01441, + 0.00852, 0.03672, 0.06199, + 0.45614, 0.20192, 0.45164, 0.05455, 0.01446, + 0.00873, 0.03612, 0.06071, + 0.45096, 0.19860, 0.43326, 0.05348, 0.01449, + 0.00884, 0.03553, 0.05941, + 0.44599, 0.19542, 0.41633, 0.05246, 0.01451, + 0.00896, 0.03495, 0.05817 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.55780, 0.27971, 0.97191, 0.06190, 0.00001, + 0.00006, 0.03043, 0.07284, + 0.55207, 0.27012, 0.88223, 0.06085, 0.00001, + 0.00007, 0.03192, 0.07092, + 0.54482, 0.26136, 0.80448, 0.05964, 0.00138, + 0.00006, 0.03264, 0.06858, + 0.53704, 0.25287, 0.73694, 0.05803, 0.00361, + 0.00001, 0.03287, 0.06648, + 0.52875, 0.24525, 0.67862, 0.05645, 0.00529, + 0.00028, 0.03286, 0.06425, + 0.52031, 0.23809, 0.62775, 0.05479, 0.00652, + 0.00137, 0.03265, 0.06219, + 0.51207, 0.23131, 0.58301, 0.05319, 0.00753, + 0.00235, 0.03218, 0.06019 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.50384, 0.22501, 0.54340, 0.05165, 0.00821, + 0.00310, 0.03165, 0.05841, + 0.49570, 0.21911, 0.50822, 0.05016, 0.00874, + 0.00377, 0.03117, 0.05660, + 0.48774, 0.21361, 0.47688, 0.04877, 0.00918, + 0.00431, 0.03061, 0.05485, + 0.48003, 0.20849, 0.44881, 0.04749, 0.00951, + 0.00473, 0.02997, 0.05324, + 0.47259, 0.20370, 0.42348, 0.04623, 0.00969, + 0.00507, 0.02939, 0.05171, + 0.46549, 0.19894, 0.40045, 0.04487, 0.00985, + 0.00541, 0.02883, 0.05036, + 0.45860, 0.19450, 0.37966, 0.04368, 0.00998, + 0.00565, 0.02825, 0.04902 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.45187, 0.19035, 0.36079, 0.04265, 0.01008, + 0.00577, 0.02766, 0.04765, + 0.44525, 0.18642, 0.34354, 0.04159, 0.01012, + 0.00589, 0.02712, 0.04641, + 0.43893, 0.18271, 0.32781, 0.04059, 0.01014, + 0.00601, 0.02660, 0.04524, + 0.43281, 0.17912, 0.31332, 0.03962, 0.01016, + 0.00608, 0.02605, 0.04412, + 0.42696, 0.17570, 0.29997, 0.03870, 0.01016, + 0.00614, 0.02553, 0.04306 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.57041, 0.27068, 0.81970, 0.05094, 0.00001, + 0.00002, 0.02472, 0.05939, + 0.55964, 0.25905, 0.72974, 0.04959, 0.00001, + 0.00000, 0.02563, 0.05710, + 0.54846, 0.24829, 0.65482, 0.04783, 0.00058, + 0.00005, 0.02595, 0.05500, + 0.53681, 0.23875, 0.59176, 0.04618, 0.00234, + 0.00004, 0.02589, 0.05276, + 0.52531, 0.23012, 0.53851, 0.04460, 0.00362, + 0.00034, 0.02565, 0.05057, + 0.51426, 0.22199, 0.49304, 0.04306, 0.00456, + 0.00104, 0.02516, 0.04865, + 0.50346, 0.21459, 0.45365, 0.04158, 0.00525, + 0.00176, 0.02465, 0.04678 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.49304, 0.20771, 0.41933, 0.04008, 0.00586, + 0.00232, 0.02413, 0.04500, + 0.48301, 0.20137, 0.38928, 0.03865, 0.00620, + 0.00274, 0.02360, 0.04345, + 0.47339, 0.19552, 0.36282, 0.03735, 0.00647, + 0.00301, 0.02307, 0.04191, + 0.46419, 0.19006, 0.33936, 0.03615, 0.00674, + 0.00324, 0.02253, 0.04037, + 0.45535, 0.18490, 0.31839, 0.03500, 0.00692, + 0.00352, 0.02202, 0.03900, + 0.44684, 0.18011, 0.29952, 0.03395, 0.00700, + 0.00366, 0.02144, 0.03774, + 0.43871, 0.17558, 0.28259, 0.03297, 0.00705, + 0.00378, 0.02088, 0.03658 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.43088, 0.17127, 0.26732, 0.03209, 0.00708, + 0.00391, 0.02037, 0.03548, + 0.42335, 0.16726, 0.25344, 0.03120, 0.00710, + 0.00403, 0.01990, 0.03433, + 0.41621, 0.16349, 0.24083, 0.03036, 0.00711, + 0.00413, 0.01947, 0.03327, + 0.40937, 0.15980, 0.22926, 0.02946, 0.00711, + 0.00417, 0.01906, 0.03236, + 0.40284, 0.15633, 0.21867, 0.02865, 0.00710, + 0.00421, 0.01864, 0.03152 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.57544, 0.25807, 0.68826, 0.04122, 0.00001, + 0.00001, 0.01974, 0.04813, + 0.55979, 0.24471, 0.60187, 0.03965, 0.00001, + 0.00009, 0.02025, 0.04584, + 0.54425, 0.23296, 0.53213, 0.03815, 0.00020, + 0.00004, 0.02042, 0.04317, + 0.52913, 0.22243, 0.47499, 0.03649, 0.00154, + 0.00007, 0.02022, 0.04118, + 0.51504, 0.21276, 0.42763, 0.03484, 0.00256, + 0.00023, 0.01975, 0.03943, + 0.50148, 0.20414, 0.38774, 0.03336, 0.00338, + 0.00074, 0.01934, 0.03746, + 0.48822, 0.19664, 0.35371, 0.03206, 0.00383, + 0.00121, 0.01886, 0.03574 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.47601, 0.18942, 0.32449, 0.03071, 0.00415, + 0.00165, 0.01828, 0.03438, + 0.46440, 0.18279, 0.29914, 0.02951, 0.00440, + 0.00195, 0.01781, 0.03295, + 0.45342, 0.17669, 0.27697, 0.02837, 0.00459, + 0.00215, 0.01732, 0.03161, + 0.44300, 0.17105, 0.25749, 0.02729, 0.00475, + 0.00231, 0.01679, 0.03042, + 0.43286, 0.16599, 0.24029, 0.02641, 0.00484, + 0.00246, 0.01633, 0.02925, + 0.42350, 0.16090, 0.22504, 0.02540, 0.00495, + 0.00265, 0.01585, 0.02828, + 0.41459, 0.15627, 0.21133, 0.02452, 0.00501, + 0.00274, 0.01536, 0.02732 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.40606, 0.15210, 0.19889, 0.02377, 0.00499, + 0.00272, 0.01491, 0.02634, + 0.39772, 0.14818, 0.18788, 0.02305, 0.00501, + 0.00276, 0.01452, 0.02541, + 0.38984, 0.14447, 0.17796, 0.02239, 0.00502, + 0.00280, 0.01415, 0.02453, + 0.38246, 0.14084, 0.16883, 0.02170, 0.00497, + 0.00280, 0.01381, 0.02375, + 0.37544, 0.13743, 0.16054, 0.02106, 0.00491, + 0.00281, 0.01348, 0.02303 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.57296, 0.24331, 0.57498, 0.03323, 0.00001, + 0.00000, 0.01564, 0.03790, + 0.55287, 0.22837, 0.49443, 0.03152, 0.00001, + 0.00015, 0.01586, 0.03580, + 0.53348, 0.21570, 0.43117, 0.02996, 0.00001, + 0.00003, 0.01587, 0.03381, + 0.51557, 0.20430, 0.38020, 0.02816, 0.00101, + 0.00014, 0.01560, 0.03199, + 0.49880, 0.19429, 0.33882, 0.02671, 0.00183, + 0.00017, 0.01515, 0.03027, + 0.48293, 0.18554, 0.30443, 0.02552, 0.00237, + 0.00053, 0.01468, 0.02866, + 0.46813, 0.17757, 0.27543, 0.02427, 0.00272, + 0.00090, 0.01427, 0.02732 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.45440, 0.17028, 0.25084, 0.02316, 0.00307, + 0.00122, 0.01376, 0.02599, + 0.44124, 0.16387, 0.22975, 0.02226, 0.00330, + 0.00146, 0.01334, 0.02458, + 0.42895, 0.15791, 0.21147, 0.02133, 0.00343, + 0.00158, 0.01292, 0.02342, + 0.41757, 0.15227, 0.19548, 0.02040, 0.00350, + 0.00166, 0.01249, 0.02255, + 0.40679, 0.14708, 0.18137, 0.01956, 0.00351, + 0.00181, 0.01205, 0.02169, + 0.39644, 0.14238, 0.16919, 0.01895, 0.00352, + 0.00187, 0.01164, 0.02076, + 0.38674, 0.13798, 0.15832, 0.01831, 0.00355, + 0.00190, 0.01126, 0.01991 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.37764, 0.13385, 0.14851, 0.01762, 0.00355, + 0.00190, 0.01089, 0.01918, + 0.36924, 0.12985, 0.13974, 0.01689, 0.00351, + 0.00192, 0.01058, 0.01851, + 0.36130, 0.12612, 0.13186, 0.01624, 0.00345, + 0.00194, 0.01029, 0.01788, + 0.35325, 0.12277, 0.12476, 0.01583, 0.00345, + 0.00202, 0.00995, 0.01720, + 0.34571, 0.11959, 0.11829, 0.01540, 0.00345, + 0.00206, 0.00965, 0.01660 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.56518, 0.22574, 0.47773, 0.02572, 0.00001, + 0.00017, 0.01219, 0.02999, + 0.54022, 0.21032, 0.40443, 0.02428, 0.00001, + 0.00008, 0.01231, 0.02779, + 0.51757, 0.19695, 0.34790, 0.02272, 0.00001, + 0.00001, 0.01225, 0.02602, + 0.49637, 0.18579, 0.30341, 0.02165, 0.00073, + 0.00005, 0.01176, 0.02436, + 0.47738, 0.17567, 0.26767, 0.02038, 0.00129, + 0.00015, 0.01135, 0.02300, + 0.45973, 0.16694, 0.23843, 0.01935, 0.00174, + 0.00045, 0.01097, 0.02155, + 0.44350, 0.15904, 0.21412, 0.01829, 0.00198, + 0.00070, 0.01058, 0.02049 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.42843, 0.15191, 0.19373, 0.01738, 0.00217, + 0.00087, 0.01023, 0.01934, + 0.41435, 0.14556, 0.17633, 0.01661, 0.00229, + 0.00102, 0.00983, 0.01830, + 0.40135, 0.13964, 0.16141, 0.01588, 0.00238, + 0.00114, 0.00943, 0.01742, + 0.38933, 0.13414, 0.14855, 0.01516, 0.00245, + 0.00122, 0.00907, 0.01663, + 0.37813, 0.12913, 0.13733, 0.01444, 0.00252, + 0.00122, 0.00879, 0.01582, + 0.36744, 0.12454, 0.12739, 0.01386, 0.00257, + 0.00130, 0.00849, 0.01505, + 0.35745, 0.12028, 0.11868, 0.01330, 0.00255, + 0.00135, 0.00818, 0.01442 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.34809, 0.11628, 0.11101, 0.01276, 0.00250, + 0.00135, 0.00787, 0.01392, + 0.33926, 0.11259, 0.10409, 0.01209, 0.00250, + 0.00138, 0.00764, 0.01354, + 0.33095, 0.10919, 0.09788, 0.01148, 0.00249, + 0.00140, 0.00743, 0.01317, + 0.32294, 0.10598, 0.09234, 0.01107, 0.00244, + 0.00137, 0.00715, 0.01265, + 0.31537, 0.10296, 0.08731, 0.01071, 0.00240, + 0.00135, 0.00691, 0.01219 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.55060, 0.20783, 0.39443, 0.01979, 0.00001, + 0.00015, 0.00934, 0.02282, + 0.52171, 0.19198, 0.32888, 0.01862, 0.00001, + 0.00003, 0.00944, 0.02101, + 0.49584, 0.17870, 0.27941, 0.01751, 0.00001, + 0.00000, 0.00928, 0.01940, + 0.47296, 0.16688, 0.24109, 0.01615, 0.00048, + 0.00003, 0.00903, 0.01825, + 0.45189, 0.15716, 0.21062, 0.01529, 0.00099, + 0.00010, 0.00868, 0.01687, + 0.43312, 0.14840, 0.18611, 0.01438, 0.00119, + 0.00035, 0.00831, 0.01594, + 0.41585, 0.14068, 0.16583, 0.01350, 0.00147, + 0.00053, 0.00786, 0.01507 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.39990, 0.13380, 0.14919, 0.01273, 0.00163, + 0.00068, 0.00751, 0.01429, + 0.38524, 0.12762, 0.13513, 0.01208, 0.00174, + 0.00073, 0.00724, 0.01339, + 0.37180, 0.12198, 0.12301, 0.01149, 0.00178, + 0.00081, 0.00695, 0.01263, + 0.35946, 0.11684, 0.11254, 0.01088, 0.00178, + 0.00091, 0.00664, 0.01201, + 0.34797, 0.11216, 0.10354, 0.01030, 0.00186, + 0.00090, 0.00637, 0.01129, + 0.33693, 0.10781, 0.09569, 0.00980, 0.00181, + 0.00092, 0.00616, 0.01090, + 0.32670, 0.10381, 0.08880, 0.00936, 0.00179, + 0.00095, 0.00596, 0.01046 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.31718, 0.10010, 0.08270, 0.00897, 0.00183, + 0.00099, 0.00575, 0.00994, + 0.30824, 0.09662, 0.07732, 0.00856, 0.00181, + 0.00101, 0.00552, 0.00963, + 0.29988, 0.09338, 0.07252, 0.00817, 0.00179, + 0.00102, 0.00531, 0.00935, + 0.29184, 0.09038, 0.06823, 0.00790, 0.00178, + 0.00102, 0.00514, 0.00896, + 0.28433, 0.08761, 0.06433, 0.00763, 0.00176, + 0.00102, 0.00497, 0.00859 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.53121, 0.19009, 0.32396, 0.01562, 0.00001, + 0.00009, 0.00666, 0.01711, + 0.49937, 0.17349, 0.26604, 0.01416, 0.00001, + 0.00008, 0.00674, 0.01605, + 0.47097, 0.16040, 0.22326, 0.01321, 0.00001, + 0.00011, 0.00662, 0.01471, + 0.44583, 0.14920, 0.19074, 0.01237, 0.00018, + 0.00006, 0.00648, 0.01344, + 0.42380, 0.13944, 0.16526, 0.01150, 0.00054, + 0.00001, 0.00628, 0.01242, + 0.40392, 0.13099, 0.14509, 0.01069, 0.00081, + 0.00017, 0.00595, 0.01171, + 0.38621, 0.12365, 0.12854, 0.00980, 0.00095, + 0.00031, 0.00572, 0.01105 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.36983, 0.11707, 0.11472, 0.00933, 0.00107, + 0.00039, 0.00540, 0.01034, + 0.35484, 0.11119, 0.10330, 0.00890, 0.00117, + 0.00049, 0.00518, 0.00968, + 0.34113, 0.10588, 0.09359, 0.00835, 0.00123, + 0.00051, 0.00497, 0.00913, + 0.32848, 0.10105, 0.08524, 0.00783, 0.00125, + 0.00051, 0.00472, 0.00873, + 0.31668, 0.09665, 0.07809, 0.00753, 0.00123, + 0.00061, 0.00452, 0.00843, + 0.30596, 0.09263, 0.07190, 0.00714, 0.00125, + 0.00064, 0.00431, 0.00785, + 0.29591, 0.08896, 0.06650, 0.00683, 0.00124, + 0.00065, 0.00413, 0.00741 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28641, 0.08560, 0.06174, 0.00657, 0.00121, + 0.00067, 0.00397, 0.00713, + 0.27773, 0.08238, 0.05754, 0.00622, 0.00122, + 0.00066, 0.00381, 0.00679, + 0.26963, 0.07941, 0.05381, 0.00588, 0.00123, + 0.00066, 0.00367, 0.00647, + 0.26176, 0.07672, 0.05045, 0.00562, 0.00120, + 0.00066, 0.00354, 0.00623, + 0.25439, 0.07419, 0.04744, 0.00540, 0.00118, + 0.00066, 0.00341, 0.00599 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.50755, 0.17053, 0.26316, 0.01106, 0.00001, + 0.00016, 0.00518, 0.01269, + 0.47243, 0.15488, 0.21340, 0.01031, 0.00001, + 0.00012, 0.00513, 0.01162, + 0.44244, 0.14194, 0.17721, 0.00946, 0.00001, + 0.00013, 0.00504, 0.01059, + 0.41618, 0.13122, 0.14992, 0.00870, 0.00029, + 0.00006, 0.00476, 0.00981, + 0.39347, 0.12199, 0.12888, 0.00794, 0.00048, + 0.00012, 0.00457, 0.00911, + 0.37321, 0.11404, 0.11212, 0.00737, 0.00063, + 0.00022, 0.00445, 0.00841, + 0.35479, 0.10714, 0.09864, 0.00702, 0.00085, + 0.00028, 0.00423, 0.00773 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33840, 0.10098, 0.08757, 0.00633, 0.00082, + 0.00039, 0.00393, 0.00752, + 0.32319, 0.09555, 0.07841, 0.00602, 0.00092, + 0.00041, 0.00372, 0.00707, + 0.30945, 0.09063, 0.07069, 0.00574, 0.00095, + 0.00041, 0.00355, 0.00662, + 0.29704, 0.08626, 0.06412, 0.00541, 0.00088, + 0.00043, 0.00340, 0.00623, + 0.28541, 0.08250, 0.05854, 0.00533, 0.00090, + 0.00044, 0.00320, 0.00564, + 0.27487, 0.07871, 0.05369, 0.00499, 0.00091, + 0.00043, 0.00305, 0.00542, + 0.26513, 0.07526, 0.04947, 0.00463, 0.00090, + 0.00042, 0.00288, 0.00522 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.25605, 0.07217, 0.04578, 0.00430, 0.00086, + 0.00041, 0.00273, 0.00503, + 0.24741, 0.06930, 0.04254, 0.00420, 0.00083, + 0.00047, 0.00265, 0.00482, + 0.23934, 0.06666, 0.03967, 0.00413, 0.00082, + 0.00053, 0.00259, 0.00461, + 0.23155, 0.06423, 0.03712, 0.00409, 0.00083, + 0.00049, 0.00249, 0.00436, + 0.22440, 0.06199, 0.03484, 0.00399, 0.00083, + 0.00046, 0.00239, 0.00413 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.48033, 0.15264, 0.21305, 0.00836, 0.00001, + 0.00002, 0.00357, 0.00909, + 0.44304, 0.13739, 0.17039, 0.00774, 0.00001, + 0.00001, 0.00358, 0.00829, + 0.41195, 0.12495, 0.13987, 0.00689, 0.00001, + 0.00004, 0.00350, 0.00760, + 0.38523, 0.11467, 0.11712, 0.00624, 0.00004, + 0.00002, 0.00337, 0.00710, + 0.36185, 0.10601, 0.09981, 0.00572, 0.00029, + 0.00003, 0.00324, 0.00657, + 0.34121, 0.09871, 0.08628, 0.00542, 0.00042, + 0.00012, 0.00299, 0.00608, + 0.32287, 0.09229, 0.07548, 0.00499, 0.00042, + 0.00011, 0.00283, 0.00569 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.30647, 0.08679, 0.06658, 0.00477, 0.00057, + 0.00020, 0.00269, 0.00520, + 0.29188, 0.08178, 0.05928, 0.00441, 0.00056, + 0.00022, 0.00251, 0.00482, + 0.27861, 0.07724, 0.05321, 0.00408, 0.00058, + 0.00023, 0.00236, 0.00449, + 0.26641, 0.07317, 0.04808, 0.00384, 0.00065, + 0.00025, 0.00223, 0.00424, + 0.25518, 0.06944, 0.04369, 0.00364, 0.00056, + 0.00025, 0.00212, 0.00420, + 0.24480, 0.06623, 0.03997, 0.00358, 0.00054, + 0.00027, 0.00207, 0.00383, + 0.23528, 0.06326, 0.03674, 0.00342, 0.00053, + 0.00028, 0.00198, 0.00357 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.22649, 0.06047, 0.03392, 0.00316, 0.00054, + 0.00027, 0.00184, 0.00348, + 0.21826, 0.05793, 0.03140, 0.00306, 0.00054, + 0.00028, 0.00177, 0.00327, + 0.21067, 0.05562, 0.02917, 0.00295, 0.00054, + 0.00030, 0.00172, 0.00307, + 0.20387, 0.05341, 0.02723, 0.00267, 0.00051, + 0.00030, 0.00162, 0.00295, + 0.19744, 0.05139, 0.02550, 0.00248, 0.00050, + 0.00030, 0.00155, 0.00282 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.44937, 0.13485, 0.17056, 0.00582, 0.00001, + 0.00008, 0.00249, 0.00658, + 0.41181, 0.12006, 0.13469, 0.00503, 0.00001, + 0.00005, 0.00253, 0.00598, + 0.37920, 0.10859, 0.10935, 0.00489, 0.00001, + 0.00003, 0.00259, 0.00529, + 0.35221, 0.09901, 0.09074, 0.00420, 0.00009, + 0.00001, 0.00238, 0.00497, + 0.32881, 0.09099, 0.07678, 0.00402, 0.00023, + 0.00002, 0.00227, 0.00458, + 0.30871, 0.08440, 0.06584, 0.00368, 0.00028, + 0.00010, 0.00215, 0.00427, + 0.29082, 0.07850, 0.05720, 0.00350, 0.00032, + 0.00013, 0.00206, 0.00382 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.27484, 0.07337, 0.05025, 0.00328, 0.00035, + 0.00014, 0.00188, 0.00355, + 0.26061, 0.06888, 0.04449, 0.00304, 0.00036, + 0.00018, 0.00179, 0.00335, + 0.24770, 0.06490, 0.03975, 0.00286, 0.00039, + 0.00022, 0.00170, 0.00310, + 0.23596, 0.06132, 0.03580, 0.00274, 0.00041, + 0.00023, 0.00159, 0.00286, + 0.22540, 0.05811, 0.03241, 0.00256, 0.00036, + 0.00023, 0.00147, 0.00274, + 0.21580, 0.05517, 0.02952, 0.00227, 0.00036, + 0.00020, 0.00139, 0.00261, + 0.20686, 0.05250, 0.02703, 0.00214, 0.00038, + 0.00020, 0.00134, 0.00244 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.19847, 0.05006, 0.02488, 0.00218, 0.00039, + 0.00024, 0.00133, 0.00223, + 0.19082, 0.04785, 0.02301, 0.00212, 0.00042, + 0.00023, 0.00126, 0.00208, + 0.18376, 0.04582, 0.02136, 0.00205, 0.00043, + 0.00021, 0.00118, 0.00194, + 0.17709, 0.04389, 0.01987, 0.00195, 0.00042, + 0.00020, 0.00110, 0.00190, + 0.17094, 0.04214, 0.01855, 0.00183, 0.00038, + 0.00019, 0.00104, 0.00185 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.41755, 0.11759, 0.13558, 0.00373, 0.00001, + 0.00004, 0.00168, 0.00454, + 0.37836, 0.10426, 0.10575, 0.00366, 0.00001, + 0.00004, 0.00176, 0.00415, + 0.34619, 0.09359, 0.08497, 0.00346, 0.00001, + 0.00007, 0.00152, 0.00395, + 0.31940, 0.08485, 0.06994, 0.00307, 0.00001, + 0.00003, 0.00151, 0.00361, + 0.29667, 0.07765, 0.05870, 0.00280, 0.00002, + 0.00004, 0.00145, 0.00330, + 0.27701, 0.07150, 0.04999, 0.00258, 0.00014, + 0.00006, 0.00138, 0.00304, + 0.25957, 0.06627, 0.04314, 0.00254, 0.00018, + 0.00009, 0.00127, 0.00258 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.24431, 0.06167, 0.03767, 0.00232, 0.00017, + 0.00010, 0.00116, 0.00251, + 0.23086, 0.05769, 0.03322, 0.00211, 0.00020, + 0.00008, 0.00113, 0.00229, + 0.21867, 0.05416, 0.02956, 0.00197, 0.00024, + 0.00007, 0.00107, 0.00206, + 0.20759, 0.05101, 0.02651, 0.00185, 0.00024, + 0.00008, 0.00101, 0.00196, + 0.19761, 0.04823, 0.02390, 0.00176, 0.00024, + 0.00010, 0.00095, 0.00181, + 0.18831, 0.04566, 0.02171, 0.00178, 0.00023, + 0.00012, 0.00086, 0.00165, + 0.17988, 0.04332, 0.01983, 0.00177, 0.00023, + 0.00011, 0.00080, 0.00151 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.17222, 0.04122, 0.01820, 0.00169, 0.00023, + 0.00009, 0.00077, 0.00139, + 0.16524, 0.03929, 0.01678, 0.00154, 0.00022, + 0.00010, 0.00075, 0.00136, + 0.15884, 0.03754, 0.01554, 0.00140, 0.00018, + 0.00011, 0.00073, 0.00133, + 0.15284, 0.03591, 0.01445, 0.00131, 0.00018, + 0.00010, 0.00068, 0.00123, + 0.14724, 0.03440, 0.01347, 0.00125, 0.00018, + 0.00010, 0.00064, 0.00115 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.38293, 0.10184, 0.10666, 0.00263, 0.00001, + 0.00006, 0.00115, 0.00317, + 0.34411, 0.08923, 0.08197, 0.00232, 0.00001, + 0.00002, 0.00120, 0.00296, + 0.31216, 0.07943, 0.06514, 0.00215, 0.00001, + 0.00002, 0.00115, 0.00277, + 0.28619, 0.07153, 0.05305, 0.00202, 0.00006, + 0.00001, 0.00110, 0.00235, + 0.26418, 0.06511, 0.04410, 0.00192, 0.00015, + 0.00004, 0.00103, 0.00199, + 0.24524, 0.05962, 0.03733, 0.00175, 0.00018, + 0.00002, 0.00098, 0.00189, + 0.22900, 0.05505, 0.03204, 0.00153, 0.00015, + 0.00004, 0.00094, 0.00170 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.21466, 0.05096, 0.02782, 0.00143, 0.00021, + 0.00007, 0.00088, 0.00151, + 0.20176, 0.04746, 0.02440, 0.00136, 0.00019, + 0.00007, 0.00078, 0.00139, + 0.19018, 0.04441, 0.02161, 0.00136, 0.00016, + 0.00007, 0.00071, 0.00128, + 0.17989, 0.04164, 0.01929, 0.00133, 0.00018, + 0.00006, 0.00070, 0.00117, + 0.17080, 0.03913, 0.01733, 0.00111, 0.00018, + 0.00004, 0.00062, 0.00106, + 0.16229, 0.03697, 0.01569, 0.00115, 0.00019, + 0.00007, 0.00064, 0.00098, + 0.15463, 0.03502, 0.01429, 0.00107, 0.00020, + 0.00010, 0.00063, 0.00096 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.14776, 0.03320, 0.01307, 0.00089, 0.00019, + 0.00011, 0.00058, 0.00101, + 0.14137, 0.03155, 0.01202, 0.00085, 0.00018, + 0.00010, 0.00054, 0.00092, + 0.13552, 0.03005, 0.01111, 0.00081, 0.00018, + 0.00008, 0.00049, 0.00081, + 0.13011, 0.02868, 0.01031, 0.00070, 0.00018, + 0.00008, 0.00047, 0.00076, + 0.12509, 0.02742, 0.00960, 0.00063, 0.00018, + 0.00009, 0.00046, 0.00071 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.34789, 0.08725, 0.08307, 0.00190, 0.00001, + 0.00007, 0.00067, 0.00216, + 0.30996, 0.07585, 0.06310, 0.00152, 0.00001, + 0.00003, 0.00070, 0.00199, + 0.27929, 0.06697, 0.04952, 0.00141, 0.00001, + 0.00007, 0.00073, 0.00188, + 0.25415, 0.06005, 0.03998, 0.00139, 0.00001, + 0.00002, 0.00071, 0.00149, + 0.23318, 0.05422, 0.03302, 0.00118, 0.00002, + 0.00002, 0.00064, 0.00142, + 0.21539, 0.04942, 0.02776, 0.00114, 0.00006, + 0.00001, 0.00061, 0.00129, + 0.20027, 0.04538, 0.02371, 0.00107, 0.00010, + 0.00003, 0.00061, 0.00112 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.18663, 0.04195, 0.02047, 0.00109, 0.00010, + 0.00002, 0.00051, 0.00098, + 0.17472, 0.03891, 0.01788, 0.00101, 0.00010, + 0.00001, 0.00046, 0.00087, + 0.16435, 0.03621, 0.01577, 0.00085, 0.00011, + 0.00002, 0.00044, 0.00084, + 0.15506, 0.03385, 0.01402, 0.00073, 0.00012, + 0.00005, 0.00042, 0.00085, + 0.14650, 0.03174, 0.01256, 0.00076, 0.00011, + 0.00005, 0.00042, 0.00076, + 0.13866, 0.02990, 0.01134, 0.00080, 0.00013, + 0.00003, 0.00039, 0.00067, + 0.13179, 0.02822, 0.01029, 0.00073, 0.00014, + 0.00003, 0.00037, 0.00062 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.12580, 0.02666, 0.00940, 0.00055, 0.00013, + 0.00005, 0.00035, 0.00061, + 0.11992, 0.02529, 0.00863, 0.00055, 0.00014, + 0.00004, 0.00031, 0.00055, + 0.11452, 0.02405, 0.00795, 0.00057, 0.00013, + 0.00003, 0.00029, 0.00049, + 0.10970, 0.02287, 0.00736, 0.00047, 0.00012, + 0.00003, 0.00027, 0.00049, + 0.10524, 0.02178, 0.00683, 0.00040, 0.00011, + 0.00003, 0.00026, 0.00048 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.31257, 0.07367, 0.06381, 0.00095, 0.00001, + 0.00001, 0.00037, 0.00153, + 0.27561, 0.06356, 0.04786, 0.00110, 0.00001, + 0.00005, 0.00041, 0.00114, + 0.24679, 0.05572, 0.03721, 0.00089, 0.00001, + 0.00007, 0.00038, 0.00124, + 0.22307, 0.04957, 0.02978, 0.00088, 0.00001, + 0.00002, 0.00044, 0.00105, + 0.20313, 0.04457, 0.02442, 0.00099, 0.00001, + 0.00002, 0.00038, 0.00095, + 0.18690, 0.04044, 0.02040, 0.00090, 0.00000, + 0.00002, 0.00038, 0.00071, + 0.17258, 0.03697, 0.01729, 0.00085, 0.00001, + 0.00001, 0.00034, 0.00070 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.16048, 0.03397, 0.01486, 0.00076, 0.00001, + 0.00001, 0.00032, 0.00061, + 0.14961, 0.03135, 0.01291, 0.00077, 0.00004, + 0.00001, 0.00029, 0.00050, + 0.14000, 0.02908, 0.01134, 0.00073, 0.00006, + 0.00001, 0.00027, 0.00047, + 0.13161, 0.02712, 0.01006, 0.00061, 0.00009, + 0.00003, 0.00026, 0.00047, + 0.12412, 0.02538, 0.00898, 0.00054, 0.00007, + 0.00003, 0.00025, 0.00049, + 0.11732, 0.02380, 0.00808, 0.00043, 0.00008, + 0.00004, 0.00024, 0.00047, + 0.11121, 0.02238, 0.00732, 0.00034, 0.00008, + 0.00004, 0.00023, 0.00043 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.10567, 0.02111, 0.00666, 0.00030, 0.00010, + 0.00003, 0.00024, 0.00037, + 0.10044, 0.01996, 0.00610, 0.00032, 0.00009, + 0.00003, 0.00023, 0.00035, + 0.09568, 0.01893, 0.00561, 0.00035, 0.00008, + 0.00004, 0.00021, 0.00034, + 0.09135, 0.01796, 0.00518, 0.00030, 0.00008, + 0.00003, 0.00019, 0.00032, + 0.08739, 0.01709, 0.00481, 0.00026, 0.00008, + 0.00002, 0.00018, 0.00031 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + 0.27775, 0.06166, 0.04845, 0.00067, 0.00001, + 0.00009, 0.00009, 0.00081, + 0.24296, 0.05256, 0.03586, 0.00060, 0.00001, + 0.00005, 0.00021, 0.00081, + 0.21511, 0.04590, 0.02751, 0.00096, 0.00001, + 0.00005, 0.00022, 0.00046, + 0.19303, 0.04040, 0.02185, 0.00076, 0.00001, + 0.00004, 0.00021, 0.00061, + 0.17528, 0.03607, 0.01775, 0.00061, 0.00001, + 0.00006, 0.00022, 0.00047, + 0.16027, 0.03255, 0.01472, 0.00041, 0.00001, + 0.00006, 0.00019, 0.00049, + 0.14731, 0.02958, 0.01241, 0.00048, 0.00002, + 0.00004, 0.00021, 0.00046 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.13615, 0.02708, 0.01061, 0.00048, 0.00004, + 0.00001, 0.00021, 0.00038, + 0.12661, 0.02490, 0.00917, 0.00037, 0.00008, + 0.00003, 0.00020, 0.00032, + 0.11801, 0.02302, 0.00802, 0.00033, 0.00007, + 0.00003, 0.00019, 0.00033, + 0.11030, 0.02138, 0.00708, 0.00034, 0.00005, + 0.00002, 0.00018, 0.00033, + 0.10374, 0.01990, 0.00630, 0.00030, 0.00007, + 0.00003, 0.00018, 0.00028, + 0.09766, 0.01862, 0.00566, 0.00028, 0.00008, + 0.00004, 0.00019, 0.00026, + 0.09221, 0.01746, 0.00511, 0.00024, 0.00008, + 0.00004, 0.00017, 0.00027 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + 0.08731, 0.01641, 0.00464, 0.00018, 0.00006, + 0.00003, 0.00014, 0.00030, + 0.08286, 0.01548, 0.00424, 0.00016, 0.00004, + 0.00003, 0.00014, 0.00027, + 0.07880, 0.01464, 0.00389, 0.00014, 0.00004, + 0.00003, 0.00014, 0.00024, + 0.07499, 0.01385, 0.00359, 0.00018, 0.00006, + 0.00003, 0.00013, 0.00019, + 0.07153, 0.01313, 0.00332, 0.00018, 0.00006, + 0.00003, 0.00013, 0.00017 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + 0.24363, 0.05050, 0.03616, 0.00020, 0.00001, + 0.00001, 0.00011, 0.00064, + 0.21020, 0.04275, 0.02638, 0.00058, 0.00001, + 0.00007, 0.00010, 0.00043, + 0.18553, 0.03685, 0.02003, 0.00022, 0.00001, + 0.00004, 0.00016, 0.00041, + 0.16530, 0.03234, 0.01573, 0.00027, 0.00001, + 0.00005, 0.00015, 0.00030, + 0.14900, 0.02868, 0.01268, 0.00015, 0.00002, + 0.00002, 0.00018, 0.00034, + 0.13511, 0.02575, 0.01044, 0.00024, 0.00003, + 0.00000, 0.00020, 0.00037, + 0.12373, 0.02328, 0.00875, 0.00017, 0.00006, + 0.00000, 0.00018, 0.00033 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.11392, 0.02119, 0.00744, 0.00015, 0.00005, + 0.00001, 0.00014, 0.00028, + 0.10533, 0.01941, 0.00641, 0.00011, 0.00007, + 0.00001, 0.00013, 0.00026, + 0.09784, 0.01787, 0.00558, 0.00009, 0.00008, + 0.00002, 0.00013, 0.00024, + 0.09122, 0.01652, 0.00490, 0.00012, 0.00006, + 0.00003, 0.00013, 0.00019, + 0.08522, 0.01534, 0.00436, 0.00017, 0.00007, + 0.00003, 0.00010, 0.00018, + 0.08008, 0.01427, 0.00390, 0.00009, 0.00006, + 0.00002, 0.00011, 0.00014, + 0.07542, 0.01334, 0.00351, 0.00004, 0.00005, + 0.00002, 0.00013, 0.00011 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + 0.07115, 0.01252, 0.00318, 0.00007, 0.00005, + 0.00002, 0.00011, 0.00009, + 0.06725, 0.01177, 0.00290, 0.00008, 0.00007, + 0.00003, 0.00010, 0.00009, + 0.06373, 0.01110, 0.00266, 0.00007, 0.00007, + 0.00003, 0.00009, 0.00009, + 0.06059, 0.01048, 0.00244, 0.00001, 0.00005, + 0.00002, 0.00007, 0.00010, + 0.05769, 0.00993, 0.00226, 0.00001, 0.00005, + 0.00002, 0.00006, 0.00010 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.21093, 0.04119, 0.02669, 0.00049, 0.00001, + 0.00011, 0.00001, 0.00028, + 0.18109, 0.03447, 0.01920, 0.00024, 0.00001, + 0.00008, 0.00003, 0.00026, + 0.15780, 0.02952, 0.01443, 0.00030, 0.00001, + 0.00005, 0.00002, 0.00028, + 0.13985, 0.02566, 0.01124, 0.00017, 0.00001, + 0.00005, 0.00004, 0.00025, + 0.12514, 0.02263, 0.00900, 0.00013, 0.00001, + 0.00004, 0.00007, 0.00022, + 0.11301, 0.02021, 0.00737, 0.00018, 0.00002, + 0.00003, 0.00008, 0.00016, + 0.10282, 0.01816, 0.00615, 0.00018, 0.00001, + 0.00003, 0.00007, 0.00011 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.09406, 0.01649, 0.00520, 0.00014, 0.00003, + 0.00001, 0.00007, 0.00012, + 0.08661, 0.01503, 0.00446, 0.00016, 0.00002, + 0.00000, 0.00007, 0.00012, + 0.08018, 0.01376, 0.00387, 0.00012, 0.00001, + 0.00000, 0.00008, 0.00011, + 0.07454, 0.01268, 0.00340, 0.00004, 0.00002, + 0.00000, 0.00008, 0.00011, + 0.06950, 0.01174, 0.00301, 0.00002, 0.00005, + 0.00001, 0.00010, 0.00012, + 0.06499, 0.01090, 0.00268, 0.00004, 0.00003, + 0.00001, 0.00007, 0.00012, + 0.06096, 0.01015, 0.00241, 0.00005, 0.00003, + 0.00001, 0.00006, 0.00010 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05734, 0.00950, 0.00218, 0.00003, 0.00002, + 0.00001, 0.00006, 0.00009, + 0.05405, 0.00891, 0.00198, 0.00004, 0.00002, + 0.00000, 0.00006, 0.00009, + 0.05108, 0.00837, 0.00181, 0.00006, 0.00004, + 0.00000, 0.00006, 0.00008, + 0.04833, 0.00789, 0.00167, 0.00010, 0.00004, + 0.00001, 0.00006, 0.00007, + 0.04585, 0.00745, 0.00154, 0.00011, 0.00004, + 0.00002, 0.00006, 0.00005 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.17976, 0.03267, 0.01921, 0.00012, 0.00001, + 0.00003, 0.00001, 0.00023, + 0.15272, 0.02717, 0.01370, 0.00019, 0.00001, + 0.00004, 0.00001, 0.00017, + 0.13247, 0.02309, 0.01022, 0.00007, 0.00001, + 0.00005, 0.00001, 0.00011, + 0.11623, 0.01999, 0.00790, 0.00019, 0.00001, + 0.00002, 0.00002, 0.00011, + 0.10335, 0.01755, 0.00627, 0.00019, 0.00001, + 0.00002, 0.00003, 0.00004, + 0.09286, 0.01558, 0.00510, 0.00018, 0.00001, + 0.00001, 0.00002, 0.00008, + 0.08418, 0.01395, 0.00423, 0.00012, 0.00001, + 0.00002, 0.00002, 0.00005 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.07671, 0.01259, 0.00357, 0.00011, 0.00001, + 0.00000, 0.00004, 0.00008, + 0.07036, 0.01144, 0.00305, 0.00006, 0.00002, + 0.00000, 0.00004, 0.00009, + 0.06481, 0.01046, 0.00264, 0.00004, 0.00001, + 0.00001, 0.00003, 0.00008, + 0.05991, 0.00961, 0.00231, 0.00007, 0.00001, + 0.00001, 0.00002, 0.00007, + 0.05566, 0.00886, 0.00204, 0.00006, 0.00001, + 0.00001, 0.00000, 0.00006, + 0.05191, 0.00820, 0.00181, 0.00004, 0.00001, + 0.00000, 0.00001, 0.00007, + 0.04854, 0.00762, 0.00162, 0.00004, 0.00001, + 0.00000, 0.00002, 0.00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + 0.04550, 0.00711, 0.00147, 0.00007, 0.00001, + 0.00001, 0.00002, 0.00006, + 0.04279, 0.00663, 0.00133, 0.00005, 0.00001, + 0.00000, 0.00001, 0.00006, + 0.04035, 0.00622, 0.00122, 0.00004, 0.00001, + 0.00001, 0.00001, 0.00006, + 0.03814, 0.00585, 0.00111, 0.00002, 0.00001, + 0.00001, 0.00001, 0.00005, + 0.03613, 0.00552, 0.00103, 0.00002, 0.00001, + 0.00001, 0.00001, 0.00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + 0.12416, 0.01946, 0.00935, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.10312, 0.01588, 0.00647, 0.00011, 0.00001, + 0.00002, 0.00001, 0.00000, + 0.08767, 0.01326, 0.00471, 0.00010, 0.00001, + 0.00001, 0.00002, 0.00001, + 0.07588, 0.01130, 0.00357, 0.00004, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.06658, 0.00977, 0.00279, 0.00002, 0.00001, + 0.00001, 0.00000, 0.00002, + 0.05909, 0.00857, 0.00224, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00001, + 0.05290, 0.00759, 0.00184, 0.00002, 0.00002, + 0.00000, 0.00002, 0.00001 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + 0.04770, 0.00678, 0.00153, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00001, + 0.04328, 0.00610, 0.00130, 0.00000, 0.00001, + 0.00000, 0.00001, 0.00004, + 0.03950, 0.00552, 0.00111, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00004, + 0.03624, 0.00502, 0.00097, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.03342, 0.00460, 0.00085, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00001, + 0.03088, 0.00422, 0.00075, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02866, 0.00391, 0.00067, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + 0.02672, 0.00362, 0.00060, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02497, 0.00335, 0.00054, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02340, 0.00313, 0.00049, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02197, 0.00292, 0.00045, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02067, 0.00274, 0.00041, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ + 0.07915, 0.01062, 0.00410, 0.00005, 0.00001, + 0.00002, 0.00001, 0.00001, + 0.06445, 0.00847, 0.00275, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.05365, 0.00694, 0.00196, 0.00003, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.04567, 0.00582, 0.00145, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00003, + 0.03941, 0.00496, 0.00112, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.03453, 0.00429, 0.00088, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.03052, 0.00376, 0.00072, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ + 0.02719, 0.00332, 0.00059, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02444, 0.00295, 0.00050, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02208, 0.00265, 0.00042, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02005, 0.00239, 0.00036, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01832, 0.00216, 0.00032, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01680, 0.00198, 0.00028, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01548, 0.00181, 0.00025, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ + 0.01432, 0.00166, 0.00022, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01329, 0.00154, 0.00020, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01237, 0.00142, 0.00018, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01154, 0.00132, 0.00017, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01079, 0.00123, 0.00015, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ + 0.04508, 0.00507, 0.00154, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.03580, 0.00395, 0.00100, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.02927, 0.00318, 0.00070, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02440, 0.00262, 0.00051, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02071, 0.00220, 0.00038, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.01785, 0.00187, 0.00030, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01558, 0.00161, 0.00024, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ + 0.01372, 0.00140, 0.00020, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01218, 0.00124, 0.00016, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01088, 0.00110, 0.00014, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00979, 0.00099, 0.00012, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00884, 0.00089, 0.00010, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00806, 0.00080, 0.00009, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00737, 0.00072, 0.00008, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ + 0.00675, 0.00067, 0.00007, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00622, 0.00060, 0.00006, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00574, 0.00056, 0.00006, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00531, 0.00051, 0.00005, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00494, 0.00047, 0.00005, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ + 0.02188, 0.00201, 0.00046, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01684, 0.00152, 0.00029, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01339, 0.00119, 0.00020, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01094, 0.00098, 0.00014, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00910, 0.00079, 0.00010, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00770, 0.00065, 0.00008, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00660, 0.00057, 0.00006, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ + 0.00572, 0.00049, 0.00005, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00500, 0.00042, 0.00004, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00441, 0.00036, 0.00004, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00393, 0.00031, 0.00003, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00351, 0.00028, 0.00003, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00316, 0.00025, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00285, 0.00022, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ + 0.00260, 0.00019, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00237, 0.00018, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00217, 0.00017, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00199, 0.00015, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00184, 0.00014, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ + 0.00198, 0.00011, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00141, 0.00008, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00106, 0.00006, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00080, 0.00004, 0.00000, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00063, 0.00004, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00051, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00042, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ + 0.00035, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00022, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00019, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00016, 0.00002, 0.00000, 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.00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ + 0.00013, 0.00001, 0.00000, 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.00000, + 0.00010, 0.00001, 0.00000, 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.00000, + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / 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,.9D0,1.D0/ DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ DATA N0/2,5,5,10,0,0,10,10/ 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,19 C READ(53,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),F(8,N,M) C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR DO 25 I=1,8 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) 20 CONTINUE DO 31 J=1,NTENTH-1 XX(J)= LOG10(XX(J))+ONEDO DO 31 I=1,8 IF(I.EQ.7) GO TO 31 DO 30 K=1,19 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) 31 CONTINUE 50 FORMAT(8F10.5) DO 40 I=1,8 DO 40 M=1,19 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,8 G(I)=ZEROD IF(XXX.GE.ONED) GOTO 60 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) 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 UPV=G(1) DNV=G(2) USEA=G(4) DSEA=G(8) STR=G(6) CHM=G(5) GLU=G(3) BOT=G(7) X=XSAVE RETURN END