* * $Id: sfdisdm.F,v 1.1.1.2 1996/10/30 08:29:41 cernlib Exp $ * * $Log: sfdisdm.F,v $ * Revision 1.1.1.2 1996/10/30 08:29:41 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:34 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFDISDM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C THIS IS THE NEW B--TYPE FIT "D-'" WITH UBAR < DBAR (230 MEV) C IN THE ** DIS ** SCHEME #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.00783, 0.00469, 113.36284, 4.99856, 0.13350, + 0.00000, 2.59293, 5.02028, + 0.00828, 0.00483, 131.82452, 5.92056, 1.21986, + 0.00002, 3.59897, 5.94280, + 0.00869, 0.00498, 151.84360, 6.83898, 2.27842, + 0.00000, 4.58917, 6.86165, + 0.00908, 0.00512, 173.24471, 7.75136, 3.31266, + 0.00002, 5.56407, 7.77444, + 0.00944, 0.00525, 195.67310, 8.66962, 4.33841, + 0.22312, 6.53754, 8.69308, + 0.00979, 0.00538, 218.97154, 9.59438, 5.35948, + 1.19609, 7.51180, 9.61820, + 0.01012, 0.00552, 243.08543, 10.53078, 6.38328, + 2.34336, 8.49317, 10.55492 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.01044, 0.00564, 267.88794, 11.47977, 7.41220, + 3.46835, 9.48333, 11.50425, + 0.01075, 0.00577, 293.24634, 12.44047, 8.44644, + 4.59493, 10.48191, 12.46524, + 0.01104, 0.00589, 319.05518, 13.41234, 9.48631, + 5.72057, 11.48886, 13.43743, + 0.01133, 0.00601, 345.24023, 14.39477, 10.53190, + 6.84680, 12.50388, 14.42020, + 0.01160, 0.00613, 371.73511, 15.38583, 11.58189, + 7.97259, 13.52535, 15.41153, + 0.01187, 0.00624, 398.40186, 16.38243, 12.63374, + 9.09607, 14.55050, 16.40844, + 0.01214, 0.00635, 425.26733, 17.38764, 13.69083, + 10.22076, 15.58251, 17.41394 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.01239, 0.00645, 452.28052, 18.39935, 14.75138, + 11.34535, 16.61946, 18.42594, + 0.01264, 0.00657, 479.26636, 19.41307, 15.81131, + 12.46604, 17.65709, 19.43997, + 0.01288, 0.00667, 506.41284, 20.43520, 16.87714, + 13.58954, 18.70181, 20.46239, + 0.01312, 0.00677, 533.42773, 21.45621, 17.93974, + 14.70706, 19.74434, 21.48370, + 0.01335, 0.00688, 560.54785, 22.48378, 19.00680, + 15.82642, 20.79234, 22.51157 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.01082, 0.00618, 80.27979, 3.67535, 0.09632, + 0.00000, 1.90005, 3.68793, + 0.01141, 0.00641, 93.60218, 4.33152, 0.86836, + 0.00000, 2.61510, 4.34439, + 0.01196, 0.00661, 107.86386, 4.98281, 1.61841, + 0.00000, 3.31665, 4.99589, + 0.01246, 0.00681, 122.91040, 5.62700, 2.34845, + 0.00001, 4.00458, 5.64030, + 0.01294, 0.00701, 138.51329, 6.27222, 3.06940, + 0.15652, 4.68842, 6.28572, + 0.01340, 0.00720, 154.56238, 6.91877, 3.78380, + 0.83751, 5.36959, 6.93247, + 0.01384, 0.00738, 171.01872, 7.57011, 4.49672, + 1.63737, 6.05238, 7.58398 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.01426, 0.00757, 187.79849, 8.22688, 5.20980, + 2.41790, 6.73793, 8.24095, + 0.01468, 0.00774, 204.81499, 8.88842, 5.92313, + 3.19589, 7.42595, 8.90268, + 0.01506, 0.00791, 222.00338, 9.55446, 6.63707, + 3.96968, 8.11651, 9.56891, + 0.01544, 0.00807, 239.31991, 10.22467, 7.35177, + 4.74047, 8.80948, 10.23928, + 0.01581, 0.00823, 256.72212, 10.89766, 8.06628, + 5.50756, 9.50373, 10.91245, + 0.01616, 0.00839, 274.10981, 11.57118, 8.77870, + 6.26951, 10.19718, 11.58613, + 0.01651, 0.00855, 291.52754, 12.24780, 9.49186, + 7.02928, 10.89252, 12.26293 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.01683, 0.00870, 308.94037, 12.92613, 10.20458, + 7.78604, 11.58849, 12.94140, + 0.01716, 0.00885, 326.22138, 13.60267, 10.91368, + 8.53678, 12.28173, 13.61813, + 0.01748, 0.00899, 343.52923, 14.28270, 11.62449, + 9.28704, 12.97754, 14.29830, + 0.01780, 0.00914, 360.64104, 14.95888, 12.32996, + 10.02994, 13.66874, 14.97465, + 0.01810, 0.00927, 377.74969, 15.63737, 13.03628, + 10.77185, 14.36152, 15.65332 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.01493, 0.00816, 56.85426, 2.70330, 0.06946, + 0.00000, 1.39316, 2.71073, + 0.01571, 0.00849, 66.46410, 3.16990, 0.61767, + 0.00000, 1.90097, 3.17747, + 0.01643, 0.00879, 76.62157, 3.63133, 1.14867, + 0.00001, 2.39756, 3.63904, + 0.01710, 0.00909, 87.19536, 4.08570, 1.66349, + 0.00001, 2.88252, 4.09353, + 0.01774, 0.00936, 98.04134, 4.53858, 2.16968, + 0.10972, 3.36237, 4.54654, + 0.01835, 0.00963, 109.08383, 4.99007, 2.66893, + 0.58597, 3.83804, 4.99814, + 0.01893, 0.00989, 120.29666, 5.44254, 3.16472, + 1.14314, 4.31247, 5.45070 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.01948, 0.01014, 131.62527, 5.89642, 3.65821, + 1.68411, 4.78641, 5.90469, + 0.02002, 0.01039, 143.01680, 6.35125, 4.14949, + 2.22076, 5.25972, 6.35962, + 0.02053, 0.01062, 154.43156, 6.80690, 4.63884, + 2.75198, 5.73247, 6.81538, + 0.02103, 0.01085, 165.84703, 7.26325, 5.12648, + 3.27876, 6.20469, 7.27182, + 0.02151, 0.01108, 177.23659, 7.71936, 5.61179, + 3.80066, 6.67562, 7.72802, + 0.02197, 0.01129, 188.52869, 8.17351, 6.09330, + 4.31651, 7.14365, 8.18228, + 0.02243, 0.01151, 199.77345, 8.62790, 6.57340, + 4.82886, 7.61110, 8.63682 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.02287, 0.01172, 210.94688, 9.08158, 7.05127, + 5.33710, 8.07706, 9.09058, + 0.02329, 0.01192, 221.95897, 9.53192, 7.52450, + 5.83896, 8.53903, 9.54103, + 0.02371, 0.01211, 232.93710, 9.98312, 7.99734, + 6.33889, 9.00123, 9.99232, + 0.02412, 0.01231, 243.71588, 10.42962, 8.46443, + 6.83158, 9.45817, 10.43888, + 0.02451, 0.01250, 254.44711, 10.87630, 8.93067, + 7.32211, 9.91481, 10.88567 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.01801, 0.00961, 46.46518, 2.25933, 0.05740, + 0.00000, 1.16250, 2.26507, + 0.01893, 0.01002, 54.40184, 2.64137, 0.50593, + 0.00000, 1.57799, 2.64722, + 0.01978, 0.01039, 62.72838, 3.01834, 0.93957, + 0.00000, 1.98349, 3.02429, + 0.02057, 0.01076, 71.32774, 3.38855, 1.35902, + 0.00000, 2.37852, 3.39462, + 0.02132, 0.01110, 80.09055, 3.75648, 1.77037, + 0.08910, 2.76831, 3.76264, + 0.02203, 0.01142, 88.95720, 4.12214, 2.17491, + 0.47528, 3.15358, 4.12838, + 0.02271, 0.01174, 97.90706, 4.48747, 2.57552, + 0.92601, 3.53670, 4.49380 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.02336, 0.01204, 106.89930, 4.85278, 2.97309, + 1.36230, 3.91828, 4.85920, + 0.02399, 0.01234, 115.89411, 5.21774, 3.36772, + 1.79388, 4.29820, 5.22424, + 0.02460, 0.01263, 124.86358, 5.58227, 3.75968, + 2.21988, 4.67657, 5.58886, + 0.02519, 0.01291, 133.79310, 5.94634, 4.14922, + 2.64118, 5.05351, 5.95302, + 0.02575, 0.01318, 142.66317, 6.30919, 4.53583, + 3.05743, 5.42834, 6.31594, + 0.02630, 0.01344, 151.41555, 6.66937, 4.91829, + 3.46764, 5.79977, 6.67619, + 0.02683, 0.01370, 160.09943, 7.02889, 5.29871, + 3.87411, 6.16985, 7.03580 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.02734, 0.01395, 168.69634, 7.38693, 5.67646, + 4.27633, 6.53784, 7.39392, + 0.02785, 0.01419, 177.13248, 7.74131, 6.04946, + 4.67237, 6.90162, 7.74837, + 0.02833, 0.01444, 185.51928, 8.09569, 6.42147, + 5.06613, 7.26490, 8.10283, + 0.02880, 0.01467, 193.71811, 8.44534, 6.78786, + 5.45308, 7.62301, 8.45257, + 0.02927, 0.01489, 201.86036, 8.79452, 7.15296, + 5.83766, 7.98023, 8.80182 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.02056, 0.01082, 40.26817, 1.98972, 0.05014, + 0.00000, 1.02275, 1.99472, + 0.02160, 0.01128, 47.19662, 2.32112, 0.43906, + 0.00000, 1.38302, 2.32622, + 0.02255, 0.01172, 54.42696, 2.64761, 0.81458, + 0.00000, 1.73414, 2.65281, + 0.02344, 0.01212, 61.85147, 2.96763, 1.17718, + 0.00000, 2.07554, 2.97293, + 0.02428, 0.01251, 69.38116, 3.28500, 1.53208, + 0.07684, 2.41178, 3.29039, + 0.02507, 0.01290, 76.96577, 3.59972, 1.88044, + 0.40958, 2.74341, 3.60520, + 0.02584, 0.01326, 84.58859, 3.91345, 2.22467, + 0.79724, 3.07246, 3.91900 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.02657, 0.01361, 92.21600, 4.22646, 2.56556, + 1.17169, 3.39949, 4.23210, + 0.02729, 0.01396, 99.81659, 4.53846, 2.90321, + 1.54130, 3.72439, 4.54419, + 0.02796, 0.01429, 107.36899, 4.84945, 3.23791, + 1.90541, 4.04729, 4.85525, + 0.02862, 0.01460, 114.86278, 5.15939, 3.56987, + 2.26477, 4.36830, 5.16526, + 0.02925, 0.01491, 122.28268, 5.46766, 3.89868, + 2.61913, 4.68691, 5.47361, + 0.02986, 0.01521, 129.57832, 5.77302, 4.22328, + 2.96762, 5.00195, 5.77904, + 0.03046, 0.01550, 136.79765, 6.07726, 4.54559, + 3.31231, 5.31527, 6.08334 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.03104, 0.01579, 143.92532, 6.37970, 4.86506, + 3.65280, 5.62628, 6.38586, + 0.03160, 0.01607, 150.89703, 6.67843, 5.17989, + 3.98739, 5.93311, 6.68466, + 0.03214, 0.01634, 157.81467, 6.97673, 5.49342, + 4.31957, 6.23907, 6.98302, + 0.03267, 0.01660, 164.55515, 7.27043, 5.80159, + 4.64533, 6.54005, 7.27679, + 0.03319, 0.01686, 171.23663, 7.56334, 6.10828, + 4.96866, 6.83990, 7.56976 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.02279, 0.01185, 36.03723, 1.80307, 0.04516, + 0.00000, 0.92615, 1.80764, + 0.02392, 0.01236, 42.27234, 2.09982, 0.39332, + 0.00000, 1.24868, 2.10452, + 0.02497, 0.01286, 48.75197, 2.39182, 0.72912, + 0.00000, 1.56263, 2.39661, + 0.02594, 0.01331, 55.37572, 2.67759, 1.05293, + 0.00001, 1.86748, 2.68249, + 0.02685, 0.01375, 62.06821, 2.96051, 1.36941, + 0.06850, 2.16722, 2.96551, + 0.02773, 0.01417, 68.78519, 3.24061, 1.67953, + 0.36487, 2.46238, 3.24569, + 0.02856, 0.01457, 75.51291, 3.51929, 1.98549, + 0.70970, 2.75475, 3.52446 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.02937, 0.01497, 82.22302, 3.79687, 2.28797, + 1.04220, 3.04481, 3.80212, + 0.03014, 0.01534, 88.88927, 4.07306, 2.58708, + 1.36987, 3.33251, 4.07840, + 0.03088, 0.01571, 95.49414, 4.34789, 2.88309, + 1.69214, 3.61796, 4.35331, + 0.03160, 0.01606, 102.03079, 4.62135, 3.17623, + 2.00972, 3.90129, 4.62684, + 0.03229, 0.01640, 108.48605, 4.89292, 3.46614, + 2.32239, 4.18206, 4.89848, + 0.03295, 0.01675, 114.81557, 5.16141, 3.75184, + 2.62935, 4.45919, 5.16705, + 0.03360, 0.01707, 121.06581, 5.42857, 4.03514, + 2.93256, 4.73444, 5.43428 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.03423, 0.01738, 127.22301, 5.69378, 4.31556, + 3.23166, 5.00729, 5.69956, + 0.03484, 0.01769, 133.23058, 5.95530, 4.59145, + 3.52509, 5.27602, 5.96114, + 0.03543, 0.01799, 139.18147, 6.21615, 4.86592, + 3.81609, 5.54370, 6.22207, + 0.03601, 0.01828, 144.96507, 6.47256, 5.13525, + 4.10101, 5.80659, 6.47853, + 0.03658, 0.01857, 150.68996, 6.72799, 5.40300, + 4.38349, 6.06820, 6.73403 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.03130, 0.01577, 25.53156, 1.32994, 0.03270, + 0.00000, 0.68224, 1.33450, + 0.03280, 0.01650, 30.02258, 1.54021, 0.27934, + 0.00000, 0.91068, 1.54493, + 0.03418, 0.01719, 34.62773, 1.74624, 0.51634, + 0.00000, 1.13218, 1.75109, + 0.03547, 0.01784, 39.26733, 1.94686, 0.74385, + 0.00000, 1.34623, 1.95185, + 0.03668, 0.01844, 43.89818, 2.14443, 0.96513, + 0.04789, 1.55563, 2.14954, + 0.03783, 0.01902, 48.49229, 2.33892, 1.18086, + 0.25451, 1.76073, 2.34414, + 0.03894, 0.01959, 53.04248, 2.53136, 1.39257, + 0.49388, 1.96278, 2.53669 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.04000, 0.02013, 57.53278, 2.72192, 1.60074, + 0.72340, 2.16214, 2.72736, + 0.04101, 0.02065, 61.94952, 2.91049, 1.80550, + 0.94839, 2.35879, 2.91604, + 0.04199, 0.02116, 66.28516, 3.09710, 2.00709, + 1.16851, 2.55288, 3.10275, + 0.04292, 0.02164, 70.53885, 3.28183, 2.20573, + 1.38435, 2.74455, 3.28757, + 0.04383, 0.02212, 74.70436, 3.46435, 2.40121, + 1.59580, 2.93354, 3.47017, + 0.04470, 0.02256, 78.75093, 3.64379, 2.59280, + 1.80225, 3.11903, 3.64969, + 0.04555, 0.02302, 82.71915, 3.82153, 2.78196, + 2.00528, 3.30246, 3.82752 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.04637, 0.02344, 86.60075, 3.99718, 2.96835, + 2.20466, 3.48348, 4.00325, + 0.04717, 0.02386, 90.35558, 4.16945, 3.15079, + 2.39925, 3.66082, 4.17560, + 0.04794, 0.02427, 94.05588, 4.34067, 3.33165, + 2.59153, 3.83684, 4.34689, + 0.04870, 0.02467, 97.62140, 4.50806, 3.50817, + 2.77879, 4.00878, 4.51435, + 0.04943, 0.02506, 101.13344, 4.67428, 3.68308, + 2.96385, 4.17933, 4.68062 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.04287, 0.02113, 18.09737, 0.98498, 0.02384, + 0.00000, 0.50552, 0.99097, + 0.04485, 0.02216, 21.32814, 1.13348, 0.19822, + 0.00000, 0.66696, 1.13970, + 0.04669, 0.02310, 24.59242, 1.27824, 0.36507, + 0.00000, 0.82278, 1.28465, + 0.04839, 0.02399, 27.82928, 1.41844, 0.52442, + 0.00000, 0.97254, 1.42504, + 0.04999, 0.02484, 31.01701, 1.55569, 0.67856, + 0.03339, 1.11824, 1.56246, + 0.05150, 0.02565, 34.13919, 1.69000, 0.82800, + 0.17704, 1.26010, 1.69693, + 0.05296, 0.02642, 37.19345, 1.82208, 0.97382, + 0.34266, 1.39904, 1.82917 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.05435, 0.02716, 40.17247, 1.95208, 1.11638, + 0.50050, 1.53532, 1.95931, + 0.05568, 0.02789, 43.07063, 2.07996, 1.25580, + 0.65434, 1.66897, 2.08733, + 0.05696, 0.02857, 45.88628, 2.20579, 1.39230, + 0.80400, 1.80013, 2.21328, + 0.05819, 0.02923, 48.62247, 2.32965, 1.52609, + 0.94996, 1.92895, 2.33727, + 0.05937, 0.02988, 51.27676, 2.45136, 1.65706, + 1.09217, 2.05529, 2.45910, + 0.06052, 0.03050, 53.82848, 2.57030, 1.78466, + 1.23020, 2.17856, 2.57814, + 0.06162, 0.03109, 56.31184, 2.68756, 1.91007, + 1.36531, 2.29987, 2.69551 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.06269, 0.03168, 58.72153, 2.80286, 2.03306, + 1.49735, 2.41901, 2.81091, + 0.06373, 0.03224, 61.03021, 2.91529, 2.15274, + 1.62549, 2.53507, 2.92344, + 0.06473, 0.03280, 63.29239, 3.02662, 2.27096, + 1.75162, 2.64984, 3.03486, + 0.06571, 0.03333, 65.45084, 3.13482, 2.38568, + 1.87376, 2.76129, 3.14314, + 0.06666, 0.03386, 67.56570, 3.24187, 2.49895, + 1.99403, 2.87144, 3.25028 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.05146, 0.02518, 14.80340, 0.82900, 0.01988, + 0.00000, 0.42604, 0.83633, + 0.05380, 0.02641, 17.46556, 0.94989, 0.16209, + 0.00000, 0.55763, 0.95749, + 0.05596, 0.02757, 20.12881, 1.06734, 0.29770, + 0.00000, 0.68420, 1.07517, + 0.05795, 0.02864, 22.74222, 1.18065, 0.42679, + 0.00000, 0.80543, 1.18871, + 0.05982, 0.02965, 25.29341, 1.29117, 0.55124, + 0.02698, 0.92294, 1.29944, + 0.06162, 0.03062, 27.77130, 1.39889, 0.67144, + 0.14286, 1.03693, 1.40735, + 0.06332, 0.03156, 30.17592, 1.50442, 0.78829, + 0.27603, 1.14815, 1.51307 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.06495, 0.03245, 32.50339, 1.60789, 0.90212, + 0.40245, 1.25681, 1.61671, + 0.06650, 0.03331, 34.75139, 1.70928, 1.01305, + 0.52521, 1.36299, 1.71826, + 0.06800, 0.03413, 36.92084, 1.80868, 1.12127, + 0.64421, 1.46680, 1.81780, + 0.06943, 0.03494, 39.01585, 1.90619, 1.22697, + 0.75985, 1.56843, 1.91546, + 0.07081, 0.03569, 41.03569, 2.00166, 1.33010, + 0.87214, 1.66775, 2.01107, + 0.07214, 0.03644, 42.96425, 2.09460, 1.43021, + 0.98073, 1.76428, 2.10414, + 0.07343, 0.03715, 44.83162, 2.18596, 1.52830, + 1.08669, 1.85902, 2.19562 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.07467, 0.03785, 46.63419, 2.27552, 1.62421, + 1.18992, 1.95176, 2.28529, + 0.07588, 0.03852, 48.35025, 2.36251, 1.71722, + 1.28974, 2.04177, 2.37240, + 0.07704, 0.03918, 50.02550, 2.44845, 1.80886, + 1.38777, 2.13058, 2.45846, + 0.07818, 0.03981, 51.61328, 2.53165, 1.89747, + 1.48235, 2.21648, 2.54175, + 0.07928, 0.04042, 53.16382, 2.61380, 1.98477, + 1.57527, 2.30122, 2.62401 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.05857, 0.02856, 12.84036, 0.73448, 0.01748, + 0.00000, 0.37814, 0.74301, + 0.06118, 0.02996, 15.15948, 0.83891, 0.14043, + 0.00000, 0.49189, 0.84773, + 0.06359, 0.03128, 17.46109, 0.94006, 0.25741, + 0.00000, 0.60101, 0.94917, + 0.06583, 0.03251, 19.70105, 1.03738, 0.36845, + 0.00000, 0.70526, 1.04672, + 0.06792, 0.03367, 21.87273, 1.13203, 0.47522, + 0.02317, 0.80600, 1.14159, + 0.06992, 0.03479, 23.96823, 1.22399, 0.57808, + 0.12249, 0.90346, 1.23377, + 0.07183, 0.03585, 25.98907, 1.31380, 0.67777, + 0.23637, 0.99824, 1.32377 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.07364, 0.03686, 27.93349, 1.40161, 0.77460, + 0.34414, 1.09061, 1.41177, + 0.07538, 0.03784, 29.80106, 1.48739, 0.86871, + 0.44850, 1.18059, 1.49772, + 0.07704, 0.03878, 31.59392, 1.57124, 0.96027, + 0.54937, 1.26832, 1.58174, + 0.07864, 0.03967, 33.31693, 1.65328, 1.04948, + 0.64714, 1.35397, 1.66394, + 0.08018, 0.04054, 34.97005, 1.73340, 1.13628, + 0.74183, 1.43746, 1.74419, + 0.08165, 0.04138, 36.54018, 1.81114, 1.22030, + 0.83313, 1.51837, 1.82207, + 0.08309, 0.04219, 38.05452, 1.88738, 1.30243, + 0.92201, 1.59759, 1.89845 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.08447, 0.04297, 39.51041, 1.96194, 1.38257, + 1.00841, 1.67495, 1.97315, + 0.08580, 0.04374, 40.88936, 2.03418, 1.46006, + 1.09173, 1.74985, 2.04550, + 0.08709, 0.04446, 42.23164, 2.10540, 1.53628, + 1.17340, 1.82359, 2.11684, + 0.08835, 0.04518, 43.49719, 2.17415, 1.60978, + 1.25197, 1.89473, 2.18570, + 0.08957, 0.04588, 44.72981, 2.24190, 1.68205, + 1.32903, 1.96476, 2.25357 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.06462, 0.03167, 11.50222, 0.67221, 0.01579, + 0.00000, 0.34616, 0.68127, + 0.06748, 0.03324, 13.58566, 0.76527, 0.12547, + 0.00001, 0.44759, 0.77467, + 0.07011, 0.03470, 15.63766, 0.85522, 0.22961, + 0.00001, 0.54470, 0.86491, + 0.07254, 0.03607, 17.61949, 0.94153, 0.32825, + 0.00002, 0.63723, 0.95150, + 0.07484, 0.03736, 19.52823, 1.02524, 0.42286, + 0.02056, 0.72643, 1.03546, + 0.07701, 0.03859, 21.35942, 1.10634, 0.51374, + 0.10845, 0.81247, 1.11678, + 0.07908, 0.03976, 23.11586, 1.18533, 0.60162, + 0.20903, 0.89595, 1.19599 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.08106, 0.04089, 24.79561, 1.26235, 0.68677, + 0.30394, 0.97707, 1.27319, + 0.08295, 0.04196, 26.40141, 1.33738, 0.76930, + 0.39562, 1.05589, 1.34843, + 0.08475, 0.04299, 27.93648, 1.41056, 0.84943, + 0.48403, 1.13259, 1.42178, + 0.08649, 0.04398, 29.40570, 1.48198, 0.92731, + 0.56952, 1.20727, 1.49337, + 0.08814, 0.04494, 30.80994, 1.55156, 1.00292, + 0.65212, 1.27988, 1.56310, + 0.08974, 0.04586, 32.13626, 1.61893, 1.07594, + 0.73159, 1.35011, 1.63061, + 0.09130, 0.04674, 33.41130, 1.68485, 1.14719, + 0.80880, 1.41872, 1.69668 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.09279, 0.04760, 34.63304, 1.74916, 1.21653, + 0.88368, 1.48557, 1.76113, + 0.09423, 0.04843, 35.78522, 1.81129, 1.28341, + 0.95570, 1.55010, 1.82339, + 0.09564, 0.04923, 36.90384, 1.87244, 1.34908, + 1.02618, 1.61354, 1.88467, + 0.09699, 0.05000, 37.95329, 1.93137, 1.41227, + 1.09385, 1.67461, 1.94370, + 0.09830, 0.05076, 38.97290, 1.98934, 1.47434, + 1.16012, 1.73466, 2.00179 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.08761, 0.04400, 8.18436, 0.51440, 0.01144, + 0.00000, 0.26597, 0.52639, + 0.09134, 0.04619, 9.67033, 0.57888, 0.08796, + 0.00000, 0.33658, 0.59127, + 0.09478, 0.04820, 11.09429, 0.64068, 0.16007, + 0.00001, 0.40361, 0.65342, + 0.09797, 0.05008, 12.43272, 0.69945, 0.22783, + 0.00001, 0.46696, 0.71251, + 0.10093, 0.05184, 13.69332, 0.75593, 0.29227, + 0.01404, 0.52749, 0.76928, + 0.10375, 0.05350, 14.87773, 0.81013, 0.35362, + 0.07376, 0.58533, 0.82374, + 0.10643, 0.05510, 15.99150, 0.86243, 0.41244, + 0.14159, 0.64096, 0.87629 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.10898, 0.05659, 17.03688, 0.91293, 0.46894, + 0.20499, 0.69451, 0.92703, + 0.11139, 0.05803, 18.01881, 0.96172, 0.52325, + 0.26570, 0.74611, 0.97602, + 0.11370, 0.05939, 18.94221, 1.00888, 0.57554, + 0.32377, 0.79588, 1.02338, + 0.11591, 0.06070, 19.81262, 1.05452, 0.62596, + 0.37946, 0.84396, 1.06921, + 0.11803, 0.06195, 20.63210, 1.09863, 0.67453, + 0.43285, 0.89034, 1.11349, + 0.12006, 0.06315, 21.39287, 1.14095, 0.72106, + 0.48379, 0.93480, 1.15597, + 0.12202, 0.06430, 22.11525, 1.18207, 0.76613, + 0.53293, 0.97794, 1.19725 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.12390, 0.06541, 22.79848, 1.22190, 0.80971, + 0.58027, 1.01968, 1.23723, + 0.12572, 0.06647, 23.43222, 1.26005, 0.85140, + 0.62544, 1.05963, 1.27552, + 0.12748, 0.06751, 24.04205, 1.29739, 0.89211, + 0.66940, 1.09869, 1.31299, + 0.12916, 0.06850, 24.60417, 1.33305, 0.93096, + 0.71127, 1.13597, 1.34876, + 0.13081, 0.06947, 25.14577, 1.36795, 0.96894, + 0.75207, 1.17244, 1.38380 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.11846, 0.06208, 5.84701, 0.40210, 0.00805, + 0.00001, 0.20896, 0.41769, + 0.12332, 0.06506, 6.89168, 0.44579, 0.06069, + 0.00001, 0.25725, 0.46182, + 0.12777, 0.06781, 7.85723, 0.48722, 0.10985, + 0.00002, 0.30265, 0.50365, + 0.13188, 0.07031, 8.73285, 0.52620, 0.15559, + 0.00002, 0.34509, 0.54296, + 0.13571, 0.07264, 9.53477, 0.56324, 0.19863, + 0.00943, 0.38521, 0.58031, + 0.13931, 0.07483, 10.26739, 0.59836, 0.23917, + 0.04923, 0.42311, 0.61569, + 0.14271, 0.07689, 10.93883, 0.63182, 0.27762, + 0.09400, 0.45914, 0.64940 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.14594, 0.07883, 11.55508, 0.66375, 0.31412, + 0.13534, 0.49341, 0.68158, + 0.14899, 0.08065, 12.11970, 0.69430, 0.34889, + 0.17456, 0.52613, 0.71233, + 0.15189, 0.08239, 12.63923, 0.72350, 0.38204, + 0.21166, 0.55735, 0.74172, + 0.15465, 0.08404, 13.11969, 0.75144, 0.41367, + 0.24689, 0.58717, 0.76984, + 0.15728, 0.08562, 13.56279, 0.77818, 0.44388, + 0.28037, 0.61569, 0.79674, + 0.15979, 0.08710, 13.96378, 0.80355, 0.47249, + 0.31196, 0.64272, 0.82226, + 0.16221, 0.08853, 14.33820, 0.82796, 0.49999, + 0.34219, 0.66872, 0.84682 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.16453, 0.08988, 14.68612, 0.85141, 0.52637, + 0.37108, 0.69367, 0.87040, + 0.16673, 0.09119, 15.00078, 0.87362, 0.55134, + 0.39837, 0.71728, 0.89274, + 0.16886, 0.09244, 15.29998, 0.89520, 0.57556, + 0.42475, 0.74021, 0.91443, + 0.17092, 0.09363, 15.56985, 0.91560, 0.59847, + 0.44966, 0.76190, 0.93494, + 0.17291, 0.09479, 15.82652, 0.93543, 0.62072, + 0.47379, 0.78295, 0.95488 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.14123, 0.07620, 4.81657, 0.35055, 0.00631, + 0.00001, 0.18293, 0.36854, + 0.14689, 0.07974, 5.65548, 0.38480, 0.04825, + 0.00001, 0.22116, 0.40325, + 0.15207, 0.08295, 6.41075, 0.41705, 0.08717, + 0.00001, 0.25685, 0.43588, + 0.15682, 0.08588, 7.07913, 0.44717, 0.12314, + 0.00003, 0.28998, 0.46634, + 0.16122, 0.08858, 7.67787, 0.47552, 0.15672, + 0.00738, 0.32102, 0.49498, + 0.16535, 0.09108, 8.21503, 0.50216, 0.18811, + 0.03837, 0.35010, 0.52190, + 0.16923, 0.09341, 8.69875, 0.52736, 0.21766, + 0.07303, 0.37753, 0.54733 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.17287, 0.09562, 9.13327, 0.55122, 0.24555, + 0.10479, 0.40348, 0.57139, + 0.17632, 0.09767, 9.52586, 0.57382, 0.27187, + 0.13467, 0.42798, 0.59418, + 0.17958, 0.09960, 9.88058, 0.59525, 0.29678, + 0.16273, 0.45120, 0.61578, + 0.18268, 0.10143, 10.20232, 0.61562, 0.32043, + 0.18921, 0.47325, 0.63632, + 0.18563, 0.10316, 10.49513, 0.63497, 0.34285, + 0.21422, 0.49419, 0.65582, + 0.18842, 0.10478, 10.75471, 0.65318, 0.36395, + 0.23766, 0.51386, 0.67414, + 0.19109, 0.10634, 10.99390, 0.67061, 0.38412, + 0.25996, 0.53269, 0.69169 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.19365, 0.10782, 11.21303, 0.68725, 0.40335, + 0.28117, 0.55066, 0.70844, + 0.19609, 0.10922, 11.40742, 0.70285, 0.42143, + 0.30106, 0.56753, 0.72416, + 0.19845, 0.11057, 11.59032, 0.71795, 0.43889, + 0.32021, 0.58383, 0.73935, + 0.20068, 0.11185, 11.74983, 0.73208, 0.45527, + 0.33815, 0.59910, 0.75356, + 0.20285, 0.11309, 11.90003, 0.74575, 0.47111, + 0.35545, 0.61388, 0.76731 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.15999, 0.08821, 4.20492, 0.31892, 0.00510, + 0.00001, 0.16695, 0.33870, + 0.16629, 0.09216, 4.91633, 0.34744, 0.04063, + 0.00001, 0.19910, 0.36768, + 0.17204, 0.09574, 5.54333, 0.37413, 0.07343, + 0.00001, 0.22896, 0.39474, + 0.17730, 0.09895, 6.08681, 0.39891, 0.10359, + 0.00002, 0.25650, 0.41985, + 0.18212, 0.10190, 6.56528, 0.42207, 0.13156, + 0.00616, 0.28213, 0.44328, + 0.18664, 0.10461, 6.98754, 0.44366, 0.15754, + 0.03192, 0.30599, 0.46512, + 0.19088, 0.10713, 7.36174, 0.46395, 0.18186, + 0.06059, 0.32835, 0.48561 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.19482, 0.10947, 7.69255, 0.48304, 0.20467, + 0.08669, 0.34934, 0.50486, + 0.19853, 0.11166, 7.98688, 0.50098, 0.22608, + 0.11110, 0.36906, 0.52296, + 0.20206, 0.11371, 8.24886, 0.51787, 0.24623, + 0.13390, 0.38761, 0.54001, + 0.20539, 0.11562, 8.48311, 0.53382, 0.26523, + 0.15530, 0.40514, 0.55612, + 0.20855, 0.11743, 8.69319, 0.54890, 0.28319, + 0.17540, 0.42169, 0.57130, + 0.21152, 0.11912, 8.87573, 0.56298, 0.29996, + 0.19414, 0.43714, 0.58548, + 0.21435, 0.12073, 9.04169, 0.57639, 0.31594, + 0.21190, 0.45185, 0.59897 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.21706, 0.12227, 9.19145, 0.58911, 0.33109, + 0.22870, 0.46581, 0.61178, + 0.21964, 0.12370, 9.32139, 0.60096, 0.34527, + 0.24439, 0.47884, 0.62372, + 0.22213, 0.12508, 9.44241, 0.61236, 0.35890, + 0.25943, 0.49138, 0.63521, + 0.22447, 0.12639, 9.54491, 0.62296, 0.37162, + 0.27345, 0.50306, 0.64586, + 0.22673, 0.12765, 9.64039, 0.63319, 0.38388, + 0.28692, 0.51431, 0.65613 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.17608, 0.09870, 3.78909, 0.29620, 0.00414, + 0.00004, 0.15561, 0.31727, + 0.18297, 0.10300, 4.41062, 0.32081, 0.03534, + 0.00003, 0.18362, 0.34235, + 0.18922, 0.10685, 4.94869, 0.34376, 0.06403, + 0.00004, 0.20953, 0.36566, + 0.19487, 0.11031, 5.40636, 0.36490, 0.09024, + 0.00003, 0.23327, 0.38707, + 0.20007, 0.11343, 5.80367, 0.38455, 0.11446, + 0.00536, 0.25527, 0.40697, + 0.20490, 0.11629, 6.14841, 0.40277, 0.13686, + 0.02759, 0.27562, 0.42542, + 0.20940, 0.11891, 6.44982, 0.41972, 0.15766, + 0.05218, 0.29454, 0.44256 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.21361, 0.12135, 6.71309, 0.43557, 0.17707, + 0.07446, 0.31221, 0.45857, + 0.21754, 0.12361, 6.94215, 0.45040, 0.19522, + 0.09521, 0.32874, 0.47353, + 0.22124, 0.12572, 7.14344, 0.46429, 0.21221, + 0.11449, 0.34422, 0.48755, + 0.22472, 0.12769, 7.32200, 0.47733, 0.22817, + 0.13250, 0.35872, 0.50069, + 0.22801, 0.12954, 7.47954, 0.48957, 0.24314, + 0.14934, 0.37236, 0.51300, + 0.23113, 0.13126, 7.61383, 0.50091, 0.25709, + 0.16497, 0.38503, 0.52445, + 0.23410, 0.13288, 7.73413, 0.51165, 0.27031, + 0.17973, 0.39703, 0.53527 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.23691, 0.13441, 7.84075, 0.52179, 0.28279, + 0.19364, 0.40836, 0.54549, + 0.23955, 0.13585, 7.93079, 0.53119, 0.29442, + 0.20656, 0.41887, 0.55492, + 0.24208, 0.13723, 8.01371, 0.54019, 0.30556, + 0.21892, 0.42896, 0.56397, + 0.24450, 0.13853, 8.08165, 0.54851, 0.31590, + 0.23038, 0.43829, 0.57232, + 0.24683, 0.13976, 8.14413, 0.55648, 0.32584, + 0.24138, 0.44725, 0.58034 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.23820, 0.13968, 2.76158, 0.23526, 0.00112, + 0.00001, 0.12497, 0.26085, + 0.24698, 0.14483, 3.14364, 0.24978, 0.02153, + 0.00002, 0.14246, 0.27562, + 0.25474, 0.14929, 3.45111, 0.26301, 0.03992, + 0.00002, 0.15829, 0.28902, + 0.26166, 0.15312, 3.69408, 0.27486, 0.05639, + 0.00001, 0.17246, 0.30101, + 0.26792, 0.15647, 3.89128, 0.28560, 0.07132, + 0.00331, 0.18532, 0.31185, + 0.27355, 0.15946, 4.05216, 0.29526, 0.08480, + 0.01681, 0.19689, 0.32157, + 0.27869, 0.16211, 4.18312, 0.30400, 0.09709, + 0.03151, 0.20740, 0.33033 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.28341, 0.16449, 4.28890, 0.31195, 0.10833, + 0.04454, 0.21699, 0.33831, + 0.28777, 0.16666, 4.37443, 0.31919, 0.11863, + 0.05646, 0.22574, 0.34554, + 0.29180, 0.16863, 4.44350, 0.32578, 0.12811, + 0.06736, 0.23378, 0.35211, + 0.29553, 0.17042, 4.49922, 0.33180, 0.13685, + 0.07738, 0.24115, 0.35810, + 0.29902, 0.17203, 4.54317, 0.33728, 0.14490, + 0.08657, 0.24789, 0.36356, + 0.30224, 0.17352, 4.57534, 0.34224, 0.15228, + 0.09499, 0.25406, 0.36846, + 0.30525, 0.17490, 4.60048, 0.34683, 0.15915, + 0.10282, 0.25977, 0.37299 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.30808, 0.17617, 4.61870, 0.35102, 0.16554, + 0.11009, 0.26503, 0.37713, + 0.31071, 0.17733, 4.62927, 0.35477, 0.17137, + 0.11673, 0.26979, 0.38083, + 0.31322, 0.17842, 4.63718, 0.35828, 0.17688, + 0.12300, 0.27429, 0.38430, + 0.31553, 0.17940, 4.63799, 0.36140, 0.18192, + 0.12873, 0.27833, 0.38737, + 0.31775, 0.18032, 4.63702, 0.36434, 0.18668, + 0.13417, 0.28216, 0.39025 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.32378, 0.19344, 2.02602, 0.18065, 0.00001, + 0.00013, 0.09672, 0.20947, + 0.33408, 0.19828, 2.21553, 0.18760, 0.01073, + 0.00010, 0.10656, 0.21627, + 0.34280, 0.20212, 2.34974, 0.19368, 0.02193, + 0.00010, 0.11512, 0.22214, + 0.35019, 0.20519, 2.44077, 0.19883, 0.03171, + 0.00009, 0.12248, 0.22704, + 0.35657, 0.20767, 2.50405, 0.20319, 0.04024, + 0.00174, 0.12888, 0.23123, + 0.36212, 0.20966, 2.54612, 0.20688, 0.04773, + 0.00923, 0.13440, 0.23464, + 0.36694, 0.21128, 2.57231, 0.21000, 0.05438, + 0.01724, 0.13922, 0.23754 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.37122, 0.21262, 2.58620, 0.21261, 0.06026, + 0.02415, 0.14338, 0.23995, + 0.37495, 0.21374, 2.59060, 0.21486, 0.06551, + 0.03029, 0.14706, 0.24189, + 0.37827, 0.21466, 2.58795, 0.21675, 0.07021, + 0.03579, 0.15027, 0.24351, + 0.38129, 0.21540, 2.58009, 0.21833, 0.07442, + 0.04073, 0.15309, 0.24486, + 0.38400, 0.21600, 2.56781, 0.21960, 0.07820, + 0.04515, 0.15556, 0.24588, + 0.38636, 0.21647, 2.55110, 0.22060, 0.08157, + 0.04907, 0.15769, 0.24668, + 0.38851, 0.21683, 2.53267, 0.22142, 0.08465, + 0.05268, 0.15958, 0.24731 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.39049, 0.21707, 2.51257, 0.22210, 0.08744, + 0.05603, 0.16125, 0.24778, + 0.39218, 0.21724, 2.49006, 0.22256, 0.08992, + 0.05899, 0.16267, 0.24803, + 0.39376, 0.21737, 2.46764, 0.22294, 0.09221, + 0.06173, 0.16397, 0.24819, + 0.39512, 0.21741, 2.44285, 0.22314, 0.09420, + 0.06415, 0.16500, 0.24815, + 0.39639, 0.21741, 2.41859, 0.22327, 0.09608, + 0.06642, 0.16593, 0.24807 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.38705, 0.22791, 1.67848, 0.14817, 0.00001, + 0.00002, 0.07975, 0.17740, + 0.39714, 0.23124, 1.77422, 0.15178, 0.00586, + 0.00000, 0.08615, 0.18044, + 0.40537, 0.23349, 1.83018, 0.15457, 0.01406, + 0.00001, 0.09157, 0.18286, + 0.41189, 0.23492, 1.85716, 0.15680, 0.02090, + 0.00002, 0.09599, 0.18462, + 0.41715, 0.23594, 1.86716, 0.15850, 0.02683, + 0.00123, 0.09964, 0.18582, + 0.42144, 0.23646, 1.86508, 0.15973, 0.03186, + 0.00619, 0.10264, 0.18656, + 0.42496, 0.23665, 1.85443, 0.16060, 0.03618, + 0.01140, 0.10512, 0.18697 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.42793, 0.23655, 1.83759, 0.16113, 0.03992, + 0.01584, 0.10718, 0.18712, + 0.43030, 0.23631, 1.81657, 0.16148, 0.04316, + 0.01967, 0.10886, 0.18701, + 0.43222, 0.23596, 1.79276, 0.16159, 0.04604, + 0.02302, 0.11022, 0.18672, + 0.43384, 0.23548, 1.76724, 0.16149, 0.04858, + 0.02601, 0.11135, 0.18631, + 0.43512, 0.23490, 1.74053, 0.16129, 0.05078, + 0.02866, 0.11228, 0.18575, + 0.43608, 0.23422, 1.71261, 0.16099, 0.05269, + 0.03102, 0.11295, 0.18505, + 0.43689, 0.23348, 1.68484, 0.16057, 0.05439, + 0.03311, 0.11349, 0.18431 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.43756, 0.23268, 1.65711, 0.16004, 0.05591, + 0.03494, 0.11394, 0.18350, + 0.43793, 0.23184, 1.62902, 0.15943, 0.05720, + 0.03656, 0.11422, 0.18259, + 0.43821, 0.23100, 1.60202, 0.15880, 0.05836, + 0.03806, 0.11442, 0.18168, + 0.43830, 0.23011, 1.57470, 0.15811, 0.05936, + 0.03941, 0.11448, 0.18069, + 0.43833, 0.22924, 1.54849, 0.15741, 0.06027, + 0.04063, 0.11450, 0.17971 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.43754, 0.25071, 1.44890, 0.12407, 0.00001, + 0.00006, 0.06695, 0.15239, + 0.44643, 0.25192, 1.48757, 0.12565, 0.00304, + 0.00007, 0.07142, 0.15331, + 0.45299, 0.25224, 1.49868, 0.12675, 0.00944, + 0.00005, 0.07501, 0.15362, + 0.45766, 0.25202, 1.49133, 0.12745, 0.01469, + 0.00005, 0.07775, 0.15348, + 0.46120, 0.25124, 1.47410, 0.12771, 0.01908, + 0.00094, 0.07989, 0.15309, + 0.46372, 0.25007, 1.45070, 0.12757, 0.02273, + 0.00452, 0.08151, 0.15255, + 0.46532, 0.24883, 1.42331, 0.12732, 0.02577, + 0.00814, 0.08274, 0.15166 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.46644, 0.24736, 1.39353, 0.12684, 0.02841, + 0.01115, 0.08368, 0.15060, + 0.46700, 0.24584, 1.36263, 0.12626, 0.03062, + 0.01379, 0.08435, 0.14943, + 0.46725, 0.24422, 1.33144, 0.12553, 0.03252, + 0.01606, 0.08483, 0.14823, + 0.46724, 0.24251, 1.30051, 0.12473, 0.03417, + 0.01802, 0.08513, 0.14703, + 0.46685, 0.24086, 1.26997, 0.12397, 0.03554, + 0.01976, 0.08529, 0.14573, + 0.46631, 0.23911, 1.23963, 0.12294, 0.03670, + 0.02121, 0.08532, 0.14449, + 0.46558, 0.23742, 1.21047, 0.12196, 0.03773, + 0.02250, 0.08526, 0.14315 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.46464, 0.23581, 1.18233, 0.12105, 0.03865, + 0.02364, 0.08514, 0.14168, + 0.46358, 0.23409, 1.15475, 0.12003, 0.03938, + 0.02464, 0.08489, 0.14035, + 0.46252, 0.23242, 1.12862, 0.11902, 0.04002, + 0.02556, 0.08461, 0.13907, + 0.46130, 0.23070, 1.10297, 0.11796, 0.04056, + 0.02632, 0.08428, 0.13771, + 0.46006, 0.22903, 1.07864, 0.11692, 0.04104, + 0.02702, 0.08396, 0.13640 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.47903, 0.26552, 1.27311, 0.10469, 0.00001, + 0.00008, 0.05621, 0.13136, + 0.48576, 0.26441, 1.27403, 0.10503, 0.00117, + 0.00009, 0.05940, 0.13069, + 0.49006, 0.26265, 1.25719, 0.10506, 0.00625, + 0.00007, 0.06171, 0.12988, + 0.49229, 0.26058, 1.22963, 0.10478, 0.01041, + 0.00008, 0.06340, 0.12858, + 0.49351, 0.25812, 1.19756, 0.10420, 0.01376, + 0.00068, 0.06463, 0.12725, + 0.49369, 0.25553, 1.16335, 0.10347, 0.01649, + 0.00333, 0.06545, 0.12575, + 0.49327, 0.25276, 1.12824, 0.10250, 0.01876, + 0.00596, 0.06597, 0.12423 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.49233, 0.24994, 1.09321, 0.10152, 0.02065, + 0.00814, 0.06626, 0.12264, + 0.49102, 0.24717, 1.05890, 0.10040, 0.02224, + 0.01001, 0.06640, 0.12100, + 0.48934, 0.24448, 1.02570, 0.09927, 0.02355, + 0.01159, 0.06639, 0.11938, + 0.48742, 0.24182, 0.99387, 0.09819, 0.02463, + 0.01294, 0.06626, 0.11780, + 0.48543, 0.23913, 0.96340, 0.09702, 0.02555, + 0.01414, 0.06601, 0.11627, + 0.48317, 0.23655, 0.93397, 0.09585, 0.02637, + 0.01512, 0.06571, 0.11459, + 0.48087, 0.23404, 0.90616, 0.09472, 0.02703, + 0.01598, 0.06537, 0.11298 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.47851, 0.23154, 0.87977, 0.09361, 0.02755, + 0.01672, 0.06497, 0.11147, + 0.47604, 0.22911, 0.85445, 0.09246, 0.02798, + 0.01734, 0.06453, 0.10994, + 0.47360, 0.22678, 0.83069, 0.09133, 0.02834, + 0.01791, 0.06409, 0.10846, + 0.47107, 0.22445, 0.80782, 0.09019, 0.02866, + 0.01836, 0.06359, 0.10706, + 0.46857, 0.22222, 0.78629, 0.08909, 0.02895, + 0.01878, 0.06311, 0.10568 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.51941, 0.27470, 1.09500, 0.08511, 0.00001, + 0.00011, 0.04574, 0.10917, + 0.52229, 0.27080, 1.06534, 0.08460, 0.00001, + 0.00007, 0.04781, 0.10749, + 0.52278, 0.26660, 1.02751, 0.08390, 0.00398, + 0.00010, 0.04926, 0.10553, + 0.52192, 0.26203, 0.98597, 0.08276, 0.00715, + 0.00007, 0.05009, 0.10376, + 0.51991, 0.25765, 0.94460, 0.08168, 0.00962, + 0.00055, 0.05061, 0.10185, + 0.51720, 0.25323, 0.90446, 0.08041, 0.01166, + 0.00240, 0.05084, 0.09988, + 0.51380, 0.24902, 0.86598, 0.07916, 0.01328, + 0.00428, 0.05083, 0.09795 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.51016, 0.24493, 0.82946, 0.07788, 0.01459, + 0.00575, 0.05071, 0.09594, + 0.50633, 0.24089, 0.79505, 0.07663, 0.01567, + 0.00695, 0.05045, 0.09399, + 0.50236, 0.23699, 0.76276, 0.07532, 0.01653, + 0.00800, 0.05007, 0.09221, + 0.49832, 0.23327, 0.73257, 0.07400, 0.01720, + 0.00890, 0.04965, 0.09050, + 0.49415, 0.22975, 0.70432, 0.07283, 0.01775, + 0.00962, 0.04921, 0.08875, + 0.48999, 0.22627, 0.67772, 0.07158, 0.01824, + 0.01026, 0.04873, 0.08701, + 0.48589, 0.22292, 0.65298, 0.07034, 0.01865, + 0.01080, 0.04823, 0.08540 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.48187, 0.21967, 0.62985, 0.06909, 0.01897, + 0.01125, 0.04771, 0.08392, + 0.47769, 0.21659, 0.60792, 0.06800, 0.01920, + 0.01164, 0.04718, 0.08239, + 0.47363, 0.21364, 0.58752, 0.06695, 0.01938, + 0.01199, 0.04666, 0.08090, + 0.46965, 0.21075, 0.56824, 0.06582, 0.01948, + 0.01224, 0.04612, 0.07956, + 0.46577, 0.20799, 0.55024, 0.06475, 0.01957, + 0.01247, 0.04559, 0.07824 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.54929, 0.27613, 0.94589, 0.06900, 0.00001, + 0.00016, 0.03716, 0.09060, + 0.54748, 0.26969, 0.89751, 0.06820, 0.00001, + 0.00017, 0.03860, 0.08809, + 0.54403, 0.26305, 0.84810, 0.06691, 0.00246, + 0.00018, 0.03938, 0.08593, + 0.53927, 0.25671, 0.80009, 0.06575, 0.00492, + 0.00012, 0.03977, 0.08356, + 0.53384, 0.25076, 0.75528, 0.06440, 0.00689, + 0.00045, 0.03985, 0.08129, + 0.52793, 0.24495, 0.71393, 0.06302, 0.00836, + 0.00180, 0.03967, 0.07924, + 0.52182, 0.23942, 0.67574, 0.06163, 0.00957, + 0.00312, 0.03938, 0.07718 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.51565, 0.23413, 0.64056, 0.06017, 0.01051, + 0.00411, 0.03904, 0.07522, + 0.50940, 0.22918, 0.60823, 0.05883, 0.01121, + 0.00497, 0.03860, 0.07330, + 0.50321, 0.22445, 0.57857, 0.05756, 0.01177, + 0.00568, 0.03815, 0.07144, + 0.49713, 0.21995, 0.55131, 0.05629, 0.01222, + 0.00626, 0.03770, 0.06967, + 0.49111, 0.21573, 0.52613, 0.05506, 0.01264, + 0.00680, 0.03715, 0.06798, + 0.48518, 0.21162, 0.50286, 0.05391, 0.01288, + 0.00719, 0.03660, 0.06642, + 0.47939, 0.20772, 0.48150, 0.05280, 0.01308, + 0.00755, 0.03604, 0.06494 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.47371, 0.20401, 0.46179, 0.05170, 0.01324, + 0.00789, 0.03546, 0.06357, + 0.46819, 0.20040, 0.44326, 0.05065, 0.01339, + 0.00808, 0.03491, 0.06217, + 0.46290, 0.19698, 0.42615, 0.04964, 0.01350, + 0.00824, 0.03439, 0.06085, + 0.45765, 0.19369, 0.41013, 0.04859, 0.01356, + 0.00841, 0.03383, 0.05965, + 0.45260, 0.19056, 0.39528, 0.04762, 0.01359, + 0.00855, 0.03331, 0.05850 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.56922, 0.27224, 0.81692, 0.05614, 0.00001, + 0.00003, 0.03009, 0.07459, + 0.56291, 0.26296, 0.75773, 0.05482, 0.00001, + 0.00004, 0.03100, 0.07212, + 0.55504, 0.25447, 0.70292, 0.05349, 0.00138, + 0.00001, 0.03139, 0.06967, + 0.54651, 0.24646, 0.65280, 0.05194, 0.00340, + 0.00000, 0.03150, 0.06729, + 0.53766, 0.23907, 0.60795, 0.05060, 0.00496, + 0.00028, 0.03132, 0.06499, + 0.52887, 0.23214, 0.56790, 0.04913, 0.00612, + 0.00125, 0.03108, 0.06281, + 0.52020, 0.22554, 0.53185, 0.04775, 0.00695, + 0.00220, 0.03070, 0.06081 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.51150, 0.21953, 0.49937, 0.04643, 0.00763, + 0.00306, 0.03033, 0.05882, + 0.50307, 0.21382, 0.47006, 0.04512, 0.00819, + 0.00366, 0.02980, 0.05707, + 0.49484, 0.20850, 0.44355, 0.04391, 0.00858, + 0.00413, 0.02922, 0.05544, + 0.48689, 0.20350, 0.41957, 0.04278, 0.00888, + 0.00455, 0.02865, 0.05385, + 0.47941, 0.19857, 0.39788, 0.04159, 0.00915, + 0.00489, 0.02812, 0.05240, + 0.47197, 0.19404, 0.37794, 0.04048, 0.00936, + 0.00517, 0.02761, 0.05095, + 0.46479, 0.18978, 0.35974, 0.03944, 0.00949, + 0.00539, 0.02711, 0.04959 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.45787, 0.18575, 0.34305, 0.03849, 0.00956, + 0.00556, 0.02664, 0.04831, + 0.45103, 0.18202, 0.32767, 0.03762, 0.00967, + 0.00568, 0.02610, 0.04700, + 0.44449, 0.17850, 0.31357, 0.03679, 0.00974, + 0.00578, 0.02559, 0.04575, + 0.43819, 0.17500, 0.30049, 0.03594, 0.00971, + 0.00589, 0.02510, 0.04472, + 0.43217, 0.17168, 0.28842, 0.03514, 0.00969, + 0.00598, 0.02464, 0.04371 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.58081, 0.26374, 0.70391, 0.04529, 0.00001, + 0.00007, 0.02417, 0.06112, + 0.56913, 0.25252, 0.63960, 0.04406, 0.00001, + 0.00001, 0.02475, 0.05849, + 0.55698, 0.24242, 0.58320, 0.04276, 0.00076, + 0.00005, 0.02497, 0.05579, + 0.54495, 0.23289, 0.53394, 0.04114, 0.00236, + 0.00006, 0.02485, 0.05373, + 0.53302, 0.22452, 0.49127, 0.03981, 0.00351, + 0.00033, 0.02459, 0.05150, + 0.52143, 0.21671, 0.45407, 0.03851, 0.00438, + 0.00095, 0.02425, 0.04946, + 0.51033, 0.20946, 0.42092, 0.03718, 0.00508, + 0.00165, 0.02372, 0.04765 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.49960, 0.20275, 0.39167, 0.03591, 0.00552, + 0.00218, 0.02324, 0.04603, + 0.48912, 0.19669, 0.36585, 0.03476, 0.00591, + 0.00261, 0.02271, 0.04443, + 0.47913, 0.19105, 0.34281, 0.03370, 0.00625, + 0.00296, 0.02222, 0.04280, + 0.46966, 0.18573, 0.32214, 0.03268, 0.00648, + 0.00324, 0.02177, 0.04128, + 0.46057, 0.18075, 0.30354, 0.03164, 0.00659, + 0.00344, 0.02125, 0.04012, + 0.45181, 0.17611, 0.28666, 0.03073, 0.00670, + 0.00362, 0.02078, 0.03879, + 0.44352, 0.17168, 0.27142, 0.02985, 0.00678, + 0.00376, 0.02032, 0.03760 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.43562, 0.16741, 0.25758, 0.02901, 0.00682, + 0.00387, 0.01987, 0.03658, + 0.42792, 0.16347, 0.24484, 0.02826, 0.00685, + 0.00395, 0.01939, 0.03551, + 0.42060, 0.15978, 0.23322, 0.02757, 0.00688, + 0.00401, 0.01893, 0.03450, + 0.41351, 0.15627, 0.22260, 0.02685, 0.00685, + 0.00402, 0.01853, 0.03357, + 0.40677, 0.15295, 0.21285, 0.02617, 0.00682, + 0.00405, 0.01813, 0.03269 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.58431, 0.25189, 0.60417, 0.03646, 0.00001, + 0.00010, 0.01929, 0.04964, + 0.56777, 0.23891, 0.53850, 0.03517, 0.00001, + 0.00004, 0.01974, 0.04718, + 0.55177, 0.22725, 0.48351, 0.03374, 0.00024, + 0.00002, 0.01971, 0.04494, + 0.53576, 0.21744, 0.43649, 0.03247, 0.00147, + 0.00009, 0.01945, 0.04281, + 0.52113, 0.20808, 0.39690, 0.03117, 0.00243, + 0.00023, 0.01915, 0.04085, + 0.50719, 0.19965, 0.36291, 0.02987, 0.00318, + 0.00071, 0.01874, 0.03900, + 0.49382, 0.19211, 0.33354, 0.02869, 0.00368, + 0.00125, 0.01833, 0.03734 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.48110, 0.18524, 0.30784, 0.02771, 0.00402, + 0.00162, 0.01786, 0.03572, + 0.46912, 0.17885, 0.28540, 0.02672, 0.00430, + 0.00183, 0.01744, 0.03423, + 0.45786, 0.17289, 0.26566, 0.02576, 0.00451, + 0.00208, 0.01698, 0.03293, + 0.44717, 0.16742, 0.24811, 0.02487, 0.00465, + 0.00237, 0.01647, 0.03175, + 0.43683, 0.16250, 0.23236, 0.02415, 0.00479, + 0.00256, 0.01604, 0.03044, + 0.42726, 0.15763, 0.21825, 0.02322, 0.00486, + 0.00263, 0.01554, 0.02956, + 0.41814, 0.15315, 0.20559, 0.02242, 0.00489, + 0.00265, 0.01509, 0.02866 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.40940, 0.14904, 0.19418, 0.02179, 0.00493, + 0.00264, 0.01470, 0.02766, + 0.40101, 0.14511, 0.18386, 0.02116, 0.00487, + 0.00277, 0.01433, 0.02685, + 0.39307, 0.14143, 0.17451, 0.02056, 0.00480, + 0.00289, 0.01397, 0.02608, + 0.38535, 0.13802, 0.16599, 0.02004, 0.00481, + 0.00287, 0.01363, 0.02522, + 0.37806, 0.13481, 0.15816, 0.01953, 0.00481, + 0.00285, 0.01332, 0.02443 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.58064, 0.23760, 0.51600, 0.02917, 0.00001, + 0.00012, 0.01540, 0.03991, + 0.55948, 0.22329, 0.45166, 0.02789, 0.00001, + 0.00001, 0.01556, 0.03781, + 0.53981, 0.21063, 0.39929, 0.02646, 0.00001, + 0.00010, 0.01557, 0.03574, + 0.52120, 0.19956, 0.35603, 0.02526, 0.00117, + 0.00013, 0.01533, 0.03362, + 0.50380, 0.19000, 0.32010, 0.02403, 0.00191, + 0.00011, 0.01494, 0.03195, + 0.48732, 0.18173, 0.28972, 0.02317, 0.00242, + 0.00056, 0.01446, 0.03025, + 0.47222, 0.17395, 0.26391, 0.02210, 0.00280, + 0.00095, 0.01403, 0.02894 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.45794, 0.16705, 0.24174, 0.02115, 0.00297, + 0.00115, 0.01367, 0.02767, + 0.44478, 0.16052, 0.22254, 0.02031, 0.00316, + 0.00140, 0.01328, 0.02639, + 0.43239, 0.15456, 0.20564, 0.01949, 0.00330, + 0.00158, 0.01286, 0.02531, + 0.42063, 0.14922, 0.19076, 0.01873, 0.00336, + 0.00168, 0.01246, 0.02434, + 0.40962, 0.14417, 0.17781, 0.01815, 0.00345, + 0.00175, 0.01207, 0.02331, + 0.39917, 0.13957, 0.16626, 0.01754, 0.00351, + 0.00184, 0.01174, 0.02227, + 0.38942, 0.13524, 0.15594, 0.01690, 0.00351, + 0.00190, 0.01138, 0.02147 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.38027, 0.13112, 0.14666, 0.01620, 0.00344, + 0.00192, 0.01100, 0.02094, + 0.37165, 0.12728, 0.13833, 0.01561, 0.00348, + 0.00197, 0.01069, 0.02014, + 0.36348, 0.12371, 0.13080, 0.01507, 0.00352, + 0.00201, 0.01041, 0.01937, + 0.35533, 0.12043, 0.12395, 0.01469, 0.00351, + 0.00199, 0.01009, 0.01877, + 0.34770, 0.11731, 0.11770, 0.01430, 0.00347, + 0.00197, 0.00980, 0.01821 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.57111, 0.22103, 0.43807, 0.02287, 0.00001, + 0.00005, 0.01226, 0.03207, + 0.54551, 0.20592, 0.37693, 0.02184, 0.00001, + 0.00001, 0.01235, 0.02969, + 0.52179, 0.19327, 0.32854, 0.02080, 0.00001, + 0.00014, 0.01224, 0.02785, + 0.50061, 0.18188, 0.28928, 0.01959, 0.00072, + 0.00019, 0.01185, 0.02645, + 0.48087, 0.17234, 0.25737, 0.01878, 0.00131, + 0.00016, 0.01148, 0.02480, + 0.46300, 0.16370, 0.23068, 0.01782, 0.00172, + 0.00044, 0.01112, 0.02346, + 0.44632, 0.15611, 0.20830, 0.01701, 0.00201, + 0.00078, 0.01077, 0.02219 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.43115, 0.14904, 0.18953, 0.01621, 0.00223, + 0.00095, 0.01040, 0.02109, + 0.41705, 0.14265, 0.17326, 0.01547, 0.00233, + 0.00105, 0.00997, 0.02016, + 0.40390, 0.13682, 0.15918, 0.01477, 0.00244, + 0.00114, 0.00966, 0.01916, + 0.39162, 0.13151, 0.14698, 0.01413, 0.00255, + 0.00123, 0.00942, 0.01820, + 0.38001, 0.12682, 0.13626, 0.01354, 0.00255, + 0.00128, 0.00905, 0.01749, + 0.36919, 0.12235, 0.12671, 0.01302, 0.00261, + 0.00129, 0.00877, 0.01669, + 0.35907, 0.11817, 0.11830, 0.01260, 0.00261, + 0.00132, 0.00846, 0.01598 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.34958, 0.11424, 0.11086, 0.01225, 0.00257, + 0.00137, 0.00812, 0.01536, + 0.34051, 0.11069, 0.10413, 0.01173, 0.00253, + 0.00141, 0.00786, 0.01490, + 0.33203, 0.10737, 0.09807, 0.01122, 0.00249, + 0.00144, 0.00761, 0.01448, + 0.32413, 0.10416, 0.09259, 0.01071, 0.00247, + 0.00143, 0.00741, 0.01400, + 0.31662, 0.10116, 0.08763, 0.01029, 0.00245, + 0.00143, 0.00721, 0.01354 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.55574, 0.20330, 0.36960, 0.01767, 0.00001, + 0.00010, 0.00947, 0.02555, + 0.52600, 0.18794, 0.31264, 0.01686, 0.00001, + 0.00010, 0.00964, 0.02346, + 0.49962, 0.17484, 0.26862, 0.01583, 0.00001, + 0.00006, 0.00947, 0.02209, + 0.47570, 0.16396, 0.23397, 0.01518, 0.00055, + 0.00007, 0.00915, 0.02040, + 0.45458, 0.15419, 0.20585, 0.01416, 0.00100, + 0.00003, 0.00886, 0.01924, + 0.43545, 0.14564, 0.18290, 0.01335, 0.00127, + 0.00034, 0.00851, 0.01822, + 0.41791, 0.13809, 0.16403, 0.01272, 0.00148, + 0.00056, 0.00826, 0.01707 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.40173, 0.13142, 0.14795, 0.01209, 0.00167, + 0.00071, 0.00790, 0.01612, + 0.38688, 0.12536, 0.13442, 0.01150, 0.00176, + 0.00076, 0.00763, 0.01529, + 0.37319, 0.11983, 0.12279, 0.01101, 0.00181, + 0.00081, 0.00734, 0.01447, + 0.36054, 0.11480, 0.11264, 0.01057, 0.00185, + 0.00088, 0.00704, 0.01371, + 0.34888, 0.11015, 0.10386, 0.01003, 0.00190, + 0.00088, 0.00679, 0.01306, + 0.33783, 0.10589, 0.09622, 0.00943, 0.00185, + 0.00095, 0.00649, 0.01274, + 0.32754, 0.10199, 0.08949, 0.00902, 0.00182, + 0.00099, 0.00624, 0.01231 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.31793, 0.09840, 0.08351, 0.00879, 0.00183, + 0.00099, 0.00604, 0.01173, + 0.30904, 0.09502, 0.07817, 0.00833, 0.00184, + 0.00102, 0.00582, 0.01127, + 0.30072, 0.09189, 0.07339, 0.00790, 0.00185, + 0.00104, 0.00562, 0.01085, + 0.29260, 0.08896, 0.06908, 0.00775, 0.00183, + 0.00102, 0.00547, 0.01038, + 0.28499, 0.08622, 0.06517, 0.00755, 0.00180, + 0.00100, 0.00530, 0.00997 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.53468, 0.18644, 0.30992, 0.01431, 0.00001, + 0.00010, 0.00710, 0.01988, + 0.50199, 0.17050, 0.25795, 0.01337, 0.00001, + 0.00015, 0.00717, 0.01845, + 0.47310, 0.15765, 0.21878, 0.01268, 0.00001, + 0.00009, 0.00712, 0.01677, + 0.44805, 0.14641, 0.18824, 0.01173, 0.00022, + 0.00005, 0.00692, 0.01571, + 0.42567, 0.13694, 0.16411, 0.01092, 0.00051, + 0.00007, 0.00662, 0.01483, + 0.40534, 0.12883, 0.14463, 0.01043, 0.00087, + 0.00009, 0.00631, 0.01374, + 0.38730, 0.12153, 0.12866, 0.00971, 0.00099, + 0.00030, 0.00608, 0.01298 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.37099, 0.11516, 0.11540, 0.00900, 0.00108, + 0.00040, 0.00584, 0.01221, + 0.35594, 0.10942, 0.10413, 0.00859, 0.00116, + 0.00047, 0.00557, 0.01146, + 0.34191, 0.10425, 0.09454, 0.00818, 0.00124, + 0.00052, 0.00533, 0.01093, + 0.32898, 0.09954, 0.08634, 0.00773, 0.00127, + 0.00057, 0.00511, 0.01048, + 0.31740, 0.09512, 0.07921, 0.00727, 0.00128, + 0.00062, 0.00497, 0.00995, + 0.30651, 0.09117, 0.07308, 0.00701, 0.00134, + 0.00064, 0.00477, 0.00937, + 0.29641, 0.08754, 0.06770, 0.00674, 0.00135, + 0.00067, 0.00459, 0.00889 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28701, 0.08417, 0.06294, 0.00644, 0.00131, + 0.00070, 0.00440, 0.00854, + 0.27811, 0.08105, 0.05868, 0.00620, 0.00128, + 0.00072, 0.00424, 0.00821, + 0.26980, 0.07818, 0.05488, 0.00598, 0.00126, + 0.00072, 0.00408, 0.00790, + 0.26191, 0.07551, 0.05148, 0.00575, 0.00121, + 0.00069, 0.00392, 0.00755, + 0.25453, 0.07303, 0.04844, 0.00555, 0.00119, + 0.00067, 0.00377, 0.00724 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.51001, 0.16744, 0.25712, 0.01042, 0.00001, + 0.00016, 0.00576, 0.01548, + 0.47435, 0.15211, 0.21080, 0.00987, 0.00001, + 0.00012, 0.00572, 0.01411, + 0.44362, 0.13980, 0.17632, 0.00937, 0.00001, + 0.00010, 0.00556, 0.01290, + 0.41735, 0.12893, 0.15023, 0.00854, 0.00028, + 0.00011, 0.00529, 0.01207, + 0.39401, 0.12009, 0.12987, 0.00802, 0.00059, + 0.00013, 0.00512, 0.01106, + 0.37373, 0.11232, 0.11352, 0.00745, 0.00072, + 0.00019, 0.00490, 0.01025, + 0.35538, 0.10550, 0.10022, 0.00681, 0.00085, + 0.00028, 0.00468, 0.00986 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33875, 0.09943, 0.08923, 0.00646, 0.00085, + 0.00037, 0.00446, 0.00934, + 0.32350, 0.09408, 0.07999, 0.00612, 0.00089, + 0.00044, 0.00423, 0.00880, + 0.30978, 0.08932, 0.07224, 0.00579, 0.00091, + 0.00048, 0.00402, 0.00822, + 0.29728, 0.08500, 0.06567, 0.00555, 0.00092, + 0.00046, 0.00385, 0.00762, + 0.28535, 0.08117, 0.05998, 0.00546, 0.00095, + 0.00041, 0.00361, 0.00719, + 0.27482, 0.07760, 0.05506, 0.00514, 0.00096, + 0.00045, 0.00347, 0.00673, + 0.26499, 0.07430, 0.05080, 0.00488, 0.00097, + 0.00049, 0.00334, 0.00640 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.25571, 0.07123, 0.04710, 0.00471, 0.00095, + 0.00051, 0.00322, 0.00621, + 0.24708, 0.06847, 0.04375, 0.00459, 0.00094, + 0.00051, 0.00311, 0.00585, + 0.23908, 0.06592, 0.04076, 0.00446, 0.00093, + 0.00049, 0.00298, 0.00553, + 0.23161, 0.06342, 0.03814, 0.00413, 0.00087, + 0.00048, 0.00282, 0.00543, + 0.22462, 0.06114, 0.03579, 0.00388, 0.00084, + 0.00047, 0.00268, 0.00531 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.48143, 0.15030, 0.21210, 0.00845, 0.00001, + 0.00005, 0.00419, 0.01161, + 0.44392, 0.13520, 0.17131, 0.00785, 0.00001, + 0.00002, 0.00414, 0.01082, + 0.41269, 0.12290, 0.14174, 0.00699, 0.00001, + 0.00001, 0.00408, 0.00990, + 0.38528, 0.11304, 0.11944, 0.00662, 0.00003, + 0.00004, 0.00384, 0.00915, + 0.36162, 0.10452, 0.10216, 0.00635, 0.00031, + 0.00001, 0.00369, 0.00831, + 0.34133, 0.09730, 0.08863, 0.00565, 0.00041, + 0.00011, 0.00355, 0.00786, + 0.32322, 0.09092, 0.07769, 0.00515, 0.00050, + 0.00019, 0.00340, 0.00737 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.30648, 0.08540, 0.06870, 0.00498, 0.00053, + 0.00024, 0.00315, 0.00691, + 0.29150, 0.08053, 0.06124, 0.00479, 0.00056, + 0.00024, 0.00301, 0.00638, + 0.27806, 0.07615, 0.05501, 0.00453, 0.00062, + 0.00027, 0.00287, 0.00591, + 0.26593, 0.07222, 0.04974, 0.00424, 0.00066, + 0.00032, 0.00268, 0.00559, + 0.25499, 0.06864, 0.04523, 0.00391, 0.00064, + 0.00031, 0.00248, 0.00532, + 0.24438, 0.06539, 0.04137, 0.00384, 0.00061, + 0.00032, 0.00239, 0.00507, + 0.23485, 0.06243, 0.03801, 0.00368, 0.00059, + 0.00029, 0.00230, 0.00476 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.22631, 0.05973, 0.03508, 0.00341, 0.00058, + 0.00023, 0.00221, 0.00436, + 0.21824, 0.05722, 0.03249, 0.00321, 0.00061, + 0.00028, 0.00213, 0.00416, + 0.21071, 0.05492, 0.03021, 0.00303, 0.00063, + 0.00034, 0.00205, 0.00401, + 0.20347, 0.05276, 0.02819, 0.00296, 0.00060, + 0.00032, 0.00198, 0.00388, + 0.19675, 0.05076, 0.02639, 0.00287, 0.00057, + 0.00031, 0.00190, 0.00375 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.45008, 0.13260, 0.17320, 0.00618, 0.00001, + 0.00007, 0.00314, 0.00891, + 0.41192, 0.11829, 0.13788, 0.00522, 0.00001, + 0.00005, 0.00315, 0.00831, + 0.37894, 0.10726, 0.11273, 0.00537, 0.00001, + 0.00005, 0.00320, 0.00730, + 0.35199, 0.09767, 0.09393, 0.00460, 0.00014, + 0.00004, 0.00304, 0.00681, + 0.32854, 0.08982, 0.07961, 0.00433, 0.00029, + 0.00004, 0.00278, 0.00623, + 0.30807, 0.08325, 0.06846, 0.00407, 0.00034, + 0.00007, 0.00254, 0.00584, + 0.29033, 0.07749, 0.05963, 0.00382, 0.00037, + 0.00014, 0.00250, 0.00532 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.27430, 0.07241, 0.05237, 0.00369, 0.00041, + 0.00016, 0.00241, 0.00491, + 0.25988, 0.06804, 0.04646, 0.00350, 0.00039, + 0.00018, 0.00221, 0.00458, + 0.24713, 0.06408, 0.04151, 0.00322, 0.00040, + 0.00018, 0.00206, 0.00430, + 0.23563, 0.06047, 0.03732, 0.00299, 0.00043, + 0.00019, 0.00199, 0.00405, + 0.22491, 0.05733, 0.03382, 0.00290, 0.00048, + 0.00025, 0.00196, 0.00374, + 0.21496, 0.05444, 0.03081, 0.00277, 0.00048, + 0.00026, 0.00181, 0.00360, + 0.20592, 0.05186, 0.02820, 0.00264, 0.00048, + 0.00025, 0.00170, 0.00342 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.19766, 0.04953, 0.02594, 0.00254, 0.00049, + 0.00022, 0.00165, 0.00319, + 0.19013, 0.04732, 0.02397, 0.00233, 0.00042, + 0.00020, 0.00151, 0.00300, + 0.18318, 0.04530, 0.02223, 0.00215, 0.00036, + 0.00018, 0.00139, 0.00284, + 0.17651, 0.04341, 0.02069, 0.00210, 0.00037, + 0.00020, 0.00137, 0.00275, + 0.17032, 0.04169, 0.01932, 0.00207, 0.00037, + 0.00022, 0.00133, 0.00264 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.41712, 0.11629, 0.14022, 0.00432, 0.00001, + 0.00002, 0.00236, 0.00653, + 0.37810, 0.10295, 0.11010, 0.00412, 0.00001, + 0.00000, 0.00225, 0.00606, + 0.34576, 0.09234, 0.08892, 0.00394, 0.00001, + 0.00000, 0.00216, 0.00548, + 0.31875, 0.08382, 0.07332, 0.00362, 0.00001, + 0.00002, 0.00208, 0.00503, + 0.29611, 0.07673, 0.06161, 0.00316, 0.00009, + 0.00005, 0.00201, 0.00465, + 0.27629, 0.07075, 0.05263, 0.00310, 0.00014, + 0.00007, 0.00188, 0.00419, + 0.25887, 0.06561, 0.04548, 0.00296, 0.00013, + 0.00010, 0.00171, 0.00383 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.24353, 0.06107, 0.03971, 0.00279, 0.00020, + 0.00012, 0.00158, 0.00359, + 0.23012, 0.05707, 0.03505, 0.00250, 0.00027, + 0.00013, 0.00148, 0.00337, + 0.21796, 0.05359, 0.03115, 0.00233, 0.00027, + 0.00013, 0.00142, 0.00309, + 0.20690, 0.05050, 0.02789, 0.00223, 0.00026, + 0.00011, 0.00136, 0.00281, + 0.19711, 0.04763, 0.02518, 0.00195, 0.00023, + 0.00008, 0.00122, 0.00264, + 0.18796, 0.04507, 0.02282, 0.00194, 0.00030, + 0.00011, 0.00121, 0.00249, + 0.17954, 0.04276, 0.02081, 0.00188, 0.00031, + 0.00013, 0.00117, 0.00236 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.17178, 0.04070, 0.01909, 0.00176, 0.00025, + 0.00013, 0.00105, 0.00225, + 0.16454, 0.03886, 0.01758, 0.00177, 0.00024, + 0.00013, 0.00101, 0.00211, + 0.15792, 0.03715, 0.01626, 0.00178, 0.00024, + 0.00013, 0.00098, 0.00198, + 0.15195, 0.03550, 0.01510, 0.00169, 0.00022, + 0.00012, 0.00092, 0.00185, + 0.14644, 0.03401, 0.01406, 0.00160, 0.00021, + 0.00010, 0.00088, 0.00177 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.38206, 0.10053, 0.11228, 0.00327, 0.00001, + 0.00005, 0.00172, 0.00507, + 0.34325, 0.08824, 0.08682, 0.00282, 0.00001, + 0.00003, 0.00178, 0.00455, + 0.31172, 0.07860, 0.06915, 0.00254, 0.00001, + 0.00000, 0.00159, 0.00414, + 0.28536, 0.07069, 0.05647, 0.00246, 0.00001, + 0.00001, 0.00154, 0.00368, + 0.26319, 0.06430, 0.04697, 0.00231, 0.00007, + 0.00001, 0.00151, 0.00323, + 0.24469, 0.05896, 0.03978, 0.00197, 0.00014, + 0.00005, 0.00137, 0.00294, + 0.22832, 0.05439, 0.03413, 0.00179, 0.00021, + 0.00007, 0.00125, 0.00278 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.21374, 0.05048, 0.02961, 0.00179, 0.00019, + 0.00008, 0.00116, 0.00250, + 0.20061, 0.04698, 0.02596, 0.00180, 0.00018, + 0.00009, 0.00107, 0.00232, + 0.18916, 0.04390, 0.02296, 0.00169, 0.00021, + 0.00008, 0.00099, 0.00214, + 0.17911, 0.04120, 0.02047, 0.00154, 0.00022, + 0.00006, 0.00092, 0.00193, + 0.16987, 0.03878, 0.01837, 0.00153, 0.00018, + 0.00007, 0.00091, 0.00173, + 0.16149, 0.03662, 0.01661, 0.00139, 0.00022, + 0.00011, 0.00087, 0.00168, + 0.15387, 0.03467, 0.01510, 0.00132, 0.00021, + 0.00012, 0.00082, 0.00160 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.14688, 0.03289, 0.01380, 0.00129, 0.00018, + 0.00009, 0.00077, 0.00147, + 0.14069, 0.03128, 0.01266, 0.00109, 0.00019, + 0.00010, 0.00074, 0.00139, + 0.13500, 0.02980, 0.01167, 0.00090, 0.00020, + 0.00011, 0.00072, 0.00135, + 0.12947, 0.02845, 0.01082, 0.00088, 0.00021, + 0.00010, 0.00067, 0.00127, + 0.12433, 0.02719, 0.01006, 0.00087, 0.00021, + 0.00010, 0.00064, 0.00120 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.34692, 0.08632, 0.08902, 0.00231, 0.00001, + 0.00004, 0.00112, 0.00371, + 0.30859, 0.07504, 0.06780, 0.00211, 0.00001, + 0.00007, 0.00112, 0.00336, + 0.27798, 0.06636, 0.05334, 0.00186, 0.00001, + 0.00004, 0.00112, 0.00292, + 0.25287, 0.05941, 0.04318, 0.00187, 0.00001, + 0.00006, 0.00102, 0.00254, + 0.23210, 0.05375, 0.03564, 0.00170, 0.00006, + 0.00002, 0.00094, 0.00235, + 0.21427, 0.04900, 0.02992, 0.00167, 0.00010, + 0.00001, 0.00094, 0.00202, + 0.19894, 0.04498, 0.02548, 0.00149, 0.00015, + 0.00000, 0.00090, 0.00188 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.18543, 0.04154, 0.02201, 0.00145, 0.00014, + 0.00001, 0.00078, 0.00166, + 0.17366, 0.03850, 0.01918, 0.00143, 0.00016, + 0.00001, 0.00077, 0.00147, + 0.16319, 0.03585, 0.01688, 0.00130, 0.00016, + 0.00003, 0.00074, 0.00142, + 0.15383, 0.03352, 0.01498, 0.00114, 0.00014, + 0.00003, 0.00066, 0.00140, + 0.14562, 0.03145, 0.01338, 0.00100, 0.00015, + 0.00002, 0.00061, 0.00124, + 0.13794, 0.02964, 0.01206, 0.00094, 0.00012, + 0.00004, 0.00055, 0.00117, + 0.13100, 0.02797, 0.01093, 0.00088, 0.00011, + 0.00006, 0.00052, 0.00114 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.12476, 0.02642, 0.00996, 0.00081, 0.00010, + 0.00006, 0.00051, 0.00112, + 0.11904, 0.02506, 0.00912, 0.00079, 0.00011, + 0.00006, 0.00049, 0.00102, + 0.11380, 0.02383, 0.00839, 0.00075, 0.00011, + 0.00006, 0.00045, 0.00093, + 0.10895, 0.02270, 0.00775, 0.00065, 0.00011, + 0.00006, 0.00045, 0.00091, + 0.10450, 0.02165, 0.00718, 0.00056, 0.00012, + 0.00007, 0.00044, 0.00087 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.31151, 0.07292, 0.06946, 0.00131, 0.00001, + 0.00006, 0.00082, 0.00263, + 0.27445, 0.06298, 0.05230, 0.00142, 0.00001, + 0.00000, 0.00079, 0.00246, + 0.24504, 0.05525, 0.04072, 0.00153, 0.00001, + 0.00003, 0.00083, 0.00213, + 0.22200, 0.04908, 0.03254, 0.00120, 0.00001, + 0.00001, 0.00074, 0.00193, + 0.20199, 0.04417, 0.02665, 0.00136, 0.00001, + 0.00002, 0.00067, 0.00161, + 0.18553, 0.04009, 0.02221, 0.00129, 0.00002, + 0.00000, 0.00065, 0.00144, + 0.17141, 0.03666, 0.01880, 0.00120, 0.00001, + 0.00002, 0.00054, 0.00126 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.15945, 0.03367, 0.01611, 0.00101, 0.00006, + 0.00001, 0.00050, 0.00117, + 0.14873, 0.03110, 0.01396, 0.00088, 0.00009, + 0.00001, 0.00049, 0.00114, + 0.13929, 0.02888, 0.01223, 0.00077, 0.00009, + 0.00002, 0.00046, 0.00103, + 0.13092, 0.02692, 0.01081, 0.00073, 0.00007, + 0.00001, 0.00042, 0.00089, + 0.12319, 0.02519, 0.00963, 0.00077, 0.00006, + 0.00000, 0.00039, 0.00083, + 0.11656, 0.02361, 0.00864, 0.00063, 0.00009, + 0.00002, 0.00039, 0.00075, + 0.11050, 0.02221, 0.00780, 0.00052, 0.00010, + 0.00004, 0.00036, 0.00073 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.10485, 0.02096, 0.00708, 0.00047, 0.00010, + 0.00004, 0.00034, 0.00076, + 0.09971, 0.01983, 0.00647, 0.00046, 0.00011, + 0.00006, 0.00035, 0.00071, + 0.09503, 0.01880, 0.00594, 0.00046, 0.00011, + 0.00007, 0.00035, 0.00066, + 0.09066, 0.01785, 0.00547, 0.00042, 0.00009, + 0.00004, 0.00030, 0.00065, + 0.08668, 0.01698, 0.00506, 0.00039, 0.00006, + 0.00002, 0.00026, 0.00063 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + 0.27586, 0.06106, 0.05362, 0.00136, 0.00001, + 0.00004, 0.00053, 0.00190, + 0.24121, 0.05212, 0.03974, 0.00117, 0.00001, + 0.00008, 0.00054, 0.00159, + 0.21378, 0.04540, 0.03052, 0.00125, 0.00001, + 0.00004, 0.00043, 0.00126, + 0.19198, 0.04014, 0.02414, 0.00093, 0.00001, + 0.00003, 0.00045, 0.00127, + 0.17388, 0.03586, 0.01958, 0.00092, 0.00001, + 0.00005, 0.00041, 0.00107, + 0.15912, 0.03230, 0.01618, 0.00076, 0.00001, + 0.00006, 0.00040, 0.00090, + 0.14625, 0.02939, 0.01360, 0.00067, 0.00005, + 0.00002, 0.00040, 0.00085 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.13527, 0.02689, 0.01159, 0.00055, 0.00003, + 0.00001, 0.00038, 0.00085, + 0.12565, 0.02474, 0.00999, 0.00053, 0.00006, + 0.00000, 0.00034, 0.00072, + 0.11705, 0.02287, 0.00871, 0.00058, 0.00008, + 0.00002, 0.00032, 0.00063, + 0.10945, 0.02123, 0.00766, 0.00056, 0.00007, + 0.00002, 0.00032, 0.00060, + 0.10294, 0.01975, 0.00679, 0.00040, 0.00005, + 0.00001, 0.00029, 0.00061, + 0.09698, 0.01849, 0.00607, 0.00034, 0.00007, + 0.00002, 0.00027, 0.00056, + 0.09156, 0.01736, 0.00547, 0.00032, 0.00008, + 0.00003, 0.00026, 0.00052 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + 0.08662, 0.01634, 0.00496, 0.00033, 0.00007, + 0.00003, 0.00026, 0.00048, + 0.08220, 0.01538, 0.00451, 0.00025, 0.00005, + 0.00003, 0.00022, 0.00045, + 0.07818, 0.01453, 0.00413, 0.00019, 0.00005, + 0.00002, 0.00020, 0.00042, + 0.07440, 0.01377, 0.00380, 0.00022, 0.00005, + 0.00003, 0.00020, 0.00039, + 0.07094, 0.01307, 0.00351, 0.00023, 0.00007, + 0.00004, 0.00021, 0.00036 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + 0.24183, 0.05013, 0.04066, 0.00060, 0.00001, + 0.00001, 0.00037, 0.00139, + 0.20913, 0.04242, 0.02967, 0.00068, 0.00001, + 0.00006, 0.00028, 0.00104, + 0.18371, 0.03666, 0.02249, 0.00075, 0.00001, + 0.00005, 0.00039, 0.00096, + 0.16370, 0.03212, 0.01761, 0.00069, 0.00001, + 0.00004, 0.00037, 0.00081, + 0.14769, 0.02851, 0.01413, 0.00046, 0.00001, + 0.00003, 0.00031, 0.00072, + 0.13417, 0.02556, 0.01159, 0.00043, 0.00006, + 0.00001, 0.00030, 0.00061, + 0.12262, 0.02312, 0.00968, 0.00050, 0.00005, + 0.00000, 0.00027, 0.00055 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.11279, 0.02107, 0.00820, 0.00039, 0.00008, + 0.00001, 0.00029, 0.00051, + 0.10436, 0.01929, 0.00703, 0.00033, 0.00007, + 0.00002, 0.00029, 0.00047, + 0.09704, 0.01775, 0.00610, 0.00023, 0.00006, + 0.00003, 0.00025, 0.00046, + 0.09056, 0.01641, 0.00534, 0.00013, 0.00006, + 0.00003, 0.00023, 0.00043, + 0.08470, 0.01527, 0.00473, 0.00016, 0.00009, + 0.00002, 0.00022, 0.00034, + 0.07945, 0.01421, 0.00421, 0.00015, 0.00008, + 0.00002, 0.00021, 0.00032, + 0.07471, 0.01327, 0.00377, 0.00016, 0.00008, + 0.00002, 0.00020, 0.00031 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + 0.07038, 0.01245, 0.00340, 0.00021, 0.00005, + 0.00002, 0.00018, 0.00027, + 0.06656, 0.01170, 0.00309, 0.00018, 0.00006, + 0.00003, 0.00018, 0.00028, + 0.06311, 0.01103, 0.00282, 0.00015, 0.00008, + 0.00004, 0.00017, 0.00029, + 0.05996, 0.01042, 0.00259, 0.00014, 0.00008, + 0.00003, 0.00016, 0.00025, + 0.05707, 0.00988, 0.00239, 0.00012, 0.00007, + 0.00003, 0.00015, 0.00022 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.20934, 0.04095, 0.03046, 0.00088, 0.00001, + 0.00009, 0.00012, 0.00076, + 0.17938, 0.03433, 0.02189, 0.00055, 0.00001, + 0.00008, 0.00016, 0.00077, + 0.15689, 0.02938, 0.01640, 0.00034, 0.00001, + 0.00008, 0.00022, 0.00069, + 0.13862, 0.02556, 0.01272, 0.00039, 0.00001, + 0.00007, 0.00019, 0.00050, + 0.12384, 0.02251, 0.01014, 0.00038, 0.00001, + 0.00005, 0.00016, 0.00049, + 0.11181, 0.02010, 0.00825, 0.00035, 0.00001, + 0.00004, 0.00016, 0.00043, + 0.10194, 0.01809, 0.00684, 0.00025, 0.00000, + 0.00003, 0.00017, 0.00037 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.09332, 0.01638, 0.00576, 0.00025, 0.00002, + 0.00001, 0.00016, 0.00032, + 0.08581, 0.01495, 0.00491, 0.00022, 0.00003, + 0.00001, 0.00015, 0.00033, + 0.07934, 0.01370, 0.00424, 0.00021, 0.00003, + 0.00000, 0.00014, 0.00032, + 0.07372, 0.01263, 0.00370, 0.00019, 0.00003, + 0.00000, 0.00014, 0.00028, + 0.06878, 0.01168, 0.00326, 0.00012, 0.00003, + 0.00001, 0.00011, 0.00024, + 0.06431, 0.01084, 0.00290, 0.00012, 0.00002, + 0.00001, 0.00010, 0.00025, + 0.06033, 0.01010, 0.00259, 0.00011, 0.00002, + 0.00001, 0.00010, 0.00023 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05679, 0.00945, 0.00233, 0.00010, 0.00004, + 0.00001, 0.00012, 0.00019, + 0.05356, 0.00885, 0.00212, 0.00009, 0.00005, + 0.00001, 0.00011, 0.00017, + 0.05064, 0.00833, 0.00193, 0.00009, 0.00005, + 0.00002, 0.00011, 0.00016, + 0.04790, 0.00786, 0.00177, 0.00011, 0.00003, + 0.00002, 0.00009, 0.00014, + 0.04542, 0.00743, 0.00162, 0.00013, 0.00003, + 0.00002, 0.00008, 0.00014 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.17842, 0.03247, 0.02224, 0.00021, 0.00001, + 0.00003, 0.00009, 0.00066, + 0.15141, 0.02706, 0.01581, 0.00039, 0.00001, + 0.00001, 0.00013, 0.00050, + 0.13081, 0.02302, 0.01173, 0.00048, 0.00001, + 0.00003, 0.00011, 0.00037, + 0.11511, 0.01991, 0.00903, 0.00030, 0.00001, + 0.00002, 0.00009, 0.00038, + 0.10241, 0.01747, 0.00713, 0.00028, 0.00001, + 0.00001, 0.00010, 0.00028, + 0.09191, 0.01553, 0.00576, 0.00029, 0.00001, + 0.00002, 0.00009, 0.00022, + 0.08320, 0.01389, 0.00475, 0.00027, 0.00001, + 0.00001, 0.00007, 0.00024 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.07592, 0.01255, 0.00398, 0.00019, 0.00001, + 0.00000, 0.00008, 0.00025, + 0.06961, 0.01141, 0.00338, 0.00015, 0.00001, + 0.00000, 0.00007, 0.00022, + 0.06412, 0.01042, 0.00291, 0.00013, 0.00001, + 0.00000, 0.00005, 0.00019, + 0.05932, 0.00956, 0.00253, 0.00012, 0.00001, + 0.00001, 0.00005, 0.00017, + 0.05510, 0.00881, 0.00222, 0.00011, 0.00001, + 0.00002, 0.00005, 0.00013, + 0.05133, 0.00816, 0.00196, 0.00011, 0.00001, + 0.00001, 0.00004, 0.00014, + 0.04798, 0.00760, 0.00175, 0.00011, 0.00001, + 0.00000, 0.00004, 0.00014 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + 0.04500, 0.00708, 0.00157, 0.00008, 0.00001, + 0.00000, 0.00004, 0.00013, + 0.04229, 0.00662, 0.00142, 0.00010, 0.00001, + 0.00001, 0.00003, 0.00013, + 0.03986, 0.00621, 0.00129, 0.00011, 0.00001, + 0.00001, 0.00003, 0.00012, + 0.03769, 0.00583, 0.00118, 0.00008, 0.00001, + 0.00000, 0.00003, 0.00012, + 0.03571, 0.00549, 0.00108, 0.00007, 0.00001, + 0.00000, 0.00003, 0.00010 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + 0.12266, 0.01942, 0.01114, 0.00014, 0.00001, + 0.00000, 0.00004, 0.00022, + 0.10210, 0.01581, 0.00766, 0.00011, 0.00001, + 0.00002, 0.00004, 0.00021, + 0.08684, 0.01322, 0.00553, 0.00012, 0.00001, + 0.00001, 0.00008, 0.00010, + 0.07503, 0.01126, 0.00416, 0.00012, 0.00001, + 0.00001, 0.00004, 0.00011, + 0.06580, 0.00975, 0.00322, 0.00008, 0.00001, + 0.00000, 0.00006, 0.00013, + 0.05840, 0.00855, 0.00257, 0.00007, 0.00001, + 0.00000, 0.00004, 0.00010, + 0.05227, 0.00759, 0.00208, 0.00006, 0.00001, + 0.00000, 0.00005, 0.00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + 0.04717, 0.00678, 0.00172, 0.00003, 0.00001, + 0.00000, 0.00005, 0.00006, + 0.04281, 0.00610, 0.00145, 0.00002, 0.00001, + 0.00000, 0.00005, 0.00007, + 0.03906, 0.00552, 0.00123, 0.00002, 0.00001, + 0.00000, 0.00003, 0.00007, + 0.03585, 0.00502, 0.00106, 0.00002, 0.00001, + 0.00001, 0.00003, 0.00006, + 0.03303, 0.00460, 0.00093, 0.00002, 0.00001, + 0.00000, 0.00003, 0.00004, + 0.03055, 0.00422, 0.00081, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00004, + 0.02836, 0.00389, 0.00072, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + 0.02641, 0.00360, 0.00064, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.02466, 0.00335, 0.00058, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.02310, 0.00312, 0.00052, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00003, + 0.02170, 0.00292, 0.00048, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00003, + 0.02045, 0.00274, 0.00044, 0.00001, 0.00001, + 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.07813, 0.01063, 0.00502, 0.00017, 0.00001, + 0.00001, 0.00001, 0.00004, + 0.06353, 0.00846, 0.00333, 0.00008, 0.00001, + 0.00002, 0.00001, 0.00005, + 0.05299, 0.00696, 0.00234, 0.00005, 0.00001, + 0.00002, 0.00000, 0.00005, + 0.04510, 0.00583, 0.00172, 0.00003, 0.00001, + 0.00000, 0.00002, 0.00006, + 0.03890, 0.00496, 0.00131, 0.00004, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.03405, 0.00430, 0.00102, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.03010, 0.00375, 0.00082, 0.00001, 0.00001, + 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.02682, 0.00331, 0.00067, 0.00003, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02410, 0.00295, 0.00056, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.02177, 0.00265, 0.00047, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00003, + 0.01978, 0.00239, 0.00040, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01807, 0.00216, 0.00035, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01659, 0.00198, 0.00030, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01530, 0.00181, 0.00027, 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.01415, 0.00166, 0.00024, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01311, 0.00153, 0.00021, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01220, 0.00142, 0.00019, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01139, 0.00132, 0.00017, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01065, 0.00123, 0.00016, 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.04445, 0.00508, 0.00193, 0.00003, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.03529, 0.00397, 0.00124, 0.00003, 0.00001, + 0.00001, 0.00001, 0.00001, + 0.02884, 0.00318, 0.00085, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02407, 0.00263, 0.00061, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02045, 0.00220, 0.00045, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.01762, 0.00188, 0.00035, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01537, 0.00163, 0.00028, 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.01355, 0.00142, 0.00022, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01200, 0.00124, 0.00018, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01073, 0.00110, 0.00015, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00967, 0.00098, 0.00013, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00875, 0.00089, 0.00011, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00795, 0.00080, 0.00010, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00726, 0.00072, 0.00009, 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.00666, 0.00066, 0.00008, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00613, 0.00061, 0.00007, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00566, 0.00056, 0.00006, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00524, 0.00052, 0.00005, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00487, 0.00048, 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.02156, 0.00203, 0.00060, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01658, 0.00152, 0.00037, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.01318, 0.00119, 0.00024, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.01076, 0.00098, 0.00017, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00895, 0.00079, 0.00012, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00759, 0.00065, 0.00009, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00651, 0.00057, 0.00007, 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.00564, 0.00049, 0.00006, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00494, 0.00042, 0.00005, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00435, 0.00037, 0.00004, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00387, 0.00033, 0.00003, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00347, 0.00028, 0.00003, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00312, 0.00025, 0.00003, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00282, 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.00256, 0.00021, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00234, 0.00018, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00214, 0.00017, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00197, 0.00015, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00181, 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.00196, 0.00011, 0.00002, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00139, 0.00008, 0.00001, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.00104, 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.00029, 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.00021, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00018, 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.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, + 0.00009, 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,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(54,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