#include "pdf/pilot.h" SUBROUTINE SFMS110(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU) C C THIS IS THE alphas=0.110 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)/ + .00350, .00584, 15.76545, 1.36380, .15972, + .00000, .73557, 1.36685, + .00388, .00609, 26.72803, 1.67856, .48954, + .00000, 1.05886, 1.68223, + .00423, .00632, 39.70970, 2.05033, .87447, + .00000, 1.43812, 2.05457, + .00457, .00653, 54.51459, 2.47316, 1.30900, + .18116, 1.86762, 2.47792, + .00489, .00673, 70.80423, 2.94346, 1.78988, + .70933, 2.34397, 2.94871, + .00520, .00693, 88.54226, 3.45863, 2.31472, + 1.24271, 2.86469, 3.46434, + .00549, .00711, 107.51952, 4.01425, 2.87924, + 1.81975, 3.42544, 4.02039 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/ + .00577, .00729, 127.57347, 4.60658, 3.47983, + 2.43115, 4.02253, 4.61314, + .00605, .00746, 148.57693, 5.23245, 4.11339, + 3.07486, 4.65284, 5.23940, + .00632, .00762, 170.40149, 5.88889, 4.77703, + 3.74793, 5.31345, 5.89621, + .00657, .00778, 192.71471, 6.56903, 5.46396, + 4.44370, 5.99753, 6.57672, + .00683, .00794, 215.68127, 7.27477, 6.17609, + 5.16412, 6.70698, 7.28281, + .00707, .00809, 239.28069, 8.00535, 6.91272, + 5.90856, 7.44108, 8.01372, + .00731, .00823, 263.13687, 8.75291, 7.66602, + 6.66925, 8.19198, 8.76160 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/ + .00754, .00838, 287.34186, 9.51840, 8.43698, + 7.44721, 8.96066, 9.52740, + .00777, .00852, 312.06598, 10.30521, 9.22899, + 8.24587, 9.75050, 10.31451, + .00799, .00865, 336.64063, 11.09840, 10.02717, + 9.05040, 10.54661, 11.10800, + .00821, .00878, 361.79715, 11.91353, 10.84707, + 9.87634, 11.36452, 11.92340, + .00842, .00891, 386.70850, 12.73188, 11.67000, + 10.70506, 12.18556, 12.74203 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/ + .00536, .00758, 13.84617, 1.20533, .13713, + .00000, .64647, 1.20833, + .00590, .00792, 22.73385, 1.46475, .41024, + .00000, .91345, 1.46816, + .00640, .00823, 32.96960, 1.76511, .72254, + .00000, 1.22044, 1.76890, + .00687, .00852, 44.38044, 2.10098, 1.06901, + .14397, 1.56220, 2.10511, + .00732, .00879, 56.69380, 2.46896, 1.44657, + .56022, 1.93553, 2.47341, + .00774, .00905, 69.87840, 2.86672, 1.85308, + .97434, 2.33817, 2.87147, + .00815, .00930, 83.77415, 3.29058, 2.28500, + 1.41696, 2.76653, 3.29561 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/ + .00855, .00954, 98.26125, 3.73752, 2.73940, + 1.88065, 3.21765, 3.74282, + .00893, .00977, 113.24922, 4.20504, 3.21388, + 2.36384, 3.68907, 4.21060, + .00929, .00999, 128.64873, 4.69090, 3.70623, + 2.86430, 4.17858, 4.69669, + .00965, .01020, 144.22554, 5.18993, 4.21138, + 3.37703, 4.68105, 5.19596, + .01000, .01041, 160.10609, 5.70364, 4.73085, + 3.90362, 5.19800, 5.70989, + .01033, .01061, 176.28105, 6.23151, 5.26417, + 4.44364, 5.72894, 6.23798, + .01066, .01080, 192.48924, 6.76780, 5.80564, + 4.99144, 6.26815, 6.77447 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/ + .01098, .01099, 208.80417, 7.31332, 6.35608, + 5.54789, 6.81645, 7.32020, + .01129, .01117, 225.35027, 7.87063, 6.91808, + 6.11559, 7.37640, 7.87770, + .01159, .01135, 241.66792, 8.42894, 7.48087, + 6.68382, 7.93724, 8.43619, + .01189, .01152, 258.27087, 8.99965, 8.05586, + 7.26399, 8.51037, 9.00708, + .01218, .01169, 274.59384, 9.56934, 8.62967, + 7.84276, 9.08239, 9.57695 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/ + .00811, .00984, 12.15788, 1.06455, .11760, + .00000, .56796, 1.06759, + .00887, .01030, 19.33097, 1.27746, .34297, + .00000, .78763, 1.28076, + .00957, .01072, 27.36415, 1.51900, .59538, + .00000, 1.03507, 1.52253, + .01022, .01111, 36.11627, 1.78447, .87049, + .11395, 1.30578, 1.78822, + .01085, .01148, 45.37636, 2.07092, 1.16565, + .44068, 1.59697, 2.07487, + .01144, .01183, 55.12385, 2.37640, 1.47909, + .76087, 1.90679, 2.38055, + .01201, .01217, 65.24172, 2.69800, 1.80801, + 1.09891, 2.23238, 2.70232 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/ + .01255, .01248, 75.64615, 3.03339, 2.15017, + 1.44904, 2.57146, 3.03787, + .01308, .01279, 86.27654, 3.38069, 2.50378, + 1.81011, 2.92221, 3.38533, + .01358, .01309, 97.07407, 3.73825, 2.86723, + 2.18050, 3.28299, 3.74305, + .01407, .01337, 107.87643, 4.10229, 3.23681, + 2.55657, 3.65006, 4.10723, + .01455, .01364, 118.78291, 4.47404, 3.61379, + 2.93964, 4.02467, 4.47912, + .01501, .01391, 129.79192, 4.85320, 3.99788, + 3.32947, 4.40653, 4.85841, + .01545, .01416, 140.72470, 5.23563, 4.38499, + 3.72199, 4.79152, 5.24096 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/ + .01589, .01441, 151.63962, 5.62203, 4.77584, + 4.11799, 5.18036, 5.62748, + .01631, .01466, 162.62886, 6.01435, 5.17240, + 4.51942, 5.57501, 6.01993, + .01672, .01489, 173.37791, 6.40488, 5.56699, + 4.91866, 5.96776, 6.41057, + .01713, .01512, 184.24803, 6.80195, 5.96792, + 5.32403, 6.36695, 6.80775, + .01752, .01534, 194.85468, 7.19599, 6.36569, + 5.72603, 6.76304, 7.20190 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/ + .01027, .01146, 11.26534, .98946, .10742, + .00000, .52641, .99259, + .01120, .01201, 17.57743, 1.17869, .30847, + .00000, .72198, 1.18202, + .01205, .01252, 24.53098, 1.39077, .53085, + .00000, .93960, 1.39428, + .01285, .01298, 32.00478, 1.62148, .77071, + .09916, 1.17523, 1.62516, + .01360, .01343, 39.82050, 1.86819, 1.02567, + .38213, 1.42638, 1.87202, + .01432, .01384, 47.96474, 2.12920, 1.29423, + .65695, 1.69145, 2.13318, + .01501, .01424, 56.34219, 2.40202, 1.57398, + .94502, 1.96801, 2.40613 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/ + .01567, .01462, 64.88661, 2.68469, 1.86306, + 1.24137, 2.25413, 2.68893, + .01630, .01498, 73.55186, 2.97566, 2.16000, + 1.54511, 2.54832, 2.98001, + .01691, .01533, 82.29319, 3.27357, 2.46350, + 1.85493, 2.84924, 3.27804, + .01750, .01566, 90.98100, 3.57530, 2.77048, + 2.16783, 3.15381, 3.57988, + .01807, .01599, 99.70162, 3.88197, 3.08209, + 2.48500, 3.46314, 3.88665, + .01862, .01630, 108.45699, 4.19338, 3.39817, + 2.80630, 3.77707, 4.19816, + .01916, .01660, 117.10468, 4.50611, 3.71533, + 3.12841, 4.09220, 4.51099 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/ + .01968, .01690, 125.69592, 4.82085, 4.03428, + 3.45204, 4.40921, 4.82582, + .02019, .01718, 134.30804, 5.13925, 4.35669, + 3.77890, 4.72977, 5.14431, + .02068, .01746, 142.69025, 5.45499, 4.67626, + 4.10271, 5.04758, 5.46013, + .02116, .01773, 151.13611, 5.77500, 4.99993, + 4.43042, 5.36958, 5.78023, + .02163, .01799, 159.33914, 6.09147, 5.31991, + 4.75426, 5.68794, 6.09677 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/ + .01212, .01278, 10.67074, .93913, .10070, + .00000, .49870, .94237, + .01318, .01340, 16.42786, 1.11296, .28593, + .00000, .67862, 1.11637, + .01417, .01398, 22.69605, 1.30608, .48898, + .00000, .87704, 1.30964, + .01509, .01451, 29.36817, 1.51464, .70636, + .08975, 1.09031, 1.51833, + .01595, .01500, 36.28737, 1.73620, .93588, + .34497, 1.31612, 1.74003, + .01678, .01548, 43.44522, 1.96929, 1.17624, + .59128, 1.55310, 1.97324, + .01756, .01592, 50.76023, 2.21168, 1.42531, + .84812, 1.79906, 2.21574 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/ + .01832, .01635, 58.17730, 2.46165, 1.68146, + 1.11108, 2.05234, 2.46582, + .01904, .01676, 65.65899, 2.71786, 1.94343, + 1.37942, 2.31163, 2.72213, + .01974, .01715, 73.16917, 2.97916, 2.21010, + 1.65201, 2.57581, 2.98352, + .02041, .01753, 80.59789, 3.24282, 2.47882, + 1.92627, 2.84217, 3.24727, + .02106, .01789, 88.02338, 3.50988, 2.75064, + 2.20330, 3.11178, 3.51442, + .02169, .01825, 95.44975, 3.78022, 3.02548, + 2.48303, 3.38453, 3.78485, + .02230, .01859, 102.75584, 4.05088, 3.30041, + 2.76258, 3.65747, 4.05559 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/ + .02289, .01891, 109.98847, 4.32249, 3.57607, + 3.04263, 3.93125, 4.32727, + .02346, .01923, 117.21607, 4.59656, 3.85400, + 3.32472, 4.20739, 4.60142, + .02402, .01954, 124.22512, 4.86758, 4.12871, + 3.60340, 4.48039, 4.87251, + .02457, .01985, 131.26889, 5.14166, 4.40632, + 3.88478, 4.75636, 5.14666, + .02510, .02014, 138.08716, 5.41201, 4.68005, + 4.16213, 5.02852, 5.41708 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/ + .01376, .01391, 10.23021, .90166, .09575, + .00000, .47816, .90501, + .01495, .01459, 15.58616, 1.06429, .26947, + .00000, .64668, 1.06779, + .01605, .01523, 21.36449, 1.24372, .45857, + .00000, .83125, 1.24735, + .01707, .01581, 27.46876, 1.43639, .65981, + .08300, 1.02848, 1.44015, + .01803, .01636, 33.75774, 1.64004, .87121, + .31844, 1.23625, 1.64391, + .01895, .01688, 40.22672, 1.85334, 1.09157, + .54451, 1.45331, 1.85732, + .01982, .01737, 46.80410, 2.07425, 1.31899, + .77930, 1.67769, 2.07834 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/ + .02066, .01784, 53.44252, 2.30125, 1.55200, + 1.01878, 1.90789, 2.30543, + .02146, .01829, 60.11060, 2.53314, 1.78949, + 1.26232, 2.14276, 2.53741, + .02223, .01872, 66.77824, 2.76891, 2.03049, + 1.50895, 2.38132, 2.77327, + .02298, .01913, 73.34869, 3.00612, 2.27262, + 1.75633, 2.62114, 3.01056, + .02370, .01953, 79.89471, 3.24576, 2.51689, + 2.00554, 2.86325, 3.25028, + .02439, .01992, 86.42159, 3.48774, 2.76324, + 2.25654, 3.10756, 3.49233, + .02506, .02029, 92.82278, 3.72942, 3.00907, + 2.50676, 3.35144, 3.73408 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/ + .02572, .02065, 99.14192, 3.97141, 3.25500, + 2.75686, 3.59553, 3.97614, + .02635, .02100, 105.44106, 4.21509, 3.50244, + 3.00824, 3.84122, 4.21990, + .02697, .02133, 111.53206, 4.45555, 3.74648, + 3.25606, 4.08358, 4.46042, + .02757, .02166, 117.64073, 4.69830, 3.99266, + 3.50582, 4.32816, 4.70323, + .02816, .02198, 123.53794, 4.93727, 4.23492, + 3.75151, 4.56888, 4.94226 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/ + .02032, .01811, 8.96701, .79321, .08174, + .00000, .41915, .79709, + .02199, .01904, 13.22234, .92474, .22350, + .00000, .55609, .92875, + .02353, .01989, 17.68326, 1.06672, .37441, + .00000, .70278, 1.07086, + .02495, .02068, 22.28451, 1.21643, .53204, + .06482, .85668, 1.22069, + .02629, .02142, 26.92757, 1.37216, .69492, + .24717, 1.01619, 1.37653, + .02756, .02212, 31.61810, 1.53301, .86229, + .41954, 1.18048, 1.53747, + .02877, .02277, 36.31049, 1.69751, 1.03279, + .59630, 1.34815, 1.70207 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/ + .02992, .02340, 40.97721, 1.86462, 1.20545, + .77446, 1.51818, 1.86926, + .03103, .02400, 45.60224, 2.03354, 1.37955, + .95370, 1.68983, 2.03827, + .03208, .02457, 50.16994, 2.20364, 1.55447, + 1.13341, 1.86248, 2.20844, + .03310, .02512, 54.61698, 2.37319, 1.72856, + 1.31197, 2.03442, 2.37807, + .03408, .02565, 59.00085, 2.54306, 1.90270, + 1.49031, 2.20654, 2.54801, + .03503, .02616, 63.32956, 2.71326, 2.07695, + 1.66850, 2.37888, 2.71829, + .03594, .02665, 67.53239, 2.88196, 2.24947, + 1.84476, 2.54959, 2.88704 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/ + .03683, .02712, 71.64390, 3.04968, 2.42083, + 2.01966, 2.71923, 3.05483, + .03769, .02758, 75.71024, 3.21751, 2.59212, + 2.19430, 2.88888, 3.22272, + .03852, .02803, 79.60498, 3.38197, 2.75989, + 2.36527, 3.05508, 3.38724, + .03933, .02846, 83.48587, 3.54708, 2.92817, + 2.53659, 3.22187, 3.55242, + .04012, .02888, 87.19914, 3.70859, 3.09272, + 2.70405, 3.38498, 3.71398 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/ + .02981, .02368, 7.84250, .69509, .06949, + .00000, .36644, .69988, + .03215, .02494, 11.18441, .80035, .18429, + .00000, .47674, .80531, + .03429, .02609, 14.58595, .91141, .30366, + .00000, .59221, .91654, + .03627, .02715, 18.00874, 1.02634, .42598, + .05015, .71105, 1.03162, + .03813, .02814, 21.38867, 1.14393, .55023, + .19010, .83216, 1.14935, + .03988, .02907, 24.73934, 1.26364, .67602, + .32025, .95509, 1.26919, + .04154, .02995, 28.03472, 1.38449, .80247, + .45198, 1.07890, 1.39016 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/ + .04312, .03078, 31.26165, 1.50580, .92897, + .58315, 1.20295, 1.51160, + .04462, .03157, 34.41466, 1.62712, 1.05511, + .71365, 1.32682, 1.63303, + .04607, .03233, 37.48793, 1.74806, 1.18056, + .84314, 1.45014, 1.75407, + .04745, .03306, 40.44139, 1.86745, 1.30419, + .97056, 1.57178, 1.87357, + .04878, .03375, 43.32035, 1.98604, 1.42677, + 1.09670, 1.69248, 1.99225, + .05006, .03442, 46.13375, 2.10392, 1.54842, + 1.22169, 1.81235, 2.11023, + .05129, .03507, 48.83561, 2.21982, 1.66789, + 1.34432, 1.93013, 2.22621 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/ + .05248, .03569, 51.45310, 2.33420, 1.78568, + 1.46509, 2.04631, 2.34068, + .05364, .03629, 54.02028, 2.44790, 1.90262, + 1.58487, 2.16173, 2.45447, + .05475, .03687, 56.45315, 2.55851, 2.01632, + 1.70128, 2.27397, 2.56516, + .05584, .03743, 58.86105, 2.66894, 2.12971, + 1.81724, 2.38596, 2.67567, + .05689, .03798, 61.14193, 2.77622, 2.23982, + 1.92981, 2.49474, 2.78302 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/ + .03721, .02779, 7.23802, .64160, .06301, + .00000, .33797, .64711, + .04006, .02929, 10.11671, .73335, .16395, + .00000, .43461, .73909, + .04265, .03066, 12.99488, .82882, .26744, + .00000, .53435, .83478, + .04505, .03192, 15.84764, .92650, .37225, + .04291, .63582, .93266, + .04728, .03309, 18.62747, 1.02544, .47761, + .16206, .73818, 1.03177, + .04939, .03419, 21.35142, 1.12529, .58333, + .27179, .84115, 1.13179, + .05138, .03523, 24.00234, 1.22529, .68874, + .38197, .94403, 1.23195 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/ + .05327, .03621, 26.57333, 1.32497, .79342, + .49088, 1.04637, 1.33177, + .05507, .03715, 29.06330, 1.42398, .89709, + .59850, 1.14786, 1.43093, + .05679, .03804, 31.47043, 1.52209, .99955, + .70462, 1.24829, 1.52918, + .05843, .03889, 33.76482, 1.61837, 1.09993, + .80843, 1.34674, 1.62559, + .06001, .03970, 35.98555, 1.71350, 1.19891, + .91062, 1.44392, 1.72084, + .06153, .04049, 38.14165, 1.80760, 1.29665, + 1.01139, 1.53996, 1.81506, + .06299, .04124, 40.19783, 1.89966, 1.39217, + 1.10976, 1.63386, 1.90723 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/ + .06440, .04196, 42.17743, 1.99010, 1.48590, + 1.20620, 1.72605, 1.99779, + .06577, .04266, 44.10880, 2.07966, 1.57858, + 1.30145, 1.81727, 2.08745, + .06708, .04334, 45.92641, 2.16637, 1.66828, + 1.39359, 1.90557, 2.17426, + .06836, .04399, 47.71789, 2.25265, 1.75742, + 1.48506, 1.99337, 2.26064, + .06960, .04463, 49.40356, 2.33610, 1.84362, + 1.57348, 2.07828, 2.34419 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/ + .04353, .03120, 6.82886, .60506, .05866, + .00000, .31862, .61118, + .04679, .03291, 9.40564, .68793, .15051, + .00000, .40629, .69433, + .04976, .03446, 11.94843, .77330, .24371, + .00000, .49584, .77995, + .05249, .03588, 14.44091, .85992, .33728, + .03828, .58619, .86681, + .05503, .03719, 16.84590, .94701, .43065, + .14419, .67663, .95411, + .05742, .03843, 19.18231, 1.03434, .52372, + .24103, .76703, 1.04164, + .05968, .03960, 21.43833, 1.12130, .61596, + .33770, .85681, 1.12878 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/ + .06182, .04070, 23.61065, 1.20751, .70706, + .43275, .94564, 1.21518, + .06385, .04175, 25.70063, 1.29274, .79684, + .52620, 1.03331, 1.30058, + .06580, .04274, 27.70865, 1.37680, .88517, + .61793, 1.11965, 1.38481, + .06765, .04369, 29.61074, 1.45895, .97131, + .70727, 1.20394, 1.46710, + .06943, .04460, 31.44198, 1.53979, 1.05592, + .79487, 1.28680, 1.54809, + .07114, .04548, 33.21123, 1.61947, 1.13916, + .88092, 1.36839, 1.62791, + .07278, .04631, 34.88946, 1.69714, 1.22021, + .96463, 1.44786, 1.70572 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/ + .07436, .04712, 36.49754, 1.77319, 1.29947, + 1.04641, 1.52563, 1.78190, + .07589, .04790, 38.06026, 1.84827, 1.37761, + 1.12693, 1.60235, 1.85710, + .07737, .04865, 39.52288, 1.92071, 1.45298, + 1.20457, 1.67635, 1.92966, + .07880, .04937, 40.96005, 1.99261, 1.52768, + 1.28143, 1.74976, 2.00169, + .08018, .05007, 42.30522, 2.06194, 1.59968, + 1.35551, 1.82052, 2.07113 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/ + .04919, .03426, 6.51662, .57703, .05535, + .00000, .30366, .58357, + .05280, .03614, 8.86763, .65327, .14039, + .00000, .38461, .66011, + .05607, .03785, 11.16286, .73118, .22598, + .00000, .46663, .73830, + .05908, .03941, 13.39227, .80970, .31132, + .03489, .54880, .81707, + .06188, .04085, 15.52598, .88817, .39595, + .13116, .63056, .89578, + .06451, .04221, 17.58413, .96645, .47986, + .21866, .71185, .97427, + .06699, .04348, 19.55862, 1.04403, .56261, + .30560, .79220, 1.05205 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/ + .06934, .04468, 21.44861, 1.12060, .64398, + .39070, .87135, 1.12882, + .07156, .04582, 23.25690, 1.19601, .72385, + .47404, .94914, 1.20441, + .07369, .04691, 24.98553, 1.27010, .80212, + .55552, 1.02547, 1.27868, + .07571, .04794, 26.61408, 1.34224, .87818, + .63460, 1.09971, 1.35099, + .07765, .04893, 28.17510, 1.41301, .95264, + .71188, 1.17246, 1.42191, + .07951, .04988, 29.67714, 1.48255, 1.02568, + .78758, 1.24387, 1.49161, + .08130, .05078, 31.09542, 1.55014, 1.09657, + .86098, 1.31323, 1.55934 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/ + .08302, .05166, 32.44903, 1.61613, 1.16572, + .93250, 1.38091, 1.62548, + .08469, .05250, 33.76011, 1.68112, 1.23371, + 1.00274, 1.44751, 1.69061, + .08629, .05330, 34.98129, 1.74364, 1.29909, + 1.07027, 1.51156, 1.75325, + .08784, .05409, 36.17809, 1.80557, 1.36376, + 1.13698, 1.57497, 1.81531, + .08934, .05484, 37.29313, 1.86512, 1.42594, + 1.20110, 1.63592, 1.87498 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/ + .07173, .04618, 5.60344, .49395, .04584, + .00000, .25985, .50239, + .07664, .04871, 7.33556, .55173, .11197, + .00000, .32214, .56061, + .08106, .05098, 8.96837, .60926, .17677, + .00000, .38360, .61852, + .08509, .05305, 10.50742, .66598, .23996, + .02581, .44381, .67560, + .08882, .05496, 11.94121, .72156, .30137, + .09635, .50255, .73150, + .09231, .05673, 13.29171, .77606, .36120, + .15927, .55993, .78630, + .09557, .05839, 14.55930, .82924, .41928, + .22083, .61576, .83976 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/ + .09865, .05995, 15.74832, .88098, .47556, + .28023, .66996, .89178, + .10156, .06142, 16.86475, .93127, .53008, + .33763, .72253, .94231, + .10432, .06281, 17.91332, .98007, .58283, + .39307, .77348, .99136, + .10694, .06413, 18.88318, 1.02702, .63348, + .44623, .82243, 1.03853, + .10944, .06538, 19.79854, 1.07258, .68254, + .49764, .86988, 1.08431, + .11183, .06658, 20.66684, 1.11692, .73019, + .54749, .91601, 1.12885, + .11412, .06772, 21.47346, 1.15957, .77596, + .59535, .96035, 1.17169 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/ + .11631, .06881, 22.23237, 1.20082, .82019, + .64155, 1.00322, 1.21314, + .11843, .06987, 22.95897, 1.24112, .86334, + .68656, 1.04506, 1.25362, + .12045, .07087, 23.62389, 1.27951, .90442, + .72943, 1.08490, 1.29217, + .12241, .07184, 24.26986, 1.31728, .94478, + .77148, 1.12408, 1.33012, + .12429, .07278, 24.86124, 1.35325, .98323, + .81155, 1.16139, 1.36624 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/ + .10428, .06340, 4.75186, .41525, .03725, + .00000, .21869, .42635, + .11078, .06673, 5.96984, .45735, .08724, + .00000, .26511, .46905, + .11658, .06969, 7.07363, .49809, .13485, + .00000, .30960, .51032, + .12184, .07236, 8.07892, .53729, .18016, + .01853, .35214, .55000, + .12666, .07480, 8.98645, .57486, .22323, + .06863, .39271, .58801, + .13113, .07705, 9.81772, .61099, .26439, + .11242, .43159, .62455, + .13529, .07913, 10.57792, .64563, .30365, + .15453, .46876, .65956 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/ + .13919, .08108, 11.27366, .67879, .34109, + .19453, .50425, .69307, + .14285, .08290, 11.91191, .71053, .37681, + .23263, .53817, .72514, + .14631, .08461, 12.49830, .74091, .41090, + .26893, .57058, .75583, + .14956, .08622, 13.02791, .76970, .44317, + .30326, .60127, .78490, + .15265, .08774, 13.51797, .79730, .47406, + .33608, .63067, .81278, + .15560, .08918, 13.97442, .82386, .50373, + .36756, .65893, .83960, + .15840, .09055, 14.38903, .84908, .53188, + .39742, .68576, .86507 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/ + .16108, .09185, 14.77166, .87321, .55880, + .42596, .71141, .88943, + .16365, .09310, 15.13250, .89657, .58483, + .45351, .73623, .91302, + .16609, .09428, 15.45398, .91853, .60932, + .47946, .75957, .93519, + .16845, .09542, 15.76290, .93999, .63321, + .50473, .78236, .95686, + .17070, .09651, 16.03808, .96018, .65571, + .52856, .80381, .97723 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/ + .12954, .07691, 4.27776, .37116, .03263, + -.00001, .19594, .38449, + .13709, .08076, 5.24103, .40530, .07439, + -.00001, .23429, .41935, + .14378, .08414, 6.09151, .43773, .11346, + -.00001, .27037, .45241, + .14981, .08717, 6.84858, .46844, .15006, + .01498, .30433, .48370, + .15530, .08991, 7.51744, .49747, .18438, + .05528, .33627, .51323, + .16037, .09242, 8.11832, .52502, .21677, + .09003, .36648, .54125, + .16506, .09474, 8.65771, .55111, .24732, + .12311, .39503, .56778 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/ + .16944, .09689, 9.14259, .57583, .27615, + .15420, .42201, .59289, + .17353, .09889, 9.58003, .59924, .30339, + .18355, .44753, .61668, + .17738, .10076, 9.97528, .62143, .32915, + .21126, .47169, .63922, + .18098, .10250, 10.32566, .64225, .35332, + .23725, .49434, .66036, + .18439, .10414, 10.64490, .66204, .37626, + .26189, .51586, .68045, + .18763, .10570, 10.93800, .68093, .39813, + .28536, .53640, .69963, + .19070, .10716, 11.19932, .69872, .41874, + .30747, .55573, .71769 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/ + .19362, .10855, 11.43650, .71560, .43829, + .32846, .57409, .73483, + .19641, .10987, 11.65740, .73183, .45708, + .34859, .59173, .75131, + .19906, .11112, 11.84952, .74695, .47462, + .36742, .60817, .76665, + .20161, .11232, 12.03260, .76164, .49165, + .38566, .62415, .78157, + .20403, .11345, 12.19133, .77533, .50756, + .40273, .63906, .79547 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/ + .15095, .08851, 3.94980, .34073, .02953, + -.00001, .18037, .35604, + .15926, .09270, 4.75153, .36974, .06595, + -.00001, .21349, .38586, + .16658, .09636, 5.44508, .39690, .09956, + -.00001, .24422, .41372, + .17316, .09962, 6.05127, .42231, .13069, + .01277, .27280, .43977, + .17910, .10255, 6.57747, .44605, .15957, + .04694, .29938, .46406, + .18457, .10522, 7.04269, .46835, .18657, + .07613, .32429, .48688, + .18962, .10766, 7.45385, .48928, .21182, + .10368, .34761, .50828 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/ + .19430, .10992, 7.81789, .50893, .23546, + .12938, .36946, .52835, + .19866, .11201, 8.14151, .52739, .25763, + .15347, .38997, .54721, + .20275, .11395, 8.42966, .54475, .27845, + .17607, .40925, .56494, + .20656, .11575, 8.68070, .56090, .29784, + .19712, .42718, .58143, + .21015, .11745, 8.90620, .57614, .31613, + .21696, .44411, .59699, + .21356, .11904, 9.11049, .59060, .33348, + .23576, .46016, .61175, + .21677, .12053, 9.28926, .60411, .34971, + .25337, .47517, .62554 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/ + .21982, .12194, 9.44888, .61685, .36504, + .26999, .48933, .63854, + .22273, .12328, 9.59576, .62903, .37969, + .28587, .50288, .65098, + .22547, .12453, 9.72006, .64028, .39328, + .30062, .51542, .66246, + .22811, .12574, 9.83757, .65117, .40643, + .31487, .52755, .67358, + .23061, .12687, 9.93624, .66123, .41863, + .32813, .53879, .68384 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/ + .16985, .09883, 3.69993, .31767, .02724, + .00000, .16869, .33485, + .17874, .10326, 4.38708, .34298, .05979, + .00000, .19803, .36103, + .18655, .10711, 4.97131, .36639, .08950, + .00000, .22495, .38520, + .19351, .11051, 5.47405, .38807, .11676, + .01121, .24974, .40755, + .19979, .11355, 5.90348, .40813, .14184, + .04108, .27258, .42820, + .20553, .11630, 6.27797, .42681, .16510, + .06639, .29381, .44742, + .21082, .11881, 6.60431, .44421, .18671, + .09013, .31354, .46530 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/ + .21570, .12112, 6.88921, .46040, .20679, + .11214, .33189, .48194, + .22023, .12324, 7.13888, .47551, .22551, + .13264, .34900, .49746, + .22447, .12521, 7.35822, .48962, .24300, + .15177, .36499, .51196, + .22840, .12702, 7.54588, .50265, .25919, + .16950, .37976, .52533, + .23211, .12872, 7.71218, .51488, .27438, + .18613, .39363, .53787, + .23560, .13031, 7.86082, .52640, .28872, + .20181, .40671, .54970, + .23889, .13179, 7.98812, .53710, .30207, + .21643, .41887, .56068 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/ + .24199, .13318, 8.09987, .54712, .31461, + .23016, .43027, .57096, + .24495, .13451, 8.20142, .55666, .32655, + .24324, .44114, .58075, + .24772, .13573, 8.28453, .56539, .33756, + .25532, .45113, .58971, + .25040, .13691, 8.36239, .57382, .34818, + .26697, .46077, .59836, + .25291, .13801, 8.42506, .58155, .35799, + .27775, .46964, .60629 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/ + .24407, .13960, 2.94545, .24935, .02073, + .00000, .13489, .27472, + .25444, .14435, 3.33365, .26462, .04271, + .00000, .15394, .29097, + .26335, .14835, 3.64192, .27815, .06205, + .00000, .17073, .30531, + .27115, .15179, 3.89051, .29018, .07923, + .00714, .18564, .31803, + .27804, .15477, 4.08902, .30088, .09457, + .02590, .19893, .32932, + .28424, .15741, 4.25115, .31052, .10843, + .04139, .21091, .33947, + .28985, .15975, 4.38297, .31918, .12097, + .05559, .22173, .34860 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/ + .29494, .16184, 4.48996, .32700, .13236, + .06847, .23153, .35681, + .29959, .16373, 4.57679, .33407, .14274, + .08022, .24042, .36423, + .30387, .16543, 4.64674, .34048, .15225, + .09100, .24854, .37096, + .30777, .16695, 4.69986, .34618, .16084, + .10077, .25583, .37693, + .31139, .16835, 4.74210, .35138, .16875, + .10979, .26252, .38238, + .31477, .16962, 4.77578, .35616, .17610, + .11817, .26871, .38739, + .31789, .17078, 4.79922, .36043, .18279, + .12583, .27430, .39187 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/ + .32080, .17184, 4.81555, .36431, .18896, + .13292, .27943, .39593, + .32353, .17284, 4.82773, .36792, .19476, + .13958, .28424, .39971, + .32605, .17372, 4.83130, .37107, .19999, + .14563, .28852, .40300, + .32846, .17456, 4.83342, .37407, .20498, + .15139, .29260, .40615, + .33068, .17532, 4.82898, .37667, .20947, + .15662, .29622, .40886 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/ + .34755, .19432, 2.22233, .18632, .01516, + -.00002, .10507, .22413, + .35772, .19780, 2.39237, .19359, .02868, + -.00001, .11577, .23197, + .36611, .20050, 2.51071, .19955, .04006, + -.00001, .12470, .23835, + .37314, .20264, 2.59336, .20450, .04977, + .00412, .13223, .24357, + .37911, .20432, 2.64806, .20857, .05811, + .01479, .13859, .24785, + .38427, .20568, 2.68364, .21197, .06540, + .02332, .14407, .25138, + .38874, .20677, 2.70456, .21480, .07179, + .03092, .14880, .25429 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/ + .39265, .20763, 2.71420, .21714, .07740, + .03763, .15288, .25668, + .39608, .20831, 2.71527, .21908, .08237, + .04361, .15642, .25864, + .39911, .20885, 2.70973, .22068, .08678, + .04896, .15950, .26023, + .40174, .20924, 2.69761, .22193, .09065, + .05369, .16211, .26143, + .40407, .20953, 2.68204, .22294, .09412, + .05795, .16440, .26238, + .40617, .20974, 2.66413, .22376, .09724, + .06184, .16643, .26313, + .40801, .20985, 2.64299, .22435, .10001, + .06531, .16814, .26363 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/ + .40964, .20989, 2.62010, .22476, .10249, + .06845, .16962, .26395, + .41112, .20990, 2.59683, .22508, .10477, + .07135, .17095, .26418, + .41237, .20982, 2.57105, .22520, .10673, + .07391, .17202, .26418, + .41354, .20973, 2.54600, .22528, .10858, + .07632, .17300, .26415, + .41451, .20957, 2.51918, .22520, .11017, + .07844, .17377, .26394 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/ + .42354, .22993, 1.81715, .15091, .01228, + .00000, .08871, .19674, + .43159, .23122, 1.89409, .15439, .02179, + .00000, .09533, .20007, + .43783, .23191, 1.93633, .15694, .02953, + .00000, .10056, .20239, + .44274, .23218, 1.95611, .15880, .03594, + .00280, .10476, .20397, + .44660, .23213, 1.95924, .16009, .04131, + .00995, .10812, .20491, + .44968, .23185, 1.95200, .16098, .04587, + .01553, .11085, .20545, + .45213, .23140, 1.93736, .16152, .04976, + .02041, .11307, .20562 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/ + .45405, .23084, 1.91747, .16180, .05309, + .02464, .11486, .20550, + .45557, .23016, 1.89406, .16185, .05597, + .02834, .11632, .20518, + .45674, .22940, 1.86831, .16173, .05845, + .03157, .11747, .20466, + .45756, .22855, 1.84010, .16141, .06057, + .03438, .11835, .20397, + .45814, .22768, 1.81129, .16099, .06242, + .03688, .11904, .20317, + .45853, .22678, 1.78245, .16050, .06405, + .03912, .11958, .20231, + .45871, .22585, 1.75294, .15990, .06545, + .04108, .11994, .20135 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/ + .45873, .22488, 1.72355, .15924, .06666, + .04282, .12018, .20033, + .45867, .22392, 1.69501, .15855, .06774, + .04440, .12035, .19929, + .45841, .22292, 1.66596, .15776, .06864, + .04576, .12036, .19815, + .45812, .22195, 1.63826, .15699, .06946, + .04703, .12035, .19705, + .45766, .22095, 1.61043, .15614, .07013, + .04812, .12022, .19587 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/ + .48305, .25326, 1.53932, .12545, .01030, + .00000, .07664, .17560, + .48794, .25212, 1.56474, .12672, .01737, + -.00001, .08075, .17595, + .49121, .25064, 1.56694, .12735, .02299, + .00000, .08380, .17568, + .49332, .24896, 1.55540, .12754, .02752, + .00203, .08608, .17501, + .49450, .24714, 1.53424, .12738, .03121, + .00718, .08775, .17402, + .49506, .24524, 1.50794, .12698, .03427, + .01112, .08898, .17281, + .49511, .24330, 1.47842, .12639, .03682, + .01450, .08987, .17145 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/ + .49478, .24134, 1.44710, .12567, .03894, + .01739, .09047, .16998, + .49413, .23937, 1.41501, .12485, .04073, + .01988, .09086, .16847, + .49324, .23743, 1.38277, .12395, .04226, + .02203, .09107, .16687, + .49209, .23547, 1.35022, .12296, .04350, + .02385, .09110, .16523, + .49078, .23355, 1.31846, .12195, .04455, + .02545, .09103, .16359, + .48938, .23168, 1.28776, .12093, .04545, + .02685, .09088, .16195, + .48785, .22981, 1.25759, .11986, .04621, + .02806, .09063, .16030 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/ + .48623, .22797, 1.22838, .11878, .04683, + .02912, .09032, .15866, + .48460, .22620, 1.20052, .11772, .04737, + .03007, .08997, .15707, + .48281, .22443, 1.17309, .11662, .04778, + .03087, .08955, .15546, + .48107, .22273, 1.14718, .11557, .04815, + .03161, .08913, .15391, + .47922, .22102, 1.12175, .11448, .04841, + .03223, .08864, .15233 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/ + .53007, .26759, 1.32992, .10512, .00874, + .00000, .06651, .15657, + .53120, .26403, 1.32335, .10502, .01417, + -.00001, .06895, .15490, + .53101, .26047, 1.30204, .10452, .01837, + .00000, .07058, .15294, + .52998, .25696, 1.27313, .10377, .02169, + .00153, .07166, .15084, + .52823, .25350, 1.23941, .10281, .02430, + .00538, .07229, .14867, + .52608, .25012, 1.20396, .10173, .02644, + .00827, .07263, .14642, + .52361, .24683, 1.16799, .10058, .02817, + .01072, .07274, .14419 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/ + .52090, .24365, 1.13235, .09939, .02958, + .01278, .07268, .14197, + .51803, .24057, 1.09758, .09815, .03074, + .01453, .07248, .13980, + .51507, .23759, 1.06396, .09690, .03169, + .01600, .07218, .13766, + .51196, .23468, 1.03120, .09563, .03243, + .01724, .07177, .13556, + .50881, .23188, .99999, .09438, .03305, + .01831, .07132, .13350, + .50566, .22920, .97040, .09317, .03356, + .01925, .07083, .13150, + .50248, .22657, .94195, .09194, .03395, + .02004, .07029, .12955 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/ + .49929, .22403, .91486, .09074, .03426, + .02072, .06972, .12766, + .49616, .22160, .88931, .08958, .03451, + .02132, .06915, .12585, + .49297, .21920, .86460, .08841, .03468, + .02181, .06853, .12407, + .48989, .21691, .84144, .08729, .03482, + .02225, .06794, .12237, + .48674, .21467, .81908, .08618, .03489, + .02261, .06731, .12067 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/ + .57432, .27588, 1.12591, .08423, .00714, + -.00001, .05544, .13418, + .57027, .26955, 1.09439, .08316, .01114, + -.00002, .05650, .13092, + .56548, .26363, 1.05598, .08190, .01414, + -.00001, .05702, .12772, + .56030, .25811, 1.01542, .08055, .01645, + .00110, .05719, .12459, + .55483, .25286, .97417, .07912, .01822, + .00386, .05707, .12159, + .54925, .24791, .93405, .07768, .01961, + .00590, .05678, .11871, + .54364, .24323, .89556, .07624, .02071, + .00759, .05636, .11595 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/ + .53805, .23879, .85902, .07482, .02157, + .00898, .05585, .11331, + .53250, .23458, .82455, .07342, .02224, + .01015, .05529, .11080, + .52705, .23058, .79215, .07207, .02277, + .01112, .05467, .10840, + .52162, .22673, .76141, .07072, .02317, + .01194, .05402, .10609, + .51632, .22308, .73269, .06943, .02347, + .01262, .05336, .10388, + .51117, .21961, .70591, .06819, .02371, + .01319, .05269, .10178, + .50610, .21626, .68060, .06697, .02387, + .01366, .05201, .09977 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/ + .50114, .21306, .65687, .06579, .02397, + .01406, .05133, .09784, + .49635, .21002, .63472, .06468, .02403, + .01442, .05066, .09600, + .49157, .20706, .61366, .06358, .02405, + .01469, .04999, .09422, + .48700, .20425, .59406, .06254, .02405, + .01493, .04934, .09253, + .48246, .20151, .57539, .06150, .02400, + .01512, .04869, .09089 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/ + .60457, .27602, .96315, .06702, .00580, + -.00003, .04567, .11317, + .59516, .26729, .91661, .06548, .00882, + -.00003, .04593, .10908, + .58574, .25940, .86895, .06391, .01102, + -.00003, .04582, .10526, + .57651, .25217, .82299, .06233, .01264, + .00080, .04548, .10177, + .56742, .24549, .77913, .06076, .01387, + .00284, .04498, .09846, + .55858, .23930, .73821, .05923, .01480, + .00432, .04438, .09539, + .55002, .23352, .70026, .05776, .01549, + .00553, .04373, .09251 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/ + .54175, .22812, .66518, .05634, .01602, + .00651, .04303, .08981, + .53377, .22306, .63283, .05498, .01642, + .00731, .04232, .08728, + .52607, .21831, .60297, .05367, .01673, + .00797, .04161, .08489, + .51860, .21379, .57522, .05242, .01692, + .00851, .04087, .08264, + .51140, .20954, .54966, .05122, .01705, + .00895, .04015, .08053, + .50450, .20553, .52612, .05008, .01714, + .00933, .03946, .07853, + .49780, .20170, .50416, .04899, .01718, + .00961, .03877, .07661 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/ + .49132, .19806, .48379, .04794, .01718, + .00985, .03810, .07481, + .48512, .19461, .46495, .04694, .01715, + .01005, .03744, .07312, + .47904, .19129, .44726, .04597, .01710, + .01021, .03680, .07148, + .47325, .18815, .43089, .04505, .01704, + .01035, .03619, .06994, + .46757, .18511, .41544, .04416, .01695, + .01045, .03559, .06844 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/ + .62249, .27001, .82839, .05276, .00469, + -.00001, .03713, .09382, + .60782, .25937, .77313, .05113, .00695, + -.00002, .03691, .08944, + .59393, .24992, .72105, .04950, .00856, + -.00001, .03644, .08553, + .58087, .24141, .67334, .04794, .00973, + .00060, .03585, .08198, + .56841, .23368, .62963, .04645, .01057, + .00211, .03517, .07871, + .55660, .22658, .59003, .04501, .01119, + .00319, .03444, .07572, + .54540, .22004, .55415, .04364, .01164, + .00406, .03371, .07296 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/ + .53477, .21397, .52165, .04235, .01197, + .00475, .03296, .07041, + .52468, .20834, .49219, .04112, .01219, + .00531, .03224, .06805, + .51505, .20309, .46543, .03996, .01234, + .00577, .03152, .06588, + .50583, .19814, .44092, .03885, .01242, + .00610, .03081, .06382, + .49706, .19350, .41861, .03780, .01246, + .00639, .03013, .06189, + .48872, .18916, .39826, .03680, .01248, + .00664, .02948, .06009, + .48066, .18506, .37949, .03588, .01245, + .00681, .02884, .05839 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/ + .47296, .18117, .36224, .03500, .01240, + .00696, .02823, .05678, + .46565, .17749, .34640, .03416, .01235, + .00709, .02766, .05527, + .45854, .17398, .33164, .03334, .01226, + .00717, .02708, .05385, + .45180, .17067, .31807, .03257, .01218, + .00723, .02653, .05252, + .44522, .16748, .30542, .03183, .01207, + .00728, .02600, .05125 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/ + .62942, .25945, .71392, .04105, .00374, + -.00002, .02974, .07641, + .60987, .24730, .65417, .03947, .00546, + -.00003, .02928, .07216, + .59188, .23671, .60074, .03796, .00666, + -.00002, .02867, .06839, + .57535, .22729, .55357, .03654, .00752, + .00046, .02799, .06505, + .55993, .21881, .51162, .03517, .00809, + .00158, .02725, .06207, + .54554, .21110, .47444, .03389, .00851, + .00237, .02653, .05932, + .53207, .20406, .44140, .03270, .00880, + .00301, .02581, .05683 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/ + .51945, .19757, .41197, .03157, .00899, + .00351, .02511, .05456, + .50759, .19159, .38567, .03051, .00912, + .00390, .02443, .05245, + .49640, .18606, .36213, .02954, .00918, + .00421, .02378, .05052, + .48579, .18087, .34076, .02859, .00919, + .00444, .02315, .04874, + .47575, .17606, .32151, .02772, .00919, + .00464, .02254, .04706, + .46625, .17158, .30411, .02691, .00917, + .00480, .02196, .04549, + .45720, .16734, .28824, .02613, .00911, + .00491, .02140, .04406 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/ + .44859, .16334, .27378, .02538, .00904, + .00499, .02087, .04271, + .44045, .15957, .26060, .02469, .00898, + .00507, .02038, .04143, + .43255, .15601, .24841, .02404, .00889, + .00512, .01989, .04024, + .42507, .15267, .23725, .02343, .00879, + .00516, .01943, .03912, + .41785, .14945, .22692, .02284, .00870, + .00518, .01899, .03805 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/ + .62666, .24555, .61504, .03151, .00295, + -.00001, .02347, .06118, + .60266, .23238, .55378, .03010, .00427, + -.00002, .02292, .05727, + .58112, .22095, .50111, .02876, .00518, + -.00001, .02228, .05387, + .56158, .21098, .45592, .02751, .00579, + .00035, .02160, .05089, + .54366, .20202, .41667, .02632, .00621, + .00120, .02092, .04823, + .52713, .19397, .38253, .02526, .00649, + .00180, .02024, .04583, + .51180, .18669, .35271, .02426, .00666, + .00226, .01959, .04367 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/ + .49758, .18002, .32651, .02331, .00677, + .00262, .01896, .04173, + .48433, .17392, .30337, .02245, .00683, + .00289, .01836, .03993, + .47193, .16828, .28285, .02164, .00686, + .00310, .01780, .03828, + .46023, .16304, .26452, .02088, .00683, + .00327, .01725, .03679, + .44926, .15820, .24814, .02017, .00679, + .00340, .01674, .03539, + .43895, .15371, .23344, .01950, .00675, + .00350, .01626, .03409, + .42917, .14946, .22013, .01889, .00670, + .00358, .01579, .03288 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/ + .41990, .14550, .20809, .01830, .00663, + .00363, .01534, .03176, + .41115, .14181, .19718, .01776, .00655, + .00367, .01492, .03073, + .40277, .13828, .18719, .01724, .00646, + .00369, .01453, .02975, + .39487, .13497, .17808, .01675, .00638, + .00370, .01416, .02884, + .38728, .13181, .16969, .01627, .00630, + .00370, .01380, .02797 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/ + .61543, .22929, .52874, .02383, .00233, + .00003, .01827, .04815, + .58758, .21551, .46827, .02265, .00333, + .00003, .01769, .04472, + .56298, .20372, .41779, .02154, .00399, + .00003, .01709, .04174, + .54102, .19344, .37551, .02051, .00443, + .00029, .01646, .03920, + .52105, .18433, .33951, .01956, .00471, + .00092, .01585, .03693, + .50284, .17619, .30872, .01867, .00489, + .00135, .01527, .03492, + .48612, .16886, .28220, .01786, .00500, + .00168, .01470, .03311 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/ + .47071, .16221, .25919, .01711, .00505, + .00193, .01416, .03147, + .45643, .15613, .23909, .01641, .00507, + .00212, .01365, .03000, + .44318, .15056, .22148, .01576, .00506, + .00228, .01317, .02867, + .43077, .14540, .20585, .01516, .00504, + .00239, .01272, .02743, + .41919, .14065, .19202, .01459, .00500, + .00247, .01230, .02628, + .40836, .13625, .17971, .01406, .00495, + .00254, .01191, .02523, + .39811, .13215, .16867, .01359, .00488, + .00259, .01153, .02426 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/ + .38846, .12830, .15872, .01314, .00482, + .00261, .01117, .02336, + .37940, .12470, .14973, .01271, .00476, + .00262, .01084, .02253, + .37075, .12132, .14158, .01231, .00468, + .00263, .01052, .02175, + .36262, .11816, .13419, .01193, .00460, + .00264, .01022, .02103, + .35484, .11513, .12743, .01156, .00452, + .00264, .00993, .02036 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/ + .59672, .21188, .45333, .01801, .00166, + -.00014, .01386, .03724, + .56579, .19778, .39497, .01700, .00246, + -.00014, .01337, .03433, + .53877, .18584, .34760, .01609, .00296, + -.00011, .01284, .03185, + .51494, .17552, .30875, .01523, .00330, + .00008, .01231, .02974, + .49352, .16644, .27626, .01444, .00350, + .00060, .01180, .02788, + .47411, .15838, .24886, .01372, .00362, + .00093, .01131, .02622, + .45645, .15116, .22556, .01306, .00370, + .00117, .01086, .02473 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/ + .44025, .14465, .20559, .01246, .00373, + .00136, .01042, .02342, + .42534, .13873, .18840, .01191, .00374, + .00151, .01001, .02223, + .41160, .13335, .17340, .01140, .00372, + .00162, .00963, .02115, + .39879, .12838, .16023, .01092, .00368, + .00171, .00928, .02016, + .38686, .12382, .14865, .01049, .00364, + .00177, .00894, .01926, + .37575, .11961, .13841, .01009, .00359, + .00180, .00862, .01844, + .36535, .11569, .12928, .00971, .00353, + .00183, .00832, .01768 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/ + .35556, .11204, .12114, .00937, .00347, + .00185, .00803, .01697, + .34637, .10865, .11384, .00906, .00341, + .00185, .00777, .01631, + .33770, .10544, .10724, .00873, .00336, + .00185, .00753, .01571, + .32956, .10245, .10128, .00842, .00330, + .00186, .00731, .01516, + .32175, .09962, .09583, .00815, .00324, + .00185, .00708, .01463 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/ + .57205, .19320, .38646, .01316, .00131, + -.00003, .01049, .02835, + .53865, .17922, .33150, .01239, .00190, + -.00003, .01006, .02595, + .50984, .16744, .28794, .01170, .00228, + -.00002, .00961, .02391, + .48467, .15734, .25283, .01104, .00253, + .00013, .00917, .02219, + .46223, .14851, .22393, .01044, .00265, + .00049, .00875, .02069, + .44205, .14072, .19990, .00988, .00273, + .00072, .00835, .01937, + .42381, .13379, .17972, .00938, .00277, + .00090, .00796, .01822 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/ + .40720, .12757, .16261, .00892, .00277, + .00103, .00762, .01718, + .39201, .12193, .14799, .00850, .00277, + .00113, .00729, .01623, + .37808, .11681, .13536, .00811, .00274, + .00121, .00699, .01539, + .36515, .11211, .12438, .00775, .00270, + .00126, .00670, .01463, + .35319, .10781, .11480, .00741, .00266, + .00130, .00644, .01394, + .34209, .10386, .10637, .00710, .00262, + .00132, .00620, .01330, + .33168, .10020, .09891, .00684, .00257, + .00134, .00596, .01269 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/ + .32199, .09680, .09228, .00658, .00253, + .00135, .00575, .01215, + .31295, .09364, .08638, .00632, .00248, + .00135, .00556, .01166, + .30435, .09069, .08107, .00610, .00242, + .00134, .00537, .01119, + .29631, .08794, .07629, .00589, .00237, + .00134, .00519, .01076, + .28867, .08533, .07197, .00569, .00232, + .00133, .00502, .01037 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/ + .54225, .17448, .32776, .00955, .00097, + -.00003, .00776, .02118, + .50717, .16079, .27690, .00897, .00144, + -.00002, .00741, .01927, + .47724, .14937, .23738, .00843, .00170, + -.00003, .00705, .01768, + .45131, .13965, .20610, .00791, .00188, + .00009, .00671, .01632, + .42832, .13124, .18075, .00746, .00197, + .00036, .00637, .01514, + .40784, .12382, .15995, .00704, .00202, + .00052, .00606, .01412, + .38941, .11726, .14267, .00667, .00204, + .00066, .00576, .01321 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/ + .37275, .11139, .12815, .00632, .00204, + .00076, .00549, .01241, + .35759, .10613, .11584, .00601, .00203, + .00082, .00523, .01168, + .34370, .10136, .10532, .00574, .00200, + .00088, .00501, .01101, + .33093, .09700, .09624, .00545, .00197, + .00091, .00479, .01044, + .31915, .09301, .08837, .00521, .00193, + .00093, .00459, .00991, + .30826, .08936, .08150, .00498, .00190, + .00095, .00441, .00943, + .29810, .08599, .07547, .00477, .00186, + .00096, .00423, .00899 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/ + .28865, .08287, .07012, .00458, .00181, + .00096, .00406, .00859, + .27986, .07998, .06536, .00441, .00177, + .00096, .00390, .00821, + .27155, .07727, .06113, .00424, .00173, + .00096, .00376, .00787, + .26381, .07476, .05733, .00409, .00170, + .00096, .00363, .00756, + .25646, .07240, .05393, .00394, .00165, + .00094, .00351, .00726 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/ + .50850, .15585, .27609, .00678, .00073, + .00000, .00567, .01556, + .47246, .14271, .22980, .00635, .00107, + .00000, .00539, .01409, + .44199, .13186, .19452, .00594, .00128, + -.00001, .00511, .01284, + .41577, .12268, .16703, .00558, .00140, + .00009, .00485, .01180, + .39278, .11476, .14507, .00522, .00146, + .00029, .00459, .01090, + .37237, .10784, .12724, .00494, .00150, + .00041, .00435, .01009, + .35410, .10174, .11261, .00468, .00151, + .00050, .00413, .00940 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/ + .33765, .09630, .10044, .00445, .00150, + .00057, .00391, .00879, + .32281, .09144, .09022, .00419, .00147, + .00061, .00373, .00827, + .30928, .08705, .08152, .00399, .00145, + .00065, .00356, .00780, + .29687, .08307, .07408, .00377, .00142, + .00067, .00338, .00737, + .28545, .07944, .06769, .00360, .00139, + .00067, .00322, .00697, + .27495, .07612, .06214, .00345, .00136, + .00068, .00308, .00660, + .26521, .07306, .05729, .00330, .00133, + .00069, .00296, .00627 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/ + .25616, .07024, .05303, .00316, .00129, + .00069, .00284, .00598, + .24776, .06764, .04926, .00303, .00126, + .00068, .00272, .00571, + .23987, .06521, .04590, .00290, .00123, + .00068, .00262, .00546, + .23253, .06295, .04291, .00277, .00120, + .00068, .00252, .00523, + .22559, .06084, .04023, .00268, .00117, + .00067, .00243, .00501 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/ + .47178, .13772, .23081, .00467, .00058, + .00005, .00410, .01122, + .43546, .12536, .18928, .00439, .00083, + .00004, .00389, .01008, + .40504, .11519, .15824, .00411, .00096, + .00003, .00367, .00915, + .37909, .10665, .13438, .00383, .00105, + .00010, .00347, .00837, + .35638, .09933, .11561, .00362, .00109, + .00024, .00327, .00770, + .33641, .09296, .10054, .00340, .00110, + .00033, .00310, .00713, + .31865, .08736, .08827, .00321, .00110, + .00039, .00292, .00661 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/ + .30277, .08240, .07817, .00303, .00110, + .00043, .00277, .00616, + .28845, .07797, .06976, .00287, .00108, + .00046, .00262, .00575, + .27547, .07402, .06268, .00271, .00106, + .00048, .00248, .00541, + .26359, .07042, .05667, .00257, .00104, + .00049, .00237, .00507, + .25273, .06716, .05153, .00244, .00101, + .00050, .00226, .00479, + .24277, .06418, .04709, .00233, .00098, + .00051, .00216, .00455, + .23354, .06146, .04322, .00223, .00095, + .00051, .00206, .00431 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/ + .22502, .05894, .03984, .00213, .00092, + .00051, .00197, .00409, + .21714, .05662, .03687, .00203, .00090, + .00050, .00189, .00390, + .20972, .05447, .03424, .00196, .00088, + .00049, .00182, .00372, + .20283, .05249, .03191, .00189, .00086, + .00049, .00175, .00355, + .19637, .05063, .02983, .00182, .00083, + .00048, .00168, .00340 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/ + .43310, .12059, .19151, .00325, .00039, + .00001, .00286, .00794, + .39713, .10907, .15479, .00306, .00059, + .00001, .00273, .00709, + .36730, .09969, .12779, .00284, .00069, + .00002, .00257, .00641, + .34203, .09185, .10735, .00263, .00076, + .00007, .00242, .00585, + .32008, .08514, .09147, .00247, .00078, + .00016, .00227, .00536, + .30083, .07937, .07887, .00233, .00079, + .00022, .00214, .00493, + .28384, .07430, .06874, .00220, .00079, + .00027, .00201, .00456 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/ + .26869, .06985, .06046, .00207, .00078, + .00030, .00190, .00423, + .25511, .06588, .05361, .00195, .00077, + .00032, .00180, .00394, + .24284, .06236, .04790, .00186, .00075, + .00034, .00172, .00367, + .23166, .05915, .04307, .00175, .00073, + .00034, .00162, .00347, + .22149, .05625, .03897, .00165, .00070, + .00035, .00154, .00328, + .21219, .05361, .03546, .00158, .00068, + .00035, .00146, .00309, + .20359, .05121, .03242, .00152, .00066, + .00035, .00140, .00291 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/ + .19569, .04900, .02977, .00145, .00065, + .00035, .00133, .00276, + .18840, .04697, .02746, .00137, .00063, + .00035, .00127, .00263, + .18157, .04508, .02541, .00131, .00061, + .00034, .00122, .00251, + .17524, .04334, .02360, .00126, .00059, + .00034, .00117, .00239, + .16930, .04172, .02200, .00120, .00057, + .00033, .00113, .00228 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/ + .39330, .10440, .15740, .00219, .00028, + .00002, .00197, .00550, + .35836, .09387, .12543, .00207, .00041, + .00002, .00187, .00490, + .32952, .08535, .10231, .00195, .00049, + .00003, .00176, .00440, + .30523, .07827, .08506, .00185, .00053, + .00005, .00165, .00398, + .28436, .07225, .07180, .00173, .00054, + .00013, .00155, .00364, + .26618, .06706, .06140, .00160, .00055, + .00016, .00145, .00335, + .25015, .06257, .05310, .00151, .00054, + .00019, .00136, .00308 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/ + .23597, .05861, .04639, .00140, .00053, + .00021, .00128, .00286, + .22325, .05511, .04089, .00134, .00052, + .00022, .00121, .00265, + .21186, .05199, .03632, .00125, .00052, + .00022, .00114, .00247, + .20150, .04917, .03250, .00119, .00049, + .00023, .00108, .00232, + .19210, .04664, .02926, .00113, .00047, + .00023, .00102, .00218, + .18355, .04434, .02649, .00107, .00045, + .00023, .00097, .00206, + .17567, .04224, .02413, .00102, .00044, + .00023, .00093, .00195 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/ + .16842, .04033, .02208, .00097, .00043, + .00023, .00088, .00184, + .16176, .03857, .02029, .00093, .00042, + .00022, .00084, .00174, + .15553, .03695, .01873, .00090, .00041, + .00022, .00080, .00164, + .14978, .03546, .01734, .00087, .00040, + .00021, .00077, .00156, + .14443, .03406, .01612, .00082, .00038, + .00021, .00074, .00149 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/ + .35322, .08936, .12800, .00140, .00021, + .00005, .00135, .00373, + .31975, .07985, .10052, .00135, .00032, + .00005, .00129, .00329, + .29238, .07218, .08098, .00124, .00037, + .00004, .00120, .00297, + .26943, .06589, .06659, .00118, .00039, + .00005, .00112, .00268, + .24981, .06055, .05568, .00112, .00039, + .00010, .00105, .00242, + .23282, .05597, .04721, .00105, .00039, + .00013, .00099, .00222, + .21794, .05201, .04052, .00098, .00039, + .00015, .00094, .00204 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/ + .20481, .04854, .03515, .00091, .00038, + .00016, .00087, .00189, + .19314, .04549, .03078, .00085, .00037, + .00017, .00082, .00175, + .18267, .04279, .02718, .00080, .00036, + .00016, .00077, .00162, + .17321, .04035, .02420, .00076, .00035, + .00017, .00072, .00152, + .16462, .03816, .02169, .00073, .00034, + .00017, .00069, .00143, + .15682, .03619, .01955, .00071, .00033, + .00017, .00066, .00135, + .14973, .03439, .01773, .00066, .00032, + .00017, .00062, .00127 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/ + .14322, .03275, .01616, .00061, .00031, + .00017, .00059, .00120, + .13725, .03125, .01479, .00057, .00030, + .00016, .00056, .00114, + .13166, .02986, .01361, .00055, .00028, + .00016, .00053, .00108, + .12652, .02859, .01257, .00053, .00027, + .00016, .00051, .00102, + .12173, .02741, .01165, .00051, .00027, + .00016, .00049, .00097 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/ + .31365, .07564, .10297, .00092, .00016, + .00004, .00090, .00245, + .28210, .06714, .07966, .00084, .00022, + .00002, .00086, .00218, + .25643, .06036, .06336, .00078, .00026, + .00002, .00081, .00196, + .23507, .05480, .05152, .00074, .00029, + .00005, .00076, .00175, + .21694, .05014, .04265, .00069, .00029, + .00007, .00071, .00158, + .20130, .04616, .03587, .00064, .00028, + .00010, .00067, .00144, + .18769, .04272, .03054, .00059, .00028, + .00012, .00063, .00133 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/ + .17572, .03971, .02631, .00055, .00028, + .00012, .00059, .00122, + .16513, .03708, .02290, .00051, .00027, + .00013, .00056, .00114, + .15566, .03477, .02011, .00049, .00026, + .00014, .00053, .00105, + .14714, .03269, .01780, .00045, .00026, + .00013, .00050, .00098, + .13946, .03083, .01588, .00042, .00025, + .00014, .00047, .00091, + .13251, .02916, .01426, .00040, .00024, + .00014, .00045, .00085, + .12615, .02763, .01287, .00038, .00023, + .00013, .00042, .00081 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/ + .12034, .02625, .01169, .00036, .00022, + .00013, .00040, .00076, + .11503, .02500, .01067, .00034, .00021, + .00012, .00038, .00072, + .11010, .02384, .00979, .00033, .00020, + .00013, .00036, .00068, + .10558, .02277, .00901, .00032, .00020, + .00012, .00035, .00064, + .10135, .02179, .00833, .00030, .00019, + .00012, .00033, .00061 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/ + .27538, .06334, .08197, .00063, .00007, + -.00002, .00055, .00160, + .24604, .05589, .06256, .00059, .00013, + -.00001, .00053, .00142, + .22235, .04999, .04915, .00057, .00015, + -.00001, .00050, .00125, + .20286, .04516, .03957, .00050, .00017, + -.00001, .00047, .00113, + .18634, .04113, .03246, .00048, .00018, + .00003, .00044, .00103, + .17217, .03771, .02707, .00044, .00018, + .00004, .00040, .00095, + .15989, .03478, .02289, .00042, .00017, + .00005, .00038, .00086 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/ + .14915, .03224, .01959, .00039, .00016, + .00006, .00036, .00079, + .13966, .03001, .01694, .00038, .00016, + .00006, .00034, .00072, + .13125, .02803, .01480, .00035, .00015, + .00007, .00031, .00067, + .12367, .02629, .01304, .00034, .00015, + .00007, .00029, .00062, + .11688, .02473, .01158, .00032, .00014, + .00007, .00028, .00058, + .11076, .02333, .01035, .00030, .00013, + .00007, .00026, .00055, + .10520, .02206, .00932, .00028, .00013, + .00007, .00025, .00051 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/ + .10011, .02090, .00843, .00026, .00013, + .00007, .00023, .00048, + .09546, .01985, .00767, .00025, .00012, + .00006, .00022, .00046, + .09117, .01889, .00701, .00024, .00011, + .00006, .00020, .00043, + .08723, .01802, .00643, .00023, .00011, + .00005, .00019, .00040, + .08358, .01721, .00593, .00022, .00010, + .00006, .00019, .00038 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/ + .23844, .05217, .06416, .00033, .00007, + .00002, .00037, .00101, + .21160, .04576, .04827, .00034, .00011, + .00002, .00035, .00089, + .19017, .04068, .03747, .00032, .00012, + .00003, .00033, .00079, + .17257, .03658, .02983, .00029, .00013, + .00002, .00030, .00070, + .15774, .03317, .02425, .00028, .00012, + .00004, .00029, .00064, + .14509, .03029, .02005, .00027, .00012, + .00005, .00027, .00058, + .13420, .02782, .01682, .00026, .00012, + .00005, .00025, .00052 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/ + .12471, .02569, .01429, .00024, .00012, + .00005, .00023, .00049, + .11638, .02384, .01229, .00022, .00011, + .00005, .00022, .00045, + .10898, .02221, .01068, .00022, .00011, + .00005, .00020, .00041, + .10239, .02076, .00936, .00020, .00011, + .00006, .00019, .00038, + .09649, .01947, .00827, .00018, .00010, + .00006, .00018, .00035, + .09117, .01832, .00736, .00018, .00010, + .00005, .00017, .00032, + .08635, .01728, .00660, .00017, .00009, + .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)/ + .08197, .01633, .00595, .00016, .00009, + .00005, .00015, .00028, + .07798, .01547, .00539, .00014, .00008, + .00004, .00014, .00028, + .07429, .01469, .00491, .00014, .00008, + .00004, .00013, .00026, + .07092, .01398, .00450, .00013, .00007, + .00004, .00013, .00025, + .06781, .01332, .00414, .00013, .00007, + .00004, .00012, .00023 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/ + .20374, .04241, .04951, .00018, .00006, + .00003, .00025, .00060, + .17960, .03694, .03669, .00018, .00008, + .00002, .00023, .00053, + .16043, .03267, .02811, .00017, .00009, + .00003, .00022, .00047, + .14480, .02921, .02214, .00015, .00010, + .00003, .00020, .00043, + .13169, .02637, .01782, .00017, .00010, + .00004, .00019, .00038, + .12059, .02397, .01461, .00015, .00009, + .00004, .00017, .00035, + .11108, .02193, .01216, .00014, .00009, + .00005, .00017, .00032 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/ + .10284, .02017, .01026, .00013, .00008, + .00005, .00016, .00029, + .09561, .01865, .00877, .00012, .00008, + .00005, .00015, .00026, + .08924, .01731, .00757, .00012, .00008, + .00005, .00013, .00025, + .08356, .01614, .00660, .00011, .00007, + .00004, .00012, .00023, + .07851, .01509, .00581, .00010, .00007, + .00004, .00011, .00021, + .07398, .01415, .00515, .00009, .00007, + .00004, .00010, .00020, + .06987, .01331, .00459, .00009, .00006, + .00004, .00010, .00018 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/ + .06613, .01256, .00413, .00009, .00006, + .00004, .00010, .00016, + .06274, .01187, .00373, .00009, .00005, + .00003, .00009, .00015, + .05964, .01124, .00339, .00008, .00005, + .00003, .00008, .00015, + .05681, .01067, .00309, .00008, .00005, + .00003, .00008, .00015, + .05419, .01015, .00284, .00007, .00005, + .00003, .00008, .00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/ + .17177, .03403, .03769, .00012, .00002, + .00000, .00013, .00036, + .15036, .02946, .02751, .00014, .00004, + .00001, .00013, .00031, + .13349, .02589, .02081, .00012, .00005, + .00000, .00012, .00029, + .11980, .02304, .01622, .00012, .00005, + .00000, .00011, .00025, + .10849, .02069, .01293, .00009, .00005, + .00002, .00010, .00024, + .09891, .01873, .01050, .00010, .00005, + .00002, .00010, .00020, + .09070, .01707, .00867, .00010, .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)/ + .08363, .01565, .00727, .00009, .00004, + .00002, .00009, .00017, + .07748, .01441, .00617, .00008, .00004, + .00002, .00008, .00016, + .07206, .01334, .00530, .00008, .00004, + .00002, .00007, .00015, + .06725, .01239, .00460, .00009, .00004, + .00002, .00007, .00013, + .06300, .01155, .00403, .00008, .00004, + .00002, .00006, .00012, + .05920, .01081, .00355, .00007, .00003, + .00002, .00006, .00011, + .05575, .01014, .00316, .00007, .00003, + .00002, .00005, .00011 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/ + .05264, .00954, .00283, .00007, .00003, + .00002, .00005, .00010, + .04982, .00900, .00255, .00006, .00003, + .00001, .00004, .00009, + .04725, .00850, .00231, .00005, .00003, + .00001, .00004, .00009, + .04491, .00805, .00210, .00004, .00003, + .00001, .00004, .00009, + .04275, .00764, .00192, .00004, .00002, + .00001, .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)/ + .14223, .02674, .02804, .00005, .00004, + .00003, .00010, .00020, + .12366, .02299, .02016, .00004, .00004, + .00002, .00009, .00019, + .10910, .02008, .01505, .00005, .00004, + .00002, .00008, .00016, + .09739, .01778, .01159, .00005, .00004, + .00002, .00008, .00014, + .08771, .01589, .00914, .00004, .00004, + .00002, .00007, .00012, + .07957, .01432, .00736, .00004, .00004, + .00002, .00007, .00011, + .07266, .01299, .00603, .00005, .00004, + .00002, .00006, .00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/ + .06672, .01186, .00502, .00005, .00003, + .00002, .00005, .00009, + .06158, .01089, .00423, .00004, .00003, + .00002, .00005, .00008, + .05706, .01004, .00362, .00004, .00003, + .00002, .00005, .00008, + .05310, .00929, .00312, .00003, .00003, + .00002, .00004, .00007, + .04957, .00864, .00272, .00003, .00003, + .00002, .00004, .00007, + .04642, .00805, .00239, .00003, .00002, + .00002, .00004, .00006, + .04360, .00753, .00212, .00003, .00002, + .00002, .00004, .00006 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/ + .04106, .00707, .00189, .00003, .00002, + .00002, .00003, .00006, + .03876, .00665, .00169, .00003, .00002, + .00001, .00003, .00005, + .03665, .00627, .00153, .00003, .00002, + .00001, .00003, .00005, + .03474, .00592, .00139, .00003, .00002, + .00001, .00003, .00004, + .03299, .00561, .00127, .00002, .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)/ + .09262, .01566, .01462, .00002, .00001, + .00000, .00002, .00006, + .07932, .01327, .01017, .00002, .00001, + .00000, .00002, .00005, + .06906, .01144, .00739, .00002, .00001, + .00000, .00002, .00005, + .06092, .01001, .00555, .00002, .00001, + .00000, .00002, .00004, + .05426, .00885, .00429, .00002, .00001, + .00000, .00002, .00003, + .04875, .00790, .00339, .00002, .00001, + .00000, .00002, .00004, + .04412, .00710, .00273, .00001, .00001, + .00001, .00002, .00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/ + .04017, .00643, .00224, .00002, .00001, + .00001, .00002, .00002, + .03677, .00586, .00187, .00002, .00001, + .00001, .00002, .00002, + .03383, .00536, .00157, .00001, .00001, + .00000, .00001, .00002, + .03124, .00493, .00134, .00001, .00001, + .00000, .00001, .00002, + .02897, .00455, .00116, .00001, .00001, + .00001, .00001, .00002, + .02696, .00422, .00101, .00001, .00001, + .00001, .00001, .00002, + .02517, .00392, .00089, .00001, .00001, + .00001, .00001, .00002 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/ + .02356, .00366, .00079, .00001, .00001, + .00000, .00001, .00002, + .02212, .00343, .00070, .00001, .00001, + .00000, .00001, .00001, + .02081, .00321, .00063, .00001, .00001, + .00000, .00001, .00001, + .01963, .00302, .00057, .00001, .00001, + .00000, .00001, .00001, + .01855, .00284, .00052, .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)/ + .05513, .00831, .00682, .00001, .00000, + .00000, .00000, .00001, + .04647, .00693, .00458, .00000, .00000, + .00000, .00000, .00001, + .03988, .00590, .00324, .00001, .00000, + .00000, .00000, .00001, + .03473, .00510, .00237, .00001, .00000, + .00000, .00001, .00001, + .03058, .00446, .00179, .00001, .00000, + .00000, .00000, .00001, + .02718, .00394, .00139, .00001, .00000, + .00000, .00000, .00001, + .02435, .00350, .00110, .00001, .00000, + .00000, .00000, .00001 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/ + .02196, .00314, .00089, .00001, .00000, + .00000, .00000, .00001, + .01994, .00284, .00073, .00000, .00000, + .00000, .00000, .00000, + .01820, .00258, .00061, .00000, .00000, + .00000, .00000, .00000, + .01667, .00235, .00051, .00000, .00000, + .00000, .00000, .00001, + .01535, .00216, .00044, .00000, .00000, + .00000, .00000, .00001, + .01419, .00199, .00038, .00000, .00000, + .00000, .00000, .00000, + .01316, .00184, .00033, .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)/ + .01224, .00170, .00029, .00000, .00000, + .00000, .00000, .00000, + .01142, .00158, .00026, .00000, .00000, + .00000, .00000, .00000, + .01069, .00148, .00023, .00000, .00000, + .00000, .00000, .00000, + .01002, .00138, .00021, .00000, .00000, + .00000, .00000, .00000, + .00942, .00129, .00019, .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)/ + .02916, .00387, .00274, .00000, .00000, + .00000, .00000, .00001, + .02412, .00317, .00177, .00000, .00000, + .00000, .00000, .00000, + .02038, .00266, .00121, .00000, .00000, + .00000, .00000, .00000, + .01750, .00226, .00086, .00000, .00000, + .00000, .00000, .00000, + .01520, .00196, .00064, .00000, .00000, + .00000, .00000, .00000, + .01335, .00171, .00048, .00001, .00000, + .00000, .00000, .00000, + .01183, .00150, .00038, .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)/ + .01056, .00134, .00030, .00000, .00000, + .00000, .00000, .00000, + .00949, .00119, .00024, .00000, .00000, + .00000, .00000, .00000, + .00858, .00108, .00020, .00000, .00000, + .00000, .00000, .00000, + .00780, .00097, .00017, .00000, .00000, + .00000, .00000, .00000, + .00712, .00088, .00014, .00000, .00000, + .00000, .00000, .00000, + .00653, .00081, .00012, .00000, .00000, + .00000, .00000, .00000, + .00601, .00074, .00010, .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)/ + .00555, .00068, .00009, .00000, .00000, + .00000, .00000, .00000, + .00515, .00063, .00008, .00000, .00000, + .00000, .00000, .00000, + .00479, .00058, .00007, .00000, .00000, + .00000, .00000, .00000, + .00446, .00054, .00006, .00000, .00000, + .00000, .00000, .00000, + .00417, .00051, .00006, .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)/ + .01296, .00148, .00088, .00000, .00000, + .00000, .00000, .00000, + .01050, .00119, .00055, .00000, .00000, + .00000, .00000, .00000, + .00871, .00098, .00036, .00000, .00000, + .00000, .00000, .00000, + .00736, .00082, .00025, .00000, .00000, + .00000, .00000, .00000, + .00630, .00070, .00018, .00000, .00000, + .00000, .00000, .00000, + .00546, .00060, .00013, .00000, .00000, + .00000, .00000, .00000, + .00477, .00052, .00010, .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)/ + .00421, .00046, .00008, .00000, .00000, + .00000, .00000, .00000, + .00374, .00041, .00006, .00000, .00000, + .00000, .00000, .00000, + .00335, .00036, .00005, .00000, .00000, + .00000, .00000, .00000, + .00301, .00033, .00004, .00000, .00000, + .00000, .00000, .00000, + .00272, .00029, .00004, .00000, .00000, + .00000, .00000, .00000, + .00248, .00027, .00003, .00000, .00000, + .00000, .00000, .00000, + .00226, .00024, .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)/ + .00207, .00022, .00002, .00000, .00000, + .00000, .00000, .00000, + .00190, .00020, .00002, .00000, .00000, + .00000, .00000, .00000, + .00176, .00019, .00002, .00000, .00000, + .00000, .00000, .00000, + .00163, .00017, .00002, .00000, .00000, + .00000, .00000, .00000, + .00151, .00016, .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)/ + .00094, .00007, .00002, .00000, .00000, + .00000, .00000, .00000, + .00072, .00005, .00001, .00000, .00000, + .00000, .00000, .00000, + .00057, .00004, .00001, .00000, .00000, + .00000, .00000, .00000, + .00046, .00003, .00001, .00000, .00000, + .00000, .00000, .00000, + .00037, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00031, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .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)/ + .00022, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00019, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/ + .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, + .00006, .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(60,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