#include "pdf/pilot.h" SUBROUTINE SFMSJP(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C C THIS IS THE NEW "J'" FIT -- Mar 1996 -- 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)/ + .00150, .00264, 5.55683, 1.12144, .14329, + .00000, .60931, 1.12368, + .00193, .00291, 15.25887, 1.45831, .49682, + .00000, .95582, 1.46133, + .00232, .00315, 28.42037, 1.89182, .94390, + .00000, 1.39726, 1.89554, + .00268, .00338, 44.40294, 2.40648, 1.47002, + .34408, 1.91867, 2.41082, + .00302, .00359, 62.92809, 2.99540, 2.06897, + .96842, 2.51353, 3.00033, + .00335, .00380, 83.55903, 3.65033, 2.73283, + 1.64944, 3.17378, 3.65581, + .00366, .00399, 106.09640, 4.36370, 3.45426, + 2.38555, 3.89197, 4.36970 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + .00396, .00418, 130.08051, 5.12666, 4.22457, + 3.16914, 4.65935, 5.13316, + .00425, .00435, 155.31213, 5.93330, 5.03795, + 3.99461, 5.47006, 5.94026, + .00453, .00453, 181.62833, 6.77890, 5.88980, + 4.85753, 6.31944, 6.78632, + .00480, .00469, 208.85376, 7.65906, 6.77576, + 5.75372, 7.20311, 7.66690, + .00507, .00485, 236.69560, 8.56717, 7.68931, + 6.67676, 8.11454, 8.57543, + .00532, .00501, 265.07147, 9.50030, 8.62755, + 7.62385, 9.05077, 9.50896, + .00557, .00516, 293.97046, 10.45729, 9.58936, + 8.59394, 10.01070, 10.46634 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + .00581, .00531, 323.36273, 11.43695, 10.57356, + 9.58593, 10.99314, 11.44637, + .00605, .00546, 352.87207, 12.43076, 11.57170, + 10.59140, 11.98959, 12.44054, + .00628, .00560, 382.56424, 13.43910, 12.58416, + 11.61081, 13.00046, 13.44923, + .00651, .00573, 412.68381, 14.46705, 13.61602, + 12.64926, 14.03080, 14.47751, + .00673, .00587, 442.45764, 15.49675, 14.64948, + 13.68899, 15.06281, 15.50755 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + .00248, .00363, 5.06543, 1.00588, .12539, + .00000, .54436, 1.00910, + .00312, .00402, 13.18279, 1.28719, .42229, + .00000, .83443, 1.29096, + .00369, .00437, 23.75493, 1.63966, .78741, + .00000, 1.19405, 1.64391, + .00422, .00470, 36.20625, 2.04904, 1.20746, + .27448, 1.60949, 2.05371, + .00472, .00500, 50.28674, 2.50888, 1.67663, + .76529, 2.07466, 2.51396, + .00519, .00529, 65.64280, 3.01209, 2.18812, + 1.29162, 2.58261, 3.01753, + .00564, .00556, 82.11895, 3.55247, 2.73596, + 1.85221, 3.12728, 3.55826 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + .00607, .00582, 99.37228, 4.12310, 3.31338, + 2.44116, 3.70183, 4.12922, + .00649, .00607, 117.26476, 4.71953, 3.91604, + 3.05430, 4.30186, 4.72596, + .00689, .00631, 135.68713, 5.33829, 4.54056, + 3.68842, 4.92395, 5.34502, + .00727, .00654, 154.52290, 5.97622, 5.18383, + 4.34056, 5.56498, 5.98323, + .00765, .00676, 173.57372, 6.62860, 5.84121, + 5.00616, 6.22026, 6.63588, + .00801, .00698, 192.79395, 7.29346, 6.51076, + 5.68338, 6.88785, 7.30100, + .00836, .00718, 212.18825, 7.97014, 7.19186, + 6.37166, 7.56711, 7.97794 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + .00870, .00739, 231.74513, 8.65797, 7.88386, + 7.07040, 8.25737, 8.66601, + .00904, .00759, 251.21294, 9.35098, 8.58083, + 7.77373, 8.95269, 9.35926, + .00936, .00778, 270.64905, 10.04966, 9.28327, + 8.48219, 9.65357, 10.05816, + .00968, .00797, 290.22989, 10.75778, 9.99497, + 9.19958, 10.36378, 10.76650, + .00999, .00815, 309.43671, 11.46284, 10.70346, + 9.91349, 11.07084, 11.47177 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + .00405, .00499, 4.61713, .90174, .10963, + .00000, .48618, .90578, + .00498, .00556, 11.38689, 1.13568, .35816, + .00000, .72811, 1.14008, + .00582, .00606, 19.84977, 1.42082, .65515, + .00000, 1.01976, 1.42554, + .00659, .00653, 29.51260, 1.74472, .98902, + .21804, 1.34915, 1.74973, + .00731, .00695, 40.16928, 2.10181, 1.35481, + .60223, 1.71105, 2.10708, + .00800, .00736, 51.54611, 2.48627, 1.74699, + 1.00722, 2.09979, 2.49178, + .00865, .00774, 63.53112, 2.89329, 2.16094, + 1.43222, 2.51065, 2.89903 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + .00926, .00811, 75.87641, 3.31762, 2.59158, + 1.87282, 2.93849, 3.32357, + .00986, .00845, 88.49267, 3.75605, 3.03579, + 2.32609, 3.38013, 3.76219, + .01043, .00879, 101.31216, 4.20614, 3.49121, + 2.78983, 3.83319, 4.21247, + .01097, .00911, 114.26204, 4.66573, 3.95575, + 3.26203, 4.29554, 4.67224, + .01150, .00941, 127.21197, 5.13153, 4.42618, + 3.73956, 4.76392, 5.13821, + .01201, .00971, 140.14171, 5.60232, 4.90130, + 4.22131, 5.23712, 5.60916, + .01251, .01000, 153.06473, 6.07781, 5.38087, + 4.70708, 5.71489, 6.08481 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + .01299, .01028, 165.98192, 6.55768, 5.86459, + 5.19662, 6.19691, 6.56483, + .01346, .01055, 178.72711, 7.03782, 6.34837, + 5.68590, 6.67909, 7.04511, + .01392, .01081, 191.34935, 7.51876, 6.83278, + 6.17550, 7.16197, 7.52619, + .01436, .01107, 203.97646, 8.00334, 7.32066, + 6.66830, 7.64840, 8.01091, + .01479, .01131, 216.26178, 8.48286, 7.80333, + 7.15565, 8.12968, 8.49056 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + .00534, .00602, 4.37324, .84556, .10128, + .00000, .45495, .85001, + .00652, .00672, 10.45027, 1.05507, .32488, + .00000, .67208, 1.05983, + .00757, .00735, 17.86598, 1.30627, .58749, + .00000, .92947, 1.31128, + .00853, .00791, 26.17896, 1.58787, .87871, + .19014, 1.21629, 1.59311, + .00943, .00844, 35.21148, 1.89493, 1.19413, + .52229, 1.52790, 1.90037, + .01027, .00893, 44.73264, 2.22237, 1.52899, + .86889, 1.85938, 2.22799, + .01108, .00940, 54.65389, 2.56611, 1.87941, + 1.22944, 2.20676, 2.57192 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + .01184, .00984, 64.77325, 2.92179, 2.24115, + 1.60032, 2.56574, 2.92776, + .01257, .01027, 75.02436, 3.28679, 2.61170, + 1.97919, 2.93377, 3.29291, + .01327, .01067, 85.35876, 3.65919, 2.98922, + 2.36433, 3.30897, 3.66545, + .01394, .01106, 95.72305, 4.03729, 3.37208, + 2.75421, 3.68967, 4.04369, + .01459, .01143, 106.01685, 4.41848, 3.75770, + 3.14635, 4.07328, 4.42501, + .01521, .01179, 116.23021, 4.80186, 4.14523, + 3.53996, 4.45893, 4.80851, + .01582, .01213, 126.38021, 5.18732, 4.53459, + 3.93501, 4.84652, 5.19409 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + .01640, .01247, 136.47208, 5.57468, 4.92564, + 4.33139, 5.23589, 5.58156, + .01697, .01279, 146.37639, 5.96065, 5.31510, + 4.72589, 5.62378, 5.96764, + .01753, .01311, 156.13741, 6.34579, 5.70356, + 5.11910, 6.01073, 6.35288, + .01807, .01341, 165.86134, 6.73251, 6.09343, + 5.51348, 6.39918, 6.73970, + .01859, .01371, 175.27473, 7.11377, 6.47770, + 5.90204, 6.78208, 7.12106 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + .00649, .00688, 4.20787, .80761, .09572, + .00000, .43394, .81236, + .00787, .00769, 9.83170, 1.00113, .30298, + .00000, .63484, 1.00614, + .00910, .00842, 16.57719, 1.23039, .54338, + .00000, .87009, 1.23562, + .01023, .00908, 24.03992, 1.48499, .80734, + .17233, 1.12973, 1.49041, + .01128, .00968, 32.06238, 1.76042, 1.09093, + .47154, 1.40955, 1.76602, + .01226, .01025, 40.44193, 2.05213, 1.38987, + .78151, 1.70516, 2.05789, + .01319, .01079, 49.10527, 2.35655, 1.70079, + 1.10195, 2.01308, 2.36246 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + .01408, .01130, 57.87912, 2.66983, 2.01998, + 1.42974, 2.32956, 2.67588, + .01492, .01178, 66.71113, 2.98977, 2.34532, + 1.76290, 2.65241, 2.99595, + .01573, .01225, 75.56420, 3.31476, 2.67530, + 2.10004, 2.98009, 3.32106, + .01651, .01269, 84.39670, 3.64340, 3.00855, + 2.43989, 3.31122, 3.64980, + .01725, .01312, 93.12576, 3.97345, 3.34292, + 2.78039, 3.64360, 3.97997, + .01797, .01352, 101.74745, 4.30424, 3.67775, + 3.12093, 3.97657, 4.31086, + .01867, .01392, 110.28020, 4.63574, 4.01304, + 3.46156, 4.31011, 4.64245 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + .01934, .01430, 118.73171, 4.96786, 4.34875, + 3.80228, 4.64417, 4.97467, + .02000, .01467, 126.99378, 5.29782, 4.68210, + 4.14036, 4.97596, 5.30472, + .02063, .01503, 135.10756, 5.62616, 5.01366, + 4.47639, 5.30604, 5.63314, + .02125, .01537, 143.16595, 5.95502, 5.34559, + 4.81255, 5.63656, 5.96209, + .02185, .01571, 150.93834, 6.27838, 5.67187, + 5.14286, 5.96149, 6.28552 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + .00754, .00763, 4.08378, .77921, .09159, + .00000, .41826, .78418, + .00910, .00854, 9.37638, .96101, .28689, + .00000, .60728, .96622, + .01050, .00936, 15.63990, 1.17439, .51121, + .00000, .82651, 1.17981, + .01177, .01009, 22.49837, 1.40961, .75562, + .15956, 1.06665, 1.41520, + .01295, .01078, 29.80974, 1.66251, 1.01653, + .43528, 1.32383, 1.66826, + .01405, .01141, 37.39203, 1.92894, 1.29006, + .71931, 1.59406, 1.93484, + .01510, .01201, 45.18294, 2.20568, 1.57317, + 1.01150, 1.87422, 2.21171 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + .01609, .01258, 53.02928, 2.48929, 1.86257, + 1.30909, 2.16093, 2.49545, + .01704, .01312, 60.88840, 2.77783, 2.15641, + 1.61038, 2.45230, 2.78410, + .01794, .01363, 68.73103, 3.06992, 2.45338, + 1.91417, 2.74700, 3.07629, + .01881, .01412, 76.52332, 3.36434, 2.75233, + 2.21942, 3.04385, 3.37081, + .01964, .01459, 84.19431, 3.65916, 3.05138, + 2.52430, 3.34094, 3.66573, + .02045, .01505, 91.74381, 3.95383, 3.35001, + 2.82836, 3.63772, 3.96049, + .02122, .01548, 99.19100, 4.24837, 3.64827, + 3.13171, 3.93426, 4.25512 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + .02197, .01591, 106.54523, 4.54278, 3.94619, + 3.43440, 4.23054, 4.54961, + .02270, .01631, 113.71231, 4.83459, 4.24132, + 3.73404, 4.52413, 4.84149, + .02341, .01671, 120.73104, 5.12433, 4.53422, + 4.03120, 4.81557, 5.13132, + .02409, .01709, 127.68514, 5.41398, 4.82687, + 4.32788, 5.10682, 5.42104, + .02476, .01746, 134.37268, 5.69818, 5.11393, + 4.61877, 5.39255, 5.70530 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + .01194, .01054, 3.72011, .69611, .07974, + .00000, .37265, .70181, + .01424, .01186, 8.08604, .84508, .24153, + .00000, .52842, .85100, + .01628, .01303, 13.03921, 1.01477, .42161, + .00000, .70361, 1.02089, + .01812, .01407, 18.28871, 1.19752, .61309, + .12503, .89098, 1.20379, + .01983, .01504, 23.73799, 1.39024, .81341, + .33788, 1.08772, 1.39666, + .02142, .01593, 29.26161, 1.58990, 1.01981, + .55327, 1.29095, 1.59645, + .02291, .01677, 34.82680, 1.79427, 1.23023, + .77149, 1.49851, 1.80094 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + .02432, .01756, 40.33232, 2.00097, 1.44242, + .99071, 1.70811, 2.00774, + .02567, .01831, 45.75961, 2.20877, 1.65524, + 1.20992, 1.91856, 2.21564, + .02694, .01902, 51.09809, 2.41685, 1.86795, + 1.42849, 2.12908, 2.42381, + .02816, .01970, 56.33268, 2.62451, 2.07990, + 1.64584, 2.33901, 2.63156, + .02933, .02035, 61.42131, 2.83051, 2.28991, + 1.86086, 2.54712, 2.83765, + .03046, .02097, 66.37169, 3.03462, 2.49776, + 2.07337, 2.75320, 3.04183, + .03154, .02156, 71.20381, 3.23700, 2.70367, + 2.28364, 2.95744, 3.24429 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + .03258, .02214, 75.92933, 3.43778, 2.90778, + 2.49184, 3.15997, 3.44514, + .03359, .02269, 80.48836, 3.63532, 3.10847, + 2.69639, 3.35917, 3.64275, + .03456, .02323, 84.91246, 3.83013, 3.30626, + 2.89783, 3.55555, 3.83762, + .03551, .02375, 89.26225, 4.02368, 3.50265, + 3.09767, 3.75060, 4.03123, + .03642, .02425, 93.40482, 4.21231, 3.69398, + 3.29229, 3.94064, 4.21991 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + .01876, .01467, 3.38626, .61953, .06915, + .00000, .33103, .62613, + .02214, .01657, 6.95931, .74030, .20221, + .00000, .45832, .74718, + .02511, .01823, 10.84023, .87366, .34553, + .00000, .59697, .88077, + .02778, .01971, 14.81582, 1.01384, .49410, + .09709, .74159, 1.02115, + .03022, .02106, 18.82937, 1.15878, .64633, + .25987, .89039, 1.16626, + .03249, .02231, 22.80110, 1.30637, .80039, + .42161, 1.04140, 1.31402, + .03462, .02348, 26.72067, 1.45518, .95502, + .58291, 1.19330, 1.46298 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + .03661, .02458, 30.52538, 1.60366, 1.10877, + .74267, 1.34456, 1.61159, + .03850, .02561, 34.21290, 1.75110, 1.26104, + .90041, 1.49455, 1.75916, + .04029, .02659, 37.78486, 1.89710, 1.41149, + 1.05586, 1.64290, 1.90528, + .04200, .02752, 41.23816, 2.04131, 1.55982, + 1.20881, 1.78929, 2.04960, + .04362, .02840, 44.54984, 2.18297, 1.70534, + 1.35859, 1.93298, 2.19136, + .04518, .02925, 47.73145, 2.32206, 1.84803, + 1.50527, 2.07397, 2.33055, + .04667, .03006, 50.80191, 2.45883, 1.98818, + 1.64915, 2.21252, 2.46741 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + .04811, .03084, 53.77330, 2.59346, 2.12601, + 1.79047, 2.34884, 2.60213, + .04949, .03159, 56.60839, 2.72490, 2.26047, + 1.92822, 2.48187, 2.73365, + .05082, .03231, 59.33210, 2.85358, 2.39201, + 2.06287, 2.61206, 2.86241, + .05212, .03301, 61.98803, 2.98062, 2.52179, + 2.19559, 2.74054, 2.98953, + .05336, .03368, 64.48965, 3.10353, 2.64730, + 2.32391, 2.86482, 3.11251 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + .02439, .01789, 3.20303, .57703, .06343, + .00000, .30810, .58427, + .02861, .02023, 6.36386, .68311, .18156, + .00000, .42061, .69069, + .03230, .02227, 9.70723, .79804, .30628, + .00000, .54077, .80591, + .03559, .02408, 13.06140, .91712, .43358, + .08326, .66423, .92524, + .03860, .02572, 16.38996, 1.03875, .56238, + .22159, .78968, 1.04709, + .04138, .02724, 19.63512, 1.16133, .69131, + .35751, .91564, 1.16988, + .04397, .02866, 22.79675, 1.28382, .81951, + .49177, 1.04117, 1.29255 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + .04640, .02998, 25.82955, 1.40501, .94588, + .62362, 1.16512, 1.41391, + .04869, .03122, 28.73784, 1.52446, 1.07008, + .75279, 1.28709, 1.53352, + .05086, .03240, 31.52792, 1.64193, 1.19193, + .87920, 1.40690, 1.65114, + .05292, .03351, 34.20137, 1.75724, 1.31128, + 1.00275, 1.52435, 1.76658, + .05488, .03457, 36.74312, 1.86983, 1.42766, + 1.12301, 1.63896, 1.87930, + .05675, .03557, 39.16563, 1.97976, 1.54113, + 1.24011, 1.75077, 1.98935, + .05854, .03654, 41.48662, 2.08730, 1.65200, + 1.35436, 1.86008, 2.09701 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + .06026, .03746, 43.71775, 2.19265, 1.76049, + 1.46603, 1.96710, 2.20247, + .06191, .03835, 45.83118, 2.29501, 1.86582, + 1.57435, 2.07103, 2.30493, + .06350, .03920, 47.84850, 2.39477, 1.96840, + 1.67976, 2.17229, 2.40479, + .06504, .04002, 49.80534, 2.49288, 2.06920, + 1.78324, 2.27183, 2.50300, + .06652, .04081, 51.63486, 2.58737, 2.16624, + 1.88282, 2.36767, 2.59758 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + .02936, .02067, 3.07771, .54759, .05954, + .00000, .29229, .55536, + .03429, .02339, 5.96559, .64393, .16780, + .00000, .39502, .65210, + .03858, .02574, 8.96116, .74690, .28043, + .00000, .50317, .75540, + .04239, .02782, 11.92032, .85244, .39411, + .07441, .61308, .86124, + .04587, .02971, 14.81969, .95931, .50806, + .19721, .72375, .96837, + .04907, .03145, 17.61523, 1.06619, .62123, + .31690, .83400, 1.07548, + .05205, .03306, 20.31278, 1.17228, .73296, + .43431, .94311, 1.18179 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + .05483, .03457, 22.87748, 1.27661, .84242, + .54889, 1.05019, 1.28631, + .05745, .03598, 25.31726, 1.37887, .94938, + .66049, 1.15496, 1.38876, + .05992, .03731, 27.64091, 1.47893, 1.05377, + .76914, 1.25734, 1.48899, + .06226, .03857, 29.85246, 1.57668, 1.15554, + .87483, 1.35725, 1.58691, + .06449, .03976, 31.94128, 1.67172, 1.25431, + .97723, 1.45428, 1.68209, + .06661, .04090, 33.92002, 1.76412, 1.35021, + 1.07652, 1.54856, 1.77464, + .06863, .04198, 35.80536, 1.85417, 1.44355, + 1.17302, 1.64037, 1.86482 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + .07058, .04302, 37.60849, 1.94207, 1.53457, + 1.26700, 1.72994, 1.95286, + .07245, .04402, 39.30700, 2.02716, 1.62260, + 1.35782, 1.81660, 2.03807, + .07424, .04497, 40.92014, 2.10982, 1.70805, + 1.44591, 1.90075, 2.12084, + .07597, .04589, 42.47869, 2.19088, 1.79177, + 1.53213, 1.98324, 2.20202, + .07764, .04678, 43.92727, 2.26867, 1.87209, + 1.61482, 2.06238, 2.27991 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + .03395, .02328, 2.98197, .52456, .05653, + .00000, .27986, .53272, + .03949, .02632, 5.66390, .61360, .15736, + .00000, .37523, .62218, + .04429, .02894, 8.40123, .70774, .26107, + .00000, .47450, .71669, + .04854, .03126, 11.07101, .80341, .36480, + .06796, .57449, .81267, + .05241, .03336, 13.65941, .89960, .46799, + .17950, .67443, .90914, + .05596, .03528, 16.13212, .99520, .56981, + .28749, .77336, 1.00499, + .05926, .03706, 18.49924, 1.08956, .66976, + .39282, .87072, 1.09958 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + .06234, .03872, 20.73313, 1.18190, .76716, + .49508, .96576, 1.19213, + .06522, .04027, 22.84407, 1.27199, .86189, + .59422, 1.05834, 1.28241, + .06794, .04173, 24.84203, 1.35977, .95395, + .69031, 1.14842, 1.37038, + .07052, .04311, 26.73308, 1.44520, 1.04334, + .78341, 1.23596, 1.45597, + .07296, .04441, 28.50911, 1.52793, 1.12977, + .87329, 1.32068, 1.53887, + .07528, .04565, 30.18274, 1.60811, 1.21340, + .96012, 1.40270, 1.61919, + .07750, .04684, 31.77016, 1.68599, 1.29454, + 1.04425, 1.48232, 1.69722 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + .07963, .04797, 33.28199, 1.76179, 1.37341, + 1.12593, 1.55977, 1.77316, + .08166, .04905, 34.69911, 1.83494, 1.44946, + 1.20463, 1.63447, 1.84643, + .08361, .05008, 36.03899, 1.90580, 1.52308, + 1.28074, 1.70681, 1.91742, + .08550, .05108, 37.32903, 1.97514, 1.59504, + 1.35507, 1.77755, 1.98688, + .08731, .05204, 38.52234, 2.04147, 1.66386, + 1.42614, 1.84521, 2.05331 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + .05320, .03399, 2.69878, .45512, .04773, + .00000, .24281, .46493, + .06107, .03829, 4.80100, .52363, .12774, + .00000, .31753, .53402, + .06780, .04194, 6.83577, .59357, .20701, + .00000, .39253, .60445, + .07369, .04513, 8.73805, .66270, .28397, + .05062, .46589, .67400, + .07900, .04799, 10.51855, .73058, .35868, + .13225, .53747, .74226, + .08383, .05059, 12.16752, .79668, .43081, + .20959, .60683, .80868, + .08829, .05297, 13.70408, .86075, .50031, + .28363, .67384, .87306 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + .09241, .05517, 15.11777, .92239, .56688, + .35428, .73814, .93498, + .09625, .05721, 16.42322, .98164, .63062, + .42174, .79982, .99448, + .09984, .05912, 17.63301, 1.03856, .69169, + .48621, .85898, 1.05164, + .10323, .06091, 18.75573, 1.09324, .75021, + .54785, .91574, 1.10653, + .10642, .06260, 19.78961, 1.14554, .80609, + .60663, .96997, 1.15904, + .10944, .06419, 20.74619, 1.19564, .85953, + .66276, 1.02187, 1.20932, + .11231, .06570, 21.63853, 1.24378, .91082, + .71656, 1.07171, 1.25765 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + .11505, .06714, 22.47538, 1.29018, .96018, + .76829, 1.11971, 1.30422, + .11766, .06850, 23.24610, 1.33448, 1.00729, + .81761, 1.16553, 1.34868, + .12015, .06980, 23.96337, 1.37700, 1.05247, + .86489, 1.20948, 1.39135, + .12255, .07106, 24.64565, 1.41826, 1.09627, + .91067, 1.25212, 1.43277, + .12484, .07225, 25.26440, 1.45733, 1.13774, + .95403, 1.29248, 1.47197 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + .08323, .05082, 2.43302, .38709, .03955, + .00000, .20683, .39918, + .09408, .05671, 4.03040, .43795, .10154, + .00000, .26376, .45081, + .10321, .06164, 5.48625, .48793, .16054, + .00000, .31866, .50143, + .11110, .06586, 6.78252, .53580, .21597, + .03669, .37065, .54984, + .11811, .06961, 7.94701, .58159, .26833, + .09474, .42002, .59610, + .12443, .07296, 8.98652, .62512, .31766, + .14842, .46671, .64004, + .13021, .07601, 9.92438, .66645, .36421, + .19876, .51089, .68175 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + .13549, .07879, 10.76076, .70544, .40791, + .24588, .55244, .72108, + .14037, .08134, 11.51142, .74225, .44903, + .29010, .59159, .75819, + .14491, .08371, 12.18882, .77705, .48779, + .33169, .62855, .79327, + .14914, .08591, 12.80164, .80995, .52436, + .37087, .66345, .82643, + .15311, .08797, 13.35182, .84096, .55878, + .40770, .69631, .85768, + .15683, .08989, 13.84840, .87024, .59125, + .44241, .72732, .88718, + .16035, .09170, 14.30131, .89802, .62203, + .47527, .75673, .91517 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + .16369, .09341, 14.71721, .92448, .65131, + .50651, .78472, .94182, + .16685, .09502, 15.09044, .94942, .67891, + .53596, .81110, .96694, + .16985, .09655, 15.43008, .97306, .70508, + .56387, .83612, .99076, + .17273, .09801, 15.74786, .99580, .73023, + .59066, .86017, 1.01367, + .17545, .09939, 16.02695, 1.01703, .75373, + .61573, .88263, 1.03504 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + .10795, .06480, 2.28464, .34802, .03505, + -.00001, .18644, .36199, + .12080, .07173, 3.61908, .38986, .08775, + -.00001, .23424, .40473, + .13149, .07746, 4.78807, .42995, .13663, + .00000, .27915, .44556, + .14063, .08231, 5.79553, .46756, .18159, + .02991, .32079, .48378, + .14869, .08656, 6.67563, .50291, .22332, + .07669, .35963, .51965, + .15590, .09034, 7.44140, .53597, .26201, + .11927, .39578, .55317, + .16242, .09374, 8.11673, .56692, .29802, + .15868, .42950, .58454 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + .16836, .09682, 8.70564, .59573, .33139, + .19511, .46080, .61371, + .17382, .09962, 9.22298, .62259, .36242, + .22891, .48993, .64090, + .17885, .10220, 9.68076, .64769, .39135, + .26037, .51712, .66630, + .18354, .10459, 10.08673, .67117, .41838, + .28972, .54254, .69005, + .18789, .10680, 10.44393, .69307, .44356, + .31706, .56623, .71219, + .19195, .10885, 10.75991, .71353, .46709, + .34259, .58836, .73288, + .19578, .11077, 11.04269, .73276, .48921, + .36657, .60916, .75232 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + .19939, .11258, 11.29776, .75091, .51008, + .38919, .62879, .77067, + .20279, .11428, 11.52140, .76786, .52960, + .41035, .64714, .78781, + .20601, .11588, 11.72088, .78379, .54795, + .43025, .66438, .80390, + .20908, .11740, 11.90488, .79900, .56547, + .44924, .68085, .81928, + .21198, .11882, 12.06104, .81304, .58171, + .46686, .69608, .83346 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + .12967, .07719, 2.18195, .32067, .03199, + -.00001, .17226, .33629, + .14398, .08486, 3.34295, .35666, .07860, + -.00001, .21410, .37327, + .15577, .09112, 4.32916, .39048, .12099, + .00000, .25264, .40788, + .16578, .09637, 5.15742, .42169, .15937, + .02566, .28779, .43974, + .17454, .10093, 5.86492, .45060, .19449, + .06541, .32012, .46921, + .18231, .10495, 6.46774, .47730, .22668, + .10117, .34983, .49639, + .18932, .10854, 6.98942, .50202, .25630, + .13394, .37723, .52152 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + .19565, .11177, 7.43566, .52476, .28348, + .16393, .40241, .54464, + .20144, .11469, 7.82052, .54576, .30852, + .19152, .42561, .56596, + .20676, .11736, 8.15509, .56518, .33167, + .21700, .44707, .58569, + .21168, .11981, 8.44660, .58320, .35312, + .24058, .46696, .60397, + .21622, .12207, 8.69817, .59984, .37295, + .26239, .48534, .62085, + .22046, .12416, 8.91642, .61525, .39134, + .28262, .50237, .63649, + .22442, .12611, 9.10819, .62963, .40851, + .30150, .51827, .65107 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + .22816, .12793, 9.27813, .64310, .42461, + .31920, .53317, .66473, + .23165, .12963, 9.42347, .65557, .43956, + .33566, .54699, .67737, + .23494, .13122, 9.55017, .66719, .45353, + .35105, .55988, .68915, + .23808, .13273, 9.66522, .67822, .46680, + .36566, .57213, .70034, + .24102, .13413, 9.75896, .68831, .47900, + .37913, .58336, .71055 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + .14933, .08848, 2.10355, .29976, .02970, + .00000, .16152, .31692, + .16476, .09667, 3.13725, .33152, .07186, + -.00001, .19902, .34972, + .17737, .10328, 3.99295, .36087, .10960, + .00000, .23301, .37990, + .18799, .10879, 4.69591, .38758, .14332, + .02265, .26358, .40728, + .19722, .11353, 5.28486, .41202, .17383, + .05748, .29136, .43229, + .20538, .11768, 5.77750, .43434, .20150, + .08850, .31662, .45508, + .21268, .12136, 6.19670, .45480, .22675, + .11668, .33971, .47596 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + .21926, .12464, 6.54894, .47343, .24971, + .14228, .36071, .49496, + .22523, .12760, 6.84750, .49048, .27070, + .16565, .37991, .51233, + .23069, .13029, 7.10263, .50613, .28997, + .18710, .39754, .52826, + .23572, .13275, 7.32127, .52051, .30770, + .20683, .41375, .54290, + .24036, .13499, 7.50607, .53369, .32399, + .22496, .42862, .55631, + .24465, .13706, 7.66324, .54580, .33899, + .24168, .44230, .56862, + .24866, .13898, 7.79861, .55700, .35292, + .25720, .45498, .58002 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + .25242, .14076, 7.91623, .56744, .36591, + .27169, .46681, .59063, + .25593, .14241, 8.01402, .57700, .37789, + .28507, .47768, .60035, + .25922, .14395, 8.09679, .58586, .38903, + .29753, .48777, .60935, + .26234, .14541, 8.17045, .59422, .39956, + .30932, .49732, .61785, + .26526, .14675, 8.22729, .60179, .40918, + .32012, .50599, .62553 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + .22960, .13477, 1.86368, .23709, .02306, + .00000, .12995, .26084, + .24771, .14383, 2.53895, .25728, .05286, + .00000, .15547, .28208, + .26205, .15083, 3.04657, .27477, .07808, + .00000, .17722, .30033, + .27377, .15644, 3.42914, .28981, .09957, + .01474, .19580, .31595, + .28370, .16109, 3.72493, .30291, .11824, + .03683, .21195, .32950, + .29224, .16502, 3.95325, .31432, .13456, + .05583, .22604, .34127, + .29971, .16840, 4.13291, .32434, .14896, + .07259, .23844, .35158 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + .30628, .17131, 4.27096, .33308, .16166, + .08740, .24932, .36056, + .31212, .17385, 4.37752, .34075, .17292, + .10058, .25893, .36842, + .31734, .17609, 4.45978, .34751, .18298, + .11237, .26747, .37534, + .32206, .17807, 4.52253, .35350, .19200, + .12298, .27508, .38144, + .32632, .17982, 4.56792, .35874, .20007, + .13252, .28184, .38679, + .33019, .18139, 4.59991, .36336, .20733, + .14113, .28787, .39149, + .33372, .18279, 4.62191, .36748, .21390, + .14897, .29329, .39567 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + .33699, .18407, 4.63624, .37116, .21990, + .15615, .29821, .39941, + .33997, .18520, 4.64195, .37438, .22529, + .16265, .30258, .40266, + .34271, .18623, 4.64147, .37721, .23018, + .16858, .30650, .40552, + .34528, .18718, 4.63793, .37981, .23473, + .17411, .31013, .40813, + .34760, .18801, 4.62744, .38198, .23875, + .17906, .31328, .41031 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + .34473, .19985, 1.61763, .17936, .01717, + -.00001, .10174, .21247, + .36209, .20688, 1.98594, .18990, .03658, + -.00002, .11705, .22338, + .37499, .21180, 2.22381, .19808, .05187, + -.00001, .12901, .23169, + .38494, .21532, 2.37671, .20440, .06411, + .00873, .13846, .23803, + .39290, .21793, 2.47612, .20937, .07418, + .02143, .14611, .24294, + .39936, .21988, 2.53743, .21327, .08255, + .03188, .15233, .24670, + .40471, .22136, 2.57382, .21635, .08961, + .04077, .15748, .24962 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + .40914, .22242, 2.59043, .21870, .09556, + .04834, .16168, .25180, + .41282, .22320, 2.59341, .22050, .10060, + .05484, .16514, .25339, + .41595, .22374, 2.58688, .22186, .10492, + .06049, .16801, .25454, + .41858, .22410, 2.57343, .22284, .10864, + .06543, .17038, .25531, + .42079, .22429, 2.55420, .22350, .11182, + .06971, .17231, .25574, + .42264, .22435, 2.53106, .22389, .11456, + .07347, .17388, .25590, + .42422, .22431, 2.50557, .22407, .11693, + .07680, .17517, .25587 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + .42557, .22419, 2.47869, .22411, .11901, + .07977, .17623, .25569, + .42667, .22400, 2.44988, .22397, .12079, + .08239, .17705, .25531, + .42758, .22374, 2.42023, .22369, .12233, + .08470, .17767, .25481, + .42837, .22345, 2.39098, .22336, .12370, + .08680, .17819, .25426, + .42895, .22308, 2.36023, .22286, .12482, + .08861, .17849, .25354 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + .42826, .24381, 1.45878, .14748, .01401, + .00000, .08629, .18610, + .44159, .24708, 1.67133, .15305, .02817, + .00000, .09625, .19108, + .45065, .24869, 1.78570, .15677, .03872, + .00000, .10342, .19416, + .45696, .24928, 1.84207, .15918, .04679, + .00602, .10866, .19590, + .46148, .24925, 1.86478, .16069, .05314, + .01455, .11257, .19676, + .46469, .24878, 1.86551, .16151, .05820, + .02134, .11548, .19697, + .46699, .24802, 1.85339, .16186, .06231, + .02698, .11768, .19674 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + .46851, .24704, 1.83184, .16182, .06561, + .03164, .11926, .19612, + .46945, .24592, 1.80461, .16149, .06833, + .03555, .12040, .19524, + .46997, .24470, 1.77422, .16096, .07054, + .03886, .12119, .19416, + .47014, .24341, 1.74204, .16026, .07237, + .04168, .12170, .19297, + .46998, .24207, 1.70847, .15943, .07385, + .04407, .12198, .19164, + .46959, .24069, 1.67453, .15849, .07506, + .04611, .12206, .19023, + .46904, .23929, 1.64097, .15749, .07606, + .04788, .12200, .18878 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + .46836, .23789, 1.60817, .15644, .07689, + .04942, .12184, .18731, + .46751, .23648, 1.57564, .15535, .07753, + .05074, .12156, .18580, + .46655, .23508, 1.54390, .15422, .07804, + .05187, .12120, .18428, + .46555, .23371, 1.51353, .15310, .07846, + .05288, .12081, .18279, + .46441, .23231, 1.48337, .15193, .07874, + .05371, .12031, .18124 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + .49187, .27376, 1.33138, .12474, .01180, + .00000, .07496, .16583, + .49978, .27277, 1.44593, .12714, .02259, + .00000, .08143, .16674, + .50407, .27084, 1.48876, .12820, .03028, + -.00001, .08566, .16644, + .50614, .26840, 1.49311, .12838, .03590, + .00440, .08843, .16542, + .50682, .26573, 1.47736, .12803, .04017, + .01052, .09025, .16396, + .50650, .26292, 1.44985, .12727, .04343, + .01528, .09137, .16218, + .50556, .26007, 1.41674, .12628, .04597, + .01913, .09203, .16028 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + .50409, .25721, 1.38014, .12512, .04793, + .02224, .09229, .15822, + .50225, .25439, 1.34233, .12383, .04946, + .02480, .09230, .15613, + .50019, .25160, 1.30461, .12248, .05067, + .02692, .09211, .15402, + .49795, .24889, 1.26764, .12108, .05159, + .02868, .09178, .15191, + .49554, .24623, 1.23150, .11966, .05229, + .03013, .09131, .14982, + .49304, .24364, 1.19661, .11821, .05281, + .03135, .09076, .14777, + .49049, .24112, 1.16326, .11678, .05319, + .03238, .09015, .14575 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + .48791, .23868, 1.13155, .11538, .05347, + .03325, .08950, .14379, + .48528, .23630, 1.10105, .11399, .05365, + .03397, .08881, .14186, + .48264, .23398, 1.07195, .11261, .05374, + .03458, .08808, .13998, + .48006, .23175, 1.04452, .11128, .05378, + .03510, .08736, .13818, + .47740, .22955, 1.01797, .10994, .05374, + .03551, .08659, .13638 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + .54079, .29328, 1.21973, .10644, .01005, + .00000, .06543, .14775, + .54267, .28808, 1.26726, .10674, .01846, + -.00001, .06946, .14576, + .54186, .28274, 1.26477, .10613, .02420, + -.00001, .07175, .14326, + .53951, .27750, 1.23856, .10501, .02823, + .00332, .07295, .14049, + .53628, .27243, 1.20189, .10361, .03117, + .00787, .07350, .13764, + .53248, .26754, 1.16038, .10201, .03333, + .01132, .07358, .13478, + .52837, .26287, 1.11801, .10036, .03495, + .01406, .07338, .13196 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + .52405, .25840, 1.07580, .09864, .03614, + .01623, .07294, .12920, + .51959, .25413, 1.03497, .09695, .03701, + .01797, .07236, .12651, + .51514, .25006, .99610, .09525, .03764, + .01940, .07168, .12393, + .51068, .24618, .95936, .09359, .03808, + .02054, .07094, .12146, + .50622, .24247, .92456, .09196, .03837, + .02148, .07015, .11908, + .50182, .23890, .89180, .09037, .03855, + .02222, .06932, .11679, + .49750, .23550, .86112, .08884, .03864, + .02285, .06848, .11460 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + .49328, .23226, .83241, .08736, .03866, + .02338, .06765, .11251, + .48909, .22913, .80528, .08592, .03862, + .02379, .06681, .11047, + .48499, .22612, .77979, .08453, .03852, + .02412, .06597, .10853, + .48104, .22325, .75599, .08319, .03840, + .02439, .06515, .10669, + .47709, .22045, .73333, .08188, .03823, + .02460, .06433, .10489 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + .58579, .30650, 1.09343, .08730, .00823, + -.00001, .05491, .12655, + .57987, .29641, 1.08387, .08593, .01449, + -.00002, .05687, .12229, + .57267, .28727, 1.04605, .08412, .01855, + -.00001, .05761, .11815, + .56492, .27897, .99821, .08212, .02127, + .00239, .05763, .11419, + .55703, .27135, .94839, .08007, .02317, + .00563, .05727, .11046, + .54911, .26430, .89948, .07802, .02447, + .00801, .05664, .10694, + .54137, .25779, .85343, .07604, .02540, + .00986, .05588, .10364 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + .53379, .25169, .81027, .07410, .02602, + .01129, .05502, .10056, + .52640, .24602, .77034, .07224, .02642, + .01242, .05410, .09768, + .51928, .24071, .73358, .07048, .02667, + .01330, .05318, .09494, + .51242, .23572, .69979, .06877, .02681, + .01401, .05224, .09242, + .50574, .23103, .66859, .06717, .02685, + .01456, .05131, .08999, + .49930, .22658, .63982, .06563, .02680, + .01500, .05040, .08772, + .49310, .22238, .61333, .06416, .02672, + .01535, .04950, .08559 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + .48716, .21841, .58891, .06277, .02660, + .01563, .04863, .08358, + .48136, .21462, .56620, .06144, .02645, + .01583, .04777, .08165, + .47576, .21102, .54513, .06017, .02627, + .01598, .04695, .07983, + .47040, .20761, .52563, .05896, .02608, + .01609, .04617, .07811, + .46514, .20431, .50731, .05780, .02586, + .01617, .04538, .07646 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + .61639, .31015, .97735, .07105, .00671, + -.00003, .04558, .10674, + .60283, .29579, .93029, .06878, .01144, + -.00002, .04624, .10124, + .58951, .28347, .87186, .06639, .01436, + -.00002, .04606, .09633, + .57672, .27267, .81324, .06403, .01622, + .00176, .04545, .09193, + .56455, .26302, .75833, .06178, .01744, + .00410, .04462, .08795, + .55293, .25432, .70798, .05965, .01824, + .00581, .04368, .08430, + .54196, .24642, .66266, .05764, .01876, + .00709, .04269, .08099 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + .53154, .23915, .62176, .05574, .01907, + .00807, .04169, .07794, + .52164, .23246, .58496, .05397, .01922, + .00882, .04069, .07514, + .51227, .22627, .55188, .05231, .01928, + .00939, .03971, .07255, + .50337, .22054, .52204, .05076, .01926, + .00982, .03877, .07017, + .49487, .21518, .49498, .04929, .01918, + .01017, .03786, .06796, + .48677, .21015, .47040, .04791, .01905, + .01043, .03697, .06589, + .47905, .20545, .44806, .04661, .01890, + .01062, .03614, .06395 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + .47170, .20105, .42771, .04540, .01874, + .01076, .03535, .06214, + .46464, .19687, .40900, .04425, .01855, + .01087, .03456, .06044, + .45788, .19291, .39182, .04316, .01835, + .01094, .03382, .05885, + .45144, .18917, .37606, .04213, .01814, + .01099, .03311, .05736, + .44519, .18559, .36138, .04114, .01793, + .01100, .03243, .05594 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + .63523, .30654, .86961, .05721, .00543, + .00000, .03732, .08851, + .61435, .28874, .79857, .05456, .00898, + -.00002, .03716, .08257, + .59535, .27391, .72901, .05204, .01108, + -.00001, .03646, .07751, + .57798, .26123, .66619, .04967, .01235, + .00130, .03554, .07310, + .56201, .25008, .61088, .04747, .01314, + .00301, .03452, .06926, + .54717, .24020, .56227, .04546, .01361, + .00423, .03349, .06579, + .53346, .23131, .51989, .04359, .01389, + .00513, .03246, .06270 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + .52063, .22324, .48264, .04188, .01401, + .00580, .03146, .05991, + .50865, .21590, .44987, .04029, .01404, + .00629, .03049, .05738, + .49742, .20919, .42089, .03883, .01400, + .00667, .02959, .05506, + .48687, .20299, .39517, .03749, .01391, + .00694, .02871, .05297, + .47693, .19726, .37215, .03623, .01378, + .00716, .02789, .05102, + .46749, .19193, .35149, .03506, .01362, + .00731, .02711, .04923, + .45860, .18696, .33292, .03396, .01346, + .00741, .02637, .04757 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + .45021, .18232, .31616, .03293, .01329, + .00748, .02568, .04603, + .44219, .17794, .30090, .03197, .01311, + .00753, .02501, .04459, + .43455, .17383, .28700, .03107, .01292, + .00755, .02438, .04325, + .42731, .16998, .27431, .03023, .01273, + .00755, .02379, .04200, + .42034, .16630, .26262, .02943, .01255, + .00754, .02321, .04081 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + .64422, .29750, .76936, .04549, .00435, + -.00002, .03010, .07212, + .61664, .27696, .68396, .04279, .00703, + -.00001, .02950, .06631, + .59253, .26023, .60959, .04035, .00855, + -.00002, .02858, .06146, + .57114, .24618, .54670, .03813, .00943, + .00096, .02756, .05738, + .55190, .23402, .49364, .03613, .00994, + .00224, .02651, .05387, + .53432, .22333, .44850, .03433, .01021, + .00310, .02551, .05076, + .51831, .21385, .41007, .03271, .01034, + .00376, .02455, .04802 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + .50346, .20538, .37703, .03123, .01037, + .00422, .02363, .04558, + .48978, .19767, .34840, .02988, .01032, + .00456, .02277, .04341, + .47711, .19066, .32346, .02863, .01023, + .00479, .02197, .04145, + .46530, .18425, .30164, .02751, .01013, + .00499, .02122, .03963, + .45424, .17836, .28232, .02646, .00999, + .00512, .02051, .03800, + .44382, .17291, .26518, .02550, .00984, + .00520, .01986, .03649, + .43406, .16785, .24992, .02460, .00968, + .00525, .01924, .03513 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + .42489, .16316, .23624, .02376, .00953, + .00528, .01865, .03387, + .41617, .15879, .22388, .02299, .00936, + .00531, .01810, .03268, + .40793, .15466, .21268, .02227, .00920, + .00531, .01759, .03158, + .40016, .15080, .20252, .02158, .00904, + .00530, .01711, .03057, + .39266, .14716, .19326, .02096, .00887, + .00528, .01665, .02960 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + .64496, .28436, .67635, .03567, .00344, + -.00002, .02392, .05780, + .61133, .26181, .58367, .03314, .00548, + -.00001, .02313, .05239, + .58276, .24379, .50885, .03090, .00659, + -.00002, .02215, .04803, + .55790, .22885, .44847, .02894, .00719, + .00073, .02116, .04441, + .53585, .21612, .39921, .02722, .00752, + .00169, .02019, .04133, + .51603, .20501, .35834, .02567, .00767, + .00233, .01928, .03867, + .49812, .19529, .32430, .02430, .00772, + .00278, .01844, .03633 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + .48183, .18653, .29548, .02306, .00767, + .00310, .01764, .03431, + .46680, .17875, .27090, .02195, .00761, + .00333, .01691, .03247, + .45302, .17173, .24978, .02094, .00750, + .00350, .01623, .03082, + .44022, .16533, .23147, .02002, .00738, + .00362, .01560, .02936, + .42834, .15945, .21548, .01919, .00726, + .00369, .01502, .02801, + .41723, .15406, .20137, .01842, .00712, + .00374, .01447, .02681, + .40688, .14907, .18889, .01771, .00698, + .00377, .01396, .02570 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + .39720, .14445, .17779, .01704, .00684, + .00378, .01350, .02469, + .38802, .14016, .16785, .01644, .00671, + .00378, .01305, .02375, + .37938, .13616, .15889, .01587, .00658, + .00378, .01264, .02287, + .37126, .13242, .15079, .01535, .00645, + .00377, .01226, .02206, + .36346, .12890, .14346, .01486, .00631, + .00374, .01190, .02130 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + .63875, .26823, .59057, .02754, .00271, + .00003, .01874, .04554, + .59976, .24443, .49587, .02530, .00423, + .00003, .01787, .04078, + .56729, .22570, .42353, .02341, .00502, + .00003, .01694, .03697, + .53954, .21035, .36732, .02176, .00542, + .00059, .01602, .03390, + .51524, .19740, .32261, .02033, .00561, + .00128, .01518, .03130, + .49368, .18618, .28641, .01904, .00569, + .00170, .01439, .02910, + .47436, .17641, .25669, .01792, .00569, + .00204, .01368, .02717 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + .45680, .16778, .23201, .01694, .00566, + .00224, .01301, .02548, + .44087, .16009, .21115, .01605, .00557, + .00242, .01241, .02399, + .42630, .15314, .19347, .01523, .00547, + .00251, .01185, .02270, + .41293, .14686, .17828, .01449, .00536, + .00259, .01136, .02152, + .40048, .14118, .16508, .01385, .00525, + .00263, .01088, .02044, + .38895, .13596, .15356, .01325, .00513, + .00266, .01045, .01948, + .37823, .13117, .14346, .01269, .00501, + .00268, .01006, .01860 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + .36823, .12674, .13453, .01217, .00490, + .00268, .00969, .01781, + .35883, .12263, .12656, .01170, .00479, + .00268, .00934, .01709, + .35001, .11881, .11943, .01126, .00468, + .00266, .00902, .01642, + .34175, .11525, .11302, .01085, .00456, + .00263, .00871, .01581, + .33389, .11191, .10723, .01047, .00447, + .00261, .00844, .01521 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + .62640, .25042, .51214, .02119, .00197, + -.00016, .01431, .03526, + .58288, .22591, .41908, .01926, .00314, + -.00013, .01353, .03119, + .54732, .20682, .35111, .01763, .00373, + -.00012, .01270, .02804, + .51728, .19140, .29990, .01624, .00402, + .00031, .01195, .02548, + .49129, .17848, .26016, .01505, .00414, + .00083, .01123, .02340, + .46836, .16744, .22856, .01402, .00418, + .00118, .01061, .02156, + .44799, .15787, .20305, .01314, .00417, + .00142, .01001, .02004 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + .42969, .14946, .18212, .01233, .00409, + .00160, .00948, .01872, + .41311, .14200, .16466, .01165, .00402, + .00171, .00901, .01753, + .39807, .13534, .14995, .01102, .00394, + .00179, .00857, .01649, + .38430, .12932, .13747, .01044, .00386, + .00183, .00817, .01557, + .37162, .12390, .12672, .00992, .00377, + .00185, .00780, .01474, + .35989, .11893, .11740, .00944, .00367, + .00188, .00747, .01401, + .34902, .11439, .10926, .00903, .00358, + .00188, .00716, .01333 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + .33891, .11023, .10210, .00866, .00348, + .00188, .00688, .01270, + .32944, .10638, .09575, .00830, .00339, + .00188, .00661, .01216, + .32059, .10280, .09010, .00797, .00331, + .00186, .00637, .01165, + .31231, .09948, .08504, .00766, .00322, + .00185, .00616, .01117, + .30445, .09638, .08048, .00739, .00314, + .00184, .00594, .01074 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + .60932, .23092, .44037, .01580, .00157, + -.00006, .01088, .02687, + .56198, .20631, .35179, .01425, .00241, + -.00002, .01017, .02352, + .52382, .18742, .28943, .01295, .00282, + -.00002, .00948, .02094, + .49200, .17226, .24373, .01187, .00301, + .00028, .00884, .01888, + .46468, .15970, .20899, .01096, .00308, + .00067, .00827, .01720, + .44084, .14903, .18183, .01014, .00308, + .00091, .00775, .01578, + .41983, .13983, .16015, .00945, .00305, + .00107, .00729, .01458 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + .40107, .13179, .14261, .00883, .00300, + .00117, .00686, .01353, + .38414, .12471, .12817, .00832, .00293, + .00125, .00648, .01264, + .36887, .11841, .11609, .00783, .00285, + .00130, .00615, .01183, + .35498, .11275, .10590, .00739, .00278, + .00133, .00584, .01114, + .34225, .10765, .09721, .00697, .00271, + .00134, .00555, .01052, + .33049, .10304, .08972, .00664, .00262, + .00135, .00530, .00995, + .31964, .09883, .08320, .00634, .00255, + .00136, .00507, .00943 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + .30960, .09497, .07750, .00607, .00248, + .00136, .00486, .00896, + .30024, .09140, .07248, .00580, .00241, + .00133, .00465, .00855, + .29149, .08812, .06803, .00556, .00235, + .00132, .00447, .00816, + .28335, .08508, .06405, .00534, .00229, + .00132, .00431, .00780, + .27566, .08224, .06048, .00512, .00222, + .00130, .00415, .00750 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + .58796, .21096, .37575, .01170, .00115, + -.00005, .00810, .02014, + .53760, .18669, .29335, .01046, .00179, + -.00003, .00752, .01741, + .49752, .16826, .23723, .00942, .00208, + -.00004, .00695, .01540, + .46443, .15365, .19708, .00859, .00222, + .00021, .00645, .01377, + .43634, .14161, .16714, .00788, .00226, + .00048, .00599, .01245, + .41198, .13144, .14407, .00726, .00224, + .00065, .00559, .01137, + .39062, .12274, .12596, .00675, .00223, + .00078, .00522, .01043 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + .37165, .11520, .11138, .00627, .00217, + .00085, .00490, .00968, + .35471, .10858, .09954, .00586, .00210, + .00091, .00461, .00901, + .33944, .10272, .08970, .00551, .00206, + .00093, .00435, .00840, + .32561, .09749, .08148, .00519, .00199, + .00095, .00411, .00787, + .31302, .09278, .07447, .00490, .00192, + .00097, .00391, .00739, + .30143, .08852, .06850, .00465, .00187, + .00096, .00372, .00696, + .29079, .08466, .06334, .00441, .00181, + .00096, .00354, .00658 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + .28097, .08113, .05883, .00420, .00175, + .00095, .00338, .00624, + .27180, .07790, .05487, .00402, .00170, + .00094, .00324, .00593, + .26328, .07491, .05138, .00385, .00165, + .00093, .00310, .00566, + .25538, .07216, .04827, .00368, .00159, + .00091, .00297, .00540, + .24792, .06960, .04549, .00353, .00155, + .00091, .00286, .00517 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + .56318, .19080, .31781, .00847, .00088, + -.00001, .00596, .01481, + .51055, .16727, .24276, .00749, .00134, + .00000, .00548, .01272, + .46914, .14961, .19310, .00672, .00155, + .00000, .00504, .01112, + .43532, .13574, .15838, .00610, .00162, + .00017, .00464, .00989, + .40681, .12439, .13294, .00556, .00165, + .00037, .00429, .00889, + .38226, .11485, .11361, .00511, .00164, + .00050, .00398, .00807, + .36088, .10678, .09859, .00471, .00159, + .00057, .00371, .00738 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + .34204, .09978, .08666, .00439, .00157, + .00063, .00347, .00679, + .32526, .09369, .07700, .00409, .00152, + .00067, .00325, .00628, + .31025, .08829, .06908, .00380, .00147, + .00068, .00306, .00585, + .29667, .08351, .06250, .00357, .00141, + .00069, .00288, .00548, + .28431, .07924, .05695, .00337, .00136, + .00069, .00272, .00513, + .27303, .07537, .05220, .00319, .00131, + .00068, .00258, .00483, + .26270, .07188, .04811, .00302, .00127, + .00068, .00245, .00456 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + .25319, .06871, .04457, .00288, .00123, + .00068, .00233, .00431, + .24438, .06580, .04147, .00275, .00119, + .00068, .00223, .00408, + .23620, .06313, .03874, .00262, .00115, + .00067, .00213, .00388, + .22861, .06069, .03632, .00251, .00111, + .00065, .00205, .00370, + .22149, .05840, .03417, .00241, .00108, + .00063, .00196, .00351 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + .53559, .17087, .26629, .00595, .00066, + .00007, .00435, .01070, + .48141, .14845, .19919, .00526, .00101, + .00006, .00397, .00909, + .43925, .13179, .15599, .00471, .00116, + .00006, .00361, .00788, + .40517, .11877, .12641, .00422, .00120, + .00016, .00330, .00697, + .37662, .10824, .10504, .00383, .00120, + .00030, .00304, .00624, + .35224, .09944, .08905, .00351, .00119, + .00038, .00281, .00563, + .33113, .09201, .07673, .00323, .00115, + .00043, .00260, .00512 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + .31257, .08562, .06707, .00301, .00112, + .00047, .00243, .00470, + .29616, .08007, .05932, .00278, .00108, + .00049, .00227, .00434, + .28153, .07521, .05298, .00260, .00105, + .00051, .00213, .00402, + .26835, .07091, .04774, .00245, .00100, + .00050, .00200, .00373, + .25645, .06706, .04333, .00229, .00096, + .00050, .00188, .00349, + .24559, .06360, .03962, .00216, .00093, + .00050, .00178, .00329, + .23568, .06048, .03643, .00204, .00090, + .00050, .00169, .00310 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + .22660, .05766, .03367, .00193, .00087, + .00050, .00161, .00292, + .21821, .05507, .03127, .00184, .00084, + .00049, .00153, .00276, + .21042, .05271, .02916, .00176, .00081, + .00047, .00146, .00261, + .20322, .05055, .02728, .00168, .00078, + .00046, .00140, .00249, + .19650, .04855, .02562, .00160, .00076, + .00045, .00134, .00236 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + .50571, .15175, .22109, .00423, .00048, + .00002, .00305, .00757, + .45077, .13062, .16210, .00368, .00071, + .00001, .00277, .00639, + .40840, .11509, .12506, .00330, .00082, + .00000, .00251, .00548, + .37447, .10306, .10017, .00293, .00083, + .00010, .00229, .00485, + .34630, .09336, .08246, .00263, .00085, + .00021, .00210, .00432, + .32236, .08534, .06938, .00240, .00083, + .00026, .00194, .00387, + .30172, .07861, .05942, .00223, .00080, + .00030, .00178, .00350 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + .28373, .07285, .05166, .00204, .00078, + .00032, .00166, .00320, + .26789, .06786, .04547, .00189, .00075, + .00034, .00153, .00295, + .25376, .06353, .04047, .00177, .00072, + .00035, .00144, .00272, + .24118, .05969, .03634, .00164, .00069, + .00035, .00135, .00251, + .22980, .05627, .03290, .00154, .00067, + .00035, .00128, .00236, + .21943, .05322, .02998, .00146, .00064, + .00034, .00120, .00221, + .21004, .05047, .02750, .00138, .00061, + .00034, .00113, .00206 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + .20147, .04800, .02536, .00130, .00059, + .00033, .00108, .00193, + .19353, .04573, .02351, .00126, .00057, + .00034, .00103, .00182, + .18623, .04367, .02189, .00119, .00055, + .00033, .00098, .00173, + .17951, .04178, .02045, .00111, .00053, + .00032, .00093, .00165, + .17322, .04003, .01917, .00106, .00051, + .00031, .00089, .00157 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + .47421, .13340, .18164, .00289, .00036, + .00004, .00212, .00526, + .41911, .11381, .13071, .00253, .00051, + .00003, .00191, .00439, + .37711, .09955, .09942, .00225, .00056, + .00004, .00171, .00377, + .34370, .08860, .07876, .00203, .00058, + .00008, .00155, .00328, + .31614, .07981, .06429, .00183, .00056, + .00015, .00140, .00293, + .29289, .07260, .05371, .00166, .00057, + .00017, .00129, .00261, + .27302, .06656, .04573, .00153, .00054, + .00021, .00119, .00236 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + .25573, .06143, .03957, .00142, .00053, + .00021, .00110, .00213, + .24059, .05701, .03469, .00130, .00050, + .00022, .00102, .00195, + .22714, .05319, .03076, .00122, .00048, + .00023, .00095, .00179, + .21520, .04979, .02753, .00113, .00046, + .00022, .00089, .00167, + .20441, .04681, .02486, .00108, .00045, + .00024, .00084, .00155, + .19470, .04414, .02261, .00101, .00043, + .00023, .00079, .00145, + .18588, .04175, .02070, .00095, .00041, + .00022, .00074, .00136 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + .17784, .03960, .01905, .00091, .00040, + .00022, .00070, .00128, + .17045, .03763, .01762, .00085, .00037, + .00022, .00066, .00121, + .16365, .03585, .01638, .00082, .00036, + .00021, .00063, .00114, + .15739, .03423, .01528, .00080, .00035, + .00021, .00060, .00107, + .15156, .03272, .01430, .00075, .00033, + .00020, .00057, .00102 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + .44146, .11606, .14756, .00191, .00027, + .00004, .00147, .00357, + .38687, .09810, .10416, .00165, .00037, + .00003, .00131, .00297, + .34562, .08514, .07812, .00147, .00041, + .00004, .00118, .00253, + .31312, .07527, .06125, .00130, .00042, + .00008, .00106, .00221, + .28652, .06743, .04958, .00117, .00042, + .00013, .00097, .00194, + .26416, .06102, .04114, .00106, .00041, + .00015, .00088, .00173, + .24516, .05569, .03483, .00097, .00039, + .00015, .00081, .00155 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + .22874, .05118, .03000, .00088, .00037, + .00017, .00074, .00140, + .21437, .04732, .02620, .00081, .00035, + .00017, .00068, .00129, + .20173, .04396, .02315, .00074, .00034, + .00017, .00064, .00119, + .19047, .04105, .02067, .00072, .00032, + .00017, .00060, .00109, + .18042, .03845, .01861, .00067, .00031, + .00018, .00057, .00101, + .17137, .03615, .01689, .00063, .00030, + .00017, .00053, .00095, + .16316, .03409, .01543, .00060, .00028, + .00017, .00050, .00089 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + .15570, .03224, .01418, .00057, .00027, + .00016, .00047, .00082, + .14887, .03057, .01309, .00054, .00027, + .00016, .00045, .00077, + .14261, .02904, .01215, .00051, .00026, + .00015, .00042, .00073, + .13687, .02766, .01131, .00047, .00024, + .00015, .00040, .00070, + .13151, .02639, .01058, .00045, .00023, + .00015, .00039, .00067 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + .40805, .09996, .11838, .00125, .00019, + .00004, .00099, .00237, + .35448, .08370, .08205, .00105, .00027, + .00003, .00088, .00195, + .31446, .07207, .06072, .00090, .00030, + .00003, .00079, .00166, + .28308, .06329, .04713, .00083, .00031, + .00005, .00072, .00142, + .25758, .05637, .03784, .00075, .00032, + .00009, .00066, .00122, + .23633, .05074, .03121, .00066, .00030, + .00012, .00060, .00111, + .21836, .04610, .02630, .00059, .00029, + .00013, .00056, .00099 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + .20290, .04217, .02255, .00054, .00028, + .00013, .00051, .00089, + .18946, .03882, .01962, .00049, .00026, + .00013, .00047, .00080, + .17767, .03594, .01729, .00046, .00026, + .00015, .00044, .00075, + .16726, .03342, .01539, .00042, .00025, + .00013, .00041, .00068, + .15795, .03122, .01383, .00039, .00023, + .00013, .00038, .00063, + .14959, .02926, .01252, .00036, .00021, + .00013, .00036, .00058, + .14204, .02752, .01142, .00034, .00021, + .00013, .00034, .00055 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + .13520, .02596, .01048, .00033, .00020, + .00013, .00032, .00051, + .12895, .02454, .00966, .00031, .00019, + .00012, .00030, .00048, + .12324, .02326, .00895, .00030, .00018, + .00012, .00029, .00045, + .11801, .02210, .00833, .00028, .00018, + .00011, .00028, .00043, + .11316, .02104, .00778, .00026, .00017, + .00012, .00026, .00041 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + .37440, .08535, .09398, .00088, .00008, + -.00002, .00061, .00155, + .32246, .07078, .06405, .00074, .00014, + -.00002, .00053, .00128, + .28401, .06051, .04686, .00065, .00016, + -.00001, .00048, .00107, + .25415, .05280, .03603, .00058, .00017, + .00002, .00043, .00091, + .23001, .04677, .02875, .00052, .00017, + .00003, .00040, .00079, + .21002, .04190, .02358, .00047, .00016, + .00005, .00036, .00071, + .19325, .03787, .01978, .00042, .00016, + .00005, .00032, .00064 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + .17884, .03451, .01691, .00038, .00015, + .00006, .00029, .00059, + .16638, .03165, .01467, .00035, .00014, + .00006, .00028, .00051, + .15548, .02921, .01290, .00034, .00014, + .00006, .00025, .00047, + .14590, .02708, .01146, .00032, .00013, + .00007, .00024, .00042, + .13735, .02521, .01028, .00030, .00012, + .00007, .00022, .00040, + .12970, .02356, .00930, .00029, .00012, + .00007, .00020, .00038, + .12285, .02209, .00847, .00026, .00012, + .00007, .00019, .00036 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + .11667, .02078, .00775, .00024, .00011, + .00006, .00018, .00034, + .11100, .01960, .00714, .00023, .00010, + .00006, .00017, .00031, + .10584, .01854, .00661, .00022, .00010, + .00006, .00016, .00029, + .10114, .01758, .00614, .00021, .00010, + .00006, .00015, .00027, + .09678, .01670, .00573, .00020, .00009, + .00005, .00014, .00026 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + .34063, .07174, .07332, .00046, .00009, + .00004, .00042, .00098, + .29073, .05898, .04917, .00041, .00012, + .00004, .00037, .00080, + .25417, .05002, .03554, .00036, .00013, + .00003, .00032, .00067, + .22597, .04337, .02712, .00035, .00013, + .00004, .00029, .00055, + .20341, .03818, .02149, .00029, .00013, + .00004, .00026, .00049, + .18479, .03402, .01755, .00029, .00012, + .00006, .00023, .00043, + .16927, .03061, .01465, .00024, .00011, + .00006, .00021, .00039 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + .15597, .02779, .01248, .00023, .00011, + .00006, .00020, .00036, + .14455, .02538, .01080, .00021, .00010, + .00006, .00018, .00032, + .13460, .02333, .00948, .00020, .00010, + .00005, .00016, .00028, + .12590, .02156, .00840, .00018, .00009, + .00005, .00015, .00027, + .11816, .01999, .00753, .00017, .00009, + .00005, .00014, .00025, + .11128, .01863, .00679, .00015, .00008, + .00005, .00013, .00023, + .10509, .01742, .00618, .00014, .00008, + .00005, .00012, .00022 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + .09951, .01635, .00565, .00014, .00008, + .00004, .00012, .00020, + .09444, .01539, .00519, .00014, .00007, + .00005, .00011, .00019, + .08984, .01451, .00480, .00013, .00006, + .00004, .00010, .00018, + .08566, .01372, .00446, .00012, .00006, + .00004, .00010, .00018, + .08178, .01301, .00415, .00012, .00006, + .00004, .00009, .00016 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + .30727, .05962, .05637, .00025, .00008, + .00005, .00028, .00059, + .25985, .04854, .03719, .00023, .00010, + .00006, .00024, .00046, + .22545, .04084, .02659, .00020, .00011, + .00004, .00022, .00038, + .19917, .03516, .02012, .00018, .00009, + .00003, .00019, .00032, + .17827, .03076, .01585, .00015, .00009, + .00005, .00017, .00029, + .16111, .02726, .01287, .00014, .00009, + .00005, .00016, .00027, + .14682, .02442, .01072, .00015, .00008, + .00005, .00014, .00023 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + .13477, .02205, .00911, .00011, .00007, + .00005, .00012, .00022, + .12440, .02006, .00786, .00010, .00007, + .00005, .00012, .00019, + .11540, .01837, .00688, .00011, .00007, + .00004, .00010, .00017, + .10756, .01690, .00609, .00009, .00006, + .00004, .00010, .00016, + .10064, .01564, .00545, .00008, .00006, + .00004, .00010, .00015, + .09446, .01452, .00491, .00009, .00006, + .00004, .00009, .00014, + .08895, .01354, .00446, .00009, .00005, + .00004, .00008, .00013 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + .08401, .01266, .00407, .00008, .00005, + .00004, .00008, .00012, + .07955, .01189, .00374, .00007, .00005, + .00004, .00007, .00011, + .07548, .01119, .00345, .00007, .00005, + .00003, .00007, .00010, + .07179, .01056, .00320, .00007, .00005, + .00003, .00007, .00008, + .06838, .00998, .00298, .00007, .00005, + .00003, .00006, .00008 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + .27482, .04901, .04270, .00019, .00004, + .00001, .00015, .00034, + .23029, .03951, .02777, .00016, .00003, + .00001, .00013, .00029, + .19829, .03296, .01966, .00013, .00004, + .00000, .00012, .00024, + .17401, .02819, .01477, .00013, .00004, + .00001, .00010, .00020, + .15481, .02452, .01158, .00011, .00004, + .00001, .00008, .00018, + .13921, .02162, .00938, .00010, .00004, + .00001, .00008, .00016, + .12628, .01926, .00778, .00009, .00004, + .00001, .00007, .00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + .11537, .01732, .00660, .00011, .00004, + .00002, .00007, .00012, + .10607, .01569, .00569, .00009, .00004, + .00002, .00006, .00010, + .09807, .01431, .00497, .00007, .00003, + .00002, .00005, .00010, + .09107, .01312, .00439, .00007, .00003, + .00002, .00005, .00010, + .08493, .01209, .00392, .00007, .00003, + .00002, .00005, .00009, + .07948, .01120, .00353, .00008, .00003, + .00002, .00004, .00007, + .07463, .01041, .00320, .00008, .00003, + .00002, .00004, .00007 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + .07029, .00971, .00292, .00007, .00003, + .00002, .00004, .00006, + .06639, .00909, .00268, .00006, .00002, + .00002, .00003, .00005, + .06284, .00853, .00247, .00006, .00002, + .00001, .00003, .00005, + .05962, .00803, .00229, .00006, .00002, + .00001, .00003, .00005, + .05668, .00757, .00213, .00005, .00002, + .00001, .00003, .00005 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + .24312, .03954, .03163, .00006, .00005, + .00005, .00011, .00019, + .20172, .03154, .02027, .00005, .00004, + .00004, .00010, .00016, + .17229, .02611, .01422, .00005, .00004, + .00003, .00009, .00012, + .15014, .02217, .01062, .00006, .00004, + .00003, .00007, .00011, + .13277, .01915, .00829, .00005, .00004, + .00003, .00006, .00009, + .11873, .01679, .00669, .00003, .00003, + .00003, .00005, .00009, + .10715, .01488, .00554, .00005, .00004, + .00002, .00005, .00007 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + .09746, .01331, .00468, .00005, .00003, + .00003, .00005, .00007, + .08923, .01201, .00403, .00003, .00003, + .00002, .00004, .00007, + .08216, .01091, .00352, .00003, .00003, + .00002, .00004, .00005, + .07603, .00996, .00310, .00003, .00003, + .00002, .00004, .00005, + .07065, .00915, .00277, .00002, .00003, + .00002, .00003, .00005, + .06590, .00845, .00249, .00004, .00002, + .00002, .00003, .00004, + .06170, .00783, .00225, .00003, .00002, + .00002, .00003, .00004 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + .05795, .00728, .00205, .00002, .00002, + .00002, .00003, .00004, + .05456, .00679, .00188, .00003, .00002, + .00002, .00003, .00004, + .05151, .00636, .00173, .00003, .00002, + .00002, .00003, .00004, + .04876, .00597, .00160, .00002, .00002, + .00001, .00003, .00003, + .04625, .00561, .00149, .00001, .00002, + .00001, .00002, .00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + .18417, .02457, .01633, .00002, .00000, + .00000, .00002, .00008, + .14970, .01918, .01021, .00001, .00001, + .00000, .00002, .00005, + .12567, .01559, .00706, .00001, .00001, + .00000, .00002, .00004, + .10792, .01303, .00523, .00002, .00001, + .00000, .00002, .00003, + .09421, .01111, .00405, .00001, .00001, + .00001, .00002, .00003, + .08327, .00962, .00326, .00001, .00001, + .00001, .00002, .00002, + .07437, .00843, .00269, .00001, .00001, + .00001, .00002, .00001 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + .06700, .00747, .00227, .00001, .00001, + .00001, .00002, .00001, + .06078, .00667, .00195, .00001, .00001, + .00001, .00001, .00002, + .05551, .00601, .00169, .00001, .00001, + .00001, .00001, .00002, + .05097, .00545, .00149, .00001, .00001, + .00001, .00001, .00002, + .04703, .00497, .00133, .00001, .00001, + .00001, .00001, .00001, + .04358, .00455, .00119, .00001, .00001, + .00001, .00001, .00001, + .04053, .00419, .00107, .00001, .00001, + .00001, .00001, .00001 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + .03783, .00387, .00098, .00001, .00001, + .00001, .00001, .00001, + .03541, .00359, .00089, .00001, .00001, + .00001, .00001, .00001, + .03325, .00334, .00082, .00001, .00001, + .00001, .00001, .00001, + .03131, .00312, .00076, .00001, .00001, + .00001, .00001, .00001, + .02955, .00292, .00070, .00000, .00001, + .00001, .00001, .00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ + .13190, .01400, .00755, .00002, -.00001, + -.00001, .00000, .00002, + .10480, .01068, .00465, .00001, .00000, + -.00001, .00000, .00001, + .08636, .00851, .00319, .00000, .00000, + .00000, .00001, .00001, + .07296, .00700, .00236, .00002, .00000, + .00000, .00000, .00000, + .06280, .00588, .00182, .00001, .00000, + .00000, .00000, .00000, + .05480, .00502, .00147, .00001, .00000, + .00000, .00000, .00001, + .04839, .00435, .00121, .00000, .00000, + .00000, .00000, .00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ + .04312, .00381, .00102, .00000, .00000, + .00000, .00000, .00000, + .03874, .00338, .00087, .00001, .00000, + .00000, .00000, .00000, + .03507, .00301, .00076, .00000, .00000, + .00000, .00000, .00001, + .03193, .00270, .00066, .00000, .00000, + .00000, .00000, .00001, + .02922, .00245, .00059, .00001, .00000, + .00000, .00000, .00000, + .02687, .00222, .00053, .00000, .00000, + .00000, .00000, .00000, + .02482, .00203, .00047, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/ + .02301, .00186, .00043, .00000, .00000, + .00000, .00000, .00000, + .02140, .00172, .00039, .00000, .00000, + .00000, .00000, .00000, + .01998, .00159, .00036, .00000, .00000, + .00000, .00000, .00000, + .01870, .00148, .00033, .00000, .00000, + .00000, .00000, .00000, + .01755, .00137, .00030, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/ + .08773, .00712, .00302, .00001, -.00001, + -.00001, -.00001, .00001, + .06793, .00529, .00186, .00001, .00000, + -.00001, .00000, .00001, + .05478, .00413, .00128, .00001, .00000, + -.00001, .00000, .00000, + .04545, .00333, .00095, .00001, -.00001, + -.00001, .00000, .00000, + .03849, .00275, .00074, .00001, .00000, + .00000, .00000, .00000, + .03311, .00232, .00059, .00000, .00000, + .00000, .00000, .00000, + .02884, .00198, .00049, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/ + .02541, .00171, .00041, .00000, .00000, + .00000, .00000, .00000, + .02258, .00150, .00035, .00000, .00000, + .00000, .00000, .00000, + .02022, .00132, .00030, .00000, .00000, + .00000, .00000, .00000, + .01823, .00118, .00027, .00000, .00000, + .00000, .00000, .00000, + .01654, .00105, .00023, .00000, .00000, + .00000, .00000, .00000, + .01508, .00095, .00021, .00000, .00000, + .00000, .00000, .00000, + .01382, .00086, .00019, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/ + .01271, .00078, .00017, .00000, .00000, + .00000, .00000, .00000, + .01174, .00072, .00015, .00000, .00000, + .00000, .00000, .00000, + .01088, .00066, .00014, .00000, .00000, + .00000, .00000, .00000, + .01012, .00061, .00013, .00000, .00000, + .00000, .00000, .00000, + .00944, .00056, .00012, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ + .05234, .00306, .00097, .00000, .00000, + .00001, .00000, -.00001, + .03933, .00220, .00062, .00000, .00000, + .00000, .00000, .00000, + .03093, .00167, .00043, .00000, .00000, + .00000, .00000, .00000, + .02512, .00132, .00033, .00000, .00000, + .00000, .00000, .00000, + .02087, .00107, .00025, .00000, .00000, + .00000, .00000, .00000, + .01765, .00089, .00020, .00000, .00000, + .00000, .00000, .00000, + .01514, .00075, .00017, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/ + .01314, .00064, .00014, .00000, .00000, + .00000, .00000, .00000, + .01153, .00055, .00012, .00000, .00000, + .00000, .00000, .00000, + .01020, .00048, .00010, .00000, .00000, + .00000, .00000, .00000, + .00909, .00042, .00009, .00000, .00000, + .00000, .00000, .00000, + .00816, .00037, .00008, .00000, .00000, + .00000, .00000, .00000, + .00737, .00033, .00007, .00000, .00000, + .00000, .00000, .00000, + .00668, .00030, .00006, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ + .00610, .00027, .00006, .00000, .00000, + .00000, .00000, .00000, + .00558, .00025, .00005, .00000, .00000, + .00000, .00000, .00000, + .00513, .00022, .00005, .00000, .00000, + .00000, .00000, .00000, + .00473, .00020, .00004, .00000, .00000, + .00000, .00000, .00000, + .00438, .00019, .00004, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/ + .00998, .00021, .00003, .00000, .00000, + .00000, .00000, .00000, + .00686, .00014, .00003, .00000, .00000, + .00000, .00000, .00000, + .00501, .00010, .00002, .00000, .00000, + .00000, .00000, .00000, + .00382, .00007, .00002, .00000, .00000, + .00000, .00000, .00000, + .00300, .00006, .00001, .00000, .00000, + .00000, .00000, .00000, + .00241, .00004, .00001, .00000, .00000, + .00000, .00000, .00000, + .00198, .00004, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/ + .00165, .00003, .00001, .00000, .00000, + .00000, .00000, .00000, + .00139, .00002, .00001, .00000, .00000, + .00000, .00000, .00000, + .00119, .00002, .00001, .00000, .00000, + .00000, .00000, .00000, + .00102, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00089, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00078, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00069, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ + .00061, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00055, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00049, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00044, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00040, .00001, .00000, .00000, .00000, + .00000, .00000, .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(38,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 x=xsave C RETURN END