#include "pdf/pilot.h" SUBROUTINE SFMS120(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C C THIS IS THE alphas=0.120 FIT -- May 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)/ + .00273, .00548, 13.49467, 1.08774, .16677, + .00000, .60749, 1.09192, + .00321, .00572, 25.89590, 1.49672, .58806, + .00000, 1.02362, 1.50160, + .00365, .00594, 41.09657, 1.98438, 1.08613, + .00000, 1.51736, 1.98989, + .00405, .00615, 58.73158, 2.54056, 1.65134, + .28907, 2.07884, 2.54662, + .00443, .00635, 78.44312, 3.15943, 2.27822, + .96054, 2.70243, 3.16599, + .00480, .00654, 100.03658, 3.83656, 2.96260, + 1.66242, 3.38385, 3.84360, + .00514, .00672, 123.04382, 4.56165, 3.69428, + 2.41066, 4.11284, 4.56913 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + .00547, .00690, 147.32309, 5.33045, 4.46915, + 3.20079, 4.88525, 5.33834, + .00579, .00707, 172.69366, 6.13834, 5.28265, + 4.02826, 5.69649, 6.14663, + .00610, .00723, 198.98749, 6.98102, 6.13055, + 4.88908, 6.54229, 6.98968, + .00639, .00739, 225.89227, 7.85099, 7.00539, + 5.77593, 7.41517, 7.86000, + .00668, .00754, 253.36957, 8.74664, 7.90563, + 6.68737, 8.31357, 8.75598, + .00696, .00769, 281.39920, 9.66700, 8.83030, + 7.62254, 9.23652, 9.67666, + .00723, .00784, 309.95297, 10.61105, 9.77843, + 8.58053, 10.18302, 10.62102 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + .00749, .00798, 338.58713, 11.56781, 10.73906, + 9.55048, 11.14211, 11.57807, + .00775, .00812, 367.49585, 12.54131, 11.71625, + 10.53649, 12.11783, 12.55186, + .00800, .00825, 396.82361, 13.53482, 12.71327, + 11.54186, 13.11345, 13.54565, + .00824, .00839, 425.82990, 14.52968, 13.71148, + 12.54803, 14.11033, 14.54076, + .00848, .00852, 455.29865, 15.54486, 14.72987, + 13.57400, 15.12744, 15.55620 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + .00440, .00701, 11.98568, .97989, .14426, + .00000, .54292, .98369, + .00507, .00735, 22.07285, 1.31803, .49385, + .00000, .88751, 1.32231, + .00568, .00767, 34.02595, 1.71097, .89646, + .00000, 1.28591, 1.71566, + .00624, .00797, 47.53143, 2.14986, 1.34373, + .22828, 1.72956, 2.15493, + .00677, .00825, 62.30047, 2.62970, 1.83102, + .75237, 2.21363, 2.63512, + .00727, .00851, 78.18016, 3.14679, 2.35482, + 1.29126, 2.73455, 3.15253, + .00775, .00877, 94.82214, 3.69309, 2.90724, + 1.85790, 3.28435, 3.69913 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + .00820, .00901, 112.12962, 4.26543, 3.48519, + 2.44895, 3.85990, 4.27174, + .00864, .00924, 129.97926, 4.86039, 4.08533, + 3.06108, 4.45783, 4.86696, + .00906, .00947, 148.25876, 5.47486, 4.70462, + 3.69146, 5.07507, 5.48168, + .00947, .00968, 166.75540, 6.10346, 5.33772, + 4.33485, 5.70625, 6.11051, + .00986, .00989, 185.45454, 6.74518, 5.98368, + 4.99041, 6.35041, 6.75246, + .01024, .01010, 204.35214, 7.39950, 6.64198, + 5.65770, 7.00702, 7.40699, + .01061, .01029, 223.43745, 8.06582, 7.31206, + 6.33623, 7.67551, 8.07352 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + .01097, .01049, 242.41223, 8.73641, 7.98621, + 7.01836, 8.34815, 8.74430, + .01132, .01067, 261.42172, 9.41435, 8.66754, + 7.70724, 9.02805, 9.42242, + .01166, .01085, 280.57239, 10.10213, 9.35855, + 8.40540, 9.71769, 10.11038, + .01199, .01103, 299.36771, 10.78663, 10.04614, + 9.09981, 10.40397, 10.79506, + .01231, .01121, 318.34900, 11.48151, 10.74398, + 9.80412, 11.10056, 11.49011 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + .00689, .00896, 10.64206, .88214, .12452, + .00000, .48503, .88572, + .00783, .00946, 18.80727, 1.16024, .41333, + .00000, .76901, 1.16415, + .00868, .00991, 28.16027, 1.47515, .73727, + .00000, 1.08888, 1.47934, + .00946, .01033, 38.45005, 1.81962, 1.08956, + .17948, 1.43766, 1.82405, + .01020, .01072, 49.45632, 2.18964, 1.46653, + .58676, 1.81151, 2.19430, + .01089, .01109, 61.06856, 2.58235, 1.86549, + .99869, 2.20767, 2.58722, + .01155, .01144, 73.03525, 2.99166, 2.28050, + 1.42589, 2.62013, 2.99673 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + .01218, .01177, 85.29709, 3.41534, 2.70940, + 1.86600, 3.04670, 3.42058, + .01279, .01209, 97.77499, 3.85099, 3.14988, + 2.31673, 3.48502, 3.85640, + .01337, .01240, 110.39864, 4.29647, 3.59984, + 2.77617, 3.93298, 4.30204, + .01392, .01270, 123.02710, 4.74800, 4.05555, + 3.24069, 4.38683, 4.75372, + .01446, .01298, 135.66132, 5.20505, 4.51654, + 3.70988, 4.84606, 5.21092, + .01498, .01326, 148.30818, 5.66743, 4.98261, + 4.18364, 5.31049, 5.67343, + .01549, .01353, 160.96828, 6.13486, 5.45353, + 4.66178, 5.77986, 6.14099 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + .01597, .01378, 173.44341, 6.60194, 5.92392, + 5.13898, 6.24877, 6.60820, + .01645, .01404, 185.84245, 7.07107, 6.39620, + 5.61770, 6.71965, 7.07745, + .01691, .01428, 198.24471, 7.54418, 6.87230, + 6.09991, 7.19442, 7.55068, + .01736, .01452, 210.31915, 8.01209, 7.34307, + 6.57649, 7.66392, 8.01869, + .01780, .01475, 222.43936, 8.48461, 7.81833, + 7.05728, 8.13797, 8.49133 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + .00887, .01036, 9.92440, .82913, .11412, + .00000, .45396, .83270, + .01001, .01097, 17.12054, 1.07647, .37178, + .00000, .70689, 1.08030, + .01105, .01152, 25.20106, 1.35231, .65633, + .00000, .98745, 1.35636, + .01200, .01203, 33.95230, 1.65038, .96193, + .15554, 1.28960, 1.65462, + .01290, .01250, 43.19118, 1.96726, 1.28550, + .50615, 1.61011, 1.97168, + .01374, .01295, 52.83006, 2.30056, 1.62482, + .85733, 1.94668, 2.30515, + .01454, .01337, 62.66437, 2.64520, 1.97494, + 1.21858, 2.29431, 2.64994 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + .01530, .01377, 72.65254, 2.99942, 2.33419, + 1.58804, 2.65126, 3.00430, + .01603, .01416, 82.73607, 3.36131, 2.70072, + 1.96393, 3.01568, 3.36632, + .01672, .01453, 92.86338, 3.72921, 3.07293, + 2.34477, 3.38592, 3.73434, + .01740, .01488, 102.92542, 4.10006, 3.44781, + 2.72767, 3.75896, 4.10531, + .01804, .01522, 112.92944, 4.47357, 3.82510, + 3.11243, 4.13453, 4.47894, + .01867, .01555, 122.88632, 4.84968, 4.20476, + 3.49910, 4.51258, 4.85515, + .01927, .01587, 132.80104, 5.22826, 4.58671, + 3.88761, 4.89299, 5.23384 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + .01985, .01618, 142.51822, 5.60497, 4.96659, + 4.27370, 5.27143, 5.61064, + .02042, .01648, 152.13029, 5.98186, 5.34651, + 4.65948, 5.64997, 5.98763, + .02097, .01677, 161.70389, 6.36061, 5.72814, + 5.04667, 6.03029, 6.36647, + .02151, .01705, 170.97856, 6.73379, 6.10407, + 5.42788, 6.40497, 6.73974, + .02203, .01732, 180.25485, 7.10949, 6.48240, + 5.81125, 6.78210, 7.11553 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + .01057, .01148, 9.44303, .79322, .10721, + .00000, .43306, .79684, + .01189, .01219, 16.01293, 1.02047, .34453, + .00000, .66572, 1.02432, + .01308, .01282, 23.28651, 1.27119, .60374, + .00000, .92100, 1.27523, + .01418, .01340, 31.07592, 1.53975, .87966, + .14035, 1.19352, 1.54396, + .01520, .01395, 39.22272, 1.82317, 1.16960, + .45521, 1.48045, 1.82753, + .01617, .01446, 47.65421, 2.11939, 1.47169, + .76842, 1.77982, 2.12389, + .01708, .01494, 56.19510, 2.42395, 1.78160, + 1.08874, 2.08726, 2.42858 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + .01795, .01540, 64.81468, 2.73539, 2.09794, + 1.41464, 2.40134, 2.74014, + .01878, .01584, 73.46676, 3.05212, 2.41920, + 1.74465, 2.72051, 3.05699, + .01958, .01626, 82.11100, 3.37276, 2.74404, + 2.07758, 3.04342, 3.37774, + .02035, .01666, 90.65715, 3.69472, 3.06993, + 2.41096, 3.36749, 3.69980, + .02108, .01705, 99.11568, 4.01782, 3.39672, + 2.74474, 3.69258, 4.02300, + .02179, .01742, 107.49963, 4.34209, 3.72445, + 3.07902, 4.01872, 4.34736, + .02248, .01778, 115.81633, 4.66749, 4.05312, + 3.41384, 4.34588, 4.67285 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + .02314, .01813, 123.93544, 4.99029, 4.37902, + 3.74553, 4.67034, 4.99573, + .02379, .01847, 131.93890, 5.31236, 4.70404, + 4.07604, 4.99401, 5.31788, + .02441, .01879, 139.88594, 5.63519, 5.02968, + 4.40687, 5.31835, 5.64079, + .02502, .01911, 147.55693, 5.95242, 5.34958, + 4.73172, 5.63702, 5.95809, + .02561, .01942, 155.20944, 6.27109, 5.67082, + 5.05765, 5.95707, 6.27684 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + .01208, .01244, 9.08447, .76627, .10210, + .00000, .41745, .76997, + .01356, .01323, 15.20084, .97887, .32459, + .00000, .63534, .98277, + .01489, .01394, 21.89812, 1.21145, .56551, + .00000, .87238, 1.21553, + .01611, .01458, 29.00785, 1.45891, .82019, + .12950, 1.12370, 1.46314, + .01725, .01519, 36.38956, 1.71857, 1.08625, + .41893, 1.38679, 1.72294, + .01833, .01575, 43.98135, 1.98860, 1.36205, + .70531, 1.65990, 1.99310, + .01934, .01629, 51.62846, 2.26502, 1.64372, + .99687, 1.93913, 2.26964 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + .02031, .01680, 59.30760, 2.54657, 1.93009, + 1.29231, 2.22326, 2.55131, + .02123, .01728, 66.98110, 2.83188, 2.21985, + 1.59038, 2.51095, 2.83672, + .02211, .01774, 74.61622, 3.11977, 2.51187, + 1.89007, 2.80105, 3.12471, + .02296, .01819, 82.13520, 3.40797, 2.80392, + 2.18923, 3.09131, 3.41300, + .02377, .01862, 89.55078, 3.69637, 3.09594, + 2.48789, 3.38165, 3.70150, + .02456, .01903, 96.87703, 3.98507, 3.38804, + 2.78620, 3.67217, 3.99028, + .02532, .01942, 104.12268, 4.27408, 3.68026, + 3.08425, 3.96289, 4.27936 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + .02605, .01981, 111.17424, 4.56008, 3.96932, + 3.37881, 4.25053, 4.56545, + .02676, .02018, 118.10646, 4.84483, 4.25696, + 3.67166, 4.53682, 4.85028, + .02745, .02054, 124.97301, 5.12970, 4.54458, + 3.96420, 4.82316, 5.13521, + .02812, .02088, 131.58211, 5.40901, 4.82652, + 4.25083, 5.10388, 5.41459, + .02877, .02122, 138.16185, 5.68912, 5.10914, + 4.53791, 5.38533, 5.69477 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + .01817, .01601, 8.04552, .68711, .08751, + .00000, .37210, .69132, + .02025, .01711, 12.91360, .85884, .26865, + .00000, .54882, .86324, + .02213, .01809, 18.06339, 1.04184, .45960, + .00000, .73603, 1.04640, + .02384, .01899, 23.38176, 1.23248, .65711, + .10034, .93031, 1.23718, + .02543, .01982, 28.77731, 1.42896, .85970, + .32204, 1.13002, 1.43380, + .02692, .02060, 34.21707, 1.63014, 1.06638, + .53774, 1.33412, 1.63510, + .02833, .02134, 39.59921, 1.83325, 1.27449, + .75425, 1.53987, 1.83832 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + .02966, .02203, 44.91873, 2.03758, 1.48342, + .97088, 1.74663, 2.04276, + .03092, .02269, 50.15850, 2.24233, 1.69241, + 1.18692, 1.95362, 2.24761, + .03213, .02332, 55.30388, 2.44682, 1.90083, + 1.40185, 2.16019, 2.45219, + .03329, .02392, 60.30795, 2.64956, 2.10724, + 1.61430, 2.36487, 2.65502, + .03440, .02450, 65.18708, 2.85065, 2.31179, + 1.82446, 2.56779, 2.85620, + .03547, .02505, 69.95734, 3.05030, 2.51469, + 2.03263, 2.76915, 3.05593, + .03650, .02558, 74.62974, 3.24865, 2.71610, + 2.23898, 2.96912, 3.25436 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + .03749, .02609, 79.13119, 3.44346, 2.91382, + 2.44135, 3.16546, 3.44924, + .03845, .02659, 83.51760, 3.63609, 3.10920, + 2.64114, 3.35955, 3.64194, + .03938, .02707, 87.82889, 3.82759, 3.30334, + 2.83944, 3.55244, 3.83351, + .04028, .02753, 91.93896, 4.01408, 3.49233, + 3.03241, 3.74025, 4.02007, + .04116, .02798, 96.00449, 4.20010, 3.68075, + 3.22459, 3.92754, 4.20615 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + .02705, .02074, 7.10270, .61377, .07461, + .00000, .33079, .61894, + .02999, .02227, 10.92993, .75075, .22067, + .00000, .47260, .75617, + .03262, .02364, 14.83882, .89289, .37047, + .00000, .61881, .89852, + .03501, .02488, 18.76272, 1.03782, .52204, + .07697, .76726, 1.04364, + .03722, .02602, 22.64921, 1.18450, .67461, + .24511, .91707, 1.19049, + .03928, .02708, 26.48713, 1.33233, .82776, + .40589, 1.06772, 1.33848, + .04122, .02808, 30.21359, 1.47947, .97974, + .56498, 1.21743, 1.48578 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + .04305, .02903, 33.83561, 1.62563, 1.13034, + .72209, 1.36594, 1.63208, + .04479, .02992, 37.34951, 1.77041, 1.27923, + .87692, 1.51290, 1.77699, + .04644, .03077, 40.75229, 1.91348, 1.42610, + 1.02928, 1.65798, 1.92018, + .04801, .03157, 44.01752, 2.05391, 1.57010, + 1.17837, 1.80030, 2.06073, + .04951, .03235, 47.16245, 2.19193, 1.71146, + 1.32447, 1.94009, 2.19886, + .05096, .03309, 50.20290, 2.32780, 1.85047, + 1.46792, 2.07763, 2.33484, + .05235, .03380, 53.15033, 2.46172, 1.98737, + 1.60897, 2.21312, 2.46886 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + .05368, .03448, 55.95864, 2.59221, 2.12067, + 1.74620, 2.34510, 2.59945, + .05497, .03514, 58.66910, 2.72031, 2.25145, + 1.88068, 2.47462, 2.72764, + .05622, .03577, 61.31099, 2.84685, 2.38054, + 2.01327, 2.60251, 2.85427, + .05742, .03639, 63.80264, 2.96917, 2.50530, + 2.14137, 2.72612, 2.97669, + .05859, .03698, 66.25052, 3.09052, 2.62897, + 2.26821, 2.84870, 3.09811 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + .03403, .02428, 6.58580, .57296, .06772, + .00000, .30811, .57893, + .03763, .02614, 9.88353, .69200, .19570, + .00000, .43193, .69828, + .04082, .02778, 13.18123, .81358, .32484, + .00000, .55755, .82013, + .04372, .02927, 16.43507, .93598, .45378, + .06549, .68345, .94277, + .04639, .03064, 19.61098, 1.05851, .58213, + .20759, .80909, 1.06552, + .04887, .03192, 22.70753, 1.18083, .70970, + .34207, .93422, 1.18805, + .05120, .03311, 25.67934, 1.30155, .83520, + .47399, 1.05749, 1.30895 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + .05339, .03423, 28.53801, 1.42054, .95858, + .60324, 1.17882, 1.42812, + .05547, .03529, 31.28523, 1.53759, 1.07968, + .72972, 1.29804, 1.54534, + .05744, .03630, 33.92243, 1.65251, 1.19837, + .85335, 1.41497, 1.66041, + .05931, .03726, 36.43164, 1.76463, 1.31401, + .97358, 1.52897, 1.77268, + .06110, .03817, 38.82973, 1.87420, 1.42688, + 1.09073, 1.64030, 1.88239, + .06281, .03904, 41.13178, 1.98151, 1.53730, + 1.20514, 1.74927, 1.98983, + .06446, .03988, 43.34883, 2.08676, 1.64550, + 1.31709, 1.85610, 2.09522 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + .06604, .04068, 45.44612, 2.18882, 1.75033, + 1.42546, 1.95964, 2.19740, + .06756, .04145, 47.45792, 2.28857, 1.85273, + 1.53119, 2.06080, 2.29726, + .06903, .04220, 49.40853, 2.38671, 1.95340, + 1.63502, 2.16029, 2.39552, + .07044, .04292, 51.23505, 2.48115, 2.05024, + 1.73487, 2.25601, 2.49007, + .07182, .04361, 53.02186, 2.57451, 2.14591, + 1.83339, 2.35061, 2.58354 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + .04003, .02727, 6.23047, .54469, .06308, + .00000, .29251, .55133, + .04416, .02939, 9.18263, .65192, .17918, + .00000, .40451, .65893, + .04782, .03127, 12.08966, .76020, .29496, + .00000, .51682, .76753, + .05113, .03296, 14.92202, .86820, .40946, + .05818, .62832, .87581, + .05417, .03452, 17.65683, .97547, .52251, + .18379, .73870, .98334, + .05700, .03597, 20.29831, 1.08182, .63407, + .30178, .84786, 1.08993, + .05965, .03732, 22.81145, 1.18612, .74312, + .41679, .95471, 1.19445 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + .06213, .03858, 25.21024, 1.28835, .84971, + .52883, 1.05928, 1.29689, + .06448, .03978, 27.49922, 1.38840, .95379, + .63789, 1.16150, 1.39713, + .06670, .04091, 29.68213, 1.48616, 1.05529, + .74399, 1.26127, 1.49508, + .06881, .04199, 31.74580, 1.58111, 1.15374, + .84669, 1.35810, 1.59020, + .07083, .04301, 33.70652, 1.67351, 1.24943, + .94635, 1.45227, 1.68277, + .07275, .04399, 35.57861, 1.76366, 1.34267, + 1.04329, 1.54409, 1.77308, + .07460, .04493, 37.37265, 1.85178, 1.43371, + 1.13781, 1.63378, 1.86135 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + .07637, .04582, 39.06033, 1.93690, 1.52160, + 1.22897, 1.72038, 1.94661, + .07808, .04669, 40.67165, 2.01982, 1.60715, + 1.31762, 1.80472, 2.02967, + .07972, .04752, 42.22771, 2.10117, 1.69102, + 1.40440, 1.88743, 2.11115, + .08130, .04832, 43.67652, 2.17918, 1.77142, + 1.48759, 1.96672, 2.18929, + .08284, .04909, 45.08930, 2.25611, 1.85065, + 1.56946, 2.04489, 2.26634 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + .04544, .03004, 5.95335, .52274, .05953, + .00000, .28032, .52982, + .05002, .03240, 8.64695, .62116, .16675, + .00000, .38347, .62863, + .05408, .03448, 11.26632, .71963, .27267, + .00000, .48595, .72745, + .05773, .03636, 13.79224, .81712, .37662, + .05284, .58691, .82525, + .06108, .03808, 16.20955, .91333, .47857, + .16648, .68621, .92174, + .06420, .03967, 18.52642, 1.00818, .57860, + .27257, .78385, 1.01685, + .06710, .04115, 20.71494, 1.10072, .67586, + .37545, .87893, 1.10963 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + .06982, .04254, 22.79035, 1.19101, .77048, + .47520, .97155, 1.20015, + .07239, .04385, 24.75902, 1.27900, .86247, + .57189, 1.06170, 1.28835, + .07482, .04509, 26.62630, 1.36464, .95183, + .66558, 1.14934, 1.37419, + .07712, .04626, 28.38204, 1.44753, 1.03818, + .75594, 1.23409, 1.45726, + .07932, .04738, 30.04197, 1.52791, 1.12182, + .84331, 1.31622, 1.53781, + .08142, .04844, 31.61963, 1.60607, 1.20306, + .92803, 1.39604, 1.61615, + .08343, .04946, 33.12521, 1.68225, 1.28214, + 1.01039, 1.47379, 1.69249 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + .08535, .05043, 34.53512, 1.75562, 1.35826, + 1.08958, 1.54863, 1.76601, + .08720, .05137, 35.87559, 1.82690, 1.43216, + 1.16639, 1.62132, 1.83744, + .08898, .05227, 37.16557, 1.89667, 1.50441, + 1.24139, 1.69243, 1.90735, + .09069, .05313, 38.36072, 1.96336, 1.57348, + 1.31308, 1.76040, 1.97417, + .09235, .05397, 39.52301, 2.02900, 1.64140, + 1.38348, 1.82727, 2.03995 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + .06721, .04110, 5.12829, .45635, .04930, + .00000, .24404, .46542, + .07349, .04435, 7.11413, .53020, .13185, + .00000, .32261, .53981, + .07898, .04719, 8.96827, .60199, .21099, + .00000, .39840, .61208, + .08390, .04972, 10.69674, .67139, .28676, + .03862, .47126, .68189, + .08837, .05203, 12.30293, .73847, .35951, + .12062, .54143, .74936, + .09250, .05415, 13.80304, .80341, .42956, + .19570, .60915, .81464, + .09632, .05611, 15.18602, .86571, .49652, + .26730, .67398, .87727 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + .09989, .05793, 16.46906, .92559, .56067, + .33568, .73618, .93745, + .10324, .05964, 17.66173, .98314, .62217, + .40104, .79588, .99527, + .10639, .06124, 18.77179, 1.03844, .68113, + .46356, .85318, 1.05083, + .10936, .06275, 19.79592, 1.09130, .73742, + .52314, .90790, 1.10394, + .11218, .06418, 20.74743, 1.14198, .79131, + .58010, .96032, 1.15484, + .11486, .06554, 21.63743, 1.19075, .84310, + .63475, 1.01073, 1.20383, + .11742, .06683, 22.47427, 1.23782, .89303, + .68736, 1.05936, 1.25111 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + .11986, .06806, 23.24443, 1.28268, .94059, + .73745, 1.10569, 1.29616, + .12220, .06923, 23.96606, 1.32587, .98635, + .78559, 1.15027, 1.33954, + .12444, .07036, 24.65218, 1.36780, 1.03074, + .83223, 1.19354, 1.38166, + .12659, .07144, 25.27589, 1.40748, 1.07275, + .87638, 1.23449, 1.42150, + .12866, .07247, 25.87682, 1.44628, 1.11379, + .91945, 1.27451, 1.46047 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + .09909, .05780, 4.33282, .39130, .04002, + .00000, .20899, .40306, + .10746, .06217, 5.73457, .44433, .10165, + .00000, .26675, .45683, + .11470, .06593, 6.98514, .49434, .15891, + .00000, .32073, .50747, + .12111, .06925, 8.10695, .54145, .21231, + .02735, .37129, .55512, + .12689, .07223, 9.11460, .58596, .26240, + .08463, .41887, .60013, + .13218, .07494, 10.02737, .62818, .30965, + .13597, .46385, .64280, + .13704, .07742, 10.84441, .66794, .35398, + .18407, .50611, .68296 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + .14154, .07971, 11.58248, .70550, .39573, + .22924, .54597, .72090, + .14573, .08183, 12.25159, .74103, .43513, + .27176, .58362, .75677, + .14966, .08381, 12.85958, .77467, .47236, + .31187, .61924, .79073, + .15333, .08566, 13.40678, .80635, .50740, + .34956, .65275, .82271, + .15680, .08740, 13.90352, .83633, .54052, + .38515, .68445, .85296, + .16007, .08903, 14.35841, .86482, .57196, + .41890, .71456, .88172, + .16319, .09058, 14.77777, .89200, .60194, + .45103, .74328, .90915 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + .16613, .09204, 15.15399, .91758, .63016, + .48128, .77030, .93495, + .16893, .09343, 15.49949, .94193, .65702, + .51005, .79602, .95953, + .17162, .09476, 15.82271, .96535, .68283, + .53767, .82076, .98317, + .17417, .09601, 16.10752, .98723, .70698, + .56354, .84388, 1.00524, + .17663, .09721, 16.37858, 1.00846, .73040, + .58858, .86631, 1.02667 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + .12409, .07128, 3.88127, .35374, .03503, + -.00001, .18912, .36769, + .13384, .07638, 4.99641, .39629, .08610, + .00000, .23638, .41111, + .14220, .08071, 5.96207, .43564, .13263, + -.00001, .27971, .45119, + .14955, .08449, 6.80636, .47211, .17532, + .02195, .31961, .48830, + .15613, .08786, 7.54701, .50607, .21478, + .06755, .35661, .52281, + .16212, .09090, 8.20410, .53785, .25153, + .10788, .39113, .55510, + .16759, .09366, 8.77975, .56740, .28559, + .14524, .42317, .58511 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + .17262, .09619, 9.28985, .59499, .31731, + .17996, .45304, .61312, + .17728, .09852, 9.74368, .62081, .34695, + .21232, .48096, .63932, + .18163, .10067, 10.14860, .64502, .37469, + .24257, .50712, .66388, + .18568, .10268, 10.50592, .66759, .40056, + .27075, .53150, .68677, + .18947, .10454, 10.82430, .68873, .42478, + .29713, .55434, .70821, + .19305, .10629, 11.11089, .70866, .44761, + .32196, .57586, .72842, + .19643, .10794, 11.37084, .72752, .46922, + .34545, .59623, .74754 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + .19961, .10949, 11.59875, .74509, .48938, + .36737, .61523, .76536, + .20264, .11095, 11.80427, .76169, .50844, + .38809, .63318, .78219, + .20553, .11234, 11.99380, .77756, .52664, + .40787, .65033, .79828, + .20825, .11364, 12.15566, .79222, .54354, + .42625, .66621, .81315, + .21087, .11490, 12.30808, .80638, .55983, + .44396, .68155, .82750 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + .14542, .08305, 3.56639, .32729, .03168, + -.00001, .17529, .34316, + .15617, .08864, 4.50139, .36312, .07596, + .00000, .21581, .37995, + .16533, .09335, 5.29231, .39579, .11572, + -.00001, .25241, .41341, + .17333, .09742, 5.96980, .42568, .15175, + .01860, .28571, .44399, + .18046, .10102, 6.55292, .45318, .18470, + .05699, .31623, .47210, + .18690, .10425, 7.06131, .47866, .21508, + .09063, .34443, .49812, + .19276, .10716, 7.49874, .50211, .24298, + .12151, .37034, .52205 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + .19812, .10981, 7.87987, .52381, .26875, + .14998, .39429, .54418, + .20307, .11224, 8.21345, .54393, .29263, + .17632, .41649, .56470, + .20766, .11447, 8.50625, .56264, .31482, + .20077, .43712, .58378, + .21192, .11654, 8.75991, .57994, .33536, + .22340, .45621, .60141, + .21590, .11845, 8.98196, .59602, .35447, + .24445, .47395, .61779, + .21963, .12023, 9.17851, .61105, .37236, + .26415, .49056, .63311, + .22315, .12190, 9.35395, .62519, .38920, + .28267, .50618, .64751 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + .22645, .12346, 9.50412, .63826, .40480, + .29986, .52064, .66082, + .22957, .12493, 9.63692, .65051, .41947, + .31602, .53423, .67331, + .23255, .12632, 9.75753, .66216, .43342, + .33138, .54714, .68518, + .23534, .12762, 9.85679, .67283, .44626, + .34557, .55900, .69604, + .23802, .12886, 9.94918, .68308, .45861, + .35918, .57040, .70649 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + .16434, .09364, 3.32621, .30693, .02921, + .00000, .16476, .32457, + .17586, .09957, 4.13446, .33796, .06860, + .00000, .20046, .35662, + .18562, .10453, 4.80458, .36591, .10358, + .00000, .23232, .38542, + .19409, .10879, 5.36862, .39121, .13496, + .01626, .26101, .41145, + .20160, .11252, 5.84606, .41427, .16340, + .04965, .28706, .43513, + .20837, .11585, 6.25585, .43544, .18942, + .07866, .31092, .45686, + .21447, .11884, 6.60268, .45475, .21312, + .10511, .33266, .47667 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + .22005, .12153, 6.90016, .47247, .23486, + .12933, .35261, .49483, + .22517, .12399, 7.15641, .48879, .25488, + .15162, .37097, .51154, + .22990, .12624, 7.37787, .50385, .27337, + .17219, .38792, .52696, + .23428, .12830, 7.56622, .51765, .29037, + .19111, .40349, .54109, + .23834, .13021, 7.72827, .53040, .30610, + .20862, .41788, .55414, + .24215, .13198, 7.86906, .54223, .32075, + .22493, .43127, .56626, + .24573, .13363, 7.99243, .55329, .33446, + .24018, .44378, .57758 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + .24906, .13516, 8.09537, .56344, .34710, + .25429, .45530, .58796, + .25221, .13660, 8.18419, .57289, .35893, + .26749, .46606, .59763, + .25521, .13795, 8.26331, .58183, .37013, + .27998, .47624, .60678, + .25800, .13920, 8.32547, .58994, .38038, + .29145, .48552, .61508, + .26069, .14040, 8.38247, .59771, .39020, + .30243, .49441, .62303 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + .23927, .13619, 2.60958, .24477, .02218, + .00000, .13347, .27003, + .25275, .14262, 3.09109, .26309, .04854, + .00000, .15630, .28945, + .26388, .14779, 3.46043, .27884, .07104, + .00000, .17582, .30607, + .27331, .15209, 3.74971, .29252, .09054, + .01025, .19274, .32045, + .28149, .15573, 3.97752, .30450, .10767, + .03096, .20757, .33302, + .28870, .15888, 4.15977, .31511, .12289, + .04846, .22073, .34413, + .29507, .16161, 4.30203, .32443, .13637, + .06403, .23235, .35386 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + .30078, .16401, 4.41447, .33267, .14843, + .07796, .24269, .36246, + .30592, .16613, 4.50318, .34001, .15927, + .09051, .25194, .37011, + .31059, .16802, 4.57250, .34655, .16905, + .10186, .26026, .37692, + .31482, .16970, 4.62420, .35232, .17783, + .11208, .26767, .38292, + .31868, .17120, 4.66250, .35746, .18578, + .12136, .27434, .38827, + .32224, .17256, 4.69053, .36208, .19304, + .12986, .28039, .39306, + .32553, .17381, 4.71059, .36627, .19971, + .13769, .28592, .39740 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + .32854, .17491, 4.72106, .36993, .20571, + .14478, .29085, .40120, + .33133, .17592, 4.72566, .37322, .21121, + .15130, .29533, .40461, + .33396, .17685, 4.72672, .37625, .21634, + .15739, .29949, .40776, + .33635, .17767, 4.72026, .37883, .22092, + .16288, .30314, .41042, + .33863, .17845, 4.71256, .38124, .22524, + .16806, .30658, .41292 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + .34496, .19442, 1.96182, .18489, .01621, + -.00001, .10466, .22143, + .35823, .19920, 2.20511, .19353, .03252, + -.00001, .11749, .23068, + .36863, .20269, 2.36754, .20037, .04576, + -.00002, .12780, .23790, + .37702, .20530, 2.47739, .20585, .05674, + .00592, .13623, .24361, + .38395, .20729, 2.55002, .21025, .06597, + .01765, .14322, .24816, + .38978, .20884, 2.59710, .21384, .07387, + .02723, .14909, .25181, + .39467, .21001, 2.62315, .21669, .08060, + .03548, .15399, .25467 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + .39884, .21089, 2.63487, .21896, .08640, + .04264, .15811, .25690, + .40241, .21156, 2.63606, .22077, .09144, + .04892, .16161, .25863, + .40551, .21202, 2.62931, .22218, .09583, + .05444, .16457, .25996, + .40814, .21233, 2.61573, .22323, .09963, + .05930, .16704, .26091, + .41041, .21252, 2.59749, .22398, .10296, + .06358, .16912, .26155, + .41239, .21260, 2.57627, .22452, .10589, + .06740, .17089, .26195, + .41413, .21262, 2.55313, .22489, .10850, + .07084, .17240, .26217 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + .41559, .21253, 2.52716, .22504, .11075, + .07387, .17362, .26217, + .41685, .21238, 2.50008, .22505, .11274, + .07660, .17465, .26203, + .41799, .21221, 2.47294, .22497, .11455, + .07909, .17553, .26181, + .41889, .21195, 2.44383, .22471, .11607, + .08126, .17616, .26138, + .41972, .21168, 2.41561, .22443, .11747, + .08328, .17673, .26093 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + .42330, .23283, 1.62990, .15045, .01314, + .00000, .08847, .19426, + .43388, .23474, 1.76530, .15469, .02480, + .00000, .09657, .19827, + .44154, .23563, 1.83990, .15763, .03390, + -.00001, .10267, .20085, + .44725, .23590, 1.87807, .15967, .04118, + .00405, .10736, .20247, + .45157, .23574, 1.89216, .16098, .04708, + .01194, .11100, .20337, + .45486, .23530, 1.89097, .16181, .05197, + .01822, .11387, .20374, + .45730, .23461, 1.87805, .16219, .05601, + .02348, .11606, .20368 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + .45910, .23377, 1.85803, .16225, .05937, + .02796, .11775, .20327, + .46038, .23282, 1.83329, .16209, .06220, + .03180, .11905, .20264, + .46128, .23179, 1.80563, .16172, .06458, + .03510, .12003, .20183, + .46179, .23069, 1.77543, .16117, .06658, + .03793, .12073, .20085, + .46202, .22954, 1.74413, .16050, .06825, + .04038, .12119, .19974, + .46203, .22837, 1.71257, .15974, .06968, + .04253, .12148, .19855, + .46188, .22720, 1.68127, .15893, .07090, + .04441, .12164, .19733 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + .46152, .22598, 1.64956, .15802, .07190, + .04603, .12164, .19603, + .46104, .22476, 1.61843, .15707, .07275, + .04747, .12155, .19470, + .46048, .22357, 1.58838, .15612, .07349, + .04876, .12140, .19338, + .45973, .22235, 1.55815, .15509, .07406, + .04984, .12112, .19197, + .45898, .22117, 1.52938, .15408, .07456, + .05083, .12083, .19060 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + .48512, .25833, 1.41641, .12561, .01104, + .00000, .07654, .17334, + .49168, .25701, 1.48572, .12729, .01989, + -.00001, .08174, .17392, + .49560, .25515, 1.50974, .12805, .02654, + .00000, .08535, .17362, + .49786, .25299, 1.50883, .12821, .03168, + .00297, .08790, .17277, + .49894, .25068, 1.49278, .12793, .03573, + .00867, .08968, .17153, + .49922, .24829, 1.46827, .12738, .03897, + .01310, .09091, .17007, + .49882, .24585, 1.43774, .12656, .04157, + .01675, .09168, .16839 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + .49796, .24341, 1.40437, .12560, .04365, + .01978, .09214, .16661, + .49675, .24098, 1.36976, .12452, .04535, + .02232, .09234, .16476, + .49528, .23860, 1.33488, .12338, .04672, + .02447, .09235, .16288, + .49356, .23625, 1.29989, .12217, .04782, + .02629, .09218, .16096, + .49169, .23393, 1.26555, .12091, .04871, + .02781, .09189, .15904, + .48970, .23168, 1.23232, .11964, .04942, + .02913, .09153, .15715, + .48765, .22950, 1.20041, .11838, .05000, + .03027, .09110, .15530 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + .48548, .22735, 1.16925, .11710, .05044, + .03121, .09058, .15344, + .48327, .22525, 1.13939, .11583, .05077, + .03203, .09002, .15161, + .48108, .22324, 1.11104, .11460, .05104, + .03275, .08945, .14983, + .47877, .22123, 1.08333, .11334, .05119, + .03333, .08882, .14806, + .47652, .21931, 1.05722, .11212, .05132, + .03385, .08820, .14637 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + .53440, .27430, 1.26021, .10580, .00940, + -.00001, .06660, .15479, + .53611, .26982, 1.28364, .10589, .01630, + .00000, .06984, .15301, + .53575, .26530, 1.27458, .10534, .02131, + -.00001, .07182, .15078, + .53417, .26088, 1.24970, .10444, .02507, + .00225, .07301, .14836, + .53177, .25659, 1.21636, .10327, .02793, + .00652, .07365, .14585, + .52887, .25246, 1.17936, .10197, .03015, + .00978, .07391, .14329, + .52554, .24846, 1.14029, .10056, .03186, + .01239, .07386, .14073 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + .52194, .24465, 1.10124, .09911, .03320, + .01453, .07362, .13816, + .51821, .24098, 1.06310, .09764, .03423, + .01629, .07323, .13568, + .51442, .23745, 1.02636, .09616, .03502, + .01776, .07273, .13328, + .51054, .23405, .99090, .09467, .03562, + .01897, .07214, .13094, + .50664, .23078, .95711, .09320, .03608, + .01997, .07149, .12865, + .50274, .22766, .92516, .09177, .03641, + .02082, .07081, .12645, + .49890, .22469, .89505, .09039, .03664, + .02153, .07010, .12434 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + .49504, .22179, .86628, .08902, .03679, + .02210, .06937, .12227, + .49125, .21900, .83912, .08768, .03687, + .02259, .06862, .12028, + .48757, .21633, .81364, .08639, .03691, + .02300, .06789, .11839, + .48382, .21374, .78918, .08513, .03688, + .02332, .06713, .11651, + .48022, .21126, .76632, .08392, .03683, + .02361, .06640, .11473 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + .58133, .28408, 1.10728, .08548, .00772, + .00000, .05580, .13321, + .57640, .27595, 1.09008, .08439, .01289, + -.00001, .05737, .12950, + .57033, .26846, 1.05387, .08293, .01649, + -.00001, .05806, .12583, + .56378, .26157, 1.01079, .08132, .01907, + .00163, .05821, .12229, + .55695, .25518, .96553, .07962, .02096, + .00470, .05800, .11890, + .55008, .24924, .92095, .07791, .02239, + .00698, .05757, .11565, + .54313, .24367, .87766, .07622, .02341, + .00877, .05697, .11255 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + .53633, .23841, .83671, .07453, .02416, + .01020, .05628, .10962, + .52966, .23349, .79837, .07288, .02471, + .01136, .05553, .10683, + .52311, .22887, .76263, .07132, .02509, + .01230, .05473, .10420, + .51670, .22449, .72917, .06979, .02536, + .01304, .05392, .10167, + .51046, .22034, .69805, .06832, .02551, + .01366, .05308, .09929, + .50443, .21640, .66921, .06691, .02559, + .01415, .05225, .09703, + .49862, .21267, .64248, .06556, .02561, + .01456, .05144, .09488 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + .49292, .20911, .61740, .06425, .02558, + .01488, .05063, .09283, + .48739, .20571, .59407, .06299, .02551, + .01514, .04983, .09088, + .48209, .20248, .57244, .06179, .02542, + .01537, .04907, .08903, + .47682, .19937, .55198, .06063, .02529, + .01551, .04830, .08723, + .47179, .19642, .53301, .05953, .02516, + .01563, .04757, .08554 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + .61409, .28519, .98024, .06868, .00631, + -.00004, .04630, .11305, + .60231, .27390, .93495, .06696, .01023, + -.00003, .04684, .10832, + .59054, .26391, .88177, .06508, .01287, + -.00003, .04676, .10391, + .57908, .25504, .82863, .06319, .01468, + .00119, .04632, .09989, + .56803, .24696, .77790, .06133, .01596, + .00344, .04567, .09615, + .55739, .23961, .73085, .05954, .01685, + .00509, .04491, .09272, + .54717, .23281, .68728, .05780, .01747, + .00635, .04406, .08951 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + .53737, .22653, .64747, .05614, .01789, + .00734, .04319, .08653, + .52802, .22072, .61120, .05457, .01815, + .00811, .04230, .08376, + .51909, .21531, .57816, .05307, .01833, + .00873, .04142, .08117, + .51050, .21023, .54793, .05164, .01839, + .00922, .04056, .07875, + .50229, .20546, .52030, .05028, .01841, + .00959, .03970, .07649, + .49443, .20100, .49506, .04900, .01837, + .00989, .03887, .07435, + .48692, .19682, .47197, .04781, .01830, + .01013, .03808, .07235 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + .47968, .19282, .45065, .04665, .01819, + .01030, .03729, .07046, + .47272, .18904, .43102, .04555, .01806, + .01044, .03654, .06867, + .46608, .18548, .41296, .04452, .01792, + .01054, .03583, .06699, + .45962, .18206, .39613, .04351, .01775, + .01062, .03512, .06539, + .45347, .17882, .38062, .04256, .01759, + .01067, .03446, .06389 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + .63433, .27974, .86847, .05467, .00513, + -.00001, .03798, .09447, + .61578, .26594, .80432, .05276, .00810, + -.00002, .03786, .08928, + .59852, .25403, .74121, .05077, .01003, + -.00001, .03731, .08469, + .58249, .24363, .68342, .04889, .01129, + .00090, .03656, .08059, + .56753, .23434, .63127, .04707, .01213, + .00255, .03571, .07690, + .55356, .22597, .58478, .04537, .01269, + .00372, .03481, .07356, + .54039, .21835, .54311, .04376, .01305, + .00462, .03390, .07049 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + .52800, .21139, .50608, .04225, .01326, + .00529, .03298, .06770, + .51638, .20499, .47302, .04082, .01338, + .00582, .03209, .06514, + .50544, .19907, .44345, .03948, .01341, + .00623, .03124, .06278, + .49501, .19360, .41682, .03825, .01339, + .00655, .03041, .06057, + .48516, .18848, .39285, .03707, .01332, + .00678, .02962, .05852, + .47585, .18370, .37123, .03597, .01323, + .00695, .02886, .05664, + .46703, .17924, .35166, .03493, .01311, + .00709, .02814, .05489 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + .45857, .17503, .33380, .03396, .01298, + .00718, .02745, .05321, + .45052, .17107, .31752, .03304, .01284, + .00725, .02678, .05166, + .44289, .16735, .30267, .03217, .01270, + .00730, .02615, .05021, + .43551, .16378, .28895, .03133, .01253, + .00733, .02555, .04884, + .42852, .16042, .27638, .03055, .01237, + .00734, .02498, .04755 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + .64333, .26945, .76694, .04310, .00413, + -.00002, .03072, .07762, + .61847, .25369, .69095, .04114, .00640, + -.00001, .03024, .07249, + .59619, .24033, .62306, .03925, .00779, + -.00001, .02948, .06805, + .57608, .22884, .56427, .03749, .00867, + .00066, .02862, .06417, + .55772, .21871, .51332, .03582, .00925, + .00190, .02770, .06075, + .54080, .20973, .46923, .03430, .00958, + .00275, .02680, .05768, + .52517, .20160, .43077, .03288, .00979, + .00338, .02592, .05489 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + .51065, .19422, .39725, .03157, .00989, + .00387, .02507, .05237, + .49719, .18748, .36786, .03033, .00991, + .00421, .02425, .05012, + .48463, .18131, .34199, .02918, .00988, + .00448, .02348, .04805, + .47283, .17562, .31899, .02813, .00981, + .00470, .02274, .04614, + .46169, .17035, .29856, .02715, .00971, + .00484, .02204, .04438, + .45124, .16548, .28032, .02624, .00960, + .00495, .02138, .04276, + .44141, .16094, .26396, .02539, .00948, + .00503, .02077, .04125 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + .43208, .15667, .24917, .02459, .00934, + .00509, .02017, .03986, + .42323, .15267, .23582, .02384, .00921, + .00512, .01961, .03855, + .41489, .14893, .22372, .02314, .00908, + .00513, .01909, .03732, + .40686, .14537, .21265, .02247, .00893, + .00512, .01858, .03619, + .39928, .14204, .20255, .02184, .00878, + .00510, .01810, .03514 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + .64238, .25556, .67343, .03354, .00329, + -.00001, .02451, .06279, + .61183, .23839, .59118, .03170, .00501, + -.00001, .02384, .05800, + .58509, .22412, .52226, .02999, .00604, + -.00002, .02304, .05390, + .56149, .21195, .46503, .02841, .00665, + .00051, .02216, .05042, + .54021, .20137, .41699, .02699, .00703, + .00142, .02130, .04733, + .52096, .19201, .37640, .02568, .00723, + .00204, .02047, .04464, + .50336, .18361, .34180, .02445, .00733, + .00251, .01966, .04224 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + .48718, .17610, .31210, .02335, .00736, + .00285, .01890, .04007, + .47226, .16927, .28646, .02233, .00733, + .00309, .01820, .03814, + .45845, .16307, .26423, .02141, .00728, + .00328, .01752, .03637, + .44560, .15737, .24470, .02053, .00719, + .00340, .01689, .03477, + .43358, .15213, .22753, .01973, .00709, + .00348, .01630, .03332, + .42236, .14728, .21235, .01899, .00698, + .00354, .01574, .03197, + .41188, .14279, .19886, .01830, .00687, + .00358, .01523, .03072 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + .40194, .13860, .18677, .01769, .00674, + .00361, .01475, .02956, + .39259, .13468, .17592, .01709, .00662, + .00362, .01429, .02850, + .38382, .13102, .16615, .01652, .00650, + .00362, .01386, .02752, + .37541, .12757, .15729, .01601, .00638, + .00360, .01345, .02658, + .36749, .12434, .14926, .01553, .00626, + .00359, .01307, .02572 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + .63269, .23910, .58704, .02572, .00261, + .00003, .01931, .04998, + .59711, .22117, .50294, .02415, .00389, + .00002, .01857, .04568, + .56669, .20637, .43582, .02267, .00462, + .00002, .01776, .04207, + .54019, .19393, .38186, .02133, .00504, + .00041, .01696, .03904, + .51663, .18320, .33778, .02016, .00527, + .00106, .01616, .03641, + .49553, .17381, .30131, .01908, .00540, + .00151, .01542, .03410, + .47646, .16542, .27074, .01806, .00544, + .00183, .01472, .03207 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + .45901, .15798, .24499, .01719, .00542, + .00205, .01408, .03026, + .44314, .15123, .22304, .01636, .00536, + .00223, .01350, .02865, + .42850, .14515, .20416, .01561, .00530, + .00234, .01293, .02722, + .41500, .13956, .18780, .01491, .00521, + .00243, .01241, .02591, + .40244, .13446, .17357, .01427, .00512, + .00249, .01193, .02471, + .39075, .12977, .16107, .01370, .00502, + .00253, .01148, .02361, + .37986, .12545, .15004, .01318, .00492, + .00254, .01106, .02261 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + .36967, .12139, .14027, .01265, .00482, + .00255, .01067, .02171, + .36010, .11764, .13155, .01218, .00472, + .00255, .01031, .02086, + .35112, .11417, .12374, .01176, .00463, + .00254, .00997, .02007, + .34258, .11089, .11670, .01135, .00452, + .00252, .00964, .01934, + .33457, .10782, .11033, .01096, .00442, + .00249, .00934, .01866 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + .61515, .22136, .50774, .01972, .00189, + -.00013, .01483, .03913, + .57559, .20299, .42503, .01832, .00290, + -.00014, .01416, .03538, + .54219, .18807, .36152, .01707, .00344, + -.00013, .01343, .03233, + .51351, .17560, .31199, .01596, .00373, + .00017, .01274, .02979, + .48838, .16492, .27239, .01494, .00388, + .00068, .01208, .02759, + .46597, .15570, .24027, .01406, .00397, + .00102, .01147, .02567, + .44591, .14750, .21378, .01325, .00397, + .00127, .01088, .02403 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + .42775, .14023, .19172, .01253, .00394, + .00143, .01036, .02256, + .41123, .13376, .17314, .01190, .00390, + .00156, .00987, .02124, + .39617, .12787, .15740, .01130, .00383, + .00165, .00941, .02011, + .38232, .12253, .14389, .01075, .00374, + .00170, .00901, .01907, + .36951, .11767, .13221, .01025, .00366, + .00173, .00863, .01812, + .35768, .11321, .12206, .00979, .00358, + .00175, .00827, .01726, + .34672, .10912, .11317, .00938, .00350, + .00176, .00794, .01647 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + .33645, .10533, .10533, .00900, .00341, + .00176, .00764, .01574, + .32684, .10182, .09837, .00865, .00333, + .00176, .00736, .01507, + .31786, .09857, .09217, .00833, .00326, + .00176, .00709, .01445, + .30936, .09551, .08662, .00802, .00318, + .00173, .00685, .01389, + .30142, .09266, .08163, .00774, .00310, + .00172, .00662, .01337 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + .59136, .20227, .43478, .01466, .00151, + -.00003, .01136, .03014, + .54855, .18398, .35606, .01356, .00222, + -.00003, .01073, .02701, + .51298, .16928, .29758, .01255, .00259, + -.00003, .01012, .02447, + .48276, .15714, .25307, .01167, .00280, + .00018, .00951, .02237, + .45649, .14679, .21822, .01087, .00290, + .00054, .00895, .02060, + .43334, .13789, .19043, .01019, .00292, + .00077, .00845, .01906, + .41273, .13006, .16781, .00956, .00292, + .00094, .00798, .01772 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + .39422, .12315, .14923, .00900, .00288, + .00107, .00756, .01657, + .37749, .11700, .13381, .00852, .00282, + .00114, .00716, .01556, + .36235, .11146, .12082, .00804, .00277, + .00119, .00681, .01465, + .34843, .10647, .10978, .00765, .00270, + .00123, .00648, .01382, + .33567, .10191, .10033, .00727, .00263, + .00125, .00619, .01308, + .32393, .09776, .09216, .00692, .00256, + .00125, .00591, .01242, + .31310, .09397, .08505, .00659, .00249, + .00124, .00566, .01182 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + .30297, .09046, .07883, .00630, .00243, + .00125, .00543, .01127, + .29355, .08721, .07334, .00603, .00236, + .00124, .00521, .01077, + .28479, .08421, .06847, .00579, .00229, + .00122, .00501, .01031, + .27652, .08141, .06413, .00557, .00223, + .00122, .00482, .00988, + .26880, .07880, .06025, .00538, .00217, + .00121, .00464, .00948 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + .56217, .18296, .36880, .01081, .00111, + -.00004, .00853, .02285, + .51712, .16510, .29569, .00991, .00165, + -.00003, .00799, .02030, + .48010, .15090, .24297, .00913, .00192, + -.00003, .00747, .01824, + .44901, .13923, .20374, .00844, .00206, + .00013, .00699, .01655, + .42221, .12940, .17361, .00784, .00212, + .00040, .00654, .01513, + .39883, .12094, .14990, .00730, .00213, + .00057, .00613, .01393, + .37810, .11358, .13094, .00682, .00211, + .00068, .00577, .01290 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + .35964, .10710, .11554, .00637, .00207, + .00075, .00543, .01201, + .34308, .10136, .10284, .00601, .00202, + .00080, .00513, .01120, + .32804, .09625, .09227, .00568, .00197, + .00084, .00486, .01052, + .31440, .09163, .08336, .00535, .00192, + .00086, .00461, .00990, + .30192, .08744, .07579, .00507, .00186, + .00088, .00439, .00934, + .29047, .08364, .06929, .00483, .00180, + .00088, .00418, .00884, + .27994, .08017, .06367, .00461, .00175, + .00088, .00398, .00838 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + .27016, .07697, .05878, .00438, .00170, + .00087, .00381, .00797, + .26109, .07403, .05449, .00418, .00165, + .00086, .00365, .00759, + .25267, .07132, .05071, .00401, .00160, + .00085, .00349, .00724, + .24475, .06878, .04735, .00385, .00155, + .00084, .00336, .00692, + .23739, .06644, .04435, .00370, .00151, + .00083, .00323, .00662 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + .52873, .16373, .30947, .00780, .00085, + -.00001, .00632, .01702, + .48229, .14659, .24315, .00711, .00123, + -.00001, .00589, .01498, + .44461, .13309, .19654, .00652, .00143, + .00000, .00546, .01336, + .41328, .12208, .16262, .00599, .00150, + .00011, .00506, .01206, + .38647, .11288, .13697, .00555, .00154, + .00031, .00472, .01095, + .36326, .10501, .11712, .00513, .00155, + .00043, .00441, .01004, + .34283, .09817, .10140, .00479, .00152, + .00050, .00410, .00925 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + .32473, .09221, .08878, .00445, .00148, + .00055, .00386, .00858, + .30856, .08696, .07850, .00417, .00144, + .00059, .00363, .00797, + .29401, .08230, .07001, .00393, .00140, + .00060, .00343, .00744, + .28081, .07808, .06290, .00371, .00135, + .00061, .00324, .00698, + .26881, .07430, .05691, .00350, .00131, + .00062, .00307, .00655, + .25784, .07087, .05181, .00331, .00126, + .00061, .00291, .00618, + .24779, .06774, .04742, .00316, .00122, + .00061, .00277, .00585 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + .23847, .06489, .04360, .00302, .00118, + .00061, .00263, .00554, + .22989, .06225, .04028, .00288, .00115, + .00060, .00252, .00526, + .22196, .05980, .03738, .00274, .00112, + .00059, .00241, .00500, + .21450, .05756, .03480, .00262, .00107, + .00057, .00231, .00477, + .20757, .05549, .03251, .00251, .00103, + .00056, .00221, .00456 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + .49194, .14499, .25671, .00551, .00066, + .00006, .00463, .01244, + .44508, .12882, .19780, .00501, .00094, + .00004, .00427, .01086, + .40748, .11617, .15741, .00455, .00107, + .00004, .00394, .00961, + .37645, .10596, .12853, .00415, .00111, + .00011, .00363, .00864, + .35016, .09744, .10705, .00381, .00112, + .00025, .00335, .00782, + .32742, .09024, .09064, .00357, .00113, + .00033, .00313, .00709, + .30766, .08402, .07783, .00329, .00109, + .00038, .00290, .00650 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + .29022, .07860, .06765, .00304, .00106, + .00040, .00271, .00601, + .27472, .07385, .05943, .00285, .00102, + .00042, .00254, .00556, + .26083, .06964, .05267, .00267, .00098, + .00043, .00239, .00516, + .24830, .06587, .04709, .00252, .00095, + .00045, .00224, .00483, + .23696, .06247, .04240, .00236, .00092, + .00045, .00212, .00454, + .22660, .05942, .03843, .00223, .00088, + .00044, .00201, .00426, + .21713, .05666, .03504, .00214, .00085, + .00043, .00190, .00401 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + .20842, .05413, .03211, .00203, .00083, + .00043, .00181, .00378, + .20040, .05181, .02957, .00193, .00080, + .00042, .00172, .00358, + .19300, .04967, .02735, .00184, .00077, + .00042, .00164, .00341, + .18611, .04769, .02540, .00175, .00074, + .00041, .00157, .00324, + .17973, .04587, .02368, .00167, .00072, + .00041, .00151, .00308 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + .45296, .12719, .21063, .00388, .00046, + .00001, .00328, .00894, + .40646, .11215, .15922, .00352, .00066, + .00002, .00302, .00773, + .36955, .10046, .12478, .00317, .00074, + .00001, .00276, .00681, + .33933, .09110, .10061, .00290, .00078, + .00006, .00253, .00607, + .31394, .08336, .08289, .00266, .00078, + .00016, .00233, .00545, + .29221, .07682, .06956, .00243, .00078, + .00021, .00217, .00493, + .27328, .07122, .05922, .00225, .00076, + .00026, .00199, .00453 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + .25675, .06637, .05113, .00207, .00073, + .00027, .00185, .00416, + .24212, .06213, .04463, .00193, .00070, + .00029, .00174, .00383, + .22905, .05839, .03935, .00182, .00067, + .00030, .00163, .00355, + .21731, .05508, .03501, .00171, .00065, + .00030, .00152, .00329, + .20671, .05209, .03138, .00162, .00062, + .00030, .00143, .00307, + .19712, .04940, .02833, .00152, .00060, + .00030, .00135, .00288, + .18840, .04696, .02574, .00142, .00058, + .00029, .00128, .00271 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + .18037, .04474, .02351, .00135, .00054, + .00028, .00121, .00257, + .17298, .04272, .02158, .00129, .00052, + .00027, .00115, .00243, + .16618, .04087, .01990, .00123, .00050, + .00027, .00109, .00231, + .15987, .03915, .01844, .00117, .00049, + .00027, .00104, .00219, + .15405, .03757, .01715, .00111, .00048, + .00027, .00099, .00207 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + .41259, .11034, .17064, .00266, .00033, + .00002, .00230, .00631, + .36730, .09657, .12665, .00239, .00045, + .00003, .00209, .00543, + .33164, .08597, .09780, .00218, .00051, + .00002, .00190, .00472, + .30270, .07753, .07791, .00199, .00054, + .00006, .00174, .00417, + .27856, .07058, .06352, .00181, .00053, + .00011, .00159, .00374, + .25801, .06474, .05285, .00167, .00051, + .00015, .00144, .00338, + .24023, .05978, .04465, .00155, .00050, + .00017, .00134, .00306 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + .22478, .05549, .03828, .00142, .00048, + .00018, .00124, .00281, + .21114, .05175, .03323, .00132, .00047, + .00018, .00116, .00259, + .19903, .04850, .02914, .00125, .00044, + .00020, .00107, .00239, + .18828, .04558, .02579, .00114, .00042, + .00019, .00101, .00220, + .17854, .04299, .02303, .00107, .00041, + .00019, .00094, .00205, + .16976, .04065, .02072, .00101, .00039, + .00019, .00089, .00193, + .16180, .03854, .01875, .00094, .00037, + .00018, .00083, .00181 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + .15450, .03664, .01708, .00090, .00036, + .00018, .00079, .00170, + .14780, .03490, .01564, .00085, .00035, + .00018, .00075, .00160, + .14165, .03330, .01439, .00081, .00033, + .00017, .00071, .00152, + .13594, .03184, .01330, .00078, .00031, + .00016, .00067, .00144, + .13069, .03049, .01234, .00075, .00030, + .00016, .00064, .00136 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + .37169, .09462, .13629, .00175, .00025, + .00003, .00161, .00436, + .32820, .08218, .09932, .00159, .00034, + .00004, .00145, .00368, + .29428, .07269, .07559, .00143, .00037, + .00004, .00130, .00320, + .26702, .06514, .05946, .00129, .00038, + .00006, .00119, .00283, + .24437, .05900, .04800, .00117, .00037, + .00010, .00108, .00251, + .22521, .05388, .03956, .00108, .00036, + .00010, .00099, .00225, + .20877, .04953, .03318, .00100, .00036, + .00012, .00090, .00203 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + .19452, .04580, .02825, .00091, .00034, + .00014, .00084, .00184, + .18204, .04255, .02438, .00083, .00032, + .00014, .00078, .00170, + .17100, .03972, .02127, .00078, .00032, + .00015, .00072, .00155, + .16116, .03723, .01875, .00073, .00030, + .00014, .00067, .00144, + .15236, .03500, .01667, .00069, .00029, + .00014, .00063, .00132, + .14443, .03300, .01494, .00065, .00027, + .00013, .00060, .00124, + .13725, .03120, .01348, .00060, .00026, + .00013, .00056, .00117 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + .13071, .02958, .01224, .00056, .00025, + .00012, .00053, .00110, + .12474, .02810, .01118, .00053, .00024, + .00012, .00050, .00103, + .11927, .02675, .01026, .00050, .00023, + .00013, .00047, .00098, + .11420, .02552, .00946, .00049, .00023, + .00012, .00045, .00092, + .10953, .02439, .00876, .00047, .00022, + .00012, .00042, .00087 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + .33115, .08028, .10734, .00114, .00018, + .00003, .00109, .00291, + .29000, .06914, .07679, .00099, .00023, + .00003, .00097, .00250, + .25818, .06072, .05757, .00090, .00027, + .00002, .00089, .00214, + .23280, .05411, .04475, .00081, .00027, + .00005, .00080, .00188, + .21189, .04875, .03575, .00073, .00027, + .00007, .00073, .00165, + .19435, .04428, .02922, .00065, .00026, + .00009, .00066, .00148, + .17934, .04053, .02432, .00059, .00025, + .00010, .00061, .00134 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + .16637, .03732, .02058, .00054, .00024, + .00011, .00057, .00121, + .15507, .03456, .01765, .00051, .00023, + .00011, .00052, .00110, + .14516, .03214, .01533, .00047, .00022, + .00011, .00049, .00102, + .13635, .03001, .01346, .00043, .00021, + .00011, .00045, .00092, + .12850, .02813, .01192, .00040, .00020, + .00010, .00042, .00085, + .12145, .02644, .01064, .00037, .00019, + .00010, .00039, .00079, + .11509, .02494, .00957, .00034, .00018, + .00010, .00037, .00074 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + .10931, .02358, .00867, .00032, .00017, + .00010, .00035, .00068, + .10404, .02235, .00790, .00030, .00017, + .00010, .00033, .00065, + .09922, .02122, .00723, .00029, .00016, + .00010, .00031, .00062, + .09478, .02020, .00666, .00028, .00016, + .00009, .00029, .00057, + .09071, .01926, .00615, .00027, .00015, + .00009, .00028, .00053 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + .29165, .06740, .08342, .00079, .00008, + -.00002, .00068, .00194, + .25334, .05762, .05867, .00072, .00013, + .00000, .00061, .00161, + .22402, .05028, .04339, .00064, .00015, + -.00001, .00054, .00139, + .20081, .04455, .03335, .00056, .00015, + .00000, .00049, .00121, + .18176, .03993, .02640, .00052, .00015, + .00002, .00043, .00105, + .16588, .03612, .02141, .00047, .00014, + .00004, .00039, .00095, + .15237, .03292, .01770, .00044, .00014, + .00003, .00036, .00085 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + .14079, .03020, .01490, .00040, .00013, + .00005, .00034, .00079, + .13079, .02786, .01272, .00035, .00013, + .00005, .00031, .00069, + .12196, .02582, .01099, .00034, .00012, + .00005, .00029, .00064, + .11418, .02404, .00961, .00032, .00012, + .00005, .00026, .00058, + .10724, .02246, .00848, .00030, .00011, + .00005, .00025, .00054, + .10106, .02106, .00756, .00028, .00011, + .00005, .00023, .00050, + .09553, .01981, .00678, .00025, .00009, + .00004, .00021, .00047 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + .09048, .01868, .00613, .00024, .00009, + .00004, .00020, .00044, + .08590, .01766, .00557, .00023, .00009, + .00004, .00019, .00040, + .08172, .01674, .00509, .00023, .00008, + .00004, .00018, .00038, + .07790, .01590, .00468, .00021, .00008, + .00004, .00017, .00036, + .07440, .01513, .00431, .00018, .00007, + .00004, .00015, .00034 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + .25348, .05564, .06353, .00042, .00008, + .00004, .00046, .00125, + .21832, .04721, .04392, .00042, .00011, + .00002, .00041, .00101, + .19167, .04092, .03204, .00036, .00010, + .00001, .00036, .00088, + .17072, .03604, .02435, .00033, .00011, + .00002, .00033, .00075, + .15368, .03214, .01910, .00031, .00011, + .00003, .00029, .00066, + .13954, .02893, .01535, .00028, .00011, + .00004, .00026, .00059, + .12762, .02625, .01262, .00025, .00009, + .00004, .00023, .00052 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + .11743, .02398, .01056, .00023, .00009, + .00004, .00022, .00046, + .10861, .02204, .00896, .00021, .00008, + .00004, .00019, .00043, + .10094, .02036, .00772, .00019, .00008, + .00004, .00018, .00039, + .09418, .01889, .00672, .00018, .00008, + .00004, .00016, .00036, + .08818, .01760, .00591, .00017, .00007, + .00004, .00015, .00033, + .08283, .01645, .00525, .00016, .00007, + .00003, .00014, .00031, + .07805, .01543, .00470, .00015, .00006, + .00003, .00013, .00028 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + .07374, .01451, .00423, .00014, .00006, + .00003, .00012, .00026, + .06983, .01369, .00384, .00013, .00006, + .00003, .00012, .00024, + .06627, .01294, .00350, .00012, .00006, + .00003, .00011, .00023, + .06301, .01226, .00321, .00012, .00005, + .00003, .00010, .00021, + .06003, .01164, .00296, .00012, .00004, + .00002, .00010, .00020 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + .21732, .04536, .04753, .00025, .00008, + .00004, .00031, .00074, + .18560, .03816, .03230, .00024, .00009, + .00004, .00027, .00063, + .16182, .03284, .02323, .00019, .00008, + .00003, .00024, .00053, + .14316, .02876, .01746, .00020, .00008, + .00003, .00021, .00046, + .12818, .02550, .01357, .00016, .00007, + .00003, .00019, .00040, + .11580, .02284, .01082, .00014, .00007, + .00003, .00017, .00036, + .10538, .02063, .00883, .00013, .00006, + .00003, .00015, .00032 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + .09655, .01876, .00734, .00012, .00007, + .00004, .00014, .00028, + .08894, .01718, .00621, .00012, .00006, + .00003, .00012, .00025, + .08234, .01581, .00532, .00011, .00005, + .00003, .00011, .00022, + .07655, .01462, .00462, .00009, .00005, + .00003, .00010, .00021, + .07143, .01357, .00405, .00009, .00005, + .00003, .00009, .00020, + .06689, .01265, .00359, .00009, .00004, + .00003, .00009, .00018, + .06284, .01183, .00320, .00009, .00004, + .00003, .00008, .00016 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + .05919, .01110, .00288, .00008, .00004, + .00002, .00008, .00015, + .05591, .01044, .00261, .00007, .00004, + .00002, .00007, .00014, + .05294, .00985, .00237, .00006, .00003, + .00002, .00007, .00013, + .05021, .00930, .00217, .00006, .00003, + .00002, .00006, .00012, + .04773, .00881, .00200, .00006, .00003, + .00002, .00006, .00012 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + .18386, .03650, .03495, .00018, .00002, + -.00001, .00016, .00048, + .15570, .03046, .02334, .00017, .00003, + .00001, .00015, .00037, + .13474, .02603, .01657, .00012, .00003, + .00000, .00013, .00033, + .11846, .02266, .01233, .00013, .00004, + .00000, .00011, .00028, + .10544, .01998, .00949, .00012, .00004, + .00002, .00010, .00025, + .09476, .01780, .00752, .00011, .00004, + .00001, .00009, .00021, + .08587, .01601, .00610, .00008, .00004, + .00001, .00008, .00018 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + .07831, .01450, .00504, .00008, .00004, + .00001, .00007, .00016, + .07183, .01322, .00425, .00008, .00003, + .00001, .00007, .00016, + .06625, .01212, .00362, .00007, .00003, + .00002, .00006, .00014, + .06136, .01118, .00313, .00008, .00003, + .00001, .00005, .00013, + .05708, .01034, .00274, .00006, .00002, + .00001, .00005, .00012, + .05330, .00961, .00242, .00006, .00002, + .00001, .00005, .00011, + .04993, .00896, .00216, .00005, .00002, + .00001, .00004, .00010 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + .04689, .00838, .00194, .00005, .00002, + .00001, .00004, .00009, + .04417, .00787, .00175, .00005, .00002, + .00001, .00004, .00008, + .04171, .00740, .00159, .00004, .00002, + .00001, .00004, .00008, + .03946, .00698, .00145, .00005, .00002, + .00001, .00003, .00007, + .03742, .00660, .00134, .00005, .00002, + .00001, .00003, .00006 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + .15289, .02877, .02504, .00007, .00004, + .00003, .00012, .00026, + .12832, .02380, .01644, .00006, .00004, + .00002, .00010, .00022, + .11020, .02020, .01151, .00005, .00003, + .00002, .00009, .00019, + .09626, .01746, .00847, .00005, .00003, + .00002, .00008, .00016, + .08517, .01531, .00646, .00004, .00003, + .00002, .00007, .00014, + .07612, .01358, .00508, .00004, .00003, + .00002, .00006, .00012, + .06861, .01215, .00410, .00004, .00003, + .00002, .00005, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + .06228, .01096, .00337, .00004, .00002, + .00001, .00005, .00008, + .05691, .00995, .00282, .00003, .00002, + .00001, .00005, .00007, + .05227, .00908, .00240, .00004, .00002, + .00002, .00004, .00007, + .04825, .00834, .00207, .00003, .00002, + .00001, .00003, .00006, + .04472, .00769, .00181, .00003, .00002, + .00001, .00003, .00006, + .04161, .00713, .00159, .00002, .00002, + .00001, .00003, .00006, + .03886, .00663, .00141, .00002, .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=15,19)/ + .03638, .00618, .00127, .00002, .00001, + .00001, .00002, .00005, + .03417, .00578, .00114, .00002, .00001, + .00001, .00002, .00004, + .03219, .00543, .00104, .00002, .00001, + .00001, .00002, .00004, + .03038, .00510, .00095, .00001, .00001, + .00001, .00002, .00004, + .02874, .00481, .00087, .00001, .00001, + .00001, .00002, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + .10040, .01696, .01196, .00002, .00000, + .00000, .00003, .00009, + .08270, .01378, .00758, .00001, .00001, + .00000, .00003, .00007, + .06988, .01151, .00517, .00002, .00001, + .00000, .00002, .00006, + .06019, .00982, .00372, .00002, .00001, + .00000, .00002, .00004, + .05258, .00850, .00279, .00002, .00001, + .00000, .00002, .00003, + .04647, .00746, .00216, .00002, .00001, + .00000, .00002, .00003, + .04146, .00660, .00173, .00001, .00001, + .00000, .00002, .00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + .03727, .00590, .00141, .00001, .00001, + .00000, .00001, .00002, + .03375, .00531, .00117, .00001, .00001, + .00000, .00001, .00002, + .03076, .00481, .00099, .00001, .00001, + .00000, .00001, .00002, + .02815, .00438, .00085, .00001, .00001, + .00000, .00001, .00002, + .02591, .00401, .00074, .00001, .00001, + .00000, .00001, .00002, + .02394, .00369, .00065, .00001, .00001, + .00000, .00001, .00002, + .02221, .00341, .00057, .00001, .00000, + .00000, .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)/ + .02067, .00316, .00051, .00001, .00000, + .00000, .00001, .00001, + .01930, .00294, .00046, .00000, .00000, + .00000, .00001, .00001, + .01807, .00275, .00042, .00000, .00000, + .00000, .00001, .00001, + .01696, .00257, .00038, .00000, .00000, + .00000, .00001, .00001, + .01596, .00241, .00035, .00000, .00001, + .00000, .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)/ + .06032, .00908, .00501, .00001, .00000, + -.00001, .00000, .00002, + .04870, .00723, .00307, .00001, .00000, + .00000, .00000, .00002, + .04045, .00594, .00204, .00001, .00000, + .00000, .00000, .00001, + .03432, .00499, .00144, .00000, .00000, + .00000, .00000, .00001, + .02958, .00427, .00107, .00000, .00000, + .00000, .00000, .00001, + .02582, .00369, .00082, .00000, .00000, + .00000, .00000, .00001, + .02277, .00324, .00065, .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)/ + .02026, .00286, .00052, .00001, .00000, + .00000, .00000, .00001, + .01817, .00255, .00043, .00000, .00000, + .00000, .00000, .00001, + .01641, .00229, .00036, .00000, .00000, + .00000, .00000, .00000, + .01490, .00207, .00031, .00000, .00000, + .00000, .00000, .00001, + .01360, .00188, .00027, .00000, .00000, + .00000, .00000, .00000, + .01247, .00172, .00023, .00000, .00000, + .00000, .00000, .00000, + .01149, .00158, .00021, .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)/ + .01062, .00145, .00018, .00000, .00000, + .00000, .00000, .00000, + .00985, .00134, .00017, .00000, .00000, + .00000, .00000, .00000, + .00917, .00125, .00015, .00000, .00000, + .00000, .00000, .00000, + .00855, .00116, .00014, .00000, .00000, + .00000, .00000, .00000, + .00801, .00108, .00012, .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)/ + .03225, .00427, .00177, .00001, .00000, + .00000, .00000, .00001, + .02545, .00333, .00105, .00000, .00000, + .00000, .00000, .00001, + .02074, .00268, .00068, .00000, .00000, + .00000, .00000, .00000, + .01729, .00222, .00047, .00000, .00000, + .00000, .00000, .00000, + .01468, .00187, .00034, .00000, .00000, + .00000, .00000, .00000, + .01264, .00160, .00026, .00000, .00000, + .00000, .00000, .00000, + .01101, .00138, .00021, .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=8,14)/ + .00968, .00121, .00017, .00000, .00000, + .00000, .00000, .00000, + .00859, .00107, .00014, .00000, .00000, + .00000, .00000, .00000, + .00768, .00095, .00011, .00000, .00000, + .00000, .00000, .00000, + .00690, .00085, .00010, .00000, .00000, + .00000, .00000, .00000, + .00625, .00076, .00008, .00000, .00000, + .00000, .00000, .00000, + .00568, .00069, .00007, .00000, .00000, + .00000, .00000, .00000, + .00519, .00063, .00006, .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)/ + .00476, .00058, .00006, .00000, .00000, + .00000, .00000, .00000, + .00438, .00053, .00005, .00000, .00000, + .00000, .00000, .00000, + .00405, .00049, .00005, .00000, .00000, + .00000, .00000, .00000, + .00376, .00045, .00004, .00000, .00000, + .00000, .00000, .00000, + .00349, .00042, .00004, .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)/ + .01453, .00165, .00048, .00000, .00000, + .00000, .00000, .00000, + .01117, .00126, .00028, .00000, .00000, + .00000, .00000, .00000, + .00890, .00099, .00018, .00000, .00000, + .00000, .00000, .00000, + .00728, .00080, .00012, .00000, .00000, + .00000, .00000, .00000, + .00607, .00067, .00009, .00000, .00000, + .00000, .00000, .00000, + .00515, .00056, .00007, .00000, .00000, + .00000, .00000, .00000, + .00442, .00048, .00005, .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)/ + .00383, .00041, .00004, .00000, .00000, + .00000, .00000, .00000, + .00336, .00036, .00003, .00000, .00000, + .00000, .00000, .00000, + .00297, .00032, .00003, .00000, .00000, + .00000, .00000, .00000, + .00264, .00028, .00002, .00000, .00000, + .00000, .00000, .00000, + .00236, .00025, .00002, .00000, .00000, + .00000, .00000, .00000, + .00213, .00022, .00002, .00000, .00000, + .00000, .00000, .00000, + .00193, .00020, .00002, .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)/ + .00175, .00018, .00002, .00000, .00000, + .00000, .00000, .00000, + .00160, .00017, .00001, .00000, .00000, + .00000, .00000, .00000, + .00147, .00015, .00001, .00000, .00000, + .00000, .00000, .00000, + .00135, .00014, .00001, .00000, .00000, + .00000, .00000, .00000, + .00124, .00013, .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=1,7)/ + .00110, .00008, .00001, .00000, .00000, + .00000, .00000, .00000, + .00079, .00006, .00001, .00000, .00000, + .00000, .00000, .00000, + .00059, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00045, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00036, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00024, .00002, .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=8,14)/ + .00020, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .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)/ + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .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(70,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