* * $Id$ * * $Log$ * Revision 1.1.1.3 2000/04/19 13:28:54 mclareni * Import version 8.04 * * Revision 1.2 2000/04/17 18:54:48 plothow * version 8.04: small mods, dlog to log * * Revision 1.1.1.1 1996/04/12 15:29:41 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFMSAP(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C THIS IS THE NEW "Aprime" FIT -- Feb 1995 -- standard Q^2 range C #include "pdf/impdp.inc" C 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.00341, 0.00574, 16.34894, 1.36777, 0.16849, + 0.00000, 0.74209, 1.37043, + 0.00380, 0.00601, 27.84977, 1.71293, 0.53041, + 0.00000, 1.09672, 1.71625, + 0.00417, 0.00625, 41.61470, 2.11989, 0.95188, + 0.00000, 1.51192, 2.12382, + 0.00452, 0.00647, 57.12130, 2.58001, 1.42481, + 0.29549, 1.97933, 2.58449, + 0.00485, 0.00669, 74.36945, 3.09151, 1.94783, + 0.85447, 2.49742, 3.09651, + 0.00516, 0.00689, 93.12980, 3.65043, 2.51725, + 1.43583, 3.06235, 3.65592, + 0.00546, 0.00708, 113.16151, 4.25147, 3.12793, + 2.05929, 3.66894, 4.25743 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + 0.00576, 0.00727, 134.27341, 4.89014, 3.77551, + 2.71844, 4.31273, 4.89653, + 0.00604, 0.00744, 156.31604, 5.56261, 4.45626, + 3.40991, 4.98997, 5.56941, + 0.00631, 0.00762, 179.17664, 6.26585, 5.16723, + 4.13084, 5.69768, 6.27305, + 0.00658, 0.00778, 202.77608, 6.99762, 5.90626, + 4.87917, 6.43365, 7.00520, + 0.00683, 0.00794, 227.00273, 7.75517, 6.67063, + 5.65226, 7.19516, 7.76312, + 0.00708, 0.00810, 251.47612, 8.53016, 7.45208, + 6.44193, 7.97389, 8.53846, + 0.00733, 0.00825, 276.50598, 9.32807, 8.25610, + 7.25370, 8.77535, 9.33670 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + 0.00756, 0.00840, 301.98294, 10.14641, 9.08025, + 8.08518, 9.59707, 10.15537, + 0.00780, 0.00854, 327.44116, 10.97447, 9.91385, + 8.92575, 10.42836, 10.98375, + 0.00802, 0.00868, 353.43365, 11.82398, 10.76864, + 9.78716, 11.28094, 11.83356, + 0.00825, 0.00882, 379.29434, 12.67963, 11.62935, + 10.65419, 12.13954, 12.68951, + 0.00846, 0.00895, 405.52954, 13.55245, 12.50701, + 11.53788, 13.01519, 13.56261 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + 0.00523, 0.00746, 14.27491, 1.20378, 0.14390, + 0.00000, 0.64930, 1.20653, + 0.00579, 0.00782, 23.56232, 1.48695, 0.44209, + 0.00000, 0.94077, 1.49013, + 0.00630, 0.00815, 34.37032, 1.81410, 0.78224, + 0.00000, 1.27513, 1.81768, + 0.00679, 0.00845, 46.26783, 2.17756, 1.15717, + 0.23398, 1.64495, 2.18150, + 0.00725, 0.00874, 59.24736, 2.57556, 1.56547, + 0.67185, 2.04869, 2.57984, + 0.00769, 0.00901, 73.12711, 3.00465, 2.00394, + 1.12063, 2.48302, 3.00924, + 0.00811, 0.00927, 87.72483, 3.46052, 2.46842, + 1.59600, 2.94370, 3.46542 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + 0.00851, 0.00952, 102.90147, 3.93963, 2.95547, + 2.09293, 3.42725, 3.94481, + 0.00890, 0.00976, 118.55226, 4.43904, 3.46226, + 2.60888, 3.93080, 4.44449, + 0.00928, 0.00999, 134.60143, 4.95651, 3.98662, + 3.14173, 4.45214, 4.96221, + 0.00965, 0.01021, 150.99817, 5.49039, 4.52695, + 3.69000, 4.98964, 5.49633, + 0.01000, 0.01042, 167.66873, 6.03869, 5.08132, + 4.25181, 5.54136, 6.04487, + 0.01034, 0.01063, 184.35077, 6.59534, 5.64372, + 4.82121, 6.10124, 6.60174, + 0.01068, 0.01083, 201.27243, 7.16452, 6.21833, + 5.40243, 6.67348, 7.17113 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + 0.01100, 0.01103, 218.36198, 7.74447, 6.80344, + 5.99379, 7.25634, 7.75130, + 0.01132, 0.01122, 235.30188, 8.32752, 7.39141, + 6.58770, 7.84216, 8.33455, + 0.01163, 0.01140, 252.48384, 8.92230, 7.99087, + 7.19280, 8.43958, 8.92952, + 0.01193, 0.01158, 269.45328, 9.51785, 8.59091, + 7.79822, 9.03767, 9.52526, + 0.01223, 0.01176, 286.56522, 10.12224, 9.19958, + 8.41204, 9.64448, 10.12983 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + 0.00790, 0.00970, 12.46120, 1.05878, 0.12275, + 0.00000, 0.56794, 1.06166, + 0.00869, 0.01019, 19.92904, 1.29013, 0.36761, + 0.00000, 0.80661, 1.29328, + 0.00942, 0.01064, 28.37716, 1.55193, 0.64110, + 0.00000, 1.07475, 1.55533, + 0.01010, 0.01105, 37.46199, 1.83766, 0.93712, + 0.18454, 1.36608, 1.84129, + 0.01074, 0.01144, 47.18013, 2.14581, 1.25452, + 0.52621, 1.67926, 2.14965, + 0.01135, 0.01180, 57.39457, 2.47355, 1.59067, + 0.87124, 2.01158, 2.47759, + 0.01194, 0.01215, 67.97319, 2.81751, 1.94234, + 1.23218, 2.35975, 2.82173 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + 0.01250, 0.01248, 78.81964, 3.17500, 2.30695, + 1.60521, 2.72113, 3.17940, + 0.01304, 0.01280, 89.86458, 3.54389, 2.68244, + 1.98850, 3.09362, 3.54845, + 0.01356, 0.01311, 101.06064, 3.92255, 3.06727, + 2.38056, 3.47565, 3.92727, + 0.01406, 0.01340, 112.37846, 4.30986, 3.46036, + 2.78041, 3.86613, 4.31474, + 0.01455, 0.01369, 123.77215, 4.70446, 3.86038, + 3.18676, 4.26369, 4.70947, + 0.01502, 0.01396, 135.06305, 5.10196, 4.26301, + 3.59536, 4.66400, 5.10711, + 0.01547, 0.01423, 146.42036, 5.50559, 4.67150, + 4.00946, 5.07029, 5.51088 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + 0.01592, 0.01448, 157.79880, 5.91415, 5.08467, + 4.42794, 5.48138, 5.91957, + 0.01635, 0.01473, 168.98354, 6.32219, 5.49709, + 4.84542, 5.89181, 6.32772, + 0.01677, 0.01498, 180.25227, 6.73607, 5.91515, + 5.26827, 6.30799, 6.74172, + 0.01718, 0.01521, 191.29652, 7.14800, 6.33107, + 5.68878, 6.72211, 7.15377, + 0.01759, 0.01544, 202.36566, 7.56387, 6.75077, + 6.11285, 7.14008, 7.56975 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + 0.01001, 0.01132, 11.50687, 0.98175, 0.11177, + 0.00000, 0.52504, 0.98476, + 0.01098, 0.01190, 18.06482, 1.18683, 0.32958, + 0.00000, 0.73695, 1.19005, + 0.01187, 0.01243, 25.36090, 1.41606, 0.56981, + 0.00000, 0.97209, 1.41947, + 0.01269, 0.01292, 33.09897, 1.66362, 0.82706, + 0.16028, 1.22486, 1.66720, + 0.01347, 0.01338, 41.28057, 1.92820, 1.10035, + 0.45517, 1.49413, 1.93194, + 0.01422, 0.01382, 49.79235, 2.20736, 1.38742, + 0.75036, 1.77755, 2.21125, + 0.01492, 0.01423, 58.52721, 2.49822, 1.68553, + 1.05691, 2.07231, 2.50225 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + 0.01560, 0.01463, 67.40930, 2.79855, 1.99255, + 1.37159, 2.37625, 2.80271, + 0.01625, 0.01501, 76.38609, 3.10659, 2.30680, + 1.69293, 2.68764, 3.11088, + 0.01688, 0.01537, 85.42310, 3.42106, 2.62706, + 2.01977, 3.00523, 3.42546, + 0.01748, 0.01571, 94.50066, 3.74108, 2.95251, + 2.35136, 3.32818, 3.74560, + 0.01807, 0.01605, 103.58522, 4.06556, 3.28209, + 2.68669, 3.65542, 4.07019, + 0.01863, 0.01637, 112.53505, 4.39093, 3.61228, + 3.02230, 3.98339, 4.39566, + 0.01918, 0.01669, 121.49236, 4.71996, 3.94586, + 3.36100, 4.31488, 4.72479 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + 0.01972, 0.01699, 130.42348, 5.05172, 4.28194, + 3.70191, 4.64897, 5.05664, + 0.02023, 0.01728, 139.15791, 5.38174, 4.61608, + 4.04064, 4.98121, 5.38675, + 0.02074, 0.01757, 147.92311, 5.71536, 4.95363, + 4.38254, 5.31696, 5.72047, + 0.02123, 0.01784, 156.47362, 6.04622, 5.28824, + 4.72131, 5.64984, 6.05141, + 0.02171, 0.01811, 165.01198, 6.37922, 5.62483, + 5.06187, 5.98479, 6.38450 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + 0.01181, 0.01262, 10.87302, 0.93026, 0.10455, + 0.00000, 0.49651, 0.93338, + 0.01293, 0.01329, 16.84599, 1.11830, 0.30481, + 0.00000, 0.69108, 1.12161, + 0.01395, 0.01389, 23.41261, 1.32664, 0.52370, + 0.00000, 0.90505, 1.33011, + 0.01490, 0.01445, 30.30828, 1.54994, 0.75629, + 0.14487, 1.13332, 1.55355, + 0.01580, 0.01497, 37.53857, 1.78706, 1.00176, + 0.41022, 1.37490, 1.79081, + 0.01665, 0.01546, 45.00551, 2.03581, 1.25810, + 0.67418, 1.62771, 2.03968, + 0.01746, 0.01593, 52.61781, 2.29365, 1.52290, + 0.94686, 1.88927, 2.29765 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + 0.01824, 0.01637, 60.31244, 2.55865, 1.79431, + 1.22542, 2.15769, 2.56275, + 0.01898, 0.01680, 68.04700, 2.82928, 2.07089, + 1.50863, 2.43151, 2.83348, + 0.01970, 0.01720, 75.79476, 3.10447, 2.35163, + 1.79552, 2.70967, 3.10877, + 0.02039, 0.01760, 83.54190, 3.38349, 2.63586, + 2.08548, 2.99148, 3.38790, + 0.02105, 0.01797, 91.26199, 3.66545, 2.92270, + 2.37771, 3.27606, 3.66995, + 0.02170, 0.01834, 98.83516, 3.94725, 3.20911, + 2.66918, 3.56032, 3.95183, + 0.02232, 0.01869, 106.38724, 4.23137, 3.49760, + 2.96244, 3.84678, 4.23603 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + 0.02293, 0.01903, 113.89106, 4.51705, 3.78743, + 3.25677, 4.13468, 4.52179, + 0.02351, 0.01936, 121.20264, 4.80043, 4.07475, + 3.54838, 4.42017, 4.80525, + 0.02409, 0.01968, 128.51881, 5.08622, 4.36429, + 3.84200, 4.70797, 5.09111, + 0.02464, 0.01999, 135.63156, 5.36890, 4.65057, + 4.13215, 4.99258, 5.37387, + 0.02519, 0.02029, 142.71542, 5.65280, 4.93790, + 4.42319, 5.27832, 5.65783 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + 0.01342, 0.01374, 10.40444, 0.89200, 0.09924, + 0.00000, 0.47540, 0.89525, + 0.01466, 0.01447, 15.95537, 1.06768, 0.28676, + 0.00000, 0.65738, 1.07109, + 0.01580, 0.01514, 22.00158, 1.26097, 0.49028, + 0.00000, 0.85611, 1.26452, + 0.01686, 0.01575, 28.30171, 1.46691, 0.70523, + 0.13386, 1.06685, 1.47060, + 0.01786, 0.01633, 34.86451, 1.68451, 0.93092, + 0.37817, 1.28875, 1.68832, + 0.01881, 0.01687, 41.60317, 1.91176, 1.16552, + 0.62002, 1.51991, 1.91568, + 0.01971, 0.01738, 48.43763, 2.14637, 1.40686, + 0.86884, 1.75811, 2.15039 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + 0.02057, 0.01787, 55.31372, 2.38660, 1.65331, + 1.12207, 2.00164, 2.39072, + 0.02139, 0.01834, 62.19605, 2.63112, 1.90360, + 1.37864, 2.24923, 2.63533, + 0.02219, 0.01878, 69.06330, 2.87899, 2.15685, + 1.63773, 2.49997, 2.88330, + 0.02295, 0.01921, 75.90525, 3.12961, 2.41250, + 1.89882, 2.75327, 3.13400, + 0.02369, 0.01962, 82.70053, 3.38218, 2.66981, + 2.16123, 3.00836, 3.38665, + 0.02440, 0.02002, 89.34396, 3.63396, 2.92605, + 2.42227, 3.26252, 3.63850, + 0.02509, 0.02040, 95.95007, 3.88723, 3.18355, + 2.68429, 3.51804, 3.89185 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + 0.02576, 0.02078, 102.49614, 4.14133, 3.44166, + 2.94668, 3.77428, 4.14602, + 0.02641, 0.02114, 108.85563, 4.39283, 3.69698, + 3.20606, 4.02781, 4.39759, + 0.02704, 0.02148, 115.20495, 4.64598, 3.95378, + 3.46671, 4.28290, 4.65081, + 0.02765, 0.02182, 121.36076, 4.89588, 4.20715, + 3.72377, 4.53465, 4.90077, + 0.02825, 0.02215, 127.47897, 5.14642, 4.46102, + 3.98114, 4.78696, 5.15137 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + 0.01982, 0.01792, 9.06611, 0.78170, 0.08426, + 0.00000, 0.41502, 0.78550, + 0.02157, 0.01891, 13.46304, 0.92319, 0.23655, + 0.00000, 0.56221, 0.92713, + 0.02318, 0.01981, 18.11430, 1.07546, 0.39816, + 0.00000, 0.71942, 1.07954, + 0.02466, 0.02064, 22.84342, 1.23470, 0.56562, + 0.10422, 0.88300, 1.23889, + 0.02605, 0.02141, 27.66872, 1.40031, 0.73860, + 0.29241, 1.05249, 1.40460, + 0.02736, 0.02213, 32.53346, 1.57082, 0.91583, + 0.47583, 1.22655, 1.57523, + 0.02861, 0.02282, 37.38685, 1.74464, 1.09579, + 0.66212, 1.40361, 1.74914 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + 0.02979, 0.02347, 42.19742, 1.92058, 1.27740, + 0.84947, 1.58254, 1.92516, + 0.03093, 0.02409, 46.94717, 2.09777, 1.45985, + 1.03725, 1.76251, 2.10244, + 0.03202, 0.02469, 51.62756, 2.27566, 1.64264, + 1.22497, 1.94298, 2.28041, + 0.03306, 0.02525, 56.23737, 2.45390, 1.82548, + 1.41241, 2.12364, 2.45873, + 0.03407, 0.02580, 60.76658, 2.63203, 2.00793, + 1.59918, 2.30405, 2.63693, + 0.03504, 0.02632, 65.14653, 2.80813, 2.18811, + 1.78342, 2.48231, 2.81311, + 0.03597, 0.02683, 69.46220, 2.98401, 2.36784, + 1.96697, 2.66021, 2.98905 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + 0.03688, 0.02732, 73.70121, 3.15924, 2.54674, + 2.14949, 2.83738, 3.16435, + 0.03776, 0.02779, 77.78007, 3.33145, 2.72243, + 2.32861, 3.01142, 3.33662, + 0.03861, 0.02825, 81.82326, 3.50378, 2.89807, + 2.50751, 3.18550, 3.50901, + 0.03944, 0.02869, 85.70834, 3.67278, 3.07024, + 2.68279, 3.35616, 3.67806, + 0.04025, 0.02912, 89.54416, 3.84130, 3.24180, + 2.85731, 3.52628, 3.84664 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + 0.02910, 0.02346, 7.88212, 0.68264, 0.07127, + 0.00000, 0.36145, 0.68732, + 0.03156, 0.02480, 11.32634, 0.79541, 0.19399, + 0.00000, 0.47949, 0.80028, + 0.03380, 0.02602, 14.86166, 0.91404, 0.32122, + 0.00000, 0.60268, 0.91908, + 0.03586, 0.02713, 18.36563, 1.03571, 0.45047, + 0.08043, 0.72836, 1.04091, + 0.03778, 0.02816, 21.86448, 1.16019, 0.58176, + 0.22407, 0.85644, 1.16554, + 0.03960, 0.02913, 25.32497, 1.28651, 0.71427, + 0.36186, 0.98603, 1.29199, + 0.04131, 0.03004, 28.71812, 1.41360, 0.84703, + 0.49995, 1.11612, 1.41921 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + 0.04294, 0.03091, 32.02872, 1.54070, 0.97937, + 0.63714, 1.24599, 1.54643, + 0.04449, 0.03173, 35.25054, 1.66732, 1.11085, + 0.77311, 1.37518, 1.67317, + 0.04598, 0.03252, 38.38342, 1.79316, 1.24122, + 0.90764, 1.50342, 1.79911, + 0.04740, 0.03327, 41.43144, 1.91808, 1.37039, + 1.04069, 1.63058, 1.92414, + 0.04876, 0.03399, 44.39192, 2.04184, 1.49814, + 1.17207, 1.75645, 2.04800, + 0.05007, 0.03468, 47.22102, 2.16314, 1.62321, + 1.30056, 1.87974, 2.16940, + 0.05134, 0.03534, 49.98155, 2.28337, 1.74701, + 1.42758, 2.00186, 2.28972 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + 0.05256, 0.03598, 52.66763, 2.40231, 1.86933, + 1.55294, 2.12258, 2.40874, + 0.05374, 0.03660, 55.22485, 2.51831, 1.98855, + 1.67506, 2.24029, 2.52483, + 0.05489, 0.03719, 57.74058, 2.63370, 2.10701, + 1.79626, 2.35729, 2.64030, + 0.05600, 0.03777, 60.13393, 2.74607, 2.22231, + 1.91418, 2.47121, 2.75275, + 0.05707, 0.03833, 62.48022, 2.85749, 2.33655, + 2.03091, 2.58412, 2.86425 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + 0.03635, 0.02756, 7.24898, 0.62902, 0.06443, + 0.00000, 0.33273, 0.63441, + 0.03934, 0.02916, 10.21210, 0.72709, 0.17204, + 0.00000, 0.43588, 0.73273, + 0.04206, 0.03060, 13.19847, 0.82885, 0.28204, + 0.00000, 0.54203, 0.83470, + 0.04454, 0.03192, 16.11250, 0.93199, 0.39245, + 0.06872, 0.64904, 0.93805, + 0.04687, 0.03314, 18.98394, 1.03647, 0.50346, + 0.19063, 0.75699, 1.04271, + 0.04905, 0.03429, 21.79053, 1.14156, 0.61449, + 0.30646, 0.86525, 1.14798, + 0.05111, 0.03537, 24.51313, 1.24645, 0.72482, + 0.42161, 0.97303, 1.25303 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + 0.05306, 0.03639, 27.14354, 1.35059, 0.83399, + 0.53516, 1.07985, 1.35733, + 0.05491, 0.03735, 29.68041, 1.45365, 0.94171, + 0.64693, 1.18539, 1.46053, + 0.05668, 0.03828, 32.12677, 1.55544, 1.04786, + 0.75683, 1.28949, 1.56246, + 0.05838, 0.03915, 34.48865, 1.65592, 1.15241, + 0.86489, 1.39214, 1.66307, + 0.06000, 0.04000, 36.76609, 1.75493, 1.25526, + 0.97101, 1.49319, 1.76221, + 0.06156, 0.04080, 38.92599, 1.85145, 1.35541, + 1.07424, 1.59164, 1.85886, + 0.06306, 0.04157, 41.02062, 1.94669, 1.45407, + 1.17581, 1.68870, 1.95421 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + 0.06451, 0.04232, 43.04662, 2.04048, 1.55112, + 1.27561, 1.78423, 2.04812, + 0.06590, 0.04304, 44.96209, 2.13154, 1.64527, + 1.37236, 1.87693, 2.13928, + 0.06725, 0.04373, 46.83757, 2.22177, 1.73846, + 1.46803, 1.96874, 2.22962, + 0.06856, 0.04440, 48.61013, 2.30926, 1.82877, + 1.56070, 2.05773, 2.31721, + 0.06983, 0.04505, 50.34008, 2.39573, 1.91794, + 1.65211, 2.14563, 2.40377 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + 0.04254, 0.03097, 6.82189, 0.59259, 0.05986, + 0.00000, 0.31332, 0.59857, + 0.04597, 0.03277, 9.47231, 0.68104, 0.15758, + 0.00000, 0.40673, 0.68732, + 0.04908, 0.03440, 12.10788, 0.77189, 0.25645, + 0.00000, 0.50187, 0.77843, + 0.05192, 0.03589, 14.65013, 0.86319, 0.35482, + 0.06124, 0.59695, 0.86997, + 0.05456, 0.03727, 17.13078, 0.95501, 0.45298, + 0.16937, 0.69216, 0.96201, + 0.05704, 0.03856, 19.53420, 1.04676, 0.55052, + 0.27138, 0.78701, 1.05397, + 0.05938, 0.03977, 21.84714, 1.13780, 0.64686, + 0.37219, 0.88088, 1.14520 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + 0.06159, 0.04091, 24.06540, 1.22771, 0.74166, + 0.47106, 0.97341, 1.23530, + 0.06369, 0.04199, 26.19033, 1.31624, 0.83474, + 0.56790, 1.06438, 1.32401, + 0.06569, 0.04302, 28.22665, 1.40329, 0.92603, + 0.66268, 1.15370, 1.41122, + 0.06760, 0.04401, 30.18129, 1.48886, 1.01557, + 0.75548, 1.24140, 1.49695, + 0.06943, 0.04494, 32.05577, 1.57285, 1.10330, + 0.84625, 1.32739, 1.58109, + 0.07118, 0.04584, 33.82315, 1.65440, 1.18838, + 0.93419, 1.41083, 1.66278, + 0.07286, 0.04670, 35.52917, 1.73459, 1.27191, + 1.02042, 1.49281, 1.74311 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + 0.07449, 0.04753, 37.17181, 1.81331, 1.35380, + 1.10486, 1.57323, 1.82196, + 0.07605, 0.04833, 38.71652, 1.88946, 1.43297, + 1.18644, 1.65099, 1.89824, + 0.07757, 0.04910, 40.22359, 1.96472, 1.51111, + 1.26688, 1.72780, 1.97363, + 0.07903, 0.04984, 41.64064, 2.03745, 1.58660, + 1.34455, 1.80201, 2.04648, + 0.08045, 0.05056, 43.01890, 2.10915, 1.66093, + 1.42097, 1.87512, 2.11830 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + 0.04809, 0.03401, 6.49679, 0.56487, 0.05640, + 0.00000, 0.29842, 0.57126, + 0.05189, 0.03600, 8.91391, 0.64615, 0.14674, + 0.00000, 0.38455, 0.65286, + 0.05533, 0.03780, 11.29112, 0.72896, 0.23739, + 0.00000, 0.47156, 0.73596, + 0.05846, 0.03943, 13.56253, 0.81160, 0.32694, + 0.05578, 0.55789, 0.81886, + 0.06137, 0.04094, 15.76106, 0.89422, 0.41577, + 0.15388, 0.64384, 0.90172, + 0.06410, 0.04235, 17.87583, 0.97635, 0.50355, + 0.24589, 0.72900, 0.98408, + 0.06667, 0.04368, 19.89749, 1.05745, 0.58983, + 0.33639, 0.81287, 1.06539 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + 0.06909, 0.04492, 21.82453, 1.13719, 0.67435, + 0.42476, 0.89518, 1.14533, + 0.07139, 0.04610, 23.66011, 1.21540, 0.75700, + 0.51095, 0.97576, 1.22372, + 0.07358, 0.04722, 25.40997, 1.29200, 0.83775, + 0.59499, 1.05458, 1.30050, + 0.07567, 0.04829, 27.08148, 1.36704, 0.91667, + 0.67698, 1.13170, 1.37571, + 0.07766, 0.04931, 28.67694, 1.44045, 0.99374, + 0.75692, 1.20708, 1.44930, + 0.07957, 0.05028, 30.17404, 1.51150, 1.06824, + 0.83412, 1.27998, 1.52050, + 0.08141, 0.05121, 31.61345, 1.58117, 1.14117, + 0.90959, 1.35139, 1.59031 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + 0.08318, 0.05210, 32.99401, 1.64937, 1.21248, + 0.98330, 1.42126, 1.65867, + 0.08487, 0.05296, 34.28631, 1.71516, 1.28122, + 1.05432, 1.48863, 1.72459, + 0.08652, 0.05379, 35.54338, 1.78004, 1.34891, + 1.12417, 1.55502, 1.78960, + 0.08810, 0.05459, 36.72006, 1.84256, 1.41411, + 1.19144, 1.61898, 1.85225, + 0.08964, 0.05537, 37.86131, 1.90406, 1.47819, + 1.25748, 1.68187, 1.91388 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + 0.07026, 0.04588, 5.55100, 0.48325, 0.04652, + 0.00000, 0.25510, 0.49150, + 0.07544, 0.04856, 7.33070, 0.54464, 0.11642, + 0.00000, 0.32109, 0.55334, + 0.08009, 0.05095, 9.01919, 0.60557, 0.18472, + 0.00000, 0.38601, 0.61468, + 0.08430, 0.05312, 10.58275, 0.66502, 0.25065, + 0.04116, 0.44896, 0.67449, + 0.08819, 0.05510, 12.05601, 0.72331, 0.31478, + 0.11264, 0.51042, 0.73313, + 0.09181, 0.05695, 13.43913, 0.78026, 0.37705, + 0.17846, 0.57025, 0.79040, + 0.09520, 0.05867, 14.73205, 0.83562, 0.43727, + 0.24218, 0.62824, 0.84604 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + 0.09839, 0.06028, 15.93910, 0.88926, 0.49541, + 0.30351, 0.68432, 0.89996, + 0.10139, 0.06180, 17.06683, 0.94117, 0.55150, + 0.36253, 0.73848, 0.95213, + 0.10424, 0.06323, 18.12267, 0.99139, 0.60561, + 0.41937, 0.79081, 1.00259, + 0.10694, 0.06459, 19.11442, 1.04001, 0.65789, + 0.47420, 0.84142, 1.05145, + 0.10952, 0.06588, 20.04600, 1.08708, 0.70840, + 0.52708, 0.89036, 1.09874, + 0.11197, 0.06710, 20.90477, 1.13212, 0.75668, + 0.57759, 0.93715, 1.14399, + 0.11432, 0.06827, 21.71924, 1.17588, 0.80350, + 0.62652, 0.98257, 1.18795 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + 0.11658, 0.06939, 22.48988, 1.21833, 0.84888, + 0.67387, 1.02661, 1.23060, + 0.11873, 0.07046, 23.19905, 1.25887, 0.89219, + 0.71907, 1.06865, 1.27131, + 0.12082, 0.07149, 23.88179, 1.29856, 0.93452, + 0.76318, 1.10977, 1.31118, + 0.12282, 0.07248, 24.51019, 1.33644, 0.97492, + 0.80529, 1.14902, 1.34922, + 0.12475, 0.07343, 25.11353, 1.37345, 1.01436, + 0.84634, 1.18734, 1.38640 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + 0.10240, 0.06303, 4.67694, 0.40698, 0.03770, + 0.00000, 0.21496, 0.41783, + 0.10929, 0.06656, 5.92991, 0.45155, 0.09028, + 0.00000, 0.26392, 0.46304, + 0.11542, 0.06968, 7.07151, 0.49456, 0.14022, + 0.00000, 0.31072, 0.50661, + 0.12092, 0.07246, 8.09113, 0.53547, 0.18723, + 0.02947, 0.35497, 0.54802, + 0.12596, 0.07500, 9.02240, 0.57473, 0.23198, + 0.07997, 0.39723, 0.58773, + 0.13062, 0.07733, 9.87177, 0.61235, 0.27459, + 0.12552, 0.43758, 0.62577, + 0.13495, 0.07949, 10.64485, 0.64826, 0.31508, + 0.16887, 0.47600, 0.66207 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + 0.13899, 0.08150, 11.34855, 0.68249, 0.35353, + 0.20993, 0.51254, 0.69666, + 0.14278, 0.08337, 11.99027, 0.71509, 0.39006, + 0.24887, 0.54729, 0.72960, + 0.14635, 0.08512, 12.57767, 0.74619, 0.42481, + 0.28585, 0.58039, 0.76101, + 0.14972, 0.08678, 13.11783, 0.77590, 0.45796, + 0.32107, 0.61199, 0.79103, + 0.15291, 0.08834, 13.61470, 0.80430, 0.48958, + 0.35463, 0.64215, 0.81971, + 0.15593, 0.08981, 14.06173, 0.83111, 0.51943, + 0.38630, 0.67062, 0.84678, + 0.15881, 0.09120, 14.47832, 0.85687, 0.54807, + 0.41666, 0.69796, 0.87280 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + 0.16156, 0.09254, 14.86561, 0.88161, 0.57555, + 0.44575, 0.72420, 0.89777, + 0.16418, 0.09380, 15.21296, 0.90492, 0.60146, + 0.47319, 0.74893, 0.92131, + 0.16670, 0.09501, 15.54287, 0.92756, 0.62657, + 0.49975, 0.77293, 0.94417, + 0.16910, 0.09616, 15.83879, 0.94891, 0.65029, + 0.52486, 0.79557, 0.96573, + 0.17142, 0.09726, 16.11901, 0.96961, 0.67326, + 0.54914, 0.81751, 0.98662 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + 0.12745, 0.07649, 4.19462, 0.36460, 0.03300, + -0.00001, 0.19297, 0.37764, + 0.13548, 0.08056, 5.18766, 0.40068, 0.07681, + -0.00001, 0.23331, 0.41448, + 0.14257, 0.08413, 6.06860, 0.43484, 0.11767, + -0.00001, 0.27118, 0.44932, + 0.14889, 0.08728, 6.83642, 0.46682, 0.15554, + 0.02382, 0.30641, 0.48189, + 0.15464, 0.09013, 7.52282, 0.49708, 0.19109, + 0.06430, 0.33959, 0.51268, + 0.15993, 0.09274, 8.13662, 0.52570, 0.22453, + 0.10034, 0.37086, 0.54179, + 0.16482, 0.09514, 8.68463, 0.55269, 0.25593, + 0.13428, 0.40029, 0.56922 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + 0.16936, 0.09735, 9.17423, 0.57812, 0.28544, + 0.16608, 0.42796, 0.59507, + 0.17360, 0.09940, 9.61286, 0.60210, 0.31319, + 0.19597, 0.45403, 0.61943, + 0.17757, 0.10131, 10.00758, 0.62475, 0.33936, + 0.22410, 0.47862, 0.64243, + 0.18130, 0.10310, 10.36471, 0.64619, 0.36411, + 0.25067, 0.50188, 0.66421, + 0.18483, 0.10478, 10.68804, 0.66650, 0.38753, + 0.27580, 0.52390, 0.68484, + 0.18814, 0.10636, 10.97301, 0.68549, 0.40944, + 0.29931, 0.54450, 0.70411, + 0.19130, 0.10785, 11.23473, 0.70360, 0.43032, + 0.32170, 0.56413, 0.72250 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + 0.19431, 0.10926, 11.47438, 0.72085, 0.45021, + 0.34301, 0.58284, 0.74002, + 0.19715, 0.11059, 11.68461, 0.73697, 0.46882, + 0.36296, 0.60033, 0.75638, + 0.19988, 0.11187, 11.88214, 0.75253, 0.48677, + 0.38218, 0.61720, 0.77218, + 0.20247, 0.11307, 12.05502, 0.76707, 0.50358, + 0.40021, 0.63299, 0.78694, + 0.20497, 0.11422, 12.21671, 0.78108, 0.51978, + 0.41756, 0.64821, 0.80117 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + 0.14876, 0.08805, 3.86320, 0.33548, 0.02987, + -0.00001, 0.17799, 0.35048, + 0.15761, 0.09248, 4.69173, 0.36608, 0.06800, + -0.00001, 0.21277, 0.38193, + 0.16539, 0.09634, 5.41151, 0.39465, 0.10310, + -0.00001, 0.24497, 0.41125, + 0.17228, 0.09973, 6.02668, 0.42106, 0.13523, + 0.02028, 0.27455, 0.43830, + 0.17852, 0.10277, 6.56719, 0.44576, 0.16509, + 0.05453, 0.30212, 0.46360, + 0.18424, 0.10554, 7.04262, 0.46889, 0.19291, + 0.08474, 0.32785, 0.48726, + 0.18950, 0.10807, 7.46029, 0.49050, 0.21881, + 0.11295, 0.35183, 0.50935 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + 0.19436, 0.11039, 7.82757, 0.51067, 0.24294, + 0.13918, 0.37420, 0.52996, + 0.19887, 0.11252, 8.15155, 0.52953, 0.26548, + 0.16364, 0.39509, 0.54923, + 0.20309, 0.11451, 8.43867, 0.54720, 0.28657, + 0.18652, 0.41466, 0.56728, + 0.20704, 0.11636, 8.69462, 0.56380, 0.30638, + 0.20800, 0.43304, 0.58423, + 0.21076, 0.11809, 8.92290, 0.57942, 0.32502, + 0.22818, 0.45032, 0.60018, + 0.21425, 0.11970, 9.12015, 0.59389, 0.34233, + 0.24695, 0.46637, 0.61495, + 0.21755, 0.12121, 9.29882, 0.60761, 0.35875, + 0.26473, 0.48157, 0.62896 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + 0.22069, 0.12265, 9.46000, 0.62060, 0.37430, + 0.28157, 0.49598, 0.64223, + 0.22365, 0.12399, 9.59801, 0.63264, 0.38875, + 0.29725, 0.50935, 0.65451, + 0.22648, 0.12527, 9.72629, 0.64420, 0.40263, + 0.31228, 0.52219, 0.66632, + 0.22916, 0.12647, 9.83543, 0.65492, 0.41556, + 0.32630, 0.53412, 0.67726, + 0.23173, 0.12763, 9.93618, 0.66520, 0.42796, + 0.33975, 0.54557, 0.68776 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + 0.16762, 0.09833, 3.61212, 0.31344, 0.02756, + 0.00000, 0.16678, 0.33028, + 0.17712, 0.10302, 4.32408, 0.34010, 0.06159, + 0.00000, 0.19755, 0.35786, + 0.18541, 0.10708, 4.93174, 0.36470, 0.09258, + 0.00000, 0.22572, 0.38326, + 0.19272, 0.11061, 5.44235, 0.38718, 0.12068, + 0.01780, 0.25133, 0.40644, + 0.19932, 0.11377, 5.88435, 0.40802, 0.14657, + 0.04769, 0.27498, 0.42790, + 0.20533, 0.11662, 6.26741, 0.42737, 0.17050, + 0.07385, 0.29688, 0.44780, + 0.21083, 0.11921, 6.59889, 0.44528, 0.19262, + 0.09810, 0.31713, 0.46622 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + 0.21590, 0.12158, 6.88616, 0.46189, 0.21310, + 0.12053, 0.33589, 0.48328, + 0.22060, 0.12375, 7.13598, 0.47729, 0.23210, + 0.14131, 0.35329, 0.49911, + 0.22497, 0.12575, 7.35402, 0.49161, 0.24977, + 0.16064, 0.36947, 0.51382, + 0.22905, 0.12761, 7.54555, 0.50498, 0.26628, + 0.17868, 0.38458, 0.52755, + 0.23288, 0.12935, 7.71402, 0.51748, 0.28173, + 0.19557, 0.39871, 0.54038, + 0.23645, 0.13095, 7.85628, 0.52897, 0.29600, + 0.21119, 0.41174, 0.55218, + 0.23983, 0.13245, 7.98334, 0.53981, 0.30947, + 0.22591, 0.42403, 0.56330 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + 0.24303, 0.13387, 8.09623, 0.55001, 0.32217, + 0.23981, 0.43562, 0.57378, + 0.24603, 0.13519, 8.19012, 0.55939, 0.33392, + 0.25268, 0.44630, 0.58340, + 0.24890, 0.13644, 8.27632, 0.56837, 0.34515, + 0.26498, 0.45653, 0.59262, + 0.25160, 0.13762, 8.34703, 0.57661, 0.35555, + 0.27639, 0.46596, 0.60108, + 0.25420, 0.13873, 8.41129, 0.58449, 0.36549, + 0.28729, 0.47497, 0.60917 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + 0.24212, 0.13901, 2.86282, 0.24796, 0.02101, + 0.00000, 0.13429, 0.27290, + 0.25325, 0.14405, 3.27095, 0.26394, 0.04394, + 0.00000, 0.15419, 0.28993, + 0.26276, 0.14827, 3.59596, 0.27805, 0.06406, + -0.00001, 0.17168, 0.30492, + 0.27096, 0.15183, 3.85037, 0.29042, 0.08170, + 0.01133, 0.18699, 0.31800, + 0.27822, 0.15493, 4.05673, 0.30147, 0.09747, + 0.03004, 0.20068, 0.32966, + 0.28471, 0.15765, 4.22395, 0.31135, 0.11166, + 0.04597, 0.21297, 0.34009, + 0.29056, 0.16006, 4.35871, 0.32020, 0.12445, + 0.06041, 0.22400, 0.34942 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + 0.29583, 0.16220, 4.46693, 0.32814, 0.13600, + 0.07346, 0.23394, 0.35776, + 0.30064, 0.16411, 4.55346, 0.33525, 0.14646, + 0.08530, 0.24291, 0.36524, + 0.30504, 0.16582, 4.62246, 0.34166, 0.15600, + 0.09611, 0.25104, 0.37197, + 0.30909, 0.16738, 4.67741, 0.34746, 0.16472, + 0.10601, 0.25846, 0.37807, + 0.31283, 0.16879, 4.72050, 0.35273, 0.17273, + 0.11512, 0.26523, 0.38360, + 0.31625, 0.17006, 4.75054, 0.35738, 0.17996, + 0.12338, 0.27130, 0.38849, + 0.31945, 0.17123, 4.77357, 0.36165, 0.18667, + 0.13105, 0.27690, 0.39296 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + 0.32244, 0.17230, 4.79025, 0.36556, 0.19288, + 0.13817, 0.28207, 0.39706, + 0.32519, 0.17326, 4.79810, 0.36899, 0.19851, + 0.14465, 0.28669, 0.40066, + 0.32780, 0.17416, 4.80328, 0.37221, 0.20382, + 0.15077, 0.29105, 0.40404, + 0.33020, 0.17498, 4.80171, 0.37503, 0.20862, + 0.15635, 0.29495, 0.40699, + 0.33248, 0.17574, 4.79809, 0.37766, 0.21315, + 0.16161, 0.29861, 0.40975 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + 0.34690, 0.19378, 2.16021, 0.18644, 0.01541, + -0.00002, 0.10516, 0.22383, + 0.35784, 0.19749, 2.34535, 0.19394, 0.02952, + -0.00001, 0.11631, 0.23197, + 0.36678, 0.20036, 2.47500, 0.20010, 0.04136, + -0.00001, 0.12557, 0.23858, + 0.37419, 0.20255, 2.56171, 0.20505, 0.05131, + 0.00656, 0.13324, 0.24388, + 0.38045, 0.20430, 2.62099, 0.20917, 0.05987, + 0.01718, 0.13976, 0.24823, + 0.38583, 0.20570, 2.65947, 0.21258, 0.06731, + 0.02592, 0.14532, 0.25180, + 0.39047, 0.20680, 2.68182, 0.21539, 0.07378, + 0.03362, 0.15009, 0.25470 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + 0.39451, 0.20766, 2.69185, 0.21767, 0.07944, + 0.04039, 0.15417, 0.25705, + 0.39800, 0.20833, 2.69258, 0.21954, 0.08441, + 0.04637, 0.15767, 0.25894, + 0.40107, 0.20885, 2.68637, 0.22105, 0.08880, + 0.05170, 0.16070, 0.26044, + 0.40378, 0.20923, 2.67506, 0.22226, 0.09270, + 0.05646, 0.16333, 0.26163, + 0.40617, 0.20951, 2.65975, 0.22323, 0.09618, + 0.06074, 0.16560, 0.26255, + 0.40823, 0.20967, 2.63998, 0.22391, 0.09921, + 0.06453, 0.16751, 0.26315, + 0.41007, 0.20976, 2.61860, 0.22443, 0.10195, + 0.06797, 0.16918, 0.26359 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + 0.41172, 0.20980, 2.59582, 0.22481, 0.10442, + 0.07110, 0.17063, 0.26388, + 0.41312, 0.20975, 2.57052, 0.22497, 0.10657, + 0.07387, 0.17182, 0.26396, + 0.41442, 0.20967, 2.54549, 0.22508, 0.10855, + 0.07644, 0.17290, 0.26397, + 0.41550, 0.20953, 2.51869, 0.22502, 0.11028, + 0.07873, 0.17375, 0.26379, + 0.41649, 0.20937, 2.49229, 0.22492, 0.11187, + 0.08085, 0.17451, 0.26357 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + 0.42423, 0.22960, 1.77386, 0.15099, 0.01247, + 0.00000, 0.08880, 0.19660, + 0.43290, 0.23102, 1.86216, 0.15454, 0.02243, + 0.00000, 0.09570, 0.20005, + 0.43956, 0.23178, 1.91224, 0.15713, 0.03051, + 0.00000, 0.10114, 0.20244, + 0.44467, 0.23204, 1.93455, 0.15892, 0.03708, + 0.00448, 0.10538, 0.20396, + 0.44869, 0.23198, 1.94049, 0.16019, 0.04258, + 0.01158, 0.10880, 0.20489, + 0.45187, 0.23168, 1.93474, 0.16101, 0.04722, + 0.01730, 0.11156, 0.20539, + 0.45438, 0.23120, 1.92064, 0.16147, 0.05115, + 0.02223, 0.11376, 0.20550 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + 0.45630, 0.23058, 1.90067, 0.16166, 0.05449, + 0.02648, 0.11552, 0.20531, + 0.45777, 0.22985, 1.87677, 0.16162, 0.05735, + 0.03016, 0.11692, 0.20489, + 0.45888, 0.22903, 1.85032, 0.16139, 0.05980, + 0.03337, 0.11802, 0.20430, + 0.45969, 0.22817, 1.82240, 0.16103, 0.06192, + 0.03620, 0.11888, 0.20356, + 0.46024, 0.22726, 1.79362, 0.16055, 0.06376, + 0.03868, 0.11953, 0.20271, + 0.46051, 0.22629, 1.76346, 0.15994, 0.06531, + 0.04083, 0.11997, 0.20173, + 0.46063, 0.22531, 1.73368, 0.15928, 0.06667, + 0.04275, 0.12028, 0.20071 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + 0.46061, 0.22432, 1.70431, 0.15857, 0.06787, + 0.04447, 0.12049, 0.19964, + 0.46040, 0.22329, 1.67450, 0.15776, 0.06885, + 0.04596, 0.12055, 0.19848, + 0.46013, 0.22228, 1.64587, 0.15695, 0.06975, + 0.04732, 0.12057, 0.19735, + 0.45969, 0.22124, 1.61714, 0.15608, 0.07049, + 0.04850, 0.12046, 0.19613, + 0.45920, 0.22023, 1.58952, 0.15522, 0.07115, + 0.04958, 0.12032, 0.19494 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + 0.48491, 0.25322, 1.51121, 0.12521, 0.01045, + 0.00000, 0.07662, 0.17542, + 0.49018, 0.25207, 1.54471, 0.12646, 0.01789, + 0.00000, 0.08093, 0.17579, + 0.49366, 0.25057, 1.55211, 0.12708, 0.02376, + 0.00000, 0.08411, 0.17552, + 0.49577, 0.24879, 1.54170, 0.12719, 0.02839, + 0.00326, 0.08640, 0.17477, + 0.49698, 0.24690, 1.52194, 0.12696, 0.03218, + 0.00838, 0.08809, 0.17372, + 0.49749, 0.24493, 1.49614, 0.12650, 0.03528, + 0.01241, 0.08932, 0.17245, + 0.49747, 0.24291, 1.46654, 0.12584, 0.03785, + 0.01583, 0.09018, 0.17102 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + 0.49700, 0.24087, 1.43478, 0.12504, 0.03997, + 0.01872, 0.09074, 0.16948, + 0.49620, 0.23882, 1.40200, 0.12413, 0.04174, + 0.02118, 0.09107, 0.16786, + 0.49515, 0.23679, 1.36903, 0.12315, 0.04321, + 0.02329, 0.09122, 0.16619, + 0.49390, 0.23479, 1.33646, 0.12212, 0.04445, + 0.02512, 0.09123, 0.16451, + 0.49251, 0.23282, 1.30453, 0.12105, 0.04549, + 0.02669, 0.09113, 0.16282, + 0.49092, 0.23084, 1.27281, 0.11994, 0.04633, + 0.02803, 0.09090, 0.16109, + 0.48926, 0.22893, 1.24236, 0.11882, 0.04704, + 0.02921, 0.09061, 0.15939 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + 0.48755, 0.22706, 1.21308, 0.11771, 0.04764, + 0.03026, 0.09027, 0.15773, + 0.48569, 0.22520, 1.18434, 0.11657, 0.04811, + 0.03113, 0.08984, 0.15604, + 0.48386, 0.22342, 1.15712, 0.11547, 0.04852, + 0.03193, 0.08941, 0.15441, + 0.48192, 0.22164, 1.13052, 0.11434, 0.04882, + 0.03259, 0.08892, 0.15277, + 0.48001, 0.21992, 1.10524, 0.11324, 0.04907, + 0.03319, 0.08841, 0.15120 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + 0.53287, 0.26788, 1.31364, 0.10457, 0.00886, + -0.00001, 0.06640, 0.15643, + 0.53409, 0.26419, 1.31231, 0.10445, 0.01459, + 0.00000, 0.06899, 0.15470, + 0.53390, 0.26050, 1.29398, 0.10393, 0.01898, + 0.00000, 0.07072, 0.15269, + 0.53266, 0.25681, 1.26507, 0.10309, 0.02237, + 0.00245, 0.07178, 0.15051, + 0.53079, 0.25321, 1.23169, 0.10207, 0.02507, + 0.00628, 0.07242, 0.14825, + 0.52844, 0.24971, 1.19604, 0.10094, 0.02722, + 0.00924, 0.07274, 0.14595, + 0.52575, 0.24633, 1.15955, 0.09973, 0.02896, + 0.01170, 0.07283, 0.14362 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + 0.52284, 0.24302, 1.12318, 0.09846, 0.03036, + 0.01376, 0.07272, 0.14134, + 0.51972, 0.23984, 1.08759, 0.09717, 0.03148, + 0.01548, 0.07248, 0.13908, + 0.51651, 0.23675, 1.05319, 0.09587, 0.03239, + 0.01693, 0.07212, 0.13688, + 0.51325, 0.23377, 1.02024, 0.09456, 0.03312, + 0.01817, 0.07169, 0.13474, + 0.50992, 0.23094, 0.98875, 0.09329, 0.03372, + 0.01923, 0.07120, 0.13265, + 0.50653, 0.22813, 0.95833, 0.09200, 0.03417, + 0.02010, 0.07065, 0.13058, + 0.50317, 0.22545, 0.92960, 0.09074, 0.03453, + 0.02086, 0.07008, 0.12860 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + 0.49984, 0.22288, 0.90239, 0.08952, 0.03482, + 0.02152, 0.06950, 0.12667, + 0.49645, 0.22036, 0.87621, 0.08830, 0.03502, + 0.02206, 0.06886, 0.12480, + 0.49317, 0.21795, 0.85165, 0.08713, 0.03518, + 0.02254, 0.06824, 0.12301, + 0.48986, 0.21558, 0.82801, 0.08596, 0.03526, + 0.02294, 0.06760, 0.12124, + 0.48665, 0.21331, 0.80573, 0.08484, 0.03532, + 0.02328, 0.06696, 0.11955 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + 0.57802, 0.27659, 1.12050, 0.08345, 0.00723, + -0.00002, 0.05530, 0.13424, + 0.57367, 0.26996, 1.09121, 0.08236, 0.01148, + -0.00001, 0.05647, 0.13087, + 0.56858, 0.26382, 1.05363, 0.08108, 0.01462, + -0.00001, 0.05705, 0.12756, + 0.56296, 0.25803, 1.01199, 0.07967, 0.01696, + 0.00178, 0.05720, 0.12435, + 0.55715, 0.25259, 0.97014, 0.07820, 0.01878, + 0.00452, 0.05707, 0.12126, + 0.55125, 0.24745, 0.92921, 0.07671, 0.02019, + 0.00661, 0.05676, 0.11830, + 0.54527, 0.24264, 0.88983, 0.07524, 0.02128, + 0.00829, 0.05631, 0.11546 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + 0.53934, 0.23804, 0.85237, 0.07377, 0.02212, + 0.00969, 0.05576, 0.11276, + 0.53348, 0.23368, 0.81702, 0.07232, 0.02276, + 0.01083, 0.05516, 0.11019, + 0.52769, 0.22956, 0.78383, 0.07093, 0.02326, + 0.01177, 0.05451, 0.10772, + 0.52204, 0.22566, 0.75279, 0.06958, 0.02364, + 0.01256, 0.05383, 0.10536, + 0.51653, 0.22194, 0.72376, 0.06827, 0.02392, + 0.01323, 0.05314, 0.10314, + 0.51106, 0.21835, 0.69632, 0.06699, 0.02411, + 0.01376, 0.05243, 0.10099, + 0.50577, 0.21495, 0.67077, 0.06577, 0.02424, + 0.01422, 0.05172, 0.09895 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + 0.50064, 0.21171, 0.64691, 0.06459, 0.02432, + 0.01459, 0.05103, 0.09699, + 0.49557, 0.20857, 0.62433, 0.06343, 0.02435, + 0.01490, 0.05033, 0.09510, + 0.49070, 0.20559, 0.60333, 0.06233, 0.02435, + 0.01516, 0.04965, 0.09332, + 0.48590, 0.20269, 0.58341, 0.06125, 0.02431, + 0.01537, 0.04896, 0.09161, + 0.48127, 0.19993, 0.56480, 0.06021, 0.02426, + 0.01554, 0.04830, 0.08998 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + 0.60888, 0.27714, 0.96513, 0.06618, 0.00588, + -0.00003, 0.04559, 0.11349, + 0.59881, 0.26796, 0.91843, 0.06464, 0.00908, + -0.00003, 0.04592, 0.10926, + 0.58881, 0.25971, 0.87002, 0.06304, 0.01139, + -0.00002, 0.04583, 0.10534, + 0.57890, 0.25217, 0.82223, 0.06142, 0.01305, + 0.00131, 0.04546, 0.10171, + 0.56930, 0.24525, 0.77716, 0.05981, 0.01429, + 0.00333, 0.04495, 0.09833, + 0.56000, 0.23884, 0.73508, 0.05827, 0.01522, + 0.00484, 0.04433, 0.09517, + 0.55097, 0.23289, 0.69605, 0.05677, 0.01592, + 0.00604, 0.04364, 0.09221 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + 0.54229, 0.22732, 0.66000, 0.05532, 0.01643, + 0.00701, 0.04291, 0.08945, + 0.53390, 0.22211, 0.62678, 0.05394, 0.01680, + 0.00778, 0.04217, 0.08685, + 0.52583, 0.21723, 0.59622, 0.05262, 0.01706, + 0.00842, 0.04142, 0.08441, + 0.51809, 0.21264, 0.56812, 0.05136, 0.01725, + 0.00894, 0.04067, 0.08212, + 0.51063, 0.20832, 0.54226, 0.05017, 0.01736, + 0.00936, 0.03993, 0.07995, + 0.50340, 0.20418, 0.51819, 0.04900, 0.01740, + 0.00969, 0.03920, 0.07793, + 0.49646, 0.20028, 0.49604, 0.04791, 0.01742, + 0.00997, 0.03849, 0.07601 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + 0.48979, 0.19661, 0.47558, 0.04687, 0.01740, + 0.01019, 0.03781, 0.07418, + 0.48331, 0.19306, 0.45644, 0.04584, 0.01735, + 0.01037, 0.03713, 0.07245, + 0.47714, 0.18972, 0.43878, 0.04486, 0.01728, + 0.01053, 0.03649, 0.07082, + 0.47109, 0.18651, 0.42224, 0.04394, 0.01719, + 0.01063, 0.03585, 0.06924, + 0.46529, 0.18346, 0.40687, 0.04307, 0.01709, + 0.01072, 0.03524, 0.06775 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + 0.62718, 0.27150, 0.83506, 0.05198, 0.00476, + -0.00002, 0.03714, 0.09445, + 0.61149, 0.26028, 0.77788, 0.05033, 0.00718, + -0.00001, 0.03695, 0.08990, + 0.59681, 0.25037, 0.72395, 0.04870, 0.00886, + -0.00001, 0.03650, 0.08583, + 0.58287, 0.24151, 0.67396, 0.04711, 0.01004, + 0.00098, 0.03586, 0.08215, + 0.56976, 0.23348, 0.62870, 0.04559, 0.01090, + 0.00247, 0.03515, 0.07880, + 0.55735, 0.22615, 0.58777, 0.04414, 0.01150, + 0.00356, 0.03441, 0.07572, + 0.54563, 0.21940, 0.55076, 0.04276, 0.01194, + 0.00442, 0.03363, 0.07290 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + 0.53451, 0.21316, 0.51731, 0.04145, 0.01225, + 0.00510, 0.03287, 0.07027, + 0.52396, 0.20736, 0.48705, 0.04020, 0.01245, + 0.00564, 0.03211, 0.06786, + 0.51395, 0.20197, 0.45965, 0.03903, 0.01258, + 0.00607, 0.03137, 0.06561, + 0.50443, 0.19695, 0.43481, 0.03794, 0.01265, + 0.00641, 0.03065, 0.06350, + 0.49537, 0.19226, 0.41224, 0.03691, 0.01267, + 0.00670, 0.02995, 0.06154, + 0.48669, 0.18779, 0.39150, 0.03589, 0.01265, + 0.00690, 0.02927, 0.05973, + 0.47843, 0.18361, 0.37261, 0.03495, 0.01260, + 0.00706, 0.02862, 0.05802 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + 0.47055, 0.17969, 0.35532, 0.03408, 0.01254, + 0.00718, 0.02799, 0.05640, + 0.46295, 0.17594, 0.33929, 0.03323, 0.01245, + 0.00729, 0.02739, 0.05487, + 0.45574, 0.17240, 0.32458, 0.03242, 0.01236, + 0.00738, 0.02681, 0.05344, + 0.44874, 0.16901, 0.31093, 0.03165, 0.01226, + 0.00742, 0.02626, 0.05208, + 0.44207, 0.16581, 0.29833, 0.03092, 0.01215, + 0.00745, 0.02573, 0.05080 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + 0.63432, 0.26127, 0.72328, 0.04038, 0.00381, + -0.00002, 0.02983, 0.07731, + 0.61344, 0.24843, 0.66034, 0.03880, 0.00564, + -0.00002, 0.02938, 0.07285, + 0.59442, 0.23730, 0.60435, 0.03729, 0.00690, + -0.00002, 0.02875, 0.06893, + 0.57687, 0.22748, 0.55471, 0.03583, 0.00775, + 0.00075, 0.02803, 0.06545, + 0.56069, 0.21867, 0.51106, 0.03445, 0.00835, + 0.00185, 0.02728, 0.06234, + 0.54566, 0.21069, 0.47253, 0.03316, 0.00874, + 0.00266, 0.02653, 0.05953, + 0.53159, 0.20346, 0.43841, 0.03197, 0.00902, + 0.00328, 0.02579, 0.05692 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + 0.51844, 0.19679, 0.40811, 0.03085, 0.00919, + 0.00376, 0.02506, 0.05458, + 0.50610, 0.19065, 0.38112, 0.02978, 0.00930, + 0.00414, 0.02434, 0.05244, + 0.49449, 0.18498, 0.35701, 0.02878, 0.00935, + 0.00444, 0.02366, 0.05047, + 0.48357, 0.17972, 0.33540, 0.02784, 0.00935, + 0.00466, 0.02302, 0.04865, + 0.47329, 0.17480, 0.31595, 0.02697, 0.00932, + 0.00483, 0.02240, 0.04697, + 0.46345, 0.17022, 0.29831, 0.02616, 0.00927, + 0.00496, 0.02181, 0.04535, + 0.45417, 0.16593, 0.28236, 0.02539, 0.00921, + 0.00507, 0.02124, 0.04386 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + 0.44538, 0.16190, 0.26787, 0.02465, 0.00913, + 0.00515, 0.02070, 0.04249, + 0.43695, 0.15807, 0.25457, 0.02397, 0.00903, + 0.00521, 0.02018, 0.04122, + 0.42898, 0.15447, 0.24244, 0.02332, 0.00893, + 0.00526, 0.01969, 0.04002, + 0.42130, 0.15106, 0.23126, 0.02270, 0.00883, + 0.00527, 0.01922, 0.03888, + 0.41400, 0.14783, 0.22100, 0.02212, 0.00873, + 0.00528, 0.01877, 0.03781 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + 0.63165, 0.24762, 0.62566, 0.03099, 0.00301, + -0.00001, 0.02364, 0.06227, + 0.60605, 0.23364, 0.56038, 0.02957, 0.00443, + -0.00002, 0.02308, 0.05811, + 0.58327, 0.22168, 0.50480, 0.02822, 0.00537, + -0.00001, 0.02240, 0.05457, + 0.56262, 0.21124, 0.45705, 0.02696, 0.00597, + 0.00055, 0.02170, 0.05142, + 0.54384, 0.20197, 0.41611, 0.02577, 0.00639, + 0.00141, 0.02099, 0.04865, + 0.52660, 0.19365, 0.38070, 0.02469, 0.00665, + 0.00199, 0.02028, 0.04618, + 0.51068, 0.18613, 0.34987, 0.02369, 0.00682, + 0.00245, 0.01962, 0.04391 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + 0.49594, 0.17927, 0.32291, 0.02273, 0.00691, + 0.00279, 0.01896, 0.04191, + 0.48218, 0.17301, 0.29923, 0.02186, 0.00696, + 0.00306, 0.01833, 0.04006, + 0.46936, 0.16725, 0.27833, 0.02106, 0.00697, + 0.00327, 0.01774, 0.03836, + 0.45738, 0.16193, 0.25978, 0.02030, 0.00694, + 0.00342, 0.01717, 0.03682, + 0.44616, 0.15699, 0.24326, 0.01959, 0.00689, + 0.00354, 0.01664, 0.03541, + 0.43551, 0.15240, 0.22837, 0.01893, 0.00682, + 0.00362, 0.01614, 0.03409, + 0.42552, 0.14812, 0.21504, 0.01831, 0.00674, + 0.00368, 0.01568, 0.03287 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + 0.41612, 0.14411, 0.20303, 0.01773, 0.00666, + 0.00374, 0.01524, 0.03173, + 0.40713, 0.14033, 0.19210, 0.01718, 0.00658, + 0.00376, 0.01480, 0.03067, + 0.39867, 0.13680, 0.18218, 0.01667, 0.00649, + 0.00377, 0.01439, 0.02968, + 0.39056, 0.13344, 0.17309, 0.01619, 0.00640, + 0.00377, 0.01402, 0.02874, + 0.38288, 0.13029, 0.16479, 0.01573, 0.00631, + 0.00377, 0.01366, 0.02786 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + 0.62040, 0.23155, 0.53954, 0.02345, 0.00239, + 0.00003, 0.01849, 0.04933, + 0.59072, 0.21693, 0.47462, 0.02226, 0.00345, + 0.00003, 0.01789, 0.04567, + 0.56471, 0.20456, 0.42107, 0.02116, 0.00413, + 0.00005, 0.01726, 0.04252, + 0.54159, 0.19377, 0.37636, 0.02009, 0.00456, + 0.00045, 0.01659, 0.03985, + 0.52072, 0.18435, 0.33877, 0.01913, 0.00485, + 0.00107, 0.01595, 0.03745, + 0.50178, 0.17592, 0.30683, 0.01823, 0.00502, + 0.00150, 0.01534, 0.03534, + 0.48445, 0.16836, 0.27945, 0.01741, 0.00512, + 0.00182, 0.01473, 0.03346 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + 0.46847, 0.16154, 0.25580, 0.01666, 0.00516, + 0.00207, 0.01417, 0.03176, + 0.45372, 0.15530, 0.23531, 0.01596, 0.00516, + 0.00225, 0.01365, 0.03024, + 0.44010, 0.14958, 0.21741, 0.01531, 0.00514, + 0.00237, 0.01316, 0.02885, + 0.42743, 0.14434, 0.20166, 0.01470, 0.00511, + 0.00248, 0.01270, 0.02756, + 0.41558, 0.13954, 0.18772, 0.01416, 0.00505, + 0.00256, 0.01226, 0.02639, + 0.40444, 0.13504, 0.17532, 0.01363, 0.00498, + 0.00261, 0.01184, 0.02534, + 0.39404, 0.13087, 0.16427, 0.01314, 0.00490, + 0.00265, 0.01146, 0.02435 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + 0.38427, 0.12699, 0.15436, 0.01270, 0.00483, + 0.00268, 0.01111, 0.02342, + 0.37496, 0.12336, 0.14542, 0.01228, 0.00475, + 0.00268, 0.01076, 0.02257, + 0.36624, 0.11996, 0.13735, 0.01189, 0.00467, + 0.00268, 0.01043, 0.02178, + 0.35796, 0.11674, 0.13001, 0.01151, 0.00460, + 0.00268, 0.01013, 0.02104, + 0.35015, 0.11372, 0.12333, 0.01115, 0.00452, + 0.00268, 0.00984, 0.02034 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + 0.60158, 0.21430, 0.46356, 0.01776, 0.00170, + -0.00013, 0.01410, 0.03846, + 0.56866, 0.19929, 0.40066, 0.01672, 0.00255, + -0.00013, 0.01359, 0.03531, + 0.54017, 0.18675, 0.35027, 0.01578, 0.00308, + -0.00013, 0.01301, 0.03269, + 0.51512, 0.17591, 0.30915, 0.01490, 0.00339, + 0.00023, 0.01246, 0.03042, + 0.49276, 0.16650, 0.27523, 0.01412, 0.00360, + 0.00070, 0.01192, 0.02842, + 0.47257, 0.15819, 0.24686, 0.01342, 0.00371, + 0.00103, 0.01141, 0.02667, + 0.45427, 0.15074, 0.22287, 0.01275, 0.00378, + 0.00128, 0.01093, 0.02512 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + 0.43755, 0.14405, 0.20242, 0.01215, 0.00380, + 0.00146, 0.01047, 0.02375, + 0.42222, 0.13800, 0.18488, 0.01159, 0.00379, + 0.00159, 0.01004, 0.02251, + 0.40808, 0.13249, 0.16969, 0.01108, 0.00376, + 0.00169, 0.00964, 0.02139, + 0.39501, 0.12745, 0.15645, 0.01062, 0.00371, + 0.00177, 0.00926, 0.02037, + 0.38292, 0.12280, 0.14483, 0.01017, 0.00367, + 0.00183, 0.00892, 0.01944, + 0.37157, 0.11850, 0.13460, 0.00977, 0.00361, + 0.00186, 0.00859, 0.01858, + 0.36099, 0.11453, 0.12553, 0.00940, 0.00355, + 0.00188, 0.00829, 0.01780 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + 0.35109, 0.11085, 0.11743, 0.00905, 0.00348, + 0.00189, 0.00801, 0.01709, + 0.34174, 0.10741, 0.11018, 0.00872, 0.00342, + 0.00189, 0.00774, 0.01642, + 0.33300, 0.10420, 0.10367, 0.00841, 0.00336, + 0.00189, 0.00748, 0.01580, + 0.32469, 0.10117, 0.09778, 0.00813, 0.00329, + 0.00189, 0.00725, 0.01522, + 0.31687, 0.09834, 0.09245, 0.00787, 0.00323, + 0.00188, 0.00702, 0.01468 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + 0.57678, 0.19570, 0.39576, 0.01300, 0.00136, + -0.00003, 0.01076, 0.02948, + 0.54128, 0.18076, 0.33634, 0.01220, 0.00199, + -0.00002, 0.01027, 0.02689, + 0.51091, 0.16836, 0.28991, 0.01148, 0.00237, + -0.00003, 0.00979, 0.02473, + 0.48443, 0.15781, 0.25278, 0.01085, 0.00259, + 0.00022, 0.00932, 0.02283, + 0.46109, 0.14863, 0.22267, 0.01021, 0.00272, + 0.00057, 0.00886, 0.02126, + 0.44017, 0.14058, 0.19783, 0.00966, 0.00279, + 0.00080, 0.00843, 0.01987, + 0.42133, 0.13343, 0.17710, 0.00915, 0.00281, + 0.00097, 0.00804, 0.01863 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + 0.40424, 0.12703, 0.15964, 0.00868, 0.00281, + 0.00109, 0.00767, 0.01752, + 0.38861, 0.12127, 0.14479, 0.00827, 0.00280, + 0.00119, 0.00733, 0.01654, + 0.37431, 0.11603, 0.13205, 0.00788, 0.00277, + 0.00126, 0.00702, 0.01565, + 0.36118, 0.11126, 0.12104, 0.00753, 0.00272, + 0.00130, 0.00672, 0.01485, + 0.34899, 0.10691, 0.11147, 0.00722, 0.00267, + 0.00133, 0.00644, 0.01413, + 0.33767, 0.10287, 0.10307, 0.00691, 0.00262, + 0.00135, 0.00619, 0.01346, + 0.32716, 0.09916, 0.09568, 0.00663, 0.00257, + 0.00136, 0.00595, 0.01285 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + 0.31737, 0.09574, 0.08913, 0.00637, 0.00252, + 0.00137, 0.00573, 0.01228, + 0.30814, 0.09253, 0.08330, 0.00613, 0.00246, + 0.00136, 0.00553, 0.01178, + 0.29953, 0.08956, 0.07809, 0.00590, 0.00241, + 0.00135, 0.00533, 0.01131, + 0.29139, 0.08678, 0.07340, 0.00569, 0.00235, + 0.00135, 0.00515, 0.01087, + 0.28375, 0.08419, 0.06917, 0.00549, 0.00230, + 0.00134, 0.00498, 0.01046 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + 0.54685, 0.17698, 0.33584, 0.00946, 0.00101, + -0.00004, 0.00801, 0.02224, + 0.50954, 0.16235, 0.28077, 0.00885, 0.00150, + -0.00003, 0.00763, 0.02014, + 0.47800, 0.15034, 0.23870, 0.00831, 0.00176, + -0.00002, 0.00724, 0.01839, + 0.45079, 0.14016, 0.20567, 0.00779, 0.00192, + 0.00016, 0.00685, 0.01692, + 0.42691, 0.13140, 0.17931, 0.00732, 0.00202, + 0.00042, 0.00648, 0.01566, + 0.40571, 0.12374, 0.15783, 0.00690, 0.00206, + 0.00060, 0.00615, 0.01455, + 0.38673, 0.11698, 0.14013, 0.00650, 0.00207, + 0.00071, 0.00584, 0.01360 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + 0.36958, 0.11096, 0.12536, 0.00616, 0.00206, + 0.00080, 0.00554, 0.01273, + 0.35402, 0.10554, 0.11294, 0.00585, 0.00204, + 0.00086, 0.00527, 0.01198, + 0.33985, 0.10065, 0.10238, 0.00556, 0.00201, + 0.00091, 0.00503, 0.01129, + 0.32688, 0.09623, 0.09332, 0.00530, 0.00198, + 0.00094, 0.00481, 0.01066, + 0.31491, 0.09220, 0.08549, 0.00506, 0.00194, + 0.00096, 0.00460, 0.01011, + 0.30384, 0.08848, 0.07868, 0.00482, 0.00189, + 0.00097, 0.00440, 0.00961, + 0.29360, 0.08507, 0.07271, 0.00462, 0.00184, + 0.00097, 0.00422, 0.00915 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + 0.28407, 0.08193, 0.06745, 0.00444, 0.00179, + 0.00096, 0.00405, 0.00873, + 0.27514, 0.07900, 0.06280, 0.00426, 0.00176, + 0.00096, 0.00389, 0.00835, + 0.26683, 0.07629, 0.05865, 0.00409, 0.00172, + 0.00096, 0.00375, 0.00799, + 0.25900, 0.07375, 0.05495, 0.00394, 0.00167, + 0.00095, 0.00362, 0.00766, + 0.25167, 0.07139, 0.05163, 0.00380, 0.00162, + 0.00094, 0.00349, 0.00735 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + 0.51290, 0.15830, 0.28289, 0.00674, 0.00078, + 0.00000, 0.00590, 0.01649, + 0.47458, 0.14428, 0.23272, 0.00628, 0.00113, + 0.00000, 0.00559, 0.01483, + 0.44250, 0.13283, 0.19515, 0.00588, 0.00133, + 0.00000, 0.00529, 0.01346, + 0.41508, 0.12320, 0.16625, 0.00548, 0.00144, + 0.00013, 0.00497, 0.01234, + 0.39114, 0.11496, 0.14346, 0.00516, 0.00150, + 0.00032, 0.00469, 0.01134, + 0.37005, 0.10780, 0.12514, 0.00486, 0.00153, + 0.00044, 0.00444, 0.01048, + 0.35125, 0.10150, 0.11022, 0.00458, 0.00153, + 0.00053, 0.00419, 0.00975 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + 0.33443, 0.09593, 0.09790, 0.00431, 0.00151, + 0.00060, 0.00396, 0.00910, + 0.31922, 0.09094, 0.08761, 0.00408, 0.00148, + 0.00063, 0.00376, 0.00854, + 0.30540, 0.08646, 0.07894, 0.00387, 0.00145, + 0.00066, 0.00357, 0.00802, + 0.29282, 0.08241, 0.07156, 0.00368, 0.00141, + 0.00068, 0.00341, 0.00755, + 0.28130, 0.07873, 0.06522, 0.00350, 0.00138, + 0.00070, 0.00325, 0.00716, + 0.27065, 0.07534, 0.05974, 0.00332, 0.00135, + 0.00070, 0.00310, 0.00677, + 0.26082, 0.07225, 0.05498, 0.00317, 0.00132, + 0.00069, 0.00296, 0.00642 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + 0.25172, 0.06942, 0.05081, 0.00303, 0.00128, + 0.00070, 0.00284, 0.00611, + 0.24322, 0.06678, 0.04714, 0.00292, 0.00125, + 0.00070, 0.00273, 0.00583, + 0.23533, 0.06434, 0.04388, 0.00281, 0.00121, + 0.00070, 0.00262, 0.00557, + 0.22789, 0.06207, 0.04098, 0.00271, 0.00118, + 0.00069, 0.00251, 0.00532, + 0.22096, 0.05997, 0.03838, 0.00261, 0.00115, + 0.00067, 0.00242, 0.00510 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + 0.47600, 0.14011, 0.23627, 0.00467, 0.00060, + 0.00005, 0.00429, 0.01201, + 0.43740, 0.12688, 0.19135, 0.00437, 0.00086, + 0.00005, 0.00407, 0.01072, + 0.40539, 0.11614, 0.15839, 0.00408, 0.00101, + 0.00004, 0.00381, 0.00968, + 0.37816, 0.10719, 0.13336, 0.00380, 0.00107, + 0.00014, 0.00358, 0.00883, + 0.35465, 0.09956, 0.11394, 0.00357, 0.00110, + 0.00026, 0.00336, 0.00808, + 0.33403, 0.09296, 0.09851, 0.00336, 0.00112, + 0.00036, 0.00316, 0.00746, + 0.31581, 0.08721, 0.08607, 0.00314, 0.00111, + 0.00041, 0.00298, 0.00690 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + 0.29955, 0.08209, 0.07590, 0.00295, 0.00110, + 0.00045, 0.00281, 0.00641, + 0.28491, 0.07756, 0.06748, 0.00279, 0.00108, + 0.00047, 0.00265, 0.00598, + 0.27169, 0.07350, 0.06045, 0.00263, 0.00105, + 0.00049, 0.00251, 0.00561, + 0.25969, 0.06985, 0.05451, 0.00248, 0.00102, + 0.00050, 0.00238, 0.00529, + 0.24874, 0.06653, 0.04943, 0.00235, 0.00099, + 0.00051, 0.00226, 0.00498, + 0.23863, 0.06351, 0.04508, 0.00225, 0.00096, + 0.00051, 0.00216, 0.00470, + 0.22935, 0.06075, 0.04131, 0.00215, 0.00094, + 0.00052, 0.00207, 0.00445 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + 0.22080, 0.05822, 0.03803, 0.00205, 0.00092, + 0.00052, 0.00198, 0.00422, + 0.21283, 0.05588, 0.03515, 0.00196, 0.00089, + 0.00051, 0.00189, 0.00400, + 0.20545, 0.05373, 0.03260, 0.00188, 0.00086, + 0.00049, 0.00180, 0.00381, + 0.19852, 0.05173, 0.03036, 0.00181, 0.00083, + 0.00048, 0.00173, 0.00363, + 0.19208, 0.04987, 0.02836, 0.00174, 0.00081, + 0.00047, 0.00167, 0.00348 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + 0.43710, 0.12286, 0.19576, 0.00328, 0.00042, + 0.00002, 0.00304, 0.00857, + 0.39891, 0.11053, 0.15609, 0.00304, 0.00061, + 0.00001, 0.00285, 0.00763, + 0.36747, 0.10061, 0.12750, 0.00283, 0.00072, + 0.00000, 0.00267, 0.00685, + 0.34099, 0.09238, 0.10618, 0.00266, 0.00077, + 0.00009, 0.00251, 0.00619, + 0.31830, 0.08540, 0.08981, 0.00247, 0.00079, + 0.00018, 0.00235, 0.00565, + 0.29853, 0.07940, 0.07697, 0.00230, 0.00080, + 0.00024, 0.00220, 0.00519, + 0.28107, 0.07417, 0.06672, 0.00215, 0.00080, + 0.00029, 0.00207, 0.00479 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + 0.26555, 0.06960, 0.05843, 0.00203, 0.00078, + 0.00031, 0.00194, 0.00443, + 0.25170, 0.06554, 0.05163, 0.00191, 0.00076, + 0.00033, 0.00183, 0.00412, + 0.23923, 0.06191, 0.04598, 0.00180, 0.00074, + 0.00035, 0.00173, 0.00386, + 0.22795, 0.05865, 0.04125, 0.00170, 0.00072, + 0.00036, 0.00164, 0.00362, + 0.21767, 0.05572, 0.03724, 0.00162, 0.00070, + 0.00036, 0.00155, 0.00340, + 0.20826, 0.05305, 0.03381, 0.00153, 0.00068, + 0.00034, 0.00147, 0.00320, + 0.19964, 0.05062, 0.03085, 0.00146, 0.00065, + 0.00034, 0.00140, 0.00302 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + 0.19170, 0.04840, 0.02828, 0.00140, 0.00062, + 0.00035, 0.00133, 0.00287, + 0.18435, 0.04635, 0.02605, 0.00134, 0.00061, + 0.00034, 0.00127, 0.00272, + 0.17756, 0.04446, 0.02409, 0.00128, 0.00059, + 0.00033, 0.00122, 0.00258, + 0.17121, 0.04271, 0.02236, 0.00123, 0.00057, + 0.00032, 0.00116, 0.00246, + 0.16532, 0.04108, 0.02083, 0.00117, 0.00056, + 0.00032, 0.00112, 0.00235 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + 0.39711, 0.10654, 0.16056, 0.00221, 0.00030, + 0.00003, 0.00212, 0.00601, + 0.35993, 0.09525, 0.12613, 0.00207, 0.00043, + 0.00002, 0.00199, 0.00531, + 0.32966, 0.08620, 0.10170, 0.00192, 0.00050, + 0.00002, 0.00184, 0.00478, + 0.30427, 0.07877, 0.08378, 0.00182, 0.00054, + 0.00006, 0.00172, 0.00427, + 0.28263, 0.07251, 0.07020, 0.00170, 0.00055, + 0.00013, 0.00160, 0.00389, + 0.26392, 0.06713, 0.05965, 0.00159, 0.00055, + 0.00017, 0.00150, 0.00356, + 0.24751, 0.06247, 0.05132, 0.00147, 0.00054, + 0.00020, 0.00140, 0.00328 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + 0.23298, 0.05841, 0.04462, 0.00140, 0.00053, + 0.00022, 0.00131, 0.00302, + 0.22004, 0.05483, 0.03918, 0.00131, 0.00052, + 0.00022, 0.00123, 0.00280, + 0.20845, 0.05164, 0.03470, 0.00124, 0.00050, + 0.00023, 0.00116, 0.00260, + 0.19800, 0.04878, 0.03096, 0.00117, 0.00048, + 0.00024, 0.00110, 0.00243, + 0.18857, 0.04621, 0.02781, 0.00109, 0.00047, + 0.00024, 0.00104, 0.00229, + 0.17995, 0.04387, 0.02514, 0.00102, 0.00044, + 0.00024, 0.00098, 0.00216, + 0.17205, 0.04176, 0.02286, 0.00098, 0.00043, + 0.00023, 0.00093, 0.00204 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + 0.16477, 0.03983, 0.02089, 0.00096, 0.00042, + 0.00022, 0.00089, 0.00191, + 0.15808, 0.03806, 0.01918, 0.00091, 0.00040, + 0.00022, 0.00085, 0.00180, + 0.15192, 0.03643, 0.01768, 0.00086, 0.00039, + 0.00021, 0.00080, 0.00171, + 0.14618, 0.03492, 0.01636, 0.00081, 0.00038, + 0.00021, 0.00077, 0.00163, + 0.14085, 0.03353, 0.01520, 0.00078, 0.00037, + 0.00020, 0.00073, 0.00156 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + 0.35681, 0.09132, 0.13024, 0.00142, 0.00023, + 0.00004, 0.00147, 0.00412, + 0.32119, 0.08111, 0.10074, 0.00135, 0.00032, + 0.00004, 0.00137, 0.00365, + 0.29244, 0.07297, 0.08020, 0.00124, 0.00037, + 0.00004, 0.00128, 0.00324, + 0.26849, 0.06634, 0.06531, 0.00117, 0.00039, + 0.00007, 0.00119, 0.00289, + 0.24819, 0.06078, 0.05418, 0.00110, 0.00040, + 0.00011, 0.00110, 0.00263, + 0.23069, 0.05606, 0.04563, 0.00103, 0.00040, + 0.00013, 0.00102, 0.00237, + 0.21547, 0.05196, 0.03895, 0.00095, 0.00039, + 0.00014, 0.00096, 0.00217 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + 0.20209, 0.04838, 0.03364, 0.00088, 0.00038, + 0.00016, 0.00089, 0.00202, + 0.19017, 0.04526, 0.02935, 0.00084, 0.00037, + 0.00017, 0.00084, 0.00187, + 0.17955, 0.04249, 0.02585, 0.00079, 0.00036, + 0.00017, 0.00079, 0.00172, + 0.17005, 0.04001, 0.02294, 0.00073, 0.00034, + 0.00017, 0.00074, 0.00160, + 0.16145, 0.03781, 0.02051, 0.00069, 0.00033, + 0.00017, 0.00069, 0.00150, + 0.15359, 0.03580, 0.01846, 0.00067, 0.00032, + 0.00017, 0.00066, 0.00141, + 0.14647, 0.03398, 0.01672, 0.00063, 0.00031, + 0.00017, 0.00063, 0.00133 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + 0.13998, 0.03233, 0.01522, 0.00057, 0.00030, + 0.00016, 0.00059, 0.00126, + 0.13393, 0.03081, 0.01392, 0.00057, 0.00029, + 0.00016, 0.00056, 0.00119, + 0.12838, 0.02943, 0.01279, 0.00056, 0.00028, + 0.00015, 0.00053, 0.00112, + 0.12326, 0.02816, 0.01181, 0.00052, 0.00026, + 0.00015, 0.00051, 0.00107, + 0.11852, 0.02698, 0.01094, 0.00049, 0.00025, + 0.00015, 0.00049, 0.00101 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + 0.31703, 0.07742, 0.10444, 0.00092, 0.00016, + 0.00003, 0.00099, 0.00276, + 0.28338, 0.06830, 0.07952, 0.00089, 0.00024, + 0.00002, 0.00093, 0.00241, + 0.25644, 0.06110, 0.06247, 0.00080, 0.00028, + 0.00004, 0.00087, 0.00214, + 0.23418, 0.05522, 0.05029, 0.00073, 0.00029, + 0.00005, 0.00081, 0.00192, + 0.21543, 0.05035, 0.04130, 0.00068, 0.00029, + 0.00008, 0.00075, 0.00174, + 0.19937, 0.04621, 0.03449, 0.00061, 0.00030, + 0.00011, 0.00070, 0.00155, + 0.18540, 0.04268, 0.02922, 0.00058, 0.00029, + 0.00013, 0.00065, 0.00143 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + 0.17318, 0.03960, 0.02506, 0.00056, 0.00028, + 0.00013, 0.00060, 0.00132, + 0.16240, 0.03691, 0.02173, 0.00053, 0.00027, + 0.00013, 0.00057, 0.00120, + 0.15284, 0.03454, 0.01902, 0.00049, 0.00026, + 0.00013, 0.00054, 0.00110, + 0.14429, 0.03242, 0.01680, 0.00045, 0.00025, + 0.00013, 0.00051, 0.00102, + 0.13657, 0.03054, 0.01495, 0.00043, 0.00024, + 0.00014, 0.00048, 0.00096, + 0.12957, 0.02884, 0.01340, 0.00040, 0.00023, + 0.00013, 0.00045, 0.00090, + 0.12323, 0.02730, 0.01208, 0.00038, 0.00022, + 0.00012, 0.00042, 0.00084 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + 0.11746, 0.02591, 0.01096, 0.00034, 0.00021, + 0.00012, 0.00039, 0.00079, + 0.11214, 0.02464, 0.01000, 0.00032, 0.00020, + 0.00012, 0.00038, 0.00076, + 0.10726, 0.02348, 0.00916, 0.00030, 0.00019, + 0.00012, 0.00036, 0.00072, + 0.10275, 0.02241, 0.00843, 0.00029, 0.00019, + 0.00011, 0.00034, 0.00068, + 0.09857, 0.02142, 0.00779, 0.00028, 0.00018, + 0.00011, 0.00032, 0.00065 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + 0.27849, 0.06494, 0.08285, 0.00063, 0.00007, + -0.00001, 0.00061, 0.00183, + 0.24727, 0.05693, 0.06216, 0.00060, 0.00013, + -0.00001, 0.00058, 0.00159, + 0.22241, 0.05064, 0.04822, 0.00056, 0.00015, + -0.00002, 0.00054, 0.00139, + 0.20204, 0.04555, 0.03842, 0.00051, 0.00017, + 0.00000, 0.00050, 0.00126, + 0.18495, 0.04135, 0.03126, 0.00049, 0.00018, + 0.00004, 0.00047, 0.00112, + 0.17041, 0.03781, 0.02589, 0.00046, 0.00017, + 0.00005, 0.00043, 0.00100, + 0.15782, 0.03478, 0.02176, 0.00044, 0.00017, + 0.00006, 0.00039, 0.00091 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + 0.14691, 0.03215, 0.01855, 0.00039, 0.00016, + 0.00007, 0.00036, 0.00085, + 0.13730, 0.02986, 0.01599, 0.00037, 0.00016, + 0.00007, 0.00034, 0.00077, + 0.12878, 0.02786, 0.01393, 0.00035, 0.00015, + 0.00007, 0.00032, 0.00071, + 0.12118, 0.02608, 0.01224, 0.00033, 0.00014, + 0.00007, 0.00030, 0.00067, + 0.11435, 0.02451, 0.01084, 0.00032, 0.00014, + 0.00007, 0.00028, 0.00061, + 0.10820, 0.02308, 0.00968, 0.00029, 0.00013, + 0.00007, 0.00026, 0.00057, + 0.10264, 0.02180, 0.00870, 0.00027, 0.00013, + 0.00006, 0.00025, 0.00054 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + 0.09758, 0.02064, 0.00787, 0.00026, 0.00012, + 0.00006, 0.00024, 0.00050, + 0.09293, 0.01958, 0.00715, 0.00025, 0.00012, + 0.00006, 0.00022, 0.00047, + 0.08868, 0.01861, 0.00653, 0.00024, 0.00012, + 0.00006, 0.00021, 0.00044, + 0.08477, 0.01773, 0.00600, 0.00023, 0.00011, + 0.00006, 0.00020, 0.00042, + 0.08116, 0.01692, 0.00553, 0.00021, 0.00010, + 0.00006, 0.00019, 0.00040 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + 0.24129, 0.05358, 0.06458, 0.00036, 0.00008, + 0.00003, 0.00042, 0.00115, + 0.21274, 0.04667, 0.04773, 0.00034, 0.00011, + 0.00002, 0.00039, 0.00100, + 0.19019, 0.04128, 0.03655, 0.00031, 0.00012, + 0.00002, 0.00035, 0.00090, + 0.17184, 0.03693, 0.02880, 0.00029, 0.00012, + 0.00003, 0.00033, 0.00079, + 0.15653, 0.03337, 0.02322, 0.00029, 0.00012, + 0.00004, 0.00030, 0.00070, + 0.14358, 0.03038, 0.01906, 0.00026, 0.00013, + 0.00005, 0.00028, 0.00062, + 0.13242, 0.02783, 0.01590, 0.00025, 0.00012, + 0.00005, 0.00026, 0.00058 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + 0.12277, 0.02563, 0.01346, 0.00024, 0.00012, + 0.00006, 0.00024, 0.00052, + 0.11432, 0.02373, 0.01153, 0.00021, 0.00011, + 0.00006, 0.00022, 0.00048, + 0.10686, 0.02206, 0.00999, 0.00020, 0.00010, + 0.00006, 0.00020, 0.00044, + 0.10023, 0.02059, 0.00874, 0.00019, 0.00010, + 0.00006, 0.00019, 0.00041, + 0.09433, 0.01928, 0.00770, 0.00017, 0.00009, + 0.00005, 0.00018, 0.00039, + 0.08899, 0.01811, 0.00685, 0.00017, 0.00009, + 0.00005, 0.00017, 0.00035, + 0.08418, 0.01706, 0.00613, 0.00016, 0.00009, + 0.00005, 0.00016, 0.00033 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + 0.07982, 0.01611, 0.00553, 0.00015, 0.00008, + 0.00005, 0.00015, 0.00032, + 0.07583, 0.01525, 0.00501, 0.00015, 0.00008, + 0.00005, 0.00014, 0.00029, + 0.07219, 0.01447, 0.00456, 0.00014, 0.00007, + 0.00004, 0.00013, 0.00027, + 0.06884, 0.01375, 0.00418, 0.00014, 0.00007, + 0.00004, 0.00013, 0.00025, + 0.06576, 0.01309, 0.00384, 0.00013, 0.00006, + 0.00004, 0.00012, 0.00024 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + 0.20632, 0.04363, 0.04960, 0.00019, 0.00007, + 0.00004, 0.00027, 0.00073, + 0.18062, 0.03774, 0.03610, 0.00020, 0.00009, + 0.00003, 0.00025, 0.00060, + 0.16046, 0.03316, 0.02727, 0.00017, 0.00009, + 0.00003, 0.00024, 0.00055, + 0.14417, 0.02953, 0.02125, 0.00016, 0.00009, + 0.00003, 0.00022, 0.00048, + 0.13066, 0.02655, 0.01696, 0.00016, 0.00009, + 0.00004, 0.00020, 0.00043, + 0.11927, 0.02405, 0.01380, 0.00015, 0.00009, + 0.00004, 0.00019, 0.00038, + 0.10955, 0.02194, 0.01143, 0.00014, 0.00008, + 0.00004, 0.00017, 0.00035 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + 0.10117, 0.02014, 0.00960, 0.00013, 0.00008, + 0.00005, 0.00016, 0.00031, + 0.09386, 0.01857, 0.00818, 0.00011, 0.00008, + 0.00004, 0.00015, 0.00029, + 0.08743, 0.01721, 0.00704, 0.00010, 0.00007, + 0.00004, 0.00014, 0.00027, + 0.08175, 0.01601, 0.00613, 0.00009, 0.00007, + 0.00004, 0.00013, 0.00025, + 0.07669, 0.01494, 0.00538, 0.00008, 0.00007, + 0.00004, 0.00012, 0.00023, + 0.07213, 0.01400, 0.00477, 0.00009, 0.00006, + 0.00004, 0.00011, 0.00021, + 0.06803, 0.01315, 0.00425, 0.00009, 0.00006, + 0.00004, 0.00010, 0.00019 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + 0.06432, 0.01239, 0.00382, 0.00009, 0.00005, + 0.00003, 0.00009, 0.00019, + 0.06095, 0.01170, 0.00345, 0.00008, 0.00005, + 0.00003, 0.00009, 0.00017, + 0.05790, 0.01107, 0.00313, 0.00007, 0.00005, + 0.00003, 0.00008, 0.00016, + 0.05509, 0.01049, 0.00286, 0.00006, 0.00005, + 0.00003, 0.00008, 0.00015, + 0.05252, 0.00997, 0.00262, 0.00006, 0.00004, + 0.00003, 0.00007, 0.00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + 0.17410, 0.03508, 0.03756, 0.00013, 0.00002, + 0.00000, 0.00015, 0.00045, + 0.15131, 0.03014, 0.02689, 0.00013, 0.00005, + 0.00000, 0.00014, 0.00037, + 0.13357, 0.02632, 0.02007, 0.00012, 0.00004, + 0.00000, 0.00013, 0.00034, + 0.11932, 0.02330, 0.01546, 0.00012, 0.00005, + 0.00001, 0.00012, 0.00029, + 0.10760, 0.02085, 0.01222, 0.00011, 0.00005, + 0.00001, 0.00011, 0.00026, + 0.09778, 0.01881, 0.00986, 0.00011, 0.00005, + 0.00002, 0.00010, 0.00022, + 0.08943, 0.01709, 0.00810, 0.00008, 0.00004, + 0.00002, 0.00009, 0.00022 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + 0.08225, 0.01562, 0.00676, 0.00008, 0.00004, + 0.00002, 0.00009, 0.00018, + 0.07600, 0.01436, 0.00572, 0.00009, 0.00004, + 0.00002, 0.00008, 0.00016, + 0.07054, 0.01326, 0.00490, 0.00009, 0.00004, + 0.00002, 0.00007, 0.00015, + 0.06573, 0.01230, 0.00425, 0.00008, 0.00003, + 0.00002, 0.00007, 0.00013, + 0.06146, 0.01145, 0.00371, 0.00007, 0.00003, + 0.00001, 0.00006, 0.00013, + 0.05765, 0.01069, 0.00328, 0.00007, 0.00003, + 0.00002, 0.00006, 0.00012, + 0.05424, 0.01001, 0.00291, 0.00007, 0.00003, + 0.00002, 0.00006, 0.00011 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + 0.05117, 0.00941, 0.00260, 0.00006, 0.00003, + 0.00002, 0.00005, 0.00010, + 0.04836, 0.00886, 0.00235, 0.00005, 0.00003, + 0.00001, 0.00005, 0.00010, + 0.04582, 0.00836, 0.00212, 0.00005, 0.00003, + 0.00001, 0.00004, 0.00009, + 0.04348, 0.00791, 0.00194, 0.00005, 0.00003, + 0.00001, 0.00004, 0.00009, + 0.04135, 0.00750, 0.00177, 0.00005, 0.00003, + 0.00001, 0.00004, 0.00008 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + 0.14432, 0.02762, 0.02776, 0.00005, 0.00003, + 0.00002, 0.00010, 0.00025, + 0.12451, 0.02355, 0.01957, 0.00004, 0.00004, + 0.00002, 0.00010, 0.00021, + 0.10919, 0.02044, 0.01441, 0.00006, 0.00005, + 0.00002, 0.00010, 0.00018, + 0.09697, 0.01800, 0.01097, 0.00005, 0.00004, + 0.00002, 0.00008, 0.00017, + 0.08697, 0.01602, 0.00858, 0.00006, 0.00004, + 0.00002, 0.00007, 0.00014, + 0.07865, 0.01438, 0.00686, 0.00005, 0.00004, + 0.00002, 0.00007, 0.00013, + 0.07161, 0.01301, 0.00559, 0.00005, 0.00003, + 0.00002, 0.00006, 0.00012 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + 0.06557, 0.01185, 0.00464, 0.00005, 0.00003, + 0.00002, 0.00005, 0.00011, + 0.06038, 0.01085, 0.00390, 0.00004, 0.00003, + 0.00002, 0.00005, 0.00010, + 0.05584, 0.00998, 0.00332, 0.00003, 0.00003, + 0.00002, 0.00005, 0.00009, + 0.05185, 0.00922, 0.00286, 0.00003, 0.00002, + 0.00002, 0.00005, 0.00008, + 0.04833, 0.00856, 0.00249, 0.00002, 0.00002, + 0.00001, 0.00004, 0.00008, + 0.04519, 0.00797, 0.00219, 0.00003, 0.00002, + 0.00002, 0.00004, 0.00007, + 0.04238, 0.00744, 0.00194, 0.00003, 0.00003, + 0.00002, 0.00004, 0.00006 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + 0.03986, 0.00697, 0.00173, 0.00002, 0.00002, + 0.00001, 0.00003, 0.00006, + 0.03758, 0.00655, 0.00155, 0.00002, 0.00002, + 0.00001, 0.00003, 0.00005, + 0.03551, 0.00617, 0.00140, 0.00002, 0.00002, + 0.00001, 0.00003, 0.00005, + 0.03362, 0.00582, 0.00127, 0.00002, 0.00002, + 0.00001, 0.00003, 0.00005, + 0.03190, 0.00551, 0.00116, 0.00002, 0.00002, + 0.00001, 0.00003, 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.09420, 0.01625, 0.01428, 0.00002, 0.00000, + 0.00000, 0.00003, 0.00008, + 0.08000, 0.01364, 0.00973, 0.00002, 0.00001, + 0.00000, 0.00003, 0.00006, + 0.06919, 0.01168, 0.00696, 0.00003, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.06069, 0.01017, 0.00517, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.05383, 0.00895, 0.00396, 0.00002, 0.00001, + 0.00000, 0.00002, 0.00005, + 0.04819, 0.00795, 0.00311, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00004, + 0.04345, 0.00712, 0.00250, 0.00001, 0.00001, + 0.00001, 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=8,14)/ + 0.03945, 0.00643, 0.00204, 0.00001, 0.00001, + 0.00001, 0.00002, 0.00003, + 0.03602, 0.00584, 0.00170, 0.00001, 0.00001, + 0.00000, 0.00002, 0.00003, + 0.03305, 0.00533, 0.00143, 0.00001, 0.00001, + 0.00001, 0.00002, 0.00003, + 0.03047, 0.00490, 0.00122, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00002, + 0.02821, 0.00451, 0.00105, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00002, + 0.02620, 0.00417, 0.00092, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002, + 0.02443, 0.00387, 0.00081, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00002 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + 0.02284, 0.00361, 0.00071, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00002, + 0.02141, 0.00337, 0.00064, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00002, + 0.02012, 0.00316, 0.00057, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01895, 0.00296, 0.00052, 0.00001, 0.00001, + 0.00000, 0.00001, 0.00001, + 0.01789, 0.00279, 0.00047, 0.00001, 0.00001, + 0.00001, 0.00001, 0.00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ + 0.05623, 0.00867, 0.00655, 0.00002, 0.00000, + 0.00000, 0.00000, 0.00002, + 0.04695, 0.00716, 0.00431, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00002, + 0.04001, 0.00604, 0.00299, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00002, + 0.03463, 0.00519, 0.00217, 0.00000, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.03035, 0.00451, 0.00163, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.02686, 0.00397, 0.00125, 0.00001, 0.00000, + 0.00000, 0.00001, 0.00001, + 0.02398, 0.00352, 0.00099, 0.00001, 0.00000, + 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.02157, 0.00315, 0.00080, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01952, 0.00283, 0.00065, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01776, 0.00257, 0.00055, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01625, 0.00234, 0.00046, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01493, 0.00214, 0.00039, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01377, 0.00197, 0.00034, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01275, 0.00181, 0.00030, 0.00000, 0.00000, + 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=15,19)/ + 0.01185, 0.00168, 0.00026, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01103, 0.00156, 0.00023, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01031, 0.00145, 0.00021, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00966, 0.00136, 0.00019, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00907, 0.00127, 0.00017, 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.02985, 0.00406, 0.00258, 0.00001, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.02444, 0.00329, 0.00163, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.02049, 0.00273, 0.00110, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00001, + 0.01747, 0.00231, 0.00077, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01510, 0.00199, 0.00057, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01320, 0.00172, 0.00043, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01166, 0.00151, 0.00033, 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.01037, 0.00134, 0.00026, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00929, 0.00119, 0.00021, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00838, 0.00107, 0.00018, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00759, 0.00097, 0.00015, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00692, 0.00088, 0.00013, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00633, 0.00080, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00582, 0.00073, 0.00009, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ + 0.00537, 0.00067, 0.00008, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00497, 0.00062, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00461, 0.00058, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00429, 0.00053, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00401, 0.00050, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ + 0.01333, 0.00157, 0.00081, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.01068, 0.00124, 0.00049, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00878, 0.00101, 0.00032, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00736, 0.00084, 0.00022, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00627, 0.00071, 0.00016, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00540, 0.00061, 0.00011, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00470, 0.00053, 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.00413, 0.00046, 0.00007, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00366, 0.00041, 0.00006, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00327, 0.00036, 0.00005, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00293, 0.00032, 0.00004, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00265, 0.00029, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00240, 0.00026, 0.00003, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00218, 0.00024, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ + 0.00200, 0.00022, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00183, 0.00020, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00169, 0.00018, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00156, 0.00017, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00145, 0.00016, 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.00099, 0.00008, 0.00002, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00074, 0.00006, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00058, 0.00004, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00046, 0.00004, 0.00001, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00037, 0.00003, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00031, 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 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ + 0.00022, 0.00002, 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.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.00010, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000, + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, + 0.00000, 0.00000, 0.00000 / DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5, . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4, . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3, . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2, . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0, . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0, . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0, . .8D0,.9D0,1.D0/ DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/ DATA N0/2,5,5,9,0,0,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ DATA INIT/0/ C XSAVE=X C IF(INIT.NE.0) GOTO 10 INIT=1 DO 20 N=1,NX-1 DO 20 M=1,19 C READ(30,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M), C . F(6,N,M),F(8,N,M) C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR DO 25 I=1,8 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I) 20 CONTINUE DO 31 J=1,NTENTH-1 XX(J)= LOG10(XX(J))+ONEDO DO 31 I=1,8 IF(I.EQ.7) GO TO 31 DO 30 K=1,19 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K)) 31 CONTINUE 50 FORMAT(8F10.5) DO 40 I=1,8 DO 40 M=1,19 40 F(I,NX,M)=ZEROD 10 CONTINUE IF(X.LT.XMIN) X=XMIN IF(X.GT.XMAX) X=XMAX QSQ=SCALE**2 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN IF(QSQ.GT.QSQMAX) QSQ=QSQMAX XXX=X IF(X.LT.PONED) XXX= LOG10(X)+ONEDO N=0 70 N=N+1 IF(XXX.GT.XX(N+1)) GOTO 70 A=(XXX-XX(N))/(XX(N+1)-XX(N)) RM= LOG(QSQ/QSQMIN)/ LOG(TWOD) B=RM-AINT(RM) M=1+ INT(RM) DO 60 I=1,8 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1) . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1) IF(N.GE.NTENTH) GOTO 65 IF(I.EQ.7) GOTO 65 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1) G(I)=FAC**(G(I)/FAC) 65 CONTINUE G(I)=G(I)*(ONED-X)**N0(I) 60 CONTINUE UPV=G(1) DNV=G(2) USEA=G(4) DSEA=G(8) STR=G(6) CHM=G(5) GLU=G(3) BOT=G(7) X=XSAVE RETURN END