#include "pdf/pilot.h" SUBROUTINE SFMSR1(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 #if defined(CERNLIB_DOUBLE) DOUBLE PRECISION #endif #if defined(CERNLIB_SINGLE) REAL #endif + 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)/ + .00150, .00820, 1.27651, .47232, .00361, + .00000, .26825, .47591, + .00164, .00829, 2.51076, .54184, .00842, + .00000, .32962, .54574, + .00186, .00842, 5.15239, .66876, .02078, + .00000, .44176, .67312, + .00202, .00852, 7.60560, .78049, .03596, + .00000, .54082, .78518, + .00218, .00863, 10.75238, .91570, .06054, + .00000, .66140, .92073, + .00233, .00872, 13.97310, 1.04723, .09196, + .00000, .77960, 1.05255, + .00248, .00880, 17.38378, 1.18507, .13419, + .00000, .90471, 1.19066, + .00263, .00889, 21.60102, 1.34504, .19659, + .00000, 1.05170, 1.35091 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00277, .00897, 25.71856, 1.49464, .26966, + .00000, 1.19120, 1.50075, + .00290, .00905, 30.04072, 1.64629, .36031, + .00000, 1.33493, 1.65265, + .00301, .00912, 33.83256, 1.77280, .44901, + .00000, 1.45665, 1.77933, + .00323, .00925, 42.72836, 2.05508, .69411, + .00000, 1.73491, 2.06200, + .00344, .00937, 51.41478, 2.31292, .97263, + .08206, 1.99679, 2.32016, + .00366, .00950, 62.32519, 2.62014, 1.35857, + .34230, 2.31645, 2.62773, + .00390, .00964, 75.04426, 2.96732, 1.83495, + .76585, 2.68330, 2.97528, + .00412, .00976, 87.89626, 3.31593, 2.32213, + 1.16297, 3.05277, 3.32420 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00435, .00989, 101.95473, 3.70341, 2.85158, + 1.60616, 3.46160, 3.71199, + .00454, .01000, 114.59903, 4.05840, 3.31499, + 2.00384, 3.83294, 4.06724, + .00477, .01013, 131.23253, 4.53483, 3.90384, + 2.52600, 4.32645, 4.54397, + .00498, .01025, 146.98965, 4.99712, 4.44615, + 3.02310, 4.80107, 5.00653, + .00518, .01036, 162.32021, 5.45550, 4.96222, + 3.50873, 5.26849, 5.46514, + .00543, .01050, 183.20419, 6.08918, 5.65019, + 4.17132, 5.91093, 6.09911, + .00567, .01063, 204.04591, 6.73289, 6.32948, + 4.83757, 6.56064, 6.74309, + .00589, .01075, 224.70506, 7.37940, 6.99909, + 5.50208, 7.21129, 7.38984 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00612, .01088, 246.71046, 8.07342, 7.70902, + 6.21185, 7.90842, 8.08411, + .00635, .01101, 269.03000, 8.78754, 8.43387, + 6.93984, 8.62487, 8.79846, + .00656, .01112, 291.36292, 9.50638, 9.15980, + 7.67077, 9.34546, 9.51751, + .00677, .01124, 313.19193, 10.21589, 9.87416, + 8.39103, 10.05634, 10.22721, + .00698, .01135, 336.06308, 10.96444, 10.62638, + 9.14992, 10.80610, 10.97596, + .00718, .01147, 359.35037, 11.73321, 11.39798, + 9.92851, 11.57593, 11.74491, + .00738, .01158, 382.31967, 12.49669, 12.16367, + 10.70110, 12.34034, 12.50857, + .00757, .01168, 404.63406, 13.24494, 12.91373, + 11.45779, 13.08942, 13.25698 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .00777, .01178, 428.05157, 14.03363, 13.70408, + 12.25486, 13.87892, 14.04584, + .00796, .01189, 451.47595, 14.83160, 14.50354, + 13.06099, 14.67765, 14.84395, + .00814, .01199, 474.82428, 15.62897, 15.30227, + 13.86604, 15.47575, 15.64148, + .00832, .01209, 497.14151, 16.39982, 16.07436, + 14.64411, 16.24726, 16.41246, + .00850, .01219, 520.44489, 17.20842, 16.88418, + 15.45994, 17.05652, 17.22120 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00302, .00997, 1.37009, .43396, .00331, + .00000, .24514, .43707, + .00322, .01010, 2.53859, .49645, .00764, + .00000, .30021, .49977, + .00353, .01028, 4.92867, .60861, .01861, + .00000, .39919, .61223, + .00375, .01042, 7.08166, .70567, .03192, + .00000, .48520, .70951, + .00399, .01056, 9.78428, .82162, .05326, + .00000, .58857, .82569, + .00420, .01068, 12.50101, .93309, .08030, + .00000, .68877, .93736, + .00440, .01080, 15.33646, 1.04857, .11635, + .00000, .79364, 1.05301, + .00461, .01093, 18.79419, 1.18129, .16922, + .00000, .91572, 1.18592 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00480, .01104, 22.12853, 1.30418, .23068, + .00000, 1.03051, 1.30898, + .00499, .01115, 25.59074, 1.42761, .30643, + .00000, 1.14776, 1.43257, + .00514, .01123, 28.60125, 1.52981, .38013, + .00000, 1.24638, 1.53489, + .00545, .01142, 35.57806, 1.75536, .58206, + .00000, 1.46959, 1.76069, + .00573, .01157, 42.29364, 1.95870, .80917, + .06534, 1.67720, 1.96425, + .00605, .01175, 50.61731, 2.19817, 1.12053, + .27098, 1.92789, 2.20395, + .00638, .01194, 60.18987, 2.46583, 1.50028, + .60330, 2.21254, 2.47186, + .00668, .01211, 69.74239, 2.73221, 1.88398, + .91134, 2.49654, 2.73846 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .00700, .01228, 80.06973, 3.02602, 2.29604, + 1.25201, 2.80809, 3.03248, + .00726, .01243, 89.26488, 3.29352, 2.65279, + 1.55515, 3.08903, 3.30015, + .00758, .01261, 101.24441, 3.65035, 3.10128, + 1.94998, 3.45978, 3.65719, + .00787, .01276, 112.48016, 3.99434, 3.50989, + 2.32280, 3.81372, 4.00135, + .00813, .01291, 123.31759, 4.33339, 3.89521, + 2.68440, 4.16002, 4.34056, + .00847, .01310, 137.95073, 4.79913, 4.40415, + 3.17410, 4.63273, 4.80650, + .00880, .01327, 152.41275, 5.26880, 4.90196, + 3.66254, 5.10716, 5.27635, + .00910, .01344, 166.62314, 5.73732, 5.38865, + 4.14613, 5.57895, 5.74504 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .00941, .01361, 181.64133, 6.23711, 5.90091, + 4.65920, 6.08119, 6.24500, + .00972, .01377, 196.74548, 6.74796, 6.42014, + 5.18180, 6.59388, 6.75600, + .01001, .01393, 211.75232, 7.25916, 6.93690, + 5.70332, 7.10647, 7.26735, + .01029, .01408, 226.31653, 7.76082, 7.44237, + 6.21418, 7.60922, 7.76914, + .01057, .01423, 241.47786, 8.28725, 7.97170, + 6.74948, 8.13662, 8.29571, + .01085, .01438, 256.81439, 8.82499, 8.51169, + 7.29567, 8.67520, 8.83358, + .01112, .01452, 271.85089, 9.35636, 9.04484, + 7.83489, 9.20732, 9.36507, + .01138, .01466, 286.37207, 9.87457, 9.56453, + 8.36039, 9.72621, 9.88339 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01164, .01480, 301.53430, 10.41844, 10.10974, + 8.91149, 10.27074, 10.42738, + .01190, .01493, 316.60855, 10.96602, 10.65855, + 9.46611, 10.81893, 10.97506, + .01215, .01507, 331.56818, 11.51106, 11.20471, + 10.01779, 11.36456, 11.52021, + .01239, .01519, 345.78561, 12.03560, 11.73028, + 10.54856, 11.88965, 12.04484, + .01263, .01532, 360.56714, 12.58379, 12.27948, + 11.10299, 12.43838, 12.59313 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00528, .01213, 1.47075, .39836, .00303, + .00000, .22399, .40115, + .00557, .01230, 2.56714, .45448, .00693, + .00000, .27336, .45740, + .00600, .01256, 4.71504, .55344, .01666, + .00000, .36060, .55656, + .00632, .01274, 6.59385, .63756, .02831, + .00000, .43510, .64081, + .00665, .01294, 8.90274, .73672, .04681, + .00000, .52348, .74012, + .00695, .01310, 11.18264, .83090, .07003, + .00000, .60815, .83441, + .00723, .01327, 13.52799, .92729, .10074, + .00000, .69575, .93091, + .00753, .01344, 16.34862, 1.03697, .14544, + .00000, .79677, 1.04072 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .00780, .01359, 19.03495, 1.13751, .19703, + .00000, .89084, 1.14135, + .00806, .01373, 21.79394, 1.23751, .26017, + .00000, .98608, 1.24146, + .00826, .01385, 24.17163, 1.31969, .32126, + .00000, 1.06564, 1.32371, + .00871, .01410, 29.61423, 1.49898, .48724, + .00000, 1.24385, 1.50316, + .00909, .01431, 34.77762, 1.65845, .67196, + .05182, 1.40762, 1.66277, + .00953, .01455, 41.09204, 1.84400, .92249, + .21369, 1.60321, 1.84847, + .00999, .01480, 48.25468, 2.04909, 1.22436, + .47340, 1.82290, 2.05371, + .01041, .01503, 55.31235, 2.25139, 1.52566, + .71138, 2.04002, 2.25614 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01084, .01526, 62.85176, 2.47281, 1.84530, + .97214, 2.27615, 2.47770, + .01120, .01546, 69.49609, 2.67318, 2.11896, + 1.20224, 2.48753, 2.67818, + .01164, .01569, 78.06766, 2.93889, 2.45921, + 1.49950, 2.76454, 2.94402, + .01204, .01591, 86.02574, 3.19338, 2.76578, + 1.77786, 3.02705, 3.19863, + .01240, .01610, 93.63403, 3.44274, 3.05216, + 2.04589, 3.28220, 3.44809, + .01287, .01635, 103.81516, 3.78310, 3.42685, + 2.40614, 3.62811, 3.78858, + .01331, .01658, 113.77729, 4.12384, 3.78979, + 2.76252, 3.97260, 4.12944, + .01373, .01680, 123.47881, 4.46143, 4.14164, + 3.11276, 4.31277, 4.46713 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01415, .01702, 133.65033, 4.81928, 4.50925, + 3.48181, 4.67254, 4.82509, + .01457, .01724, 143.79108, 5.18256, 4.87908, + 3.85507, 5.03726, 5.18847, + .01497, .01745, 153.79414, 5.54394, 5.24481, + 4.22526, 5.39974, 5.54995, + .01534, .01765, 163.43129, 5.89651, 5.60036, + 4.58571, 5.75317, 5.90261, + .01573, .01784, 173.39726, 6.26447, 5.97062, + 4.96129, 6.12189, 6.27065, + .01611, .01804, 183.41074, 6.63827, 6.34622, + 5.34238, 6.49638, 6.64455, + .01647, .01823, 193.16772, 7.00577, 6.71514, + 5.71664, 6.86447, 7.01212, + .01681, .01841, 202.53276, 7.36239, 7.07296, + 6.07955, 7.22164, 7.36882 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .01716, .01859, 212.26091, 7.73504, 7.44670, + 6.45844, 7.59481, 7.74154, + .01751, .01877, 221.87061, 8.10832, 7.82100, + 6.83781, 7.96860, 8.11490, + .01785, .01894, 231.36542, 8.47846, 8.19205, + 7.21367, 8.33920, 8.48510, + .01817, .01910, 240.33441, 8.83298, 8.54743, + 7.57359, 8.69417, 8.83969, + .01849, .01927, 249.61873, 9.20211, 8.91739, + 7.94811, 9.06373, 9.20888 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .00706, .01361, 1.53322, .37869, .00288, + .00000, .21247, .38141, + .00742, .01382, 2.58435, .43136, .00654, + .00000, .25875, .43416, + .00795, .01412, 4.59470, .52325, .01562, + .00000, .33971, .52620, + .00834, .01434, 6.32426, .60052, .02638, + .00000, .40812, .60356, + .00875, .01457, 8.42389, .69087, .04338, + .00000, .48865, .69402, + .00911, .01477, 10.47581, .77604, .06460, + .00000, .56524, .77929, + .00945, .01497, 12.56889, .86259, .09253, + .00000, .64394, .86592, + .00982, .01517, 15.06571, .96050, .13300, + .00000, .73418, .96391 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01015, .01535, 17.42632, 1.04968, .17951, + .00000, .81773, 1.05317, + .01046, .01552, 19.83518, 1.13789, .23621, + .00000, .90187, 1.14145, + .01071, .01566, 21.90024, 1.21004, .29088, + .00000, .97187, 1.21366, + .01125, .01595, 26.59290, 1.36636, .43866, + .00000, 1.12769, 1.37010, + .01172, .01621, 31.00678, 1.50427, .60213, + .04515, 1.26985, 1.50811, + .01225, .01649, 36.36189, 1.66357, .82242, + .18557, 1.43853, 1.66752, + .01281, .01679, 42.38701, 1.83848, 1.08596, + .40993, 1.62678, 1.84255, + .01332, .01706, 48.27945, 2.01011, 1.34707, + .61411, 1.81179, 2.01428 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01384, .01734, 54.52941, 2.19714, 1.62208, + .83662, 2.01197, 2.20141, + .01427, .01757, 60.00384, 2.36578, 1.85595, + 1.03199, 2.19041, 2.37014, + .01481, .01785, 67.02507, 2.58867, 2.14481, + 1.28317, 2.42329, 2.59313, + .01528, .01810, 73.50425, 2.80136, 2.40335, + 1.51723, 2.64302, 2.80590, + .01572, .01832, 79.66604, 3.00904, 2.64348, + 1.74163, 2.85578, 3.01365, + .01628, .01862, 87.86759, 3.29146, 2.95588, + 2.04189, 3.14304, 3.29618, + .01681, .01889, 95.84486, 3.57298, 3.25671, + 2.33749, 3.42783, 3.57779, + .01731, .01915, 103.57189, 3.85078, 3.54688, + 2.62671, 3.70787, 3.85567 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .01782, .01941, 111.63496, 4.14416, 3.84871, + 2.93024, 4.00292, 4.14914, + .01832, .01967, 119.63110, 4.44078, 4.15099, + 3.23595, 4.30079, 4.44583, + .01879, .01991, 127.48499, 4.73483, 4.44881, + 3.53803, 4.59579, 4.73996, + .01924, .02014, 135.01810, 5.02069, 4.73727, + 3.83111, 4.88242, 5.02590, + .01970, .02037, 142.77744, 5.31808, 5.03667, + 4.13548, 5.18047, 5.32336, + .02015, .02060, 150.54222, 5.61922, 5.33937, + 4.44329, 5.48220, 5.62455, + .02058, .02082, 158.08008, 5.91437, 5.63578, + 4.74464, 5.77788, 5.91977, + .02099, .02103, 165.28799, 6.19994, 5.92241, + 5.03599, 6.06392, 6.20540 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02141, .02124, 172.75272, 6.49756, 6.22101, + 5.33934, 6.36201, 6.50308, + .02182, .02145, 180.09729, 6.79480, 6.51915, + 5.64217, 6.65969, 6.80038, + .02222, .02165, 187.33549, 7.08885, 6.81402, + 5.94148, 6.95415, 7.09448, + .02260, .02184, 194.14720, 7.36971, 7.09564, + 6.22729, 7.23540, 7.37539, + .02299, .02204, 201.18002, 7.66148, 7.38817, + 6.52402, 7.52756, 7.66722 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .00859, .01478, 1.57929, .36523, .00278, + .00000, .20465, .36793, + .00899, .01501, 2.59688, .41555, .00628, + .00000, .24885, .41833, + .00961, .01535, 4.51139, .50268, .01491, + .00000, .32559, .50558, + .01006, .01560, 6.13971, .57538, .02509, + .00000, .38994, .57836, + .01053, .01586, 8.09954, .65988, .04108, + .00000, .46527, .66295, + .01095, .01609, 10.00087, .73913, .06099, + .00000, .53654, .74227, + .01134, .01631, 11.92878, .81923, .08708, + .00000, .60940, .82244, + .01177, .01654, 14.21527, .90945, .12477, + .00000, .69261, .91273 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01215, .01674, 16.36580, .99128, .16795, + .00000, .76934, .99461, + .01251, .01694, 18.55020, 1.07185, .22044, + .00000, .84630, 1.07525, + .01280, .01709, 20.41583, 1.13755, .27094, + .00000, .91014, 1.14099, + .01342, .01742, 24.63322, 1.27918, .40694, + .00000, 1.05162, 1.28272, + .01396, .01771, 28.57582, 1.40338, .55671, + .04090, 1.18003, 1.40700, + .01457, .01803, 33.33201, 1.54610, .75763, + .16770, 1.33166, 1.54982, + .01520, .01837, 38.65208, 1.70205, .99676, + .36972, 1.50011, 1.70586, + .01579, .01867, 43.82704, 1.85452, 1.23245, + .55266, 1.66501, 1.85841 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .01638, .01898, 49.28793, 2.02013, 1.47938, + .75125, 1.84277, 2.02411, + .01688, .01924, 54.05032, 2.16910, 1.68837, + .92499, 2.00075, 2.17315, + .01749, .01956, 60.13276, 2.36553, 1.94525, + 1.14761, 2.20634, 2.36966, + .01803, .01983, 65.72110, 2.55247, 2.17406, + 1.35431, 2.39971, 2.55668, + .01853, .02009, 71.01545, 2.73457, 2.38570, + 1.55188, 2.58643, 2.73884, + .01917, .02042, 78.03543, 2.98157, 2.65991, + 1.81539, 2.83782, 2.98592, + .01977, .02073, 84.83403, 3.22701, 2.92284, + 2.07391, 3.08623, 3.23144, + .02034, .02102, 91.39390, 3.46852, 3.17552, + 2.32604, 3.32976, 3.47302 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02092, .02131, 98.21572, 3.72290, 3.43753, + 2.58990, 3.58565, 3.72747, + .02148, .02160, 104.95483, 3.97933, 3.69908, + 2.85484, 3.84322, 3.98397, + .02202, .02187, 111.55376, 4.23291, 3.95606, + 3.11595, 4.09767, 4.23762, + .02253, .02213, 117.86292, 4.47882, 4.20432, + 3.36863, 4.34426, 4.48358, + .02305, .02239, 124.34293, 4.73404, 4.46136, + 3.63042, 4.60009, 4.73887, + .02356, .02265, 130.80826, 4.99188, 4.72063, + 3.89453, 4.85847, 4.99676, + .02405, .02289, 137.06776, 5.24404, 4.97395, + 4.15254, 5.11111, 5.24898, + .02452, .02312, 143.03712, 5.48749, 5.21838, + 4.40143, 5.35500, 5.49249 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02499, .02336, 149.20547, 5.74076, 5.47254, + 4.66009, 5.60869, 5.74580, + .02545, .02359, 155.25697, 5.99314, 5.72576, + 4.91774, 5.86147, 5.99823, + .02590, .02382, 161.20993, 6.24240, 5.97579, + 5.17196, 6.11112, 6.24755, + .02633, .02403, 166.79651, 6.48000, 6.21408, + 5.41422, 6.34907, 6.48519, + .02677, .02424, 172.55348, 6.72643, 6.46122, + 5.66532, 6.59587, 6.73167 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .00994, .01575, 1.61608, .35505, .00271, + .00000, .19878, .35778, + .01039, .01601, 2.60683, .40360, .00609, + .00000, .24142, .40641, + .01108, .01638, 4.44797, .48719, .01438, + .00000, .31502, .49009, + .01158, .01666, 6.00030, .55649, .02412, + .00000, .37637, .55946, + .01212, .01695, 7.85635, .63669, .03938, + .00000, .44785, .63973, + .01258, .01719, 9.64682, .71158, .05831, + .00000, .51522, .71468, + .01302, .01743, 11.45394, .78696, .08305, + .00000, .58380, .79012, + .01350, .01769, 13.58751, .87157, .11871, + .00000, .66189, .87480 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01392, .01791, 15.58610, .94805, .15945, + .00000, .73365, .95133, + .01432, .01812, 17.60889, 1.02310, .20888, + .00000, .80542, 1.02643, + .01464, .01829, 19.33144, 1.08414, .25633, + .00000, .86481, 1.08752, + .01534, .01866, 23.20960, 1.21520, .38379, + .00000, .99597, 1.21866, + .01594, .01897, 26.81769, 1.32960, .52366, + .03785, 1.11452, 1.33313, + .01661, .01933, 31.15104, 1.46051, .71064, + .15493, 1.25401, 1.46412, + .01732, .01969, 35.97602, 1.60302, .93228, + .34103, 1.40839, 1.60672, + .01797, .02003, 40.64968, 1.74194, 1.14984, + .50891, 1.55905, 1.74571 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .01863, .02037, 45.56176, 1.89248, 1.37684, + .69058, 1.72101, 1.89632, + .01918, .02065, 49.83081, 2.02764, 1.56823, + .84909, 1.86461, 2.03154, + .01985, .02100, 55.26529, 2.20553, 1.80259, + 1.05164, 2.05105, 2.20951, + .02045, .02130, 60.24118, 2.37449, 2.01055, + 1.23919, 2.22600, 2.37853, + .02101, .02158, 64.94121, 2.53876, 2.20227, + 1.41802, 2.39457, 2.54286, + .02171, .02194, 71.15443, 2.76112, 2.44987, + 1.65595, 2.62101, 2.76529, + .02238, .02228, 77.15127, 2.98155, 2.68649, + 1.88873, 2.84419, 2.98580, + .02301, .02260, 82.91988, 3.19797, 2.91325, + 2.11521, 3.06249, 3.20228 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02365, .02292, 88.90279, 3.42545, 3.14777, + 2.35168, 3.29137, 3.42983, + .02427, .02323, 94.79520, 3.65425, 3.38129, + 2.58855, 3.52121, 3.65868, + .02487, .02353, 100.55107, 3.88005, 3.61025, + 2.82153, 3.74782, 3.88455, + .02543, .02381, 106.04026, 4.09860, 3.83097, + 3.04653, 3.96701, 4.10315, + .02600, .02409, 111.66531, 4.32501, 4.05908, + 3.27920, 4.19399, 4.32962, + .02656, .02437, 117.26454, 4.55332, 4.28873, + 3.51350, 4.42280, 4.55798, + .02710, .02464, 122.67403, 4.77623, 4.51272, + 3.74199, 4.64616, 4.78094, + .02761, .02489, 127.82166, 4.99108, 4.72848, + 3.96203, 4.86142, 4.99584 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .02813, .02515, 133.13170, 5.21426, 4.95251, + 4.19037, 5.08500, 5.21907, + .02865, .02540, 138.32895, 5.43627, 5.17531, + 4.41741, 5.30739, 5.44113, + .02914, .02564, 143.43436, 5.65527, 5.39503, + 4.64115, 5.52675, 5.66017, + .02961, .02588, 148.21486, 5.86368, 5.60411, + 4.85401, 5.73549, 5.86862, + .03009, .02611, 153.13387, 6.07958, 5.82066, + 5.07436, 5.95173, 6.08457 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01530, .01924, 1.73691, .32481, .00248, + .00000, .18161, .32787, + .01595, .01958, 2.63966, .36819, .00552, + .00000, .21968, .37130, + .01693, .02009, 4.25790, .44145, .01285, + .00000, .28417, .44464, + .01765, .02046, 5.58722, .50100, .02134, + .00000, .33688, .50424, + .01840, .02084, 7.14470, .56890, .03448, + .00000, .39743, .57220, + .01905, .02118, 8.62104, .63146, .05064, + .00000, .45377, .63482, + .01968, .02149, 10.08978, .69359, .07156, + .00000, .51038, .69700, + .02035, .02183, 11.79946, .76260, .10148, + .00000, .57419, .76605 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02094, .02213, 13.38077, .82426, .13540, + .00000, .63222, .82776, + .02150, .02242, 14.96322, .88413, .17627, + .00000, .68969, .88767, + .02196, .02264, 16.29847, .93243, .21527, + .00000, .73690, .93600, + .02292, .02313, 19.26629, 1.03479, .31912, + .00000, .83998, 1.03843, + .02376, .02355, 21.98588, 1.12279, .43186, + .02962, .93195, 1.12649, + .02470, .02402, 25.20653, 1.22216, .58088, + .12057, 1.03888, 1.22594, + .02568, .02450, 28.74099, 1.32904, .75529, + .26410, 1.15589, 1.33289, + .02658, .02495, 32.11915, 1.43230, .92427, + .39201, 1.26896, 1.43622 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .02749, .02540, 35.62443, 1.54336, 1.09829, + .52911, 1.38943, 1.54734, + .02825, .02577, 38.63769, 1.64251, 1.24324, + .64768, 1.49545, 1.64654, + .02918, .02623, 42.43379, 1.77229, 1.41860, + .79791, 1.63216, 1.77639, + .03000, .02663, 45.87154, 1.89479, 1.57231, + .93582, 1.75946, 1.89895, + .03076, .02700, 49.08774, 2.01320, 1.71253, + 1.06631, 1.88131, 2.01741, + .03172, .02747, 53.29885, 2.17248, 1.89176, + 1.23857, 2.04383, 2.17677, + .03263, .02792, 57.31908, 2.32921, 2.06120, + 1.40565, 2.20274, 2.33356, + .03349, .02833, 61.14857, 2.48199, 2.22207, + 1.56694, 2.35701, 2.48640 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03435, .02875, 65.08667, 2.64155, 2.38714, + 1.73414, 2.51769, 2.64602, + .03520, .02916, 68.92693, 2.80086, 2.55016, + 1.90038, 2.67785, 2.80539, + .03600, .02955, 72.64932, 2.95714, 2.70893, + 2.06282, 2.83478, 2.96172, + .03677, .02992, 76.17011, 3.10744, 2.86097, + 2.21870, 2.98561, 3.11208, + .03753, .03029, 79.75186, 3.26227, 3.01716, + 2.37895, 3.14090, 3.26696, + .03829, .03065, 83.29028, 3.41748, 3.17347, + 2.53936, 3.29653, 3.42222, + .03901, .03100, 86.68545, 3.56820, 3.32509, + 2.69492, 3.44763, 3.57299, + .03970, .03133, 89.89347, 3.71269, 3.47035, + 2.84392, 3.59247, 3.71754 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04040, .03166, 93.18462, 3.86210, 3.62048, + 2.99782, 3.74223, 3.86700, + .04108, .03199, 96.38093, 4.00991, 3.76896, + 3.15000, 3.89035, 4.01485, + .04174, .03230, 99.50684, 4.15513, 3.91480, + 3.29935, 4.03588, 4.16012, + .04237, .03260, 102.41191, 4.29260, 4.05285, + 3.44069, 4.17364, 4.29764, + .04301, .03291, 105.38697, 4.43446, 4.19527, + 3.58643, 4.31578, 4.43954 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02302, .02363, 1.86960, .29661, .00228, + .00000, .16596, .30040, + .02395, .02409, 2.67734, .33515, .00500, + .00000, .19978, .33900, + .02534, .02476, 4.07922, .39896, .01146, + .00000, .25599, .40291, + .02635, .02525, 5.20287, .44976, .01882, + .00000, .30100, .45380, + .02741, .02577, 6.49320, .50681, .03010, + .00000, .35193, .51092, + .02833, .02621, 7.69493, .55863, .04381, + .00000, .39867, .56281, + .02921, .02664, 8.87322, .60937, .06140, + .00000, .44501, .61362, + .03015, .02709, 10.22504, .66509, .08636, + .00000, .49668, .66941 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03097, .02748, 11.45919, .71429, .11443, + .00000, .54316, .71867, + .03176, .02786, 12.67994, .76152, .14799, + .00000, .58872, .76596, + .03240, .02816, 13.70029, .79928, .17984, + .00000, .62586, .80377, + .03374, .02881, 15.93831, .87823, .26387, + .00000, .70599, .88281, + .03490, .02936, 17.95713, .94499, .35407, + .02297, .77649, .94966, + .03621, .02998, 20.31323, 1.01932, .47194, + .09295, .85747, 1.02408, + .03756, .03063, 22.86015, 1.09826, .60809, + .20259, .94501, 1.10312, + .03880, .03122, 25.26075, 1.17383, .73823, + .29909, 1.02876, 1.17878 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04005, .03181, 27.71827, 1.25449, .87043, + .40148, 1.11717, 1.25954, + .04109, .03230, 29.80670, 1.32612, .97914, + .48924, 1.19440, 1.33124, + .04236, .03290, 32.40913, 1.41940, 1.10899, + .59947, 1.29328, 1.42462, + .04348, .03343, 34.73860, 1.50690, 1.22133, + .69975, 1.38465, 1.51220, + .04452, .03392, 36.89589, 1.59099, 1.32268, + .79388, 1.47149, 1.59637, + .04583, .03454, 39.69215, 1.70340, 1.45078, + .91714, 1.58650, 1.70887, + .04707, .03512, 42.33062, 1.81316, 1.57051, + 1.03563, 1.69802, 1.81872, + .04823, .03566, 44.81767, 1.91938, 1.68308, + 1.14908, 1.80546, 1.92503 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .04939, .03621, 47.35239, 2.02958, 1.79761, + 1.26583, 1.91658, 2.03532, + .05053, .03674, 49.79746, 2.13878, 1.90974, + 1.38099, 2.02649, 2.14460, + .05162, .03725, 52.14822, 2.24521, 2.01818, + 1.49278, 2.13349, 2.25111, + .05264, .03772, 54.35182, 2.34691, 2.12130, + 1.59932, 2.23565, 2.35289, + .05367, .03820, 56.57603, 2.45105, 2.22657, + 1.70818, 2.34020, 2.45710, + .05468, .03867, 58.75528, 2.55480, 2.33126, + 1.81648, 2.44433, 2.56093, + .05564, .03912, 60.83076, 2.65498, 2.43223, + 1.92090, 2.54486, 2.66119, + .05656, .03955, 62.77665, 2.75049, 2.52840, + 2.02035, 2.64068, 2.75675 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05749, .03998, 64.76130, 2.84878, 2.62734, + 2.12257, 2.73928, 2.85512, + .05840, .04040, 66.67182, 2.94542, 2.72458, + 2.22305, 2.83623, 2.95183, + .05927, .04081, 68.53179, 3.04001, 2.81973, + 2.32124, 2.93110, 3.04648, + .06010, .04119, 70.24541, 3.12903, 2.90927, + 2.41366, 3.02038, 3.13556, + .06094, .04158, 71.99149, 3.22052, 3.00127, + 2.50855, 3.11214, 3.22711 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .02906, .02676, 1.95431, .28108, .00216, + .00000, .15746, .28549, + .03019, .02730, 2.70336, .31688, .00472, + .00000, .18890, .32138, + .03189, .02810, 3.98084, .37546, .01071, + .00000, .24055, .38010, + .03312, .02868, 4.99065, .42153, .01746, + .00000, .28140, .42627, + .03442, .02929, 6.13660, .47276, .02773, + .00000, .32720, .47761, + .03554, .02982, 7.19272, .51891, .04013, + .00000, .36888, .52386, + .03661, .03032, 8.21934, .56370, .05597, + .00000, .40986, .56873, + .03775, .03086, 9.38683, .61254, .07830, + .00000, .45526, .61767 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .03875, .03132, 10.44436, .65535, .10332, + .00000, .49582, .66057, + .03971, .03177, 11.48307, .69616, .13309, + .00000, .53533, .70145, + .04047, .03213, 12.34628, .72861, .16124, + .00000, .56738, .73397, + .04210, .03289, 14.22442, .79585, .23511, + .00000, .63603, .80135, + .04350, .03354, 15.90241, .85215, .31387, + .01967, .69592, .85775, + .04507, .03427, 17.84333, .91426, .41607, + .07933, .76418, .91999, + .04671, .03503, 19.92211, .97970, .53320, + .17239, .83743, .98557, + .04819, .03573, 21.86477, 1.04201, .64423, + .25368, .90709, 1.04801 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .04970, .03642, 23.83692, 1.10823, .75608, + .33941, .98020, 1.11435, + .05094, .03700, 25.50099, 1.16685, .84734, + .41248, 1.04379, 1.17307, + .05246, .03770, 27.56070, 1.24298, .95548, + .50378, 1.12486, 1.24932, + .05380, .03832, 29.39102, 1.31413, 1.04828, + .58637, 1.19942, 1.32058, + .05503, .03889, 31.07531, 1.38227, 1.13142, + .66354, 1.26999, 1.38882, + .05660, .03961, 33.24486, 1.47303, 1.23578, + .76409, 1.36306, 1.47971, + .05807, .04029, 35.27691, 1.56123, 1.33262, + .86021, 1.45283, 1.56804, + .05944, .04093, 37.17973, 1.64622, 1.42312, + .95179, 1.53892, 1.65314 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06083, .04156, 39.10820, 1.73404, 1.51472, + 1.04562, 1.62759, 1.74108, + .06218, .04218, 40.95552, 1.82065, 1.60391, + 1.13772, 1.71486, 1.82779, + .06346, .04277, 42.72254, 1.90475, 1.68978, + 1.22676, 1.79949, 1.91200, + .06466, .04332, 44.36941, 1.98478, 1.77110, + 1.31127, 1.87996, 1.99213, + .06588, .04388, 46.02343, 2.06643, 1.85379, + 1.39730, 1.96201, 2.07388, + .06707, .04443, 47.63536, 2.14747, 1.93570, + 1.48255, 2.04343, 2.15501, + .06821, .04495, 49.16331, 2.22545, 2.01442, + 1.56446, 2.12175, 2.23309, + .06928, .04544, 50.58853, 2.29952, 2.08913, + 1.64220, 2.19614, 2.30725 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07037, .04593, 52.03683, 2.37554, 2.16577, + 1.72187, 2.27247, 2.38336, + .07144, .04642, 53.42278, 2.45000, 2.24082, + 1.79989, 2.34723, 2.45791, + .07247, .04689, 54.76839, 2.52270, 2.31406, + 1.87595, 2.42021, 2.53069, + .07344, .04733, 56.00077, 2.59087, 2.38274, + 1.94728, 2.48865, 2.59894, + .07442, .04778, 57.25243, 2.66076, 2.45313, + 2.02033, 2.55881, 2.66891 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03423, .02932, 2.01850, .27053, .00209, + .00000, .15170, .27547, + .03554, .02993, 2.72460, .30440, .00452, + .00000, .18148, .30946, + .03749, .03083, 3.91431, .35936, .01019, + .00000, .22997, .36460, + .03891, .03149, 4.84550, .40219, .01653, + .00000, .26799, .40756, + .04040, .03218, 5.89324, .44950, .02611, + .00000, .31032, .45500, + .04169, .03277, 6.85154, .49184, .03764, + .00000, .34862, .49746, + .04291, .03334, 7.77726, .53268, .05229, + .00000, .38604, .53840, + .04422, .03394, 8.82325, .57698, .07288, + .00000, .42730, .58282 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04536, .03447, 9.76531, .61560, .09585, + .00000, .46398, .62155, + .04646, .03497, 10.68584, .65222, .12312, + .00000, .49954, .65826, + .04733, .03538, 11.44762, .68122, .14882, + .00000, .52829, .68734, + .04919, .03623, 13.09528, .74093, .21601, + .00000, .58953, .74722, + .05079, .03697, 14.55699, .79053, .28730, + .01755, .64262, .79696, + .05257, .03779, 16.23665, .84489, .37934, + .07062, .70278, .85148, + .05443, .03864, 18.02335, .90183, .48422, + .15314, .76700, .90858, + .05612, .03942, 19.68249, .95583, .58303, + .22481, .82779, .96273 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05783, .04020, 21.35637, 1.01303, .68197, + .30006, .89134, 1.02009, + .05924, .04084, 22.76132, 1.06357, .76222, + .36394, .94643, 1.07075, + .06096, .04163, 24.49160, 1.12906, .85677, + .44345, 1.01644, 1.13639, + .06247, .04232, 26.02084, 1.19011, .93741, + .51509, 1.08062, 1.19758, + .06386, .04296, 27.42137, 1.24844, 1.00928, + .58179, 1.14118, 1.25603, + .06563, .04376, 29.21698, 1.32593, 1.09904, + .66838, 1.22079, 1.33368, + .06728, .04452, 30.88946, 1.40098, 1.18188, + .75082, 1.29730, 1.40887, + .06884, .04522, 32.44775, 1.47306, 1.25893, + .82909, 1.37041, 1.48109 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07039, .04593, 34.02047, 1.54733, 1.33664, + .90901, 1.44548, 1.55550, + .07191, .04662, 35.51890, 1.62031, 1.41198, + .98718, 1.51910, 1.62862, + .07334, .04727, 36.94674, 1.69099, 1.48430, + 1.06252, 1.59029, 1.69941, + .07470, .04789, 38.27161, 1.75803, 1.55255, + 1.13382, 1.65777, 1.76658, + .07606, .04850, 39.59719, 1.82625, 1.62176, + 1.20619, 1.72640, 1.83492, + .07739, .04911, 40.88373, 1.89377, 1.69012, + 1.27771, 1.79429, 1.90256, + .07866, .04969, 42.09881, 1.95857, 1.75564, + 1.34625, 1.85944, 1.96747, + .07986, .05023, 43.22771, 2.01997, 1.81766, + 1.41113, 1.92115, 2.02897 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08108, .05078, 44.37173, 2.08284, 1.88115, + 1.47747, 1.98434, 2.09195, + .08227, .05132, 45.46129, 2.14425, 1.94313, + 1.54227, 2.04606, 2.15346, + .08342, .05183, 46.51706, 2.20410, 2.00352, + 1.60531, 2.10620, 2.21342, + .08450, .05232, 47.47936, 2.26007, 2.05999, + 1.66428, 2.16244, 2.26948, + .08559, .05282, 48.45438, 2.31734, 2.11777, + 1.72456, 2.21998, 2.32685 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03898, .03160, 2.07605, .26289, .00202, + .00000, .14734, .26815, + .04044, .03227, 2.74914, .29521, .00436, + .00000, .17576, .30060, + .04261, .03328, 3.87013, .34732, .00977, + .00000, .22175, .35290, + .04418, .03400, 4.73995, .38763, .01578, + .00000, .25756, .39336, + .04584, .03476, 5.71166, .43193, .02484, + .00000, .29722, .43780, + .04726, .03542, 6.59486, .47137, .03569, + .00000, .33293, .47738, + .04862, .03604, 7.44373, .50923, .04942, + .00000, .36766, .51535, + .05007, .03671, 8.39780, .55013, .06868, + .00000, .40580, .55638 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05132, .03729, 9.25309, .58563, .09010, + .00000, .43958, .59200, + .05253, .03784, 10.08528, .61914, .11546, + .00000, .47219, .62561, + .05350, .03829, 10.77156, .64559, .13931, + .00000, .49849, .65215, + .05555, .03923, 12.24890, .69977, .20147, + .00000, .55426, .70652, + .05731, .04003, 13.55190, .74448, .26717, + .01600, .60235, .75138, + .05928, .04094, 15.04109, .79321, .35165, + .06424, .65660, .80029, + .06132, .04187, 16.61634, .84401, .44745, + .13905, .71425, .85127, + .06318, .04272, 18.07147, .89202, .53729, + .20374, .76862, .89945 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06505, .04357, 19.53202, .94276, .62679, + .27140, .82527, .95035, + .06660, .04428, 20.75257, .98750, .69904, + .32866, .87425, .99523, + .06848, .04514, 22.24956, 1.04539, .78375, + .39970, .93634, 1.05329, + .07013, .04589, 23.56657, 1.09925, .85565, + .46349, .99309, 1.10730, + .07165, .04658, 24.76788, 1.15060, .91945, + .52271, 1.04652, 1.15879, + .07358, .04746, 26.30209, 1.21867, .99879, + .59937, 1.11656, 1.22703, + .07539, .04828, 27.72445, 1.28442, 1.07170, + .67212, 1.18367, 1.29294, + .07708, .04905, 29.04414, 1.34740, 1.13925, + .74097, 1.24762, 1.35607 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07877, .04982, 30.37143, 1.41213, 1.20715, + .81109, 1.31311, 1.42095, + .08042, .05057, 31.63042, 1.47556, 1.27277, + .87947, 1.37715, 1.48452, + .08199, .05127, 32.82621, 1.53684, 1.33559, + .94521, 1.43893, 1.54594, + .08345, .05194, 33.93155, 1.59483, 1.39473, + 1.00728, 1.49735, 1.60406, + .08493, .05261, 35.03389, 1.65370, 1.45454, + 1.07013, 1.55662, 1.66307, + .08638, .05326, 36.09999, 1.71183, 1.51348, + 1.13209, 1.61512, 1.72132, + .08775, .05388, 37.10369, 1.76751, 1.56985, + 1.19135, 1.67114, 1.77712, + .08905, .05447, 38.03294, 1.82014, 1.62310, + 1.24733, 1.72408, 1.82987 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09037, .05506, 38.97249, 1.87395, 1.67750, + 1.30447, 1.77821, 1.88379, + .09166, .05564, 39.86370, 1.92636, 1.73049, + 1.36013, 1.83093, 1.93632, + .09289, .05620, 40.72589, 1.97738, 1.78204, + 1.41421, 1.88223, 1.98745, + .09406, .05672, 41.50849, 2.02498, 1.83013, + 1.46470, 1.93010, 2.03515, + .09524, .05725, 42.29984, 2.07362, 1.87927, + 1.51623, 1.97902, 2.08390 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05805, .04036, 2.25666, .24019, .00184, + .00000, .13466, .24715, + .06007, .04129, 2.81989, .26777, .00391, + .00000, .15896, .27491, + .06307, .04266, 3.72669, .31126, .00856, + .00000, .19745, .31870, + .06523, .04365, 4.41225, .34417, .01363, + .00000, .22677, .35181, + .06750, .04468, 5.16130, .37970, .02113, + .00000, .25869, .38755, + .06944, .04557, 5.82881, .41083, .03001, + .00000, .28698, .41888, + .07129, .04641, 6.46028, .44022, .04113, + .00000, .31407, .44844, + .07325, .04731, 7.15800, .47154, .05656, + .00000, .34346, .47995 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07496, .04809, 7.77416, .49834, .07357, + .00000, .36914, .50691, + .07659, .04884, 8.36562, .52328, .09354, + .00000, .39364, .53200, + .07789, .04943, 8.84792, .54275, .11219, + .00000, .41321, .55160, + .08064, .05068, 9.87000, .58192, .16030, + .00000, .45411, .59103, + .08300, .05176, 10.75453, .61355, .21052, + .01181, .48877, .62288, + .08563, .05295, 11.74767, .64736, .27425, + .04711, .52728, .65694, + .08834, .05419, 12.77886, .68204, .34545, + .10140, .56760, .69188, + .09080, .05530, 13.71510, .71448, .41118, + .14767, .60518, .72455 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09325, .05642, 14.63869, .74848, .47560, + .19548, .64391, .75878, + .09529, .05734, 15.39926, .77831, .52681, + .23551, .67710, .78880, + .09775, .05846, 16.31923, .81673, .58591, + .28467, .71886, .82746, + .09991, .05944, 17.11621, .85225, .63524, + .32835, .75668, .86318, + .10188, .06033, 17.83330, .88590, .67840, + .36851, .79199, .89701, + .10438, .06146, 18.73711, .93021, .73131, + .42000, .83790, .94156, + .10672, .06251, 19.56153, .97262, .77920, + .46834, .88145, .98419, + .10889, .06350, 20.31532, 1.01290, .82302, + .51365, .92255, 1.02466 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11106, .06447, 21.06450, 1.05398, .86661, + .55939, .96431, 1.06594, + .11317, .06542, 21.76344, 1.09383, .90824, + .60356, 1.00473, 1.10599, + .11516, .06632, 22.42003, 1.13205, .94776, + .64569, 1.04342, 1.14439, + .11702, .06715, 23.01871, 1.16791, .98462, + .68514, 1.07971, 1.18043, + .11889, .06799, 23.60897, 1.20405, 1.02161, + .72479, 1.11624, 1.21674, + .12071, .06881, 24.17256, 1.23945, 1.05777, + .76358, 1.15202, 1.25231, + .12244, .06959, 24.69725, 1.27312, 1.09211, + .80042, 1.18603, 1.28614, + .12407, .07032, 25.17681, 1.30471, 1.12430, + .83497, 1.21795, 1.31788 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12572, .07105, 25.65777, 1.33683, 1.15701, + .87003, 1.25039, 1.35014, + .12733, .07177, 26.10659, 1.36784, 1.18859, + .90393, 1.28172, 1.38131, + .12887, .07246, 26.53859, 1.39790, 1.21919, + .93670, 1.31208, 1.41150, + .13031, .07310, 26.92405, 1.42571, 1.24750, + .96707, 1.34017, 1.43945, + .13177, .07375, 27.31096, 1.45400, 1.27629, + .99791, 1.36874, 1.46786 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .08616, .05308, 2.42055, .21997, .00169, + .00000, .12320, .22934, + .08889, .05435, 2.86595, .24266, .00350, + .00000, .14329, .25231, + .09294, .05622, 3.55845, .27765, .00744, + .00000, .17439, .28771, + .09585, .05757, 4.06772, .30350, .01161, + .00000, .19755, .31386, + .09888, .05897, 4.61119, .33089, .01767, + .00000, .22231, .34156, + .10148, .06017, 5.08543, .35449, .02473, + .00000, .24389, .36542, + .10392, .06130, 5.52653, .37637, .03345, + .00000, .26422, .38755, + .10652, .06250, 6.00497, .39935, .04542, + .00000, .28597, .41078 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10877, .06353, 6.42067, .41869, .05848, + .00000, .30471, .43035, + .11092, .06452, 6.81379, .43640, .07366, + .00000, .32235, .44827, + .11263, .06530, 7.13043, .45005, .08774, + .00000, .33629, .46210, + .11622, .06695, 7.78994, .47696, .12366, + .00000, .36495, .48936, + .11928, .06836, 8.34864, .49813, .16065, + .00842, .38879, .51084, + .12268, .06991, 8.96346, .52026, .20695, + .03332, .41482, .53330, + .12617, .07151, 9.58844, .54252, .25786, + .07129, .44163, .55591, + .12932, .07295, 10.14474, .56310, .30406, + .10314, .46628, .57680 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13245, .07437, 10.68234, .58448, .34856, + .13561, .49137, .59848, + .13503, .07555, 11.11736, .60316, .38333, + .16250, .51269, .61742, + .13814, .07696, 11.63498, .62713, .42277, + .19515, .53928, .64169, + .14086, .07819, 12.07496, .64915, .45509, + .22382, .56312, .66396, + .14333, .07931, 12.46430, .66987, .48290, + .24991, .58518, .68492, + .14644, .08072, 12.94726, .69697, .51645, + .28302, .61361, .71232, + .14934, .08202, 13.37833, .72264, .54630, + .31373, .64026, .73827, + .15202, .08323, 13.76532, .74679, .57322, + .34220, .66516, .76268 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15469, .08443, 14.14441, .77122, .59967, + .37069, .69023, .78736, + .15726, .08558, 14.48963, .79463, .62460, + .39788, .71419, .81101, + .15969, .08667, 14.80943, .81689, .64802, + .42359, .73694, .83350, + .16195, .08768, 15.09556, .83758, .66964, + .44745, .75806, .85440, + .16420, .08868, 15.37317, .85825, .69115, + .47123, .77916, .87528, + .16640, .08966, 15.63328, .87832, .71198, + .49431, .79963, .89555, + .16848, .09059, 15.87167, .89724, .73160, + .51605, .81893, .91466, + .17043, .09145, 16.08542, .91482, .74982, + .53626, .83686, .93242 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .17239, .09232, 16.29747, .93258, .76821, + .55665, .85498, .95036, + .17429, .09316, 16.48992, .94956, .78580, + .57618, .87230, .96751, + .17612, .09396, 16.67414, .96593, .80275, + .59498, .88901, .98405, + .17782, .09471, 16.83356, .98092, .81828, + .61223, .90430, .99919, + .17954, .09547, 16.99186, .99607, .83399, + .62967, .91977, 1.01450 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .10831, .06328, 2.48306, .20897, .00161, + .00000, .11704, .22047, + .11154, .06480, 2.85603, .22871, .00328, + -.00001, .13459, .24055, + .11630, .06702, 3.42442, .25872, .00682, + -.00001, .16141, .27106, + .11972, .06862, 3.83560, .28059, .01050, + .00000, .18110, .29328, + .12327, .07027, 4.26822, .30348, .01576, + .00000, .20192, .31655, + .12630, .07168, 4.64087, .32299, .02182, + -.00001, .21988, .33638, + .12915, .07301, 4.98384, .34090, .02924, + -.00001, .23664, .35458, + .13217, .07441, 5.35164, .35951, .03935, + -.00001, .25441, .37351 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13477, .07561, 5.66799, .37502, .05029, + -.00001, .26959, .38929, + .13726, .07676, 5.96429, .38908, .06295, + -.00001, .28375, .40359, + .13922, .07767, 6.20111, .39982, .07462, + -.00001, .29487, .41454, + .14335, .07957, 6.68877, .42070, .10420, + -.00001, .31750, .43584, + .14686, .08119, 7.09622, .43685, .13441, + .00675, .33609, .45233, + .15074, .08297, 7.53871, .45345, .17191, + .02661, .35616, .46933, + .15471, .08479, 7.98212, .46994, .21274, + .05673, .37662, .48621, + .15828, .08641, 8.37150, .48506, .24942, + .08176, .39527, .50169 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .16181, .08802, 8.74224, .50070, .28436, + .10707, .41411, .51768, + .16472, .08934, 9.03866, .51434, .31138, + .12787, .43002, .53159, + .16820, .09092, 9.38738, .53180, .34169, + .15296, .44975, .54939, + .17124, .09230, 9.67974, .54778, .36623, + .17484, .46734, .56567, + .17399, .09354, 9.93509, .56277, .38713, + .19462, .48352, .58092, + .17745, .09509, 10.24812, .58228, .41209, + .21955, .50426, .60077, + .18065, .09653, 10.52307, .60066, .43404, + .24251, .52356, .61944, + .18361, .09785, 10.76592, .61782, .45363, + .26365, .54145, .63688 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18655, .09916, 11.00103, .63508, .47273, + .28466, .55936, .65442, + .18936, .10041, 11.21121, .65150, .49058, + .30459, .57635, .67110, + .19201, .10158, 11.40366, .66703, .50724, + .32333, .59239, .68687, + .19447, .10267, 11.57279, .68135, .52250, + .34061, .60718, .70142, + .19692, .10375, 11.73472, .69558, .53760, + .35775, .62185, .71587, + .19930, .10480, 11.88396, .70930, .55213, + .37428, .63601, .72981, + .20154, .10578, 12.01862, .72215, .56573, + .38978, .64927, .74287, + .20363, .10670, 12.13691, .73403, .57829, + .40412, .66153, .75493 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20574, .10762, 12.25312, .74597, .59092, + .41852, .67386, .76706, + .20777, .10850, 12.35546, .75729, .60290, + .43223, .68555, .77856, + .20972, .10935, 12.45310, .76818, .61442, + .44539, .69680, .78962, + .21152, .11013, 12.53450, .77806, .62490, + .45739, .70701, .79965, + .21335, .11092, 12.61444, .78800, .63544, + .46946, .71729, .80976 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .12729, .07226, 2.49979, .20152, .00155, + .00000, .11289, .21496, + .13091, .07397, 2.82079, .21910, .00313, + -.00001, .12861, .23292, + .13621, .07647, 3.30313, .24555, .00640, + -.00001, .15238, .25994, + .14001, .07825, 3.64785, .26463, .00973, + .00000, .16966, .27943, + .14395, .08009, 4.00681, .28444, .01445, + .00000, .18778, .29966, + .14730, .08166, 4.31311, .30119, .01983, + -.00001, .20330, .31676, + .15045, .08312, 4.59275, .31644, .02636, + -.00001, .21768, .33234, + .15378, .08467, 4.89012, .33217, .03521, + -.00001, .23283, .34842 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15664, .08600, 5.14393, .34519, .04474, + -.00001, .24569, .36173, + .15936, .08726, 5.37991, .35688, .05571, + -.00001, .25761, .37371, + .16152, .08825, 5.56744, .36577, .06579, + -.00001, .26692, .38282, + .16603, .09034, 5.95016, .38284, .09120, + -.00001, .28573, .40035, + .16986, .09210, 6.26648, .39585, .11700, + .00570, .30104, .41375, + .17406, .09402, 6.60644, .40906, .14882, + .02241, .31743, .42738, + .17837, .09599, 6.94323, .42204, .18322, + .04763, .33399, .44078, + .18222, .09774, 7.23577, .43388, .21390, + .06845, .34900, .45300 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18602, .09946, 7.51088, .44607, .24290, + .08937, .36407, .46557, + .18913, .10087, 7.72857, .45669, .26515, + .10648, .37674, .47649, + .19286, .10255, 7.98223, .47028, .28990, + .12702, .39240, .49044, + .19611, .10401, 8.19227, .48269, .30977, + .14482, .40628, .50315, + .19903, .10532, 8.37365, .49429, .32656, + .16084, .41900, .51503, + .20271, .10695, 8.59371, .50936, .34645, + .18094, .43523, .53045, + .20609, .10845, 8.78404, .52347, .36379, + .19935, .45025, .54487, + .20921, .10983, 8.94971, .53658, .37915, + .21621, .46409, .55827 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .21230, .11119, 9.10843, .54971, .39403, + .23289, .47788, .57169, + .21525, .11249, 9.24739, .56212, .40784, + .24863, .49089, .58436, + .21801, .11370, 9.37324, .57381, .42066, + .26338, .50311, .59630, + .22058, .11482, 9.48181, .58452, .43235, + .27691, .51431, .60724, + .22313, .11592, 9.58424, .59511, .44385, + .29027, .52538, .61805, + .22559, .11699, 9.67684, .60526, .45486, + .30311, .53599, .62842, + .22791, .11799, 9.75898, .61473, .46512, + .31510, .54590, .63810, + .23007, .11892, 9.82941, .62343, .47456, + .32615, .55500, .64698 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .23223, .11985, 9.89785, .63215, .48401, + .33721, .56413, .65588, + .23432, .12074, 9.95571, .64035, .49292, + .34769, .57273, .66425, + .23631, .12159, 10.01079, .64821, .50148, + .35773, .58098, .67229, + .23816, .12237, 10.05429, .65529, .50920, + .36683, .58842, .67952, + .24002, .12316, 10.09638, .66240, .51696, + .37598, .59589, .68678 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .14421, .08045, 2.49098, .19582, .00152, + .00000, .10979, .21112, + .14814, .08231, 2.77185, .21169, .00302, + .00000, .12406, .22741, + .15389, .08502, 3.18938, .23538, .00608, + .00000, .14547, .25172, + .15799, .08695, 3.48493, .25233, .00916, + .00000, .16092, .26911, + .16223, .08894, 3.79017, .26981, .01346, + .00000, .17702, .28705, + .16584, .09062, 4.04872, .28450, .01832, + .00000, .19073, .30212, + .16922, .09220, 4.28323, .29779, .02420, + .00000, .20336, .31576, + .17278, .09385, 4.53092, .31142, .03211, + .00000, .21659, .32977 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17584, .09527, 4.74096, .32262, .04059, + .00000, .22777, .34128, + .17875, .09661, 4.93509, .33262, .05032, + .00000, .23808, .35158, + .18104, .09767, 5.08866, .34018, .05923, + .00000, .24611, .35937, + .18584, .09988, 5.39972, .35456, .08161, + .00000, .26222, .37424, + .18990, .10174, 5.65434, .36539, .10422, + .00497, .27522, .38547, + .19436, .10376, 5.92554, .37625, .13196, + .01945, .28905, .39678, + .19890, .10582, 6.19161, .38681, .16180, + .04124, .30293, .40780, + .20294, .10765, 6.42054, .39641, .18825, + .05914, .31544, .41779 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20694, .10945, 6.63341, .40626, .21309, + .07704, .32794, .42803, + .21019, .11091, 6.80027, .41484, .23204, + .09161, .33842, .43691, + .21409, .11264, 6.99294, .42582, .25299, + .10904, .35132, .44826, + .21746, .11414, 7.15045, .43583, .26969, + .12408, .36273, .45858, + .22050, .11548, 7.28504, .44517, .28370, + .13756, .37313, .46820, + .22431, .11716, 7.44677, .45726, .30020, + .15442, .38635, .48064, + .22780, .11869, 7.58445, .46854, .31447, + .16978, .39853, .49223, + .23101, .12009, 7.70261, .47897, .32705, + .18379, .40970, .50295 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .23418, .12147, 7.81467, .48939, .33917, + .19761, .42079, .51365, + .23720, .12277, 7.91035, .49917, .35034, + .21060, .43119, .52369, + .24002, .12399, 7.99595, .50834, .36067, + .22271, .44092, .53310, + .24264, .12510, 8.06816, .51671, .37005, + .23380, .44980, .54169, + .24522, .12621, 8.13510, .52494, .37924, + .24470, .45853, .55014, + .24772, .12727, 8.19418, .53279, .38799, + .25514, .46687, .55820, + .25007, .12826, 8.24539, .54008, .39613, + .26486, .47462, .56569, + .25224, .12917, 8.28780, .54674, .40357, + .27379, .48171, .57252 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .25443, .13009, 8.32844, .55339, .41101, + .28271, .48880, .57936, + .25652, .13096, 8.36080, .55961, .41799, + .29113, .49544, .58574, + .25852, .13179, 8.39155, .56556, .42467, + .29917, .50179, .59185, + .26036, .13255, 8.41363, .57087, .43067, + .30644, .50748, .59730, + .26221, .13332, 8.43442, .57619, .43668, + .31372, .51319, .60276 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17400, .09527, 2.43208, .18717, .00146, + .00000, .10525, .20600, + .17840, .09735, 2.65404, .20042, .00286, + .00000, .11731, .21972, + .18482, .10037, 2.97875, .21995, .00562, + .00001, .13520, .23995, + .18937, .10250, 3.20529, .23376, .00831, + .00001, .14796, .25424, + .19406, .10468, 3.43635, .24787, .01201, + .00001, .16113, .26884, + .19804, .10653, 3.62982, .25959, .01613, + .00001, .17225, .28098, + .20176, .10824, 3.80338, .27010, .02106, + .00001, .18241, .29188, + .20566, .11003, 3.98476, .28078, .02763, + .00001, .19297, .30295 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20900, .11156, 4.13700, .28946, .03463, + .00001, .20182, .31197, + .21216, .11301, 4.27622, .29713, .04261, + .00001, .20992, .31995, + .21465, .11414, 4.38554, .30286, .04988, + .00001, .21618, .32593, + .21984, .11649, 4.60407, .31361, .06802, + .00001, .22863, .33718, + .22420, .11845, 4.78026, .32152, .08620, + .00398, .23855, .34551, + .22897, .12059, 4.96501, .32929, .10835, + .01547, .24898, .35374, + .23380, .12274, 5.14301, .33671, .13197, + .03268, .25934, .36161, + .23809, .12463, 5.29362, .34339, .15273, + .04669, .26861, .36870 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .24229, .12647, 5.43041, .35023, .17204, + .06061, .27778, .37592, + .24571, .12796, 5.53572, .35619, .18664, + .07187, .28542, .38218, + .24977, .12973, 5.65525, .36381, .20261, + .08525, .29480, .39016, + .25328, .13124, 5.75067, .37075, .21521, + .09672, .30302, .39740, + .25642, .13259, 5.83026, .37720, .22568, + .10694, .31048, .40412, + .26033, .13426, 5.92388, .38552, .23786, + .11964, .31991, .41277, + .26390, .13577, 6.00072, .39322, .24829, + .13114, .32851, .42077, + .26717, .13714, 6.06420, .40029, .25738, + .14156, .33634, .42810 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .27038, .13848, 6.12284, .40731, .26607, + .15178, .34407, .43538, + .27342, .13974, 6.16974, .41382, .27401, + .16130, .35123, .44212, + .27625, .14090, 6.21038, .41989, .28129, + .17016, .35790, .44841, + .27886, .14196, 6.24250, .42536, .28785, + .17821, .36393, .45408, + .28143, .14301, 6.27060, .43071, .29424, + .18609, .36982, .45962, + .28389, .14400, 6.29328, .43576, .30028, + .19359, .37540, .46485, + .28620, .14493, 6.31123, .44041, .30585, + .20054, .38054, .46966, + .28833, .14577, 6.32383, .44460, .31091, + .20688, .38520, .47400 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .29046, .14661, 6.33503, .44876, .31594, + .21319, .38984, .47832, + .29249, .14741, 6.34054, .45259, .32062, + .21911, .39412, .48228, + .29442, .14816, 6.34575, .45625, .32509, + .22474, .39822, .48607, + .29619, .14885, 6.34566, .45946, .32905, + .22980, .40183, .48939, + .29796, .14953, 6.34453, .46265, .33301, + .23485, .40544, .49270 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .21230, .11496, 2.29683, .17754, .00140, + .00000, .10049, .20130, + .21718, .11722, 2.46082, .18799, .00269, + .00000, .11020, .21225, + .22425, .12049, 2.69688, .20319, .00513, + .00000, .12444, .22818, + .22923, .12277, 2.85899, .21381, .00743, + .00000, .13448, .23930, + .23435, .12510, 3.02207, .22453, .01053, + .00000, .14474, .25052, + .23868, .12705, 3.15685, .23334, .01391, + .00000, .15332, .25975, + .24268, .12884, 3.27611, .24115, .01791, + .00000, .16109, .26795, + .24687, .13072, 3.39927, .24899, .02318, + .00000, .16910, .27619 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .25045, .13231, 3.50142, .25529, .02873, + .00000, .17575, .28282, + .25381, .13379, 3.59355, .26078, .03502, + .00000, .18179, .28861, + .25646, .13495, 3.66526, .26483, .04071, + .00000, .18642, .29290, + .26193, .13734, 3.80626, .27225, .05482, + .00000, .19552, .30081, + .26650, .13932, 3.91743, .27754, .06885, + .00305, .20267, .30650, + .27147, .14145, 4.03145, .28257, .08580, + .01182, .21009, .31195, + .27647, .14357, 4.13851, .28725, .10371, + .02489, .21736, .31705, + .28087, .14542, 4.22678, .29142, .11931, + .03545, .22378, .32158 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .28514, .14720, 4.30417, .29567, .13369, + .04584, .23008, .32616, + .28860, .14863, 4.36189, .29937, .14444, + .05420, .23530, .33013, + .29269, .15030, 4.42550, .30414, .15609, + .06406, .24166, .33521, + .29619, .15171, 4.47400, .30847, .16516, + .07246, .24720, .33979, + .29930, .15296, 4.51250, .31248, .17262, + .07989, .25218, .34402, + .30315, .15450, 4.55581, .31764, .18119, + .08907, .25843, .34945, + .30663, .15586, 4.58837, .32237, .18844, + .09730, .26406, .35440, + .30979, .15708, 4.61279, .32665, .19467, + .10471, .26914, .35889 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .31288, .15827, 4.63376, .33087, .20058, + .11194, .27411, .36331, + .31577, .15936, 4.64677, .33471, .20590, + .11861, .27864, .36731, + .31845, .16037, 4.65647, .33825, .21075, + .12478, .28283, .37101, + .32090, .16127, 4.66129, .34140, .21507, + .13035, .28657, .37430, + .32329, .16215, 4.66329, .34442, .21924, + .13577, .29018, .37745, + .32557, .16297, 4.66190, .34724, .22315, + .14089, .29356, .38038, + .32768, .16373, 4.65818, .34978, .22672, + .14561, .29664, .38303, + .32962, .16441, 4.65172, .35204, .22994, + .14989, .29940, .38538 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .33154, .16509, 4.64427, .35426, .23312, + .15413, .30212, .38769, + .33336, .16571, 4.63315, .35622, .23603, + .15807, .30457, .38973, + .33509, .16630, 4.62265, .35810, .23880, + .16180, .30692, .39169, + .33665, .16681, 4.60939, .35968, .24122, + .16513, .30893, .39333, + .33821, .16733, 4.59540, .36124, .24362, + .16843, .31093, .39495 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .26630, .14341, 2.04049, .16514, .00132, + -.00002, .09480, .19622, + .27160, .14573, 2.14877, .17246, .00248, + -.00002, .10192, .20403, + .27922, .14904, 2.30176, .18299, .00457, + -.00001, .11224, .21522, + .28454, .15132, 2.40481, .19023, .00646, + -.00002, .11943, .22291, + .28996, .15362, 2.50674, .19744, .00893, + -.00002, .12669, .23057, + .29449, .15553, 2.58961, .20330, .01156, + -.00002, .13270, .23677, + .29865, .15727, 2.66154, .20840, .01460, + -.00002, .13808, .24220, + .30299, .15906, 2.73463, .21344, .01856, + -.00002, .14358, .24756 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .30666, .16055, 2.79416, .21741, .02267, + -.00002, .14809, .25180, + .31008, .16194, 2.84671, .22079, .02729, + -.00002, .15214, .25542, + .31276, .16302, 2.88713, .22324, .03144, + -.00002, .15522, .25805, + .31827, .16519, 2.96428, .22753, .04162, + -.00002, .16117, .26272, + .32280, .16697, 3.02285, .23041, .05163, + .00216, .16575, .26588, + .32767, .16884, 3.08060, .23296, .06362, + .00839, .17040, .26873, + .33252, .17067, 3.13216, .23519, .07617, + .01763, .17488, .27125, + .33673, .17224, 3.17232, .23715, .08698, + .02501, .17878, .27342 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .34078, .17370, 3.20454, .23911, .09684, + .03222, .18254, .27559, + .34400, .17485, 3.22668, .24085, .10413, + .03796, .18563, .27748, + .34778, .17618, 3.24906, .24314, .11193, + .04469, .18936, .27993, + .35096, .17727, 3.26352, .24522, .11792, + .05036, .19256, .28215, + .35375, .17821, 3.27270, .24714, .12277, + .05534, .19541, .28416, + .35717, .17934, 3.28064, .24960, .12828, + .06144, .19894, .28673, + .36021, .18032, 3.28268, .25180, .13285, + .06686, .20207, .28902, + .36292, .18116, 3.28057, .25375, .13672, + .07170, .20484, .29104 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36555, .18196, 3.27631, .25564, .14034, + .07638, .20751, .29299, + .36795, .18266, 3.26739, .25727, .14355, + .08066, .20988, .29466, + .37016, .18329, 3.25741, .25875, .14643, + .08458, .21203, .29616, + .37213, .18383, 3.24534, .26000, .14896, + .08809, .21391, .29742, + .37403, .18433, 3.23151, .26115, .15137, + .09147, .21568, .29859, + .37582, .18479, 3.21587, .26217, .15360, + .09465, .21729, .29961, + .37745, .18518, 3.19965, .26304, .15561, + .09754, .21873, .30047, + .37891, .18552, 3.18263, .26376, .15738, + .10014, .21997, .30117 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .38034, .18585, 3.16503, .26445, .15913, + .10270, .22118, .30183, + .38165, .18613, 3.14534, .26498, .16069, + .10506, .22221, .30232, + .38290, .18639, 3.12683, .26548, .16217, + .10728, .22320, .30280, + .38399, .18659, 3.10731, .26582, .16343, + .10923, .22399, .30310, + .38506, .18677, 3.08739, .26613, .16467, + .11116, .22475, .30337 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .31294, .16794, 1.79680, .15450, .00125, + -.00001, .09021, .19191, + .31834, .17012, 1.87464, .15978, .00233, + -.00001, .09564, .19756, + .32605, .17318, 1.98327, .16729, .00419, + -.00001, .10342, .20557, + .33139, .17526, 2.05532, .17240, .00582, + -.00001, .10879, .21101, + .33678, .17733, 2.12557, .17742, .00788, + -.00001, .11418, .21635, + .34125, .17903, 2.18192, .18145, .01005, + -.00001, .11861, .22061, + .34531, .18054, 2.22980, .18491, .01251, + -.00001, .12254, .22428, + .34952, .18208, 2.27776, .18827, .01566, + -.00002, .12652, .22784 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .35306, .18335, 2.31612, .19085, .01891, + -.00001, .12975, .23059, + .35633, .18451, 2.34919, .19299, .02252, + -.00002, .13262, .23286, + .35888, .18541, 2.37433, .19450, .02574, + -.00002, .13479, .23448, + .36405, .18717, 2.42057, .19700, .03360, + -.00002, .13891, .23716, + .36826, .18857, 2.45409, .19850, .04126, + .00166, .14202, .23881, + .37273, .19002, 2.48539, .19967, .05037, + .00644, .14511, .24010, + .37710, .19138, 2.51119, .20057, .05984, + .01348, .14803, .24109, + .38085, .19252, 2.52940, .20131, .06793, + .01907, .15052, .24189 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38439, .19354, 2.54139, .20205, .07525, + .02448, .15289, .24267, + .38717, .19431, 2.54779, .20274, .08061, + .02877, .15482, .24338, + .39038, .19517, 2.55217, .20370, .08630, + .03376, .15712, .24433, + .39303, .19584, 2.55201, .20458, .09062, + .03794, .15907, .24519, + .39533, .19638, 2.54885, .20540, .09409, + .04159, .16078, .24597, + .39809, .19701, 2.54219, .20645, .09797, + .04603, .16287, .24696, + .40049, .19750, 2.53206, .20734, .10115, + .04994, .16468, .24779, + .40258, .19789, 2.51966, .20809, .10381, + .05341, .16625, .24845 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40457, .19823, 2.50581, .20879, .10627, + .05675, .16773, .24907, + .40632, .19848, 2.48892, .20931, .10840, + .05976, .16898, .24947, + .40790, .19868, 2.47199, .20975, .11030, + .06250, .17010, .24980, + .40927, .19882, 2.45422, .21006, .11194, + .06494, .17104, .25000, + .41056, .19891, 2.43529, .21029, .11348, + .06728, .17189, .25012, + .41173, .19896, 2.41534, .21044, .11489, + .06945, .17262, .25014, + .41277, .19898, 2.39554, .21051, .11614, + .07142, .17325, .25008, + .41366, .19895, 2.37570, .21049, .11723, + .07318, .17376, .24994 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41452, .19892, 2.35554, .21045, .11829, + .07490, .17423, .24977, + .41526, .19882, 2.33417, .21030, .11921, + .07647, .17458, .24949, + .41596, .19873, 2.31413, .21016, .12008, + .07794, .17491, .24923, + .41651, .19859, 2.29378, .20993, .12079, + .07922, .17512, .24886, + .41704, .19845, 2.27320, .20967, .12148, + .08047, .17530, .24847 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .39278, .20819, 1.40209, .13526, .00116, + .00000, .08196, .18224, + .39778, .20973, 1.45208, .13808, .00211, + .00000, .08531, .18511, + .40480, .21179, 1.52034, .14199, .00369, + .00000, .09004, .18908, + .40953, .21312, 1.56425, .14460, .00500, + .00000, .09326, .19168, + .41421, .21438, 1.60584, .14710, .00660, + .00000, .09644, .19414, + .41804, .21536, 1.63817, .14904, .00821, + .00001, .09902, .19601, + .42142, .21618, 1.66433, .15062, .00999, + .00000, .10127, .19753, + .42486, .21697, 1.68971, .15209, .01222, + -.00001, .10350, .19890 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42769, .21758, 1.70911, .15313, .01448, + -.00001, .10528, .19984, + .43025, .21809, 1.72471, .15390, .01695, + -.00001, .10681, .20051, + .43222, .21847, 1.73618, .15438, .01913, + .00000, .10795, .20091, + .43608, .21911, 1.75501, .15494, .02436, + .00000, .11003, .20124, + .43912, .21954, 1.76642, .15500, .02940, + .00112, .11151, .20108, + .44221, .21989, 1.77460, .15474, .03532, + .00427, .11289, .20055, + .44509, .22011, 1.77816, .15425, .04139, + .00890, .11411, .19976, + .44745, .22020, 1.77767, .15376, .04651, + .01252, .11511, .19900 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .44952, .22017, 1.77275, .15328, .05109, + .01599, .11599, .19819, + .45106, .22005, 1.76623, .15291, .05440, + .01871, .11668, .19756, + .45274, .21984, 1.75611, .15255, .05785, + .02183, .11750, .19686, + .45402, .21957, 1.74454, .15226, .06042, + .02443, .11816, .19625, + .45502, .21925, 1.73202, .15199, .06244, + .02667, .11869, .19569, + .45613, .21878, 1.71460, .15165, .06466, + .02936, .11931, .19499, + .45694, .21825, 1.69581, .15128, .06642, + .03170, .11978, .19425, + .45752, .21768, 1.67657, .15088, .06785, + .03375, .12014, .19350 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .45801, .21708, 1.65669, .15046, .06914, + .03569, .12044, .19272, + .45826, .21641, 1.63528, .14995, .07022, + .03742, .12060, .19184, + .45841, .21574, 1.61467, .14944, .07117, + .03898, .12072, .19098, + .45843, .21507, 1.59428, .14890, .07195, + .04035, .12075, .19011, + .45835, .21436, 1.57336, .14831, .07267, + .04165, .12073, .18918, + .45817, .21362, 1.55219, .14768, .07329, + .04282, .12064, .18822, + .45793, .21288, 1.53177, .14705, .07382, + .04388, .12051, .18727, + .45760, .21216, 1.51195, .14641, .07426, + .04480, .12033, .18632 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45724, .21142, 1.49208, .14574, .07468, + .04570, .12013, .18536, + .45676, .21064, 1.47173, .14503, .07501, + .04650, .11986, .18434, + .45630, .20990, 1.45273, .14436, .07533, + .04725, .11961, .18338, + .45574, .20916, 1.43406, .14366, .07555, + .04788, .11930, .18240, + .45515, .20840, 1.41535, .14295, .07576, + .04849, .11898, .18141 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .46020, .23900, 1.12967, .11752, .00111, + .00000, .07400, .17037, + .46423, .23961, 1.16913, .11899, .00199, + .00000, .07617, .17156, + .46971, .24030, 1.22159, .12100, .00340, + .00000, .07918, .17310, + .47327, .24063, 1.25404, .12228, .00453, + .00000, .08120, .17401, + .47668, .24084, 1.28369, .12345, .00586, + .00000, .08317, .17477, + .47938, .24091, 1.30584, .12429, .00716, + .00001, .08472, .17526, + .48164, .24086, 1.32257, .12491, .00857, + .00000, .08604, .17551, + .48387, .24074, 1.33806, .12540, .01029, + .00000, .08732, .17561 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .48563, .24057, 1.34906, .12566, .01200, + .00000, .08831, .17552, + .48714, .24031, 1.35688, .12574, .01384, + .00000, .08912, .17525, + .48828, .24007, 1.36230, .12571, .01545, + .00000, .08971, .17495, + .49030, .23946, 1.36892, .12532, .01927, + .00000, .09070, .17394, + .49173, .23880, 1.37050, .12469, .02289, + .00082, .09131, .17277, + .49300, .23796, 1.36848, .12376, .02708, + .00310, .09179, .17122, + .49397, .23696, 1.36238, .12266, .03133, + .00642, .09213, .16946, + .49461, .23594, 1.35394, .12161, .03488, + .00900, .09236, .16786 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .49489, .23480, 1.34191, .12057, .03800, + .01144, .09249, .16623, + .49494, .23379, 1.33018, .11976, .04023, + .01334, .09257, .16490, + .49482, .23251, 1.31442, .11885, .04252, + .01550, .09265, .16334, + .49449, .23131, 1.29859, .11805, .04419, + .01727, .09266, .16199, + .49402, .23015, 1.28277, .11732, .04547, + .01878, .09263, .16076, + .49328, .22863, 1.26179, .11641, .04684, + .02058, .09255, .15923, + .49237, .22712, 1.24051, .11551, .04790, + .02212, .09240, .15775, + .49132, .22566, 1.21963, .11466, .04873, + .02345, .09219, .15632 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49019, .22418, 1.19854, .11380, .04946, + .02471, .09195, .15489, + .48885, .22267, 1.17667, .11289, .05003, + .02581, .09162, .15343, + .48752, .22123, 1.15598, .11202, .05051, + .02678, .09129, .15204, + .48614, .21982, 1.13602, .11116, .05089, + .02762, .09092, .15069, + .48468, .21840, 1.11585, .11028, .05121, + .02841, .09052, .14932, + .48314, .21697, 1.09579, .10939, .05148, + .02911, .09009, .14795, + .48161, .21559, 1.07671, .10852, .05169, + .02974, .08965, .14664, + .48008, .21426, 1.05847, .10767, .05185, + .03028, .08920, .14538 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47852, .21292, 1.04033, .10681, .05199, + .03079, .08874, .14411, + .47684, .21156, 1.02208, .10594, .05207, + .03124, .08823, .14281, + .47526, .21028, 1.00510, .10512, .05214, + .03165, .08776, .14159, + .47365, .20902, .98869, .10430, .05216, + .03199, .08726, .14039, + .47201, .20776, .97234, .10347, .05217, + .03231, .08676, .13919 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .51785, .26192, .95254, .10111, .00108, + .00000, .06614, .15671, + .52047, .26149, .98639, .10184, .00191, + -.00001, .06758, .15681, + .52384, .26065, 1.02991, .10277, .00321, + -.00001, .06955, .15682, + .52583, .25989, 1.05549, .10330, .00422, + .00000, .07083, .15667, + .52757, .25897, 1.07775, .10373, .00538, + .00000, .07205, .15635, + .52882, .25810, 1.09349, .10398, .00647, + -.00001, .07297, .15596, + .52969, .25714, 1.10414, .10406, .00763, + -.00001, .07373, .15543, + .53044, .25607, 1.11325, .10402, .00902, + .00000, .07443, .15473 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .53091, .25508, 1.11882, .10385, .01038, + .00000, .07494, .15399, + .53115, .25405, 1.12159, .10357, .01182, + .00000, .07532, .15316, + .53128, .25321, 1.12307, .10327, .01307, + -.00001, .07557, .15244, + .53118, .25132, 1.12178, .10241, .01598, + -.00001, .07590, .15064, + .53077, .24959, 1.11706, .10144, .01870, + .00061, .07600, .14888, + .53000, .24757, 1.10859, .10021, .02182, + .00235, .07597, .14676, + .52887, .24539, 1.09651, .09883, .02494, + .00487, .07581, .14446, + .52759, .24334, 1.08324, .09756, .02751, + .00679, .07560, .14239 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .52598, .24117, 1.06711, .09631, .02973, + .00860, .07532, .14029, + .52445, .23933, 1.05244, .09530, .03130, + .00998, .07506, .13860, + .52243, .23708, 1.03363, .09414, .03287, + .01155, .07473, .13662, + .52045, .23503, 1.01568, .09313, .03399, + .01282, .07441, .13491, + .51847, .23311, .99837, .09222, .03483, + .01389, .07407, .13334, + .51584, .23067, .97597, .09108, .03570, + .01516, .07362, .13139, + .51315, .22831, .95398, .09000, .03633, + .01622, .07314, .12954, + .51049, .22607, .93288, .08897, .03681, + .01713, .07265, .12782 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .50778, .22384, .91189, .08794, .03721, + .01797, .07215, .12611, + .50492, .22159, .89067, .08689, .03749, + .01870, .07159, .12440, + .50217, .21948, .87081, .08590, .03772, + .01934, .07105, .12279, + .49944, .21748, .85193, .08496, .03787, + .01990, .07050, .12126, + .49666, .21546, .83308, .08400, .03799, + .02040, .06993, .11972, + .49384, .21346, .81457, .08305, .03806, + .02083, .06936, .11821, + .49111, .21156, .79714, .08214, .03810, + .02121, .06879, .11677, + .48845, .20976, .78066, .08126, .03811, + .02153, .06822, .11540 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48577, .20795, .76437, .08039, .03811, + .02184, .06766, .11403, + .48301, .20613, .74819, .07950, .03806, + .02210, .06707, .11267, + .48041, .20442, .73319, .07866, .03801, + .02234, .06652, .11139, + .47784, .20276, .71886, .07785, .03793, + .02252, .06597, .11015, + .47525, .20110, .70465, .07704, .03784, + .02269, .06541, .10891 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .57769, .28112, .82304, .08259, .00105, + -.00001, .05660, .13823, + .57815, .27935, .85048, .08285, .00185, + .00000, .05750, .13750, + .57831, .27660, .88381, .08308, .00304, + -.00001, .05867, .13631, + .57798, .27447, .90162, .08312, .00394, + -.00001, .05938, .13534, + .57732, .27215, .91564, .08306, .00493, + -.00001, .06001, .13423, + .57650, .27010, .92430, .08292, .00585, + -.00001, .06047, .13318, + .57539, .26804, .92837, .08265, .00679, + -.00001, .06079, .13207, + .57406, .26583, .93064, .08228, .00789, + -.00001, .06104, .13081 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .57272, .26389, .93047, .08187, .00894, + .00000, .06119, .12962, + .57124, .26195, .92800, .08136, .01003, + -.00001, .06124, .12840, + .57001, .26040, .92543, .08091, .01096, + -.00001, .06124, .12739, + .56704, .25705, .91620, .07979, .01311, + .00000, .06110, .12506, + .56420, .25409, .90534, .07868, .01508, + .00045, .06084, .12293, + .56076, .25076, .89076, .07732, .01730, + .00173, .06044, .12046, + .55689, .24727, .87321, .07587, .01948, + .00358, .05994, .11787, + .55319, .24406, .85570, .07454, .02123, + .00497, .05944, .11558 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .54915, .24079, .83616, .07325, .02272, + .00625, .05888, .11326, + .54567, .23806, .81919, .07220, .02375, + .00723, .05841, .11139, + .54133, .23476, .79817, .07098, .02475, + .00832, .05782, .10920, + .53733, .23183, .77887, .06991, .02544, + .00918, .05729, .10730, + .53355, .22911, .76078, .06894, .02593, + .00990, .05677, .10560, + .52867, .22569, .73787, .06775, .02640, + .01075, .05611, .10350, + .52391, .22249, .71599, .06663, .02673, + .01144, .05545, .10151, + .51935, .21948, .69548, .06557, .02694, + .01203, .05481, .09968 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51478, .21650, .67536, .06454, .02710, + .01257, .05417, .09788, + .51013, .21356, .65545, .06350, .02718, + .01302, .05349, .09611, + .50573, .21082, .63705, .06254, .02722, + .01341, .05286, .09446, + .50151, .20823, .61985, .06162, .02722, + .01373, .05224, .09291, + .49726, .20565, .60287, .06069, .02720, + .01402, .05161, .09138, + .49303, .20310, .58641, .05978, .02715, + .01427, .05098, .08988, + .48898, .20071, .57105, .05893, .02707, + .01449, .05037, .08847, + .48508, .19846, .55671, .05812, .02698, + .01465, .04980, .08713 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .48117, .19622, .54262, .05731, .02689, + .01481, .04922, .08581, + .47725, .19397, .52880, .05650, .02677, + .01494, .04863, .08449, + .47357, .19187, .51605, .05574, .02665, + .01506, .04807, .08327, + .46999, .18987, .50402, .05500, .02652, + .01514, .04753, .08210, + .46640, .18786, .49215, .05427, .02638, + .01520, .04699, .08094 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .62478, .29144, .75608, .06649, .00102, + -.00002, .04763, .11936, + .62281, .28839, .77567, .06650, .00178, + -.00002, .04821, .11818, + .61945, .28377, .79719, .06638, .00289, + -.00003, .04891, .11635, + .61658, .28037, .80655, .06621, .00370, + -.00003, .04929, .11494, + .61329, .27678, .81194, .06593, .00456, + -.00002, .04958, .11339, + .61027, .27365, .81344, .06558, .00534, + -.00003, .04975, .11202, + .60708, .27060, .81112, .06516, .00610, + -.00003, .04981, .11063, + .60356, .26737, .80692, .06465, .00698, + -.00003, .04981, .10910 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .60037, .26456, .80147, .06413, .00781, + -.00003, .04976, .10772, + .59711, .26182, .79432, .06357, .00865, + -.00003, .04963, .10632, + .59450, .25967, .78820, .06308, .00936, + -.00002, .04949, .10520, + .58863, .25504, .77222, .06191, .01097, + -.00003, .04910, .10267, + .58337, .25105, .75635, .06081, .01241, + .00032, .04866, .10043, + .57729, .24662, .73700, .05951, .01401, + .00130, .04809, .09791, + .57076, .24205, .71541, .05812, .01554, + .00269, .04742, .09531, + .56474, .23790, .69497, .05687, .01676, + .00373, .04680, .09299 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .55840, .23373, .67328, .05564, .01777, + .00467, .04613, .09071, + .55307, .23029, .65501, .05464, .01844, + .00538, .04557, .08888, + .54658, .22616, .63292, .05347, .01907, + .00615, .04489, .08672, + .54070, .22255, .61319, .05249, .01949, + .00676, .04427, .08483, + .53525, .21924, .59512, .05159, .01976, + .00727, .04370, .08315, + .52833, .21512, .57260, .05047, .02000, + .00785, .04298, .08108, + .52172, .21126, .55155, .04943, .02014, + .00830, .04227, .07917, + .51550, .20767, .53216, .04845, .02019, + .00868, .04160, .07742 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50933, .20415, .51337, .04749, .02021, + .00903, .04094, .07571, + .50314, .20071, .49514, .04655, .02018, + .00932, .04027, .07404, + .49734, .19752, .47847, .04568, .02013, + .00957, .03964, .07249, + .49183, .19454, .46306, .04487, .02005, + .00976, .03903, .07105, + .48632, .19159, .44801, .04405, .01996, + .00993, .03842, .06963, + .48088, .18871, .43357, .04324, .01984, + .01007, .03782, .06825, + .47573, .18599, .42022, .04249, .01973, + .01018, .03725, .06696, + .47084, .18343, .40786, .04179, .01960, + .01027, .03671, .06575 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46595, .18090, .39581, .04109, .01947, + .01035, .03617, .06455, + .46106, .17842, .38414, .04041, .01932, + .01041, .03562, .06336, + .45648, .17611, .37341, .03977, .01918, + .01047, .03512, .06225, + .45208, .17388, .36337, .03915, .01903, + .01049, .03463, .06123, + .44769, .17167, .35353, .03853, .01887, + .01051, .03414, .06022 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .65978, .29429, .72150, .05274, .00098, + -.00001, .03949, .10111, + .65524, .29009, .73194, .05266, .00169, + -.00001, .03983, .09971, + .64817, .28388, .74033, .05243, .00270, + -.00001, .04021, .09759, + .64271, .27936, .74079, .05216, .00341, + -.00001, .04038, .09599, + .63676, .27464, .73745, .05178, .00414, + -.00001, .04046, .09428, + .63149, .27063, .73196, .05140, .00480, + -.00001, .04045, .09277, + .62620, .26675, .72363, .05095, .00542, + -.00001, .04037, .09127, + .62053, .26268, .71349, .05041, .00613, + -.00001, .04022, .08966 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .61552, .25915, .70332, .04989, .00678, + -.00001, .04005, .08821, + .61052, .25576, .69210, .04933, .00742, + -.00001, .03982, .08679, + .60655, .25312, .68298, .04887, .00796, + -.00001, .03963, .08566, + .59792, .24746, .66153, .04778, .00915, + -.00001, .03910, .08319, + .59035, .24265, .64181, .04676, .01020, + .00026, .03859, .08105, + .58179, .23737, .61900, .04557, .01134, + .00101, .03795, .07864, + .57280, .23197, .59468, .04434, .01242, + .00205, .03725, .07617, + .56463, .22712, .57250, .04323, .01325, + .00281, .03660, .07400 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55626, .22227, .54976, .04212, .01393, + .00351, .03590, .07187, + .54927, .21832, .53105, .04125, .01435, + .00402, .03533, .07015, + .54083, .21361, .50883, .04023, .01474, + .00457, .03466, .06814, + .53331, .20951, .48943, .03934, .01497, + .00500, .03404, .06642, + .52643, .20579, .47195, .03855, .01511, + .00534, .03348, .06487, + .51778, .20115, .45050, .03757, .01520, + .00573, .03277, .06297, + .50959, .19687, .43081, .03665, .01522, + .00606, .03211, .06123, + .50194, .19292, .41296, .03581, .01520, + .00631, .03147, .05964 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49438, .18907, .39584, .03499, .01515, + .00653, .03084, .05811, + .48695, .18533, .37948, .03418, .01505, + .00671, .03022, .05661, + .48001, .18186, .36464, .03343, .01495, + .00685, .02964, .05524, + .47347, .17864, .35108, .03274, .01484, + .00696, .02909, .05396, + .46696, .17545, .33796, .03206, .01472, + .00706, .02854, .05271, + .46059, .17236, .32549, .03138, .01459, + .00715, .02800, .05151, + .45458, .16947, .31406, .03074, .01445, + .00721, .02749, .05039, + .44892, .16676, .30357, .03015, .01431, + .00725, .02701, .04935 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .44328, .16409, .29340, .02956, .01417, + .00728, .02653, .04833, + .43768, .16147, .28361, .02900, .01402, + .00730, .02607, .04731, + .43244, .15903, .27465, .02848, .01388, + .00731, .02563, .04636, + .42744, .15672, .26636, .02797, .01374, + .00731, .02521, .04548, + .42245, .15442, .25826, .02747, .01359, + .00731, .02480, .04461 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .68326, .29101, .69980, .04126, .00092, + -.00002, .03221, .08416, + .67614, .28584, .70048, .04116, .00157, + -.00002, .03243, .08269, + .66540, .27827, .69553, .04089, .00248, + -.00002, .03263, .08049, + .65738, .27282, .68732, .04059, .00310, + -.00003, .03266, .07887, + .64885, .26719, .67578, .04021, .00373, + -.00003, .03261, .07715, + .64144, .26243, .66395, .03983, .00426, + -.00003, .03252, .07565, + .63418, .25788, .65035, .03939, .00477, + -.00002, .03235, .07419, + .62647, .25313, .63517, .03889, .00532, + -.00002, .03214, .07262 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .61972, .24905, .62115, .03840, .00583, + -.00002, .03192, .07123, + .61312, .24515, .60672, .03789, .00632, + -.00002, .03165, .06989, + .60792, .24211, .59527, .03746, .00672, + -.00001, .03143, .06883, + .59676, .23568, .56980, .03647, .00760, + -.00001, .03088, .06654, + .58710, .23026, .54743, .03560, .00837, + .00020, .03035, .06453, + .57634, .22434, .52245, .03458, .00918, + .00077, .02972, .06234, + .56518, .21834, .49673, .03351, .00993, + .00156, .02903, .06014, + .55512, .21302, .47386, .03258, .01049, + .00214, .02841, .05816 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54493, .20771, .45103, .03165, .01093, + .00265, .02776, .05626, + .53654, .20340, .43261, .03089, .01119, + .00302, .02723, .05473, + .52647, .19832, .41109, .03001, .01141, + .00341, .02660, .05296, + .51761, .19390, .39260, .02925, .01152, + .00373, .02603, .05145, + .50951, .18993, .37619, .02858, .01157, + .00397, .02552, .05009, + .49937, .18503, .35630, .02776, .01158, + .00423, .02487, .04842, + .48995, .18049, .33833, .02698, .01154, + .00446, .02426, .04691, + .48117, .17634, .32224, .02628, .01148, + .00462, .02370, .04551 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .47254, .17231, .30697, .02560, .01140, + .00476, .02315, .04416, + .46415, .16840, .29256, .02493, .01127, + .00488, .02260, .04290, + .45634, .16480, .27961, .02431, .01115, + .00497, .02209, .04173, + .44901, .16148, .26788, .02374, .01103, + .00503, .02161, .04065, + .44175, .15821, .25661, .02318, .01090, + .00508, .02114, .03959, + .43468, .15505, .24600, .02263, .01077, + .00511, .02068, .03857, + .42804, .15210, .23634, .02212, .01063, + .00514, .02025, .03762, + .42180, .14935, .22757, .02165, .01051, + .00516, .01985, .03674 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .41562, .14663, .21909, .02118, .01037, + .00517, .01945, .03588, + .40953, .14397, .21099, .02072, .01023, + .00518, .01906, .03505, + .40385, .14150, .20360, .02029, .01010, + .00518, .01869, .03429, + .39843, .13919, .19682, .01989, .00997, + .00517, .01835, .03356, + .39304, .13690, .19022, .01949, .00984, + .00515, .01800, .03284 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .69585, .28274, .67909, .03184, .00085, + -.00002, .02592, .06884, + .68629, .27676, .67038, .03173, .00144, + -.00002, .02605, .06743, + .67207, .26809, .65305, .03147, .00223, + -.00002, .02613, .06533, + .66165, .26192, .63715, .03119, .00276, + -.00002, .02609, .06379, + .65072, .25559, .61858, .03083, .00329, + -.00002, .02598, .06216, + .64134, .25026, .60151, .03049, .00374, + -.00002, .02583, .06076, + .63225, .24521, .58370, .03009, .00414, + -.00001, .02563, .05939, + .62268, .23997, .56461, .02963, .00458, + -.00001, .02539, .05795 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .61438, .23550, .54772, .02921, .00496, + -.00001, .02514, .05670, + .60636, .23122, .53102, .02875, .00533, + -.00001, .02487, .05548, + .60007, .22789, .51799, .02839, .00563, + -.00002, .02465, .05453, + .58662, .22099, .49002, .02757, .00627, + -.00002, .02411, .05246, + .57515, .21516, .46626, .02682, .00681, + .00015, .02361, .05071, + .56251, .20881, .44040, .02596, .00738, + .00058, .02303, .04880, + .54952, .20243, .41443, .02507, .00789, + .00118, .02242, .04685, + .53787, .19683, .39182, .02429, .00826, + .00162, .02186, .04516 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52620, .19126, .36972, .02352, .00853, + .00200, .02128, .04352, + .51665, .18678, .35219, .02290, .00868, + .00227, .02080, .04220, + .50527, .18151, .33198, .02218, .00880, + .00257, .02024, .04066, + .49531, .17695, .31485, .02157, .00884, + .00278, .01975, .03936, + .48629, .17285, .29984, .02101, .00884, + .00296, .01930, .03820, + .47507, .16781, .28185, .02032, .00880, + .00315, .01873, .03680, + .46468, .16318, .26583, .01968, .00872, + .00329, .01821, .03554, + .45507, .15897, .25163, .01910, .00863, + .00340, .01772, .03438 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .44568, .15490, .23827, .01855, .00854, + .00350, .01724, .03325, + .43655, .15100, .22583, .01801, .00842, + .00357, .01678, .03217, + .42810, .14740, .21473, .01752, .00831, + .00361, .01636, .03119, + .42023, .14407, .20478, .01707, .00819, + .00364, .01595, .03031, + .41247, .14081, .19528, .01662, .00806, + .00366, .01556, .02944, + .40496, .13768, .18637, .01618, .00793, + .00368, .01519, .02860, + .39792, .13476, .17833, .01578, .00781, + .00369, .01484, .02783, + .39132, .13205, .17108, .01541, .00770, + .00369, .01451, .02711 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .38480, .12939, .16410, .01504, .00759, + .00370, .01418, .02641, + .37839, .12681, .15748, .01469, .00746, + .00369, .01386, .02574, + .37242, .12441, .15146, .01436, .00734, + .00368, .01356, .02512, + .36678, .12215, .14598, .01405, .00723, + .00367, .01328, .02453, + .36119, .11992, .14068, .01374, .00712, + .00365, .01301, .02395 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .69835, .27051, .65309, .02421, .00078, + .00006, .02057, .05542, + .68649, .26395, .63611, .02412, .00129, + .00005, .02063, .05413, + .66908, .25449, .60829, .02390, .00197, + .00005, .02062, .05220, + .65649, .24780, .58614, .02366, .00241, + .00004, .02054, .05081, + .64338, .24099, .56209, .02336, .00284, + .00003, .02039, .04933, + .63221, .23531, .54109, .02308, .00320, + .00004, .02023, .04804, + .62155, .22991, .52029, .02273, .00351, + .00003, .02003, .04684, + .61037, .22435, .49860, .02235, .00384, + .00003, .01978, .04557 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60071, .21965, .47992, .02201, .00413, + .00004, .01953, .04446, + .59146, .21515, .46194, .02162, .00440, + .00004, .01927, .04340, + .58425, .21166, .44809, .02131, .00462, + .00005, .01906, .04257, + .56893, .20442, .41904, .02063, .00508, + .00002, .01858, .04078, + .55593, .19840, .39499, .02004, .00546, + .00014, .01813, .03928, + .54171, .19189, .36939, .01936, .00584, + .00047, .01762, .03764, + .52724, .18533, .34418, .01864, .00617, + .00091, .01709, .03599, + .51440, .17959, .32258, .01800, .00640, + .00123, .01659, .03458 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .50159, .17395, .30187, .01737, .00656, + .00151, .01610, .03320, + .49116, .16942, .28565, .01687, .00665, + .00170, .01570, .03210, + .47880, .16410, .26715, .01629, .00669, + .00190, .01521, .03082, + .46806, .15951, .25170, .01578, .00669, + .00206, .01479, .02975, + .45837, .15542, .23832, .01533, .00667, + .00218, .01441, .02880, + .44638, .15042, .22243, .01478, .00661, + .00230, .01393, .02764, + .43530, .14587, .20843, .01429, .00652, + .00239, .01350, .02658, + .42513, .14172, .19616, .01384, .00643, + .00246, .01310, .02562 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .41523, .13770, .18469, .01340, .00634, + .00253, .01271, .02471, + .40566, .13389, .17413, .01298, .00623, + .00257, .01232, .02384, + .39684, .13039, .16476, .01259, .00613, + .00259, .01197, .02305, + .38868, .12715, .15643, .01222, .00601, + .00260, .01165, .02235, + .38064, .12399, .14853, .01187, .00590, + .00262, .01133, .02166, + .37286, .12095, .14120, .01155, .00579, + .00263, .01103, .02098, + .36561, .11814, .13460, .01124, .00569, + .00263, .01075, .02036, + .35885, .11555, .12866, .01095, .00559, + .00262, .01049, .01979 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .35218, .11300, .12298, .01066, .00549, + .00261, .01023, .01923, + .34567, .11052, .11765, .01038, .00538, + .00259, .00998, .01871, + .33962, .10822, .11282, .01011, .00528, + .00258, .00974, .01823, + .33390, .10608, .10844, .00987, .00519, + .00257, .00952, .01777, + .32823, .10396, .10421, .00964, .00511, + .00255, .00931, .01732 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .69133, .25557, .61945, .01837, .00058, + -.00017, .01591, .04391, + .67746, .24858, .59572, .01831, .00103, + -.00016, .01595, .04274, + .65730, .23856, .55970, .01809, .00161, + -.00015, .01592, .04107, + .64283, .23156, .53296, .01787, .00198, + -.00016, .01583, .03983, + .62789, .22445, .50512, .01761, .00234, + -.00016, .01569, .03853, + .61528, .21852, .48157, .01735, .00262, + -.00014, .01552, .03745, + .60326, .21297, .45905, .01708, .00286, + -.00014, .01534, .03639, + .59074, .20724, .43599, .01676, .00312, + -.00014, .01512, .03528 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58003, .20237, .41652, .01646, .00334, + -.00013, .01493, .03432, + .56979, .19779, .39814, .01614, .00354, + -.00013, .01470, .03343, + .56181, .19425, .38411, .01589, .00369, + -.00012, .01450, .03274, + .54499, .18690, .35528, .01536, .00400, + -.00012, .01408, .03125, + .53087, .18079, .33191, .01487, .00426, + -.00002, .01370, .03000, + .51550, .17423, .30743, .01430, .00452, + .00023, .01327, .02866, + .49994, .16768, .28372, .01373, .00473, + .00058, .01282, .02732, + .48621, .16194, .26372, .01322, .00488, + .00083, .01242, .02614 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .47257, .15640, .24487, .01274, .00498, + .00103, .01200, .02500, + .46155, .15192, .23024, .01233, .00501, + .00118, .01166, .02411, + .44855, .14668, .21372, .01185, .00502, + .00133, .01127, .02310, + .43727, .14221, .20010, .01147, .00500, + .00145, .01093, .02221, + .42714, .13824, .18840, .01113, .00496, + .00153, .01062, .02143, + .41467, .13339, .17464, .01071, .00489, + .00162, .01024, .02049, + .40323, .12897, .16266, .01031, .00480, + .00170, .00989, .01965, + .39278, .12496, .15225, .00995, .00472, + .00174, .00956, .01889 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .38265, .12111, .14261, .00960, .00464, + .00178, .00924, .01817, + .37290, .11745, .13378, .00927, .00454, + .00180, .00894, .01747, + .36395, .11410, .12601, .00897, .00445, + .00182, .00867, .01684, + .35567, .11102, .11914, .00870, .00436, + .00183, .00841, .01628, + .34753, .10802, .11267, .00843, .00427, + .00184, .00816, .01573, + .33968, .10516, .10669, .00818, .00418, + .00184, .00792, .01520, + .33240, .10252, .10134, .00794, .00410, + .00183, .00770, .01472, + .32566, .10008, .09656, .00772, .00402, + .00183, .00750, .01427 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .31902, .09768, .09201, .00750, .00394, + .00182, .00730, .01384, + .31252, .09537, .08776, .00729, .00385, + .00181, .00710, .01344, + .30649, .09323, .08392, .00710, .00377, + .00180, .00692, .01307, + .30082, .09122, .08046, .00692, .00369, + .00179, .00675, .01273, + .29522, .08923, .07712, .00674, .00362, + .00177, .00659, .01240 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .67632, .23803, .57746, .01351, .00054, + -.00002, .01231, .03426, + .66074, .23081, .54879, .01345, .00092, + -.00003, .01232, .03327, + .63816, .22058, .50719, .01332, .00138, + -.00002, .01224, .03181, + .62212, .21344, .47759, .01315, .00168, + -.00003, .01215, .03075, + .60566, .20623, .44763, .01295, .00196, + -.00004, .01201, .02965, + .59179, .20027, .42285, .01277, .00218, + -.00003, .01186, .02871, + .57872, .19466, .39978, .01253, .00236, + -.00004, .01168, .02785, + .56517, .18890, .37649, .01226, .00254, + -.00004, .01148, .02695 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55360, .18406, .35713, .01204, .00270, + -.00003, .01130, .02615, + .54259, .17950, .33912, .01180, .00283, + -.00003, .01111, .02539, + .53404, .17598, .32550, .01162, .00294, + -.00003, .01096, .02480, + .51618, .16869, .29794, .01118, .00316, + -.00002, .01058, .02360, + .50121, .16269, .27593, .01079, .00333, + .00005, .01027, .02259, + .48499, .15627, .25320, .01037, .00350, + .00023, .00991, .02148, + .46867, .14988, .23156, .00993, .00363, + .00048, .00954, .02040, + .45435, .14431, .21358, .00955, .00371, + .00066, .00919, .01948 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .44025, .13891, .19678, .00916, .00375, + .00080, .00886, .01857, + .42887, .13460, .18389, .00886, .00376, + .00089, .00860, .01785, + .41549, .12959, .16949, .00852, .00375, + .00099, .00829, .01701, + .40397, .12532, .15777, .00822, .00371, + .00108, .00800, .01633, + .39369, .12151, .14777, .00795, .00366, + .00113, .00775, .01573, + .38106, .11688, .13609, .00761, .00358, + .00119, .00744, .01500, + .36948, .11271, .12602, .00732, .00352, + .00123, .00715, .01433, + .35898, .10894, .11734, .00705, .00345, + .00126, .00691, .01373 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .34884, .10531, .10934, .00678, .00337, + .00129, .00667, .01315, + .33910, .10187, .10210, .00652, .00329, + .00129, .00643, .01263, + .33017, .09873, .09577, .00629, .00322, + .00130, .00621, .01215, + .32195, .09586, .09020, .00610, .00314, + .00130, .00601, .01170, + .31391, .09308, .08498, .00590, .00307, + .00130, .00582, .01128, + .30619, .09042, .08019, .00570, .00299, + .00130, .00563, .01090, + .29902, .08798, .07592, .00552, .00292, + .00130, .00546, .01054, + .29238, .08573, .07213, .00538, .00286, + .00129, .00531, .01020 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .28585, .08353, .06853, .00523, .00279, + .00129, .00515, .00988, + .27954, .08139, .06519, .00507, .00273, + .00127, .00501, .00955, + .27370, .07943, .06217, .00492, .00267, + .00126, .00488, .00926, + .26821, .07760, .05947, .00479, .00261, + .00125, .00475, .00899, + .26278, .07580, .05687, .00465, .00256, + .00123, .00462, .00874 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .65390, .21919, .52879, .00987, .00046, + -.00004, .00932, .02627, + .63687, .21195, .49702, .00984, .00075, + -.00004, .00932, .02544, + .61242, .20170, .45233, .00973, .00114, + -.00003, .00926, .02421, + .59517, .19457, .42150, .00959, .00136, + -.00004, .00916, .02336, + .57758, .18739, .39094, .00943, .00157, + -.00005, .00903, .02247, + .56283, .18147, .36613, .00929, .00175, + -.00004, .00890, .02168, + .54898, .17596, .34343, .00911, .00189, + -.00004, .00874, .02097, + .53468, .17032, .32081, .00891, .00202, + -.00003, .00857, .02023 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52253, .16557, .30226, .00872, .00212, + -.00002, .00843, .01960, + .51101, .16112, .28522, .00853, .00221, + -.00002, .00826, .01900, + .50210, .15769, .27243, .00838, .00229, + -.00001, .00812, .01854, + .48353, .15062, .24686, .00806, .00244, + -.00002, .00783, .01755, + .46806, .14482, .22675, .00777, .00254, + .00003, .00758, .01674, + .45140, .13864, .20629, .00744, .00264, + .00016, .00729, .01588, + .43473, .13252, .18703, .00711, .00271, + .00035, .00698, .01503, + .42010, .12724, .17118, .00683, .00276, + .00047, .00671, .01429 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40582, .12212, .15662, .00653, .00278, + .00057, .00646, .01357, + .39436, .11802, .14554, .00630, .00277, + .00064, .00624, .01303, + .38094, .11327, .13324, .00603, .00274, + .00072, .00598, .01241, + .36940, .10926, .12332, .00581, .00270, + .00077, .00577, .01186, + .35914, .10571, .11492, .00559, .00266, + .00081, .00557, .01140, + .34660, .10138, .10518, .00533, .00261, + .00085, .00533, .01084, + .33512, .09748, .09688, .00515, .00254, + .00087, .00512, .01030, + .32474, .09398, .08976, .00495, .00248, + .00089, .00493, .00984 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .31476, .09063, .08324, .00476, .00242, + .00091, .00474, .00941, + .30522, .08746, .07740, .00456, .00236, + .00092, .00456, .00902, + .29651, .08458, .07231, .00439, .00230, + .00093, .00440, .00866, + .28853, .08196, .06785, .00423, .00223, + .00092, .00424, .00833, + .28073, .07942, .06370, .00409, .00217, + .00092, .00410, .00801, + .27326, .07699, .05991, .00396, .00211, + .00091, .00396, .00769, + .26635, .07476, .05655, .00384, .00206, + .00090, .00383, .00741, + .25996, .07272, .05358, .00372, .00201, + .00089, .00371, .00717 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .25370, .07072, .05076, .00360, .00196, + .00088, .00360, .00692, + .24764, .06879, .04818, .00349, .00191, + .00087, .00349, .00669, + .24203, .06701, .04585, .00338, .00186, + .00086, .00338, .00648, + .23680, .06536, .04376, .00329, .00182, + .00085, .00329, .00629, + .23165, .06374, .04175, .00319, .00178, + .00085, .00319, .00610 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .62526, .19940, .47525, .00702, .00039, + .00000, .00697, .01988, + .60717, .19228, .44215, .00701, .00063, + .00000, .00696, .01919, + .58135, .18221, .39662, .00694, .00093, + .00000, .00690, .01818, + .56324, .17525, .36596, .00685, .00111, + .00000, .00681, .01747, + .54485, .16828, .33609, .00674, .00127, + .00000, .00669, .01674, + .52951, .16257, .31222, .00661, .00139, + .00001, .00658, .01613, + .51516, .15725, .29067, .00649, .00148, + .00000, .00644, .01556, + .50041, .15181, .26944, .00634, .00157, + .00000, .00630, .01498 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48795, .14723, .25223, .00620, .00164, + .00001, .00618, .01449, + .47614, .14298, .23659, .00607, .00171, + .00001, .00605, .01399, + .46701, .13972, .22492, .00598, .00176, + .00000, .00595, .01361, + .44816, .13299, .20189, .00570, .00185, + .00000, .00572, .01286, + .43251, .12748, .18402, .00548, .00192, + .00004, .00552, .01222, + .41571, .12165, .16602, .00524, .00199, + .00014, .00529, .01155, + .39899, .11590, .14929, .00499, .00202, + .00027, .00505, .01090, + .38441, .11093, .13566, .00479, .00203, + .00037, .00484, .01035 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .37026, .10615, .12325, .00456, .00203, + .00043, .00464, .00980, + .35887, .10235, .11390, .00440, .00202, + .00048, .00447, .00936, + .34557, .09797, .10362, .00422, .00199, + .00052, .00427, .00887, + .33424, .09426, .09538, .00405, .00195, + .00056, .00411, .00847, + .32421, .09097, .08847, .00390, .00192, + .00058, .00396, .00811, + .31198, .08699, .08052, .00372, .00187, + .00061, .00378, .00768, + .30084, .08343, .07378, .00356, .00182, + .00063, .00362, .00731, + .29081, .08023, .06805, .00340, .00177, + .00064, .00347, .00697 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .28118, .07718, .06283, .00325, .00172, + .00064, .00332, .00664, + .27201, .07431, .05819, .00312, .00167, + .00065, .00318, .00634, + .26364, .07171, .05416, .00300, .00161, + .00065, .00306, .00607, + .25599, .06934, .05066, .00289, .00157, + .00064, .00295, .00583, + .24854, .06705, .04741, .00279, .00152, + .00063, .00284, .00559, + .24143, .06488, .04445, .00270, .00148, + .00063, .00274, .00537, + .23488, .06287, .04185, .00261, .00144, + .00062, .00265, .00516, + .22883, .06104, .03955, .00252, .00140, + .00062, .00256, .00498 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .22293, .05925, .03738, .00244, .00137, + .00061, .00248, .00480, + .21724, .05753, .03538, .00234, .00133, + .00060, .00240, .00463, + .21199, .05596, .03359, .00225, .00129, + .00060, .00233, .00448, + .20708, .05450, .03200, .00218, .00126, + .00059, .00226, .00433, + .20224, .05307, .03048, .00212, .00123, + .00057, .00219, .00419 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .59136, .17938, .41909, .00488, .00032, + .00006, .00517, .01478, + .57259, .17247, .38618, .00489, .00052, + .00005, .00515, .01420, + .54593, .16277, .34173, .00483, .00075, + .00005, .00509, .01340, + .52730, .15610, .31240, .00478, .00088, + .00005, .00501, .01284, + .50848, .14946, .28424, .00470, .00100, + .00005, .00490, .01227, + .49287, .14399, .26198, .00460, .00109, + .00005, .00482, .01179, + .47832, .13893, .24219, .00451, .00115, + .00005, .00471, .01135, + .46339, .13379, .22288, .00441, .00122, + .00005, .00459, .01090 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .45081, .12949, .20737, .00431, .00127, + .00004, .00449, .01050, + .43896, .12548, .19341, .00421, .00131, + .00004, .00439, .01013, + .42984, .12240, .18307, .00414, .00134, + .00004, .00431, .00985, + .41096, .11613, .16284, .00397, .00139, + .00005, .00412, .00927, + .39545, .11099, .14731, .00379, .00143, + .00008, .00396, .00880, + .37885, .10557, .13184, .00361, .00147, + .00014, .00378, .00829, + .36236, .10025, .11762, .00344, .00149, + .00022, .00360, .00778, + .34809, .09568, .10615, .00330, .00149, + .00029, .00345, .00733 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33426, .09127, .09580, .00312, .00148, + .00034, .00329, .00695, + .32320, .08780, .08809, .00300, .00146, + .00037, .00316, .00663, + .31033, .08380, .07967, .00287, .00144, + .00040, .00301, .00626, + .29939, .08041, .07294, .00275, .00141, + .00043, .00289, .00595, + .28971, .07744, .06737, .00265, .00137, + .00044, .00278, .00569, + .27795, .07384, .06099, .00252, .00132, + .00045, .00265, .00538, + .26733, .07063, .05562, .00242, .00128, + .00046, .00252, .00509, + .25776, .06776, .05108, .00231, .00124, + .00047, .00241, .00485 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24860, .06503, .04696, .00219, .00120, + .00047, .00231, .00462, + .23991, .06246, .04332, .00210, .00117, + .00046, .00221, .00438, + .23201, .06015, .04017, .00202, .00113, + .00045, .00212, .00417, + .22482, .05804, .03747, .00194, .00110, + .00045, .00204, .00400, + .21783, .05601, .03496, .00187, .00106, + .00044, .00196, .00384, + .21117, .05407, .03269, .00180, .00103, + .00045, .00188, .00367, + .20505, .05230, .03069, .00173, .00100, + .00044, .00181, .00353, + .19944, .05069, .02894, .00166, .00097, + .00043, .00175, .00341 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .19395, .04912, .02729, .00159, .00094, + .00043, .00168, .00328, + .18865, .04762, .02578, .00154, .00091, + .00042, .00162, .00316, + .18376, .04624, .02443, .00149, .00088, + .00041, .00157, .00305, + .17922, .04496, .02323, .00144, .00086, + .00040, .00152, .00295, + .17476, .04370, .02209, .00140, .00084, + .00040, .00148, .00284 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .55323, .15970, .36281, .00345, .00024, + .00002, .00372, .01074, + .53414, .15310, .33127, .00343, .00039, + .00000, .00370, .01032, + .50712, .14392, .28940, .00339, .00055, + .00001, .00364, .00970, + .48836, .13762, .26223, .00335, .00065, + .00002, .00358, .00926, + .46951, .13135, .23648, .00328, .00073, + .00002, .00350, .00883, + .45391, .12623, .21640, .00320, .00080, + .00001, .00342, .00848, + .43942, .12150, .19874, .00313, .00085, + .00002, .00334, .00813, + .42461, .11671, .18164, .00306, .00089, + .00002, .00326, .00777 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .41216, .11273, .16800, .00299, .00093, + .00001, .00318, .00748, + .40047, .10901, .15583, .00292, .00096, + .00001, .00310, .00720, + .39148, .10616, .14686, .00287, .00098, + .00002, .00304, .00698, + .37299, .10035, .12950, .00273, .00101, + .00001, .00289, .00657, + .35785, .09565, .11632, .00261, .00103, + .00003, .00278, .00621, + .34171, .09069, .10332, .00249, .00104, + .00009, .00265, .00582, + .32576, .08583, .09148, .00237, .00105, + .00015, .00252, .00544, + .31200, .08167, .08203, .00225, .00106, + .00019, .00240, .00513 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .29867, .07770, .07360, .00216, .00103, + .00022, .00228, .00484, + .28809, .07456, .06733, .00207, .00101, + .00025, .00219, .00461, + .27584, .07095, .06053, .00196, .00099, + .00027, .00208, .00435, + .26544, .06791, .05517, .00189, .00097, + .00029, .00199, .00412, + .25626, .06526, .05074, .00181, .00095, + .00030, .00191, .00392, + .24512, .06207, .04570, .00172, .00092, + .00031, .00181, .00370, + .23515, .05921, .04150, .00162, .00088, + .00032, .00172, .00350, + .22617, .05667, .03797, .00155, .00085, + .00031, .00164, .00332 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21759, .05426, .03479, .00148, .00082, + .00030, .00156, .00314, + .20950, .05198, .03197, .00142, .00079, + .00030, .00148, .00299, + .20217, .04993, .02955, .00136, .00076, + .00030, .00142, .00286, + .19550, .04808, .02748, .00130, .00074, + .00029, .00137, .00272, + .18904, .04631, .02557, .00124, .00072, + .00029, .00131, .00259, + .18289, .04463, .02384, .00119, .00070, + .00030, .00126, .00248, + .17725, .04309, .02234, .00115, .00068, + .00030, .00121, .00238, + .17210, .04168, .02102, .00110, .00065, + .00029, .00117, .00228 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16707, .04032, .01979, .00106, .00063, + .00029, .00113, .00219, + .16220, .03903, .01866, .00103, .00061, + .00028, .00108, .00211, + .15773, .03784, .01765, .00100, .00059, + .00027, .00104, .00203, + .15358, .03674, .01675, .00097, .00057, + .00027, .00101, .00195, + .14950, .03566, .01590, .00095, .00056, + .00026, .00098, .00187 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .51210, .14047, .30802, .00231, .00019, + .00004, .00264, .00771, + .49297, .13434, .27888, .00233, .00029, + .00004, .00261, .00737, + .46609, .12577, .24076, .00231, .00041, + .00004, .00257, .00690, + .44753, .11993, .21635, .00229, .00047, + .00004, .00251, .00656, + .42890, .11413, .19345, .00226, .00054, + .00004, .00245, .00622, + .41353, .10941, .17577, .00223, .00058, + .00004, .00240, .00596, + .39937, .10506, .16040, .00217, .00061, + .00003, .00233, .00571, + .38493, .10066, .14563, .00211, .00064, + .00002, .00226, .00546 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37282, .09701, .13394, .00206, .00065, + .00003, .00220, .00524, + .36148, .09363, .12359, .00201, .00067, + .00002, .00213, .00504, + .35279, .09105, .11602, .00196, .00068, + .00001, .00208, .00488, + .33496, .08579, .10147, .00188, .00071, + .00002, .00198, .00456, + .32040, .08153, .09054, .00180, .00072, + .00004, .00190, .00429, + .30497, .07705, .07984, .00171, .00072, + .00007, .00180, .00401, + .28977, .07270, .07020, .00162, .00072, + .00010, .00171, .00375, + .27669, .06898, .06256, .00155, .00071, + .00012, .00161, .00353 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .26409, .06543, .05580, .00148, .00070, + .00015, .00154, .00331, + .25412, .06264, .05081, .00142, .00068, + .00017, .00147, .00315, + .24261, .05944, .04544, .00135, .00066, + .00018, .00139, .00296, + .23289, .05677, .04123, .00129, .00065, + .00019, .00133, .00279, + .22434, .05443, .03777, .00123, .00063, + .00019, .00127, .00265, + .21399, .05161, .03386, .00117, .00060, + .00020, .00120, .00248, + .20472, .04911, .03061, .00111, .00058, + .00019, .00114, .00235, + .19642, .04688, .02791, .00105, .00056, + .00019, .00108, .00222 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18851, .04477, .02548, .00101, .00053, + .00020, .00102, .00210, + .18105, .04281, .02335, .00097, .00051, + .00020, .00098, .00199, + .17432, .04104, .02152, .00093, .00049, + .00020, .00094, .00189, + .16824, .03945, .01996, .00088, .00048, + .00019, .00090, .00179, + .16234, .03791, .01853, .00085, .00047, + .00019, .00086, .00171, + .15674, .03646, .01724, .00082, .00045, + .00019, .00082, .00164, + .15162, .03514, .01612, .00079, .00043, + .00019, .00078, .00157, + .14693, .03393, .01514, .00076, .00042, + .00018, .00075, .00151 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .14238, .03276, .01423, .00073, .00040, + .00017, .00072, .00145, + .13800, .03166, .01340, .00070, .00039, + .00017, .00069, .00139, + .13399, .03064, .01265, .00067, .00037, + .00016, .00066, .00134, + .13026, .02970, .01200, .00065, .00036, + .00016, .00064, .00129, + .12661, .02879, .01137, .00064, .00035, + .00016, .00063, .00123 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .46879, .12206, .25638, .00149, .00015, + .00006, .00186, .00541, + .44999, .11641, .23024, .00151, .00023, + .00006, .00184, .00516, + .42364, .10855, .19646, .00152, .00031, + .00004, .00180, .00481, + .40554, .10321, .17510, .00150, .00036, + .00004, .00175, .00457, + .38750, .09793, .15528, .00146, .00040, + .00004, .00170, .00432, + .37271, .09362, .14015, .00142, .00044, + .00005, .00167, .00412, + .35903, .08969, .12707, .00139, .00046, + .00004, .00162, .00395, + .34512, .08572, .11460, .00136, .00048, + .00004, .00156, .00376 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33349, .08243, .10483, .00133, .00048, + .00003, .00151, .00360, + .32267, .07939, .09625, .00130, .00049, + .00003, .00147, .00345, + .31438, .07708, .09000, .00128, .00049, + .00003, .00144, .00333, + .29745, .07236, .07809, .00123, .00052, + .00003, .00137, .00309, + .28368, .06855, .06920, .00116, .00052, + .00005, .00130, .00292, + .26913, .06458, .06060, .00109, .00051, + .00007, .00123, .00273, + .25484, .06074, .05293, .00104, .00051, + .00009, .00116, .00253, + .24261, .05748, .04690, .00100, .00050, + .00010, .00110, .00236 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .23086, .05436, .04159, .00096, .00049, + .00012, .00104, .00221, + .22160, .05192, .03770, .00092, .00048, + .00013, .00099, .00210, + .21095, .04912, .03355, .00086, .00047, + .00014, .00093, .00197, + .20200, .04678, .03032, .00081, .00045, + .00014, .00089, .00186, + .19413, .04474, .02767, .00077, .00043, + .00014, .00085, .00177, + .18464, .04231, .02469, .00074, .00041, + .00014, .00080, .00167, + .17617, .04015, .02224, .00069, .00041, + .00015, .00077, .00154, + .16860, .03824, .02020, .00066, .00039, + .00015, .00073, .00145 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16140, .03644, .01837, .00063, .00037, + .00014, .00068, .00137, + .15466, .03476, .01679, .00059, .00035, + .00014, .00064, .00130, + .14857, .03325, .01544, .00056, .00034, + .00014, .00062, .00124, + .14305, .03188, .01429, .00055, .00033, + .00014, .00059, .00119, + .13774, .03057, .01323, .00053, .00032, + .00013, .00057, .00113, + .13272, .02934, .01229, .00051, .00031, + .00014, .00054, .00107, + .12814, .02822, .01147, .00050, .00029, + .00013, .00051, .00102, + .12396, .02721, .01075, .00047, .00028, + .00013, .00050, .00097 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11990, .02623, .01008, .00045, .00027, + .00012, .00048, .00093, + .11602, .02530, .00948, .00043, .00026, + .00012, .00046, .00089, + .11246, .02445, .00894, .00040, .00025, + .00011, .00044, .00086, + .10917, .02366, .00846, .00039, .00024, + .00011, .00043, .00083, + .10595, .02289, .00801, .00039, .00024, + .00011, .00041, .00080 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .42432, .10485, .20924, .00099, .00012, + .00005, .00126, .00372, + .40618, .09969, .18638, .00095, .00017, + .00005, .00125, .00355, + .38085, .09255, .15719, .00091, .00023, + .00005, .00123, .00330, + .36347, .08774, .13899, .00091, .00027, + .00004, .00120, .00311, + .34618, .08299, .12228, .00091, .00030, + .00003, .00117, .00293, + .33207, .07913, .10963, .00089, .00032, + .00003, .00114, .00278, + .31909, .07562, .09880, .00086, .00033, + .00003, .00111, .00266, + .30591, .07209, .08855, .00085, .00035, + .00003, .00107, .00253 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29492, .06918, .08057, .00084, .00036, + .00002, .00104, .00241, + .28475, .06647, .07361, .00081, .00036, + .00002, .00100, .00231, + .27700, .06441, .06856, .00078, .00036, + .00002, .00098, .00223, + .26114, .06028, .05903, .00074, .00036, + .00002, .00093, .00206, + .24829, .05694, .05198, .00070, .00037, + .00002, .00088, .00193, + .23477, .05346, .04522, .00066, .00037, + .00004, .00084, .00180, + .22157, .05010, .03923, .00062, .00036, + .00007, .00079, .00167, + .21030, .04727, .03457, .00059, .00036, + .00008, .00075, .00154 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19954, .04457, .03050, .00055, .00034, + .00009, .00070, .00147, + .19106, .04246, .02754, .00053, .00034, + .00010, .00067, .00138, + .18131, .04007, .02438, .00051, .00034, + .00010, .00063, .00127, + .17316, .03806, .02194, .00049, .00032, + .00011, .00061, .00119, + .16601, .03632, .01996, .00047, .00031, + .00011, .00058, .00113, + .15742, .03425, .01774, .00044, .00029, + .00011, .00054, .00106, + .14980, .03241, .01592, .00040, .00028, + .00010, .00051, .00099, + .14302, .03078, .01442, .00037, .00027, + .00011, .00048, .00094 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13659, .02925, .01308, .00035, .00026, + .00011, .00046, .00088, + .13054, .02784, .01192, .00034, .00026, + .00011, .00044, .00083, + .12511, .02657, .01093, .00033, .00024, + .00011, .00042, .00079, + .12021, .02542, .01009, .00032, .00022, + .00011, .00040, .00075, + .11551, .02433, .00933, .00031, .00021, + .00010, .00038, .00071, + .11109, .02330, .00865, .00029, .00021, + .00010, .00036, .00067, + .10706, .02237, .00806, .00028, .00020, + .00010, .00034, .00064, + .10336, .02153, .00754, .00027, .00019, + .00009, .00033, .00062 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09979, .02072, .00707, .00025, .00019, + .00009, .00031, .00059, + .09637, .01995, .00663, .00025, .00018, + .00009, .00030, .00057, + .09324, .01925, .00625, .00024, .00017, + .00009, .00029, .00054, + .09037, .01860, .00591, .00023, .00017, + .00009, .00028, .00052, + .08757, .01796, .00559, .00022, .00016, + .00009, .00027, .00050 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .37979, .08905, .16749, .00067, .00004, + -.00002, .00080, .00251, + .36244, .08444, .14804, .00070, .00008, + -.00003, .00079, .00237, + .33840, .07810, .12352, .00069, .00012, + -.00003, .00077, .00218, + .32205, .07381, .10843, .00065, .00015, + -.00002, .00075, .00207, + .30581, .06961, .09471, .00064, .00016, + -.00001, .00073, .00195, + .29250, .06624, .08441, .00068, .00018, + -.00001, .00071, .00183, + .28041, .06314, .07564, .00064, .00019, + -.00001, .00069, .00175, + .26818, .06003, .06741, .00061, .00020, + -.00001, .00066, .00166 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25802, .05748, .06104, .00059, .00020, + -.00001, .00064, .00159, + .24857, .05513, .05552, .00057, .00020, + -.00001, .00062, .00151, + .24137, .05335, .05153, .00055, .00020, + -.00001, .00060, .00146, + .22676, .04974, .04405, .00054, .00020, + -.00001, .00056, .00135, + .21495, .04686, .03858, .00052, .00021, + -.00001, .00054, .00125, + .20258, .04387, .03335, .00049, .00020, + .00000, .00050, .00117, + .19057, .04098, .02877, .00045, .00020, + .00002, .00047, .00109, + .18035, .03854, .02522, .00043, .00020, + .00004, .00045, .00100 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .17060, .03624, .02214, .00041, .00019, + .00004, .00042, .00095, + .16296, .03445, .01992, .00039, .00018, + .00004, .00039, .00090, + .15423, .03241, .01757, .00036, .00018, + .00004, .00037, .00083, + .14690, .03071, .01576, .00036, .00018, + .00004, .00035, .00077, + .14054, .02924, .01429, .00033, .00017, + .00004, .00034, .00073, + .13291, .02749, .01266, .00029, .00016, + .00005, .00032, .00068, + .12608, .02596, .01132, .00030, .00016, + .00005, .00030, .00064, + .12006, .02460, .01023, .00029, .00015, + .00005, .00028, .00060 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11439, .02333, .00926, .00027, .00014, + .00005, .00026, .00056, + .10908, .02215, .00842, .00026, .00013, + .00005, .00024, .00053, + .10432, .02109, .00770, .00025, .00013, + .00005, .00023, .00050, + .10003, .02014, .00710, .00024, .00012, + .00005, .00022, .00047, + .09592, .01924, .00655, .00023, .00012, + .00005, .00021, .00045, + .09206, .01839, .00606, .00021, .00011, + .00005, .00020, .00044, + .08855, .01762, .00564, .00020, .00010, + .00005, .00019, .00042, + .08535, .01693, .00528, .00020, .00010, + .00004, .00018, .00039 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08225, .01626, .00494, .00019, .00010, + .00004, .00018, .00036, + .07930, .01563, .00463, .00018, .00009, + .00004, .00017, .00035, + .07661, .01505, .00436, .00018, .00009, + .00004, .00016, .00034, + .07412, .01452, .00412, .00018, .00009, + .00004, .00016, .00032, + .07170, .01401, .00389, .00017, .00008, + .00004, .00015, .00031 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .33552, .07437, .13080, .00036, .00007, + .00003, .00057, .00163, + .31930, .07031, .11481, .00035, .00009, + .00003, .00055, .00156, + .29684, .06477, .09481, .00037, .00011, + .00004, .00053, .00143, + .28158, .06105, .08262, .00037, .00012, + .00004, .00051, .00134, + .26654, .05741, .07162, .00036, .00013, + .00004, .00049, .00126, + .25436, .05446, .06342, .00035, .00013, + .00003, .00048, .00119, + .24316, .05181, .05653, .00035, .00014, + .00003, .00046, .00111, + .23191, .04914, .05010, .00036, .00015, + .00003, .00045, .00104 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22263, .04693, .04515, .00034, .00014, + .00003, .00043, .00099, + .21401, .04492, .04088, .00034, .00015, + .00003, .00041, .00094, + .20746, .04339, .03781, .00034, .00015, + .00003, .00040, .00091, + .19422, .04032, .03210, .00031, .00015, + .00003, .00037, .00084, + .18354, .03788, .02795, .00029, .00015, + .00002, .00034, .00080, + .17239, .03534, .02402, .00027, .00014, + .00002, .00032, .00075, + .16163, .03289, .02060, .00025, .00014, + .00003, .00030, .00068, + .15249, .03085, .01797, .00023, .00013, + .00004, .00029, .00064 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .14382, .02892, .01571, .00022, .00014, + .00004, .00027, .00058, + .13702, .02742, .01408, .00022, .00013, + .00004, .00026, .00055, + .12927, .02572, .01237, .00021, .00012, + .00004, .00023, .00052, + .12282, .02432, .01105, .00019, .00011, + .00004, .00022, .00048, + .11720, .02310, .01000, .00019, .00011, + .00004, .00021, .00045, + .11048, .02166, .00883, .00018, .00010, + .00004, .00020, .00042, + .10457, .02039, .00787, .00016, .00009, + .00004, .00018, .00040, + .09932, .01928, .00709, .00015, .00009, + .00004, .00017, .00037 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09436, .01823, .00640, .00016, .00009, + .00004, .00016, .00034, + .08977, .01727, .00581, .00015, .00008, + .00004, .00015, .00032, + .08565, .01641, .00531, .00015, .00008, + .00004, .00014, .00030, + .08195, .01564, .00489, .00014, .00007, + .00004, .00014, .00029, + .07841, .01491, .00450, .00014, .00007, + .00004, .00013, .00027, + .07509, .01422, .00416, .00013, .00007, + .00003, .00013, .00026, + .07208, .01360, .00387, .00013, .00007, + .00003, .00012, .00024, + .06935, .01304, .00362, .00013, .00006, + .00003, .00011, .00023 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06671, .01250, .00338, .00012, .00006, + .00003, .00011, .00022, + .06420, .01199, .00316, .00011, .00006, + .00003, .00010, .00021, + .06192, .01153, .00297, .00010, .00006, + .00003, .00010, .00020, + .05982, .01111, .00281, .00010, .00005, + .00002, .00009, .00019, + .05777, .01070, .00265, .00010, .00005, + .00002, .00009, .00019 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .29261, .06125, .09991, .00017, .00006, + .00005, .00037, .00105, + .27760, .05775, .08705, .00020, .00007, + .00005, .00036, .00098, + .25696, .05297, .07115, .00020, .00008, + .00004, .00035, .00089, + .24303, .04978, .06155, .00019, .00009, + .00004, .00034, .00083, + .22931, .04666, .05297, .00018, .00010, + .00004, .00032, .00078, + .21819, .04415, .04663, .00019, .00010, + .00005, .00031, .00073, + .20809, .04189, .04133, .00018, .00010, + .00004, .00029, .00070, + .19794, .03963, .03642, .00017, .00010, + .00003, .00028, .00066 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18956, .03777, .03266, .00017, .00011, + .00003, .00027, .00062, + .18181, .03607, .02945, .00017, .00011, + .00003, .00026, .00059, + .17594, .03478, .02715, .00017, .00011, + .00002, .00026, .00057, + .16410, .03221, .02289, .00015, .00010, + .00002, .00024, .00052, + .15460, .03015, .01982, .00015, .00010, + .00003, .00022, .00049, + .14470, .02803, .01694, .00015, .00010, + .00003, .00021, .00045, + .13515, .02601, .01444, .00015, .00009, + .00003, .00019, .00041, + .12709, .02432, .01254, .00015, .00009, + .00003, .00018, .00038 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11949, .02272, .01091, .00012, .00009, + .00003, .00017, .00037, + .11357, .02149, .00975, .00012, .00008, + .00004, .00016, .00034, + .10682, .02011, .00853, .00011, .00008, + .00004, .00015, .00030, + .10122, .01895, .00760, .00010, .00007, + .00003, .00014, .00029, + .09636, .01796, .00686, .00010, .00007, + .00003, .00013, .00027, + .09056, .01678, .00604, .00009, .00007, + .00003, .00012, .00025, + .08546, .01576, .00537, .00009, .00007, + .00003, .00012, .00023, + .08096, .01485, .00483, .00009, .00006, + .00003, .00011, .00022 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07673, .01401, .00435, .00008, .00006, + .00003, .00010, .00021, + .07280, .01324, .00394, .00008, .00005, + .00003, .00010, .00019, + .06930, .01255, .00360, .00008, .00005, + .00003, .00009, .00018, + .06617, .01194, .00331, .00008, .00005, + .00003, .00009, .00017, + .06317, .01135, .00304, .00007, .00005, + .00003, .00008, .00016, + .06036, .01081, .00281, .00007, .00005, + .00002, .00008, .00015, + .05782, .01032, .00261, .00006, .00004, + .00002, .00007, .00015, + .05553, .00987, .00243, .00006, .00004, + .00002, .00007, .00014 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05332, .00945, .00227, .00006, .00004, + .00002, .00007, .00013, + .05121, .00905, .00213, .00006, .00004, + .00002, .00006, .00012, + .04929, .00868, .00200, .00006, .00004, + .00002, .00006, .00012, + .04755, .00835, .00188, .00005, .00003, + .00002, .00006, .00011, + .04585, .00803, .00178, .00004, .00003, + .00002, .00006, .00011 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .25177, .04981, .07458, .00015, .00002, + .00001, .00020, .00063, + .23817, .04682, .06451, .00015, .00003, + .00000, .00020, .00059, + .21950, .04275, .05221, .00014, .00003, + .00000, .00019, .00056, + .20695, .04004, .04487, .00013, .00004, + .00000, .00018, .00053, + .19464, .03742, .03835, .00013, .00004, + .00000, .00017, .00048, + .18471, .03533, .03357, .00014, .00006, + .00001, .00017, .00043, + .17570, .03342, .02960, .00013, .00005, + .00001, .00016, .00042, + .16667, .03152, .02594, .00013, .00005, + .00001, .00016, .00040 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15922, .02999, .02316, .00014, .00005, + .00000, .00015, .00036, + .15239, .02857, .02080, .00012, .00005, + .00000, .00014, .00035, + .14722, .02751, .01912, .00011, .00005, + .00000, .00013, .00034, + .13680, .02537, .01602, .00010, .00005, + .00000, .00013, .00032, + .12847, .02368, .01380, .00010, .00004, + .00000, .00012, .00031, + .11984, .02195, .01173, .00009, .00004, + .00000, .00011, .00028, + .11157, .02029, .00996, .00008, .00004, + .00001, .00010, .00025, + .10460, .01891, .00861, .00008, .00005, + .00000, .00010, .00023 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09801, .01762, .00747, .00008, .00005, + .00001, .00009, .00021, + .09290, .01663, .00665, .00008, .00004, + .00001, .00009, .00020, + .08711, .01550, .00580, .00008, .00004, + .00002, .00008, .00018, + .08233, .01457, .00516, .00007, .00004, + .00001, .00008, .00018, + .07818, .01378, .00465, .00007, .00003, + .00001, .00007, .00016, + .07325, .01284, .00408, .00007, .00003, + .00001, .00006, .00015, + .06892, .01202, .00362, .00006, .00003, + .00001, .00006, .00014, + .06511, .01131, .00325, .00006, .00003, + .00001, .00006, .00013 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06155, .01064, .00292, .00006, .00003, + .00001, .00005, .00012, + .05825, .01002, .00265, .00006, .00003, + .00001, .00005, .00011, + .05532, .00948, .00241, .00006, .00002, + .00001, .00005, .00010, + .05270, .00900, .00221, .00005, .00002, + .00001, .00005, .00010, + .05021, .00854, .00203, .00005, .00002, + .00001, .00004, .00009, + .04789, .00811, .00188, .00005, .00002, + .00001, .00004, .00009, + .04578, .00773, .00174, .00004, .00002, + .00001, .00004, .00008, + .04388, .00738, .00162, .00004, .00002, + .00001, .00003, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04205, .00705, .00151, .00004, .00002, + .00001, .00003, .00008, + .04032, .00674, .00142, .00004, .00002, + .00001, .00003, .00007, + .03874, .00646, .00133, .00004, .00002, + .00001, .00003, .00007, + .03730, .00620, .00125, .00004, .00002, + .00001, .00003, .00006, + .03590, .00595, .00118, .00004, .00002, + .00001, .00003, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .21313, .03962, .05401, .00005, .00003, + .00004, .00014, .00038, + .20100, .03714, .04641, .00003, .00003, + .00003, .00014, .00036, + .18440, .03377, .03719, .00004, .00004, + .00003, .00014, .00032, + .17328, .03154, .03174, .00005, .00004, + .00003, .00013, .00029, + .16241, .02938, .02694, .00006, .00005, + .00003, .00012, .00027, + .15368, .02765, .02345, .00007, .00005, + .00002, .00011, .00025, + .14580, .02609, .02057, .00006, .00004, + .00003, .00011, .00023, + .13792, .02455, .01793, .00005, .00004, + .00003, .00011, .00022 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13145, .02329, .01594, .00005, .00004, + .00002, .00011, .00021, + .12551, .02214, .01426, .00004, .00004, + .00002, .00010, .00020, + .12103, .02127, .01306, .00004, .00004, + .00003, .00009, .00020, + .11201, .01956, .01088, .00005, .00004, + .00002, .00008, .00018, + .10485, .01820, .00933, .00005, .00004, + .00002, .00008, .00016, + .09747, .01680, .00789, .00004, .00004, + .00002, .00007, .00015, + .09040, .01548, .00666, .00002, .00004, + .00002, .00007, .00014, + .08445, .01438, .00574, .00003, .00003, + .00002, .00006, .00014 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07889, .01335, .00496, .00004, .00003, + .00002, .00006, .00011, + .07457, .01256, .00441, .00004, .00003, + .00002, .00006, .00010, + .06969, .01167, .00383, .00005, .00003, + .00002, .00005, .00010, + .06566, .01095, .00340, .00004, .00002, + .00002, .00005, .00009, + .06220, .01033, .00306, .00004, .00002, + .00002, .00004, .00009, + .05810, .00959, .00268, .00003, .00002, + .00001, .00004, .00008, + .05450, .00895, .00237, .00003, .00002, + .00002, .00004, .00007, + .05135, .00840, .00213, .00003, .00002, + .00001, .00004, .00007 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04840, .00788, .00191, .00003, .00002, + .00001, .00004, .00006, + .04571, .00740, .00173, .00002, .00002, + .00001, .00003, .00006, + .04330, .00698, .00157, .00002, .00002, + .00001, .00003, .00006, + .04116, .00661, .00144, .00001, .00002, + .00001, .00003, .00006, + .03912, .00626, .00132, .00001, .00001, + .00001, .00002, .00005, + .03721, .00593, .00122, .00002, .00002, + .00001, .00002, .00005, + .03550, .00564, .00113, .00001, .00001, + .00001, .00002, .00005, + .03396, .00538, .00105, .00001, .00001, + .00001, .00002, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03248, .00513, .00098, .00001, .00001, + .00001, .00002, .00004, + .03108, .00489, .00092, .00001, .00001, + .00001, .00002, .00004, + .02980, .00468, .00086, .00001, .00001, + .00001, .00002, .00004, + .02864, .00448, .00081, .00001, .00001, + .00001, .00002, .00003, + .02752, .00430, .00076, .00001, .00001, + .00001, .00002, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .14527, .02379, .02601, .00002, .00000, + .00000, .00003, .00013, + .13610, .02215, .02204, .00002, .00000, + .00000, .00004, .00012, + .12368, .01995, .01731, .00002, .00000, + .00000, .00004, .00009, + .11544, .01850, .01458, .00002, .00001, + .00000, .00004, .00009, + .10745, .01711, .01221, .00001, .00001, + .00000, .00003, .00008, + .10105, .01601, .01051, .00002, .00001, + .00000, .00004, .00008, + .09532, .01502, .00913, .00002, .00001, + .00000, .00003, .00008, + .08964, .01405, .00789, .00001, .00001, + .00000, .00003, .00007 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08501, .01327, .00696, .00000, .00001, + .00000, .00003, .00007, + .08078, .01255, .00618, .00000, .00001, + .00000, .00003, .00007, + .07759, .01201, .00563, .00000, .00001, + .00000, .00003, .00007, + .07123, .01095, .00464, .00000, .00001, + .00000, .00002, .00006, + .06622, .01012, .00394, .00001, .00001, + .00000, .00002, .00006, + .06108, .00928, .00331, .00001, .00001, + .00000, .00002, .00005, + .05621, .00848, .00277, .00000, .00001, + .00000, .00002, .00004, + .05217, .00782, .00238, .00000, .00001, + .00000, .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)/ + .04839, .00722, .00204, .00001, .00001, + .00000, .00002, .00003, + .04549, .00675, .00181, .00001, .00001, + .00000, .00002, .00003, + .04222, .00623, .00157, .00000, .00001, + .00000, .00001, .00003, + .03955, .00581, .00138, .00001, .00001, + .00000, .00001, .00003, + .03726, .00545, .00124, .00001, .00001, + .00000, .00001, .00003, + .03457, .00503, .00108, .00000, .00001, + .00000, .00001, .00002, + .03223, .00467, .00096, .00001, .00001, + .00000, .00001, .00002, + .03019, .00435, .00086, .00001, .00001, + .00000, .00001, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02830, .00406, .00077, .00001, .00001, + .00000, .00001, .00002, + .02657, .00379, .00069, .00000, .00000, + .00000, .00001, .00002, + .02504, .00356, .00063, .00000, .00000, + .00000, .00001, .00002, + .02369, .00335, .00058, .00000, .00000, + .00000, .00001, .00002, + .02241, .00316, .00053, .00000, .00000, + .00000, .00001, .00001, + .02121, .00298, .00049, .00000, .00000, + .00000, .00001, .00001, + .02014, .00282, .00045, .00000, .00000, + .00000, .00001, .00001, + .01918, .00268, .00042, .00000, .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)/ + .01827, .00254, .00039, .00000, .00000, + .00000, .00001, .00001, + .01741, .00242, .00037, .00000, .00000, + .00000, .00001, .00001, + .01663, .00230, .00034, .00000, .00000, + .00000, .00001, .00001, + .01593, .00220, .00032, .00000, .00000, + .00000, .00001, .00001, + .01525, .00210, .00030, .00000, .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)/ + .09097, .01293, .01080, .00001, .00000, + -.00001, .00001, .00004, + .08464, .01196, .00902, .00001, .00000, + -.00001, .00000, .00003, + .07613, .01066, .00696, .00000, .00000, + .00000, .00001, .00003, + .07053, .00982, .00579, .00001, .00000, + .00000, .00000, .00002, + .06515, .00901, .00479, .00001, .00000, + .00000, .00000, .00002, + .06088, .00838, .00409, .00000, .00000, + .00000, .00000, .00002, + .05708, .00781, .00352, .00001, .00000, + .00000, .00000, .00002, + .05333, .00726, .00302, .00001, .00000, + .00000, .00001, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05029, .00682, .00264, .00001, .00000, + .00000, .00001, .00002, + .04753, .00642, .00233, .00001, .00000, + .00000, .00001, .00002, + .04547, .00612, .00212, .00000, .00000, + .00000, .00000, .00002, + .04139, .00553, .00173, .00000, .00000, + .00000, .00000, .00001, + .03819, .00508, .00146, .00000, .00000, + .00000, .00000, .00001, + .03494, .00461, .00122, .00000, .00000, + .00000, .00000, .00001, + .03189, .00418, .00102, .00000, .00000, + .00000, .00000, .00001, + .02938, .00383, .00087, .00000, .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=17,24)/ + .02704, .00351, .00074, .00001, .00000, + .00000, .00000, .00001, + .02526, .00326, .00066, .00000, .00000, + .00000, .00000, .00001, + .02329, .00299, .00057, .00000, .00000, + .00000, .00000, .00001, + .02168, .00277, .00050, .00000, .00000, + .00000, .00000, .00001, + .02030, .00258, .00045, .00000, .00000, + .00000, .00000, .00000, + .01869, .00237, .00039, .00001, .00000, + .00000, .00000, .00000, + .01731, .00218, .00035, .00000, .00000, + .00000, .00000, .00000, + .01611, .00202, .00031, .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=25,32)/ + .01501, .00187, .00028, .00000, .00000, + .00000, .00000, .00000, + .01400, .00174, .00025, .00000, .00000, + .00000, .00000, .00000, + .01313, .00162, .00023, .00000, .00000, + .00000, .00000, .00000, + .01235, .00152, .00021, .00000, .00000, + .00000, .00000, .00000, + .01162, .00143, .00019, .00000, .00000, + .00000, .00000, .00000, + .01095, .00134, .00018, .00000, .00000, + .00000, .00000, .00000, + .01035, .00126, .00016, .00000, .00000, + .00000, .00000, .00000, + .00981, .00119, .00015, .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)/ + .00930, .00113, .00014, .00000, .00000, + .00000, .00000, .00000, + .00882, .00107, .00013, .00000, .00000, + .00000, .00000, .00000, + .00839, .00101, .00012, .00000, .00000, + .00000, .00000, .00000, + .00800, .00096, .00012, .00000, .00000, + .00000, .00000, .00000, + .00763, .00091, .00011, .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)/ + .05096, .00617, .00369, .00001, -.00001, + -.00001, .00000, .00000, + .04704, .00566, .00305, .00001, -.00001, + -.00001, .00000, .00000, + .04183, .00499, .00231, .00001, .00000, + .00000, .00000, .00001, + .03844, .00456, .00190, .00000, .00000, + .00000, .00000, .00001, + .03521, .00415, .00156, .00000, .00000, + .00000, .00000, .00001, + .03267, .00383, .00132, .00001, .00000, + .00000, .00000, .00000, + .03042, .00355, .00113, .00000, .00000, + .00000, .00000, .00001, + .02822, .00328, .00096, .00000, .00000, + .00000, .00000, .00001 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .02645, .00305, .00084, .00000, .00000, + .00000, .00000, .00001, + .02485, .00286, .00074, .00000, .00000, + .00000, .00000, .00000, + .02366, .00271, .00067, .00000, .00000, + .00000, .00000, .00000, + .02133, .00243, .00054, .00000, .00000, + .00000, .00000, .00000, + .01952, .00221, .00046, .00000, .00000, + .00000, .00000, .00000, + .01769, .00199, .00038, .00000, .00000, + .00000, .00000, .00000, + .01600, .00179, .00032, .00000, .00000, + .00000, .00000, .00000, + .01461, .00162, .00027, .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=17,24)/ + .01334, .00148, .00023, .00000, .00000, + .00000, .00000, .00000, + .01238, .00136, .00021, .00000, .00000, + .00000, .00000, .00000, + .01131, .00124, .00018, .00000, .00000, + .00000, .00000, .00000, + .01045, .00114, .00016, .00000, .00000, + .00000, .00000, .00000, + .00973, .00106, .00014, .00000, .00000, + .00000, .00000, .00000, + .00888, .00096, .00012, .00000, .00000, + .00000, .00000, .00000, + .00816, .00088, .00011, .00000, .00000, + .00000, .00000, .00000, + .00755, .00081, .00010, .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)/ + .00698, .00074, .00009, .00000, .00000, + .00000, .00000, .00000, + .00647, .00069, .00008, .00000, .00000, + .00000, .00000, .00000, + .00603, .00064, .00007, .00000, .00000, + .00000, .00000, .00000, + .00563, .00059, .00007, .00000, .00000, + .00000, .00000, .00000, + .00527, .00055, .00006, .00000, .00000, + .00000, .00000, .00000, + .00494, .00052, .00006, .00000, .00000, + .00000, .00000, .00000, + .00464, .00048, .00005, .00000, .00000, + .00000, .00000, .00000, + .00438, .00045, .00005, .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)/ + .00413, .00043, .00004, .00000, .00000, + .00000, .00000, .00000, + .00390, .00040, .00004, .00000, .00000, + .00000, .00000, .00000, + .00369, .00038, .00004, .00000, .00000, + .00000, .00000, .00000, + .00350, .00036, .00004, .00000, .00000, + .00000, .00000, .00000, + .00333, .00034, .00003, .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)/ + .02429, .00242, .00095, -.00001, .00000, + .00000, .00000, .00000, + .02222, .00220, .00078, .00000, .00000, + .00000, .00000, .00000, + .01950, .00192, .00058, .00000, .00000, + .00000, .00000, .00000, + .01775, .00174, .00048, .00000, .00000, + .00000, .00000, .00000, + .01610, .00157, .00039, .00000, .00000, + .00000, .00000, .00000, + .01481, .00143, .00033, .00000, .00000, + .00000, .00000, .00000, + .01368, .00132, .00028, .00000, .00000, + .00000, .00000, .00000, + .01259, .00121, .00024, .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)/ + .01171, .00112, .00021, .00000, .00000, + .00000, .00000, .00000, + .01093, .00104, .00018, .00000, .00000, + .00000, .00000, .00000, + .01035, .00098, .00017, .00000, .00000, + .00000, .00000, .00000, + .00922, .00087, .00013, .00000, .00000, + .00000, .00000, .00000, + .00836, .00078, .00011, .00000, .00000, + .00000, .00000, .00000, + .00750, .00070, .00009, .00000, .00000, + .00000, .00000, .00000, + .00671, .00062, .00008, .00000, .00000, + .00000, .00000, .00000, + .00607, .00056, .00007, .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)/ + .00549, .00050, .00006, .00000, .00000, + .00000, .00000, .00000, + .00505, .00046, .00005, .00000, .00000, + .00000, .00000, .00000, + .00457, .00041, .00004, .00000, .00000, + .00000, .00000, .00000, + .00419, .00038, .00004, .00000, .00000, + .00000, .00000, .00000, + .00387, .00035, .00004, .00000, .00000, + .00000, .00000, .00000, + .00350, .00031, .00003, .00000, .00000, + .00000, .00000, .00000, + .00319, .00028, .00003, .00000, .00000, + .00000, .00000, .00000, + .00292, .00026, .00003, .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)/ + .00268, .00024, .00002, .00000, .00000, + .00000, .00000, .00000, + .00247, .00022, .00002, .00000, .00000, + .00000, .00000, .00000, + .00228, .00020, .00002, .00000, .00000, + .00000, .00000, .00000, + .00212, .00018, .00002, .00000, .00000, + .00000, .00000, .00000, + .00197, .00017, .00002, .00000, .00000, + .00000, .00000, .00000, + .00183, .00016, .00001, .00000, .00000, + .00000, .00000, .00000, + .00171, .00015, .00001, .00000, .00000, + .00000, .00000, .00000, + .00160, .00014, .00001, .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)/ + .00150, .00013, .00001, .00000, .00000, + .00000, .00000, .00000, + .00141, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00133, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00125, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00118, .00010, .00001, .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)/ + .00217, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00194, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00164, .00009, .00001, .00000, .00000, + .00000, .00000, .00000, + .00145, .00008, .00001, .00000, .00000, + .00000, .00000, .00000, + .00128, .00007, .00001, .00000, .00000, + .00000, .00000, .00000, + .00115, .00006, .00001, .00000, .00000, + .00000, .00000, .00000, + .00104, .00006, .00001, .00000, .00000, + .00000, .00000, .00000, + .00093, .00005, .00000, .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)/ + .00085, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00078, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00072, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00062, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00055, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00048, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00041, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00036, .00002, .00000, .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)/ + .00032, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00025, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00023, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00021, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00013, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .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)/ + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .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='MRSR1.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