#include "pdf/pilot.h" SUBROUTINE SFMS115(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C C THIS IS THE alphas=0.115 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)/ + .00294, .00618, 13.39808, 1.13613, .15325, + .00000, .62350, 1.14037, + .00338, .00641, 24.76481, 1.48226, .51080, + .00000, .97623, 1.48715, + .00378, .00662, 38.63756, 1.89669, .93505, + .00000, 1.39637, 1.90215, + .00415, .00682, 54.53614, 2.37016, 1.41716, + .10064, 1.87489, 2.37615, + .00450, .00701, 72.40820, 2.90107, 1.95583, + .61877, 2.41034, 2.90753, + .00484, .00719, 91.81515, 3.48226, 2.54407, + 1.21948, 2.99567, 3.48917, + .00516, .00737, 112.60778, 4.10911, 3.17740, + 1.86958, 3.62635, 4.11645 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + .00547, .00754, 134.61856, 4.77730, 3.85157, + 2.55796, 4.29807, 4.78503, + .00577, .00770, 157.67596, 5.48271, 4.56253, + 3.28222, 5.00677, 5.49081, + .00606, .00785, 181.58061, 6.22071, 5.30571, + 4.03771, 5.74784, 6.22916, + .00634, .00801, 206.08290, 6.98534, 6.07522, + 4.81871, 6.51538, 6.99414, + .00661, .00816, 231.24123, 7.77697, 6.87144, + 5.62567, 7.30974, 7.78609, + .00687, .00830, 257.01788, 8.59436, 7.69316, + 6.45749, 8.12971, 8.60379, + .00713, .00844, 283.19421, 9.43239, 8.53529, + 7.30914, 8.97019, 9.44211 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + .00738, .00858, 309.53323, 10.28503, 9.39184, + 8.17470, 9.82517, 10.29503, + .00762, .00871, 336.40234, 11.16018, 10.27072, + 9.06211, 10.70255, 11.17046, + .00786, .00884, 363.25061, 12.04481, 11.15890, + 9.95842, 11.58931, 12.05536, + .00809, .00897, 390.38428, 12.94544, 12.06294, + 10.87019, 12.49199, 12.95624, + .00832, .00909, 417.62585, 13.85767, 12.97843, + 11.79306, 13.40617, 13.86872 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + .00473, .00784, 11.95323, 1.02402, .13320, + .00000, .55809, 1.02776, + .00533, .00817, 21.24411, 1.31177, .43166, + .00000, .85184, 1.31595, + .00589, .00847, 32.22407, 1.64827, .77736, + .00000, 1.19353, 1.65283, + .00641, .00875, 44.49063, 2.02521, 1.16240, + .07996, 1.57503, 2.03013, + .00689, .00901, 57.99106, 2.44082, 1.58526, + .48771, 1.99475, 2.44605, + .00736, .00927, 72.38376, 2.88908, 2.04012, + .95365, 2.44675, 2.89461, + .00780, .00951, 87.55804, 3.36624, 2.52333, + 1.45123, 2.92735, 3.37205 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + .00823, .00974, 103.39267, 3.86889, 3.03157, + 1.97172, 3.43318, 3.87496, + .00864, .00996, 119.76660, 4.39387, 3.56173, + 2.51333, 3.96111, 4.40018, + .00904, .01018, 136.54185, 4.93771, 4.11041, + 3.07261, 4.50772, 4.94426, + .00942, .01038, 153.54713, 5.49607, 4.67332, + 3.64540, 5.06868, 5.50285, + .00979, .01058, 170.83406, 6.06933, 5.25084, + 4.23218, 5.64437, 6.07632, + .01015, .01078, 188.38329, 6.65665, 5.84220, + 4.83222, 6.23401, 6.66384, + .01050, .01097, 206.04793, 7.25439, 6.44376, + 5.44198, 6.83394, 7.26178 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + .01084, .01115, 223.67165, 7.85832, 7.05133, + 6.05729, 7.43995, 7.86589, + .01117, .01133, 241.51816, 8.47427, 7.67075, + 6.68405, 8.05790, 8.48203, + .01149, .01150, 259.21350, 9.09298, 8.29276, + 7.31305, 8.67851, 9.10091, + .01181, .01167, 276.97617, 9.71928, 8.92223, + 7.94916, 9.30663, 9.72738, + .01211, .01184, 294.69116, 10.35014, 9.55611, + 8.58939, 9.93922, 10.35840 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + .00737, .00996, 10.66136, .92230, .11557, + .00000, .49935, .92574, + .00822, .01042, 18.21794, 1.16030, .36365, + .00000, .74286, 1.16402, + .00899, .01084, 26.86497, 1.43207, .64408, + .00000, 1.01937, 1.43604, + .00971, .01123, 36.28026, 1.73052, .95014, + .06323, 1.32199, 1.73472, + .01039, .01160, 46.42347, 2.05406, 1.28050, + .38270, 1.64928, 2.05846, + .01103, .01195, 57.03725, 2.39785, 1.63049, + .74248, 1.99647, 2.40244, + .01165, .01228, 68.04616, 2.75899, 1.99731, + 1.12158, 2.36075, 2.76376 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + .01224, .01259, 79.36783, 3.13493, 2.37849, + 1.51330, 2.73957, 3.13987, + .01280, .01290, 90.92162, 3.52335, 2.77178, + 1.91641, 3.13067, 3.52844, + .01335, .01319, 102.61610, 3.92176, 3.17473, + 2.32845, 3.53159, 3.92700, + .01387, .01347, 114.33725, 4.32705, 3.58428, + 2.74649, 3.93923, 4.33244, + .01438, .01374, 126.13145, 4.73966, 4.00089, + 3.17103, 4.35405, 4.74517, + .01487, .01400, 137.99217, 5.15909, 4.42410, + 3.60170, 4.77557, 5.16473, + .01534, .01425, 149.82338, 5.58280, 4.85140, + 4.03602, 5.20126, 5.58858 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + .01580, .01450, 161.52379, 6.00787, 5.27986, + 4.47113, 5.62821, 6.01376, + .01625, .01474, 173.28362, 6.43865, 5.71388, + 4.91144, 6.06078, 6.44465, + .01669, .01497, 184.85039, 6.86859, 6.14692, + 5.35046, 6.49244, 6.87470, + .01712, .01520, 196.38115, 7.30128, 6.58257, + 5.79180, 6.92676, 7.30750, + .01754, .01542, 207.80215, 7.73467, 7.01880, + 6.23347, 7.36173, 7.74099 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + .00946, .01146, 9.96917, .86710, .10626, + .00000, .46777, .87047, + .01049, .01202, 16.64713, 1.07949, .32840, + .00000, .68543, 1.08308, + .01143, .01253, 24.14569, 1.31862, .57591, + .00000, .92909, 1.32241, + .01231, .01300, 32.18777, 1.57818, .84283, + .05498, 1.19263, 1.58214, + .01313, .01345, 40.74284, 1.85677, 1.12802, + .33129, 1.47479, 1.86089, + .01391, .01386, 49.59633, 2.15021, 1.42746, + .63981, 1.77148, 2.15448, + .01465, .01426, 58.69073, 2.45608, 1.73882, + .96235, 2.08032, 2.46049 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + .01536, .01464, 67.96285, 2.77226, 2.06006, + 1.29322, 2.39925, 2.77679, + .01604, .01500, 77.35088, 3.09686, 2.38936, + 1.63150, 2.72640, 3.10152, + .01670, .01535, 86.78479, 3.42787, 2.72476, + 1.97520, 3.05979, 3.43264, + .01733, .01569, 96.17627, 3.76277, 3.06378, + 2.32196, 3.39693, 3.76765, + .01794, .01601, 105.56869, 4.10202, 3.40690, + 2.67233, 3.73828, 4.10701, + .01853, .01632, 114.96102, 4.44529, 3.75382, + 3.02605, 4.08353, 4.45038, + .01910, .01662, 124.27915, 4.79055, 4.10254, + 3.38118, 4.43067, 4.79574 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + .01965, .01692, 133.44566, 5.13546, 4.45073, + 3.73543, 4.77736, 5.14073, + .02019, .01720, 142.61754, 5.48368, 4.80209, + 4.09253, 5.12729, 5.48905, + .02071, .01747, 151.59502, 5.82991, 5.15130, + 4.44720, 5.47513, 5.83535, + .02122, .01774, 160.50732, 6.17715, 5.50140, + 4.80249, 5.82393, 6.18268, + .02171, .01800, 169.29832, 6.52380, 5.85078, + 5.15683, 6.17207, 6.52941 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + .01124, .01267, 9.50402, .82967, .10007, + .00000, .44650, .83306, + .01243, .01331, 15.61248, 1.02530, .30523, + .00000, .64724, 1.02888, + .01352, .01389, 22.38003, 1.24334, .53147, + .00000, .86968, 1.24709, + .01452, .01443, 29.56006, 1.47805, .77337, + .04973, 1.10825, 1.48195, + .01547, .01494, 37.12939, 1.72819, 1.02996, + .29868, 1.36185, 1.73222, + .01636, .01541, 44.90087, 1.99002, 1.29766, + .57498, 1.62683, 1.99417, + .01721, .01587, 52.82838, 2.26142, 1.57443, + .86222, 1.90112, 2.26570 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + .01802, .01630, 60.86065, 2.54058, 1.85855, + 1.15536, 2.18294, 2.54497, + .01880, .01671, 68.94741, 2.82588, 2.14844, + 1.45366, 2.47071, 2.83037, + .01954, .01710, 77.03146, 3.11560, 2.44246, + 1.75545, 2.76274, 3.12019, + .02026, .01748, 85.03981, 3.40759, 2.73847, + 2.05872, 3.05689, 3.41227, + .02095, .01785, 93.01374, 3.70232, 3.03698, + 2.36402, 3.35365, 3.70709, + .02162, .01820, 100.95535, 3.99957, 3.33779, + 2.67120, 3.65282, 4.00442, + .02227, .01854, 108.80322, 4.29759, 3.63920, + 2.97861, 3.95266, 4.30253 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + .02290, .01887, 116.49366, 4.59441, 3.93923, + 3.28431, 4.25120, 4.59942, + .02351, .01919, 124.16376, 4.89328, 4.24116, + 3.59162, 4.55172, 4.89837, + .02410, .01950, 131.64481, 5.18962, 4.54042, + 3.89599, 4.84963, 5.19478, + .02468, .01980, 139.04913, 5.48610, 4.83969, + 4.20013, 5.14761, 5.49133, + .02524, .02010, 146.33073, 5.78137, 5.13763, + 4.50270, 5.44431, 5.78667 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + .01284, .01369, 9.15710, .80157, .09548, + .00000, .43061, .80501, + .01416, .01441, 14.85221, .98494, .28822, + .00000, .61899, .98855, + .01537, .01505, 21.09624, 1.18771, .49907, + .00000, .82607, 1.19148, + .01649, .01565, 27.66522, 1.40458, .72301, + .04597, 1.04671, 1.40848, + .01754, .01621, 34.54162, 1.63442, .95921, + .27540, 1.27995, 1.63845, + .01853, .01674, 41.55801, 1.87384, 1.20440, + .52884, 1.52245, 1.87798, + .01948, .01724, 48.67631, 2.12095, 1.45679, + .79116, 1.77238, 2.12520 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + .02038, .01771, 55.85345, 2.37413, 1.71485, + 1.05779, 2.02816, 2.37848, + .02124, .01817, 63.04741, 2.63197, 1.97721, + 1.32814, 2.28842, 2.63641, + .02206, .01860, 70.20945, 2.89295, 2.24241, + 1.60074, 2.55166, 2.89748, + .02286, .01902, 77.27711, 3.15518, 2.50860, + 1.87382, 2.81600, 3.15980, + .02362, .01942, 84.29008, 3.41914, 2.77627, + 2.14794, 3.08194, 3.42383, + .02436, .01981, 91.25224, 3.68466, 3.04531, + 2.42302, 3.34933, 3.68943, + .02508, .02018, 98.11102, 3.95022, 3.31420, + 2.69762, 3.61668, 3.95507 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + .02577, .02055, 104.81170, 4.21409, 3.58122, + 2.97004, 3.88223, 4.21900, + .02645, .02090, 111.47772, 4.47922, 3.84937, + 3.24328, 4.14897, 4.48421, + .02710, .02124, 117.96120, 4.74154, 4.11456, + 3.51333, 4.41283, 4.74659, + .02774, .02157, 124.36292, 5.00349, 4.37925, + 3.78264, 4.67624, 5.00860, + .02835, .02189, 130.64351, 5.26387, 4.64226, + 4.05005, 4.93802, 5.26904 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + .01919, .01748, 8.14996, .71892, .08233, + .00000, .38434, .72280, + .02105, .01846, 12.70285, .86796, .24035, + .00000, .53814, .87200, + .02275, .01936, 17.53416, 1.02876, .40886, + .00000, .70301, 1.03293, + .02431, .02018, 22.48380, 1.19725, .58413, + .03581, .87509, 1.20155, + .02577, .02094, 27.55086, 1.37277, .76573, + .21293, 1.05383, 1.37718, + .02715, .02166, 32.62030, 1.55283, .95131, + .40571, 1.23681, 1.55735, + .02845, .02234, 37.67496, 1.73617, 1.13971, + .60252, 1.42282, 1.74078 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + .02969, .02298, 42.69280, 1.92173, 1.32995, + .80008, 1.61086, 1.92645, + .03088, .02360, 47.65164, 2.10863, 1.52118, + .99810, 1.80004, 2.11343, + .03201, .02418, 52.52433, 2.29587, 1.71247, + 1.19568, 1.98942, 2.30076, + .03310, .02475, 57.27354, 2.48222, 1.90261, + 1.39168, 2.17777, 2.48718, + .03414, .02529, 61.93387, 2.66815, 2.09211, + 1.58667, 2.36559, 2.67320, + .03515, .02580, 66.51328, 2.85368, 2.28100, + 1.78070, 2.55289, 2.85879, + .03612, .02630, 70.97984, 3.03780, 2.46831, + 1.97286, 2.73869, 3.04299 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + .03706, .02679, 75.30048, 3.21937, 2.65291, + 2.16204, 2.92186, 3.22463, + .03797, .02725, 79.56411, 3.40062, 2.83704, + 2.35051, 3.10463, 3.40594, + .03885, .02771, 83.67294, 3.57871, 3.01789, + 2.53548, 3.28418, 3.58410, + .03971, .02815, 87.69898, 3.75548, 3.19728, + 2.71879, 3.46233, 3.76093, + .04054, .02857, 91.61830, 3.93014, 3.37446, + 2.89972, 3.63832, 3.93565 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + .02839, .02246, 7.23420, .64214, .07066, + .00000, .34203, .64692, + .03102, .02381, 10.82860, .76181, .19900, + .00000, .46631, .76679, + .03339, .02503, 14.51802, .88768, .33234, + .00000, .59614, .89285, + .03557, .02615, 18.19586, 1.01687, .46809, + .02761, .72881, 1.02220, + .03759, .02719, 21.87499, 1.14908, .60620, + .16298, .86414, 1.15457, + .03949, .02817, 25.48096, 1.28261, .74508, + .30810, 1.00051, 1.28824, + .04129, .02909, 29.01168, 1.41669, .88408, + .45420, 1.13720, 1.42246 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + .04299, .02995, 32.45984, 1.55073, 1.02264, + .59896, 1.27363, 1.55662, + .04461, .03078, 35.81690, 1.68418, 1.16030, + .74238, 1.40931, 1.69019, + .04615, .03157, 39.07015, 1.81649, 1.29653, + .88393, 1.54370, 1.82261, + .04763, .03232, 42.19911, 1.94685, 1.43058, + 1.02295, 1.67601, 1.95309, + .04905, .03304, 45.23337, 2.07576, 1.56295, + 1.15996, 1.80676, 2.08210, + .05041, .03373, 48.18255, 2.20331, 1.69377, + 1.29513, 1.93604, 2.20975, + .05172, .03439, 51.02823, 2.32888, 1.82243, + 1.42789, 2.06324, 2.33541 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + .05298, .03503, 53.75137, 2.45174, 1.94823, + 1.55756, 2.18766, 2.45836, + .05421, .03565, 56.41547, 2.57354, 2.07284, + 1.68583, 2.31095, 2.58026, + .05539, .03625, 58.95689, 2.69237, 2.19434, + 1.81081, 2.43119, 2.69917, + .05653, .03682, 61.42655, 2.80956, 2.31409, + 1.93388, 2.54973, 2.81645, + .05764, .03738, 63.81034, 2.92464, 2.43161, + 2.05456, 2.66611, 2.93160 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + .03559, .02614, 6.73201, .59928, .06439, + .00000, .31870, .60481, + .03879, .02777, 9.83611, .70370, .17737, + .00000, .42769, .70949, + .04167, .02924, 12.95918, .81187, .29291, + .00000, .53979, .81790, + .04430, .03058, 16.02117, .92151, .40903, + .02356, .65289, .92775, + .04675, .03182, 19.04138, 1.03254, .52587, + .13848, .76702, 1.03898, + .04904, .03298, 21.96433, 1.14361, .64224, + .26058, .88092, 1.15024, + .05119, .03407, 24.79433, 1.25423, .75770, + .38245, .99412, 1.26103 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + .05323, .03510, 27.53029, 1.36396, .87191, + .50227, 1.10624, 1.37092, + .05517, .03608, 30.16933, 1.47247, .98458, + .62014, 1.21697, 1.47958, + .05701, .03701, 32.70458, 1.57935, 1.09534, + .73573, 1.32592, 1.58662, + .05877, .03790, 35.12266, 1.68403, 1.20366, + .84853, 1.43254, 1.69144, + .06045, .03874, 37.45015, 1.78698, 1.31003, + .95909, 1.53731, 1.79451, + .06207, .03956, 39.69685, 1.88831, 1.41460, + 1.06760, 1.64037, 1.89598, + .06362, .04034, 41.84991, 1.98758, 1.51693, + 1.17363, 1.74128, 1.99537 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + .06511, .04109, 43.89595, 2.08424, 1.61649, + 1.27669, 1.83948, 2.09214, + .06656, .04181, 45.88681, 2.17967, 1.71470, + 1.37821, 1.93639, 2.18769, + .06795, .04251, 47.77338, 2.27235, 1.81002, + 1.47668, 2.03048, 2.28047, + .06930, .04319, 49.59703, 2.36340, 1.90360, + 1.57325, 2.12288, 2.37163, + .07061, .04384, 51.34756, 2.45246, 1.99509, + 1.66758, 2.21324, 2.46079 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + .04175, .02922, 6.38704, .56950, .06015, + .00000, .30259, .57567, + .04542, .03108, 9.16992, .66385, .16299, + .00000, .40149, .67033, + .04872, .03275, 11.92927, .76051, .26697, + .00000, .50209, .76728, + .05172, .03427, 14.60186, .85760, .37050, + .02098, .60263, .86462, + .05451, .03568, 17.21076, .95516, .47384, + .12289, .70330, .96242, + .05711, .03699, 19.71207, 1.05210, .57603, + .23046, .80305, 1.05958, + .05956, .03822, 22.11371, 1.14804, .67679, + .33717, .90158, 1.15572 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + .06187, .03938, 24.41806, 1.24269, .77589, + .44149, .99862, 1.25057, + .06406, .04048, 26.62535, 1.33581, .87314, + .54359, 1.09396, 1.34387, + .06614, .04153, 28.73206, 1.42710, .96829, + .64322, 1.18732, 1.43534, + .06812, .04252, 30.72867, 1.51612, 1.06092, + .74002, 1.27828, 1.52452, + .07002, .04347, 32.63969, 1.60330, 1.15150, + .83450, 1.36728, 1.61185, + .07184, .04438, 34.47482, 1.68879, 1.24021, + .92686, 1.45450, 1.69750, + .07358, .04526, 36.22431, 1.77224, 1.32670, + 1.01679, 1.53959, 1.78109 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + .07526, .04609, 37.87795, 1.85319, 1.41055, + 1.10389, 1.62209, 1.86218, + .07688, .04690, 39.48041, 1.93288, 1.49299, + 1.18940, 1.70326, 1.94200, + .07844, .04768, 40.99110, 2.01001, 1.57274, + 1.27208, 1.78180, 2.01926, + .07994, .04843, 42.44547, 2.08556, 1.65081, + 1.35292, 1.85870, 2.09493, + .08140, .04916, 43.83561, 2.15925, 1.72691, + 1.43167, 1.93369, 2.16875 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + .04730, .03206, 6.11918, .54628, .05690, + .00000, .28994, .55285, + .05136, .03412, 8.66098, .63308, .15214, + .00000, .38127, .64000, + .05501, .03596, 11.15140, .72123, .24757, + .00000, .47334, .72847, + .05833, .03764, 13.53957, .80913, .34186, + .01909, .56467, .81664, + .06140, .03919, 15.85095, .89691, .43538, + .11154, .65553, .90467, + .06426, .04063, 18.04998, .98362, .52732, + .20860, .74505, .99163, + .06695, .04199, 20.14686, 1.06902, .61751, + .30439, .83302, 1.07725 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + .06948, .04326, 22.14627, 1.15289, .70580, + .39762, .91927, 1.16133, + .07187, .04446, 24.05030, 1.23506, .79207, + .48846, 1.00364, 1.24370, + .07415, .04561, 25.85773, 1.31529, .87614, + .57675, 1.08593, 1.32412, + .07631, .04669, 27.56176, 1.39324, .95768, + .66223, 1.16581, 1.40225, + .07838, .04772, 29.18496, 1.46933, 1.03715, + .74538, 1.24372, 1.47851, + .08036, .04871, 30.73680, 1.54372, 1.11472, + .82640, 1.31982, 1.55306, + .08226, .04966, 32.20955, 1.61610, 1.19013, + .90505, 1.39383, 1.62560 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + .08408, .05057, 33.59530, 1.68611, 1.26301, + .98100, 1.46538, 1.69576, + .08584, .05145, 34.93357, 1.75486, 1.33449, + 1.05537, 1.53560, 1.76465, + .08753, .05229, 36.18959, 1.82120, 1.40344, + 1.12708, 1.60334, 1.83113, + .08917, .05310, 37.39471, 1.88603, 1.47077, + 1.19702, 1.66952, 1.89609, + .09075, .05388, 38.54248, 1.94912, 1.53625, + 1.26499, 1.73389, 1.95931 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + .06952, .04323, 5.32073, .47579, .04744, + .00000, .25212, .48429, + .07506, .04605, 7.19824, .54146, .12146, + .00000, .32231, .55044, + .08000, .04856, 8.96805, .60630, .19349, + .00000, .39105, .61572, + .08445, .05081, 10.61047, .66943, .26294, + .01403, .45761, .67925, + .08855, .05288, 12.15591, .73122, .33039, + .08132, .52248, .74139, + .09234, .05480, 13.58867, .79114, .39547, + .15075, .58520, .80164, + .09588, .05658, 14.92348, .84919, .45824, + .21815, .64581, .86000 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + .09920, .05825, 16.16949, .90536, .51877, + .28278, .70434, .91645, + .10233, .05982, 17.33282, .95964, .57709, + .34489, .76082, .97100, + .10528, .06129, 18.41656, 1.01197, .63319, + .40449, .81519, 1.02358, + .10808, .06269, 19.41947, 1.06218, .68693, + .46150, .86732, 1.07403, + .11074, .06402, 20.35917, 1.11064, .73873, + .51633, .91759, 1.12273, + .11328, .06528, 21.24398, 1.15754, .78876, + .56922, .96620, 1.16984, + .11570, .06648, 22.07058, 1.20271, .83691, + .62005, 1.01298, 1.21522 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + .11802, .06763, 22.83552, 1.24596, .88298, + .66865, 1.05776, 1.25866, + .12024, .06873, 23.56540, 1.28808, .92778, + .71584, 1.10134, 1.30097, + .12238, .06979, 24.23916, 1.32833, .97059, + .76093, 1.14298, 1.34140, + .12443, .07080, 24.87763, 1.36736, 1.01207, + .80456, 1.18334, 1.38060, + .12641, .07178, 25.47748, 1.40503, 1.05208, + .84663, 1.22228, 1.41843 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + .10183, .05987, 4.54986, .40621, .03875, + .00000, .21523, .41738, + .10920, .06364, 5.87243, .45380, .09457, + .00000, .26733, .46564, + .11569, .06695, 7.06654, .49939, .14723, + .00000, .31680, .51182, + .12149, .06989, 8.13413, .54264, .19669, + .00999, .36344, .55560, + .12679, .07257, 9.10679, .58402, .24364, + .05740, .40788, .59746, + .13165, .07502, 9.98109, .62334, .28801, + .10541, .44997, .63722, + .13615, .07728, 10.77334, .66073, .33002, + .15120, .48989, .67500 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + .14035, .07938, 11.49406, .69630, .36985, + .19438, .52779, .71094, + .14427, .08133, 12.15094, .73013, .40764, + .23527, .56380, .74513, + .14796, .08316, 12.74853, .76227, .44346, + .27394, .59795, .77759, + .15143, .08487, 13.28817, .79266, .47729, + .31043, .63022, .80828, + .15471, .08649, 13.78310, .82162, .50948, + .34510, .66095, .83752, + .15782, .08802, 14.23993, .84930, .54022, + .37816, .69031, .86547, + .16078, .08947, 14.65774, .87565, .56946, + .40958, .71825, .89208 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + .16359, .09084, 15.03555, .90056, .59711, + .43928, .74465, .91723, + .16628, .09215, 15.39035, .92459, .62375, + .46786, .77011, .94149, + .16884, .09340, 15.70975, .94728, .64892, + .49487, .79416, .96439, + .17130, .09459, 16.00706, .96907, .67309, + .52078, .81725, .98639, + .17366, .09573, 16.28069, .98989, .69618, + .54554, .83931, 1.00741 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + .12704, .07318, 4.10945, .36589, .03402, + -.00001, .19421, .37929, + .13560, .07756, 5.15649, .40429, .08053, + -.00001, .23708, .41849, + .14309, .08137, 6.07569, .44036, .12358, + -.00001, .27701, .45526, + .14974, .08473, 6.87711, .47401, .16335, + .00804, .31403, .48953, + .15577, .08776, 7.59138, .50575, .20056, + .04595, .34880, .52182, + .16128, .09051, 8.21990, .53549, .23527, + .08391, .38128, .55207, + .16635, .09303, 8.77835, .56342, .26774, + .11969, .41171, .58045 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + .17105, .09535, 9.27685, .58970, .29819, + .15311, .44029, .60715, + .17543, .09750, 9.72313, .61442, .32679, + .18442, .46715, .63227, + .17952, .09950, 10.12157, .63767, .35365, + .21379, .49239, .65588, + .18335, .10136, 10.47508, .65944, .37878, + .24126, .51601, .67798, + .18695, .10311, 10.79369, .67999, .40250, + .26715, .53830, .69885, + .19036, .10476, 11.08308, .69947, .42497, + .29165, .55943, .71862, + .19359, .10631, 11.34325, .71785, .44617, + .31476, .57937, .73728 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + .19664, .10776, 11.57354, .73508, .46607, + .33645, .59806, .75477, + .19956, .10916, 11.78689, .75158, .48512, + .35720, .61596, .77152, + .20232, .11047, 11.97450, .76703, .50299, + .37668, .63274, .78720, + .20496, .11172, 12.14636, .78176, .52003, + .39525, .64874, .80215, + .20749, .11291, 12.30148, .79572, .53620, + .41288, .66392, .81633 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + .14847, .08474, 3.80001, .33746, .03082, + -.00001, .17952, .35283, + .15790, .08954, 4.67247, .36991, .07129, + -.00001, .21642, .38619, + .16610, .09368, 5.42176, .39996, .10822, + -.00001, .25030, .41703, + .17334, .09730, 6.06215, .42764, .14191, + .00682, .28131, .44537, + .17987, .10055, 6.62285, .45344, .17310, + .03884, .31010, .47179, + .18581, .10347, 7.10755, .47736, .20190, + .07062, .33672, .49625, + .19124, .10613, 7.53107, .49961, .22860, + .10033, .36144, .51899 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + .19626, .10857, 7.90312, .52035, .25344, + .12785, .38444, .54017, + .20092, .11082, 8.23100, .53969, .27658, + .15346, .40589, .55993, + .20525, .11290, 8.51902, .55773, .29816, + .17731, .42588, .57835, + .20929, .11483, 8.77010, .57448, .31820, + .19947, .44445, .59545, + .21307, .11662, 8.99282, .59017, .33699, + .22023, .46185, .61146, + .21665, .11831, 9.19205, .60495, .35469, + .23976, .47824, .62654, + .22002, .11989, 9.36803, .61879, .37129, + .25809, .49360, .64067 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + .22319, .12137, 9.52045, .63165, .38676, + .27519, .50790, .65380, + .22621, .12277, 9.65978, .64391, .40151, + .29147, .52153, .66631, + .22906, .12409, 9.77914, .65529, .41525, + .30666, .53421, .67792, + .23179, .12534, 9.88653, .66608, .42830, + .32109, .54625, .68893, + .23438, .12653, 9.98125, .67625, .44062, + .33472, .55759, .69931 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + .16742, .09510, 3.56194, .31556, .02843, + .00000, .16834, .33280, + .17752, .10020, 4.31078, .34376, .06453, + .00000, .20094, .36197, + .18625, .10456, 4.94205, .36954, .09710, + .00000, .23051, .38859, + .19392, .10835, 5.47237, .39303, .12651, + .00597, .25730, .41279, + .20081, .11172, 5.92952, .41473, .15351, + .03387, .28194, .43512, + .20704, .11474, 6.31857, .43465, .17824, + .06137, .30453, .45561, + .21272, .11747, 6.65323, .45301, .20098, + .08689, .32533, .47449 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + .21795, .11996, 6.94291, .47000, .22200, + .11039, .34455, .49193, + .22278, .12225, 7.19447, .48573, .24146, + .13213, .36235, .50809, + .22725, .12435, 7.41201, .50029, .25949, + .15226, .37883, .52304, + .23140, .12629, 7.59815, .51370, .27614, + .17085, .39403, .53679, + .23529, .12809, 7.76074, .52619, .29166, + .18818, .40819, .54961, + .23895, .12977, 7.90394, .53787, .30621, + .20442, .42146, .56159, + .24238, .13133, 8.02794, .54874, .31978, + .21959, .43382, .57274 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + .24560, .13279, 8.13271, .55876, .33236, + .23366, .44525, .58303, + .24866, .13418, 8.22703, .56827, .34430, + .24701, .45610, .59278, + .25154, .13546, 8.30528, .57703, .35537, + .25942, .46613, .60177, + .25429, .13668, 8.37413, .58529, .36584, + .27116, .47560, .61025, + .25689, .13784, 8.43302, .59303, .37568, + .28220, .48450, .61818 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + .24211, .13656, 2.83402, .24901, .02159, + .00000, .13520, .27440, + .25389, .14207, 3.26176, .26578, .04583, + .00000, .15616, .29224, + .26385, .14663, 3.59715, .28042, .06687, + .00000, .17439, .30777, + .27239, .15047, 3.85963, .29321, .08523, + .00376, .19029, .32127, + .27993, .15379, 4.07124, .30457, .10157, + .02111, .20443, .33326, + .28660, .15667, 4.23844, .31462, .11611, + .03782, .21697, .34384, + .29258, .15921, 4.37203, .32357, .12914, + .05296, .22818, .35323 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + .29797, .16146, 4.47886, .33155, .14089, + .06659, .23824, .36162, + .30287, .16347, 4.56392, .33871, .15151, + .07895, .24731, .36913, + .30734, .16527, 4.63062, .34511, .16114, + .09016, .25549, .37585, + .31141, .16688, 4.68084, .35080, .16983, + .10032, .26282, .38180, + .31516, .16834, 4.71926, .35593, .17777, + .10963, .26949, .38717, + .31863, .16967, 4.74844, .36059, .18507, + .11820, .27559, .39204, + .32184, .17088, 4.76869, .36477, .19175, + .12607, .28113, .39642 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + .32479, .17197, 4.78019, .36848, .19780, + .13326, .28612, .40029, + .32757, .17298, 4.78765, .37191, .20347, + .13998, .29076, .40388, + .33013, .17389, 4.78801, .37493, .20860, + .14611, .29493, .40703, + .33254, .17473, 4.78490, .37768, .21338, + .15183, .29877, .40990, + .33479, .17551, 4.77801, .38016, .21778, + .15713, .30229, .41249 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + .34667, .19296, 2.13435, .18592, .01570, + -.00001, .10515, .22363, + .35823, .19704, 2.32967, .19381, .03056, + -.00002, .11686, .23214, + .36755, .20014, 2.46356, .20018, .04287, + -.00002, .12647, .23892, + .37520, .20251, 2.55316, .20532, .05316, + .00215, .13439, .24434, + .38165, .20439, 2.61393, .20956, .06198, + .01193, .14109, .24876, + .38712, .20585, 2.65115, .21298, .06953, + .02109, .14672, .25231, + .39181, .20699, 2.67179, .21577, .07607, + .02914, .15149, .25516 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + .39585, .20788, 2.68030, .21805, .08177, + .03621, .15558, .25744, + .39936, .20858, 2.67970, .21989, .08675, + .04244, .15907, .25926, + .40242, .20910, 2.67187, .22136, .09113, + .04796, .16206, .26068, + .40505, .20946, 2.65772, .22248, .09495, + .05283, .16458, .26172, + .40736, .20971, 2.63986, .22334, .09834, + .05720, .16676, .26249, + .40941, .20988, 2.61952, .22400, .10137, + .06113, .16864, .26305, + .41121, .20996, 2.59670, .22446, .10404, + .06466, .17024, .26340 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + .41275, .20995, 2.57143, .22470, .10638, + .06779, .17156, .26353, + .41415, .20990, 2.54593, .22485, .10852, + .07067, .17273, .26356, + .41533, .20978, 2.51866, .22484, .11038, + .07324, .17367, .26341, + .41637, .20962, 2.49129, .22475, .11206, + .07559, .17448, .26317, + .41728, .20942, 2.46357, .22455, .11356, + .07772, .17514, .26284 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + .42370, .22997, 1.74889, .15041, .01267, + .00000, .08864, .19608, + .43286, .23156, 1.84451, .15420, .02314, + .00000, .09591, .19969, + .43977, .23239, 1.89737, .15693, .03152, + .00000, .10155, .20211, + .44504, .23267, 1.92141, .15882, .03830, + .00146, .10593, .20365, + .44916, .23261, 1.92811, .16015, .04394, + .00799, .10943, .20457, + .45233, .23228, 1.92135, .16096, .04863, + .01400, .11219, .20498, + .45478, .23174, 1.90595, .16141, .05257, + .01915, .11438, .20500 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + .45666, .23106, 1.88494, .16157, .05591, + .02359, .11611, .20474, + .45808, .23027, 1.86010, .16149, .05874, + .02742, .11748, .20424, + .45911, .22940, 1.83263, .16122, .06117, + .03076, .11853, .20356, + .45977, .22845, 1.80300, .16080, .06322, + .03364, .11930, .20269, + .46019, .22746, 1.77268, .16025, .06498, + .03617, .11986, .20173, + .46042, .22645, 1.74231, .15962, .06651, + .03842, .12028, .20069, + .46044, .22541, 1.71181, .15892, .06782, + .04039, .12054, .19958 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + .46028, .22433, 1.68104, .15812, .06891, + .04212, .12065, .19840, + .46003, .22326, 1.65127, .15730, .06989, + .04368, .12069, .19722, + .45961, .22217, 1.62151, .15642, .07069, + .04504, .12061, .19596, + .45910, .22109, 1.59262, .15553, .07139, + .04626, .12046, .19470, + .45851, .22001, 1.56438, .15461, .07198, + .04734, .12025, .19342 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + .48419, .25441, 1.48949, .12515, .01062, + -.00001, .07661, .17506, + .48982, .25319, 1.52866, .12655, .01845, + .00001, .08116, .17544, + .49342, .25158, 1.53799, .12723, .02453, + .00001, .08445, .17512, + .49556, .24971, 1.52869, .12738, .02930, + .00107, .08681, .17430, + .49677, .24770, 1.50936, .12718, .03318, + .00575, .08854, .17317, + .49719, .24557, 1.48264, .12667, .03630, + .00999, .08974, .17181, + .49702, .24343, 1.45207, .12599, .03885, + .01356, .09056, .17025 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + .49644, .24125, 1.41949, .12515, .04095, + .01659, .09108, .16861, + .49555, .23908, 1.38606, .12420, .04269, + .01917, .09137, .16692, + .49438, .23693, 1.35238, .12316, .04413, + .02136, .09147, .16516, + .49295, .23479, 1.31865, .12206, .04531, + .02323, .09140, .16337, + .49137, .23271, 1.28577, .12094, .04628, + .02485, .09123, .16157, + .48969, .23068, 1.25399, .11980, .04709, + .02625, .09097, .15980, + .48792, .22867, 1.22312, .11865, .04776, + .02747, .09063, .15803 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + .48602, .22669, 1.19301, .11748, .04829, + .02851, .09021, .15625, + .48412, .22477, 1.16439, .11634, .04874, + .02944, .08977, .15453, + .48212, .22288, 1.13654, .11516, .04907, + .03023, .08926, .15283, + .48011, .22104, 1.10994, .11401, .04934, + .03092, .08874, .15116, + .47808, .21924, 1.08438, .11287, .04954, + .03153, .08819, .14952 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + .53222, .26957, 1.29654, .10513, .00901, + .00000, .06660, .15635, + .53360, .26560, 1.29940, .10506, .01506, + -.00001, .06934, .15450, + .53334, .26164, 1.28226, .10454, .01962, + .00000, .07110, .15236, + .53202, .25772, 1.25390, .10369, .02309, + .00080, .07219, .15006, + .53005, .25392, 1.22056, .10265, .02584, + .00429, .07283, .14767, + .52753, .25019, 1.18403, .10144, .02800, + .00742, .07311, .14525, + .52463, .24660, 1.14665, .10018, .02972, + .01001, .07314, .14280 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + .52153, .24311, 1.10960, .09885, .03109, + .01216, .07298, .14042, + .51825, .23978, 1.07348, .09752, .03219, + .01396, .07269, .13804, + .51487, .23655, 1.03854, .09616, .03305, + .01547, .07228, .13575, + .51139, .23341, 1.00477, .09479, .03373, + .01675, .07178, .13352, + .50788, .23041, .97262, .09345, .03427, + .01783, .07123, .13133, + .50437, .22753, .94218, .09214, .03470, + .01875, .07065, .12921, + .50087, .22475, .91321, .09083, .03503, + .01953, .07003, .12718 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + .49735, .22204, .88549, .08955, .03526, + .02019, .06937, .12519, + .49391, .21945, .85945, .08831, .03544, + .02077, .06872, .12328, + .49045, .21693, .83451, .08709, .03554, + .02125, .06804, .12142, + .48705, .21450, .81095, .08591, .03560, + .02166, .06737, .11963, + .48368, .21215, .78857, .08475, .03562, + .02201, .06670, .11789 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + .57768, .27860, 1.10972, .08465, .00739, + -.00001, .05570, .13438, + .57317, .27150, 1.08280, .08352, .01186, + -.00001, .05694, .13078, + .56784, .26489, 1.04541, .08216, .01512, + -.00001, .05750, .12728, + .56198, .25874, 1.00362, .08067, .01753, + .00057, .05761, .12389, + .55594, .25300, .96138, .07913, .01937, + .00308, .05746, .12067, + .54973, .24757, .91949, .07755, .02076, + .00529, .05708, .11757, + .54349, .24249, .87925, .07599, .02182, + .00706, .05657, .11461 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + .53731, .23768, .84116, .07444, .02263, + .00853, .05597, .11180, + .53123, .23314, .80533, .07294, .02326, + .00973, .05531, .10912, + .52525, .22886, .77171, .07147, .02371, + .01072, .05461, .10658, + .51935, .22476, .74008, .07006, .02405, + .01153, .05387, .10414, + .51360, .22088, .71060, .06868, .02429, + .01220, .05312, .10183, + .50803, .21720, .68317, .06736, .02446, + .01278, .05238, .09964, + .50259, .21368, .65749, .06609, .02455, + .01325, .05163, .09756 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + .49724, .21031, .63334, .06485, .02459, + .01364, .05089, .09554, + .49210, .20711, .61090, .06367, .02460, + .01397, .05017, .09364, + .48705, .20402, .58974, .06251, .02456, + .01423, .04944, .09182, + .48215, .20107, .56994, .06141, .02450, + .01445, .04874, .09008, + .47738, .19823, .55132, .06035, .02442, + .01463, .04805, .08839 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + .60908, .27924, .96023, .06775, .00603, + -.00003, .04609, .11373, + .59855, .26938, .91415, .06609, .00941, + -.00002, .04641, .10919, + .58805, .26056, .86497, .06438, .01178, + -.00003, .04629, .10504, + .57778, .25256, .81640, .06263, .01350, + .00041, .04587, .10121, + .56781, .24527, .77057, .06093, .01474, + .00227, .04529, .09769, + .55811, .23855, .72742, .05926, .01566, + .00386, .04460, .09439, + .54873, .23231, .68749, .05767, .01632, + .00512, .04385, .09131 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + .53973, .22650, .65083, .05614, .01680, + .00614, .04307, .08844, + .53110, .22109, .61718, .05468, .01715, + .00696, .04228, .08577, + .52281, .21602, .58623, .05327, .01738, + .00763, .04147, .08327, + .51477, .21126, .55770, .05194, .01752, + .00817, .04068, .08092, + .50708, .20677, .53150, .05067, .01760, + .00861, .03989, .07871, + .49972, .20253, .50745, .04947, .01764, + .00897, .03913, .07663, + .49263, .19853, .48524, .04831, .01763, + .00926, .03838, .07468 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + .48576, .19473, .46460, .04721, .01757, + .00950, .03766, .07282, + .47920, .19114, .44560, .04617, .01750, + .00969, .03696, .07107, + .47281, .18771, .42789, .04517, .01741, + .00984, .03629, .06938, + .46668, .18444, .41147, .04421, .01730, + .00996, .03563, .06780, + .46078, .18130, .39617, .04329, .01718, + .01005, .03500, .06631 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + .62806, .27354, .83506, .05371, .00488, + .00000, .03765, .09460, + .61162, .26146, .77690, .05188, .00745, + -.00001, .03742, .08975, + .59618, .25093, .72139, .05010, .00918, + -.00001, .03689, .08545, + .58170, .24155, .67013, .04836, .01039, + .00031, .03620, .08160, + .56812, .23313, .62381, .04672, .01124, + .00168, .03544, .07810, + .55524, .22545, .58173, .04516, .01184, + .00284, .03461, .07489, + .54310, .21839, .54384, .04366, .01225, + .00375, .03379, .07196 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + .53164, .21191, .50977, .04226, .01252, + .00446, .03297, .06928, + .52081, .20591, .47911, .04093, .01270, + .00502, .03217, .06678, + .51046, .20039, .45140, .03972, .01280, + .00549, .03137, .06448, + .50069, .19517, .42623, .03854, .01283, + .00584, .03061, .06233, + .49137, .19032, .40341, .03744, .01283, + .00612, .02988, .06033, + .48253, .18579, .38269, .03641, .01279, + .00636, .02918, .05846, + .47413, .18151, .36375, .03541, .01273, + .00653, .02850, .05673 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + .46605, .17745, .34637, .03447, .01264, + .00667, .02784, .05509, + .45839, .17364, .33048, .03359, .01255, + .00679, .02722, .05356, + .45099, .17003, .31579, .03275, .01244, + .00685, .02662, .05211, + .44392, .16661, .30227, .03195, .01232, + .00691, .02604, .05075, + .43713, .16336, .28977, .03120, .01218, + .00695, .02549, .04947 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + .63598, .26313, .72699, .04209, .00391, + -.00002, .03030, .07733, + .61397, .24936, .66177, .04030, .00586, + -.00002, .02978, .07258, + .59402, .23754, .60356, .03861, .00716, + -.00003, .02909, .06844, + .57578, .22717, .55228, .03701, .00802, + .00023, .02829, .06481, + .55901, .21796, .50736, .03551, .00860, + .00124, .02748, .06158, + .54340, .20963, .46766, .03411, .00899, + .00210, .02667, .05865, + .52889, .20207, .43270, .03281, .00924, + .00276, .02586, .05600 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + .51534, .19518, .40182, .03159, .00939, + .00328, .02510, .05358, + .50267, .18887, .37448, .03046, .00947, + .00367, .02434, .05140, + .49079, .18306, .35008, .02941, .00949, + .00400, .02363, .04936, + .47958, .17762, .32821, .02841, .00948, + .00422, .02295, .04749, + .46901, .17260, .30863, .02747, .00943, + .00441, .02229, .04578, + .45905, .16792, .29102, .02660, .00936, + .00457, .02167, .04420, + .44963, .16353, .27507, .02578, .00927, + .00467, .02110, .04272 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + .44061, .15941, .26058, .02502, .00917, + .00475, .02053, .04133, + .43210, .15556, .24741, .02431, .00907, + .00482, .02000, .04004, + .42397, .15190, .23533, .02362, .00896, + .00487, .01950, .03882, + .41624, .14846, .22428, .02298, .00885, + .00489, .01902, .03768, + .40885, .14520, .21412, .02237, .00873, + .00491, .01856, .03661 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + .63409, .24925, .63191, .03256, .00311, + -.00002, .02402, .06212, + .60709, .23428, .56337, .03091, .00460, + -.00001, .02340, .05775, + .58315, .22160, .50509, .02939, .00556, + -.00002, .02266, .05400, + .56166, .21061, .45550, .02800, .00618, + .00017, .02189, .05072, + .54222, .20092, .41323, .02670, .00657, + .00094, .02111, .04788, + .52434, .19226, .37672, .02550, .00682, + .00159, .02036, .04532, + .50791, .18445, .34510, .02439, .00697, + .00206, .01964, .04301 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + .49272, .17742, .31765, .02337, .00706, + .00243, .01895, .04092, + .47862, .17098, .29361, .02244, .00707, + .00272, .01830, .03905, + .46553, .16507, .27249, .02155, .00705, + .00294, .01767, .03737, + .45323, .15963, .25374, .02076, .00700, + .00310, .01708, .03579, + .44174, .15459, .23712, .02000, .00694, + .00322, .01654, .03435, + .43097, .14992, .22231, .01930, .00687, + .00330, .01602, .03302, + .42082, .14558, .20899, .01865, .00678, + .00337, .01553, .03180 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + .41121, .14151, .19699, .01804, .00669, + .00342, .01506, .03067, + .40217, .13771, .18619, .01747, .00659, + .00346, .01462, .02961, + .39355, .13413, .17636, .01692, .00648, + .00347, .01421, .02863, + .38539, .13076, .16740, .01642, .00638, + .00348, .01382, .02770, + .37763, .12757, .15920, .01594, .00628, + .00348, .01344, .02684 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + .62362, .23292, .54730, .02478, .00245, + .00004, .01879, .04909, + .59222, .21729, .47841, .02341, .00358, + .00003, .01813, .04519, + .56490, .20416, .42198, .02214, .00427, + .00004, .01741, .04194, + .54075, .19291, .37533, .02097, .00472, + .00016, .01670, .03910, + .51913, .18308, .33641, .01992, .00498, + .00073, .01601, .03664, + .49951, .17434, .30342, .01891, .00516, + .00119, .01536, .03447, + .48160, .16654, .27534, .01801, .00522, + .00153, .01472, .03257 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + .46526, .15947, .25126, .01716, .00525, + .00179, .01413, .03087, + .45016, .15310, .23048, .01642, .00523, + .00198, .01357, .02932, + .43620, .14731, .21241, .01572, .00519, + .00212, .01307, .02789, + .42320, .14196, .19653, .01509, .00514, + .00223, .01257, .02662, + .41112, .13704, .18256, .01449, .00507, + .00231, .01212, .02546, + .39986, .13250, .17021, .01393, .00500, + .00238, .01171, .02440, + .38931, .12828, .15923, .01342, .00492, + .00242, .01130, .02342 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + .37935, .12436, .14938, .01294, .00484, + .00244, .01093, .02250, + .37002, .12071, .14055, .01250, .00476, + .00245, .01058, .02164, + .36119, .11727, .13258, .01207, .00467, + .00246, .01026, .02086, + .35285, .11406, .12537, .01167, .00458, + .00247, .00995, .02013, + .34494, .11103, .11883, .01130, .00450, + .00247, .00966, .01945 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + .60548, .21539, .47197, .01886, .00177, + -.00013, .01431, .03809, + .57056, .19940, .40472, .01768, .00266, + -.00013, .01373, .03478, + .54060, .18611, .35136, .01660, .00318, + -.00013, .01312, .03203, + .51443, .17483, .30834, .01563, .00351, + -.00001, .01251, .02968, + .49129, .16502, .27317, .01472, .00369, + .00043, .01195, .02767, + .47039, .15644, .24387, .01395, .00380, + .00080, .01139, .02587, + .45154, .14874, .21931, .01319, .00383, + .00106, .01088, .02434 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + .43437, .14189, .19848, .01253, .00384, + .00124, .01039, .02295, + .41864, .13573, .18071, .01195, .00383, + .00138, .00994, .02169, + .40420, .13012, .16542, .01141, .00379, + .00150, .00953, .02057, + .39086, .12497, .15211, .01089, .00373, + .00158, .00915, .01955, + .37852, .12026, .14051, .01041, .00367, + .00163, .00879, .01863, + .36705, .11594, .13033, .00998, .00361, + .00167, .00846, .01779, + .35633, .11194, .12132, .00959, .00354, + .00170, .00814, .01702 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + .34627, .10822, .11332, .00923, .00348, + .00171, .00785, .01629, + .33688, .10478, .10617, .00890, .00341, + .00171, .00758, .01562, + .32800, .10157, .09977, .00858, .00334, + .00172, .00732, .01500, + .31967, .09856, .09400, .00828, .00326, + .00172, .00708, .01444, + .31181, .09573, .08879, .00798, .00318, + .00171, .00685, .01393 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + .58125, .19655, .40419, .01389, .00138, + -.00003, .01089, .02909, + .54349, .18067, .34025, .01297, .00206, + -.00004, .01036, .02635, + .51155, .16760, .29093, .01213, .00244, + -.00003, .00983, .02408, + .48395, .15657, .25202, .01136, .00266, + .00005, .00932, .02219, + .45970, .14709, .22075, .01069, .00278, + .00036, .00884, .02054, + .43808, .13875, .19510, .01005, .00284, + .00063, .00839, .01914, + .41868, .13139, .17390, .00948, .00286, + .00081, .00797, .01789 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + .40110, .12485, .15616, .00898, .00285, + .00094, .00759, .01680, + .38514, .11898, .14117, .00852, .00282, + .00104, .00723, .01582, + .37055, .11366, .12836, .00811, .00278, + .00111, .00690, .01495, + .35710, .10883, .11733, .00773, .00272, + .00115, .00660, .01416, + .34474, .10443, .10779, .00737, .00267, + .00119, .00632, .01343, + .33333, .10040, .09948, .00704, .00262, + .00122, .00607, .01277, + .32271, .09666, .09219, .00675, .00256, + .00123, .00583, .01218 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + .31273, .09322, .08574, .00648, .00250, + .00123, .00560, .01164, + .30345, .09004, .08002, .00624, .00244, + .00123, .00538, .01114, + .29476, .08706, .07491, .00599, .00238, + .00122, .00519, .01068, + .28662, .08428, .07033, .00576, .00232, + .00122, .00501, .01025, + .27894, .08169, .06620, .00555, .00227, + .00121, .00484, .00986 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + .55172, .17761, .34379, .01016, .00104, + -.00004, .00808, .02180, + .51202, .16209, .28425, .00944, .00154, + -.00003, .00766, .01961, + .47883, .14942, .23945, .00878, .00182, + -.00004, .00723, .01782, + .45041, .13880, .20486, .00819, .00198, + .00003, .00682, .01633, + .42567, .12975, .17745, .00764, .00207, + .00027, .00644, .01505, + .40371, .12187, .15534, .00718, .00208, + .00046, .00608, .01395, + .38413, .11495, .13728, .00677, .00209, + .00059, .00576, .01296 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + .36654, .10881, .12232, .00638, .00207, + .00069, .00545, .01212, + .35065, .10332, .10980, .00603, .00204, + .00075, .00518, .01139, + .33620, .09838, .09921, .00573, .00200, + .00079, .00492, .01071, + .32297, .09390, .09018, .00543, .00196, + .00083, .00469, .01011, + .31082, .08983, .08241, .00517, .00192, + .00085, .00448, .00956, + .29964, .08612, .07568, .00493, .00187, + .00086, .00429, .00907, + .28928, .08270, .06982, .00470, .00183, + .00086, .00410, .00862 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + .27964, .07955, .06466, .00450, .00178, + .00087, .00393, .00820, + .27069, .07665, .06011, .00432, .00174, + .00087, .00378, .00783, + .26229, .07394, .05608, .00414, .00168, + .00086, .00363, .00750, + .25444, .07143, .05249, .00398, .00163, + .00085, .00349, .00718, + .24707, .06909, .04926, .00384, .00159, + .00084, .00336, .00687 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + .51809, .15875, .29000, .00727, .00080, + .00001, .00593, .01606, + .47729, .14387, .23565, .00671, .00115, + .00000, .00559, .01436, + .44347, .13181, .19564, .00623, .00137, + .00000, .00527, .01294, + .41477, .12182, .16531, .00581, .00148, + .00005, .00493, .01179, + .38998, .11332, .14169, .00539, .00152, + .00023, .00464, .01083, + .36811, .10598, .12288, .00507, .00154, + .00036, .00436, .00998, + .34880, .09954, .10768, .00474, .00153, + .00045, .00411, .00925 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + .33154, .09386, .09522, .00446, .00151, + .00051, .00389, .00861, + .31601, .08881, .08488, .00420, .00148, + .00055, .00367, .00805, + .30196, .08429, .07623, .00396, .00145, + .00058, .00348, .00755, + .28914, .08021, .06892, .00375, .00141, + .00060, .00330, .00709, + .27741, .07652, .06265, .00357, .00137, + .00061, .00314, .00668, + .26666, .07315, .05726, .00341, .00133, + .00062, .00300, .00631, + .25674, .07007, .05259, .00324, .00130, + .00062, .00287, .00599 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + .24754, .06723, .04853, .00309, .00126, + .00062, .00274, .00570, + .23903, .06462, .04496, .00295, .00122, + .00062, .00262, .00543, + .23106, .06220, .04180, .00284, .00118, + .00062, .00251, .00517, + .22365, .05995, .03899, .00273, .00115, + .00061, .00241, .00494, + .21671, .05785, .03649, .00261, .00111, + .00060, .00233, .00473 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + .48137, .14038, .24241, .00504, .00061, + .00005, .00431, .01161, + .44018, .12637, .19367, .00469, .00088, + .00005, .00404, .01029, + .40637, .11510, .15851, .00433, .00102, + .00004, .00378, .00926, + .37798, .10580, .13233, .00402, .00109, + .00007, .00353, .00837, + .35358, .09793, .11223, .00373, .00111, + .00020, .00330, .00766, + .33229, .09118, .09642, .00348, .00112, + .00027, .00309, .00701, + .31352, .08529, .08379, .00324, .00111, + .00034, .00290, .00648 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + .29680, .08014, .07355, .00305, .00109, + .00038, .00273, .00600, + .28188, .07558, .06515, .00288, .00107, + .00041, .00257, .00558, + .26844, .07149, .05816, .00271, .00104, + .00043, .00243, .00522, + .25619, .06781, .05229, .00256, .00100, + .00044, .00230, .00491, + .24507, .06450, .04730, .00241, .00097, + .00045, .00219, .00461, + .23491, .06150, .04303, .00228, .00094, + .00045, .00208, .00434, + .22555, .05875, .03935, .00218, .00092, + .00044, .00198, .00410 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + .21688, .05623, .03617, .00209, .00089, + .00044, .00189, .00389, + .20890, .05393, .03339, .00200, .00086, + .00044, .00181, .00370, + .20149, .05178, .03094, .00190, .00084, + .00044, .00173, .00352, + .19460, .04980, .02877, .00182, .00081, + .00043, .00165, .00336, + .18814, .04797, .02685, .00175, .00078, + .00042, .00159, .00321 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + .44247, .12303, .20083, .00355, .00042, + .00002, .00301, .00824, + .40173, .10995, .15777, .00325, .00062, + .00000, .00284, .00726, + .36857, .09956, .12734, .00301, .00072, + .00001, .00263, .00649, + .34088, .09103, .10505, .00278, .00077, + .00003, .00245, .00584, + .31733, .08385, .08816, .00256, .00080, + .00013, .00229, .00531, + .29682, .07772, .07506, .00238, .00080, + .00019, .00214, .00486, + .27887, .07242, .06472, .00223, .00079, + .00023, .00200, .00446 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + .26299, .06779, .05642, .00211, .00077, + .00027, .00188, .00411, + .24887, .06372, .04964, .00197, .00075, + .00029, .00177, .00380, + .23618, .06007, .04406, .00184, .00073, + .00030, .00166, .00355, + .22471, .05682, .03939, .00173, .00070, + .00030, .00157, .00332, + .21431, .05389, .03547, .00164, .00067, + .00030, .00148, .00312, + .20484, .05123, .03213, .00155, .00064, + .00030, .00140, .00294, + .19617, .04882, .02927, .00147, .00062, + .00030, .00133, .00277 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + .18814, .04661, .02680, .00141, .00061, + .00031, .00127, .00262, + .18076, .04460, .02466, .00135, .00059, + .00031, .00121, .00248, + .17394, .04275, .02278, .00128, .00057, + .00030, .00116, .00235, + .16763, .04103, .02112, .00122, .00055, + .00029, .00110, .00223, + .16174, .03942, .01965, .00117, .00053, + .00028, .00105, .00213 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + .40243, .10658, .16457, .00239, .00031, + .00003, .00209, .00573, + .36275, .09461, .12720, .00220, .00045, + .00003, .00195, .00502, + .33075, .08517, .10131, .00204, .00050, + .00001, .00181, .00448, + .30419, .07748, .08261, .00191, .00054, + .00003, .00168, .00400, + .28172, .07107, .06864, .00177, .00055, + .00010, .00156, .00362, + .26236, .06559, .05792, .00163, .00055, + .00014, .00145, .00330, + .24543, .06088, .04954, .00154, .00053, + .00015, .00134, .00301 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + .23061, .05677, .04289, .00142, .00052, + .00017, .00126, .00278, + .21742, .05316, .03750, .00133, .00051, + .00018, .00118, .00257, + .20567, .04996, .03310, .00124, .00049, + .00019, .00110, .00239, + .19507, .04713, .02944, .00117, .00047, + .00020, .00103, .00222, + .18547, .04458, .02638, .00111, .00045, + .00020, .00098, .00208, + .17676, .04228, .02380, .00106, .00044, + .00020, .00093, .00195, + .16883, .04018, .02160, .00099, .00041, + .00019, .00087, .00184 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + .16155, .03826, .01971, .00094, .00040, + .00019, .00083, .00172, + .15487, .03652, .01807, .00090, .00039, + .00019, .00079, .00162, + .14867, .03492, .01664, .00085, .00037, + .00019, .00075, .00154, + .14293, .03345, .01538, .00082, .00036, + .00018, .00072, .00147, + .13760, .03208, .01428, .00079, .00034, + .00018, .00068, .00139 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + .36198, .09127, .13326, .00154, .00023, + .00005, .00145, .00389, + .32389, .08048, .10131, .00143, .00033, + .00004, .00134, .00340, + .29344, .07201, .07958, .00132, .00037, + .00003, .00124, .00299, + .26844, .06516, .06412, .00121, .00040, + .00005, .00114, .00269, + .24737, .05946, .05274, .00113, .00039, + .00008, .00105, .00243, + .22926, .05465, .04412, .00105, .00040, + .00011, .00099, .00217, + .21358, .05051, .03743, .00098, .00038, + .00012, .00091, .00199 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + .19990, .04692, .03217, .00090, .00037, + .00014, .00085, .00183, + .18779, .04380, .02796, .00083, .00035, + .00014, .00080, .00169, + .17700, .04103, .02451, .00080, .00034, + .00015, .00075, .00156, + .16735, .03856, .02170, .00074, .00033, + .00015, .00070, .00145, + .15864, .03637, .01936, .00070, .00032, + .00015, .00066, .00135, + .15077, .03440, .01739, .00066, .00031, + .00015, .00062, .00126, + .14361, .03260, .01572, .00062, .00029, + .00015, .00058, .00119 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + .13704, .03097, .01429, .00059, .00028, + .00015, .00055, .00113, + .13103, .02949, .01306, .00056, .00028, + .00014, .00053, .00107, + .12549, .02813, .01199, .00053, .00026, + .00014, .00050, .00100, + .12039, .02689, .01106, .00051, .00025, + .00013, .00048, .00095, + .11566, .02574, .01023, .00049, .00024, + .00013, .00045, .00090 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + .32189, .07733, .10660, .00100, .00017, + .00003, .00097, .00258, + .28596, .06767, .07967, .00090, .00024, + .00003, .00089, .00225, + .25741, .06016, .06170, .00083, .00027, + .00003, .00083, .00199, + .23410, .05415, .04913, .00078, .00028, + .00003, .00077, .00176, + .21461, .04916, .04000, .00072, .00029, + .00006, .00071, .00158, + .19801, .04497, .03316, .00066, .00029, + .00009, .00067, .00143, + .18368, .04140, .02792, .00062, .00028, + .00010, .00062, .00129 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + .17119, .03832, .02382, .00058, .00027, + .00011, .00057, .00119, + .16025, .03562, .02057, .00052, .00026, + .00011, .00054, .00108, + .15054, .03326, .01795, .00047, .00025, + .00011, .00050, .00100, + .14184, .03117, .01581, .00044, .00024, + .00011, .00047, .00093, + .13406, .02930, .01404, .00041, .00023, + .00012, .00044, .00086, + .12705, .02763, .01256, .00038, .00022, + .00012, .00042, .00081, + .12066, .02613, .01132, .00037, .00020, + .00011, .00039, .00076 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + .11484, .02476, .01025, .00036, .00020, + .00011, .00037, .00071, + .10954, .02352, .00933, .00034, .00019, + .00010, .00035, .00067, + .10467, .02238, .00854, .00031, .00018, + .00010, .00033, .00063, + .10018, .02134, .00786, .00029, .00018, + .00010, .00032, .00059, + .09603, .02038, .00726, .00028, .00017, + .00009, .00030, .00056 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + .28300, .06481, .08425, .00071, .00008, + -.00002, .00059, .00167, + .24956, .05635, .06202, .00064, .00012, + -.00001, .00055, .00145, + .22326, .04981, .04740, .00059, .00015, + -.00001, .00051, .00127, + .20194, .04459, .03734, .00053, .00016, + -.00002, .00047, .00113, + .18424, .04031, .03011, .00049, .00016, + .00001, .00043, .00101, + .16919, .03671, .02475, .00045, .00016, + .00003, .00041, .00091, + .15628, .03365, .02069, .00043, .00016, + .00004, .00037, .00083 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + .14512, .03104, .01754, .00039, .00016, + .00005, .00034, .00075, + .13533, .02877, .01505, .00037, .00016, + .00006, .00032, .00069, + .12670, .02677, .01307, .00035, .00015, + .00006, .00030, .00063, + .11902, .02501, .01146, .00032, .00013, + .00006, .00028, .00059, + .11216, .02345, .01013, .00029, .00013, + .00005, .00026, .00055, + .10599, .02205, .00903, .00027, .00012, + .00005, .00024, .00052, + .10040, .02079, .00810, .00027, .00012, + .00005, .00023, .00048 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + .09531, .01966, .00732, .00026, .00011, + .00005, .00021, .00044, + .09068, .01863, .00665, .00025, .00011, + .00005, .00021, .00041, + .08644, .01769, .00607, .00024, .00010, + .00005, .00019, .00039, + .08254, .01684, .00557, .00023, .00009, + .00005, .00018, .00037, + .07895, .01605, .00513, .00022, .00009, + .00005, .00017, .00034 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + .24547, .05341, .06540, .00038, .00008, + .00002, .00041, .00104, + .21484, .04613, .04738, .00037, .00011, + .00003, .00038, .00091, + .19096, .04052, .03573, .00034, .00011, + .00002, .00034, .00081, + .17173, .03609, .02782, .00031, .00012, + .00003, .00031, .00071, + .15588, .03246, .02222, .00028, .00012, + .00002, .00028, .00062, + .14246, .02944, .01811, .00026, .00012, + .00003, .00026, .00056, + .13105, .02688, .01501, .00025, .00011, + .00005, .00024, .00051 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + .12120, .02469, .01264, .00022, .00011, + .00004, .00023, .00046, + .11260, .02281, .01079, .00020, .00010, + .00004, .00020, .00042, + .10504, .02115, .00932, .00020, .00010, + .00005, .00019, .00039, + .09835, .01970, .00812, .00019, .00009, + .00004, .00018, .00035, + .09238, .01841, .00715, .00018, .00009, + .00004, .00016, .00033, + .08704, .01726, .00635, .00016, .00009, + .00004, .00015, .00031, + .08224, .01623, .00568, .00015, .00008, + .00004, .00015, .00028 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/ + .07786, .01531, .00512, .00015, .00007, + .00004, .00014, .00027, + .07389, .01448, .00463, .00014, .00007, + .00004, .00013, .00025, + .07028, .01372, .00422, .00013, .00007, + .00003, .00012, .00024, + .06696, .01302, .00386, .00013, .00006, + .00003, .00011, .00022, + .06389, .01238, .00355, .00013, .00006, + .00003, .00010, .00020 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + .21004, .04347, .04998, .00021, .00006, + .00003, .00026, .00064, + .18248, .03727, .03561, .00020, .00009, + .00003, .00024, .00054, + .16110, .03253, .02648, .00019, .00008, + .00003, .00022, .00049, + .14407, .02879, .02039, .00016, .00009, + .00002, .00020, .00042, + .13004, .02577, .01611, .00017, .00009, + .00003, .00018, .00037, + .11829, .02325, .01301, .00016, .00008, + .00003, .00017, .00034, + .10833, .02115, .01071, .00013, .00008, + .00004, .00015, .00031 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + .09977, .01935, .00896, .00013, .00008, + .00004, .00014, .00028, + .09231, .01780, .00760, .00013, .00007, + .00004, .00013, .00026, + .08581, .01646, .00652, .00012, .00006, + .00003, .00012, .00024, + .08008, .01527, .00566, .00011, .00006, + .00004, .00011, .00022, + .07498, .01423, .00497, .00010, .00006, + .00004, .00010, .00020, + .07044, .01331, .00439, .00010, .00006, + .00004, .00010, .00018, + .06637, .01248, .00392, .00009, .00005, + .00003, .00009, .00016 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + .06266, .01174, .00351, .00008, .00005, + .00003, .00008, .00016, + .05932, .01106, .00317, .00007, .00005, + .00003, .00008, .00016, + .05626, .01046, .00288, .00008, .00005, + .00003, .00008, .00014, + .05348, .00991, .00263, .00007, .00005, + .00003, .00007, .00013, + .05093, .00940, .00241, .00007, .00004, + .00003, .00007, .00012 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + .17740, .03492, .03761, .00014, .00002, + .00000, .00015, .00038, + .15291, .02970, .02636, .00012, .00004, + .00000, .00013, .00034, + .13408, .02578, .01935, .00014, .00004, + -.00001, .00011, .00028, + .11920, .02269, .01472, .00012, .00004, + .00000, .00010, .00025, + .10703, .02021, .01152, .00012, .00005, + .00000, .00010, .00023, + .09690, .01815, .00922, .00010, .00004, + .00001, .00009, .00021, + .08836, .01643, .00754, .00008, .00004, + .00002, .00009, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/ + .08103, .01498, .00626, .00008, .00004, + .00002, .00008, .00016, + .07470, .01372, .00528, .00008, .00004, + .00001, .00007, .00015, + .06920, .01264, .00451, .00007, .00004, + .00001, .00007, .00014, + .06434, .01170, .00390, .00007, .00003, + .00002, .00006, .00013, + .06005, .01087, .00341, .00007, .00003, + .00001, .00005, .00012, + .05625, .01013, .00300, .00006, .00003, + .00001, .00005, .00010, + .05283, .00948, .00267, .00006, .00003, + .00001, .00005, .00009 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + .04976, .00889, .00239, .00006, .00002, + .00001, .00005, .00009, + .04698, .00836, .00215, .00005, .00002, + .00001, .00004, .00008, + .04446, .00788, .00195, .00005, .00002, + .00001, .00004, .00008, + .04215, .00745, .00177, .00005, .00002, + .00001, .00004, .00007, + .04005, .00705, .00162, .00004, .00002, + .00001, .00003, .00007 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/ + .14715, .02747, .02762, .00005, .00004, + .00004, .00010, .00021, + .12585, .02319, .01904, .00005, .00004, + .00002, .00009, .00019, + .10964, .01999, .01378, .00005, .00003, + .00002, .00008, .00017, + .09684, .01749, .01036, .00005, .00003, + .00002, .00007, .00014, + .08648, .01549, .00803, .00005, .00004, + .00002, .00007, .00012, + .07788, .01386, .00637, .00005, .00003, + .00001, .00005, .00010, + .07067, .01248, .00516, .00005, .00003, + .00002, .00005, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + .06453, .01133, .00426, .00005, .00003, + .00002, .00005, .00009, + .05926, .01034, .00357, .00005, .00003, + .00002, .00004, .00008, + .05467, .00949, .00303, .00004, .00002, + .00002, .00004, .00007, + .05067, .00875, .00261, .00004, .00002, + .00001, .00004, .00006, + .04714, .00810, .00227, .00003, .00002, + .00001, .00004, .00006, + .04401, .00753, .00199, .00003, .00002, + .00001, .00003, .00005, + .04121, .00702, .00177, .00002, .00002, + .00001, .00003, .00006 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + .03869, .00657, .00157, .00003, .00002, + .00001, .00003, .00005, + .03643, .00616, .00141, .00003, .00002, + .00001, .00003, .00004, + .03439, .00580, .00128, .00002, .00002, + .00001, .00003, .00004, + .03253, .00546, .00116, .00002, .00002, + .00001, .00002, .00004, + .03083, .00516, .00106, .00002, .00002, + .00001, .00002, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/ + .09618, .01613, .01396, .00001, .00001, + .00000, .00003, .00007, + .08088, .01340, .00929, .00001, .00001, + .00000, .00003, .00006, + .06943, .01138, .00653, .00002, .00001, + .00000, .00002, .00005, + .06056, .00984, .00479, .00002, .00001, + .00000, .00002, .00004, + .05345, .00861, .00364, .00001, .00001, + .00000, .00002, .00003, + .04763, .00762, .00283, .00001, .00001, + .00000, .00002, .00003, + .04280, .00680, .00226, .00002, .00001, + .00000, .00002, .00002 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + .03873, .00612, .00185, .00002, .00001, + .00000, .00001, .00002, + .03526, .00554, .00153, .00001, .00001, + .00001, .00001, .00002, + .03227, .00504, .00129, .00002, .00001, + .00000, .00001, .00002, + .02970, .00462, .00110, .00001, .00001, + .00000, .00001, .00002, + .02743, .00424, .00095, .00000, .00001, + .00000, .00001, .00002, + .02543, .00392, .00082, .00001, .00001, + .00000, .00001, .00002, + .02367, .00363, .00073, .00001, .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)/ + .02209, .00338, .00064, .00001, .00001, + .00000, .00001, .00001, + .02069, .00315, .00058, .00001, .00001, + .00000, .00001, .00001, + .01941, .00295, .00052, .00001, .00001, + .00000, .00001, .00001, + .01826, .00277, .00047, .00001, .00001, + .00000, .00001, .00001, + .01722, .00260, .00043, .00001, .00001, + .00000, .00001, .00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/ + .05747, .00859, .00626, .00001, .00000, + .00000, .00000, .00001, + .04747, .00701, .00402, .00001, .00000, + .00000, .00000, .00001, + .04012, .00586, .00274, .00001, .00000, + .00000, .00001, .00001, + .03451, .00500, .00196, .00000, .00000, + .00000, .00000, .00001, + .03008, .00432, .00146, .00000, .00000, + .00000, .00000, .00001, + .02650, .00378, .00112, .00001, .00000, + .00000, .00001, .00000, + .02356, .00334, .00088, .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=8,14)/ + .02111, .00298, .00071, .00000, .00000, + .00000, .00000, .00001, + .01905, .00267, .00058, .00000, .00000, + .00000, .00000, .00000, + .01729, .00241, .00048, .00000, .00000, + .00000, .00000, .00000, + .01577, .00219, .00041, .00000, .00000, + .00000, .00000, .00000, + .01446, .00200, .00035, .00000, .00000, + .00000, .00000, .00000, + .01331, .00183, .00030, .00000, .00000, + .00000, .00000, .00000, + .01230, .00169, .00027, .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)/ + .01141, .00156, .00023, .00000, .00000, + .00000, .00000, .00000, + .01061, .00145, .00021, .00000, .00000, + .00000, .00000, .00000, + .00990, .00135, .00019, .00000, .00000, + .00000, .00000, .00000, + .00926, .00125, .00017, .00000, .00000, + .00000, .00000, .00000, + .00869, .00117, .00015, .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)/ + .03053, .00401, .00239, .00001, .00000, + .00000, .00000, .00000, + .02471, .00321, .00148, .00000, .00000, + .00000, .00000, .00000, + .02052, .00264, .00098, .00000, .00000, + .00000, .00000, .00000, + .01737, .00222, .00068, .00000, .00000, + .00000, .00000, .00000, + .01494, .00189, .00050, .00000, .00000, + .00000, .00000, .00000, + .01299, .00164, .00037, .00000, .00000, + .00000, .00000, .00000, + .01141, .00143, .00029, .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)/ + .01011, .00126, .00023, .00000, .00000, + .00000, .00000, .00000, + .00903, .00112, .00019, .00000, .00000, + .00000, .00000, .00000, + .00812, .00100, .00015, .00000, .00000, + .00000, .00000, .00000, + .00734, .00090, .00013, .00000, .00000, + .00000, .00000, .00000, + .00667, .00082, .00011, .00000, .00000, + .00000, .00000, .00000, + .00609, .00074, .00009, .00000, .00000, + .00000, .00000, .00000, + .00559, .00068, .00008, .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)/ + .00514, .00062, .00007, .00000, .00000, + .00000, .00000, .00000, + .00475, .00057, .00006, .00000, .00000, + .00000, .00000, .00000, + .00440, .00053, .00006, .00000, .00000, + .00000, .00000, .00000, + .00409, .00049, .00005, .00000, .00000, + .00000, .00000, .00000, + .00382, .00046, .00005, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/ + .01364, .00154, .00072, .00000, .00000, + .00000, .00000, .00000, + .01079, .00121, .00043, .00000, .00000, + .00000, .00000, .00000, + .00878, .00098, .00027, .00000, .00000, + .00000, .00000, .00000, + .00731, .00081, .00019, .00000, .00000, + .00000, .00000, .00000, + .00618, .00068, .00013, .00000, .00000, + .00000, .00000, .00000, + .00529, .00058, .00010, .00000, .00000, + .00000, .00000, .00000, + .00459, .00050, .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=8,14)/ + .00401, .00043, .00006, .00000, .00000, + .00000, .00000, .00000, + .00354, .00038, .00005, .00000, .00000, + .00000, .00000, .00000, + .00315, .00034, .00004, .00000, .00000, + .00000, .00000, .00000, + .00282, .00030, .00003, .00000, .00000, + .00000, .00000, .00000, + .00254, .00027, .00003, .00000, .00000, + .00000, .00000, .00000, + .00229, .00024, .00002, .00000, .00000, + .00000, .00000, .00000, + .00209, .00022, .00002, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/ + .00190, .00020, .00002, .00000, .00000, + .00000, .00000, .00000, + .00174, .00018, .00002, .00000, .00000, + .00000, .00000, .00000, + .00160, .00017, .00001, .00000, .00000, + .00000, .00000, .00000, + .00148, .00015, .00001, .00000, .00000, + .00000, .00000, .00000, + .00137, .00014, .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)/ + .00101, .00008, .00002, .00000, .00000, + .00000, .00000, .00000, + .00075, .00006, .00001, .00000, .00000, + .00000, .00000, .00000, + .00057, .00004, .00001, .00000, .00000, + .00000, .00000, .00000, + .00045, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00037, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00030, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00025, .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)/ + .00021, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .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 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / 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(65,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) x=xsave RETURN END