* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:30:20 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:43 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFMSBDM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C THIS IS THE NEW B--TYPE FIT "D-'" WITH UBAR < DBAR (230 MEV) #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.00678, 0.00419, 113.36284, 5.27780, 0.35692, + 0.00000, 2.84427, 5.29945, + 0.00730, 0.00436, 131.82452, 6.20395, 1.45539, + 0.00002, 3.85845, 6.22611, + 0.00777, 0.00453, 151.84360, 7.13090, 2.52854, + 0.00000, 4.86021, 7.15350, + 0.00821, 0.00469, 173.24471, 8.05506, 3.57931, + 0.00002, 5.84926, 8.07807, + 0.00861, 0.00484, 195.67310, 8.98680, 4.62236, + 0.22312, 6.83812, 9.01019, + 0.00900, 0.00499, 218.97154, 9.92759, 5.66247, + 1.19609, 7.82991, 9.95134, + 0.00936, 0.00514, 243.08543, 10.88139, 6.70616, + 2.34336, 8.82993, 10.90546 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.00971, 0.00527, 267.88794, 11.84809, 7.75492, + 3.46835, 9.83886, 11.87251, + 0.01004, 0.00541, 293.24634, 12.82652, 8.80872, + 4.59493, 10.85609, 12.85123, + 0.01036, 0.00554, 319.05518, 13.81594, 9.86774, + 5.72057, 11.88139, 13.84097, + 0.01067, 0.00567, 345.24023, 14.81560, 10.93198, + 6.84680, 12.91434, 14.84097, + 0.01096, 0.00580, 371.73511, 15.82350, 12.00007, + 7.97259, 13.95329, 15.84915, + 0.01125, 0.00592, 398.40186, 16.83650, 13.06944, + 9.09607, 14.99539, 16.86246, + 0.01153, 0.00604, 425.26733, 17.85757, 14.14339, + 10.22076, 16.04376, 17.88382 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.01180, 0.00615, 452.28052, 18.88461, 15.22017, + 11.34535, 17.09650, 18.91115, + 0.01206, 0.00627, 479.26636, 19.91306, 16.29565, + 12.46604, 18.14926, 19.93991, + 0.01232, 0.00638, 506.41284, 20.94939, 17.37643, + 13.58954, 19.20856, 20.97653, + 0.01257, 0.00649, 533.42773, 21.98399, 18.45329, + 14.70706, 20.26501, 22.01143, + 0.01281, 0.00660, 560.54785, 23.02464, 19.53406, + 15.82642, 21.32640, 23.05238 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.00939, 0.00549, 80.27980, 3.87419, 0.25437, + 0.00000, 2.07839, 3.88658, + 0.01008, 0.00576, 93.60220, 4.53371, 1.03551, + 0.00000, 2.79968, 4.54639, + 0.01071, 0.00600, 107.86388, 5.19118, 1.79613, + 0.00000, 3.50961, 5.20409, + 0.01129, 0.00623, 122.91042, 5.84359, 2.53785, + 0.00001, 4.20749, 5.85673, + 0.01183, 0.00645, 138.51331, 6.49805, 3.27081, + 0.15652, 4.90196, 6.51140, + 0.01234, 0.00667, 154.56241, 7.15547, 3.99826, + 0.83751, 5.59509, 7.16902, + 0.01282, 0.00687, 171.01875, 7.81849, 4.72466, + 1.63737, 6.29047, 7.83222 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.01328, 0.00707, 187.79852, 8.48701, 5.45104, + 2.41790, 6.98854, 8.50095, + 0.01373, 0.00726, 204.81503, 9.16018, 6.17734, + 3.19589, 7.68887, 9.17431, + 0.01415, 0.00744, 222.00342, 9.83761, 6.90384, + 3.96968, 8.39140, 9.85194, + 0.01456, 0.00762, 239.31995, 10.51890, 7.63064, + 4.74047, 9.09596, 10.53339, + 0.01495, 0.00779, 256.72217, 11.20261, 8.35678, + 5.50756, 9.80139, 11.21728, + 0.01533, 0.00796, 274.10986, 11.88644, 9.08034, + 6.26951, 10.50556, 11.90128, + 0.01570, 0.00813, 291.52759, 12.57295, 9.80411, + 7.02928, 11.21116, 12.58797 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.01605, 0.00829, 308.94043, 13.26074, 10.52696, + 7.78604, 11.91692, 13.27591, + 0.01640, 0.00845, 326.22144, 13.94627, 11.24564, + 8.53678, 12.61945, 13.96163, + 0.01674, 0.00860, 343.52930, 14.63490, 11.96560, + 9.28704, 13.32413, 14.65041, + 0.01707, 0.00876, 360.64111, 15.31921, 12.67969, + 10.02994, 14.02371, 15.33488, + 0.01739, 0.00890, 377.74976, 16.00546, 13.39423, + 10.77185, 14.72448, 16.02132 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.01300, 0.00721, 56.85426, 2.84456, 0.18115, + 0.00000, 1.51946, 2.85167, + 0.01392, 0.00760, 66.46410, 3.31391, 0.73626, + 0.00000, 2.03211, 3.32119, + 0.01476, 0.00795, 76.62157, 3.77994, 1.27502, + 0.00001, 2.53489, 3.78738, + 0.01553, 0.00829, 87.19536, 4.24018, 1.79820, + 0.00001, 3.02696, 4.24776, + 0.01625, 0.00860, 98.04134, 4.69950, 2.31283, + 0.10972, 3.51426, 4.70722, + 0.01693, 0.00890, 109.08383, 5.15846, 2.82113, + 0.58597, 3.99820, 5.16630, + 0.01757, 0.00919, 120.29666, 5.61885, 3.32615, + 1.14314, 4.48120, 5.62680 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.01818, 0.00947, 131.62527, 6.08059, 3.82862, + 1.68411, 4.96357, 6.08866, + 0.01876, 0.00974, 143.01680, 6.54310, 4.32855, + 2.22076, 5.44505, 6.55128, + 0.01932, 0.00999, 154.43156, 7.00618, 4.82617, + 2.75198, 5.92565, 7.01447, + 0.01986, 0.01024, 165.84703, 7.46966, 5.32169, + 3.27876, 6.40538, 7.47806, + 0.02038, 0.01049, 177.23659, 7.93260, 5.81449, + 3.80066, 6.88347, 7.94109, + 0.02088, 0.01072, 188.52869, 8.39322, 6.30307, + 4.31651, 7.35828, 8.40183, + 0.02137, 0.01095, 199.77345, 8.85376, 6.78984, + 4.82886, 7.83214, 8.86251 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.02184, 0.01118, 210.94688, 9.31324, 7.27400, + 5.33710, 8.30415, 9.32209, + 0.02229, 0.01139, 221.95897, 9.76902, 7.75311, + 5.83896, 8.77178, 9.77798, + 0.02274, 0.01160, 232.93710, 10.22538, 8.23151, + 6.33889, 9.23934, 10.23443, + 0.02317, 0.01181, 243.71588, 10.67667, 8.70375, + 6.83158, 9.70126, 10.68579, + 0.02359, 0.01201, 254.44711, 11.12789, 9.17487, + 7.32211, 10.16260, 11.13712 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.01571, 0.00846, 46.46518, 2.37480, 0.14849, + 0.00000, 1.26558, 2.38015, + 0.01680, 0.00894, 54.40184, 2.75933, 0.60292, + 0.00000, 1.68528, 2.76483, + 0.01780, 0.00938, 62.72838, 3.14024, 1.04310, + 0.00000, 2.09603, 3.14587, + 0.01871, 0.00980, 71.32774, 3.51535, 1.46949, + 0.00000, 2.49698, 3.52112, + 0.01956, 0.01019, 80.09055, 3.88856, 1.88777, + 0.08910, 2.89289, 3.89444, + 0.02036, 0.01055, 88.95720, 4.26029, 2.29968, + 0.47528, 3.28488, 4.26627, + 0.02111, 0.01090, 97.90706, 4.63199, 2.70773, + 0.92601, 3.67491, 4.63807 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.02183, 0.01124, 106.89931, 5.00356, 3.11248, + 1.36230, 4.06321, 5.00974, + 0.02252, 0.01157, 115.89412, 5.37458, 3.51397, + 1.79388, 4.44960, 5.38086, + 0.02318, 0.01188, 124.86359, 5.74492, 3.91244, + 2.21988, 4.83414, 5.75130, + 0.02382, 0.01219, 133.79311, 6.11453, 4.30813, + 2.64118, 5.21692, 6.12100, + 0.02443, 0.01248, 142.66318, 6.48263, 4.70054, + 3.05743, 5.59728, 6.48918, + 0.02502, 0.01276, 151.41556, 6.84775, 5.08843, + 3.46764, 5.97390, 6.85438, + 0.02559, 0.01304, 160.09944, 7.21192, 5.47394, + 3.87411, 6.34885, 7.21864 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.02614, 0.01331, 168.69635, 7.57432, 5.85644, + 4.27633, 6.72140, 7.58113, + 0.02668, 0.01357, 177.13249, 7.93274, 6.23385, + 4.67237, 7.08941, 7.93963, + 0.02720, 0.01383, 185.51929, 8.29092, 6.60999, + 5.06613, 7.45666, 8.29790, + 0.02770, 0.01408, 193.71812, 8.64407, 6.98018, + 5.45308, 7.81842, 8.65114, + 0.02820, 0.01432, 201.86037, 8.99654, 7.34885, + 5.83766, 8.17907, 9.00368 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.01797, 0.00949, 40.26817, 2.08970, 0.12893, + 0.00000, 1.11193, 2.09428, + 0.01920, 0.01004, 47.19662, 2.42345, 0.52315, + 0.00000, 1.47604, 2.42817, + 0.02032, 0.01056, 54.42696, 2.75351, 0.90449, + 0.00000, 1.83186, 2.75836, + 0.02135, 0.01103, 61.85147, 3.07787, 1.27320, + 0.00000, 2.17850, 3.08285, + 0.02231, 0.01148, 69.38116, 3.39987, 1.63417, + 0.07684, 2.52009, 3.40497, + 0.02320, 0.01191, 76.96577, 3.71986, 1.98891, + 0.40958, 2.85755, 3.72506, + 0.02405, 0.01231, 84.58859, 4.03907, 2.33956, + 0.79724, 3.19256, 4.04436 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.02486, 0.01270, 92.21600, 4.35743, 2.68660, + 1.17169, 3.52534, 4.36282, + 0.02564, 0.01308, 99.81659, 4.67458, 3.03009, + 1.54130, 3.85574, 4.68007, + 0.02638, 0.01344, 107.36899, 4.99047, 3.37029, + 1.90541, 4.18385, 4.99604, + 0.02709, 0.01378, 114.86278, 5.30504, 3.70742, + 2.26477, 4.50977, 5.31070, + 0.02778, 0.01412, 122.28268, 5.61768, 4.04108, + 2.61913, 4.83299, 5.62343, + 0.02844, 0.01445, 129.57832, 5.92712, 4.37018, + 2.96762, 5.15232, 5.93294, + 0.02908, 0.01476, 136.79765, 6.23517, 4.69669, + 3.31231, 5.46965, 6.24106 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.02970, 0.01507, 143.92532, 6.54117, 5.02006, + 3.65280, 5.78439, 6.54714, + 0.03030, 0.01537, 150.89703, 6.84317, 5.33847, + 3.98739, 6.09465, 6.84922, + 0.03088, 0.01566, 157.81467, 7.14453, 5.65535, + 4.31957, 6.40382, 7.15065, + 0.03145, 0.01594, 164.55515, 7.44102, 5.96657, + 4.64533, 6.70772, 7.44721, + 0.03200, 0.01622, 171.23663, 7.73653, 6.27610, + 4.96866, 7.01029, 7.74279 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.01994, 0.01037, 36.03723, 1.89259, 0.11555, + 0.00000, 1.00594, 1.89680, + 0.02129, 0.01099, 42.27234, 2.19158, 0.46859, + 0.00000, 1.33204, 2.19595, + 0.02252, 0.01157, 48.75197, 2.48688, 0.80972, + 0.00000, 1.65031, 2.49138, + 0.02365, 0.01210, 55.37572, 2.77661, 1.13908, + 0.00001, 1.95992, 2.78124, + 0.02470, 0.01261, 62.06821, 3.06372, 1.46102, + 0.06850, 2.26450, 3.06847, + 0.02568, 0.01308, 68.78519, 3.34853, 1.77687, + 0.36487, 2.56488, 3.35338, + 0.02661, 0.01353, 75.51291, 3.63210, 2.08854, + 0.70970, 2.86255, 3.63705 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.02750, 0.01397, 82.22302, 3.91441, 2.39647, + 1.04220, 3.15771, 3.91946, + 0.02835, 0.01438, 88.88927, 4.19513, 2.70073, + 1.36987, 3.45025, 4.20028, + 0.02916, 0.01478, 95.49414, 4.47425, 3.00157, + 1.69214, 3.74026, 4.47948, + 0.02994, 0.01517, 102.03079, 4.75174, 3.29922, + 2.00972, 4.02787, 4.75706, + 0.03069, 0.01554, 108.48605, 5.02709, 3.59334, + 2.32239, 4.31264, 5.03249, + 0.03141, 0.01591, 114.81557, 5.29909, 3.88292, + 2.62935, 4.59346, 5.30457, + 0.03211, 0.01626, 121.06581, 5.56951, 4.16982, + 2.93256, 4.87215, 5.57507 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.03278, 0.01660, 127.22301, 5.83775, 4.45358, + 3.23166, 5.14818, 5.84338, + 0.03344, 0.01693, 133.23058, 6.10203, 4.73251, + 3.52509, 5.41981, 6.10773, + 0.03407, 0.01725, 139.18147, 6.36545, 5.00980, + 3.81609, 5.69019, 6.37123, + 0.03469, 0.01756, 144.96507, 6.62418, 5.28169, + 4.10101, 5.95552, 6.63002, + 0.03529, 0.01787, 150.68996, 6.88177, 5.55181, + 4.38349, 6.21940, 6.88768 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.02751, 0.01370, 25.53156, 1.39294, 0.08218, + 0.00000, 0.73834, 1.39713, + 0.02932, 0.01459, 30.02258, 1.60524, 0.33270, + 0.00000, 0.96975, 1.60963, + 0.03096, 0.01542, 34.62773, 1.81402, 0.57387, + 0.00000, 1.19472, 1.81858, + 0.03247, 0.01618, 39.26733, 2.01777, 0.80562, + 0.00000, 1.41246, 2.02249, + 0.03387, 0.01688, 43.89818, 2.21853, 1.03099, + 0.04789, 1.62551, 2.22340, + 0.03517, 0.01755, 48.49229, 2.41650, 1.25091, + 0.25451, 1.83445, 2.42150, + 0.03641, 0.01819, 53.04248, 2.61245, 1.46671, + 0.49388, 2.04031, 2.61758 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.03759, 0.01879, 57.53278, 2.80635, 1.67872, + 0.72340, 2.24326, 2.81160, + 0.03871, 0.01937, 61.94952, 2.99804, 1.88704, + 0.94839, 2.44325, 3.00341, + 0.03978, 0.01993, 66.28516, 3.18755, 2.09190, + 1.16851, 2.64043, 3.19303, + 0.04080, 0.02046, 70.53885, 3.37495, 2.29355, + 1.38435, 2.83494, 3.38053, + 0.04179, 0.02098, 74.70436, 3.55992, 2.49178, + 1.59580, 3.02653, 3.56559, + 0.04274, 0.02147, 78.75093, 3.74158, 2.68586, + 1.80225, 3.21438, 3.74734, + 0.04366, 0.02196, 82.71915, 3.92134, 2.87728, + 2.00528, 3.39996, 3.92720 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.04454, 0.02242, 86.60075, 4.09883, 3.06573, + 2.20466, 3.58292, 4.10477, + 0.04540, 0.02287, 90.35558, 4.27273, 3.24999, + 2.39925, 3.76199, 4.27876, + 0.04623, 0.02331, 94.05588, 4.44544, 3.43252, + 2.59153, 3.93960, 4.45155, + 0.04704, 0.02374, 97.62140, 4.61413, 3.61051, + 2.77879, 4.11292, 4.62031, + 0.04782, 0.02416, 101.13344, 4.78153, 3.78675, + 2.96385, 4.28473, 4.78777 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.03790, 0.01824, 18.09737, 1.02881, 0.05844, + 0.00000, 0.54464, 1.03437, + 0.04032, 0.01952, 21.32814, 1.17929, 0.23607, + 0.00000, 0.70871, 1.18513, + 0.04252, 0.02068, 24.59242, 1.32652, 0.40634, + 0.00000, 0.86748, 1.33260, + 0.04453, 0.02175, 27.82928, 1.46937, 0.56910, + 0.00000, 1.02028, 1.47567, + 0.04639, 0.02275, 31.01701, 1.60922, 0.72645, + 0.03339, 1.16889, 1.61572, + 0.04812, 0.02368, 34.13919, 1.74625, 0.87909, + 0.17704, 1.31372, 1.75293, + 0.04976, 0.02456, 37.19345, 1.88098, 1.02796, + 0.34266, 1.45552, 1.88784 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.05131, 0.02540, 40.17247, 2.01344, 1.17332, + 0.50050, 1.59443, 2.02046, + 0.05279, 0.02621, 43.07063, 2.14356, 1.31528, + 0.65434, 1.73047, 2.15073, + 0.05420, 0.02697, 45.88628, 2.27141, 1.45406, + 0.80400, 1.86378, 2.27872, + 0.05555, 0.02771, 48.62247, 2.39709, 1.58990, + 0.94996, 1.99454, 2.40454, + 0.05684, 0.02842, 51.27676, 2.52042, 1.72270, + 1.09217, 2.12260, 2.52800, + 0.05809, 0.02910, 53.82848, 2.64079, 1.85191, + 1.23020, 2.24739, 2.64848, + 0.05929, 0.02975, 56.31184, 2.75931, 1.97875, + 1.36531, 2.37006, 2.76712 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.06044, 0.03039, 58.72153, 2.87573, 2.10300, + 1.49735, 2.49039, 2.88365, + 0.06156, 0.03100, 61.03021, 2.98911, 2.22377, + 1.62549, 2.60746, 2.99713, + 0.06264, 0.03160, 63.29239, 3.10128, 2.34295, + 1.75162, 2.72314, 3.10940, + 0.06369, 0.03217, 65.45084, 3.21017, 2.45848, + 1.87376, 2.83534, 3.21838, + 0.06471, 0.03274, 67.56570, 3.31783, 2.57247, + 1.99403, 2.94616, 3.32614 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.04567, 0.02171, 14.80340, 0.86449, 0.04787, + 0.00000, 0.45771, 0.87137, + 0.04855, 0.02327, 17.46556, 0.98736, 0.19307, + 0.00000, 0.59180, 0.99457, + 0.05115, 0.02470, 20.12881, 1.10716, 0.33181, + 0.00000, 0.72112, 1.11466, + 0.05352, 0.02600, 22.74222, 1.22292, 0.46396, + 0.00000, 0.84511, 1.23068, + 0.05571, 0.02721, 25.29341, 1.33578, 0.59124, + 0.02698, 0.96521, 1.34378, + 0.05776, 0.02834, 27.77130, 1.44588, 0.71421, + 0.14286, 1.08178, 1.45410, + 0.05968, 0.02941, 30.17592, 1.55369, 0.83366, + 0.27603, 1.19544, 1.56211 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.06151, 0.03042, 32.50339, 1.65923, 0.94984, + 0.40245, 1.30632, 1.66784, + 0.06324, 0.03139, 34.75139, 1.76247, 1.06286, + 0.52521, 1.41447, 1.77126, + 0.06489, 0.03231, 36.92084, 1.86351, 1.17293, + 0.64421, 1.52004, 1.87246, + 0.06647, 0.03320, 39.01585, 1.96247, 1.28027, + 0.75985, 1.62321, 1.97158, + 0.06798, 0.03404, 41.03569, 2.05921, 1.38483, + 0.87214, 1.72388, 2.06847, + 0.06943, 0.03486, 42.96425, 2.15324, 1.48618, + 0.98073, 1.82158, 2.16264, + 0.07083, 0.03564, 44.83162, 2.24554, 1.58535, + 1.08669, 1.91733, 2.25507 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.07218, 0.03640, 46.63419, 2.33591, 1.68220, + 1.18992, 2.01095, 2.34556, + 0.07348, 0.03713, 48.35025, 2.42357, 1.77598, + 1.28974, 2.10168, 2.43335, + 0.07473, 0.03784, 50.02550, 2.51009, 1.86830, + 1.38777, 2.19112, 2.51999, + 0.07595, 0.03852, 51.61328, 2.59374, 1.95745, + 1.48235, 2.27752, 2.60374, + 0.07713, 0.03918, 53.16382, 2.67626, 2.04522, + 1.57527, 2.36268, 2.68638 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.05211, 0.02468, 12.84036, 0.76596, 0.04154, + 0.00000, 0.40574, 0.77396, + 0.05535, 0.02648, 15.15948, 0.87227, 0.16733, + 0.00000, 0.52187, 0.88064, + 0.05828, 0.02812, 17.46109, 0.97562, 0.28723, + 0.00000, 0.63357, 0.98432, + 0.06095, 0.02962, 19.70105, 1.07516, 0.40108, + 0.00000, 0.74034, 1.08415, + 0.06341, 0.03100, 21.87273, 1.17189, 0.51041, + 0.02317, 0.84342, 1.18114, + 0.06570, 0.03230, 23.96823, 1.26594, 0.61572, + 0.12249, 0.94315, 1.27543, + 0.06786, 0.03352, 25.98907, 1.35772, 0.71769, + 0.23637, 1.04007, 1.36743 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.06990, 0.03467, 27.93349, 1.44728, 0.81655, + 0.34414, 1.13433, 1.45720, + 0.07184, 0.03577, 29.80106, 1.53461, 0.91244, + 0.44850, 1.22598, 1.54472, + 0.07368, 0.03682, 31.59392, 1.61981, 1.00556, + 0.54937, 1.31517, 1.63011, + 0.07544, 0.03782, 33.31693, 1.70302, 1.09612, + 0.64714, 1.40209, 1.71349, + 0.07713, 0.03878, 34.97005, 1.78414, 1.18409, + 0.74183, 1.48667, 1.79476, + 0.07874, 0.03970, 36.54018, 1.86273, 1.26910, + 0.83313, 1.56850, 1.87350, + 0.08030, 0.04059, 38.05452, 1.93968, 1.35208, + 0.92201, 1.64850, 1.95060 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.08180, 0.04144, 39.51041, 2.01483, 1.43293, + 1.00841, 1.72652, 2.02590, + 0.08324, 0.04227, 40.88936, 2.08753, 1.51099, + 1.09173, 1.80193, 2.09872, + 0.08463, 0.04306, 42.23164, 2.15914, 1.58770, + 1.17340, 1.87611, 2.17046, + 0.08598, 0.04383, 43.49719, 2.22816, 1.66156, + 1.25197, 1.94757, 2.23960, + 0.08729, 0.04458, 44.72981, 2.29613, 1.73414, + 1.32903, 2.01787, 2.30769 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.05764, 0.02747, 11.50222, 0.70077, 0.03720, + 0.00000, 0.37103, 0.70946, + 0.06120, 0.02949, 13.58566, 0.79569, 0.14963, + 0.00001, 0.47479, 0.80478, + 0.06441, 0.03131, 15.63766, 0.88772, 0.25653, + 0.00001, 0.57433, 0.89715, + 0.06732, 0.03298, 17.61949, 0.97609, 0.35777, + 0.00002, 0.66920, 0.98584, + 0.07002, 0.03452, 19.52823, 1.06169, 0.45472, + 0.02056, 0.76053, 1.07172, + 0.07252, 0.03595, 21.35942, 1.14465, 0.54781, + 0.10845, 0.84861, 1.15493, + 0.07487, 0.03730, 23.11586, 1.22538, 0.63772, + 0.20903, 0.93398, 1.23590 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.07709, 0.03858, 24.79561, 1.30392, 0.72464, + 0.30394, 1.01675, 1.31465, + 0.07920, 0.03979, 26.40141, 1.38028, 0.80872, + 0.39562, 1.09701, 1.39122, + 0.08120, 0.04094, 27.93648, 1.45460, 0.89018, + 0.48403, 1.17494, 1.46573, + 0.08312, 0.04204, 29.40570, 1.52699, 0.96920, + 0.56952, 1.25068, 1.53830, + 0.08494, 0.04310, 30.80994, 1.59738, 1.04578, + 0.65212, 1.32419, 1.60886, + 0.08669, 0.04411, 32.13626, 1.66541, 1.11960, + 0.73159, 1.39515, 1.67704, + 0.08838, 0.04508, 33.41130, 1.73188, 1.19152, + 0.80880, 1.46437, 1.74366 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.09000, 0.04601, 34.63304, 1.79663, 1.26142, + 0.88368, 1.53172, 1.80856, + 0.09156, 0.04691, 35.78522, 1.85909, 1.32873, + 0.95570, 1.59663, 1.87115, + 0.09307, 0.04778, 36.90384, 1.92050, 1.39475, + 1.02618, 1.66038, 1.93270, + 0.09452, 0.04861, 37.95329, 1.97958, 1.45819, + 1.09385, 1.72165, 1.99189, + 0.09593, 0.04943, 38.97290, 2.03766, 1.52045, + 1.16012, 1.78185, 2.05009 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.07889, 0.03880, 8.18436, 0.53559, 0.02634, + 0.00000, 0.28389, 0.54729, + 0.08362, 0.04163, 9.67033, 0.60193, 0.10544, + 0.00000, 0.35674, 0.61410, + 0.08786, 0.04416, 11.09429, 0.66557, 0.17996, + 0.00001, 0.42592, 0.67815, + 0.09170, 0.04645, 12.43272, 0.72602, 0.24984, + 0.00001, 0.49118, 0.73896, + 0.09522, 0.04856, 13.69332, 0.78394, 0.31609, + 0.01404, 0.55335, 0.79720, + 0.09848, 0.05050, 14.87773, 0.83947, 0.37908, + 0.07376, 0.61268, 0.85302, + 0.10153, 0.05233, 15.99150, 0.89295, 0.43932, + 0.14159, 0.66961, 0.90677 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.10441, 0.05403, 17.03688, 0.94443, 0.49701, + 0.20499, 0.72425, 0.95850, + 0.10712, 0.05565, 18.01881, 0.99401, 0.55230, + 0.26570, 0.77674, 1.00830, + 0.10969, 0.05717, 18.94221, 1.04181, 0.60539, + 0.32377, 0.82723, 1.05631, + 0.11214, 0.05862, 19.81262, 1.08795, 0.65646, + 0.37946, 0.87589, 1.10265, + 0.11447, 0.06000, 20.63210, 1.13243, 0.70554, + 0.43285, 0.92272, 1.14731, + 0.11669, 0.06132, 21.39287, 1.17501, 0.75245, + 0.48379, 0.96750, 1.19006, + 0.11883, 0.06257, 22.11525, 1.21631, 0.79781, + 0.53293, 1.01087, 1.23152 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.12087, 0.06378, 22.79848, 1.25624, 0.84159, + 0.58027, 1.05276, 1.27161, + 0.12283, 0.06493, 23.43222, 1.29441, 0.88339, + 0.62544, 1.09278, 1.30992, + 0.12473, 0.06605, 24.04205, 1.33172, 0.92417, + 0.66940, 1.13186, 1.34737, + 0.12654, 0.06711, 24.60417, 1.36729, 0.96301, + 0.71127, 1.16909, 1.38306, + 0.12830, 0.06815, 25.14577, 1.40208, 1.00094, + 0.75207, 1.20548, 1.41798 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.10815, 0.05629, 5.84701, 0.41831, 0.01855, + 0.00001, 0.22226, 0.43374, + 0.11439, 0.06014, 6.89168, 0.46387, 0.07371, + 0.00001, 0.27276, 0.47981, + 0.11993, 0.06356, 7.85723, 0.50693, 0.12500, + 0.00002, 0.32006, 0.52332, + 0.12492, 0.06660, 8.73285, 0.54723, 0.17247, + 0.00002, 0.36403, 0.56399, + 0.12947, 0.06937, 9.53477, 0.58530, 0.21688, + 0.00943, 0.40536, 0.60239, + 0.13365, 0.07191, 10.26739, 0.62130, 0.25858, + 0.04923, 0.44429, 0.63868, + 0.13754, 0.07426, 10.93883, 0.65549, 0.29797, + 0.09400, 0.48115, 0.67313 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.14119, 0.07645, 11.55508, 0.68796, 0.33522, + 0.13534, 0.51607, 0.70586, + 0.14461, 0.07849, 12.11970, 0.71889, 0.37055, + 0.17456, 0.54926, 0.73700, + 0.14784, 0.08042, 12.63923, 0.74834, 0.40411, + 0.21166, 0.58081, 0.76665, + 0.15089, 0.08223, 13.11969, 0.77643, 0.43603, + 0.24689, 0.61086, 0.79493, + 0.15378, 0.08396, 13.56279, 0.80324, 0.46643, + 0.28037, 0.63951, 0.82190, + 0.15653, 0.08557, 13.96378, 0.82858, 0.49513, + 0.31196, 0.66657, 0.84740, + 0.15916, 0.08712, 14.33820, 0.85292, 0.52266, + 0.34219, 0.69255, 0.87189 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.16167, 0.08858, 14.68612, 0.87625, 0.54901, + 0.37108, 0.71742, 0.89535, + 0.16405, 0.08998, 15.00078, 0.89828, 0.57390, + 0.39837, 0.74090, 0.91751, + 0.16634, 0.09132, 15.29998, 0.91967, 0.59800, + 0.42475, 0.76368, 0.93901, + 0.16854, 0.09259, 15.56985, 0.93983, 0.62076, + 0.44966, 0.78517, 0.95929, + 0.17067, 0.09382, 15.82652, 0.95942, 0.64283, + 0.47379, 0.80602, 0.97899 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.13041, 0.07061, 4.81657, 0.36507, 0.01504, + 0.00001, 0.19455, 0.38309, + 0.13770, 0.07512, 5.65548, 0.40111, 0.05944, + 0.00001, 0.23492, 0.41965, + 0.14414, 0.07908, 6.41075, 0.43480, 0.10031, + 0.00001, 0.27232, 0.45375, + 0.14990, 0.08259, 7.07913, 0.46599, 0.13778, + 0.00003, 0.30674, 0.48531, + 0.15511, 0.08575, 7.67787, 0.49512, 0.17249, + 0.00738, 0.33874, 0.51474, + 0.15990, 0.08862, 8.21503, 0.52238, 0.20479, + 0.03837, 0.36859, 0.54229, + 0.16433, 0.09126, 8.69875, 0.54805, 0.23504, + 0.07303, 0.39661, 0.56820 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.16843, 0.09372, 9.13327, 0.57222, 0.26344, + 0.10479, 0.42296, 0.59257, + 0.17229, 0.09600, 9.52586, 0.59499, 0.29012, + 0.13467, 0.44773, 0.61553, + 0.17591, 0.09812, 9.88058, 0.61648, 0.31526, + 0.16273, 0.47109, 0.63720, + 0.17933, 0.10011, 10.20232, 0.63683, 0.33903, + 0.18921, 0.49319, 0.65772, + 0.18256, 0.10199, 10.49513, 0.65610, 0.36150, + 0.21422, 0.51411, 0.67713, + 0.18560, 0.10374, 10.75471, 0.67415, 0.38256, + 0.23766, 0.53369, 0.69530, + 0.18849, 0.10541, 10.99390, 0.69139, 0.40265, + 0.25996, 0.55238, 0.71266 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.19125, 0.10699, 11.21303, 0.70781, 0.42176, + 0.28117, 0.57018, 0.72919, + 0.19387, 0.10848, 11.40742, 0.72316, 0.43968, + 0.30106, 0.58684, 0.74465, + 0.19640, 0.10991, 11.59032, 0.73799, 0.45696, + 0.32021, 0.60292, 0.75958, + 0.19878, 0.11126, 11.74983, 0.75183, 0.47313, + 0.33815, 0.61794, 0.77349, + 0.20108, 0.11257, 11.90003, 0.76521, 0.48875, + 0.35545, 0.63246, 0.78695 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.14923, 0.08319, 4.20492, 0.33269, 0.01292, + 0.00001, 0.17779, 0.35271, + 0.15732, 0.08815, 4.91633, 0.36289, 0.05083, + 0.00001, 0.21198, 0.38341, + 0.16444, 0.09248, 5.54333, 0.39085, 0.08544, + 0.00001, 0.24338, 0.41175, + 0.17077, 0.09628, 6.08681, 0.41650, 0.11691, + 0.00002, 0.27202, 0.43773, + 0.17647, 0.09969, 6.56528, 0.44024, 0.14583, + 0.00616, 0.29842, 0.46174, + 0.18168, 0.10276, 6.98754, 0.46227, 0.17255, + 0.03192, 0.32286, 0.48402, + 0.18649, 0.10557, 7.36174, 0.48284, 0.19740, + 0.06059, 0.34563, 0.50480 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.19092, 0.10816, 7.69255, 0.50207, 0.22057, + 0.08669, 0.36687, 0.52419, + 0.19506, 0.11056, 7.98688, 0.52004, 0.24220, + 0.11110, 0.38671, 0.54231, + 0.19895, 0.11278, 8.24886, 0.53687, 0.26246, + 0.13390, 0.40529, 0.55930, + 0.20260, 0.11485, 8.48311, 0.55270, 0.28149, + 0.15530, 0.42276, 0.57527, + 0.20604, 0.11679, 8.69319, 0.56760, 0.29940, + 0.17540, 0.43920, 0.59027, + 0.20926, 0.11860, 8.87573, 0.58144, 0.31607, + 0.19414, 0.45448, 0.60421, + 0.21232, 0.12031, 9.04169, 0.59459, 0.33190, + 0.21190, 0.46899, 0.61744 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.21523, 0.12193, 9.19145, 0.60704, 0.34688, + 0.22870, 0.48272, 0.62997, + 0.21798, 0.12344, 9.32139, 0.61859, 0.36085, + 0.24439, 0.49550, 0.64160, + 0.22063, 0.12489, 9.44241, 0.62969, 0.37427, + 0.25943, 0.50778, 0.65278, + 0.22311, 0.12626, 9.54491, 0.63997, 0.38675, + 0.27345, 0.51918, 0.66311, + 0.22551, 0.12757, 9.64039, 0.64988, 0.39877, + 0.28692, 0.53015, 0.67306 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.16590, 0.09454, 3.78909, 0.30995, 0.01148, + 0.00004, 0.16610, 0.33160, + 0.17465, 0.09982, 4.41062, 0.33606, 0.04492, + 0.00003, 0.19600, 0.35817, + 0.18230, 0.10439, 4.94869, 0.36005, 0.07523, + 0.00004, 0.22325, 0.38250, + 0.18905, 0.10839, 5.40636, 0.38184, 0.10257, + 0.00003, 0.24789, 0.40455, + 0.19513, 0.11193, 5.80367, 0.40187, 0.12756, + 0.00536, 0.27047, 0.42482, + 0.20065, 0.11512, 6.14841, 0.42034, 0.15051, + 0.02759, 0.29122, 0.44350, + 0.20572, 0.11801, 6.44982, 0.43741, 0.17170, + 0.05218, 0.31040, 0.46075 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.21041, 0.12067, 6.71309, 0.45326, 0.19134, + 0.07446, 0.32819, 0.47674, + 0.21475, 0.12311, 6.94215, 0.46799, 0.20959, + 0.09521, 0.34472, 0.49159, + 0.21881, 0.12537, 7.14344, 0.48171, 0.22659, + 0.11449, 0.36011, 0.50542, + 0.22260, 0.12747, 7.32200, 0.49453, 0.24249, + 0.13250, 0.37448, 0.51833, + 0.22615, 0.12943, 7.47954, 0.50651, 0.25735, + 0.14934, 0.38793, 0.53037, + 0.22951, 0.13124, 7.61383, 0.51756, 0.27114, + 0.16497, 0.40037, 0.54151, + 0.23269, 0.13294, 7.73413, 0.52799, 0.28417, + 0.17973, 0.41212, 0.55201 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.23568, 0.13454, 7.84075, 0.53781, 0.29644, + 0.19364, 0.42318, 0.56189, + 0.23848, 0.13604, 7.93079, 0.54687, 0.30783, + 0.20656, 0.43341, 0.57098, + 0.24116, 0.13748, 8.01371, 0.55554, 0.31873, + 0.21892, 0.44321, 0.57968, + 0.24371, 0.13882, 8.08165, 0.56351, 0.32882, + 0.23038, 0.45224, 0.58768, + 0.24616, 0.14009, 8.14413, 0.57115, 0.33851, + 0.24138, 0.46091, 0.59536 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.23277, 0.14039, 2.76158, 0.24847, 0.00774, + 0.00001, 0.13481, 0.27530, + 0.24337, 0.14613, 3.14364, 0.26388, 0.02990, + 0.00002, 0.15363, 0.29085, + 0.25243, 0.15096, 3.45111, 0.27752, 0.04937, + 0.00002, 0.17021, 0.30456, + 0.26030, 0.15503, 3.69408, 0.28944, 0.06644, + 0.00001, 0.18472, 0.31654, + 0.26727, 0.15852, 3.89128, 0.30005, 0.08167, + 0.00331, 0.19766, 0.32717, + 0.27345, 0.16161, 4.05216, 0.30951, 0.09530, + 0.01681, 0.20921, 0.33664, + 0.27902, 0.16433, 4.18312, 0.31799, 0.10762, + 0.03151, 0.21961, 0.34509 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.28409, 0.16675, 4.28890, 0.32561, 0.11878, + 0.04454, 0.22899, 0.35269, + 0.28872, 0.16893, 4.37443, 0.33248, 0.12894, + 0.05646, 0.23749, 0.35951, + 0.29297, 0.17091, 4.44350, 0.33868, 0.13822, + 0.06736, 0.24523, 0.36566, + 0.29689, 0.17269, 4.49922, 0.34430, 0.14673, + 0.07738, 0.25229, 0.37122, + 0.30052, 0.17428, 4.54317, 0.34938, 0.15454, + 0.08657, 0.25871, 0.37624, + 0.30386, 0.17575, 4.57534, 0.35394, 0.16165, + 0.09499, 0.26454, 0.38071, + 0.30697, 0.17710, 4.60048, 0.35813, 0.16826, + 0.10282, 0.26992, 0.38482 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.30988, 0.17834, 4.61870, 0.36194, 0.17438, + 0.11009, 0.27486, 0.38856, + 0.31257, 0.17946, 4.62927, 0.36531, 0.17994, + 0.11673, 0.27930, 0.39186, + 0.31513, 0.18052, 4.63718, 0.36847, 0.18519, + 0.12300, 0.28349, 0.39495, + 0.31748, 0.18146, 4.63799, 0.37124, 0.18996, + 0.12873, 0.28722, 0.39765, + 0.31973, 0.18235, 4.63702, 0.37385, 0.19447, + 0.13417, 0.29076, 0.40018 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.33122, 0.20310, 2.02602, 0.19318, 0.00489, + -0.00013, 0.10663, 0.22373, + 0.34217, 0.20732, 2.21553, 0.20019, 0.01867, + -0.00010, 0.11693, 0.23034, + 0.35118, 0.21056, 2.34974, 0.20595, 0.03026, + -0.00010, 0.12552, 0.23573, + 0.35864, 0.21308, 2.44077, 0.21061, 0.04006, + -0.00009, 0.13263, 0.23999, + 0.36495, 0.21507, 2.50405, 0.21441, 0.04846, + 0.00174, 0.13866, 0.24348, + 0.37041, 0.21664, 2.54612, 0.21756, 0.05574, + 0.00923, 0.14380, 0.24626, + 0.37510, 0.21789, 2.57231, 0.22015, 0.06213, + 0.01724, 0.14821, 0.24854 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.37923, 0.21888, 2.58620, 0.22224, 0.06771, + 0.02415, 0.15196, 0.25036, + 0.38278, 0.21969, 2.59060, 0.22398, 0.07265, + 0.03029, 0.15522, 0.25173, + 0.38591, 0.22032, 2.58795, 0.22538, 0.07703, + 0.03579, 0.15803, 0.25281, + 0.38873, 0.22079, 2.58009, 0.22650, 0.08094, + 0.04073, 0.16046, 0.25365, + 0.39125, 0.22114, 2.56781, 0.22734, 0.08441, + 0.04515, 0.16256, 0.25420, + 0.39341, 0.22138, 2.55110, 0.22793, 0.08749, + 0.04907, 0.16433, 0.25455, + 0.39537, 0.22152, 2.53267, 0.22837, 0.09029, + 0.05268, 0.16589, 0.25477 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.39717, 0.22157, 2.51257, 0.22869, 0.09282, + 0.05603, 0.16725, 0.25485, + 0.39868, 0.22155, 2.49006, 0.22882, 0.09504, + 0.05899, 0.16837, 0.25473, + 0.40008, 0.22151, 2.46764, 0.22889, 0.09709, + 0.06173, 0.16939, 0.25456, + 0.40127, 0.22138, 2.44285, 0.22879, 0.09886, + 0.06415, 0.17016, 0.25420, + 0.40238, 0.22123, 2.41859, 0.22865, 0.10052, + 0.06642, 0.17085, 0.25383 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.40727, 0.24374, 1.67848, 0.15957, 0.00365, + 0.00002, 0.08936, 0.19050, + 0.41626, 0.24529, 1.77422, 0.16268, 0.01357, + 0.00000, 0.09563, 0.19279, + 0.42335, 0.24608, 1.83018, 0.16482, 0.02166, + -0.00001, 0.10063, 0.19432, + 0.42876, 0.24633, 1.85716, 0.16633, 0.02821, + -0.00002, 0.10451, 0.19516, + 0.43302, 0.24631, 1.86716, 0.16731, 0.03375, + 0.00123, 0.10759, 0.19551, + 0.43646, 0.24598, 1.86508, 0.16789, 0.03840, + 0.00619, 0.11006, 0.19553, + 0.43920, 0.24547, 1.85443, 0.16817, 0.04234, + 0.01140, 0.11204, 0.19526 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.44145, 0.24474, 1.83759, 0.16816, 0.04571, + 0.01584, 0.11363, 0.19479, + 0.44315, 0.24395, 1.81657, 0.16800, 0.04860, + 0.01967, 0.11487, 0.19410, + 0.44446, 0.24310, 1.79276, 0.16764, 0.05113, + 0.02302, 0.11583, 0.19330, + 0.44551, 0.24217, 1.76724, 0.16712, 0.05335, + 0.02601, 0.11658, 0.19242, + 0.44626, 0.24119, 1.74053, 0.16655, 0.05525, + 0.02866, 0.11716, 0.19143, + 0.44673, 0.24014, 1.71261, 0.16587, 0.05688, + 0.03102, 0.11751, 0.19035, + 0.44708, 0.23907, 1.68484, 0.16513, 0.05833, + 0.03311, 0.11776, 0.18925 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.44731, 0.23798, 1.65711, 0.16431, 0.05961, + 0.03494, 0.11794, 0.18810, + 0.44728, 0.23686, 1.62902, 0.16342, 0.06068, + 0.03656, 0.11796, 0.18690, + 0.44719, 0.23577, 1.60202, 0.16254, 0.06164, + 0.03806, 0.11793, 0.18572, + 0.44693, 0.23464, 1.57470, 0.16162, 0.06245, + 0.03941, 0.11778, 0.18448, + 0.44663, 0.23355, 1.54849, 0.16070, 0.06319, + 0.04063, 0.11761, 0.18327 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.46855, 0.27008, 1.44890, 0.13408, 0.00293, + 0.00006, 0.07593, 0.16380, + 0.47443, 0.26863, 1.48757, 0.13487, 0.01042, + 0.00007, 0.07986, 0.16363, + 0.47842, 0.26686, 1.49868, 0.13513, 0.01638, + 0.00005, 0.08277, 0.16292, + 0.48086, 0.26495, 1.49133, 0.13501, 0.02112, + 0.00005, 0.08482, 0.16181, + 0.48248, 0.26279, 1.47410, 0.13452, 0.02499, + 0.00094, 0.08631, 0.16056, + 0.48341, 0.26053, 1.45070, 0.13376, 0.02817, + 0.00452, 0.08737, 0.15927, + 0.48367, 0.25835, 1.42331, 0.13293, 0.03079, + 0.00814, 0.08809, 0.15775 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.48357, 0.25607, 1.39353, 0.13195, 0.03303, + 0.01115, 0.08857, 0.15613, + 0.48306, 0.25385, 1.36263, 0.13090, 0.03488, + 0.01379, 0.08883, 0.15446, + 0.48232, 0.25162, 1.33144, 0.12977, 0.03644, + 0.01606, 0.08893, 0.15282, + 0.48141, 0.24938, 1.30051, 0.12861, 0.03778, + 0.01802, 0.08889, 0.15122, + 0.48023, 0.24724, 1.26997, 0.12751, 0.03888, + 0.01976, 0.08875, 0.14957, + 0.47894, 0.24506, 1.23963, 0.12620, 0.03980, + 0.02121, 0.08850, 0.14799, + 0.47754, 0.24298, 1.21047, 0.12496, 0.04061, + 0.02250, 0.08820, 0.14636 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.47599, 0.24101, 1.18233, 0.12381, 0.04132, + 0.02364, 0.08785, 0.14465, + 0.47437, 0.23898, 1.15475, 0.12258, 0.04186, + 0.02464, 0.08740, 0.14308, + 0.47278, 0.23702, 1.12862, 0.12138, 0.04233, + 0.02556, 0.08694, 0.14158, + 0.47108, 0.23504, 1.10297, 0.12014, 0.04272, + 0.02632, 0.08645, 0.14004, + 0.46939, 0.23314, 1.07864, 0.11894, 0.04306, + 0.02702, 0.08597, 0.13856 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.51782, 0.28603, 1.27311, 0.11335, 0.00229, + 0.00008, 0.06475, 0.14101, + 0.51973, 0.28171, 1.27403, 0.11278, 0.00821, + 0.00009, 0.06714, 0.13919, + 0.52014, 0.27748, 1.25719, 0.11192, 0.01270, + 0.00007, 0.06867, 0.13730, + 0.51924, 0.27341, 1.22963, 0.11081, 0.01623, + 0.00008, 0.06961, 0.13513, + 0.51780, 0.26939, 1.19756, 0.10954, 0.01901, + 0.00068, 0.07017, 0.13301, + 0.51585, 0.26555, 1.16335, 0.10821, 0.02126, + 0.00333, 0.07043, 0.13086, + 0.51360, 0.26177, 1.12824, 0.10675, 0.02310, + 0.00596, 0.07046, 0.12878 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.51107, 0.25809, 1.09321, 0.10533, 0.02460, + 0.00814, 0.07033, 0.12670, + 0.50836, 0.25458, 1.05890, 0.10383, 0.02584, + 0.01001, 0.07008, 0.12463, + 0.50545, 0.25123, 1.02570, 0.10236, 0.02684, + 0.01159, 0.06973, 0.12264, + 0.50244, 0.24800, 0.99387, 0.10097, 0.02764, + 0.01294, 0.06930, 0.12074, + 0.49945, 0.24483, 0.96340, 0.09955, 0.02832, + 0.01414, 0.06879, 0.11891, + 0.49631, 0.24181, 0.93397, 0.09815, 0.02891, + 0.01512, 0.06826, 0.11698, + 0.49321, 0.23890, 0.90616, 0.09680, 0.02938, + 0.01598, 0.06771, 0.11516 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.49013, 0.23605, 0.87977, 0.09550, 0.02972, + 0.01672, 0.06712, 0.11346, + 0.48699, 0.23331, 0.85445, 0.09419, 0.02999, + 0.01734, 0.06651, 0.11175, + 0.48394, 0.23070, 0.83069, 0.09292, 0.03021, + 0.01791, 0.06592, 0.11011, + 0.48085, 0.22812, 0.80782, 0.09164, 0.03040, + 0.01836, 0.06529, 0.10857, + 0.47785, 0.22566, 0.78629, 0.09042, 0.03056, + 0.01878, 0.06468, 0.10706 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.56490, 0.29470, 1.09500, 0.09193, 0.00179, + 0.00011, 0.05307, 0.11654, + 0.56112, 0.28724, 1.06534, 0.09045, 0.00622, + 0.00007, 0.05418, 0.11366, + 0.55647, 0.28034, 1.02751, 0.08885, 0.00957, + 0.00010, 0.05475, 0.11078, + 0.55144, 0.27375, 0.98597, 0.08702, 0.01204, + 0.00007, 0.05484, 0.10816, + 0.54606, 0.26776, 0.94460, 0.08532, 0.01392, + 0.00055, 0.05473, 0.10556, + 0.54065, 0.26208, 0.90446, 0.08356, 0.01546, + 0.00240, 0.05444, 0.10307, + 0.53504, 0.25682, 0.86598, 0.08189, 0.01666, + 0.00428, 0.05400, 0.10069 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.52949, 0.25185, 0.82946, 0.08024, 0.01761, + 0.00575, 0.05351, 0.09832, + 0.52399, 0.24709, 0.79505, 0.07868, 0.01837, + 0.00695, 0.05293, 0.09606, + 0.51857, 0.24257, 0.76276, 0.07712, 0.01895, + 0.00800, 0.05229, 0.09400, + 0.51325, 0.23831, 0.73257, 0.07559, 0.01939, + 0.00890, 0.05164, 0.09205, + 0.50796, 0.23431, 0.70432, 0.07421, 0.01974, + 0.00962, 0.05099, 0.09010, + 0.50279, 0.23042, 0.67772, 0.07280, 0.02004, + 0.01026, 0.05033, 0.08820, + 0.49779, 0.22671, 0.65298, 0.07142, 0.02028, + 0.01080, 0.04967, 0.08645 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.49295, 0.22315, 0.62985, 0.07006, 0.02046, + 0.01125, 0.04901, 0.08484, + 0.48805, 0.21978, 0.60792, 0.06885, 0.02056, + 0.01164, 0.04835, 0.08319, + 0.48334, 0.21658, 0.58752, 0.06770, 0.02063, + 0.01199, 0.04772, 0.08161, + 0.47876, 0.21346, 0.56824, 0.06648, 0.02064, + 0.01224, 0.04708, 0.08018, + 0.47433, 0.21049, 0.55024, 0.06534, 0.02064, + 0.01247, 0.04646, 0.07879 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.59747, 0.29399, 0.94589, 0.07433, 0.00146, + 0.00016, 0.04332, 0.09587, + 0.58780, 0.28389, 0.89751, 0.07248, 0.00480, + 0.00017, 0.04370, 0.09238, + 0.57829, 0.27467, 0.84810, 0.07043, 0.00725, + 0.00018, 0.04363, 0.08934, + 0.56881, 0.26635, 0.80009, 0.06856, 0.00901, + 0.00012, 0.04332, 0.08634, + 0.55959, 0.25886, 0.75528, 0.06672, 0.01039, + 0.00045, 0.04284, 0.08354, + 0.55072, 0.25188, 0.71393, 0.06493, 0.01140, + 0.00180, 0.04224, 0.08105, + 0.54218, 0.24539, 0.67574, 0.06321, 0.01221, + 0.00312, 0.04159, 0.07866 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.53392, 0.23934, 0.64056, 0.06150, 0.01282, + 0.00411, 0.04095, 0.07642, + 0.52589, 0.23374, 0.60823, 0.05993, 0.01326, + 0.00497, 0.04025, 0.07428, + 0.51815, 0.22847, 0.57857, 0.05847, 0.01359, + 0.00568, 0.03958, 0.07225, + 0.51073, 0.22351, 0.55131, 0.05706, 0.01384, + 0.00626, 0.03893, 0.07033, + 0.50357, 0.21886, 0.52613, 0.05569, 0.01408, + 0.00680, 0.03823, 0.06853, + 0.49661, 0.21441, 0.50286, 0.05442, 0.01418, + 0.00719, 0.03755, 0.06685, + 0.48991, 0.21021, 0.48150, 0.05321, 0.01425, + 0.00755, 0.03688, 0.06528 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.48343, 0.20624, 0.46179, 0.05203, 0.01430, + 0.00789, 0.03621, 0.06382, + 0.47717, 0.20242, 0.44326, 0.05092, 0.01435, + 0.00808, 0.03557, 0.06235, + 0.47121, 0.19881, 0.42615, 0.04986, 0.01437, + 0.00824, 0.03497, 0.06096, + 0.46537, 0.19535, 0.41013, 0.04877, 0.01435, + 0.00841, 0.03435, 0.05972, + 0.45979, 0.19206, 0.39528, 0.04776, 0.01431, + 0.00855, 0.03377, 0.05852 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.61684, 0.28669, 0.81692, 0.06006, 0.00106, + 0.00003, 0.03516, 0.07820, + 0.60177, 0.27418, 0.75773, 0.05788, 0.00362, + 0.00004, 0.03503, 0.07479, + 0.58746, 0.26333, 0.70292, 0.05585, 0.00547, + 0.00001, 0.03464, 0.07162, + 0.57397, 0.25358, 0.65280, 0.05377, 0.00679, + 0.00000, 0.03411, 0.06877, + 0.56124, 0.24488, 0.60795, 0.05201, 0.00779, + 0.00028, 0.03346, 0.06608, + 0.54939, 0.23695, 0.56790, 0.05025, 0.00852, + 0.00125, 0.03284, 0.06361, + 0.53823, 0.22958, 0.53185, 0.04861, 0.00902, + 0.00220, 0.03215, 0.06139 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.52747, 0.22291, 0.49937, 0.04709, 0.00940, + 0.00306, 0.03152, 0.05925, + 0.51727, 0.21670, 0.47006, 0.04563, 0.00972, + 0.00366, 0.03080, 0.05734, + 0.50754, 0.21095, 0.44355, 0.04430, 0.00993, + 0.00413, 0.03007, 0.05557, + 0.49831, 0.20559, 0.41957, 0.04306, 0.01006, + 0.00455, 0.02938, 0.05388, + 0.48967, 0.20039, 0.39788, 0.04180, 0.01018, + 0.00489, 0.02873, 0.05236, + 0.48125, 0.19561, 0.37794, 0.04062, 0.01027, + 0.00517, 0.02812, 0.05085, + 0.47323, 0.19113, 0.35974, 0.03953, 0.01030, + 0.00539, 0.02754, 0.04945 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.46557, 0.18690, 0.34305, 0.03853, 0.01028, + 0.00556, 0.02699, 0.04814, + 0.45807, 0.18299, 0.32767, 0.03761, 0.01030, + 0.00568, 0.02640, 0.04681, + 0.45095, 0.17932, 0.31357, 0.03675, 0.01030, + 0.00578, 0.02584, 0.04555, + 0.44412, 0.17570, 0.30049, 0.03588, 0.01022, + 0.00589, 0.02531, 0.04449, + 0.43762, 0.17228, 0.28842, 0.03506, 0.01015, + 0.00598, 0.02481, 0.04346 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.62493, 0.27424, 0.70391, 0.04815, 0.00086, + 0.00007, 0.02831, 0.06336, + 0.60442, 0.26023, 0.63960, 0.04609, 0.00276, + 0.00001, 0.02792, 0.06000, + 0.58584, 0.24813, 0.58320, 0.04416, 0.00418, + 0.00005, 0.02740, 0.05686, + 0.56881, 0.23734, 0.53394, 0.04218, 0.00514, + 0.00006, 0.02673, 0.05435, + 0.55311, 0.22790, 0.49127, 0.04052, 0.00580, + 0.00033, 0.02607, 0.05187, + 0.53859, 0.21934, 0.45407, 0.03898, 0.00630, + 0.00095, 0.02541, 0.04963, + 0.52511, 0.21153, 0.42092, 0.03748, 0.00669, + 0.00165, 0.02467, 0.04767 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.51241, 0.20439, 0.39167, 0.03610, 0.00689, + 0.00218, 0.02400, 0.04590, + 0.50034, 0.19793, 0.36585, 0.03485, 0.00708, + 0.00261, 0.02333, 0.04420, + 0.48901, 0.19196, 0.34281, 0.03370, 0.00725, + 0.00296, 0.02272, 0.04254, + 0.47838, 0.18640, 0.32214, 0.03262, 0.00734, + 0.00324, 0.02216, 0.04100, + 0.46828, 0.18124, 0.30354, 0.03156, 0.00735, + 0.00344, 0.02156, 0.03975, + 0.45868, 0.17641, 0.28666, 0.03059, 0.00736, + 0.00362, 0.02101, 0.03843, + 0.44965, 0.17184, 0.27142, 0.02968, 0.00736, + 0.00376, 0.02049, 0.03724 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.44110, 0.16748, 0.25758, 0.02882, 0.00733, + 0.00387, 0.01999, 0.03619, + 0.43284, 0.16344, 0.24484, 0.02805, 0.00729, + 0.00395, 0.01948, 0.03513, + 0.42502, 0.15967, 0.23322, 0.02734, 0.00726, + 0.00401, 0.01900, 0.03412, + 0.41748, 0.15610, 0.22260, 0.02662, 0.00719, + 0.00402, 0.01857, 0.03318, + 0.41034, 0.15273, 0.21285, 0.02594, 0.00713, + 0.00405, 0.01815, 0.03230 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.62282, 0.25822, 0.60417, 0.03842, 0.00065, + 0.00010, 0.02265, 0.05087, + 0.59772, 0.24309, 0.53850, 0.03643, 0.00208, + 0.00004, 0.02216, 0.04781, + 0.57554, 0.23003, 0.48351, 0.03453, 0.00312, + 0.00002, 0.02153, 0.04517, + 0.55511, 0.21906, 0.43649, 0.03291, 0.00381, + 0.00009, 0.02082, 0.04276, + 0.53694, 0.20907, 0.39690, 0.03138, 0.00432, + 0.00023, 0.02017, 0.04063, + 0.52028, 0.20022, 0.36291, 0.02997, 0.00471, + 0.00071, 0.01950, 0.03866, + 0.50482, 0.19230, 0.33354, 0.02867, 0.00495, + 0.00125, 0.01890, 0.03694 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.49040, 0.18515, 0.30784, 0.02758, 0.00508, + 0.00162, 0.01830, 0.03529, + 0.47704, 0.17853, 0.28540, 0.02653, 0.00519, + 0.00183, 0.01776, 0.03377, + 0.46461, 0.17241, 0.26566, 0.02552, 0.00526, + 0.00208, 0.01721, 0.03245, + 0.45293, 0.16683, 0.24811, 0.02460, 0.00529, + 0.00237, 0.01665, 0.03125, + 0.44180, 0.16179, 0.23236, 0.02385, 0.00534, + 0.00256, 0.01616, 0.02996, + 0.43150, 0.15688, 0.21825, 0.02294, 0.00533, + 0.00263, 0.01563, 0.02903, + 0.42178, 0.15235, 0.20559, 0.02214, 0.00530, + 0.00265, 0.01515, 0.02812 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.41254, 0.14818, 0.19418, 0.02148, 0.00527, + 0.00264, 0.01472, 0.02717, + 0.40374, 0.14422, 0.18386, 0.02083, 0.00518, + 0.00277, 0.01432, 0.02635, + 0.39543, 0.14052, 0.17451, 0.02022, 0.00509, + 0.00289, 0.01395, 0.02558, + 0.38737, 0.13710, 0.16599, 0.01970, 0.00506, + 0.00287, 0.01359, 0.02475, + 0.37979, 0.13387, 0.15816, 0.01919, 0.00502, + 0.00285, 0.01326, 0.02398 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.61202, 0.23977, 0.51600, 0.03039, 0.00047, + 0.00012, 0.01805, 0.04048, + 0.58296, 0.22404, 0.45166, 0.02857, 0.00161, + 0.00001, 0.01743, 0.03778, + 0.55760, 0.21064, 0.39929, 0.02685, 0.00234, + 0.00010, 0.01688, 0.03543, + 0.53501, 0.19902, 0.35603, 0.02538, 0.00300, + 0.00013, 0.01623, 0.03325, + 0.51462, 0.18910, 0.32010, 0.02403, 0.00336, + 0.00011, 0.01558, 0.03144, + 0.49600, 0.18049, 0.28972, 0.02299, 0.00359, + 0.00056, 0.01493, 0.02972, + 0.47914, 0.17257, 0.26391, 0.02187, 0.00375, + 0.00095, 0.01437, 0.02833 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.46353, 0.16552, 0.24174, 0.02087, 0.00378, + 0.00115, 0.01389, 0.02703, + 0.44924, 0.15894, 0.22254, 0.02000, 0.00383, + 0.00140, 0.01340, 0.02578, + 0.43594, 0.15295, 0.20564, 0.01916, 0.00386, + 0.00158, 0.01293, 0.02468, + 0.42346, 0.14757, 0.19076, 0.01839, 0.00385, + 0.00168, 0.01250, 0.02369, + 0.41183, 0.14255, 0.17781, 0.01777, 0.00386, + 0.00175, 0.01207, 0.02270, + 0.40088, 0.13795, 0.16626, 0.01715, 0.00386, + 0.00184, 0.01170, 0.02171, + 0.39070, 0.13364, 0.15594, 0.01653, 0.00381, + 0.00190, 0.01132, 0.02092 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.38118, 0.12955, 0.14666, 0.01588, 0.00371, + 0.00192, 0.01093, 0.02036, + 0.37222, 0.12575, 0.13833, 0.01529, 0.00370, + 0.00197, 0.01060, 0.01961, + 0.36378, 0.12222, 0.13080, 0.01475, 0.00370, + 0.00201, 0.01031, 0.01889, + 0.35546, 0.11895, 0.12395, 0.01435, 0.00366, + 0.00199, 0.00999, 0.01831, + 0.34767, 0.11586, 0.11770, 0.01395, 0.00360, + 0.00197, 0.00970, 0.01776 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.59403, 0.21962, 0.43807, 0.02368, 0.00033, + 0.00005, 0.01427, 0.03207, + 0.56162, 0.20377, 0.37693, 0.02216, 0.00137, + 0.00001, 0.01369, 0.02943, + 0.53335, 0.19069, 0.32854, 0.02082, 0.00185, + 0.00014, 0.01313, 0.02740, + 0.50883, 0.17922, 0.28928, 0.01950, 0.00222, + 0.00019, 0.01246, 0.02579, + 0.48682, 0.16954, 0.25737, 0.01849, 0.00247, + 0.00016, 0.01189, 0.02416, + 0.46723, 0.16089, 0.23068, 0.01747, 0.00264, + 0.00044, 0.01138, 0.02281, + 0.44929, 0.15329, 0.20830, 0.01661, 0.00275, + 0.00078, 0.01093, 0.02154 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.43307, 0.14632, 0.18953, 0.01579, 0.00283, + 0.00095, 0.01048, 0.02044, + 0.41814, 0.14002, 0.17326, 0.01505, 0.00283, + 0.00105, 0.01001, 0.01950, + 0.40435, 0.13429, 0.15918, 0.01437, 0.00285, + 0.00114, 0.00965, 0.01853, + 0.39157, 0.12907, 0.14698, 0.01374, 0.00288, + 0.00123, 0.00936, 0.01761, + 0.37961, 0.12442, 0.13626, 0.01315, 0.00284, + 0.00128, 0.00898, 0.01691, + 0.36847, 0.12003, 0.12671, 0.01262, 0.00284, + 0.00129, 0.00867, 0.01618, + 0.35810, 0.11594, 0.11830, 0.01219, 0.00280, + 0.00132, 0.00835, 0.01551 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.34840, 0.11211, 0.11086, 0.01185, 0.00274, + 0.00137, 0.00802, 0.01490, + 0.33920, 0.10862, 0.10413, 0.01135, 0.00268, + 0.00141, 0.00775, 0.01444, + 0.33061, 0.10537, 0.09807, 0.01086, 0.00262, + 0.00144, 0.00750, 0.01402, + 0.32257, 0.10224, 0.09259, 0.01040, 0.00258, + 0.00143, 0.00729, 0.01355, + 0.31495, 0.09932, 0.08763, 0.01001, 0.00254, + 0.00143, 0.00709, 0.01311 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.56961, 0.19894, 0.36960, 0.01832, 0.00034, + 0.00010, 0.01105, 0.02513, + 0.53457, 0.18336, 0.31264, 0.01703, 0.00099, + 0.00010, 0.01058, 0.02295, + 0.50460, 0.17043, 0.26862, 0.01584, 0.00140, + 0.00006, 0.01007, 0.02130, + 0.47846, 0.15956, 0.23397, 0.01492, 0.00170, + 0.00007, 0.00952, 0.01970, + 0.45566, 0.15004, 0.20585, 0.01388, 0.00187, + 0.00003, 0.00906, 0.01851, + 0.43533, 0.14173, 0.18290, 0.01305, 0.00197, + 0.00034, 0.00861, 0.01744, + 0.41698, 0.13437, 0.16403, 0.01234, 0.00203, + 0.00056, 0.00827, 0.01638 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.40023, 0.12788, 0.14795, 0.01168, 0.00209, + 0.00071, 0.00787, 0.01547, + 0.38493, 0.12200, 0.13442, 0.01111, 0.00210, + 0.00076, 0.00755, 0.01465, + 0.37089, 0.11666, 0.12279, 0.01062, 0.00209, + 0.00081, 0.00723, 0.01388, + 0.35799, 0.11180, 0.11264, 0.01017, 0.00208, + 0.00088, 0.00692, 0.01317, + 0.34616, 0.10730, 0.10386, 0.00965, 0.00208, + 0.00088, 0.00666, 0.01255, + 0.33501, 0.10319, 0.09622, 0.00912, 0.00202, + 0.00095, 0.00637, 0.01218, + 0.32466, 0.09942, 0.08949, 0.00873, 0.00197, + 0.00099, 0.00612, 0.01175 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.31502, 0.09594, 0.08351, 0.00848, 0.00195, + 0.00099, 0.00591, 0.01122, + 0.30608, 0.09268, 0.07817, 0.00806, 0.00193, + 0.00102, 0.00569, 0.01079, + 0.29773, 0.08966, 0.07339, 0.00767, 0.00192, + 0.00104, 0.00549, 0.01039, + 0.28963, 0.08683, 0.06908, 0.00750, 0.00188, + 0.00102, 0.00533, 0.00996, + 0.28205, 0.08418, 0.06517, 0.00730, 0.00184, + 0.00100, 0.00516, 0.00958 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.53978, 0.17880, 0.30992, 0.01437, 0.00017, + -0.00010, 0.00845, 0.01935, + 0.50316, 0.16353, 0.25795, 0.01317, 0.00065, + -0.00015, 0.00798, 0.01774, + 0.47192, 0.15125, 0.21878, 0.01232, 0.00102, + -0.00009, 0.00759, 0.01608, + 0.44536, 0.14057, 0.18824, 0.01131, 0.00119, + -0.00005, 0.00717, 0.01500, + 0.42202, 0.13161, 0.16411, 0.01052, 0.00128, + -0.00007, 0.00676, 0.01404, + 0.40125, 0.12388, 0.14463, 0.00995, 0.00143, + 0.00009, 0.00638, 0.01303, + 0.38284, 0.11695, 0.12866, 0.00923, 0.00144, + 0.00030, 0.00609, 0.01233 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.36623, 0.11087, 0.11540, 0.00861, 0.00143, + 0.00040, 0.00580, 0.01161, + 0.35103, 0.10542, 0.10413, 0.00820, 0.00144, + 0.00047, 0.00550, 0.01091, + 0.33702, 0.10051, 0.09454, 0.00780, 0.00146, + 0.00052, 0.00524, 0.01037, + 0.32418, 0.09604, 0.08634, 0.00738, 0.00145, + 0.00057, 0.00501, 0.00991, + 0.31257, 0.09188, 0.07921, 0.00698, 0.00143, + 0.00062, 0.00484, 0.00941, + 0.30175, 0.08813, 0.07308, 0.00672, 0.00145, + 0.00064, 0.00464, 0.00888, + 0.29173, 0.08468, 0.06770, 0.00645, 0.00144, + 0.00067, 0.00446, 0.00844 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28242, 0.08147, 0.06294, 0.00617, 0.00139, + 0.00070, 0.00428, 0.00811, + 0.27364, 0.07851, 0.05868, 0.00595, 0.00135, + 0.00072, 0.00412, 0.00779, + 0.26545, 0.07578, 0.05488, 0.00574, 0.00132, + 0.00072, 0.00396, 0.00749, + 0.25769, 0.07322, 0.05148, 0.00551, 0.00126, + 0.00069, 0.00380, 0.00719, + 0.25043, 0.07085, 0.04844, 0.00531, 0.00123, + 0.00067, 0.00365, 0.00692 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.50633, 0.15814, 0.25712, 0.01068, 0.00027, + 0.00016, 0.00663, 0.01481, + 0.46856, 0.14380, 0.21080, 0.00977, 0.00061, + 0.00012, 0.00618, 0.01345, + 0.43679, 0.13228, 0.17632, 0.00909, 0.00079, + 0.00010, 0.00581, 0.01221, + 0.40990, 0.12231, 0.15023, 0.00827, 0.00097, + 0.00011, 0.00540, 0.01136, + 0.38641, 0.11407, 0.12987, 0.00774, 0.00109, + 0.00013, 0.00512, 0.01040, + 0.36609, 0.10686, 0.11352, 0.00714, 0.00110, + 0.00019, 0.00484, 0.00967, + 0.34786, 0.10050, 0.10022, 0.00654, 0.00113, + 0.00028, 0.00459, 0.00923 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33134, 0.09485, 0.08923, 0.00621, 0.00108, + 0.00037, 0.00434, 0.00873, + 0.31632, 0.08987, 0.07999, 0.00589, 0.00107, + 0.00044, 0.00410, 0.00821, + 0.30284, 0.08541, 0.07224, 0.00556, 0.00106, + 0.00048, 0.00389, 0.00768, + 0.29059, 0.08137, 0.06567, 0.00531, 0.00104, + 0.00046, 0.00371, 0.00716, + 0.27903, 0.07776, 0.05998, 0.00517, 0.00104, + 0.00041, 0.00348, 0.00677, + 0.26866, 0.07441, 0.05506, 0.00490, 0.00103, + 0.00045, 0.00334, 0.00637, + 0.25904, 0.07132, 0.05080, 0.00466, 0.00102, + 0.00049, 0.00321, 0.00606 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.25004, 0.06845, 0.04710, 0.00448, 0.00099, + 0.00051, 0.00309, 0.00584, + 0.24166, 0.06585, 0.04375, 0.00435, 0.00097, + 0.00051, 0.00298, 0.00552, + 0.23389, 0.06344, 0.04076, 0.00421, 0.00095, + 0.00049, 0.00286, 0.00524, + 0.22660, 0.06110, 0.03814, 0.00393, 0.00089, + 0.00048, 0.00271, 0.00514, + 0.21978, 0.05895, 0.03579, 0.00372, 0.00086, + 0.00047, 0.00258, 0.00502 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.46977, 0.13906, 0.21210, 0.00829, 0.00014, + -0.00005, 0.00492, 0.01109, + 0.43185, 0.12555, 0.17131, 0.00744, 0.00035, + 0.00002, 0.00454, 0.01018, + 0.40040, 0.11462, 0.14174, 0.00675, 0.00054, + -0.00001, 0.00428, 0.00920, + 0.37355, 0.10566, 0.11944, 0.00623, 0.00063, + -0.00004, 0.00395, 0.00849, + 0.35048, 0.09799, 0.10216, 0.00590, 0.00073, + 0.00001, 0.00370, 0.00773, + 0.33060, 0.09144, 0.08863, 0.00532, 0.00073, + 0.00011, 0.00349, 0.00727, + 0.31298, 0.08564, 0.07769, 0.00488, 0.00074, + 0.00019, 0.00332, 0.00679 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.29684, 0.08058, 0.06870, 0.00470, 0.00072, + 0.00024, 0.00308, 0.00636, + 0.28240, 0.07612, 0.06124, 0.00450, 0.00071, + 0.00024, 0.00291, 0.00590, + 0.26947, 0.07210, 0.05501, 0.00424, 0.00073, + 0.00027, 0.00276, 0.00549, + 0.25780, 0.06847, 0.04974, 0.00397, 0.00074, + 0.00032, 0.00259, 0.00519, + 0.24723, 0.06518, 0.04523, 0.00369, 0.00071, + 0.00031, 0.00241, 0.00493, + 0.23707, 0.06218, 0.04137, 0.00361, 0.00068, + 0.00032, 0.00231, 0.00471, + 0.22790, 0.05945, 0.03801, 0.00346, 0.00065, + 0.00029, 0.00222, 0.00444 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.21965, 0.05695, 0.03508, 0.00323, 0.00063, + 0.00023, 0.00213, 0.00410, + 0.21190, 0.05463, 0.03249, 0.00304, 0.00064, + 0.00028, 0.00204, 0.00391, + 0.20468, 0.05249, 0.03021, 0.00287, 0.00064, + 0.00034, 0.00196, 0.00376, + 0.19775, 0.05048, 0.02819, 0.00280, 0.00061, + 0.00032, 0.00189, 0.00364, + 0.19131, 0.04862, 0.02639, 0.00272, 0.00058, + 0.00031, 0.00182, 0.00352 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.43135, 0.12053, 0.17320, 0.00604, 0.00016, + 0.00007, 0.00369, 0.00836, + 0.39409, 0.10813, 0.13788, 0.00516, 0.00032, + 0.00005, 0.00340, 0.00765, + 0.36263, 0.09841, 0.11273, 0.00505, 0.00045, + 0.00005, 0.00323, 0.00675, + 0.33681, 0.09007, 0.09393, 0.00441, 0.00053, + 0.00004, 0.00300, 0.00624, + 0.31459, 0.08317, 0.07961, 0.00408, 0.00056, + 0.00004, 0.00274, 0.00571, + 0.29519, 0.07732, 0.06846, 0.00383, 0.00055, + 0.00007, 0.00250, 0.00531, + 0.27827, 0.07218, 0.05963, 0.00359, 0.00053, + 0.00014, 0.00240, 0.00486 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.26308, 0.06763, 0.05237, 0.00345, 0.00053, + 0.00016, 0.00228, 0.00450, + 0.24946, 0.06368, 0.04646, 0.00325, 0.00050, + 0.00018, 0.00210, 0.00421, + 0.23736, 0.06011, 0.04151, 0.00301, 0.00049, + 0.00018, 0.00196, 0.00395, + 0.22645, 0.05686, 0.03732, 0.00280, 0.00049, + 0.00019, 0.00188, 0.00371, + 0.21635, 0.05399, 0.03382, 0.00269, 0.00051, + 0.00025, 0.00183, 0.00344, + 0.20697, 0.05136, 0.03081, 0.00257, 0.00051, + 0.00026, 0.00171, 0.00331, + 0.19841, 0.04900, 0.02820, 0.00246, 0.00050, + 0.00025, 0.00161, 0.00315 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.19057, 0.04686, 0.02594, 0.00236, 0.00049, + 0.00022, 0.00155, 0.00296, + 0.18341, 0.04485, 0.02397, 0.00219, 0.00043, + 0.00020, 0.00143, 0.00279, + 0.17680, 0.04300, 0.02223, 0.00204, 0.00038, + 0.00018, 0.00133, 0.00264, + 0.17049, 0.04126, 0.02069, 0.00199, 0.00038, + 0.00020, 0.00130, 0.00255, + 0.16463, 0.03967, 0.01932, 0.00195, 0.00038, + 0.00022, 0.00126, 0.00245 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.39208, 0.10357, 0.14022, 0.00431, 0.00014, + 0.00002, 0.00274, 0.00615, + 0.35560, 0.09237, 0.11010, 0.00390, 0.00022, + 0.00000, 0.00246, 0.00557, + 0.32564, 0.08340, 0.08892, 0.00363, 0.00030, + 0.00000, 0.00224, 0.00499, + 0.30068, 0.07609, 0.07332, 0.00333, 0.00031, + 0.00002, 0.00208, 0.00454, + 0.27968, 0.06999, 0.06161, 0.00296, 0.00033, + 0.00005, 0.00197, 0.00416, + 0.26140, 0.06479, 0.05263, 0.00283, 0.00033, + 0.00007, 0.00182, 0.00376, + 0.24527, 0.06029, 0.04548, 0.00267, 0.00030, + 0.00010, 0.00165, 0.00346 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.23103, 0.05631, 0.03971, 0.00253, 0.00032, + 0.00012, 0.00152, 0.00323, + 0.21848, 0.05278, 0.03505, 0.00231, 0.00035, + 0.00013, 0.00142, 0.00303, + 0.20717, 0.04969, 0.03115, 0.00216, 0.00034, + 0.00013, 0.00135, 0.00280, + 0.19693, 0.04694, 0.02789, 0.00205, 0.00032, + 0.00011, 0.00128, 0.00256, + 0.18779, 0.04439, 0.02518, 0.00183, 0.00028, + 0.00008, 0.00117, 0.00239, + 0.17928, 0.04210, 0.02282, 0.00179, 0.00033, + 0.00011, 0.00115, 0.00227, + 0.17145, 0.04003, 0.02081, 0.00173, 0.00033, + 0.00013, 0.00110, 0.00216 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.16422, 0.03817, 0.01909, 0.00163, 0.00027, + 0.00013, 0.00100, 0.00206, + 0.15752, 0.03650, 0.01758, 0.00161, 0.00026, + 0.00013, 0.00096, 0.00194, + 0.15137, 0.03495, 0.01626, 0.00159, 0.00026, + 0.00013, 0.00093, 0.00183, + 0.14576, 0.03346, 0.01510, 0.00152, 0.00024, + 0.00012, 0.00088, 0.00172, + 0.14057, 0.03210, 0.01406, 0.00144, 0.00023, + 0.00010, 0.00084, 0.00164 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.35228, 0.08785, 0.11228, 0.00317, 0.00010, + 0.00005, 0.00198, 0.00462, + 0.31729, 0.07783, 0.08682, 0.00273, 0.00014, + 0.00003, 0.00183, 0.00410, + 0.28892, 0.06989, 0.06915, 0.00245, 0.00024, + 0.00000, 0.00162, 0.00366, + 0.26535, 0.06333, 0.05647, 0.00230, 0.00024, + 0.00001, 0.00150, 0.00326, + 0.24544, 0.05796, 0.04697, 0.00215, 0.00024, + -0.00001, 0.00142, 0.00289, + 0.22861, 0.05340, 0.03978, 0.00189, 0.00026, + 0.00005, 0.00130, 0.00261, + 0.21374, 0.04947, 0.03413, 0.00171, 0.00029, + 0.00007, 0.00119, 0.00246 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.20053, 0.04608, 0.02961, 0.00167, 0.00026, + 0.00008, 0.00109, 0.00222, + 0.18865, 0.04304, 0.02596, 0.00166, 0.00024, + 0.00009, 0.00101, 0.00206, + 0.17821, 0.04035, 0.02296, 0.00155, 0.00025, + 0.00008, 0.00094, 0.00192, + 0.16899, 0.03798, 0.02047, 0.00141, 0.00025, + 0.00006, 0.00087, 0.00175, + 0.16055, 0.03585, 0.01837, 0.00138, 0.00021, + 0.00007, 0.00085, 0.00158, + 0.15286, 0.03394, 0.01661, 0.00126, 0.00023, + 0.00011, 0.00081, 0.00153, + 0.14585, 0.03221, 0.01510, 0.00119, 0.00022, + 0.00012, 0.00076, 0.00146 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.13941, 0.03062, 0.01380, 0.00116, 0.00019, + 0.00009, 0.00072, 0.00136, + 0.13367, 0.02918, 0.01266, 0.00100, 0.00020, + 0.00010, 0.00069, 0.00129, + 0.12839, 0.02786, 0.01167, 0.00085, 0.00020, + 0.00011, 0.00067, 0.00124, + 0.12328, 0.02664, 0.01082, 0.00082, 0.00021, + 0.00010, 0.00063, 0.00118, + 0.11853, 0.02551, 0.01006, 0.00080, 0.00021, + 0.00010, 0.00060, 0.00112 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.31328, 0.07380, 0.08902, 0.00222, 0.00001, + -0.00004, 0.00136, 0.00333, + 0.28009, 0.06493, 0.06780, 0.00199, 0.00006, + -0.00007, 0.00121, 0.00296, + 0.25343, 0.05798, 0.05334, 0.00181, 0.00010, + -0.00004, 0.00114, 0.00256, + 0.23165, 0.05233, 0.04318, 0.00168, 0.00015, + -0.00006, 0.00101, 0.00226, + 0.21335, 0.04769, 0.03564, 0.00157, 0.00017, + -0.00002, 0.00091, 0.00205, + 0.19763, 0.04374, 0.02992, 0.00151, 0.00018, + 0.00001, 0.00089, 0.00178, + 0.18401, 0.04036, 0.02548, 0.00136, 0.00019, + 0.00000, 0.00083, 0.00165 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.17205, 0.03744, 0.02201, 0.00128, 0.00018, + -0.00001, 0.00073, 0.00148, + 0.16153, 0.03485, 0.01918, 0.00124, 0.00019, + 0.00001, 0.00071, 0.00134, + 0.15214, 0.03258, 0.01688, 0.00114, 0.00018, + 0.00003, 0.00068, 0.00128, + 0.14374, 0.03057, 0.01498, 0.00101, 0.00016, + 0.00003, 0.00061, 0.00124, + 0.13629, 0.02878, 0.01338, 0.00091, 0.00016, + 0.00002, 0.00057, 0.00111, + 0.12938, 0.02719, 0.01206, 0.00084, 0.00014, + 0.00004, 0.00052, 0.00105, + 0.12311, 0.02573, 0.01093, 0.00078, 0.00013, + 0.00006, 0.00049, 0.00102 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.11742, 0.02438, 0.00996, 0.00072, 0.00012, + 0.00006, 0.00048, 0.00101, + 0.11220, 0.02318, 0.00912, 0.00070, 0.00012, + 0.00006, 0.00046, 0.00093, + 0.10742, 0.02209, 0.00839, 0.00067, 0.00012, + 0.00006, 0.00043, 0.00085, + 0.10297, 0.02108, 0.00775, 0.00059, 0.00012, + 0.00006, 0.00042, 0.00083, + 0.09888, 0.02015, 0.00718, 0.00052, 0.00012, + 0.00007, 0.00041, 0.00080 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.27525, 0.06108, 0.06946, 0.00146, -0.00003, + -0.00006, 0.00097, 0.00235, + 0.24439, 0.05344, 0.05230, 0.00138, 0.00000, + 0.00000, 0.00084, 0.00209, + 0.21967, 0.04743, 0.04072, 0.00141, 0.00008, + -0.00003, 0.00080, 0.00179, + 0.20002, 0.04256, 0.03254, 0.00112, 0.00008, + -0.00001, 0.00071, 0.00164, + 0.18305, 0.03861, 0.02665, 0.00118, 0.00008, + -0.00002, 0.00063, 0.00139, + 0.16888, 0.03527, 0.02221, 0.00110, 0.00009, + 0.00000, 0.00060, 0.00123, + 0.15659, 0.03244, 0.01880, 0.00102, 0.00007, + -0.00002, 0.00052, 0.00110 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.14610, 0.02996, 0.01611, 0.00086, 0.00010, + -0.00001, 0.00048, 0.00103, + 0.13670, 0.02781, 0.01396, 0.00076, 0.00012, + 0.00001, 0.00046, 0.00099, + 0.12837, 0.02593, 0.01223, 0.00069, 0.00011, + 0.00002, 0.00043, 0.00090, + 0.12096, 0.02427, 0.01081, 0.00065, 0.00009, + 0.00001, 0.00040, 0.00079, + 0.11416, 0.02279, 0.00963, 0.00065, 0.00008, + 0.00000, 0.00037, 0.00074, + 0.10823, 0.02144, 0.00864, 0.00054, 0.00010, + 0.00002, 0.00036, 0.00068, + 0.10280, 0.02023, 0.00780, 0.00046, 0.00011, + 0.00004, 0.00034, 0.00066 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.09774, 0.01915, 0.00708, 0.00043, 0.00010, + 0.00004, 0.00032, 0.00067, + 0.09314, 0.01816, 0.00647, 0.00041, 0.00011, + 0.00006, 0.00032, 0.00063, + 0.08893, 0.01726, 0.00594, 0.00040, 0.00011, + 0.00007, 0.00032, 0.00059, + 0.08499, 0.01643, 0.00547, 0.00037, 0.00009, + 0.00004, 0.00028, 0.00058, + 0.08139, 0.01567, 0.00506, 0.00035, 0.00007, + 0.00002, 0.00025, 0.00056 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + 0.23862, 0.04997, 0.05362, 0.00121, -0.00002, + -0.00004, 0.00065, 0.00166, + 0.21057, 0.04335, 0.03974, 0.00104, 0.00001, + -0.00008, 0.00056, 0.00137, + 0.18820, 0.03826, 0.03052, 0.00105, 0.00003, + -0.00004, 0.00048, 0.00112, + 0.17020, 0.03419, 0.02414, 0.00083, 0.00004, + -0.00003, 0.00045, 0.00107, + 0.15520, 0.03084, 0.01958, 0.00077, 0.00005, + -0.00005, 0.00040, 0.00092, + 0.14269, 0.02801, 0.01618, 0.00066, 0.00005, + -0.00006, 0.00038, 0.00078, + 0.13175, 0.02565, 0.01360, 0.00060, 0.00008, + -0.00002, 0.00037, 0.00073 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.12234, 0.02361, 0.01159, 0.00049, 0.00007, + -0.00001, 0.00035, 0.00072, + 0.11407, 0.02184, 0.00999, 0.00046, 0.00008, + 0.00000, 0.00032, 0.00063, + 0.10667, 0.02029, 0.00871, 0.00048, 0.00009, + 0.00002, 0.00030, 0.00056, + 0.10010, 0.01892, 0.00766, 0.00045, 0.00008, + 0.00002, 0.00029, 0.00053, + 0.09439, 0.01769, 0.00679, 0.00034, 0.00007, + 0.00001, 0.00027, 0.00052, + 0.08915, 0.01662, 0.00607, 0.00029, 0.00008, + 0.00002, 0.00025, 0.00049, + 0.08438, 0.01565, 0.00547, 0.00028, 0.00008, + 0.00003, 0.00024, 0.00046 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + 0.08001, 0.01478, 0.00496, 0.00029, 0.00007, + 0.00003, 0.00024, 0.00042, + 0.07609, 0.01396, 0.00451, 0.00023, 0.00006, + 0.00003, 0.00021, 0.00040, + 0.07252, 0.01323, 0.00413, 0.00018, 0.00006, + 0.00002, 0.00019, 0.00038, + 0.06916, 0.01257, 0.00380, 0.00020, 0.00006, + 0.00003, 0.00019, 0.00035, + 0.06607, 0.01196, 0.00351, 0.00021, 0.00007, + 0.00004, 0.00019, 0.00032 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + 0.20442, 0.04018, 0.04066, 0.00071, 0.00000, + -0.00001, 0.00043, 0.00115, + 0.17896, 0.03463, 0.02967, 0.00066, -0.00002, + -0.00006, 0.00033, 0.00091, + 0.15894, 0.03037, 0.02249, 0.00064, 0.00001, + -0.00005, 0.00037, 0.00081, + 0.14287, 0.02695, 0.01761, 0.00058, 0.00003, + -0.00004, 0.00033, 0.00068, + 0.12979, 0.02418, 0.01413, 0.00043, 0.00005, + -0.00003, 0.00028, 0.00061, + 0.11863, 0.02188, 0.01159, 0.00040, 0.00007, + -0.00001, 0.00027, 0.00052, + 0.10906, 0.01994, 0.00968, 0.00042, 0.00006, + 0.00000, 0.00024, 0.00047 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.10082, 0.01829, 0.00820, 0.00034, 0.00008, + 0.00001, 0.00025, 0.00044, + 0.09367, 0.01685, 0.00703, 0.00029, 0.00007, + 0.00002, 0.00025, 0.00041, + 0.08742, 0.01559, 0.00610, 0.00022, 0.00006, + 0.00003, 0.00022, 0.00040, + 0.08188, 0.01449, 0.00534, 0.00014, 0.00006, + 0.00003, 0.00020, 0.00037, + 0.07686, 0.01354, 0.00473, 0.00015, 0.00008, + 0.00002, 0.00019, 0.00030, + 0.07233, 0.01266, 0.00421, 0.00014, 0.00007, + 0.00002, 0.00018, 0.00029, + 0.06823, 0.01187, 0.00377, 0.00015, 0.00007, + 0.00002, 0.00017, 0.00028 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + 0.06448, 0.01118, 0.00340, 0.00018, 0.00005, + 0.00002, 0.00016, 0.00024, + 0.06114, 0.01054, 0.00309, 0.00016, 0.00006, + 0.00003, 0.00016, 0.00025, + 0.05811, 0.00997, 0.00282, 0.00014, 0.00007, + 0.00004, 0.00015, 0.00025, + 0.05532, 0.00945, 0.00259, 0.00013, 0.00007, + 0.00003, 0.00014, 0.00022, + 0.05276, 0.00898, 0.00239, 0.00012, 0.00006, + 0.00003, 0.00013, 0.00020 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.17266, 0.03194, 0.03046, 0.00066, -0.00006, + -0.00009, 0.00023, 0.00070, + 0.15014, 0.02735, 0.02189, 0.00049, -0.00003, + -0.00008, 0.00021, 0.00064, + 0.13279, 0.02382, 0.01640, 0.00037, 0.00001, + -0.00008, 0.00022, 0.00054, + 0.11866, 0.02103, 0.01272, 0.00035, 0.00001, + -0.00007, 0.00018, 0.00043, + 0.10704, 0.01876, 0.01014, 0.00033, 0.00002, + -0.00005, 0.00016, 0.00040, + 0.09736, 0.01692, 0.00825, 0.00031, 0.00001, + -0.00004, 0.00015, 0.00035, + 0.08928, 0.01536, 0.00684, 0.00024, 0.00002, + -0.00003, 0.00015, 0.00031 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.08223, 0.01402, 0.00576, 0.00022, 0.00003, + -0.00001, 0.00014, 0.00028, + 0.07603, 0.01288, 0.00491, 0.00019, 0.00003, + -0.00001, 0.00013, 0.00028, + 0.07063, 0.01188, 0.00424, 0.00018, 0.00003, + 0.00000, 0.00012, 0.00027, + 0.06591, 0.01101, 0.00370, 0.00016, 0.00003, + 0.00000, 0.00012, 0.00024, + 0.06173, 0.01024, 0.00326, 0.00011, 0.00003, + 0.00001, 0.00010, 0.00020, + 0.05793, 0.00955, 0.00290, 0.00011, 0.00002, + 0.00001, 0.00009, 0.00021, + 0.05453, 0.00894, 0.00259, 0.00010, 0.00002, + 0.00001, 0.00009, 0.00020 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05149, 0.00840, 0.00233, 0.00009, 0.00003, + 0.00001, 0.00010, 0.00017, + 0.04870, 0.00790, 0.00212, 0.00009, 0.00004, + 0.00001, 0.00009, 0.00015, + 0.04617, 0.00746, 0.00193, 0.00009, 0.00004, + 0.00002, 0.00009, 0.00014, + 0.04380, 0.00706, 0.00177, 0.00010, 0.00003, + 0.00002, 0.00008, 0.00013, + 0.04165, 0.00669, 0.00162, 0.00011, 0.00003, + 0.00002, 0.00007, 0.00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.14342, 0.02477, 0.02224, 0.00027, -0.00005, + -0.00003, 0.00016, 0.00052, + 0.12384, 0.02109, 0.01581, 0.00033, 0.00000, + -0.00001, 0.00015, 0.00041, + 0.10858, 0.01828, 0.01173, 0.00037, 0.00000, + -0.00003, 0.00013, 0.00030, + 0.09667, 0.01606, 0.00903, 0.00025, -0.00001, + -0.00002, 0.00010, 0.00030, + 0.08690, 0.01428, 0.00713, 0.00023, 0.00000, + -0.00001, 0.00010, 0.00024, + 0.07868, 0.01283, 0.00576, 0.00023, 0.00000, + -0.00002, 0.00009, 0.00019, + 0.07174, 0.01159, 0.00475, 0.00021, 0.00001, + -0.00001, 0.00007, 0.00020 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.06589, 0.01056, 0.00398, 0.00015, 0.00001, + 0.00000, 0.00008, 0.00020, + 0.06077, 0.00967, 0.00338, 0.00012, 0.00000, + 0.00000, 0.00007, 0.00018, + 0.05628, 0.00889, 0.00291, 0.00011, 0.00000, + 0.00000, 0.00005, 0.00016, + 0.05233, 0.00821, 0.00253, 0.00010, 0.00000, + -0.00001, 0.00005, 0.00014, + 0.04883, 0.00761, 0.00222, 0.00009, 0.00001, + -0.00002, 0.00005, 0.00011, + 0.04569, 0.00709, 0.00196, 0.00009, 0.00001, + -0.00001, 0.00004, 0.00012, + 0.04288, 0.00663, 0.00175, 0.00009, 0.00001, + 0.00000, 0.00004, 0.00012 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + 0.04036, 0.00621, 0.00157, 0.00007, 0.00000, + 0.00000, 0.00004, 0.00011, + 0.03806, 0.00583, 0.00142, 0.00008, 0.00000, + -0.00001, 0.00003, 0.00011, + 0.03598, 0.00549, 0.00129, 0.00009, 0.00001, + -0.00001, 0.00003, 0.00010, + 0.03412, 0.00517, 0.00118, 0.00007, 0.00001, + 0.00000, 0.00003, 0.00010, + 0.03242, 0.00489, 0.00108, 0.00006, 0.00001, + 0.00000, 0.00003, 0.00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + 0.09368, 0.01408, 0.01114, 0.00016, 0.00000, + 0.00000, 0.00007, 0.00017, + 0.07970, 0.01178, 0.00766, 0.00011, 0.00000, + -0.00002, 0.00005, 0.00016, + 0.06904, 0.01007, 0.00553, 0.00010, 0.00001, + -0.00001, 0.00007, 0.00009, + 0.06060, 0.00874, 0.00416, 0.00009, 0.00001, + -0.00001, 0.00004, 0.00009, + 0.05385, 0.00769, 0.00322, 0.00007, 0.00000, + 0.00000, 0.00005, 0.00010, + 0.04831, 0.00683, 0.00257, 0.00006, 0.00001, + 0.00000, 0.00004, 0.00008, + 0.04364, 0.00613, 0.00208, 0.00005, 0.00001, + 0.00000, 0.00004, 0.00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + 0.03971, 0.00553, 0.00172, 0.00003, 0.00001, + 0.00000, 0.00004, 0.00005, + 0.03631, 0.00502, 0.00145, 0.00002, 0.00001, + 0.00000, 0.00004, 0.00006, + 0.03336, 0.00458, 0.00123, 0.00002, 0.00001, + 0.00000, 0.00003, 0.00006, + 0.03081, 0.00420, 0.00106, 0.00002, 0.00001, + 0.00001, 0.00003, 0.00005, + 0.02855, 0.00387, 0.00093, 0.00002, 0.00001, + 0.00000, 0.00003, 0.00003, + 0.02655, 0.00358, 0.00081, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00003, + 0.02477, 0.00332, 0.00072, 0.00001, 0.00000, + 0.00000, 0.00002, 0.00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + 0.02317, 0.00309, 0.00064, 0.00001, 0.00000, + 0.00000, 0.00002, 0.00004, + 0.02172, 0.00289, 0.00058, 0.00001, 0.00000, + 0.00000, 0.00002, 0.00004, + 0.02043, 0.00270, 0.00052, 0.00001, 0.00000, + 0.00000, 0.00002, 0.00003, + 0.01926, 0.00254, 0.00048, 0.00001, 0.00000, + 0.00000, 0.00002, 0.00003, + 0.01821, 0.00239, 0.00044, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ + 0.05629, 0.00727, 0.00502, 0.00011, -0.00001, + -0.00001, 0.00002, 0.00004, + 0.04705, 0.00598, 0.00333, 0.00006, -0.00001, + -0.00002, 0.00000, 0.00004, + 0.04015, 0.00504, 0.00234, 0.00004, -0.00001, + -0.00002, 0.00001, 0.00004, + 0.03483, 0.00432, 0.00172, 0.00002, 0.00000, + 0.00000, 0.00002, 0.00004, + 0.03055, 0.00375, 0.00131, 0.00003, 0.00000, + 0.00000, 0.00001, 0.00002, + 0.02710, 0.00330, 0.00102, 0.00002, 0.00000, + 0.00000, 0.00001, 0.00002, + 0.02423, 0.00292, 0.00082, 0.00001, 0.00000, + -0.00001, 0.00001, 0.00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ + 0.02182, 0.00261, 0.00067, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.01978, 0.00235, 0.00056, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.01802, 0.00213, 0.00047, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00002, + 0.01650, 0.00194, 0.00040, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.01518, 0.00177, 0.00035, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.01403, 0.00163, 0.00030, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.01301, 0.00150, 0.00027, 0.00000, 0.00000, + 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.01210, 0.00139, 0.00024, 0.00000, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.01127, 0.00129, 0.00021, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01054, 0.00120, 0.00019, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.00988, 0.00112, 0.00017, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.00928, 0.00105, 0.00016, 0.00000, 0.00000, + 0.00000, 0.00000, 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.03004, 0.00326, 0.00193, 0.00002, -0.00001, + -0.00001, 0.00000, 0.00001, + 0.02465, 0.00264, 0.00124, 0.00002, 0.00000, + -0.00001, 0.00000, 0.00001, + 0.02070, 0.00218, 0.00085, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.01768, 0.00185, 0.00061, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01532, 0.00158, 0.00045, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01342, 0.00138, 0.00035, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01187, 0.00121, 0.00028, 0.00000, 0.00000, + 0.00000, 0.00000, 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.01059, 0.00107, 0.00022, -0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.00949, 0.00095, 0.00018, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00857, 0.00085, 0.00015, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00779, 0.00077, 0.00013, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.00711, 0.00070, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00651, 0.00064, 0.00010, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00599, 0.00058, 0.00009, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ + 0.00553, 0.00054, 0.00008, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00512, 0.00050, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00476, 0.00046, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00443, 0.00043, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00414, 0.00040, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ + 0.01362, 0.00121, 0.00060, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01091, 0.00095, 0.00037, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.00897, 0.00077, 0.00024, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.00753, 0.00064, 0.00017, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00642, 0.00054, 0.00012, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00555, 0.00046, 0.00009, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00484, 0.00040, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ + 0.00426, 0.00035, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00378, 0.00031, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00337, 0.00028, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00303, 0.00025, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00274, 0.00022, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00249, 0.00020, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00227, 0.00018, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ + 0.00208, 0.00017, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00191, 0.00015, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00176, 0.00014, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00163, 0.00013, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00151, 0.00012, 0.00001, 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=1,7)/ + 0.00104, 0.00005, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00078, 0.00004, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00061, 0.00003, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00049, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00040, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00033, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00028, 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=8,14)/ + 0.00024, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00020, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00018, 0.00001, 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, + 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.00011, 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.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, + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00006, 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,7,0,0,7,7/ 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(84,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)= (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