#include "pdf/pilot.h" SUBROUTINE SFMS125(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C C THIS IS THE alphas=0.125 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)/ + .00195, .00475, 10.30474, .83897, .15537, + .00000, .48248, .84275, + .00245, .00501, 22.74874, 1.27391, .59666, + .00000, .92138, 1.27835, + .00290, .00525, 38.69376, 1.80601, 1.13404, + .00000, 1.45680, 1.81101, + .00332, .00547, 57.55440, 2.41978, 1.75236, + .18121, 2.07346, 2.42528, + .00371, .00569, 78.70570, 3.10377, 2.44038, + .93212, 2.76002, 3.10973, + .00408, .00589, 102.07712, 3.85572, 3.19596, + 1.70778, 3.51429, 3.86210, + .00444, .00608, 127.07484, 4.66182, 4.00536, + 2.53709, 4.32252, 4.66859 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + .00477, .00627, 153.45285, 5.51557, 4.86215, + 3.41204, 5.17823, 5.52271, + .00510, .00645, 181.01610, 6.41189, 5.76127, + 4.32772, 6.07637, 6.41937, + .00541, .00663, 209.54704, 7.34520, 6.69719, + 5.27887, 7.01138, 7.35300, + .00572, .00679, 238.88373, 8.31114, 7.66558, + 6.26135, 7.97890, 8.31925, + .00601, .00696, 268.77637, 9.30332, 8.66005, + 7.26895, 8.97258, 9.31172, + .00629, .00712, 299.03442, 10.31650, 9.67541, + 8.29657, 9.98718, 10.32518, + .00657, .00727, 329.74854, 11.35245, 10.71342, + 9.34607, 11.02447, 11.36139 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + .00684, .00742, 360.90289, 12.41042, 11.77334, + 10.41682, 12.08372, 12.41962, + .00710, .00757, 392.02005, 13.47797, 12.84275, + 11.49647, 13.15248, 13.48741, + .00735, .00771, 423.31967, 14.56010, 13.92667, + 12.59007, 14.23578, 14.56978, + .00760, .00785, 454.92798, 15.65979, 15.02805, + 13.70065, 15.33659, 15.66970, + .00785, .00799, 486.13748, 16.75830, 16.12820, + 14.80957, 16.43617, 16.76843 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + .00333, .00614, 9.39194, .77917, .13714, + .00000, .44344, .78263, + .00404, .00652, 19.64882, 1.14390, .50830, + .00000, .81196, 1.14783, + .00468, .00687, 32.26968, 1.57604, .94579, + .00000, 1.24727, 1.58038, + .00527, .00719, 46.75418, 2.06240, 1.43675, + .14321, 1.73637, 2.06709, + .00582, .00749, 62.60751, 2.59367, 1.97210, + .73041, 2.27008, 2.59868, + .00634, .00777, 79.77301, 3.16791, 2.55000, + 1.32590, 2.84651, 3.17322, + .00684, .00805, 97.81029, 3.77452, 3.15994, + 1.95312, 3.45513, 3.78010 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + .00731, .00831, 116.54944, 4.40872, 3.79720, + 2.60612, 4.09116, 4.41455, + .00776, .00856, 135.86064, 5.06686, 4.45817, + 3.28144, 4.75101, 5.07292, + .00820, .00880, 155.60034, 5.74500, 5.13894, + 3.97541, 5.43075, 5.75129, + .00862, .00903, 175.66640, 6.44017, 5.83657, + 4.68525, 6.12740, 6.44667, + .00902, .00925, 195.89603, 7.14793, 6.54664, + 5.40669, 6.83656, 7.15463, + .00942, .00947, 216.17055, 7.86476, 7.26566, + 6.13632, 7.55472, 7.87165, + .00980, .00968, 236.56630, 8.59217, 7.99513, + 6.87575, 8.28337, 8.59924 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + .01017, .00988, 257.08298, 9.32984, 8.73476, + 7.62475, 9.02224, 9.33709, + .01053, .01008, 277.40414, 10.06912, 9.47592, + 8.37475, 9.76266, 10.07654, + .01088, .01027, 297.69208, 10.81383, 10.22241, + 9.12963, 10.50845, 10.82141, + .01122, .01046, 318.04102, 11.56625, 10.97653, + 9.89170, 11.26190, 11.57399, + .01155, .01064, 337.98416, 12.31339, 11.72531, + 10.64805, 12.01003, 12.32128 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + .00546, .00795, 8.55666, .72311, .12065, + .00000, .40736, .72640, + .00647, .00850, 16.96416, 1.02699, .43106, + .00000, .71492, 1.03061, + .00738, .00899, 26.89989, 1.37578, .78529, + .00000, 1.06677, 1.37967, + .00821, .00945, 37.96227, 1.75884, 1.17303, + .11261, 1.45248, 1.76298, + .00898, .00987, 49.77652, 2.16904, 1.58736, + .56959, 1.86502, 2.17340, + .00972, .01027, 62.30912, 2.60496, 2.02700, + 1.02457, 2.30305, 2.60952, + .01041, .01065, 75.24337, 3.05874, 2.48415, + 1.49666, 2.75874, 3.06348 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + .01107, .01101, 88.47001, 3.52702, 2.95554, + 1.98164, 3.22878, 3.53193, + .01170, .01135, 101.90923, 4.00735, 3.43874, + 2.47724, 3.71075, 4.01243, + .01231, .01168, 115.47191, 4.49710, 3.93115, + 2.98105, 4.20201, 4.50232, + .01289, .01199, 129.09843, 4.99431, 4.43086, + 3.49129, 4.70065, 4.99968, + .01345, .01230, 142.68712, 5.49604, 4.93493, + 4.00516, 5.20371, 5.50155, + .01400, .01259, 156.16756, 5.99999, 5.44109, + 4.52048, 5.70892, 6.00562, + .01452, .01288, 169.60416, 6.50748, 5.95068, + 5.03865, 6.21761, 6.51324 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + .01503, .01315, 183.00574, 7.01850, 6.46368, + 5.55972, 6.72976, 7.02438, + .01552, .01342, 196.16496, 7.52709, 6.97416, + 6.07783, 7.23942, 7.53308, + .01600, .01368, 209.20210, 8.03618, 7.48505, + 6.59593, 7.74954, 8.04228, + .01647, .01393, 222.18738, 8.54752, 7.99811, + 7.11584, 8.26186, 8.55372, + .01693, .01418, 234.81465, 9.05220, 8.50444, + 7.62870, 8.76748, 9.05850 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + .00719, .00925, 8.10026, .69183, .11174, + .00000, .38750, .69512, + .00843, .00992, 15.56164, .96397, .39048, + .00000, .66327, .96752, + .00955, .01053, 24.17390, 1.27061, .70263, + .00000, .97295, 1.27438, + .01057, .01109, 33.59345, 1.60263, 1.03938, + .09757, 1.30758, 1.60660, + .01151, .01160, 43.50859, 1.95406, 1.39499, + .49118, 1.66132, 1.95821, + .01241, .01209, 53.89985, 2.32385, 1.76855, + .87887, 2.03320, 2.32817, + .01325, .01255, 64.51032, 2.70549, 2.15361, + 1.27762, 2.41672, 2.70995 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + .01406, .01298, 75.25906, 3.09633, 2.54759, + 1.68406, 2.80930, 3.10093, + .01482, .01339, 86.08910, 3.49451, 2.94867, + 2.09649, 3.20908, 3.49924, + .01556, .01379, 96.93544, 3.89796, 3.35482, + 2.51308, 3.61403, 3.90282, + .01626, .01417, 107.75695, 4.30526, 3.76464, + 2.93254, 4.02272, 4.31023, + .01694, .01453, 118.47829, 4.71409, 4.17584, + 3.35271, 4.43287, 4.71917, + .01760, .01489, 129.04907, 5.12271, 4.58670, + 3.77195, 4.84273, 5.12789, + .01823, .01523, 139.52747, 5.53236, 4.99846, + 4.19157, 5.25354, 5.53764 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + .01884, .01555, 149.92522, 5.94312, 5.41123, + 4.61172, 5.66542, 5.94850, + .01944, .01587, 160.08167, 6.35026, 5.82028, + 5.02774, 6.07361, 6.35573, + .02001, .01618, 170.09723, 6.75625, 6.22809, + 5.44216, 6.48061, 6.76181, + .02057, .01648, 180.03134, 7.16264, 6.63622, + 5.85655, 6.88797, 7.16828, + .02112, .01677, 189.64545, 7.56226, 7.03752, + 6.26380, 7.28851, 7.56798 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + .00870, .01030, 7.78952, .67024, .10573, + .00000, .37392, .67357, + .01014, .01109, 14.63388, .92141, .36357, + .00000, .62872, .92498, + .01143, .01179, 22.40309, 1.20078, .64849, + .00000, .91110, 1.20454, + .01261, .01243, 30.79351, 1.50023, .95273, + .08801, 1.21316, 1.50417, + .01370, .01302, 39.53445, 1.81460, 1.27133, + .44159, 1.52984, 1.81870, + .01473, .01358, 48.61608, 2.14308, 1.60362, + .78719, 1.86039, 2.14732, + .01570, .01410, 57.81852, 2.48001, 1.94401, + 1.14044, 2.19920, 2.48439 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + .01662, .01460, 67.07805, 2.82321, 2.29037, + 1.49850, 2.54413, 2.82770, + .01750, .01507, 76.35139, 3.17114, 2.64124, + 1.86002, 2.89366, 3.17575, + .01834, .01552, 85.58774, 3.52213, 2.99495, + 2.22353, 3.24613, 3.52684, + .01915, .01595, 94.75678, 3.87502, 3.35040, + 2.58803, 3.60041, 3.87984, + .01993, .01637, 103.79803, 4.22792, 3.70569, + 2.95174, 3.95462, 4.23284, + .02067, .01676, 112.67277, 4.57939, 4.05942, + 3.31334, 4.30732, 4.58440, + .02140, .01715, 121.43491, 4.93061, 4.41278, + 3.67406, 4.65970, 4.93571 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + .02210, .01752, 130.09776, 5.28173, 4.76593, + 4.03413, 5.01193, 5.28692, + .02277, .01788, 138.52704, 5.62873, 5.11485, + 4.38960, 5.35997, 5.63399, + .02343, .01823, 146.81166, 5.97381, 5.46178, + 4.74271, 5.70606, 5.97916, + .02407, .01857, 155.00406, 6.31838, 5.80810, + 5.09491, 6.05159, 6.32380, + .02469, .01890, 162.90463, 6.65632, 6.14773, + 5.44012, 6.39044, 6.66181 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + .01005, .01120, 7.55538, .65380, .10123, + .00000, .36365, .65720, + .01167, .01208, 13.94982, .88955, .34371, + .00000, .60303, .89316, + .01312, .01287, 21.11500, 1.14913, .60891, + .00000, .86565, 1.15294, + .01443, .01358, 28.77708, 1.42523, .88983, + .08117, 1.14435, 1.42920, + .01566, .01424, 36.69506, 1.71325, 1.18212, + .40625, 1.43467, 1.71736, + .01681, .01486, 44.86610, 2.01256, 1.48527, + .72210, 1.73605, 2.01680, + .01789, .01544, 53.09635, 2.31811, 1.79431, + 1.04338, 2.04348, 2.32248 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + .01892, .01599, 61.33392, 2.62803, 2.10743, + 1.36764, 2.35513, 2.63251, + .01989, .01651, 69.54469, 2.94103, 2.42340, + 1.69375, 2.66974, 2.94562, + .02083, .01701, 77.68748, 3.25570, 2.74082, + 2.02049, 2.98589, 3.26039, + .02172, .01749, 85.73888, 3.57108, 3.05877, + 2.34706, 3.30266, 3.57587, + .02258, .01794, 93.64872, 3.88554, 3.37565, + 2.67194, 3.61842, 3.89042, + .02341, .01838, 101.38567, 4.19787, 3.69026, + 2.99403, 3.93198, 4.20283, + .02421, .01881, 109.00049, 4.50918, 4.00373, + 3.31450, 4.24445, 4.51423 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + .02499, .01922, 116.50704, 4.81968, 4.31628, + 3.63364, 4.55606, 4.82481, + .02573, .01961, 123.78921, 5.12582, 4.62436, + 3.94794, 4.86325, 5.13102, + .02646, .02000, 130.92732, 5.42963, 4.93004, + 4.25950, 5.16806, 5.43491, + .02716, .02037, 137.96928, 5.73240, 5.23458, + 4.56962, 5.47179, 5.73775, + .02785, .02073, 144.74129, 6.02873, 5.53261, + 4.87296, 5.76903, 6.03414 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + .01559, .01458, 6.86180, .60411, .08812, + .00000, .33309, .60797, + .01791, .01583, 12.00302, .79622, .28719, + .00000, .52891, .80029, + .01997, .01694, 17.53698, 1.00131, .49810, + .00000, .73709, 1.00555, + .02184, .01793, 23.27461, 1.21426, .71606, + .06277, .95271, 1.21867, + .02356, .01885, 29.05490, 1.43206, .93829, + .31175, 1.17287, 1.43661, + .02518, .01970, 34.89369, 1.65460, 1.16481, + .54922, 1.39752, 1.65928, + .02669, .02050, 40.66394, 1.87842, 1.39227, + .78715, 1.62328, 1.88323 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + .02812, .02126, 46.34280, 2.10248, 1.61965, + 1.02404, 1.84909, 2.10739, + .02948, .02197, 51.91821, 2.32608, 1.84634, + 1.25939, 2.07433, 2.33111, + .03077, .02265, 57.37167, 2.54846, 2.07157, + 1.49258, 2.29823, 2.55359, + .03201, .02330, 62.69605, 2.76913, 2.29492, + 1.72328, 2.52031, 2.77435, + .03319, .02392, 67.86456, 2.98712, 2.51542, + 1.95061, 2.73964, 2.99244, + .03433, .02451, 72.86330, 3.20177, 2.73244, + 2.17400, 2.95554, 3.20717, + .03542, .02509, 77.73354, 3.41402, 2.94693, + 2.39446, 3.16898, 3.41950 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + .03647, .02564, 82.48990, 3.62415, 3.15919, + 2.61233, 3.38024, 3.62972, + .03749, .02617, 87.05855, 3.82981, 3.36687, + 2.82532, 3.58697, 3.83545, + .03847, .02668, 91.49846, 4.03254, 3.57154, + 3.03499, 3.79072, 4.03826, + .03943, .02717, 95.84518, 4.23335, 3.77419, + 3.24239, 3.99251, 4.23914, + .04035, .02765, 99.98647, 4.42857, 3.97119, + 3.44390, 4.18867, 4.43443 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + .02386, .01914, 6.20742, .55573, .07616, + .00000, .30408, .56048, + .02719, .02089, 10.28419, .70990, .23765, + .00000, .46216, .71493, + .03012, .02243, 14.49868, .86954, .40340, + .00000, .62506, .87480, + .03276, .02381, 18.73262, 1.03139, .57051, + .04801, .78972, 1.03686, + .03518, .02508, 22.88749, 1.19367, .73745, + .23663, .95448, 1.19933, + .03743, .02626, 26.99244, 1.35666, .90464, + .41319, 1.11971, 1.36250, + .03954, .02735, 30.96924, 1.51814, 1.06995, + .58740, 1.28323, 1.52416 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + .04152, .02838, 34.81436, 1.67763, 1.23294, + .75846, 1.44458, 1.68380, + .04339, .02936, 38.52969, 1.83488, 1.39343, + .92630, 1.60356, 1.84119, + .04517, .03028, 42.11097, 1.98954, 1.55110, + 1.09072, 1.75982, 1.99598, + .04686, .03115, 45.56064, 2.14144, 1.70582, + 1.25167, 1.91322, 2.14801, + .04848, .03199, 48.86668, 2.29007, 1.85710, + 1.40873, 2.06326, 2.29677, + .05002, .03278, 52.02520, 2.43510, 2.00463, + 1.56165, 2.20962, 2.44191, + .05151, .03355, 55.06923, 2.57734, 2.14922, + 1.71130, 2.35311, 2.58426 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + .05293, .03428, 58.01244, 2.71708, 2.29121, + 1.85803, 2.49404, 2.72411, + .05431, .03499, 60.80869, 2.85279, 2.42905, + 2.00035, 2.63088, 2.85992, + .05563, .03567, 63.50077, 2.98563, 2.56393, + 2.13946, 2.76481, 2.99286, + .05691, .03632, 66.11463, 3.11638, 2.69662, + 2.27616, 2.89659, 3.12371, + .05815, .03696, 68.57877, 3.24259, 2.82470, + 2.40805, 3.02379, 3.25001 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + .03049, .02258, 5.83487, .52749, .06962, + .00000, .28750, .53299, + .03458, .02471, 9.36219, .66176, .21146, + .00000, .42584, .66761, + .03817, .02658, 12.92239, .79833, .35436, + .00000, .56582, .80448, + .04139, .02825, 16.43183, .93486, .49635, + .04075, .70529, .94128, + .04433, .02978, 19.82119, 1.07016, .63648, + .19998, .84318, 1.07683, + .04706, .03119, 23.12483, 1.20468, .77535, + .34737, .98004, 1.21157, + .04960, .03250, 26.28631, 1.33676, .91139, + .49147, 1.11425, 1.34386 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + .05199, .03373, 29.30975, 1.46615, 1.04442, + .63180, 1.24559, 1.47345, + .05423, .03489, 32.20228, 1.59280, 1.17442, + .76845, 1.37404, 1.60027, + .05636, .03598, 34.96506, 1.71651, 1.30126, + .90139, 1.49944, 1.72416, + .05839, .03702, 37.60386, 1.83728, 1.42495, + 1.03071, 1.62177, 1.84509, + .06031, .03801, 40.11234, 1.95475, 1.54517, + 1.15615, 1.74072, 1.96272, + .06215, .03895, 42.49025, 2.06875, 1.66175, + 1.27761, 1.85610, 2.07686, + .06391, .03985, 44.76618, 2.17999, 1.77544, + 1.39586, 1.96865, 2.18823 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + .06560, .04071, 46.95271, 2.28876, 1.88653, + 1.51124, 2.07868, 2.29714, + .06722, .04154, 49.01532, 2.39389, 1.99387, + 1.62261, 2.18499, 2.40240, + .06879, .04234, 50.98907, 2.49636, 2.09845, + 1.73101, 2.28859, 2.50498, + .07030, .04311, 52.89544, 2.59681, 2.20092, + 1.83710, 2.39013, 2.60556, + .07176, .04385, 54.67988, 2.69335, 2.29939, + 1.93900, 2.48770, 2.70221 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + .03625, .02550, 5.57143, .50723, .06514, + .00000, .27575, .51336, + .04097, .02795, 8.73703, .62827, .19397, + .00000, .40101, .63482, + .04510, .03009, 11.87738, .74984, .32205, + .00000, .52611, .75675, + .04880, .03200, 14.93049, .87016, .44798, + .03613, .64947, .87740, + .05216, .03374, 17.84471, .98840, .57118, + .17673, .77039, .99591, + .05528, .03534, 20.65707, 1.10508, .69233, + .30584, .88950, 1.11287, + .05817, .03683, 23.32401, 1.21890, .81023, + .43122, 1.00552, 1.22693 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + .06088, .03822, 25.85369, 1.32975, .92481, + .55259, 1.11839, 1.33801, + .06343, .03953, 28.25593, 1.43767, 1.03618, + .67014, 1.22818, 1.44614, + .06584, .04076, 30.53469, 1.54257, 1.14429, + .78391, 1.33482, 1.55124, + .06813, .04193, 32.69736, 1.64450, 1.24922, + .89407, 1.43837, 1.65336, + .07030, .04304, 34.74057, 1.74322, 1.35077, + 1.00047, 1.53862, 1.75227, + .07237, .04409, 36.66591, 1.83864, 1.44884, + 1.10306, 1.63547, 1.84785, + .07435, .04510, 38.49898, 1.93139, 1.54410, + 1.20255, 1.72958, 1.94076 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + .07625, .04606, 40.25151, 2.02178, 1.63688, + 1.29930, 1.82127, 2.03131, + .07807, .04699, 41.89557, 2.10882, 1.72619, + 1.39236, 1.90954, 2.11850, + .07982, .04788, 43.46149, 2.19340, 1.81292, + 1.48263, 1.99528, 2.20322, + .08151, .04874, 44.96783, 2.27607, 1.89767, + 1.57073, 2.07908, 2.28603, + .08313, .04956, 46.36988, 2.35525, 1.97883, + 1.65508, 2.15933, 2.36534 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + .04149, .02825, 5.35912, .49087, .06169, + .00000, .26626, .49742, + .04676, .03098, 8.25239, .60200, .18077, + .00000, .38170, .60900, + .05134, .03335, 11.08269, .71250, .29792, + .00000, .49580, .71990, + .05543, .03547, 13.80358, .82097, .41212, + .03276, .60737, .82872, + .05915, .03738, 16.37584, .92683, .52304, + .15985, .71597, .93489, + .06258, .03915, 18.83802, 1.03067, .63145, + .27577, .82229, 1.03902, + .06576, .04078, 21.15543, 1.13143, .73636, + .38774, .92530, 1.14005 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + .06874, .04231, 23.33873, 1.22908, .83782, + .49560, 1.02501, 1.23795, + .07153, .04374, 25.39916, 1.32373, .93599, + .59959, 1.12156, 1.33283, + .07417, .04509, 27.34246, 1.41537, 1.03090, + .69984, 1.21497, 1.42468, + .07666, .04636, 29.17710, 1.50408, 1.12267, + .79653, 1.30534, 1.51360, + .07903, .04757, 30.90140, 1.58969, 1.21115, + .88958, 1.39251, 1.59941, + .08128, .04871, 32.51793, 1.67215, 1.29631, + .97900, 1.47643, 1.68205, + .08344, .04981, 34.05024, 1.75207, 1.37878, + 1.06546, 1.55773, 1.76214 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + .08550, .05086, 35.50927, 1.82973, 1.45887, + 1.14928, 1.63671, 1.83997, + .08748, .05186, 36.87117, 1.90429, 1.53574, + 1.22967, 1.71251, 1.91469, + .08938, .05282, 38.16330, 1.97654, 1.61018, + 1.30745, 1.78595, 1.98709, + .09121, .05375, 39.40215, 2.04701, 1.68276, + 1.38317, 1.85756, 2.05771, + .09297, .05463, 40.54940, 2.11430, 1.75206, + 1.45547, 1.92594, 2.12514 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + .06294, .03930, 4.70337, .43893, .05154, + .00000, .23683, .44739, + .07021, .04308, 6.84471, .52217, .14331, + .00000, .32474, .53127, + .07648, .04633, 8.84766, .60236, .23062, + .00000, .40883, .61201, + .08201, .04919, 10.70421, .67909, .31348, + .02380, .48892, .68922, + .08699, .05176, 12.40457, .75235, .39215, + .11515, .56513, .76290, + .09156, .05411, 13.98867, .82285, .46751, + .19677, .63829, .83380, + .09577, .05627, 15.44226, .89007, .53915, + .27424, .70793, .90138 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + .09968, .05827, 16.78052, .95421, .60733, + .34770, .77428, .96585, + .10333, .06013, 18.01706, 1.01549, .67234, + .41750, .83760, 1.02743, + .10675, .06187, 19.16042, 1.07403, .73435, + .48389, .89803, 1.08626, + .10997, .06351, 20.21995, 1.13001, .79356, + .54715, .95578, 1.14251, + .11301, .06505, 21.19762, 1.18339, .84998, + .60732, 1.01083, 1.19615, + .11589, .06651, 22.09775, 1.23423, .90367, + .66450, 1.06322, 1.24722, + .11863, .06789, 22.93754, 1.28300, .95513, + .71922, 1.11346, 1.29622 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + .12125, .06921, 23.72552, 1.32995, 1.00464, + .77179, 1.16181, 1.34338, + .12374, .07046, 24.44806, 1.37456, 1.05167, + .82170, 1.20774, 1.38820, + .12612, .07165, 25.12359, 1.41740, 1.09682, + .86958, 1.25185, 1.43124, + .12841, .07280, 25.76330, 1.45886, 1.14049, + .91582, 1.29452, 1.47289, + .13060, .07390, 26.34430, 1.49806, 1.18179, + .95957, 1.33486, 1.51226 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + .09497, .05620, 4.02867, .38351, .04206, + .00000, .20623, .39463, + .10471, .06130, 5.54361, .44285, .11048, + .00000, .27059, .45485, + .11300, .06561, 6.89291, .49819, .17337, + .00000, .33009, .51093, + .12024, .06935, 8.09380, .54974, .23138, + .01673, .38521, .56312, + .12669, .07266, 9.15397, .59779, .28511, + .08021, .43639, .61173, + .13254, .07566, 10.11107, .64307, .33550, + .13569, .48449, .65753, + .13788, .07838, 10.96294, .68543, .38247, + .18737, .52939, .70034 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + .14280, .08087, 11.72521, .72513, .42638, + .23554, .57141, .74046, + .14735, .08317, 12.41156, .76244, .46758, + .28059, .61086, .77815, + .15159, .08530, 13.03038, .79754, .50628, + .32282, .64795, .81361, + .15557, .08729, 13.59003, .83063, .54272, + .36251, .68289, .84704, + .15929, .08915, 14.09411, .86175, .57697, + .39977, .71573, .87847, + .16278, .09089, 14.54675, .89099, .60915, + .43474, .74658, .90799, + .16609, .09253, 14.95990, .91870, .63964, + .46784, .77582, .93597 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + .16924, .09408, 15.33978, .94507, .66864, + .49928, .80364, .96261, + .17221, .09555, 15.67906, .96982, .69587, + .52881, .82975, .98759, + .17504, .09694, 15.98942, .99333, .72174, + .55685, .85455, 1.01132, + .17776, .09826, 16.27810, 1.01586, .74654, + .58370, .87834, 1.03408, + .18033, .09952, 16.53209, 1.03689, .76971, + .60882, .90054, 1.05531 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + .12040, .06995, 3.62693, .34937, .03685, + -.00001, .18787, .36272, + .13177, .07589, 4.83397, .39662, .09342, + -.00001, .24031, .41102, + .14134, .08084, 5.87577, .43983, .14434, + -.00001, .28780, .45509, + .14963, .08510, 6.77809, .47940, .19051, + .01335, .33104, .49541, + .15695, .08883, 7.55504, .51573, .23262, + .06372, .37057, .53238, + .16356, .09217, 8.24125, .54951, .27158, + .10713, .40722, .56674, + .16955, .09519, 8.83889, .58069, .30744, + .14710, .44100, .59844 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + .17502, .09793, 9.36271, .60958, .34059, + .18394, .47224, .62779, + .18007, .10043, 9.82512, .63643, .37136, + .21806, .50126, .65506, + .18474, .10275, 10.23402, .66143, .39998, + .24975, .52826, .68045, + .18909, .10488, 10.59686, .68476, .42668, + .27927, .55346, .70415, + .19315, .10687, 10.91750, .70649, .45156, + .30675, .57692, .72621, + .19694, .10872, 11.19916, .72670, .47472, + .33233, .59876, .74673, + .20052, .11045, 11.45150, .74569, .49649, + .35636, .61928, .76600 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + .20390, .11208, 11.67951, .76362, .51705, + .37904, .63867, .78421, + .20708, .11361, 11.87815, .78029, .53620, + .40018, .65670, .80113, + .21010, .11505, 12.05624, .79599, .55427, + .42011, .67370, .81707, + .21299, .11642, 12.21919, .81094, .57147, + .43909, .68990, .83225, + .21570, .11771, 12.35743, .82474, .58741, + .45671, .70487, .84626 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + .14222, .08199, 3.33873, .32435, .03331, + -.00001, .17463, .33968, + .15476, .08849, 4.35279, .36388, .08225, + -.00001, .21941, .38038, + .16524, .09387, 5.20684, .39951, .12565, + -.00001, .25937, .41695, + .17424, .09844, 5.93087, .43172, .16449, + .01127, .29528, .44998, + .18215, .10242, 6.54166, .46094, .19951, + .05357, .32773, .47989, + .18924, .10596, 7.07153, .48782, .23158, + .08966, .35750, .50739, + .19563, .10913, 7.52453, .51239, .26082, + .12260, .38466, .53250 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + .20144, .11198, 7.91449, .53492, .28762, + .15272, .40955, .55553, + .20677, .11458, 8.25281, .55568, .31228, + .18040, .43248, .57673, + .21168, .11696, 8.54676, .57485, .33505, + .20592, .45364, .59629, + .21624, .11915, 8.80305, .59258, .35615, + .22954, .47324, .61441, + .22047, .12117, 9.02525, .60897, .37565, + .25138, .49135, .63113, + .22440, .12304, 9.21634, .62408, .39369, + .27159, .50807, .64654, + .22809, .12478, 9.38434, .63817, .41054, + .29045, .52368, .66092 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + .23158, .12642, 9.53342, .65139, .42636, + .30817, .53834, .67442, + .23484, .12794, 9.65971, .66357, .44100, + .32458, .55187, .68684, + .23793, .12937, 9.77036, .67496, .45472, + .33998, .56455, .69847, + .24086, .13072, 9.86969, .68574, .46773, + .35457, .57656, .70947, + .24362, .13198, 9.95021, .69559, .47970, + .36804, .58757, .71953 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + .16165, .09284, 3.11496, .30458, .03067, + .00000, .16432, .32177, + .17508, .09974, 3.99381, .33862, .07414, + .00000, .20364, .35706, + .18621, .10539, 4.71873, .36894, .11223, + .00000, .23831, .38839, + .19573, .11016, 5.32219, .39605, .14597, + .00982, .26912, .41635, + .20403, .11427, 5.82217, .42041, .17611, + .04654, .29670, .44143, + .21145, .11791, 6.24899, .44261, .20348, + .07760, .32179, .46428, + .21809, .12114, 6.60758, .46273, .22824, + .10575, .34449, .48494 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + .22410, .12403, 6.91136, .48102, .25076, + .13132, .36513, .50373, + .22959, .12665, 7.17048, .49774, .27135, + .15467, .38399, .52090, + .23463, .12903, 7.39177, .51305, .29025, + .17608, .40129, .53661, + .23928, .13122, 7.58139, .52712, .30763, + .19578, .41719, .55105, + .24358, .13322, 7.74236, .54001, .32361, + .21389, .43179, .56427, + .24757, .13505, 7.87775, .55181, .33830, + .23056, .44518, .57637, + .25130, .13676, 7.99427, .56273, .35195, + .24606, .45761, .58758 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + .25481, .13835, 8.09553, .57292, .36471, + .26054, .46921, .59802, + .25808, .13983, 8.17855, .58222, .37643, + .27389, .47984, .60756, + .26116, .14121, 8.24908, .59087, .38738, + .28636, .48976, .61643, + .26409, .14250, 8.31077, .59901, .39772, + .29814, .49911, .62479, + .26682, .14371, 8.35762, .60637, .40716, + .30895, .50761, .63234 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + .23874, .13656, 2.43307, .24201, .02312, + .00000, .13268, .26734, + .25436, .14401, 2.96786, .26179, .05208, + .00000, .15763, .28847, + .26694, .14986, 3.37490, .27863, .07644, + .00000, .17869, .30635, + .27741, .15461, 3.68921, .29308, .09727, + .00615, .19671, .32165, + .28630, .15856, 3.92993, .30554, .11526, + .02879, .21224, .33476, + .29407, .16194, 4.12127, .31648, .13113, + .04743, .22591, .34627, + .30088, .16483, 4.26914, .32601, .14507, + .06389, .23788, .35627 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + .30690, .16733, 4.38364, .33436, .15742, + .07850, .24843, .36501, + .31229, .16954, 4.47248, .34172, .16843, + .09155, .25779, .37271, + .31714, .17147, 4.54050, .34821, .17828, + .10326, .26613, .37949, + .32153, .17319, 4.59195, .35396, .18714, + .11382, .27357, .38549, + .32552, .17471, 4.62870, .35903, .19509, + .12335, .28022, .39078, + .32913, .17606, 4.65289, .36348, .20223, + .13195, .28613, .39541, + .33245, .17728, 4.66855, .36745, .20873, + .13980, .29146, .39954 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + .33552, .17839, 4.67773, .37102, .21468, + .14702, .29632, .40326, + .33833, .17937, 4.67874, .37412, .22002, + .15355, .30063, .40648, + .34092, .18026, 4.67473, .37689, .22490, + .15955, .30454, .40934, + .34334, .18108, 4.66765, .37940, .22943, + .16513, .30814, .41195, + .34556, .18179, 4.65446, .38151, .23345, + .17014, .31127, .41413 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + .34706, .19651, 1.81832, .18047, .01673, + -.00001, .10310, .21812, + .36223, .20200, 2.10712, .18997, .03473, + -.00001, .11726, .22834, + .37379, .20585, 2.29826, .19739, .04909, + -.00002, .12845, .23623, + .38289, .20866, 2.42558, .20327, .06079, + .00353, .13747, .24237, + .39019, .21071, 2.50654, .20789, .07045, + .01635, .14477, .24711, + .39625, .21224, 2.55879, .21160, .07863, + .02653, .15085, .25088, + .40128, .21335, 2.58771, .21452, .08552, + .03523, .15585, .25378 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + .40546, .21416, 2.60003, .21679, .09138, + .04271, .16001, .25599, + .40901, .21471, 2.60077, .21855, .09641, + .04920, .16347, .25767, + .41202, .21507, 2.59289, .21990, .10075, + .05486, .16637, .25890, + .41458, .21528, 2.57872, .22091, .10450, + .05984, .16879, .25977, + .41673, .21536, 2.55931, .22160, .10774, + .06419, .17079, .26031, + .41856, .21530, 2.53583, .22202, .11053, + .06801, .17242, .26057, + .42012, .21518, 2.51024, .22225, .11298, + .07142, .17378, .26062 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + .42146, .21500, 2.48344, .22234, .11514, + .07448, .17491, .26053, + .42256, .21473, 2.45447, .22223, .11698, + .07716, .17579, .26025, + .42348, .21442, 2.42491, .22201, .11860, + .07956, .17650, .25984, + .42428, .21409, 2.39555, .22172, .12005, + .08175, .17708, .25936, + .42489, .21368, 2.36481, .22127, .12125, + .08364, .17745, .25872 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + .42675, .23609, 1.51999, .14610, .01356, + .00000, .08705, .19170, + .43873, .23821, 1.69520, .15106, .02656, + .00000, .09618, .19638, + .44710, .23909, 1.79249, .15448, .03649, + .00000, .10294, .19938, + .45314, .23924, 1.84325, .15680, .04425, + .00242, .10801, .20121, + .45745, .23888, 1.86240, .15829, .05041, + .01107, .11183, .20214, + .46064, .23822, 1.86397, .15921, .05544, + .01774, .11479, .20253, + .46291, .23730, 1.85200, .15963, .05952, + .02330, .11702, .20240 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + .46448, .23622, 1.83150, .15969, .06288, + .02797, .11868, .20192, + .46552, .23503, 1.80576, .15948, .06565, + .03192, .11992, .20120, + .46612, .23377, 1.77665, .15907, .06795, + .03529, .12081, .20026, + .46638, .23247, 1.74551, .15850, .06986, + .03817, .12143, .19917, + .46635, .23113, 1.71298, .15778, .07144, + .04065, .12180, .19795, + .46605, .22975, 1.67962, .15695, .07274, + .04277, .12197, .19663, + .46559, .22836, 1.64654, .15604, .07381, + .04461, .12200, .19527 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + .46500, .22699, 1.61413, .15509, .07471, + .04623, .12193, .19390, + .46422, .22561, 1.58170, .15408, .07544, + .04761, .12172, .19242, + .46335, .22424, 1.55009, .15304, .07602, + .04882, .12144, .19095, + .46243, .22289, 1.51966, .15200, .07652, + .04990, .12111, .18951, + .46137, .22152, 1.48938, .15090, .07686, + .05080, .12068, .18800 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + .48940, .26238, 1.33993, .12215, .01145, + .00001, .07563, .17207, + .49675, .26076, 1.44156, .12443, .02141, + .00000, .08165, .17302, + .50088, .25852, 1.48196, .12557, .02872, + .00000, .08573, .17286, + .50306, .25596, 1.48895, .12594, .03421, + .00178, .08852, .17204, + .50382, .25322, 1.47496, .12575, .03840, + .00805, .09038, .17072, + .50371, .25044, 1.45092, .12525, .04171, + .01277, .09163, .16915, + .50291, .24761, 1.41978, .12444, .04430, + .01661, .09238, .16736 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + .50160, .24483, 1.38498, .12346, .04633, + .01976, .09276, .16542, + .49996, .24208, 1.34874, .12234, .04794, + .02237, .09287, .16344, + .49806, .23939, 1.31211, .12114, .04921, + .02455, .09278, .16141, + .49596, .23677, 1.27590, .11989, .05022, + .02638, .09254, .15939, + .49370, .23422, 1.24028, .11860, .05100, + .02792, .09216, .15734, + .49131, .23171, 1.20548, .11727, .05160, + .02920, .09168, .15530, + .48886, .22929, 1.17211, .11595, .05205, + .03030, .09113, .15331 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + .48638, .22696, 1.14028, .11465, .05239, + .03124, .09054, .15137, + .48383, .22467, 1.10942, .11334, .05261, + .03201, .08989, .14943, + .48127, .22245, 1.07997, .11203, .05275, + .03267, .08921, .14755, + .47875, .22030, 1.05207, .11076, .05285, + .03324, .08853, .14574, + .47614, .21819, 1.02500, .10948, .05284, + .03369, .08780, .14393 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + .53929, .27890, 1.21398, .10346, .00981, + -.00001, .06625, .15472, + .54114, .27361, 1.26114, .10401, .01766, + .00000, .07010, .15300, + .54051, .26836, 1.26224, .10371, .02317, + -.00001, .07240, .15072, + .53845, .26331, 1.24096, .10293, .02717, + .00135, .07372, .14817, + .53541, .25842, 1.20707, .10179, .03012, + .00606, .07435, .14542, + .53186, .25378, 1.16874, .10049, .03235, + .00952, .07457, .14268, + .52793, .24930, 1.12782, .09905, .03402, + .01229, .07445, .13993 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + .52376, .24504, 1.08665, .09754, .03527, + .01449, .07411, .13722, + .51947, .24098, 1.04648, .09600, .03621, + .01630, .07362, .13456, + .51513, .23710, 1.00784, .09447, .03690, + .01776, .07301, .13199, + .51076, .23343, .97101, .09295, .03741, + .01898, .07234, .12950, + .50641, .22989, .93593, .09143, .03776, + .01997, .07160, .12709, + .50206, .22650, .90260, .08994, .03798, + .02078, .07080, .12476, + .49777, .22326, .87128, .08850, .03811, + .02146, .07000, .12252 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + .49357, .22018, .84192, .08710, .03817, + .02201, .06920, .12038, + .48940, .21720, .81400, .08572, .03815, + .02246, .06837, .11831, + .48531, .21434, .78775, .08439, .03809, + .02283, .06755, .11630, + .48134, .21162, .76316, .08311, .03800, + .02315, .06674, .11437, + .47738, .20895, .73967, .08184, .03785, + .02337, .06592, .11251 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + .58699, .28906, 1.09215, .08444, .00812, + .00000, .05602, .13431, + .58133, .27958, 1.08790, .08359, .01405, + -.00001, .05800, .13033, + .57436, .27102, 1.05487, .08223, .01801, + -.00001, .05882, .12634, + .56689, .26325, 1.01103, .08063, .02076, + .00099, .05898, .12252, + .55907, .25610, .96271, .07888, .02266, + .00435, .05870, .11881, + .55130, .24952, .91517, .07711, .02404, + .00678, .05818, .11530, + .54360, .24336, .86910, .07532, .02500, + .00866, .05747, .11199 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + .53601, .23765, .82556, .07356, .02568, + .01013, .05666, .10882, + .52863, .23231, .78499, .07186, .02613, + .01130, .05580, .10583, + .52147, .22731, .74735, .07020, .02641, + .01224, .05489, .10306, + .51454, .22262, .71254, .06862, .02658, + .01299, .05398, .10041, + .50781, .21820, .68025, .06709, .02665, + .01358, .05306, .09789, + .50126, .21401, .65029, .06563, .02663, + .01405, .05214, .09551, + .49497, .21005, .62265, .06422, .02657, + .01442, .05124, .09326 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + .48892, .20630, .59713, .06288, .02647, + .01473, .05036, .09113, + .48301, .20271, .57330, .06159, .02632, + .01497, .04950, .08910, + .47731, .19929, .55119, .06034, .02615, + .01514, .04866, .08717, + .47185, .19605, .53070, .05915, .02596, + .01527, .04786, .08535, + .46646, .19294, .51143, .05801, .02575, + .01537, .04706, .08358 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + .62061, .29034, .98813, .06862, .00669, + -.00004, .04690, .11481, + .60721, .27723, .94614, .06695, .01122, + -.00003, .04767, .10953, + .59391, .26592, .89055, .06505, .01410, + -.00002, .04758, .10467, + .58114, .25599, .83346, .06309, .01600, + .00070, .04708, .10026, + .56879, .24703, .77809, .06110, .01725, + .00319, .04630, .09618, + .55710, .23896, .72718, .05918, .01809, + .00492, .04541, .09246, + .54590, .23157, .68040, .05735, .01864, + .00625, .04445, .08899 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + .53523, .22481, .63792, .05558, .01897, + .00726, .04345, .08581, + .52512, .21857, .59951, .05392, .01915, + .00804, .04246, .08286, + .51549, .21279, .56478, .05236, .01922, + .00864, .04148, .08010, + .50635, .20742, .53337, .05086, .01922, + .00911, .04053, .07756, + .49761, .20241, .50479, .04945, .01915, + .00948, .03959, .07520, + .48922, .19770, .47874, .04812, .01904, + .00975, .03868, .07296, + .48125, .19328, .45502, .04687, .01889, + .00997, .03781, .07087 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + .47367, .18913, .43338, .04568, .01872, + .01013, .03698, .06892, + .46636, .18519, .41348, .04453, .01853, + .01023, .03618, .06708, + .45936, .18147, .39520, .04346, .01833, + .01031, .03541, .06534, + .45268, .17797, .37841, .04244, .01813, + .01038, .03467, .06370, + .44619, .17460, .36280, .04147, .01790, + .01040, .03396, .06214 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + .64179, .28490, .89191, .05527, .00546, + -.00002, .03877, .09648, + .62075, .26891, .82319, .05325, .00890, + -.00001, .03871, .09061, + .60140, .25548, .75364, .05115, .01098, + -.00002, .03810, .08548, + .58370, .24390, .68985, .04912, .01228, + .00053, .03723, .08095, + .56720, .23367, .63225, .04713, .01309, + .00235, .03623, .07691, + .55196, .22457, .58159, .04529, .01360, + .00359, .03520, .07327, + .53770, .21637, .53677, .04358, .01388, + .00450, .03415, .06995 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + .52439, .20890, .49720, .04197, .01401, + .00520, .03312, .06697, + .51196, .20209, .46224, .04044, .01404, + .00571, .03214, .06425, + .50030, .19583, .43128, .03903, .01400, + .00610, .03121, .06174, + .48933, .19007, .40376, .03772, .01391, + .00640, .03030, .05944, + .47896, .18474, .37907, .03648, .01379, + .00664, .02944, .05731, + .46914, .17975, .35694, .03533, .01364, + .00678, .02862, .05533, + .45988, .17509, .33699, .03425, .01346, + .00690, .02784, .05350 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + .45112, .17075, .31898, .03323, .01328, + .00698, .02711, .05182, + .44271, .16667, .30262, .03229, .01310, + .00704, .02640, .05020, + .43474, .16282, .28770, .03140, .01290, + .00706, .02573, .04871, + .42719, .15919, .27409, .03055, .01270, + .00708, .02510, .04732, + .41988, .15575, .26159, .02975, .01250, + .00707, .02449, .04600 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + .65185, .27447, .79962, .04401, .00442, + -.00002, .03156, .07962, + .62362, .25627, .71320, .04188, .00702, + -.00002, .03104, .07373, + .59873, .24126, .63624, .03979, .00853, + -.00002, .03016, .06873, + .57660, .22857, .57041, .03787, .00943, + .00038, .02914, .06442, + .55649, .21745, .51382, .03603, .00993, + .00173, .02809, .06066, + .53824, .20769, .46569, .03435, .01022, + .00264, .02707, .05732, + .52141, .19901, .42431, .03282, .01035, + .00330, .02606, .05433 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + .50591, .19117, .38863, .03141, .01037, + .00376, .02511, .05166, + .49159, .18407, .35770, .03010, .01033, + .00412, .02420, .04925, + .47830, .17760, .33077, .02889, .01025, + .00437, .02336, .04705, + .46593, .17167, .30712, .02777, .01012, + .00456, .02256, .04507, + .45431, .16621, .28623, .02675, .00998, + .00469, .02182, .04323, + .44338, .16115, .26770, .02580, .00981, + .00479, .02110, .04157, + .43313, .15645, .25118, .02491, .00965, + .00485, .02044, .04001 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + .42352, .15208, .23640, .02408, .00950, + .00488, .01982, .03857, + .41440, .14798, .22311, .02328, .00931, + .00491, .01923, .03726, + .40576, .14414, .21110, .02255, .00914, + .00491, .01867, .03603, + .39760, .14056, .20023, .02187, .00898, + .00491, .01816, .03486, + .38979, .13714, .19029, .02122, .00880, + .00489, .01765, .03378 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + .65194, .26037, .71031, .03460, .00353, + -.00002, .02531, .06456, + .61722, .24060, .61373, .03252, .00550, + -.00002, .02455, .05900, + .58745, .22456, .53438, .03058, .00658, + -.00002, .02358, .05440, + .56156, .21116, .46983, .02882, .00719, + .00028, .02257, .05052, + .53837, .19964, .41641, .02723, .00751, + .00127, .02157, .04713, + .51763, .18955, .37222, .02577, .00765, + .00194, .02061, .04423, + .49876, .18066, .33508, .02447, .00771, + .00239, .01971, .04163 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + .48157, .17269, .30366, .02327, .00768, + .00273, .01887, .03933, + .46584, .16555, .27691, .02217, .00759, + .00298, .01809, .03727, + .45134, .15907, .25387, .02118, .00748, + .00315, .01736, .03542, + .43794, .15316, .23397, .02025, .00736, + .00327, .01668, .03378, + .42548, .14774, .21656, .01942, .00722, + .00335, .01605, .03226, + .41380, .14275, .20130, .01865, .00708, + .00339, .01547, .03087, + .40292, .13815, .18783, .01794, .00693, + .00342, .01492, .02960 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + .39276, .13389, .17587, .01728, .00677, + .00344, .01440, .02845, + .38315, .12992, .16516, .01667, .00663, + .00344, .01392, .02735, + .37411, .12620, .15558, .01609, .00649, + .00343, .01347, .02635, + .36561, .12273, .14697, .01555, .00634, + .00341, .01305, .02544, + .35749, .11946, .13913, .01505, .00621, + .00339, .01265, .02456 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + .64326, .24365, .62446, .02677, .00280, + .00004, .02000, .05145, + .60281, .22298, .52383, .02493, .00425, + .00003, .01913, .04644, + .56888, .20646, .44587, .02327, .00501, + .00004, .01816, .04236, + .53985, .19282, .38492, .02175, .00543, + .00025, .01722, .03897, + .51427, .18115, .33603, .02040, .00560, + .00096, .01633, .03609, + .49164, .17105, .29644, .01919, .00566, + .00143, .01549, .03363, + .47129, .16219, .26386, .01810, .00567, + .00175, .01472, .03144 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + .45289, .15433, .23678, .01712, .00559, + .00197, .01399, .02956, + .43617, .14731, .21402, .01622, .00551, + .00213, .01334, .02786, + .42089, .14098, .19473, .01541, .00541, + .00223, .01274, .02635, + .40685, .13525, .17818, .01469, .00529, + .00231, .01218, .02500, + .39384, .13003, .16390, .01405, .00517, + .00236, .01167, .02375, + .38178, .12522, .15148, .01342, .00505, + .00239, .01120, .02265, + .37058, .12081, .14060, .01286, .00492, + .00240, .01076, .02164 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + .36017, .11674, .13101, .01235, .00480, + .00241, .01035, .02070, + .35035, .11295, .12251, .01187, .00468, + .00239, .00997, .01986, + .34115, .10943, .11493, .01143, .00456, + .00238, .00962, .01908, + .33254, .10616, .10813, .01101, .00445, + .00236, .00930, .01836, + .32438, .10308, .10204, .01062, .00434, + .00234, .00899, .01767 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + .62660, .22561, .54304, .02069, .00204, + -.00014, .01540, .04026, + .58153, .20448, .44303, .01901, .00313, + -.00014, .01459, .03594, + .54437, .18781, .36909, .01756, .00371, + -.00011, .01373, .03246, + .51298, .17417, .31317, .01628, .00399, + .00005, .01292, .02960, + .48568, .16266, .26948, .01515, .00411, + .00060, .01215, .02721, + .46175, .15277, .23484, .01415, .00413, + .00096, .01145, .02518, + .44041, .14414, .20686, .01325, .00410, + .00118, .01081, .02342 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + .42124, .13657, .18387, .01248, .00404, + .00135, .01023, .02187, + .40397, .12980, .16486, .01177, .00396, + .00147, .00970, .02052, + .38828, .12373, .14891, .01113, .00387, + .00155, .00923, .01933, + .37393, .11829, .13537, .01057, .00377, + .00159, .00878, .01826, + .36076, .11335, .12382, .01004, .00367, + .00162, .00839, .01727, + .34859, .10880, .11381, .00958, .00357, + .00163, .00801, .01640, + .33734, .10466, .10512, .00914, .00347, + .00164, .00767, .01561 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + .32691, .10085, .09753, .00873, .00336, + .00165, .00736, .01490, + .31715, .09732, .09083, .00836, .00327, + .00165, .00707, .01425, + .30802, .09404, .08490, .00803, .00318, + .00163, .00680, .01364, + .29949, .09100, .07962, .00771, .00310, + .00160, .00654, .01308, + .29140, .08816, .07489, .00744, .00302, + .00159, .00631, .01255 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + .60362, .20616, .46640, .01546, .00162, + -.00003, .01181, .03099, + .55478, .18516, .37067, .01410, .00240, + -.00003, .01105, .02734, + .51515, .16879, .30265, .01291, .00278, + -.00003, .01029, .02448, + .48204, .15555, .25263, .01193, .00296, + .00009, .00960, .02215, + .45364, .14439, .21443, .01102, .00302, + .00047, .00896, .02022, + .42889, .13492, .18471, .01025, .00301, + .00071, .00839, .01858, + .40707, .12669, .16106, .00954, .00297, + .00088, .00788, .01718 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + .38763, .11949, .14194, .00893, .00291, + .00099, .00741, .01596, + .37019, .11312, .12628, .00838, .00283, + .00106, .00699, .01492, + .35440, .10747, .11328, .00790, .00274, + .00110, .00662, .01397, + .34008, .10236, .10238, .00747, .00267, + .00113, .00628, .01314, + .32697, .09775, .09310, .00710, .00258, + .00114, .00597, .01238, + .31492, .09357, .08517, .00673, .00250, + .00115, .00568, .01173, + .30382, .08974, .07833, .00641, .00243, + .00115, .00542, .01113 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + .29358, .08624, .07238, .00612, .00236, + .00114, .00519, .01056, + .28403, .08299, .06716, .00586, .00228, + .00114, .00496, .01007, + .27515, .08000, .06256, .00560, .00221, + .00113, .00475, .00962, + .26688, .07723, .05847, .00536, .00214, + .00112, .00457, .00920, + .25909, .07464, .05485, .00514, .00208, + .00110, .00439, .00882 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + .57500, .18653, .39581, .01147, .00120, + -.00005, .00886, .02343, + .52348, .16604, .30686, .01037, .00178, + -.00003, .00820, .02045, + .48225, .15021, .24577, .00942, .00204, + -.00004, .00757, .01813, + .44826, .13752, .20199, .00862, .00216, + .00006, .00701, .01628, + .41929, .12694, .16924, .00792, .00218, + .00034, .00650, .01478, + .39430, .11800, .14417, .00734, .00216, + .00051, .00605, .01348, + .37243, .11031, .12455, .00679, .00213, + .00062, .00565, .01239 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + .35307, .10358, .10885, .00630, .00206, + .00069, .00528, .01149, + .33578, .09768, .09615, .00590, .00200, + .00074, .00497, .01066, + .32024, .09244, .08571, .00556, .00194, + .00077, .00468, .00993, + .30620, .08777, .07701, .00524, .00188, + .00079, .00444, .00931, + .29339, .08356, .06966, .00497, .00181, + .00080, .00419, .00874, + .28172, .07974, .06344, .00469, .00175, + .00080, .00397, .00824, + .27100, .07625, .05812, .00445, .00169, + .00079, .00378, .00779 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + .26113, .07307, .05351, .00424, .00163, + .00079, .00360, .00738, + .25197, .07014, .04947, .00403, .00157, + .00078, .00343, .00703, + .24347, .06745, .04594, .00384, .00152, + .00077, .00328, .00669, + .23557, .06496, .04282, .00368, .00147, + .00076, .00315, .00637, + .22816, .06265, .04006, .00352, .00142, + .00074, .00302, .00609 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + .54192, .16692, .33163, .00833, .00090, + .00001, .00657, .01738, + .48875, .14731, .25111, .00745, .00131, + .00000, .00601, .01502, + .44676, .13230, .19744, .00673, .00150, + .00000, .00550, .01320, + .41252, .12033, .15986, .00610, .00156, + .00007, .00505, .01179, + .38360, .11048, .13233, .00557, .00157, + .00026, .00466, .01061, + .35882, .10219, .11157, .00513, .00155, + .00036, .00431, .00962, + .33726, .09506, .09550, .00475, .00151, + .00045, .00400, .00880 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + .31831, .08891, .08284, .00440, .00145, + .00049, .00372, .00810, + .30149, .08352, .07268, .00411, .00140, + .00052, .00348, .00750, + .28648, .07874, .06440, .00382, .00136, + .00054, .00327, .00697, + .27293, .07450, .05754, .00362, .00130, + .00056, .00306, .00650, + .26068, .07070, .05181, .00340, .00126, + .00056, .00289, .00608, + .24951, .06727, .04699, .00321, .00121, + .00055, .00274, .00572, + .23931, .06415, .04288, .00304, .00116, + .00055, .00260, .00539 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + .22997, .06131, .03935, .00288, .00112, + .00055, .00247, .00509, + .22132, .05871, .03627, .00273, .00108, + .00053, .00235, .00483, + .21331, .05633, .03358, .00261, .00104, + .00052, .00224, .00458, + .20588, .05413, .03121, .00251, .00100, + .00051, .00213, .00435, + .19895, .05209, .02914, .00239, .00097, + .00051, .00205, .00414 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + .50534, .14783, .27417, .00586, .00069, + .00006, .00480, .01269, + .45156, .12933, .20295, .00523, .00099, + .00004, .00435, .01082, + .40955, .11531, .15680, .00471, .00109, + .00005, .00394, .00944, + .37569, .10422, .12516, .00422, .00112, + .00008, .00359, .00839, + .34723, .09517, .10241, .00389, .00112, + .00021, .00329, .00746, + .32312, .08759, .08546, .00356, .00110, + .00028, .00302, .00672, + .30231, .08110, .07254, .00325, .00107, + .00033, .00280, .00613 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + .28402, .07554, .06246, .00301, .00102, + .00036, .00258, .00563, + .26794, .07070, .05445, .00280, .00098, + .00039, .00240, .00518, + .25364, .06640, .04797, .00259, .00094, + .00039, .00225, .00481, + .24084, .06263, .04265, .00243, .00090, + .00040, .00211, .00447, + .22929, .05925, .03826, .00227, .00085, + .00040, .00197, .00418, + .21878, .05621, .03456, .00214, .00083, + .00039, .00187, .00390, + .20921, .05345, .03142, .00203, .00079, + .00038, .00177, .00365 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + .20047, .05095, .02873, .00194, .00076, + .00037, .00167, .00343, + .19243, .04867, .02641, .00182, .00073, + .00037, .00159, .00325, + .18502, .04658, .02439, .00172, .00070, + .00037, .00151, .00308, + .17817, .04465, .02262, .00165, .00068, + .00036, .00143, .00293, + .17179, .04287, .02106, .00157, .00065, + .00035, .00137, .00279 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + .46628, .12970, .22370, .00417, .00049, + .00001, .00339, .00905, + .41283, .11249, .16205, .00368, .00068, + .00002, .00305, .00766, + .37164, .09956, .12311, .00325, .00076, + .00001, .00275, .00664, + .33861, .08943, .09695, .00294, .00078, + .00004, .00249, .00581, + .31121, .08119, .07843, .00265, .00078, + .00013, .00226, .00518, + .28807, .07436, .06482, .00242, .00076, + .00019, .00208, .00464, + .26823, .06854, .05459, .00219, .00073, + .00022, .00191, .00421 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + .25091, .06357, .04669, .00204, .00070, + .00024, .00176, .00384, + .23573, .05928, .04045, .00191, .00066, + .00025, .00163, .00351, + .22233, .05550, .03546, .00176, .00063, + .00025, .00152, .00324, + .21038, .05216, .03138, .00164, .00061, + .00026, .00142, .00300, + .19962, .04919, .02803, .00154, .00058, + .00026, .00132, .00279, + .18990, .04652, .02523, .00144, .00054, + .00025, .00124, .00261, + .18108, .04412, .02287, .00136, .00052, + .00025, .00117, .00245 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + .17304, .04195, .02085, .00129, .00051, + .00025, .00111, .00230, + .16569, .03997, .01912, .00120, .00049, + .00024, .00105, .00218, + .15891, .03815, .01762, .00113, .00046, + .00024, .00099, .00206, + .15266, .03649, .01631, .00108, .00044, + .00023, .00093, .00195, + .14686, .03496, .01516, .00103, .00042, + .00022, .00089, .00185 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + .42565, .11254, .17998, .00288, .00035, + .00002, .00237, .00633, + .37345, .09678, .12769, .00251, .00048, + .00003, .00211, .00531, + .33360, .08506, .09546, .00226, .00051, + .00002, .00187, .00455, + .30200, .07594, .07420, .00201, .00053, + .00005, .00168, .00399, + .27594, .06859, .05939, .00182, .00050, + .00009, .00152, .00351, + .25413, .06248, .04867, .00163, .00049, + .00013, .00138, .00317, + .23547, .05738, .04067, .00149, .00047, + .00015, .00126, .00285 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + .21935, .05301, .03456, .00138, .00045, + .00016, .00115, .00256, + .20526, .04922, .02979, .00128, .00043, + .00016, .00106, .00235, + .19287, .04592, .02598, .00118, .00041, + .00015, .00098, .00215, + .18186, .04303, .02291, .00110, .00039, + .00016, .00092, .00200, + .17202, .04045, .02038, .00103, .00037, + .00016, .00086, .00184, + .16315, .03815, .01829, .00096, .00035, + .00015, .00080, .00172, + .15513, .03607, .01652, .00091, .00033, + .00015, .00075, .00160 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + .14785, .03420, .01502, .00086, .00032, + .00016, .00072, .00149, + .14120, .03252, .01374, .00080, .00030, + .00016, .00067, .00142, + .13508, .03097, .01263, .00075, .00029, + .00015, .00063, .00134, + .12947, .02955, .01167, .00072, .00028, + .00014, .00060, .00126, + .12426, .02825, .01083, .00069, .00027, + .00014, .00057, .00119 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + .38432, .09654, .14250, .00189, .00027, + .00004, .00165, .00432, + .33409, .08230, .09906, .00167, .00033, + .00004, .00144, .00359, + .29619, .07180, .07288, .00146, .00036, + .00004, .00127, .00307, + .26635, .06371, .05592, .00131, .00037, + .00005, .00114, .00264, + .24192, .05721, .04431, .00117, .00036, + .00007, .00103, .00233, + .22160, .05187, .03599, .00106, .00034, + .00010, .00092, .00208, + .20436, .04740, .02986, .00095, .00033, + .00011, .00085, .00186 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + .18955, .04359, .02521, .00088, .00030, + .00011, .00077, .00168, + .17666, .04032, .02160, .00080, .00029, + .00012, .00071, .00153, + .16540, .03749, .01876, .00073, .00028, + .00011, .00065, .00141, + .15543, .03500, .01647, .00067, .00027, + .00011, .00061, .00128, + .14651, .03280, .01461, .00065, .00026, + .00012, .00057, .00116, + .13852, .03083, .01307, .00060, .00024, + .00012, .00053, .00110, + .13133, .02907, .01178, .00055, .00022, + .00012, .00050, .00103 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + .12483, .02749, .01068, .00051, .00021, + .00011, .00046, .00097, + .11888, .02606, .00975, .00048, .00021, + .00011, .00044, .00090, + .11344, .02476, .00895, .00046, .00020, + .00011, .00042, .00085, + .10846, .02358, .00825, .00043, .00019, + .00010, .00039, .00080, + .10385, .02249, .00764, .00041, .00018, + .00010, .00038, .00075 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + .34311, .08191, .11112, .00123, .00017, + .00004, .00110, .00292, + .29554, .06921, .07565, .00104, .00025, + .00003, .00097, .00239, + .25992, .05992, .05478, .00092, .00026, + .00003, .00086, .00200, + .23221, .05280, .04152, .00080, .00026, + .00004, .00076, .00173, + .20966, .04713, .03257, .00071, .00025, + .00006, .00068, .00152, + .19104, .04252, .02623, .00062, .00025, + .00007, .00061, .00133, + .17533, .03866, .02161, .00056, .00024, + .00008, .00056, .00120 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + .16187, .03541, .01815, .00053, .00022, + .00009, .00051, .00107, + .15025, .03263, .01548, .00048, .00021, + .00010, .00047, .00097, + .14011, .03022, .01338, .00043, .00020, + .00010, .00043, .00089, + .13118, .02812, .01170, .00040, .00019, + .00009, .00040, .00081, + .12326, .02626, .01035, .00037, .00017, + .00009, .00037, .00075, + .11616, .02462, .00923, .00036, .00017, + .00009, .00035, .00068, + .10981, .02315, .00830, .00033, .00016, + .00009, .00033, .00064 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + .10408, .02183, .00751, .00030, .00015, + .00009, .00031, .00060, + .09885, .02065, .00684, .00028, .00014, + .00008, .00028, .00056, + .09408, .01957, .00627, .00027, .00013, + .00008, .00026, .00053, + .08972, .01859, .00577, .00026, .00013, + .00008, .00025, .00050, + .08573, .01769, .00534, .00024, .00013, + .00008, .00024, .00046 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + .30286, .06877, .08531, .00086, .00008, + -.00002, .00067, .00190, + .25845, .05761, .05703, .00074, .00011, + -.00002, .00059, .00156, + .22559, .04954, .04072, .00064, .00013, + -.00001, .00052, .00130, + .20023, .04339, .03053, .00056, .00014, + .00000, .00046, .00109, + .17976, .03852, .02373, .00048, .00014, + .00001, .00041, .00097, + .16294, .03458, .01898, .00043, .00013, + .00003, .00037, .00087, + .14880, .03131, .01554, .00041, .00012, + .00003, .00032, .00075 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + .13680, .02855, .01298, .00037, .00012, + .00004, .00030, .00067, + .12647, .02622, .01103, .00034, .00011, + .00004, .00027, .00062, + .11750, .02419, .00950, .00031, .00010, + .00004, .00024, .00056, + .10966, .02243, .00829, .00028, .00010, + .00004, .00023, .00050, + .10267, .02089, .00730, .00027, .00009, + .00004, .00021, .00047, + .09648, .01953, .00650, .00026, .00009, + .00004, .00020, .00043, + .09094, .01831, .00583, .00024, .00008, + .00004, .00018, .00040 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + .08595, .01723, .00527, .00022, .00008, + .00004, .00017, .00037, + .08143, .01625, .00479, .00021, .00007, + .00004, .00016, .00035, + .07732, .01536, .00438, .00019, .00007, + .00003, .00015, .00033, + .07358, .01456, .00403, .00018, .00006, + .00003, .00014, .00031, + .07013, .01383, .00372, .00017, .00006, + .00003, .00013, .00029 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + .26376, .05680, .06410, .00047, .00009, + .00004, .00046, .00120, + .22297, .04717, .04207, .00042, .00010, + .00003, .00040, .00096, + .19309, .04025, .02961, .00037, .00011, + .00002, .00035, .00080, + .17021, .03504, .02196, .00032, .00010, + .00002, .00030, .00069, + .15188, .03093, .01692, .00028, .00010, + .00003, .00026, .00061, + .13692, .02762, .01343, .00026, .00008, + .00004, .00023, .00052, + .12443, .02490, .01093, .00025, .00008, + .00004, .00021, .00046 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + .11390, .02261, .00909, .00021, .00008, + .00004, .00019, .00041, + .10485, .02067, .00769, .00020, .00007, + .00003, .00017, .00037, + .09704, .01901, .00660, .00018, .00007, + .00004, .00015, .00035, + .09021, .01757, .00574, .00016, .00006, + .00003, .00014, .00032, + .08422, .01630, .00505, .00015, .00006, + .00003, .00013, .00028, + .07889, .01520, .00448, .00014, .00006, + .00003, .00012, .00026, + .07412, .01421, .00401, .00013, .00005, + .00003, .00011, .00023 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + .06985, .01333, .00362, .00013, .00005, + .00003, .00010, .00021, + .06599, .01254, .00329, .00013, .00005, + .00002, .00010, .00020, + .06250, .01183, .00300, .00012, .00004, + .00002, .00009, .00019, + .05933, .01118, .00276, .00011, .00004, + .00002, .00008, .00018, + .05641, .01060, .00254, .00010, .00004, + .00002, .00008, .00017 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + .22667, .04629, .04727, .00027, .00007, + .00004, .00030, .00073, + .18977, .03809, .03043, .00024, .00007, + .00003, .00025, .00059, + .16305, .03225, .02112, .00020, .00007, + .00003, .00022, .00049, + .14273, .02789, .01549, .00016, .00007, + .00002, .00019, .00042, + .12657, .02448, .01183, .00015, .00007, + .00003, .00017, .00035, + .11346, .02175, .00933, .00014, .00006, + .00003, .00015, .00031, + .10260, .01950, .00755, .00012, .00006, + .00002, .00013, .00028 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + .09348, .01763, .00625, .00011, .00005, + .00003, .00012, .00024, + .08571, .01605, .00527, .00009, .00005, + .00003, .00010, .00022, + .07899, .01470, .00451, .00010, .00005, + .00003, .00009, .00020, + .07316, .01354, .00391, .00008, .00004, + .00002, .00009, .00019, + .06804, .01253, .00343, .00009, .00004, + .00003, .00008, .00016, + .06352, .01164, .00304, .00008, .00004, + .00002, .00007, .00015, + .05950, .01085, .00272, .00008, .00003, + .00002, .00007, .00014 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + .05591, .01015, .00245, .00007, .00004, + .00002, .00006, .00013, + .05268, .00952, .00222, .00006, .00003, + .00002, .00006, .00012, + .04976, .00896, .00203, .00006, .00003, + .00002, .00005, .00011, + .04712, .00845, .00186, .00005, .00003, + .00002, .00005, .00010, + .04470, .00798, .00171, .00005, .00003, + .00002, .00005, .00010 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + .19218, .03728, .03418, .00018, .00002, + .00001, .00016, .00045, + .15933, .03038, .02162, .00016, .00003, + .00000, .00013, .00037, + .13580, .02553, .01482, .00014, .00004, + .00000, .00011, .00029, + .11802, .02193, .01076, .00013, .00003, + .00001, .00010, .00024, + .10403, .01913, .00815, .00011, .00003, + .00001, .00008, .00020, + .09277, .01690, .00639, .00009, .00002, + .00001, .00007, .00019, + .08346, .01509, .00515, .00007, .00003, + .00001, .00006, .00016 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + .07567, .01358, .00425, .00008, .00002, + .00001, .00006, .00014, + .06908, .01231, .00357, .00007, .00002, + .00001, .00005, .00013, + .06344, .01124, .00305, .00006, .00002, + .00001, .00005, .00011, + .05854, .01031, .00264, .00006, .00002, + .00001, .00004, .00010, + .05426, .00951, .00231, .00006, .00002, + .00001, .00004, .00009, + .05049, .00880, .00204, .00005, .00002, + .00001, .00004, .00009, + .04714, .00818, .00182, .00005, .00002, + .00001, .00003, .00008 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + .04416, .00763, .00164, .00005, .00001, + .00001, .00003, .00007, + .04151, .00714, .00148, .00004, .00001, + .00001, .00003, .00007, + .03910, .00670, .00135, .00004, .00001, + .00001, .00003, .00006, + .03693, .00631, .00124, .00004, .00001, + .00001, .00003, .00005, + .03494, .00595, .00114, .00004, .00001, + .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)/ + .16016, .02939, .02404, .00006, .00004, + .00003, .00011, .00024, + .13146, .02373, .01495, .00007, .00004, + .00002, .00010, .00019, + .11109, .01977, .01011, .00005, .00003, + .00002, .00008, .00017, + .09586, .01687, .00727, .00005, .00002, + .00001, .00006, .00013, + .08394, .01462, .00547, .00004, .00003, + .00001, .00006, .00012, + .07440, .01285, .00426, .00003, .00003, + .00002, .00005, .00011, + .06658, .01141, .00342, .00004, .00002, + .00001, .00005, .00008 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + .06009, .01022, .00281, .00002, .00002, + .00001, .00004, .00008, + .05460, .00923, .00235, .00003, .00002, + .00001, .00004, .00007, + .04993, .00839, .00200, .00002, .00002, + .00001, .00003, .00006, + .04589, .00766, .00173, .00002, .00001, + .00001, .00003, .00006, + .04238, .00704, .00151, .00002, .00001, + .00001, .00003, .00005, + .03930, .00650, .00134, .00001, .00001, + .00001, .00002, .00005, + .03658, .00602, .00119, .00002, .00001, + .00001, .00002, .00005 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + .03416, .00560, .00107, .00002, .00001, + .00001, .00002, .00004, + .03200, .00523, .00097, .00002, .00001, + .00001, .00002, .00004, + .03006, .00489, .00088, .00002, .00001, + .00001, .00002, .00003, + .02832, .00459, .00081, .00002, .00001, + .00001, .00002, .00003, + .02673, .00432, .00074, .00001, .00001, + .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)/ + .10558, .01734, .01100, .00003, .00000, + -.00001, .00003, .00008, + .08488, .01372, .00661, .00002, .00000, + .00000, .00002, .00005, + .07046, .01123, .00436, .00002, .00001, + .00000, .00002, .00004, + .05986, .00944, .00308, .00002, .00001, + .00000, .00002, .00004, + .05172, .00808, .00229, .00001, .00000, + .00000, .00001, .00003, + .04530, .00701, .00177, .00001, .00001, + .00001, .00002, .00003, + .04010, .00616, .00141, .00001, .00001, + .00000, .00001, .00002 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + .03581, .00546, .00115, .00001, .00000, + .00000, .00001, .00002, + .03223, .00489, .00096, .00001, .00000, + .00000, .00001, .00002, + .02922, .00440, .00082, .00000, .00001, + .00000, .00001, .00002, + .02664, .00399, .00070, .00000, .00000, + .00000, .00001, .00002, + .02441, .00364, .00061, .00001, .00000, + .00000, .00001, .00001, + .02247, .00334, .00054, .00000, .00000, + .00000, .00001, .00001, + .02077, .00307, .00048, .00000, .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)/ + .01928, .00284, .00043, .00001, .00000, + .00000, .00001, .00001, + .01795, .00263, .00039, .00001, .00000, + .00000, .00001, .00001, + .01676, .00245, .00035, .00001, .00000, + .00000, .00001, .00001, + .01570, .00229, .00032, .00001, .00000, + .00000, .00001, .00001, + .01474, .00214, .00030, .00000, .00000, + .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)/ + .06373, .00928, .00438, .00000, .00000, + .00000, .00000, .00003, + .05005, .00718, .00256, .00002, .00000, + .00000, .00000, .00001, + .04077, .00578, .00165, .00001, .00000, + .00000, .00000, .00001, + .03409, .00478, .00115, .00000, .00000, + .00000, .00000, .00001, + .02901, .00403, .00085, .00001, .00000, + .00000, .00000, .00000, + .02508, .00345, .00065, .00000, .00000, + .00000, .00000, .00001, + .02193, .00300, .00052, .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)/ + .01937, .00263, .00042, .00000, .00000, + .00000, .00000, .00000, + .01726, .00233, .00035, .00000, .00000, + .00000, .00000, .00000, + .01549, .00208, .00030, .00000, .00000, + .00000, .00000, .00000, + .01401, .00187, .00026, .00000, .00000, + .00000, .00000, .00000, + .01273, .00169, .00022, .00000, .00000, + .00000, .00000, .00000, + .01163, .00154, .00020, .00000, .00000, + .00000, .00000, .00000, + .01067, .00141, .00017, .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)/ + .00983, .00129, .00016, .00000, .00000, + .00000, .00000, .00000, + .00909, .00119, .00014, .00000, .00000, + .00000, .00000, .00000, + .00844, .00110, .00013, .00000, .00000, + .00000, .00000, .00000, + .00785, .00102, .00012, .00000, .00000, + .00000, .00000, .00000, + .00733, .00095, .00011, .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)/ + .03422, .00437, .00145, .00000, .00000, + .00000, .00000, .00000, + .02620, .00330, .00083, .00001, .00000, + .00000, .00000, .00000, + .02089, .00260, .00053, .00000, .00000, + .00000, .00000, .00000, + .01713, .00211, .00037, .00001, .00000, + .00000, .00000, .00000, + .01435, .00175, .00027, .00001, .00000, + .00000, .00000, .00000, + .01222, .00148, .00021, .00000, .00000, + .00000, .00000, .00000, + .01054, .00127, .00016, .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)/ + .00920, .00110, .00013, .00000, .00000, + .00000, .00000, .00000, + .00811, .00096, .00011, .00000, .00000, + .00000, .00000, .00000, + .00720, .00085, .00009, .00000, .00000, + .00000, .00000, .00000, + .00644, .00076, .00008, .00000, .00000, + .00000, .00000, .00000, + .00580, .00068, .00007, .00000, .00000, + .00000, .00000, .00000, + .00525, .00061, .00006, .00000, .00000, + .00000, .00000, .00000, + .00478, .00055, .00005, .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)/ + .00437, .00051, .00005, .00000, .00000, + .00000, .00000, .00000, + .00401, .00046, .00004, .00000, .00000, + .00000, .00000, .00000, + .00370, .00042, .00004, .00000, .00000, + .00000, .00000, .00000, + .00342, .00039, .00004, .00000, .00000, + .00000, .00000, .00000, + .00317, .00036, .00003, .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)/ + .01548, .00170, .00037, .00000, .00000, + .00000, .00000, .00000, + .01152, .00125, .00021, .00000, .00000, + .00000, .00000, .00000, + .00896, .00096, .00013, .00000, .00000, + .00000, .00000, .00000, + .00719, .00076, .00009, .00000, .00000, + .00000, .00000, .00000, + .00591, .00062, .00007, .00000, .00000, + .00000, .00000, .00000, + .00495, .00052, .00005, .00000, .00000, + .00000, .00000, .00000, + .00420, .00044, .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=8,14)/ + .00361, .00037, .00003, .00000, .00000, + .00000, .00000, .00000, + .00314, .00032, .00003, .00000, .00000, + .00000, .00000, .00000, + .00276, .00028, .00002, .00000, .00000, + .00000, .00000, .00000, + .00244, .00025, .00002, .00000, .00000, + .00000, .00000, .00000, + .00217, .00022, .00002, .00000, .00000, + .00000, .00000, .00000, + .00195, .00020, .00002, .00000, .00000, + .00000, .00000, .00000, + .00175, .00018, .00001, .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)/ + .00159, .00016, .00001, .00000, .00000, + .00000, .00000, .00000, + .00145, .00014, .00001, .00000, .00000, + .00000, .00000, .00000, + .00132, .00013, .00001, .00000, .00000, + .00000, .00000, .00000, + .00121, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00111, .00011, .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)/ + .00119, .00009, .00001, .00000, .00000, + .00000, .00000, .00000, + .00081, .00006, .00001, .00000, .00000, + .00000, .00000, .00000, + .00059, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00044, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00034, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00027, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00022, .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)/ + .00018, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .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)/ + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .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(75,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