* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:30:16 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:42 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFMSBB0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C THIS IS THE PREVIOUS KMRS(B0) FIT (190 MEV) USEA=DSEA=2*STR #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.01727, 0.00137, 4.14718, 0.13665, 0.03357, + 0.00000, 0.08600, 0.13665, + 0.01763, 0.00154, 9.74113, 0.28680, 0.18390, + 0.00000, 0.23628, 0.28680, + 0.01797, 0.00169, 17.09975, 0.48357, 0.38081, + 0.00000, 0.43315, 0.48357, + 0.01828, 0.00183, 26.22037, 0.72720, 0.62457, + 0.00000, 0.67687, 0.72720, + 0.01858, 0.00197, 36.71242, 1.00782, 0.90529, + 0.01690, 0.95757, 1.00782, + 0.01886, 0.00211, 48.57324, 1.32668, 1.22422, + 0.21238, 1.27648, 1.32668, + 0.01912, 0.00224, 61.70306, 1.68246, 1.58007, + 0.60144, 1.63232, 1.68246 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.01938, 0.00236, 75.99297, 2.07332, 1.97098, + 0.99713, 2.02322, 2.07332, + 0.01962, 0.00248, 91.33727, 2.49708, 2.39479, + 1.43030, 2.44703, 2.49708, + 0.01986, 0.00260, 107.43649, 2.94648, 2.84421, + 1.88753, 2.89645, 2.94648, + 0.02009, 0.00272, 124.38155, 3.42428, 3.32204, + 2.37281, 3.37428, 3.42428, + 0.02031, 0.00283, 142.13774, 3.92982, 3.82760, + 2.88542, 3.87985, 3.92982, + 0.02053, 0.00295, 160.58954, 4.46035, 4.35815, + 3.42263, 4.41040, 4.46035, + 0.02074, 0.00306, 179.37915, 5.00696, 4.90476, + 3.97556, 4.95702, 5.00696 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.02095, 0.00316, 198.88515, 5.57920, 5.47701, + 4.55381, 5.52928, 5.57920, + 0.02115, 0.00327, 218.71463, 6.16713, 6.06494, + 5.14746, 6.11722, 6.16713, + 0.02134, 0.00337, 238.94661, 6.77271, 6.67052, + 5.75851, 6.72282, 6.77271, + 0.02153, 0.00347, 259.60815, 7.39661, 7.29440, + 6.38763, 7.34672, 7.39661, + 0.02172, 0.00357, 280.40967, 8.03133, 7.92911, + 7.02736, 7.98144, 8.03133 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.02115, 0.00210, 4.03986, 0.13824, 0.03153, + 0.00000, 0.08549, 0.13824, + 0.02166, 0.00234, 8.96050, 0.27329, 0.16660, + 0.00000, 0.22057, 0.27329, + 0.02212, 0.00257, 15.17996, 0.44380, 0.33711, + 0.00000, 0.39110, 0.44380, + 0.02255, 0.00278, 22.66025, 0.64940, 0.54270, + 0.00000, 0.59671, 0.64940, + 0.02295, 0.00298, 31.05817, 0.88140, 0.77468, + 0.01386, 0.82873, 0.88140, + 0.02333, 0.00318, 40.35976, 1.14050, 1.03376, + 0.17228, 1.08783, 1.14050, + 0.02369, 0.00336, 50.47510, 1.42533, 1.31855, + 0.48476, 1.37266, 1.42533 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.02404, 0.00355, 61.31216, 1.73411, 1.62730, + 0.79789, 1.68144, 1.73411, + 0.02437, 0.00372, 72.78514, 2.06493, 1.95807, + 1.13674, 2.01225, 2.06493, + 0.02469, 0.00389, 84.66566, 2.41194, 2.30504, + 1.49049, 2.35925, 2.41194, + 0.02500, 0.00406, 97.02478, 2.77726, 2.67032, + 1.86223, 2.72456, 2.77726, + 0.02529, 0.00422, 109.83669, 3.16030, 3.05330, + 2.25132, 3.10758, 3.16030, + 0.02558, 0.00438, 123.01701, 3.55888, 3.45183, + 2.65562, 3.50615, 3.55888, + 0.02586, 0.00454, 136.30722, 3.96619, 3.85910, + 3.06835, 3.91345, 3.96619 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.02613, 0.00469, 149.98785, 4.38954, 4.28239, + 3.49683, 4.33678, 4.38954, + 0.02640, 0.00484, 163.77657, 4.82138, 4.71418, + 3.93358, 4.76860, 4.82138, + 0.02666, 0.00499, 177.73506, 5.26327, 5.15601, + 4.38014, 5.21047, 5.26327, + 0.02691, 0.00513, 191.88643, 5.71572, 5.60841, + 4.83705, 5.66290, 5.71572, + 0.02715, 0.00527, 206.02808, 6.17319, 6.06581, + 5.29879, 6.12035, 6.17319 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.02581, 0.00322, 3.93502, 0.13973, 0.02939, + 0.00000, 0.08490, 0.13973, + 0.02649, 0.00357, 8.24120, 0.26052, 0.15004, + 0.00000, 0.20564, 0.26052, + 0.02712, 0.00390, 13.47276, 0.40765, 0.29702, + 0.00000, 0.35270, 0.40765, + 0.02769, 0.00421, 19.57806, 0.58047, 0.46971, + 0.00000, 0.52547, 0.58047, + 0.02823, 0.00451, 26.26634, 0.77156, 0.66065, + 0.01132, 0.71650, 0.77156, + 0.02874, 0.00479, 33.52313, 0.98132, 0.87028, + 0.13924, 0.92620, 0.98132, + 0.02923, 0.00506, 41.27425, 1.20846, 1.09729, + 0.38933, 1.15329, 1.20846 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.02969, 0.00532, 49.44673, 1.45145, 1.34015, + 0.63622, 1.39623, 1.45145, + 0.03013, 0.00558, 57.97556, 1.70868, 1.59726, + 0.90031, 1.65340, 1.70868, + 0.03056, 0.00582, 66.68988, 1.97554, 1.86399, + 1.17296, 1.92020, 1.97554, + 0.03096, 0.00606, 75.64777, 2.25369, 2.14202, + 1.45661, 2.19830, 2.25369, + 0.03136, 0.00629, 84.83273, 2.54266, 2.43087, + 1.75078, 2.48722, 2.54266, + 0.03174, 0.00652, 94.18532, 2.84079, 2.72889, + 2.05381, 2.78530, 2.84079, + 0.03211, 0.00674, 103.52109, 3.14293, 3.03092, + 2.36059, 3.08739, 3.14293 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.03247, 0.00695, 113.04878, 3.45468, 3.34256, + 2.67674, 3.39909, 3.45468, + 0.03282, 0.00716, 122.56744, 3.77040, 3.65817, + 2.99664, 3.71476, 3.77040, + 0.03316, 0.00737, 132.12633, 4.09128, 3.97895, + 3.32153, 4.03560, 4.09128, + 0.03349, 0.00757, 141.74492, 4.41779, 4.30535, + 3.65185, 4.36206, 4.41779, + 0.03381, 0.00777, 151.28378, 4.74585, 4.63331, + 3.98356, 4.69007, 4.74585 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.02893, 0.00413, 3.87473, 0.14055, 0.02810, + 0.00000, 0.08453, 0.14055, + 0.02974, 0.00457, 7.84653, 0.25338, 0.14069, + 0.00000, 0.19726, 0.25338, + 0.03048, 0.00499, 12.56228, 0.38804, 0.27512, + 0.00000, 0.33181, 0.38804, + 0.03116, 0.00537, 17.96925, 0.54385, 0.43071, + 0.00000, 0.48753, 0.54385, + 0.03180, 0.00574, 23.80748, 0.71409, 0.60075, + 0.01004, 0.65767, 0.71409, + 0.03240, 0.00609, 30.06538, 0.89909, 0.78555, + 0.12269, 0.84258, 0.89909, + 0.03297, 0.00643, 36.67871, 1.09766, 0.98393, + 0.34182, 1.04106, 1.09766 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.03352, 0.00675, 43.58598, 1.30842, 1.19452, + 0.55625, 1.25174, 1.30842, + 0.03404, 0.00706, 50.73314, 1.52996, 1.41588, + 0.78405, 1.47320, 1.52996, + 0.03454, 0.00737, 57.97787, 1.75831, 1.64406, + 1.01769, 1.70146, 1.75831, + 0.03502, 0.00766, 65.37230, 1.99491, 1.88050, + 1.25932, 1.93799, 1.99491, + 0.03548, 0.00794, 72.90512, 2.23939, 2.12482, + 1.50855, 2.18239, 2.23939, + 0.03593, 0.00822, 80.52847, 2.49034, 2.37562, + 1.76398, 2.43327, 2.49034, + 0.03637, 0.00849, 88.09204, 2.74342, 2.62854, + 2.02129, 2.68628, 2.74342 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.03679, 0.00876, 95.77158, 3.00342, 2.88840, + 2.28531, 2.94621, 3.00342, + 0.03720, 0.00901, 103.40367, 3.26559, 3.15044, + 2.55131, 3.20832, 3.26559, + 0.03759, 0.00926, 111.03078, 3.53100, 3.41570, + 2.82036, 3.47366, 3.53100, + 0.03798, 0.00951, 118.67154, 3.80005, 3.68462, + 3.09289, 3.74265, 3.80005, + 0.03836, 0.00975, 126.21417, 4.06936, 3.95381, + 3.36555, 4.01190, 4.06936 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.03134, 0.00493, 3.83235, 0.14111, 0.02716, + 0.00000, 0.08427, 0.14111, + 0.03225, 0.00545, 7.57737, 0.24846, 0.13420, + 0.00000, 0.19148, 0.24846, + 0.03308, 0.00593, 11.95233, 0.37478, 0.26023, + 0.00000, 0.31766, 0.37478, + 0.03385, 0.00639, 16.90590, 0.51940, 0.40458, + 0.00000, 0.46214, 0.51940, + 0.03457, 0.00681, 22.19968, 0.67608, 0.56101, + 0.00921, 0.61870, 0.67608, + 0.03524, 0.00722, 27.82472, 0.84513, 0.72981, + 0.11204, 0.78764, 0.84513, + 0.03588, 0.00761, 33.72424, 1.02544, 0.90990, + 0.31136, 0.96785, 1.02544 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.03649, 0.00799, 39.84422, 1.21576, 1.10000, + 0.50519, 1.15806, 1.21576, + 0.03708, 0.00835, 46.13820, 1.41480, 1.29883, + 0.71009, 1.35700, 1.41480, + 0.03764, 0.00870, 52.48160, 1.61900, 1.50283, + 0.91927, 1.56110, 1.61900, + 0.03818, 0.00904, 58.92308, 1.82969, 1.71334, + 1.13468, 1.77170, 1.82969, + 0.03870, 0.00937, 65.45433, 2.04655, 1.93001, + 1.35600, 1.98847, 2.04655, + 0.03920, 0.00969, 72.03506, 2.26835, 2.15163, + 1.58200, 2.21019, 2.26835, + 0.03969, 0.01000, 78.53560, 2.49124, 2.37434, + 1.80886, 2.43298, 2.49124 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.04016, 0.01031, 85.11166, 2.71952, 2.60246, + 2.04091, 2.66118, 2.71952, + 0.04061, 0.01060, 91.62201, 2.94899, 2.83177, + 2.27397, 2.89058, 2.94899, + 0.04106, 0.01089, 98.10550, 3.18062, 3.06325, + 2.50902, 3.12214, 3.18062, + 0.04149, 0.01117, 104.57967, 3.41482, 3.29729, + 2.74648, 3.35626, 3.41482, + 0.04191, 0.01145, 110.94926, 3.64862, 3.53094, + 2.98341, 3.58998, 3.64862 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.03332, 0.00566, 3.79968, 0.14154, 0.02642, + 0.00000, 0.08406, 0.14154, + 0.03432, 0.00625, 7.37448, 0.24473, 0.12925, + 0.00000, 0.18708, 0.24473, + 0.03523, 0.00679, 11.49857, 0.36486, 0.24904, + 0.00000, 0.30705, 0.36486, + 0.03607, 0.00730, 16.12267, 0.50126, 0.38513, + 0.00000, 0.44329, 0.50126, + 0.03686, 0.00778, 21.02475, 0.64808, 0.53166, + 0.00861, 0.58997, 0.64808, + 0.03759, 0.00824, 26.19827, 0.80560, 0.68892, + 0.10436, 0.74737, 0.80560, + 0.03829, 0.00868, 31.59203, 0.97281, 0.85587, + 0.28944, 0.91445, 0.97281 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.03896, 0.00910, 37.15771, 1.14852, 1.03133, + 0.46854, 1.09004, 1.14852, + 0.03960, 0.00951, 42.85422, 1.33156, 1.21414, + 0.65716, 1.27297, 1.33156, + 0.04021, 0.00990, 48.56958, 1.51867, 1.40102, + 0.84901, 1.45996, 1.51867, + 0.04080, 0.01028, 54.35023, 1.71109, 1.59322, + 1.04592, 1.65227, 1.71109, + 0.04137, 0.01065, 60.18990, 1.90854, 1.79047, + 1.24762, 1.84963, 1.90854, + 0.04191, 0.01101, 66.05362, 2.10991, 1.99165, + 1.45299, 2.05090, 2.10991, + 0.04244, 0.01136, 71.82570, 2.31171, 2.19326, + 1.65857, 2.25261, 2.31171 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.04296, 0.01170, 77.64796, 2.51790, 2.39926, + 1.86835, 2.45870, 2.51790, + 0.04345, 0.01203, 83.39464, 2.72465, 2.60584, + 2.07852, 2.66537, 2.72465, + 0.04394, 0.01235, 89.10205, 2.93290, 2.81392, + 2.29002, 2.87354, 2.93290, + 0.04441, 0.01266, 94.78679, 3.14301, 3.02386, + 2.50323, 3.08356, 3.14301, + 0.04487, 0.01297, 100.36469, 3.35231, 3.23300, + 2.71551, 3.29278, 3.35231 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.04020, 0.00867, 3.69894, 0.14290, 0.02408, + 0.00000, 0.08346, 0.14290, + 0.04151, 0.00953, 6.77438, 0.23366, 0.11433, + 0.00000, 0.17397, 0.23366, + 0.04270, 0.01032, 10.18754, 0.33598, 0.21618, + 0.00000, 0.27606, 0.33598, + 0.04381, 0.01107, 13.89920, 0.44924, 0.32902, + 0.00000, 0.38911, 0.44924, + 0.04483, 0.01176, 17.73564, 0.56872, 0.44810, + 0.00695, 0.50839, 0.56872, + 0.04580, 0.01242, 21.69847, 0.69469, 0.57370, + 0.08336, 0.63418, 0.69469, + 0.04672, 0.01305, 25.75279, 0.82636, 0.70503, + 0.22979, 0.76568, 0.82636 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.04759, 0.01366, 29.86649, 0.96284, 0.84118, + 0.36932, 0.90200, 0.96284, + 0.04842, 0.01424, 34.01329, 1.10326, 0.98130, + 0.51451, 1.04227, 1.10326, + 0.04922, 0.01479, 38.11441, 1.24516, 1.12290, + 0.66049, 1.18401, 1.24516, + 0.04999, 0.01533, 42.20973, 1.38957, 1.26704, + 0.80878, 1.32829, 1.38957, + 0.05073, 0.01585, 46.29869, 1.53635, 1.41356, + 0.95921, 1.47494, 1.53635, + 0.05145, 0.01635, 50.35931, 1.68471, 1.56166, + 1.11100, 1.62317, 1.68471, + 0.05214, 0.01684, 54.31206, 1.83207, 1.70878, + 1.26162, 1.77041, 1.83207 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.05281, 0.01732, 58.26271, 1.98149, 1.85798, + 1.41412, 1.91972, 1.98149, + 0.05346, 0.01778, 62.12411, 2.13018, 2.00644, + 1.56575, 2.06830, 2.13018, + 0.05409, 0.01822, 65.92543, 2.27888, 2.15493, + 1.71724, 2.21688, 2.27888, + 0.05470, 0.01866, 69.68102, 2.42792, 2.30376, + 1.86895, 2.36582, 2.42792, + 0.05530, 0.01908, 73.33424, 2.57538, 2.45103, + 2.01897, 2.51318, 2.57538 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.04833, 0.01328, 3.59829, 0.14447, 0.02168, + 0.00000, 0.08303, 0.14447, + 0.05003, 0.01454, 6.21379, 0.22356, 0.10011, + 0.00000, 0.16179, 0.22356, + 0.05158, 0.01569, 9.00627, 0.31002, 0.18599, + 0.00000, 0.24797, 0.31002, + 0.05302, 0.01676, 11.94959, 0.40334, 0.27878, + 0.00000, 0.34102, 0.40334, + 0.05436, 0.01776, 14.91340, 0.49978, 0.37474, + 0.00557, 0.43723, 0.49978, + 0.05562, 0.01870, 17.90746, 0.59967, 0.47417, + 0.06605, 0.53689, 0.59967, + 0.05682, 0.01960, 20.91110, 0.70244, 0.57653, + 0.18097, 0.63945, 0.70244 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.05796, 0.02045, 23.90559, 0.80747, 0.68117, + 0.28875, 0.74429, 0.80747, + 0.05904, 0.02127, 26.87637, 0.91416, 0.78749, + 0.39953, 0.85079, 0.91416, + 0.06009, 0.02206, 29.76994, 1.02068, 0.89368, + 0.50959, 0.95715, 1.02068, + 0.06109, 0.02281, 32.62083, 1.12794, 1.00060, + 0.62019, 1.06424, 1.12794, + 0.06205, 0.02354, 35.43228, 1.23587, 1.10823, + 0.73127, 1.17202, 1.23587, + 0.06298, 0.02424, 38.19170, 1.34395, 1.21602, + 0.84232, 1.27996, 1.34395, + 0.06388, 0.02492, 40.84555, 1.45032, 1.32211, + 0.95150, 1.38618, 1.45032 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.06475, 0.02558, 43.47240, 1.55732, 1.42885, + 1.06117, 1.49306, 1.55732, + 0.06560, 0.02621, 46.01302, 1.66295, 1.53423, + 1.16933, 1.59856, 1.66295, + 0.06642, 0.02683, 48.49049, 1.76779, 1.63883, + 1.27660, 1.70328, 1.76779, + 0.06721, 0.02743, 50.91679, 1.87215, 1.74296, + 1.38327, 1.80752, 1.87215, + 0.06799, 0.02801, 53.25471, 1.97468, 1.84527, + 1.48801, 1.90995, 1.97468 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.05382, 0.01706, 3.53856, 0.14570, 0.02026, + 0.00000, 0.08296, 0.14570, + 0.05580, 0.01861, 5.90028, 0.21828, 0.09212, + 0.00000, 0.15519, 0.21828, + 0.05762, 0.02004, 8.36460, 0.29627, 0.16946, + 0.00000, 0.23286, 0.29627, + 0.05931, 0.02136, 10.91359, 0.37917, 0.25179, + 0.00000, 0.31548, 0.37917, + 0.06087, 0.02259, 13.43987, 0.46381, 0.33590, + 0.00487, 0.39986, 0.46381, + 0.06235, 0.02374, 15.95744, 0.55053, 0.42214, + 0.05734, 0.48634, 0.55053, + 0.06375, 0.02484, 18.45279, 0.63891, 0.51007, + 0.15654, 0.57450, 0.63891 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.06508, 0.02588, 20.91368, 0.72846, 0.59921, + 0.24869, 0.66384, 0.72846, + 0.06635, 0.02688, 23.33113, 0.81871, 0.68907, + 0.34269, 0.75391, 0.81871, + 0.06757, 0.02783, 25.66345, 0.90818, 0.77817, + 0.43540, 0.84319, 0.90818, + 0.06874, 0.02874, 27.94212, 0.99766, 0.86732, + 0.52796, 0.93251, 0.99766, + 0.06987, 0.02962, 30.17204, 1.08716, 0.95650, + 0.62037, 1.02185, 1.08716, + 0.07096, 0.03047, 32.34473, 1.17628, 1.04531, + 0.71221, 1.11081, 1.17628, + 0.07201, 0.03129, 34.41817, 1.26348, 1.13223, + 0.80201, 1.19787, 1.26348 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.07302, 0.03208, 36.45828, 1.35079, 1.21926, + 0.89177, 1.28504, 1.35079, + 0.07401, 0.03284, 38.41805, 1.43653, 1.30475, + 0.97986, 1.37066, 1.43653, + 0.07496, 0.03358, 40.31763, 1.52126, 1.38923, + 1.06682, 1.45527, 1.52126, + 0.07589, 0.03429, 42.16774, 1.60524, 1.47297, + 1.15292, 1.53913, 1.60524, + 0.07679, 0.03499, 43.93956, 1.68738, 1.55489, + 1.23711, 1.62116, 1.68738 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.05816, 0.02037, 3.49532, 0.14682, 0.01926, + 0.00000, 0.08304, 0.14682, + 0.06039, 0.02218, 5.68253, 0.21494, 0.08660, + 0.00000, 0.15078, 0.21494, + 0.06243, 0.02383, 7.92716, 0.28721, 0.15819, + 0.00000, 0.22273, 0.28721, + 0.06431, 0.02536, 10.21717, 0.36321, 0.23359, + 0.00000, 0.29843, 0.36321, + 0.06607, 0.02678, 12.46043, 0.44012, 0.30994, + 0.00441, 0.37507, 0.44012, + 0.06772, 0.02811, 14.67355, 0.51829, 0.38762, + 0.05170, 0.45300, 0.51829, + 0.06929, 0.02937, 16.84769, 0.59741, 0.46627, + 0.14077, 0.53189, 0.59741 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.07078, 0.03056, 18.97456, 0.67706, 0.54549, + 0.22292, 0.61133, 0.67706, + 0.07221, 0.03171, 21.04855, 0.75688, 0.62492, + 0.30626, 0.69096, 0.75688, + 0.07358, 0.03279, 23.03528, 0.83558, 0.70325, + 0.38804, 0.76948, 0.83558, + 0.07489, 0.03383, 24.96417, 0.91392, 0.78124, + 0.46927, 0.84764, 0.91392, + 0.07615, 0.03483, 26.84091, 0.99192, 0.85892, + 0.55001, 0.92549, 0.99192, + 0.07736, 0.03580, 28.65936, 1.06925, 0.93595, + 0.62993, 1.00267, 1.06925, + 0.07854, 0.03672, 30.38464, 1.14461, 1.01102, + 0.70774, 1.07789, 1.14461 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.07967, 0.03762, 32.07445, 1.21980, 1.08593, + 0.78524, 1.15294, 1.21980, + 0.08077, 0.03848, 33.68941, 1.29336, 1.15924, + 0.86102, 1.22637, 1.29336, + 0.08184, 0.03932, 35.24754, 1.36580, 1.23144, + 0.93557, 1.29870, 1.36580, + 0.08287, 0.04013, 36.75883, 1.43738, 1.30278, + 1.00917, 1.37016, 1.43738, + 0.08388, 0.04091, 38.19920, 1.50716, 1.37235, + 1.08088, 1.43983, 1.50716 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.06205, 0.02339, 3.46064, 0.14821, 0.01849, + 0.00000, 0.08335, 0.14821, + 0.06451, 0.02542, 5.51269, 0.21294, 0.08240, + 0.00000, 0.14767, 0.21294, + 0.06677, 0.02727, 7.59007, 0.28088, 0.14963, + 0.00000, 0.21527, 0.28088, + 0.06885, 0.02897, 9.68558, 0.35168, 0.21980, + 0.00000, 0.28577, 0.35168, + 0.07078, 0.03055, 11.71840, 0.42281, 0.29036, + 0.00408, 0.35662, 0.42281, + 0.07261, 0.03202, 13.70769, 0.49464, 0.36168, + 0.04752, 0.42820, 0.49464, + 0.07433, 0.03342, 15.64750, 0.56692, 0.43349, + 0.12909, 0.50025, 0.56692 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.07597, 0.03474, 17.53214, 0.63932, 0.50545, + 0.20391, 0.57243, 0.63932, + 0.07754, 0.03600, 19.35939, 0.71153, 0.57726, + 0.27946, 0.64444, 0.71153, + 0.07904, 0.03720, 21.09874, 0.78243, 0.64778, + 0.35328, 0.71515, 0.78243, + 0.08048, 0.03835, 22.77890, 0.85269, 0.71769, + 0.42631, 0.78525, 0.85269, + 0.08186, 0.03945, 24.40553, 0.92239, 0.78707, + 0.49863, 0.85479, 0.92239, + 0.08320, 0.04050, 25.97391, 0.99126, 0.85564, + 0.56996, 0.92351, 0.99126, + 0.08448, 0.04152, 27.45506, 1.05815, 0.92224, + 0.63919, 0.99025, 1.05815 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.08573, 0.04250, 28.90048, 1.12468, 0.98850, + 0.70793, 1.05665, 1.12468, + 0.08693, 0.04344, 30.27596, 1.18956, 1.05313, + 0.77493, 1.12141, 1.18956, + 0.08809, 0.04435, 31.59718, 1.25328, 1.11662, + 0.84067, 1.18501, 1.25328, + 0.08922, 0.04524, 32.87344, 1.31609, 1.17920, + 0.90541, 1.24771, 1.31609, + 0.09032, 0.04609, 34.08525, 1.37716, 1.24006, + 0.96833, 1.30868, 1.37716 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.07640, 0.03594, 3.34746, 0.15342, 0.01608, + 0.00000, 0.08475, 0.15342, + 0.07979, 0.03879, 4.99865, 0.20792, 0.06970, + 0.00000, 0.13883, 0.20792, + 0.08288, 0.04136, 6.59860, 0.26329, 0.12432, + 0.00000, 0.19384, 0.26329, + 0.08572, 0.04371, 8.15442, 0.31936, 0.17973, + 0.00000, 0.24959, 0.31936, + 0.08836, 0.04587, 9.61668, 0.37438, 0.23418, + 0.00314, 0.30433, 0.37438, + 0.09083, 0.04788, 11.00886, 0.42879, 0.28808, + 0.03609, 0.35849, 0.42879, + 0.09317, 0.04976, 12.33345, 0.48252, 0.34135, + 0.09734, 0.41200, 0.48252 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.09538, 0.05154, 13.59177, 0.53544, 0.39386, + 0.15248, 0.46472, 0.53544, + 0.09749, 0.05323, 14.78690, 0.58741, 0.44546, + 0.20735, 0.51651, 0.58741, + 0.09950, 0.05481, 15.90138, 0.63770, 0.49541, + 0.26021, 0.56663, 0.63770, + 0.10142, 0.05633, 16.95880, 0.68689, 0.54430, + 0.31183, 0.61567, 0.68689, + 0.10327, 0.05778, 17.96573, 0.73509, 0.59222, + 0.36234, 0.66374, 0.73509, + 0.10504, 0.05916, 18.92113, 0.78217, 0.63905, + 0.41160, 0.71070, 0.78217, + 0.10675, 0.06047, 19.80765, 0.82737, 0.68402, + 0.45887, 0.75578, 0.82737 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.10839, 0.06174, 20.66154, 0.87190, 0.72833, + 0.50537, 0.80021, 0.87190, + 0.10998, 0.06296, 21.46149, 0.91488, 0.77111, + 0.55023, 0.84309, 0.91488, + 0.11151, 0.06413, 22.21918, 0.95670, 0.81275, + 0.59385, 0.88482, 0.95670, + 0.11299, 0.06527, 22.94193, 0.99757, 0.85345, + 0.63644, 0.92560, 0.99757, + 0.11443, 0.06635, 23.61795, 1.03694, 0.89267, + 0.67747, 0.96490, 1.03694 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.09672, 0.05523, 3.21931, 0.16103, 0.01368, + 0.00001, 0.08735, 0.16103, + 0.10147, 0.05910, 4.49238, 0.20579, 0.05767, + 0.00001, 0.13175, 0.20579, + 0.10577, 0.06255, 5.66821, 0.24966, 0.10091, + 0.00001, 0.17531, 0.24966, + 0.10970, 0.06568, 6.76590, 0.29271, 0.14343, + 0.00001, 0.21811, 0.29271, + 0.11334, 0.06851, 7.76049, 0.33388, 0.18418, + 0.00237, 0.25907, 0.33388, + 0.11671, 0.07113, 8.67746, 0.37365, 0.22359, + 0.02661, 0.29867, 0.37365, + 0.11988, 0.07356, 9.52601, 0.41211, 0.26176, + 0.07120, 0.33700, 0.41211 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.12288, 0.07584, 10.31033, 0.44929, 0.29868, + 0.11054, 0.37405, 0.44929, + 0.12572, 0.07798, 11.03771, 0.48517, 0.33435, + 0.14904, 0.40983, 0.48517, + 0.12841, 0.07998, 11.69819, 0.51929, 0.36831, + 0.18554, 0.44388, 0.51929, + 0.13096, 0.08188, 12.31124, 0.55219, 0.40106, + 0.22068, 0.47670, 0.55219, + 0.13341, 0.08367, 12.88351, 0.58399, 0.43274, + 0.25462, 0.50844, 0.58399, + 0.13576, 0.08538, 13.41623, 0.61465, 0.46331, + 0.28729, 0.53906, 0.61465, + 0.13799, 0.08700, 13.89722, 0.64368, 0.49227, + 0.31826, 0.56806, 0.64368 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.14014, 0.08855, 14.35325, 0.67197, 0.52049, + 0.34839, 0.59631, 0.67197, + 0.14220, 0.09003, 14.77248, 0.69893, 0.54741, + 0.37712, 0.62326, 0.69893, + 0.14418, 0.09144, 15.16176, 0.72489, 0.57335, + 0.40478, 0.64920, 0.72489, + 0.14610, 0.09280, 15.52645, 0.75001, 0.59845, + 0.43152, 0.67432, 0.75001, + 0.14794, 0.09410, 15.86043, 0.77393, 0.62238, + 0.45701, 0.69824, 0.77393 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.11288, 0.07096, 3.13232, 0.16637, 0.01227, + 0.00000, 0.08932, 0.16637, + 0.11868, 0.07548, 4.19566, 0.20554, 0.05088, + 0.00000, 0.12822, 0.20554, + 0.12390, 0.07946, 5.14773, 0.24306, 0.08800, + 0.00001, 0.16556, 0.24306, + 0.12866, 0.08305, 6.01318, 0.27917, 0.12380, + 0.00002, 0.20153, 0.27917, + 0.13301, 0.08628, 6.77825, 0.31313, 0.15755, + 0.00197, 0.23539, 0.31313, + 0.13705, 0.08924, 7.46987, 0.34545, 0.18971, + 0.02187, 0.26764, 0.34545, + 0.14080, 0.09198, 8.09556, 0.37630, 0.22047, + 0.05824, 0.29844, 0.37630 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.14435, 0.09451, 8.66505, 0.40574, 0.24985, + 0.08990, 0.32785, 0.40574, + 0.14769, 0.09689, 9.18227, 0.43379, 0.27789, + 0.12053, 0.35591, 0.43379, + 0.15084, 0.09910, 9.64342, 0.46025, 0.30435, + 0.14934, 0.38236, 0.46025, + 0.15382, 0.10119, 10.06437, 0.48547, 0.32962, + 0.17681, 0.40762, 0.48547, + 0.15667, 0.10316, 10.45148, 0.50962, 0.35383, + 0.20308, 0.43180, 0.50962, + 0.15939, 0.10502, 10.80655, 0.53268, 0.37697, + 0.22816, 0.45491, 0.53268, + 0.16195, 0.10677, 11.12072, 0.55435, 0.39874, + 0.25176, 0.47662, 0.55435 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.16442, 0.10844, 11.41458, 0.57530, 0.41980, + 0.27457, 0.49763, 0.57530, + 0.16679, 0.11002, 11.67926, 0.59511, 0.43973, + 0.29615, 0.51750, 0.59511, + 0.16905, 0.11153, 11.92194, 0.61403, 0.45878, + 0.31677, 0.53648, 0.61403, + 0.17124, 0.11298, 12.14672, 0.63220, 0.47709, + 0.33658, 0.55472, 0.63220, + 0.17333, 0.11436, 12.34799, 0.64937, 0.49441, + 0.35534, 0.57197, 0.64937 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.12721, 0.08466, 3.06254, 0.17044, 0.01127, + 0.00001, 0.09086, 0.17044, + 0.13387, 0.08963, 3.98219, 0.20564, 0.04619, + 0.00000, 0.12593, 0.20564, + 0.13984, 0.09397, 4.78631, 0.23880, 0.07919, + 0.00001, 0.15902, 0.23880, + 0.14525, 0.09786, 5.50219, 0.27024, 0.11056, + 0.00002, 0.19043, 0.27024, + 0.15017, 0.10133, 6.12281, 0.29942, 0.13977, + 0.00171, 0.21964, 0.29942, + 0.15472, 0.10450, 6.67424, 0.32688, 0.16729, + 0.01884, 0.24714, 0.32688, + 0.15892, 0.10741, 7.16491, 0.35282, 0.19335, + 0.04997, 0.27313, 0.35282 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.16289, 0.11009, 7.60462, 0.37732, 0.21801, + 0.07681, 0.29772, 0.37732, + 0.16661, 0.11259, 7.99792, 0.40048, 0.24135, + 0.10257, 0.32097, 0.40048, + 0.17009, 0.11491, 8.34277, 0.42212, 0.26319, + 0.12662, 0.34271, 0.42212, + 0.17339, 0.11708, 8.65298, 0.44259, 0.28389, + 0.14937, 0.36330, 0.44259, + 0.17652, 0.11912, 8.93436, 0.46205, 0.30359, + 0.17100, 0.38288, 0.46205, + 0.17950, 0.12104, 9.18883, 0.48050, 0.32229, + 0.19152, 0.40146, 0.48050, + 0.18231, 0.12284, 9.40956, 0.49770, 0.33975, + 0.21070, 0.41880, 0.49770 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.18500, 0.12455, 9.61360, 0.51423, 0.35656, + 0.22914, 0.43547, 0.51423, + 0.18757, 0.12617, 9.79406, 0.52976, 0.37237, + 0.24649, 0.45114, 0.52976, + 0.19002, 0.12771, 9.95690, 0.54450, 0.38739, + 0.26298, 0.46602, 0.54450, + 0.19238, 0.12917, 10.10555, 0.55858, 0.40175, + 0.27874, 0.48024, 0.55858, + 0.19463, 0.13056, 10.23571, 0.57180, 0.41526, + 0.29359, 0.49360, 0.57180 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.14038, 0.09698, 3.00260, 0.17358, 0.01050, + 0.00002, 0.09204, 0.17358, + 0.14780, 0.10224, 3.81398, 0.20568, 0.04261, + 0.00001, 0.12416, 0.20568, + 0.15436, 0.10684, 4.50970, 0.23552, 0.07255, + 0.00002, 0.15405, 0.23552, + 0.16031, 0.11091, 5.11817, 0.26345, 0.10068, + 0.00003, 0.18209, 0.26345, + 0.16567, 0.11454, 5.63711, 0.28912, 0.12660, + 0.00154, 0.20790, 0.28912, + 0.17062, 0.11783, 6.09092, 0.31302, 0.15081, + 0.01668, 0.23196, 0.31302, + 0.17521, 0.12082, 6.48981, 0.33541, 0.17352, + 0.04408, 0.25452, 0.33541 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.17949, 0.12357, 6.84049, 0.35641, 0.19486, + 0.06753, 0.27568, 0.35641, + 0.18348, 0.12614, 7.15050, 0.37609, 0.21492, + 0.08989, 0.29555, 0.37609, + 0.18723, 0.12848, 7.41871, 0.39433, 0.23356, + 0.11060, 0.31399, 0.39433, + 0.19076, 0.13069, 7.65586, 0.41147, 0.25111, + 0.13010, 0.33134, 0.41147, + 0.19410, 0.13275, 7.86800, 0.42766, 0.26771, + 0.14854, 0.34774, 0.42766, + 0.19728, 0.13468, 8.05751, 0.44294, 0.28342, + 0.16596, 0.36324, 0.44294, + 0.20026, 0.13647, 8.21889, 0.45706, 0.29795, + 0.18213, 0.37757, 0.45706 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.20312, 0.13817, 8.36630, 0.47057, 0.31188, + 0.19760, 0.39128, 0.47057, + 0.20583, 0.13977, 8.49387, 0.48320, 0.32494, + 0.21211, 0.40412, 0.48320, + 0.20841, 0.14129, 8.60662, 0.49511, 0.33727, + 0.22583, 0.41625, 0.49511, + 0.21088, 0.14273, 8.70760, 0.50642, 0.34901, + 0.23889, 0.42779, 0.50642, + 0.21324, 0.14409, 8.79360, 0.51698, 0.36000, + 0.25115, 0.43856, 0.51698 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.19755, 0.14628, 2.76721, 0.18116, 0.00807, + 0.00000, 0.09461, 0.18116, + 0.20734, 0.15198, 3.26343, 0.20340, 0.03178, + 0.00000, 0.11759, 0.20340, + 0.21590, 0.15677, 3.65800, 0.22306, 0.05290, + 0.00002, 0.13799, 0.22306, + 0.22341, 0.16094, 3.97958, 0.24068, 0.07193, + 0.00003, 0.15634, 0.24068, + 0.23013, 0.16455, 4.23566, 0.25625, 0.08887, + 0.00101, 0.17258, 0.25625, + 0.23618, 0.16774, 4.44390, 0.27023, 0.10419, + 0.01083, 0.18723, 0.27023, + 0.24169, 0.17058, 4.61561, 0.28288, 0.11813, + 0.02833, 0.20054, 0.28288 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.24676, 0.17313, 4.75545, 0.29438, 0.13090, + 0.04289, 0.21267, 0.29438, + 0.25148, 0.17542, 4.87193, 0.30486, 0.14261, + 0.05649, 0.22377, 0.30486, + 0.25572, 0.17753, 4.96143, 0.31427, 0.15320, + 0.06881, 0.23376, 0.31427, + 0.25972, 0.17941, 5.03492, 0.32286, 0.16295, + 0.08017, 0.24294, 0.32286, + 0.26347, 0.18114, 5.09485, 0.33077, 0.17198, + 0.09071, 0.25141, 0.33077, + 0.26695, 0.18275, 5.14215, 0.33802, 0.18033, + 0.10047, 0.25921, 0.33802, + 0.27021, 0.18418, 5.17558, 0.34452, 0.18791, + 0.10938, 0.26626, 0.34452 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.27330, 0.18552, 5.20275, 0.35062, 0.19505, + 0.11777, 0.27288, 0.35062, + 0.27617, 0.18675, 5.22071, 0.35616, 0.20161, + 0.12551, 0.27893, 0.35616, + 0.27885, 0.18790, 5.23209, 0.36125, 0.20769, + 0.13271, 0.28451, 0.36125, + 0.28138, 0.18897, 5.23857, 0.36597, 0.21337, + 0.13946, 0.28972, 0.36597, + 0.28379, 0.18995, 5.23830, 0.37023, 0.21857, + 0.14568, 0.29445, 0.37023 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.29190, 0.21286, 2.41679, 0.17758, 0.00558, + -0.00012, 0.09153, 0.17758, + 0.30296, 0.21710, 2.63960, 0.18955, 0.02145, + -0.00010, 0.10548, 0.18955, + 0.31219, 0.22043, 2.79302, 0.19939, 0.03483, + -0.00011, 0.11707, 0.19939, + 0.32011, 0.22308, 2.90087, 0.20761, 0.04629, + -0.00010, 0.12694, 0.20761, + 0.32694, 0.22515, 2.97062, 0.21441, 0.05609, + 0.00049, 0.13520, 0.21441, + 0.33287, 0.22685, 3.01607, 0.22011, 0.06460, + 0.00619, 0.14232, 0.22011, + 0.33810, 0.22824, 3.04291, 0.22495, 0.07204, + 0.01613, 0.14848, 0.22495 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.34272, 0.22940, 3.05549, 0.22907, 0.07860, + 0.02414, 0.15384, 0.22907, + 0.34687, 0.23036, 3.05751, 0.23259, 0.08444, + 0.03143, 0.15849, 0.23259, + 0.35053, 0.23111, 3.04944, 0.23551, 0.08957, + 0.03787, 0.16252, 0.23551, + 0.35386, 0.23166, 3.03514, 0.23796, 0.09411, + 0.04364, 0.16603, 0.23796, + 0.35689, 0.23209, 3.01668, 0.24005, 0.09820, + 0.04885, 0.16912, 0.24005, + 0.35964, 0.23245, 2.99490, 0.24181, 0.10190, + 0.05357, 0.17184, 0.24181, + 0.36202, 0.23270, 2.96853, 0.24321, 0.10510, + 0.05779, 0.17413, 0.24321 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.36422, 0.23289, 2.94133, 0.24444, 0.10805, + 0.06169, 0.17620, 0.24444, + 0.36624, 0.23299, 2.91178, 0.24539, 0.11067, + 0.06520, 0.17800, 0.24539, + 0.36807, 0.23302, 2.88120, 0.24617, 0.11303, + 0.06840, 0.17957, 0.24617, + 0.36974, 0.23299, 2.85024, 0.24681, 0.11518, + 0.07136, 0.18096, 0.24681, + 0.37127, 0.23290, 2.81809, 0.24721, 0.11708, + 0.07401, 0.18211, 0.24721 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.37025, 0.25586, 2.13329, 0.16380, 0.00425, + 0.00001, 0.08404, 0.16380, + 0.38007, 0.25749, 2.22498, 0.17000, 0.01592, + 0.00004, 0.09297, 0.17000, + 0.38785, 0.25847, 2.27134, 0.17462, 0.02538, + 0.00000, 0.10001, 0.17462, + 0.39423, 0.25892, 2.29030, 0.17820, 0.03320, + 0.00006, 0.10573, 0.17820, + 0.39942, 0.25899, 2.28806, 0.18073, 0.03969, + 0.00041, 0.11024, 0.18073, + 0.40370, 0.25880, 2.27386, 0.18262, 0.04520, + 0.00426, 0.11394, 0.18262, + 0.40730, 0.25842, 2.25092, 0.18398, 0.04986, + 0.01079, 0.11693, 0.18398 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.41034, 0.25787, 2.22219, 0.18493, 0.05389, + 0.01602, 0.11941, 0.18493, + 0.41293, 0.25716, 2.18971, 0.18554, 0.05728, + 0.02060, 0.12144, 0.18554, + 0.41501, 0.25639, 2.15360, 0.18579, 0.06024, + 0.02461, 0.12302, 0.18579, + 0.41671, 0.25557, 2.11617, 0.18582, 0.06281, + 0.02813, 0.12434, 0.18582, + 0.41818, 0.25469, 2.07845, 0.18567, 0.06506, + 0.03126, 0.12541, 0.18567, + 0.41947, 0.25372, 2.04072, 0.18539, 0.06701, + 0.03403, 0.12624, 0.18539, + 0.42038, 0.25274, 2.00225, 0.18494, 0.06868, + 0.03650, 0.12684, 0.18494 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.42117, 0.25174, 1.96497, 0.18442, 0.07017, + 0.03874, 0.12732, 0.18442, + 0.42180, 0.25068, 1.92783, 0.18378, 0.07146, + 0.04071, 0.12763, 0.18378, + 0.42224, 0.24964, 1.89143, 0.18306, 0.07255, + 0.04245, 0.12782, 0.18306, + 0.42256, 0.24863, 1.85607, 0.18230, 0.07349, + 0.04400, 0.12792, 0.18230, + 0.42275, 0.24755, 1.82130, 0.18146, 0.07432, + 0.04543, 0.12792, 0.18146 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.43578, 0.28378, 1.88804, 0.14623, 0.00340, + 0.00005, 0.07484, 0.14623, + 0.44281, 0.28259, 1.90397, 0.14887, 0.01222, + 0.00005, 0.08057, 0.14887, + 0.44791, 0.28102, 1.89252, 0.15039, 0.01928, + 0.00008, 0.08485, 0.15039, + 0.45179, 0.27917, 1.86632, 0.15122, 0.02493, + 0.00006, 0.08811, 0.15122, + 0.45447, 0.27724, 1.82986, 0.15145, 0.02949, + 0.00037, 0.09050, 0.15145, + 0.45647, 0.27511, 1.78863, 0.15128, 0.03323, + 0.00302, 0.09232, 0.15128, + 0.45782, 0.27300, 1.74493, 0.15085, 0.03636, + 0.00767, 0.09366, 0.15085 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.45866, 0.27088, 1.70028, 0.15018, 0.03897, + 0.01128, 0.09464, 0.15018, + 0.45918, 0.26875, 1.65555, 0.14935, 0.04119, + 0.01441, 0.09532, 0.14935, + 0.45935, 0.26652, 1.61059, 0.14836, 0.04304, + 0.01715, 0.09577, 0.14836, + 0.45913, 0.26440, 1.56698, 0.14729, 0.04457, + 0.01949, 0.09600, 0.14729, + 0.45873, 0.26233, 1.52497, 0.14617, 0.04588, + 0.02154, 0.09608, 0.14617, + 0.45825, 0.26025, 1.48447, 0.14499, 0.04699, + 0.02334, 0.09603, 0.14499, + 0.45748, 0.25819, 1.44486, 0.14374, 0.04789, + 0.02484, 0.09587, 0.14374 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.45664, 0.25619, 1.40732, 0.14249, 0.04867, + 0.02619, 0.09565, 0.14249, + 0.45568, 0.25422, 1.37106, 0.14121, 0.04932, + 0.02739, 0.09533, 0.14121, + 0.45467, 0.25224, 1.33636, 0.13993, 0.04985, + 0.02845, 0.09495, 0.13993, + 0.45361, 0.25029, 1.30328, 0.13868, 0.05028, + 0.02939, 0.09453, 0.13868, + 0.45240, 0.24840, 1.27136, 0.13739, 0.05065, + 0.03024, 0.09407, 0.13739 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.48966, 0.30083, 1.67097, 0.12773, 0.00269, + 0.00004, 0.06524, 0.12773, + 0.49307, 0.29682, 1.64066, 0.12809, 0.00961, + 0.00008, 0.06887, 0.12809, + 0.49487, 0.29281, 1.59580, 0.12772, 0.01494, + 0.00006, 0.07134, 0.12772, + 0.49551, 0.28890, 1.54534, 0.12700, 0.01913, + 0.00004, 0.07306, 0.12700, + 0.49544, 0.28497, 1.49179, 0.12594, 0.02237, + 0.00027, 0.07423, 0.12594, + 0.49466, 0.28124, 1.43847, 0.12468, 0.02504, + 0.00231, 0.07491, 0.12468, + 0.49349, 0.27757, 1.38653, 0.12329, 0.02720, + 0.00571, 0.07530, 0.12329 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.49199, 0.27400, 1.33632, 0.12181, 0.02901, + 0.00826, 0.07542, 0.12181, + 0.49024, 0.27059, 1.28828, 0.12030, 0.03046, + 0.01041, 0.07540, 0.12030, + 0.48829, 0.26723, 1.24211, 0.11872, 0.03162, + 0.01227, 0.07517, 0.11872, + 0.48610, 0.26402, 1.19847, 0.11717, 0.03255, + 0.01389, 0.07486, 0.11717, + 0.48383, 0.26093, 1.15737, 0.11562, 0.03334, + 0.01528, 0.07450, 0.11562, + 0.48152, 0.25791, 1.11860, 0.11409, 0.03402, + 0.01647, 0.07408, 0.11409, + 0.47916, 0.25491, 1.08153, 0.11253, 0.03453, + 0.01752, 0.07355, 0.11253 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.47677, 0.25205, 1.04685, 0.11103, 0.03496, + 0.01844, 0.07300, 0.11103, + 0.47421, 0.24933, 1.01394, 0.10955, 0.03530, + 0.01918, 0.07242, 0.10955, + 0.47169, 0.24667, 0.98286, 0.10809, 0.03556, + 0.01985, 0.07182, 0.10809, + 0.46923, 0.24408, 0.95356, 0.10667, 0.03574, + 0.02045, 0.07121, 0.10667, + 0.46669, 0.24158, 0.92566, 0.10526, 0.03587, + 0.02096, 0.07058, 0.10526 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.54223, 0.31033, 1.43274, 0.10537, 0.00202, + 0.00008, 0.05374, 0.10537, + 0.54026, 0.30321, 1.36843, 0.10410, 0.00718, + 0.00005, 0.05569, 0.10410, + 0.53738, 0.29641, 1.30134, 0.10248, 0.01106, + 0.00009, 0.05683, 0.10248, + 0.53384, 0.29017, 1.23647, 0.10072, 0.01402, + 0.00004, 0.05741, 0.10072, + 0.52986, 0.28426, 1.17418, 0.09884, 0.01633, + 0.00021, 0.05762, 0.09884, + 0.52567, 0.27870, 1.11605, 0.09696, 0.01808, + 0.00162, 0.05758, 0.09696, + 0.52134, 0.27338, 1.06188, 0.09508, 0.01947, + 0.00396, 0.05733, 0.09508 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.51683, 0.26840, 1.01153, 0.09325, 0.02056, + 0.00574, 0.05698, 0.09325, + 0.51229, 0.26375, 0.96494, 0.09141, 0.02151, + 0.00725, 0.05647, 0.09141, + 0.50768, 0.25922, 0.92139, 0.08965, 0.02214, + 0.00846, 0.05592, 0.08965, + 0.50312, 0.25494, 0.88111, 0.08790, 0.02268, + 0.00949, 0.05534, 0.08790, + 0.49867, 0.25084, 0.84386, 0.08621, 0.02312, + 0.01040, 0.05473, 0.08621, + 0.49432, 0.24685, 0.80928, 0.08459, 0.02345, + 0.01121, 0.05413, 0.08459, + 0.48987, 0.24315, 0.77692, 0.08300, 0.02369, + 0.01183, 0.05344, 0.08300 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.48555, 0.23961, 0.74701, 0.08148, 0.02389, + 0.01236, 0.05276, 0.08148, + 0.48128, 0.23613, 0.71902, 0.08003, 0.02401, + 0.01282, 0.05207, 0.08003, + 0.47710, 0.23281, 0.69289, 0.07860, 0.02409, + 0.01320, 0.05142, 0.07860, + 0.47303, 0.22967, 0.66848, 0.07720, 0.02415, + 0.01354, 0.05081, 0.07720, + 0.46901, 0.22658, 0.64552, 0.07587, 0.02416, + 0.01383, 0.05017, 0.07587 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.57955, 0.30997, 1.22539, 0.08511, 0.00166, + 0.00015, 0.04345, 0.08511, + 0.57208, 0.30013, 1.14330, 0.08308, 0.00551, + 0.00018, 0.04433, 0.08308, + 0.56428, 0.29120, 1.06655, 0.08093, 0.00833, + 0.00018, 0.04469, 0.08093, + 0.55653, 0.28303, 0.99682, 0.07878, 0.01047, + 0.00017, 0.04467, 0.07878, + 0.54878, 0.27551, 0.93335, 0.07669, 0.01198, + 0.00024, 0.04439, 0.07669, + 0.54117, 0.26855, 0.87603, 0.07466, 0.01318, + 0.00127, 0.04398, 0.07466, + 0.53361, 0.26221, 0.82423, 0.07269, 0.01411, + 0.00292, 0.04345, 0.07269 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.52635, 0.25618, 0.77728, 0.07078, 0.01484, + 0.00413, 0.04288, 0.07078, + 0.51937, 0.25040, 0.73454, 0.06897, 0.01539, + 0.00511, 0.04228, 0.06897, + 0.51238, 0.24507, 0.69551, 0.06724, 0.01581, + 0.00600, 0.04160, 0.06724, + 0.50563, 0.24007, 0.65999, 0.06558, 0.01613, + 0.00669, 0.04092, 0.06558, + 0.49915, 0.23532, 0.62757, 0.06400, 0.01635, + 0.00727, 0.04026, 0.06400, + 0.49295, 0.23077, 0.59784, 0.06250, 0.01648, + 0.00776, 0.03963, 0.06250, + 0.48684, 0.22642, 0.57034, 0.06104, 0.01659, + 0.00813, 0.03897, 0.06104 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.48092, 0.22235, 0.54514, 0.05968, 0.01667, + 0.00847, 0.03831, 0.05968, + 0.47504, 0.21854, 0.52181, 0.05839, 0.01669, + 0.00882, 0.03764, 0.05839, + 0.46945, 0.21482, 0.50028, 0.05715, 0.01667, + 0.00908, 0.03699, 0.05715, + 0.46413, 0.21122, 0.48036, 0.05597, 0.01663, + 0.00929, 0.03638, 0.05597, + 0.45886, 0.20781, 0.46183, 0.05483, 0.01657, + 0.00943, 0.03577, 0.05483 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.60289, 0.30265, 1.04424, 0.06760, 0.00122, + 0.00002, 0.03439, 0.06760, + 0.59001, 0.29057, 0.95472, 0.06526, 0.00414, + 0.00002, 0.03477, 0.06526, + 0.57767, 0.27976, 0.87555, 0.06298, 0.00628, + 0.00002, 0.03468, 0.06298, + 0.56584, 0.27024, 0.80645, 0.06080, 0.00783, + 0.00006, 0.03439, 0.06080, + 0.55466, 0.26145, 0.74555, 0.05872, 0.00896, + 0.00010, 0.03392, 0.05872, + 0.54386, 0.25357, 0.69209, 0.05679, 0.00976, + 0.00086, 0.03337, 0.05679, + 0.53370, 0.24629, 0.64459, 0.05489, 0.01040, + 0.00209, 0.03284, 0.05489 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.52398, 0.23947, 0.60224, 0.05318, 0.01089, + 0.00298, 0.03216, 0.05318, + 0.51460, 0.23321, 0.56446, 0.05153, 0.01124, + 0.00378, 0.03157, 0.05153, + 0.50568, 0.22723, 0.53036, 0.05001, 0.01144, + 0.00435, 0.03088, 0.05001, + 0.49708, 0.22169, 0.49968, 0.04858, 0.01162, + 0.00476, 0.03020, 0.04858, + 0.48892, 0.21648, 0.47204, 0.04720, 0.01176, + 0.00514, 0.02956, 0.04720, + 0.48122, 0.21155, 0.44704, 0.04585, 0.01188, + 0.00556, 0.02899, 0.04585, + 0.47356, 0.20700, 0.42403, 0.04462, 0.01190, + 0.00578, 0.02838, 0.04462 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.46631, 0.20267, 0.40315, 0.04348, 0.01189, + 0.00597, 0.02779, 0.04348, + 0.45945, 0.19842, 0.38413, 0.04239, 0.01185, + 0.00614, 0.02721, 0.04239, + 0.45275, 0.19448, 0.36660, 0.04134, 0.01180, + 0.00632, 0.02667, 0.04134, + 0.44625, 0.19081, 0.35043, 0.04034, 0.01174, + 0.00648, 0.02615, 0.04034, + 0.44001, 0.18723, 0.33541, 0.03938, 0.01168, + 0.00656, 0.02564, 0.03938 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.61410, 0.28979, 0.88667, 0.05279, 0.00092, + 0.00004, 0.02687, 0.05279, + 0.59604, 0.27621, 0.79580, 0.05049, 0.00316, + -0.00001, 0.02690, 0.05049, + 0.57944, 0.26417, 0.71873, 0.04839, 0.00468, + 0.00004, 0.02655, 0.04839, + 0.56405, 0.25361, 0.65336, 0.04632, 0.00579, + 0.00003, 0.02625, 0.04632, + 0.54975, 0.24410, 0.59711, 0.04450, 0.00659, + 0.00017, 0.02561, 0.04450, + 0.53630, 0.23556, 0.54858, 0.04275, 0.00717, + 0.00074, 0.02507, 0.04275, + 0.52367, 0.22775, 0.50632, 0.04117, 0.00758, + 0.00148, 0.02444, 0.04117 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.51187, 0.22050, 0.46921, 0.03970, 0.00788, + 0.00222, 0.02382, 0.03970, + 0.50079, 0.21372, 0.43637, 0.03831, 0.00812, + 0.00275, 0.02322, 0.03831, + 0.49012, 0.20756, 0.40718, 0.03696, 0.00828, + 0.00307, 0.02267, 0.03696, + 0.48003, 0.20183, 0.38122, 0.03572, 0.00839, + 0.00337, 0.02210, 0.03572, + 0.47048, 0.19649, 0.35804, 0.03457, 0.00845, + 0.00362, 0.02155, 0.03457, + 0.46141, 0.19150, 0.33722, 0.03348, 0.00848, + 0.00382, 0.02104, 0.03348, + 0.45269, 0.18678, 0.31828, 0.03250, 0.00842, + 0.00401, 0.02050, 0.03250 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.44446, 0.18233, 0.30117, 0.03157, 0.00837, + 0.00418, 0.02000, 0.03157, + 0.43664, 0.17805, 0.28558, 0.03066, 0.00835, + 0.00434, 0.01954, 0.03066, + 0.42911, 0.17405, 0.27139, 0.02981, 0.00829, + 0.00442, 0.01909, 0.02981, + 0.42187, 0.17031, 0.25841, 0.02902, 0.00821, + 0.00445, 0.01865, 0.02902, + 0.41501, 0.16668, 0.24646, 0.02825, 0.00815, + 0.00449, 0.01823, 0.02825 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.61433, 0.27330, 0.74950, 0.04060, 0.00064, + 0.00002, 0.02066, 0.04060, + 0.59178, 0.25855, 0.66159, 0.03854, 0.00235, + 0.00009, 0.02053, 0.03854, + 0.57142, 0.24576, 0.58906, 0.03662, 0.00352, + 0.00010, 0.02018, 0.03662, + 0.55273, 0.23478, 0.52903, 0.03494, 0.00429, + 0.00005, 0.01965, 0.03494, + 0.53602, 0.22461, 0.47855, 0.03333, 0.00487, + 0.00011, 0.01917, 0.03333, + 0.52055, 0.21555, 0.43557, 0.03187, 0.00526, + 0.00051, 0.01862, 0.03187, + 0.50593, 0.20758, 0.39844, 0.03051, 0.00558, + 0.00115, 0.01807, 0.03051 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.49243, 0.20017, 0.36642, 0.02924, 0.00585, + 0.00166, 0.01753, 0.02924, + 0.47991, 0.19326, 0.33847, 0.02810, 0.00596, + 0.00194, 0.01700, 0.02810, + 0.46779, 0.18721, 0.31374, 0.02702, 0.00599, + 0.00222, 0.01656, 0.02702, + 0.45658, 0.18141, 0.29198, 0.02603, 0.00603, + 0.00243, 0.01610, 0.02603, + 0.44611, 0.17597, 0.27271, 0.02511, 0.00607, + 0.00260, 0.01563, 0.02511, + 0.43622, 0.17090, 0.25553, 0.02426, 0.00612, + 0.00276, 0.01515, 0.02426, + 0.42664, 0.16623, 0.24001, 0.02348, 0.00605, + 0.00286, 0.01473, 0.02348 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.41767, 0.16185, 0.22608, 0.02274, 0.00597, + 0.00293, 0.01435, 0.02274, + 0.40929, 0.15764, 0.21352, 0.02202, 0.00588, + 0.00297, 0.01400, 0.02202, + 0.40126, 0.15371, 0.20210, 0.02134, 0.00582, + 0.00300, 0.01364, 0.02134, + 0.39359, 0.15002, 0.19169, 0.02068, 0.00579, + 0.00303, 0.01329, 0.02068, + 0.38620, 0.14655, 0.18220, 0.02010, 0.00573, + 0.00303, 0.01294, 0.02010 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.60532, 0.25406, 0.63051, 0.03078, 0.00047, + 0.00016, 0.01566, 0.03078, + 0.57898, 0.23857, 0.54779, 0.02902, 0.00179, + 0.00009, 0.01541, 0.02902, + 0.55534, 0.22556, 0.48134, 0.02737, 0.00270, + 0.00009, 0.01508, 0.02737, + 0.53451, 0.21388, 0.42751, 0.02596, 0.00326, + 0.00001, 0.01459, 0.02596, + 0.51533, 0.20398, 0.38247, 0.02458, 0.00371, + 0.00014, 0.01418, 0.02458, + 0.49796, 0.19494, 0.34504, 0.02336, 0.00403, + 0.00037, 0.01378, 0.02336, + 0.48205, 0.18679, 0.31325, 0.02231, 0.00415, + 0.00087, 0.01331, 0.02231 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.46721, 0.17950, 0.28590, 0.02135, 0.00429, + 0.00115, 0.01282, 0.02135, + 0.45345, 0.17287, 0.26220, 0.02041, 0.00438, + 0.00141, 0.01239, 0.02041, + 0.44063, 0.16667, 0.24169, 0.01955, 0.00446, + 0.00159, 0.01198, 0.01955, + 0.42868, 0.16095, 0.22359, 0.01874, 0.00447, + 0.00170, 0.01165, 0.01874, + 0.41748, 0.15568, 0.20767, 0.01802, 0.00442, + 0.00179, 0.01130, 0.01802, + 0.40690, 0.15083, 0.19362, 0.01741, 0.00434, + 0.00191, 0.01090, 0.01741, + 0.39690, 0.14628, 0.18113, 0.01681, 0.00428, + 0.00201, 0.01054, 0.01681 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.38754, 0.14205, 0.16999, 0.01623, 0.00424, + 0.00209, 0.01023, 0.01623, + 0.37872, 0.13804, 0.16000, 0.01565, 0.00423, + 0.00213, 0.00994, 0.01565, + 0.37042, 0.13429, 0.15095, 0.01510, 0.00419, + 0.00216, 0.00967, 0.01510, + 0.36259, 0.13077, 0.14272, 0.01458, 0.00411, + 0.00219, 0.00941, 0.01458, + 0.35501, 0.12747, 0.13524, 0.01411, 0.00405, + 0.00221, 0.00917, 0.01411 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.58858, 0.23307, 0.52773, 0.02286, 0.00046, + 0.00014, 0.01179, 0.02286, + 0.55905, 0.21737, 0.45171, 0.02143, 0.00142, + 0.00011, 0.01150, 0.02143, + 0.53267, 0.20451, 0.39204, 0.02014, 0.00206, + 0.00009, 0.01118, 0.02014, + 0.50988, 0.19294, 0.34386, 0.01901, 0.00244, + 0.00010, 0.01077, 0.01901, + 0.48921, 0.18294, 0.30497, 0.01799, 0.00272, + 0.00003, 0.01039, 0.01799, + 0.47047, 0.17422, 0.27271, 0.01699, 0.00297, + 0.00032, 0.01004, 0.01699, + 0.45342, 0.16638, 0.24571, 0.01612, 0.00307, + 0.00064, 0.00971, 0.01612 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.43775, 0.15926, 0.22258, 0.01539, 0.00315, + 0.00084, 0.00928, 0.01539, + 0.42344, 0.15270, 0.20269, 0.01468, 0.00315, + 0.00099, 0.00896, 0.01468, + 0.41007, 0.14672, 0.18599, 0.01403, 0.00319, + 0.00114, 0.00860, 0.01403, + 0.39753, 0.14135, 0.17136, 0.01343, 0.00318, + 0.00125, 0.00831, 0.01343, + 0.38600, 0.13639, 0.15849, 0.01285, 0.00316, + 0.00132, 0.00802, 0.01285, + 0.37550, 0.13171, 0.14711, 0.01227, 0.00314, + 0.00135, 0.00770, 0.01227, + 0.36515, 0.12740, 0.13694, 0.01183, 0.00311, + 0.00141, 0.00745, 0.01183 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.35551, 0.12337, 0.12789, 0.01142, 0.00308, + 0.00146, 0.00722, 0.01142, + 0.34657, 0.11952, 0.11980, 0.01100, 0.00303, + 0.00148, 0.00700, 0.01100, + 0.33811, 0.11600, 0.11263, 0.01061, 0.00299, + 0.00151, 0.00681, 0.01061, + 0.33010, 0.11275, 0.10623, 0.01024, 0.00296, + 0.00154, 0.00665, 0.01024, + 0.32242, 0.10966, 0.10040, 0.00991, 0.00290, + 0.00153, 0.00645, 0.00991 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.56509, 0.21132, 0.43887, 0.01680, 0.00043, + 0.00004, 0.00859, 0.01680, + 0.53288, 0.19599, 0.37038, 0.01564, 0.00112, + 0.00003, 0.00844, 0.01564, + 0.50493, 0.18314, 0.31747, 0.01464, 0.00156, + 0.00002, 0.00816, 0.01464, + 0.48041, 0.17217, 0.27563, 0.01374, 0.00188, + 0.00011, 0.00783, 0.01374, + 0.45883, 0.16239, 0.24224, 0.01293, 0.00207, + 0.00006, 0.00753, 0.01293, + 0.43948, 0.15386, 0.21487, 0.01221, 0.00216, + 0.00019, 0.00722, 0.01221, + 0.42178, 0.14637, 0.19192, 0.01152, 0.00225, + 0.00043, 0.00699, 0.01152 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.40565, 0.13960, 0.17299, 0.01093, 0.00231, + 0.00065, 0.00670, 0.01093, + 0.39091, 0.13345, 0.15662, 0.01042, 0.00232, + 0.00079, 0.00637, 0.01042, + 0.37725, 0.12781, 0.14279, 0.00995, 0.00230, + 0.00085, 0.00613, 0.00995, + 0.36473, 0.12267, 0.13078, 0.00946, 0.00229, + 0.00091, 0.00590, 0.00946, + 0.35314, 0.11798, 0.12031, 0.00900, 0.00229, + 0.00098, 0.00567, 0.00900, + 0.34230, 0.11368, 0.11112, 0.00860, 0.00228, + 0.00106, 0.00546, 0.00860, + 0.33212, 0.10970, 0.10320, 0.00825, 0.00227, + 0.00107, 0.00530, 0.00825 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.32258, 0.10602, 0.09614, 0.00793, 0.00225, + 0.00107, 0.00514, 0.00793, + 0.31350, 0.10258, 0.08973, 0.00762, 0.00221, + 0.00109, 0.00496, 0.00762, + 0.30503, 0.09931, 0.08404, 0.00734, 0.00217, + 0.00110, 0.00481, 0.00734, + 0.29710, 0.09621, 0.07896, 0.00708, 0.00212, + 0.00110, 0.00469, 0.00708, + 0.28971, 0.09333, 0.07438, 0.00680, 0.00210, + 0.00112, 0.00453, 0.00680 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.53599, 0.19001, 0.36308, 0.01227, 0.00019, + -0.00010, 0.00614, 0.01227, + 0.50198, 0.17522, 0.30214, 0.01140, 0.00069, + -0.00003, 0.00598, 0.01140, + 0.47297, 0.16271, 0.25599, 0.01059, 0.00107, + -0.00005, 0.00577, 0.01059, + 0.44780, 0.15212, 0.22012, 0.00988, 0.00133, + -0.00008, 0.00553, 0.00988, + 0.42563, 0.14289, 0.19174, 0.00921, 0.00144, + -0.00004, 0.00541, 0.00921, + 0.40582, 0.13488, 0.16870, 0.00867, 0.00158, + 0.00004, 0.00513, 0.00867, + 0.38779, 0.12785, 0.14980, 0.00823, 0.00159, + 0.00023, 0.00491, 0.00823 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.37181, 0.12139, 0.13409, 0.00777, 0.00163, + 0.00039, 0.00465, 0.00777, + 0.35708, 0.11575, 0.12072, 0.00734, 0.00162, + 0.00043, 0.00443, 0.00734, + 0.34344, 0.11055, 0.10955, 0.00697, 0.00162, + 0.00055, 0.00430, 0.00697, + 0.33094, 0.10576, 0.09990, 0.00664, 0.00165, + 0.00058, 0.00414, 0.00664, + 0.31945, 0.10138, 0.09151, 0.00633, 0.00165, + 0.00059, 0.00397, 0.00633, + 0.30887, 0.09737, 0.08419, 0.00603, 0.00157, + 0.00062, 0.00379, 0.00603, + 0.29894, 0.09369, 0.07783, 0.00573, 0.00158, + 0.00064, 0.00368, 0.00573 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28969, 0.09029, 0.07222, 0.00548, 0.00157, + 0.00068, 0.00357, 0.00548, + 0.28097, 0.08712, 0.06723, 0.00530, 0.00149, + 0.00074, 0.00342, 0.00530, + 0.27284, 0.08419, 0.06279, 0.00508, 0.00147, + 0.00076, 0.00331, 0.00508, + 0.26525, 0.08148, 0.05882, 0.00483, 0.00147, + 0.00074, 0.00321, 0.00483, + 0.25793, 0.07891, 0.05527, 0.00467, 0.00143, + 0.00073, 0.00308, 0.00467 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.50281, 0.16839, 0.29770, 0.00861, 0.00027, + 0.00012, 0.00453, 0.00861, + 0.46791, 0.15426, 0.24448, 0.00799, 0.00061, + 0.00019, 0.00436, 0.00799, + 0.43830, 0.14249, 0.20482, 0.00737, 0.00091, + 0.00013, 0.00422, 0.00737, + 0.41277, 0.13261, 0.17444, 0.00685, 0.00100, + 0.00012, 0.00410, 0.00685, + 0.39083, 0.12400, 0.15050, 0.00636, 0.00112, + 0.00013, 0.00381, 0.00636, + 0.37090, 0.11660, 0.13154, 0.00601, 0.00121, + 0.00019, 0.00361, 0.00601, + 0.35311, 0.11008, 0.11607, 0.00565, 0.00119, + 0.00034, 0.00350, 0.00565 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33704, 0.10428, 0.10328, 0.00533, 0.00127, + 0.00034, 0.00329, 0.00533, + 0.32271, 0.09904, 0.09247, 0.00504, 0.00125, + 0.00042, 0.00315, 0.00504, + 0.30922, 0.09434, 0.08337, 0.00478, 0.00121, + 0.00042, 0.00302, 0.00478, + 0.29711, 0.09002, 0.07573, 0.00453, 0.00120, + 0.00041, 0.00287, 0.00453, + 0.28599, 0.08606, 0.06914, 0.00430, 0.00119, + 0.00044, 0.00274, 0.00430, + 0.27561, 0.08243, 0.06334, 0.00410, 0.00115, + 0.00051, 0.00264, 0.00410, + 0.26603, 0.07914, 0.05830, 0.00392, 0.00115, + 0.00051, 0.00256, 0.00392 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.25716, 0.07610, 0.05388, 0.00376, 0.00112, + 0.00050, 0.00246, 0.00376, + 0.24884, 0.07327, 0.04998, 0.00361, 0.00105, + 0.00049, 0.00233, 0.00361, + 0.24098, 0.07062, 0.04655, 0.00349, 0.00102, + 0.00050, 0.00222, 0.00349, + 0.23356, 0.06815, 0.04351, 0.00339, 0.00101, + 0.00052, 0.00214, 0.00339, + 0.22674, 0.06588, 0.04075, 0.00324, 0.00098, + 0.00052, 0.00207, 0.00324 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.46651, 0.14828, 0.24279, 0.00611, 0.00011, + -0.00002, 0.00309, 0.00611, + 0.43139, 0.13494, 0.19692, 0.00565, 0.00042, + -0.00006, 0.00294, 0.00565, + 0.40181, 0.12397, 0.16310, 0.00520, 0.00060, + -0.00004, 0.00287, 0.00520, + 0.37674, 0.11465, 0.13762, 0.00476, 0.00072, + -0.00002, 0.00280, 0.00476, + 0.35456, 0.10688, 0.11783, 0.00449, 0.00075, + -0.00001, 0.00266, 0.00449, + 0.33514, 0.10011, 0.10217, 0.00420, 0.00085, + 0.00009, 0.00255, 0.00420, + 0.31798, 0.09409, 0.08951, 0.00397, 0.00081, + 0.00015, 0.00234, 0.00397 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.30251, 0.08874, 0.07912, 0.00373, 0.00087, + 0.00020, 0.00228, 0.00373, + 0.28874, 0.08398, 0.07050, 0.00345, 0.00083, + 0.00025, 0.00212, 0.00345, + 0.27592, 0.07975, 0.06325, 0.00328, 0.00081, + 0.00031, 0.00202, 0.00328, + 0.26437, 0.07591, 0.05717, 0.00308, 0.00081, + 0.00029, 0.00194, 0.00308, + 0.25375, 0.07243, 0.05196, 0.00292, 0.00080, + 0.00028, 0.00186, 0.00292, + 0.24385, 0.06926, 0.04741, 0.00282, 0.00075, + 0.00031, 0.00174, 0.00282, + 0.23477, 0.06629, 0.04352, 0.00267, 0.00075, + 0.00033, 0.00168, 0.00267 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.22633, 0.06355, 0.04011, 0.00254, 0.00074, + 0.00033, 0.00162, 0.00254, + 0.21832, 0.06103, 0.03709, 0.00246, 0.00069, + 0.00032, 0.00154, 0.00246, + 0.21107, 0.05872, 0.03443, 0.00236, 0.00067, + 0.00032, 0.00147, 0.00236, + 0.20445, 0.05660, 0.03206, 0.00225, 0.00068, + 0.00034, 0.00140, 0.00225, + 0.19804, 0.05458, 0.02997, 0.00215, 0.00066, + 0.00033, 0.00135, 0.00215 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.42830, 0.12862, 0.19602, 0.00412, 0.00016, + 0.00002, 0.00222, 0.00412, + 0.39354, 0.11649, 0.15706, 0.00378, 0.00034, + 0.00007, 0.00215, 0.00378, + 0.36446, 0.10640, 0.12870, 0.00351, 0.00049, + 0.00006, 0.00208, 0.00351, + 0.33977, 0.09806, 0.10763, 0.00329, 0.00056, + 0.00006, 0.00191, 0.00329, + 0.31854, 0.09092, 0.09144, 0.00298, 0.00063, + -0.00001, 0.00183, 0.00298, + 0.30002, 0.08475, 0.07868, 0.00280, 0.00056, + 0.00002, 0.00170, 0.00280, + 0.28333, 0.07951, 0.06850, 0.00267, 0.00059, + 0.00007, 0.00159, 0.00267 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.26852, 0.07471, 0.06019, 0.00253, 0.00060, + 0.00018, 0.00151, 0.00253, + 0.25520, 0.07053, 0.05334, 0.00236, 0.00058, + 0.00020, 0.00145, 0.00236, + 0.24315, 0.06674, 0.04762, 0.00223, 0.00061, + 0.00020, 0.00133, 0.00223, + 0.23237, 0.06330, 0.04282, 0.00208, 0.00058, + 0.00020, 0.00126, 0.00208, + 0.22250, 0.06018, 0.03873, 0.00195, 0.00054, + 0.00022, 0.00122, 0.00195, + 0.21332, 0.05736, 0.03523, 0.00187, 0.00049, + 0.00025, 0.00120, 0.00187, + 0.20479, 0.05482, 0.03222, 0.00178, 0.00052, + 0.00024, 0.00116, 0.00178 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.19694, 0.05247, 0.02960, 0.00171, 0.00053, + 0.00024, 0.00112, 0.00171, + 0.18966, 0.05025, 0.02732, 0.00167, 0.00051, + 0.00025, 0.00107, 0.00167, + 0.18281, 0.04826, 0.02529, 0.00161, 0.00048, + 0.00024, 0.00101, 0.00161, + 0.17638, 0.04645, 0.02349, 0.00155, 0.00046, + 0.00021, 0.00096, 0.00155, + 0.17064, 0.04470, 0.02190, 0.00144, 0.00047, + 0.00023, 0.00093, 0.00144 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.38899, 0.11068, 0.15710, 0.00278, 0.00012, + 0.00003, 0.00148, 0.00278, + 0.35524, 0.09959, 0.12436, 0.00257, 0.00026, + 0.00003, 0.00142, 0.00257, + 0.32728, 0.09049, 0.10097, 0.00238, 0.00032, + 0.00003, 0.00132, 0.00238, + 0.30349, 0.08296, 0.08359, 0.00226, 0.00038, + 0.00004, 0.00121, 0.00226, + 0.28309, 0.07672, 0.07050, 0.00210, 0.00034, + 0.00003, 0.00117, 0.00210, + 0.26550, 0.07121, 0.06023, 0.00197, 0.00037, + 0.00004, 0.00110, 0.00197, + 0.24996, 0.06648, 0.05206, 0.00184, 0.00038, + 0.00006, 0.00102, 0.00184 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.23604, 0.06231, 0.04551, 0.00173, 0.00040, + 0.00007, 0.00098, 0.00173, + 0.22383, 0.05860, 0.04012, 0.00156, 0.00040, + 0.00012, 0.00098, 0.00156, + 0.21241, 0.05531, 0.03563, 0.00157, 0.00038, + 0.00014, 0.00090, 0.00157, + 0.20248, 0.05232, 0.03190, 0.00143, 0.00037, + 0.00014, 0.00086, 0.00143, + 0.19339, 0.04962, 0.02876, 0.00131, 0.00036, + 0.00012, 0.00082, 0.00131, + 0.18483, 0.04721, 0.02608, 0.00126, 0.00036, + 0.00012, 0.00078, 0.00126, + 0.17695, 0.04497, 0.02376, 0.00120, 0.00033, + 0.00010, 0.00074, 0.00120 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.16979, 0.04293, 0.02175, 0.00113, 0.00031, + 0.00009, 0.00069, 0.00113, + 0.16330, 0.04108, 0.02002, 0.00103, 0.00033, + 0.00009, 0.00064, 0.00103, + 0.15711, 0.03935, 0.01849, 0.00100, 0.00031, + 0.00010, 0.00060, 0.00100, + 0.15124, 0.03775, 0.01715, 0.00102, 0.00028, + 0.00010, 0.00057, 0.00102, + 0.14596, 0.03625, 0.01595, 0.00097, 0.00026, + 0.00010, 0.00055, 0.00097 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.34945, 0.09404, 0.12470, 0.00185, 0.00011, + 0.00004, 0.00102, 0.00185, + 0.31690, 0.08400, 0.09733, 0.00174, 0.00013, + 0.00001, 0.00093, 0.00174, + 0.29020, 0.07595, 0.07813, 0.00159, 0.00019, + 0.00000, 0.00087, 0.00159, + 0.26765, 0.06933, 0.06402, 0.00146, 0.00031, + -0.00001, 0.00083, 0.00146, + 0.24891, 0.06370, 0.05355, 0.00133, 0.00026, + -0.00002, 0.00077, 0.00133, + 0.23250, 0.05895, 0.04542, 0.00121, 0.00030, + 0.00002, 0.00075, 0.00121, + 0.21805, 0.05480, 0.03899, 0.00111, 0.00031, + 0.00005, 0.00070, 0.00111 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.20509, 0.05113, 0.03386, 0.00109, 0.00030, + 0.00010, 0.00067, 0.00109, + 0.19370, 0.04798, 0.02969, 0.00098, 0.00030, + 0.00008, 0.00062, 0.00098, + 0.18322, 0.04513, 0.02623, 0.00095, 0.00028, + 0.00008, 0.00057, 0.00095, + 0.17403, 0.04255, 0.02338, 0.00089, 0.00028, + 0.00011, 0.00057, 0.00089, + 0.16569, 0.04024, 0.02100, 0.00083, 0.00027, + 0.00012, 0.00055, 0.00083, + 0.15797, 0.03817, 0.01896, 0.00078, 0.00024, + 0.00007, 0.00052, 0.00078, + 0.15093, 0.03626, 0.01721, 0.00073, 0.00023, + 0.00007, 0.00048, 0.00073 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.14451, 0.03453, 0.01570, 0.00068, 0.00023, + 0.00008, 0.00045, 0.00068, + 0.13864, 0.03294, 0.01441, 0.00063, 0.00023, + 0.00010, 0.00047, 0.00063, + 0.13320, 0.03149, 0.01328, 0.00058, 0.00024, + 0.00011, 0.00046, 0.00058, + 0.12817, 0.03015, 0.01229, 0.00052, 0.00024, + 0.00010, 0.00043, 0.00052, + 0.12335, 0.02891, 0.01141, 0.00052, 0.00024, + 0.00011, 0.00042, 0.00052 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.31051, 0.07903, 0.09809, 0.00123, 0.00002, + -0.00003, 0.00063, 0.00123, + 0.27990, 0.07018, 0.07567, 0.00117, 0.00005, + -0.00001, 0.00061, 0.00117, + 0.25483, 0.06316, 0.06005, 0.00106, 0.00013, + -0.00007, 0.00058, 0.00106, + 0.23433, 0.05729, 0.04880, 0.00093, 0.00013, + 0.00001, 0.00053, 0.00093, + 0.21651, 0.05247, 0.04045, 0.00091, 0.00020, + 0.00003, 0.00056, 0.00091, + 0.20124, 0.04836, 0.03408, 0.00085, 0.00020, + -0.00001, 0.00048, 0.00085, + 0.18806, 0.04482, 0.02909, 0.00076, 0.00014, + 0.00001, 0.00043, 0.00076 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.17605, 0.04169, 0.02511, 0.00077, 0.00015, + 0.00000, 0.00039, 0.00077, + 0.16597, 0.03893, 0.02192, 0.00065, 0.00012, + 0.00001, 0.00036, 0.00065, + 0.15666, 0.03649, 0.01930, 0.00064, 0.00017, + 0.00005, 0.00039, 0.00064, + 0.14839, 0.03433, 0.01713, 0.00058, 0.00016, + 0.00005, 0.00036, 0.00058, + 0.14084, 0.03240, 0.01531, 0.00054, 0.00016, + 0.00005, 0.00033, 0.00054, + 0.13385, 0.03064, 0.01377, 0.00053, 0.00019, + 0.00007, 0.00034, 0.00053, + 0.12757, 0.02905, 0.01247, 0.00050, 0.00018, + 0.00006, 0.00031, 0.00050 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.12183, 0.02760, 0.01136, 0.00047, 0.00016, + 0.00006, 0.00029, 0.00047, + 0.11651, 0.02627, 0.01038, 0.00047, 0.00015, + 0.00009, 0.00030, 0.00047, + 0.11166, 0.02504, 0.00953, 0.00044, 0.00015, + 0.00008, 0.00030, 0.00044, + 0.10721, 0.02392, 0.00879, 0.00038, 0.00015, + 0.00006, 0.00028, 0.00038, + 0.10303, 0.02289, 0.00815, 0.00035, 0.00015, + 0.00006, 0.00027, 0.00035 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.27231, 0.06550, 0.07610, 0.00082, -0.00002, + -0.00005, 0.00037, 0.00082, + 0.24403, 0.05780, 0.05797, 0.00075, 0.00006, + -0.00001, 0.00035, 0.00075, + 0.22099, 0.05174, 0.04557, 0.00067, 0.00005, + -0.00005, 0.00035, 0.00067, + 0.20209, 0.04678, 0.03668, 0.00061, 0.00007, + -0.00003, 0.00031, 0.00061, + 0.18593, 0.04265, 0.03021, 0.00057, 0.00008, + -0.00003, 0.00030, 0.00057, + 0.17204, 0.03914, 0.02522, 0.00056, 0.00010, + -0.00002, 0.00025, 0.00056, + 0.16013, 0.03610, 0.02139, 0.00052, 0.00012, + 0.00000, 0.00026, 0.00052 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.14992, 0.03346, 0.01837, 0.00043, 0.00011, + 0.00000, 0.00025, 0.00043, + 0.14055, 0.03116, 0.01596, 0.00042, 0.00010, + -0.00001, 0.00025, 0.00042, + 0.13230, 0.02911, 0.01397, 0.00037, 0.00009, + -0.00001, 0.00022, 0.00037, + 0.12484, 0.02732, 0.01235, 0.00035, 0.00009, + 0.00001, 0.00021, 0.00035, + 0.11815, 0.02571, 0.01100, 0.00033, 0.00010, + 0.00002, 0.00020, 0.00033, + 0.11215, 0.02426, 0.00986, 0.00030, 0.00008, + 0.00001, 0.00020, 0.00030, + 0.10665, 0.02293, 0.00890, 0.00027, 0.00010, + 0.00001, 0.00020, 0.00027 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.10160, 0.02172, 0.00808, 0.00025, 0.00011, + 0.00002, 0.00020, 0.00025, + 0.09687, 0.02065, 0.00736, 0.00026, 0.00011, + 0.00004, 0.00019, 0.00026, + 0.09260, 0.01965, 0.00675, 0.00025, 0.00011, + 0.00004, 0.00018, 0.00025, + 0.08872, 0.01872, 0.00621, 0.00023, 0.00010, + 0.00002, 0.00016, 0.00023, + 0.08507, 0.01787, 0.00574, 0.00022, 0.00009, + 0.00003, 0.00015, 0.00022 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + 0.23626, 0.05359, 0.05834, 0.00053, -0.00008, + -0.00006, 0.00015, 0.00053, + 0.21017, 0.04700, 0.04390, 0.00049, -0.00003, + -0.00004, 0.00017, 0.00049, + 0.18916, 0.04183, 0.03410, 0.00043, -0.00001, + -0.00009, 0.00019, 0.00043, + 0.17202, 0.03760, 0.02719, 0.00039, 0.00004, + -0.00007, 0.00018, 0.00039, + 0.15759, 0.03409, 0.02214, 0.00042, 0.00011, + 0.00000, 0.00022, 0.00042, + 0.14558, 0.03116, 0.01838, 0.00029, 0.00010, + -0.00004, 0.00020, 0.00029, + 0.13491, 0.02864, 0.01549, 0.00028, 0.00009, + -0.00001, 0.00019, 0.00028 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.12544, 0.02647, 0.01321, 0.00031, 0.00012, + 0.00002, 0.00018, 0.00031, + 0.11727, 0.02456, 0.01141, 0.00027, 0.00011, + 0.00001, 0.00021, 0.00027, + 0.11003, 0.02286, 0.00994, 0.00023, 0.00008, + -0.00001, 0.00018, 0.00023, + 0.10356, 0.02138, 0.00875, 0.00020, 0.00008, + 0.00000, 0.00016, 0.00020, + 0.09778, 0.02005, 0.00776, 0.00018, 0.00008, + 0.00001, 0.00015, 0.00018, + 0.09260, 0.01886, 0.00693, 0.00016, 0.00008, + 0.00002, 0.00014, 0.00016, + 0.08774, 0.01778, 0.00624, 0.00015, 0.00007, + 0.00002, 0.00013, 0.00015 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + 0.08333, 0.01682, 0.00565, 0.00015, 0.00008, + 0.00003, 0.00012, 0.00015, + 0.07934, 0.01594, 0.00513, 0.00014, 0.00009, + 0.00003, 0.00012, 0.00014, + 0.07566, 0.01513, 0.00469, 0.00014, 0.00009, + 0.00003, 0.00012, 0.00014, + 0.07228, 0.01439, 0.00431, 0.00014, 0.00008, + 0.00003, 0.00011, 0.00014, + 0.06914, 0.01370, 0.00398, 0.00013, 0.00008, + 0.00004, 0.00011, 0.00013 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + 0.20211, 0.04314, 0.04410, 0.00031, -0.00004, + -0.00005, 0.00009, 0.00031, + 0.17834, 0.03761, 0.03269, 0.00035, -0.00001, + -0.00005, 0.00010, 0.00035, + 0.15974, 0.03321, 0.02509, 0.00029, 0.00003, + -0.00006, 0.00011, 0.00029, + 0.14445, 0.02968, 0.01980, 0.00025, 0.00002, + -0.00008, 0.00011, 0.00025, + 0.13183, 0.02684, 0.01598, 0.00020, 0.00006, + -0.00001, 0.00013, 0.00020, + 0.12104, 0.02440, 0.01316, 0.00020, 0.00008, + -0.00001, 0.00012, 0.00020, + 0.11167, 0.02232, 0.01102, 0.00021, 0.00010, + 0.00002, 0.00014, 0.00021 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.10361, 0.02054, 0.00934, 0.00017, 0.00007, + 0.00003, 0.00012, 0.00017, + 0.09655, 0.01898, 0.00801, 0.00012, 0.00006, + 0.00000, 0.00010, 0.00012, + 0.09022, 0.01763, 0.00697, 0.00013, 0.00007, + 0.00001, 0.00011, 0.00013, + 0.08465, 0.01643, 0.00611, 0.00012, 0.00009, + 0.00003, 0.00012, 0.00012, + 0.07963, 0.01537, 0.00540, 0.00011, 0.00009, + 0.00004, 0.00012, 0.00011, + 0.07506, 0.01441, 0.00480, 0.00011, 0.00007, + 0.00002, 0.00011, 0.00011, + 0.07104, 0.01355, 0.00431, 0.00009, 0.00006, + 0.00003, 0.00010, 0.00009 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + 0.06738, 0.01277, 0.00388, 0.00007, 0.00006, + 0.00004, 0.00009, 0.00007, + 0.06394, 0.01208, 0.00352, 0.00007, 0.00007, + 0.00004, 0.00009, 0.00007, + 0.06082, 0.01144, 0.00321, 0.00006, 0.00006, + 0.00004, 0.00009, 0.00006, + 0.05797, 0.01085, 0.00295, 0.00006, 0.00006, + 0.00003, 0.00008, 0.00006, + 0.05532, 0.01032, 0.00271, 0.00006, 0.00006, + 0.00002, 0.00007, 0.00006 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.17057, 0.03434, 0.03287, 0.00023, -0.00006, + -0.00012, 0.00000, 0.00023, + 0.14978, 0.02973, 0.02408, 0.00020, -0.00001, + -0.00007, 0.00004, 0.00020, + 0.13336, 0.02610, 0.01826, 0.00019, 0.00000, + -0.00005, 0.00006, 0.00019, + 0.11991, 0.02323, 0.01429, 0.00016, -0.00001, + -0.00006, 0.00005, 0.00016, + 0.10893, 0.02086, 0.01146, 0.00011, 0.00003, + -0.00004, 0.00006, 0.00011, + 0.09949, 0.01889, 0.00937, 0.00011, 0.00001, + -0.00005, 0.00006, 0.00011, + 0.09148, 0.01723, 0.00779, 0.00010, 0.00001, + -0.00004, 0.00005, 0.00010 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.08452, 0.01579, 0.00658, 0.00011, 0.00003, + -0.00002, 0.00005, 0.00011, + 0.07842, 0.01457, 0.00563, 0.00011, 0.00003, + -0.00002, 0.00004, 0.00011, + 0.07314, 0.01348, 0.00486, 0.00008, 0.00005, + 0.00000, 0.00007, 0.00008, + 0.06838, 0.01252, 0.00424, 0.00007, 0.00004, + 0.00001, 0.00006, 0.00007, + 0.06412, 0.01167, 0.00373, 0.00006, 0.00004, + 0.00001, 0.00005, 0.00006, + 0.06028, 0.01093, 0.00331, 0.00007, 0.00004, + 0.00001, 0.00005, 0.00007, + 0.05686, 0.01024, 0.00296, 0.00007, 0.00003, + 0.00001, 0.00005, 0.00007 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05377, 0.00963, 0.00267, 0.00006, 0.00003, + 0.00001, 0.00006, 0.00006, + 0.05096, 0.00908, 0.00241, 0.00006, 0.00004, + 0.00002, 0.00005, 0.00006, + 0.04837, 0.00858, 0.00220, 0.00005, 0.00004, + 0.00001, 0.00004, 0.00005, + 0.04599, 0.00813, 0.00201, 0.00004, 0.00003, + 0.00000, 0.00003, 0.00004, + 0.04380, 0.00771, 0.00184, 0.00004, 0.00002, + 0.00000, 0.00003, 0.00004 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.14149, 0.02665, 0.02396, 0.00011, 0.00000, + -0.00002, 0.00003, 0.00011, + 0.12338, 0.02294, 0.01735, 0.00013, 0.00001, + -0.00001, 0.00003, 0.00013, + 0.10925, 0.02007, 0.01306, 0.00011, 0.00000, + -0.00002, 0.00003, 0.00011, + 0.09790, 0.01778, 0.01014, 0.00005, -0.00002, + -0.00003, 0.00001, 0.00005, + 0.08828, 0.01589, 0.00806, 0.00011, 0.00000, + -0.00001, 0.00004, 0.00011, + 0.08034, 0.01434, 0.00655, 0.00010, 0.00000, + -0.00002, 0.00002, 0.00010, + 0.07354, 0.01305, 0.00542, 0.00010, 0.00000, + -0.00001, 0.00001, 0.00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.06771, 0.01191, 0.00455, 0.00010, 0.00001, + -0.00001, 0.00002, 0.00010, + 0.06275, 0.01095, 0.00387, 0.00007, 0.00001, + 0.00001, 0.00003, 0.00007, + 0.05825, 0.01011, 0.00333, 0.00007, 0.00001, + 0.00001, 0.00002, 0.00007, + 0.05429, 0.00937, 0.00290, 0.00006, 0.00001, + 0.00001, 0.00003, 0.00006, + 0.05078, 0.00871, 0.00254, 0.00005, 0.00001, + 0.00000, 0.00003, 0.00005, + 0.04766, 0.00813, 0.00225, 0.00004, 0.00000, + 0.00000, 0.00001, 0.00004, + 0.04480, 0.00761, 0.00200, 0.00004, 0.00001, + 0.00000, 0.00001, 0.00004 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + 0.04223, 0.00714, 0.00180, 0.00005, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.03991, 0.00671, 0.00162, 0.00004, 0.00001, + 0.00000, 0.00002, 0.00004, + 0.03780, 0.00633, 0.00147, 0.00005, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.03586, 0.00599, 0.00134, 0.00005, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.03409, 0.00567, 0.00123, 0.00004, 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=1,7)/ + 0.09234, 0.01518, 0.01197, 0.00001, -0.00002, + -0.00002, 0.00000, 0.00001, + 0.07935, 0.01288, 0.00842, 0.00003, 0.00000, + -0.00002, 0.00000, 0.00003, + 0.06932, 0.01110, 0.00618, 0.00004, 0.00000, + -0.00001, 0.00002, 0.00004, + 0.06130, 0.00973, 0.00469, 0.00003, -0.00001, + -0.00001, 0.00000, 0.00003, + 0.05485, 0.00860, 0.00367, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00002, + 0.04951, 0.00768, 0.00293, 0.00000, 0.00002, + -0.00001, 0.00001, 0.00000, + 0.04492, 0.00692, 0.00239, 0.00000, 0.00000, + -0.00001, 0.00001, 0.00000 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + 0.04094, 0.00628, 0.00198, 0.00001, 0.00001, + -0.00001, 0.00001, 0.00001, + 0.03754, 0.00572, 0.00167, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00002, + 0.03464, 0.00524, 0.00142, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00001, + 0.03205, 0.00482, 0.00122, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00001, + 0.02975, 0.00446, 0.00107, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00002, + 0.02774, 0.00413, 0.00094, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02593, 0.00384, 0.00083, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00001 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + 0.02432, 0.00358, 0.00074, 0.00000, 0.00000, + 0.00000, 0.00001, 0.00000, + 0.02286, 0.00335, 0.00066, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.02154, 0.00314, 0.00060, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.02034, 0.00296, 0.00054, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01924, 0.00279, 0.00050, 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=1,7)/ + 0.05534, 0.00785, 0.00541, 0.00003, -0.00001, + 0.00000, 0.00000, 0.00003, + 0.04682, 0.00655, 0.00369, 0.00001, -0.00001, + -0.00002, -0.00001, 0.00001, + 0.04035, 0.00557, 0.00264, 0.00001, 0.00000, + -0.00001, 0.00000, 0.00001, + 0.03525, 0.00482, 0.00196, 0.00002, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.03115, 0.00421, 0.00150, 0.00001, 0.00001, + 0.00000, 0.00000, 0.00001, + 0.02778, 0.00373, 0.00118, 0.00000, 0.00000, + -0.00001, 0.00000, 0.00000, + 0.02496, 0.00332, 0.00095, 0.00001, 0.00001, + 0.00000, 0.00000, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ + 0.02260, 0.00298, 0.00078, 0.00000, 0.00001, + 0.00000, 0.00000, 0.00000, + 0.02054, 0.00270, 0.00065, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01880, 0.00245, 0.00054, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01726, 0.00224, 0.00047, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01591, 0.00205, 0.00040, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01474, 0.00189, 0.00035, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01369, 0.00175, 0.00031, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ + 0.01276, 0.00162, 0.00027, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01191, 0.00151, 0.00024, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01116, 0.00141, 0.00022, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01048, 0.00132, 0.00020, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00986, 0.00123, 0.00018, 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=1,7)/ + 0.02946, 0.00352, 0.00211, 0.00000, -0.00001, + -0.00001, -0.00001, 0.00000, + 0.02451, 0.00289, 0.00139, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.02080, 0.00242, 0.00097, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01793, 0.00207, 0.00070, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01565, 0.00179, 0.00053, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01378, 0.00156, 0.00041, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01226, 0.00138, 0.00032, 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=8,14)/ + 0.01099, 0.00123, 0.00026, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00989, 0.00110, 0.00021, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00897, 0.00099, 0.00018, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00817, 0.00090, 0.00015, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00747, 0.00082, 0.00013, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00686, 0.00075, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00633, 0.00068, 0.00010, 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.00586, 0.00063, 0.00009, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00544, 0.00058, 0.00008, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00507, 0.00054, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00473, 0.00050, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00442, 0.00047, 0.00006, 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.01332, 0.00130, 0.00067, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01085, 0.00105, 0.00042, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00904, 0.00086, 0.00028, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00764, 0.00072, 0.00020, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00658, 0.00062, 0.00015, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00572, 0.00053, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00502, 0.00046, 0.00009, 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.00444, 0.00041, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00395, 0.00036, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00355, 0.00032, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00320, 0.00029, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00290, 0.00026, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00264, 0.00024, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00242, 0.00021, 0.00003, 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.00222, 0.00020, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00204, 0.00018, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00188, 0.00017, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00175, 0.00015, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00162, 0.00014, 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.00101, 0.00005, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00077, 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.00050, 0.00003, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00041, 0.00002, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00034, 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 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ + 0.00025, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00014, 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.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.00010, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 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 / 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,4,5,0,0,5,5/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ C DON'T LET X BE ALTERED IF IT'S OUT OF RANGE!! XSAVE=X IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,NX-1 DO 20 M=1,19 C READ(78,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) C RESTORE X X=XSAVE RETURN END