#include "pdf/pilot.h" subroutine sfmrs_99d4(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu) C #include "pdf/impdp.inc" C parameter(nx=49,nq=37,ntenth=23,np=8) C #include "pdf/expdp.inc" + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np) DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/ + .00697, .00300, .83888, .90778, .00000, + .00000, .48823, .92307, + .00709, .00304, 2.16310, .94480, .00000, + .00000, .52967, .96014, + .00727, .00312, 4.58239, 1.01738, .02307, + .00000, .60871, 1.03278, + .00742, .00317, 6.80301, 1.08526, .09481, + .00000, .68117, 1.10067, + .00756, .00322, 9.58913, 1.17002, .20727, + .00000, .77066, 1.18545, + .00769, .00329, 12.42113, 1.25713, .29994, + .00000, .86180, 1.27259, + .00782, .00334, 15.54026, 1.35217, .40120, + .00000, .96064, 1.36763, + .00796, .00339, 19.40942, 1.46434, .52650, + .00000, 1.07678, 1.47980 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00807, .00344, 23.11597, 1.57479, .64080, + .00000, 1.19065, 1.59024, + .00819, .00349, 27.15989, 1.69080, .76591, + .00000, 1.30991, 1.70624, + .00829, .00353, 30.61222, 1.79092, .87025, + .00000, 1.41256, 1.80634, + .00849, .00361, 38.80361, 2.02759, 1.11987, + .00000, 1.65456, 2.04298, + .00867, .00369, 46.62428, 2.25793, 1.36303, + .23416, 1.88939, 2.27327, + .00886, .00378, 56.32547, 2.54513, 1.66547, + .60661, 2.18151, 2.56043, + .00908, .00388, 67.80870, 2.88129, 2.01838, + .97660, 2.52268, 2.89653, + .00928, .00397, 79.28207, 3.21823, 2.36665, + 1.32917, 2.86407, 3.23341 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00948, .00406, 92.08671, 3.59207, 2.75462, + 1.73158, 3.24231, 3.60717, + .00965, .00415, 103.72792, 3.92987, 3.10720, + 2.10232, 3.58368, 3.94491, + .00986, .00425, 118.91522, 4.37326, 3.56636, + 2.57599, 4.03133, 4.38822, + .01005, .00433, 133.35502, 4.79732, 4.00344, + 3.02403, 4.45911, 4.81221, + .01022, .00441, 147.65639, 5.21562, 4.43756, + 3.47576, 4.88073, 5.23043, + .01045, .00452, 166.88367, 5.78437, 5.02304, + 4.07607, 5.45363, 5.79907, + .01067, .00462, 186.23371, 6.36056, 5.61540, + 4.68327, 6.03365, 6.37517, + .01086, .00472, 205.67613, 6.94068, 6.21362, + 5.30037, 6.61729, 6.95520 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01107, .00482, 226.02567, 7.55588, 6.84411, + 5.94456, 7.23594, 7.57031, + .01127, .00491, 247.10177, 8.19660, 7.50141, + 6.61816, 7.87996, 8.21093, + .01147, .00500, 268.10378, 8.83940, 8.16070, + 7.29395, 8.52585, 8.85363, + .01166, .00510, 288.62179, 9.47457, 8.81002, + 7.95673, 9.16388, 9.48872, + .01184, .00519, 310.29694, 10.14821, 9.49994, + 8.66334, 9.84034, 10.16226, + .01203, .00528, 332.22277, 10.83854, 10.20430, + 9.38124, 10.53341, 10.85250, + .01221, .00537, 354.04364, 11.52846, 10.90946, + 10.10211, 11.22590, 11.54234, + .01238, .00546, 375.21068, 12.20520, 11.59944, + 10.80532, 11.90503, 12.21900 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01255, .00554, 397.30506, 12.91637, 12.32449, + 11.54450, 12.61859, 12.93008, + .01273, .00563, 419.84403, 13.64672, 13.06928, + 12.30445, 13.35126, 13.66035, + .01289, .00571, 441.74430, 14.36486, 13.79966, + 13.04713, 14.07157, 14.37840, + .01305, .00580, 463.42256, 15.07670, 14.52553, + 13.78825, 14.78546, 15.09016, + .01322, .00587, 485.45249, 15.81099, 15.27127, + 14.54564, 15.52180, 15.82438 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00947, .00412, .85272, .76747, .00000, + .00000, .41333, .77640, + .00962, .00419, 2.07033, .80223, .00000, + .00000, .45149, .81118, + .00988, .00429, 4.24014, .86786, .02185, + .00000, .52203, .87683, + .01007, .00437, 6.18862, .92728, .08379, + .00000, .58497, .93627, + .01027, .00447, 8.59125, 1.00018, .18031, + .00000, .66146, 1.00918, + .01045, .00454, 10.99581, 1.07388, .25850, + .00000, .73823, 1.08288, + .01062, .00462, 13.60947, 1.15336, .34317, + .00000, .82061, 1.16236, + .01080, .00469, 16.81241, 1.24648, .44706, + .00000, .91675, 1.25547 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .01096, .00477, 19.84395, 1.33718, .54090, + .00000, 1.01005, 1.34617, + .01112, .00484, 23.11963, 1.43192, .64297, + .00000, 1.10726, 1.44090, + .01124, .00490, 25.89138, 1.51312, .72750, + .00000, 1.19039, 1.52208, + .01152, .00502, 32.39249, 1.70366, .92815, + .00000, 1.38498, 1.71260, + .01176, .00514, 38.51000, 1.88740, 1.12169, + .18625, 1.57215, 1.89633, + .01204, .00526, 45.99985, 2.11455, 1.36022, + .48021, 1.80303, 2.12345, + .01234, .00540, 54.75015, 2.37798, 1.63587, + .76846, 2.07026, 2.38684, + .01260, .00553, 63.38206, 2.63957, 1.90530, + 1.04038, 2.33524, 2.64840 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01288, .00566, 72.90802, 2.92753, 2.20302, + 1.34831, 2.62654, 2.93632, + .01310, .00577, 81.48361, 3.18593, 2.47166, + 1.62998, 2.88767, 3.19469, + .01339, .00591, 92.55820, 3.52255, 2.81882, + 1.98692, 3.22752, 3.53126, + .01364, .00603, 102.98182, 3.84210, 3.14677, + 2.32189, 3.54988, 3.85076, + .01387, .00615, 113.22101, 4.15540, 3.47055, + 2.65772, 3.86571, 4.16402, + .01417, .00629, 126.85486, 4.57825, 3.90395, + 3.10047, 4.29172, 4.58682, + .01446, .00643, 140.44265, 5.00348, 4.33921, + 3.54500, 4.71985, 5.01199, + .01474, .00657, 153.97932, 5.42881, 4.77598, + 3.99399, 5.14786, 5.43728 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01501, .00671, 168.02215, 5.87676, 5.23307, + 4.45926, 5.59844, 5.88517, + .01528, .00684, 182.45125, 6.34040, 5.70671, + 4.94290, 6.06460, 6.34876, + .01554, .00697, 196.72130, 6.80279, 6.17902, + 5.42530, 6.52933, 6.81109, + .01579, .00710, 210.55840, 7.25701, 6.64144, + 5.89557, 6.98574, 7.26527, + .01604, .00722, 225.08303, 7.73630, 7.13035, + 6.39457, 7.46717, 7.74451, + .01629, .00735, 239.67053, 8.22468, 7.62667, + 6.89856, 7.95763, 8.23284, + .01653, .00747, 254.10312, 8.71045, 8.12126, + 7.40245, 8.44537, 8.71857, + .01676, .00759, 268.01476, 9.18457, 8.60278, + 7.89146, 8.92130, 9.19263 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01699, .00771, 282.45552, 9.68055, 9.10655, + 8.40326, 9.41911, 9.68858, + .01722, .00782, 297.10641, 10.18768, 9.62180, + 8.92725, 9.92800, 10.19566, + .01744, .00794, 311.25830, 10.68398, 10.12470, + 9.43683, 10.42597, 10.69193, + .01765, .00805, 325.20779, 11.17418, 10.62284, + 9.94382, 10.91774, 11.18209, + .01787, .00816, 339.29861, 11.67749, 11.13215, + 10.45929, 11.42260, 11.68535 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01283, .00567, .86841, .64946, .00000, + .00000, .35091, .65399, + .01307, .00577, 1.98175, .68163, .00000, + .00000, .38566, .68618, + .01340, .00592, 3.92323, .74049, .02095, + .00000, .44826, .74503, + .01366, .00604, 5.62971, .79233, .07430, + .00000, .50276, .79686, + .01393, .00616, 7.69735, .85486, .15700, + .00000, .56802, .85938, + .01417, .00628, 9.73421, .91707, .22283, + .00000, .63255, .92159, + .01440, .00639, 11.91863, .98337, .29347, + .00000, .70106, .98790, + .01465, .00651, 14.56263, 1.06049, .37945, + .00000, .78047, 1.06500 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01487, .00661, 17.03442, 1.13479, .45631, + .00000, .85673, 1.13929, + .01509, .00671, 19.67918, 1.21194, .53940, + .00000, .93575, 1.21644, + .01526, .00679, 21.89681, 1.27760, .60772, + .00000, 1.00287, 1.28209, + .01563, .00697, 27.03738, 1.43051, .76861, + .00000, 1.15884, 1.43499, + .01596, .00713, 31.80349, 1.57662, .92230, + .14764, 1.30752, 1.58108, + .01634, .00732, 37.56015, 1.75564, 1.10995, + .37940, 1.48936, 1.76008, + .01673, .00751, 44.19620, 1.96127, 1.32470, + .60372, 1.69787, 1.96570, + .01709, .00769, 50.65713, 2.16355, 1.53254, + .81318, 1.90269, 2.16795 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01746, .00787, 57.70589, 2.38443, 1.76032, + 1.04848, 2.12608, 2.38880, + .01777, .00803, 63.98786, 2.58123, 1.96438, + 1.26218, 2.32493, 2.58559, + .01815, .00822, 72.01620, 2.83563, 2.22601, + 1.53072, 2.58177, 2.83996, + .01849, .00840, 79.49454, 3.07527, 2.47124, + 1.78072, 2.82352, 3.07959, + .01881, .00856, 86.77927, 3.30880, 2.71190, + 2.02994, 3.05895, 3.31309, + .01921, .00876, 96.38314, 3.62162, 3.03157, + 2.35584, 3.37414, 3.62589, + .01960, .00896, 105.85909, 3.93382, 3.35018, + 2.68057, 3.68852, 3.93806, + .01997, .00915, 115.21738, 4.24402, 3.66781, + 3.00648, 4.00074, 4.24824 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .02034, .00934, 124.83672, 4.56843, 3.99784, + 3.34168, 4.32711, 4.57262, + .02070, .00952, 134.64019, 4.90207, 4.33770, + 3.68799, 4.66264, 4.90624, + .02104, .00970, 144.26066, 5.23281, 4.67458, + 4.03139, 4.99515, 5.23695, + .02138, .00988, 153.51695, 5.55575, 5.00241, + 4.36405, 5.31973, 5.55988, + .02171, .01005, 163.17013, 5.89475, 5.34729, + 4.71536, 5.66035, 5.89886, + .02204, .01022, 172.79231, 6.23818, 5.69533, + 5.06801, 6.00535, 6.24227, + .02236, .01039, 182.25583, 6.57815, 6.04056, + 5.41903, 6.34679, 6.58222, + .02267, .01055, 191.31720, 6.90823, 6.37491, + 5.75787, 6.67825, 6.91228 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02298, .01072, 200.66969, 7.25198, 6.72316, + 6.11095, 7.02335, 7.25601, + .02328, .01088, 210.10488, 7.60184, 7.07776, + 6.47086, 7.37456, 7.60586, + .02358, .01103, 219.16199, 7.94261, 7.42218, + 6.81912, 7.71657, 7.94661, + .02385, .01118, 228.05215, 8.27798, 7.76220, + 7.16455, 8.05312, 8.28195, + .02415, .01133, 236.97453, 8.62064, 8.10809, + 7.51389, 8.39696, 8.62461 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01533, .00682, .87854, .58945, .00000, + .00000, .31945, .59217, + .01560, .00695, 1.93216, .62000, .00000, + .00000, .35220, .62272, + .01601, .00715, 3.74924, .67501, .02059, + .00000, .41040, .67772, + .01632, .00730, 5.32697, .72274, .06940, + .00000, .46039, .72545, + .01664, .00746, 7.21883, .77978, .14485, + .00000, .51977, .78248, + .01693, .00758, 9.06506, .83602, .20430, + .00000, .57798, .83873, + .01721, .00773, 11.02922, .89558, .26774, + .00000, .63941, .89827, + .01751, .00787, 13.38919, .96453, .34460, + .00000, .71029, .96721 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01777, .00801, 15.57921, 1.03053, .41289, + .00000, .77796, 1.03320, + .01803, .00812, 17.90879, 1.09884, .48646, + .00000, .84786, 1.10150, + .01823, .00822, 19.85155, 1.15672, .54670, + .00000, .90698, 1.15938, + .01868, .00845, 24.32333, 1.29094, .68789, + .00000, 1.04378, 1.29358, + .01907, .00865, 28.43338, 1.41845, .82199, + .12854, 1.17348, 1.42108, + .01952, .00887, 33.35683, 1.57387, .98483, + .33007, 1.33128, 1.57648, + .01999, .00911, 38.98704, 1.75140, 1.17009, + .52360, 1.51123, 1.75401, + .02041, .00933, 44.42566, 1.92502, 1.34836, + .70326, 1.68702, 1.92762 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .02085, .00955, 50.31851, 2.11371, 1.54279, + .90412, 1.87782, 2.11628, + .02123, .00974, 55.53881, 2.28112, 1.71622, + 1.08576, 2.04696, 2.28369, + .02169, .00998, 62.16861, 2.49653, 1.93754, + 1.31289, 2.26444, 2.49908, + .02208, .01018, 68.30573, 2.69852, 2.14403, + 1.52333, 2.46819, 2.70105, + .02247, .01038, 74.25425, 2.89464, 2.34594, + 1.73240, 2.66593, 2.89717, + .02294, .01063, 82.04948, 3.15616, 2.61291, + 2.00448, 2.92946, 3.15868, + .02340, .01088, 89.69468, 3.41599, 2.87780, + 2.27435, 3.19112, 3.41849, + .02383, .01110, 97.20582, 3.67315, 3.14084, + 2.54419, 3.44998, 3.67565 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02428, .01132, 104.88335, 3.94093, 3.41299, + 2.82046, 3.71942, 3.94341, + .02470, .01156, 112.66956, 4.21532, 3.69220, + 3.10486, 3.99541, 4.21779, + .02512, .01178, 120.27487, 4.48633, 3.96799, + 3.38588, 4.26791, 4.48880, + .02551, .01198, 127.55767, 4.75001, 4.23537, + 3.65708, 4.53297, 4.75246, + .02591, .01220, 135.12332, 5.02595, 4.51584, + 3.94266, 4.81027, 5.02839, + .02630, .01240, 142.63020, 5.30452, 4.79787, + 4.22829, 5.09016, 5.30695, + .02668, .01261, 149.98680, 5.57949, 5.07685, + 4.51184, 5.36638, 5.58192, + .02703, .01279, 157.00243, 5.84564, 5.34619, + 4.78466, 5.63369, 5.84806 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02740, .01299, 164.21840, 6.12206, 5.62597, + 5.06821, 5.91125, 6.12447, + .02777, .01319, 171.47345, 6.40264, 5.91012, + 5.35650, 6.19296, 6.40505, + .02812, .01338, 178.41107, 6.67513, 6.18528, + 5.63459, 6.46650, 6.67753, + .02845, .01355, 185.20399, 6.94274, 6.45640, + 5.90993, 6.73512, 6.94513, + .02879, .01373, 191.99408, 7.21537, 6.73136, + 6.18749, 7.00874, 7.21776 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01740, .00781, .88633, .55049, .00000, + .00000, .29916, .55225, + .01770, .00795, 1.89823, .57985, .00000, + .00000, .33049, .58159, + .01816, .00817, 3.63101, .63218, .02040, + .00000, .38567, .63391, + .01851, .00834, 5.12267, .67714, .06618, + .00000, .43264, .67886, + .01888, .00852, 6.89809, .73053, .13681, + .00000, .48811, .73224, + .01920, .00869, 8.61896, .78284, .19207, + .00000, .54218, .78455, + .01952, .00885, 10.43921, .83797, .25082, + .00000, .59898, .83968, + .01987, .00901, 12.61470, .90160, .32174, + .00000, .66434, .90329 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .02016, .00916, 14.62281, .96222, .38449, + .00000, .72644, .96391, + .02046, .00932, 16.74990, 1.02483, .45191, + .00000, .79045, 1.02650, + .02069, .00943, 18.51685, 1.07771, .50696, + .00000, .84443, 1.07938, + .02119, .00968, 22.56332, 1.19992, .63556, + .00000, .96896, 1.20159, + .02164, .00992, 26.25948, 1.31558, .75718, + .11630, 1.08655, 1.31723, + .02214, .01017, 30.66042, 1.45602, .90431, + .29873, 1.22911, 1.45765, + .02267, .01044, 35.66410, 1.61578, 1.07100, + .47294, 1.39103, 1.61742, + .02317, .01070, 40.47002, 1.77139, 1.23074, + .63395, 1.54854, 1.77301 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02367, .01096, 45.65155, 1.93991, 1.40434, + .81338, 1.71895, 1.94153, + .02408, .01117, 50.22188, 2.08898, 1.55872, + .97515, 1.86956, 2.09060, + .02459, .01144, 55.99983, 2.28015, 1.75508, + 1.17671, 2.06256, 2.28177, + .02506, .01169, 61.32425, 2.45881, 1.93764, + 1.36282, 2.24280, 2.46042, + .02548, .01191, 66.46655, 2.63186, 2.11572, + 1.54727, 2.41726, 2.63345, + .02602, .01220, 73.17601, 2.86184, 2.35040, + 1.78646, 2.64902, 2.86342, + .02654, .01248, 79.72757, 3.08958, 2.58248, + 2.02295, 2.87841, 3.09117, + .02703, .01273, 86.14006, 3.31436, 2.81232, + 2.25877, 3.10468, 3.31595 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02753, .01300, 92.66797, 3.54770, 3.04937, + 2.49943, 3.33950, 3.54929, + .02801, .01326, 99.26485, 3.78616, 3.29192, + 2.74653, 3.57937, 3.78773, + .02847, .01351, 105.68674, 4.02108, 3.53088, + 2.99004, 3.81561, 4.02265, + .02892, .01374, 111.81510, 4.24904, 3.76196, + 3.22443, 4.04479, 4.25062, + .02936, .01398, 118.16359, 4.48708, 4.00382, + 3.47073, 4.28405, 4.48866, + .02981, .01422, 124.44150, 4.72679, 4.24640, + 3.71642, 4.52492, 4.72835, + .03023, .01445, 130.57796, 4.96291, 4.48589, + 3.95986, 4.76214, 4.96448, + .03064, .01467, 136.41260, 5.19095, 4.71658, + 4.19354, 4.99121, 5.19252 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .03105, .01489, 142.39889, 5.42732, 4.95575, + 4.43594, 5.22860, 5.42888, + .03145, .01511, 148.40250, 5.66679, 5.19818, + 4.68193, 5.46907, 5.66836, + .03185, .01532, 154.12743, 5.89885, 5.43245, + 4.91869, 5.70208, 5.90042, + .03223, .01553, 159.72310, 6.12644, 5.66296, + 5.15283, 5.93054, 6.12801, + .03260, .01574, 165.29951, 6.35778, 5.89620, + 5.38827, 6.16276, 6.35936 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01918, .00865, .89316, .52219, .00000, + .00000, .28447, .52330, + .01952, .00882, 1.87309, .55061, .00000, + .00000, .31470, .55171, + .02003, .00907, 3.54261, .60089, .02028, + .00000, .36758, .60198, + .02041, .00927, 4.97046, .64377, .06380, + .00000, .41232, .64485, + .02083, .00947, 6.66002, .69446, .13090, + .00000, .46491, .69553, + .02119, .00965, 8.28898, .74388, .18308, + .00000, .51595, .74495, + .02154, .00982, 10.00422, .79579, .23838, + .00000, .56936, .79684, + .02191, .01001, 12.04571, .85554, .30498, + .00000, .63070, .85659 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .02224, .01019, 13.92221, .91227, .36372, + .00000, .68879, .91331, + .02256, .01035, 15.90338, .97073, .42669, + .00000, .74854, .97178, + .02282, .01048, 17.54400, 1.02000, .47800, + .00000, .79882, 1.02105, + .02337, .01076, 21.28631, 1.13359, .59753, + .00000, .91452, 1.13463, + .02386, .01102, 24.68830, 1.24075, .71023, + .10750, 1.02345, 1.24179, + .02442, .01131, 28.71972, 1.37049, .84616, + .27630, 1.15512, 1.37152, + .02501, .01162, 33.28243, 1.51760, .99965, + .43679, 1.30421, 1.51862, + .02554, .01190, 37.64506, 1.66042, 1.14626, + .58465, 1.44877, 1.66145 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02610, .01219, 42.33036, 1.81468, 1.30516, + .74898, 1.60476, 1.81570, + .02656, .01244, 46.44896, 1.95082, 1.44614, + .89679, 1.74229, 1.95184, + .02712, .01273, 51.63714, 2.12495, 1.62496, + 1.08044, 1.91809, 2.12596, + .02763, .01300, 56.40103, 2.28725, 1.79079, + 1.24955, 2.08184, 2.28828, + .02809, .01326, 60.98897, 2.44413, 1.95223, + 1.41685, 2.24002, 2.44515, + .02870, .01357, 66.95445, 2.65210, 2.16442, + 1.63320, 2.44962, 2.65313, + .02926, .01387, 72.75954, 2.85754, 2.37373, + 1.84654, 2.65654, 2.85857, + .02979, .01416, 78.42460, 3.05985, 2.58056, + 2.05885, 2.86022, 3.06088 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .03034, .01446, 84.17306, 3.26936, 2.79336, + 2.27495, 3.07107, 3.27038, + .03087, .01474, 89.96598, 3.48299, 3.01065, + 2.49639, 3.28600, 3.48403, + .03138, .01502, 95.59007, 3.69305, 3.22427, + 2.71416, 3.49726, 3.69409, + .03187, .01528, 100.94250, 3.89645, 3.43044, + 2.92334, 3.70178, 3.89750, + .03236, .01555, 106.47488, 4.10849, 3.64586, + 3.14279, 3.91494, 4.10955, + .03284, .01582, 111.93109, 4.32159, 3.86148, + 3.36122, 4.12910, 4.32264, + .03331, .01607, 117.25357, 4.53116, 4.07402, + 3.57734, 4.33968, 4.53223, + .03376, .01631, 122.30213, 4.73322, 4.27839, + 3.78442, 4.54266, 4.73428 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03421, .01655, 127.47173, 4.94231, 4.48996, + 3.99889, 4.75270, 4.94340, + .03465, .01680, 132.64615, 5.15384, 4.70409, + 4.21623, 4.96513, 5.15493, + .03508, .01703, 137.56911, 5.35849, 4.91064, + 4.42503, 5.17064, 5.35958, + .03549, .01726, 142.37437, 5.55894, 5.11368, + 4.63133, 5.37189, 5.56003, + .03590, .01748, 147.15142, 5.76236, 5.31875, + 4.83838, 5.57613, 5.76347 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02603, .01199, .91757, .44432, .00000, + .00000, .24461, .44434, + .02649, .01223, 1.80097, .46976, .00000, + .00000, .27144, .46978, + .02719, .01259, 3.28558, .51376, .02014, + .00000, .31745, .51378, + .02771, .01286, 4.52992, .55054, .05716, + .00000, .35565, .55056, + .02826, .01315, 5.97519, .59342, .11411, + .00000, .40000, .59344, + .02875, .01341, 7.34512, .63464, .15758, + .00000, .44246, .63466, + .02922, .01366, 8.76682, .67744, .20325, + .00000, .48643, .67747, + .02973, .01393, 10.43660, .72636, .25782, + .00000, .53656, .72639 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .03017, .01416, 11.95093, .77230, .30545, + .00000, .58353, .77233, + .03061, .01440, 13.53294, .81937, .35620, + .00000, .63159, .81940, + .03096, .01458, 14.83009, .85873, .39726, + .00000, .67173, .85877, + .03170, .01498, 17.75148, .94879, .49215, + .00000, .76339, .94884, + .03237, .01534, 20.36724, 1.03291, .58074, + .08337, .84887, 1.03298, + .03312, .01575, 23.41823, 1.13382, .68657, + .21565, .95126, 1.13390, + .03391, .01618, 26.82128, 1.24710, .80486, + .33970, 1.06603, 1.24719, + .03464, .01658, 30.02822, 1.35595, .91671, + .45280, 1.17620, 1.35605 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03537, .01698, 33.42951, 1.47250, 1.03688, + .57746, 1.29407, 1.47263, + .03600, .01733, 36.38690, 1.57461, 1.14271, + .68878, 1.39725, 1.57475, + .03675, .01774, 40.06945, 1.70413, 1.27583, + .82586, 1.52804, 1.70428, + .03743, .01811, 43.41205, 1.82386, 1.39825, + .95103, 1.64887, 1.82403, + .03806, .01846, 46.60231, 1.93885, 1.51667, + 1.07412, 1.76485, 1.93904, + .03885, .01890, 50.70427, 2.09006, 1.67105, + 1.23192, 1.91729, 2.09028, + .03962, .01932, 54.65169, 2.23821, 1.82209, + 1.38627, 2.06656, 2.23845, + .04033, .01972, 58.46743, 2.38309, 1.97033, + 1.53884, 2.21249, 2.38335 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .04105, .02012, 62.29882, 2.53198, 2.12165, + 1.69286, 2.36239, 2.53226, + .04177, .02052, 66.12504, 2.68279, 2.27513, + 1.84966, 2.51418, 2.68310, + .04244, .02090, 69.80782, 2.83011, 2.42507, + 2.00289, 2.66242, 2.83045, + .04309, .02126, 73.28128, 2.97184, 2.56881, + 2.14906, 2.80499, 2.97220, + .04374, .02162, 76.84617, 3.11878, 2.71821, + 2.30163, 2.95278, 3.11916, + .04439, .02198, 80.33098, 3.26551, 2.86678, + 2.45247, 3.10032, 3.26592, + .04501, .02232, 83.70832, 3.40909, 3.01250, + 2.60099, 3.24466, 3.40953, + .04559, .02266, 86.88683, 3.54674, 3.15182, + 2.74247, 3.38301, 3.54719 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04619, .02299, 90.12048, 3.68848, 3.29534, + 2.88829, 3.52547, 3.68895, + .04678, .02332, 93.33659, 3.83118, 3.43991, + 3.03537, 3.66885, 3.83167, + .04735, .02364, 96.37344, 3.96850, 3.57861, + 3.17588, 3.80683, 3.96902, + .04788, .02395, 99.32497, 4.10251, 3.71448, + 3.31426, 3.94146, 4.10305, + .04844, .02426, 102.23507, 4.23776, 3.85091, + 3.45229, 4.07732, 4.23832 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .03544, .01672, .95344, .38021, .00000, + .00000, .21249, .38022, + .03605, .01705, 1.74560, .40259, .00000, + .00000, .23597, .40261, + .03697, .01756, 3.06119, .44044, .02025, + .00000, .27541, .44049, + .03767, .01793, 4.14195, .47154, .05136, + .00000, .30765, .47161, + .03842, .01834, 5.37266, .50738, .09930, + .00000, .34464, .50747, + .03907, .01871, 6.51841, .54138, .13517, + .00000, .37962, .54149, + .03970, .01905, 7.68925, .57633, .17254, + .00000, .41549, .57645, + .04038, .01943, 9.04511, .61597, .21686, + .00000, .45610, .61612 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .04098, .01977, 10.25733, .65280, .25514, + .00000, .49375, .65297, + .04156, .02009, 11.50963, .69032, .29570, + .00000, .53204, .69050, + .04203, .02035, 12.52567, .72146, .32826, + .00000, .56379, .72167, + .04303, .02091, 14.78312, .79216, .40295, + .00000, .63576, .79241, + .04392, .02141, 16.77388, .85756, .47197, + .06319, .70222, .85782, + .04493, .02198, 19.05439, .93525, .55367, + .16618, .78108, .93557, + .04599, .02258, 21.55884, 1.02156, .64402, + .26139, .86858, 1.02192, + .04696, .02313, 23.88243, 1.10363, .72855, + .34728, .95168, 1.10402 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04796, .02369, 26.31413, 1.19073, .81858, + .44117, 1.03982, 1.19117, + .04879, .02417, 28.40397, 1.26644, .89724, + .52436, 1.11637, 1.26692, + .04980, .02474, 30.97398, 1.36165, .99534, + .62589, 1.21258, 1.36218, + .05070, .02526, 33.27786, 1.44892, 1.08478, + .71779, 1.30071, 1.44948, + .05153, .02573, 35.45575, 1.53218, 1.17073, + .80760, 1.38475, 1.53279, + .05261, .02635, 38.22214, 1.64072, 1.28181, + .92169, 1.49425, 1.64138, + .05361, .02692, 40.85235, 1.74617, 1.38958, + 1.03234, 1.60059, 1.74687, + .05456, .02747, 43.36911, 1.84855, 1.49458, + 1.14097, 1.70379, 1.84931 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05553, .02801, 45.86699, 1.95290, 1.60088, + 1.24968, 1.80895, 1.95370, + .05647, .02856, 48.33728, 2.05786, 1.70796, + 1.35960, 1.91469, 2.05872, + .05737, .02908, 50.69271, 2.15971, 1.81187, + 1.46630, 2.01725, 2.16062, + .05823, .02956, 52.89219, 2.25701, 1.91077, + 1.56734, 2.11522, 2.25796, + .05909, .03006, 55.13244, 2.35732, 2.01300, + 1.67225, 2.21619, 2.35832, + .05994, .03055, 57.30066, 2.45681, 2.11395, + 1.77521, 2.31632, 2.45784, + .06076, .03102, 59.38735, 2.55364, 2.21247, + 1.87611, 2.41376, 2.55473, + .06153, .03146, 61.33391, 2.64591, 2.30608, + 1.97160, 2.50658, 2.64703 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06231, .03191, 63.30024, 2.74044, 2.40202, + 2.06954, 2.60168, 2.74161, + .06309, .03237, 65.24214, 2.83513, 2.49816, + 2.16782, 2.69691, 2.83634, + .06383, .03279, 67.06001, 2.92571, 2.58988, + 2.26114, 2.78801, 2.92697, + .06454, .03320, 68.81903, 3.01380, 2.67940, + 2.35276, 2.87658, 3.01509, + .06526, .03361, 70.53649, 3.10215, 2.76872, + 2.44353, 2.96542, 3.10348 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .04247, .02038, .98665, .34835, .00000, + .00000, .19678, .34875, + .04318, .02077, 1.72847, .36891, .00000, + .00000, .21832, .36933, + .04427, .02137, 2.95133, .40321, .02029, + .00000, .25403, .40367, + .04511, .02185, 3.94375, .43117, .04818, + .00000, .28300, .43168, + .04599, .02233, 5.05999, .46320, .09128, + .00000, .31605, .46374, + .04676, .02278, 6.08760, .49338, .12313, + .00000, .34710, .49395, + .04752, .02320, 7.12766, .52421, .15617, + .00000, .37874, .52482, + .04832, .02365, 8.32149, .55905, .19518, + .00000, .41443, .55969 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04903, .02406, 9.37940, .59121, .22867, + .00000, .44732, .59189, + .04972, .02445, 10.46467, .62386, .26403, + .00000, .48067, .62457, + .05028, .02477, 11.33944, .65085, .29230, + .00000, .50820, .65159, + .05147, .02545, 13.26648, .71184, .35685, + .00000, .57031, .71263, + .05252, .02606, 14.95087, .76791, .41615, + .05285, .62733, .76876, + .05372, .02675, 16.85731, .83416, .48594, + .14139, .69461, .83506, + .05497, .02747, 18.93067, .90729, .56266, + .22254, .76879, .90826, + .05613, .02814, 20.83544, .97638, .63395, + .29525, .83879, .97741 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05730, .02881, 22.81212, 1.04931, .70948, + .37435, .91265, 1.05040, + .05827, .02939, 24.49853, 1.11240, .77517, + .44412, .97650, 1.11356, + .05948, .03008, 26.55606, 1.19134, .85665, + .52879, 1.05631, 1.19255, + .06054, .03071, 28.38593, 1.26329, .93055, + .60502, 1.12903, 1.26456, + .06153, .03128, 30.10541, 1.33166, 1.00129, + .67925, 1.19810, 1.33298, + .06279, .03201, 32.27251, 1.42033, 1.09221, + .77301, 1.28762, 1.42173, + .06398, .03271, 34.31711, 1.50602, 1.17995, + .86347, 1.37412, 1.50749, + .06510, .03335, 36.26097, 1.58884, 1.26508, + .95190, 1.45768, 1.59037 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06624, .03401, 38.17574, 1.67284, 1.35082, + 1.03993, 1.54239, 1.67443, + .06735, .03467, 40.05755, 1.75696, 1.43681, + 1.12856, 1.62720, 1.75862, + .06840, .03528, 41.84110, 1.83825, 1.51991, + 1.21424, 1.70913, 1.83998, + .06940, .03586, 43.49571, 1.91556, 1.59865, + 1.29501, 1.78704, 1.91734, + .07042, .03646, 45.17285, 1.99499, 1.67978, + 1.37860, 1.86707, 1.99684, + .07142, .03704, 46.78536, 2.07343, 1.75954, + 1.46027, 1.94607, 2.07534, + .07237, .03759, 48.33036, 2.14953, 1.83713, + 1.54006, 2.02272, 2.15151, + .07328, .03812, 49.76306, 2.22176, 1.91056, + 1.61527, 2.09547, 2.22380 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07419, .03866, 51.20368, 2.29554, 1.98559, + 1.69216, 2.16974, 2.29763, + .07511, .03919, 52.61985, 2.36919, 2.06055, + 1.76909, 2.24389, 2.37134, + .07598, .03969, 53.93784, 2.43941, 2.13177, + 1.84185, 2.31456, 2.44160, + .07680, .04018, 55.20971, 2.50752, 2.20116, + 1.91315, 2.38312, 2.50978, + .07765, .04067, 56.44308, 2.57558, 2.27011, + 1.98349, 2.45162, 2.57789 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .04828, .02343, 1.02215, .32758, .00000, + .00000, .18664, .32850, + .04909, .02389, 1.72987, .34683, .00000, + .00000, .20678, .34778, + .05033, .02458, 2.88870, .37871, .02013, + .00000, .23995, .37971, + .05127, .02512, 3.82050, .40457, .04585, + .00000, .26674, .40561, + .05226, .02568, 4.85893, .43406, .08570, + .00000, .29717, .43515, + .05313, .02620, 5.80701, .46171, .11488, + .00000, .32562, .46284, + .05397, .02667, 6.75969, .48987, .14507, + .00000, .35451, .49103, + .05489, .02721, 7.84600, .52157, .18060, + .00000, .38701, .52279 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .05569, .02768, 8.80234, .55072, .21096, + .00000, .41682, .55197, + .05646, .02813, 9.77825, .58024, .24296, + .00000, .44697, .58154, + .05709, .02849, 10.56104, .60457, .26845, + .00000, .47179, .60589, + .05844, .02927, 12.27449, .65934, .32647, + .00000, .52760, .66073, + .05963, .02997, 13.76254, .70948, .37955, + .04617, .57861, .71093, + .06097, .03076, 15.43102, .76848, .44175, + .12546, .63855, .77000, + .06239, .03159, 17.23241, .83329, .50980, + .19768, .70433, .83490, + .06369, .03235, 18.87508, .89422, .57276, + .26210, .76612, .89589 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06500, .03313, 20.56902, .95828, .63918, + .33190, .83102, .96004, + .06611, .03378, 22.00624, 1.01351, .69676, + .39327, .88695, 1.01534, + .06746, .03458, 23.74930, 1.08233, .76789, + .46744, .95658, 1.08423, + .06866, .03528, 25.29020, 1.14482, .83214, + .53395, 1.01978, 1.14679, + .06978, .03594, 26.73160, 1.20401, .89347, + .59852, 1.07962, 1.20605, + .07119, .03677, 28.53739, 1.28048, .97198, + .67976, 1.15688, 1.28260, + .07252, .03756, 30.23115, 1.35407, 1.04745, + .75783, 1.23122, 1.35628, + .07379, .03831, 31.83363, 1.42498, 1.12044, + .83391, 1.30281, 1.42727 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07505, .03905, 33.40298, 1.49662, 1.19365, + .90934, 1.37510, 1.49897, + .07630, .03978, 34.93797, 1.56811, 1.26686, + .98506, 1.44725, 1.57055, + .07749, .04049, 36.38609, 1.63699, 1.33738, + 1.05802, 1.51672, 1.63951, + .07861, .04114, 37.72268, 1.70229, 1.40399, + 1.12658, 1.58257, 1.70487, + .07974, .04180, 39.07250, 1.76920, 1.47243, + 1.19735, 1.65005, 1.77185, + .08086, .04246, 40.36355, 1.83506, 1.53950, + 1.26626, 1.71643, 1.83779, + .08192, .04309, 41.59637, 1.89880, 1.60460, + 1.33343, 1.78068, 1.90160, + .08293, .04368, 42.73426, 1.95913, 1.66602, + 1.39656, 1.84149, 1.96199 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08396, .04428, 43.87434, 2.02060, 1.72863, + 1.46096, 1.90342, 2.02352, + .08497, .04488, 44.99105, 2.08180, 1.79104, + 1.52523, 1.96509, 2.08480, + .08594, .04545, 46.02543, 2.14000, 1.85017, + 1.58585, 2.02372, 2.14306, + .08686, .04599, 47.02172, 2.19636, 1.90768, + 1.64516, 2.08049, 2.19949, + .08780, .04653, 47.98237, 2.25250, 1.96465, + 1.70348, 2.13705, 2.25569 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .05336, .02625, 1.06615, .31356, .00000, + .00000, .17941, .31450, + .05425, .02676, 1.74999, .33178, .00000, + .00000, .19845, .33277, + .05561, .02754, 2.85809, .36182, .01978, + .00000, .22968, .36289, + .05663, .02814, 3.74239, .38609, .04386, + .00000, .25478, .38720, + .05773, .02878, 4.72041, .41369, .08128, + .00000, .28323, .41485, + .05869, .02934, 5.60736, .43946, .10848, + .00000, .30973, .44068, + .05962, .02989, 6.49336, .46560, .13654, + .00000, .33655, .46687, + .06062, .03048, 7.49804, .49499, .16950, + .00000, .36666, .49631 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .06150, .03099, 8.37779, .52190, .19756, + .00000, .39419, .52328, + .06236, .03150, 9.27159, .54911, .22707, + .00000, .42198, .55053, + .06305, .03191, 9.98567, .57146, .25052, + .00000, .44479, .57293, + .06453, .03278, 11.54036, .62168, .30376, + .00000, .49596, .62323, + .06583, .03355, 12.88346, .66747, .35228, + .04129, .54256, .66909, + .06731, .03443, 14.37747, .72117, .40896, + .11383, .59713, .72288, + .06887, .03535, 15.98085, .77994, .47073, + .17955, .65681, .78175, + .07029, .03620, 17.43381, .83497, .52763, + .23792, .71261, .83686 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07173, .03705, 18.92417, .89264, .58750, + .30100, .77107, .89462, + .07295, .03777, 20.18287, .94220, .63922, + .35628, .82128, .94426, + .07443, .03864, 21.70180, 1.00376, .70291, + .42288, .88359, 1.00591, + .07574, .03942, 23.03779, 1.05946, .76025, + .48239, .93996, 1.06170, + .07696, .04014, 24.28279, 1.11211, .81485, + .54005, .99320, 1.11443, + .07850, .04106, 25.83442, 1.17988, .88452, + .61233, 1.06171, 1.18230, + .07996, .04193, 27.28252, 1.24490, .95128, + .68158, 1.12743, 1.24742, + .08134, .04274, 28.64701, 1.30737, 1.01565, + .74888, 1.19052, 1.30997 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08272, .04356, 29.97696, 1.37026, 1.08001, + .81537, 1.25404, 1.37296, + .08407, .04437, 31.27232, 1.43288, 1.14420, + .88195, 1.31726, 1.43566, + .08537, .04513, 32.48941, 1.49303, 1.20588, + .94594, 1.37798, 1.49590, + .08659, .04584, 33.60776, 1.54990, 1.26397, + 1.00590, 1.43537, 1.55285, + .08783, .04658, 34.73367, 1.60805, 1.32354, + 1.06767, 1.49404, 1.61109, + .08904, .04729, 35.80576, 1.66512, 1.38174, + 1.12764, 1.55161, 1.66825, + .09019, .04797, 36.82661, 1.72025, 1.43813, + 1.18600, 1.60722, 1.72345, + .09130, .04862, 37.76485, 1.77230, 1.49121, + 1.24071, 1.65971, 1.77558 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09240, .04927, 38.70190, 1.82523, 1.54520, + 1.29640, 1.71308, 1.82858, + .09350, .04992, 39.61695, 1.87784, 1.59892, + 1.35188, 1.76613, 1.88126, + .09455, .05054, 40.46110, 1.92772, 1.64969, + 1.40408, 1.81642, 1.93123, + .09556, .05113, 41.27285, 1.97598, 1.69900, + 1.45510, 1.86507, 1.97955, + .09657, .05172, 42.05155, 2.02391, 1.74773, + 1.50513, 1.91339, 2.02757 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .07294, .03758, 1.24347, .27492, .00000, + .00000, .15950, .27674, + .07411, .03830, 1.85007, .29000, .00000, + .00000, .17522, .29189, + .07593, .03939, 2.80230, .31450, .01792, + .00000, .20066, .31651, + .07731, .04024, 3.54326, .33408, .03726, + .00000, .22091, .33617, + .07877, .04112, 4.34247, .35616, .06767, + .00000, .24366, .35834, + .08005, .04190, 5.05156, .37652, .08924, + .00000, .26461, .37879, + .08130, .04266, 5.74607, .39700, .11133, + .00000, .28564, .39935, + .08265, .04349, 6.51915, .41985, .13710, + .00000, .30906, .42228 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08382, .04420, 7.18426, .44055, .15878, + .00000, .33025, .44307, + .08497, .04491, 7.84999, .46134, .18145, + .00000, .35151, .46393, + .08589, .04546, 8.37485, .47830, .19931, + .00000, .36883, .48094, + .08787, .04666, 9.49694, .51602, .23951, + .00000, .40733, .51880, + .08961, .04773, 10.45105, .55003, .27573, + .02760, .44199, .55293, + .09157, .04891, 11.48121, .58946, .31756, + .08193, .48214, .59250, + .09365, .05017, 12.56429, .63207, .36258, + .13033, .52549, .63526, + .09553, .05131, 13.52501, .67144, .40351, + .17278, .56551, .67476 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09744, .05246, 14.49269, .71225, .44610, + .21817, .60697, .71570, + .09904, .05344, 15.29715, .74699, .48256, + .25760, .64224, .75055, + .10099, .05461, 16.25105, .78964, .52696, + .30454, .68552, .79336, + .10271, .05563, 17.07525, .82782, .56648, + .34604, .72426, .83166, + .10431, .05659, 17.83341, .86361, .60383, + .38594, .76053, .86756, + .10633, .05780, 18.76137, .90915, .65093, + .43538, .80670, .91325, + .10824, .05894, 19.61223, .95236, .69557, + .48224, .85050, .95661, + .11003, .06002, 20.40253, .99349, .73824, + .52740, .89217, .99786 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11182, .06109, 21.15894, 1.03445, .78044, + .57151, .93366, 1.03897, + .11359, .06213, 21.88503, 1.07485, .82214, + .61531, .97457, 1.07951, + .11525, .06312, 22.55759, 1.11333, .86187, + .65704, 1.01353, 1.11810, + .11683, .06405, 23.16549, 1.14935, .89894, + .69578, 1.05000, 1.15425, + .11841, .06499, 23.77074, 1.18592, .93669, + .73542, 1.08703, 1.19094, + .11997, .06590, 24.33712, 1.22148, .97322, + .77353, 1.12301, 1.22661, + .12145, .06677, 24.87090, 1.25559, 1.00838, + .81040, 1.15754, 1.26084, + .12285, .06760, 25.35369, 1.28753, 1.04121, + .84467, 1.18985, 1.29288 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12427, .06843, 25.83029, 1.31978, 1.07437, + .87931, 1.22249, 1.32523, + .12567, .06924, 26.29027, 1.35161, 1.10714, + .91362, 1.25470, 1.35718, + .12699, .07002, 26.70751, 1.38154, 1.13787, + .94563, 1.28500, 1.38722, + .12827, .07076, 27.10667, 1.41037, 1.16760, + .97680, 1.31417, 1.41615, + .12955, .07151, 27.48141, 1.43876, 1.19670, + 1.00708, 1.34289, 1.44463 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .10008, .05429, 1.52636, .24306, .00000, + .00000, .14157, .24630, + .10166, .05529, 2.04967, .25509, .00000, + .00000, .15411, .25845, + .10409, .05682, 2.84066, .27451, .01373, + .00000, .17429, .27804, + .10594, .05797, 3.43598, .28988, .02893, + .00000, .19020, .29355, + .10789, .05920, 4.06026, .30706, .05316, + .00000, .20794, .31088, + .10961, .06027, 4.60112, .32272, .06991, + .00000, .22409, .32668, + .11128, .06131, 5.11931, .33831, .08692, + .00000, .24013, .34239, + .11309, .06242, 5.68400, .35557, .10661, + .00000, .25788, .35979 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11466, .06340, 6.16037, .37103, .12295, + .00000, .27374, .37537, + .11619, .06434, 6.62901, .38643, .13993, + .00000, .28954, .39090, + .11741, .06510, 6.99286, .39889, .15317, + .00000, .30230, .40344, + .12003, .06672, 7.75408, .42632, .18270, + .00000, .33040, .43109, + .12235, .06813, 8.39241, .45071, .20895, + .01575, .35535, .45566, + .12494, .06971, 9.05269, .47861, .23888, + .05539, .38388, .48378, + .12766, .07134, 9.73002, .50833, .27061, + .09005, .41424, .51372, + .13012, .07284, 10.31545, .53536, .29903, + .12000, .44185, .54096 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13262, .07434, 10.89190, .56303, .32823, + .15165, .47008, .56882, + .13470, .07558, 11.36183, .58630, .35295, + .17885, .49383, .59228, + .13722, .07708, 11.90663, .61451, .38267, + .21081, .52261, .62069, + .13945, .07841, 12.36680, .63943, .40879, + .23872, .54803, .64579, + .14151, .07963, 12.78337, .66255, .43324, + .26532, .57160, .66908, + .14410, .08116, 13.28090, .69158, .46366, + .29784, .60120, .69833, + .14653, .08259, 13.72632, .71877, .49214, + .32829, .62892, .72572, + .14882, .08393, 14.13230, .74435, .51907, + .35733, .65501, .75150 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15109, .08525, 14.51072, .76949, .54536, + .38535, .68065, .77683, + .15331, .08655, 14.86683, .79403, .57107, + .41287, .70565, .80155, + .15542, .08776, 15.19023, .81714, .59532, + .43886, .72922, .82484, + .15738, .08890, 15.47516, .83852, .61767, + .46269, .75103, .84639, + .15936, .09005, 15.75450, .86004, .64027, + .48691, .77298, .86807, + .16130, .09114, 16.00869, .88072, .66188, + .50994, .79406, .88891, + .16314, .09220, 16.24482, .90039, .68253, + .53204, .81413, .90874, + .16487, .09319, 16.45273, .91861, .70160, + .55239, .83272, .92710 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16660, .09418, 16.65421, .93685, .72072, + .57281, .85134, .94550, + .16833, .09515, 16.84494, .95472, .73947, + .59287, .86956, .96349, + .16995, .09607, 17.01260, .97134, .75687, + .61141, .88652, .98025, + .17150, .09695, 17.17211, .98725, .77363, + .62939, .90278, .99631, + .17305, .09781, 17.31545, 1.00274, .78982, + .64664, .91859, 1.01191 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .12060, .06737, 1.74025, .22552, .00000, + .00000, .13075, .23004, + .12249, .06858, 2.20639, .23592, .00000, + .00000, .14162, .24060, + .12539, .07043, 2.89700, .25268, .00988, + .00000, .15907, .25759, + .12758, .07181, 3.40355, .26585, .02296, + .00000, .17273, .27093, + .12992, .07329, 3.92516, .28048, .04397, + .00000, .18789, .28576, + .13196, .07456, 4.37035, .29371, .05825, + .00000, .20159, .29917, + .13394, .07578, 4.79081, .30680, .07267, + .00000, .21509, .31243, + .13608, .07711, 5.24273, .32119, .08927, + .00000, .22995, .32702 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13793, .07825, 5.61910, .33399, .10293, + .00000, .24314, .33997, + .13975, .07937, 5.98514, .34668, .11707, + .00000, .25620, .35281, + .14119, .08025, 6.26651, .35687, .12802, + .00000, .26669, .36313, + .14428, .08213, 6.84623, .37918, .15228, + .00000, .28963, .38570, + .14698, .08378, 7.33001, .39880, .17364, + .00961, .30981, .40557, + .15001, .08559, 7.81213, .42108, .19779, + .04204, .33269, .42811, + .15317, .08748, 8.29857, .44453, .22314, + .07009, .35678, .45184, + .15603, .08918, 8.71076, .46566, .24561, + .09409, .37847, .47322 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15892, .09087, 9.11013, .48707, .26851, + .11925, .40045, .49488, + .16132, .09229, 9.43117, .50494, .28775, + .14072, .41880, .51296, + .16422, .09399, 9.79708, .52642, .31068, + .16574, .44084, .53470, + .16677, .09547, 10.10031, .54520, .33066, + .18741, .46012, .55371, + .16911, .09684, 10.37147, .56252, .34924, + .20793, .47790, .57123, + .17207, .09853, 10.68901, .58406, .37216, + .23280, .50001, .59304, + .17484, .10012, 10.96777, .60403, .39342, + .25590, .52052, .61325, + .17743, .10160, 11.21799, .62269, .41339, + .27779, .53969, .63214 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18000, .10304, 11.44565, .64085, .43271, + .29872, .55835, .65052, + .18250, .10446, 11.65617, .65843, .45147, + .31915, .57642, .66831, + .18485, .10578, 11.84392, .67486, .46904, + .33830, .59331, .68495, + .18704, .10701, 12.00520, .68993, .48512, + .35576, .60883, .70022, + .18926, .10824, 12.16110, .70501, .50127, + .37339, .62435, .71550, + .19141, .10944, 12.29863, .71938, .51659, + .39003, .63912, .73004, + .19345, .11056, 12.42461, .73296, .53117, + .40593, .65312, .74380, + .19536, .11161, 12.53211, .74543, .54453, + .42047, .66597, .75645 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19728, .11266, 12.63415, .75786, .55785, + .43498, .67878, .76903, + .19916, .11370, 12.72866, .76993, .57083, + .44917, .69124, .78127, + .20094, .11466, 12.80845, .78108, .58281, + .46219, .70275, .79258, + .20264, .11559, 12.88410, .79173, .59429, + .47478, .71374, .80338, + .20433, .11650, 12.94780, .80197, .60531, + .48677, .72432, .81377 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .13781, .07853, 1.90884, .21323, .00000, + .00000, .12265, .21896, + .13994, .07991, 2.32954, .22259, .00000, + .00000, .13245, .22850, + .14325, .08200, 2.94522, .23759, .00647, + .00000, .14812, .24379, + .14573, .08357, 3.38643, .24930, .01820, + .00000, .16033, .25573, + .14837, .08522, 3.83438, .26227, .03706, + .00000, .17380, .26893, + .15068, .08665, 4.21240, .27391, .04975, + .00000, .18589, .28077, + .15291, .08803, 4.56553, .28535, .06250, + .00000, .19775, .29242, + .15531, .08950, 4.94106, .29789, .07711, + .00000, .21075, .30519 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15741, .09077, 5.25065, .30895, .08906, + .00000, .22221, .31644, + .15944, .09202, 5.54908, .31988, .10136, + .00000, .23351, .32755, + .16105, .09299, 5.77663, .32861, .11085, + .00000, .24253, .33644, + .16452, .09506, 6.23969, .34761, .13176, + .00000, .26219, .35576, + .16752, .09685, 6.62582, .36419, .15003, + .00563, .27932, .37263, + .17088, .09884, 6.99701, .38288, .17054, + .03349, .29864, .39162, + .17439, .10089, 7.36631, .40239, .19190, + .05739, .31880, .41146, + .17754, .10272, 7.67397, .41982, .21069, + .07769, .33679, .42917 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18072, .10455, 7.96785, .43735, .22971, + .09886, .35491, .44698, + .18336, .10607, 8.20115, .45189, .24559, + .11679, .36993, .46177, + .18654, .10787, 8.46288, .46922, .26439, + .13757, .38786, .47940, + .18932, .10946, 8.67605, .48427, .28066, + .15544, .40343, .49470, + .19188, .11090, 8.86461, .49806, .29572, + .17230, .41770, .50873, + .19509, .11269, 9.08097, .51508, .31416, + .19260, .43532, .52604, + .19809, .11436, 9.26713, .53076, .33115, + .21132, .45155, .54199, + .20088, .11591, 9.43172, .54529, .34703, + .22897, .46662, .55678 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20364, .11742, 9.57758, .55933, .36226, + .24573, .48119, .57106, + .20633, .11889, 9.70984, .57283, .37698, + .26202, .49519, .58480, + .20884, .12026, 9.82540, .58536, .39069, + .27721, .50822, .59756, + .21119, .12153, 9.92160, .59678, .40316, + .29097, .52009, .60920, + .21354, .12279, 10.01307, .60815, .41563, + .30482, .53192, .62078, + .21582, .12402, 10.09047, .61888, .42738, + .31780, .54309, .63170, + .21798, .12517, 10.16012, .62898, .43850, + .33016, .55362, .64200, + .22000, .12624, 10.21683, .63820, .44865, + .34141, .56324, .65139 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22202, .12730, 10.26898, .64733, .45872, + .35259, .57278, .66069, + .22401, .12835, 10.31560, .65616, .46849, + .36348, .58200, .66969, + .22587, .12932, 10.35207, .66424, .47744, + .37341, .59046, .67794, + .22765, .13024, 10.38657, .67194, .48601, + .38300, .59853, .68580, + .22941, .13115, 10.41174, .67928, .49418, + .39208, .60623, .69328 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .15280, .08834, 2.04365, .20345, .00000, + .00000, .11599, .21026, + .15519, .08987, 2.42559, .21206, .00000, + .00000, .12503, .21909, + .15886, .09219, 2.98052, .22579, .00351, + .00000, .13943, .23317, + .16160, .09390, 3.36965, .23646, .01425, + .00000, .15058, .24410, + .16451, .09571, 3.76003, .24820, .03155, + .00000, .16284, .25613, + .16706, .09727, 4.08646, .25870, .04309, + .00000, .17378, .26686, + .16950, .09875, 4.38864, .26894, .05463, + .00000, .18446, .27735, + .17214, .10034, 4.70714, .28014, .06780, + .00000, .19612, .28879 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17443, .10172, 4.96746, .28994, .07851, + .00000, .20632, .29882, + .17666, .10305, 5.21651, .29959, .08949, + .00000, .21636, .30868, + .17842, .10410, 5.40507, .30727, .09794, + .00000, .22435, .31653, + .18218, .10632, 5.78471, .32390, .11645, + .00000, .24164, .33352, + .18545, .10822, 6.10183, .33830, .13252, + .00282, .25662, .34824, + .18908, .11032, 6.39569, .35443, .15047, + .02742, .27339, .36472, + .19285, .11248, 6.68433, .37116, .16904, + .04840, .29079, .38180, + .19624, .11440, 6.92089, .38597, .18524, + .06610, .30621, .39694 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19965, .11633, 7.14385, .40077, .20156, + .08446, .32163, .41207, + .20248, .11791, 7.31876, .41299, .21513, + .09995, .33435, .42454, + .20586, .11979, 7.51167, .42746, .23109, + .11780, .34942, .43933, + .20883, .12142, 7.66615, .43994, .24483, + .13307, .36244, .45209, + .21155, .12292, 7.80134, .45131, .25749, + .14742, .37432, .46371, + .21494, .12476, 7.95289, .46524, .27289, + .16459, .38889, .47797, + .21809, .12645, 8.08042, .47799, .28701, + .18035, .40222, .49100, + .22104, .12804, 8.19124, .48975, .30013, + .19515, .41454, .50304 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22393, .12957, 8.28621, .50102, .31267, + .20913, .42636, .51457, + .22674, .13106, 8.37025, .51179, .32471, + .22265, .43767, .52560, + .22937, .13244, 8.44167, .52174, .33587, + .23521, .44813, .53578, + .23181, .13371, 8.49847, .53074, .34596, + .24652, .45760, .54500, + .23425, .13498, 8.55122, .53965, .35602, + .25787, .46699, .55412, + .23662, .13620, 8.59292, .54801, .36544, + .26847, .47582, .56269, + .23885, .13734, 8.62937, .55584, .37434, + .27852, .48411, .57073, + .24092, .13840, 8.65639, .56294, .38240, + .28762, .49162, .57801 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24300, .13946, 8.67959, .56992, .39037, + .29664, .49903, .58517, + .24504, .14048, 8.69858, .57665, .39809, + .30540, .50617, .59208, + .24694, .14143, 8.71031, .58276, .40510, + .31335, .51268, .59835, + .24876, .14235, 8.72142, .58856, .41182, + .32101, .51887, .60431, + .25055, .14323, 8.72504, .59405, .41817, + .32822, .52472, .60995 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17884, .10538, 2.23663, .18850, .00000, + .00000, .10553, .19743, + .18165, .10715, 2.55457, .19605, .00000, + .00000, .11352, .20529, + .18594, .10982, 3.01376, .20800, -.00130, + .00000, .12618, .21769, + .18914, .11175, 3.32278, .21716, .00810, + .00000, .13585, .22718, + .19251, .11378, 3.62662, .22717, .02314, + .00000, .14641, .23753, + .19542, .11552, 3.87678, .23599, .03306, + .00000, .15571, .24666, + .19823, .11718, 4.10479, .24454, .04291, + .00000, .16473, .25550, + .20125, .11894, 4.34172, .25379, .05406, + .00000, .17448, .26507 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20385, .12045, 4.53241, .26183, .06305, + .00000, .18294, .27337, + .20638, .12191, 4.71258, .26968, .07221, + .00000, .19122, .28148, + .20838, .12305, 4.84730, .27587, .07921, + .00000, .19775, .28787, + .21263, .12546, 5.11300, .28917, .09442, + .00000, .21176, .30160, + .21628, .12750, 5.33713, .30054, .10749, + -.00090, .22376, .31335, + .22032, .12973, 5.52866, .31314, .12194, + .01921, .23706, .32634, + .22451, .13201, 5.71227, .32604, .13673, + .03621, .25070, .33966, + .22823, .13403, 5.85771, .33729, .14949, + .05041, .26263, .35128 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23197, .13602, 5.99092, .34844, .16224, + .06502, .27444, .36279, + .23505, .13766, 6.09277, .35753, .17274, + .07724, .28409, .37219, + .23872, .13959, 6.20088, .36818, .18497, + .09120, .29542, .38318, + .24192, .14125, 6.28346, .37725, .19540, + .10306, .30508, .39255, + .24483, .14276, 6.35381, .38545, .20495, + .11411, .31383, .40104, + .24847, .14461, 6.42810, .39538, .21645, + .12724, .32445, .41131, + .25183, .14631, 6.48655, .40433, .22689, + .13919, .33405, .42057, + .25493, .14787, 6.53471, .41250, .23652, + .15032, .34283, .42903 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .25797, .14938, 6.57122, .42024, .24562, + .16074, .35117, .43705, + .26091, .15083, 6.60044, .42755, .25430, + .17076, .35908, .44462, + .26364, .15217, 6.62226, .43422, .26227, + .17999, .36631, .45154, + .26617, .15339, 6.63538, .44017, .26942, + .18824, .37277, .45771, + .26869, .15460, 6.64557, .44602, .27649, + .19647, .37914, .46378, + .27110, .15576, 6.64849, .45142, .28306, + .20410, .38506, .46940, + .27339, .15683, 6.64915, .45645, .28923, + .21130, .39057, .47462, + .27550, .15782, 6.64479, .46093, .29476, + .21777, .39551, .47929 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .27760, .15880, 6.63776, .46531, .30020, + .22414, .40035, .48384, + .27966, .15974, 6.62823, .46947, .30541, + .23029, .40497, .48817, + .28157, .16062, 6.61484, .47319, .31012, + .23584, .40912, .49205, + .28338, .16145, 6.60229, .47671, .31461, + .24117, .41305, .49571, + .28516, .16224, 6.58455, .47996, .31881, + .24613, .41670, .49911 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .21163, .12668, 2.39823, .17220, .00000, + .00000, .09404, .18412, + .21499, .12872, 2.64232, .17871, .00000, + .00000, .10108, .19102, + .22006, .13173, 2.99602, .18887, -.00636, + .00000, .11201, .20178, + .22379, .13388, 3.21970, .19652, .00176, + .00000, .12025, .20984, + .22771, .13613, 3.43386, .20474, .01452, + .00000, .12911, .21852, + .23109, .13804, 3.60690, .21190, .02288, + .00000, .13681, .22604, + .23432, .13984, 3.76156, .21875, .03108, + .00000, .14419, .23325, + .23778, .14175, 3.91940, .22607, .04027, + .00000, .15209, .24095 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24073, .14337, 4.04357, .23235, .04761, + .00000, .15887, .24755, + .24359, .14491, 4.15906, .23843, .05502, + .00000, .16542, .25392, + .24584, .14611, 4.24386, .24317, .06064, + .00000, .17055, .25892, + .25060, .14864, 4.40577, .25324, .07275, + .00000, .18144, .26949, + .25465, .15074, 4.54648, .26171, .08300, + -.00397, .19064, .27839, + .25909, .15303, 4.64901, .27097, .09421, + .01192, .20070, .28809, + .26363, .15534, 4.74322, .28028, .10555, + .02523, .21085, .29786, + .26768, .15734, 4.81256, .28827, .11521, + .03622, .21958, .30625 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27168, .15931, 4.87220, .29605, .12474, + .04740, .22812, .31442, + .27497, .16091, 4.91513, .30230, .13251, + .05668, .23502, .32100, + .27885, .16278, 4.95598, .30953, .14147, + .06717, .24299, .32859, + .28220, .16437, 4.98298, .31558, .14903, + .07600, .24972, .33496, + .28524, .16580, 5.00400, .32099, .15588, + .08416, .25574, .34064, + .28900, .16754, 5.02022, .32741, .16406, + .09377, .26294, .34740, + .29244, .16911, 5.02771, .33311, .17138, + .10242, .26935, .35340, + .29561, .17054, 5.03046, .33823, .17807, + .11041, .27514, .35880 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .29868, .17191, 5.02574, .34295, .18431, + .11782, .28053, .36379, + .30162, .17319, 5.01698, .34734, .19020, + .12488, .28559, .36844, + .30434, .17438, 5.00503, .35129, .19557, + .13134, .29015, .37262, + .30683, .17544, 4.98912, .35475, .20032, + .13706, .29417, .37626, + .30931, .17649, 4.97147, .35809, .20499, + .14273, .29809, .37980, + .31165, .17746, 4.94977, .36109, .20927, + .14792, .30164, .38299, + .31386, .17838, 4.92807, .36383, .21325, + .15280, .30492, .38592, + .31588, .17920, 4.90449, .36623, .21679, + .15715, .30782, .38846 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .31789, .18000, 4.87924, .36852, .22023, + .16140, .31060, .39090, + .31983, .18077, 4.85300, .37065, .22352, + .16548, .31323, .39319, + .32162, .18146, 4.82552, .37249, .22643, + .16911, .31554, .39516, + .32332, .18213, 4.79979, .37424, .22920, + .17259, .31772, .39701, + .32495, .18274, 4.77076, .37575, .23174, + .17581, .31968, .39864 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25726, .15530, 2.46638, .15337, .00000, + .00000, .08141, .17034, + .26134, .15759, 2.62432, .15870, .00000, + .00000, .08738, .17619, + .26742, .16093, 2.85897, .16677, -.01111, + .00000, .09644, .18501, + .27180, .16325, 2.99112, .17268, -.00438, + .00000, .10307, .19144, + .27638, .16563, 3.11205, .17891, .00591, + .00000, .11007, .19820, + .28027, .16762, 3.20676, .18420, .01261, + .00000, .11605, .20394, + .28397, .16948, 3.28859, .18918, .01908, + .00000, .12167, .20933, + .28788, .17143, 3.36972, .19442, .02623, + .00000, .12760, .21500 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29120, .17306, 3.43078, .19882, .03188, + .00000, .13261, .21975, + .29438, .17461, 3.48589, .20302, .03752, + .00000, .13740, .22430, + .29687, .17579, 3.52466, .20626, .04175, + .00000, .14109, .22779, + .30208, .17824, 3.59335, .21301, .05076, + .00000, .14883, .23508, + .30643, .18024, 3.65970, .21855, .05827, + -.00612, .15521, .24104, + .31114, .18236, 3.68695, .22447, .06635, + .00556, .16207, .24742, + .31592, .18446, 3.70739, .23028, .07440, + .01525, .16884, .25367, + .32007, .18626, 3.71573, .23512, .08114, + .02314, .17456, .25889 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .32418, .18798, 3.71783, .23972, .08771, + .03109, .18003, .26384, + .32750, .18934, 3.71573, .24334, .09299, + .03759, .18439, .26775, + .33136, .19092, 3.70675, .24741, .09900, + .04488, .18931, .27214, + .33465, .19223, 3.69348, .25071, .10399, + .05092, .19337, .27570, + .33762, .19338, 3.67939, .25361, .10847, + .05647, .19695, .27882, + .34122, .19475, 3.65574, .25693, .11373, + .06291, .20113, .28240, + .34447, .19594, 3.62952, .25975, .11837, + .06865, .20476, .28546, + .34744, .19702, 3.60300, .26221, .12256, + .07389, .20797, .28814 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .35026, .19800, 3.57256, .26438, .12641, + .07870, .21087, .29049, + .35293, .19891, 3.54092, .26634, .12999, + .08322, .21353, .29261, + .35536, .19972, 3.50938, .26801, .13321, + .08732, .21589, .29443, + .35754, .20042, 3.47740, .26939, .13601, + .09090, .21788, .29593, + .35969, .20110, 3.44482, .27068, .13874, + .09444, .21979, .29734, + .36170, .20170, 3.41075, .27175, .14119, + .09763, .22146, .29851, + .36356, .20224, 3.37823, .27269, .14345, + .10060, .22296, .29953, + .36523, .20271, 3.34606, .27342, .14542, + .10322, .22423, .30035 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .36687, .20316, 3.31318, .27407, .14731, + .10576, .22541, .30107, + .36843, .20357, 3.28036, .27464, .14909, + .10817, .22650, .30169, + .36986, .20391, 3.24801, .27504, .15064, + .11030, .22739, .30215, + .37120, .20424, 3.21785, .27541, .15211, + .11233, .22822, .30257, + .37245, .20452, 3.18593, .27563, .15341, + .11417, .22890, .30282 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29557, .17829, 2.40245, .13984, .00000, + .00000, .07330, .16134, + .30025, .18069, 2.50326, .14421, .00000, + .00000, .07844, .16632, + .30715, .18411, 2.65974, .15066, -.01298, + .00000, .08607, .17362, + .31201, .18644, 2.73556, .15528, -.00723, + .00000, .09154, .17881, + .31702, .18881, 2.80086, .16005, .00132, + .00000, .09723, .18416, + .32126, .19076, 2.84992, .16404, .00688, + .00000, .10200, .18861, + .32522, .19255, 2.89019, .16773, .01219, + .00000, .10642, .19272, + .32939, .19440, 2.92853, .17155, .01798, + .00000, .11103, .19697 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .33290, .19592, 2.95499, .17470, .02254, + .00000, .11486, .20048, + .33625, .19734, 2.97773, .17767, .02703, + .00000, .11849, .20377, + .33881, .19843, 2.99234, .17993, .03039, + .00000, .12128, .20628, + .34416, .20062, 3.01311, .18457, .03747, + .00000, .12700, .21141, + .34856, .20235, 3.04091, .18829, .04329, + -.00664, .13166, .21551, + .35326, .20416, 3.03235, .19217, .04949, + .00243, .13658, .21978, + .35795, .20590, 3.01870, .19589, .05558, + .00992, .14135, .22385, + .36197, .20734, 2.99999, .19889, .06063, + .01596, .14529, .22713 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .36586, .20868, 2.97737, .20164, .06549, + .02197, .14900, .23017, + .36899, .20972, 2.95648, .20377, .06937, + .02687, .15189, .23251, + .37257, .21088, 2.92734, .20607, .07374, + .03229, .15511, .23502, + .37559, .21180, 2.89864, .20785, .07732, + .03677, .15768, .23697, + .37827, .21260, 2.87152, .20937, .08051, + .04083, .15993, .23864, + .38145, .21349, 2.83382, .21101, .08421, + .04553, .16249, .24044, + .38427, .21424, 2.79637, .21233, .08744, + .04966, .16464, .24187, + .38681, .21488, 2.76060, .21343, .09032, + .05340, .16652, .24305 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .38916, .21542, 2.72282, .21430, .09293, + .05681, .16814, .24399, + .39135, .21589, 2.68516, .21501, .09533, + .05999, .16958, .24476, + .39332, .21628, 2.64895, .21555, .09748, + .06285, .17081, .24535, + .39504, .21657, 2.61383, .21591, .09931, + .06533, .17181, .24573, + .39671, .21682, 2.57868, .21620, .10108, + .06775, .17272, .24603, + .39822, .21702, 2.54313, .21634, .10264, + .06992, .17347, .24618, + .39960, .21717, 2.50962, .21641, .10407, + .07194, .17412, .24625, + .40080, .21727, 2.47733, .21638, .10529, + .07368, .17461, .24620 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40195, .21733, 2.44478, .21628, .10646, + .07537, .17504, .24607, + .40303, .21738, 2.41272, .21612, .10753, + .07695, .17540, .24588, + .40397, .21737, 2.38174, .21587, .10845, + .07834, .17565, .24560, + .40485, .21736, 2.35294, .21564, .10931, + .07966, .17587, .24533, + .40561, .21729, 2.32312, .21529, .11005, + .08083, .17598, .24492 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .36099, .21394, 2.11532, .12007, .00000, + .00000, .06370, .15061, + .36640, .21624, 2.15181, .12284, .00000, + .00000, .06746, .15395, + .37410, .21935, 2.21979, .12681, -.01312, + .00000, .07286, .15867, + .37935, .22138, 2.23717, .12952, -.00881, + .00000, .07660, .16184, + .38467, .22335, 2.24657, .13225, -.00264, + .00000, .08038, .16501, + .38905, .22491, 2.25097, .13446, .00138, + .00000, .08347, .16753, + .39307, .22629, 2.25155, .13641, .00517, + .00000, .08629, .16978, + .39723, .22767, 2.24988, .13839, .00923, + .00000, .08916, .17201 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .40064, .22875, 2.24484, .13995, .01238, + .00000, .09148, .17379, + .40385, .22973, 2.23862, .14139, .01548, + .00000, .09365, .17539, + .40627, .23045, 2.23198, .14246, .01776, + .00000, .09527, .17658, + .41119, .23183, 2.21233, .14455, .02249, + .00000, .09856, .17888, + .41505, .23281, 2.20667, .14614, .02633, + -.00623, .10113, .18059, + .41906, .23371, 2.17159, .14770, .03036, + -.00024, .10378, .18225, + .42291, .23448, 2.13390, .14907, .03425, + .00466, .10625, .18366, + .42607, .23502, 2.09728, .15005, .03742, + .00856, .10819, .18463 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .42901, .23544, 2.05933, .15085, .04042, + .01239, .10995, .18540, + .43130, .23569, 2.02748, .15140, .04278, + .01548, .11127, .18591, + .43381, .23587, 1.98773, .15187, .04540, + .01886, .11267, .18629, + .43579, .23592, 1.95175, .15213, .04752, + .02162, .11372, .18644, + .43749, .23592, 1.91900, .15229, .04937, + .02409, .11459, .18649, + .43939, .23578, 1.87658, .15231, .05149, + .02692, .11549, .18636, + .44094, .23555, 1.83654, .15220, .05331, + .02938, .11617, .18606, + .44226, .23525, 1.79945, .15200, .05490, + .03157, .11672, .18568 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .44333, .23487, 1.76197, .15167, .05631, + .03354, .11710, .18515, + .44426, .23443, 1.72561, .15126, .05758, + .03536, .11738, .18455, + .44500, .23396, 1.69154, .15079, .05869, + .03697, .11756, .18389, + .44554, .23345, 1.65938, .15028, .05961, + .03835, .11762, .18315, + .44600, .23292, 1.62763, .14973, .06049, + .03969, .11764, .18238, + .44629, .23232, 1.59635, .14910, .06124, + .04086, .11756, .18152, + .44651, .23172, 1.56718, .14847, .06193, + .04194, .11746, .18069, + .44661, .23110, 1.53967, .14782, .06247, + .04286, .11729, .17983 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .44664, .23045, 1.51229, .14712, .06299, + .04374, .11707, .17893, + .44659, .22978, 1.48564, .14641, .06345, + .04456, .11682, .17799, + .44644, .22910, 1.46029, .14568, .06382, + .04525, .11653, .17704, + .44630, .22847, 1.43682, .14500, .06418, + .04591, .11625, .17613, + .44602, .22776, 1.41298, .14424, .06445, + .04649, .11589, .17517 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .41582, .24008, 1.78932, .10454, .00000, + .00000, .05765, .14251, + .42144, .24197, 1.79726, .10611, .00000, + .00000, .06027, .14440, + .42920, .24438, 1.82441, .10827, -.01156, + .00000, .06393, .14693, + .43431, .24581, 1.81846, .10970, -.00825, + .00000, .06641, .14852, + .43933, .24712, 1.80668, .11108, -.00364, + .00000, .06888, .15003, + .44338, .24809, 1.79460, .11215, -.00065, + .00000, .07086, .15116, + .44699, .24888, 1.78101, .11307, .00216, + .00000, .07262, .15209, + .45065, .24959, 1.76550, .11396, .00514, + .00000, .07439, .15295 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .45354, .25008, 1.75004, .11461, .00744, + .00000, .07578, .15355, + .45621, .25048, 1.73448, .11519, .00968, + .00000, .07707, .15406, + .45817, .25072, 1.72125, .11558, .01133, + .00000, .07802, .15438, + .46203, .25106, 1.68992, .11631, .01472, + .00000, .07989, .15491, + .46485, .25112, 1.67351, .11677, .01742, + -.00537, .08130, .15514, + .46760, .25102, 1.63354, .11715, .02023, + -.00114, .08269, .15522, + .47009, .25073, 1.59209, .11736, .02293, + .00231, .08393, .15510, + .47194, .25026, 1.55373, .11737, .02510, + .00504, .08483, .15478 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .47352, .24968, 1.51508, .11726, .02712, + .00769, .08558, .15429, + .47462, .24911, 1.48331, .11709, .02871, + .00980, .08612, .15379, + .47564, .24831, 1.44465, .11676, .03044, + .01211, .08660, .15304, + .47630, .24747, 1.41048, .11636, .03182, + .01396, .08691, .15227, + .47676, .24666, 1.37980, .11594, .03302, + .01562, .08713, .15149, + .47705, .24551, 1.34083, .11530, .03436, + .01749, .08726, .15039, + .47705, .24433, 1.30468, .11461, .03550, + .01910, .08728, .14924, + .47692, .24319, 1.27158, .11393, .03649, + .02054, .08725, .14810 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .47655, .24192, 1.23866, .11315, .03734, + .02180, .08708, .14688, + .47603, .24064, 1.20712, .11233, .03809, + .02295, .08686, .14565, + .47540, .23940, 1.17784, .11154, .03873, + .02397, .08661, .14442, + .47463, .23816, 1.15053, .11073, .03926, + .02482, .08631, .14321, + .47379, .23689, 1.12377, .10991, .03976, + .02565, .08598, .14198, + .47281, .23558, 1.09770, .10904, .04016, + .02637, .08557, .14072, + .47181, .23432, 1.07354, .10819, .04050, + .02701, .08518, .13951, + .47076, .23310, 1.05094, .10737, .04079, + .02756, .08476, .13833 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .46962, .23184, 1.02860, .10653, .04104, + .02808, .08432, .13713, + .46844, .23058, 1.00698, .10570, .04126, + .02855, .08386, .13592, + .46719, .22934, .98660, .10486, .04142, + .02894, .08340, .13474, + .46603, .22817, .96779, .10407, .04156, + .02931, .08295, .13364, + .46471, .22693, .94884, .10325, .04166, + .02963, .08247, .13248 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .46304, .25967, 1.49983, .09105, .00000, + .00000, .05257, .13427, + .46845, .26094, 1.49584, .09174, .00000, + .00000, .05429, .13492, + .47564, .26240, 1.50448, .09267, -.00988, + .00000, .05664, .13568, + .48016, .26310, 1.49003, .09325, -.00732, + .00000, .05821, .13603, + .48448, .26361, 1.47103, .09378, -.00379, + .00000, .05974, .13629, + .48783, .26383, 1.45346, .09414, -.00147, + .00000, .06097, .13638, + .49069, .26390, 1.43542, .09441, .00067, + .00000, .06202, .13634, + .49347, .26389, 1.41572, .09465, .00294, + .00000, .06305, .13621 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .49556, .26372, 1.39734, .09479, .00468, + .00000, .06386, .13599, + .49740, .26347, 1.37932, .09487, .00637, + .00000, .06456, .13574, + .49870, .26318, 1.36450, .09488, .00760, + .00000, .06507, .13549, + .50105, .26242, 1.33093, .09484, .01013, + .00000, .06604, .13484, + .50250, .26155, 1.31151, .09470, .01213, + -.00462, .06674, .13412, + .50369, .26038, 1.27277, .09445, .01421, + -.00148, .06739, .13322, + .50450, .25898, 1.23309, .09407, .01617, + .00107, .06790, .13214, + .50475, .25755, 1.19700, .09360, .01774, + .00307, .06821, .13100 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .50468, .25600, 1.16109, .09305, .01919, + .00500, .06840, .12977, + .50442, .25464, 1.13184, .09255, .02031, + .00654, .06850, .12870, + .50378, .25289, 1.09667, .09185, .02153, + .00820, .06849, .12730, + .50294, .25123, 1.06592, .09116, .02248, + .00951, .06840, .12599, + .50205, .24967, 1.03847, .09051, .02330, + .01069, .06828, .12478, + .50059, .24758, 1.00404, .08960, .02421, + .01201, .06803, .12315, + .49897, .24555, .97235, .08869, .02496, + .01312, .06771, .12158, + .49732, .24361, .94354, .08782, .02562, + .01412, .06736, .12009 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .49543, .24158, .91519, .08690, .02616, + .01498, .06695, .11854, + .49343, .23957, .88818, .08597, .02664, + .01577, .06652, .11700, + .49142, .23763, .86328, .08507, .02703, + .01644, .06606, .11553, + .48935, .23577, .84023, .08419, .02734, + .01701, .06560, .11412, + .48722, .23390, .81775, .08331, .02764, + .01756, .06512, .11269, + .48499, .23199, .79600, .08241, .02786, + .01802, .06459, .11129, + .48282, .23019, .77595, .08154, .02805, + .01843, .06409, .10995, + .48065, .22845, .75729, .08071, .02820, + .01878, .06359, .10867 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .47839, .22669, .73894, .07988, .02833, + .01910, .06307, .10736, + .47611, .22495, .72127, .07904, .02842, + .01939, .06254, .10608, + .47386, .22326, .70471, .07823, .02848, + .01963, .06203, .10485, + .47173, .22167, .68945, .07748, .02853, + .01985, .06155, .10368, + .46944, .22001, .67419, .07669, .02855, + .02003, .06102, .10251 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .51265, .27633, 1.21740, .07602, .00000, + .00000, .04629, .12226, + .51718, .27666, 1.20801, .07607, .00000, + .00000, .04720, .12174, + .52284, .27667, 1.20671, .07611, -.00820, + .00000, .04847, .12083, + .52609, .27629, 1.18902, .07609, -.00627, + .00000, .04930, .12011, + .52896, .27569, 1.16767, .07603, -.00361, + .00000, .05008, .11930, + .53092, .27499, 1.14841, .07596, -.00188, + .00000, .05068, .11848, + .53246, .27415, 1.12911, .07581, -.00028, + .00000, .05117, .11766, + .53380, .27312, 1.10839, .07561, .00140, + .00000, .05164, .11675 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .53455, .27211, 1.08948, .07540, .00269, + .00000, .05198, .11589, + .53510, .27105, 1.07115, .07518, .00393, + .00000, .05227, .11502, + .53536, .27012, 1.05630, .07496, .00484, + .00000, .05246, .11431, + .53541, .26803, 1.02349, .07449, .00668, + .00000, .05279, .11274, + .53485, .26602, 1.00324, .07400, .00813, + -.00384, .05296, .11133, + .53380, .26361, .96752, .07339, .00961, + -.00158, .05306, .10974, + .53224, .26095, .93123, .07270, .01100, + .00026, .05307, .10798, + .53035, .25844, .89865, .07199, .01209, + .00169, .05296, .10629 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .52813, .25577, .86651, .07120, .01309, + .00306, .05277, .10459, + .52612, .25352, .84054, .07051, .01386, + .00413, .05256, .10318, + .52334, .25071, .80960, .06964, .01467, + .00528, .05224, .10139, + .52060, .24816, .78278, .06885, .01532, + .00620, .05190, .09978, + .51798, .24582, .75904, .06811, .01585, + .00700, .05157, .09829, + .51438, .24277, .72951, .06711, .01644, + .00789, .05108, .09642, + .51079, .23983, .70259, .06614, .01691, + .00864, .05057, .09464, + .50731, .23707, .67829, .06522, .01731, + .00930, .05007, .09299 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .50359, .23429, .65457, .06429, .01765, + .00987, .04954, .09131, + .49986, .23154, .63215, .06336, .01792, + .01038, .04900, .08966, + .49624, .22893, .61164, .06249, .01814, + .01080, .04846, .08811, + .49270, .22644, .59279, .06163, .01831, + .01116, .04792, .08666, + .48910, .22396, .57450, .06077, .01846, + .01150, .04738, .08523, + .48543, .22150, .55693, .05992, .01857, + .01179, .04682, .08381, + .48192, .21917, .54081, .05913, .01865, + .01203, .04629, .08247, + .47851, .21695, .52592, .05837, .01870, + .01224, .04578, .08121 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47504, .21472, .51135, .05760, .01874, + .01242, .04526, .07994, + .47159, .21252, .49739, .05684, .01877, + .01259, .04473, .07871, + .46822, .21039, .48438, .05612, .01876, + .01272, .04423, .07754, + .46505, .20841, .47245, .05543, .01876, + .01285, .04376, .07645, + .46175, .20639, .46057, .05473, .01873, + .01294, .04327, .07533 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .55325, .28638, 1.01387, .06292, .00000, + .00000, .03992, .10860, + .55637, .28564, 1.00209, .06270, .00000, + .00000, .04038, .10728, + .55979, .28408, .99570, .06232, -.00708, + .00000, .04098, .10535, + .56130, .28258, .97676, .06201, -.00555, + .00000, .04136, .10396, + .56229, .28082, .95463, .06169, -.00347, + .00000, .04171, .10248, + .56262, .27913, .93480, .06138, -.00211, + .00000, .04198, .10117, + .56253, .27735, .91521, .06106, -.00087, + .00000, .04215, .09989, + .56210, .27537, .89435, .06069, .00044, + .00000, .04230, .09852 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .56135, .27351, .87550, .06033, .00144, + .00000, .04238, .09732, + .56041, .27165, .85742, .05996, .00240, + .00000, .04242, .09613, + .55947, .27015, .84286, .05966, .00309, + .00000, .04243, .09521, + .55703, .26678, .81119, .05899, .00449, + .00000, .04238, .09319, + .55434, .26373, .79097, .05837, .00557, + -.00327, .04229, .09143, + .55088, .26025, .75796, .05766, .00668, + -.00157, .04212, .08946, + .54687, .25649, .72468, .05682, .00770, + -.00019, .04185, .08742, + .54282, .25296, .69507, .05603, .00850, + .00087, .04152, .08556 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .53844, .24938, .66613, .05520, .00922, + .00188, .04115, .08368, + .53464, .24639, .64294, .05450, .00977, + .00267, .04081, .08212, + .52975, .24271, .61556, .05360, .01034, + .00350, .04037, .08023, + .52521, .23943, .59205, .05279, .01077, + .00415, .03992, .07855, + .52097, .23643, .57136, .05206, .01114, + .00472, .03949, .07706, + .51537, .23257, .54583, .05109, .01152, + .00535, .03891, .07516, + .50991, .22896, .52277, .05017, .01183, + .00587, .03833, .07338, + .50473, .22559, .50211, .04932, .01209, + .00632, .03778, .07175 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .49942, .22218, .48212, .04842, .01229, + .00671, .03723, .07012, + .49415, .21886, .46337, .04755, .01244, + .00704, .03665, .06855, + .48912, .21576, .44628, .04674, .01258, + .00733, .03611, .06710, + .48425, .21283, .43072, .04598, .01266, + .00757, .03559, .06572, + .47936, .20992, .41571, .04521, .01273, + .00778, .03507, .06437, + .47446, .20704, .40140, .04446, .01278, + .00796, .03454, .06305, + .46983, .20434, .38833, .04374, .01280, + .00811, .03404, .06183, + .46538, .20178, .37633, .04306, .01280, + .00823, .03356, .06068 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46088, .19924, .36464, .04239, .01280, + .00835, .03306, .05955, + .45644, .19674, .35350, .04173, .01279, + .00844, .03259, .05844, + .45215, .19436, .34317, .04110, .01276, + .00852, .03214, .05738, + .44814, .19214, .33372, .04052, .01275, + .00859, .03171, .05642, + .44400, .18986, .32439, .03991, .01270, + .00864, .03127, .05543 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .58544, .29097, .86816, .05185, .00000, + .00000, .03367, .09396, + .58670, .28916, .85410, .05149, .00000, + .00000, .03385, .09225, + .58727, .28604, .84337, .05100, -.00633, + .00000, .03406, .08976, + .58673, .28347, .82288, .05064, -.00507, + .00000, .03420, .08802, + .58554, .28061, .79973, .05024, -.00338, + .00000, .03430, .08619, + .58398, .27797, .77922, .04988, -.00227, + .00000, .03435, .08461, + .58209, .27533, .75913, .04949, -.00125, + .00000, .03436, .08311, + .57976, .27245, .73796, .04906, -.00020, + .00000, .03432, .08153 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .57735, .26986, .71912, .04866, .00061, + .00000, .03426, .08016, + .57483, .26732, .70113, .04826, .00136, + .00000, .03417, .07886, + .57263, .26526, .68681, .04792, .00191, + .00000, .03409, .07783, + .56759, .26078, .65615, .04720, .00301, + .00000, .03386, .07566, + .56273, .25682, .63594, .04656, .00386, + -.00280, .03360, .07382, + .55694, .25237, .60514, .04581, .00470, + -.00150, .03327, .07181, + .55052, .24770, .57439, .04499, .00548, + -.00043, .03289, .06971, + .54438, .24336, .54736, .04418, .00607, + .00037, .03248, .06786 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .53797, .23901, .52120, .04336, .00660, + .00114, .03202, .06601, + .53253, .23542, .50039, .04268, .00700, + .00172, .03162, .06449, + .52570, .23107, .47606, .04184, .00740, + .00234, .03111, .06268, + .51947, .22722, .45535, .04109, .00771, + .00282, .03065, .06107, + .51376, .22373, .43725, .04040, .00797, + .00324, .03022, .05963, + .50639, .21927, .41515, .03949, .00823, + .00369, .02963, .05786, + .49933, .21513, .39539, .03863, .00844, + .00406, .02907, .05623, + .49271, .21130, .37780, .03783, .00859, + .00438, .02853, .05475 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48596, .20749, .36090, .03704, .00872, + .00465, .02799, .05326, + .47937, .20380, .34516, .03627, .00881, + .00487, .02746, .05185, + .47311, .20036, .33097, .03556, .00888, + .00508, .02695, .05053, + .46717, .19710, .31811, .03488, .00892, + .00523, .02648, .04934, + .46125, .19389, .30579, .03420, .00894, + .00537, .02599, .04816, + .45537, .19075, .29410, .03353, .00896, + .00549, .02553, .04701, + .44983, .18782, .28348, .03291, .00896, + .00558, .02508, .04594, + .44456, .18505, .27380, .03233, .00895, + .00566, .02466, .04495 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43926, .18229, .26439, .03174, .00892, + .00572, .02423, .04397, + .43406, .17961, .25548, .03118, .00889, + .00578, .02382, .04302, + .42907, .17708, .24726, .03064, .00886, + .00582, .02343, .04212, + .42442, .17471, .23977, .03015, .00882, + .00585, .02306, .04129, + .41966, .17231, .23242, .02964, .00878, + .00588, .02268, .04046 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .60952, .29108, .75964, .04269, .00000, + .00000, .02773, .07924, + .60863, .28817, .74268, .04236, .00000, + .00000, .02780, .07736, + .60607, .28355, .72723, .04187, -.00579, + .00000, .02789, .07466, + .60323, .27996, .70488, .04149, -.00470, + .00000, .02790, .07277, + .59970, .27606, .68022, .04108, -.00328, + .00000, .02791, .07088, + .59616, .27257, .65876, .04069, -.00234, + .00000, .02782, .06927, + .59237, .26914, .63807, .04030, -.00149, + .00000, .02773, .06776, + .58809, .26546, .61648, .03987, -.00062, + .00000, .02763, .06616 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .58401, .26218, .59754, .03944, .00004, + .00000, .02750, .06481, + .57991, .25901, .57969, .03904, .00065, + .00000, .02735, .06350, + .57649, .25649, .56558, .03872, .00109, + .00000, .02723, .06247, + .56892, .25104, .53590, .03799, .00197, + .00000, .02690, .06037, + .56198, .24633, .51591, .03734, .00265, + -.00241, .02659, .05860, + .55394, .24110, .48717, .03660, .00330, + -.00138, .02623, .05668, + .54533, .23563, .45880, .03580, .00389, + -.00056, .02577, .05475, + .53719, .23072, .43411, .03507, .00435, + .00007, .02534, .05298 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .52888, .22579, .41054, .03430, .00475, + .00065, .02489, .05126, + .52195, .22173, .39199, .03365, .00504, + .00109, .02449, .04989, + .51344, .21685, .37043, .03287, .00534, + .00156, .02398, .04824, + .50578, .21258, .35234, .03217, .00556, + .00192, .02353, .04682, + .49880, .20874, .33661, .03153, .00573, + .00223, .02311, .04555, + .48984, .20387, .31759, .03071, .00591, + .00255, .02257, .04398, + .48143, .19936, .30070, .02996, .00605, + .00283, .02206, .04254, + .47362, .19521, .28580, .02924, .00615, + .00305, .02158, .04124 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46573, .19112, .27165, .02852, .00622, + .00324, .02108, .03998, + .45806, .18719, .25854, .02785, .00628, + .00341, .02061, .03876, + .45084, .18356, .24678, .02722, .00631, + .00353, .02016, .03764, + .44406, .18015, .23623, .02662, .00632, + .00364, .01973, .03661, + .43734, .17677, .22616, .02603, .00633, + .00373, .01932, .03561, + .43068, .17348, .21668, .02545, .00632, + .00380, .01891, .03467, + .42444, .17042, .20812, .02492, .00632, + .00387, .01851, .03378, + .41855, .16755, .20035, .02442, .00629, + .00391, .01815, .03295 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .41266, .16472, .19285, .02392, .00626, + .00396, .01781, .03213, + .40691, .16195, .18576, .02344, .00623, + .00399, .01746, .03134, + .40144, .15934, .17927, .02298, .00619, + .00401, .01712, .03062, + .39633, .15692, .17338, .02255, .00615, + .00402, .01681, .02995, + .39112, .15446, .16762, .02213, .00611, + .00404, .01650, .02928 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .62585, .28737, .67219, .03528, .00000, + .00000, .02248, .06505, + .62268, .28340, .65211, .03495, .00000, + .00000, .02251, .06325, + .61674, .27734, .63210, .03445, -.00530, + .00000, .02250, .06068, + .61156, .27279, .60776, .03408, -.00433, + .00000, .02248, .05889, + .60561, .26799, .58172, .03369, -.00313, + .00000, .02241, .05707, + .60008, .26371, .55946, .03331, -.00233, + .00000, .02232, .05556, + .59443, .25959, .53832, .03292, -.00161, + .00000, .02221, .05412, + .58820, .25523, .51655, .03249, -.00089, + .00000, .02207, .05262 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .58250, .25138, .49784, .03208, -.00034, + .00000, .02190, .05134, + .57688, .24768, .48026, .03169, .00017, + .00000, .02173, .05016, + .57230, .24476, .46653, .03137, .00053, + .00000, .02157, .04923, + .56230, .23856, .43801, .03068, .00124, + .00000, .02123, .04729, + .55340, .23325, .41873, .03005, .00177, + -.00206, .02091, .04569, + .54335, .22739, .39213, .02932, .00230, + -.00124, .02052, .04400, + .53269, .22139, .36624, .02858, .00276, + -.00059, .02010, .04223, + .52285, .21600, .34406, .02787, .00310, + -.00011, .01969, .04072 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .51291, .21066, .32305, .02717, .00341, + .00035, .01924, .03920, + .50468, .20630, .30667, .02659, .00362, + .00068, .01888, .03798, + .49473, .20102, .28787, .02586, .00384, + .00103, .01842, .03657, + .48587, .19646, .27219, .02523, .00400, + .00131, .01801, .03535, + .47784, .19240, .25869, .02466, .00412, + .00153, .01762, .03426, + .46764, .18730, .24255, .02393, .00424, + .00177, .01713, .03292, + .45812, .18259, .22834, .02325, .00434, + .00197, .01667, .03173, + .44933, .17829, .21589, .02262, .00440, + .00213, .01625, .03064 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .44059, .17404, .20416, .02198, .00445, + .00227, .01582, .02959, + .43211, .16999, .19339, .02139, .00447, + .00238, .01541, .02860, + .42417, .16625, .18378, .02085, .00448, + .00247, .01501, .02768, + .41675, .16276, .17523, .02034, .00449, + .00254, .01466, .02684, + .40942, .15934, .16710, .01985, .00448, + .00260, .01432, .02601, + .40223, .15601, .15951, .01937, .00447, + .00265, .01398, .02522, + .39550, .15294, .15267, .01891, .00444, + .00269, .01365, .02451, + .38919, .15006, .14650, .01849, .00442, + .00272, .01336, .02384 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .38291, .14721, .14059, .01807, .00440, + .00274, .01306, .02319, + .37677, .14445, .13503, .01768, .00436, + .00276, .01277, .02257, + .37094, .14186, .12996, .01729, .00433, + .00277, .01249, .02200, + .36552, .13945, .12537, .01695, .00430, + .00278, .01224, .02146, + .36005, .13704, .12090, .01659, .00425, + .00278, .01198, .02094 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .63502, .28018, .59505, .02902, .00000, + .00000, .01799, .05229, + .62932, .27536, .57236, .02875, .00000, + .00000, .01802, .05061, + .61988, .26808, .54835, .02837, -.00479, + .00000, .01798, .04824, + .61231, .26274, .52265, .02806, -.00394, + .00000, .01792, .04659, + .60402, .25713, .49583, .02769, -.00292, + .00000, .01785, .04494, + .59649, .25225, .47329, .02735, -.00223, + .00000, .01773, .04357, + .58903, .24757, .45225, .02697, -.00162, + .00000, .01761, .04229, + .58094, .24265, .43083, .02655, -.00102, + .00000, .01742, .04099 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .57368, .23840, .41264, .02618, -.00056, + .00000, .01723, .03988, + .56662, .23432, .39576, .02582, -.00014, + .00000, .01706, .03882, + .56098, .23107, .38271, .02551, .00015, + .00000, .01690, .03801, + .54880, .22427, .35597, .02485, .00073, + .00000, .01658, .03631, + .53819, .21854, .33769, .02425, .00115, + -.00173, .01627, .03494, + .52631, .21228, .31360, .02360, .00157, + -.00109, .01590, .03344, + .51390, .20590, .29037, .02293, .00193, + -.00058, .01550, .03195, + .50266, .20019, .27080, .02227, .00220, + -.00020, .01510, .03063 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49138, .19451, .25239, .02162, .00243, + .00015, .01471, .02940, + .48213, .18993, .23818, .02110, .00259, + .00041, .01437, .02842, + .47100, .18452, .22209, .02041, .00274, + .00067, .01396, .02725, + .46116, .17983, .20879, .01986, .00286, + .00088, .01360, .02622, + .45230, .17564, .19741, .01936, .00295, + .00105, .01327, .02532, + .44116, .17044, .18387, .01871, .00304, + .00122, .01284, .02426, + .43081, .16566, .17214, .01811, .00309, + .00136, .01246, .02327, + .42132, .16131, .16192, .01758, .00314, + .00149, .01210, .02238 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .41192, .15705, .15238, .01705, .00316, + .00157, .01176, .02149, + .40289, .15297, .14367, .01654, .00317, + .00165, .01142, .02069, + .39450, .14920, .13595, .01604, .00318, + .00173, .01110, .01998, + .38667, .14573, .12912, .01559, .00317, + .00177, .01081, .01932, + .37897, .14234, .12266, .01517, .00317, + .00182, .01052, .01869, + .37145, .13908, .11667, .01477, .00315, + .00185, .01023, .01808, + .36444, .13606, .11130, .01440, .00313, + .00187, .00996, .01750, + .35788, .13322, .10651, .01404, .00310, + .00188, .00972, .01698 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .35138, .13043, .10190, .01369, .00309, + .00190, .00949, .01649, + .34506, .12773, .09760, .01334, .00305, + .00191, .00925, .01600, + .33910, .12522, .09371, .01304, .00302, + .00191, .00902, .01556, + .33357, .12289, .09018, .01276, .00300, + .00192, .00881, .01514, + .32799, .12054, .08677, .01245, .00296, + .00192, .00861, .01474 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .63632, .27123, .52265, .02472, .00000, + .00000, .01372, .04052, + .62828, .26549, .49805, .02446, .00000, + .00000, .01378, .03910, + .61558, .25706, .47110, .02397, -.00426, + .00000, .01383, .03713, + .60581, .25099, .44481, .02360, -.00351, + .00000, .01381, .03578, + .59530, .24469, .41803, .02323, -.00264, + .00000, .01374, .03440, + .58605, .23922, .39591, .02280, -.00206, + .00000, .01366, .03327, + .57694, .23408, .37550, .02242, -.00154, + .00000, .01355, .03220, + .56717, .22872, .35499, .02202, -.00104, + .00000, .01342, .03108 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .55861, .22406, .33780, .02165, -.00065, + .00000, .01327, .03015, + .55033, .21965, .32201, .02127, -.00032, + .00000, .01313, .02926, + .54372, .21620, .30995, .02095, -.00008, + .00000, .01299, .02861, + .52967, .20898, .28556, .02027, .00039, + .00000, .01269, .02723, + .51757, .20293, .26877, .01972, .00073, + -.00142, .01241, .02610, + .50415, .19638, .24744, .01913, .00105, + -.00092, .01208, .02488, + .49040, .18975, .22712, .01847, .00133, + -.00053, .01175, .02366, + .47799, .18381, .21018, .01787, .00155, + -.00022, .01143, .02260 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46566, .17805, .19450, .01726, .00171, + .00004, .01108, .02158, + .45560, .17342, .18249, .01677, .00184, + .00024, .01080, .02078, + .44354, .16790, .16895, .01620, .00196, + .00044, .01047, .01983, + .43303, .16317, .15791, .01568, .00203, + .00058, .01015, .01905, + .42362, .15896, .14852, .01521, .00210, + .00071, .00986, .01836, + .41183, .15372, .13750, .01464, .00216, + .00084, .00953, .01747, + .40093, .14896, .12800, .01413, .00220, + .00095, .00921, .01671, + .39099, .14466, .11979, .01366, .00222, + .00103, .00892, .01602 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .38118, .14048, .11218, .01321, .00224, + .00110, .00862, .01537, + .37184, .13648, .10529, .01275, .00225, + .00116, .00834, .01475, + .36322, .13279, .09925, .01233, .00224, + .00120, .00808, .01420, + .35514, .12941, .09390, .01197, .00224, + .00123, .00784, .01369, + .34718, .12614, .08888, .01164, .00222, + .00126, .00760, .01319, + .33953, .12296, .08426, .01130, .00221, + .00129, .00738, .01272, + .33243, .12004, .08013, .01099, .00218, + .00129, .00719, .01229, + .32580, .11732, .07645, .01070, .00217, + .00130, .00699, .01190 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .31924, .11464, .07295, .01040, .00215, + .00132, .00680, .01152, + .31288, .11207, .06969, .01013, .00212, + .00132, .00663, .01115, + .30691, .10966, .06674, .00985, .00211, + .00133, .00646, .01082, + .30139, .10744, .06408, .00962, .00208, + .00133, .00631, .01051, + .29584, .10519, .06152, .00937, .00206, + .00132, .00615, .01020 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .63182, .25909, .45099, .02046, .00000, + .00000, .01070, .03098, + .62137, .25273, .42573, .02023, .00000, + .00000, .01076, .02978, + .60537, .24347, .39747, .01982, -.00370, + .00000, .01082, .02812, + .59350, .23686, .37176, .01946, -.00306, + .00000, .01078, .02701, + .58096, .23002, .34599, .01905, -.00233, + .00000, .01070, .02593, + .56993, .22426, .32505, .01871, -.00183, + .00000, .01060, .02499, + .55931, .21882, .30605, .01833, -.00141, + .00000, .01049, .02411, + .54810, .21312, .28710, .01793, -.00099, + .00000, .01037, .02319 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .53831, .20828, .27143, .01758, -.00068, + .00000, .01022, .02245, + .52890, .20368, .25719, .01722, -.00040, + .00000, .01007, .02174, + .52147, .20010, .24636, .01696, -.00021, + .00000, .00997, .02118, + .50578, .19265, .22478, .01638, .00017, + .00000, .00969, .02004, + .49251, .18644, .20985, .01585, .00043, + -.00115, .00947, .01912, + .47800, .17973, .19149, .01527, .00069, + -.00076, .00918, .01818, + .46311, .17301, .17424, .01466, .00090, + -.00045, .00887, .01721, + .44980, .16708, .16001, .01415, .00105, + -.00024, .00859, .01639 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43667, .16129, .14694, .01361, .00119, + -.00003, .00829, .01560, + .42604, .15666, .13700, .01319, .00127, + .00012, .00806, .01498, + .41333, .15126, .12600, .01269, .00137, + .00027, .00777, .01422, + .40240, .14654, .11710, .01222, .00143, + .00038, .00752, .01363, + .39265, .14236, .10958, .01181, .00147, + .00047, .00729, .01310, + .38043, .13727, .10081, .01135, .00151, + .00057, .00701, .01241, + .36922, .13265, .09330, .01093, .00153, + .00064, .00676, .01182, + .35904, .12849, .08688, .01052, .00155, + .00070, .00650, .01129 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .34910, .12441, .08098, .01012, .00156, + .00075, .00628, .01080, + .33962, .12058, .07567, .00977, .00157, + .00079, .00606, .01033, + .33087, .11708, .07103, .00945, .00156, + .00082, .00585, .00989, + .32279, .11384, .06697, .00914, .00156, + .00085, .00567, .00949, + .31490, .11067, .06317, .00883, .00155, + .00087, .00549, .00913, + .30727, .10766, .05970, .00855, .00153, + .00088, .00531, .00878, + .30021, .10487, .05663, .00828, .00152, + .00089, .00515, .00848, + .29366, .10230, .05388, .00803, .00150, + .00090, .00501, .00818 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .28719, .09979, .05127, .00779, .00148, + .00090, .00485, .00790, + .28095, .09737, .04885, .00756, .00146, + .00090, .00472, .00763, + .27506, .09510, .04669, .00736, .00144, + .00090, .00459, .00739, + .26961, .09302, .04474, .00717, .00143, + .00090, .00448, .00716, + .26419, .09093, .04288, .00697, .00141, + .00090, .00435, .00695 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .62077, .24566, .38037, .01725, .00000, + .00000, .00808, .02288, + .60811, .23875, .35558, .01696, .00000, + .00000, .00816, .02199, + .58929, .22874, .32759, .01647, -.00314, + .00000, .00820, .02075, + .57552, .22173, .30344, .01609, -.00260, + .00000, .00819, .01988, + .56110, .21458, .27961, .01572, -.00199, + .00000, .00814, .01900, + .54864, .20854, .26051, .01539, -.00158, + .00000, .00808, .01824, + .53678, .20285, .24338, .01501, -.00123, + .00000, .00798, .01758, + .52436, .19699, .22649, .01461, -.00090, + .00000, .00786, .01688 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51357, .19196, .21273, .01427, -.00065, + .00000, .00777, .01628, + .50332, .18724, .20030, .01394, -.00042, + .00000, .00764, .01572, + .49524, .18357, .19095, .01366, -.00027, + .00000, .00753, .01531, + .47831, .17600, .17248, .01313, .00002, + .00000, .00728, .01446, + .46412, .16977, .15969, .01267, .00023, + -.00092, .00706, .01376, + .44873, .16308, .14438, .01212, .00043, + -.00062, .00686, .01302, + .43306, .15642, .13011, .01160, .00059, + -.00039, .00660, .01227, + .41914, .15057, .11856, .01114, .00071, + -.00021, .00636, .01162 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40548, .14489, .10808, .01069, .00080, + -.00007, .00612, .01103, + .39449, .14036, .10018, .01032, .00087, + .00004, .00591, .01057, + .38158, .13503, .09143, .00988, .00094, + .00016, .00568, .00999, + .37038, .13050, .08446, .00949, .00099, + .00025, .00549, .00952, + .36041, .12650, .07862, .00914, .00102, + .00031, .00532, .00912, + .34810, .12159, .07187, .00871, .00104, + .00038, .00508, .00865, + .33686, .11715, .06617, .00834, .00106, + .00043, .00488, .00820, + .32667, .11316, .06128, .00803, .00107, + .00048, .00470, .00779 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .31672, .10930, .05686, .00773, .00108, + .00052, .00451, .00742, + .30730, .10565, .05288, .00742, .00108, + .00054, .00435, .00707, + .29870, .10232, .04944, .00712, .00108, + .00056, .00420, .00677, + .29073, .09928, .04646, .00687, .00107, + .00058, .00405, .00649, + .28295, .09633, .04369, .00663, .00106, + .00059, .00390, .00622, + .27548, .09351, .04114, .00642, .00105, + .00060, .00377, .00598, + .26858, .09091, .03889, .00622, .00103, + .00060, .00365, .00575, + .26221, .08851, .03692, .00601, .00102, + .00061, .00353, .00554 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .25595, .08616, .03505, .00581, .00101, + .00061, .00343, .00535, + .24990, .08391, .03334, .00561, .00100, + .00061, .00332, .00515, + .24422, .08182, .03179, .00545, .00099, + .00062, .00322, .00499, + .23899, .07989, .03041, .00531, .00097, + .00061, .00312, .00484, + .23380, .07797, .02910, .00514, .00096, + .00061, .00304, .00467 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .60425, .23066, .31121, .01431, .00000, + .00000, .00606, .01656, + .58959, .22337, .28801, .01404, .00000, + .00000, .00614, .01587, + .56817, .21286, .26184, .01355, -.00261, + .00000, .00618, .01494, + .55277, .20557, .24007, .01320, -.00215, + .00000, .00620, .01429, + .53681, .19824, .21898, .01282, -.00166, + .00000, .00616, .01361, + .52320, .19207, .20227, .01246, -.00133, + .00000, .00607, .01307, + .51027, .18628, .18745, .01215, -.00105, + .00000, .00601, .01254, + .49680, .18033, .17298, .01181, -.00078, + .00000, .00592, .01201 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48527, .17529, .16129, .01146, -.00058, + .00000, .00582, .01159, + .47434, .17058, .15085, .01113, -.00040, + .00000, .00571, .01118, + .46580, .16692, .14308, .01090, -.00029, + .00000, .00563, .01085, + .44797, .15940, .12792, .01041, -.00005, + .00000, .00542, .01020, + .43311, .15327, .11742, .01001, .00010, + -.00072, .00525, .00967, + .41711, .14671, .10507, .00957, .00026, + -.00049, .00507, .00910, + .40102, .14015, .09381, .00908, .00037, + -.00032, .00486, .00856, + .38681, .13446, .08475, .00869, .00047, + -.00018, .00465, .00810 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .37299, .12898, .07658, .00830, .00054, + -.00007, .00447, .00765, + .36191, .12461, .07049, .00795, .00059, + .00001, .00432, .00730, + .34883, .11954, .06391, .00756, .00063, + .00009, .00412, .00688, + .33762, .11520, .05862, .00725, .00067, + .00015, .00398, .00653, + .32771, .11138, .05425, .00698, .00069, + .00020, .00384, .00624, + .31549, .10669, .04924, .00664, .00072, + .00025, .00367, .00590, + .30439, .10251, .04505, .00633, .00072, + .00029, .00350, .00559, + .29438, .09876, .04151, .00607, .00073, + .00032, .00334, .00531 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .28464, .09514, .03832, .00580, .00074, + .00035, .00321, .00504, + .27546, .09174, .03549, .00556, .00073, + .00036, .00307, .00479, + .26707, .08865, .03303, .00533, .00073, + .00038, .00295, .00456, + .25936, .08583, .03093, .00514, .00072, + .00039, .00285, .00437, + .25186, .08309, .02895, .00494, .00072, + .00040, .00274, .00421, + .24467, .08048, .02722, .00475, .00071, + .00040, .00263, .00403, + .23806, .07810, .02567, .00457, .00070, + .00041, .00255, .00386, + .23194, .07590, .02430, .00442, .00070, + .00042, .00247, .00370 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .22594, .07376, .02303, .00429, .00068, + .00041, .00238, .00356, + .22019, .07170, .02185, .00415, .00068, + .00042, .00231, .00341, + .21481, .06979, .02080, .00401, .00066, + .00041, .00223, .00329, + .20987, .06803, .01986, .00390, .00066, + .00041, .00217, .00316, + .20494, .06630, .01897, .00379, .00064, + .00041, .00210, .00307 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .58272, .21442, .24509, .01156, .00000, + .00000, .00460, .01180, + .56638, .20687, .22450, .01128, .00000, + .00000, .00467, .01131, + .54261, .19622, .20116, .01090, -.00210, + .00000, .00471, .01059, + .52589, .18885, .18245, .01056, -.00173, + .00000, .00468, .01011, + .50876, .18143, .16462, .01017, -.00135, + .00000, .00462, .00962, + .49416, .17524, .15061, .00990, -.00109, + .00000, .00456, .00922, + .48041, .16948, .13839, .00962, -.00086, + .00000, .00448, .00882, + .46621, .16361, .12653, .00932, -.00065, + .00000, .00439, .00841 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .45410, .15864, .11710, .00902, -.00050, + .00000, .00432, .00807, + .44273, .15398, .10866, .00875, -.00036, + .00000, .00426, .00778, + .43389, .15036, .10250, .00853, -.00027, + .00000, .00417, .00754, + .41551, .14300, .09056, .00811, -.00010, + .00000, .00400, .00708, + .40038, .13704, .08234, .00774, .00002, + -.00055, .00386, .00668, + .38419, .13070, .07289, .00732, .00014, + -.00038, .00371, .00625, + .36787, .12441, .06432, .00695, .00023, + -.00025, .00354, .00588, + .35366, .11898, .05751, .00659, .00030, + -.00015, .00340, .00553 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33984, .11375, .05148, .00625, .00035, + -.00007, .00324, .00522, + .32881, .10961, .04704, .00600, .00038, + -.00002, .00310, .00497, + .31587, .10481, .04220, .00570, .00042, + .00005, .00298, .00467, + .30487, .10072, .03845, .00543, .00044, + .00009, .00286, .00441, + .29518, .09715, .03534, .00520, .00046, + .00012, .00275, .00419, + .28321, .09281, .03185, .00495, .00048, + .00016, .00260, .00394, + .27245, .08891, .02891, .00469, .00048, + .00019, .00249, .00373, + .26278, .08542, .02647, .00446, .00049, + .00021, .00239, .00355 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .25338, .08208, .02430, .00427, .00049, + .00023, .00226, .00336, + .24457, .07895, .02239, .00407, .00049, + .00024, .00217, .00317, + .23659, .07610, .02076, .00387, .00049, + .00026, .00209, .00302, + .22923, .07351, .01934, .00372, .00048, + .00026, .00201, .00289, + .22211, .07100, .01805, .00358, .00048, + .00026, .00193, .00276, + .21529, .06864, .01690, .00344, .00048, + .00027, .00185, .00264, + .20903, .06647, .01590, .00330, .00047, + .00028, .00177, .00254, + .20327, .06448, .01503, .00318, .00046, + .00027, .00170, .00244 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .19765, .06254, .01421, .00306, .00046, + .00028, .00165, .00232, + .19226, .06068, .01345, .00295, .00045, + .00028, .00160, .00223, + .18723, .05897, .01279, .00285, .00044, + .00027, .00154, .00215, + .18261, .05739, .01221, .00276, .00044, + .00028, .00149, .00207, + .17801, .05584, .01165, .00268, .00043, + .00027, .00144, .00200 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .55646, .19809, .18365, .00957, .00000, + .00000, .00331, .00793, + .53870, .19039, .16625, .00930, .00000, + .00000, .00337, .00764, + .51331, .17958, .14673, .00884, -.00166, + .00000, .00339, .00717, + .49555, .17219, .13136, .00852, -.00136, + .00000, .00341, .00684, + .47748, .16479, .11698, .00819, -.00107, + .00000, .00337, .00653, + .46230, .15865, .10587, .00789, -.00087, + .00000, .00333, .00622, + .44814, .15298, .09622, .00757, -.00069, + .00000, .00328, .00597, + .43353, .14722, .08701, .00725, -.00053, + .00000, .00321, .00574 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .42110, .14235, .07977, .00702, -.00041, + .00000, .00313, .00550, + .40943, .13784, .07342, .00679, -.00030, + .00000, .00305, .00527, + .40040, .13436, .06877, .00663, -.00024, + .00000, .00298, .00510, + .38185, .12730, .05983, .00624, -.00011, + .00000, .00287, .00472, + .36664, .12159, .05382, .00594, -.00002, + -.00041, .00277, .00445, + .35041, .11552, .04693, .00562, .00006, + -.00029, .00264, .00419, + .33431, .10958, .04080, .00528, .00013, + -.00019, .00254, .00387, + .32030, .10443, .03600, .00497, .00019, + -.00012, .00239, .00369 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .30676, .09949, .03179, .00470, .00022, + -.00007, .00229, .00347, + .29599, .09561, .02871, .00450, .00025, + -.00002, .00221, .00328, + .28343, .09113, .02545, .00426, .00027, + .00002, .00210, .00307, + .27273, .08737, .02295, .00406, .00029, + .00005, .00200, .00290, + .26331, .08407, .02092, .00388, .00030, + .00008, .00192, .00277, + .25191, .08006, .01862, .00364, .00032, + .00011, .00182, .00260, + .24160, .07647, .01677, .00345, .00032, + .00012, .00172, .00243, + .23235, .07329, .01525, .00328, .00032, + .00013, .00163, .00229 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .22344, .07025, .01389, .00313, .00033, + .00015, .00157, .00215, + .21510, .06740, .01270, .00298, .00032, + .00015, .00149, .00205, + .20752, .06480, .01172, .00286, .00032, + .00016, .00142, .00196, + .20062, .06246, .01088, .00274, .00032, + .00017, .00135, .00187, + .19397, .06020, .01011, .00260, .00031, + .00017, .00130, .00178, + .18765, .05807, .00942, .00248, .00031, + .00018, .00125, .00170, + .18188, .05612, .00883, .00237, .00030, + .00018, .00121, .00161, + .17653, .05434, .00832, .00228, .00031, + .00018, .00116, .00155 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .17130, .05261, .00785, .00219, .00030, + .00018, .00112, .00149, + .16631, .05096, .00743, .00210, .00029, + .00018, .00108, .00142, + .16167, .04944, .00705, .00203, .00029, + .00019, .00103, .00137, + .15742, .04805, .00670, .00197, .00029, + .00018, .00101, .00132, + .15319, .04667, .00640, .00191, .00028, + .00018, .00098, .00126 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .52647, .18115, .12797, .00773, .00000, + .00000, .00236, .00529, + .50773, .17349, .11416, .00747, .00000, + .00000, .00242, .00503, + .48104, .16287, .09889, .00705, -.00127, + .00000, .00243, .00475, + .46259, .15563, .08713, .00675, -.00105, + .00000, .00240, .00454, + .44402, .14840, .07616, .00647, -.00082, + .00000, .00239, .00430, + .42843, .14245, .06789, .00621, -.00067, + .00000, .00237, .00411, + .41398, .13693, .06084, .00598, -.00054, + .00000, .00232, .00391, + .39919, .13133, .05418, .00573, -.00042, + .00000, .00224, .00373 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .38670, .12669, .04896, .00552, -.00033, + .00000, .00218, .00358, + .37507, .12237, .04448, .00529, -.00025, + .00000, .00212, .00343, + .36609, .11907, .04121, .00511, -.00020, + .00000, .00209, .00332, + .34762, .11236, .03504, .00482, -.00010, + .00000, .00200, .00307, + .33260, .10695, .03099, .00457, -.00004, + -.00031, .00191, .00290, + .31668, .10127, .02634, .00429, .00002, + -.00022, .00182, .00272, + .30092, .09571, .02229, .00406, .00008, + -.00014, .00173, .00250, + .28731, .09092, .01921, .00381, .00011, + -.00010, .00164, .00236 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .27423, .08637, .01658, .00359, .00014, + -.00005, .00155, .00221, + .26385, .08278, .01470, .00342, .00016, + -.00002, .00148, .00209, + .25181, .07866, .01274, .00320, .00017, + .00001, .00139, .00194, + .24164, .07518, .01126, .00304, .00019, + .00003, .00133, .00184, + .23275, .07216, .01006, .00288, .00020, + .00005, .00128, .00176, + .22189, .06848, .00878, .00272, .00020, + .00006, .00120, .00165, + .21219, .06524, .00775, .00257, .00020, + .00007, .00114, .00156, + .20355, .06236, .00691, .00244, .00021, + .00009, .00108, .00146 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .19524, .05960, .00622, .00230, .00021, + .00010, .00103, .00138, + .18746, .05705, .00561, .00219, .00021, + .00011, .00097, .00131, + .18043, .05474, .00510, .00208, .00021, + .00011, .00093, .00124, + .17403, .05266, .00468, .00199, .00021, + .00012, .00089, .00117, + .16785, .05066, .00433, .00191, .00021, + .00011, .00084, .00110, + .16202, .04876, .00400, .00182, .00020, + .00011, .00081, .00105, + .15668, .04702, .00374, .00174, .00020, + .00012, .00079, .00100, + .15179, .04544, .00352, .00165, .00020, + .00012, .00076, .00096 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .14703, .04393, .00331, .00159, .00019, + .00012, .00074, .00091, + .14247, .04247, .00313, .00153, .00019, + .00011, .00070, .00087, + .13824, .04111, .00298, .00147, .00019, + .00012, .00067, .00083, + .13436, .03988, .00284, .00143, .00019, + .00012, .00065, .00080, + .13054, .03868, .00271, .00138, .00018, + .00012, .00061, .00078 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .49323, .16398, .07933, .00597, .00000, + .00000, .00180, .00344, + .47375, .15649, .06921, .00572, .00000, + .00000, .00179, .00334, + .44638, .14614, .05828, .00540, -.00095, + .00000, .00180, .00308, + .42758, .13915, .04992, .00518, -.00079, + .00000, .00179, .00290, + .40873, .13219, .04235, .00494, -.00062, + .00000, .00173, .00275, + .39321, .12646, .03668, .00469, -.00050, + .00000, .00169, .00266, + .37876, .12123, .03197, .00448, -.00041, + .00000, .00163, .00255, + .36401, .11595, .02760, .00428, -.00032, + .00000, .00160, .00241 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .35165, .11152, .02425, .00410, -.00026, + .00000, .00157, .00231, + .34012, .10743, .02140, .00394, -.00020, + .00000, .00154, .00223, + .33122, .10430, .01937, .00384, -.00016, + .00000, .00150, .00217, + .31318, .09802, .01567, .00353, -.00009, + .00000, .00143, .00202, + .29863, .09299, .01335, .00331, -.00004, + -.00021, .00134, .00187, + .28321, .08773, .01063, .00311, .00000, + -.00016, .00127, .00174, + .26809, .08259, .00831, .00289, .00004, + -.00010, .00122, .00163, + .25501, .07822, .00666, .00273, .00006, + -.00007, .00114, .00152 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .24256, .07406, .00528, .00257, .00008, + -.00004, .00108, .00141, + .23278, .07077, .00435, .00242, .00009, + -.00003, .00103, .00134, + .22150, .06703, .00340, .00223, .00011, + .00000, .00096, .00125, + .21192, .06388, .00274, .00211, .00012, + .00001, .00092, .00118, + .20356, .06115, .00223, .00200, .00012, + .00003, .00087, .00112, + .19345, .05789, .00171, .00187, .00013, + .00004, .00082, .00103, + .18442, .05497, .00134, .00176, .00013, + .00005, .00079, .00096, + .17637, .05240, .00102, .00168, .00013, + .00005, .00076, .00092 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16871, .04996, .00079, .00159, .00014, + .00006, .00072, .00087, + .16156, .04770, .00063, .00150, .00013, + .00006, .00068, .00082, + .15512, .04564, .00053, .00141, .00014, + .00007, .00064, .00077, + .14927, .04380, .00043, .00136, .00013, + .00007, .00060, .00073, + .14365, .04205, .00036, .00128, .00013, + .00007, .00057, .00069, + .13832, .04038, .00030, .00122, .00013, + .00008, .00055, .00066, + .13347, .03887, .00026, .00117, .00013, + .00008, .00053, .00064, + .12906, .03749, .00022, .00112, .00013, + .00008, .00052, .00062 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .12475, .03617, .00020, .00108, .00012, + .00008, .00050, .00058, + .12066, .03491, .00020, .00103, .00012, + .00007, .00049, .00054, + .11689, .03375, .00021, .00098, .00012, + .00007, .00045, .00052, + .11343, .03269, .00023, .00093, .00012, + .00008, .00044, .00050, + .11003, .03164, .00023, .00092, .00012, + .00008, .00041, .00048 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .45767, .14708, .03834, .00450, .00000, + .00000, .00128, .00218, + .43786, .13979, .03178, .00423, .00000, + .00000, .00132, .00212, + .41019, .12974, .02507, .00392, -.00070, + .00000, .00130, .00203, + .39134, .12307, .01988, .00373, -.00058, + .00000, .00128, .00194, + .37261, .11648, .01535, .00353, -.00045, + .00000, .00126, .00180, + .35715, .11109, .01201, .00332, -.00037, + .00000, .00128, .00173, + .34295, .10616, .00935, .00314, -.00030, + .00000, .00125, .00167, + .32851, .10119, .00698, .00298, -.00024, + .00000, .00120, .00162 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .31642, .09706, .00530, .00285, -.00019, + .00000, .00117, .00152, + .30522, .09327, .00391, .00272, -.00015, + .00000, .00114, .00145, + .29664, .09039, .00295, .00261, -.00013, + .00000, .00109, .00141, + .27923, .08456, .00125, .00244, -.00007, + .00000, .00103, .00132, + .26527, .07993, .00029, .00227, -.00005, + -.00016, .00100, .00125, + .25068, .07509, -.00090, .00206, -.00001, + -.00011, .00097, .00118, + .23632, .07044, -.00172, .00191, .00001, + -.00008, .00088, .00107, + .22401, .06648, -.00227, .00183, .00003, + -.00006, .00084, .00096 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .21230, .06273, -.00269, .00172, .00005, + -.00003, .00080, .00091, + .20311, .05979, -.00289, .00163, .00006, + -.00001, .00075, .00087, + .19254, .05643, -.00305, .00150, .00007, + .00000, .00070, .00083, + .18367, .05364, -.00310, .00142, .00007, + .00000, .00067, .00078, + .17597, .05121, -.00311, .00134, .00007, + .00001, .00065, .00074, + .16667, .04832, -.00305, .00124, .00008, + .00003, .00060, .00069, + .15839, .04576, -.00296, .00117, .00008, + .00003, .00057, .00063, + .15106, .04351, -.00282, .00110, .00008, + .00004, .00053, .00058 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .14413, .04135, -.00270, .00102, .00008, + .00004, .00049, .00056, + .13768, .03936, -.00258, .00095, .00008, + .00004, .00047, .00054, + .13186, .03758, -.00245, .00090, .00009, + .00005, .00045, .00051, + .12658, .03598, -.00229, .00085, .00008, + .00005, .00042, .00048, + .12152, .03447, -.00218, .00082, .00008, + .00005, .00042, .00045, + .11675, .03304, -.00205, .00078, .00008, + .00004, .00039, .00042, + .11243, .03174, -.00191, .00074, .00008, + .00004, .00037, .00039, + .10848, .03056, -.00179, .00071, .00008, + .00005, .00035, .00037 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .10467, .02941, -.00168, .00066, .00008, + .00005, .00033, .00037, + .10104, .02833, -.00157, .00062, .00008, + .00005, .00032, .00036, + .09768, .02734, -.00149, .00061, .00008, + .00005, .00031, .00033, + .09462, .02643, -.00139, .00060, .00007, + .00005, .00031, .00031, + .09163, .02554, -.00131, .00057, .00007, + .00005, .00030, .00031 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .42048, .13112, .00449, .00372, .00000, + .00000, .00076, .00116, + .40065, .12416, .00118, .00350, .00000, + .00000, .00074, .00119, + .37325, .11464, -.00164, .00319, -.00050, + .00000, .00077, .00113, + .35475, .10831, -.00403, .00301, -.00041, + .00000, .00079, .00107, + .33642, .10215, -.00599, .00282, -.00033, + .00000, .00079, .00103, + .32139, .09708, -.00718, .00265, -.00027, + .00000, .00076, .00097, + .30758, .09246, -.00805, .00252, -.00022, + .00000, .00073, .00093, + .29364, .08786, -.00872, .00237, -.00017, + .00000, .00070, .00091 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .28206, .08407, -.00911, .00224, -.00014, + .00000, .00070, .00087, + .27136, .08060, -.00936, .00214, -.00011, + .00000, .00068, .00082, + .26318, .07796, -.00944, .00206, -.00009, + .00000, .00067, .00077, + .24667, .07265, -.00947, .00191, -.00005, + .00000, .00062, .00071, + .23351, .06845, -.00928, .00176, -.00003, + -.00010, .00057, .00069, + .21977, .06408, -.00919, .00163, -.00002, + -.00008, .00053, .00062, + .20639, .05987, -.00899, .00150, .00000, + -.00006, .00052, .00059, + .19496, .05628, -.00869, .00140, .00001, + -.00004, .00050, .00056 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .18414, .05294, -.00832, .00129, .00002, + -.00003, .00047, .00051, + .17570, .05034, -.00799, .00121, .00003, + -.00001, .00043, .00049, + .16603, .04734, -.00753, .00110, .00004, + .00000, .00041, .00045, + .15794, .04487, -.00711, .00103, .00004, + .00000, .00037, .00043, + .15089, .04275, -.00676, .00098, .00005, + .00001, .00035, .00041, + .14241, .04021, -.00629, .00095, .00005, + .00001, .00033, .00036, + .13495, .03797, -.00587, .00087, .00004, + .00001, .00032, .00035, + .12838, .03598, -.00547, .00081, .00005, + .00002, .00030, .00034 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .12216, .03411, -.00510, .00075, .00005, + .00002, .00029, .00030, + .11635, .03241, -.00474, .00071, .00005, + .00002, .00027, .00028, + .11112, .03087, -.00442, .00068, .00005, + .00002, .00025, .00027, + .10642, .02950, -.00413, .00065, .00006, + .00003, .00024, .00026, + .10195, .02820, -.00386, .00062, .00005, + .00003, .00022, .00025, + .09774, .02696, -.00360, .00059, .00005, + .00003, .00021, .00022, + .09393, .02584, -.00337, .00055, .00005, + .00003, .00021, .00022, + .09045, .02484, -.00316, .00053, .00005, + .00003, .00020, .00020 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08709, .02386, -.00297, .00052, .00005, + .00003, .00019, .00018, + .08390, .02294, -.00279, .00049, .00005, + .00003, .00017, .00019, + .08099, .02210, -.00261, .00047, .00004, + .00003, .00016, .00017, + .07832, .02133, -.00246, .00045, .00004, + .00003, .00016, .00018, + .07572, .02058, -.00231, .00042, .00004, + .00003, .00015, .00016 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .38190, .11493, -.02134, .00253, .00000, + .00000, .00061, .00075, + .36236, .10843, -.02180, .00235, .00000, + .00000, .00062, .00073, + .33559, .09960, -.02132, .00213, -.00035, + .00000, .00058, .00073, + .31770, .09375, -.02141, .00201, -.00028, + .00000, .00057, .00070, + .30004, .08803, -.02122, .00189, -.00022, + .00000, .00057, .00067, + .28563, .08343, -.02084, .00176, -.00018, + .00000, .00056, .00065, + .27246, .07928, -.02028, .00167, -.00015, + .00000, .00054, .00059, + .25922, .07512, -.01963, .00159, -.00012, + .00000, .00050, .00055 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .24834, .07168, -.01899, .00149, -.00010, + .00000, .00049, .00052, + .23829, .06851, -.01831, .00141, -.00008, + .00000, .00047, .00050, + .23059, .06610, -.01775, .00135, -.00007, + .00000, .00045, .00050, + .21515, .06134, -.01657, .00122, -.00004, + .00000, .00042, .00049, + .20289, .05759, -.01551, .00114, -.00003, + -.00008, .00041, .00043, + .19015, .05372, -.01457, .00111, -.00001, + -.00005, .00040, .00037, + .17787, .04999, -.01356, .00100, .00000, + -.00003, .00036, .00037, + .16738, .04686, -.01265, .00096, .00000, + -.00003, .00032, .00034 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15755, .04392, -.01173, .00086, .00001, + -.00002, .00030, .00030, + .14991, .04165, -.01100, .00079, .00002, + -.00001, .00029, .00027, + .14117, .03905, -.01017, .00072, .00002, + -.00001, .00025, .00029, + .13386, .03691, -.00947, .00067, .00002, + .00000, .00024, .00028, + .12756, .03506, -.00885, .00063, .00003, + .00001, .00023, .00025, + .11998, .03285, -.00811, .00061, .00003, + .00001, .00022, .00021, + .11333, .03093, -.00746, .00057, .00003, + .00001, .00020, .00020, + .10749, .02925, -.00689, .00053, .00002, + .00001, .00018, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .10194, .02765, -.00635, .00050, .00003, + .00002, .00017, .00018, + .09686, .02619, -.00588, .00047, .00003, + .00002, .00018, .00017, + .09232, .02488, -.00547, .00044, .00003, + .00002, .00017, .00015, + .08821, .02372, -.00507, .00041, .00003, + .00002, .00015, .00014, + .08430, .02261, -.00471, .00039, .00003, + .00002, .00014, .00013, + .08062, .02158, -.00438, .00036, .00003, + .00002, .00013, .00013, + .07729, .02065, -.00409, .00034, .00003, + .00002, .00013, .00012, + .07428, .01981, -.00384, .00033, .00003, + .00002, .00012, .00012 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .07138, .01899, -.00357, .00030, .00002, + .00002, .00011, .00012, + .06864, .01822, -.00335, .00029, .00002, + .00001, .00011, .00011, + .06611, .01751, -.00313, .00028, .00002, + .00001, .00010, .00011, + .06383, .01688, -.00294, .00027, .00003, + .00002, .00010, .00010, + .06160, .01625, -.00277, .00026, .00003, + .00002, .00010, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .34274, .09961, -.03994, .00163, .00000, + .00000, .00048, .00047, + .32387, .09362, -.03823, .00157, .00000, + .00000, .00047, .00048, + .29816, .08555, -.03509, .00144, -.00023, + .00000, .00047, .00042, + .28109, .08023, -.03336, .00131, -.00019, + .00000, .00045, .00042, + .26437, .07504, -.03141, .00120, -.00015, + .00000, .00041, .00041, + .25078, .07084, -.02979, .00113, -.00012, + .00000, .00039, .00040, + .23844, .06709, -.02822, .00107, -.00010, + .00000, .00037, .00040, + .22607, .06333, -.02653, .00099, -.00008, + .00000, .00036, .00039 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .21590, .06028, -.02513, .00093, -.00007, + .00000, .00033, .00036, + .20656, .05750, -.02383, .00088, -.00006, + .00000, .00033, .00033, + .19945, .05538, -.02282, .00085, -.00004, + .00000, .00033, .00030, + .18524, .05115, -.02075, .00079, -.00003, + .00000, .00031, .00027, + .17406, .04783, -.01912, .00074, -.00002, + -.00005, .00028, .00027, + .16248, .04444, -.01760, .00068, -.00001, + -.00003, .00026, .00028, + .15129, .04121, -.01599, .00064, -.00001, + -.00003, .00025, .00022, + .14193, .03847, -.01467, .00054, .00000, + -.00002, .00022, .00023 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13310, .03592, -.01342, .00049, .00000, + -.00002, .00019, .00022, + .12624, .03396, -.01247, .00044, .00001, + -.00001, .00018, .00022, + .11840, .03175, -.01140, .00043, .00001, + .00000, .00019, .00018, + .11195, .02990, -.01051, .00040, .00001, + .00000, .00018, .00016, + .10639, .02832, -.00974, .00037, .00001, + .00000, .00017, .00015, + .09974, .02647, -.00887, .00035, .00002, + .00001, .00015, .00014, + .09390, .02483, -.00809, .00033, .00002, + .00001, .00014, .00013, + .08879, .02341, -.00745, .00032, .00002, + .00001, .00014, .00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .08398, .02207, -.00683, .00029, .00002, + .00001, .00013, .00012, + .07956, .02084, -.00627, .00026, .00002, + .00001, .00012, .00010, + .07559, .01975, -.00577, .00025, .00001, + .00001, .00010, .00010, + .07205, .01878, -.00536, .00025, .00001, + .00001, .00010, .00009, + .06868, .01786, -.00497, .00024, .00001, + .00001, .00010, .00008, + .06553, .01700, -.00461, .00023, .00001, + .00001, .00009, .00008, + .06270, .01624, -.00429, .00020, .00002, + .00002, .00009, .00008, + .06013, .01554, -.00400, .00019, .00002, + .00002, .00008, .00007 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05764, .01487, -.00374, .00019, .00002, + .00002, .00008, .00007, + .05531, .01424, -.00348, .00018, .00002, + .00002, .00007, .00005, + .05318, .01367, -.00325, .00017, .00002, + .00002, .00007, .00005, + .05124, .01315, -.00306, .00017, .00002, + .00001, .00007, .00005, + .04936, .01264, -.00286, .00016, .00002, + .00001, .00005, .00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .30432, .08580, -.05302, .00128, .00000, + .00000, .00022, .00022, + .28641, .08032, -.04944, .00117, .00000, + .00000, .00021, .00020, + .26216, .07290, -.04424, .00106, -.00015, + .00000, .00021, .00020, + .24612, .06809, -.04108, .00096, -.00013, + .00000, .00020, .00021, + .23048, .06345, -.03806, .00092, -.00010, + .00000, .00021, .00021, + .21778, .05971, -.03543, .00087, -.00008, + .00000, .00019, .00019, + .20638, .05637, -.03308, .00081, -.00007, + .00000, .00018, .00019, + .19504, .05307, -.03074, .00074, -.00006, + .00000, .00019, .00016 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .18568, .05034, -.02883, .00072, -.00005, + .00000, .00018, .00016, + .17712, .04787, -.02705, .00067, -.00004, + .00000, .00018, .00016, + .17070, .04598, -.02572, .00064, -.00003, + .00000, .00015, .00016, + .15781, .04229, -.02308, .00058, -.00002, + .00000, .00015, .00015, + .14770, .03943, -.02106, .00054, -.00001, + -.00003, .00014, .00014, + .13732, .03648, -.01906, .00045, -.00001, + -.00003, .00013, .00014, + .12733, .03368, -.01722, .00044, .00000, + -.00001, .00013, .00013, + .11899, .03133, -.01565, .00039, .00000, + -.00001, .00012, .00011 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .11118, .02914, -.01419, .00036, .00000, + -.00001, .00011, .00010, + .10512, .02747, -.01307, .00034, .00001, + .00000, .00009, .00010, + .09825, .02559, -.01184, .00030, .00001, + .00000, .00008, .00009, + .09259, .02404, -.01087, .00029, .00001, + .00000, .00009, .00009, + .08774, .02272, -.01003, .00029, .00001, + .00000, .00007, .00008, + .08197, .02114, -.00904, .00024, .00001, + .00000, .00007, .00006, + .07695, .01978, -.00823, .00021, .00001, + .00000, .00007, .00007, + .07254, .01859, -.00751, .00019, .00001, + .00000, .00005, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06838, .01748, -.00687, .00021, .00001, + .00000, .00005, .00005, + .06456, .01647, -.00628, .00019, .00001, + .00000, .00006, .00004, + .06119, .01557, -.00579, .00019, .00001, + .00001, .00006, .00004, + .05818, .01476, -.00535, .00018, .00001, + .00001, .00006, .00004, + .05533, .01400, -.00494, .00017, .00001, + .00001, .00004, .00004, + .05268, .01329, -.00456, .00016, .00001, + .00001, .00004, .00003, + .05029, .01266, -.00423, .00014, .00001, + .00001, .00004, .00003, + .04812, .01210, -.00396, .00013, .00001, + .00001, .00004, .00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04605, .01155, -.00369, .00012, .00001, + .00001, .00004, .00003, + .04411, .01104, -.00343, .00012, .00001, + .00001, .00003, .00003, + .04232, .01058, -.00321, .00012, .00001, + .00001, .00003, .00003, + .04070, .01016, -.00302, .00011, .00001, + .00001, .00003, .00003, + .03913, .00975, -.00283, .00011, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .26624, .07223, -.06010, .00070, .00000, + .00000, .00023, .00022, + .24949, .06734, -.05530, .00065, .00000, + .00000, .00024, .00019, + .22695, .06088, -.04874, .00058, -.00010, + .00000, .00021, .00015, + .21218, .05663, -.04471, .00054, -.00008, + .00000, .00020, .00014, + .19785, .05254, -.04083, .00048, -.00007, + .00000, .00020, .00014, + .18631, .04929, -.03769, .00046, -.00005, + .00000, .00016, .00013, + .17595, .04637, -.03490, .00043, -.00004, + .00000, .00017, .00011, + .16566, .04349, -.03215, .00039, -.00003, + .00000, .00017, .00011 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .15722, .04115, -.02992, .00037, -.00003, + .00000, .00017, .00010, + .14954, .03901, -.02789, .00035, -.00002, + .00000, .00015, .00010, + .14373, .03742, -.02638, .00034, -.00002, + .00000, .00013, .00010, + .13225, .03425, -.02340, .00030, -.00002, + .00000, .00010, .00010, + .12330, .03180, -.02120, .00027, -.00001, + -.00002, .00010, .00009, + .11410, .02931, -.01904, .00026, -.00001, + -.00002, .00010, .00008, + .10535, .02694, -.01702, .00025, .00000, + -.00001, .00010, .00007, + .09803, .02496, -.01534, .00020, .00000, + -.00001, .00008, .00007 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .09122, .02316, -.01384, .00019, .00000, + -.00001, .00008, .00005, + .08599, .02176, -.01272, .00019, .00000, + .00000, .00008, .00005, + .08009, .02019, -.01145, .00016, .00000, + .00000, .00007, .00006, + .07523, .01890, -.01042, .00015, .00000, + .00000, .00006, .00006, + .07105, .01780, -.00959, .00015, .00000, + .00000, .00006, .00006, + .06610, .01651, -.00862, .00015, .00000, + .00000, .00006, .00005, + .06181, .01539, -.00779, .00014, .00001, + .00001, .00005, .00005, + .05810, .01443, -.00709, .00012, .00001, + .00001, .00005, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05463, .01352, -.00645, .00011, .00001, + .00001, .00005, .00003, + .05144, .01270, -.00588, .00010, .00001, + .00001, .00003, .00003, + .04861, .01197, -.00540, .00010, .00001, + .00001, .00003, .00003, + .04610, .01133, -.00498, .00009, .00001, + .00001, .00003, .00003, + .04373, .01072, -.00457, .00007, .00001, + .00001, .00003, .00002, + .04152, .01016, -.00422, .00007, .00001, + .00001, .00003, .00002, + .03953, .00965, -.00392, .00007, .00001, + .00001, .00003, .00003, + .03775, .00920, -.00363, .00006, .00001, + .00001, .00002, .00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03603, .00876, -.00337, .00006, .00001, + .00001, .00002, .00002, + .03443, .00836, -.00314, .00006, .00001, + .00001, .00002, .00002, + .03298, .00799, -.00295, .00006, .00001, + .00001, .00002, .00002, + .03167, .00766, -.00275, .00005, .00001, + .00001, .00002, .00001, + .03038, .00733, -.00258, .00005, .00001, + .00001, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .19488, .04941, -.06170, .00030, .00000, + .00000, .00007, .00004, + .18095, .04569, -.05578, .00026, .00000, + .00000, .00007, .00004, + .16249, .04076, -.04816, .00023, -.00004, + .00000, .00006, .00006, + .15056, .03761, -.04348, .00021, -.00003, + .00000, .00006, .00006, + .13912, .03459, -.03898, .00017, -.00002, + .00000, .00004, .00004, + .13002, .03220, -.03555, .00017, -.00002, + .00000, .00005, .00005, + .12189, .03008, -.03250, .00015, -.00002, + .00000, .00005, .00005, + .11386, .02800, -.02957, .00015, -.00002, + .00000, .00005, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .10735, .02632, -.02722, .00014, -.00001, + .00000, .00003, .00004, + .10147, .02482, -.02517, .00015, -.00001, + .00000, .00003, .00004, + .09706, .02369, -.02361, .00013, -.00001, + .00000, .00003, .00003, + .08842, .02147, -.02066, .00011, -.00001, + .00000, .00003, .00003, + .08175, .01977, -.01851, .00009, -.00001, + -.00001, .00003, .00003, + .07500, .01806, -.01637, .00008, -.00001, + -.00001, .00002, .00002, + .06860, .01645, -.01447, .00008, -.00001, + -.00001, .00003, .00003, + .06332, .01512, -.01292, .00007, .00000, + .00000, .00003, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05844, .01391, -.01150, .00004, .00000, + .00000, .00003, .00003, + .05471, .01298, -.01046, .00005, .00000, + .00000, .00002, .00003, + .05056, .01195, -.00935, .00005, .00000, + .00000, .00003, .00003, + .04715, .01112, -.00847, .00005, .00000, + .00000, .00003, .00003, + .04426, .01041, -.00772, .00005, .00000, + .00000, .00003, .00001, + .04088, .00959, -.00687, .00004, .00000, + .00000, .00003, .00001, + .03796, .00888, -.00616, .00004, .00000, + .00000, .00001, .00001, + .03543, .00826, -.00557, .00004, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .03308, .00769, -.00504, .00004, .00000, + .00000, .00001, .00001, + .03097, .00717, -.00456, .00002, .00000, + .00000, .00001, .00001, + .02910, .00673, -.00416, .00002, .00000, + .00000, .00001, .00001, + .02745, .00634, -.00382, .00001, .00000, + .00000, .00001, .00001, + .02588, .00597, -.00349, .00002, .00000, + .00000, .00001, .00001, + .02445, .00562, -.00321, .00002, .00000, + .00000, .00001, .00001, + .02316, .00532, -.00296, .00002, .00000, + .00000, .00001, .00001, + .02200, .00504, -.00274, .00003, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .02091, .00478, -.00255, .00003, .00000, + .00000, .00001, .00001, + .01988, .00454, -.00236, .00003, .00000, + .00000, .00001, .00001, + .01896, .00432, -.00219, .00001, .00000, + .00000, .00001, .00001, + .01813, .00412, -.00204, .00001, .00000, + .00000, .00001, .00001, + .01733, .00393, -.00191, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .13234, .03122, -.05217, .00009, .00000, + .00000, .00003, .00001, + .12174, .02861, -.04663, .00007, .00000, + .00000, .00001, .00003, + .10783, .02520, -.03960, .00007, -.00001, + .00000, .00001, .00001, + .09895, .02302, -.03530, .00007, -.00001, + .00000, .00001, .00001, + .09053, .02099, -.03134, .00007, -.00001, + .00000, .00001, .00001, + .08389, .01937, -.02826, .00006, -.00001, + .00000, .00001, .00001, + .07802, .01796, -.02562, .00006, -.00001, + .00000, .00001, .00001, + .07232, .01659, -.02309, .00006, -.00001, + .00000, .00001, -.00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .06774, .01550, -.02110, .00004, .00000, + .00000, .00001, .00000, + .06362, .01450, -.01932, .00002, .00000, + .00000, .00001, .00000, + .06055, .01378, -.01807, .00002, .00000, + .00000, .00001, .00001, + .05453, .01236, -.01563, .00002, .00000, + .00000, .00001, .00001, + .04996, .01129, -.01387, .00002, .00000, + .00000, .00001, .00001, + .04537, .01021, -.01215, .00002, .00000, + .00000, .00001, .00001, + .04111, .00922, -.01057, .00001, .00000, + .00000, .00000, .00000, + .03760, .00841, -.00937, .00001, .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=17,24)/ + .03438, .00766, -.00827, .00003, .00000, + .00000, .00000, .00000, + .03195, .00709, -.00749, .00003, .00000, + .00000, .00001, .00000, + .02927, .00648, -.00662, .00003, .00000, + .00000, .00000, .00000, + .02709, .00598, -.00593, .00001, .00000, + .00000, .00000, .00000, + .02527, .00557, -.00538, .00001, .00000, + .00000, .00000, .00000, + .02315, .00508, -.00475, .00001, .00000, + .00000, .00000, .00000, + .02132, .00466, -.00422, .00001, .00000, + .00000, .00000, .00000, + .01976, .00431, -.00380, .00001, .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)/ + .01832, .00398, -.00341, .00001, .00000, + .00000, .00000, .00000, + .01701, .00370, -.00307, .00001, .00000, + .00000, .00000, .00000, + .01589, .00345, -.00278, .00001, .00000, + .00000, .00000, .00000, + .01490, .00322, -.00253, .00000, .00000, + .00000, .00000, .00000, + .01396, .00301, -.00231, .00001, .00000, + .00000, .00000, .00000, + .01311, .00282, -.00211, .00001, .00000, + .00000, .00000, .00000, + .01236, .00266, -.00194, .00001, .00000, + .00000, .00000, .00000, + .01169, .00251, -.00178, .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)/ + .01105, .00237, -.00164, .00000, .00000, + .00000, .00000, .00000, + .01046, .00224, -.00152, .00000, .00000, + .00000, .00000, .00000, + .00992, .00212, -.00141, .00000, .00000, + .00000, .00000, .00000, + .00945, .00201, -.00131, .00000, .00000, + .00000, .00000, .00000, + .00899, .00192, -.00121, .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)/ + .08157, .01780, -.03791, .00007, .00000, + .00000, .00000, .00000, + .07425, .01614, -.03354, .00007, .00000, + .00000, .00000, .00000, + .06478, .01401, -.02806, .00004, .00000, + .00000, .00000, .00000, + .05882, .01268, -.02475, .00004, .00000, + .00000, .00000, .00000, + .05325, .01143, -.02174, .00004, .00000, + .00000, .00000, .00000, + .04891, .01047, -.01943, .00002, .00000, + .00000, .00000, .00000, + .04510, .00963, -.01746, .00002, .00000, + .00000, .00000, .00000, + .04140, .00880, -.01560, .00002, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .03847, .00817, -.01415, .00002, .00000, + .00000, .00000, .00000, + .03586, .00760, -.01288, .00002, .00000, + .00000, .00000, .00000, + .03392, .00718, -.01197, .00002, .00000, + .00000, .00000, .00000, + .03019, .00636, -.01024, .00002, .00000, + .00000, .00000, .00000, + .02737, .00575, -.00899, .00002, .00000, + .00000, .00000, .00000, + .02460, .00514, -.00780, .00002, .00000, + .00000, .00000, .00000, + .02202, .00458, -.00673, .00002, .00000, + .00000, .00000, .00000, + .01994, .00414, -.00589, .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)/ + .01807, .00374, -.00516, .00000, .00000, + .00000, .00000, .00000, + .01666, .00344, -.00462, .00000, .00000, + .00000, .00000, .00000, + .01511, .00310, -.00405, .00000, .00000, + .00000, .00000, .00000, + .01388, .00284, -.00360, .00000, .00000, + .00000, .00000, .00000, + .01284, .00263, -.00324, .00000, .00000, + .00000, .00000, .00000, + .01163, .00238, -.00285, .00000, .00000, + .00000, .00000, .00000, + .01062, .00217, -.00251, .00000, .00000, + .00000, .00000, .00000, + .00978, .00199, -.00223, .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)/ + .00899, .00183, -.00199, .00000, .00000, + .00000, .00000, .00000, + .00829, .00167, -.00178, .00000, .00000, + .00000, .00000, .00000, + .00768, .00155, -.00161, .00000, .00000, + .00000, .00000, .00000, + .00715, .00145, -.00145, .00000, .00000, + .00000, .00000, .00000, + .00666, .00134, -.00132, .00000, .00000, + .00000, .00000, .00000, + .00622, .00125, -.00120, .00000, .00000, + .00000, .00000, .00000, + .00582, .00117, -.00109, .00000, .00000, + .00000, .00000, .00000, + .00547, .00109, -.00100, .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)/ + .00514, .00103, -.00092, .00000, .00000, + .00000, .00000, .00000, + .00483, .00096, -.00084, .00000, .00000, + .00000, .00000, .00000, + .00457, .00091, -.00078, .00000, .00000, + .00000, .00000, .00000, + .00433, .00086, -.00072, .00000, .00000, + .00000, .00000, .00000, + .00409, .00081, -.00067, .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)/ + .04378, .00865, -.02316, -.00003, .00000, + .00000, .00000, .00000, + .03937, .00777, -.02031, .00000, .00000, + .00000, .00000, .00000, + .03376, .00661, -.01673, .00000, .00000, + .00000, .00000, .00000, + .03029, .00596, -.01465, .00000, .00000, + .00000, .00000, .00000, + .02707, .00529, -.01270, .00000, .00000, + .00000, .00000, .00000, + .02460, .00482, -.01127, .00000, .00000, + .00000, .00000, .00000, + .02245, .00437, -.01002, .00000, .00000, + .00000, .00000, .00000, + .02040, .00396, -.00888, .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)/ + .01879, .00366, -.00801, .00000, .00000, + .00000, .00000, .00000, + .01735, .00337, -.00722, .00000, .00000, + .00000, .00000, .00000, + .01631, .00316, -.00668, .00000, .00000, + .00000, .00000, .00000, + .01431, .00275, -.00563, .00000, .00000, + .00000, .00000, .00000, + .01282, .00247, -.00490, .00000, .00000, + .00000, .00000, .00000, + .01136, .00219, -.00420, .00000, .00000, + .00000, .00000, .00000, + .01005, .00192, -.00358, .00000, .00000, + .00000, .00000, .00000, + .00898, .00171, -.00309, .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)/ + .00804, .00152, -.00267, .00000, .00000, + .00000, .00000, .00000, + .00734, .00140, -.00238, .00000, .00000, + .00000, .00000, .00000, + .00658, .00125, -.00207, .00000, .00000, + .00000, .00000, .00000, + .00599, .00114, -.00182, .00000, .00000, + .00000, .00000, .00000, + .00549, .00103, -.00161, .00000, .00000, + .00000, .00000, .00000, + .00492, .00093, -.00141, .00000, .00000, + .00000, .00000, .00000, + .00444, .00083, -.00122, .00000, .00000, + .00000, .00000, .00000, + .00404, .00076, -.00107, .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)/ + .00368, .00069, -.00097, .00000, .00000, + .00000, .00000, .00000, + .00337, .00063, -.00085, .00000, .00000, + .00000, .00000, .00000, + .00309, .00058, -.00076, .00000, .00000, + .00000, .00000, .00000, + .00286, .00053, -.00068, .00000, .00000, + .00000, .00000, .00000, + .00264, .00049, -.00061, .00000, .00000, + .00000, .00000, .00000, + .00245, .00046, -.00055, .00000, .00000, + .00000, .00000, .00000, + .00227, .00043, -.00050, .00000, .00000, + .00000, .00000, .00000, + .00212, .00040, -.00046, .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)/ + .00198, .00037, -.00042, .00000, .00000, + .00000, .00000, .00000, + .00184, .00034, -.00038, .00000, .00000, + .00000, .00000, .00000, + .00174, .00032, -.00035, .00000, .00000, + .00000, .00000, .00000, + .00164, .00030, -.00032, .00000, .00000, + .00000, .00000, .00000, + .00154, .00028, -.00029, .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)/ + .00563, .00092, -.00383, .00000, .00000, + .00000, .00000, .00000, + .00488, .00079, -.00325, .00000, .00000, + .00000, .00000, .00000, + .00397, .00066, -.00257, .00000, .00000, + .00000, .00000, .00000, + .00345, .00055, -.00217, .00000, .00000, + .00000, .00000, .00000, + .00297, .00049, -.00183, .00000, .00000, + .00000, .00000, .00000, + .00261, .00041, -.00157, .00000, .00000, + .00000, .00000, .00000, + .00232, .00038, -.00137, .00000, .00000, + .00000, .00000, .00000, + .00203, .00033, -.00117, .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)/ + .00182, .00028, -.00102, .00000, .00000, + .00000, .00000, .00000, + .00165, .00026, -.00091, .00000, .00000, + .00000, .00000, .00000, + .00152, .00024, -.00082, .00000, .00000, + .00000, .00000, .00000, + .00127, .00021, -.00067, .00000, .00000, + .00000, .00000, .00000, + .00110, .00017, -.00056, .00000, .00000, + .00000, .00000, .00000, + .00094, .00015, -.00046, .00000, .00000, + .00000, .00000, .00000, + .00080, .00012, -.00038, .00000, .00000, + .00000, .00000, .00000, + .00070, .00010, -.00032, .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)/ + .00060, .00010, -.00028, .00000, .00000, + .00000, .00000, .00000, + .00053, .00008, -.00023, .00000, .00000, + .00000, .00000, .00000, + .00046, .00007, -.00019, .00000, .00000, + .00000, .00000, .00000, + .00040, .00006, -.00017, .00000, .00000, + .00000, .00000, .00000, + .00037, .00006, -.00015, .00000, .00000, + .00000, .00000, .00000, + .00032, .00005, -.00012, .00000, .00000, + .00000, .00000, .00000, + .00028, .00005, -.00011, .00000, .00000, + .00000, .00000, .00000, + .00025, .00005, -.00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00022, .00003, -.00008, .00000, .00000, + .00000, .00000, .00000, + .00020, .00003, -.00007, .00000, .00000, + .00000, .00000, .00000, + .00017, .00003, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00015, .00003, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00014, .00003, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00009, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor04dis.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