#include "pdf/pilot.h" subroutine sfmrs_98d1(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)/ + .00683, .00255, 1.14248, .89678, .00000, + .00000, .48136, .90979, + .00696, .00260, 2.37364, .93682, .00000, + .00000, .52607, .94992, + .00716, .00267, 4.77966, 1.01920, .05296, + .00000, .61519, 1.03241, + .00731, .00274, 7.14584, 1.09626, .13577, + .00000, .69703, 1.10951, + .00747, .00280, 10.17991, 1.19595, .22838, + .00000, .80164, 1.20926, + .00761, .00286, 13.29848, 1.29764, .32302, + .00000, .90748, 1.31099, + .00774, .00292, 16.81583, 1.40804, .43022, + .00000, 1.02178, 1.42141, + .00788, .00298, 21.14979, 1.53997, .56122, + .00000, 1.15777, 1.55337 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00801, .00303, 25.37242, 1.66901, .68635, + .00000, 1.29025, 1.68242, + .00814, .00308, 29.91010, 1.80582, .82015, + .00000, 1.43035, 1.81925, + .00824, .00313, 33.88895, 1.92280, .93735, + .00000, 1.54989, 1.93622, + .00845, .00322, 43.49775, 2.20080, 1.21267, + .00000, 1.83323, 2.21423, + .00864, .00331, 52.36374, 2.47207, 1.48066, + .35504, 2.10902, 2.48549, + .00886, .00341, 63.93034, 2.81291, 1.81943, + .74582, 2.45479, 2.82631, + .00908, .00351, 77.51489, 3.21134, 2.21630, + 1.16032, 2.85823, 3.22471, + .00930, .00361, 91.24940, 3.61335, 2.61746, + 1.57978, 3.26466, 3.62668 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00951, .00371, 106.51928, 4.06031, 3.06460, + 2.04553, 3.71599, 4.07361, + .00969, .00379, 120.22600, 4.46370, 3.46718, + 2.46003, 4.12292, 4.47695, + .00991, .00389, 138.10390, 4.99305, 3.99485, + 3.00127, 4.65648, 5.00626, + .01011, .00399, 155.19197, 5.50045, 4.50232, + 3.52432, 5.16753, 5.51361, + .01029, .00408, 171.92858, 5.99943, 5.00233, + 4.04005, 5.66979, 6.01254, + .01052, .00419, 194.35722, 6.67651, 5.67781, + 4.72999, 6.35093, 6.68955, + .01075, .00430, 216.92970, 7.36245, 6.36372, + 5.43257, 7.04062, 7.37542, + .01095, .00440, 239.48357, 8.05148, 7.05483, + 6.14295, 7.73308, 8.06438 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01118, .00450, 262.91627, 8.77890, 7.78064, + 6.88165, 8.46386, 8.79173, + .01138, .00461, 287.15531, 9.53581, 8.53816, + 7.65572, 9.22399, 9.54857, + .01159, .00471, 311.19806, 10.29302, 9.29648, + 8.43050, 9.98423, 10.30573, + .01178, .00480, 334.58537, 11.03900, 10.04200, + 9.18926, 10.73299, 11.05164, + .01198, .00489, 359.25729, 11.82941, 10.83438, + 9.99878, 11.52614, 11.84199, + .01218, .00499, 384.02712, 12.63516, 11.63932, + 10.81646, 12.33456, 12.64767, + .01237, .00508, 408.72876, 13.44120, 12.44742, + 11.64105, 13.14307, 13.45364, + .01255, .00518, 432.41628, 14.22584, 13.23152, + 12.43692, 13.93005, 14.23823 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01273, .00526, 457.29456, 15.05321, 14.06041, + 13.28082, 14.75972, 15.06553, + .01291, .00536, 482.30382, 15.89478, 14.90237, + 14.13601, 15.60354, 15.90704, + .01309, .00544, 506.83829, 16.72663, 15.73501, + 14.98188, 16.43750, 16.73883, + .01326, .00553, 530.79916, 17.54396, 16.55406, + 15.81493, 17.25681, 17.55610, + .01343, .00561, 555.22107, 18.38805, 17.39804, + 16.67038, 18.10288, 18.40014 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00922, .00356, 1.05676, .76150, .00000, + .00000, .40864, .76912, + .00940, .00364, 2.16642, .79824, .00000, + .00000, .44905, .80590, + .00967, .00375, 4.28584, .87074, .04679, + .00000, .52680, .87845, + .00988, .00384, 6.32817, .93683, .11774, + .00000, .59664, .94457, + .01011, .00393, 8.90216, 1.02078, .19554, + .00000, .68442, 1.02855, + .01030, .00402, 11.50757, 1.10525, .27406, + .00000, .77211, 1.11302, + .01049, .00410, 14.40934, 1.19609, .36213, + .00000, .86600, 1.20389, + .01068, .00419, 17.94115, 1.30377, .46873, + .00000, .97681, 1.31157 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .01086, .00427, 21.34164, 1.40815, .56962, + .00000, 1.08388, 1.41596, + .01102, .00435, 24.95946, 1.51806, .67672, + .00000, 1.19633, 1.52586, + .01116, .00441, 28.10599, 1.61155, .76998, + .00000, 1.29179, 1.61936, + .01145, .00455, 35.61971, 1.83189, .98717, + .00000, 1.51628, 1.83970, + .01171, .00466, 42.43411, 2.04479, 1.19644, + .27748, 1.73268, 2.05260, + .01200, .00481, 51.22197, 2.30991, 1.45852, + .58004, 2.00163, 2.31770, + .01231, .00495, 61.40428, 2.61690, 1.76257, + .89711, 2.31248, 2.62468, + .01260, .00509, 71.56979, 2.92388, 2.06713, + 1.21498, 2.62288, 2.93164 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01289, .00523, 82.74184, 3.26235, 2.40379, + 1.56488, 2.96472, 3.27009, + .01313, .00534, 92.66600, 3.56551, 2.70454, + 1.87377, 3.27061, 3.57322, + .01343, .00549, 105.47923, 3.96035, 3.09583, + 2.27402, 3.66870, 3.96803, + .01371, .00563, 117.60623, 4.33604, 3.46942, + 2.65805, 4.04721, 4.34370, + .01395, .00574, 129.38152, 4.70311, 3.83516, + 3.03427, 4.41680, 4.71075, + .01427, .00590, 145.00910, 5.19754, 4.32563, + 3.53374, 4.91436, 5.20514, + .01458, .00606, 160.58634, 5.69477, 4.82011, + 4.03878, 5.41448, 5.70233, + .01486, .00619, 176.01726, 6.19089, 5.31512, + 4.54620, 5.91324, 6.19842 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01515, .00634, 191.90399, 6.71102, 5.83133, + 5.06995, 6.43598, 6.71853, + .01544, .00648, 208.20962, 7.24891, 6.36690, + 5.61565, 6.97636, 7.25639, + .01571, .00662, 224.26102, 7.78384, 6.89995, + 6.15872, 7.51359, 7.79127, + .01597, .00675, 239.75736, 8.30775, 7.42092, + 6.68738, 8.03964, 8.31515, + .01623, .00689, 256.00373, 8.86005, 7.97201, + 7.24888, 8.59407, 8.86743, + .01649, .00702, 272.19416, 9.41988, 8.52861, + 7.81260, 9.15596, 9.42722, + .01674, .00715, 288.25150, 9.97734, 9.08501, + 8.37885, 9.71533, 9.98465, + .01699, .00728, 303.54469, 10.51721, 9.62203, + 8.92234, 10.25700, 10.52449 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01722, .00740, 319.52703, 11.08410, 10.18750, + 9.49653, 10.82566, 11.09134, + .01747, .00752, 335.49624, 11.65798, 10.75917, + 10.07559, 11.40127, 11.66519, + .01771, .00764, 351.08097, 12.22284, 11.32219, + 10.64603, 11.96778, 12.23003, + .01793, .00776, 366.22956, 12.77571, 11.87398, + 11.20582, 12.52217, 12.78288, + .01816, .00787, 381.58149, 13.34420, 12.44003, + 11.77800, 13.09219, 13.35133 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01246, .00496, .97674, .64677, .00000, + .00000, .34746, .65068, + .01270, .00507, 1.97670, .68023, .00000, + .00000, .38376, .68415, + .01308, .00525, 3.84229, .74380, .04154, + .00000, .45144, .74774, + .01336, .00538, 5.60349, .80037, .10223, + .00000, .51091, .80430, + .01367, .00552, 7.78432, .87090, .16746, + .00000, .58444, .87485, + .01393, .00563, 9.95730, .94089, .23247, + .00000, .65693, .94483, + .01418, .00576, 12.34646, 1.01548, .30467, + .00000, .73387, 1.01943, + .01445, .00588, 15.21809, 1.10312, .39123, + .00000, .82394, 1.10706 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01469, .00600, 17.94948, 1.18729, .47240, + .00000, .91019, 1.19124, + .01492, .00611, 20.82581, 1.27529, .55792, + .00000, 1.00016, 1.27924, + .01511, .00620, 23.30677, 1.34976, .63197, + .00000, 1.07617, 1.35370, + .01550, .00639, 29.16341, 1.52378, .80290, + .00000, 1.25339, 1.52772, + .01586, .00657, 34.38099, 1.69024, .96591, + .21621, 1.42254, 1.69418, + .01625, .00676, 41.03029, 1.89564, 1.16816, + .45024, 1.63086, 1.89956, + .01668, .00698, 48.62865, 2.13116, 1.40048, + .69251, 1.86937, 2.13507, + .01706, .00716, 56.11684, 2.36453, 1.63106, + .93309, 2.10536, 2.36843 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01747, .00737, 64.24952, 2.61969, 1.88377, + 1.19560, 2.36310, 2.62359, + .01779, .00753, 71.39673, 2.84644, 2.10780, + 1.42545, 2.59195, 2.85033, + .01820, .00774, 80.52854, 3.13953, 2.39703, + 1.72096, 2.88753, 3.14340, + .01856, .00792, 89.08436, 3.41633, 2.67116, + 2.00243, 3.16647, 3.42019, + .01890, .00809, 97.31863, 3.68499, 2.93778, + 2.27638, 3.43707, 3.68884, + .01933, .00831, 108.13760, 4.04418, 3.29267, + 2.63724, 3.79865, 4.04802, + .01974, .00852, 118.81576, 4.40270, 3.64783, + 2.99948, 4.15938, 4.40652, + .02013, .00872, 129.30044, 4.75800, 4.00103, + 3.36107, 4.51670, 4.76181 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .02051, .00892, 139.99302, 5.12786, 4.36671, + 3.73148, 4.88855, 5.13167, + .02090, .00912, 150.87995, 5.50797, 4.74384, + 4.11518, 5.27055, 5.51176, + .02126, .00931, 161.51359, 5.88369, 5.11695, + 4.49476, 5.64804, 5.88747, + .02162, .00950, 171.69925, 6.24947, 5.47943, + 4.86201, 6.01546, 6.25324, + .02197, .00968, 182.31024, 6.63313, 5.86102, + 5.25027, 6.40074, 6.63690, + .02233, .00986, 192.80248, 7.01974, 6.24411, + 5.63763, 6.78891, 7.02349, + .02265, .01004, 203.15047, 7.40293, 6.62542, + 6.02517, 7.17357, 7.40668, + .02298, .01021, 212.93555, 7.77206, 6.99142, + 6.39499, 7.54407, 7.77579 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02330, .01038, 223.10958, 8.15802, 7.37530, + 6.78424, 7.93140, 8.16175, + .02363, .01055, 233.21051, 8.54686, 7.76148, + 7.17484, 8.32155, 8.55057, + .02394, .01071, 243.01528, 8.92794, 8.14025, + 7.55804, 8.70388, 8.93165, + .02424, .01087, 252.49950, 9.29946, 8.51004, + 7.93270, 9.07657, 9.30316, + .02454, .01103, 262.05238, 9.67975, 8.88764, + 8.31380, 9.45802, 9.68344 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01484, .00603, .93231, .58802, .00000, + .00000, .31635, .59042, + .01514, .00617, 1.87321, .61957, .00000, + .00000, .35037, .62197, + .01559, .00638, 3.60413, .67831, .03887, + .00000, .41265, .68070, + .01594, .00655, 5.21856, .72986, .09419, + .00000, .46672, .73224, + .01629, .00672, 7.19662, .79347, .15295, + .00000, .53293, .79587, + .01660, .00688, 9.14908, .85608, .21108, + .00000, .59770, .85846, + .01691, .00703, 11.27931, .92243, .27528, + .00000, .66607, .92482, + .01723, .00718, 13.82059, .99998, .35180, + .00000, .74572, 1.00237 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01752, .00732, 16.22016, 1.07407, .42318, + .00000, .82160, 1.07645, + .01780, .00746, 18.73164, 1.15119, .49805, + .00000, .90042, 1.15358, + .01803, .00757, 20.88719, 1.21626, .56265, + .00000, .96681, 1.21864, + .01850, .00780, 25.94089, 1.36752, .71102, + .00000, 1.12082, 1.36990, + .01892, .00802, 30.39526, 1.51135, .85167, + .18644, 1.26696, 1.51372, + .01941, .00826, 36.03149, 1.68785, 1.02520, + .38766, 1.44597, 1.69021, + .01991, .00851, 42.41887, 1.88907, 1.22338, + .59448, 1.64974, 1.89143, + .02038, .00875, 48.66497, 2.08737, 1.41899, + .79871, 1.85030, 2.08973 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .02086, .00899, 55.40066, 2.30310, 1.63232, + 1.02040, 2.06824, 2.30545, + .02125, .00920, 61.28202, 2.49394, 1.82055, + 1.21356, 2.26087, 2.49629, + .02174, .00945, 68.74944, 2.73947, 2.06248, + 1.46076, 2.50853, 2.74182, + .02216, .00968, 75.70352, 2.97035, 2.29076, + 1.69520, 2.74124, 2.97269, + .02257, .00989, 82.36072, 3.19355, 2.51195, + 1.92248, 2.96609, 3.19588, + .02308, .01016, 91.05467, 3.49064, 2.80505, + 2.22048, 3.26523, 3.49297, + .02357, .01040, 99.58462, 3.78586, 3.09708, + 2.51832, 3.56234, 3.78819, + .02403, .01065, 107.91574, 4.07726, 3.38638, + 2.81450, 3.85546, 4.07960 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02449, .01090, 116.36311, 4.37931, 3.68460, + 3.11650, 4.15920, 4.38165, + .02495, .01114, 124.92283, 4.68859, 3.99105, + 3.42825, 4.47011, 4.69092, + .02538, .01137, 133.24413, 4.99319, 4.29317, + 3.73558, 4.77621, 4.99552, + .02580, .01159, 141.17660, 5.28868, 4.58563, + 4.03182, 5.07310, 5.29102, + .02622, .01181, 149.40916, 5.59768, 4.89261, + 4.34414, 5.38347, 5.60001, + .02663, .01204, 157.51051, 5.90795, 5.19971, + 4.65458, 5.69509, 5.91029, + .02703, .01224, 165.47410, 6.21466, 5.50459, + 4.96441, 6.00305, 6.21700, + .02742, .01245, 172.97081, 6.50915, 5.79627, + 5.25905, 6.29871, 6.51149 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02780, .01265, 180.74219, 6.81631, 6.10146, + 5.56847, 6.60703, 6.81865, + .02818, .01286, 188.42736, 7.12485, 6.40759, + 5.87803, 6.91670, 7.12720, + .02854, .01305, 195.86292, 7.42647, 6.70709, + 6.18098, 7.21938, 7.42882, + .02889, .01324, 203.03434, 7.71984, 6.99883, + 6.47653, 7.51374, 7.72219, + .02925, .01344, 210.23007, 8.01930, 7.29589, + 6.77627, 7.81421, 8.02165 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01681, .00693, .90184, .54972, .00000, + .00000, .29617, .55130, + .01714, .00709, 1.80308, .57991, .00000, + .00000, .32861, .58147, + .01765, .00734, 3.44413, .63537, .03715, + .00000, .38729, .63694, + .01804, .00754, 4.96164, .68359, .08891, + .00000, .43778, .68515, + .01846, .00773, 6.80684, .74266, .14342, + .00000, .49919, .74422, + .01882, .00791, 8.61578, .80045, .19707, + .00000, .55892, .80201, + .01916, .00808, 10.57851, .86145, .25608, + .00000, .62175, .86300, + .01954, .00827, 12.90731, .93250, .32615, + .00000, .69470, .93405 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01986, .00843, 15.09468, 1.00010, .39125, + .00000, .76391, 1.00164, + .02017, .00859, 17.37395, 1.07026, .45932, + .00000, .83559, 1.07180, + .02042, .00872, 19.32323, 1.12933, .51793, + .00000, .89585, 1.13087, + .02097, .00899, 23.87091, 1.26612, .65201, + .00000, 1.03511, 1.26766, + .02146, .00924, 27.84845, 1.39563, .77857, + .16760, 1.16670, 1.39717, + .02200, .00952, 32.85529, 1.55393, .93411, + .34829, 1.32727, 1.55548, + .02258, .00982, 38.49543, 1.73367, 1.11099, + .53304, 1.50929, 1.73521, + .02311, .01010, 43.97991, 1.91011, 1.28492, + .71478, 1.68775, 1.91165 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02364, .01037, 49.86403, 2.10136, 1.47390, + .91130, 1.88099, 2.10291, + .02409, .01061, 54.97785, 2.26998, 1.64011, + 1.08195, 2.05121, 2.27153, + .02465, .01090, 61.44124, 2.48624, 1.85303, + 1.29962, 2.26937, 2.48779, + .02514, .01116, 67.43393, 2.68893, 2.05332, + 1.50539, 2.47371, 2.69048, + .02559, .01139, 73.14878, 2.88434, 2.24685, + 1.70435, 2.67061, 2.88590, + .02618, .01170, 80.57918, 3.14360, 2.50245, + 1.96431, 2.93171, 3.14517, + .02672, .01199, 87.83808, 3.40042, 2.75634, + 2.22333, 3.19021, 3.40200, + .02725, .01228, 94.90071, 3.65320, 3.00715, + 2.48020, 3.44452, 3.65476 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02777, .01255, 102.03175, 3.91440, 3.26489, + 2.74126, 3.70724, 3.91598, + .02828, .01282, 109.23240, 4.18114, 3.52906, + 3.01007, 3.97543, 4.18273, + .02878, .01309, 116.20854, 4.44317, 3.78883, + 3.27439, 4.23882, 4.44477, + .02925, .01334, 122.83542, 4.69672, 4.03964, + 3.52849, 4.49362, 4.69832, + .02972, .01360, 129.69437, 4.96128, 4.30238, + 3.79587, 4.75940, 4.96289, + .03019, .01385, 136.42004, 5.22626, 4.56452, + 4.06090, 5.02558, 5.22788, + .03064, .01409, 143.01565, 5.48768, 4.82428, + 4.32496, 5.28813, 5.48931, + .03107, .01433, 149.20409, 5.73811, 5.07220, + 4.57542, 5.53959, 5.73974 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .03150, .01456, 155.60541, 5.99884, 5.33119, + 4.83807, 5.80136, 6.00048, + .03193, .01479, 161.91731, 6.26020, 5.59039, + 5.10022, 6.06373, 6.26185, + .03234, .01502, 168.00971, 6.51521, 5.84354, + 5.35633, 6.31970, 6.51688, + .03274, .01523, 173.87313, 6.76284, 6.08972, + 5.60579, 6.56822, 6.76451, + .03314, .01545, 179.73974, 7.01512, 6.33988, + 5.85823, 6.82138, 7.01679 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01850, .00772, .87911, .52180, .00000, + .00000, .28151, .52283, + .01888, .00791, 1.75074, .55095, .00000, + .00000, .31274, .55198, + .01945, .00818, 3.32522, .60396, .03589, + .00000, .36872, .60498, + .01988, .00840, 4.77148, .64971, .08503, + .00000, .41659, .65073, + .02034, .00863, 6.51950, .70546, .13643, + .00000, .47449, .70647, + .02073, .00883, 8.22404, .75974, .18683, + .00000, .53057, .76075, + .02112, .00902, 10.06544, .81687, .24208, + .00000, .58938, .81788, + .02153, .00923, 12.24102, .88319, .30748, + .00000, .65747, .88422 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .02189, .00941, 14.27598, .94612, .36806, + .00000, .72188, .94714, + .02224, .00958, 16.38909, 1.01128, .43125, + .00000, .78844, 1.01230, + .02252, .00974, 18.19122, 1.06603, .48556, + .00000, .84429, 1.06705, + .02312, .01004, 22.37931, 1.19248, .60945, + .00000, .97302, 1.19351, + .02365, .01031, 26.02078, 1.31178, .72600, + .15415, 1.09424, 1.31281, + .02426, .01064, 30.58562, 1.45717, .86880, + .32032, 1.24172, 1.45820, + .02489, .01096, 35.70351, 1.62171, 1.03067, + .48955, 1.40838, 1.62275, + .02548, .01127, 40.65819, 1.78273, 1.18935, + .65549, 1.57127, 1.78378 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02607, .01159, 45.95246, 1.95679, 1.36128, + .83441, 1.74716, 1.95784, + .02656, .01184, 50.53668, 2.10985, 1.51210, + .98936, 1.90170, 2.11091, + .02718, .01217, 56.30993, 2.30565, 1.70482, + 1.18648, 2.09926, 2.30673, + .02772, .01245, 61.64425, 2.48872, 1.88566, + 1.37239, 2.28384, 2.48980, + .02821, .01272, 66.71582, 2.66482, 2.06002, + 1.55174, 2.46131, 2.66591, + .02885, .01307, 73.28676, 2.89789, 2.28973, + 1.78547, 2.69606, 2.89899, + .02946, .01339, 79.68433, 3.12818, 2.51733, + 2.01778, 2.92791, 3.12929, + .03003, .01369, 85.89010, 3.35433, 2.74168, + 2.24767, 3.15548, 3.35545 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .03061, .01400, 92.13495, 3.58746, 2.97166, + 2.48069, 3.39000, 3.58859, + .03118, .01432, 98.42350, 3.82504, 3.20691, + 2.72018, 3.62892, 3.82619, + .03171, .01461, 104.49936, 4.05795, 3.43777, + 2.95519, 3.86307, 4.05912, + .03223, .01489, 110.25502, 4.28287, 3.66022, + 3.18063, 4.08913, 4.28405, + .03275, .01517, 116.19939, 4.51715, 3.89287, + 3.41748, 4.32456, 4.51835, + .03326, .01545, 122.01174, 4.75135, 4.12450, + 3.65175, 4.55986, 4.75255, + .03376, .01572, 127.70104, 4.98205, 4.35372, + 3.88486, 4.79158, 4.98327, + .03423, .01597, 133.02506, 5.20263, 4.57206, + 4.10551, 5.01312, 5.20387 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03470, .01623, 138.52283, 5.43198, 4.79985, + 4.33661, 5.24343, 5.43323, + .03517, .01649, 143.93106, 5.66149, 5.02746, + 4.56688, 5.47386, 5.66275, + .03562, .01674, 149.14146, 5.88511, 5.24942, + 4.79153, 5.69837, 5.88639, + .03606, .01698, 154.14748, 6.10196, 5.46501, + 5.01006, 5.91604, 6.10325, + .03649, .01722, 159.14484, 6.32254, 5.68371, + 5.23083, 6.13742, 6.32384 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02504, .01087, .81205, .44440, .00000, + .00000, .24132, .44456, + .02555, .01113, 1.59843, .47032, .00000, + .00000, .26890, .47048, + .02632, .01152, 2.98214, .51608, .03246, + .00000, .31703, .51625, + .02690, .01183, 4.22666, .55475, .07411, + .00000, .35739, .55493, + .02753, .01215, 5.70213, .60106, .11677, + .00000, .40540, .60125, + .02807, .01244, 7.11639, .64553, .15807, + .00000, .45131, .64573, + .02858, .01270, 8.62294, .69189, .20292, + .00000, .49900, .69209, + .02915, .01300, 10.37881, .74524, .25550, + .00000, .55374, .74546 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02963, .01326, 11.99942, .79536, .30376, + .00000, .60503, .79559, + .03011, .01351, 13.66362, .84687, .35373, + .00000, .65767, .84712, + .03049, .01371, 15.07024, .88993, .39642, + .00000, .70158, .89018, + .03130, .01415, 18.29892, .98847, .49297, + .00000, .80192, .98873, + .03203, .01454, 21.05306, 1.08045, .58283, + .11794, .89541, 1.08074, + .03284, .01499, 24.45901, 1.19147, .69190, + .24569, 1.00807, 1.19178, + .03371, .01545, 28.22006, 1.31582, .81427, + .37414, 1.13409, 1.31616, + .03450, .01588, 31.80972, 1.43636, .93309, + .49887, 1.25608, 1.43673 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03529, .01633, 35.59590, 1.56551, 1.06072, + .63217, 1.38667, 1.56591, + .03597, .01669, 38.83550, 1.67814, 1.17175, + .74660, 1.50047, 1.67856, + .03679, .01714, 42.86838, 1.82108, 1.31249, + .89100, 1.64478, 1.82153, + .03752, .01754, 46.55340, 1.95367, 1.44355, + 1.02615, 1.77855, 1.95415, + .03819, .01791, 50.02276, 2.08035, 1.56904, + 1.15563, 1.90630, 2.08085, + .03905, .01839, 54.46717, 2.24667, 1.73304, + 1.32296, 2.07393, 2.24720, + .03986, .01884, 58.74714, 2.40971, 1.89430, + 1.48801, 2.23819, 2.41029, + .04063, .01926, 62.85846, 2.56868, 2.05213, + 1.65019, 2.39829, 2.56929 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .04140, .01970, 66.95046, 2.73132, 2.21266, + 1.81325, 2.56200, 2.73197, + .04216, .02012, 71.03473, 2.89598, 2.37582, + 1.97978, 2.72770, 2.89665, + .04288, .02052, 74.94631, 3.05636, 2.53493, + 2.14216, 2.88906, 3.05707, + .04357, .02090, 78.61778, 3.21024, 2.68723, + 2.29687, 3.04382, 3.21099, + .04426, .02129, 82.38362, 3.36968, 2.84571, + 2.45864, 3.20416, 3.37046, + .04495, .02168, 86.03136, 3.52804, 3.00245, + 2.61752, 3.36337, 3.52885, + .04561, .02205, 89.58076, 3.68328, 3.15686, + 2.77495, 3.51942, 3.68412, + .04622, .02239, 92.87278, 3.83084, 3.30303, + 2.92300, 3.66772, 3.83171 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04686, .02274, 96.25383, 3.98359, 3.45491, + 3.07744, 3.82122, 3.98450, + .04748, .02310, 99.55418, 4.13562, 3.60583, + 3.23049, 3.97398, 4.13657, + .04808, .02343, 102.71423, 4.28310, 3.75235, + 3.37911, 4.12213, 4.28406, + .04866, .02376, 105.73362, 4.42549, 3.89408, + 3.52313, 4.26517, 4.42649, + .04923, .02408, 108.72441, 4.56960, 4.03710, + 3.66780, 4.40992, 4.57063 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .03402, .01538, .75313, .37985, .00000, + .00000, .20843, .38009, + .03470, .01574, 1.46394, .40252, .00000, + .00000, .23245, .40279, + .03573, .01630, 2.67888, .44151, .02970, + .00000, .27337, .44181, + .03652, .01672, 3.74807, .47381, .06468, + .00000, .30705, .47414, + .03735, .01717, 4.98984, .51188, .09974, + .00000, .34652, .51224, + .03808, .01758, 6.15844, .54794, .13328, + .00000, .38375, .54834, + .03877, .01796, 7.38486, .58517, .16937, + .00000, .42207, .58560, + .03953, .01837, 8.79364, .62764, .21127, + .00000, .46568, .62810 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .04019, .01874, 10.07555, .66717, .24938, + .00000, .50616, .66765, + .04083, .01908, 11.37637, .70749, .28856, + .00000, .54738, .70800, + .04133, .01937, 12.46548, .74101, .32184, + .00000, .58161, .74155, + .04244, .01998, 14.93274, .81700, .39644, + .00000, .65907, .81760, + .04341, .02053, 16.99594, .88718, .46514, + .08860, .73047, .88782, + .04452, .02116, 19.50888, .97105, .54771, + .18616, .81567, .97174, + .04567, .02181, 22.23912, 1.06401, .63942, + .28299, .90999, 1.06477, + .04674, .02241, 24.80559, 1.15324, .72759, + .37610, 1.00040, 1.15405 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04782, .02301, 27.47514, 1.24797, .82144, + .47467, 1.09628, 1.24883, + .04871, .02353, 29.73024, 1.32988, .90241, + .55856, 1.17915, 1.33080, + .04982, .02416, 32.50265, 1.43297, 1.00418, + .66352, 1.28336, 1.43395, + .05079, .02471, 35.00581, 1.52784, 1.09821, + .76098, 1.37919, 1.52888, + .05169, .02522, 37.33783, 1.61783, 1.18760, + .85369, 1.47004, 1.61891, + .05284, .02588, 40.28842, 1.73499, 1.30344, + .97244, 1.58827, 1.73614, + .05393, .02651, 43.09636, 1.84891, 1.41642, + 1.08865, 1.70318, 1.85013, + .05495, .02709, 45.76557, 1.95918, 1.52622, + 1.20204, 1.81436, 1.96046 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05598, .02768, 48.38987, 2.07107, 1.63696, + 1.31503, 1.92713, 2.07241, + .05699, .02826, 50.98425, 2.18359, 1.74877, + 1.42969, 2.04048, 2.18498, + .05795, .02881, 53.44514, 2.29244, 1.85707, + 1.54073, 2.15014, 2.29390, + .05886, .02933, 55.73137, 2.39617, 1.96003, + 1.64579, 2.25460, 2.39768, + .05978, .02986, 58.05911, 2.50307, 2.06659, + 1.75507, 2.36222, 2.50463, + .06070, .03039, 60.28976, 2.60849, 2.17123, + 1.86160, 2.46834, 2.61012, + .06156, .03089, 62.44673, 2.71135, 2.27385, + 1.96671, 2.57186, 2.71304, + .06239, .03136, 64.42687, 2.80849, 2.37035, + 2.06486, 2.66960, 2.81022 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06321, .03184, 66.44884, 2.90860, 2.47018, + 2.16685, 2.77032, 2.91038, + .06404, .03231, 68.40499, 3.00766, 2.56880, + 2.26729, 2.86998, 3.00950, + .06483, .03277, 70.26507, 3.10327, 2.66410, + 2.36438, 2.96615, 3.10517, + .06559, .03320, 72.03166, 3.19520, 2.75588, + 2.45806, 3.05861, 3.19714, + .06635, .03364, 73.76551, 3.28772, 2.84797, + 2.55160, 3.15165, 3.28971 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .04077, .01890, .72568, .34742, .00000, + .00000, .19215, .34806, + .04156, .01933, 1.39645, .36816, .00000, + .00000, .21413, .36886, + .04278, .01999, 2.52146, .40337, .02829, + .00000, .25108, .40411, + .04371, .02050, 3.49835, .43221, .05970, + .00000, .28116, .43301, + .04469, .02106, 4.61829, .46593, .09076, + .00000, .31613, .46678, + .04555, .02153, 5.66016, .49762, .12027, + .00000, .34888, .49851, + .04638, .02201, 6.74338, .53017, .15186, + .00000, .38242, .53110, + .04728, .02251, 7.97643, .56710, .18835, + .00000, .42036, .56808 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04806, .02295, 9.08846, .60127, .22134, + .00000, .45540, .60230, + .04882, .02339, 10.20855, .63598, .25513, + .00000, .49093, .63706, + .04943, .02373, 11.14080, .66474, .28374, + .00000, .52032, .66585, + .05073, .02447, 13.23542, .72962, .34751, + .00000, .58652, .73080, + .05190, .02514, 14.96610, .78912, .40590, + .07402, .64713, .79038, + .05320, .02590, 17.05290, .85982, .47566, + .15694, .71904, .86115, + .05458, .02669, 19.29711, .93769, .55263, + .23859, .79813, .93911, + .05583, .02742, 21.38655, 1.01199, .62622, + .31664, .87350, 1.01349 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05712, .02816, 23.54092, 1.09043, .70413, + .39881, .95300, 1.09201, + .05819, .02878, 25.34611, 1.15792, .77099, + .46837, 1.02133, 1.15956, + .05949, .02953, 27.54783, 1.24242, .85461, + .55495, 1.10684, 1.24415, + .06064, .03021, 29.52077, 1.31980, .93148, + .63496, 1.18509, 1.32160, + .06171, .03082, 31.34658, 1.39287, 1.00426, + .71074, 1.25895, 1.39474, + .06308, .03162, 33.63831, 1.48751, 1.09808, + .80729, 1.35458, 1.48948, + .06436, .03236, 35.80283, 1.57909, 1.18913, + .90131, 1.44706, 1.58114, + .06557, .03307, 37.84672, 1.66734, 1.27722, + .99264, 1.53612, 1.66946 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06678, .03378, 39.84016, 1.75643, 1.36561, + 1.08316, 1.62601, 1.75864, + .06797, .03448, 41.79887, 1.84564, 1.45449, + 1.17465, 1.71599, 1.84792, + .06912, .03513, 43.64527, 1.93159, 1.54023, + 1.26289, 1.80266, 1.93395, + .07019, .03576, 45.34904, 2.01315, 1.62139, + 1.34601, 1.88489, 2.01558, + .07127, .03639, 47.07566, 2.09689, 1.70511, + 1.43220, 1.96930, 2.09941, + .07233, .03701, 48.71831, 2.17916, 1.78695, + 1.51583, 2.05220, 2.18174, + .07335, .03761, 50.30052, 2.25916, 1.86699, + 1.59812, 2.13281, 2.26182, + .07431, .03816, 51.74282, 2.33440, 1.94194, + 1.67463, 2.20861, 2.33713 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07529, .03873, 53.21024, 2.41174, 2.01928, + 1.75393, 2.28651, 2.41454, + .07626, .03929, 54.62133, 2.48799, 2.09540, + 1.83173, 2.36330, 2.49086, + .07718, .03983, 55.95706, 2.56138, 2.16872, + 1.90671, 2.43719, 2.56430, + .07806, .04034, 57.22064, 2.63173, 2.23916, + 1.97888, 2.50803, 2.63472, + .07895, .04086, 58.45273, 2.70228, 2.30958, + 2.05067, 2.57907, 2.70533 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .04635, .02184, .71280, .32625, .00000, + .00000, .18170, .32743, + .04726, .02234, 1.35669, .34566, .00000, + .00000, .20225, .34688, + .04861, .02311, 2.42102, .37830, .02731, + .00000, .23649, .37957, + .04966, .02369, 3.33596, .40484, .05632, + .00000, .26420, .40619, + .05077, .02433, 4.37466, .43568, .08471, + .00000, .29621, .43709, + .05174, .02488, 5.33261, .46452, .11158, + .00000, .32603, .46599, + .05267, .02543, 6.32161, .49403, .14023, + .00000, .35644, .49555, + .05369, .02601, 7.43975, .52739, .17321, + .00000, .39076, .52897 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .05457, .02651, 8.44145, .55814, .20292, + .00000, .42231, .55976, + .05543, .02702, 9.44484, .58927, .23324, + .00000, .45419, .59094, + .05612, .02742, 10.27622, .61500, .25886, + .00000, .48052, .61672, + .05759, .02827, 12.13290, .67283, .31575, + .00000, .53957, .67462, + .05890, .02903, 13.65307, .72560, .36759, + .06476, .59337, .72749, + .06038, .02991, 15.47205, .78803, .42927, + .13843, .65693, .79002, + .06194, .03081, 17.41332, .85648, .49704, + .21057, .72652, .85855, + .06337, .03165, 19.20768, .92149, .56153, + .27922, .79253, .92367 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06481, .03250, 21.04560, .98985, .62953, + .35120, .86188, .99212, + .06601, .03321, 22.57620, 1.04843, .68767, + .41187, .92127, 1.05079, + .06748, .03407, 24.43181, 1.12151, .76011, + .48714, .99529, 1.12397, + .06879, .03484, 26.08508, 1.18819, .82647, + .55644, 1.06279, 1.19072, + .07000, .03554, 27.60738, 1.25094, .88909, + .62186, 1.12628, 1.25356, + .07152, .03645, 29.50645, 1.33192, .96950, + .70488, 1.20818, 1.33465, + .07297, .03729, 31.28981, 1.40997, 1.04726, + .78542, 1.28708, 1.41281, + .07433, .03810, 32.96527, 1.48493, 1.12223, + .86341, 1.36280, 1.48785 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07569, .03890, 34.58923, 1.56033, 1.19717, + .94040, 1.43895, 1.56334, + .07703, .03969, 36.17743, 1.63557, 1.27229, + 1.01798, 1.51493, 1.63869, + .07831, .04044, 37.66745, 1.70785, 1.34454, + 1.09258, 1.58789, 1.71106, + .07950, .04114, 39.03505, 1.77621, 1.41270, + 1.16261, 1.65688, 1.77951, + .08072, .04185, 40.41610, 1.84624, 1.48286, + 1.23506, 1.72754, 1.84962, + .08190, .04255, 41.72243, 1.91479, 1.55121, + 1.30512, 1.79668, 1.91826, + .08305, .04322, 42.97705, 1.98132, 1.61790, + 1.37392, 1.86378, 1.98486, + .08412, .04385, 44.11425, 2.04369, 1.68015, + 1.43766, 1.92668, 2.04731 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08522, .04449, 45.26807, 2.10766, 1.74427, + 1.50361, 1.99118, 2.11136, + .08629, .04512, 46.37219, 2.17056, 1.80720, + 1.56814, 2.05460, 2.17434, + .08733, .04573, 47.41363, 2.23095, 1.86769, + 1.63019, 2.11548, 2.23481, + .08831, .04631, 48.39576, 2.28873, 1.92568, + 1.68980, 2.17372, 2.29267, + .08930, .04688, 49.34834, 2.34653, 1.98349, + 1.74892, 2.23196, 2.35053 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .05125, .02456, .71092, .31156, .00000, + .00000, .17415, .31281, + .05223, .02511, 1.33426, .32992, .00000, + .00000, .19356, .33122, + .05373, .02596, 2.35260, .36056, .02649, + .00000, .22571, .36196, + .05489, .02663, 3.22058, .38538, .05368, + .00000, .25159, .38684, + .05611, .02734, 4.19788, .41406, .08009, + .00000, .28136, .41560, + .05718, .02796, 5.09271, .44078, .10499, + .00000, .30897, .44237, + .05821, .02856, 6.01106, .46802, .13147, + .00000, .33707, .46969, + .05932, .02921, 7.04344, .49873, .16187, + .00000, .36867, .50047 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .06030, .02978, 7.96317, .52696, .18917, + .00000, .39764, .52876, + .06124, .03034, 8.88016, .55547, .21696, + .00000, .42685, .55734, + .06200, .03078, 9.63718, .57898, .24039, + .00000, .45092, .58090, + .06362, .03174, 11.31910, .63167, .29228, + .00000, .50475, .63369, + .06506, .03259, 12.68586, .67956, .33937, + .05811, .55361, .68168, + .06670, .03355, 14.31087, .73602, .39522, + .12508, .61112, .73825, + .06841, .03456, 16.03401, .79768, .45633, + .19032, .67384, .80003, + .06997, .03549, 17.61711, .85603, .51429, + .25218, .73314, .85849 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07156, .03643, 19.22963, .91719, .57520, + .31683, .79522, .91976, + .07288, .03721, 20.56551, .96943, .62710, + .37116, .84821, .97209, + .07450, .03817, 22.17705, 1.03438, .69158, + .43832, .91405, 1.03715, + .07592, .03901, 23.60599, 1.09345, .75046, + .49998, .97390, 1.09635, + .07724, .03979, 24.91609, 1.14892, .80588, + .55803, 1.03005, 1.15190, + .07892, .04078, 26.54169, 1.22026, .87682, + .63146, 1.10226, 1.22336, + .08049, .04172, 28.06084, 1.28880, .94520, + .70248, 1.17158, 1.29201, + .08199, .04259, 29.48201, 1.35442, 1.01096, + .77106, 1.23796, 1.35775 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08348, .04348, 30.85211, 1.42024, 1.07647, + .83853, 1.30447, 1.42367, + .08494, .04434, 32.18676, 1.48575, 1.14197, + .90636, 1.37067, 1.48929, + .08633, .04516, 33.43379, 1.54851, 1.20481, + .97141, 1.43408, 1.55215, + .08763, .04593, 34.57295, 1.60770, 1.26393, + 1.03231, 1.49386, 1.61144, + .08896, .04671, 35.71982, 1.66821, 1.32466, + 1.09519, 1.55497, 1.67206, + .09025, .04747, 36.79928, 1.72727, 1.38365, + 1.15581, 1.61460, 1.73122, + .09149, .04820, 37.83349, 1.78449, 1.44114, + 1.21527, 1.67235, 1.78852, + .09267, .04889, 38.76622, 1.83799, 1.49464, + 1.27019, 1.72635, 1.84211 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09385, .04958, 39.71040, 1.89277, 1.54964, + 1.32693, 1.78165, 1.89698, + .09502, .05027, 40.60980, 1.94651, 1.60351, + 1.38231, 1.83587, 1.95082, + .09614, .05093, 41.45538, 1.99801, 1.65519, + 1.43547, 1.88783, 2.00239, + .09721, .05155, 42.25066, 2.04719, 1.70466, + 1.48645, 1.93746, 2.05167, + .09827, .05218, 43.01838, 2.09627, 1.75385, + 1.53690, 1.98696, 2.10081 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .07021, .03548, .72397, .27143, .00000, + .00000, .15398, .27371, + .07152, .03626, 1.28775, .28647, .00000, + .00000, .16988, .28883, + .07352, .03746, 2.17157, .31116, .02387, + .00000, .19579, .31366, + .07506, .03839, 2.90319, .33085, .04580, + .00000, .21636, .33345, + .07671, .03938, 3.70464, .35334, .06660, + .00000, .23975, .35606, + .07815, .04025, 4.42079, .37405, .08600, + .00000, .26120, .37687, + .07954, .04109, 5.14118, .39498, .10648, + .00000, .28284, .39791, + .08104, .04200, 5.93563, .41838, .12978, + .00000, .30697, .42142 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08235, .04279, 6.63028, .43968, .15049, + .00000, .32889, .44282, + .08363, .04356, 7.31205, .46103, .17142, + .00000, .35082, .46425, + .08464, .04418, 7.86790, .47854, .18896, + .00000, .36879, .48184, + .08684, .04551, 9.08194, .51736, .22743, + .00000, .40858, .52084, + .08877, .04668, 10.04390, .55223, .26192, + .04009, .44425, .55585, + .09096, .04800, 11.16157, .59285, .30235, + .08928, .48577, .59664, + .09324, .04939, 12.32102, .63667, .34607, + .13647, .53049, .64064, + .09533, .05065, 13.36432, .67764, .38704, + .18069, .57227, .68177 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09744, .05192, 14.40688, .72010, .42962, + .22639, .61552, .72440, + .09920, .05297, 15.25520, .75599, .46553, + .26438, .65205, .76043, + .10133, .05425, 16.26058, .80016, .50967, + .31086, .69697, .80476, + .10322, .05539, 17.13721, .83991, .54959, + .35311, .73739, .84467, + .10496, .05642, 17.92903, .87690, .58683, + .39255, .77498, .88180, + .10716, .05774, 18.89334, .92397, .63397, + .44187, .82279, .92904, + .10924, .05898, 19.77910, .96871, .67896, + .48911, .86822, .97395, + .11119, .06014, 20.59525, 1.01115, .72183, + .53433, .91131, 1.01655 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11312, .06128, 21.36656, 1.05325, .76407, + .57830, .95402, 1.05880, + .11502, .06241, 22.10732, 1.09479, .80595, + .62215, .99616, 1.10049, + .11682, .06348, 22.78921, 1.13424, .84579, + .66386, 1.03617, 1.14009, + .11851, .06446, 23.40131, 1.17109, .88292, + .70253, 1.07355, 1.17708, + .12021, .06548, 24.01101, 1.20851, .92081, + .74222, 1.11149, 1.21463, + .12188, .06645, 24.57368, 1.24467, .95727, + .78010, 1.14816, 1.25094, + .12347, .06739, 25.10819, 1.27950, .99257, + .81704, 1.18347, 1.28588, + .12496, .06826, 25.58059, 1.31176, 1.02514, + .85087, 1.21616, 1.31827 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12648, .06914, 26.05487, 1.34460, 1.05845, + .88562, 1.24946, 1.35124, + .12796, .07001, 26.49885, 1.37655, 1.09081, + .91928, 1.28184, 1.38331, + .12938, .07084, 26.91121, 1.40698, 1.12165, + .95139, 1.31269, 1.41385, + .13073, .07162, 27.29508, 1.43587, 1.15101, + .98201, 1.34196, 1.44285, + .13208, .07241, 27.65817, 1.46445, 1.17997, + 1.01206, 1.37094, 1.47154 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09677, .05164, .79789, .23907, .00000, + .00000, .13729, .24300, + .09851, .05273, 1.30353, .25080, .00000, + .00000, .14974, .25486, + .10120, .05442, 2.05821, .26989, .02049, + .00000, .16985, .27418, + .10328, .05570, 2.66074, .28497, .03780, + .00000, .18567, .28942, + .10550, .05709, 3.30111, .30202, .05375, + .00000, .20347, .30666, + .10743, .05829, 3.85741, .31756, .06851, + .00000, .21963, .32236, + .10931, .05945, 4.40406, .33313, .08398, + .00000, .23582, .33810, + .11134, .06070, 4.99360, .35041, .10141, + .00000, .25373, .35554 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11310, .06179, 5.49806, .36599, .11674, + .00000, .26984, .37126, + .11482, .06284, 5.98412, .38147, .13211, + .00000, .28582, .38690, + .11619, .06368, 6.37465, .39409, .14491, + .00000, .29885, .39963, + .11911, .06547, 7.21091, .42179, .17268, + .00000, .32737, .42759, + .12170, .06704, 7.85469, .44630, .19722, + .02549, .35259, .45232, + .12459, .06881, 8.58014, .47450, .22565, + .06074, .38157, .48076, + .12762, .07063, 9.31291, .50448, .25593, + .09395, .41235, .51101, + .13037, .07229, 9.95559, .53213, .28394, + .12467, .44073, .53890 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13314, .07394, 10.58284, .56042, .31268, + .15601, .46972, .56743, + .13544, .07532, 11.08192, .58404, .33662, + .18173, .49391, .59125, + .13821, .07696, 11.65989, .61274, .36571, + .21285, .52331, .62019, + .14066, .07842, 12.15313, .63828, .39171, + .24082, .54945, .64595, + .14291, .07975, 12.59024, .66178, .41571, + .26666, .57350, .66964, + .14573, .08142, 13.10929, .69129, .44573, + .29858, .60369, .69939, + .14838, .08298, 13.57516, .71902, .47401, + .32878, .63204, .72735, + .15086, .08443, 13.99579, .74502, .50069, + .35740, .65864, .75356 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15332, .08586, 14.38207, .77046, .52664, + .38487, .68466, .77922, + .15572, .08725, 14.74580, .79530, .55211, + .41201, .71005, .80426, + .15799, .08856, 15.07347, .81865, .57609, + .43757, .73393, .82780, + .16010, .08978, 15.35968, .84021, .59820, + .46101, .75598, .84954, + .16222, .09101, 15.64060, .86191, .62059, + .48490, .77817, .87143, + .16428, .09219, 15.89158, .88263, .64188, + .50743, .79936, .89233, + .16625, .09332, 16.12737, .90244, .66236, + .52927, .81962, .91230, + .16809, .09436, 16.32837, .92056, .68104, + .54904, .83817, .93058 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16995, .09541, 16.52783, .93889, .70002, + .56923, .85693, .94907, + .17177, .09645, 16.70872, .95654, .71828, + .58861, .87499, .96687, + .17350, .09742, 16.87323, .97321, .73555, + .60694, .89205, .98369, + .17513, .09835, 17.02377, .98893, .75190, + .62434, .90814, .99954, + .17677, .09927, 17.16044, 1.00430, .76784, + .64123, .92389, 1.01505 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11694, .06431, .88334, .22211, .00000, + .00000, .12820, .22748, + .11903, .06565, 1.34885, .23203, .00000, + .00000, .13875, .23759, + .12226, .06769, 2.02721, .24811, .01785, + .00000, .15578, .25396, + .12474, .06926, 2.55514, .26075, .03275, + .00000, .16910, .26681, + .12740, .07093, 3.10532, .27498, .04625, + .00000, .18405, .28129, + .12971, .07236, 3.57459, .28789, .05868, + .00000, .19754, .29440, + .13194, .07375, 4.02863, .30076, .07165, + .00000, .21098, .30748, + .13435, .07524, 4.51113, .31497, .08617, + .00000, .22578, .32190 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13645, .07653, 4.91815, .32770, .09886, + .00000, .23902, .33482, + .13848, .07778, 5.30543, .34028, .11152, + .00000, .25208, .34760, + .14011, .07878, 5.61351, .35050, .12201, + .00000, .26268, .35797, + .14357, .08088, 6.26481, .37277, .14461, + .00000, .28575, .38054, + .14660, .08272, 6.75665, .39229, .16441, + .01830, .30596, .40035, + .15000, .08476, 7.29780, .41455, .18713, + .04689, .32897, .42291, + .15353, .08686, 7.83420, .43799, .21113, + .07354, .35319, .44667, + .15672, .08875, 8.29608, .45942, .23312, + .09797, .37531, .46839 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15994, .09066, 8.73919, .48112, .25548, + .12268, .39772, .49039, + .16259, .09221, 9.08568, .49911, .27398, + .14281, .41626, .50861, + .16578, .09407, 9.48016, .52077, .29625, + .16695, .43860, .53057, + .16859, .09571, 9.81135, .53989, .31600, + .18849, .45832, .54994, + .17117, .09720, 10.10047, .55735, .33411, + .20825, .47633, .56763, + .17439, .09906, 10.43668, .57909, .35656, + .23246, .49873, .58964, + .17739, .10079, 10.73278, .59931, .37756, + .25521, .51959, .61014, + .18020, .10239, 10.99575, .61814, .39720, + .27659, .53900, .62921 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18297, .10396, 11.23069, .63638, .41615, + .29696, .55783, .64769, + .18566, .10548, 11.44829, .65406, .43462, + .31694, .57607, .66561, + .18820, .10692, 11.64059, .67054, .45190, + .33564, .59308, .68232, + .19055, .10823, 11.80419, .68563, .46769, + .35266, .60867, .69761, + .19292, .10955, 11.96269, .70075, .48361, + .36992, .62427, .71293, + .19520, .11083, 12.09904, .71504, .49862, + .38608, .63904, .72742, + .19737, .11203, 12.22586, .72864, .51300, + .40167, .65309, .74121, + .19939, .11315, 12.32951, .74095, .52600, + .41568, .66585, .75369 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20144, .11426, 12.43124, .75336, .53916, + .42994, .67868, .76627, + .20342, .11536, 12.51988, .76521, .55172, + .44351, .69094, .77829, + .20531, .11638, 12.59843, .77632, .56355, + .45631, .70245, .78956, + .20710, .11736, 12.66872, .78674, .57469, + .46838, .71326, .80014, + .20887, .11831, 12.72855, .79685, .58547, + .48004, .72375, .81039 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .13389, .07512, .96563, .21062, .00000, + .00000, .12173, .21733, + .13629, .07667, 1.39984, .21932, .00000, + .00000, .13105, .22625, + .13998, .07902, 2.02208, .23341, .01553, + .00000, .14604, .24067, + .14280, .08080, 2.49623, .24446, .02888, + .00000, .15774, .25199, + .14581, .08269, 2.98313, .25686, .04081, + .00000, .17081, .26468, + .14843, .08431, 3.39260, .26805, .05176, + .00000, .18259, .27612, + .15097, .08588, 3.78402, .27918, .06313, + .00000, .19427, .28750, + .15369, .08756, 4.19529, .29141, .07582, + .00000, .20709, .29999 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15606, .08900, 4.53829, .30232, .08684, + .00000, .21851, .31113, + .15835, .09039, 4.86149, .31306, .09779, + .00000, .22973, .32209, + .16018, .09150, 5.11664, .32175, .10683, + .00000, .23880, .33096, + .16406, .09384, 5.65048, .34059, .12620, + .00000, .25843, .35017, + .16744, .09585, 6.04781, .35699, .14305, + .01374, .27550, .36687, + .17122, .09809, 6.47553, .37553, .16226, + .03820, .29482, .38578, + .17515, .10039, 6.89289, .39493, .18238, + .06080, .31499, .40554, + .17868, .10244, 7.24667, .41251, .20068, + .08137, .33326, .42344 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18221, .10449, 7.58104, .43021, .21919, + .10204, .35167, .44147, + .18512, .10617, 7.83861, .44476, .23438, + .11877, .36679, .45628, + .18862, .10817, 8.12727, .46217, .25256, + .13873, .38489, .47401, + .19168, .10992, 8.36603, .47743, .26860, + .15643, .40074, .48955, + .19449, .11149, 8.57159, .49128, .28321, + .17258, .41515, .50366, + .19798, .11346, 8.80576, .50838, .30121, + .19224, .43296, .52109, + .20123, .11527, 9.00823, .52419, .31792, + .21058, .44940, .53719, + .20426, .11696, 9.18513, .53880, .33349, + .22776, .46462, .55207 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20722, .11860, 9.33865, .55286, .34837, + .24398, .47926, .56638, + .21011, .12019, 9.47828, .56639, .36282, + .25984, .49337, .58016, + .21280, .12166, 9.59897, .57892, .37625, + .27459, .50645, .59294, + .21531, .12302, 9.69836, .59031, .38845, + .28795, .51834, .60453, + .21782, .12437, 9.79324, .60166, .40070, + .30143, .53020, .61610, + .22023, .12567, 9.87096, .61231, .41217, + .31398, .54133, .62694, + .22253, .12691, 9.94242, .62239, .42311, + .32604, .55189, .63723, + .22465, .12804, 9.99718, .63146, .43294, + .33682, .56138, .64647 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22679, .12918, 10.05012, .64054, .44286, + .34776, .57090, .65573, + .22886, .13027, 10.09320, .64914, .45228, + .35811, .57994, .66451, + .23084, .13131, 10.12963, .65718, .46110, + .36784, .58839, .67271, + .23269, .13228, 10.16092, .66468, .46937, + .37698, .59628, .68037, + .23453, .13324, 10.18395, .67190, .47733, + .38576, .60388, .68773 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .14869, .08464, 1.04273, .20161, .00000, + .00000, .11648, .20945, + .15136, .08638, 1.45048, .20942, .00000, + .00000, .12488, .21754, + .15546, .08900, 2.02742, .22207, .01343, + .00000, .13841, .23060, + .15861, .09097, 2.45893, .23197, .02567, + .00000, .14896, .24082, + .16194, .09305, 2.89677, .24305, .03649, + .00000, .16072, .25223, + .16483, .09483, 3.26070, .25302, .04638, + .00000, .17126, .26249, + .16764, .09654, 3.60515, .26290, .05662, + .00000, .18168, .27265, + .17063, .09836, 3.96358, .27372, .06799, + .00000, .19309, .28377 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17323, .09992, 4.25963, .28333, .07784, + .00000, .20320, .29364, + .17573, .10144, 4.53633, .29276, .08758, + .00000, .21311, .30332, + .17773, .10263, 4.75337, .30038, .09560, + .00000, .22111, .31112, + .18197, .10515, 5.20354, .31679, .11270, + .00000, .23832, .32794, + .18565, .10729, 5.53460, .33095, .12748, + .01050, .25319, .34248, + .18974, .10968, 5.88350, .34691, .14422, + .03205, .26991, .35882, + .19397, .11211, 6.21926, .36346, .16166, + .05184, .28726, .37577, + .19776, .11427, 6.49979, .37837, .17743, + .06974, .30288, .39103 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20156, .11643, 6.76110, .39328, .19327, + .08764, .31852, .40630, + .20467, .11818, 6.95955, .40547, .20621, + .10204, .33129, .41879, + .20840, .12026, 7.17860, .41996, .22161, + .11913, .34649, .43362, + .21166, .12207, 7.35712, .43258, .23511, + .13421, .35974, .44654, + .21462, .12371, 7.50864, .44399, .24738, + .14792, .37171, .45822, + .21831, .12572, 7.67748, .45797, .26237, + .16450, .38640, .47253, + .22174, .12759, 7.82061, .47081, .27623, + .17991, .39989, .48567, + .22492, .12931, 7.94346, .48261, .28907, + .19426, .41232, .49775 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22801, .13097, 8.04643, .49387, .30128, + .20775, .42417, .50927, + .23102, .13258, 8.13798, .50465, .31307, + .22088, .43556, .52032, + .23383, .13407, 8.21484, .51457, .32397, + .23302, .44604, .53049, + .23643, .13543, 8.27541, .52353, .33383, + .24397, .45551, .53966, + .23902, .13678, 8.33210, .53241, .34368, + .25499, .46491, .54877, + .24150, .13808, 8.37497, .54067, .35286, + .26519, .47368, .55723, + .24386, .13931, 8.41373, .54848, .36158, + .27497, .48196, .56523, + .24604, .14042, 8.43997, .55543, .36938, + .28366, .48936, .57236 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24824, .14154, 8.46462, .56238, .37722, + .29245, .49676, .57950, + .25035, .14263, 8.48152, .56891, .38461, + .30074, .50375, .58620, + .25235, .14364, 8.49389, .57498, .39153, + .30851, .51024, .59243, + .25423, .14459, 8.50310, .58062, .39799, + .31578, .51627, .59822, + .25609, .14553, 8.50565, .58599, .40416, + .32272, .52204, .60373 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17436, .10123, 1.17639, .18799, .00000, + .00000, .10826, .19806, + .17755, .10328, 1.53956, .19454, .00000, + .00000, .11541, .20498, + .18241, .10634, 2.04442, .20518, .00982, + .00000, .12692, .21613, + .18609, .10860, 2.40981, .21347, .02050, + .00000, .13588, .22482, + .18997, .11097, 2.77344, .22270, .02980, + .00000, .14580, .23448, + .19332, .11299, 3.06995, .23094, .03825, + .00000, .15464, .24307, + .19655, .11492, 3.34599, .23908, .04695, + .00000, .16335, .25154, + .20001, .11697, 3.62871, .24793, .05653, + .00000, .17280, .26075 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20297, .11871, 3.85847, .25574, .06477, + .00000, .18113, .26886, + .20583, .12037, 4.07015, .26334, .07286, + .00000, .18924, .27676, + .20810, .12168, 4.23435, .26944, .07949, + .00000, .19575, .28310, + .21291, .12444, 4.56991, .28250, .09351, + .00000, .20965, .29663, + .21702, .12676, 4.81186, .29364, .10550, + .00612, .22153, .30818, + .22158, .12931, 5.05619, .30604, .11895, + .02375, .23475, .32102, + .22626, .13190, 5.28512, .31877, .13281, + .03977, .24831, .33419, + .23044, .13418, 5.47108, .33009, .14521, + .05412, .26040, .34592 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23459, .13644, 5.63957, .34129, .15755, + .06832, .27235, .35751, + .23798, .13825, 5.76373, .35034, .16754, + .07967, .28202, .36687, + .24200, .14040, 5.89618, .36100, .17931, + .09301, .29342, .37789, + .24550, .14225, 6.00058, .37018, .18955, + .10469, .30326, .38738, + .24867, .14391, 6.08633, .37838, .19876, + .11522, .31207, .39586, + .25259, .14595, 6.17688, .38832, .20994, + .12787, .32275, .40615, + .25622, .14780, 6.24960, .39733, .22015, + .13950, .33247, .41548, + .25956, .14951, 6.30884, .40554, .22954, + .15027, .34132, .42397 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26279, .15114, 6.35311, .41324, .23838, + .16029, .34967, .43194, + .26591, .15270, 6.38963, .42054, .24684, + .16997, .35759, .43950, + .26881, .15415, 6.41706, .42718, .25461, + .17886, .36483, .44639, + .27147, .15545, 6.43413, .43311, .26156, + .18682, .37130, .45252, + .27413, .15675, 6.44827, .43893, .26847, + .19478, .37766, .45855, + .27665, .15798, 6.45325, .44425, .27482, + .20207, .38351, .46407, + .27904, .15913, 6.45673, .44923, .28084, + .20904, .38900, .46924, + .28122, .16017, 6.45255, .45359, .28615, + .21517, .39384, .47377 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28340, .16121, 6.44720, .45793, .29148, + .22136, .39865, .47827, + .28551, .16220, 6.43697, .46194, .29645, + .22714, .40313, .48244, + .28750, .16313, 6.42484, .46562, .30106, + .23252, .40724, .48626, + .28935, .16399, 6.41168, .46901, .30535, + .23755, .41105, .48979, + .29117, .16483, 6.39372, .47217, .30940, + .24229, .41463, .49308 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .20667, .12203, 1.33559, .17284, .00000, + .00000, .09878, .18591, + .21053, .12446, 1.64406, .17823, .00000, + .00000, .10480, .19178, + .21637, .12801, 2.06639, .18694, .00542, + .00000, .11446, .20119, + .22072, .13060, 2.35877, .19369, .01465, + .00000, .12193, .20843, + .22528, .13327, 2.64312, .20113, .02256, + .00000, .13012, .21640, + .22917, .13553, 2.86965, .20772, .02967, + .00000, .13735, .22341, + .23292, .13766, 3.07631, .21417, .03692, + .00000, .14442, .23027, + .23688, .13991, 3.28381, .22112, .04484, + .00000, .15203, .23765 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24028, .14180, 3.44895, .22719, .05157, + .00000, .15867, .24407, + .24353, .14360, 3.59828, .23305, .05814, + .00000, .16509, .25027, + .24610, .14502, 3.71250, .23773, .06348, + .00000, .17021, .25521, + .25147, .14793, 3.94146, .24763, .07466, + .00000, .18101, .26565, + .25604, .15036, 4.10228, .25592, .08410, + .00218, .19012, .27439, + .26105, .15299, 4.25345, .26503, .09455, + .01620, .20011, .28397, + .26613, .15562, 4.38912, .27421, .10518, + .02878, .21021, .29364, + .27063, .15793, 4.49418, .28227, .11456, + .03992, .21908, .30210 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27508, .16016, 4.58469, .29012, .12380, + .05084, .22776, .31035, + .27866, .16195, 4.64739, .29636, .13119, + .05946, .23468, .31691, + .28290, .16404, 4.70962, .30359, .13981, + .06951, .24271, .32451, + .28656, .16582, 4.75498, .30973, .14721, + .07821, .24956, .33095, + .28984, .16741, 4.78915, .31514, .15381, + .08599, .25561, .33665, + .29387, .16931, 4.81912, .32158, .16172, + .09524, .26286, .34339, + .29754, .17104, 4.83855, .32731, .16887, + .10366, .26933, .34942, + .30092, .17260, 4.85065, .33244, .17536, + .11137, .27517, .35482 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30414, .17408, 4.85247, .33715, .18138, + .11847, .28056, .35977, + .30723, .17547, 4.84969, .34154, .18711, + .12529, .28561, .36438, + .31008, .17674, 4.84231, .34547, .19230, + .13148, .29016, .36852, + .31266, .17788, 4.82980, .34888, .19689, + .13697, .29415, .37210, + .31523, .17900, 4.81555, .35220, .20141, + .14242, .29804, .37559, + .31764, .18003, 4.79554, .35513, .20551, + .14737, .30154, .37868, + .31992, .18100, 4.77596, .35785, .20937, + .15206, .30478, .38156, + .32197, .18185, 4.75286, .36014, .21273, + .15615, .30758, .38398 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32403, .18269, 4.72914, .36240, .21607, + .16025, .31033, .38636, + .32597, .18349, 4.70266, .36441, .21914, + .16405, .31283, .38849, + .32779, .18423, 4.67609, .36623, .22196, + .16755, .31509, .39040, + .32949, .18491, 4.65007, .36786, .22456, + .17080, .31716, .39212, + .33112, .18555, 4.62099, .36930, .22698, + .17383, .31904, .39367 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25155, .15024, 1.51242, .15445, .00000, + .00000, .08719, .17248, + .25639, .15309, 1.74950, .15868, .00000, + .00000, .09215, .17731, + .26350, .15719, 2.07040, .16542, .00007, + .00000, .10001, .18493, + .26871, .16006, 2.27742, .17056, .00784, + .00000, .10599, .19069, + .27407, .16299, 2.47242, .17615, .01439, + .00000, .11244, .19685, + .27862, .16542, 2.62254, .18100, .02018, + .00000, .11805, .20222, + .28293, .16770, 2.75553, .18570, .02600, + .00000, .12346, .20737, + .28744, .17004, 2.88514, .19069, .03227, + .00000, .12922, .21282 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29129, .17200, 2.98479, .19497, .03753, + .00000, .13415, .21750, + .29493, .17383, 3.07214, .19905, .04260, + .00000, .13886, .22194, + .29778, .17527, 3.13747, .20227, .04669, + .00000, .14257, .22544, + .30368, .17816, 3.26437, .20898, .05512, + .00000, .15033, .23268, + .30856, .18050, 3.34944, .21447, .06209, + -.00132, .15669, .23859, + .31386, .18298, 3.41622, .22033, .06969, + .00919, .16356, .24492, + .31918, .18543, 3.46979, .22611, .07730, + .01850, .17036, .25112, + .32379, .18750, 3.50544, .23104, .08389, + .02660, .17620, .25641 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .32829, .18950, 3.53060, .23573, .09027, + .03443, .18179, .26144, + .33188, .19105, 3.54324, .23936, .09530, + .04053, .18615, .26532, + .33604, .19282, 3.54942, .24346, .10107, + .04756, .19112, .26970, + .33960, .19429, 3.54874, .24683, .10596, + .05357, .19526, .27331, + .34275, .19557, 3.54357, .24974, .11026, + .05888, .19887, .27641, + .34655, .19708, 3.52899, .25305, .11531, + .06510, .20304, .27996, + .34996, .19840, 3.51020, .25591, .11981, + .07069, .20669, .28301, + .35304, .19958, 3.48924, .25840, .12384, + .07575, .20991, .28565 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .35594, .20064, 3.46243, .26054, .12749, + .08034, .21278, .28794, + .35867, .20162, 3.43399, .26247, .13092, + .08470, .21541, .28999, + .36117, .20247, 3.40474, .26411, .13398, + .08861, .21770, .29173, + .36336, .20322, 3.37425, .26545, .13664, + .09203, .21964, .29315, + .36552, .20393, 3.34315, .26670, .13922, + .09540, .22148, .29447, + .36751, .20455, 3.30947, .26769, .14151, + .09840, .22306, .29553, + .36937, .20511, 3.27764, .26860, .14364, + .10123, .22450, .29648, + .37101, .20559, 3.24519, .26924, .14545, + .10366, .22566, .29717 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37262, .20606, 3.21265, .26985, .14723, + .10608, .22677, .29781, + .37412, .20645, 3.17919, .27031, .14883, + .10828, .22772, .29828, + .37550, .20681, 3.14691, .27067, .15027, + .11029, .22855, .29866, + .37676, .20713, 3.11615, .27096, .15159, + .11215, .22927, .29895, + .37795, .20740, 3.08376, .27110, .15277, + .11385, .22986, .29910 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .28906, .17315, 1.61443, .14006, .00000, + .00000, .07829, .16229, + .29475, .17627, 1.79601, .14351, .00000, + .00000, .08264, .16652, + .30295, .18063, 2.04135, .14899, -.00354, + .00000, .08938, .17297, + .30880, .18364, 2.18817, .15306, .00329, + .00000, .09442, .17772, + .31477, .18663, 2.32211, .15742, .00899, + .00000, .09976, .18272, + .31973, .18907, 2.42165, .16116, .01395, + .00000, .10432, .18696, + .32441, .19132, 2.50715, .16471, .01887, + .00000, .10867, .19097, + .32928, .19361, 2.58779, .16843, .02411, + .00000, .11324, .19514 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .33334, .19548, 2.64720, .17157, .02845, + .00000, .11710, .19865, + .33714, .19722, 2.69723, .17454, .03258, + .00000, .12074, .20195, + .34012, .19855, 2.73356, .17684, .03589, + .00000, .12360, .20451, + .34618, .20121, 2.80119, .18156, .04265, + .00000, .12945, .20972, + .35111, .20329, 2.84338, .18531, .04815, + -.00306, .13414, .21383, + .35637, .20544, 2.86434, .18923, .05406, + .00532, .13913, .21811, + .36155, .20749, 2.87462, .19298, .05988, + .01264, .14396, .22218, + .36599, .20920, 2.87486, .19609, .06486, + .01895, .14801, .22555 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37024, .21077, 2.86777, .19895, .06961, + .02497, .15182, .22863, + .37357, .21197, 2.85625, .20110, .07331, + .02962, .15473, .23094, + .37738, .21327, 2.83640, .20343, .07749, + .03490, .15797, .23342, + .38058, .21433, 2.81503, .20528, .08099, + .03939, .16061, .23541, + .38337, .21523, 2.79267, .20681, .08404, + .04331, .16285, .23703, + .38664, .21622, 2.75936, .20846, .08756, + .04785, .16538, .23875, + .38954, .21705, 2.72533, .20979, .09065, + .05190, .16751, .24014, + .39212, .21774, 2.69186, .21087, .09338, + .05552, .16933, .24126 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39446, .21832, 2.65497, .21169, .09581, + .05876, .17089, .24210, + .39663, .21881, 2.61799, .21236, .09806, + .06181, .17225, .24277, + .39856, .21921, 2.58200, .21286, .10004, + .06453, .17339, .24326, + .40022, .21951, 2.54660, .21317, .10173, + .06688, .17430, .24353, + .40182, .21978, 2.51120, .21341, .10335, + .06917, .17513, .24373, + .40323, .21995, 2.47482, .21347, .10475, + .07119, .17576, .24374, + .40454, .22010, 2.44080, .21349, .10603, + .07307, .17631, .24372, + .40563, .22017, 2.40742, .21336, .10710, + .07467, .17669, .24353 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40670, .22022, 2.37426, .21322, .10814, + .07625, .17703, .24331, + .40763, .22022, 2.34095, .21296, .10904, + .07767, .17725, .24298, + .40848, .22019, 2.30928, .21266, .10985, + .07896, .17740, .24260, + .40923, .22014, 2.27944, .21233, .11057, + .08013, .17750, .24220, + .40988, .22004, 2.24873, .21191, .11118, + .08118, .17749, .24168 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .35315, .20948, 1.66939, .11793, .00000, + .00000, .06581, .14860, + .35997, .21273, 1.77198, .12038, .00000, + .00000, .06931, .15176, + .36943, .21706, 1.91301, .12408, -.00759, + .00000, .07451, .15632, + .37592, .21986, 1.98162, .12672, -.00203, + .00000, .07825, .15949, + .38237, .22256, 2.03894, .12944, .00256, + .00000, .08209, .16268, + .38762, .22464, 2.07696, .13168, .00645, + .00000, .08527, .16527, + .39245, .22651, 2.10628, .13375, .01022, + .00000, .08823, .16763, + .39732, .22833, 2.13048, .13585, .01415, + .00000, .09125, .16998 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .40131, .22978, 2.14453, .13757, .01734, + .00000, .09374, .17188, + .40497, .23106, 2.15345, .13914, .02035, + .00000, .09603, .17360, + .40779, .23200, 2.15848, .14033, .02271, + .00000, .09780, .17490, + .41338, .23378, 2.16352, .14266, .02745, + .00000, .10130, .17738, + .41768, .23503, 2.16175, .14438, .03121, + -.00439, .10401, .17916, + .42211, .23620, 2.13848, .14605, .03517, + .00140, .10676, .18087, + .42629, .23719, 2.10875, .14751, .03897, + .00639, .10931, .18231, + .42972, .23790, 2.07763, .14860, .04214, + .01060, .11134, .18333 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .43287, .23843, 2.04311, .14949, .04510, + .01455, .11316, .18411, + .43521, .23875, 2.01224, .15006, .04735, + .01756, .11447, .18457, + .43773, .23900, 1.97258, .15055, .04984, + .02091, .11584, .18489, + .43974, .23911, 1.93641, .15085, .05188, + .02372, .11688, .18500, + .44140, .23911, 1.90259, .15099, .05361, + .02614, .11771, .18497, + .44320, .23895, 1.85813, .15098, .05558, + .02890, .11852, .18471, + .44466, .23869, 1.81602, .15082, .05724, + .03130, .11911, .18432, + .44584, .23838, 1.77674, .15058, .05868, + .03342, .11956, .18383 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .44674, .23794, 1.73659, .15017, .05991, + .03528, .11982, .18317, + .44748, .23745, 1.69776, .14969, .06102, + .03700, .11998, .18243, + .44805, .23691, 1.66126, .14916, .06198, + .03851, .12003, .18164, + .44838, .23634, 1.62680, .14856, .06275, + .03979, .11997, .18078, + .44865, .23573, 1.59294, .14792, .06347, + .04102, .11986, .17989, + .44872, .23503, 1.55942, .14720, .06407, + .04208, .11965, .17890, + .44875, .23437, 1.52840, .14651, .06460, + .04306, .11943, .17795, + .44862, .23367, 1.49895, .14576, .06501, + .04387, .11912, .17696 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .44846, .23295, 1.46995, .14500, .06540, + .04466, .11880, .17594, + .44817, .23220, 1.44151, .14419, .06570, + .04535, .11840, .17489, + .44783, .23145, 1.41482, .14340, .06595, + .04596, .11800, .17384, + .44746, .23072, 1.38995, .14262, .06617, + .04652, .11759, .17283, + .44699, .22994, 1.36487, .14179, .06633, + .04700, .11713, .17176 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .40692, .23711, 1.61787, .10063, .00000, + .00000, .05701, .13812, + .41429, .24007, 1.66958, .10232, .00000, + .00000, .05984, .14024, + .42419, .24376, 1.74446, .10478, -.00918, + .00000, .06391, .14318, + .43067, .24599, 1.76732, .10647, -.00455, + .00000, .06670, .14506, + .43691, .24800, 1.78127, .10814, -.00072, + .00000, .06949, .14685, + .44188, .24946, 1.78566, .10944, .00244, + .00000, .07175, .14819, + .44630, .25067, 1.78521, .11059, .00545, + .00000, .07378, .14935, + .45065, .25178, 1.78037, .11173, .00855, + .00000, .07581, .15045 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .45409, .25257, 1.77188, .11261, .01104, + .00000, .07744, .15125, + .45717, .25321, 1.76095, .11337, .01334, + .00000, .07891, .15189, + .45946, .25364, 1.75117, .11393, .01512, + .00000, .08001, .15233, + .46383, .25428, 1.72765, .11493, .01865, + .00000, .08213, .15305, + .46696, .25451, 1.70643, .11556, .02141, + -.00457, .08369, .15338, + .46997, .25452, 1.66585, .11606, .02426, + -.00031, .08519, .15351, + .47257, .25429, 1.62170, .11636, .02693, + .00332, .08648, .15340, + .47451, .25389, 1.58029, .11645, .02912, + .00634, .08744, .15306 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .47608, .25332, 1.53777, .11639, .03112, + .00913, .08822, .15255, + .47710, .25271, 1.50197, .11622, .03263, + .01124, .08871, .15198, + .47797, .25182, 1.45828, .11586, .03425, + .01356, .08913, .15115, + .47850, .25094, 1.41991, .11545, .03556, + .01547, .08939, .15030, + .47877, .25006, 1.38511, .11501, .03664, + .01709, .08953, .14944, + .47878, .24878, 1.34097, .11429, .03785, + .01892, .08954, .14819, + .47853, .24749, 1.30028, .11354, .03884, + .02050, .08945, .14693, + .47812, .24620, 1.26309, .11277, .03967, + .02186, .08929, .14569 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .47742, .24482, 1.22614, .11192, .04037, + .02305, .08899, .14433, + .47659, .24342, 1.19099, .11103, .04097, + .02412, .08864, .14296, + .47565, .24203, 1.15849, .11013, .04147, + .02505, .08825, .14161, + .47459, .24066, 1.12833, .10925, .04186, + .02584, .08782, .14029, + .47346, .23927, 1.09895, .10834, .04221, + .02658, .08735, .13895, + .47217, .23781, 1.07042, .10738, .04246, + .02719, .08682, .13757, + .47092, .23644, 1.04420, .10647, .04269, + .02775, .08631, .13627, + .46955, .23508, 1.01966, .10556, .04284, + .02822, .08578, .13498 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .46815, .23371, .99567, .10466, .04297, + .02866, .08523, .13369, + .46665, .23232, .97240, .10373, .04306, + .02903, .08465, .13238, + .46517, .23097, .95074, .10284, .04311, + .02936, .08408, .13113, + .46372, .22970, .93069, .10198, .04315, + .02965, .08353, .12993, + .46215, .22835, .91068, .10109, .04313, + .02989, .08295, .12870 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45354, .25867, 1.51599, .08637, .00000, + .00000, .05019, .12877, + .46102, .26101, 1.53458, .08748, .00000, + .00000, .05242, .12997, + .47058, .26374, 1.56677, .08906, -.00957, + .00000, .05553, .13136, + .47657, .26514, 1.56223, .09007, -.00565, + .00000, .05761, .13215, + .48212, .26625, 1.55094, .09100, -.00243, + .00000, .05962, .13276, + .48628, .26694, 1.53636, .09171, .00020, + .00000, .06116, .13315, + .48988, .26738, 1.51967, .09229, .00266, + .00000, .06253, .13337, + .49329, .26763, 1.49952, .09279, .00516, + .00000, .06388, .13348 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .49586, .26765, 1.47953, .09314, .00713, + .00000, .06491, .13346, + .49803, .26753, 1.45877, .09340, .00896, + .00000, .06581, .13334, + .49958, .26736, 1.44190, .09358, .01035, + .00000, .06648, .13318, + .50227, .26675, 1.40503, .09380, .01309, + .00000, .06770, .13269, + .50387, .26588, 1.37534, .09381, .01518, + -.00437, .06852, .13206, + .50505, .26470, 1.32878, .09366, .01731, + -.00112, .06924, .13115, + .50574, .26325, 1.28045, .09333, .01928, + .00163, .06977, .13003, + .50591, .26172, 1.23688, .09291, .02087, + .00389, .07009, .12888 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .50569, .26003, 1.19353, .09236, .02231, + .00596, .07027, .12760, + .50515, .25855, 1.15802, .09183, .02335, + .00749, .07029, .12644, + .50419, .25660, 1.11564, .09109, .02448, + .00917, .07022, .12495, + .50309, .25478, 1.07919, .09036, .02536, + .01054, .07006, .12356, + .50187, .25306, 1.04663, .08964, .02607, + .01168, .06984, .12225, + .49998, .25075, 1.00613, .08865, .02685, + .01296, .06945, .12049, + .49797, .24851, .96938, .08767, .02749, + .01406, .06901, .11882, + .49594, .24637, .93619, .08671, .02799, + .01498, .06855, .11721 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .49360, .24416, .90376, .08569, .02841, + .01579, .06801, .11554, + .49120, .24195, .87320, .08468, .02875, + .01651, .06745, .11390, + .48882, .23981, .84526, .08370, .02902, + .01712, .06688, .11234, + .48639, .23777, .81962, .08274, .02921, + .01761, .06629, .11084, + .48392, .23572, .79481, .08178, .02938, + .01809, .06571, .10932, + .48128, .23363, .77098, .08080, .02948, + .01848, .06508, .10782, + .47878, .23167, .74920, .07987, .02957, + .01883, .06447, .10642, + .47625, .22978, .72901, .07898, .02960, + .01911, .06387, .10504 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .47371, .22789, .70936, .07808, .02962, + .01937, .06327, .10368, + .47109, .22597, .69044, .07718, .02961, + .01958, .06265, .10234, + .46856, .22415, .67292, .07631, .02959, + .01977, .06204, .10107, + .46615, .22241, .65680, .07549, .02955, + .01993, .06146, .09987, + .46359, .22064, .64083, .07465, .02948, + .02005, .06087, .09863 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .50329, .27821, 1.36492, .07142, .00000, + .00000, .04303, .11684, + .50999, .27954, 1.35799, .07209, .00000, + .00000, .04465, .11691, + .51809, .28060, 1.35707, .07294, -.00926, + .00000, .04681, .11677, + .52275, .28078, 1.33303, .07340, -.00605, + .00000, .04817, .11650, + .52669, .28058, 1.30441, .07381, -.00340, + .00000, .04947, .11601, + .52942, .28013, 1.27732, .07404, -.00129, + .00000, .05044, .11545, + .53153, .27949, 1.25027, .07419, .00066, + .00000, .05125, .11483, + .53330, .27859, 1.22073, .07427, .00262, + .00000, .05199, .11410 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .53437, .27762, 1.19405, .07425, .00416, + .00000, .05253, .11338, + .53510, .27654, 1.16791, .07418, .00555, + .00000, .05297, .11262, + .53550, .27563, 1.14730, .07408, .00661, + .00000, .05329, .11201, + .53565, .27344, 1.10405, .07378, .00866, + .00000, .05381, .11053, + .53499, .27127, 1.07047, .07337, .01021, + -.00387, .05406, .10916, + .53367, .26864, 1.02313, .07281, .01175, + -.00147, .05419, .10751, + .53177, .26570, .97543, .07212, .01315, + .00053, .05421, .10568, + .52957, .26292, .93360, .07138, .01426, + .00216, .05409, .10397 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .52695, .26002, .89293, .07059, .01523, + .00362, .05384, .10219, + .52450, .25750, .86023, .06987, .01594, + .00470, .05357, .10067, + .52122, .25437, .82195, .06893, .01668, + .00587, .05316, .09879, + .51809, .25155, .78951, .06806, .01724, + .00681, .05274, .09712, + .51503, .24894, .76092, .06723, .01770, + .00760, .05232, .09557, + .51086, .24555, .72593, .06616, .01817, + .00845, .05171, .09357, + .50675, .24234, .69459, .06511, .01854, + .00917, .05110, .09170, + .50277, .23932, .66662, .06412, .01884, + .00978, .05049, .08995 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .49855, .23625, .63966, .06310, .01904, + .01029, .04985, .08819, + .49434, .23324, .61451, .06210, .01921, + .01074, .04919, .08649, + .49028, .23040, .59173, .06113, .01934, + .01112, .04856, .08488, + .48632, .22769, .57103, .06021, .01942, + .01143, .04793, .08338, + .48233, .22500, .55111, .05930, .01947, + .01171, .04731, .08188, + .47826, .22231, .53220, .05838, .01949, + .01194, .04666, .08041, + .47442, .21979, .51501, .05752, .01949, + .01214, .04607, .07904, + .47064, .21738, .49922, .05671, .01946, + .01229, .04548, .07773 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .46685, .21498, .48390, .05590, .01943, + .01244, .04490, .07645, + .46305, .21261, .46929, .05509, .01937, + .01255, .04432, .07518, + .45941, .21035, .45583, .05432, .01930, + .01264, .04374, .07399, + .45596, .20821, .44348, .05360, .01924, + .01272, .04321, .07287, + .45240, .20605, .43134, .05286, .01915, + .01278, .04266, .07175 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .54494, .29137, 1.21121, .05917, .00000, + .00000, .03677, .10437, + .55019, .29143, 1.18951, .05953, .00000, + .00000, .03793, .10356, + .55588, .29060, 1.16916, .05988, -.00860, + .00000, .03939, .10228, + .55862, .28940, 1.13495, .06007, -.00594, + .00000, .04030, .10122, + .56048, .28778, 1.09780, .06014, -.00375, + .00000, .04109, .09998, + .56135, .28611, 1.06498, .06010, -.00202, + .00000, .04165, .09882, + .56165, .28431, 1.03348, .06000, -.00044, + .00000, .04210, .09768, + .56146, .28223, 1.00029, .05981, .00112, + .00000, .04247, .09644 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .56084, .28027, .97136, .05959, .00234, + .00000, .04270, .09531, + .55989, .27829, .94371, .05934, .00344, + .00000, .04286, .09416, + .55895, .27665, .92225, .05910, .00425, + .00000, .04296, .09326, + .55632, .27297, .87801, .05852, .00584, + .00000, .04302, .09130, + .55325, .26959, .84435, .05796, .00700, + -.00335, .04297, .08950, + .54931, .26565, .79948, .05722, .00815, + -.00154, .04281, .08747, + .54470, .26141, .75519, .05634, .00917, + -.00004, .04249, .08537, + .54011, .25752, .71699, .05552, .00997, + .00116, .04212, .08343 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .53515, .25354, .68040, .05464, .01066, + .00224, .04171, .08144, + .53083, .25017, .65140, .05386, .01115, + .00301, .04128, .07983, + .52529, .24606, .61788, .05288, .01165, + .00386, .04075, .07785, + .52022, .24245, .58980, .05202, .01203, + .00452, .04022, .07611, + .51545, .23911, .56529, .05122, .01232, + .00508, .03971, .07453, + .50918, .23485, .53562, .05015, .01262, + .00566, .03904, .07255, + .50316, .23086, .50937, .04915, .01284, + .00615, .03838, .07070, + .49745, .22717, .48612, .04822, .01301, + .00657, .03775, .06901 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .49155, .22346, .46395, .04726, .01312, + .00690, .03710, .06732, + .48577, .21986, .44342, .04633, .01320, + .00720, .03647, .06570, + .48027, .21647, .42497, .04546, .01325, + .00745, .03586, .06421, + .47499, .21328, .40836, .04463, .01327, + .00765, .03526, .06281, + .46970, .21013, .39249, .04381, .01327, + .00781, .03466, .06144, + .46441, .20703, .37749, .04302, .01324, + .00795, .03407, .06011, + .45943, .20413, .36392, .04227, .01322, + .00808, .03353, .05886, + .45465, .20137, .35156, .04154, .01317, + .00816, .03300, .05770 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .44988, .19864, .33963, .04083, .01311, + .00824, .03247, .05655, + .44512, .19596, .32830, .04014, .01304, + .00830, .03195, .05543, + .44058, .19342, .31790, .03949, .01297, + .00835, .03146, .05438, + .43631, .19105, .30842, .03887, .01290, + .00838, .03099, .05339, + .43195, .18863, .29914, .03825, .01281, + .00840, .03052, .05243 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .57900, .29911, 1.06667, .04913, .00000, + .00000, .03116, .09146, + .58223, .29775, 1.03645, .04931, .00000, + .00000, .03194, .09008, + .58474, .29499, 1.00474, .04948, -.00785, + .00000, .03291, .08793, + .58510, .29242, .96565, .04946, -.00562, + .00000, .03348, .08636, + .58448, .28939, .92483, .04933, -.00378, + .00000, .03391, .08464, + .58319, .28655, .88984, .04915, -.00234, + .00000, .03419, .08317, + .58144, .28368, .85702, .04892, -.00105, + .00000, .03439, .08172, + .57908, .28051, .82310, .04862, .00022, + .00000, .03452, .08016 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .57660, .27763, .79419, .04828, .00119, + .00000, .03456, .07882, + .57389, .27478, .76693, .04793, .00207, + .00000, .03454, .07752, + .57158, .27250, .74599, .04765, .00272, + .00000, .03448, .07648, + .56604, .26749, .70336, .04697, .00395, + .00000, .03432, .07427, + .56061, .26299, .67136, .04629, .00485, + -.00286, .03407, .07237, + .55406, .25794, .63026, .04548, .00572, + -.00148, .03373, .07025, + .54682, .25264, .59026, .04459, .00649, + -.00033, .03327, .06808, + .53998, .24780, .55625, .04374, .00708, + .00057, .03280, .06612 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .53286, .24293, .52404, .04285, .00758, + .00138, .03231, .06418, + .52674, .23890, .49879, .04211, .00793, + .00196, .03185, .06257, + .51914, .23404, .46995, .04118, .00828, + .00258, .03124, .06067, + .51233, .22977, .44600, .04036, .00854, + .00306, .03071, .05903, + .50607, .22588, .42528, .03957, .00873, + .00345, .03020, .05757, + .49795, .22096, .40044, .03859, .00892, + .00387, .02955, .05571, + .49027, .21642, .37863, .03768, .00906, + .00422, .02892, .05402, + .48306, .21225, .35948, .03683, .00915, + .00450, .02832, .05248 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .47578, .20806, .34139, .03597, .00921, + .00473, .02771, .05098, + .46869, .20404, .32474, .03515, .00924, + .00493, .02711, .04955, + .46198, .20031, .30989, .03437, .00925, + .00509, .02655, .04822, + .45562, .19683, .29660, .03366, .00924, + .00522, .02604, .04698, + .44931, .19338, .28395, .03295, .00922, + .00533, .02552, .04578, + .44306, .19000, .27209, .03225, .00918, + .00541, .02500, .04463, + .43722, .18686, .26139, .03160, .00915, + .00549, .02452, .04356, + .43163, .18390, .25172, .03099, .00909, + .00553, .02406, .04258 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42607, .18099, .24242, .03039, .00903, + .00558, .02361, .04161, + .42059, .17814, .23364, .02979, .00897, + .00561, .02316, .04066, + .41541, .17544, .22563, .02923, .00890, + .00564, .02275, .03977, + .41054, .17294, .21833, .02871, .00883, + .00565, .02236, .03895, + .40558, .17039, .21124, .02820, .00876, + .00565, .02196, .03814 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .60574, .30222, .93488, .04098, .00000, + .00000, .02605, .07836, + .60651, .29940, .89991, .04104, .00000, + .00000, .02659, .07664, + .60538, .29461, .86160, .04103, -.00707, + .00000, .02724, .07410, + .60311, .29069, .82054, .04092, -.00520, + .00000, .02757, .07229, + .59977, .28630, .77858, .04068, -.00363, + .00000, .02780, .07041, + .59619, .28236, .74352, .04039, -.00244, + .00000, .02790, .06877, + .59226, .27849, .71111, .04008, -.00137, + .00000, .02794, .06723, + .58766, .27433, .67807, .03970, -.00033, + .00000, .02790, .06561 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .58326, .27065, .65025, .03936, .00046, + .00000, .02782, .06417, + .57877, .26702, .62434, .03896, .00116, + .00000, .02772, .06285, + .57511, .26414, .60463, .03861, .00169, + .00000, .02762, .06180, + .56675, .25797, .56483, .03790, .00266, + .00000, .02729, .05960, + .55898, .25260, .53525, .03720, .00337, + -.00242, .02697, .05774, + .54998, .24658, .49836, .03637, .00404, + -.00134, .02654, .05572, + .54035, .24039, .46295, .03548, .00462, + -.00046, .02605, .05363, + .53142, .23484, .43315, .03465, .00506, + .00023, .02556, .05179 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .52229, .22929, .40523, .03381, .00542, + .00083, .02503, .05001, + .51461, .22476, .38358, .03312, .00568, + .00127, .02457, .04853, + .50524, .21929, .35903, .03224, .00594, + .00173, .02401, .04681, + .49696, .21454, .33885, .03147, .00611, + .00208, .02349, .04535, + .48937, .21026, .32149, .03077, .00624, + .00236, .02302, .04404, + .47967, .20493, .30087, .02989, .00636, + .00267, .02241, .04238, + .47061, .20001, .28291, .02907, .00644, + .00292, .02183, .04092, + .46222, .19548, .26727, .02831, .00650, + .00312, .02131, .03959 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .45379, .19105, .25261, .02755, .00652, + .00328, .02077, .03829, + .44563, .18680, .23922, .02684, .00653, + .00341, .02025, .03705, + .43801, .18284, .22732, .02618, .00652, + .00352, .01977, .03592, + .43082, .17917, .21674, .02557, .00650, + .00361, .01931, .03489, + .42371, .17557, .20674, .02496, .00647, + .00367, .01886, .03388, + .41675, .17207, .19740, .02436, .00643, + .00373, .01843, .03292, + .41026, .16882, .18903, .02381, .00639, + .00377, .01802, .03203, + .40410, .16576, .18150, .02328, .00634, + .00380, .01764, .03122 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .39800, .16276, .17430, .02278, .00628, + .00382, .01725, .03041, + .39202, .15984, .16752, .02228, .00622, + .00384, .01689, .02963, + .38637, .15711, .16136, .02181, .00617, + .00385, .01655, .02890, + .38108, .15455, .15576, .02138, .00611, + .00386, .01623, .02824, + .37572, .15199, .15032, .02096, .00605, + .00385, .01590, .02758 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .62544, .30117, .81557, .03435, .00000, + .00000, .02148, .06567, + .62343, .29693, .77820, .03431, .00000, + .00000, .02188, .06383, + .61830, .29019, .73639, .03414, -.00634, + .00000, .02230, .06125, + .61327, .28500, .69516, .03393, -.00474, + .00000, .02250, .05939, + .60707, .27936, .65386, .03363, -.00342, + .00000, .02259, .05748, + .60110, .27446, .61979, .03331, -.00240, + .00000, .02261, .05584, + .59502, .26970, .58872, .03295, -.00151, + .00000, .02256, .05432, + .58823, .26463, .55743, .03251, -.00065, + .00000, .02244, .05278 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .58202, .26019, .53139, .03210, .00000, + .00000, .02232, .05144, + .57578, .25595, .50739, .03170, .00057, + .00000, .02215, .05015, + .57073, .25264, .48923, .03139, .00098, + .00000, .02200, .04915, + .55969, .24551, .45300, .03060, .00176, + .00000, .02166, .04710, + .54984, .23939, .42620, .02991, .00233, + -.00203, .02130, .04539, + .53859, .23267, .39359, .02914, .00285, + -.00119, .02085, .04352, + .52676, .22580, .36265, .02831, .00330, + -.00050, .02035, .04165, + .51600, .21970, .33695, .02754, .00362, + .00002, .01987, .04001 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .50515, .21370, .31307, .02675, .00390, + .00049, .01938, .03841, + .49615, .20877, .29473, .02609, .00408, + .00081, .01895, .03713, + .48525, .20295, .27409, .02531, .00425, + .00115, .01843, .03566, + .47572, .19792, .25724, .02462, .00438, + .00142, .01795, .03440, + .46708, .19339, .24286, .02398, .00447, + .00163, .01752, .03328, + .45615, .18776, .22595, .02321, .00455, + .00185, .01698, .03190, + .44602, .18262, .21135, .02248, .00461, + .00203, .01649, .03065, + .43667, .17795, .19870, .02183, .00463, + .00217, .01603, .02954 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .42735, .17340, .18693, .02120, .00464, + .00228, .01556, .02843, + .41844, .16902, .17624, .02057, .00463, + .00237, .01511, .02741, + .41017, .16494, .16681, .01998, .00461, + .00244, .01471, .02651, + .40242, .16121, .15848, .01943, .00459, + .00250, .01432, .02567, + .39479, .15759, .15059, .01891, .00456, + .00255, .01395, .02485, + .38732, .15406, .14333, .01841, .00452, + .00258, .01359, .02406, + .38039, .15081, .13685, .01794, .00448, + .00260, .01324, .02335, + .37386, .14776, .13102, .01751, .00444, + .00262, .01292, .02270 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .36740, .14475, .12545, .01709, .00440, + .00264, .01262, .02205, + .36109, .14185, .12024, .01669, .00434, + .00264, .01232, .02144, + .35514, .13914, .11553, .01630, .00430, + .00264, .01204, .02087, + .34961, .13662, .11127, .01595, .00425, + .00264, .01179, .02034, + .34407, .13409, .10716, .01557, .00420, + .00264, .01152, .01982 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .63854, .29627, .70726, .02857, .00000, + .00000, .01760, .05403, + .63340, .29078, .66913, .02857, .00000, + .00000, .01787, .05217, + .62403, .28233, .62597, .02839, -.00564, + .00000, .01812, .04962, + .61604, .27610, .58585, .02817, -.00427, + .00000, .01820, .04785, + .60703, .26939, .54620, .02782, -.00313, + .00000, .01821, .04606, + .59872, .26364, .51400, .02749, -.00228, + .00000, .01814, .04455, + .59053, .25814, .48493, .02713, -.00153, + .00000, .01803, .04314, + .58159, .25236, .45590, .02669, -.00082, + .00000, .01788, .04170 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .57358, .24737, .43208, .02629, -.00029, + .00000, .01772, .04047, + .56575, .24262, .41030, .02590, .00018, + .00000, .01753, .03928, + .55952, .23890, .39392, .02559, .00052, + .00000, .01739, .03837, + .54605, .23105, .36145, .02486, .00115, + .00000, .01699, .03657, + .53423, .22442, .33764, .02421, .00159, + -.00168, .01664, .03505, + .52103, .21719, .30926, .02347, .00200, + -.00103, .01620, .03345, + .50737, .20986, .28264, .02269, .00234, + -.00050, .01571, .03183, + .49507, .20340, .26074, .02196, .00259, + -.00009, .01529, .03046 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48281, .19706, .24063, .02124, .00279, + .00026, .01484, .02911, + .47275, .19193, .22522, .02065, .00293, + .00051, .01447, .02803, + .46065, .18588, .20812, .01994, .00306, + .00077, .01401, .02676, + .45015, .18069, .19427, .01933, .00315, + .00097, .01361, .02571, + .44067, .17605, .18255, .01879, .00321, + .00112, .01326, .02478, + .42884, .17032, .16884, .01807, .00327, + .00129, .01277, .02367, + .41791, .16512, .15709, .01745, .00329, + .00141, .01234, .02265, + .40789, .16043, .14698, .01690, .00331, + .00151, .01196, .02173 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .39804, .15582, .13766, .01633, .00330, + .00158, .01157, .02085, + .38859, .15145, .12923, .01580, .00329, + .00165, .01120, .02003, + .37983, .14746, .12180, .01531, .00327, + .00170, .01087, .01929, + .37171, .14377, .11530, .01488, .00325, + .00174, .01056, .01862, + .36376, .14017, .10920, .01446, .00322, + .00177, .01025, .01797, + .35603, .13669, .10361, .01401, .00319, + .00179, .00995, .01737, + .34888, .13348, .09864, .01360, .00316, + .00181, .00968, .01682, + .34215, .13053, .09416, .01324, .00312, + .00182, .00943, .01630 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .33553, .12763, .08991, .01290, .00309, + .00183, .00918, .01579, + .32909, .12480, .08597, .01256, .00305, + .00183, .00894, .01530, + .32306, .12217, .08241, .01226, .00300, + .00182, .00872, .01484, + .31746, .11972, .07920, .01196, .00297, + .00183, .00851, .01444, + .31182, .11730, .07611, .01167, .00293, + .00182, .00831, .01405 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .64381, .28939, .60888, .02475, .00000, + .00000, .01364, .04278, + .63577, .28256, .57097, .02455, .00000, + .00000, .01388, .04128, + .62232, .27250, .52782, .02425, -.00497, + .00000, .01416, .03899, + .61170, .26514, .48961, .02389, -.00379, + .00000, .01424, .03747, + .60004, .25745, .45239, .02345, -.00282, + .00000, .01425, .03592, + .58961, .25097, .42252, .02307, -.00209, + .00000, .01422, .03457, + .57944, .24486, .39582, .02268, -.00146, + .00000, .01411, .03336, + .56856, .23847, .36947, .02224, -.00088, + .00000, .01395, .03212 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .55906, .23300, .34802, .02180, -.00044, + .00000, .01380, .03108, + .54983, .22782, .32857, .02136, -.00006, + .00000, .01362, .03014, + .54254, .22378, .31408, .02102, .00021, + .00000, .01347, .02940, + .52696, .21540, .28551, .02030, .00071, + .00000, .01313, .02785, + .51353, .20842, .26477, .01970, .00107, + -.00138, .01281, .02656, + .49871, .20081, .24052, .01896, .00139, + -.00087, .01244, .02522, + .48352, .19318, .21793, .01822, .00165, + -.00046, .01202, .02391, + .46999, .18652, .19953, .01758, .00185, + -.00014, .01164, .02274 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .45663, .18005, .18281, .01694, .00200, + .00013, .01124, .02163, + .44572, .17481, .17018, .01641, .00210, + .00032, .01092, .02079, + .43276, .16868, .15622, .01577, .00220, + .00051, .01054, .01976, + .42159, .16346, .14500, .01522, .00226, + .00065, .01021, .01890, + .41155, .15884, .13559, .01473, .00230, + .00077, .00989, .01817, + .39899, .15316, .12463, .01417, .00233, + .00089, .00950, .01726, + .38757, .14798, .11534, .01360, .00235, + .00098, .00916, .01647, + .37723, .14331, .10741, .01307, .00236, + .00106, .00884, .01578 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .36703, .13879, .10012, .01260, .00235, + .00111, .00854, .01507, + .35733, .13453, .09359, .01215, .00234, + .00116, .00824, .01443, + .34837, .13062, .08790, .01172, .00232, + .00119, .00795, .01387, + .34005, .12706, .08291, .01137, .00230, + .00122, .00771, .01336, + .33193, .12360, .07826, .01102, .00227, + .00123, .00746, .01284, + .32410, .12026, .07401, .01067, .00224, + .00124, .00723, .01235, + .31690, .11719, .07022, .01034, .00222, + .00125, .00701, .01192, + .31016, .11435, .06689, .01004, .00219, + .00126, .00682, .01151 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30354, .11156, .06370, .00976, .00217, + .00127, .00663, .01112, + .29711, .10887, .06076, .00948, .00213, + .00127, .00645, .01077, + .29113, .10636, .05812, .00922, .00210, + .00126, .00626, .01044, + .28556, .10406, .05575, .00897, .00207, + .00126, .00609, .01014, + .27998, .10176, .05348, .00874, .00204, + .00125, .00594, .00984 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .64372, .27876, .51765, .02066, .00000, + .00000, .01080, .03356, + .63253, .27098, .48110, .02050, .00000, + .00000, .01104, .03217, + .61498, .25957, .43952, .02012, -.00432, + .00000, .01123, .03027, + .60163, .25151, .40399, .01980, -.00332, + .00000, .01127, .02894, + .58736, .24315, .36975, .01939, -.00250, + .00000, .01121, .02765, + .57495, .23606, .34267, .01896, -.00188, + .00000, .01112, .02658, + .56302, .22949, .31868, .01857, -.00136, + .00000, .01103, .02555, + .55038, .22271, .29525, .01815, -.00088, + .00000, .01090, .02448 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .53940, .21698, .27635, .01777, -.00052, + .00000, .01074, .02360, + .52891, .21155, .25941, .01737, -.00021, + .00000, .01056, .02277, + .52071, .20732, .24681, .01705, .00002, + .00000, .01043, .02215, + .50332, .19863, .22229, .01639, .00041, + .00000, .01014, .02089, + .48861, .19137, .20450, .01579, .00070, + -.00113, .00986, .01984, + .47249, .18362, .18411, .01516, .00094, + -.00073, .00952, .01874, + .45610, .17591, .16536, .01452, .00115, + -.00041, .00914, .01769, + .44168, .16919, .15027, .01391, .00130, + -.00017, .00880, .01680 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .42757, .16269, .13666, .01331, .00142, + .00004, .00848, .01591, + .41605, .15757, .12648, .01284, .00149, + .00018, .00821, .01519, + .40246, .15150, .11528, .01233, .00156, + .00033, .00788, .01439, + .39082, .14636, .10637, .01187, .00160, + .00043, .00760, .01372, + .38048, .14180, .09894, .01142, .00164, + .00053, .00736, .01314, + .36762, .13624, .09040, .01090, .00165, + .00060, .00704, .01245, + .35593, .13126, .08319, .01046, .00166, + .00067, .00676, .01183, + .34536, .12677, .07708, .01006, .00167, + .00073, .00650, .01125 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33501, .12241, .07151, .00967, .00166, + .00077, .00625, .01074, + .32524, .11832, .06655, .00929, .00165, + .00080, .00602, .01026, + .31628, .11459, .06225, .00893, .00163, + .00082, .00579, .00983, + .30802, .11119, .05852, .00861, .00161, + .00084, .00559, .00942, + .29997, .10789, .05506, .00831, .00160, + .00085, .00541, .00903, + .29222, .10473, .05190, .00804, .00158, + .00086, .00522, .00868, + .28507, .10184, .04911, .00778, .00155, + .00087, .00506, .00835, + .27844, .09916, .04666, .00753, .00153, + .00087, .00490, .00806 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27195, .09655, .04432, .00729, .00151, + .00088, .00475, .00777, + .26566, .09405, .04220, .00706, .00149, + .00088, .00461, .00749, + .25978, .09173, .04027, .00687, .00145, + .00086, .00447, .00724, + .25434, .08959, .03855, .00668, .00143, + .00086, .00434, .00702, + .24894, .08745, .03691, .00649, .00141, + .00086, .00423, .00680 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .63712, .26637, .43346, .01746, .00000, + .00000, .00826, .02550, + .62304, .25767, .39910, .01723, .00000, + .00000, .00847, .02443, + .60166, .24525, .35997, .01685, -.00371, + .00000, .00863, .02288, + .58601, .23643, .32766, .01645, -.00287, + .00000, .00869, .02185, + .56938, .22760, .29694, .01607, -.00216, + .00000, .00868, .02072, + .55511, .22018, .27295, .01569, -.00166, + .00000, .00859, .01985, + .54165, .21328, .25189, .01527, -.00123, + .00000, .00849, .01905, + .52758, .20619, .23145, .01483, -.00082, + .00000, .00836, .01822 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51551, .20022, .21522, .01443, -.00054, + .00000, .00825, .01750, + .50396, .19463, .20072, .01406, -.00028, + .00000, .00810, .01688, + .49496, .19034, .19002, .01379, -.00010, + .00000, .00794, .01643, + .47621, .18150, .16941, .01314, .00022, + .00000, .00768, .01540, + .46042, .17426, .15459, .01265, .00043, + -.00091, .00744, .01456, + .44332, .16650, .13781, .01208, .00063, + -.00060, .00715, .01371, + .42617, .15882, .12261, .01147, .00079, + -.00035, .00688, .01286, + .41114, .15218, .11049, .01095, .00090, + -.00016, .00661, .01214 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39647, .14582, .09966, .01045, .00099, + -.00001, .00633, .01147, + .38461, .14076, .09161, .01007, .00105, + .00010, .00612, .01094, + .37078, .13488, .08293, .00956, .00110, + .00021, .00584, .01033, + .35898, .12991, .07604, .00916, .00113, + .00029, .00560, .00981, + .34849, .12552, .07030, .00882, .00115, + .00035, .00540, .00936, + .33552, .12021, .06381, .00839, .00117, + .00042, .00516, .00883, + .32382, .11542, .05837, .00802, .00117, + .00046, .00494, .00836, + .31330, .11113, .05380, .00768, .00117, + .00050, .00473, .00793 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30307, .10702, .04967, .00733, .00116, + .00053, .00453, .00754, + .29344, .10316, .04601, .00702, .00115, + .00055, .00433, .00719, + .28461, .09967, .04287, .00674, .00114, + .00057, .00416, .00686, + .27650, .09647, .04014, .00649, .00113, + .00058, .00402, .00656, + .26863, .09340, .03763, .00626, .00111, + .00059, .00387, .00627, + .26109, .09047, .03537, .00601, .00109, + .00059, .00374, .00601, + .25418, .08778, .03339, .00578, .00107, + .00059, .00360, .00578, + .24773, .08531, .03163, .00559, .00106, + .00059, .00348, .00557 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24143, .08290, .02998, .00543, .00104, + .00059, .00337, .00536, + .23538, .08060, .02845, .00525, .00103, + .00060, .00326, .00516, + .22976, .07845, .02712, .00508, .00101, + .00060, .00315, .00499, + .22458, .07648, .02591, .00493, .00099, + .00059, .00307, .00481, + .21943, .07455, .02475, .00478, .00098, + .00059, .00297, .00465 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .62490, .25199, .35548, .01457, .00000, + .00000, .00622, .01896, + .60811, .24261, .32406, .01435, .00000, + .00000, .00644, .01810, + .58332, .22931, .28844, .01386, -.00315, + .00000, .00661, .01695, + .56544, .22020, .25967, .01352, -.00244, + .00000, .00663, .01615, + .54685, .21097, .23285, .01311, -.00185, + .00000, .00663, .01529, + .53117, .20330, .21209, .01270, -.00143, + .00000, .00656, .01462, + .51639, .19624, .19403, .01233, -.00107, + .00000, .00648, .01400, + .50107, .18907, .17678, .01192, -.00075, + .00000, .00635, .01336 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48800, .18301, .16315, .01162, -.00051, + .00000, .00622, .01284, + .47567, .17740, .15115, .01127, -.00031, + .00000, .00610, .01232, + .46615, .17312, .14233, .01101, -.00016, + .00000, .00601, .01190, + .44636, .16429, .12546, .01046, .00008, + .00000, .00581, .01109, + .42995, .15709, .11341, .00998, .00026, + -.00072, .00559, .01048, + .41225, .14948, .09998, .00945, .00041, + -.00048, .00536, .00985, + .39457, .14201, .08796, .00893, .00053, + -.00029, .00511, .00922, + .37916, .13561, .07851, .00851, .00062, + -.00015, .00489, .00866 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36424, .12948, .07016, .00811, .00068, + -.00003, .00467, .00811, + .35236, .12461, .06402, .00776, .00072, + .00005, .00449, .00773, + .33846, .11897, .05742, .00738, .00076, + .00012, .00428, .00728, + .32663, .11424, .05230, .00705, .00079, + .00019, .00409, .00689, + .31617, .11010, .04805, .00675, .00080, + .00024, .00393, .00656, + .30347, .10506, .04329, .00636, .00081, + .00028, .00372, .00616, + .29197, .10056, .03933, .00605, .00081, + .00031, .00354, .00583, + .28160, .09656, .03603, .00578, .00081, + .00033, .00340, .00552 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27164, .09274, .03307, .00553, .00080, + .00035, .00325, .00521, + .26228, .08915, .03046, .00527, .00080, + .00037, .00312, .00495, + .25374, .08591, .02824, .00502, .00080, + .00039, .00298, .00473, + .24594, .08296, .02637, .00482, .00078, + .00040, .00286, .00452, + .23837, .08012, .02463, .00463, .00077, + .00040, .00274, .00431, + .23115, .07743, .02307, .00445, .00076, + .00041, .00263, .00411, + .22455, .07498, .02171, .00427, .00075, + .00041, .00254, .00394, + .21843, .07272, .02051, .00412, .00073, + .00040, .00245, .00379 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21247, .07052, .01939, .00397, .00072, + .00041, .00236, .00364, + .20673, .06842, .01837, .00384, .00070, + .00040, .00228, .00350, + .20143, .06648, .01747, .00372, .00070, + .00040, .00220, .00335, + .19652, .06471, .01667, .00362, .00068, + .00040, .00214, .00323, + .19169, .06295, .01592, .00350, .00067, + .00040, .00207, .00312 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60738, .23602, .28361, .01185, .00000, + .00000, .00473, .01383, + .58819, .22618, .25567, .01156, .00000, + .00000, .00493, .01326, + .56040, .21240, .22435, .01113, -.00262, + .00000, .00506, .01235, + .54056, .20309, .19964, .01089, -.00204, + .00000, .00510, .01167, + .52037, .19364, .17677, .01050, -.00155, + .00000, .00506, .01109, + .50348, .18593, .15934, .01013, -.00120, + .00000, .00501, .01057, + .48770, .17886, .14442, .00980, -.00092, + .00000, .00493, .01005, + .47144, .17171, .13017, .00948, -.00066, + .00000, .00485, .00954 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .45776, .16569, .11914, .00910, -.00046, + .00000, .00472, .00919, + .44492, .16012, .10945, .00880, -.00031, + .00000, .00463, .00883, + .43502, .15586, .10243, .00855, -.00020, + .00000, .00456, .00854, + .41448, .14727, .08906, .00814, .00000, + .00000, .00433, .00795, + .39768, .14030, .07965, .00772, .00014, + -.00056, .00419, .00746, + .37971, .13296, .06932, .00727, .00025, + -.00039, .00400, .00696, + .36188, .12580, .06015, .00684, .00035, + -.00025, .00379, .00648, + .34646, .11967, .05304, .00648, .00041, + -.00014, .00360, .00608 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33166, .11383, .04687, .00610, .00047, + -.00005, .00341, .00572, + .31986, .10924, .04238, .00583, .00050, + .00001, .00328, .00540, + .30613, .10393, .03761, .00552, .00052, + .00007, .00312, .00507, + .29453, .09949, .03390, .00525, .00054, + .00012, .00298, .00481, + .28433, .09562, .03091, .00500, .00055, + .00016, .00285, .00456, + .27190, .09095, .02755, .00473, .00055, + .00019, .00270, .00426, + .26079, .08678, .02481, .00448, .00056, + .00021, .00255, .00401, + .25085, .08308, .02258, .00424, .00056, + .00023, .00245, .00377 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24122, .07958, .02058, .00406, .00056, + .00026, .00232, .00356, + .23225, .07631, .01885, .00387, .00055, + .00026, .00221, .00337, + .22412, .07333, .01739, .00369, .00054, + .00027, .00212, .00320, + .21671, .07064, .01615, .00353, .00054, + .00028, .00203, .00305, + .20956, .06807, .01502, .00338, .00053, + .00029, .00194, .00293, + .20276, .06563, .01400, .00323, .00052, + .00028, .00186, .00279, + .19655, .06342, .01313, .00310, .00051, + .00029, .00178, .00267, + .19081, .06139, .01238, .00298, .00050, + .00028, .00172, .00254 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18523, .05942, .01169, .00286, .00049, + .00029, .00164, .00243, + .17989, .05754, .01106, .00276, .00048, + .00028, .00159, .00233, + .17495, .05582, .01048, .00266, .00048, + .00029, .00155, .00224, + .17042, .05423, .00998, .00258, .00047, + .00029, .00149, .00215, + .16593, .05267, .00953, .00247, .00046, + .00028, .00144, .00208 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .58486, .21944, .21815, .00978, .00000, + .00000, .00338, .00964, + .56360, .20927, .19416, .00955, .00000, + .00000, .00356, .00921, + .53326, .19524, .16755, .00907, -.00215, + .00000, .00367, .00869, + .51222, .18573, .14697, .00870, -.00167, + .00000, .00371, .00828, + .49078, .17632, .12815, .00837, -.00127, + .00000, .00371, .00782, + .47293, .16867, .11412, .00806, -.00100, + .00000, .00368, .00742, + .45646, .16165, .10216, .00775, -.00077, + .00000, .00362, .00710, + .43963, .15458, .09097, .00741, -.00056, + .00000, .00354, .00678 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .42541, .14879, .08231, .00718, -.00040, + .00000, .00348, .00643, + .41220, .14343, .07483, .00692, -.00028, + .00000, .00341, .00615, + .40212, .13932, .06942, .00672, -.00019, + .00000, .00335, .00593, + .38139, .13094, .05939, .00630, -.00004, + .00000, .00317, .00548, + .36457, .12426, .05238, .00591, .00006, + -.00044, .00302, .00520, + .34654, .11730, .04471, .00557, .00016, + -.00030, .00288, .00485, + .32887, .11050, .03808, .00522, .00023, + -.00019, .00273, .00448, + .31373, .10471, .03302, .00490, .00027, + -.00011, .00260, .00419 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .29918, .09924, .02867, .00462, .00031, + -.00005, .00247, .00390, + .28766, .09496, .02555, .00440, .00033, + -.00001, .00234, .00370, + .27437, .09004, .02232, .00414, .00036, + .00004, .00220, .00345, + .26318, .08593, .01983, .00393, .00037, + .00007, .00210, .00325, + .25335, .08236, .01786, .00374, .00038, + .00010, .00201, .00308, + .24143, .07806, .01572, .00353, .00038, + .00012, .00189, .00286, + .23080, .07426, .01399, .00332, .00038, + .00013, .00180, .00267, + .22135, .07091, .01255, .00315, .00039, + .00015, .00171, .00254 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21236, .06769, .01133, .00295, .00038, + .00016, .00162, .00241, + .20391, .06472, .01029, .00280, .00038, + .00017, .00153, .00227, + .19620, .06208, .00940, .00269, .00038, + .00018, .00145, .00215, + .18928, .05968, .00868, .00256, .00037, + .00018, .00140, .00203, + .18264, .05737, .00802, .00244, .00037, + .00019, .00135, .00192, + .17630, .05518, .00745, .00232, .00036, + .00019, .00129, .00183, + .17053, .05320, .00696, .00221, .00036, + .00020, .00123, .00176, + .16522, .05140, .00653, .00214, .00035, + .00020, .00118, .00168 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16005, .04965, .00615, .00206, .00034, + .00020, .00114, .00160, + .15512, .04801, .00581, .00198, .00034, + .00021, .00108, .00153, + .15056, .04649, .00551, .00190, .00034, + .00021, .00103, .00146, + .14640, .04509, .00524, .00184, .00033, + .00021, .00100, .00141, + .14229, .04373, .00499, .00178, .00032, + .00021, .00097, .00135 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .55833, .20183, .15903, .00780, .00000, + .00000, .00235, .00672, + .53531, .19167, .13940, .00762, .00000, + .00000, .00247, .00636, + .50302, .17772, .11785, .00724, -.00174, + .00000, .00263, .00594, + .48089, .16838, .10132, .00697, -.00134, + .00000, .00266, .00562, + .45853, .15918, .08666, .00665, -.00103, + .00000, .00264, .00533, + .44022, .15164, .07574, .00638, -.00081, + .00000, .00260, .00509, + .42334, .14484, .06665, .00613, -.00063, + .00000, .00256, .00483, + .40617, .13803, .05829, .00586, -.00046, + .00000, .00250, .00457 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .39192, .13241, .05193, .00559, -.00035, + .00000, .00245, .00434, + .37866, .12725, .04650, .00536, -.00025, + .00000, .00238, .00414, + .36854, .12332, .04262, .00518, -.00018, + .00000, .00231, .00400, + .34780, .11543, .03537, .00489, -.00006, + .00000, .00222, .00371, + .33103, .10915, .03050, .00464, .00003, + -.00033, .00212, .00346, + .31346, .10257, .02519, .00431, .00010, + -.00023, .00200, .00321, + .29623, .09623, .02074, .00398, .00015, + -.00016, .00188, .00297, + .28147, .09087, .01740, .00373, .00018, + -.00010, .00179, .00278 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .26747, .08583, .01458, .00350, .00022, + -.00005, .00169, .00259, + .25637, .08187, .01268, .00332, .00023, + -.00002, .00161, .00244, + .24361, .07736, .01069, .00313, .00026, + .00002, .00151, .00226, + .23297, .07362, .00923, .00296, .00026, + .00003, .00142, .00212, + .22369, .07037, .00808, .00280, .00027, + .00005, .00136, .00200, + .21241, .06650, .00686, .00265, .00027, + .00006, .00127, .00186, + .20243, .06307, .00592, .00249, .00027, + .00007, .00120, .00174, + .19362, .06003, .00519, .00231, .00028, + .00008, .00113, .00164 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18518, .05715, .00455, .00219, .00028, + .00009, .00108, .00154, + .17734, .05450, .00404, .00206, .00028, + .00010, .00103, .00146, + .17023, .05211, .00363, .00196, .00027, + .00010, .00097, .00138, + .16381, .04998, .00328, .00188, .00028, + .00011, .00092, .00131, + .15765, .04794, .00297, .00181, .00027, + .00011, .00090, .00124, + .15185, .04601, .00273, .00170, .00028, + .00012, .00085, .00117, + .14658, .04428, .00252, .00161, .00027, + .00012, .00082, .00112, + .14172, .04269, .00237, .00155, .00026, + .00012, .00077, .00106 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13702, .04118, .00222, .00150, .00026, + .00012, .00074, .00100, + .13255, .03971, .00208, .00144, .00026, + .00013, .00072, .00097, + .12844, .03838, .00197, .00138, .00026, + .00013, .00068, .00092, + .12466, .03717, .00188, .00133, .00026, + .00013, .00066, .00089, + .12096, .03597, .00179, .00128, .00025, + .00013, .00063, .00085 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .52787, .18385, .10688, .00603, .00000, + .00000, .00172, .00440, + .50356, .17381, .09145, .00588, .00000, + .00000, .00183, .00426, + .46993, .16009, .07498, .00556, -.00137, + .00000, .00194, .00401, + .44706, .15098, .06261, .00533, -.00107, + .00000, .00191, .00385, + .42440, .14199, .05165, .00508, -.00081, + .00000, .00194, .00365, + .40579, .13479, .04380, .00484, -.00065, + .00000, .00190, .00348, + .38883, .12831, .03738, .00459, -.00050, + .00000, .00186, .00330, + .37174, .12183, .03158, .00435, -.00038, + .00000, .00183, .00309 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .35748, .11652, .02720, .00420, -.00029, + .00000, .00178, .00295, + .34428, .11162, .02358, .00404, -.00021, + .00000, .00174, .00280, + .33427, .10793, .02105, .00393, -.00016, + .00000, .00170, .00268, + .31404, .10055, .01651, .00357, -.00007, + .00000, .00158, .00254, + .29776, .09471, .01342, .00334, -.00001, + -.00025, .00150, .00238, + .28066, .08863, .01016, .00311, .00004, + -.00018, .00142, .00218, + .26408, .08279, .00750, .00286, .00008, + -.00012, .00135, .00200, + .24998, .07787, .00562, .00268, .00011, + -.00008, .00128, .00186 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .23658, .07327, .00410, .00253, .00014, + -.00005, .00119, .00172, + .22609, .06972, .00307, .00240, .00016, + -.00002, .00112, .00162, + .21413, .06564, .00212, .00223, .00017, + -.00001, .00106, .00148, + .20414, .06224, .00147, .00208, .00019, + .00001, .00101, .00139, + .19541, .05934, .00095, .00197, .00020, + .00002, .00096, .00133, + .18495, .05584, .00050, .00182, .00021, + .00003, .00090, .00125, + .17570, .05278, .00017, .00170, .00022, + .00004, .00084, .00116, + .16755, .05013, -.00009, .00162, .00022, + .00004, .00079, .00107 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15976, .04759, -.00025, .00151, .00022, + .00005, .00074, .00102, + .15255, .04524, -.00036, .00142, .00022, + .00005, .00071, .00096, + .14610, .04316, -.00045, .00135, .00023, + .00006, .00068, .00091, + .14025, .04130, -.00049, .00127, .00022, + .00006, .00064, .00087, + .13465, .03952, -.00051, .00121, .00022, + .00006, .00060, .00082, + .12938, .03785, -.00051, .00114, .00023, + .00007, .00057, .00076, + .12459, .03634, -.00050, .00110, .00022, + .00007, .00055, .00071, + .12022, .03497, -.00048, .00105, .00022, + .00007, .00052, .00068 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11601, .03364, -.00045, .00100, .00022, + .00007, .00049, .00066, + .11200, .03238, -.00042, .00096, .00021, + .00007, .00049, .00062, + .10834, .03124, -.00041, .00091, .00022, + .00008, .00046, .00060, + .10498, .03019, -.00038, .00088, .00022, + .00008, .00045, .00058, + .10167, .02917, -.00034, .00084, .00022, + .00008, .00042, .00055 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .49420, .16579, .06179, .00455, .00000, + .00000, .00124, .00286, + .46922, .15583, .05071, .00432, .00000, + .00000, .00137, .00282, + .43484, .14258, .03935, .00408, -.00107, + .00000, .00138, .00269, + .41175, .13379, .03072, .00388, -.00082, + .00000, .00140, .00259, + .38903, .12524, .02340, .00355, -.00063, + .00000, .00140, .00251, + .37048, .11842, .01831, .00340, -.00050, + .00000, .00142, .00231, + .35362, .11230, .01422, .00324, -.00040, + .00000, .00142, .00219, + .33670, .10624, .01060, .00306, -.00029, + .00000, .00136, .00212 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .32278, .10127, .00806, .00289, -.00024, + .00000, .00132, .00205, + .30995, .09674, .00597, .00277, -.00018, + .00000, .00128, .00196, + .30019, .09335, .00455, .00268, -.00013, + .00000, .00125, .00189, + .28063, .08655, .00221, .00246, -.00007, + .00000, .00119, .00171, + .26501, .08118, .00070, .00229, -.00003, + -.00018, .00113, .00159, + .24871, .07562, -.00091, .00211, .00001, + -.00013, .00106, .00150, + .23291, .07034, -.00206, .00196, .00004, + -.00009, .00099, .00137, + .21960, .06592, -.00281, .00183, .00006, + -.00006, .00092, .00128 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .20709, .06178, -.00331, .00167, .00008, + -.00004, .00087, .00119, + .19732, .05857, -.00358, .00156, .00009, + -.00003, .00082, .00113, + .18614, .05494, -.00374, .00144, .00010, + -.00002, .00076, .00105, + .17689, .05196, -.00381, .00136, .00011, + -.00001, .00073, .00097, + .16885, .04939, -.00380, .00130, .00012, + .00000, .00070, .00088, + .15927, .04635, -.00375, .00119, .00013, + .00001, .00065, .00082, + .15082, .04367, -.00363, .00110, .00013, + .00001, .00062, .00077, + .14335, .04132, -.00349, .00103, .00014, + .00002, .00058, .00074 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13630, .03911, -.00333, .00096, .00014, + .00002, .00053, .00069, + .12980, .03710, -.00315, .00089, .00014, + .00002, .00050, .00065, + .12396, .03529, -.00298, .00084, .00015, + .00003, .00047, .00062, + .11871, .03368, -.00283, .00080, .00015, + .00003, .00045, .00057, + .11368, .03216, -.00267, .00077, .00015, + .00003, .00043, .00053, + .10899, .03073, -.00252, .00072, .00015, + .00003, .00042, .00051, + .10474, .02944, -.00236, .00067, .00016, + .00004, .00039, .00049, + .10087, .02827, -.00221, .00063, .00016, + .00004, .00037, .00046 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09714, .02714, -.00209, .00061, .00016, + .00004, .00036, .00044, + .09359, .02609, -.00196, .00058, .00016, + .00004, .00033, .00043, + .09032, .02511, -.00184, .00056, .00016, + .00004, .00032, .00040, + .08736, .02422, -.00173, .00054, .00016, + .00004, .00031, .00039, + .08447, .02336, -.00163, .00053, .00016, + .00004, .00030, .00037 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .45850, .14855, .02327, .00380, .00000, + .00000, .00054, .00167, + .43313, .13903, .01626, .00363, .00000, + .00000, .00067, .00164, + .39875, .12632, .00968, .00330, -.00080, + .00000, .00079, .00157, + .37583, .11803, .00453, .00310, -.00063, + .00000, .00088, .00149, + .35320, .11007, .00036, .00295, -.00048, + .00000, .00087, .00144, + .33504, .10362, -.00240, .00276, -.00038, + .00000, .00086, .00145, + .31866, .09790, -.00435, .00260, -.00030, + .00000, .00082, .00138, + .30229, .09226, -.00591, .00248, -.00024, + .00000, .00080, .00126 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .28889, .08769, -.00693, .00233, -.00018, + .00000, .00079, .00120, + .27658, .08349, -.00768, .00221, -.00014, + .00000, .00078, .00115, + .26729, .08033, -.00807, .00210, -.00012, + .00000, .00076, .00111, + .24857, .07416, -.00865, .00191, -.00007, + .00000, .00068, .00104, + .23377, .06928, -.00881, .00180, -.00004, + -.00013, .00067, .00094, + .21841, .06429, -.00910, .00167, -.00002, + -.00010, .00065, .00085, + .20373, .05953, -.00910, .00153, .00000, + -.00008, .00059, .00080, + .19141, .05558, -.00894, .00139, .00002, + -.00006, .00055, .00076 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .17983, .05190, -.00864, .00127, .00003, + -.00005, .00051, .00071, + .17078, .04907, -.00832, .00119, .00004, + -.00004, .00051, .00065, + .16052, .04586, -.00793, .00112, .00005, + -.00003, .00046, .00062, + .15208, .04323, -.00754, .00104, .00006, + -.00002, .00042, .00059, + .14482, .04099, -.00715, .00094, .00006, + -.00002, .00040, .00055, + .13608, .03830, -.00665, .00089, .00007, + -.00001, .00036, .00050, + .12840, .03599, -.00621, .00084, .00007, + -.00001, .00034, .00046, + .12167, .03397, -.00581, .00079, .00008, + .00000, .00033, .00042 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11538, .03207, -.00539, .00073, .00008, + .00000, .00030, .00040, + .10956, .03031, -.00502, .00068, .00008, + .00000, .00029, .00037, + .10436, .02877, -.00468, .00063, .00008, + .00000, .00028, .00035, + .09970, .02740, -.00437, .00059, .00009, + .00001, .00026, .00033, + .09527, .02611, -.00408, .00057, .00009, + .00001, .00023, .00030, + .09109, .02488, -.00381, .00054, .00009, + .00001, .00022, .00028, + .08732, .02377, -.00356, .00053, .00009, + .00001, .00021, .00027, + .08393, .02279, -.00335, .00051, .00009, + .00001, .00021, .00026 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08066, .02183, -.00314, .00048, .00009, + .00001, .00020, .00024, + .07758, .02094, -.00294, .00045, .00009, + .00001, .00018, .00023, + .07476, .02014, -.00276, .00042, .00009, + .00001, .00017, .00022, + .07218, .01939, -.00260, .00040, .00009, + .00001, .00017, .00022, + .06964, .01868, -.00244, .00039, .00009, + .00001, .00016, .00021 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .42066, .13085, -.00769, .00258, .00000, + .00000, .00043, .00106, + .39544, .12191, -.01104, .00237, .00000, + .00000, .00054, .00110, + .36140, .11002, -.01342, .00223, -.00060, + .00000, .00060, .00108, + .33890, .10235, -.01553, .00214, -.00046, + .00000, .00062, .00102, + .31707, .09492, -.01687, .00200, -.00036, + .00000, .00059, .00095, + .29953, .08908, -.01751, .00187, -.00029, + .00000, .00061, .00090, + .28379, .08388, -.01779, .00176, -.00023, + .00000, .00061, .00084, + .26814, .07875, -.01776, .00166, -.00018, + .00000, .00059, .00080 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .25534, .07460, -.01753, .00156, -.00014, + .00000, .00055, .00079, + .24370, .07084, -.01719, .00148, -.00011, + .00000, .00052, .00074, + .23492, .06802, -.01689, .00145, -.00010, + .00000, .00051, .00071, + .21746, .06245, -.01607, .00129, -.00006, + .00000, .00049, .00066, + .20369, .05811, -.01525, .00120, -.00004, + -.00010, .00048, .00062, + .18948, .05369, -.01450, .00111, -.00002, + -.00008, .00044, .00056, + .17590, .04952, -.01361, .00102, -.00001, + -.00007, .00040, .00052, + .16457, .04604, -.01277, .00094, .00001, + -.00005, .00037, .00048 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15400, .04283, -.01190, .00084, .00001, + -.00005, .00033, .00046, + .14579, .04037, -.01119, .00081, .00002, + -.00004, .00033, .00041, + .13655, .03760, -.01034, .00073, .00003, + -.00003, .00030, .00037, + .12892, .03534, -.00963, .00069, .00003, + -.00003, .00028, .00033, + .12232, .03342, -.00902, .00067, .00004, + -.00002, .00025, .00032, + .11458, .03112, -.00825, .00058, .00004, + -.00002, .00025, .00030, + .10780, .02913, -.00759, .00053, .00004, + -.00002, .00022, .00028, + .10184, .02740, -.00701, .00051, .00004, + -.00002, .00021, .00025 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09626, .02579, -.00646, .00047, .00005, + -.00001, .00020, .00024, + .09113, .02432, -.00597, .00043, .00005, + -.00001, .00019, .00023, + .08655, .02302, -.00552, .00042, .00005, + -.00001, .00017, .00022, + .08248, .02185, -.00513, .00040, .00005, + -.00001, .00015, .00020, + .07861, .02076, -.00476, .00037, .00005, + -.00001, .00014, .00020, + .07500, .01976, -.00443, .00034, .00005, + -.00001, .00014, .00018, + .07177, .01884, -.00413, .00033, .00005, + -.00001, .00013, .00017, + .06881, .01803, -.00385, .00032, .00005, + -.00001, .00013, .00016 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06599, .01724, -.00360, .00031, .00005, + -.00001, .00012, .00014, + .06331, .01649, -.00337, .00028, .00005, + -.00001, .00012, .00014, + .06090, .01581, -.00315, .00027, .00006, + .00000, .00011, .00013, + .05870, .01521, -.00298, .00026, .00006, + .00000, .00011, .00013, + .05655, .01462, -.00279, .00025, .00006, + .00000, .00011, .00012 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .38163, .11392, -.03159, .00160, .00000, + .00000, .00038, .00068, + .35676, .10561, -.03175, .00162, .00000, + .00000, .00042, .00067, + .32372, .09469, -.03037, .00146, -.00043, + .00000, .00042, .00069, + .30219, .08765, -.02997, .00132, -.00033, + .00000, .00044, .00068, + .28126, .08093, -.02916, .00126, -.00026, + .00000, .00046, .00065, + .26460, .07561, -.02811, .00119, -.00021, + .00000, .00044, .00061, + .24967, .07094, -.02700, .00115, -.00018, + .00000, .00042, .00057, + .23492, .06635, -.02572, .00110, -.00014, + .00000, .00041, .00054 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .22295, .06263, -.02455, .00104, -.00012, + .00000, .00041, .00052, + .21215, .05929, -.02339, .00095, -.00010, + .00000, .00040, .00050, + .20406, .05681, -.02248, .00088, -.00009, + .00000, .00037, .00048, + .18780, .05190, -.02058, .00083, -.00006, + .00000, .00036, .00043, + .17526, .04808, -.01906, .00073, -.00005, + -.00007, .00033, .00042, + .16233, .04424, -.01753, .00065, -.00004, + -.00006, .00028, .00036, + .14997, .04060, -.01603, .00060, -.00002, + -.00004, .00028, .00032, + .13971, .03760, -.01473, .00055, -.00002, + -.00004, .00026, .00030 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13022, .03484, -.01352, .00049, -.00001, + -.00003, .00024, .00030, + .12290, .03273, -.01255, .00046, -.00001, + -.00003, .00023, .00026, + .11467, .03037, -.01145, .00042, .00000, + -.00002, .00021, .00024, + .10790, .02845, -.01054, .00038, .00000, + -.00002, .00020, .00023, + .10210, .02680, -.00978, .00036, .00000, + -.00002, .00019, .00021, + .09521, .02488, -.00885, .00035, .00001, + -.00001, .00016, .00019, + .08925, .02321, -.00808, .00033, .00001, + -.00001, .00015, .00018, + .08406, .02177, -.00742, .00030, .00001, + -.00001, .00016, .00016 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07921, .02043, -.00679, .00028, .00001, + -.00001, .00014, .00015, + .07477, .01921, -.00623, .00025, .00001, + -.00001, .00013, .00016, + .07085, .01813, -.00574, .00024, .00001, + -.00001, .00012, .00014, + .06734, .01717, -.00530, .00022, .00001, + -.00001, .00010, .00013, + .06401, .01626, -.00490, .00020, .00001, + -.00001, .00010, .00013, + .06090, .01543, -.00453, .00021, .00002, + .00000, .00009, .00012, + .05812, .01470, -.00422, .00021, .00002, + .00000, .00009, .00010, + .05562, .01402, -.00394, .00019, .00002, + .00000, .00009, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05323, .01337, -.00366, .00018, .00002, + .00000, .00008, .00011, + .05097, .01277, -.00341, .00017, .00002, + .00000, .00008, .00009, + .04890, .01223, -.00319, .00016, .00002, + .00000, .00006, .00009, + .04705, .01174, -.00300, .00014, .00002, + .00000, .00007, .00008, + .04524, .01126, -.00281, .00013, .00002, + .00000, .00007, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .34259, .09848, -.04979, .00136, .00000, + .00000, .00010, .00026, + .31873, .09080, -.04723, .00127, .00000, + .00000, .00016, .00030, + .28710, .08092, -.04277, .00113, -.00031, + .00000, .00022, .00028, + .26665, .07451, -.04041, .00106, -.00024, + .00000, .00024, .00032, + .24697, .06846, -.03770, .00092, -.00019, + .00000, .00023, .00035, + .23137, .06369, -.03539, .00089, -.00015, + .00000, .00024, .00031, + .21754, .05953, -.03325, .00082, -.00012, + .00000, .00024, .00030, + .20393, .05546, -.03096, .00074, -.00010, + .00000, .00020, .00030 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .19285, .05220, -.02909, .00075, -.00009, + .00000, .00020, .00027, + .18286, .04925, -.02733, .00070, -.00007, + .00000, .00021, .00026, + .17542, .04705, -.02597, .00065, -.00006, + .00000, .00019, .00025, + .16065, .04276, -.02332, .00060, -.00005, + .00000, .00020, .00021, + .14921, .03947, -.02126, .00055, -.00004, + -.00005, .00018, .00019, + .13750, .03614, -.01926, .00050, -.00003, + -.00004, .00016, .00019, + .12647, .03301, -.01736, .00045, -.00002, + -.00003, .00016, .00019, + .11735, .03046, -.01575, .00041, -.00001, + -.00002, .00015, .00017 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .10892, .02811, -.01424, .00038, -.00001, + -.00002, .00012, .00013, + .10249, .02631, -.01312, .00034, -.00001, + -.00002, .00011, .00013, + .09520, .02433, -.01187, .00031, .00000, + -.00001, .00012, .00013, + .08928, .02271, -.01088, .00030, .00000, + -.00001, .00010, .00013, + .08426, .02133, -.01002, .00028, .00000, + -.00001, .00009, .00012, + .07830, .01972, -.00900, .00025, .00000, + -.00001, .00009, .00010, + .07315, .01834, -.00815, .00022, .00000, + -.00001, .00008, .00009, + .06868, .01715, -.00743, .00021, .00000, + -.00001, .00007, .00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06448, .01604, -.00677, .00020, .00000, + -.00001, .00007, .00008, + .06068, .01503, -.00617, .00019, .00000, + -.00001, .00005, .00007, + .05732, .01414, -.00566, .00017, .00001, + .00000, .00006, .00005, + .05435, .01336, -.00522, .00016, .00001, + .00000, .00006, .00005, + .05156, .01263, -.00483, .00014, .00001, + .00000, .00006, .00007, + .04894, .01196, -.00445, .00013, .00001, + .00000, .00006, .00006, + .04659, .01135, -.00412, .00013, .00001, + .00000, .00004, .00006, + .04448, .01081, -.00384, .00013, .00001, + .00000, .00004, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04246, .01029, -.00357, .00013, .00001, + .00000, .00004, .00005, + .04058, .00981, -.00333, .00012, .00001, + .00000, .00004, .00005, + .03887, .00937, -.00311, .00010, .00001, + .00000, .00005, .00005, + .03733, .00897, -.00291, .00011, .00001, + .00000, .00003, .00005, + .03582, .00859, -.00272, .00009, .00001, + .00000, .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)/ + .30320, .08327, -.06134, .00067, .00000, + .00000, .00014, .00024, + .28056, .07646, -.05673, .00068, .00000, + .00000, .00016, .00022, + .25091, .06757, -.05010, .00063, -.00021, + .00000, .00017, .00027, + .23178, .06200, -.04615, .00062, -.00017, + .00000, .00016, .00024, + .21358, .05665, -.04224, .00058, -.00013, + .00000, .00019, .00023, + .19928, .05253, -.03898, .00048, -.00011, + .00000, .00018, .00021, + .18658, .04890, -.03605, .00045, -.00009, + .00000, .00017, .00018, + .17413, .04537, -.03319, .00043, -.00007, + .00000, .00016, .00021 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .16413, .04255, -.03084, .00041, -.00006, + .00000, .00015, .00019, + .15511, .04002, -.02871, .00038, -.00005, + .00000, .00014, .00019, + .14837, .03815, -.02711, .00036, -.00005, + .00000, .00015, .00018, + .13518, .03449, -.02400, .00033, -.00004, + .00000, .00012, .00016, + .12500, .03170, -.02168, .00028, -.00003, + -.00003, .00012, .00016, + .11464, .02888, -.01941, .00027, -.00002, + -.00002, .00012, .00014, + .10491, .02626, -.01726, .00026, -.00002, + -.00002, .00010, .00010, + .09692, .02412, -.01553, .00024, -.00002, + -.00002, .00010, .00009 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .08956, .02217, -.01394, .00021, -.00001, + -.00001, .00010, .00009, + .08397, .02068, -.01275, .00019, -.00001, + -.00001, .00008, .00009, + .07769, .01904, -.01144, .00017, -.00001, + -.00001, .00007, .00008, + .07259, .01771, -.01038, .00016, -.00001, + -.00001, .00007, .00007, + .06828, .01659, -.00951, .00014, -.00001, + -.00001, .00006, .00007, + .06320, .01528, -.00850, .00012, -.00001, + -.00001, .00006, .00007, + .05881, .01416, -.00767, .00012, -.00001, + -.00001, .00006, .00006, + .05501, .01319, -.00697, .00013, .00000, + .00000, .00005, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05153, .01230, -.00633, .00010, .00000, + .00000, .00005, .00006, + .04834, .01149, -.00574, .00008, .00000, + .00000, .00005, .00005, + .04553, .01078, -.00523, .00007, .00000, + .00000, .00003, .00005, + .04303, .01016, -.00481, .00007, .00000, + .00000, .00003, .00005, + .04068, .00958, -.00443, .00007, .00000, + .00000, .00003, .00003, + .03851, .00903, -.00406, .00007, .00000, + .00000, .00003, .00003, + .03658, .00857, -.00375, .00007, .00000, + .00000, .00003, .00002, + .03484, .00814, -.00349, .00007, .00000, + .00000, .00003, .00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03318, .00772, -.00324, .00007, .00000, + .00000, .00003, .00002, + .03164, .00734, -.00301, .00006, .00000, + .00000, .00003, .00002, + .03024, .00700, -.00279, .00006, .00000, + .00000, .00002, .00002, + .02898, .00669, -.00261, .00005, .00000, + .00000, .00002, .00002, + .02775, .00640, -.00244, .00005, .00000, + .00000, .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)/ + .22745, .05731, -.06998, .00038, .00000, + .00000, .00005, .00006, + .20826, .05203, -.06275, .00029, .00000, + .00000, .00003, .00006, + .18341, .04530, -.05349, .00023, -.00009, + .00000, .00004, .00008, + .16766, .04111, -.04799, .00021, -.00007, + .00000, .00006, .00009, + .15282, .03721, -.04277, .00019, -.00005, + .00000, .00006, .00007, + .14124, .03420, -.03876, .00018, -.00004, + .00000, .00007, .00009, + .13111, .03154, -.03521, .00018, -.00004, + .00000, .00005, .00009, + .12132, .02901, -.03184, .00017, -.00003, + .00000, .00006, .00008 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .11351, .02702, -.02914, .00013, -.00003, + .00000, .00006, .00006, + .10653, .02526, -.02679, .00013, -.00002, + .00000, .00004, .00006, + .10136, .02394, -.02506, .00013, -.00002, + .00000, .00005, .00006, + .09129, .02139, -.02174, .00011, -.00001, + .00000, .00005, .00007, + .08360, .01947, -.01932, .00011, -.00001, + -.00001, .00003, .00005, + .07592, .01758, -.01697, .00009, -.00001, + -.00001, .00003, .00003, + .06877, .01582, -.01486, .00008, -.00001, + -.00001, .00003, .00003, + .06294, .01440, -.01315, .00008, -.00001, + -.00001, .00002, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05767, .01311, -.01170, .00008, -.00001, + -.00001, .00003, .00004, + .05365, .01215, -.01056, .00006, .00000, + .00000, .00003, .00004, + .04923, .01108, -.00938, .00007, .00000, + .00000, .00003, .00002, + .04566, .01023, -.00843, .00005, .00000, + .00000, .00003, .00002, + .04266, .00953, -.00767, .00004, .00000, + .00000, .00003, .00003, + .03914, .00871, -.00679, .00005, .00000, + .00000, .00003, .00003, + .03615, .00800, -.00605, .00005, .00000, + .00000, .00001, .00001, + .03360, .00740, -.00543, .00002, .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)/ + .03123, .00685, -.00489, .00002, .00000, + .00000, .00001, .00001, + .02910, .00636, -.00440, .00002, .00000, + .00000, .00001, .00001, + .02724, .00593, -.00400, .00002, .00000, + .00000, .00001, .00001, + .02561, .00555, -.00366, .00002, .00000, + .00000, .00001, .00001, + .02408, .00520, -.00333, .00001, .00000, + .00000, .00001, .00001, + .02267, .00489, -.00307, .00002, .00000, + .00000, .00001, .00001, + .02142, .00461, -.00282, .00003, .00000, + .00000, .00001, .00001, + .02030, .00435, -.00260, .00001, .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)/ + .01925, .00412, -.00240, .00001, .00000, + .00000, .00001, .00001, + .01825, .00390, -.00222, .00001, .00000, + .00000, .00001, .00001, + .01737, .00369, -.00206, .00001, .00000, + .00000, .00001, .00001, + .01656, .00353, -.00192, .00001, .00000, + .00000, .00001, .00001, + .01581, .00334, -.00179, .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)/ + .15900, .03632, -.06326, .00008, .00000, + .00000, -.00001, .00000, + .14383, .03262, -.05585, .00011, .00000, + .00000, .00000, .00003, + .12456, .02800, -.04644, .00010, -.00003, + .00000, .00002, -.00003, + .11262, .02512, -.04094, .00008, -.00002, + .00000, .00002, .00000, + .10144, .02248, -.03583, .00006, -.00002, + .00000, .00000, .00003, + .09286, .02044, -.03200, .00008, -.00002, + .00000, .00001, .00001, + .08544, .01872, -.02871, .00006, -.00001, + .00000, .00001, .00001, + .07832, .01705, -.02559, .00004, -.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)/ + .07269, .01576, -.02321, .00004, -.00001, + .00000, .00001, .00001, + .06770, .01460, -.02112, .00004, -.00001, + .00000, .00001, .00001, + .06402, .01376, -.01960, .00004, -.00001, + .00000, .00001, .00001, + .05697, .01216, -.01675, .00002, -.00001, + .00000, .00001, .00001, + .05166, .01097, -.01472, .00002, .00000, + .00000, .00001, .00001, + .04639, .00979, -.01277, .00002, .00000, + .00000, .00001, .00001, + .04154, .00872, -.01102, .00002, .00000, + .00000, .00001, .00001, + .03766, .00785, -.00965, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .03416, .00709, -.00845, .00001, .00000, + .00000, .00000, .00001, + .03155, .00651, -.00758, .00002, .00000, + .00000, .00000, .00001, + .02866, .00590, -.00666, .00001, .00000, + .00000, .00000, .00001, + .02637, .00540, -.00594, .00001, .00000, + .00000, .00000, .00001, + .02444, .00498, -.00534, .00001, .00000, + .00000, .00000, .00000, + .02225, .00451, -.00468, .00001, .00000, + .00000, .00000, .00000, + .02036, .00412, -.00414, .00001, .00000, + .00000, .00000, .00000, + .01878, .00378, -.00370, .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)/ + .01732, .00347, -.00330, .00001, .00000, + .00000, .00000, .00000, + .01604, .00321, -.00297, .00001, .00000, + .00000, .00000, .00000, + .01490, .00297, -.00267, .00001, .00000, + .00000, .00000, .00000, + .01392, .00276, -.00242, .00001, .00000, + .00000, .00000, .00000, + .01300, .00257, -.00220, .00001, .00000, + .00000, .00000, .00000, + .01217, .00240, -.00200, .00001, .00000, + .00000, .00000, .00000, + .01143, .00225, -.00182, .00000, .00000, + .00000, .00000, .00000, + .01078, .00212, -.00168, .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)/ + .01016, .00199, -.00154, .00000, .00000, + .00000, .00000, .00000, + .00959, .00187, -.00142, .00000, .00000, + .00000, .00000, .00000, + .00909, .00177, -.00132, .00000, .00000, + .00000, .00000, .00000, + .00863, .00167, -.00121, .00000, .00000, + .00000, .00000, .00000, + .00819, .00158, -.00113, .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)/ + .10131, .02076, -.04854, .00004, .00000, + .00000, -.00002, .00001, + .09049, .01843, -.04214, .00004, .00000, + .00000, -.00001, -.00001, + .07696, .01551, -.03440, .00004, -.00001, + .00000, -.00001, .00002, + .06871, .01375, -.02983, .00004, -.00001, + .00000, -.00001, -.00001, + .06109, .01216, -.02573, .00004, -.00001, + .00000, -.00001, -.00001, + .05534, .01094, -.02267, .00002, .00000, + .00000, .00000, .00000, + .05040, .00992, -.02012, .00002, .00000, + .00000, .00000, .00000, + .04572, .00896, -.01777, .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)/ + .04204, .00819, -.01593, .00002, .00000, + .00000, .00000, .00000, + .03882, .00753, -.01437, .00002, .00000, + .00000, .00000, .00000, + .03648, .00705, -.01324, .00002, .00000, + .00000, .00000, .00000, + .03202, .00615, -.01117, .00002, .00000, + .00000, .00000, .00000, + .02870, .00549, -.00969, .00002, .00000, + .00000, .00000, .00000, + .02546, .00483, -.00830, .00002, .00000, + .00000, .00000, .00000, + .02253, .00425, -.00707, .00002, .00000, + .00000, .00000, .00000, + .02019, .00379, -.00613, .00002, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01811, .00339, -.00531, .00002, .00000, + .00000, .00000, .00000, + .01657, .00308, -.00472, .00002, .00000, + .00000, .00000, .00000, + .01491, .00276, -.00409, .00000, .00000, + .00000, .00000, .00000, + .01359, .00251, -.00361, .00000, .00000, + .00000, .00000, .00000, + .01250, .00229, -.00322, .00000, .00000, + .00000, .00000, .00000, + .01125, .00206, -.00281, .00000, .00000, + .00000, .00000, .00000, + .01021, .00186, -.00246, .00000, .00000, + .00000, .00000, .00000, + .00933, .00168, -.00217, .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)/ + .00853, .00154, -.00193, .00000, .00000, + .00000, .00000, .00000, + .00783, .00141, -.00171, .00000, .00000, + .00000, .00000, .00000, + .00722, .00130, -.00153, .00000, .00000, + .00000, .00000, .00000, + .00669, .00120, -.00138, .00000, .00000, + .00000, .00000, .00000, + .00622, .00111, -.00124, .00000, .00000, + .00000, .00000, .00000, + .00577, .00103, -.00113, .00000, .00000, + .00000, .00000, .00000, + .00539, .00095, -.00102, .00000, .00000, + .00000, .00000, .00000, + .00506, .00090, -.00093, .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)/ + .00474, .00083, -.00086, .00000, .00000, + .00000, .00000, .00000, + .00444, .00078, -.00078, .00000, .00000, + .00000, .00000, .00000, + .00419, .00073, -.00072, .00000, .00000, + .00000, .00000, .00000, + .00395, .00069, -.00066, .00000, .00000, + .00000, .00000, .00000, + .00373, .00065, -.00061, .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)/ + .05657, .01006, -.03116, .00000, .00000, + .00000, .00000, .00000, + .04981, .00884, -.02671, .00000, .00000, + .00000, .00000, .00000, + .04151, .00731, -.02138, .00000, .00000, + .00000, .00000, .00000, + .03653, .00642, -.01831, .00000, .00000, + .00000, .00000, .00000, + .03201, .00559, -.01556, .00000, .00000, + .00000, .00000, .00000, + .02862, .00497, -.01355, .00000, .00000, + .00000, .00000, .00000, + .02577, .00445, -.01188, .00000, .00000, + .00000, .00000, .00000, + .02308, .00397, -.01036, .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)/ + .02102, .00359, -.00920, .00000, .00000, + .00000, .00000, .00000, + .01920, .00330, -.00824, .00000, .00000, + .00000, .00000, .00000, + .01791, .00304, -.00751, .00000, .00000, + .00000, .00000, .00000, + .01547, .00262, -.00625, .00000, .00000, + .00000, .00000, .00000, + .01368, .00229, -.00535, .00000, .00000, + .00000, .00000, .00000, + .01196, .00199, -.00451, .00000, .00000, + .00000, .00000, .00000, + .01042, .00173, -.00379, .00000, .00000, + .00000, .00000, .00000, + .00921, .00153, -.00324, .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)/ + .00816, .00136, -.00278, .00000, .00000, + .00000, .00000, .00000, + .00739, .00122, -.00244, .00000, .00000, + .00000, .00000, .00000, + .00656, .00108, -.00210, .00000, .00000, + .00000, .00000, .00000, + .00593, .00096, -.00184, .00000, .00000, + .00000, .00000, .00000, + .00539, .00087, -.00161, .00000, .00000, + .00000, .00000, .00000, + .00479, .00078, -.00139, .00000, .00000, + .00000, .00000, .00000, + .00431, .00069, -.00121, .00000, .00000, + .00000, .00000, .00000, + .00390, .00063, -.00105, .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)/ + .00352, .00056, -.00092, .00000, .00000, + .00000, .00000, .00000, + .00321, .00050, -.00081, .00000, .00000, + .00000, .00000, .00000, + .00292, .00047, -.00072, .00000, .00000, + .00000, .00000, .00000, + .00268, .00043, -.00064, .00000, .00000, + .00000, .00000, .00000, + .00246, .00040, -.00057, .00000, .00000, + .00000, .00000, .00000, + .00227, .00036, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00211, .00033, -.00047, .00000, .00000, + .00000, .00000, .00000, + .00197, .00031, -.00043, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00183, .00028, -.00038, .00000, .00000, + .00000, .00000, .00000, + .00170, .00026, -.00035, .00000, .00000, + .00000, .00000, .00000, + .00159, .00024, -.00031, .00000, .00000, + .00000, .00000, .00000, + .00150, .00023, -.00029, .00000, .00000, + .00000, .00000, .00000, + .00141, .00022, -.00026, .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)/ + .00827, .00107, -.00581, .00000, .00000, + .00000, .00000, .00000, + .00698, .00089, -.00478, .00000, .00000, + .00000, .00000, .00000, + .00547, .00069, -.00361, .00000, .00000, + .00000, .00000, .00000, + .00461, .00057, -.00296, .00000, .00000, + .00000, .00000, .00000, + .00387, .00048, -.00242, .00000, .00000, + .00000, .00000, .00000, + .00332, .00042, -.00203, .00000, .00000, + .00000, .00000, .00000, + .00290, .00036, -.00173, .00000, .00000, + .00000, .00000, .00000, + .00251, .00031, -.00146, .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)/ + .00221, .00028, -.00126, .00000, .00000, + .00000, .00000, .00000, + .00197, .00023, -.00110, .00000, .00000, + .00000, .00000, .00000, + .00180, .00023, -.00099, .00000, .00000, + .00000, .00000, .00000, + .00147, .00018, -.00078, .00000, .00000, + .00000, .00000, .00000, + .00125, .00015, -.00065, .00000, .00000, + .00000, .00000, .00000, + .00104, .00013, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00088, .00011, -.00042, .00000, .00000, + .00000, .00000, .00000, + .00075, .00009, -.00035, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00064, .00007, -.00029, .00000, .00000, + .00000, .00000, .00000, + .00056, .00007, -.00025, .00000, .00000, + .00000, .00000, .00000, + .00048, .00005, -.00020, .00000, .00000, + .00000, .00000, .00000, + .00041, .00005, -.00017, .00000, .00000, + .00000, .00000, .00000, + .00037, .00005, -.00015, .00000, .00000, + .00000, .00000, .00000, + .00032, .00003, -.00012, .00000, .00000, + .00000, .00000, .00000, + .00027, .00003, -.00010, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, -.00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00022, .00003, -.00008, .00000, .00000, + .00000, .00000, .00000, + .00019, .00003, -.00007, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00009, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='ft08d.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