#include "pdf/pilot.h" subroutine sfmrs_99d1(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu) C #include "pdf/impdp.inc" C parameter(nx=49,nq=37,ntenth=23,np=8) C #include "pdf/expdp.inc" + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/ + .00643, .00286, 1.15221, .88585, .00000, + .00000, .47588, .89795, + .00657, .00291, 2.39075, .92618, .00000, + .00000, .52103, .93837, + .00676, .00299, 4.81461, 1.00948, .01960, + .00000, .61124, 1.02174, + .00691, .00306, 7.12562, 1.08726, .06910, + .00000, .69390, 1.09958, + .00707, .00312, 9.93361, 1.18552, .18281, + .00000, .79711, 1.19789, + .00720, .00318, 12.84162, 1.28552, .29061, + .00000, .90128, 1.29793, + .00733, .00324, 16.11362, 1.39328, .40858, + .00000, 1.01296, 1.40571, + .00747, .00331, 20.13655, 1.52121, .55059, + .00000, 1.14497, 1.53367 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00760, .00336, 24.06332, 1.64586, .68267, + .00000, 1.27309, 1.65833, + .00772, .00342, 28.28418, 1.77761, .82268, + .00000, 1.40813, 1.79009, + .00781, .00346, 31.98450, 1.88998, .94449, + .00000, 1.52308, 1.90247, + .00802, .00356, 40.80254, 2.15653, 1.22711, + .00000, 1.79497, 2.16901, + .00820, .00365, 48.61843, 2.41367, 1.49732, + .36278, 2.05660, 2.42617, + .00841, .00375, 58.85269, 2.73487, 1.83504, + .75383, 2.38269, 2.74735, + .00863, .00385, 70.90271, 3.10748, 2.22584, + 1.16297, 2.76027, 3.11995, + .00883, .00395, 83.09441, 3.48097, 2.61676, + 1.57246, 3.13815, 3.49342 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00904, .00405, 96.67756, 3.89451, 3.04922, + 2.02359, 3.55602, 3.90693, + .00921, .00414, 108.90049, 4.26644, 3.43607, + 2.42246, 3.93147, 4.27884, + .00942, .00424, 124.88659, 4.75345, 3.94065, + 2.94063, 4.42265, 4.76581, + .00962, .00434, 140.19975, 5.21928, 4.42382, + 3.43915, 4.89209, 5.23160, + .00980, .00444, 155.23088, 5.67666, 4.89823, + 3.92896, 5.35271, 5.68895, + .01003, .00455, 175.44894, 6.29705, 5.53743, + 4.58239, 5.97714, 6.30929, + .01024, .00466, 195.85381, 6.92507, 6.18480, + 5.24599, 6.60887, 6.93726, + .01044, .00476, 216.29159, 7.55542, 6.83555, + 5.91542, 7.24262, 7.56757 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01066, .00487, 237.61316, 8.22169, 7.51849, + 6.61086, 7.91222, 8.23378, + .01086, .00497, 259.71909, 8.91481, 8.23024, + 7.33862, 8.60855, 8.92685, + .01106, .00507, 281.70470, 9.60846, 8.94211, + 8.06637, 9.30515, 9.62046, + .01125, .00518, 303.16210, 10.29271, 9.64194, + 8.77896, 9.99216, 10.30466, + .01144, .00527, 325.83940, 11.01757, 10.38498, + 9.53854, 10.71975, 11.02948, + .01163, .00537, 348.68672, 11.75801, 11.14048, + 10.30628, 11.46281, 11.76986, + .01181, .00547, 371.50436, 12.49847, 11.89821, + 11.07989, 12.20574, 12.51028, + .01199, .00556, 393.45787, 13.22094, 12.63431, + 11.82727, 12.93050, 13.23270 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01217, .00565, 416.54842, 13.98277, 13.41197, + 12.61938, 13.69461, 13.99448, + .01234, .00574, 439.82475, 14.75892, 14.20256, + 13.42269, 14.47298, 14.77059, + .01251, .00584, 462.70472, 15.52672, 14.98454, + 14.21742, 15.24287, 15.53834, + .01268, .00592, 485.08773, 16.28160, 15.75378, + 15.00015, 15.99971, 16.29318, + .01284, .00601, 507.96506, 17.06279, 16.54752, + 15.80491, 16.78286, 17.07433 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00875, .00395, 1.06317, .75144, .00000, + .00000, .40368, .75855, + .00892, .00403, 2.18019, .78861, .00000, + .00000, .44459, .79575, + .00919, .00415, 4.31764, .86209, .01790, + .00000, .52343, .86928, + .00939, .00424, 6.31640, .92898, .05987, + .00000, .59408, .93619, + .00961, .00434, 8.70442, 1.01200, .15588, + .00000, .68092, 1.01923, + .00979, .00442, 11.14180, 1.09535, .24574, + .00000, .76749, 1.10260, + .00997, .00451, 13.85138, 1.18438, .34311, + .00000, .85954, 1.19164, + .01016, .00460, 17.14369, 1.28920, .45929, + .00000, .96751, 1.29647 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .01033, .00468, 20.32068, 1.39044, .56636, + .00000, 1.07142, 1.39772, + .01050, .00476, 23.70266, 1.49673, .67905, + .00000, 1.18024, 1.50402, + .01063, .00483, 26.64424, 1.58693, .77656, + .00000, 1.27243, 1.59422, + .01091, .00496, 33.57911, 1.79916, 1.00086, + .00000, 1.48877, 1.80646, + .01116, .00509, 39.62215, 2.00205, 1.21327, + .28556, 1.69510, 2.00934, + .01145, .00523, 47.45109, 2.25332, 1.47637, + .59056, 1.95013, 2.26061, + .01175, .00538, 56.55136, 2.54217, 1.77798, + .90598, 2.24279, 2.54945, + .01203, .00552, 65.64830, 2.82924, 2.07706, + 1.21883, 2.53323, 2.83651 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01232, .00567, 75.67149, 3.14458, 2.40525, + 1.56061, 2.85190, 3.15184, + .01255, .00578, 84.60082, 3.42611, 2.69665, + 1.86044, 3.13613, 3.43337, + .01284, .00593, 96.16500, 3.79210, 3.07394, + 2.24702, 3.50531, 3.79934, + .01309, .00606, 107.13706, 4.13970, 3.43272, + 2.61637, 3.85568, 4.14692, + .01334, .00619, 117.81708, 4.47886, 3.78279, + 2.97697, 4.19733, 4.48606, + .01365, .00635, 132.04730, 4.93562, 4.25106, + 3.45442, 4.65719, 4.94280, + .01395, .00650, 146.27480, 5.39470, 4.72201, + 3.93595, 5.11911, 5.40186, + .01422, .00665, 160.40557, 5.85251, 5.19243, + 4.41869, 5.57952, 5.85964 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01450, .00680, 175.01696, 6.33310, 5.68269, + 4.91654, 6.06268, 6.34021, + .01478, .00695, 190.05002, 6.83007, 6.19068, + 5.43459, 6.56211, 6.83717, + .01505, .00709, 204.89020, 7.32452, 6.69585, + 5.94970, 7.05883, 7.33159, + .01530, .00721, 219.26715, 7.80947, 7.18964, + 6.45111, 7.54591, 7.81652, + .01556, .00736, 234.36845, 8.32069, 7.71145, + 6.98319, 8.05920, 8.32771, + .01581, .00749, 249.47239, 8.83993, 8.23897, + 7.51777, 8.58047, 8.84693, + .01606, .00762, 264.47472, 9.35687, 8.76583, + 8.05433, 9.09930, 9.36386, + .01629, .00774, 278.81240, 9.85867, 9.27494, + 8.56984, 9.60286, 9.86563 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01653, .00787, 293.81838, 10.38562, 9.81075, + 9.11422, 10.13157, 10.39256, + .01676, .00799, 308.85464, 10.91997, 10.35288, + 9.66364, 10.66762, 10.92688, + .01699, .00811, 323.55877, 11.44637, 10.88696, + 10.20502, 11.19564, 11.45326, + .01721, .00823, 337.87617, 11.96193, 11.41040, + 10.73634, 11.71270, 11.96881, + .01743, .00835, 352.42759, 12.49314, 11.94810, + 11.28008, 12.24542, 12.50000 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01187, .00545, .98015, .63766, .00000, + .00000, .34300, .64131, + .01212, .00557, 1.98742, .67162, .00000, + .00000, .37985, .67528, + .01249, .00574, 3.87113, .73621, .01652, + .00000, .44856, .73988, + .01276, .00588, 5.59846, .79359, .05201, + .00000, .50886, .79727, + .01306, .00602, 7.62677, .86359, .13298, + .00000, .58180, .86727, + .01332, .00614, 9.66635, .93291, .20776, + .00000, .65360, .93661, + .01356, .00626, 11.90592, 1.00629, .28799, + .00000, .72931, 1.00999, + .01382, .00640, 14.59448, 1.09196, .38288, + .00000, .81739, 1.09566 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01406, .00651, 17.15850, 1.17396, .46953, + .00000, .90144, 1.17766, + .01429, .00663, 19.86100, 1.25946, .56007, + .00000, .98888, 1.26316, + .01446, .00671, 22.19277, 1.33165, .63797, + .00000, 1.06258, 1.33534, + .01484, .00692, 27.62988, 1.50007, .81564, + .00000, 1.23415, 1.50377, + .01520, .00709, 32.28477, 1.65959, .98225, + .22419, 1.39630, 1.66328, + .01558, .00730, 38.24986, 1.85542, 1.18677, + .46184, 1.59499, 1.85911, + .01599, .00751, 45.09302, 2.07845, 1.41900, + .70474, 1.82094, 2.08214, + .01636, .00770, 51.84958, 2.29819, 1.64725, + .94350, 2.04324, 2.30188 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01675, .00791, 59.20988, 2.53762, 1.89565, + 1.20210, 2.28521, 2.54131, + .01707, .00807, 65.69959, 2.74979, 2.11453, + 1.42715, 2.49943, 2.75347, + .01747, .00829, 74.01986, 3.02357, 2.39582, + 1.71512, 2.77563, 3.02725, + .01782, .00846, 81.83714, 3.28173, 2.66140, + 1.98829, 3.03589, 3.28540, + .01815, .00864, 89.38110, 3.53201, 2.91891, + 2.25330, 3.28808, 3.53568, + .01857, .00886, 99.33533, 3.86664, 3.26080, + 2.60147, 3.62505, 3.87030, + .01896, .00907, 109.19219, 4.20053, 3.60219, + 2.95013, 3.96109, 4.20417, + .01934, .00928, 118.89789, 4.53129, 3.94102, + 3.29746, 4.29384, 4.53494 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01971, .00948, 128.84118, 4.87610, 4.29161, + 3.65296, 4.64058, 4.87974, + .02009, .00968, 138.99142, 5.23049, 4.65274, + 4.02077, 4.99684, 5.23412, + .02046, .00987, 148.93485, 5.58099, 5.00978, + 4.38437, 5.34908, 5.58462, + .02079, .01006, 158.49385, 5.92274, 5.35668, + 4.73613, 5.69243, 5.92636, + .02113, .01024, 168.47190, 6.28120, 5.72154, + 5.10772, 6.05248, 6.28482, + .02148, .01043, 178.37572, 6.64318, 6.08819, + 5.47872, 6.41600, 6.64680, + .02181, .01061, 188.15849, 7.00194, 6.45286, + 5.84965, 6.77618, 7.00554, + .02212, .01078, 197.44210, 7.34832, 6.80329, + 6.20394, 7.12391, 7.35193 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02243, .01096, 207.10974, 7.71057, 7.17068, + 6.57673, 7.48749, 7.71418, + .02275, .01112, 216.73587, 8.07613, 7.54059, + 6.95108, 7.85435, 8.07974, + .02306, .01129, 226.09944, 8.43474, 7.90348, + 7.31845, 8.21418, 8.43833, + .02335, .01144, 235.17283, 8.78458, 8.25782, + 7.67768, 8.56517, 8.78817, + .02364, .01161, 244.33935, 9.14343, 8.62013, + 8.04352, 8.92517, 9.14702 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01419, .00658, .93405, .57948, .00000, + .00000, .31219, .58172, + .01449, .00672, 1.88229, .61155, .00000, + .00000, .34675, .61379, + .01493, .00695, 3.63126, .67130, .01588, + .00000, .41007, .67356, + .01527, .00711, 5.21670, .72369, .04799, + .00000, .46495, .72593, + .01562, .00728, 7.05921, .78694, .12120, + .00000, .53074, .78920, + .01592, .00744, 8.89547, .84910, .18828, + .00000, .59502, .85135, + .01622, .00760, 10.89695, .91454, .25985, + .00000, .66244, .91678, + .01655, .00776, 13.28242, .99056, .34405, + .00000, .74052, .99280 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01682, .00790, 15.54136, 1.06291, .42052, + .00000, .81465, 1.06517, + .01709, .00805, 17.90821, 1.13805, .50008, + .00000, .89144, 1.14029, + .01731, .00815, 19.94059, 1.20130, .56832, + .00000, .95600, 1.20355, + .01777, .00840, 24.64876, 1.34814, .72314, + .00000, 1.10552, 1.35038, + .01818, .00862, 28.63697, 1.48643, .86751, + .19422, 1.24606, 1.48868, + .01865, .00886, 33.71427, 1.65534, 1.04378, + .39946, 1.41740, 1.65758, + .01914, .00913, 39.49315, 1.84664, 1.24280, + .60777, 1.61118, 1.84889, + .01959, .00936, 45.15677, 2.03415, 1.43737, + .81142, 1.80088, 2.03639 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .02006, .00960, 51.28458, 2.23746, 1.64810, + 1.03091, 2.00634, 2.23970, + .02044, .00981, 56.65416, 2.41683, 1.83294, + 1.22102, 2.18745, 2.41907, + .02091, .01007, 63.49662, 2.64726, 2.06944, + 1.46318, 2.41996, 2.64950, + .02134, .01029, 69.88784, 2.86362, 2.29177, + 1.69192, 2.63811, 2.86587, + .02172, .01050, 76.02390, 3.07259, 2.50653, + 1.91298, 2.84869, 3.07484, + .02222, .01077, 84.07280, 3.35077, 2.79043, + 2.20209, 3.12886, 3.35302, + .02270, .01103, 91.99705, 3.62712, 3.07267, + 2.49035, 3.40706, 3.62937, + .02315, .01127, 99.75936, 3.89984, 3.35175, + 2.77645, 3.68145, 3.90209 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02360, .01152, 107.66722, 4.18292, 3.63926, + 3.06795, 3.96619, 4.18518, + .02404, .01176, 115.70159, 4.47285, 3.93438, + 3.36851, 4.25769, 4.47510, + .02447, .01199, 123.53605, 4.75856, 4.22513, + 3.66459, 4.54489, 4.76082, + .02487, .01221, 131.03228, 5.03617, 4.50663, + 3.94998, 4.82385, 5.03843, + .02528, .01244, 138.82813, 5.32649, 4.80187, + 4.25065, 5.11552, 5.32876, + .02569, .01265, 146.52964, 5.61863, 5.09748, + 4.54971, 5.40897, 5.62091, + .02608, .01287, 154.11207, 5.90740, 5.39075, + 4.84800, 5.69896, 5.90969, + .02645, .01307, 161.27628, 6.18533, 5.67165, + 5.13193, 5.97802, 6.18761 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02683, .01328, 168.71462, 6.47527, 5.96546, + 5.43003, 6.26910, 6.47756, + .02720, .01349, 176.09233, 6.76701, 6.26041, + 5.72848, 6.56195, 6.76931, + .02756, .01369, 183.24589, 7.05248, 6.54905, + 6.02063, 6.84845, 7.05478, + .02791, .01388, 190.15760, 7.33033, 6.83026, + 6.30568, 7.12727, 7.33263, + .02826, .01407, 197.11413, 7.61456, 7.11698, + 6.59513, 7.41248, 7.61686 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01611, .00752, .90244, .54160, .00000, + .00000, .29224, .54308, + .01645, .00770, 1.81100, .57232, .00000, + .00000, .32522, .57380, + .01695, .00796, 3.47006, .62879, .01549, + .00000, .38490, .63027, + .01733, .00815, 4.96174, .67784, .04536, + .00000, .43619, .67932, + .01773, .00836, 6.68238, .73667, .11348, + .00000, .49729, .73815, + .01808, .00853, 8.38611, .79414, .17556, + .00000, .55667, .79561, + .01841, .00872, 10.23332, .85441, .24150, + .00000, .61873, .85589, + .01878, .00890, 12.42343, .92419, .31881, + .00000, .69035, .92565 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01911, .00907, 14.48683, .99035, .38873, + .00000, .75809, .99181, + .01940, .00922, 16.63957, 1.05883, .46128, + .00000, .82807, 1.06030, + .01966, .00936, 18.48171, 1.11637, .52335, + .00000, .88676, 1.11784, + .02018, .00963, 22.72908, 1.24944, .66367, + .00000, 1.02224, 1.25091, + .02065, .00989, 26.29961, 1.37429, .79398, + .17519, 1.14910, 1.37576, + .02118, .01017, 30.82342, 1.52618, .95249, + .36007, 1.30319, 1.52766, + .02175, .01047, 35.94307, 1.69756, 1.13073, + .54678, 1.47677, 1.69903, + .02226, .01074, 40.93375, 1.86489, 1.30433, + .72863, 1.64606, 1.86638 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02279, .01103, 46.30697, 2.04571, 1.49169, + .92390, 1.82880, 2.04720, + .02323, .01127, 50.99423, 2.20472, 1.65549, + 1.09246, 1.98938, 2.20622, + .02375, .01156, 56.94100, 2.40836, 1.86440, + 1.30648, 2.19486, 2.40985, + .02423, .01182, 62.47206, 2.59898, 2.06021, + 1.50803, 2.38709, 2.60048, + .02467, .01205, 67.76251, 2.78258, 2.24884, + 1.70227, 2.57212, 2.78410, + .02525, .01236, 74.67261, 3.02623, 2.49738, + 1.95547, 2.81755, 3.02775, + .02579, .01266, 81.44720, 3.26754, 2.74374, + 2.20717, 3.06048, 3.26906, + .02629, .01293, 88.05866, 3.50499, 2.98665, + 2.45629, 3.29945, 3.50652 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02680, .01322, 94.76636, 3.75074, 3.23612, + 2.70928, 3.54666, 3.75228, + .02731, .01349, 101.55826, 4.00176, 3.49155, + 2.96951, 3.79909, 4.00332, + .02779, .01376, 108.15896, 4.24852, 3.74257, + 3.22520, 4.04717, 4.25008, + .02824, .01402, 114.45307, 4.48766, 3.98497, + 3.47101, 4.28752, 4.48923, + .02871, .01427, 120.98113, 4.73723, 4.23870, + 3.72948, 4.53830, 4.73880, + .02916, .01453, 127.40798, 4.98773, 4.49206, + 3.98584, 4.78995, 4.98933, + .02960, .01477, 133.72052, 5.23487, 4.74299, + 4.24114, 5.03818, 5.23647, + .03002, .01500, 139.66580, 5.47217, 4.98274, + 4.48352, 5.27649, 5.47377 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .03044, .01524, 145.82528, 5.71930, 5.23311, + 4.73760, 5.52464, 5.72092, + .03087, .01547, 151.91722, 5.96744, 5.48390, + 4.99141, 5.77377, 5.96907, + .03127, .01570, 157.81014, 6.20981, 5.72889, + 5.23943, 6.01705, 6.21145, + .03167, .01591, 163.49183, 6.44531, 5.96719, + 5.48105, 6.25343, 6.44697, + .03205, .01613, 169.19455, 6.68574, 6.20966, + 5.72587, 6.49472, 6.68741 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01777, .00837, .87889, .51399, .00000, + .00000, .27774, .51497, + .01814, .00855, 1.75785, .54369, .00000, + .00000, .30951, .54466, + .01870, .00884, 3.35021, .59770, .01523, + .00000, .36648, .59868, + .01913, .00906, 4.77288, .64428, .04346, + .00000, .41514, .64526, + .01957, .00929, 6.40437, .69987, .10783, + .00000, .47281, .70084, + .01995, .00949, 8.01164, .75392, .16625, + .00000, .52862, .75490, + .02033, .00969, 9.74695, .81044, .22812, + .00000, .58678, .81142, + .02074, .00990, 11.79601, .87569, .30043, + .00000, .65374, .87667 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .02108, .01009, 13.71876, .93736, .36564, + .00000, .71686, .93835, + .02143, .01027, 15.71800, 1.00107, .43314, + .00000, .78194, 1.00205, + .02170, .01041, 17.42416, 1.05450, .49079, + .00000, .83643, 1.05547, + .02228, .01073, 21.34343, 1.17771, .62075, + .00000, .96187, 1.17870, + .02280, .01100, 24.61899, 1.29296, .74106, + .16160, 1.07895, 1.29395, + .02339, .01133, 28.75318, 1.43276, .88695, + .33203, 1.22077, 1.43376, + .02401, .01166, 33.41084, 1.59000, 1.05050, + .50348, 1.38005, 1.59100, + .02458, .01196, 37.93204, 1.74308, 1.20931, + .66997, 1.53493, 1.74409 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02516, .01228, 42.78090, 1.90805, 1.38025, + .84825, 1.70167, 1.90909, + .02564, .01255, 46.99575, 2.05277, 1.52931, + 1.00174, 1.84782, 2.05381, + .02623, .01287, 52.32466, 2.23765, 1.71896, + 1.19613, 2.03439, 2.23869, + .02676, .01315, 57.26453, 2.41028, 1.89628, + 1.37875, 2.20849, 2.41133, + .02725, .01342, 61.97560, 2.57621, 2.06673, + 1.55439, 2.37574, 2.57728, + .02786, .01377, 68.10812, 2.79586, 2.29077, + 1.78272, 2.59703, 2.79694, + .02846, .01409, 74.10050, 3.01287, 2.51230, + 2.00916, 2.81554, 3.01397, + .02902, .01440, 79.93136, 3.22594, 2.73025, + 2.23281, 3.03000, 3.22706 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02958, .01471, 85.82784, 3.44595, 2.95355, + 2.45935, 3.25135, 3.44707, + .03013, .01502, 91.78230, 3.67021, 3.18174, + 2.69191, 3.47690, 3.67134, + .03067, .01532, 97.55373, 3.89022, 3.40554, + 2.91998, 3.69812, 3.89137, + .03117, .01559, 103.04218, 4.10302, 3.62120, + 3.13876, 3.91203, 4.10418, + .03168, .01588, 108.72255, 4.32473, 3.84660, + 3.36847, 4.13485, 4.32591, + .03218, .01616, 114.29936, 4.54682, 4.07122, + 3.59582, 4.35800, 4.54801, + .03266, .01643, 119.76706, 4.76560, 4.29335, + 3.82193, 4.57779, 4.76682, + .03312, .01668, 124.90312, 4.97530, 4.50518, + 4.03614, 4.78841, 4.97652 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03359, .01694, 130.21542, 5.19337, 4.72611, + 4.26044, 5.00741, 5.19461, + .03405, .01720, 135.45737, 5.41199, 4.94704, + 4.48410, 5.22692, 5.41324, + .03449, .01744, 140.51875, 5.62520, 5.16256, + 4.70237, 5.44099, 5.62647, + .03491, .01769, 145.39047, 5.83211, 5.37192, + 4.91473, 5.64870, 5.83339, + .03535, .01792, 150.26930, 6.04301, 5.58460, + 5.12953, 5.86040, 6.04431 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02418, .01165, .80920, .43766, .00000, + .00000, .23809, .43783, + .02468, .01191, 1.60296, .46412, .00000, + .00000, .26620, .46430, + .02545, .01232, 3.00423, .51087, .01464, + .00000, .31527, .51105, + .02603, .01263, 4.23144, .55034, .03815, + .00000, .35638, .55054, + .02663, .01296, 5.61247, .59671, .09200, + .00000, .40438, .59692, + .02716, .01325, 6.95093, .64118, .14021, + .00000, .45024, .64140, + .02767, .01352, 8.37673, .68728, .19075, + .00000, .49761, .68750, + .02822, .01382, 10.03836, .74000, .24932, + .00000, .55167, .74023 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02870, .01408, 11.57756, .78938, .30163, + .00000, .60219, .78962, + .02917, .01434, 13.16079, .84001, .35540, + .00000, .65389, .84026, + .02954, .01454, 14.50024, .88224, .40106, + .00000, .69695, .88252, + .03033, .01498, 17.54093, .97881, .50309, + .00000, .79525, .97911, + .03104, .01537, 20.03434, 1.06825, .59661, + .12484, .88611, 1.06856, + .03184, .01581, 23.14216, 1.17574, .70897, + .25686, .99518, 1.17608, + .03267, .01628, 26.59335, 1.29546, .83368, + .38807, 1.11648, 1.29582, + .03344, .01671, 29.89826, 1.41095, .95366, + .51429, 1.23336, 1.41134 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03423, .01714, 33.39873, 1.53436, 1.08169, + .64825, 1.35814, 1.53477, + .03488, .01751, 36.40699, 1.64175, 1.19245, + .76264, 1.46664, 1.64219, + .03568, .01796, 40.16810, 1.77786, 1.33223, + .90634, 1.60407, 1.77833, + .03639, .01836, 43.61732, 1.90401, 1.46194, + 1.04033, 1.73136, 1.90450, + .03705, .01874, 46.87581, 2.02444, 1.58581, + 1.16834, 1.85281, 2.02496, + .03789, .01921, 51.07113, 2.18262, 1.74730, + 1.33337, 2.01224, 2.18317, + .03869, .01966, 55.12714, 2.33770, 1.90577, + 1.49579, 2.16850, 2.33828, + .03944, .02008, 59.03654, 2.48892, 2.06064, + 1.65514, 2.32077, 2.48954 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .04020, .02051, 62.94796, 2.64387, 2.21805, + 1.81522, 2.47676, 2.64452, + .04094, .02094, 66.86379, 2.80080, 2.37789, + 1.97855, 2.63470, 2.80149, + .04165, .02134, 70.62683, 2.95379, 2.53367, + 2.13771, 2.78863, 2.95451, + .04232, .02172, 74.17345, 3.10081, 2.68282, + 2.28938, 2.93651, 3.10156, + .04300, .02210, 77.81931, 3.25320, 2.83792, + 2.44785, 3.08975, 3.25399, + .04367, .02249, 81.36614, 3.40488, 2.99145, + 2.60360, 3.24225, 3.40569, + .04432, .02285, 84.82319, 3.55359, 3.14263, + 2.75786, 3.39174, 3.55444, + .04492, .02320, 88.04273, 3.69529, 3.28588, + 2.90305, 3.53415, 3.69616 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04555, .02355, 91.35481, 3.84202, 3.43470, + 3.05450, 3.68159, 3.84292, + .04616, .02390, 94.59845, 3.98832, 3.58270, + 3.20467, 3.82859, 3.98925, + .04675, .02424, 97.71138, 4.13036, 3.72643, + 3.35056, 3.97129, 4.13132, + .04732, .02455, 100.69149, 4.26762, 3.86549, + 3.49195, 4.10919, 4.26862, + .04788, .02488, 103.65352, 4.40684, 4.00600, + 3.63417, 4.24901, 4.40786 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .03304, .01633, .74752, .37430, .00000, + .00000, .20581, .37457, + .03372, .01669, 1.46579, .39751, .00000, + .00000, .23034, .39778, + .03475, .01725, 2.69794, .43741, .01437, + .00000, .27213, .43774, + .03552, .01769, 3.75510, .47050, .03366, + .00000, .30654, .47085, + .03634, .01814, 4.92101, .50877, .07834, + .00000, .34614, .50916, + .03706, .01854, 6.03136, .54502, .11781, + .00000, .38350, .54543, + .03774, .01892, 7.19736, .58223, .15879, + .00000, .42175, .58267, + .03848, .01934, 8.53733, .62443, .20585, + .00000, .46503, .62490 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03912, .01971, 9.76156, .66359, .24748, + .00000, .50510, .66409, + .03975, .02006, 11.00641, .70344, .28997, + .00000, .54581, .70397, + .04026, .02035, 12.04993, .73651, .32585, + .00000, .57955, .73706, + .04133, .02096, 14.38924, .81144, .40533, + .00000, .65588, .81205, + .04228, .02150, 16.26992, .88016, .47745, + .09490, .72576, .88081, + .04336, .02212, 18.58110, .96198, .56329, + .19653, .80884, .96268, + .04450, .02277, 21.10839, 1.05219, .65759, + .29626, .90032, 1.05295, + .04553, .02337, 23.49365, 1.13839, .74746, + .39129, .98764, 1.13921 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04659, .02397, 25.98654, 1.22968, .84251, + .49125, 1.08004, 1.23057, + .04746, .02448, 28.10273, 1.30849, .92405, + .57587, 1.15974, 1.30941, + .04854, .02510, 30.71689, 1.40755, 1.02611, + .68130, 1.25985, 1.40853, + .04950, .02564, 33.08677, 1.49864, 1.12009, + .77886, 1.35186, 1.49968, + .05039, .02616, 35.30297, 1.58501, 1.20920, + .87139, 1.43905, 1.58610, + .05151, .02680, 38.12234, 1.69750, 1.32441, + .98967, 1.55256, 1.69866, + .05257, .02743, 40.81700, 1.80692, 1.43657, + 1.10516, 1.66291, 1.80813, + .05359, .02800, 43.38791, 1.91285, 1.54540, + 1.21768, 1.76971, 1.91412 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05459, .02859, 45.92994, 2.02052, 1.65509, + 1.32972, 1.87821, 2.02185, + .05559, .02917, 48.45112, 2.12884, 1.76575, + 1.44331, 1.98734, 2.13023, + .05653, .02972, 50.85139, 2.23374, 1.87289, + 1.55328, 2.09300, 2.23519, + .05743, .03023, 53.09124, 2.33387, 1.97476, + 1.65731, 2.19382, 2.33536, + .05833, .03076, 55.37721, 2.43710, 2.08014, + 1.76548, 2.29773, 2.43864, + .05923, .03127, 57.57805, 2.53913, 2.18370, + 1.87099, 2.40043, 2.54074, + .06009, .03176, 59.71001, 2.63870, 2.28523, + 1.97506, 2.50062, 2.64035, + .06090, .03223, 61.67591, 2.73294, 2.38079, + 2.07232, 2.59546, 2.73465 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06171, .03270, 63.68684, 2.83011, 2.47963, + 2.17336, 2.69322, 2.83187, + .06253, .03318, 65.63927, 2.92645, 2.57735, + 2.27294, 2.79011, 2.92826, + .06331, .03363, 67.50049, 3.01953, 2.67182, + 2.36924, 2.88372, 3.02139, + .06405, .03405, 69.27174, 3.10910, 2.76282, + 2.46218, 2.97379, 3.11100, + .06481, .03448, 71.01671, 3.19942, 2.85423, + 2.55509, 3.06462, 3.20137 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03972, .01993, .71841, .34263, .00000, + .00000, .18994, .34328, + .04052, .02037, 1.39670, .36390, .00000, + .00000, .21240, .36459, + .04173, .02105, 2.53871, .39998, .01431, + .00000, .25018, .40074, + .04265, .02158, 3.50630, .42960, .03131, + .00000, .28098, .43039, + .04363, .02213, 4.55993, .46358, .07116, + .00000, .31617, .46444, + .04446, .02261, 5.55239, .49553, .10607, + .00000, .34910, .49643, + .04528, .02307, 6.58525, .52816, .14211, + .00000, .38267, .52910, + .04617, .02358, 7.76182, .56498, .18329, + .00000, .42046, .56598 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04693, .02402, 8.82754, .59896, .21952, + .00000, .45525, .59999, + .04768, .02446, 9.90344, .63338, .25634, + .00000, .49045, .63447, + .04828, .02480, 10.80012, .66187, .28734, + .00000, .51954, .66299, + .04956, .02555, 12.79462, .72609, .35562, + .00000, .58500, .72727, + .05070, .02620, 14.37883, .78461, .41724, + .07993, .64457, .78587, + .05198, .02695, 16.30755, .85391, .49015, + .16672, .71500, .85524, + .05332, .02773, 18.39628, .92985, .56977, + .25124, .79209, .93127, + .05456, .02845, 20.34964, 1.00200, .64521, + .33133, .86525, 1.00349 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05580, .02918, 22.37404, 1.07801, .72457, + .41511, .94225, 1.07957, + .05686, .02979, 24.07921, 1.14327, .79229, + .48565, 1.00834, 1.14491, + .05813, .03054, 26.16962, 1.22493, .87665, + .57312, 1.09093, 1.22664, + .05926, .03120, 28.05090, 1.29965, .95395, + .65366, 1.16648, 1.30143, + .06032, .03182, 29.79891, 1.37018, 1.02694, + .72975, 1.23776, 1.37204, + .06166, .03260, 32.00563, 1.46161, 1.12081, + .82646, 1.33011, 1.46355, + .06292, .03334, 34.09936, 1.55009, 1.21175, + .92046, 1.41943, 1.55211, + .06411, .03403, 36.08407, 1.63537, 1.29961, + 1.01164, 1.50550, 1.63746 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06530, .03473, 38.03139, 1.72161, 1.38771, + 1.10195, 1.59250, 1.72379, + .06648, .03541, 39.95131, 1.80802, 1.47622, + 1.19314, 1.67965, 1.81028, + .06759, .03607, 41.76817, 1.89138, 1.56157, + 1.28106, 1.76368, 1.89370, + .06865, .03668, 43.45255, 1.97058, 1.64236, + 1.36387, 1.84352, 1.97299, + .06972, .03730, 45.16379, 2.05198, 1.72568, + 1.44971, 1.92555, 2.05445, + .07077, .03792, 46.79989, 2.13208, 1.80719, + 1.53305, 2.00626, 2.13462, + .07177, .03850, 48.37867, 2.21002, 1.88687, + 1.61503, 2.08477, 2.21263, + .07273, .03905, 49.82479, 2.28349, 1.96155, + 1.69131, 2.15878, 2.28617 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07369, .03962, 51.29869, 2.35904, 2.03860, + 1.77036, 2.23486, 2.36178, + .07464, .04017, 52.72143, 2.43367, 2.11450, + 1.84798, 2.31000, 2.43648, + .07556, .04070, 54.07171, 2.50556, 2.18764, + 1.92281, 2.38239, 2.50843, + .07642, .04121, 55.35176, 2.57455, 2.25793, + 1.99486, 2.45184, 2.57748, + .07730, .04171, 56.60510, 2.64388, 2.32827, + 2.06660, 2.52162, 2.64687 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .04527, .02295, .70454, .32200, .00000, + .00000, .17978, .32316, + .04618, .02346, 1.35600, .34192, .00000, + .00000, .20080, .34312, + .04753, .02424, 2.43719, .37540, .01425, + .00000, .23584, .37669, + .04858, .02484, 3.34461, .40271, .02971, + .00000, .26425, .40404, + .04967, .02546, 4.32331, .43388, .06634, + .00000, .29651, .43528, + .05062, .02602, 5.23762, .46302, .09823, + .00000, .32659, .46447, + .05154, .02656, 6.18268, .49267, .13103, + .00000, .35710, .49418, + .05254, .02714, 7.25222, .52601, .16839, + .00000, .39134, .52758 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .05341, .02765, 8.21474, .55666, .20111, + .00000, .42274, .55827, + .05426, .02815, 9.18117, .58762, .23428, + .00000, .45442, .58929, + .05493, .02855, 9.98322, .61317, .26213, + .00000, .48053, .61487, + .05639, .02940, 11.75674, .67055, .32327, + .00000, .53908, .67235, + .05766, .03015, 13.15270, .72265, .37819, + .07038, .59213, .72452, + .05912, .03101, 14.84009, .78406, .44292, + .14776, .65458, .78602, + .06064, .03190, 16.65421, .85105, .51330, + .22270, .72265, .85311, + .06203, .03272, 18.33912, .91442, .57968, + .29340, .78697, .91657 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06344, .03356, 20.07424, .98092, .64925, + .36708, .85440, .98317, + .06464, .03426, 21.52720, 1.03782, .70840, + .42887, .91204, 1.04014, + .06607, .03511, 23.29811, 1.10872, .78179, + .50520, .98384, 1.11113, + .06736, .03587, 24.88309, 1.17337, .84881, + .57525, 1.04926, 1.17588, + .06854, .03656, 26.34864, 1.23421, .91189, + .64121, 1.11080, 1.23680, + .07004, .03745, 28.18793, 1.31276, .99271, + .72473, 1.19022, 1.31545, + .07147, .03828, 29.92336, 1.38851, 1.07071, + .80560, 1.26676, 1.39129, + .07280, .03907, 31.56038, 1.46127, 1.14583, + .88380, 1.34025, 1.46415 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07415, .03986, 33.15697, 1.53459, 1.22085, + .96095, 1.41429, 1.53755, + .07547, .04064, 34.72400, 1.60781, 1.29601, + 1.03862, 1.48820, 1.61087, + .07673, .04138, 36.20007, 1.67822, 1.36826, + 1.11328, 1.55925, 1.68136, + .07791, .04207, 37.56155, 1.74491, 1.43643, + 1.18337, 1.62654, 1.74815, + .07911, .04278, 38.93993, 1.81329, 1.50656, + 1.25584, 1.69552, 1.81660, + .08029, .04346, 40.25062, 1.88034, 1.57493, + 1.32596, 1.76315, 1.88374, + .08141, .04412, 41.51173, 1.94544, 1.64164, + 1.39481, 1.82880, 1.94893, + .08248, .04474, 42.66064, 2.00664, 1.70396, + 1.45866, 1.89048, 2.01019 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08355, .04537, 43.82848, 2.06942, 1.76814, + 1.52471, 1.95377, 2.07306, + .08462, .04599, 44.95058, 2.13127, 1.83118, + 1.58938, 2.01611, 2.13498, + .08564, .04659, 46.01185, 2.19072, 1.89179, + 1.65159, 2.07602, 2.19451, + .08661, .04716, 47.01491, 2.24765, 1.94992, + 1.71136, 2.13340, 2.25151, + .08759, .04772, 47.99212, 2.30470, 2.00793, + 1.77072, 2.19088, 2.30862 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .05014, .02573, .70113, .30790, .00000, + .00000, .17255, .30914, + .05113, .02629, 1.33223, .32675, .00000, + .00000, .19242, .32805, + .05263, .02717, 2.36732, .35824, .01414, + .00000, .22535, .35962, + .05378, .02784, 3.22920, .38377, .02843, + .00000, .25189, .38523, + .05497, .02854, 4.15136, .41280, .06262, + .00000, .28194, .41433, + .05603, .02916, 5.00687, .43985, .09227, + .00000, .30983, .44145, + .05705, .02976, 5.88616, .46728, .12266, + .00000, .33806, .46894, + .05815, .03041, 6.87575, .49804, .15718, + .00000, .36966, .49977 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05910, .03097, 7.76151, .52623, .18733, + .00000, .39855, .52803, + .06003, .03153, 8.64684, .55463, .21780, + .00000, .42762, .55649, + .06078, .03197, 9.37891, .57805, .24334, + .00000, .45155, .57994, + .06238, .03292, 10.98987, .63044, .29926, + .00000, .50502, .63245, + .06379, .03376, 12.24835, .67784, .34931, + .06349, .55332, .67994, + .06539, .03470, 13.76049, .73352, .40810, + .13401, .60999, .73573, + .06707, .03569, 15.37623, .79405, .47177, + .20198, .67152, .79638, + .06860, .03661, 16.86828, .85111, .53163, + .26589, .72945, .85353 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07016, .03753, 18.39667, .91078, .59416, + .33227, .79000, .91331, + .07146, .03829, 19.67001, .96168, .64714, + .38777, .84160, .96430, + .07304, .03923, 21.21450, 1.02492, .71270, + .45611, .90567, 1.02765, + .07445, .04007, 22.59049, 1.08239, .77239, + .51865, .96389, 1.08524, + .07574, .04083, 23.85769, 1.13635, .82841, + .57737, 1.01849, 1.13928, + .07740, .04180, 25.44003, 1.20579, .89997, + .65151, 1.08874, 1.20884, + .07895, .04272, 26.92587, 1.27254, .96882, + .72307, 1.15625, 1.27570, + .08042, .04359, 28.32153, 1.33649, 1.03495, + .79208, 1.22089, 1.33976 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08189, .04445, 29.67561, 1.40071, 1.10078, + .85994, 1.28578, 1.40408, + .08333, .04530, 30.99971, 1.46469, 1.16656, + .92810, 1.35042, 1.46817, + .08471, .04610, 32.24227, 1.52605, 1.22964, + .99344, 1.41239, 1.52964, + .08599, .04686, 33.38296, 1.58403, 1.28898, + 1.05460, 1.47093, 1.58770, + .08730, .04763, 34.53430, 1.64332, 1.34992, + 1.11775, 1.53079, 1.64709, + .08858, .04837, 35.62398, 1.70133, 1.40916, + 1.17865, 1.58933, 1.70520, + .08981, .04909, 36.66995, 1.75754, 1.46687, + 1.23837, 1.64607, 1.76151, + .09097, .04977, 37.61850, 1.81024, 1.52062, + 1.29358, 1.69923, 1.81428 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09214, .05045, 38.58052, 1.86420, 1.57589, + 1.35061, 1.75369, 1.86834, + .09330, .05113, 39.50088, 1.91725, 1.63006, + 1.40633, 1.80719, 1.92146, + .09441, .05178, 40.36870, 1.96814, 1.68205, + 1.45982, 1.85852, 1.97244, + .09545, .05238, 41.18678, 2.01679, 1.73182, + 1.51113, 1.90759, 2.02117, + .09652, .05300, 41.98026, 2.06543, 1.78137, + 1.56196, 1.95663, 2.06989 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .06907, .03686, .70979, .26965, .00000, + .00000, .15342, .27190, + .07038, .03765, 1.28196, .28512, .00000, + .00000, .16971, .28746, + .07239, .03887, 2.18252, .31053, .01358, + .00000, .19630, .31302, + .07394, .03980, 2.91230, .33088, .02448, + .00000, .21747, .33346, + .07555, .04078, 3.67235, .35377, .05174, + .00000, .24120, .35648, + .07696, .04164, 4.36114, .37486, .07507, + .00000, .26298, .37766, + .07834, .04247, 5.05551, .39606, .09875, + .00000, .28484, .39896, + .07983, .04337, 5.82260, .41964, .12543, + .00000, .30911, .42265 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08113, .04416, 6.49680, .44106, .14848, + .00000, .33111, .44415, + .08239, .04493, 7.16045, .46246, .17163, + .00000, .35307, .46566, + .08339, .04554, 7.70258, .48000, .19093, + .00000, .37104, .48327, + .08555, .04684, 8.87610, .51891, .23274, + .00000, .41085, .52234, + .08744, .04798, 9.76990, .55370, .26976, + .04470, .44641, .55728, + .08959, .04927, 10.82084, .59414, .31276, + .09693, .48767, .59788, + .09184, .05062, 11.92061, .63756, .35878, + .14653, .53193, .64148, + .09389, .05185, 12.91622, .67803, .40156, + .19266, .57315, .68210 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09596, .05308, 13.91755, .71989, .44576, + .24004, .61576, .72412, + .09769, .05412, 14.73755, .75523, .48284, + .27925, .65171, .75961, + .09979, .05536, 15.71541, .79869, .52823, + .32705, .69589, .80323, + .10166, .05647, 16.57266, .83781, .56917, + .37037, .73563, .84250, + .10337, .05749, 17.35089, .87420, .60727, + .41071, .77259, .87902, + .10554, .05877, 18.30551, .92054, .65539, + .46106, .81963, .92552, + .10759, .05997, 19.18714, .96463, .70123, + .50920, .86436, .96977, + .10951, .06111, 20.00327, 1.00647, .74488, + .55523, .90682, 1.01177 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11142, .06223, 20.78024, 1.04804, .78783, + .59996, .94898, 1.05350, + .11330, .06333, 21.52972, 1.08910, .83041, + .64454, .99061, 1.09471, + .11509, .06437, 22.22312, 1.12814, .87090, + .68693, 1.03019, 1.13389, + .11676, .06534, 22.84920, 1.16468, .90862, + .72623, 1.06722, 1.17056, + .11844, .06632, 23.47464, 1.20180, .94712, + .76655, 1.10484, 1.20781, + .12010, .06728, 24.05569, 1.23775, .98418, + .80506, 1.14128, 1.24391, + .12168, .06820, 24.60884, 1.27240, 1.02007, + .84262, 1.17638, 1.27867, + .12316, .06905, 25.10113, 1.30456, 1.05319, + .87701, 1.20897, 1.31095 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12465, .06992, 25.59644, 1.33733, 1.08707, + .91237, 1.24216, 1.34384, + .12613, .07077, 26.06266, 1.36926, 1.12001, + .94663, 1.27452, 1.37590, + .12754, .07157, 26.49725, 1.39970, 1.15142, + .97931, 1.30535, 1.40645, + .12888, .07234, 26.90297, 1.42864, 1.18133, + 1.01051, 1.33466, 1.43549, + .13023, .07310, 27.28917, 1.45733, 1.21085, + 1.04114, 1.36372, 1.46428 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09566, .05323, .78120, .23926, .00000, + .00000, .13786, .24316, + .09743, .05433, 1.29553, .25135, .00000, + .00000, .15063, .25539, + .10016, .05602, 2.06718, .27104, .01211, + .00000, .17130, .27529, + .10223, .05732, 2.67215, .28667, .02001, + .00000, .18763, .29109, + .10442, .05866, 3.28342, .30413, .04121, + .00000, .20579, .30873, + .10633, .05984, 3.82256, .32005, .05910, + .00000, .22231, .32480, + .10818, .06098, 4.35391, .33593, .07711, + .00000, .23875, .34085, + .11019, .06221, 4.92831, .35346, .09722, + .00000, .25687, .35853 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11194, .06327, 5.42257, .36921, .11442, + .00000, .27313, .37444, + .11363, .06431, 5.90048, .38485, .13155, + .00000, .28925, .39022, + .11499, .06514, 6.28535, .39758, .14574, + .00000, .30236, .40306, + .11789, .06688, 7.10273, .42555, .17619, + .00000, .33113, .43127, + .12041, .06841, 7.70725, .45024, .20281, + .02928, .35649, .45618, + .12326, .07011, 8.39779, .47859, .23336, + .06699, .38557, .48477, + .12624, .07188, 9.10228, .50862, .26561, + .10223, .41635, .51506, + .12894, .07348, 9.72470, .53622, .29520, + .13458, .44464, .54290 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13167, .07510, 10.33682, .56443, .32539, + .16740, .47352, .57134, + .13393, .07642, 10.82749, .58796, .35043, + .19425, .49760, .59506, + .13667, .07802, 11.39987, .61655, .38072, + .22660, .52684, .62388, + .13909, .07943, 11.89143, .64197, .40774, + .25561, .55284, .64952, + .14131, .08073, 12.32959, .66539, .43262, + .28234, .57678, .67312, + .14411, .08233, 12.85443, .69482, .46366, + .31531, .60686, .70279, + .14673, .08384, 13.32868, .72248, .49289, + .34647, .63514, .73067, + .14919, .08526, 13.75939, .74844, .52041, + .37595, .66167, .75684 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15162, .08665, 14.15849, .77389, .54716, + .40425, .68768, .78250, + .15400, .08799, 14.53628, .79877, .57342, + .43219, .71309, .80758, + .15625, .08927, 14.87873, .82218, .59812, + .45848, .73701, .83119, + .15834, .09045, 15.18051, .84384, .62089, + .48261, .75915, .85301, + .16046, .09164, 15.47789, .86566, .64396, + .50718, .78144, .87501, + .16252, .09279, 15.74580, .88653, .66589, + .53037, .80278, .89606, + .16447, .09388, 15.99807, .90650, .68701, + .55286, .82319, .91620, + .16630, .09491, 16.21563, .92482, .70626, + .57321, .84192, .93467 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16816, .09593, 16.43218, .94336, .72583, + .59401, .86087, .95337, + .16997, .09694, 16.63038, .96125, .74468, + .61398, .87917, .97140, + .17169, .09789, 16.81173, .97817, .76251, + .63289, .89647, .98847, + .17332, .09879, 16.97834, .99414, .77938, + .65083, .91280, 1.00456, + .17495, .09968, 17.13121, 1.00978, .79586, + .66826, .92881, 1.02035 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11594, .06600, .86698, .22334, .00000, + .00000, .12938, .22869, + .11807, .06734, 1.34240, .23357, .00000, + .00000, .14022, .23908, + .12132, .06939, 2.03810, .25015, .01049, + .00000, .15770, .25595, + .12382, .07094, 2.57078, .26328, .01686, + .00000, .17149, .26930, + .12643, .07257, 3.09851, .27791, .03493, + .00000, .18678, .28416, + .12871, .07397, 3.55574, .29118, .05005, + .00000, .20061, .29762, + .13093, .07533, 3.99964, .30435, .06519, + .00000, .21432, .31099, + .13332, .07679, 4.47272, .31881, .08202, + .00000, .22935, .32567 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13540, .07804, 4.87415, .33175, .09631, + .00000, .24276, .33879, + .13740, .07927, 5.25759, .34451, .11049, + .00000, .25599, .35175, + .13903, .08023, 5.56340, .35486, .12218, + .00000, .26672, .36225, + .14245, .08228, 6.20481, .37747, .14708, + .00000, .29008, .38515, + .14542, .08404, 6.67003, .39725, .16868, + .02157, .31051, .40520, + .14877, .08601, 7.18930, .41976, .19327, + .05230, .33376, .42802, + .15224, .08804, 7.70970, .44339, .21900, + .08071, .35813, .45196, + .15538, .08986, 8.16160, .46493, .24240, + .10658, .38033, .47377 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15855, .09170, 8.59874, .48674, .26609, + .13262, .40281, .49586, + .16117, .09320, 8.94334, .50477, .28558, + .15374, .42140, .51415, + .16432, .09500, 9.33897, .52651, .30897, + .17902, .44379, .53616, + .16710, .09659, 9.67357, .54569, .32966, + .20151, .46355, .55558, + .16965, .09802, 9.96766, .56321, .34860, + .22211, .48160, .57333, + .17283, .09982, 10.31293, .58506, .37202, + .24729, .50410, .59545, + .17582, .10148, 10.61954, .60541, .39390, + .27093, .52506, .61606, + .17861, .10304, 10.89383, .62435, .41435, + .29313, .54459, .63526 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18135, .10455, 11.14191, .64276, .43406, + .31426, .56355, .65390, + .18403, .10603, 11.37308, .66061, .45326, + .33499, .58195, .67199, + .18655, .10741, 11.57889, .67728, .47122, + .35437, .59914, .68886, + .18890, .10868, 11.75599, .69257, .48765, + .37203, .61491, .70436, + .19126, .10996, 11.92845, .70789, .50419, + .38993, .63072, .71988, + .19353, .11119, 12.07906, .72242, .51978, + .40667, .64571, .73460, + .19570, .11236, 12.21963, .73625, .53474, + .42285, .65999, .74861, + .19772, .11344, 12.33644, .74880, .54825, + .43737, .67297, .76134 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19976, .11453, 12.45155, .76146, .56195, + .45217, .68605, .77417, + .20174, .11558, 12.55345, .77357, .57503, + .46627, .69857, .78644, + .20362, .11658, 12.64467, .78495, .58735, + .47956, .71035, .79798, + .20541, .11753, 12.72695, .79564, .59895, + .49212, .72141, .80881, + .20719, .11846, 12.79870, .80601, .61019, + .50423, .73215, .81934 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .13301, .07683, .95249, .21250, .00000, + .00000, .12328, .21913, + .13544, .07840, 1.39682, .22145, .00000, + .00000, .13283, .22832, + .13917, .08075, 2.03668, .23597, .00883, + .00000, .14824, .24319, + .14201, .08252, 2.51715, .24746, .01424, + .00000, .16036, .25494, + .14497, .08434, 2.98584, .26024, .03029, + .00000, .17379, .26800, + .14756, .08592, 3.38650, .27178, .04364, + .00000, .18587, .27978, + .15008, .08744, 3.77096, .28319, .05695, + .00000, .19782, .29144, + .15278, .08908, 4.17617, .29568, .07168, + .00000, .21087, .30418 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15513, .09049, 4.51625, .30680, .08412, + .00000, .22247, .31551, + .15741, .09183, 4.83800, .31773, .09641, + .00000, .23387, .32666, + .15922, .09292, 5.09268, .32657, .10652, + .00000, .24307, .33567, + .16306, .09517, 5.62149, .34575, .12794, + .00000, .26302, .35521, + .16639, .09711, 5.99938, .36244, .14640, + .01661, .28037, .37221, + .17010, .09925, 6.41238, .38130, .16728, + .04297, .29995, .39141, + .17396, .10146, 6.82017, .40093, .18898, + .06716, .32035, .41140, + .17744, .10344, 7.16907, .41870, .20858, + .08903, .33880, .42948 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18093, .10540, 7.50183, .43656, .22829, + .11091, .35734, .44766, + .18380, .10702, 7.76045, .45124, .24440, + .12855, .37259, .46261, + .18726, .10895, 8.05303, .46880, .26361, + .14953, .39083, .48049, + .19030, .11062, 8.29705, .48421, .28052, + .16811, .40681, .49615, + .19307, .11214, 8.50879, .49819, .29591, + .18503, .42134, .51038, + .19654, .11404, 8.75275, .51548, .31480, + .20558, .43931, .52798, + .19976, .11579, 8.96578, .53147, .33234, + .22475, .45593, .54426, + .20278, .11741, 9.15350, .54629, .34865, + .24268, .47133, .55934 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20573, .11899, 9.31904, .56054, .36424, + .25961, .48617, .57385, + .20860, .12052, 9.47080, .57430, .37936, + .27614, .50049, .58785, + .21128, .12194, 9.60333, .58704, .39342, + .29151, .51377, .60084, + .21378, .12326, 9.71426, .59865, .40619, + .30544, .52589, .61266, + .21629, .12458, 9.82089, .61023, .41901, + .31950, .53797, .62445, + .21871, .12583, 9.91038, .62112, .43101, + .33258, .54933, .63554, + .22100, .12702, 9.99309, .63144, .44248, + .34517, .56013, .64605, + .22313, .12810, 10.05843, .64075, .45277, + .35641, .56986, .65553 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22527, .12920, 10.12202, .65007, .46317, + .36781, .57963, .66505, + .22734, .13027, 10.17551, .65893, .47303, + .37863, .58892, .67408, + .22932, .13127, 10.22179, .66722, .48228, + .38878, .59761, .68252, + .23117, .13221, 10.26231, .67496, .49095, + .39833, .60574, .69042, + .23301, .13314, 10.29441, .68241, .49931, + .40749, .61358, .69803 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .14791, .08638, 1.03373, .20388, .00000, + .00000, .11824, .21167, + .15064, .08811, 1.45183, .21190, .00000, + .00000, .12686, .21995, + .15480, .09073, 2.04658, .22494, .00721, + .00000, .14074, .23341, + .15795, .09266, 2.48549, .23525, .01197, + .00000, .15169, .24403, + .16124, .09467, 2.90818, .24669, .02656, + .00000, .16378, .25579, + .16410, .09640, 3.26553, .25698, .03863, + .00000, .17463, .26637, + .16688, .09807, 3.60513, .26714, .05062, + .00000, .18531, .27680, + .16984, .09983, 3.95969, .27822, .06386, + .00000, .19696, .28816 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17243, .10135, 4.25452, .28803, .07499, + .00000, .20727, .29823, + .17492, .10282, 4.53121, .29766, .08595, + .00000, .21736, .30808, + .17690, .10397, 4.74885, .30541, .09493, + .00000, .22549, .31603, + .18110, .10640, 5.19701, .32217, .11390, + .00000, .24302, .33319, + .18472, .10846, 5.51309, .33664, .13015, + .01306, .25818, .34802, + .18875, .11073, 5.85171, .35291, .14842, + .03634, .27520, .36467, + .19290, .11306, 6.18172, .36974, .16730, + .05756, .29281, .38188, + .19665, .11514, 6.46018, .38487, .18426, + .07665, .30864, .39737 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20040, .11720, 6.72223, .39999, .20122, + .09565, .32447, .41283, + .20348, .11888, 6.92319, .41235, .21500, + .11089, .33739, .42548, + .20717, .12088, 7.14735, .42704, .23137, + .12893, .35278, .44050, + .21040, .12262, 7.33174, .43983, .24569, + .14482, .36619, .45359, + .21334, .12419, 7.48967, .45140, .25866, + .15923, .37831, .46542, + .21700, .12613, 7.66829, .46559, .27449, + .17664, .39322, .47994, + .22040, .12792, 7.82138, .47865, .28912, + .19280, .40692, .49329, + .22356, .12958, 7.95404, .49066, .30266, + .20785, .41955, .50559 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22665, .13118, 8.06757, .50214, .31551, + .22198, .43163, .51733, + .22965, .13271, 8.16981, .51315, .32792, + .23572, .44322, .52859, + .23245, .13415, 8.25714, .52330, .33941, + .24845, .45392, .53898, + .23505, .13546, 8.32742, .53248, .34978, + .25991, .46362, .54838, + .23764, .13677, 8.39383, .54160, .36015, + .27144, .47325, .55772, + .24012, .13803, 8.44652, .55010, .36981, + .28212, .48225, .56642, + .24249, .13920, 8.49463, .55812, .37900, + .29236, .49077, .57465, + .24467, .14028, 8.52951, .56530, .38721, + .30147, .49839, .58200 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24687, .14136, 8.56279, .57248, .39548, + .31068, .50602, .58935, + .24899, .14241, 8.58798, .57923, .40328, + .31937, .51322, .59628, + .25100, .14338, 8.60815, .58551, .41056, + .32750, .51992, .60273, + .25290, .14431, 8.62459, .59137, .41737, + .33513, .52617, .60873, + .25477, .14520, 8.63410, .59695, .42389, + .34241, .53216, .61446 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17385, .10291, 1.17717, .19063, .00000, + .00000, .11021, .20062, + .17708, .10496, 1.55081, .19737, .00000, + .00000, .11753, .20771, + .18200, .10799, 2.07365, .20831, .00422, + .00000, .12935, .21918, + .18570, .11022, 2.44771, .21693, .00814, + .00000, .13863, .22820, + .18953, .11249, 2.80028, .22650, .02072, + .00000, .14887, .23816, + .19285, .11444, 3.09300, .23505, .03103, + .00000, .15800, .24705, + .19606, .11631, 3.36676, .24343, .04122, + .00000, .16695, .25577, + .19949, .11828, 3.64821, .25252, .05240, + .00000, .17665, .26522 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20244, .11997, 3.87853, .26052, .06172, + .00000, .18516, .27351, + .20529, .12158, 4.09175, .26831, .07085, + .00000, .19344, .28159, + .20755, .12284, 4.25767, .27455, .07831, + .00000, .20009, .28807, + .21230, .12549, 4.59446, .28795, .09393, + .00000, .21433, .30193, + .21634, .12770, 4.82694, .29940, .10717, + .00816, .22650, .31378, + .22083, .13013, 5.06589, .31214, .12195, + .02727, .24004, .32694, + .22545, .13259, 5.29290, .32515, .13706, + .04452, .25388, .34039, + .22957, .13477, 5.47944, .33672, .15050, + .05988, .26619, .35234 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23368, .13692, 5.65054, .34816, .16382, + .07504, .27839, .36416, + .23704, .13865, 5.77827, .35739, .17454, + .08710, .28824, .37370, + .24102, .14070, 5.91621, .36827, .18716, + .10126, .29985, .38493, + .24450, .14247, 6.02641, .37763, .19811, + .11363, .30988, .39461, + .24766, .14406, 6.11824, .38602, .20795, + .12478, .31887, .40329, + .25155, .14601, 6.21696, .39619, .21986, + .13814, .32979, .41379, + .25516, .14779, 6.29778, .40543, .23073, + .15042, .33972, .42334, + .25850, .14942, 6.36491, .41385, .24073, + .16176, .34878, .43203 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26173, .15099, 6.41761, .42177, .25012, + .17233, .35735, .44023, + .26485, .15249, 6.46224, .42928, .25912, + .18253, .36549, .44800, + .26775, .15387, 6.49721, .43615, .26736, + .19191, .37294, .45511, + .27043, .15511, 6.52148, .44226, .27476, + .20029, .37960, .46143, + .27308, .15637, 6.54286, .44828, .28210, + .20867, .38618, .46766, + .27562, .15754, 6.55451, .45380, .28886, + .21637, .39224, .47339, + .27801, .15865, 6.56422, .45899, .29526, + .22371, .39793, .47875, + .28021, .15965, 6.56583, .46354, .30091, + .23017, .40295, .48347 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28242, .16065, 6.56624, .46805, .30658, + .23669, .40794, .48815, + .28454, .16160, 6.56139, .47224, .31187, + .24279, .41260, .49251, + .28654, .16248, 6.55419, .47609, .31678, + .24847, .41690, .49651, + .28841, .16331, 6.54561, .47965, .32134, + .25376, .42087, .50021, + .29025, .16412, 6.53205, .48298, .32565, + .25876, .42461, .50366 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .20649, .12357, 1.35198, .17553, .00000, + .00000, .10066, .18849, + .21044, .12596, 1.67055, .18104, .00000, + .00000, .10680, .19448, + .21635, .12947, 2.11046, .19000, .00038, + .00000, .11672, .20413, + .22071, .13199, 2.41230, .19702, .00363, + .00000, .12447, .21164, + .22521, .13456, 2.68894, .20477, .01431, + .00000, .13297, .21989, + .22908, .13673, 2.91378, .21163, .02298, + .00000, .14047, .22716, + .23281, .13878, 3.11995, .21830, .03147, + .00000, .14776, .23425, + .23674, .14093, 3.32787, .22547, .04071, + .00000, .15559, .24183 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24013, .14275, 3.49465, .23172, .04835, + .00000, .16241, .24843, + .24336, .14448, 3.64625, .23775, .05578, + .00000, .16900, .25479, + .24593, .14584, 3.76259, .24256, .06181, + .00000, .17424, .25986, + .25127, .14862, 3.99434, .25276, .07432, + .00000, .18537, .27060, + .25575, .15092, 4.14968, .26135, .08482, + .00367, .19475, .27962, + .26069, .15341, 4.29840, .27076, .09638, + .01891, .20506, .28951, + .26572, .15590, 4.43436, .28025, .10806, + .03251, .21545, .29946, + .27017, .15808, 4.54120, .28854, .11832, + .04448, .22455, .30815 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27457, .16021, 4.63462, .29661, .12837, + .05617, .23346, .31663, + .27813, .16191, 4.70081, .30305, .13639, + .06540, .24056, .32337, + .28234, .16389, 4.76770, .31048, .14571, + .07611, .24882, .33118, + .28598, .16558, 4.81761, .31681, .15372, + .08539, .25585, .33781, + .28925, .16709, 4.85632, .32241, .16085, + .09368, .26209, .34366, + .29327, .16890, 4.89237, .32905, .16935, + .10350, .26954, .35064, + .29694, .17054, 4.91764, .33498, .17705, + .11244, .27622, .35686, + .30032, .17204, 4.93528, .34030, .18405, + .12064, .28225, .36244 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30355, .17344, 4.94260, .34519, .19053, + .12818, .28783, .36757, + .30665, .17476, 4.94504, .34976, .19668, + .13539, .29307, .37237, + .30953, .17598, 4.94246, .35385, .20227, + .14198, .29779, .37667, + .31212, .17706, 4.93421, .35742, .20719, + .14779, .30194, .38043, + .31471, .17813, 4.92413, .36090, .21206, + .15357, .30599, .38408, + .31715, .17911, 4.90810, .36399, .21647, + .15881, .30965, .38732, + .31944, .18003, 4.89224, .36685, .22063, + .16379, .31306, .39035, + .32151, .18085, 4.87231, .36927, .22424, + .16814, .31598, .39291 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32359, .18166, 4.85167, .37166, .22783, + .17247, .31887, .39543, + .32557, .18241, 4.82807, .37381, .23115, + .17650, .32150, .39769, + .32742, .18311, 4.80414, .37573, .23420, + .18022, .32390, .39972, + .32915, .18375, 4.78047, .37747, .23700, + .18366, .32608, .40157, + .33082, .18436, 4.75344, .37903, .23961, + .18688, .32807, .40321 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25192, .15141, 1.55246, .15661, .00000, + .00000, .08855, .17446, + .25684, .15423, 1.79819, .16093, .00000, + .00000, .09364, .17940, + .26406, .15822, 2.13517, .16786, -.00448, + .00000, .10172, .18721, + .26928, .16100, 2.35124, .17321, -.00172, + .00000, .10793, .19317, + .27460, .16379, 2.54093, .17906, .00705, + .00000, .11466, .19962, + .27913, .16611, 2.69041, .18416, .01410, + .00000, .12051, .20519, + .28342, .16828, 2.82370, .18905, .02090, + .00000, .12613, .21053, + .28792, .17050, 2.95424, .19424, .02822, + .00000, .13208, .21617 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29174, .17237, 3.05552, .19869, .03420, + .00000, .13719, .22101, + .29537, .17411, 3.14485, .20292, .03995, + .00000, .14206, .22560, + .29821, .17547, 3.21193, .20626, .04458, + .00000, .14591, .22921, + .30407, .17823, 3.34139, .21323, .05406, + .00000, .15392, .23671, + .30891, .18041, 3.42366, .21896, .06187, + -.00045, .16056, .24288, + .31414, .18274, 3.48932, .22510, .07036, + .01100, .16770, .24947, + .31939, .18504, 3.54337, .23114, .07879, + .02108, .17475, .25593, + .32397, .18700, 3.58036, .23629, .08608, + .02984, .18082, .26144 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .32844, .18886, 3.60754, .24117, .09310, + .03826, .18660, .26666, + .33202, .19031, 3.62220, .24496, .09863, + .04483, .19113, .27071, + .33619, .19197, 3.63127, .24924, .10496, + .05237, .19628, .27527, + .33974, .19335, 3.63328, .25277, .11031, + .05881, .20060, .27905, + .34289, .19457, 3.63063, .25581, .11501, + .06450, .20434, .28230, + .34669, .19598, 3.61917, .25930, .12053, + .07115, .20869, .28601, + .35012, .19722, 3.60327, .26231, .12545, + .07714, .21251, .28922, + .35323, .19832, 3.58500, .26493, .12986, + .08254, .21586, .29201 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .35616, .19931, 3.56073, .26721, .13385, + .08745, .21887, .29443, + .35892, .20023, 3.53461, .26926, .13760, + .09210, .22163, .29661, + .36143, .20105, 3.50739, .27102, .14094, + .09627, .22405, .29849, + .36368, .20175, 3.47860, .27246, .14384, + .09992, .22609, .30001, + .36588, .20241, 3.44908, .27381, .14667, + .10352, .22806, .30144, + .36790, .20299, 3.41681, .27489, .14918, + .10673, .22973, .30261, + .36980, .20352, 3.38627, .27587, .15152, + .10975, .23126, .30365, + .37146, .20397, 3.35479, .27661, .15350, + .11234, .23251, .30442 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37312, .20440, 3.32315, .27730, .15545, + .11491, .23372, .30515, + .37466, .20477, 3.29040, .27783, .15722, + .11727, .23474, .30571, + .37607, .20510, 3.25872, .27825, .15880, + .11941, .23563, .30615, + .37739, .20540, 3.22845, .27858, .16024, + .12138, .23642, .30651, + .37862, .20564, 3.19640, .27879, .16155, + .12320, .23706, .30673 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .28993, .17390, 1.67232, .14149, .00000, + .00000, .07909, .16353, + .29572, .17694, 1.86068, .14507, .00000, + .00000, .08356, .16787, + .30405, .18118, 2.12003, .15069, -.00776, + .00000, .09051, .17447, + .30993, .18406, 2.27460, .15496, -.00521, + .00000, .09575, .17942, + .31585, .18688, 2.40412, .15957, .00235, + .00000, .10136, .18465, + .32081, .18919, 2.50287, .16350, .00835, + .00000, .10614, .18910, + .32547, .19132, 2.58838, .16725, .01410, + .00000, .11068, .19330, + .33029, .19349, 2.66956, .17114, .02019, + .00000, .11543, .19765 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .33434, .19526, 2.72991, .17444, .02514, + .00000, .11946, .20130, + .33815, .19690, 2.78116, .17753, .02984, + .00000, .12325, .20471, + .34112, .19817, 2.81858, .17993, .03360, + .00000, .12620, .20738, + .34717, .20065, 2.88769, .18488, .04121, + .00000, .13229, .21283, + .35202, .20258, 2.92794, .18886, .04741, + -.00256, .13724, .21716, + .35723, .20457, 2.94763, .19303, .05405, + .00656, .14246, .22169, + .36236, .20649, 2.95776, .19699, .06055, + .01450, .14751, .22599, + .36678, .20806, 2.95842, .20029, .06609, + .02132, .15176, .22955 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37102, .20952, 2.95213, .20332, .07137, + .02782, .15575, .23281, + .37436, .21063, 2.94161, .20560, .07547, + .03284, .15880, .23526, + .37817, .21185, 2.92306, .20808, .08011, + .03854, .16219, .23792, + .38138, .21283, 2.90285, .21005, .08399, + .04336, .16496, .24002, + .38419, .21365, 2.88157, .21170, .08734, + .04757, .16732, .24177, + .38751, .21456, 2.84956, .21347, .09125, + .05246, .16998, .24365, + .39044, .21531, 2.81666, .21491, .09466, + .05679, .17224, .24516, + .39305, .21595, 2.78416, .21611, .09769, + .06068, .17418, .24640 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39543, .21648, 2.74811, .21702, .10039, + .06416, .17583, .24735, + .39765, .21692, 2.71185, .21778, .10289, + .06743, .17730, .24812, + .39964, .21727, 2.67640, .21835, .10508, + .07035, .17853, .24869, + .40134, .21754, 2.64135, .21873, .10695, + .07286, .17951, .24905, + .40298, .21778, 2.60623, .21904, .10875, + .07531, .18042, .24933, + .40443, .21793, 2.56995, .21917, .11032, + .07748, .18111, .24940, + .40578, .21806, 2.53597, .21925, .11176, + .07950, .18174, .24944, + .40693, .21811, 2.50251, .21917, .11295, + .08121, .18216, .24932 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40805, .21814, 2.46922, .21905, .11412, + .08290, .18254, .24915, + .40904, .21812, 2.43569, .21884, .11513, + .08442, .18281, .24887, + .40993, .21806, 2.40372, .21858, .11604, + .08579, .18302, .24854, + .41072, .21799, 2.37356, .21828, .11685, + .08705, .18315, .24819, + .41143, .21788, 2.34240, .21790, .11755, + .08818, .18318, .24772 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .35490, .20929, 1.74702, .11801, .00000, + .00000, .06554, .14845, + .36182, .21242, 1.85272, .12058, .00000, + .00000, .06922, .15172, + .37148, .21653, 2.00322, .12440, -.01129, + .00000, .07463, .15647, + .37798, .21920, 2.07680, .12722, -.00893, + .00000, .07855, .15979, + .38440, .22169, 2.12972, .13016, -.00298, + .00000, .08263, .16321, + .38963, .22365, 2.16605, .13259, .00169, + .00000, .08600, .16599, + .39443, .22539, 2.19429, .13482, .00606, + .00000, .08912, .16852, + .39931, .22708, 2.21769, .13706, .01062, + .00000, .09231, .17104 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .40331, .22842, 2.23143, .13890, .01426, + .00000, .09492, .17308, + .40697, .22959, 2.24019, .14057, .01767, + .00000, .09734, .17490, + .40980, .23047, 2.24516, .14184, .02035, + .00000, .09919, .17629, + .41536, .23209, 2.24977, .14436, .02572, + .00000, .10291, .17897, + .41965, .23319, 2.24625, .14627, .02998, + -.00433, .10580, .18097, + .42405, .23423, 2.22100, .14813, .03445, + .00197, .10875, .18288, + .42823, .23511, 2.18991, .14978, .03873, + .00738, .11146, .18451, + .43166, .23572, 2.15791, .15101, .04230, + .01194, .11366, .18568 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .43481, .23618, 2.12275, .15203, .04563, + .01622, .11561, .18662, + .43719, .23645, 2.09133, .15269, .04817, + .01946, .11701, .18721, + .43975, .23662, 2.05115, .15330, .05098, + .02310, .11850, .18766, + .44180, .23667, 2.01456, .15369, .05328, + .02613, .11963, .18787, + .44350, .23664, 1.98033, .15391, .05524, + .02873, .12052, .18795, + .44535, .23643, 1.93530, .15397, .05745, + .03170, .12144, .18782, + .44687, .23614, 1.89261, .15390, .05934, + .03429, .12213, .18750, + .44811, .23581, 1.85271, .15373, .06098, + .03658, .12264, .18711 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .44909, .23534, 1.81186, .15338, .06238, + .03859, .12297, .18651, + .44990, .23482, 1.77230, .15296, .06365, + .04044, .12318, .18584, + .45051, .23428, 1.73509, .15247, .06474, + .04207, .12328, .18512, + .45091, .23370, 1.69984, .15191, .06563, + .04344, .12327, .18432, + .45124, .23307, 1.66515, .15131, .06647, + .04477, .12321, .18347, + .45139, .23239, 1.63076, .15062, .06717, + .04592, .12303, .18253, + .45148, .23173, 1.59891, .14995, .06779, + .04697, .12284, .18161, + .45140, .23102, 1.56861, .14923, .06827, + .04784, .12255, .18066 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45130, .23032, 1.53876, .14850, .06873, + .04868, .12225, .17968, + .45107, .22956, 1.50942, .14770, .06910, + .04943, .12188, .17865, + .45079, .22882, 1.48186, .14692, .06942, + .05009, .12150, .17764, + .45049, .22809, 1.45616, .14616, .06969, + .05068, .12110, .17665, + .45005, .22732, 1.43018, .14533, .06988, + .05119, .12066, .17559 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .40948, .23594, 1.69917, .09971, .00000, + .00000, .05608, .13699, + .41697, .23872, 1.75116, .10153, .00000, + .00000, .05907, .13928, + .42700, .24221, 1.83182, .10414, -.01238, + .00000, .06335, .14237, + .43352, .24427, 1.85739, .10597, -.01020, + .00000, .06633, .14442, + .43976, .24609, 1.86668, .10784, -.00534, + .00000, .06933, .14645, + .44469, .24741, 1.86869, .10931, -.00157, + .00000, .07176, .14798, + .44909, .24851, 1.86646, .11062, .00191, + .00000, .07394, .14929, + .45343, .24952, 1.86005, .11188, .00547, + .00000, .07611, .15054 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .45690, .25019, 1.85044, .11285, .00828, + .00000, .07785, .15145, + .45999, .25073, 1.83853, .11370, .01089, + .00000, .07941, .15220, + .46230, .25110, 1.82806, .11434, .01292, + .00000, .08059, .15272, + .46667, .25162, 1.80305, .11550, .01693, + .00000, .08289, .15366, + .46980, .25174, 1.78011, .11628, .02005, + -.00467, .08460, .15417, + .47281, .25167, 1.73736, .11695, .02327, + -.00006, .08624, .15449, + .47543, .25138, 1.69140, .11740, .02631, + .00387, .08767, .15453, + .47740, .25093, 1.64856, .11761, .02880, + .00714, .08875, .15437 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .47902, .25031, 1.60474, .11766, .03107, + .01015, .08963, .15401, + .48006, .24968, 1.56797, .11758, .03277, + .01242, .09021, .15353, + .48101, .24878, 1.52310, .11731, .03464, + .01493, .09073, .15281, + .48160, .24788, 1.48374, .11697, .03613, + .01698, .09107, .15207, + .48193, .24697, 1.44802, .11658, .03738, + .01875, .09127, .15129, + .48203, .24569, 1.40271, .11595, .03876, + .02072, .09136, .15013, + .48186, .24441, 1.36091, .11526, .03991, + .02242, .09132, .14897, + .48153, .24314, 1.32266, .11454, .04089, + .02389, .09120, .14779 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .48089, .24177, 1.28459, .11374, .04171, + .02518, .09096, .14649, + .48014, .24038, 1.24834, .11289, .04242, + .02634, .09065, .14518, + .47928, .23901, 1.21479, .11204, .04301, + .02734, .09031, .14389, + .47829, .23765, 1.18360, .11117, .04348, + .02818, .08989, .14262, + .47723, .23628, 1.15321, .11029, .04391, + .02898, .08945, .14131, + .47600, .23486, 1.12362, .10936, .04424, + .02965, .08894, .13997, + .47481, .23350, 1.09642, .10847, .04453, + .03026, .08846, .13869, + .47350, .23217, 1.07092, .10758, .04473, + .03076, .08794, .13743 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47217, .23083, 1.04598, .10669, .04491, + .03124, .08740, .13615, + .47072, .22946, 1.02175, .10577, .04504, + .03164, .08684, .13487, + .46931, .22814, .99918, .10488, .04513, + .03199, .08627, .13364, + .46790, .22688, .97826, .10404, .04520, + .03230, .08573, .13246, + .46640, .22556, .95736, .10316, .04522, + .03256, .08515, .13125 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45679, .25655, 1.59114, .08484, .00000, + .00000, .04893, .12717, + .46437, .25873, 1.60831, .08607, .00000, + .00000, .05133, .12848, + .47406, .26120, 1.64368, .08778, -.01226, + .00000, .05462, .13007, + .48005, .26247, 1.64050, .08893, -.01027, + .00000, .05682, .13101, + .48557, .26341, 1.62477, .09005, -.00625, + .00000, .05902, .13184, + .48976, .26395, 1.60766, .09087, -.00316, + .00000, .06072, .13239, + .49337, .26426, 1.58892, .09156, -.00034, + .00000, .06223, .13277, + .49680, .26440, 1.56694, .09220, .00251, + .00000, .06367, .13302 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .49935, .26438, 1.54553, .09265, .00475, + .00000, .06481, .13310, + .50152, .26420, 1.52353, .09302, .00679, + .00000, .06580, .13308, + .50308, .26400, 1.50575, .09325, .00838, + .00000, .06652, .13301, + .50583, .26328, 1.46714, .09360, .01147, + .00000, .06789, .13268, + .50738, .26239, 1.43596, .09376, .01384, + -.00452, .06883, .13222, + .50862, .26116, 1.38739, .09375, .01626, + -.00101, .06968, .13149, + .50938, .25966, 1.33730, .09355, .01850, + .00193, .07035, .13055, + .50960, .25814, 1.29233, .09324, .02031, + .00437, .07076, .12953 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .50943, .25648, 1.24764, .09279, .02195, + .00660, .07101, .12838, + .50898, .25500, 1.21107, .09234, .02316, + .00825, .07111, .12732, + .50810, .25306, 1.16748, .09167, .02444, + .01005, .07111, .12595, + .50707, .25127, 1.12994, .09102, .02547, + .01153, .07101, .12465, + .50592, .24958, 1.09640, .09035, .02632, + .01277, .07085, .12342, + .50415, .24729, 1.05467, .08942, .02723, + .01415, .07053, .12177, + .50224, .24509, 1.01673, .08850, .02798, + .01533, .07015, .12013, + .50025, .24301, .98246, .08761, .02860, + .01634, .06973, .11858 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .49802, .24083, .94892, .08663, .02910, + .01720, .06923, .11698, + .49569, .23868, .91727, .08565, .02952, + .01798, .06869, .11540, + .49335, .23661, .88828, .08471, .02987, + .01864, .06814, .11388, + .49100, .23460, .86167, .08378, .03012, + .01918, .06759, .11240, + .48860, .23259, .83589, .08286, .03034, + .01969, .06702, .11092, + .48605, .23055, .81107, .08190, .03050, + .02012, .06641, .10945, + .48361, .22863, .78836, .08099, .03063, + .02049, .06583, .10807, + .48115, .22677, .76730, .08010, .03070, + .02080, .06523, .10674 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .47866, .22490, .74678, .07921, .03076, + .02108, .06464, .10541, + .47611, .22303, .72702, .07832, .03079, + .02132, .06403, .10407, + .47363, .22125, .70871, .07747, .03079, + .02152, .06343, .10280, + .47125, .21956, .69182, .07667, .03077, + .02169, .06287, .10161, + .46874, .21783, .67507, .07584, .03073, + .02183, .06227, .10039 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .50727, .27497, 1.42585, .06949, .00000, + .00000, .04163, .11500, + .51400, .27614, 1.41656, .07031, .00000, + .00000, .04339, .11518, + .52218, .27696, 1.41693, .07128, -.01136, + .00000, .04572, .11523, + .52683, .27702, 1.39348, .07187, -.00960, + .00000, .04721, .11506, + .53077, .27671, 1.36113, .07243, -.00639, + .00000, .04865, .11478, + .53351, .27615, 1.33178, .07278, -.00393, + .00000, .04972, .11441, + .53562, .27543, 1.30292, .07303, -.00173, + .00000, .05064, .11392, + .53739, .27448, 1.27171, .07321, .00048, + .00000, .05150, .11331 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .53849, .27347, 1.24379, .07328, .00220, + .00000, .05210, .11270, + .53922, .27237, 1.21653, .07328, .00376, + .00000, .05262, .11203, + .53961, .27145, 1.19511, .07325, .00495, + .00000, .05298, .11146, + .53982, .26925, 1.15025, .07306, .00725, + .00000, .05359, .11020, + .53922, .26705, 1.11579, .07278, .00899, + -.00402, .05395, .10896, + .53798, .26446, 1.06698, .07234, .01074, + -.00146, .05420, .10747, + .53613, .26160, 1.01798, .07175, .01234, + .00068, .05431, .10580, + .53403, .25886, .97506, .07113, .01360, + .00241, .05426, .10422 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .53151, .25600, .93329, .07042, .01473, + .00399, .05410, .10254, + .52915, .25354, .89973, .06976, .01555, + .00515, .05389, .10112, + .52595, .25049, .86046, .06889, .01641, + .00640, .05355, .09933, + .52290, .24774, .82711, .06810, .01708, + .00741, .05318, .09775, + .51994, .24518, .79770, .06733, .01763, + .00826, .05279, .09628, + .51587, .24189, .76163, .06632, .01820, + .00918, .05224, .09435, + .51184, .23876, .72930, .06533, .01866, + .00996, .05167, .09254, + .50795, .23582, .70040, .06438, .01902, + .01061, .05110, .09084 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .50382, .23283, .67250, .06340, .01930, + .01116, .05049, .08912, + .49969, .22989, .64644, .06244, .01954, + .01166, .04987, .08745, + .49572, .22712, .62279, .06151, .01971, + .01207, .04926, .08590, + .49181, .22448, .60127, .06062, .01982, + .01240, .04866, .08442, + .48787, .22185, .58057, .05974, .01992, + .01270, .04806, .08295, + .48384, .21925, .56083, .05886, .01997, + .01295, .04742, .08150, + .48003, .21680, .54286, .05803, .02001, + .01318, .04683, .08014, + .47632, .21445, .52636, .05722, .02002, + .01335, .04626, .07887 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47261, .21210, .51036, .05641, .02001, + .01350, .04568, .07760, + .46886, .20978, .49505, .05561, .01998, + .01362, .04511, .07635, + .46526, .20757, .48095, .05487, .01993, + .01373, .04456, .07518, + .46182, .20549, .46800, .05416, .01988, + .01381, .04403, .07407, + .45828, .20339, .45525, .05345, .01981, + .01388, .04349, .07293 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .54947, .28715, 1.25560, .05717, .00000, + .00000, .03549, .10262, + .55480, .28698, 1.23144, .05760, .00000, + .00000, .03676, .10197, + .56048, .28597, 1.21174, .05810, -.01019, + .00000, .03834, .10081, + .56315, .28470, 1.17812, .05839, -.00865, + .00000, .03935, .09981, + .56504, .28300, 1.13833, .05856, -.00605, + .00000, .04023, .09878, + .56591, .28127, 1.10385, .05864, -.00408, + .00000, .04088, .09778, + .56622, .27947, 1.07112, .05861, -.00232, + .00000, .04139, .09675, + .56601, .27739, 1.03680, .05852, -.00059, + .00000, .04183, .09561 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .56541, .27543, 1.00697, .05839, .00076, + .00000, .04214, .09457, + .56447, .27344, .97858, .05820, .00197, + .00000, .04235, .09352, + .56354, .27184, .95655, .05802, .00288, + .00000, .04249, .09268, + .56096, .26818, .91139, .05756, .00463, + .00000, .04265, .09082, + .55798, .26489, .87726, .05709, .00595, + -.00347, .04268, .08918, + .55415, .26104, .83155, .05646, .00725, + -.00156, .04259, .08732, + .54963, .25694, .78645, .05572, .00842, + .00003, .04238, .08532, + .54514, .25316, .74756, .05499, .00933, + .00131, .04209, .08348 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .54033, .24927, .71027, .05417, .01013, + .00245, .04171, .08163, + .53606, .24603, .68068, .05347, .01070, + .00328, .04134, .08007, + .53061, .24205, .64641, .05258, .01130, + .00418, .04086, .07816, + .52564, .23853, .61767, .05177, .01175, + .00489, .04039, .07649, + .52094, .23531, .59255, .05101, .01211, + .00548, .03993, .07497, + .51476, .23116, .56209, .05002, .01249, + .00612, .03929, .07304, + .50884, .22729, .53505, .04906, .01278, + .00665, .03868, .07126, + .50322, .22369, .51109, .04818, .01300, + .00710, .03807, .06961 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .49743, .22008, .48817, .04725, .01316, + .00747, .03744, .06799, + .49171, .21658, .46691, .04637, .01329, + .00779, .03682, .06641, + .48625, .21329, .44775, .04553, .01338, + .00806, .03623, .06494, + .48102, .21020, .43047, .04474, .01343, + .00827, .03566, .06356, + .47578, .20714, .41395, .04396, .01346, + .00846, .03509, .06220, + .47054, .20412, .39833, .04318, .01346, + .00860, .03451, .06089, + .46562, .20129, .38417, .04243, .01346, + .00874, .03398, .05967, + .46086, .19861, .37122, .04174, .01344, + .00884, .03346, .05851 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45612, .19593, .35872, .04106, .01340, + .00893, .03294, .05737, + .45138, .19332, .34683, .04039, .01335, + .00899, .03243, .05626, + .44688, .19086, .33593, .03974, .01330, + .00905, .03194, .05523, + .44262, .18855, .32597, .03915, .01324, + .00908, .03147, .05425, + .43825, .18621, .31622, .03854, .01317, + .00911, .03101, .05327 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .58396, .29401, 1.09524, .04720, .00000, + .00000, .03008, .08997, + .58715, .29251, 1.06310, .04751, .00000, + .00000, .03090, .08868, + .58962, .28956, 1.03211, .04772, -.00901, + .00000, .03195, .08666, + .58992, .28697, .99398, .04778, -.00767, + .00000, .03256, .08517, + .58928, .28395, .95153, .04780, -.00554, + .00000, .03313, .08360, + .58801, .28111, .91571, .04768, -.00394, + .00000, .03345, .08225, + .58626, .27826, .88231, .04753, -.00252, + .00000, .03370, .08090, + .58390, .27514, .84787, .04734, -.00114, + .00000, .03389, .07941 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .58140, .27233, .81853, .04710, -.00007, + .00000, .03397, .07812, + .57870, .26952, .79092, .04680, .00089, + .00000, .03400, .07689, + .57644, .26724, .76973, .04653, .00161, + .00000, .03400, .07592, + .57096, .26235, .72670, .04595, .00297, + .00000, .03389, .07383, + .56561, .25802, .69478, .04538, .00397, + -.00296, .03372, .07204, + .55919, .25313, .65339, .04469, .00495, + -.00151, .03344, .07005, + .55210, .24800, .61307, .04389, .00583, + -.00030, .03305, .06799, + .54538, .24333, .57874, .04313, .00650, + .00065, .03265, .06612 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .53835, .23864, .54617, .04231, .00708, + .00150, .03220, .06425, + .53232, .23475, .52058, .04161, .00750, + .00212, .03178, .06274, + .52485, .23003, .49123, .04077, .00792, + .00277, .03124, .06090, + .51816, .22589, .46681, .04000, .00823, + .00329, .03073, .05932, + .51195, .22212, .44563, .03927, .00848, + .00371, .03025, .05789, + .50391, .21738, .42023, .03835, .00872, + .00416, .02964, .05609, + .49630, .21299, .39785, .03749, .00892, + .00454, .02903, .05444, + .48919, .20893, .37813, .03667, .00906, + .00485, .02847, .05295 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48196, .20488, .35947, .03587, .00914, + .00509, .02789, .05146, + .47491, .20098, .34224, .03509, .00922, + .00531, .02733, .05005, + .46824, .19734, .32683, .03436, .00926, + .00549, .02678, .04874, + .46194, .19394, .31300, .03366, .00928, + .00563, .02627, .04755, + .45569, .19059, .29985, .03296, .00928, + .00575, .02576, .04637, + .44947, .18732, .28750, .03228, .00927, + .00585, .02526, .04523, + .44364, .18428, .27636, .03166, .00924, + .00592, .02479, .04416, + .43809, .18140, .26624, .03106, .00921, + .00598, .02434, .04318 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43258, .17854, .25649, .03047, .00916, + .00603, .02389, .04222, + .42710, .17574, .24727, .02990, .00912, + .00607, .02346, .04129, + .42191, .17312, .23883, .02936, .00906, + .00609, .02306, .04041, + .41704, .17066, .23115, .02885, .00901, + .00611, .02268, .03959, + .41210, .16819, .22368, .02834, .00894, + .00612, .02228, .03879 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .61093, .29640, .94965, .03930, .00000, + .00000, .02520, .07721, + .61159, .29352, .91360, .03940, .00000, + .00000, .02576, .07556, + .61036, .28856, .87652, .03946, -.00792, + .00000, .02641, .07308, + .60803, .28464, .83698, .03936, -.00673, + .00000, .02676, .07136, + .60466, .28035, .79460, .03923, -.00498, + .00000, .02705, .06958, + .60106, .27648, .75934, .03906, -.00366, + .00000, .02722, .06800, + .59715, .27269, .72690, .03883, -.00251, + .00000, .02729, .06653, + .59259, .26859, .69390, .03850, -.00139, + .00000, .02731, .06499 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .58824, .26496, .66609, .03818, -.00053, + .00000, .02729, .06365, + .58375, .26144, .64021, .03786, .00023, + .00000, .02721, .06236, + .58005, .25864, .62050, .03759, .00079, + .00000, .02712, .06134, + .57180, .25264, .58083, .03692, .00186, + .00000, .02689, .05924, + .56412, .24749, .55170, .03632, .00264, + -.00249, .02662, .05746, + .55527, .24172, .51493, .03562, .00340, + -.00137, .02625, .05551, + .54577, .23577, .47954, .03481, .00406, + -.00045, .02581, .05353, + .53697, .23039, .44971, .03407, .00456, + .00027, .02538, .05178 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .52796, .22504, .42165, .03329, .00499, + .00091, .02489, .05006, + .52039, .22066, .39985, .03264, .00529, + .00136, .02446, .04865, + .51113, .21541, .37500, .03185, .00559, + .00185, .02394, .04698, + .50292, .21083, .35451, .03112, .00582, + .00223, .02345, .04554, + .49540, .20671, .33687, .03047, .00599, + .00253, .02302, .04427, + .48579, .20154, .31582, .02965, .00616, + .00286, .02243, .04268, + .47682, .19676, .29743, .02888, .00627, + .00312, .02189, .04125, + .46851, .19238, .28137, .02816, .00637, + .00334, .02137, .03993 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46013, .18808, .26624, .02743, .00642, + .00351, .02086, .03867, + .45203, .18396, .25240, .02673, .00645, + .00366, .02036, .03746, + .44443, .18011, .24007, .02610, .00648, + .00379, .01989, .03635, + .43728, .17654, .22909, .02550, .00647, + .00387, .01945, .03533, + .43022, .17303, .21867, .02491, .00646, + .00395, .01903, .03433, + .42326, .16963, .20895, .02434, .00644, + .00401, .01859, .03338, + .41676, .16648, .20023, .02381, .00641, + .00406, .01820, .03250, + .41062, .16352, .19233, .02330, .00638, + .00410, .01782, .03169 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40453, .16059, .18477, .02279, .00633, + .00412, .01745, .03089, + .39853, .15773, .17764, .02231, .00629, + .00414, .01708, .03012, + .39287, .15506, .17113, .02186, .00625, + .00416, .01674, .02942, + .38757, .15257, .16524, .02145, .00619, + .00416, .01642, .02875, + .38220, .15008, .15952, .02103, .00614, + .00416, .01611, .02808 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .63072, .29480, .81923, .03289, .00000, + .00000, .02083, .06487, + .62853, .29051, .78155, .03291, .00000, + .00000, .02126, .06304, + .62323, .28372, .74161, .03279, -.00692, + .00000, .02168, .06047, + .61808, .27857, .70244, .03263, -.00589, + .00000, .02189, .05865, + .61193, .27307, .66157, .03239, -.00441, + .00000, .02201, .05684, + .60598, .26827, .62802, .03214, -.00333, + .00000, .02205, .05527, + .59988, .26365, .59746, .03185, -.00238, + .00000, .02205, .05379, + .59306, .25874, .56665, .03149, -.00147, + .00000, .02198, .05225 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .58687, .25444, .54100, .03111, -.00078, + .00000, .02187, .05098, + .58066, .25030, .51734, .03075, -.00017, + .00000, .02173, .04976, + .57565, .24703, .49945, .03046, .00028, + .00000, .02159, .04880, + .56471, .24014, .46364, .02979, .00112, + .00000, .02128, .04683, + .55498, .23426, .43757, .02916, .00174, + -.00207, .02097, .04520, + .54388, .22781, .40544, .02849, .00232, + -.00122, .02057, .04341, + .53224, .22122, .37478, .02773, .00282, + -.00051, .02013, .04161, + .52162, .21536, .34920, .02702, .00321, + .00004, .01968, .04002 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .51089, .20958, .32535, .02630, .00352, + .00052, .01923, .03850, + .50199, .20484, .30694, .02569, .00375, + .00088, .01882, .03728, + .49121, .19920, .28616, .02497, .00397, + .00123, .01833, .03583, + .48176, .19436, .26912, .02432, .00413, + .00151, .01790, .03458, + .47319, .19001, .25453, .02372, .00425, + .00173, .01750, .03348, + .46232, .18460, .23732, .02299, .00436, + .00197, .01698, .03214, + .45225, .17964, .22240, .02230, .00444, + .00216, .01650, .03092, + .44298, .17510, .20943, .02166, .00450, + .00232, .01607, .02982 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43373, .17066, .19730, .02104, .00453, + .00244, .01561, .02876, + .42483, .16643, .18625, .02045, .00455, + .00254, .01518, .02776, + .41652, .16252, .17646, .01992, .00455, + .00262, .01478, .02684, + .40877, .15891, .16780, .01941, .00454, + .00268, .01441, .02600, + .40113, .15539, .15962, .01891, .00452, + .00273, .01404, .02519, + .39370, .15194, .15203, .01842, .00450, + .00277, .01369, .02442, + .38678, .14875, .14524, .01796, .00448, + .00281, .01337, .02372, + .38024, .14579, .13913, .01754, .00444, + .00282, .01305, .02306 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37378, .14289, .13328, .01713, .00441, + .00284, .01275, .02242, + .36745, .14006, .12781, .01673, .00436, + .00285, .01246, .02180, + .36151, .13742, .12284, .01636, .00432, + .00285, .01219, .02122, + .35596, .13496, .11833, .01602, .00428, + .00285, .01192, .02070, + .35038, .13250, .11399, .01566, .00424, + .00285, .01166, .02019 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .64379, .28945, .70230, .02740, .00000, + .00000, .01717, .05350, + .63838, .28400, .66470, .02745, .00000, + .00000, .01749, .05157, + .62876, .27557, .62407, .02728, -.00601, + .00000, .01766, .04907, + .62069, .26937, .58648, .02712, -.00510, + .00000, .01774, .04729, + .61164, .26293, .54803, .02688, -.00388, + .00000, .01777, .04553, + .60338, .25733, .51680, .02654, -.00298, + .00000, .01773, .04409, + .59517, .25201, .48861, .02622, -.00219, + .00000, .01764, .04273, + .58621, .24644, .46051, .02587, -.00145, + .00000, .01748, .04131 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .57827, .24157, .43729, .02551, -.00089, + .00000, .01734, .04012, + .57047, .23693, .41604, .02514, -.00040, + .00000, .01717, .03901, + .56426, .23333, .40002, .02486, -.00003, + .00000, .01703, .03813, + .55084, .22578, .36836, .02420, .00064, + .00000, .01669, .03635, + .53922, .21944, .34538, .02362, .00112, + -.00172, .01636, .03492, + .52624, .21248, .31768, .02293, .00157, + -.00105, .01597, .03337, + .51276, .20543, .29149, .02220, .00196, + -.00051, .01556, .03182, + .50060, .19923, .26980, .02154, .00226, + -.00008, .01515, .03049 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48845, .19316, .24978, .02088, .00250, + .00029, .01472, .02917, + .47845, .18826, .23448, .02036, .00266, + .00054, .01436, .02811, + .46649, .18244, .21729, .01968, .00281, + .00081, .01393, .02691, + .45607, .17742, .20333, .01909, .00293, + .00102, .01354, .02588, + .44666, .17296, .19146, .01860, .00301, + .00118, .01318, .02497, + .43485, .16745, .17753, .01794, .00310, + .00136, .01275, .02384, + .42397, .16244, .16552, .01736, .00315, + .00150, .01234, .02284, + .41401, .15790, .15516, .01683, .00319, + .00161, .01196, .02193 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40418, .15341, .14554, .01629, .00321, + .00170, .01159, .02109, + .39477, .14918, .13683, .01576, .00321, + .00177, .01124, .02029, + .38604, .14528, .12915, .01528, .00321, + .00182, .01092, .01957, + .37791, .14171, .12239, .01485, .00320, + .00187, .01062, .01889, + .36995, .13823, .11603, .01445, .00318, + .00190, .01032, .01823, + .36220, .13486, .11017, .01403, .00315, + .00192, .01003, .01763, + .35503, .13174, .10495, .01365, .00313, + .00195, .00977, .01706, + .34829, .12885, .10026, .01329, .00310, + .00195, .00952, .01656 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34165, .12602, .09581, .01294, .00307, + .00196, .00926, .01606, + .33518, .12328, .09164, .01262, .00304, + .00197, .00903, .01558, + .32913, .12071, .08788, .01231, .00301, + .00197, .00881, .01514, + .32348, .11833, .08449, .01203, .00297, + .00196, .00862, .01472, + .31782, .11597, .08122, .01176, .00294, + .00196, .00842, .01432 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .64887, .28228, .59758, .02385, .00000, + .00000, .01337, .04254, + .64053, .27554, .56099, .02375, .00000, + .00000, .01357, .04091, + .62680, .26550, .52095, .02340, -.00519, + .00000, .01385, .03862, + .61599, .25835, .48558, .02309, -.00439, + .00000, .01392, .03707, + .60444, .25088, .45007, .02268, -.00337, + .00000, .01391, .03561, + .59399, .24463, .42155, .02235, -.00261, + .00000, .01386, .03430, + .58387, .23869, .39604, .02197, -.00197, + .00000, .01375, .03313, + .57305, .23251, .37076, .02152, -.00136, + .00000, .01363, .03195 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .56344, .22731, .35016, .02119, -.00090, + .00000, .01349, .03085, + .55422, .22231, .33139, .02081, -.00051, + .00000, .01333, .02991, + .54697, .21838, .31736, .02047, -.00021, + .00000, .01319, .02920, + .53147, .21034, .28981, .01984, .00033, + .00000, .01290, .02764, + .51828, .20360, .26995, .01925, .00071, + -.00141, .01259, .02646, + .50369, .19635, .24636, .01860, .00106, + -.00088, .01224, .02515, + .48864, .18907, .22432, .01794, .00136, + -.00046, .01186, .02388, + .47524, .18268, .20629, .01733, .00158, + -.00014, .01151, .02277 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46203, .17645, .18975, .01672, .00176, + .00014, .01116, .02168, + .45124, .17145, .17718, .01620, .00188, + .00034, .01087, .02081, + .43837, .16554, .16321, .01560, .00200, + .00054, .01050, .01984, + .42726, .16052, .15192, .01510, .00208, + .00069, .01015, .01904, + .41726, .15606, .14238, .01464, .00214, + .00081, .00985, .01832, + .40486, .15054, .13129, .01405, .00220, + .00094, .00948, .01743, + .39348, .14555, .12180, .01353, .00223, + .00104, .00916, .01663, + .38310, .14105, .11366, .01307, .00225, + .00112, .00887, .01590 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37288, .13670, .10615, .01262, .00227, + .00118, .00857, .01521, + .36318, .13256, .09941, .01218, .00227, + .00123, .00827, .01458, + .35425, .12878, .09349, .01177, .00226, + .00127, .00798, .01404, + .34596, .12530, .08829, .01140, .00225, + .00130, .00774, .01352, + .33786, .12192, .08342, .01103, .00224, + .00133, .00750, .01302, + .33001, .11868, .07897, .01069, .00221, + .00134, .00727, .01256, + .32275, .11570, .07500, .01038, .00219, + .00135, .00706, .01216, + .31596, .11293, .07148, .01009, .00217, + .00136, .00688, .01174 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30931, .11023, .06812, .00983, .00214, + .00136, .00670, .01134, + .30282, .10761, .06501, .00956, .00212, + .00136, .00652, .01097, + .29678, .10519, .06221, .00931, .00209, + .00136, .00635, .01064, + .29117, .10294, .05969, .00907, .00206, + .00136, .00619, .01033, + .28559, .10069, .05726, .00884, .00204, + .00135, .00602, .01003 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .64850, .27148, .50194, .02005, .00000, + .00000, .01076, .03343, + .63699, .26377, .46731, .01987, .00000, + .00000, .01090, .03205, + .61903, .25258, .42926, .01951, -.00443, + .00000, .01102, .03006, + .60564, .24462, .39683, .01913, -.00373, + .00000, .01102, .02876, + .59137, .23665, .36474, .01878, -.00288, + .00000, .01099, .02745, + .57895, .22986, .33926, .01844, -.00226, + .00000, .01092, .02632, + .56702, .22354, .31661, .01810, -.00173, + .00000, .01083, .02530, + .55442, .21700, .29444, .01769, -.00124, + .00000, .01067, .02424 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .54357, .21138, .27642, .01729, -.00086, + .00000, .01052, .02346, + .53310, .20611, .26026, .01690, -.00054, + .00000, .01036, .02266, + .52489, .20206, .24821, .01662, -.00032, + .00000, .01025, .02203, + .50764, .19370, .22471, .01598, .00011, + .00000, .00994, .02080, + .49305, .18689, .20781, .01549, .00041, + -.00114, .00969, .01979, + .47710, .17948, .18820, .01489, .00069, + -.00074, .00938, .01873, + .46094, .17209, .17000, .01428, .00092, + -.00041, .00904, .01770, + .44664, .16568, .15524, .01375, .00109, + -.00016, .00871, .01679 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43259, .15948, .14183, .01322, .00122, + .00004, .00842, .01592, + .42124, .15447, .13173, .01276, .00132, + .00020, .00814, .01526, + .40779, .14866, .12058, .01223, .00140, + .00034, .00783, .01449, + .39621, .14371, .11164, .01178, .00147, + .00046, .00757, .01382, + .38586, .13933, .10414, .01141, .00150, + .00055, .00735, .01323, + .37305, .13397, .09547, .01091, .00154, + .00064, .00704, .01254, + .36141, .12913, .08809, .01046, .00157, + .00071, .00676, .01196, + .35086, .12476, .08182, .01005, .00158, + .00077, .00651, .01144 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .34056, .12056, .07609, .00967, .00159, + .00082, .00627, .01089, + .33078, .11661, .07095, .00932, .00159, + .00085, .00604, .01039, + .32180, .11301, .06647, .00899, .00158, + .00088, .00584, .00995, + .31351, .10971, .06256, .00868, .00157, + .00090, .00565, .00956, + .30545, .10650, .05894, .00838, .00156, + .00092, .00545, .00918, + .29766, .10343, .05562, .00811, .00154, + .00093, .00527, .00883, + .29049, .10061, .05270, .00785, .00152, + .00093, .00511, .00850, + .28381, .09800, .05010, .00761, .00150, + .00093, .00495, .00821 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27727, .09546, .04765, .00737, .00149, + .00094, .00479, .00793, + .27094, .09302, .04536, .00715, .00147, + .00094, .00465, .00766, + .26504, .09075, .04331, .00694, .00145, + .00094, .00452, .00741, + .25958, .08865, .04147, .00675, .00143, + .00094, .00441, .00718, + .25413, .08658, .03972, .00658, .00140, + .00092, .00428, .00694 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .64145, .25905, .41501, .01713, .00000, + .00000, .00827, .02556, + .62704, .25049, .38305, .01686, .00000, + .00000, .00844, .02438, + .60527, .23827, .34774, .01643, -.00375, + .00000, .00855, .02279, + .58936, .22980, .31865, .01610, -.00315, + .00000, .00852, .02170, + .57284, .22131, .29031, .01570, -.00244, + .00000, .00849, .02061, + .55875, .21411, .26797, .01528, -.00192, + .00000, .00843, .01977, + .54531, .20747, .24835, .01492, -.00149, + .00000, .00833, .01895, + .53118, .20071, .22930, .01454, -.00109, + .00000, .00821, .01810 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51910, .19497, .21404, .01417, -.00079, + .00000, .00808, .01741, + .50762, .18959, .20030, .01382, -.00053, + .00000, .00796, .01676, + .49868, .18546, .19014, .01353, -.00035, + .00000, .00784, .01628, + .47999, .17698, .17061, .01299, -.00001, + .00000, .00756, .01529, + .46447, .17005, .15664, .01248, .00022, + -.00092, .00734, .01449, + .44763, .16267, .14061, .01193, .00044, + -.00060, .00707, .01364, + .43065, .15534, .12593, .01136, .00062, + -.00035, .00679, .01283, + .41579, .14898, .11414, .01084, .00074, + -.00017, .00654, .01216 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40130, .14284, .10353, .01035, .00084, + -.00001, .00627, .01152, + .38955, .13801, .09559, .00998, .00091, + .00011, .00605, .01098, + .37577, .13234, .08688, .00956, .00098, + .00022, .00582, .01037, + .36398, .12754, .08000, .00918, .00102, + .00030, .00561, .00985, + .35350, .12335, .07424, .00883, .00105, + .00037, .00539, .00944, + .34065, .11820, .06765, .00840, .00108, + .00044, .00515, .00891, + .32899, .11359, .06210, .00804, .00110, + .00049, .00493, .00842, + .31844, .10948, .05740, .00774, .00111, + .00053, .00475, .00798 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30824, .10546, .05312, .00738, .00111, + .00056, .00455, .00764, + .29857, .10173, .04931, .00707, .00110, + .00059, .00438, .00729, + .28968, .09835, .04603, .00682, .00110, + .00060, .00421, .00693, + .28156, .09525, .04319, .00656, .00109, + .00062, .00405, .00664, + .27368, .09225, .04055, .00632, .00108, + .00063, .00391, .00638, + .26607, .08939, .03815, .00611, .00107, + .00064, .00377, .00612, + .25910, .08678, .03604, .00592, .00106, + .00064, .00364, .00588, + .25264, .08438, .03416, .00572, .00104, + .00065, .00353, .00566 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24635, .08203, .03240, .00553, .00103, + .00065, .00342, .00545, + .24025, .07977, .03077, .00534, .00101, + .00064, .00332, .00525, + .23459, .07768, .02933, .00519, .00099, + .00064, .00321, .00507, + .22934, .07575, .02803, .00505, .00098, + .00064, .00312, .00490, + .22414, .07386, .02680, .00490, .00096, + .00063, .00302, .00474 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .62876, .24476, .33558, .01439, .00000, + .00000, .00632, .01912, + .61160, .23555, .30686, .01415, .00000, + .00000, .00652, .01814, + .58621, .22268, .27521, .01371, -.00313, + .00000, .00655, .01691, + .56833, .21373, .24975, .01327, -.00261, + .00000, .00659, .01605, + .54987, .20491, .22535, .01288, -.00203, + .00000, .00655, .01519, + .53417, .19759, .20632, .01255, -.00161, + .00000, .00649, .01445, + .51945, .19081, .18976, .01221, -.00126, + .00000, .00637, .01385, + .50419, .18389, .17381, .01179, -.00094, + .00000, .00626, .01326 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .49120, .17810, .16112, .01144, -.00069, + .00000, .00616, .01270, + .47892, .17270, .14987, .01113, -.00049, + .00000, .00602, .01220, + .46941, .16857, .14160, .01087, -.00035, + .00000, .00592, .01181, + .44977, .16007, .12575, .01032, -.00008, + .00000, .00572, .01105, + .43357, .15324, .11454, .00986, .00010, + -.00073, .00551, .01046, + .41604, .14602, .10186, .00941, .00026, + -.00049, .00529, .00980, + .39860, .13886, .09031, .00894, .00040, + -.00030, .00505, .00918, + .38343, .13272, .08115, .00851, .00049, + -.00016, .00482, .00866 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36868, .12685, .07296, .00810, .00058, + -.00003, .00462, .00817, + .35682, .12218, .06692, .00778, .00063, + .00005, .00449, .00776, + .34295, .11678, .06040, .00740, .00067, + .00013, .00426, .00730, + .33125, .11223, .05523, .00706, .00070, + .00019, .00409, .00694, + .32094, .10820, .05098, .00675, .00073, + .00025, .00395, .00660, + .30812, .10336, .04614, .00643, .00074, + .00029, .00376, .00620, + .29661, .09902, .04208, .00614, .00076, + .00033, .00357, .00587, + .28631, .09515, .03868, .00586, .00077, + .00037, .00341, .00558 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27632, .09143, .03561, .00559, .00077, + .00039, .00326, .00530, + .26693, .08795, .03291, .00534, .00076, + .00040, .00313, .00503, + .25836, .08479, .03060, .00515, .00076, + .00041, .00300, .00477, + .25053, .08194, .02860, .00494, .00075, + .00042, .00288, .00455, + .24295, .07920, .02677, .00473, .00074, + .00043, .00276, .00435, + .23567, .07658, .02509, .00456, .00073, + .00043, .00267, .00417, + .22898, .07419, .02362, .00441, .00072, + .00044, .00259, .00401, + .22283, .07198, .02237, .00424, .00071, + .00044, .00249, .00385 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21685, .06984, .02118, .00409, .00070, + .00043, .00240, .00369, + .21108, .06779, .02007, .00395, .00069, + .00044, .00232, .00355, + .20574, .06590, .01909, .00382, .00068, + .00044, .00224, .00343, + .20081, .06416, .01821, .00369, .00067, + .00043, .00217, .00332, + .19591, .06245, .01739, .00357, .00065, + .00043, .00210, .00319 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .61063, .22901, .26340, .01185, .00000, + .00000, .00488, .01400, + .59114, .21930, .23833, .01155, .00000, + .00000, .00501, .01332, + .56280, .20591, .21096, .01109, -.00257, + .00000, .00509, .01233, + .54292, .19688, .18941, .01079, -.00214, + .00000, .00506, .01167, + .52290, .18792, .16899, .01041, -.00166, + .00000, .00502, .01102, + .50601, .18050, .15333, .01006, -.00132, + .00000, .00494, .01050, + .49032, .17371, .13981, .00972, -.00104, + .00000, .00487, .01002, + .47419, .16681, .12689, .00937, -.00079, + .00000, .00476, .00953 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .46051, .16109, .11673, .00905, -.00060, + .00000, .00467, .00914, + .44768, .15575, .10775, .00877, -.00043, + .00000, .00455, .00877, + .43777, .15169, .10117, .00856, -.00032, + .00000, .00445, .00850, + .41748, .14345, .08886, .00807, -.00012, + .00000, .00428, .00788, + .40088, .13683, .08020, .00769, .00002, + -.00056, .00413, .00742, + .38309, .12983, .07046, .00730, .00015, + -.00038, .00393, .00696, + .36547, .12297, .06176, .00688, .00025, + -.00024, .00374, .00650, + .35022, .11712, .05491, .00653, .00032, + -.00014, .00357, .00611 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33551, .11153, .04892, .00619, .00038, + -.00004, .00339, .00570, + .32382, .10713, .04450, .00590, .00042, + .00002, .00326, .00541, + .31018, .10202, .03974, .00559, .00045, + .00008, .00311, .00510, + .29864, .09774, .03607, .00532, .00048, + .00012, .00298, .00482, + .28851, .09402, .03304, .00509, .00050, + .00016, .00287, .00457, + .27615, .08950, .02967, .00481, .00050, + .00019, .00270, .00429, + .26503, .08547, .02687, .00456, .00052, + .00022, .00257, .00405, + .25507, .08189, .02454, .00434, .00052, + .00024, .00245, .00383 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24546, .07850, .02247, .00415, .00052, + .00026, .00234, .00360, + .23647, .07533, .02064, .00396, .00051, + .00027, .00224, .00340, + .22832, .07245, .01911, .00375, .00051, + .00027, .00214, .00324, + .22086, .06984, .01777, .00361, .00051, + .00028, .00204, .00311, + .21366, .06733, .01656, .00347, .00050, + .00029, .00197, .00296, + .20680, .06495, .01548, .00333, .00050, + .00029, .00189, .00282, + .20053, .06279, .01453, .00320, .00049, + .00030, .00182, .00271, + .19476, .06081, .01371, .00309, .00048, + .00029, .00175, .00260 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18915, .05889, .01295, .00296, .00048, + .00030, .00169, .00249, + .18377, .05706, .01226, .00285, .00046, + .00029, .00162, .00238, + .17878, .05538, .01164, .00275, .00045, + .00029, .00157, .00229, + .17420, .05383, .01110, .00267, .00045, + .00029, .00151, .00220, + .16964, .05229, .01057, .00258, .00044, + .00029, .00147, .00212 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .58760, .21262, .19830, .00990, .00000, + .00000, .00355, .00987, + .56587, .20272, .17737, .00956, .00000, + .00000, .00366, .00941, + .53514, .18909, .15459, .00913, -.00208, + .00000, .00377, .00865, + .51385, .17995, .13697, .00874, -.00172, + .00000, .00378, .00826, + .49262, .17094, .12057, .00842, -.00134, + .00000, .00375, .00774, + .47488, .16361, .10816, .00807, -.00107, + .00000, .00364, .00743, + .45853, .15690, .09753, .00774, -.00084, + .00000, .00359, .00709, + .44184, .15013, .08752, .00742, -.00064, + .00000, .00353, .00670 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .42772, .14454, .07972, .00720, -.00050, + .00000, .00345, .00638, + .41461, .13937, .07294, .00692, -.00037, + .00000, .00337, .00608, + .40457, .13542, .06802, .00670, -.00029, + .00000, .00328, .00589, + .38390, .12747, .05883, .00631, -.00012, + .00000, .00313, .00551, + .36724, .12117, .05245, .00598, -.00002, + -.00044, .00301, .00514, + .34954, .11450, .04538, .00563, .00007, + -.00030, .00286, .00478, + .33209, .10800, .03911, .00529, .00015, + -.00019, .00270, .00445, + .31708, .10248, .03429, .00496, .00020, + -.00012, .00258, .00419 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .30270, .09725, .03010, .00466, .00025, + -.00004, .00245, .00393, + .29126, .09314, .02707, .00447, .00028, + .00000, .00234, .00369, + .27802, .08840, .02390, .00421, .00030, + .00004, .00222, .00345, + .26685, .08446, .02141, .00402, .00032, + .00007, .00211, .00326, + .25704, .08102, .01944, .00385, .00033, + .00010, .00200, .00308, + .24518, .07688, .01721, .00360, .00034, + .00013, .00190, .00290, + .23458, .07320, .01544, .00339, .00035, + .00015, .00182, .00272, + .22514, .06993, .01399, .00322, .00035, + .00016, .00173, .00254 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21604, .06685, .01268, .00307, .00035, + .00017, .00164, .00240, + .20755, .06398, .01156, .00294, .00035, + .00018, .00155, .00226, + .19986, .06139, .01064, .00280, .00034, + .00019, .00148, .00214, + .19292, .05903, .00984, .00265, .00034, + .00019, .00142, .00205, + .18625, .05678, .00913, .00251, .00033, + .00019, .00136, .00197, + .17986, .05467, .00851, .00240, .00033, + .00020, .00130, .00186, + .17404, .05277, .00796, .00232, .00032, + .00019, .00124, .00175, + .16871, .05099, .00750, .00222, .00032, + .00020, .00120, .00167 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16353, .04927, .00705, .00213, .00032, + .00020, .00116, .00160, + .15856, .04765, .00665, .00205, .00031, + .00019, .00111, .00155, + .15395, .04614, .00631, .00199, .00031, + .00020, .00107, .00150, + .14974, .04477, .00600, .00192, .00030, + .00020, .00103, .00144, + .14560, .04343, .00573, .00184, .00029, + .00019, .00099, .00139 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .56010, .19561, .14030, .00814, .00000, + .00000, .00260, .00670, + .53685, .18560, .12345, .00785, .00000, + .00000, .00264, .00649, + .50422, .17207, .10572, .00739, -.00165, + .00000, .00270, .00592, + .48198, .16300, .09200, .00708, -.00136, + .00000, .00271, .00559, + .45992, .15421, .07951, .00667, -.00106, + .00000, .00261, .00540, + .44170, .14702, .07012, .00642, -.00085, + .00000, .00261, .00507, + .42491, .14053, .06228, .00618, -.00068, + .00000, .00258, .00477, + .40784, .13401, .05494, .00594, -.00052, + .00000, .00251, .00451 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .39367, .12862, .04933, .00568, -.00041, + .00000, .00243, .00432, + .38045, .12369, .04446, .00545, -.00031, + .00000, .00237, .00413, + .37034, .11993, .04102, .00528, -.00025, + .00000, .00233, .00396, + .34994, .11233, .03462, .00488, -.00012, + .00000, .00221, .00372, + .33346, .10635, .03030, .00463, -.00004, + -.00033, .00210, .00349, + .31597, .10016, .02549, .00438, .00003, + -.00023, .00199, .00323, + .29893, .09410, .02139, .00408, .00009, + -.00015, .00186, .00296, + .28437, .08897, .01827, .00382, .00013, + -.00009, .00177, .00276 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .27043, .08412, .01558, .00360, .00016, + -.00005, .00168, .00261, + .25946, .08032, .01370, .00343, .00018, + -.00001, .00162, .00245, + .24685, .07601, .01179, .00321, .00020, + .00002, .00152, .00225, + .23624, .07240, .01034, .00302, .00021, + .00005, .00145, .00211, + .22696, .06924, .00920, .00287, .00022, + .00006, .00136, .00201, + .21573, .06549, .00797, .00272, .00023, + .00008, .00128, .00185, + .20577, .06219, .00696, .00255, .00023, + .00010, .00120, .00175, + .19691, .05926, .00617, .00240, .00023, + .00011, .00115, .00167 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18846, .05647, .00548, .00227, .00023, + .00012, .00110, .00155, + .18059, .05390, .00493, .00216, .00024, + .00012, .00104, .00146, + .17348, .05155, .00446, .00204, .00023, + .00012, .00099, .00140, + .16702, .04949, .00408, .00195, .00023, + .00013, .00094, .00132, + .16084, .04751, .00373, .00187, .00022, + .00013, .00091, .00126, + .15497, .04564, .00346, .00178, .00022, + .00013, .00086, .00118, + .14964, .04394, .00323, .00170, .00022, + .00013, .00081, .00114, + .14478, .04238, .00302, .00163, .00021, + .00013, .00078, .00109 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .14005, .04087, .00283, .00154, .00021, + .00013, .00075, .00105, + .13553, .03944, .00267, .00148, .00021, + .00014, .00073, .00099, + .13136, .03814, .00254, .00143, .00020, + .00013, .00070, .00094, + .12754, .03695, .00240, .00139, .00020, + .00013, .00068, .00091, + .12379, .03579, .00230, .00133, .00019, + .00013, .00065, .00088 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .52912, .17786, .08964, .00633, .00000, + .00000, .00186, .00463, + .50456, .16803, .07710, .00606, .00000, + .00000, .00198, .00437, + .47056, .15475, .06412, .00568, -.00129, + .00000, .00199, .00410, + .44777, .14597, .05411, .00541, -.00105, + .00000, .00197, .00386, + .42525, .13747, .04526, .00518, -.00082, + .00000, .00198, .00356, + .40677, .13063, .03880, .00491, -.00066, + .00000, .00191, .00342, + .38995, .12441, .03341, .00466, -.00053, + .00000, .00187, .00328, + .37298, .11818, .02850, .00441, -.00041, + .00000, .00182, .00312 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .35880, .11312, .02487, .00424, -.00032, + .00000, .00176, .00293, + .34570, .10843, .02181, .00406, -.00025, + .00000, .00171, .00279, + .33574, .10491, .01958, .00392, -.00020, + .00000, .00167, .00271, + .31564, .09785, .01569, .00365, -.00011, + .00000, .00156, .00251, + .29964, .09229, .01303, .00346, -.00005, + -.00024, .00152, .00234, + .28283, .08651, .01021, .00319, .00000, + -.00017, .00143, .00216, + .26643, .08093, .00787, .00296, .00004, + -.00012, .00134, .00201, + .25249, .07624, .00613, .00277, .00007, + -.00007, .00127, .00187 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .23928, .07184, .00474, .00258, .00010, + -.00003, .00120, .00171, + .22885, .06839, .00382, .00244, .00011, + -.00002, .00113, .00162, + .21687, .06448, .00288, .00230, .00013, + .00001, .00107, .00152, + .20692, .06124, .00222, .00218, .00013, + .00002, .00102, .00142, + .19828, .05843, .00173, .00204, .00014, + .00003, .00097, .00134, + .18785, .05505, .00125, .00189, .00014, + .00005, .00090, .00126, + .17860, .05209, .00088, .00177, .00015, + .00006, .00085, .00116, + .17040, .04950, .00061, .00168, .00015, + .00007, .00082, .00109 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16261, .04703, .00042, .00157, .00015, + .00008, .00077, .00103, + .15539, .04477, .00026, .00148, .00015, + .00008, .00073, .00097, + .14888, .04275, .00017, .00141, .00015, + .00008, .00070, .00091, + .14302, .04093, .00010, .00134, .00015, + .00008, .00066, .00085, + .13740, .03920, .00004, .00126, .00014, + .00008, .00063, .00079, + .13209, .03756, .00001, .00119, .00014, + .00008, .00059, .00077, + .12728, .03608, -.00001, .00115, .00014, + .00009, .00057, .00074, + .12286, .03474, -.00002, .00110, .00014, + .00009, .00054, .00070 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11859, .03345, -.00002, .00106, .00013, + .00008, .00052, .00067, + .11454, .03221, -.00002, .00102, .00013, + .00008, .00049, .00063, + .11084, .03107, -.00001, .00096, .00013, + .00008, .00047, .00061, + .10744, .03005, .00000, .00092, .00013, + .00009, .00046, .00059, + .10411, .02906, .00001, .00088, .00013, + .00009, .00044, .00055 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .49497, .16027, .04635, .00478, .00000, + .00000, .00140, .00306, + .46952, .15069, .03789, .00462, .00000, + .00000, .00143, .00292, + .43487, .13776, .02971, .00421, -.00099, + .00000, .00147, .00276, + .41179, .12931, .02336, .00396, -.00080, + .00000, .00148, .00257, + .38929, .12124, .01775, .00370, -.00063, + .00000, .00144, .00248, + .37084, .11472, .01377, .00357, -.00051, + .00000, .00145, .00234, + .35414, .10887, .01063, .00340, -.00041, + .00000, .00141, .00223, + .33745, .10305, .00790, .00317, -.00031, + .00000, .00138, .00211 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .32361, .09831, .00598, .00302, -.00025, + .00000, .00132, .00199, + .31093, .09398, .00435, .00285, -.00019, + .00000, .00129, .00189, + .30132, .09069, .00328, .00272, -.00016, + .00000, .00127, .00180, + .28183, .08418, .00145, .00254, -.00010, + .00000, .00120, .00167, + .26646, .07910, .00036, .00234, -.00005, + -.00018, .00113, .00156, + .25044, .07382, -.00094, .00216, -.00001, + -.00012, .00108, .00146, + .23489, .06878, -.00190, .00202, .00001, + -.00009, .00101, .00134, + .22170, .06456, -.00246, .00190, .00004, + -.00005, .00093, .00122 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .20926, .06060, -.00285, .00177, .00005, + -.00004, .00086, .00114, + .19958, .05751, -.00307, .00164, .00007, + -.00001, .00082, .00109, + .18854, .05402, -.00322, .00151, .00008, + .00000, .00077, .00102, + .17933, .05114, -.00328, .00140, .00009, + .00001, .00072, .00096, + .17132, .04866, -.00326, .00133, .00009, + .00003, .00069, .00089, + .16172, .04572, -.00323, .00125, .00009, + .00003, .00066, .00082, + .15326, .04312, -.00311, .00116, .00009, + .00004, .00061, .00077, + .14581, .04086, -.00300, .00109, .00010, + .00005, .00056, .00072 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13871, .03872, -.00287, .00104, .00010, + .00005, .00053, .00067, + .13215, .03676, -.00272, .00097, .00009, + .00005, .00051, .00064, + .12630, .03499, -.00258, .00090, .00010, + .00006, .00048, .00062, + .12104, .03342, -.00243, .00085, .00010, + .00005, .00046, .00058, + .11602, .03192, -.00228, .00080, .00009, + .00005, .00043, .00055, + .11126, .03052, -.00216, .00077, .00009, + .00005, .00042, .00052, + .10698, .02926, -.00204, .00073, .00009, + .00005, .00041, .00050, + .10305, .02812, -.00190, .00071, .00009, + .00006, .00039, .00046 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09927, .02701, -.00181, .00068, .00009, + .00006, .00037, .00044, + .09570, .02596, -.00168, .00065, .00009, + .00006, .00034, .00041, + .09243, .02502, -.00157, .00061, .00008, + .00006, .00033, .00040, + .08944, .02414, -.00147, .00058, .00008, + .00005, .00032, .00039, + .08650, .02330, -.00137, .00056, .00008, + .00005, .00031, .00036 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .45845, .14360, .00998, .00406, .00000, + .00000, .00074, .00173, + .43304, .13431, .00522, .00374, .00000, + .00000, .00081, .00174, + .39822, .12200, .00139, .00351, -.00074, + .00000, .00086, .00165, + .37536, .11406, -.00194, .00325, -.00060, + .00000, .00087, .00162, + .35310, .10646, -.00446, .00306, -.00047, + .00000, .00089, .00144, + .33517, .10031, -.00612, .00286, -.00037, + .00000, .00087, .00140, + .31898, .09486, -.00724, .00265, -.00030, + .00000, .00085, .00131, + .30276, .08951, -.00818, .00248, -.00024, + .00000, .00085, .00124 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .28938, .08509, -.00878, .00241, -.00019, + .00000, .00084, .00119, + .27715, .08109, -.00908, .00227, -.00015, + .00000, .00081, .00113, + .26793, .07809, -.00926, .00216, -.00012, + .00000, .00078, .00111, + .24941, .07214, -.00937, .00201, -.00008, + .00000, .00072, .00099, + .23493, .06752, -.00922, .00185, -.00004, + -.00013, .00067, .00094, + .21986, .06276, -.00923, .00171, -.00002, + -.00009, .00064, .00086, + .20533, .05827, -.00907, .00157, .00000, + -.00007, .00061, .00079, + .19314, .05448, -.00878, .00144, .00002, + -.00004, .00057, .00072 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .18167, .05093, -.00840, .00133, .00003, + -.00003, .00052, .00068, + .17270, .04823, -.00806, .00124, .00004, + -.00001, .00049, .00065, + .16251, .04514, -.00762, .00115, .00005, + .00000, .00046, .00061, + .15411, .04261, -.00721, .00108, .00005, + .00001, .00045, .00056, + .14684, .04042, -.00683, .00101, .00005, + .00001, .00042, .00053, + .13812, .03785, -.00635, .00094, .00006, + .00002, .00039, .00048, + .13047, .03559, -.00593, .00088, .00006, + .00002, .00035, .00046, + .12377, .03362, -.00550, .00080, .00006, + .00003, .00033, .00043 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11745, .03176, -.00512, .00074, .00006, + .00003, .00031, .00040, + .11161, .03006, -.00476, .00069, .00006, + .00003, .00030, .00037, + .10636, .02856, -.00445, .00067, .00006, + .00003, .00029, .00035, + .10165, .02723, -.00414, .00065, .00006, + .00004, .00027, .00032, + .09718, .02595, -.00386, .00062, .00006, + .00004, .00025, .00030, + .09300, .02475, -.00362, .00059, .00006, + .00004, .00024, .00029, + .08922, .02367, -.00338, .00055, .00006, + .00004, .00023, .00028, + .08578, .02270, -.00318, .00053, .00006, + .00004, .00022, .00027 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08246, .02178, -.00294, .00050, .00005, + .00003, .00021, .00024, + .07933, .02089, -.00275, .00048, .00005, + .00003, .00020, .00023, + .07648, .02009, -.00259, .00047, .00005, + .00003, .00018, .00022, + .07388, .01936, -.00245, .00045, .00005, + .00003, .00017, .00021, + .07134, .01865, -.00230, .00042, .00005, + .00003, .00018, .00021 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .42010, .12633, -.01900, .00286, .00000, + .00000, .00059, .00116, + .39458, .11768, -.02035, .00270, .00000, + .00000, .00062, .00116, + .36042, .10621, -.02014, .00243, -.00054, + .00000, .00067, .00102, + .33806, .09883, -.02066, .00226, -.00043, + .00000, .00065, .00097, + .31656, .09179, -.02083, .00208, -.00034, + .00000, .00066, .00096, + .29927, .08620, -.02061, .00194, -.00027, + .00000, .00063, .00092, + .28368, .08126, -.02024, .00185, -.00022, + .00000, .00060, .00086, + .26814, .07635, -.01960, .00176, -.00017, + .00000, .00058, .00078 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .25554, .07237, -.01900, .00163, -.00014, + .00000, .00056, .00077, + .24397, .06876, -.01839, .00156, -.00012, + .00000, .00055, .00075, + .23523, .06608, -.01793, .00152, -.00009, + .00000, .00054, .00074, + .21801, .06076, -.01668, .00135, -.00006, + .00000, .00050, .00066, + .20448, .05667, -.01563, .00126, -.00004, + -.00009, .00047, .00062, + .19048, .05248, -.01467, .00118, -.00002, + -.00006, .00044, .00055, + .17714, .04845, -.01362, .00106, -.00001, + -.00005, .00039, .00051, + .16598, .04512, -.01266, .00094, .00000, + -.00004, .00036, .00049 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15550, .04207, -.01176, .00087, .00001, + -.00002, .00033, .00045, + .14735, .03970, -.01103, .00086, .00002, + -.00001, .00032, .00038, + .13814, .03703, -.01017, .00079, .00003, + .00000, .00032, .00035, + .13056, .03484, -.00946, .00074, .00003, + .00000, .00030, .00033, + .12403, .03296, -.00884, .00070, .00003, + .00000, .00028, .00032, + .11626, .03075, -.00808, .00063, .00004, + .00001, .00026, .00028, + .10949, .02882, -.00741, .00058, .00003, + .00001, .00023, .00027, + .10357, .02714, -.00685, .00054, .00003, + .00001, .00022, .00026 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09794, .02557, -.00630, .00050, .00004, + .00002, .00020, .00024, + .09280, .02414, -.00582, .00048, .00004, + .00002, .00019, .00023, + .08821, .02286, -.00540, .00045, .00004, + .00002, .00018, .00022, + .08412, .02173, -.00501, .00043, .00004, + .00002, .00016, .00020, + .08022, .02068, -.00465, .00042, .00003, + .00002, .00017, .00018, + .07659, .01967, -.00430, .00038, .00003, + .00002, .00015, .00017, + .07332, .01877, -.00402, .00035, .00003, + .00002, .00014, .00017, + .07034, .01796, -.00375, .00034, .00003, + .00002, .00013, .00015 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06749, .01720, -.00351, .00033, .00003, + .00002, .00013, .00014, + .06479, .01648, -.00329, .00032, .00003, + .00002, .00012, .00014, + .06234, .01582, -.00308, .00029, .00003, + .00002, .00012, .00013, + .06010, .01521, -.00290, .00028, .00004, + .00003, .00011, .00012, + .05793, .01462, -.00271, .00027, .00003, + .00003, .00010, .00012 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .38063, .10994, -.04086, .00179, .00000, + .00000, .00053, .00076, + .35559, .10187, -.03914, .00169, .00000, + .00000, .00050, .00076, + .32244, .09132, -.03585, .00159, -.00039, + .00000, .00051, .00072, + .30091, .08457, -.03412, .00151, -.00031, + .00000, .00051, .00066, + .28037, .07822, -.03222, .00136, -.00024, + .00000, .00049, .00062, + .26394, .07316, -.03052, .00127, -.00019, + .00000, .00049, .00055, + .24926, .06867, -.02888, .00118, -.00016, + .00000, .00046, .00056, + .23476, .06430, -.02720, .00110, -.00012, + .00000, .00043, .00056 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .22292, .06076, -.02574, .00105, -.00010, + .00000, .00041, .00053, + .21217, .05757, -.02432, .00098, -.00008, + .00000, .00040, .00048, + .20411, .05519, -.02322, .00093, -.00007, + .00000, .00038, .00044, + .18815, .05051, -.02109, .00085, -.00004, + .00000, .00036, .00040, + .17577, .04689, -.01937, .00079, -.00003, + -.00006, .00034, .00036, + .16306, .04321, -.01774, .00071, -.00002, + -.00005, .00032, .00035, + .15090, .03975, -.01612, .00066, .00000, + -.00003, .00030, .00030, + .14078, .03688, -.01479, .00063, .00000, + -.00002, .00027, .00028 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13139, .03424, -.01352, .00055, .00001, + -.00001, .00025, .00028, + .12413, .03220, -.01250, .00049, .00001, + -.00001, .00022, .00028, + .11595, .02991, -.01140, .00046, .00002, + .00000, .00021, .00025, + .10923, .02805, -.01048, .00044, .00002, + .00000, .00019, .00022, + .10344, .02649, -.00972, .00041, .00002, + .00000, .00019, .00021, + .09661, .02461, -.00880, .00038, .00002, + .00001, .00018, .00019, + .09065, .02300, -.00801, .00035, .00002, + .00001, .00017, .00017, + .08545, .02159, -.00735, .00033, .00002, + .00001, .00015, .00018 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .08060, .02027, -.00672, .00030, .00002, + .00001, .00014, .00015, + .07615, .01909, -.00617, .00029, .00002, + .00001, .00013, .00014, + .07217, .01804, -.00566, .00026, .00002, + .00001, .00012, .00013, + .06864, .01709, -.00525, .00025, .00002, + .00001, .00012, .00013, + .06529, .01621, -.00486, .00024, .00002, + .00001, .00012, .00011, + .06217, .01539, -.00449, .00023, .00002, + .00001, .00010, .00012, + .05938, .01465, -.00418, .00022, .00003, + .00002, .00009, .00010, + .05685, .01399, -.00390, .00021, .00002, + .00002, .00009, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05442, .01337, -.00364, .00019, .00002, + .00002, .00009, .00010, + .05214, .01278, -.00338, .00018, .00002, + .00002, .00008, .00009, + .05008, .01224, -.00317, .00017, .00002, + .00002, .00008, .00009, + .04819, .01175, -.00297, .00015, .00002, + .00002, .00007, .00008, + .04635, .01127, -.00279, .00016, .00002, + .00002, .00007, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .34115, .09501, -.05717, .00151, .00000, + .00000, .00019, .00038, + .31719, .08757, -.05316, .00139, .00000, + .00000, .00027, .00036, + .28538, .07797, -.04688, .00124, -.00027, + .00000, .00024, .00035, + .26519, .07188, -.04343, .00112, -.00022, + .00000, .00023, .00033, + .24577, .06612, -.04006, .00107, -.00016, + .00000, .00026, .00032, + .23043, .06163, -.03717, .00100, -.00014, + .00000, .00024, .00029, + .21679, .05767, -.03459, .00092, -.00011, + .00000, .00024, .00026, + .20336, .05377, -.03202, .00084, -.00008, + .00000, .00023, .00025 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .19245, .05062, -.02993, .00081, -.00007, + .00000, .00023, .00024, + .18257, .04781, -.02797, .00077, -.00006, + .00000, .00020, .00023, + .17520, .04574, -.02653, .00073, -.00005, + .00000, .00020, .00023, + .16071, .04161, -.02368, .00062, -.00003, + .00000, .00019, .00022, + .14953, .03849, -.02151, .00056, -.00003, + -.00005, .00018, .00022, + .13805, .03532, -.01945, .00051, -.00002, + -.00003, .00018, .00020, + .12719, .03233, -.01747, .00047, -.00001, + -.00002, .00016, .00021, + .11820, .02989, -.01581, .00042, .00000, + -.00001, .00014, .00018 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .10987, .02765, -.01430, .00039, .00000, + -.00001, .00013, .00016, + .10344, .02592, -.01316, .00039, .00000, + -.00001, .00012, .00015, + .09626, .02398, -.01187, .00034, .00000, + -.00001, .00011, .00014, + .09037, .02242, -.01085, .00031, .00001, + .00000, .00010, .00013, + .08532, .02110, -.00996, .00030, .00001, + .00000, .00008, .00012, + .07940, .01954, -.00898, .00026, .00001, + .00000, .00009, .00011, + .07424, .01818, -.00813, .00025, .00001, + .00000, .00008, .00011, + .06976, .01703, -.00741, .00024, .00001, + .00000, .00008, .00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06558, .01593, -.00675, .00022, .00001, + .00000, .00007, .00008, + .06176, .01496, -.00616, .00021, .00001, + .00000, .00005, .00008, + .05839, .01410, -.00565, .00021, .00002, + .00001, .00005, .00007, + .05539, .01334, -.00522, .00018, .00002, + .00001, .00006, .00007, + .05258, .01260, -.00482, .00015, .00002, + .00001, .00006, .00007, + .04995, .01194, -.00445, .00015, .00002, + .00001, .00006, .00006, + .04759, .01134, -.00411, .00014, .00002, + .00001, .00006, .00004, + .04547, .01081, -.00382, .00013, .00001, + .00001, .00004, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04344, .01030, -.00356, .00013, .00001, + .00001, .00004, .00006, + .04152, .00983, -.00330, .00011, .00001, + .00001, .00004, .00004, + .03978, .00940, -.00309, .00012, .00001, + .00001, .00003, .00004, + .03821, .00900, -.00291, .00012, .00001, + .00001, .00003, .00005, + .03669, .00862, -.00271, .00010, .00001, + .00001, .00003, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .30126, .08031, -.06698, .00092, .00000, + .00000, .00022, .00027, + .27867, .07372, -.06105, .00077, .00000, + .00000, .00019, .00027, + .24906, .06515, -.05313, .00072, -.00018, + .00000, .00021, .00027, + .23013, .05977, -.04843, .00068, -.00015, + .00000, .00023, .00024, + .21235, .05475, -.04386, .00057, -.00012, + .00000, .00022, .00020, + .19821, .05079, -.04029, .00053, -.00009, + .00000, .00019, .00024, + .18568, .04734, -.03711, .00051, -.00007, + .00000, .00019, .00022, + .17342, .04398, -.03398, .00050, -.00006, + .00000, .00018, .00019 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .16358, .04129, -.03144, .00043, -.00005, + .00000, .00018, .00016, + .15470, .03888, -.02921, .00041, -.00004, + .00000, .00017, .00018, + .14807, .03709, -.02752, .00037, -.00004, + .00000, .00015, .00017, + .13504, .03357, -.02426, .00035, -.00003, + .00000, .00014, .00016, + .12506, .03092, -.02186, .00032, -.00002, + -.00003, .00014, .00014, + .11493, .02825, -.01950, .00028, -.00001, + -.00002, .00012, .00012, + .10538, .02575, -.01734, .00025, -.00001, + -.00001, .00010, .00010, + .09751, .02369, -.01559, .00024, -.00001, + -.00001, .00011, .00009 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .09024, .02182, -.01398, .00023, .00000, + .00000, .00010, .00008, + .08470, .02038, -.01280, .00020, .00000, + .00000, .00008, .00010, + .07849, .01880, -.01148, .00019, .00000, + .00000, .00008, .00008, + .07342, .01751, -.01042, .00018, .00000, + .00000, .00007, .00007, + .06912, .01643, -.00955, .00018, .00000, + .00000, .00007, .00007, + .06407, .01515, -.00855, .00015, .00000, + .00000, .00006, .00006, + .05969, .01405, -.00771, .00014, .00000, + .00000, .00006, .00006, + .05588, .01311, -.00700, .00014, .00001, + .00001, .00006, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05238, .01224, -.00635, .00012, .00001, + .00001, .00005, .00006, + .04918, .01145, -.00577, .00011, .00001, + .00001, .00005, .00005, + .04635, .01077, -.00528, .00011, .00001, + .00001, .00005, .00005, + .04386, .01014, -.00484, .00010, .00001, + .00001, .00003, .00005, + .04152, .00957, -.00445, .00008, .00001, + .00001, .00003, .00003, + .03933, .00904, -.00410, .00008, .00001, + .00001, .00003, .00003, + .03738, .00857, -.00379, .00007, .00001, + .00001, .00003, .00003, + .03561, .00815, -.00352, .00007, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03394, .00775, -.00327, .00007, .00001, + .00001, .00003, .00003, + .03237, .00737, -.00303, .00007, .00001, + .00001, .00003, .00003, + .03095, .00703, -.00282, .00006, .00001, + .00001, .00002, .00003, + .02968, .00672, -.00263, .00006, .00001, + .00001, .00002, .00002, + .02843, .00643, -.00247, .00006, .00001, + .00001, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .22537, .05519, -.07247, .00032, .00000, + .00000, .00008, .00007, + .20606, .05012, -.06471, .00037, .00000, + .00000, .00008, .00004, + .18128, .04368, -.05476, .00029, -.00007, + .00000, .00009, .00005, + .16574, .03966, -.04883, .00025, -.00006, + .00000, .00007, .00010, + .15128, .03592, -.04340, .00023, -.00005, + .00000, .00007, .00011, + .13994, .03307, -.03917, .00023, -.00004, + .00000, .00006, .00009, + .13003, .03058, -.03547, .00021, -.00003, + .00000, .00004, .00006, + .12046, .02814, -.03204, .00018, -.00003, + .00000, .00006, .00007 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .11277, .02622, -.02931, .00016, -.00002, + .00000, .00004, .00008, + .10590, .02451, -.02687, .00014, -.00002, + .00000, .00004, .00006, + .10081, .02327, -.02513, .00015, -.00002, + .00000, .00005, .00005, + .09091, .02084, -.02178, .00014, -.00001, + .00000, .00005, .00005, + .08345, .01902, -.01937, .00013, -.00001, + -.00001, .00005, .00005, + .07593, .01721, -.01699, .00010, -.00001, + -.00001, .00003, .00003, + .06893, .01553, -.01490, .00009, -.00001, + -.00001, .00003, .00003, + .06320, .01417, -.01318, .00008, -.00001, + -.00001, .00002, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05798, .01293, -.01172, .00008, -.00001, + -.00001, .00003, .00004, + .05404, .01200, -.01059, .00007, .00000, + .00000, .00003, .00002, + .04966, .01098, -.00940, .00007, .00000, + .00000, .00002, .00002, + .04612, .01014, -.00846, .00005, .00000, + .00000, .00003, .00002, + .04313, .00946, -.00768, .00005, .00000, + .00000, .00003, .00002, + .03963, .00866, -.00681, .00005, .00000, + .00000, .00001, .00001, + .03666, .00797, -.00607, .00004, .00000, + .00000, .00001, .00001, + .03409, .00739, -.00546, .00004, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .03171, .00684, -.00493, .00004, .00000, + .00000, .00001, .00001, + .02958, .00636, -.00445, .00004, .00000, + .00000, .00001, .00001, + .02773, .00594, -.00404, .00002, .00000, + .00000, .00001, .00001, + .02609, .00557, -.00369, .00002, .00000, + .00000, .00001, .00001, + .02454, .00522, -.00337, .00002, .00000, + .00000, .00001, .00001, + .02312, .00491, -.00308, .00002, .00000, + .00000, .00001, .00001, + .02185, .00463, -.00285, .00003, .00000, + .00000, .00001, .00001, + .02073, .00438, -.00263, .00003, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01967, .00414, -.00244, .00003, .00000, + .00000, .00001, .00001, + .01867, .00392, -.00225, .00002, .00000, + .00000, .00001, .00001, + .01778, .00373, -.00209, .00002, .00000, + .00000, .00001, .00001, + .01697, .00356, -.00195, .00002, .00000, + .00000, .00001, .00001, + .01619, .00338, -.00182, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .15664, .03502, -.06397, .00012, .00000, + .00000, .00001, .00003, + .14167, .03144, -.05620, .00008, .00000, + .00000, .00001, .00004, + .12257, .02696, -.04659, .00010, -.00003, + .00000, .00000, .00002, + .11084, .02421, -.04091, .00011, -.00002, + .00000, .00003, -.00002, + .09999, .02171, -.03577, .00010, -.00002, + .00000, .00001, -.00001, + .09164, .01978, -.03193, .00008, -.00001, + .00000, .00003, -.00001, + .08438, .01812, -.02865, .00008, -.00001, + .00000, .00003, .00002, + .07740, .01655, -.02554, .00006, -.00001, + .00000, .00001, .00003 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .07190, .01531, -.02313, .00006, -.00001, + .00000, .00001, .00001, + .06703, .01421, -.02105, .00006, -.00001, + .00000, .00001, .00001, + .06346, .01340, -.01953, .00004, -.00001, + .00000, .00001, .00001, + .05652, .01186, -.01668, .00004, .00000, + .00000, .00001, .00001, + .05138, .01073, -.01466, .00002, .00000, + .00000, .00001, .00001, + .04625, .00959, -.01275, .00004, .00000, + .00000, .00001, .00001, + .04152, .00856, -.01100, .00002, .00000, + .00000, .00001, .00001, + .03770, .00774, -.00965, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .03428, .00701, -.00846, .00003, .00000, + .00000, .00000, .00000, + .03170, .00646, -.00758, .00001, .00000, + .00000, .00000, .00001, + .02886, .00584, -.00669, .00001, .00000, + .00000, .00001, .00001, + .02658, .00538, -.00597, .00001, .00000, + .00000, .00000, .00001, + .02468, .00496, -.00537, .00001, .00000, + .00000, .00000, .00001, + .02249, .00450, -.00471, .00001, .00000, + .00000, .00000, .00000, + .02063, .00411, -.00418, .00001, .00000, + .00000, .00000, .00000, + .01904, .00378, -.00374, .00001, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01758, .00348, -.00333, .00001, .00000, + .00000, .00000, .00000, + .01628, .00321, -.00299, .00001, .00000, + .00000, .00000, .00000, + .01515, .00298, -.00270, .00001, .00000, + .00000, .00000, .00000, + .01416, .00278, -.00245, .00001, .00000, + .00000, .00000, .00000, + .01324, .00259, -.00222, .00001, .00000, + .00000, .00000, .00000, + .01241, .00242, -.00203, .00001, .00000, + .00000, .00000, .00000, + .01167, .00227, -.00185, .00000, .00000, + .00000, .00000, .00000, + .01100, .00213, -.00170, .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=33,37)/ + .01038, .00200, -.00156, .00000, .00000, + .00000, .00000, .00000, + .00980, .00189, -.00145, .00001, .00000, + .00000, .00000, .00000, + .00929, .00179, -.00134, .00001, .00000, + .00000, .00000, .00000, + .00882, .00169, -.00124, .00001, .00000, + .00000, .00000, .00000, + .00838, .00160, -.00114, .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,8)/ + .09927, .02001, -.04823, .00007, .00000, + .00000, -.00001, -.00001, + .08860, .01775, -.04180, .00007, .00000, + .00000, -.00001, -.00001, + .07533, .01495, -.03400, .00004, -.00001, + .00000, -.00001, -.00001, + .06723, .01328, -.02949, .00004, -.00001, + .00000, -.00001, .00002, + .05992, .01176, -.02545, .00002, .00000, + .00000, .00000, .00002, + .05432, .01061, -.02243, .00002, .00000, + .00000, .00000, .00002, + .04952, .00962, -.01991, .00002, .00000, + .00000, .00000, .00002, + .04498, .00870, -.01756, .00002, .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=9,16)/ + .04141, .00798, -.01577, .00002, .00000, + .00000, .00000, .00000, + .03826, .00733, -.01421, .00002, .00000, + .00000, .00000, .00000, + .03597, .00689, -.01310, .00002, .00000, + .00000, .00000, .00000, + .03163, .00602, -.01106, .00002, .00000, + .00000, .00000, .00000, + .02842, .00538, -.00961, .00002, .00000, + .00000, .00000, .00000, + .02529, .00475, -.00824, .00002, .00000, + .00000, .00000, .00000, + .02242, .00419, -.00704, .00002, .00000, + .00000, .00000, .00000, + .02015, .00375, -.00611, .00002, .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=17,24)/ + .01812, .00336, -.00530, .00000, .00000, + .00000, .00000, .00000, + .01661, .00306, -.00472, .00002, .00000, + .00000, .00000, .00000, + .01496, .00275, -.00409, .00000, .00000, + .00000, .00000, .00000, + .01366, .00249, -.00362, .00000, .00000, + .00000, .00000, .00000, + .01260, .00230, -.00324, .00000, .00000, + .00000, .00000, .00000, + .01136, .00206, -.00282, .00000, .00000, + .00000, .00000, .00000, + .01031, .00187, -.00247, .00000, .00000, + .00000, .00000, .00000, + .00943, .00170, -.00219, .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=25,32)/ + .00863, .00156, -.00194, .00000, .00000, + .00000, .00000, .00000, + .00794, .00142, -.00173, .00000, .00000, + .00000, .00000, .00000, + .00734, .00131, -.00156, .00000, .00000, + .00000, .00000, .00000, + .00680, .00121, -.00140, .00000, .00000, + .00000, .00000, .00000, + .00632, .00112, -.00127, .00000, .00000, + .00000, .00000, .00000, + .00588, .00104, -.00114, .00000, .00000, + .00000, .00000, .00000, + .00549, .00097, -.00104, .00000, .00000, + .00000, .00000, .00000, + .00515, .00091, -.00095, .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=33,37)/ + .00483, .00084, -.00086, .00000, .00000, + .00000, .00000, .00000, + .00454, .00079, -.00080, .00000, .00000, + .00000, .00000, .00000, + .00427, .00075, -.00073, .00000, .00000, + .00000, .00000, .00000, + .00404, .00070, -.00068, .00000, .00000, + .00000, .00000, .00000, + .00382, .00066, -.00062, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .05502, .00971, -.03053, .00000, .00000, + .00000, .00000, .00000, + .04842, .00852, -.02614, .00000, .00000, + .00000, .00000, .00000, + .04032, .00705, -.02089, .00000, .00000, + .00000, .00000, .00000, + .03548, .00617, -.01786, .00000, .00000, + .00000, .00000, .00000, + .03116, .00539, -.01520, .00000, .00000, + .00000, .00000, .00000, + .02792, .00483, -.01329, .00000, .00000, + .00000, .00000, .00000, + .02515, .00430, -.01162, .00000, .00000, + .00000, .00000, .00000, + .02257, .00386, -.01017, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/ + .02056, .00352, -.00906, .00000, .00000, + .00000, .00000, .00000, + .01882, .00321, -.00808, .00000, .00000, + .00000, .00000, .00000, + .01757, .00300, -.00741, .00000, .00000, + .00000, .00000, .00000, + .01520, .00255, -.00614, .00000, .00000, + .00000, .00000, .00000, + .01348, .00226, -.00528, .00000, .00000, + .00000, .00000, .00000, + .01182, .00198, -.00446, .00000, .00000, + .00000, .00000, .00000, + .01033, .00172, -.00375, .00000, .00000, + .00000, .00000, .00000, + .00916, .00152, -.00322, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ + .00814, .00134, -.00277, .00000, .00000, + .00000, .00000, .00000, + .00738, .00122, -.00244, .00000, .00000, + .00000, .00000, .00000, + .00657, .00108, -.00210, .00000, .00000, + .00000, .00000, .00000, + .00593, .00096, -.00184, .00000, .00000, + .00000, .00000, .00000, + .00541, .00088, -.00162, .00000, .00000, + .00000, .00000, .00000, + .00482, .00078, -.00140, .00000, .00000, + .00000, .00000, .00000, + .00433, .00070, -.00122, .00000, .00000, + .00000, .00000, .00000, + .00392, .00063, -.00106, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00356, .00056, -.00093, .00000, .00000, + .00000, .00000, .00000, + .00323, .00052, -.00082, .00000, .00000, + .00000, .00000, .00000, + .00296, .00047, -.00073, .00000, .00000, + .00000, .00000, .00000, + .00272, .00044, -.00065, .00000, .00000, + .00000, .00000, .00000, + .00250, .00040, -.00058, .00000, .00000, + .00000, .00000, .00000, + .00231, .00037, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00215, .00034, -.00048, .00000, .00000, + .00000, .00000, .00000, + .00200, .00031, -.00043, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00187, .00030, -.00039, .00000, .00000, + .00000, .00000, .00000, + .00174, .00027, -.00036, .00000, .00000, + .00000, .00000, .00000, + .00163, .00026, -.00032, .00000, .00000, + .00000, .00000, .00000, + .00153, .00023, -.00030, .00000, .00000, + .00000, .00000, .00000, + .00143, .00022, -.00027, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00785, .00104, -.00553, .00000, .00000, + .00000, .00000, .00000, + .00662, .00086, -.00454, .00000, .00000, + .00000, .00000, .00000, + .00518, .00067, -.00342, .00000, .00000, + .00000, .00000, .00000, + .00438, .00057, -.00282, .00000, .00000, + .00000, .00000, .00000, + .00367, .00048, -.00230, .00000, .00000, + .00000, .00000, .00000, + .00317, .00039, -.00193, .00000, .00000, + .00000, .00000, .00000, + .00277, .00036, -.00166, .00000, .00000, + .00000, .00000, .00000, + .00238, .00031, -.00139, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00211, .00026, -.00120, .00000, .00000, + .00000, .00000, .00000, + .00189, .00023, -.00105, .00000, .00000, + .00000, .00000, .00000, + .00172, .00021, -.00095, .00000, .00000, + .00000, .00000, .00000, + .00142, .00018, -.00076, .00000, .00000, + .00000, .00000, .00000, + .00122, .00015, -.00063, .00000, .00000, + .00000, .00000, .00000, + .00102, .00013, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00086, .00011, -.00042, .00000, .00000, + .00000, .00000, .00000, + .00074, .00009, -.00035, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00062, .00007, -.00028, .00000, .00000, + .00000, .00000, .00000, + .00056, .00007, -.00025, .00000, .00000, + .00000, .00000, .00000, + .00047, .00005, -.00020, .00000, .00000, + .00000, .00000, .00000, + .00041, .00005, -.00017, .00000, .00000, + .00000, .00000, .00000, + .00037, .00005, -.00015, .00000, .00000, + .00000, .00000, .00000, + .00032, .00003, -.00012, .00000, .00000, + .00000, .00000, .00000, + .00027, .00003, -.00010, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, -.00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00022, .00003, -.00008, .00000, .00000, + .00000, .00000, .00000, + .00019, .00003, -.00007, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00009, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-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,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor01dis.dat',status='old') do 20 n=1,nx-1 do 20 m=1,nq C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m), C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m) c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea do 25 i=1,np 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)/xx(ntenth))+xx(ntenth) do 31 i=1,8 if(i.eq.5.or.i.eq.7) goto 31 do 30 k=1,nq 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) 31 continue 50 format(8f10.5) do 40 i=1,np do 40 m=1,nq 40 f(i,nx,m)=ZEROD init=1 10 continue if(x.lt.xmin) x=xmin if(x.gt.xmax) x=xmax if(qsq.lt.qsqmin) qsq=qsqmin if(qsq.gt.qsqmax) qsq=qsqmax xxx=x if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth) n=0 70 n=n+1 if(xxx.gt.xx(n+1)) goto 70 a=(xxx-xx(n))/(xx(n+1)-xx(n)) m=0 80 m=m+1 if(qsq.gt.qq(m+1)) goto 80 b=(qsq-qq(m))/(qq(m+1)-qq(m)) do 60 i=1,np 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.5.or.i.eq.7) goto 65 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1) g(i)=fac*10d0**(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 qsq=q2save return end