#include "pdf/pilot.h" SUBROUTINE SFMS105(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C C THIS IS THE alphas=0.105 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)/ + .00429, .00751, 15.24004, 1.49785, .15273, + .00000, .79608, 1.50215, + .00467, .00773, 25.09024, 1.75664, .42720, + .00000, 1.06366, 1.76153, + .00502, .00793, 36.47660, 2.06438, .74880, + .00000, 1.37920, 2.06981, + .00535, .00812, 49.44331, 2.41480, 1.11165, + .08323, 1.73663, 2.42071, + .00567, .00830, 63.80544, 2.80662, 1.51481, + .44671, 2.13487, 2.81299, + .00597, .00847, 79.39906, 3.23736, 1.95598, + .90575, 2.57152, 3.24417, + .00626, .00864, 96.07378, 3.70368, 2.43195, + 1.39154, 3.04333, 3.71090 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + .00654, .00879, 113.71258, 4.20263, 2.93990, + 1.90982, 3.54740, 4.21025, + .00681, .00895, 132.22623, 4.73181, 3.47749, + 2.45670, 4.08138, 4.73980, + .00708, .00910, 151.55020, 5.28940, 4.04297, + 3.03096, 4.64347, 5.29775, + .00733, .00924, 171.42918, 5.87117, 4.63218, + 3.62840, 5.22951, 5.87986, + .00758, .00938, 191.81004, 6.47485, 5.24292, + 4.24688, 5.83724, 6.48388, + .00782, .00952, 212.84419, 7.10212, 5.87686, + 4.88814, 6.46833, 7.11146, + .00806, .00965, 234.20511, 7.74732, 6.52842, + 5.54663, 7.11719, 7.75697 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + .00829, .00978, 255.89407, 8.40938, 7.19654, + 6.22134, 7.78273, 8.41933, + .00851, .00990, 278.10541, 9.09163, 7.88457, + 6.91563, 8.46831, 9.10187, + .00873, .01003, 300.25491, 9.78245, 8.58094, + 7.61799, 9.16234, 9.79297, + .00895, .01015, 323.02802, 10.49473, 9.29853, + 8.34129, 9.87768, 10.50552, + .00916, .01026, 345.52124, 11.21006, 10.01898, + 9.06721, 10.59597, 11.22112 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + .00649, .00944, 13.36316, 1.31543, .13108, + .00000, .69578, 1.31921, + .00701, .00974, 21.36941, 1.52902, .35885, + .00000, .91715, 1.53317, + .00749, .01001, 30.39042, 1.77845, .62082, + .00000, 1.17349, 1.78295, + .00794, .01027, 40.44909, 2.05823, .91184, + .06642, 1.45947, 2.06304, + .00837, .01051, 51.38906, 2.36683, 1.23068, + .35422, 1.77373, 2.37194, + .00879, .01074, 63.07763, 2.70191, 1.57517, + .71372, 2.11401, 2.70730, + .00919, .01096, 75.39803, 3.06057, 1.94255, + 1.08958, 2.47751, 3.06623 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + .00957, .01118, 88.26244, 3.44038, 2.33047, + 1.48635, 2.86182, 3.44629, + .00994, .01138, 101.60588, 3.83936, 2.73703, + 1.90088, 3.26501, 3.84551, + .01030, .01158, 115.38318, 4.25605, 3.16083, + 2.33221, 3.68566, 4.26243, + .01064, .01178, 129.41080, 4.68718, 3.59867, + 2.77710, 4.12053, 4.69378, + .01098, .01196, 143.65585, 5.13108, 4.04891, + 3.23398, 4.56796, 5.13789, + .01131, .01214, 158.23265, 5.58901, 4.51285, + 3.70419, 5.02924, 5.59602, + .01162, .01232, 172.91071, 6.05676, 4.98632, + 4.18361, 5.50019, 6.06397 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + .01193, .01249, 187.69673, 6.53361, 5.46862, + 4.67155, 5.98008, 6.54101, + .01224, .01265, 202.73286, 7.02206, 5.96226, + 5.17057, 6.47144, 7.02965, + .01253, .01282, 217.61276, 7.51363, 6.45881, + 5.67225, 6.96580, 7.52139, + .01282, .01298, 232.82140, 8.01782, 6.96776, + 6.18609, 7.47266, 8.02576, + .01310, .01313, 247.73346, 8.52126, 7.47579, + 6.69882, 7.97867, 8.52936 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + .00963, .01187, 11.71559, 1.15438, .11239, + .00000, .60791, 1.15784, + .01034, .01227, 18.19607, 1.33000, .30088, + .00000, .79048, 1.33370, + .01101, .01264, 25.31227, 1.53130, .51355, + .00000, .99792, 1.53521, + .01163, .01299, 33.07971, 1.75362, .74607, + .05280, 1.22575, 1.75773, + .01222, .01332, 41.37315, 1.99547, .99719, + .27979, 1.47263, 1.99977, + .01279, .01363, 50.09064, 2.25478, 1.26503, + .56021, 1.73656, 2.25925, + .01333, .01393, 59.14583, 2.52919, 1.54732, + .84980, 2.01524, 2.53382 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + .01385, .01421, 68.47643, 2.81673, 1.84220, + 1.15224, 2.30676, 2.82151, + .01436, .01449, 78.03844, 3.11588, 2.14821, + 1.46507, 2.60964, 3.12081, + .01484, .01475, 87.80267, 3.42552, 2.46428, + 1.78758, 2.92278, 3.43060, + .01531, .01501, 97.63992, 3.74320, 2.78802, + 2.11735, 3.24375, 3.74841, + .01577, .01526, 107.53239, 4.06770, 3.11825, + 2.45327, 3.57137, 4.07304, + .01621, .01550, 117.56750, 4.40005, 3.45602, + 2.79640, 3.90667, 4.40552, + .01664, .01573, 127.58436, 4.73715, 3.79828, + 3.14374, 4.24658, 4.74273 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + .01706, .01596, 137.59335, 5.07853, 4.14458, + 3.49487, 4.59064, 5.08423, + .01747, .01617, 147.69920, 5.42611, 4.49684, + 3.85172, 4.94077, 5.43192, + .01786, .01639, 157.62035, 5.77373, 4.84895, + 4.20822, 5.29084, 5.77965, + .01825, .01660, 167.70047, 6.12840, 5.20792, + 4.57137, 5.64786, 6.13443, + .01863, .01680, 177.50833, 6.48048, 5.56412, + 4.93159, 6.00218, 6.48660 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + .01205, .01357, 10.84625, 1.06891, .10267, + .00000, .56160, 1.07232, + .01291, .01405, 16.55970, 1.22522, .27115, + .00000, .72443, 1.22880, + .01371, .01450, 22.73916, 1.40235, .45904, + .00000, .90732, 1.40610, + .01446, .01491, 29.39969, 1.59620, .66254, + .04606, 1.10634, 1.60010, + .01518, .01530, 36.43384, 1.80534, .88044, + .24322, 1.32018, 1.80938, + .01586, .01567, 43.75632, 2.02791, 1.11107, + .48518, 1.54707, 2.03208, + .01651, .01602, 51.29648, 2.26183, 1.35245, + .73324, 1.78500, 2.26612 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + .01714, .01636, 59.00493, 2.50544, 1.60299, + .99067, 2.03233, 2.50985, + .01774, .01669, 66.84789, 2.75744, 1.86147, + 1.25537, 2.28781, 2.76196, + .01832, .01700, 74.80418, 3.01690, 2.12701, + 1.52678, 2.55054, 3.02153, + .01888, .01730, 82.76933, 3.28176, 2.39760, + 1.80286, 2.81847, 3.28649, + .01943, .01760, 90.73236, 3.55105, 2.67230, + 2.08274, 3.09067, 3.55588, + .01995, .01788, 98.76840, 3.82568, 2.95204, + 2.36738, 3.36806, 3.83060, + .02047, .01815, 106.74777, 4.10307, 3.23430, + 2.65427, 3.64807, 4.10808 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + .02096, .01842, 114.68212, 4.38288, 3.51876, + 2.94313, 3.93038, 4.38798, + .02145, .01868, 122.65924, 4.66677, 3.80706, + 3.23562, 4.21664, 4.67195, + .02192, .01893, 130.45233, 4.94963, 4.09416, + 3.52671, 4.50178, 4.95489, + .02238, .01917, 138.34261, 5.23733, 4.38592, + 3.82228, 4.79167, 5.24267, + .02283, .01941, 145.98373, 5.52193, 4.67441, + 4.11443, 5.07836, 5.52734 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + .01409, .01493, 10.26792, 1.01181, .09626, + .00000, .53081, 1.01524, + .01508, .01548, 15.48660, 1.15555, .25172, + .00000, .68080, 1.15914, + .01599, .01598, 21.07016, 1.31713, .42365, + .00000, .84789, 1.32085, + .01685, .01645, 27.03439, 1.49277, .60857, + .04177, 1.02848, 1.49662, + .01767, .01689, 33.28394, 1.68115, .80539, + .21997, 1.22136, 1.68512, + .01844, .01731, 39.74452, 1.88055, 1.01254, + .43765, 1.42489, 1.88463, + .01918, .01771, 46.35567, 2.08911, 1.22827, + .65965, 1.63728, 2.09329 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + .01990, .01809, 53.07611, 2.30534, 1.45117, + .88899, 1.85707, 2.30962, + .02058, .01845, 59.87853, 2.52810, 1.68017, + 1.12381, 2.08315, 2.53247, + .02124, .01881, 66.74657, 2.75660, 1.91451, + 1.36364, 2.31477, 2.76106, + .02188, .01915, 73.59087, 2.98902, 2.15243, + 1.60671, 2.55013, 2.99356, + .02250, .01947, 80.40439, 3.22453, 2.39314, + 1.85227, 2.78842, 3.22916, + .02309, .01979, 87.25471, 3.46398, 2.63751, + 2.10122, 3.03049, 3.46868, + .02367, .02010, 94.03099, 3.70511, 2.88333, + 2.35136, 3.27413, 3.70989 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + .02424, .02040, 100.74520, 3.94767, 3.13034, + 2.60250, 3.51907, 3.95252, + .02479, .02068, 107.47482, 4.19313, 3.38006, + 2.85612, 3.76680, 4.19805, + .02532, .02097, 114.02604, 4.43705, 3.62804, + 3.10785, 4.01289, 4.44204, + .02584, .02124, 120.64219, 4.68460, 3.87949, + 3.36287, 4.26253, 4.68966, + .02635, .02151, 127.02734, 4.92886, 4.12749, + 3.61429, 4.50878, 4.93398 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + .01589, .01609, 9.83995, .96939, .09154, + .00000, .50803, .97289, + .01699, .01668, 14.70079, 1.10400, .23754, + .00000, .64868, 1.10763, + .01800, .01724, 19.85776, 1.25433, .39792, + .00000, .80435, 1.25809, + .01895, .01775, 25.32763, 1.41690, .56950, + .03869, .97171, 1.42077, + .01986, .01823, 31.02410, 1.59045, .75124, + .20334, 1.14960, 1.59442, + .02071, .01869, 36.88091, 1.77338, .94170, + .40373, 1.33653, 1.77745, + .02153, .01913, 42.84484, 1.96398, 1.13927, + .60727, 1.53084, 1.96815 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + .02232, .01955, 48.88044, 2.16091, 1.34267, + .81678, 1.73121, 2.16517, + .02308, .01995, 54.96485, 2.36314, 1.55096, + 1.03060, 1.93666, 2.36748, + .02381, .02034, 61.08510, 2.56998, 1.76346, + 1.24832, 2.14651, 2.57440, + .02451, .02071, 67.16228, 2.77976, 1.97859, + 1.46833, 2.35913, 2.78426, + .02519, .02107, 73.19199, 2.99178, 2.19566, + 1.69001, 2.57384, 2.99635, + .02585, .02142, 79.23650, 3.20684, 2.41549, + 1.91419, 2.79143, 3.21148, + .02649, .02175, 85.19765, 3.42290, 2.63610, + 2.13891, 3.00991, 3.42761 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + .02711, .02208, 91.08782, 3.63976, 2.85729, + 2.36401, 3.22907, 3.64453, + .02771, .02239, 96.97733, 3.85878, 3.08043, + 2.59087, 3.45029, 3.86362, + .02830, .02270, 102.69447, 4.07597, 3.30157, + 2.81555, 3.66957, 4.08086, + .02887, .02300, 108.45699, 4.29602, 3.52540, + 3.04277, 3.89163, 4.30097, + .02942, .02329, 114.00282, 4.51270, 3.74571, + 3.26633, 4.11024, 4.51771 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + .02294, .02030, 8.61589, .84714, .07820, + .00000, .44282, .85110, + .02446, .02110, 12.49397, .95640, .19790, + .00000, .55760, .96049, + .02586, .02184, 16.50042, 1.07590, .32662, + .00000, .68197, 1.08010, + .02717, .02253, 20.65644, 1.20302, .46199, + .03035, .81344, 1.20732, + .02841, .02318, 24.90124, 1.33671, .60320, + .15857, .95110, 1.34111, + .02958, .02379, 29.19057, 1.47578, .74918, + .31282, 1.09381, 1.48026, + .03070, .02438, 33.49064, 1.61894, .89873, + .46748, 1.24035, 1.62351 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + .03177, .02494, 37.78101, 1.76524, 1.05097, + .62490, 1.38978, 1.76990, + .03280, .02547, 42.05033, 1.91398, 1.20525, + .78389, 1.54144, 1.91871, + .03379, .02598, 46.29396, 2.06468, 1.36116, + .94423, 1.69490, 2.06949, + .03474, .02647, 50.45932, 2.21619, 1.51756, + 1.10479, 1.84898, 2.22107, + .03566, .02695, 54.54804, 2.36805, 1.67405, + 1.26519, 2.00328, 2.37299, + .03655, .02740, 58.60851, 2.52093, 1.83132, + 1.42614, 2.15848, 2.52594, + .03741, .02784, 62.57438, 2.67339, 1.98794, + 1.58626, 2.31313, 2.67846 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + .03824, .02827, 66.45786, 2.82536, 2.14387, + 1.74551, 2.46719, 2.83049, + .03905, .02869, 70.31107, 2.97788, 2.30018, + 1.90497, 2.62171, 2.98307, + .03983, .02909, 74.01716, 3.12811, 2.45402, + 2.06183, 2.77384, 3.13335, + .04060, .02948, 77.72953, 3.27950, 2.60888, + 2.21957, 2.92706, 3.28481, + .04134, .02986, 81.26978, 3.42762, 2.76033, + 2.37377, 3.07693, 3.43298 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + .03288, .02574, 7.53223, .73728, .06656, + .00000, .38488, .74217, + .03498, .02682, 10.59324, .82512, .16404, + .00000, .47782, .83017, + .03691, .02781, 13.67015, .91911, .26654, + .00000, .57631, .92430, + .03871, .02873, 16.78907, 1.01736, .37242, + .02361, .67860, 1.02269, + .04040, .02959, 19.91064, 1.11911, .48113, + .12258, .78403, 1.12457, + .04200, .03041, 23.00824, 1.22349, .59190, + .24022, .89179, 1.22908, + .04353, .03118, 26.06300, 1.32962, .70393, + .35661, 1.00104, 1.33532 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + .04498, .03192, 29.06558, 1.43685, .81665, + .47372, 1.11117, 1.44266, + .04637, .03263, 32.01273, 1.54473, .92966, + .59072, 1.22176, 1.55064, + .04771, .03330, 34.90546, 1.65299, 1.04273, + .70754, 1.33257, 1.65901, + .04899, .03395, 37.70998, 1.76083, 1.15510, + .82342, 1.44280, 1.76694, + .05022, .03457, 40.43147, 1.86799, 1.26654, + .93817, 1.55222, 1.87419, + .05141, .03517, 43.10740, 1.97503, 1.37764, + 1.05240, 1.66141, 1.98132, + .05257, .03575, 45.69372, 2.08096, 1.48743, + 1.16514, 1.76938, 2.08734 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + .05368, .03631, 48.20187, 2.18578, 1.59591, + 1.27644, 1.87613, 2.19224, + .05476, .03685, 50.67022, 2.29031, 1.70394, + 1.38714, 1.98252, 2.29685, + .05580, .03737, 53.02005, 2.39254, 1.80951, + 1.49526, 2.08650, 2.39915, + .05682, .03788, 55.35876, 2.49499, 1.91518, + 1.60336, 2.19066, 2.50168, + .05781, .03837, 57.56620, 2.59455, 2.01781, + 1.70832, 2.29183, 2.60131 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + .04049, .02969, 6.95356, .67771, .06040, + .00000, .35371, .68336, + .04303, .03097, 9.59946, .75454, .14646, + .00000, .43545, .76039, + .04535, .03215, 12.21521, .83563, .23571, + .00000, .52088, .84168, + .04751, .03324, 14.82948, .91950, .32690, + .02027, .60864, .92573, + .04953, .03426, 17.41357, 1.00555, .41962, + .10484, .69823, 1.01194, + .05145, .03522, 19.94930, 1.09309, .51327, + .20465, .78902, 1.09963, + .05327, .03613, 22.42464, 1.18141, .60725, + .30259, .88035, 1.18810 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + .05500, .03700, 24.83516, 1.27002, .70114, + .40044, .97176, 1.27685, + .05666, .03782, 27.18107, 1.35861, .79464, + .49757, 1.06297, 1.36558, + .05824, .03862, 29.46562, 1.44699, .88764, + .59396, 1.15380, 1.45409, + .05976, .03937, 31.66334, 1.53452, .97952, + .68903, 1.24365, 1.54174, + .06122, .04010, 33.78059, 1.62105, 1.07016, + .78266, 1.33235, 1.62838, + .06263, .04080, 35.84948, 1.70708, 1.16008, + .87541, 1.42046, 1.71453, + .06399, .04148, 37.83582, 1.79180, 1.24850, + .96651, 1.50714, 1.79936 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + .06530, .04213, 39.75022, 1.87527, 1.33548, + 1.05604, 1.59248, 1.88293, + .06658, .04276, 41.62459, 1.95818, 1.42175, + 1.14472, 1.67718, 1.96594, + .06781, .04337, 43.39705, 2.03889, 1.50568, + 1.23096, 1.75959, 2.04675, + .06900, .04396, 45.15421, 2.11953, 1.58939, + 1.31687, 1.84187, 2.12749, + .07016, .04453, 46.80130, 2.19754, 1.67035, + 1.39994, 1.92145, 2.20559 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + .04692, .03295, 6.56414, .63716, .05627, + .00000, .33258, .64345, + .04981, .03440, 8.93909, .70674, .13483, + .00000, .40696, .71328, + .05245, .03572, 11.25842, .77946, .21547, + .00000, .48391, .78623, + .05490, .03695, 13.55241, .85410, .29722, + .01813, .56234, .86107, + .05720, .03810, 15.79911, .93013, .37973, + .09351, .64183, .93731, + .05937, .03918, 17.98551, 1.00700, .46255, + .18202, .72188, 1.01436, + .06143, .04020, 20.10373, 1.08413, .54518, + .26834, .80194, 1.09166 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + .06338, .04117, 22.15219, 1.16111, .62729, + .35415, .88166, 1.16881, + .06525, .04210, 24.13305, 1.23771, .70867, + .43890, .96082, 1.24557, + .06704, .04298, 26.05077, 1.31380, .78925, + .52264, 1.03931, 1.32182, + .06875, .04383, 27.88480, 1.38885, .86853, + .60488, 1.11662, 1.39701, + .07039, .04464, 29.64199, 1.46274, .94641, + .68556, 1.19264, 1.47104, + .07197, .04542, 31.35105, 1.53596, 1.02341, + .76519, 1.26788, 1.54439, + .07349, .04617, 32.98357, 1.60781, 1.09885, + .84313, 1.34165, 1.61637 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + .07496, .04690, 34.54958, 1.67835, 1.17282, + .91946, 1.41402, 1.68704, + .07639, .04760, 36.07693, 1.74822, 1.24596, + .99485, 1.48565, 1.75703, + .07776, .04827, 37.51375, 1.81602, 1.31688, + 1.06791, 1.55511, 1.82494, + .07910, .04893, 38.93396, 1.88359, 1.38744, + 1.14052, 1.62428, 1.89262, + .08039, .04956, 40.25806, 1.94873, 1.45546, + 1.21051, 1.69096, 1.95788 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + .05265, .03588, 6.26982, .60610, .05312, + .00000, .31627, .61280, + .05583, .03748, 8.44191, .67027, .12606, + .00000, .38513, .67725, + .05874, .03893, 10.54189, .73680, .20035, + .00000, .45580, .74403, + .06144, .04028, 12.60117, .80466, .27516, + .01656, .52737, .81211, + .06397, .04153, 14.60282, .87340, .35023, + .08526, .59950, .88107, + .06635, .04272, 16.53732, .94254, .42519, + .16555, .67175, .95042, + .06860, .04384, 18.39979, 1.01160, .49962, + .24349, .74368, 1.01966 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + .07074, .04490, 20.19061, 1.08023, .57326, + .32062, .81499, 1.08848, + .07278, .04591, 21.91310, 1.14826, .64596, + .39651, .88552, 1.15669, + .07473, .04687, 23.57248, 1.21560, .71768, + .47123, .95521, 1.22420, + .07660, .04779, 25.15165, 1.28179, .78800, + .54434, 1.02360, 1.29054, + .07839, .04867, 26.65755, 1.34674, .85685, + .61583, 1.09063, 1.35564, + .08011, .04952, 28.11650, 1.41091, .92472, + .68619, 1.15678, 1.41996, + .08177, .05034, 29.50427, 1.47370, .99102, + .75485, 1.22145, 1.48289 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + .08336, .05112, 30.83015, 1.53518, 1.05584, + .82191, 1.28472, 1.54450, + .08491, .05188, 32.11908, 1.59593, 1.11978, + .88797, 1.34718, 1.60538, + .08640, .05261, 33.32617, 1.65471, 1.18160, + .95183, 1.40758, 1.66428, + .08785, .05332, 34.51641, 1.71318, 1.24299, + 1.01515, 1.46762, 1.72288, + .08925, .05400, 35.62114, 1.76939, 1.30201, + 1.07602, 1.52533, 1.77920 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + .07517, .04719, 5.41490, .51454, .04408, + .00000, .26871, .52320, + .07946, .04933, 7.02868, .56363, .10138, + .00000, .32223, .57268, + .08336, .05127, 8.53842, .61322, .15821, + .00000, .37572, .62262, + .08695, .05306, 9.97762, .66276, .21425, + .01235, .42876, .67248, + .09030, .05471, 11.34166, .71202, .26942, + .06312, .48122, .72204, + .09344, .05627, 12.62999, .76074, .32358, + .12165, .53287, .77105, + .09640, .05773, 13.84438, .80866, .37652, + .17755, .58350, .81923 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + .09920, .05911, 14.98943, .85564, .42817, + .23211, .63299, .86646, + .10186, .06041, 16.07103, .90160, .47849, + .28511, .68131, .91266, + .10439, .06166, 17.09566, .94656, .52755, + .33666, .72849, .95785, + .10680, .06284, 18.05423, .99025, .57508, + .38654, .77425, 1.00175, + .10910, .06396, 18.95373, 1.03265, .62111, + .43478, .81861, 1.04435, + .11132, .06504, 19.81352, 1.07414, .66606, + .48180, .86197, 1.08604, + .11343, .06607, 20.61901, 1.11435, .70953, + .52724, .90394, 1.12643 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + .11547, .06706, 21.37772, 1.15334, .75164, + .57122, .94462, 1.16561, + .11744, .06802, 22.10705, 1.19158, .79285, + .61420, .98446, 1.20402, + .11932, .06893, 22.77884, 1.22821, .83231, + .65536, 1.02262, 1.24082, + .12116, .06982, 23.43591, 1.26443, .87125, + .69591, 1.06031, 1.27719, + .12292, .07067, 24.03496, 1.29890, .90833, + .73454, 1.09619, 1.31182 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + .10717, .06345, 4.62899, .42858, .03589, + .00000, .22435, .43995, + .11284, .06628, 5.77495, .46482, .07978, + .00000, .26476, .47674, + .11794, .06882, 6.80785, .50038, .12207, + .00000, .30398, .51277, + .12261, .07113, 7.76118, .53508, .16281, + .00895, .34198, .54792, + .12694, .07327, 8.63855, .56888, .20210, + .04539, .37877, .58212, + .13097, .07525, 9.44523, .60167, .23993, + .08677, .41430, .61529, + .13474, .07710, 10.18674, .63336, .27627, + .12558, .44853, .64733 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + .13829, .07883, 10.86947, .66393, .31116, + .16289, .48146, .67823, + .14165, .08046, 11.50019, .69341, .34467, + .19862, .51313, .70802, + .14482, .08200, 12.08549, .72185, .37690, + .23292, .54364, .73676, + .14783, .08345, 12.62132, .74910, .40771, + .26567, .57283, .76428, + .15069, .08483, 13.11387, .77522, .43718, + .29697, .60078, .79066, + .15342, .08615, 13.57670, .80051, .46565, + .32715, .62780, .81620, + .15603, .08740, 14.00136, .82470, .49286, + .35599, .65364, .84063 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + .15853, .08859, 14.39392, .84792, .51894, + .38362, .67841, .86407, + .16093, .08973, 14.76592, .87047, .54424, + .41038, .70247, .88684, + .16322, .09082, 15.10030, .89182, .56820, + .43573, .72524, .90839, + .16544, .09187, 15.42419, .91278, .59166, + .46053, .74757, .92956, + .16756, .09287, 15.71150, .93248, .61375, + .48389, .76856, .94944 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + .13178, .07619, 4.19514, .38089, .03149, + -.00001, .20002, .39453, + .13836, .07946, 5.10692, .41058, .06848, + -.00001, .23373, .42488, + .14425, .08237, 5.90863, .43916, .10348, + -.00001, .26583, .45403, + .14961, .08501, 6.63274, .46663, .13670, + .00728, .29646, .48202, + .15455, .08743, 7.28621, .49301, .16831, + .03678, .32571, .50888, + .15913, .08966, 7.87565, .51829, .19837, + .06997, .35361, .53459, + .16340, .09172, 8.40794, .54243, .22694, + .10074, .38019, .55914 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + .16740, .09365, 8.88981, .56546, .25408, + .13004, .40548, .58255, + .17116, .09545, 9.32786, .58745, .27990, + .15783, .42957, .60488, + .17470, .09715, 9.72828, .60846, .30452, + .18429, .45256, .62623, + .17806, .09874, 10.08882, .62841, .32784, + .20934, .47436, .64649, + .18122, .10024, 10.41476, .64735, .34997, + .23309, .49505, .66573, + .18425, .10166, 10.71710, .66556, .37119, + .25584, .51491, .68421, + .18712, .10301, 10.99015, .68283, .39132, + .27742, .53375, .70174 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + .18985, .10429, 11.23854, .69927, .41049, + .29795, .55168, .71843, + .19248, .10552, 11.47121, .71515, .42896, + .31772, .56899, .73455, + .19498, .10668, 11.67572, .73004, .44632, + .33632, .58523, .74965, + .19739, .10779, 11.87243, .74459, .46325, + .35443, .60109, .76443, + .19968, .10885, 12.04229, .75813, .47905, + .37136, .61586, .77816 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + .15255, .08712, 3.89613, .34823, .02854, + -.00001, .18348, .36390, + .15980, .09070, 4.65814, .37368, .06101, + -.00001, .21281, .39007, + .16626, .09386, 5.31520, .39781, .09132, + -.00001, .24035, .41484, + .17211, .09671, 5.89858, .42073, .11977, + .00624, .26633, .43834, + .17748, .09930, 6.41662, .44250, .14657, + .03138, .29088, .46063, + .18244, .10168, 6.87676, .46315, .17183, + .05947, .31407, .48176, + .18704, .10388, 7.28614, .48268, .19561, + .08529, .33595, .50173 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + .19134, .10591, 7.65145, .50116, .21804, + .10969, .35661, .52061, + .19536, .10781, 7.97895, .51866, .23922, + .13267, .37613, .53848, + .19914, .10959, 8.27436, .53526, .25927, + .15442, .39464, .55543, + .20271, .11124, 8.53640, .55088, .27814, + .17487, .41205, .57139, + .20606, .11280, 8.76975, .56562, .29593, + .19414, .42846, .58643, + .20926, .11427, 8.98366, .57969, .31289, + .21251, .44413, .60079, + .21228, .11566, 9.17379, .59295, .32890, + .22983, .45890, .61432 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + .21515, .11697, 9.34410, .60549, .34404, + .24622, .47287, .62711, + .21790, .11823, 9.50190, .61753, .35857, + .26195, .48628, .63940, + .22051, .11940, 9.63737, .62873, .37214, + .27665, .49879, .65083, + .22302, .12054, 9.76685, .63964, .38533, + .29091, .51095, .66196, + .22540, .12160, 9.87534, .64970, .39756, + .30417, .52220, .67222 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + .17086, .09686, 3.66841, .32366, .02635, + .00000, .17115, .34123, + .17863, .10065, 4.32339, .34603, .05553, + .00000, .19731, .36439, + .18552, .10398, 4.87893, .36699, .08247, + .00000, .22158, .38602, + .19173, .10697, 5.36494, .38669, .10753, + .00550, .24426, .40634, + .19742, .10967, 5.79031, .40523, .13094, + .02757, .26549, .42543, + .20265, .11214, 6.16314, .42266, .15283, + .05208, .28539, .44336, + .20749, .11441, 6.49036, .43902, .17331, + .07446, .30403, .46017 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + .21199, .11650, 6.77861, .45437, .19248, + .09547, .32150, .47595, + .21619, .11844, 7.03367, .46881, .21048, + .11516, .33791, .49078, + .22012, .12024, 7.26072, .48242, .22743, + .13369, .35337, .50475, + .22382, .12193, 7.45933, .49514, .24329, + .15101, .36782, .51780, + .22728, .12350, 7.63357, .50705, .25815, + .16726, .38136, .53002, + .23058, .12498, 7.79140, .51837, .27227, + .18268, .39422, .54163, + .23369, .12637, 7.92920, .52897, .28552, + .19715, .40628, .55250 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + .23663, .12768, 8.05072, .53893, .29799, + .21079, .41763, .56271, + .23945, .12893, 8.16209, .54845, .30992, + .22382, .42848, .57248, + .24210, .13009, 8.25507, .55723, .32100, + .23595, .43852, .58149, + .24466, .13121, 8.34336, .56577, .33173, + .24768, .44827, .59024, + .24707, .13226, 8.41462, .57357, .34163, + .25853, .45722, .59824 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + .24275, .13542, 2.97669, .25204, .02014, + .00000, .13598, .27789, + .25190, .13955, 3.34811, .26597, .04022, + .00000, .15335, .29270, + .25985, .14306, 3.64290, .27841, .05805, + .00000, .16881, .30587, + .26690, .14613, 3.88571, .28967, .07414, + .00355, .18277, .31775, + .27323, .14885, 4.08579, .29988, .08874, + .01760, .19542, .32851, + .27897, .15127, 4.25060, .30916, .10202, + .03290, .20693, .33826, + .28418, .15344, 4.38615, .31758, .11415, + .04653, .21740, .34710 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + .28895, .15540, 4.49771, .32524, .12525, + .05907, .22696, .35514, + .29335, .15717, 4.58983, .33223, .13544, + .07059, .23572, .36247, + .29742, .15880, 4.66621, .33863, .14484, + .08123, .24377, .36917, + .30118, .16027, 4.72679, .34443, .15345, + .09099, .25112, .37524, + .30465, .16161, 4.77456, .34969, .16136, + .09998, .25784, .38074, + .30790, .16285, 4.81422, .35458, .16876, + .10839, .26410, .38585, + .31094, .16399, 4.84403, .35901, .17556, + .11615, .26982, .39048 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + .31377, .16504, 4.86599, .36305, .18186, + .12335, .27509, .39470, + .31645, .16602, 4.88357, .36683, .18779, + .13014, .28005, .39865, + .31893, .16691, 4.89253, .37018, .19318, + .13634, .28450, .40213, + .32131, .16776, 4.90018, .37338, .19835, + .14229, .28878, .40548, + .32350, .16852, 4.90003, .37617, .20300, + .14768, .29258, .40838 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + .34376, .18759, 2.29428, .18798, .01484, + -.00002, .10581, .22626, + .35285, .19072, 2.45316, .19490, .02738, + -.00001, .11580, .23365, + .36046, .19318, 2.56349, .20061, .03804, + -.00002, .12420, .23969, + .36697, .19519, 2.64286, .20544, .04729, + .00206, .13142, .24477, + .37261, .19685, 2.69838, .20953, .05538, + .01014, .13766, .24903, + .37753, .19821, 2.73536, .21299, .06250, + .01873, .14307, .25260, + .38185, .19933, 2.75804, .21591, .06879, + .02617, .14779, .25560 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + .38566, .20025, 2.76966, .21838, .07438, + .03285, .15191, .25811, + .38904, .20101, 2.77298, .22046, .07936, + .03882, .15552, .26019, + .39207, .20163, 2.77014, .22221, .08383, + .04420, .15871, .26193, + .39475, .20213, 2.76113, .22365, .08780, + .04904, .16147, .26334, + .39712, .20251, 2.74758, .22482, .09135, + .05339, .16388, .26444, + .39928, .20283, 2.73182, .22581, .09459, + .05738, .16604, .26535, + .40121, .20305, 2.71297, .22657, .09748, + .06098, .16790, .26604 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + .40292, .20321, 2.69196, .22716, .10009, + .06425, .16953, .26653, + .40449, .20333, 2.67040, .22765, .10250, + .06728, .17101, .26693, + .40586, .20336, 2.64618, .22793, .10460, + .06999, .17222, .26710, + .40715, .20338, 2.62270, .22818, .10659, + .07255, .17336, .26725, + .40823, .20333, 2.59698, .22823, .10830, + .07480, .17426, .26718 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + .41868, .22193, 1.89418, .15273, .01209, + .00000, .08953, .19882, + .42599, .22325, 1.96122, .15614, .02095, + .00000, .09577, .20204, + .43174, .22401, 1.99648, .15868, .02824, + .00000, .10074, .20428, + .43640, .22444, 2.01297, .16058, .03440, + .00141, .10482, .20590, + .44019, .22459, 2.01580, .16201, .03964, + .00685, .10818, .20699, + .44329, .22453, 2.00858, .16302, .04414, + .01254, .11094, .20765, + .44581, .22429, 1.99426, .16370, .04801, + .01735, .11321, .20796 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + .44785, .22393, 1.97492, .16411, .05137, + .02159, .11509, .20800, + .44951, .22348, 1.95221, .16431, .05429, + .02532, .11663, .20782, + .45085, .22295, 1.92738, .16433, .05685, + .02863, .11791, .20747, + .45187, .22234, 1.90039, .16418, .05907, + .03154, .11891, .20694, + .45265, .22167, 1.87214, .16389, .06100, + .03413, .11971, .20629, + .45326, .22097, 1.84394, .16353, .06273, + .03646, .12037, .20557, + .45365, .22024, 1.81510, .16307, .06422, + .03853, .12085, .20474 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + .45387, .21948, 1.78616, .16252, .06553, + .04037, .12120, .20384, + .45401, .21871, 1.75799, .16193, .06672, + .04207, .12147, .20294, + .45396, .21789, 1.72929, .16126, .06772, + .04354, .12159, .20192, + .45390, .21709, 1.70195, .16059, .06865, + .04491, .12169, .20093, + .45364, .21625, 1.67411, .15984, .06940, + .04610, .12166, .19984 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + .47772, .24478, 1.60943, .12740, .01016, + .00000, .07747, .17746, + .48226, .24401, 1.62608, .12871, .01677, + -.00001, .08136, .17785, + .48536, .24291, 1.62229, .12938, .02205, + .00000, .08426, .17767, + .48751, .24162, 1.60765, .12966, .02641, + .00103, .08649, .17713, + .48891, .24020, 1.58570, .12964, .03004, + .00494, .08820, .17629, + .48970, .23869, 1.55888, .12936, .03308, + .00898, .08949, .17524, + .49001, .23712, 1.52911, .12891, .03563, + .01234, .09044, .17403 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + .48997, .23550, 1.49774, .12830, .03780, + .01525, .09113, .17271, + .48963, .23386, 1.46569, .12758, .03964, + .01777, .09160, .17131, + .48905, .23224, 1.43364, .12680, .04122, + .01999, .09190, .16986, + .48823, .23060, 1.40149, .12594, .04256, + .02191, .09205, .16835, + .48723, .22896, 1.36969, .12502, .04369, + .02358, .09206, .16681, + .48614, .22735, 1.33900, .12408, .04467, + .02506, .09200, .16529, + .48493, .22574, 1.30887, .12309, .04550, + .02637, .09184, .16377 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + .48360, .22415, 1.27957, .12208, .04619, + .02751, .09160, .16222, + .48225, .22261, 1.25157, .12110, .04681, + .02854, .09134, .16069, + .48075, .22105, 1.22397, .12007, .04730, + .02943, .09098, .15915, + .47929, .21956, 1.19791, .11908, .04774, + .03025, .09063, .15768, + .47768, .21805, 1.17215, .11804, .04808, + .03093, .09021, .15617 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + .52453, .25909, 1.38874, .10701, .00863, + -.00001, .06723, .15799, + .52570, .25627, 1.37491, .10699, .01368, + -.00001, .06952, .15647, + .52572, .25331, 1.34878, .10655, .01764, + .00000, .07108, .15466, + .52500, .25038, 1.31736, .10589, .02082, + .00076, .07215, .15274, + .52370, .24749, 1.28287, .10506, .02341, + .00368, .07284, .15072, + .52198, .24464, 1.24692, .10411, .02555, + .00666, .07325, .14864, + .51995, .24184, 1.21062, .10304, .02730, + .00911, .07342, .14655 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + .51769, .23909, 1.17473, .10193, .02874, + .01120, .07343, .14448, + .51526, .23641, 1.13978, .10078, .02994, + .01298, .07331, .14242, + .51272, .23381, 1.10609, .09962, .03095, + .01452, .07309, .14039, + .51003, .23128, 1.07341, .09844, .03178, + .01585, .07276, .13839, + .50726, .22880, 1.04196, .09725, .03245, + .01698, .07237, .13642, + .50451, .22641, 1.01215, .09609, .03303, + .01798, .07195, .13451, + .50170, .22407, .98350, .09492, .03349, + .01884, .07148, .13264 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + .49885, .22180, .95612, .09376, .03386, + .01958, .07096, .13082, + .49604, .21962, .93025, .09264, .03417, + .02024, .07045, .12907, + .49316, .21746, .90523, .09151, .03440, + .02080, .06989, .12732, + .49040, .21539, .88175, .09043, .03460, + .02132, .06935, .12566, + .48753, .21334, .85895, .08934, .03472, + .02173, .06876, .12401 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + .56862, .26782, 1.16940, .08585, .00704, + -.00001, .05591, .13486, + .56515, .26255, 1.13287, .08486, .01074, + -.00001, .05692, .13185, + .56096, .25751, 1.09131, .08367, .01357, + .00000, .05741, .12885, + .55644, .25276, 1.04924, .08242, .01577, + .00056, .05759, .12594, + .55169, .24824, 1.00768, .08109, .01753, + .00264, .05753, .12313, + .54679, .24391, .96734, .07972, .01893, + .00474, .05732, .12042, + .54179, .23980, .92869, .07836, .02005, + .00643, .05696, .11779 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + .53678, .23587, .89199, .07700, .02095, + .00787, .05652, .11528, + .53179, .23211, .85737, .07567, .02167, + .00907, .05601, .11287, + .52687, .22853, .82484, .07437, .02225, + .01010, .05546, .11057, + .52197, .22507, .79409, .07309, .02271, + .01096, .05487, .10834, + .51712, .22176, .76509, .07183, .02306, + .01168, .05425, .10621, + .51240, .21861, .73802, .07062, .02334, + .01230, .05363, .10418, + .50775, .21556, .71246, .06944, .02355, + .01284, .05300, .10221 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + .50316, .21262, .68839, .06829, .02370, + .01330, .05237, .10033, + .49872, .20983, .66590, .06719, .02381, + .01369, .05174, .09853, + .49430, .20709, .64446, .06610, .02388, + .01402, .05111, .09678, + .49006, .20450, .62449, .06506, .02393, + .01431, .05050, .09511, + .48581, .20195, .60538, .06404, .02392, + .01454, .04987, .09350 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + .59866, .26868, .99245, .06825, .00570, + -.00003, .04589, .11306, + .59040, .26127, .94327, .06682, .00848, + -.00002, .04612, .10929, + .58197, .25444, .89416, .06530, .01053, + -.00003, .04601, .10578, + .57369, .24815, .84774, .06380, .01210, + .00038, .04571, .10247, + .56554, .24228, .80414, .06232, .01332, + .00193, .04527, .09938, + .55758, .23677, .76340, .06087, .01426, + .00346, .04474, .09648, + .54979, .23160, .72558, .05946, .01498, + .00468, .04414, .09375 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + .54221, .22674, .69054, .05809, .01554, + .00568, .04351, .09116, + .53488, .22216, .65816, .05677, .01599, + .00651, .04285, .08872, + .52780, .21783, .62828, .05550, .01633, + .00721, .04219, .08643, + .52090, .21370, .60050, .05429, .01658, + .00779, .04151, .08425, + .51420, .20977, .57472, .05310, .01675, + .00828, .04084, .08219, + .50776, .20606, .55093, .05198, .01688, + .00869, .04018, .08025, + .50149, .20252, .52874, .05091, .01696, + .00904, .03953, .07838 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + .49541, .19912, .50807, .04987, .01699, + .00932, .03889, .07661, + .48959, .19589, .48890, .04888, .01701, + .00956, .03827, .07494, + .48383, .19279, .47086, .04792, .01699, + .00975, .03765, .07333, + .47834, .18985, .45414, .04702, .01697, + .00991, .03706, .07180, + .47292, .18698, .43831, .04613, .01690, + .01004, .03647, .07034 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + .61630, .26354, .84571, .05361, .00458, + -.00001, .03710, .09303, + .60329, .25443, .79004, .05207, .00666, + -.00001, .03687, .08906, + .59081, .24614, .73803, .05050, .00816, + -.00002, .03644, .08544, + .57897, .23864, .69085, .04901, .00929, + .00030, .03591, .08212, + .56768, .23175, .64795, .04758, .01012, + .00143, .03529, .07908, + .55688, .22538, .60890, .04621, .01076, + .00254, .03464, .07626, + .54656, .21945, .57341, .04490, .01124, + .00342, .03396, .07363 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + .53672, .21391, .54115, .04364, .01160, + .00414, .03327, .07120, + .52733, .20874, .51180, .04244, .01186, + .00472, .03259, .06894, + .51836, .20390, .48510, .04132, .01204, + .00521, .03191, .06684, + .50976, .19933, .46062, .04024, .01216, + .00559, .03125, .06486, + .50149, .19500, .43813, .03920, .01224, + .00591, .03061, .06298, + .49360, .19093, .41757, .03823, .01229, + .00618, .03000, .06123, + .48600, .18707, .39862, .03730, .01229, + .00639, .02938, .05959 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + .47871, .18338, .38111, .03641, .01228, + .00657, .02879, .05802, + .47176, .17990, .36498, .03557, .01226, + .00672, .02824, .05653, + .46496, .17657, .34993, .03477, .01220, + .00684, .02768, .05513, + .45850, .17344, .33607, .03401, .01213, + .00695, .02715, .05381, + .45217, .17039, .32306, .03327, .01205, + .00702, .02664, .05255 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + .62293, .25389, .72171, .04154, .00362, + -.00003, .02950, .07514, + .60552, .24340, .66351, .04006, .00521, + -.00002, .02908, .07128, + .58926, .23405, .61143, .03860, .00632, + -.00002, .02851, .06786, + .57422, .22565, .56557, .03723, .00714, + .00021, .02789, .06478, + .56012, .21804, .52484, .03595, .00773, + .00106, .02723, .06198, + .54689, .21103, .48852, .03472, .00816, + .00190, .02657, .05942, + .53441, .20457, .45611, .03357, .00848, + .00253, .02591, .05706 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + .52261, .19861, .42707, .03248, .00871, + .00304, .02525, .05489, + .51147, .19307, .40098, .03147, .00886, + .00346, .02462, .05289, + .50097, .18791, .37748, .03050, .00896, + .00380, .02401, .05104, + .49098, .18306, .35620, .02959, .00900, + .00408, .02340, .04934, + .48144, .17851, .33689, .02873, .00901, + .00430, .02283, .04773, + .47241, .17426, .31936, .02792, .00901, + .00448, .02229, .04622, + .46377, .17024, .30330, .02716, .00899, + .00462, .02176, .04479 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + .45552, .16643, .28860, .02643, .00895, + .00473, .02125, .04346, + .44769, .16285, .27517, .02574, .00891, + .00483, .02077, .04222, + .44009, .15943, .26272, .02509, .00884, + .00490, .02030, .04104, + .43291, .15622, .25130, .02448, .00877, + .00495, .01985, .03993, + .42592, .15311, .24068, .02389, .00869, + .00500, .01942, .03887 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + .61980, .24090, .61569, .03174, .00284, + -.00002, .02310, .05958, + .59842, .22941, .55758, .03039, .00405, + .00001, .02261, .05609, + .57888, .21932, .50721, .02913, .00490, + -.00001, .02201, .05301, + .56106, .21032, .46392, .02795, .00549, + .00016, .02141, .05028, + .54457, .20224, .42622, .02685, .00591, + .00081, .02079, .04783, + .52926, .19489, .39315, .02581, .00621, + .00142, .02018, .04559, + .51498, .18814, .36404, .02486, .00642, + .00190, .01958, .04355 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + .50164, .18194, .33828, .02395, .00655, + .00228, .01900, .04171, + .48916, .17622, .31543, .02309, .00664, + .00258, .01844, .04003, + .47745, .17092, .29509, .02229, .00669, + .00282, .01791, .03847, + .46637, .16598, .27684, .02156, .00669, + .00301, .01740, .03702, + .45588, .16137, .26037, .02086, .00668, + .00316, .01691, .03568, + .44601, .15707, .24555, .02021, .00665, + .00328, .01645, .03443, + .43664, .15301, .23210, .01959, .00661, + .00337, .01601, .03328 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + .42771, .14919, .21986, .01901, .00656, + .00344, .01559, .03219, + .41926, .14561, .20873, .01848, .00651, + .00349, .01519, .03117, + .41113, .14220, .19849, .01796, .00644, + .00354, .01481, .03021, + .40346, .13899, .18914, .01747, .00637, + .00358, .01445, .02932, + .39605, .13592, .18051, .01701, .00630, + .00359, .01410, .02847 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + .60821, .22551, .52438, .02384, .00223, + .00004, .01781, .04641, + .58337, .21344, .46819, .02274, .00315, + .00005, .01731, .04338, + .56104, .20292, .42079, .02170, .00375, + .00003, .01676, .04074, + .54092, .19363, .38073, .02073, .00417, + .00017, .01621, .03844, + .52254, .18532, .34643, .01982, .00447, + .00064, .01565, .03637, + .50561, .17781, .31679, .01900, .00468, + .00109, .01511, .03450, + .48993, .17102, .29105, .01825, .00480, + .00142, .01461, .03279 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + .47544, .16478, .26853, .01751, .00488, + .00169, .01412, .03127, + .46197, .15903, .24875, .01681, .00493, + .00190, .01365, .02988, + .44937, .15375, .23129, .01619, .00495, + .00208, .01320, .02861, + .43756, .14884, .21573, .01561, .00493, + .00220, .01279, .02742, + .42642, .14428, .20186, .01506, .00491, + .00229, .01239, .02635, + .41598, .14004, .18946, .01456, .00488, + .00237, .01201, .02535, + .40610, .13608, .17825, .01409, .00483, + .00244, .01165, .02441 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + .39678, .13234, .16813, .01363, .00478, + .00248, .01131, .02354, + .38801, .12882, .15898, .01319, .00473, + .00252, .01100, .02274, + .37959, .12552, .15062, .01279, .00466, + .00254, .01070, .02198, + .37167, .12242, .14301, .01242, .00460, + .00256, .01041, .02128, + .36402, .11947, .13602, .01206, .00454, + .00256, .01013, .02061 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + .58916, .20888, .44565, .01788, .00157, + -.00014, .01336, .03553, + .56157, .19648, .39243, .01695, .00230, + -.00014, .01296, .03297, + .53705, .18577, .34853, .01611, .00278, + -.00012, .01250, .03077, + .51519, .17638, .31209, .01531, .00309, + -.00001, .01203, .02889, + .49540, .16805, .28134, .01458, .00332, + .00036, .01158, .02719, + .47731, .16058, .25511, .01390, .00346, + .00072, .01115, .02569, + .46072, .15382, .23261, .01328, .00354, + .00098, .01073, .02433 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + .44543, .14767, .21314, .01270, .00359, + .00118, .01033, .02311, + .43129, .14205, .19618, .01217, .00362, + .00135, .00996, .02199, + .41817, .13689, .18132, .01168, .00362, + .00147, .00961, .02097, + .40588, .13214, .16824, .01124, .00360, + .00157, .00927, .02005, + .39442, .12771, .15662, .01081, .00357, + .00163, .00896, .01919, + .38373, .12361, .14629, .01040, .00355, + .00168, .00867, .01840, + .37363, .11979, .13705, .01003, .00351, + .00173, .00839, .01769 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + .36411, .11622, .12873, .00970, .00346, + .00176, .00812, .01701, + .35518, .11289, .12124, .00939, .00342, + .00179, .00787, .01636, + .34667, .10974, .11445, .00908, .00336, + .00180, .00763, .01578, + .33867, .10679, .10830, .00880, .00331, + .00182, .00741, .01524, + .33100, .10400, .10268, .00852, .00326, + .00181, .00720, .01473 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + .56419, .19093, .37699, .01296, .00123, + -.00003, .01000, .02672, + .53441, .17856, .32759, .01227, .00176, + -.00003, .00964, .02468, + .50826, .16795, .28761, .01162, .00213, + -.00003, .00928, .02287, + .48514, .15872, .25497, .01102, .00236, + .00005, .00889, .02135, + .46437, .15057, .22780, .01047, .00250, + .00032, .00852, .02002, + .44555, .14331, .20490, .00996, .00260, + .00057, .00816, .01882, + .42839, .13675, .18544, .00949, .00265, + .00076, .00783, .01777 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + .41267, .13082, .16877, .00905, .00267, + .00092, .00752, .01681, + .39819, .12544, .15439, .00866, .00268, + .00103, .00722, .01594, + .38480, .12053, .14189, .00831, .00267, + .00111, .00695, .01514, + .37239, .11598, .13094, .00796, .00265, + .00117, .00668, .01443, + .36084, .11179, .12129, .00763, .00262, + .00121, .00643, .01378, + .35011, .10793, .11276, .00732, .00259, + .00124, .00620, .01319, + .34004, .10434, .10519, .00704, .00255, + .00127, .00598, .01263 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + .33056, .10098, .09842, .00678, .00251, + .00129, .00578, .01212, + .32166, .09786, .09235, .00654, .00247, + .00130, .00559, .01165, + .31324, .09493, .08688, .00631, .00242, + .00130, .00541, .01121, + .30535, .09220, .08193, .00610, .00238, + .00130, .00524, .01080, + .29782, .08959, .07743, .00591, .00234, + .00130, .00508, .01041 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + .53418, .17278, .31758, .00933, .00090, + -.00003, .00732, .01974, + .50291, .16067, .27239, .00882, .00134, + -.00003, .00705, .01807, + .47575, .15032, .23649, .00831, .00159, + -.00004, .00673, .01674, + .45190, .14140, .20756, .00786, .00175, + .00002, .00645, .01555, + .43061, .13358, .18380, .00745, .00186, + .00022, .00616, .01450, + .41147, .12662, .16404, .00707, .00193, + .00042, .00589, .01358, + .39412, .12039, .14740, .00671, .00196, + .00057, .00564, .01276 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + .37830, .11479, .13325, .00638, .00197, + .00066, .00538, .01204, + .36381, .10970, .12115, .00609, .00197, + .00074, .00515, .01139, + .35050, .10507, .11072, .00582, .00196, + .00082, .00495, .01080, + .33818, .10084, .10166, .00556, .00194, + .00085, .00475, .01025, + .32677, .09694, .09371, .00533, .00191, + .00088, .00457, .00975, + .31620, .09335, .08673, .00510, .00188, + .00091, .00440, .00930, + .30629, .09002, .08056, .00489, .00184, + .00091, .00423, .00890 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + .29702, .08692, .07508, .00470, .00181, + .00092, .00407, .00852, + .28837, .08404, .07019, .00453, .00178, + .00093, .00393, .00818, + .28019, .08134, .06581, .00438, .00174, + .00093, .00380, .00783, + .27254, .07883, .06186, .00424, .00171, + .00093, .00367, .00751, + .26529, .07645, .05829, .00408, .00167, + .00093, .00355, .00724 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + .50033, .15468, .26599, .00655, .00068, + .00000, .00529, .01428, + .46822, .14300, .22525, .00619, .00100, + .00000, .00508, .01306, + .44056, .13313, .19342, .00583, .00119, + .00000, .00485, .01202, + .41648, .12465, .16812, .00550, .00131, + .00005, .00462, .01111, + .39511, .11726, .14759, .00522, .00139, + .00020, .00440, .01032, + .37603, .11072, .13068, .00491, .00143, + .00033, .00420, .00965, + .35881, .10490, .11658, .00465, .00145, + .00043, .00400, .00903 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + .34320, .09967, .10471, .00442, .00145, + .00050, .00382, .00849, + .32898, .09496, .09464, .00420, .00144, + .00056, .00365, .00799, + .31596, .09069, .08602, .00402, .00143, + .00060, .00350, .00754, + .30397, .08678, .07856, .00382, .00141, + .00063, .00335, .00717, + .29286, .08321, .07208, .00366, .00138, + .00065, .00320, .00681, + .28261, .07993, .06643, .00351, .00134, + .00065, .00307, .00648, + .27311, .07688, .06146, .00336, .00133, + .00067, .00295, .00617 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + .26422, .07405, .05706, .00322, .00130, + .00068, .00283, .00590, + .25594, .07143, .05315, .00309, .00127, + .00068, .00272, .00566, + .24814, .06900, .04966, .00298, .00124, + .00067, .00263, .00540, + .24087, .06675, .04653, .00287, .00121, + .00066, .00254, .00516, + .23396, .06461, .04371, .00277, .00119, + .00066, .00245, .00496 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + .46362, .13696, .22134, .00446, .00053, + .00006, .00378, .01018, + .43129, .12594, .18514, .00423, .00076, + .00005, .00362, .00924, + .40368, .11665, .15723, .00399, .00090, + .00005, .00345, .00848, + .37979, .10874, .13536, .00377, .00098, + .00007, .00328, .00780, + .35876, .10187, .11783, .00355, .00103, + .00018, .00312, .00724, + .34005, .09581, .10350, .00335, .00106, + .00027, .00296, .00672, + .32326, .09045, .09169, .00318, .00106, + .00033, .00281, .00627 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + .30811, .08565, .08182, .00302, .00106, + .00039, .00268, .00588, + .29438, .08135, .07350, .00286, .00105, + .00043, .00255, .00554, + .28185, .07745, .06643, .00271, .00104, + .00045, .00244, .00523, + .27037, .07391, .06037, .00258, .00102, + .00047, .00233, .00494, + .25979, .07067, .05514, .00246, .00100, + .00047, .00222, .00468, + .25004, .06772, .05059, .00236, .00098, + .00048, .00213, .00444, + .24101, .06499, .04661, .00226, .00096, + .00049, .00204, .00421 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + .23259, .06247, .04310, .00218, .00094, + .00049, .00196, .00400, + .22477, .06015, .04000, .00210, .00091, + .00049, .00188, .00382, + .21745, .05796, .03725, .00201, .00089, + .00049, .00181, .00366, + .21065, .05593, .03479, .00192, .00087, + .00048, .00174, .00352, + .20421, .05404, .03259, .00185, .00084, + .00048, .00167, .00336 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + .42506, .12017, .18305, .00307, .00035, + .00002, .00260, .00709, + .39308, .10986, .15119, .00293, .00053, + .00001, .00251, .00641, + .36603, .10125, .12701, .00273, .00064, + .00001, .00238, .00587, + .34276, .09394, .10831, .00256, .00070, + .00004, .00227, .00540, + .32237, .08764, .09346, .00243, .00074, + .00012, .00215, .00499, + .30435, .08212, .08148, .00229, .00076, + .00019, .00203, .00461, + .28825, .07726, .07164, .00216, .00077, + .00024, .00193, .00430 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + .27379, .07293, .06351, .00205, .00077, + .00028, .00184, .00401, + .26072, .06904, .05674, .00194, .00076, + .00030, .00175, .00376, + .24886, .06555, .05102, .00185, .00074, + .00032, .00166, .00355, + .23802, .06238, .04613, .00178, .00072, + .00033, .00158, .00333, + .22810, .05949, .04193, .00168, .00070, + .00033, .00151, .00315, + .21899, .05684, .03831, .00160, .00069, + .00034, .00145, .00298, + .21055, .05443, .03516, .00153, .00067, + .00034, .00139, .00281 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + .20273, .05220, .03240, .00147, .00065, + .00034, .00133, .00267, + .19548, .05014, .02997, .00141, .00063, + .00034, .00127, .00254, + .18871, .04821, .02781, .00134, .00062, + .00034, .00122, .00244, + .18242, .04643, .02588, .00128, .00060, + .00034, .00117, .00234, + .17645, .04478, .02418, .00125, .00059, + .00033, .00113, .00223 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + .38548, .10424, .15013, .00204, .00027, + .00002, .00178, .00482, + .35446, .09478, .12249, .00196, .00040, + .00002, .00171, .00436, + .32832, .08694, .10182, .00184, .00045, + .00002, .00162, .00399, + .30601, .08032, .08603, .00173, .00049, + .00003, .00153, .00365, + .28659, .07463, .07361, .00165, .00052, + .00010, .00146, .00336, + .26947, .06967, .06369, .00156, .00053, + .00014, .00137, .00311, + .25427, .06531, .05562, .00148, .00053, + .00017, .00130, .00289 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + .24069, .06145, .04900, .00140, .00052, + .00019, .00123, .00269, + .22848, .05800, .04351, .00133, .00051, + .00020, .00117, .00251, + .21745, .05490, .03891, .00126, .00050, + .00021, .00111, .00235, + .20741, .05210, .03500, .00119, .00049, + .00022, .00105, .00222, + .19820, .04956, .03168, .00113, .00048, + .00023, .00100, .00209, + .18977, .04724, .02882, .00109, .00047, + .00023, .00095, .00198, + .18204, .04512, .02633, .00103, .00045, + .00023, .00091, .00187 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + .17486, .04318, .02418, .00099, .00044, + .00023, .00087, .00178, + .16821, .04139, .02229, .00095, .00042, + .00023, .00083, .00170, + .16204, .03973, .02062, .00090, .00042, + .00022, .00080, .00161, + .15633, .03819, .01914, .00086, .00041, + .00022, .00077, .00152, + .15092, .03675, .01783, .00084, .00040, + .00021, .00074, .00145 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + .34571, .08937, .12198, .00130, .00020, + .00004, .00120, .00324, + .31607, .08080, .09830, .00124, .00029, + .00004, .00116, .00290, + .29123, .07373, .08083, .00118, .00034, + .00004, .00110, .00264, + .27013, .06781, .06760, .00113, .00037, + .00006, .00105, .00241, + .25191, .06275, .05734, .00105, .00038, + .00008, .00099, .00222, + .23591, .05836, .04922, .00100, .00039, + .00011, .00094, .00205, + .22178, .05451, .04269, .00095, .00038, + .00014, .00089, .00189 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + .20922, .05111, .03736, .00089, .00039, + .00015, .00084, .00175, + .19795, .04809, .03297, .00084, .00038, + .00016, .00079, .00164, + .18778, .04538, .02933, .00081, .00036, + .00016, .00074, .00154, + .17859, .04295, .02625, .00077, .00035, + .00016, .00071, .00144, + .17021, .04074, .02364, .00072, .00034, + .00017, .00068, .00136, + .16255, .03874, .02141, .00068, .00033, + .00017, .00064, .00128, + .15549, .03693, .01949, .00067, .00033, + .00017, .00062, .00119 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + .14900, .03525, .01783, .00065, .00032, + .00017, .00059, .00113, + .14304, .03370, .01637, .00061, .00030, + .00016, .00056, .00108, + .13748, .03227, .01509, .00057, .00030, + .00016, .00054, .00103, + .13235, .03096, .01396, .00054, .00029, + .00016, .00051, .00098, + .12751, .02974, .01297, .00053, .00028, + .00016, .00049, .00093 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + .30661, .07579, .09819, .00083, .00014, + .00004, .00079, .00210, + .27860, .06813, .07808, .00078, .00021, + .00002, .00077, .00189, + .25535, .06184, .06347, .00075, .00025, + .00003, .00074, .00172, + .23575, .05660, .05257, .00069, .00027, + .00003, .00071, .00157, + .21886, .05214, .04419, .00065, .00029, + .00006, .00067, .00143, + .20414, .04830, .03763, .00062, .00029, + .00008, .00063, .00131, + .19121, .04494, .03240, .00057, .00029, + .00010, .00059, .00123 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + .17973, .04198, .02817, .00053, .00028, + .00011, .00056, .00115, + .16947, .03937, .02472, .00051, .00027, + .00012, .00053, .00106, + .16028, .03705, .02185, .00049, .00028, + .00013, .00051, .00098, + .15200, .03496, .01946, .00045, .00026, + .00014, .00047, .00093, + .14442, .03308, .01745, .00044, .00025, + .00013, .00045, .00086, + .13754, .03138, .01573, .00043, .00025, + .00013, .00043, .00081, + .13127, .02982, .01426, .00039, .00024, + .00013, .00041, .00076 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + .12549, .02840, .01300, .00036, .00023, + .00013, .00040, .00072, + .12018, .02709, .01190, .00035, .00022, + .00013, .00038, .00068, + .11524, .02589, .01093, .00034, .00022, + .00013, .00036, .00065, + .11069, .02478, .01008, .00033, .00021, + .00012, .00035, .00062, + .10644, .02375, .00934, .00031, .00020, + .00012, .00033, .00059 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + .26878, .06359, .07832, .00057, .00005, + -.00001, .00047, .00134, + .24281, .05684, .06152, .00056, .00011, + -.00002, .00046, .00121, + .22137, .05135, .04950, .00054, .00014, + -.00002, .00044, .00110, + .20344, .04679, .04061, .00050, .00016, + .00000, .00042, .00099, + .18808, .04293, .03385, .00046, .00017, + .00001, .00041, .00091, + .17473, .03961, .02861, .00043, .00017, + .00003, .00038, .00085, + .16306, .03674, .02446, .00040, .00017, + .00004, .00036, .00078 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + .15274, .03422, .02113, .00038, .00017, + .00006, .00034, .00072, + .14357, .03199, .01843, .00036, .00017, + .00007, .00032, .00067, + .13536, .03001, .01621, .00035, .00016, + .00007, .00031, .00063, + .12798, .02824, .01436, .00032, .00015, + .00007, .00029, .00059, + .12130, .02665, .01282, .00030, .00014, + .00006, .00027, .00055, + .11523, .02522, .01151, .00030, .00014, + .00006, .00026, .00051, + .10968, .02390, .01040, .00029, .00014, + .00007, .00025, .00049 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + .10460, .02271, .00945, .00028, .00014, + .00007, .00024, .00046, + .09996, .02163, .00861, .00026, .00013, + .00007, .00022, .00043, + .09565, .02063, .00789, .00025, .00012, + .00006, .00021, .00041, + .09169, .01972, .00726, .00023, .00012, + .00006, .00020, .00039, + .08798, .01886, .00670, .00023, .00011, + .00006, .00019, .00037 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + .23244, .05247, .06152, .00028, .00007, + .00002, .00033, .00082, + .20874, .04663, .04770, .00030, .00010, + .00003, .00032, .00074, + .18930, .04191, .03797, .00028, .00012, + .00002, .00029, .00068, + .17310, .03801, .03085, .00027, .00013, + .00002, .00029, .00061, + .15930, .03473, .02548, .00027, .00013, + .00003, .00027, .00056, + .14740, .03193, .02136, .00025, .00013, + .00004, .00025, .00051, + .13700, .02950, .01813, .00025, .00012, + .00004, .00023, .00047 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + .12787, .02738, .01557, .00024, .00012, + .00005, .00022, .00044, + .11980, .02552, .01350, .00022, .00012, + .00006, .00021, .00042, + .11262, .02387, .01180, .00020, .00011, + .00006, .00020, .00039, + .10614, .02240, .01041, .00020, .00010, + .00005, .00019, .00036, + .10030, .02108, .00924, .00020, .00010, + .00005, .00018, .00033, + .09503, .01989, .00827, .00019, .00010, + .00005, .00017, .00031, + .09024, .01881, .00743, .00017, .00010, + .00005, .00016, .00030 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + .08585, .01783, .00672, .00016, .00009, + .00005, .00015, .00028, + .08184, .01694, .00611, .00016, .00009, + .00005, .00014, .00026, + .07814, .01612, .00558, .00015, .00008, + .00005, .00014, .00025, + .07475, .01537, .00511, .00014, .00008, + .00005, .00013, .00023, + .07158, .01468, .00471, .00013, .00008, + .00005, .00012, .00022 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + .19831, .04271, .04770, .00015, .00006, + .00003, .00021, .00049, + .17704, .03772, .03651, .00015, .00008, + .00004, .00021, .00044, + .15966, .03374, .02872, .00015, .00009, + .00003, .00019, .00041, + .14528, .03045, .02309, .00015, .00010, + .00003, .00018, .00037, + .13312, .02770, .01890, .00012, .00009, + .00003, .00017, .00035, + .12264, .02536, .01572, .00013, .00009, + .00004, .00016, .00032, + .11355, .02334, .01324, .00013, .00009, + .00004, .00016, .00029 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + .10559, .02159, .01128, .00013, .00009, + .00004, .00015, .00026, + .09856, .02005, .00972, .00013, .00008, + .00004, .00014, .00024, + .09234, .01870, .00846, .00012, .00008, + .00004, .00013, .00024, + .08679, .01749, .00741, .00011, .00008, + .00004, .00012, .00021, + .08179, .01641, .00655, .00010, .00007, + .00004, .00012, .00020, + .07728, .01544, .00583, .00009, .00007, + .00004, .00011, .00019, + .07318, .01457, .00523, .00009, .00007, + .00004, .00010, .00017 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + .06944, .01378, .00471, .00009, .00007, + .00004, .00010, .00016, + .06604, .01305, .00426, .00009, .00006, + .00004, .00009, .00016, + .06289, .01239, .00388, .00009, .00006, + .00004, .00009, .00015, + .06001, .01179, .00355, .00009, .00006, + .00004, .00008, .00014, + .05735, .01123, .00326, .00008, .00006, + .00003, .00008, .00013 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + .16694, .03433, .03654, .00011, .00002, + .00000, .00011, .00029, + .14812, .03014, .02760, .00009, .00004, + .00000, .00011, .00025, + .13284, .02682, .02146, .00011, .00005, + .00000, .00010, .00024, + .12028, .02409, .01708, .00010, .00005, + .00001, .00010, .00022, + .10968, .02181, .01385, .00011, .00005, + .00001, .00010, .00020, + .10063, .01989, .01142, .00010, .00005, + .00001, .00009, .00018, + .09282, .01824, .00955, .00008, .00005, + .00002, .00009, .00018 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + .08601, .01681, .00809, .00008, .00005, + .00002, .00008, .00016, + .08002, .01556, .00692, .00008, .00005, + .00002, .00008, .00014, + .07472, .01446, .00599, .00007, .00004, + .00002, .00007, .00014, + .07000, .01349, .00522, .00008, .00004, + .00002, .00006, .00012, + .06577, .01262, .00460, .00008, .00004, + .00002, .00006, .00012, + .06197, .01185, .00407, .00007, .00004, + .00002, .00006, .00011, + .05852, .01115, .00363, .00008, .00004, + .00002, .00006, .00010 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + .05539, .01051, .00326, .00007, .00004, + .00002, .00005, .00010, + .05255, .00994, .00294, .00007, .00003, + .00002, .00005, .00008, + .04994, .00942, .00267, .00006, .00003, + .00002, .00005, .00008, + .04756, .00894, .00243, .00005, .00003, + .00001, .00004, .00008, + .04536, .00850, .00223, .00005, .00003, + .00002, .00004, .00008 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + .13809, .02701, .02739, .00002, .00003, + .00002, .00008, .00015, + .12169, .02358, .02042, .00004, .00004, + .00003, .00008, .00013, + .10853, .02085, .01567, .00004, .00005, + .00002, .00007, .00013, + .09775, .01864, .01235, .00004, .00004, + .00002, .00007, .00012, + .08873, .01681, .00992, .00004, .00004, + .00002, .00007, .00011, + .08106, .01526, .00811, .00004, .00004, + .00002, .00006, .00010, + .07444, .01393, .00672, .00005, .00004, + .00002, .00006, .00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + .06871, .01279, .00565, .00004, .00004, + .00002, .00006, .00009, + .06370, .01180, .00481, .00004, .00003, + .00002, .00005, .00008, + .05928, .01094, .00413, .00005, .00003, + .00002, .00004, .00007, + .05535, .01017, .00358, .00005, .00003, + .00002, .00005, .00006, + .05185, .00948, .00314, .00004, .00003, + .00002, .00004, .00006, + .04872, .00888, .00277, .00003, .00003, + .00002, .00004, .00006, + .04589, .00833, .00246, .00004, .00003, + .00002, .00004, .00005 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + .04333, .00784, .00220, .00003, .00003, + .00002, .00004, .00005, + .04100, .00739, .00198, .00002, .00003, + .00002, .00003, .00005, + .03886, .00698, .00179, .00003, .00003, + .00002, .00003, .00005, + .03690, .00662, .00162, .00004, .00003, + .00002, .00003, .00004, + .03511, .00628, .00148, .00003, .00002, + .00001, .00003, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + .08966, .01586, .01459, .00001, .00001, + .00000, .00001, .00005, + .07796, .01367, .01055, .00001, .00001, + .00000, .00002, .00005, + .06870, .01195, .00790, .00002, .00001, + .00000, .00002, .00004, + .06121, .01057, .00608, .00001, .00001, + .00000, .00002, .00003, + .05500, .00943, .00479, .00001, .00001, + .00000, .00002, .00003, + .04978, .00848, .00384, .00001, .00001, + .00001, .00002, .00003, + .04532, .00768, .00313, .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=8,14)/ + .04150, .00700, .00260, .00002, .00001, + .00001, .00002, .00003, + .03818, .00641, .00218, .00002, .00001, + .00001, .00002, .00003, + .03527, .00589, .00185, .00001, .00001, + .00001, .00002, .00003, + .03273, .00544, .00159, .00001, .00001, + .00001, .00001, .00002, + .03047, .00505, .00137, .00001, .00001, + .00001, .00001, .00002, + .02845, .00469, .00120, .00001, .00001, + .00000, .00001, .00002, + .02664, .00438, .00106, .00000, .00001, + .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)/ + .02501, .00410, .00094, .00001, .00001, + .00000, .00001, .00001, + .02354, .00384, .00084, .00001, .00001, + .00000, .00001, .00001, + .02220, .00361, .00075, .00001, .00001, + .00000, .00001, .00001, + .02100, .00341, .00068, .00000, .00001, + .00000, .00001, .00001, + .01987, .00322, .00062, .00001, .00001, + .00001, .00001, .00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ + .05321, .00844, .00701, .00001, .00000, + .00000, .00000, .00001, + .04558, .00717, .00491, .00001, .00000, + .00000, .00000, .00002, + .03967, .00619, .00358, .00001, .00000, + .00000, .00001, .00000, + .03492, .00541, .00269, .00001, .00000, + .00000, .00000, .00001, + .03105, .00478, .00207, .00000, .00000, + .00000, .00000, .00001, + .02782, .00426, .00163, .00000, .00000, + .00000, .00000, .00001, + .02510, .00382, .00131, .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=8,14)/ + .02279, .00345, .00106, .00000, .00000, + .00000, .00000, .00001, + .02080, .00313, .00088, .00000, .00000, + .00000, .00000, .00001, + .01907, .00286, .00074, .00000, .00000, + .00000, .00000, .00001, + .01755, .00262, .00063, .00001, .00000, + .00000, .00000, .00001, + .01622, .00242, .00054, .00000, .00000, + .00000, .00000, .00000, + .01505, .00223, .00046, .00000, .00000, + .00000, .00000, .00000, + .01400, .00207, .00040, .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)/ + .01307, .00193, .00036, .00000, .00000, + .00000, .00000, .00000, + .01223, .00180, .00031, .00000, .00000, + .00000, .00000, .00000, + .01147, .00168, .00028, .00000, .00000, + .00000, .00000, .00000, + .01079, .00158, .00025, .00000, .00000, + .00000, .00000, .00000, + .01016, .00148, .00023, .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)/ + .02805, .00394, .00293, .00001, .00000, + .00000, .00000, .00000, + .02364, .00330, .00198, .00000, .00000, + .00000, .00000, .00000, + .02028, .00280, .00140, .00000, .00000, + .00000, .00000, .00000, + .01762, .00242, .00102, .00000, .00000, + .00000, .00000, .00000, + .01547, .00211, .00077, .00001, .00000, + .00000, .00000, .00000, + .01371, .00186, .00059, .00000, .00000, + .00000, .00000, .00000, + .01224, .00165, .00047, .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)/ + .01100, .00148, .00037, .00000, .00000, + .00000, .00000, .00000, + .00995, .00133, .00030, .00000, .00000, + .00000, .00000, .00000, + .00904, .00121, .00025, .00000, .00000, + .00000, .00000, .00000, + .00826, .00110, .00021, .00000, .00000, + .00000, .00000, .00000, + .00757, .00100, .00018, .00000, .00000, + .00000, .00000, .00000, + .00698, .00092, .00015, .00000, .00000, + .00000, .00000, .00000, + .00644, .00085, .00013, .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)/ + .00597, .00078, .00011, .00000, .00000, + .00000, .00000, .00000, + .00555, .00073, .00010, .00000, .00000, + .00000, .00000, .00000, + .00518, .00067, .00009, .00000, .00000, + .00000, .00000, .00000, + .00484, .00063, .00008, .00000, .00000, + .00000, .00000, .00000, + .00453, .00059, .00007, .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)/ + .01243, .00151, .00099, .00000, .00000, + .00000, .00000, .00000, + .01029, .00124, .00065, .00000, .00000, + .00000, .00000, .00000, + .00867, .00104, .00044, .00000, .00000, + .00000, .00000, .00000, + .00742, .00088, .00031, .00000, .00000, + .00000, .00000, .00000, + .00643, .00076, .00023, .00000, .00000, + .00000, .00000, .00000, + .00562, .00066, .00017, .00000, .00000, + .00000, .00000, .00000, + .00496, .00058, .00013, .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)/ + .00441, .00052, .00010, .00000, .00000, + .00000, .00000, .00000, + .00394, .00046, .00008, .00000, .00000, + .00000, .00000, .00000, + .00355, .00041, .00007, .00000, .00000, + .00000, .00000, .00000, + .00321, .00037, .00006, .00000, .00000, + .00000, .00000, .00000, + .00292, .00034, .00005, .00000, .00000, + .00000, .00000, .00000, + .00266, .00031, .00004, .00000, .00000, + .00000, .00000, .00000, + .00244, .00028, .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=15,19)/ + .00225, .00026, .00003, .00000, .00000, + .00000, .00000, .00000, + .00207, .00024, .00003, .00000, .00000, + .00000, .00000, .00000, + .00192, .00022, .00002, .00000, .00000, + .00000, .00000, .00000, + .00178, .00020, .00002, .00000, .00000, + .00000, .00000, .00000, + .00166, .00019, .00002, .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)/ + .00090, .00007, .00003, .00000, .00000, + .00000, .00000, .00000, + .00070, .00006, .00002, .00000, .00000, + .00000, .00000, .00000, + .00057, .00005, .00001, .00000, .00000, + .00000, .00000, .00000, + .00046, .00004, .00001, .00000, .00000, + .00000, .00000, .00000, + .00039, .00003, .00001, .00000, .00000, + .00000, .00000, .00000, + .00032, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00028, .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)/ + .00024, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00021, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .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)/ + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .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(55,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