#include "pdf/pilot.h" SUBROUTINE SFMS130(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C C THIS IS THE alphas=0.130 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)/ + .00145, .00341, 8.97173, .70631, .15951, + .00000, .42112, .70932, + .00195, .00370, 21.90480, 1.19723, .65448, + .00000, .91481, 1.20088, + .00241, .00397, 39.05281, 1.80629, 1.26685, + .00000, 1.52615, 1.81047, + .00282, .00421, 59.39211, 2.50449, 1.96787, + .15991, 2.22633, 2.50914, + .00321, .00445, 82.46889, 3.28433, 2.75020, + .99243, 3.00792, 3.28941, + .00358, .00467, 107.99681, 4.13912, 3.60721, + 1.87580, 3.86428, 4.14459, + .00393, .00488, 135.18617, 5.04914, 4.51927, + 2.81308, 4.77575, 5.05498 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + .00427, .00508, 163.95160, 6.01197, 5.48396, + 3.80070, 5.73991, 6.01815, + .00460, .00528, 193.94818, 7.01879, 6.49250, + 4.83005, 6.74796, 7.02529, + .00491, .00546, 224.90520, 8.06265, 7.53796, + 5.89456, 7.79297, 8.06945, + .00521, .00564, 256.61942, 9.13814, 8.61496, + 6.98912, 8.86953, 9.14523, + .00551, .00582, 288.94693, 10.24123, 9.71946, + 8.10991, 9.97364, 10.24859, + .00579, .00599, 321.78876, 11.36910, 10.84867, + 9.25427, 11.10246, 11.37672, + .00607, .00615, 354.90732, 12.51540, 11.99624, + 10.41604, 12.24968, 12.52328 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + .00634, .00632, 388.08878, 13.67410, 13.15614, + 11.58928, 13.40924, 13.68221, + .00660, .00647, 421.57944, 14.85103, 14.33423, + 12.77993, 14.58700, 14.85938, + .00686, .00662, 455.24307, 16.04232, 15.52661, + 13.98418, 15.77907, 16.05088, + .00711, .00677, 488.59973, 17.23502, 16.72036, + 15.18921, 16.97252, 17.24380, + .00735, .00692, 522.26788, 18.44496, 17.93132, + 16.41086, 18.18320, 18.45395 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + .00253, .00457, 8.25009, .66508, .14168, + .00000, .39140, .66804, + .00326, .00499, 18.93998, 1.07771, .55863, + .00000, .80673, 1.08113, + .00392, .00537, 32.49142, 1.57101, 1.05546, + .00000, 1.30225, 1.57482, + .00451, .00573, 48.05289, 2.12156, 1.60902, + .12561, 1.85471, 2.12572, + .00507, .00606, 65.26363, 2.72355, 2.21366, + .77230, 2.45838, 2.72802, + .00560, .00637, 83.90363, 3.37180, 2.86427, + 1.44583, 3.10814, 3.37654, + .00611, .00666, 103.39499, 4.05152, 3.54615, + 2.14950, 3.78924, 4.05653 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + .00659, .00694, 123.69079, 4.76120, 4.25780, + 2.88091, 4.50019, 4.76645, + .00705, .00721, 144.55658, 5.49457, 4.99299, + 3.63404, 5.23473, 5.50005, + .00749, .00747, 165.81564, 6.24685, 5.74697, + 4.40443, 5.98810, 6.25254, + .00792, .00772, 187.34157, 7.01443, 6.51614, + 5.18873, 6.75670, 7.02033, + .00833, .00796, 209.04994, 7.79474, 7.29795, + 5.98455, 7.53797, 7.80083, + .00873, .00819, 230.88733, 8.58605, 8.09067, + 6.79032, 8.33020, 8.59233, + .00911, .00842, 252.70547, 9.38414, 8.89010, + 7.60195, 9.12914, 9.39059 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + .00949, .00864, 274.37265, 10.18504, 9.69227, + 8.41560, 9.93087, 10.19166, + .00986, .00885, 296.07019, 10.99321, 10.50165, + 9.23578, 10.73981, 10.99999, + .01021, .00906, 317.71695, 11.80612, 11.31571, + 10.06005, 11.55346, 11.81306, + .01056, .00926, 339.00198, 12.61497, 12.12568, + 10.87969, 12.36303, 12.62206, + .01090, .00945, 360.35056, 13.43110, 12.94287, + 11.70607, 13.17984, 13.43833 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + .00425, .00612, 7.58296, .62588, .12529, + .00000, .36358, .62886, + .00531, .00673, 16.36875, .97032, .47435, + .00000, .71070, .97364, + .00626, .00728, 27.01918, 1.36734, .87515, + .00000, 1.10992, 1.37093, + .00712, .00779, 38.85864, 1.79884, 1.30987, + .09816, 1.54331, 1.80268, + .00793, .00825, 51.62027, 2.26079, 1.77464, + .59813, 2.00691, 2.26485, + .00868, .00869, 65.14942, 2.74950, 2.26589, + 1.10921, 2.49711, 2.75377, + .00940, .00910, 79.03492, 3.25422, 2.77291, + 1.63498, 3.00319, 3.25867 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + .01008, .00949, 93.26187, 3.77421, 3.29501, + 2.17406, 3.52441, 3.77883, + .01073, .00987, 107.67826, 4.30521, 3.82795, + 2.72240, 4.05656, 4.30999, + .01136, .01022, 122.17532, 4.84408, 4.36863, + 3.27718, 4.59649, 4.84901, + .01196, .01057, 136.67989, 5.38855, 4.91480, + 3.83633, 5.14197, 5.39363, + .01253, .01090, 151.14815, 5.93711, 5.46495, + 4.39850, 5.69146, 5.94232, + .01309, .01121, 165.55626, 6.48881, 6.01815, + 4.96289, 6.24405, 6.49415, + .01363, .01152, 179.81464, 7.04092, 6.57169, + 5.52689, 6.79699, 7.04638 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + .01416, .01182, 193.84564, 7.59092, 7.12304, + 6.08807, 7.34779, 7.59650, + .01466, .01210, 207.78363, 8.14221, 7.67561, + 6.64989, 7.89983, 8.14790, + .01516, .01238, 221.58186, 8.69324, 8.22787, + 7.21089, 8.45158, 8.69904, + .01564, .01265, 235.04161, 9.23805, 8.77387, + 7.76517, 8.99709, 9.24396, + .01611, .01292, 248.45462, 9.78478, 9.32173, + 8.32089, 9.54449, 9.79079 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + .00568, .00726, 7.21520, .60375, .11633, + .00000, .34810, .60680, + .00700, .00803, 15.02376, .91246, .42986, + .00000, .65953, .91580, + .00818, .00871, 24.24597, 1.26089, .78224, + .00000, 1.01018, 1.26446, + .00925, .00932, 34.30429, 1.63382, 1.15852, + .08475, 1.38500, 1.63760, + .01024, .00989, 44.98284, 2.02818, 1.55583, + .51372, 1.78103, 2.03215, + .01118, .01042, 56.16156, 2.44110, 1.97140, + .94748, 2.19544, 2.44523, + .01206, .01093, 67.50828, 2.86377, 2.39646, + 1.38969, 2.61947, 2.86805 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + .01289, .01140, 79.02312, 3.29583, 2.83072, + 1.83946, 3.05277, 3.30026, + .01369, .01185, 90.59126, 3.73396, 3.27089, + 2.29369, 3.49206, 3.73852, + .01445, .01228, 102.13345, 4.17579, 3.71461, + 2.75028, 3.93495, 4.18048, + .01518, .01270, 113.59947, 4.61964, 4.16023, + 3.20775, 4.37981, 4.62445, + .01589, .01309, 124.96193, 5.06446, 4.60670, + 3.66519, 4.82556, 5.06938, + .01657, .01347, 136.20905, 5.50964, 5.05345, + 4.12214, 5.27162, 5.51466, + .01722, .01384, 147.27547, 5.95310, 5.49839, + 4.57663, 5.71592, 5.95823 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + .01785, .01419, 158.10556, 6.39294, 5.93965, + 5.02684, 6.15656, 6.39817, + .01847, .01454, 168.81200, 6.83207, 6.38012, + 5.47575, 6.59645, 6.83739, + .01907, .01487, 179.36188, 7.26935, 6.81867, + 5.92226, 7.03445, 7.27475, + .01964, .01519, 189.60268, 7.70007, 7.25063, + 6.36177, 7.46586, 7.70556, + .02021, .01551, 199.76869, 8.13091, 7.68264, + 6.80094, 7.89736, 8.13649 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + .00694, .00820, 6.96326, .58834, .11023, + .00000, .33745, .59148, + .00849, .00910, 14.13319, .87340, .40027, + .00000, .62526, .87680, + .00987, .00989, 22.44636, 1.19043, .72137, + .00000, .94454, 1.19404, + .01111, .01060, 31.39114, 1.52610, 1.06050, + .07625, 1.28213, 1.52990, + .01227, .01125, 40.78522, 1.87798, 1.41544, + .46054, 1.63570, 1.88195, + .01335, .01187, 50.53088, 2.24373, 1.78392, + .84613, 2.00296, 2.24785, + .01437, .01244, 60.34471, 2.61576, 2.15843, + 1.23670, 2.37636, 2.62002 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + .01533, .01299, 70.23557, 2.99395, 2.53889, + 1.63170, 2.75580, 2.99834, + .01625, .01350, 80.11086, 3.37555, 2.92259, + 2.02857, 3.13856, 3.38006, + .01713, .01399, 89.90868, 3.75863, 3.30762, + 2.42566, 3.52272, 3.76325, + .01797, .01446, 99.59186, 4.14189, 3.69271, + 2.82183, 3.90699, 4.14662, + .01878, .01491, 109.14227, 4.52452, 4.07705, + 3.21645, 4.29057, 4.52935, + .01956, .01535, 118.55435, 4.90613, 4.46028, + 3.60923, 4.67307, 4.91106, + .02031, .01576, 127.77693, 5.28501, 4.84069, + 3.99857, 5.05280, 5.29003 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + .02103, .01617, 136.76628, 5.65962, 5.21676, + 4.38303, 5.42821, 5.66473, + .02174, .01656, 145.62187, 6.03257, 5.59110, + 4.76525, 5.80193, 6.03777, + .02242, .01693, 154.31879, 6.40295, 5.96279, + 5.14439, 6.17303, 6.40822, + .02308, .01730, 162.73064, 6.76678, 6.32789, + 5.51656, 6.53756, 6.77213, + .02372, .01765, 171.05791, 7.12987, 6.69220, + 5.88756, 6.90132, 7.13530 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + .00810, .00902, 6.77247, .57652, .10565, + .00000, .32936, .57977, + .00985, .01003, 13.47605, .84415, .37838, + .00000, .59977, .84764, + .01140, .01091, 21.13824, 1.13844, .67685, + .00000, .89634, 1.14213, + .01280, .01171, 29.29614, 1.44744, .98941, + .07019, 1.20729, 1.45131, + .01409, .01244, 37.79176, 1.76920, 1.31429, + .42275, 1.53075, 1.77322, + .01531, .01312, 46.54340, 2.10173, 1.64963, + .77438, 1.86482, 2.10590, + .01645, .01376, 55.30159, 2.43832, 1.98877, + 1.12879, 2.20280, 2.44262 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + .01752, .01437, 64.08105, 2.77901, 2.33179, + 1.48562, 2.54476, 2.78343, + .01855, .01494, 72.80413, 3.12144, 2.67638, + 1.84273, 2.88836, 3.12597, + .01953, .01548, 81.42059, 3.46399, 3.02094, + 2.19873, 3.23201, 3.46864, + .02047, .01600, 89.90174, 3.80560, 3.36442, + 2.55275, 3.57464, 3.81035, + .02137, .01650, 98.23544, 4.14564, 3.70622, + 2.90430, 3.91564, 4.15049, + .02223, .01698, 106.42037, 4.48385, 4.04609, + 3.25324, 4.25475, 4.48878, + .02307, .01744, 114.41388, 4.81877, 4.38258, + 3.59822, 4.59053, 4.82379 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + .02387, .01789, 122.18080, 5.14911, 4.71442, + 3.93801, 4.92168, 5.15422, + .02465, .01831, 129.81091, 5.47726, 5.04399, + 4.27506, 5.25060, 5.48244, + .02541, .01873, 137.28435, 5.80244, 5.37053, + 4.60867, 5.57653, 5.80770, + .02614, .01913, 144.49228, 6.12121, 5.69060, + 4.93544, 5.89600, 6.12654, + .02685, .01952, 151.61221, 6.43875, 6.00939, + 5.26058, 6.21422, 6.44416 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + .01291, .01216, 6.20156, .54036, .09215, + .00000, .30504, .54410, + .01547, .01360, 11.60259, .75851, .31588, + .00000, .52618, .76249, + .01772, .01486, 17.50877, .99023, .55217, + .00000, .76035, .99442, + .01973, .01598, 23.59314, 1.22739, .79322, + .05395, .99958, 1.23175, + .02158, .01701, 29.76331, 1.46923, 1.03850, + .32220, 1.24326, 1.47376, + .02331, .01796, 35.97956, 1.71481, 1.28715, + .58480, 1.49048, 1.71948, + .02492, .01885, 42.07872, 1.95960, 1.53473, + .84539, 1.73676, 1.96441 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + .02645, .01969, 48.08881, 2.20404, 1.78174, + 1.10413, 1.98256, 2.20898, + .02789, .02048, 53.96851, 2.44676, 2.02682, + 1.35985, 2.22655, 2.45182, + .02926, .02123, 59.69471, 2.68691, 2.26916, + 1.61191, 2.46786, 2.69207, + .03056, .02194, 65.25824, 2.92397, 2.50829, + 1.85998, 2.70602, 2.92924, + .03181, .02262, 70.65990, 3.15776, 2.74400, + 2.10397, 2.94083, 3.16313, + .03301, .02327, 75.90666, 3.38828, 2.97635, + 2.34400, 3.17232, 3.39374, + .03416, .02389, 80.97660, 3.61471, 3.20450, + 2.57934, 3.39967, 3.62026 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + .03527, .02449, 85.85220, 3.83630, 3.42773, + 2.80931, 3.62213, 3.84194, + .03634, .02507, 90.59946, 4.05488, 3.64788, + 3.03580, 3.84154, 4.06060, + .03737, .02562, 95.20920, 4.27005, 3.86454, + 3.25844, 4.05751, 4.27586, + .03837, .02616, 99.61356, 4.47953, 4.07544, + 3.47501, 4.26774, 4.48541, + .03934, .02668, 103.93369, 4.68703, 4.28430, + 3.68924, 4.47596, 4.69298 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + .02034, .01652, 5.65225, .50432, .07968, + .00000, .28159, .50893, + .02407, .01858, 9.94245, .67927, .26081, + .00000, .45986, .68419, + .02731, .02036, 14.43102, .85896, .44558, + .00000, .64228, .86416, + .03020, .02193, 18.90255, 1.03828, .62923, + .04100, .82392, 1.04372, + .03283, .02337, 23.31495, 1.21738, .81214, + .24288, 1.00506, 1.22303, + .03527, .02469, 27.65916, 1.39603, .99422, + .43682, 1.18555, 1.40189, + .03754, .02592, 31.83426, 1.57138, 1.17267, + .62626, 1.36256, 1.57741 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + .03967, .02707, 35.87514, 1.74408, 1.34822, + .81172, 1.53678, 1.75028, + .04168, .02815, 39.76421, 1.91344, 1.52022, + .99269, 1.70755, 1.91980, + .04358, .02917, 43.49528, 2.07912, 1.68834, + 1.16900, 1.87453, 2.08562, + .04538, .03013, 47.07044, 2.24097, 1.85248, + 1.34068, 2.03761, 2.24761, + .04710, .03105, 50.49731, 2.39905, 2.01271, + 1.50787, 2.19683, 2.40582, + .04875, .03193, 53.78654, 2.55353, 2.16922, + 1.67085, 2.35240, 2.56043, + .05032, .03277, 56.92845, 2.70399, 2.32159, + 1.82927, 2.50388, 2.71100 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + .05183, .03357, 59.91586, 2.85003, 2.46945, + 1.98279, 2.65089, 2.85716, + .05328, .03434, 62.79673, 2.99304, 2.61419, + 2.13286, 2.79482, 3.00028, + .05469, .03509, 65.56800, 3.13284, 2.75565, + 2.27934, 2.93551, 3.14018, + .05603, .03580, 68.18784, 3.26795, 2.89234, + 2.42079, 3.07146, 3.27539, + .05734, .03649, 70.73832, 3.40100, 3.02691, + 2.55987, 3.20532, 3.40854 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + .02643, .01989, 5.33300, .48281, .07281, + .00000, .26801, .48814, + .03106, .02241, 9.04815, .63501, .23161, + .00000, .42379, .64074, + .03507, .02459, 12.83521, .78836, .39040, + .00000, .58009, .79443, + .03861, .02650, 16.53288, .93916, .54584, + .03467, .73340, .94553, + .04183, .02824, 20.12173, 1.08794, .69870, + .20442, .88439, 1.09458, + .04481, .02984, 23.60596, 1.23480, .84922, + .36568, 1.03323, 1.24168, + .04756, .03131, 26.91204, 1.37760, .99535, + .52172, 1.17782, 1.38471 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + .05014, .03269, 30.07650, 1.51709, 1.13789, + .67320, 1.31896, 1.52441, + .05256, .03398, 33.09121, 1.65286, 1.27648, + .81988, 1.45626, 1.66038, + .05484, .03520, 35.95637, 1.78477, 1.41100, + .96178, 1.58958, 1.79247, + .05701, .03635, 38.67790, 1.91282, 1.54149, + 1.09906, 1.71894, 1.92069, + .05907, .03744, 41.26545, 2.03715, 1.66812, + 1.23195, 1.84451, 2.04518, + .06103, .03848, 43.73038, 2.15798, 1.79113, + 1.36078, 1.96652, 2.16618, + .06291, .03947, 46.06755, 2.27506, 1.91025, + 1.48534, 2.08470, 2.28340 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + .06470, .04041, 48.27351, 2.38812, 2.02526, + 1.60544, 2.19882, 2.39661, + .06643, .04132, 50.38773, 2.49835, 2.13734, + 1.72231, 2.31004, 2.50697, + .06809, .04220, 52.40919, 2.60564, 2.24639, + 1.83587, 2.41828, 2.61439, + .06969, .04303, 54.30672, 2.70886, 2.35130, + 1.94505, 2.52241, 2.71773, + .07123, .04384, 56.14520, 2.81013, 2.45420, + 2.05200, 2.62456, 2.81912 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + .03179, .02279, 5.10358, .46712, .06809, + .00000, .25829, .47305, + .03718, .02571, 8.43961, .60419, .21210, + .00000, .39915, .61059, + .04182, .02821, 11.77731, .74043, .35407, + .00000, .53852, .74725, + .04591, .03040, 14.98898, .87302, .49153, + .03066, .67377, .88019, + .04961, .03239, 18.06856, 1.00268, .62549, + .18012, .80577, 1.01016, + .05302, .03421, 21.02767, 1.12970, .75636, + .32097, .93489, 1.13747, + .05617, .03588, 23.80894, 1.25238, .88253, + .45634, 1.05948, 1.26042 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + .05910, .03745, 26.44914, 1.37149, 1.00485, + .58694, 1.18034, 1.37978, + .06186, .03891, 28.94529, 1.48680, 1.12312, + .71270, 1.29726, 1.49532, + .06445, .04028, 31.30086, 1.59826, 1.23733, + .83374, 1.41022, 1.60699, + .06690, .04157, 33.52361, 1.70596, 1.34759, + .95029, 1.51932, 1.71489, + .06923, .04280, 35.62395, 1.81008, 1.45412, + 1.06262, 1.62475, 1.81920, + .07145, .04396, 37.61330, 1.91087, 1.55718, + 1.17106, 1.72677, 1.92017, + .07356, .04507, 39.48883, 2.00813, 1.65660, + 1.27551, 1.82521, 2.01761 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + .07558, .04613, 41.24903, 2.10172, 1.75222, + 1.37584, 1.91991, 2.11136, + .07752, .04715, 42.92804, 2.19266, 1.84510, + 1.47314, 2.01190, 2.20245, + .07938, .04812, 44.52591, 2.28088, 1.93518, + 1.56739, 2.10114, 2.29082, + .08117, .04905, 46.01746, 2.36547, 2.02154, + 1.65769, 2.18669, 2.37555, + .08290, .04995, 47.45732, 2.44825, 2.10601, + 1.74591, 2.27039, 2.45847 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + .03673, .02553, 4.91482, .45426, .06446, + .00000, .25036, .46060, + .04275, .02879, 7.96518, .57999, .19742, + .00000, .38003, .58685, + .04793, .03157, 10.97152, .70361, .32698, + .00000, .50690, .71092, + .05247, .03401, 13.83031, .82289, .45133, + .02774, .62895, .83059, + .05657, .03620, 16.54461, .93872, .57162, + .16250, .74720, .94676, + .06034, .03821, 19.13077, 1.05148, .68838, + .28866, .86215, 1.05984, + .06381, .04005, 21.54247, 1.15980, .80032, + .40926, .97244, 1.16844 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + .06704, .04176, 23.81627, 1.26446, .90830, + .52502, 1.07891, 1.27336, + .07006, .04336, 25.95245, 1.36532, 1.01223, + .63599, 1.18144, 1.37448, + .07291, .04486, 27.95644, 1.46242, 1.11217, + .74235, 1.28009, 1.47180, + .07559, .04627, 29.83712, 1.55588, 1.20828, + .84436, 1.37499, 1.56548, + .07813, .04761, 31.60490, 1.64591, 1.30080, + .94233, 1.46638, 1.65571, + .08055, .04887, 33.27084, 1.73277, 1.39002, + 1.03661, 1.55453, 1.74277, + .08285, .05008, 34.83403, 1.81633, 1.47580, + 1.12710, 1.63930, 1.82652 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + .08505, .05122, 36.29396, 1.89648, 1.55805, + 1.21377, 1.72059, 1.90684, + .08716, .05232, 37.68100, 1.97414, 1.63772, + 1.29759, 1.79934, 1.98467, + .08918, .05337, 38.99577, 2.04930, 1.71479, + 1.37857, 1.87555, 2.05999, + .09111, .05438, 40.21697, 2.12115, 1.78846, + 1.45594, 1.94838, 2.13198, + .09299, .05535, 41.39225, 2.19130, 1.86036, + 1.53134, 2.01949, 2.20228 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + .05729, .03676, 4.32079, .41243, .05376, + .00000, .22540, .42062, + .06573, .04131, 6.58273, .50617, .15570, + .00000, .32367, .51510, + .07288, .04514, 8.70834, .59533, .25158, + .00000, .41654, .60487, + .07909, .04845, 10.65358, .67913, .34109, + .02000, .50348, .68920, + .08464, .05139, 12.44142, .75870, .42566, + .11614, .58580, .76923, + .08969, .05406, 14.09782, .83465, .50609, + .20431, .66422, .84560, + .09431, .05649, 15.60198, .90632, .58182, + .28712, .73813, .91766 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + .09857, .05873, 16.98759, .97448, .65368, + .36533, .80832, .98617, + .10254, .06081, 18.26130, 1.03922, .72183, + .43922, .87494, 1.05124, + .10625, .06274, 19.43187, 1.10070, .78647, + .50908, .93815, 1.11302, + .10972, .06455, 20.50929, 1.15913, .84784, + .57525, .99820, 1.17173, + .11300, .06624, 21.50360, 1.21476, .90623, + .63807, 1.05535, 1.22762, + .11610, .06785, 22.42455, 1.26784, .96191, + .69785, 1.10986, 1.28096, + .11904, .06936, 23.27370, 1.31835, 1.01488, + .75464, 1.16172, 1.33171 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + .12182, .07079, 24.05259, 1.36629, 1.06514, + .80847, 1.21094, 1.37987, + .12448, .07216, 24.78187, 1.41233, 1.11337, + .86006, 1.25818, 1.42612, + .12703, .07346, 25.46301, 1.45648, 1.15963, + .90948, 1.30349, 1.47048, + .12945, .07470, 26.08382, 1.49827, 1.20341, + .95625, 1.34637, 1.51245, + .13179, .07589, 26.67465, 1.53877, 1.24583, + 1.00150, 1.38793, 1.55314 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + .08880, .05423, 3.68945, .36591, .04378, + .00000, .19873, .37669, + .10026, .06037, 5.29736, .43225, .11930, + .00000, .27018, .44403, + .10981, .06545, 6.73290, .49328, .18782, + .00000, .33537, .50590, + .11798, .06977, 7.99157, .54910, .24995, + .01395, .39470, .56242, + .12520, .07355, 9.10605, .60085, .30722, + .08025, .44950, .61477, + .13170, .07694, 10.10534, .64921, .36050, + .13975, .50060, .66369, + .13758, .07999, 10.98410, .69396, .40968, + .19457, .54780, .70892 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + .14296, .08277, 11.77089, .73576, .45552, + .24546, .59183, .75116, + .14793, .08531, 12.47468, .77481, .49827, + .29278, .63293, .79062, + .15252, .08766, 13.10461, .81132, .53821, + .33686, .67134, .82750, + .15681, .08984, 13.66985, .84551, .57558, + .37803, .70729, .86204, + .16081, .09187, 14.17889, .87762, .61066, + .41661, .74104, .89447, + .16458, .09376, 14.63947, .90785, .64369, + .45287, .77281, .92500, + .16812, .09554, 15.05374, .93626, .67472, + .48692, .80267, .95369 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + .17146, .09721, 15.42384, .96286, .70380, + .51882, .83064, .98055, + .17463, .09879, 15.76315, .98812, .73141, + .54908, .85720, 1.00606, + .17764, .10029, 16.07312, 1.01209, .75762, + .57777, .88240, 1.03027, + .18050, .10170, 16.34717, 1.03449, .78214, + .60464, .90597, 1.05289, + .18324, .10305, 16.60378, 1.05602, .80571, + .63042, .92862, 1.07463 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + .11432, .06858, 3.30622, .33623, .03830, + -.00001, .18233, .34918, + .12775, .07574, 4.59543, .38872, .10048, + -.00001, .24024, .40286, + .13882, .08157, 5.70932, .43609, .15572, + -.00001, .29201, .45121, + .14819, .08646, 6.65830, .47869, .20493, + .01109, .33830, .49462, + .15641, .09071, 7.47751, .51760, .24960, + .06346, .38041, .53422, + .16375, .09448, 8.19556, .55347, .29059, + .10984, .41914, .57071, + .17033, .09783, 8.81229, .58623, .32795, + .15207, .45445, .60401 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + .17633, .10086, 9.35310, .61647, .36237, + .19084, .48701, .63475, + .18182, .10362, 9.82714, .64440, .39413, + .22653, .51707, .66313, + .18687, .10614, 10.24289, .67024, .42349, + .25945, .54486, .68937, + .19155, .10846, 10.60831, .69418, .45070, + .28993, .57062, .71369, + .19591, .11061, 10.93075, .71644, .47602, + .31825, .59457, .73629, + .19998, .11261, 11.21683, .73721, .49965, + .34466, .61692, .75739, + .20379, .11447, 11.46870, .75655, .52166, + .36926, .63774, .77701 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + .20737, .11620, 11.68827, .77447, .54212, + .39213, .65706, .79521, + .21075, .11783, 11.88582, .79136, .56141, + .41368, .67528, .81236, + .21395, .11937, 12.06263, .80726, .57958, + .43399, .69243, .82850, + .21696, .12081, 12.21381, .82196, .59644, + .45285, .70832, .84343, + .21985, .12218, 12.35318, .83601, .61255, + .47086, .72351, .85769 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + .13644, .08120, 3.02896, .31396, .03459, + -.00001, .17029, .32885, + .15130, .08904, 4.12006, .35763, .08824, + -.00001, .21956, .37385, + .16343, .09535, 5.03905, .39650, .13518, + -.00001, .26295, .41379, + .17363, .10059, 5.80427, .43102, .17646, + .00933, .30125, .44919, + .18249, .10510, 6.45123, .46219, .21350, + .05321, .33570, .48110, + .19037, .10907, 7.00779, .49061, .24714, + .09167, .36704, .51019, + .19738, .11257, 7.47629, .51630, .27750, + .12638, .39532, .53645 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + .20373, .11571, 7.87978, .53980, .30523, + .15800, .42117, .56046, + .20952, .11854, 8.22705, .56129, .33059, + .18687, .44482, .58242, + .21481, .12112, 8.52597, .58100, .35386, + .21331, .46650, .60254, + .21970, .12348, 8.78374, .59910, .37526, + .23762, .48643, .62102, + .22422, .12565, 9.00682, .61579, .39502, + .26006, .50483, .63806, + .22843, .12765, 9.20088, .63124, .41335, + .28086, .52187, .65384, + .23235, .12951, 9.36795, .64550, .43031, + .30011, .53762, .66839 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + .23601, .13122, 9.50977, .65861, .44595, + .31790, .55213, .68177, + .23946, .13283, 9.63474, .67088, .46062, + .33458, .56572, .69429, + .24272, .13434, 9.74396, .68234, .47436, + .35021, .57844, .70599, + .24577, .13574, 9.83363, .69284, .48701, + .36464, .59012, .71671, + .24868, .13707, 9.91472, .70281, .49905, + .37836, .60123, .72689 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + .15628, .09260, 2.81322, .29605, .03183, + .00000, .16078, .31276, + .17222, .10091, 3.76659, .33348, .07940, + .00000, .20392, .35161, + .18513, .10753, 4.55235, .36642, .12052, + .00000, .24146, .38569, + .19590, .11298, 5.19380, .39538, .15632, + .00812, .27425, .41557, + .20520, .11762, 5.72621, .42126, .18813, + .04613, .30344, .44223, + .21341, .12168, 6.17672, .44467, .21679, + .07920, .32979, .46632, + .22070, .12522, 6.54890, .46561, .24243, + .10881, .35335, .48785 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + .22725, .12839, 6.86413, .48461, .26567, + .13559, .37470, .50736, + .23319, .13122, 7.13066, .50185, .28679, + .15990, .39410, .52507, + .23861, .13379, 7.35587, .51752, .30603, + .18204, .41175, .54116, + .24357, .13612, 7.54630, .53181, .32361, + .20227, .42787, .55582, + .24816, .13824, 7.70794, .54488, .33975, + .22084, .44263, .56923, + .25241, .14020, 7.84576, .55690, .35463, + .23796, .45623, .58156, + .25635, .14200, 7.96125, .56789, .36832, + .25374, .46872, .59284 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + .26001, .14365, 8.05622, .57792, .38086, + .26823, .48013, .60313, + .26345, .14520, 8.13777, .58723, .39257, + .28177, .49076, .61269, + .26669, .14664, 8.20687, .59589, .40348, + .29439, .50066, .62156, + .26971, .14797, 8.26045, .60372, .41346, + .30598, .50967, .62960, + .27258, .14922, 8.30759, .61113, .42291, + .31696, .51820, .63720 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + .23590, .13868, 2.16171, .23745, .02396, + .00000, .13082, .26215, + .25446, .14758, 2.76970, .25885, .05562, + .00000, .15801, .28514, + .26899, .15435, 3.22983, .27695, .08189, + .00000, .18071, .30440, + .28075, .15968, 3.57588, .29221, .10395, + .00507, .19977, .32057, + .29063, .16404, 3.84121, .30531, .12288, + .02846, .21612, .33439, + .29914, .16771, 4.04948, .31671, .13943, + .04825, .23038, .34639, + .30648, .17079, 4.20655, .32650, .15378, + .06551, .24269, .35666 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + .31294, .17344, 4.32829, .33504, .16643, + .08076, .25350, .36562, + .31865, .17574, 4.42150, .34250, .17762, + .09428, .26300, .37342, + .32376, .17773, 4.49152, .34901, .18755, + .10632, .27139, .38023, + .32835, .17948, 4.54287, .35472, .19641, + .11711, .27881, .38619, + .33248, .18102, 4.57947, .35974, .20434, + .12681, .28542, .39143, + .33624, .18239, 4.60458, .36417, .21149, + .13559, .29132, .39604, + .33966, .18360, 4.61920, .36804, .21789, + .14351, .29657, .40007 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + .34276, .18466, 4.62450, .37139, .22362, + .15065, .30120, .40356, + .34562, .18562, 4.62435, .37438, .22885, + .15720, .30540, .40667, + .34826, .18649, 4.61922, .37704, .23362, + .16321, .30920, .40943, + .35065, .18724, 4.60760, .37928, .23785, + .16861, .31251, .41175, + .35291, .18794, 4.59432, .38133, .24180, + .17366, .31557, .41388 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + .34870, .20185, 1.60761, .17704, .01738, + -.00002, .10167, .21403, + .36659, .20828, 1.96903, .18737, .03734, + -.00001, .11730, .22529, + .37973, .21259, 2.20538, .19540, .05298, + -.00001, .12948, .23387, + .38971, .21554, 2.35707, .20160, .06543, + .00293, .13905, .24038, + .39759, .21762, 2.45432, .20644, .07561, + .01623, .14674, .24537, + .40400, .21912, 2.51666, .21027, .08410, + .02706, .15305, .24928, + .40916, .22011, 2.55005, .21318, .09113, + .03618, .15813, .25218 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + .41343, .22078, 2.56543, .21544, .09707, + .04399, .16231, .25438, + .41697, .22119, 2.56732, .21715, .10211, + .05069, .16575, .25599, + .41992, .22139, 2.55924, .21840, .10639, + .05648, .16857, .25712, + .42237, .22142, 2.54390, .21928, .11004, + .06150, .17087, .25785, + .42441, .22133, 2.52343, .21986, .11317, + .06590, .17276, .25827, + .42614, .22113, 2.49945, .22019, .11587, + .06976, .17430, .25843, + .42755, .22084, 2.47252, .22030, .11819, + .07315, .17553, .25836 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + .42868, .22047, 2.44299, .22021, .12015, + .07611, .17648, .25808, + .42962, .22005, 2.41287, .22000, .12187, + .07875, .17723, .25767, + .43040, .21960, 2.38229, .21968, .12335, + .08111, .17781, .25715, + .43097, .21908, 2.35033, .21919, .12458, + .08316, .17818, .25648, + .43146, .21855, 2.31919, .21867, .12568, + .08504, .17847, .25578 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + .43156, .24337, 1.36996, .14248, .01413, + .00001, .08555, .18770, + .44554, .24571, 1.60928, .14817, .02881, + .00000, .09594, .19319, + .45485, .24650, 1.74154, .15205, .03974, + .00000, .10344, .19666, + .46118, .24636, 1.80853, .15459, .04804, + .00201, .10889, .19869, + .46558, .24567, 1.83713, .15618, .05452, + .01104, .11293, .19975, + .46869, .24467, 1.84335, .15713, .05971, + .01816, .11598, .20015, + .47073, .24338, 1.83214, .15751, .06381, + .02399, .11820, .19997 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + .47203, .24197, 1.81166, .15751, .06714, + .02885, .11982, .19942, + .47275, .24046, 1.78492, .15723, .06984, + .03291, .12098, .19858, + .47302, .23888, 1.75418, .15672, .07203, + .03632, .12177, .19753, + .47294, .23726, 1.72109, .15603, .07381, + .03921, .12226, .19633, + .47257, .23563, 1.68685, .15522, .07526, + .04168, .12251, .19502, + .47197, .23401, 1.65231, .15431, .07643, + .04379, .12258, .19362, + .47118, .23239, 1.61764, .15332, .07736, + .04560, .12249, .19214 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + .47022, .23075, 1.58301, .15224, .07809, + .04712, .12226, .19061, + .46916, .22914, 1.54941, .15114, .07867, + .04846, .12194, .18908, + .46802, .22756, 1.51677, .15003, .07914, + .04962, .12156, .18755, + .46674, .22598, 1.48451, .14886, .07945, + .05059, .12107, .18596, + .46545, .22444, 1.45378, .14771, .07970, + .05146, .12056, .18441 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + .49642, .27083, 1.24381, .11851, .01198, + .00000, .07419, .16844, + .50483, .26869, 1.39643, .12149, .02341, + .00000, .08131, .17002, + .50920, .26582, 1.46080, .12301, .03151, + -.00001, .08598, .17022, + .51113, .26259, 1.47647, .12353, .03737, + .00149, .08902, .16950, + .51148, .25923, 1.46618, .12342, .04175, + .00805, .09100, .16819, + .51091, .25589, 1.44264, .12290, .04511, + .01308, .09226, .16659, + .50954, .25252, 1.40963, .12204, .04765, + .01710, .09295, .16471 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + .50770, .24924, 1.37291, .12100, .04960, + .02037, .09326, .16270, + .50550, .24606, 1.33439, .11982, .05111, + .02304, .09328, .16060, + .50306, .24295, 1.29540, .11854, .05225, + .02523, .09307, .15849, + .50045, .23994, 1.25683, .11720, .05311, + .02704, .09271, .15635, + .49770, .23704, 1.21925, .11584, .05376, + .02854, .09222, .15422, + .49489, .23424, 1.18303, .11447, .05423, + .02980, .09165, .15212, + .49201, .23154, 1.14811, .11308, .05454, + .03085, .09100, .15006 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + .48906, .22890, 1.11445, .11168, .05473, + .03171, .09028, .14801, + .48614, .22636, 1.08255, .11031, .05483, + .03243, .08954, .14603, + .48324, .22391, 1.05224, .10896, .05486, + .03304, .08879, .14410, + .48027, .22153, 1.02304, .10762, .05480, + .03353, .08798, .14219, + .47739, .21925, .99559, .10632, .05472, + .03396, .08720, .14036 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + .54788, .28796, 1.16251, .10008, .01030, + .00000, .06503, .15187, + .54982, .28147, 1.24605, .10126, .01943, + -.00001, .06981, .15057, + .54871, .27514, 1.26090, .10129, .02557, + -.00001, .07255, .14847, + .54586, .26911, 1.24196, .10060, .02980, + .00114, .07402, .14592, + .54202, .26338, 1.20736, .09950, .03283, + .00605, .07470, .14316, + .53767, .25800, 1.16665, .09818, .03505, + .00976, .07491, .14033, + .53290, .25286, 1.12225, .09668, .03663, + .01262, .07469, .13746 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + .52798, .24802, 1.07803, .09512, .03778, + .01491, .07426, .13466, + .52298, .24345, 1.03499, .09352, .03859, + .01673, .07366, .13192, + .51794, .23912, .99371, .09193, .03916, + .01819, .07295, .12925, + .51294, .23502, .95450, .09035, .03952, + .01937, .07216, .12668, + .50798, .23113, .91753, .08879, .03974, + .02033, .07132, .12420, + .50313, .22743, .88284, .08727, .03984, + .02111, .07045, .12182, + .49837, .22389, .85019, .08577, .03986, + .02173, .06957, .11952 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + .49364, .22050, .81939, .08431, .03978, + .02224, .06866, .11731, + .48906, .21728, .79066, .08291, .03966, + .02265, .06776, .11519, + .48460, .21419, .76375, .08155, .03950, + .02298, .06688, .11317, + .48018, .21121, .73828, .08022, .03929, + .02322, .06598, .11121, + .47592, .20838, .71454, .07895, .03907, + .02343, .06512, .10933 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + .59696, .29838, 1.08309, .08167, .00858, + -.00002, .05522, .13266, + .59016, .28694, 1.09774, .08134, .01553, + -.00001, .05789, .12884, + .58187, .27686, 1.06781, .08019, .01993, + .00000, .05899, .12486, + .57302, .26782, 1.02038, .07863, .02279, + .00082, .05921, .12091, + .56396, .25965, .96770, .07689, .02472, + .00435, .05890, .11708, + .55504, .25221, .91569, .07509, .02603, + .00691, .05830, .11346, + .54624, .24531, .86515, .07322, .02689, + .00886, .05751, .11001 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + .53771, .23897, .81806, .07142, .02745, + .01036, .05660, .10674, + .52946, .23309, .77450, .06968, .02776, + .01153, .05563, .10369, + .52152, .22761, .73437, .06798, .02793, + .01244, .05463, .10081, + .51386, .22250, .69747, .06635, .02798, + .01315, .05363, .09807, + .50650, .21771, .66361, .06480, .02793, + .01372, .05263, .09551, + .49943, .21321, .63254, .06331, .02781, + .01416, .05164, .09310, + .49261, .20897, .60392, .06188, .02765, + .01450, .05068, .09080 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + .48601, .20493, .57745, .06051, .02744, + .01475, .04973, .08864, + .47968, .20112, .55311, .05921, .02721, + .01495, .04882, .08658, + .47358, .19753, .53063, .05798, .02696, + .01510, .04794, .08462, + .46765, .19408, .50970, .05678, .02669, + .01518, .04707, .08275, + .46199, .19082, .49038, .05564, .02642, + .01524, .04624, .08100 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + .63159, .29953, 1.00799, .06659, .00710, + -.00003, .04657, .11446, + .61584, .28388, .97004, .06530, .01244, + -.00002, .04778, .10903, + .60049, .27069, .90969, .06348, .01562, + -.00003, .04786, .10400, + .58581, .25930, .84524, .06152, .01755, + .00059, .04732, .09936, + .57186, .24922, .78353, .05951, .01877, + .00316, .04648, .09510, + .55875, .24025, .72728, .05757, .01954, + .00500, .04549, .09120, + .54630, .23208, .67591, .05564, .01996, + .00634, .04442, .08762 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + .53458, .22466, .62999, .05384, .02018, + .00735, .04333, .08432, + .52352, .21790, .58891, .05214, .02025, + .00813, .04224, .08127, + .51305, .21168, .55210, .05053, .02021, + .00872, .04117, .07845, + .50315, .20590, .51904, .04902, .02010, + .00915, .04014, .07583, + .49378, .20053, .48930, .04759, .01994, + .00948, .03914, .07340, + .48486, .19556, .46248, .04625, .01975, + .00974, .03819, .07113, + .47637, .19091, .43817, .04498, .01952, + .00992, .03727, .06901 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + .46825, .18652, .41601, .04377, .01927, + .01004, .03638, .06703, + .46055, .18240, .39587, .04263, .01902, + .01013, .03554, .06518, + .45322, .17851, .37746, .04154, .01876, + .01019, .03473, .06344, + .44612, .17483, .36053, .04053, .01849, + .01021, .03396, .06178, + .43938, .17135, .34503, .03958, .01822, + .01022, .03323, .06022 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + .65359, .29370, .92960, .05398, .00584, + -.00001, .03885, .09726, + .62904, .27475, .85340, .05217, .00987, + .00000, .03905, .09100, + .60694, .25923, .77385, .05009, .01214, + -.00001, .03846, .08552, + .58690, .24609, .70071, .04799, .01344, + .00045, .03751, .08072, + .56853, .23468, .63607, .04596, .01418, + .00231, .03641, .07644, + .55171, .22467, .58004, .04406, .01461, + .00361, .03528, .07260, + .53609, .21567, .53101, .04227, .01478, + .00453, .03413, .06914 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + .52166, .20760, .48845, .04060, .01481, + .00521, .03302, .06603, + .50826, .20028, .45132, .03906, .01475, + .00573, .03195, .06320, + .49573, .19362, .41879, .03763, .01462, + .00610, .03093, .06062, + .48401, .18751, .39010, .03630, .01446, + .00637, .02996, .05824, + .47304, .18186, .36470, .03504, .01426, + .00656, .02905, .05607, + .46273, .17665, .34212, .03387, .01403, + .00670, .02819, .05408, + .45296, .17181, .32189, .03282, .01381, + .00680, .02737, .05220 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + .44370, .16727, .30369, .03179, .01356, + .00686, .02660, .05048, + .43497, .16303, .28730, .03083, .01332, + .00689, .02587, .04888, + .42670, .15906, .27249, .02994, .01309, + .00690, .02518, .04737, + .41879, .15530, .25898, .02909, .01285, + .00689, .02452, .04596, + .41131, .15177, .24669, .02830, .01262, + .00688, .02390, .04464 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + .66431, .28276, .84653, .04336, .00474, + -.00001, .03197, .08132, + .63153, .26127, .74452, .04130, .00777, + -.00002, .03156, .07481, + .60331, .24403, .65460, .03916, .00939, + -.00002, .03062, .06937, + .57848, .22974, .57878, .03712, .01026, + .00031, .02949, .06470, + .55631, .21746, .51526, .03520, .01070, + .00169, .02831, .06068, + .53635, .20682, .46221, .03348, .01090, + .00260, .02718, .05712, + .51811, .19738, .41729, .03187, .01095, + .00327, .02607, .05398 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + .50146, .18898, .37923, .03041, .01089, + .00374, .02504, .05117, + .48618, .18142, .34668, .02907, .01076, + .00407, .02406, .04866, + .47205, .17460, .31865, .02784, .01060, + .00432, .02315, .04640, + .45893, .16838, .29435, .02671, .01042, + .00449, .02230, .04435, + .44676, .16266, .27310, .02567, .01022, + .00459, .02151, .04247, + .43541, .15741, .25441, .02470, .01001, + .00466, .02077, .04075, + .42477, .15256, .23784, .02381, .00981, + .00472, .02007, .03917 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + .41473, .14803, .22313, .02297, .00960, + .00475, .01941, .03771, + .40530, .14383, .20999, .02220, .00939, + .00476, .01880, .03636, + .39642, .13991, .19818, .02148, .00920, + .00475, .01823, .03512, + .38796, .13621, .18754, .02080, .00900, + .00473, .01769, .03395, + .37999, .13276, .17790, .02016, .00881, + .00469, .01719, .03286 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + .66501, .26806, .76016, .03445, .00382, + -.00002, .02597, .06684, + .62480, .24477, .64287, .03232, .00608, + -.00001, .02518, .06056, + .59113, .22650, .54934, .03031, .00722, + -.00002, .02409, .05541, + .56229, .21151, .47509, .02840, .00778, + .00025, .02295, .05116, + .53691, .19883, .41540, .02670, .00804, + .00123, .02181, .04752, + .51441, .18793, .36705, .02518, .00813, + .00189, .02075, .04436, + .49410, .17834, .32712, .02382, .00808, + .00236, .01975, .04161 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + .47576, .16989, .29396, .02258, .00797, + .00269, .01883, .03920, + .45909, .16234, .26613, .02146, .00783, + .00292, .01799, .03704, + .44381, .15554, .24250, .02044, .00768, + .00307, .01721, .03511, + .42975, .14939, .22223, .01951, .00750, + .00317, .01648, .03339, + .41678, .14378, .20475, .01866, .00732, + .00323, .01581, .03183, + .40477, .13864, .18955, .01786, .00714, + .00328, .01521, .03041, + .39351, .13393, .17622, .01715, .00696, + .00329, .01463, .02911 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + .38297, .12955, .16448, .01650, .00679, + .00329, .01410, .02791, + .37314, .12549, .15406, .01589, .00663, + .00329, .01360, .02681, + .36394, .12172, .14477, .01532, .00646, + .00327, .01315, .02580, + .35520, .11820, .13642, .01479, .00630, + .00325, .01271, .02486, + .34701, .11491, .12891, .01429, .00615, + .00323, .01230, .02398 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + .65683, .25071, .67279, .02701, .00304, + .00005, .02080, .05405, + .61006, .22645, .54900, .02502, .00469, + .00002, .01982, .04824, + .57187, .20766, .45698, .02318, .00547, + .00003, .01870, .04364, + .53971, .19245, .38718, .02156, .00583, + .00019, .01760, .03986, + .51183, .17974, .33292, .02009, .00594, + .00091, .01656, .03672, + .48739, .16889, .29007, .01884, .00596, + .00139, .01564, .03399, + .46562, .15941, .25544, .01766, .00588, + .00169, .01477, .03169 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + .44613, .15111, .22718, .01664, .00577, + .00190, .01400, .02965, + .42852, .14376, .20383, .01574, .00564, + .00205, .01328, .02786, + .41250, .13719, .18424, .01492, .00550, + .00215, .01264, .02627, + .39787, .13125, .16766, .01418, .00534, + .00222, .01204, .02486, + .38445, .12587, .15352, .01349, .00518, + .00225, .01151, .02359, + .37207, .12097, .14132, .01286, .00504, + .00227, .01102, .02245, + .36055, .11649, .13069, .01233, .00490, + .00228, .01056, .02140 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + .34986, .11233, .12139, .01178, .00475, + .00227, .01014, .02046, + .33991, .10850, .11322, .01129, .00461, + .00225, .00975, .01960, + .33058, .10496, .10598, .01086, .00449, + .00223, .00938, .01878, + .32179, .10166, .09953, .01047, .00437, + .00221, .00905, .01802, + .31357, .09859, .09375, .01010, .00425, + .00218, .00874, .01732 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + .64065, .23200, .58715, .02115, .00225, + -.00014, .01625, .04297, + .58852, .20729, .46345, .01928, .00347, + -.00015, .01527, .03782, + .54674, .18842, .37639, .01765, .00404, + -.00013, .01425, .03381, + .51212, .17334, .31289, .01624, .00425, + .00002, .01328, .03060, + .48246, .16081, .26492, .01500, .00432, + .00056, .01240, .02795, + .45675, .15021, .22778, .01394, .00432, + .00091, .01162, .02570, + .43402, .14108, .19840, .01301, .00421, + .00114, .01090, .02378 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + .41382, .13310, .17477, .01219, .00411, + .00129, .01026, .02214, + .39575, .12606, .15547, .01145, .00400, + .00140, .00969, .02070, + .37940, .11981, .13951, .01081, .00388, + .00147, .00917, .01943, + .36454, .11421, .12615, .01022, .00376, + .00151, .00870, .01828, + .35100, .10916, .11484, .00969, .00364, + .00153, .00828, .01726, + .33855, .10457, .10517, .00923, .00352, + .00154, .00789, .01634, + .32708, .10038, .09681, .00877, .00341, + .00154, .00753, .01554 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + .31640, .09653, .08957, .00837, .00330, + .00153, .00721, .01479, + .30650, .09298, .08323, .00802, .00320, + .00152, .00691, .01411, + .29730, .08971, .07763, .00768, .00310, + .00151, .00663, .01351, + .28866, .08667, .07266, .00736, .00300, + .00149, .00637, .01294, + .28060, .08385, .06823, .00707, .00290, + .00147, .00613, .01241 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + .61804, .21189, .50473, .01606, .00178, + -.00004, .01267, .03361, + .56155, .18741, .38629, .01448, .00265, + -.00002, .01170, .02917, + .51709, .16893, .30663, .01312, .00301, + -.00003, .01078, .02580, + .48072, .15429, .25038, .01196, .00313, + .00007, .00994, .02317, + .44992, .14226, .20887, .01098, .00315, + .00044, .00919, .02097, + .42343, .13218, .17743, .01016, .00310, + .00067, .00855, .01915, + .40028, .12349, .15296, .00941, .00302, + .00083, .00798, .01759 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + .37985, .11599, .13355, .00877, .00293, + .00093, .00746, .01628, + .36164, .10941, .11791, .00820, .00283, + .00100, .00700, .01514, + .34534, .10357, .10511, .00769, .00274, + .00104, .00659, .01414, + .33058, .09836, .09447, .00724, .00264, + .00106, .00623, .01326, + .31715, .09370, .08553, .00685, .00254, + .00107, .00590, .01247, + .30492, .08949, .07796, .00648, .00244, + .00107, .00560, .01176, + .29363, .08564, .07147, .00617, .00236, + .00107, .00534, .01114 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + .28321, .08212, .06586, .00588, .00228, + .00106, .00509, .01056, + .27361, .07890, .06099, .00561, .00220, + .00105, .00486, .01004, + .26470, .07593, .05671, .00536, .00213, + .00104, .00464, .00958, + .25637, .07317, .05293, .00512, .00205, + .00102, .00445, .00914, + .24862, .07062, .04958, .00490, .00199, + .00100, .00428, .00875 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + .58965, .19166, .42772, .01211, .00134, + -.00003, .00966, .02584, + .53008, .16777, .31802, .01077, .00195, + -.00004, .00879, .02215, + .48387, .14997, .24702, .00967, .00221, + -.00003, .00800, .01937, + .44655, .13604, .19835, .00872, .00226, + .00004, .00732, .01722, + .41526, .12469, .16325, .00796, .00224, + .00031, .00672, .01548, + .38864, .11519, .13706, .00730, .00220, + .00049, .00620, .01404, + .36545, .10711, .11702, .00673, .00214, + .00058, .00574, .01284 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + .34518, .10014, .10134, .00624, .00206, + .00064, .00535, .01181, + .32726, .09407, .08885, .00580, .00198, + .00069, .00499, .01091, + .31125, .08873, .07872, .00542, .00190, + .00072, .00468, .01015, + .29683, .08398, .07038, .00509, .00182, + .00073, .00440, .00948, + .28380, .07972, .06342, .00479, .00175, + .00073, .00415, .00888, + .27196, .07588, .05755, .00451, .00169, + .00073, .00393, .00835, + .26109, .07242, .05256, .00429, .00162, + .00072, .00372, .00788 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + .25111, .06925, .04828, .00408, .00156, + .00071, .00354, .00744, + .24194, .06634, .04457, .00387, .00150, + .00070, .00337, .00706, + .23348, .06368, .04134, .00367, .00144, + .00071, .00321, .00672, + .22558, .06122, .03848, .00349, .00139, + .00069, .00307, .00641, + .21825, .05896, .03595, .00333, .00134, + .00067, .00293, .00612 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + .55671, .17150, .35716, .00892, .00101, + -.00001, .00728, .01953, + .49518, .14866, .25840, .00785, .00144, + -.00001, .00653, .01650, + .44816, .13180, .19669, .00697, .00159, + .00000, .00588, .01430, + .41060, .11872, .15543, .00624, .00162, + .00004, .00532, .01262, + .37939, .10818, .12629, .00567, .00160, + .00024, .00483, .01125, + .35306, .09941, .10492, .00515, .00155, + .00034, .00444, .01014, + .33032, .09198, .08878, .00473, .00150, + .00041, .00409, .00920 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + .31055, .08562, .07630, .00436, .00144, + .00045, .00378, .00843, + .29318, .08010, .06644, .00404, .00138, + .00047, .00351, .00776, + .27774, .07527, .05852, .00376, .00132, + .00050, .00327, .00718, + .26392, .07099, .05207, .00352, .00125, + .00051, .00306, .00667, + .25146, .06717, .04672, .00330, .00119, + .00051, .00288, .00624, + .24017, .06374, .04224, .00311, .00115, + .00050, .00272, .00585, + .22995, .06063, .03845, .00292, .00110, + .00050, .00257, .00550 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + .22052, .05783, .03521, .00277, .00105, + .00048, .00243, .00518, + .21186, .05527, .03241, .00264, .00101, + .00048, .00231, .00489, + .20388, .05293, .02998, .00252, .00098, + .00048, .00219, .00464, + .19649, .05077, .02786, .00240, .00093, + .00046, .00209, .00440, + .18966, .04880, .02598, .00229, .00089, + .00045, .00199, .00418 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + .52016, .15185, .29381, .00640, .00079, + .00005, .00540, .01451, + .45781, .13035, .20711, .00559, .00106, + .00005, .00477, .01212, + .41085, .11466, .15465, .00492, .00115, + .00005, .00425, .01038, + .37367, .10259, .12037, .00438, .00116, + .00008, .00381, .00908, + .34313, .09290, .09662, .00394, .00114, + .00019, .00345, .00803, + .31752, .08491, .07948, .00356, .00110, + .00026, .00313, .00719, + .29558, .07820, .06671, .00326, .00104, + .00030, .00287, .00648 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + .27662, .07248, .05694, .00299, .00099, + .00033, .00263, .00591, + .26003, .06752, .04928, .00276, .00094, + .00035, .00244, .00543, + .24537, .06321, .04317, .00256, .00090, + .00035, .00227, .00500, + .23231, .05940, .03823, .00239, .00085, + .00035, .00211, .00462, + .22059, .05603, .03418, .00224, .00081, + .00034, .00198, .00430, + .21004, .05302, .03079, .00209, .00077, + .00034, .00186, .00402, + .20044, .05030, .02794, .00198, .00074, + .00033, .00175, .00375 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + .19166, .04784, .02552, .00188, .00070, + .00033, .00165, .00353, + .18365, .04560, .02343, .00178, .00068, + .00032, .00156, .00333, + .17632, .04356, .02163, .00168, .00066, + .00031, .00148, .00314, + .16954, .04169, .02005, .00158, .00063, + .00031, .00141, .00297, + .16328, .03997, .01866, .00149, .00060, + .00031, .00134, .00283 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + .48090, .13323, .23815, .00463, .00054, + .00001, .00389, .01058, + .41895, .11324, .16385, .00397, .00074, + .00002, .00340, .00871, + .37279, .09882, .12007, .00344, .00080, + .00001, .00299, .00741, + .33665, .08781, .09216, .00307, .00080, + .00003, .00266, .00641, + .30720, .07905, .07313, .00273, .00078, + .00012, .00239, .00564, + .28268, .07187, .05961, .00248, .00074, + .00018, .00216, .00501, + .26183, .06588, .04965, .00224, .00070, + .00020, .00196, .00451 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + .24391, .06079, .04209, .00205, .00067, + .00022, .00180, .00407, + .22831, .05642, .03624, .00189, .00064, + .00024, .00166, .00372, + .21461, .05261, .03162, .00175, .00060, + .00023, .00153, .00341, + .20249, .04927, .02788, .00161, .00056, + .00023, .00142, .00314, + .19165, .04633, .02484, .00149, .00054, + .00023, .00132, .00292, + .18189, .04370, .02231, .00140, .00051, + .00023, .00124, .00272, + .17306, .04133, .02019, .00132, .00049, + .00023, .00117, .00254 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + .16503, .03921, .01839, .00125, .00046, + .00022, .00109, .00238, + .15771, .03729, .01685, .00117, .00043, + .00022, .00103, .00224, + .15103, .03553, .01552, .00110, .00041, + .00020, .00097, .00211, + .14485, .03392, .01437, .00105, .00040, + .00020, .00092, .00200, + .13917, .03245, .01335, .00099, .00038, + .00020, .00087, .00189 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + .44001, .11559, .19006, .00324, .00038, + .00003, .00278, .00754, + .37939, .09733, .12774, .00274, .00051, + .00002, .00238, .00615, + .33470, .08429, .09202, .00240, .00052, + .00002, .00206, .00518, + .30011, .07442, .06971, .00214, .00052, + .00003, .00183, .00443, + .27218, .06660, .05475, .00189, .00050, + .00008, .00161, .00388, + .24907, .06024, .04422, .00170, .00047, + .00011, .00146, .00343, + .22956, .05495, .03657, .00153, .00045, + .00013, .00131, .00307 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + .21287, .05049, .03084, .00140, .00042, + .00014, .00119, .00278, + .19842, .04667, .02642, .00129, .00040, + .00015, .00110, .00251, + .18581, .04337, .02295, .00118, .00038, + .00014, .00100, .00229, + .17467, .04049, .02017, .00109, .00036, + .00014, .00092, .00211, + .16475, .03794, .01791, .00102, .00034, + .00014, .00086, .00195, + .15589, .03568, .01605, .00095, .00032, + .00013, .00080, .00180, + .14790, .03366, .01449, .00088, .00030, + .00013, .00075, .00169 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + .14064, .03184, .01317, .00083, .00029, + .00013, .00070, .00158, + .13405, .03020, .01204, .00078, .00027, + .00013, .00066, .00148, + .12805, .02870, .01108, .00073, .00025, + .00012, .00063, .00140, + .12250, .02734, .01024, .00070, .00024, + .00012, .00059, .00131, + .11740, .02610, .00950, .00067, .00023, + .00011, .00055, .00123 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + .39819, .09919, .14914, .00220, .00031, + .00004, .00195, .00525, + .33978, .08269, .09797, .00184, .00036, + .00004, .00165, .00426, + .29723, .07103, .06939, .00159, .00037, + .00003, .00142, .00355, + .26461, .06228, .05188, .00139, .00036, + .00004, .00124, .00301, + .23845, .05540, .04033, .00122, .00034, + .00007, .00109, .00262, + .21702, .04983, .03232, .00107, .00033, + .00009, .00098, .00231, + .19897, .04524, .02655, .00098, .00031, + .00009, .00088, .00203 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + .18368, .04138, .02226, .00088, .00028, + .00010, .00080, .00183, + .17050, .03810, .01898, .00080, .00026, + .00010, .00072, .00166, + .15903, .03527, .01643, .00073, .00025, + .00010, .00066, .00152, + .14893, .03281, .01440, .00068, .00024, + .00010, .00061, .00139, + .13999, .03064, .01274, .00063, .00023, + .00010, .00057, .00127, + .13204, .02872, .01139, .00058, .00022, + .00010, .00053, .00118, + .12487, .02702, .01026, .00056, .00021, + .00009, .00049, .00108 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + .11840, .02549, .00931, .00052, .00019, + .00010, .00046, .00101, + .11255, .02411, .00850, .00050, .00018, + .00010, .00043, .00095, + .10721, .02287, .00781, .00047, .00018, + .00009, .00041, .00087, + .10232, .02172, .00721, .00044, .00017, + .00009, .00038, .00083, + .09785, .02069, .00668, .00040, .00016, + .00008, .00036, .00079 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + .35637, .08418, .11504, .00144, .00020, + .00002, .00134, .00363, + .30093, .06947, .07388, .00119, .00025, + .00003, .00113, .00287, + .26098, .05917, .05149, .00101, .00026, + .00003, .00096, .00236, + .23066, .05151, .03802, .00086, .00026, + .00003, .00084, .00199, + .20652, .04555, .02928, .00077, .00025, + .00006, .00075, .00169, + .18689, .04074, .02329, .00065, .00023, + .00007, .00066, .00150, + .17047, .03680, .01902, .00059, .00022, + .00007, .00059, .00132 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + .15663, .03351, .01587, .00053, .00020, + .00008, .00053, .00118, + .14477, .03071, .01348, .00047, .00019, + .00009, .00049, .00107, + .13448, .02832, .01163, .00044, .00018, + .00008, .00044, .00097, + .12548, .02625, .01016, .00041, .00017, + .00008, .00041, .00088, + .11755, .02444, .00898, .00037, .00016, + .00008, .00038, .00080, + .11050, .02284, .00800, .00034, .00015, + .00008, .00035, .00075, + .10418, .02142, .00720, .00033, .00014, + .00007, .00033, .00069 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + .09850, .02015, .00652, .00031, .00014, + .00008, .00031, .00064, + .09338, .01901, .00594, .00028, .00013, + .00008, .00028, .00060, + .08872, .01798, .00545, .00026, .00012, + .00007, .00026, .00056, + .08446, .01704, .00502, .00025, .00011, + .00007, .00025, .00052, + .08057, .01619, .00465, .00024, .00011, + .00006, .00024, .00049 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + .31534, .07072, .08731, .00103, .00009, + -.00003, .00084, .00244, + .26356, .05780, .05498, .00083, .00013, + -.00001, .00070, .00190, + .22668, .04884, .03774, .00070, .00014, + -.00002, .00060, .00153, + .19891, .04225, .02760, .00059, .00013, + -.00001, .00052, .00130, + .17696, .03713, .02109, .00054, .00012, + .00001, .00044, .00111, + .15925, .03305, .01666, .00047, .00012, + .00002, .00039, .00097, + .14455, .02971, .01354, .00042, .00011, + .00003, .00035, .00086 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + .13219, .02694, .01125, .00038, .00010, + .00003, .00031, .00075, + .12165, .02460, .00953, .00036, .00010, + .00003, .00028, .00067, + .11257, .02260, .00820, .00032, .00009, + .00003, .00026, .00061, + .10466, .02087, .00715, .00029, .00008, + .00003, .00024, .00055, + .09772, .01937, .00630, .00026, .00008, + .00003, .00022, .00051, + .09158, .01805, .00561, .00023, .00007, + .00003, .00020, .00048, + .08608, .01688, .00504, .00023, .00007, + .00003, .00018, .00043 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + .08116, .01584, .00456, .00022, .00006, + .00003, .00017, .00040, + .07674, .01491, .00415, .00020, .00006, + .00003, .00016, .00037, + .07273, .01406, .00380, .00019, .00006, + .00003, .00014, .00035, + .06907, .01330, .00350, .00018, .00006, + .00003, .00013, .00033, + .06574, .01261, .00324, .00017, .00005, + .00002, .00013, .00031 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + .27543, .05845, .06477, .00059, .00010, + .00003, .00059, .00156, + .22769, .04730, .03998, .00050, .00010, + .00003, .00047, .00122, + .19413, .03965, .02708, .00042, .00010, + .00002, .00038, .00099, + .16908, .03404, .01959, .00036, .00009, + .00003, .00033, .00083, + .14947, .02974, .01485, .00031, .00008, + .00003, .00028, .00071, + .13371, .02634, .01167, .00027, .00007, + .00002, .00025, .00060, + .12076, .02356, .00944, .00024, .00007, + .00003, .00022, .00053 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + .10990, .02127, .00782, .00024, .00007, + .00003, .00019, .00047, + .10070, .01934, .00660, .00021, .00006, + .00003, .00017, .00042, + .09282, .01770, .00566, .00018, .00006, + .00003, .00016, .00037, + .08598, .01629, .00493, .00017, .00005, + .00002, .00015, .00033, + .07998, .01506, .00434, .00016, .00005, + .00003, .00013, .00030, + .07469, .01399, .00386, .00015, .00005, + .00002, .00012, .00028, + .07001, .01305, .00346, .00013, .00004, + .00002, .00011, .00026 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + .06580, .01220, .00313, .00013, .00004, + .00002, .00010, .00024, + .06203, .01145, .00284, .00012, .00004, + .00002, .00009, .00022, + .05863, .01078, .00260, .00012, .00003, + .00002, .00009, .00021, + .05556, .01017, .00239, .00010, .00004, + .00002, .00009, .00019, + .05276, .00962, .00221, .00010, .00003, + .00002, .00008, .00018 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + .23735, .04768, .04709, .00034, .00008, + .00004, .00039, .00098, + .19415, .03819, .02850, .00027, .00008, + .00004, .00031, .00075, + .16402, .03174, .01904, .00024, .00007, + .00002, .00026, .00061, + .14179, .02706, .01365, .00019, .00006, + .00002, .00021, .00051, + .12451, .02349, .01027, .00018, .00006, + .00003, .00018, .00042, + .11074, .02068, .00802, .00016, .00005, + .00002, .00016, .00036, + .09945, .01840, .00647, .00014, .00005, + .00003, .00014, .00032 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + .09009, .01653, .00534, .00011, .00005, + .00002, .00012, .00028, + .08217, .01496, .00450, .00011, .00004, + .00002, .00011, .00025, + .07541, .01364, .00385, .00010, .00004, + .00002, .00009, .00023, + .06959, .01251, .00334, .00009, .00003, + .00002, .00009, .00021, + .06451, .01153, .00294, .00008, .00003, + .00002, .00008, .00018, + .06004, .01067, .00261, .00008, .00003, + .00002, .00008, .00016, + .05608, .00992, .00234, .00008, .00003, + .00002, .00007, .00015 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + .05256, .00925, .00211, .00007, .00003, + .00002, .00006, .00014, + .04941, .00866, .00192, .00007, .00003, + .00001, .00006, .00013, + .04656, .00813, .00175, .00007, .00002, + .00001, .00006, .00012, + .04400, .00765, .00161, .00006, .00002, + .00001, .00005, .00010, + .04168, .00722, .00149, .00005, .00002, + .00001, .00005, .00009 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + .20188, .03842, .03353, .00024, .00003, + .00001, .00022, .00062, + .16328, .03045, .01994, .00019, .00003, + .00001, .00017, .00047, + .13671, .02510, .01316, .00017, .00003, + .00001, .00014, .00037, + .11730, .02124, .00936, .00013, .00003, + .00000, .00012, .00030, + .10235, .01832, .00700, .00011, .00002, + .00001, .00010, .00025, + .09047, .01603, .00545, .00010, .00003, + .00001, .00009, .00023, + .08083, .01419, .00438, .00008, .00002, + .00001, .00007, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + .07285, .01269, .00360, .00008, .00002, + .00000, .00006, .00016, + .06614, .01144, .00303, .00008, .00001, + .00001, .00005, .00015, + .06046, .01039, .00259, .00007, .00002, + .00001, .00005, .00013, + .05557, .00949, .00225, .00007, .00002, + .00001, .00005, .00012, + .05132, .00872, .00197, .00007, .00001, + .00001, .00004, .00011, + .04760, .00804, .00175, .00006, .00001, + .00000, .00003, .00009, + .04433, .00746, .00157, .00006, .00001, + .00000, .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)/ + .04142, .00693, .00141, .00005, .00001, + .00000, .00003, .00008, + .03883, .00647, .00128, .00005, .00001, + .00001, .00003, .00007, + .03652, .00606, .00117, .00004, .00001, + .00000, .00003, .00007, + .03441, .00569, .00108, .00004, .00001, + .00001, .00002, .00006, + .03250, .00535, .00099, .00004, .00001, + .00001, .00002, .00006 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + .16881, .03032, .02320, .00009, .00004, + .00004, .00014, .00037, + .13497, .02378, .01355, .00008, .00003, + .00003, .00011, .00027, + .11197, .01942, .00885, .00007, .00003, + .00002, .00009, .00021, + .09528, .01632, .00624, .00007, .00003, + .00002, .00007, .00016, + .08255, .01398, .00465, .00005, .00002, + .00002, .00006, .00015, + .07252, .01216, .00360, .00006, .00002, + .00002, .00006, .00010, + .06443, .01071, .00289, .00004, .00002, + .00001, .00004, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + .05777, .00953, .00237, .00003, .00002, + .00001, .00004, .00009, + .05221, .00855, .00199, .00004, .00001, + .00001, .00004, .00008, + .04752, .00773, .00170, .00003, .00001, + .00001, .00003, .00007, + .04349, .00703, .00147, .00003, .00001, + .00001, .00003, .00006, + .04002, .00643, .00129, .00002, .00001, + .00001, .00003, .00006, + .03701, .00592, .00114, .00001, .00001, + .00001, .00002, .00005, + .03432, .00546, .00102, .00003, .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)/ + .03197, .00507, .00092, .00002, .00001, + .00001, .00002, .00004, + .02988, .00471, .00084, .00002, .00001, + .00001, .00002, .00004, + .02800, .00440, .00076, .00002, .00001, + .00001, .00002, .00003, + .02632, .00412, .00070, .00002, .00001, + .00001, .00002, .00003, + .02480, .00387, .00064, .00002, .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)/ + .11210, .01794, .01023, .00004, .00001, + .00000, .00004, .00011, + .08751, .01374, .00580, .00003, .00001, + .00000, .00003, .00008, + .07118, .01102, .00371, .00002, .00000, + .00000, .00003, .00006, + .05958, .00910, .00259, .00001, .00000, + .00000, .00002, .00005, + .05085, .00769, .00192, .00002, .00001, + .00000, .00002, .00004, + .04410, .00661, .00148, .00001, .00000, + .00000, .00001, .00003, + .03872, .00575, .00118, .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)/ + .03434, .00506, .00097, .00001, .00001, + .00000, .00001, .00002, + .03074, .00450, .00081, .00001, .00000, + .00000, .00001, .00002, + .02771, .00403, .00069, .00001, .00000, + .00000, .00001, .00002, + .02516, .00364, .00060, .00000, .00000, + .00000, .00001, .00002, + .02296, .00330, .00052, .00000, .00000, + .00000, .00001, .00002, + .02106, .00302, .00046, .00001, .00000, + .00000, .00001, .00001, + .01940, .00277, .00041, .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)/ + .01795, .00255, .00037, .00001, .00000, + .00000, .00001, .00001, + .01667, .00236, .00034, .00000, .00000, + .00000, .00001, .00001, + .01554, .00219, .00031, .00000, .00000, + .00000, .00001, .00001, + .01452, .00203, .00028, .00000, .00000, + .00000, .00001, .00001, + .01360, .00190, .00026, .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)/ + .06818, .00965, .00390, .00001, .00000, + .00000, .00001, .00003, + .05187, .00721, .00217, .00000, .00000, + -.00001, .00001, .00003, + .04129, .00566, .00137, .00001, .00000, + -.00001, .00000, .00002, + .03395, .00459, .00096, .00000, .00000, + .00000, .00000, .00001, + .02853, .00382, .00071, .00001, .00000, + .00000, .00000, .00001, + .02439, .00324, .00055, .00001, .00000, + .00000, .00000, .00000, + .02114, .00279, .00044, .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)/ + .01853, .00242, .00036, .00000, .00000, + .00000, .00000, .00001, + .01641, .00213, .00030, .00000, .00000, + .00000, .00000, .00000, + .01465, .00189, .00025, .00000, .00000, + .00000, .00000, .00000, + .01317, .00169, .00022, .00000, .00000, + .00000, .00000, .00000, + .01192, .00152, .00019, .00000, .00000, + .00000, .00000, .00000, + .01085, .00138, .00017, .00000, .00000, + .00000, .00000, .00000, + .00992, .00126, .00015, .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)/ + .00911, .00115, .00014, .00000, .00000, + .00000, .00000, .00000, + .00840, .00106, .00012, .00000, .00000, + .00000, .00000, .00000, + .00778, .00097, .00011, .00000, .00000, + .00000, .00000, .00000, + .00722, .00090, .00010, .00000, .00000, + .00000, .00000, .00000, + .00673, .00084, .00009, .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)/ + .03695, .00456, .00123, .00000, .00000, + .00000, .00000, .00001, + .02730, .00331, .00068, .00001, .00000, + .00000, .00000, .00000, + .02123, .00254, .00043, .00000, .00000, + .00000, .00000, .00000, + .01711, .00203, .00030, .00000, .00000, + .00000, .00000, .00000, + .01412, .00166, .00022, .00000, .00000, + .00000, .00000, .00000, + .01188, .00138, .00017, .00000, .00000, + .00000, .00000, .00000, + .01015, .00117, .00014, .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)/ + .00879, .00101, .00011, .00000, .00000, + .00000, .00000, .00000, + .00768, .00088, .00010, .00000, .00000, + .00000, .00000, .00000, + .00678, .00077, .00008, .00000, .00000, + .00000, .00000, .00000, + .00604, .00068, .00007, .00000, .00000, + .00000, .00000, .00000, + .00541, .00061, .00006, .00000, .00000, + .00000, .00000, .00000, + .00488, .00054, .00005, .00000, .00000, + .00000, .00000, .00000, + .00442, .00049, .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)/ + .00403, .00045, .00004, .00000, .00000, + .00000, .00000, .00000, + .00369, .00041, .00004, .00000, .00000, + .00000, .00000, .00000, + .00339, .00037, .00004, .00000, .00000, + .00000, .00000, .00000, + .00312, .00034, .00003, .00000, .00000, + .00000, .00000, .00000, + .00289, .00032, .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)/ + .01691, .00179, .00029, .00000, .00000, + .00000, .00000, .00000, + .01209, .00126, .00017, .00000, .00000, + .00000, .00000, .00000, + .00914, .00094, .00011, .00000, .00000, + .00000, .00000, .00000, + .00720, .00073, .00008, .00000, .00000, + .00000, .00000, .00000, + .00582, .00059, .00006, .00000, .00000, + .00000, .00000, .00000, + .00481, .00048, .00005, .00000, .00000, + .00000, .00000, .00000, + .00404, .00040, .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)/ + .00344, .00034, .00003, .00000, .00000, + .00000, .00000, .00000, + .00297, .00029, .00003, .00000, .00000, + .00000, .00000, .00000, + .00259, .00025, .00002, .00000, .00000, + .00000, .00000, .00000, + .00227, .00022, .00002, .00000, .00000, + .00000, .00000, .00000, + .00202, .00019, .00002, .00000, .00000, + .00000, .00000, .00000, + .00180, .00017, .00001, .00000, .00000, + .00000, .00000, .00000, + .00161, .00015, .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)/ + .00146, .00014, .00001, .00000, .00000, + .00000, .00000, .00000, + .00132, .00013, .00001, .00000, .00000, + .00000, .00000, .00000, + .00120, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00110, .00010, .00001, .00000, .00000, + .00000, .00000, .00000, + .00101, .00010, .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)/ + .00134, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00087, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00061, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00045, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00034, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00027, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00021, .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=8,14)/ + .00017, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .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, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00003, .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(80,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