#include "pdf/pilot.h" subroutine sfmrs_98lo4(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)/ + .01652, .00676, 3.98484, .93109, .00000, + .00000, .48342, .94700, + .01668, .00680, 6.68919, .94013, .00000, + .00000, .49546, .95598, + .01691, .00685, 11.60333, .96948, .02665, + .00000, .52926, .98525, + .01709, .00689, 15.59962, 1.01229, .06303, + .00000, .57531, 1.02799, + .01727, .00693, 20.91389, 1.06656, .13476, + .00000, .63298, 1.08218, + .01743, .00697, 26.00457, 1.12936, .19890, + .00000, .69872, 1.14492, + .01759, .00701, 31.58823, 1.20092, .27694, + .00000, .77307, 1.21641, + .01776, .00706, 38.11628, 1.29258, .37269, + .00000, .86768, 1.30799 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .01790, .00709, 44.40437, 1.38500, .47078, + .00000, .96266, 1.40035, + .01804, .00713, 50.94486, 1.48761, .57645, + .00000, 1.06773, 1.50290, + .01815, .00716, 56.70540, 1.57570, .67465, + .00000, 1.15774, 1.59093, + .01840, .00723, 69.55647, 1.79803, .90303, + .01230, 1.38417, 1.81314, + .01860, .00730, 81.80496, 2.02168, 1.13484, + .27544, 1.61132, 2.03668, + .01884, .00737, 97.00859, 2.30982, 1.43873, + .65430, 1.90333, 2.32470, + .01909, .00745, 114.42801, 2.65771, 1.80268, + 1.03083, 2.25520, 2.67246, + .01931, .00752, 131.44508, 3.01593, 2.17200, + 1.40709, 2.61698, 3.03055 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .01954, .00760, 150.23351, 3.42203, 2.59614, + 1.85224, 3.02663, 3.43653, + .01973, .00766, 166.86644, 3.79494, 2.98352, + 2.25208, 3.40244, 3.80933, + .01996, .00774, 188.23845, 4.29058, 3.49635, + 2.77977, 3.90157, 4.30484, + .02017, .00782, 208.67317, 4.77519, 4.00244, + 3.30736, 4.38922, 4.78934, + .02036, .00789, 227.91423, 5.25036, 4.48985, + 3.80259, 4.86715, 5.26439, + .02060, .00798, 254.11282, 5.90971, 5.17256, + 4.50617, 5.52996, 5.92361, + .02083, .00807, 280.02881, 6.58271, 5.86643, + 5.21726, 6.20617, 6.59648, + .02105, .00815, 305.39871, 7.25967, 6.56260, + 5.92909, 6.88609, 7.27331 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .02127, .00824, 332.24683, 7.99087, 7.31700, + 6.70368, 7.62021, 8.00439, + .02149, .00833, 359.12375, 8.74424, 8.08832, + 7.48890, 8.37641, 8.75763, + .02169, .00841, 386.15036, 9.51348, 8.88067, + 8.30154, 9.14830, 9.52676, + .02189, .00849, 411.80179, 10.26337, 9.64630, + 9.07918, 9.90065, 10.27654, + .02208, .00857, 439.07281, 11.07076, 10.47534, + 9.92693, 10.71050, 11.08382, + .02228, .00866, 466.10730, 11.88985, 11.31124, + 10.77619, 11.53197, 11.90280, + .02246, .00873, 493.00089, 12.71570, 12.15655, + 11.63806, 12.36006, 12.72855, + .02264, .00881, 518.81348, 13.52263, 12.98022, + 12.47562, 13.16909, 13.53538 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .02282, .00889, 545.54224, 14.37063, 13.84546, + 13.35518, 14.01920, 14.38329, + .02300, .00897, 572.80615, 15.24685, 14.74061, + 14.26667, 14.89746, 15.25940, + .02317, .00905, 598.85217, 16.09878, 15.60750, + 15.14580, 15.75134, 16.11124, + .02333, .00912, 624.52399, 16.94697, 16.47251, + 16.02530, 16.60135, 16.95935, + .02350, .00919, 650.74725, 17.82560, 17.36709, + 16.93348, 17.48181, 17.83789 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .02018, .00826, 4.02821, .80420, .00000, + .00000, .41605, .81348, + .02038, .00831, 6.43326, .81520, .00000, + .00000, .42950, .82444, + .02067, .00840, 10.65632, .84454, .02427, + .00000, .46247, .85371, + .02089, .00847, 14.00665, .88295, .05695, + .00000, .50354, .89208, + .02113, .00854, 18.36899, .93089, .12053, + .00000, .55424, .93996, + .02133, .00861, 22.48380, .98493, .17589, + .00000, .61067, .99395, + .02153, .00867, 26.93442, 1.04570, .24238, + .00000, .67373, 1.05468, + .02174, .00874, 32.07341, 1.12251, .32282, + .00000, .75293, 1.13144 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .02193, .00880, 36.96647, 1.19916, .40428, + .00000, .83167, 1.20804, + .02211, .00886, 42.00644, 1.28346, .49108, + .00000, .91796, 1.29229, + .02225, .00891, 46.40743, 1.35548, .57116, + .00000, .99155, 1.36428, + .02256, .00902, 56.10998, 1.53498, .75505, + .01020, 1.17438, 1.54370, + .02283, .00911, 65.22620, 1.71347, .93927, + .21775, 1.35571, 1.72212, + .02313, .00922, 76.39746, 1.94100, 1.17789, + .51464, 1.58638, 1.94957, + .02344, .00934, 89.03473, 2.21250, 1.46009, + .80481, 1.86110, 2.22098, + .02374, .00945, 101.23084, 2.48890, 1.74308, + 1.09133, 2.14039, 2.49730 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .02403, .00957, 114.55248, 2.79920, 2.06482, + 1.42715, 2.45357, 2.80752, + .02428, .00966, 126.23121, 3.08155, 2.35595, + 1.72590, 2.73827, 3.08980, + .02458, .00978, 141.09479, 3.45349, 2.73791, + 2.11663, 3.11303, 3.46166, + .02484, .00989, 155.17807, 3.81402, 3.11168, + 2.50427, 3.47602, 3.82212, + .02509, .00999, 168.32095, 4.16465, 3.46863, + 2.86478, 3.82888, 4.17268, + .02540, .01012, 186.06918, 4.64733, 3.96484, + 3.37350, 4.31435, 4.65526, + .02570, .01025, 203.46317, 5.13570, 4.46482, + 3.88321, 4.80531, 5.14355, + .02598, .01037, 220.34584, 5.62305, 4.96255, + 4.38954, 5.29505, 5.63082 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .02627, .01049, 238.07828, 6.14561, 5.49819, + 4.93694, 5.81997, 6.15330, + .02654, .01062, 255.68257, 6.68002, 6.04174, + 5.48752, 6.35667, 6.68764, + .02681, .01074, 273.27155, 7.22217, 6.59681, + 6.05436, 6.90095, 7.22972, + .02706, .01085, 289.83783, 7.74720, 7.12951, + 6.59282, 7.42797, 7.75468, + .02732, .01096, 307.35416, 8.30934, 7.70343, + 7.17726, 7.99208, 8.31674, + .02757, .01108, 324.59506, 8.87613, 8.27848, + 7.75890, 8.56079, 8.88347, + .02781, .01119, 341.65674, 9.44460, 8.85722, + 8.34661, 9.13107, 9.45188, + .02804, .01130, 357.93420, 9.99713, 9.41817, + 8.91467, 9.68529, 10.00435 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .02827, .01141, 374.70135, 10.57496, 10.00466, + 9.50850, 10.26481, 10.58212, + .02850, .01151, 391.72107, 11.16922, 10.60878, + 10.12137, 10.86072, 11.17632, + .02872, .01162, 407.88428, 11.74415, 11.19086, + 10.70934, 11.43721, 11.75119, + .02893, .01172, 423.75308, 12.31427, 11.76957, + 11.29565, 12.00881, 12.32127, + .02915, .01182, 439.88132, 12.90229, 12.36547, + 11.89843, 12.59830, 12.90923 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .02465, .01009, 4.07075, .69389, .00000, + .00000, .35812, .69848, + .02490, .01018, 6.18574, .70614, .00000, + .00000, .37237, .71070, + .02527, .01032, 9.78440, .73492, .02210, + .00000, .40412, .73944, + .02555, .01042, 12.57318, .76934, .05143, + .00000, .44070, .77382, + .02585, .01053, 16.12924, .81164, .10775, + .00000, .48526, .81608, + .02611, .01063, 19.43373, .85809, .15546, + .00000, .53366, .86250, + .02636, .01072, 22.95862, .90965, .21202, + .00000, .58707, .91403, + .02662, .01083, 26.97891, .97388, .27947, + .00000, .65326, .97823 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .02686, .01092, 30.76279, 1.03730, .34698, + .00000, .71837, 1.04161, + .02709, .01101, 34.62252, 1.10633, .41813, + .00000, .78903, 1.11062, + .02727, .01109, 37.96395, 1.16504, .48327, + .00000, .84901, 1.16930, + .02766, .01125, 45.24296, 1.30938, .63096, + .00846, .99606, 1.31359, + .02801, .01139, 51.98321, 1.45121, .77696, + .17202, 1.14019, 1.45537, + .02839, .01155, 60.13620, 1.63003, .96379, + .40454, 1.32155, 1.63414, + .02880, .01173, 69.24136, 1.84082, 1.18192, + .62793, 1.53495, 1.84488, + .02917, .01189, 77.92046, 2.05293, 1.39804, + .84586, 1.74940, 2.05694 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .02955, .01205, 87.29803, 2.28871, 1.64126, + 1.09888, 1.98751, 2.29267, + .02987, .01219, 95.43783, 2.50126, 1.85928, + 1.32175, 2.20196, 2.50517, + .03025, .01237, 105.69693, 2.77872, 2.14270, + 1.61059, 2.48170, 2.78259, + .03060, .01252, 115.32845, 3.04534, 2.41768, + 1.89487, 2.75031, 3.04917, + .03092, .01267, 124.23454, 3.30249, 2.67804, + 2.15674, 3.00925, 3.30627, + .03132, .01285, 136.16118, 3.65364, 3.03721, + 2.52376, 3.36266, 3.65737, + .03171, .01303, 147.73871, 4.00580, 3.39595, + 2.88823, 3.71691, 4.00948, + .03207, .01320, 158.87772, 4.35441, 3.75023, + 3.24741, 4.06744, 4.35805 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .03243, .01338, 170.48805, 4.72546, 4.12884, + 3.63320, 4.44040, 4.72905, + .03279, .01355, 181.91531, 5.10207, 4.51009, + 4.01808, 4.81884, 5.10562, + .03313, .01371, 193.25867, 5.48165, 4.89712, + 4.41225, 5.20015, 5.48517, + .03346, .01387, 203.85648, 5.84678, 5.26593, + 4.78383, 5.56688, 5.85026, + .03379, .01403, 215.00099, 6.23553, 5.66128, + 5.18539, 5.95721, 6.23896, + .03411, .01419, 225.88818, 6.62505, 6.05485, + 5.58228, 6.34828, 6.62845, + .03442, .01434, 236.60533, 7.01369, 6.44904, + 5.98157, 6.73837, 7.01706, + .03472, .01449, 246.76529, 7.38939, 6.82904, + 6.36535, 7.11543, 7.39272 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .03502, .01464, 257.17444, 7.78036, 7.22445, + 6.76468, 7.50776, 7.78367, + .03531, .01479, 267.68829, 8.18056, 7.62994, + 7.17510, 7.90928, 8.18383, + .03560, .01493, 277.60977, 8.56579, 8.01858, + 7.56664, 8.29576, 8.56903, + .03587, .01507, 287.31226, 8.94626, 8.40358, + 7.95582, 8.67742, 8.94947, + .03615, .01521, 297.12128, 9.33693, 8.79824, + 8.35411, 9.06927, 9.34012 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .02772, .01136, 4.09477, .63615, .00000, + .00000, .32808, .63878, + .02800, .01147, 6.04424, .64886, .00000, + .00000, .34257, .65146, + .02843, .01164, 9.30605, .67712, .02091, + .00000, .37347, .67968, + .02875, .01177, 11.80117, .70936, .04842, + .00000, .40763, .71190, + .02909, .01191, 14.94439, .74864, .10087, + .00000, .44893, .75115, + .02938, .01203, 17.84056, .79114, .14456, + .00000, .49315, .79362, + .02967, .01216, 20.90502, .83793, .19596, + .00000, .54159, .84039, + .02998, .01229, 24.37538, .89572, .25675, + .00000, .60112, .89816 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .03025, .01240, 27.61966, .95241, .31716, + .00000, .65930, .95482, + .03051, .01252, 30.91022, 1.01372, .38041, + .00000, .72205, 1.01611, + .03072, .01261, 33.74450, 1.06572, .43807, + .00000, .77518, 1.06809, + .03118, .01281, 39.87519, 1.19250, .56779, + .00758, .90436, 1.19484, + .03157, .01299, 45.50309, 1.31618, .69502, + .14979, 1.03008, 1.31848, + .03202, .01319, 52.25834, 1.47109, .85666, + .35121, 1.18724, 1.47335, + .03249, .01340, 59.74548, 1.65236, 1.04395, + .54279, 1.37083, 1.65458, + .03292, .01360, 66.82995, 1.83350, 1.22820, + .72833, 1.55403, 1.83569 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .03336, .01380, 74.43537, 2.03367, 1.43429, + .94254, 1.75625, 2.03582, + .03372, .01398, 80.99800, 2.21312, 1.61800, + 1.13012, 1.93739, 2.21524, + .03417, .01419, 89.22139, 2.44611, 1.85552, + 1.37190, 2.17239, 2.44820, + .03457, .01438, 96.89981, 2.66885, 2.08481, + 1.60874, 2.39689, 2.67091, + .03494, .01456, 103.96050, 2.88261, 2.30080, + 1.82567, 2.61224, 2.88464, + .03541, .01479, 113.36917, 3.17313, 2.59740, + 2.12846, 2.90475, 3.17513, + .03585, .01500, 122.45020, 3.46297, 2.89210, + 2.42756, 3.19644, 3.46494, + .03627, .01521, 131.14139, 3.74852, 3.18177, + 2.72092, 3.48368, 3.75046 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .03670, .01542, 140.15895, 4.05114, 3.49005, + 3.03478, 3.78798, 4.05305, + .03711, .01563, 148.98785, 4.35691, 3.79904, + 3.34638, 4.09537, 4.35880, + .03751, .01583, 157.71838, 4.66393, 4.11163, + 3.66450, 4.40391, 4.66579, + .03789, .01602, 165.83470, 4.95807, 4.40824, + 3.96301, 4.69945, 4.95991, + .03826, .01621, 174.34233, 5.27020, 4.72525, + 4.28479, 5.01299, 5.27202, + .03864, .01641, 182.61520, 5.58180, 5.03961, + 4.60149, 5.32595, 5.58360, + .03900, .01659, 190.73335, 5.89174, 5.35357, + 4.91928, 5.63716, 5.89351, + .03934, .01677, 198.39970, 6.19038, 5.65524, + 5.22372, 5.93701, 6.19214 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .03969, .01695, 206.22839, 6.50027, 5.96825, + 5.53959, 6.24809, 6.50201, + .04003, .01712, 214.11224, 6.81659, 6.28841, + 5.86344, 6.56558, 6.81831, + .04036, .01730, 221.52281, 7.12015, 6.59427, + 6.17134, 6.87024, 7.12185, + .04068, .01746, 228.75302, 7.41926, 6.89664, + 6.47681, 7.17039, 7.42094, + .04100, .01763, 236.03862, 7.72557, 7.20575, + 6.78857, 7.47774, 7.72724 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .03013, .01236, 4.11114, .59795, .00000, + .00000, .30834, .59950, + .03044, .01249, 5.94504, .61088, .00000, + .00000, .32291, .61241, + .03091, .01269, 8.97974, .63869, .02010, + .00000, .35315, .64019, + .03126, .01284, 11.28070, .66945, .04638, + .00000, .38568, .67093, + .03163, .01300, 14.15460, .70672, .09622, + .00000, .42480, .70817, + .03196, .01315, 16.78705, .74659, .13725, + .00000, .46626, .74803, + .03228, .01329, 19.55661, .79025, .18525, + .00000, .51143, .79167, + .03262, .01344, 22.67729, .84383, .24167, + .00000, .56661, .84523 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .03292, .01358, 25.58073, .89614, .29747, + .00000, .62029, .89751, + .03321, .01371, 28.51373, .95245, .35561, + .00000, .67793, .95381, + .03344, .01382, 31.03095, 1.00012, .40845, + .00000, .72663, 1.00146, + .03394, .01405, 36.44825, 1.11563, .52667, + .00701, .84434, 1.11694, + .03438, .01426, 41.39034, 1.22771, .64196, + .13573, .95830, 1.22899, + .03487, .01449, 47.28973, 1.36743, .78769, + .31758, 1.10009, 1.36868, + .03539, .01474, 53.79296, 1.53006, .95563, + .48928, 1.26485, 1.53129, + .03587, .01497, 59.91392, 1.69176, 1.11998, + .65473, 1.42844, 1.69296 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .03636, .01521, 66.45472, 1.86969, 1.30303, + .84497, 1.60825, 1.87086, + .03676, .01540, 72.07478, 2.02856, 1.46554, + 1.01086, 1.76867, 2.02972, + .03726, .01565, 79.08759, 2.23405, 1.67484, + 1.22383, 1.97600, 2.23518, + .03770, .01587, 85.61015, 2.42977, 1.87615, + 1.43177, 2.17334, 2.43089, + .03811, .01607, 91.58384, 2.61693, 2.06509, + 1.62142, 2.36195, 2.61802, + .03863, .01634, 99.51576, 2.87045, 2.32370, + 1.88537, 2.61729, 2.87152, + .03912, .01659, 107.13982, 3.12242, 2.57970, + 2.14511, 2.87096, 3.12347, + .03959, .01683, 114.40870, 3.36982, 2.83047, + 2.39900, 3.11991, 3.37085 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .04006, .01707, 121.92589, 3.63119, 3.09656, + 2.66987, 3.38282, 3.63220, + .04052, .01730, 129.25760, 3.89444, 3.36238, + 2.93783, 3.64755, 3.89544, + .04096, .01753, 136.48776, 4.15805, 3.63061, + 3.21080, 3.91254, 4.15903, + .04138, .01775, 143.18466, 4.40986, 3.88436, + 3.46608, 4.16565, 4.41083, + .04180, .01797, 150.18846, 4.67646, 4.15499, + 3.74075, 4.43353, 4.67741, + .04222, .01819, 156.97581, 4.94189, 4.42261, + 4.01028, 4.70020, 4.94283, + .04262, .01840, 163.62131, 5.20532, 4.68933, + 4.28024, 4.96480, 5.20625, + .04300, .01860, 169.87910, 5.45857, 4.94502, + 4.53821, 5.21914, 5.45948 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .04338, .01880, 176.25406, 5.72080, 5.20978, + 4.80535, 5.48247, 5.72171, + .04376, .01901, 182.66040, 5.98794, 5.48006, + 5.07874, 5.75068, 5.98884, + .04413, .01920, 188.66431, 6.24375, 5.73769, + 5.33803, 6.00750, 6.24463, + .04448, .01939, 194.51259, 6.49538, 5.99199, + 5.59491, 6.26008, 6.49626, + .04483, .01958, 200.39140, 6.75258, 6.25145, + 5.85657, 6.51824, 6.75345 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .03214, .01319, 4.12328, .56981, .00000, + .00000, .29387, .57070, + .03248, .01334, 5.86862, .58285, .00000, + .00000, .30846, .58373, + .03298, .01357, 8.73364, .61028, .01949, + .00000, .33816, .61112, + .03336, .01374, 10.89161, .63993, .04485, + .00000, .36947, .64076, + .03376, .01393, 13.56912, .67569, .09274, + .00000, .40696, .67649, + .03411, .01409, 16.01068, .71363, .13181, + .00000, .44640, .71442, + .03446, .01425, 18.56808, .75500, .17730, + .00000, .48918, .75577, + .03482, .01442, 21.43855, .80550, .23054, + .00000, .54118, .80625 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .03515, .01457, 24.09929, .85462, .28298, + .00000, .59158, .85535, + .03546, .01472, 26.77872, .90731, .33741, + .00000, .64552, .90803, + .03571, .01484, 29.07186, .95183, .38677, + .00000, .69101, .95254, + .03626, .01510, 33.98741, 1.05921, .49670, + .00660, .80045, 1.05990, + .03673, .01533, 38.44988, 1.16297, .60346, + .12570, .90597, 1.16363, + .03726, .01560, 43.75376, 1.29183, .73785, + .29363, 1.03676, 1.29247, + .03783, .01587, 49.57582, 1.44120, .89206, + .45131, 1.18812, 1.44182, + .03834, .01613, 55.03296, 1.58911, 1.04237, + .60262, 1.33781, 1.58972 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .03887, .01640, 60.84338, 1.75134, 1.20922, + .77606, 1.50180, 1.75192, + .03931, .01662, 65.81926, 1.89575, 1.35688, + .92680, 1.64766, 1.89632, + .03985, .01689, 72.00783, 2.08195, 1.54647, + 1.11973, 1.83559, 2.08250, + .04032, .01714, 77.74625, 2.25880, 1.72832, + 1.30760, 2.01394, 2.25934, + .04077, .01736, 82.98495, 2.42744, 1.89848, + 1.47839, 2.18394, 2.42796, + .04133, .01766, 89.92172, 2.65527, 2.13083, + 1.71556, 2.41348, 2.65578, + .04187, .01793, 96.56747, 2.88105, 2.36014, + 1.94823, 2.64084, 2.88154, + .04237, .01820, 102.88454, 3.10213, 2.58417, + 2.17506, 2.86338, 3.10262 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .04288, .01847, 109.40055, 3.33514, 2.82133, + 2.41652, 3.09782, 3.33562, + .04338, .01873, 115.73639, 3.56924, 3.05764, + 2.65473, 3.33331, 3.56970, + .04386, .01898, 121.97113, 3.80315, 3.29563, + 2.89697, 3.56852, 3.80361, + .04431, .01922, 127.72923, 4.02610, 3.52023, + 3.12291, 3.79267, 4.02655, + .04477, .01947, 133.74048, 4.26170, 3.75937, + 3.36567, 4.02947, 4.26215, + .04522, .01971, 139.55003, 4.49578, 3.99533, + 3.60331, 4.26471, 4.49622, + .04565, .01994, 145.22813, 4.72770, 4.23013, + 3.84099, 4.49772, 4.72813, + .04606, .02016, 150.56282, 4.95025, 4.45479, + 4.06769, 4.72130, 4.95067 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .04648, .02039, 155.98723, 5.18032, 4.68705, + 4.30206, 4.95239, 5.18074, + .04689, .02061, 161.42900, 5.41433, 4.92381, + 4.54158, 5.18740, 5.41474, + .04729, .02083, 166.51694, 5.63802, 5.14908, + 4.76831, 5.41204, 5.63844, + .04767, .02103, 171.46663, 5.85779, 5.37116, + 4.99270, 5.63270, 5.85820, + .04805, .02124, 176.43259, 6.08208, 5.59742, + 5.22090, 5.85787, 6.08248 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .03931, .01624, 4.15626, .49012, .00000, + .00000, .25325, .48979, + .03973, .01645, 5.63263, .50326, .00000, + .00000, .26766, .50292, + .04037, .01678, 8.00452, .52929, .01766, + .00000, .29557, .52894, + .04085, .01702, 9.75718, .55567, .04032, + .00000, .32331, .55530, + .04136, .01728, 11.88779, .58704, .08253, + .00000, .35611, .58667, + .04181, .01752, 13.80460, .61949, .11598, + .00000, .38978, .61911, + .04224, .01774, 15.78503, .65436, .15440, + .00000, .42582, .65397, + .04271, .01799, 17.98152, .69626, .19869, + .00000, .46896, .69587 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .04312, .01820, 19.99405, .73652, .24179, + .00000, .51027, .73611, + .04352, .01842, 22.00113, .77919, .28600, + .00000, .55397, .77879, + .04384, .01859, 23.70376, .81507, .32579, + .00000, .59065, .81466, + .04453, .01896, 27.30799, .90025, .41319, + .00545, .67752, .89983, + .04514, .01928, 30.52934, .98145, .49690, + .09880, .76016, .98103, + .04582, .01965, 34.30603, 1.08109, .60094, + .22961, .86139, 1.08067, + .04654, .02004, 38.39671, 1.19506, .71873, + .35027, .97699, 1.19464, + .04720, .02040, 42.18064, 1.30649, .83209, + .46459, 1.08988, 1.30606 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .04787, .02077, 46.16375, 1.42743, .95659, + .59433, 1.21227, 1.42700, + .04844, .02108, 49.53876, 1.53402, 1.06568, + .70591, 1.32004, 1.53360, + .04913, .02146, 53.69239, 1.67015, 1.20439, + .84733, 1.45759, 1.66973, + .04974, .02180, 57.50675, 1.79828, 1.33627, + .98391, 1.58695, 1.79786, + .05031, .02212, 60.95300, 1.91936, 1.45853, + 1.10677, 1.70915, 1.91895, + .05103, .02252, 65.47627, 2.08161, 1.62414, + 1.27617, 1.87280, 2.08121, + .05172, .02291, 69.76447, 2.24091, 1.78608, + 1.44078, 2.03339, 2.24051, + .05237, .02327, 73.80102, 2.39560, 1.94295, + 1.59989, 2.18927, 2.39520 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .05302, .02364, 77.93060, 2.55739, 2.10781, + 1.76809, 2.35224, 2.55700, + .05366, .02400, 81.90598, 2.71863, 2.27071, + 1.93253, 2.51462, 2.71826, + .05428, .02435, 85.79163, 2.87870, 2.43377, + 2.09887, 2.67574, 2.87833, + .05486, .02468, 89.34549, 3.03014, 2.58645, + 2.25268, 2.82818, 3.02979, + .05544, .02501, 93.03499, 3.18929, 2.74821, + 2.41721, 2.98830, 3.18894, + .05602, .02534, 96.56839, 3.34634, 2.90666, + 2.57704, 3.14630, 3.34600, + .05658, .02566, 100.00272, 3.50111, 3.06356, + 2.73617, 3.30197, 3.50078, + .05710, .02596, 103.20500, 3.64877, 3.21279, + 2.88701, 3.45047, 3.64846 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .05764, .02626, 106.44108, 3.80063, 3.36629, + 3.04217, 3.60317, 3.80033, + .05816, .02656, 109.67001, 3.95435, 3.52204, + 3.20005, 3.75771, 3.95406, + .05867, .02685, 112.66476, 4.10047, 3.66934, + 3.34854, 3.90460, 4.10020, + .05915, .02713, 115.56670, 4.24344, 3.81404, + 3.49502, 4.04831, 4.24318, + .05964, .02741, 118.45908, 4.38866, 3.96073, + 3.64324, 4.19425, 4.38841 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .04815, .02015, 4.17620, .42122, .00000, + .00000, .21857, .42073, + .04868, .02045, 5.39392, .43410, .00000, + .00000, .23252, .43362, + .04949, .02091, 7.31967, .45846, .01592, + .00000, .25844, .45798, + .05010, .02126, 8.71882, .48176, .03604, + .00000, .28287, .48128, + .05075, .02163, 10.38546, .50912, .07304, + .00000, .31142, .50864, + .05132, .02196, 11.86576, .53670, .10149, + .00000, .34001, .53622, + .05188, .02227, 13.37436, .56590, .13371, + .00000, .37019, .56543, + .05247, .02262, 15.02781, .60042, .17030, + .00000, .40573, .59995 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .05300, .02292, 16.52511, .63315, .20545, + .00000, .43934, .63268, + .05351, .02322, 18.00378, .66741, .24107, + .00000, .47445, .66695, + .05392, .02346, 19.24687, .69606, .27288, + .00000, .50377, .69560, + .05481, .02397, 21.84416, .76294, .34178, + .00448, .57206, .76250, + .05558, .02443, 24.12762, .82580, .40682, + .07716, .63611, .82536, + .05646, .02494, 26.76677, .90196, .48662, + .17839, .71360, .90154, + .05738, .02548, 29.58615, .98785, .57571, + .27007, .80085, .98745, + .05823, .02598, 32.15816, 1.07071, .66031, + .35578, .88492, 1.07032 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .05909, .02649, 34.83349, 1.15966, .75223, + .45208, .97508, 1.15929, + .05982, .02692, 37.07515, 1.23726, .83194, + .53400, 1.05366, 1.23691, + .06070, .02745, 39.80337, 1.33537, .93228, + .63679, 1.15295, 1.33504, + .06149, .02792, 42.28355, 1.42686, 1.02681, + .73520, 1.24548, 1.42655, + .06222, .02835, 44.49924, 1.51251, 1.11360, + .82276, 1.33206, 1.51222, + .06315, .02890, 47.38067, 1.62632, 1.23021, + .94261, 1.44704, 1.62606, + .06403, .02943, 50.08162, 1.73699, 1.34313, + 1.05791, 1.55879, 1.73675, + .06486, .02993, 52.59739, 1.84351, 1.45155, + 1.16836, 1.66631, 1.84330 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .06570, .03043, 55.14891, 1.95407, 1.56465, + 1.28429, 1.77785, 1.95389, + .06652, .03092, 57.57781, 2.06333, 1.67541, + 1.39656, 1.88806, 2.06317, + .06731, .03139, 59.93538, 2.17106, 1.78560, + 1.50950, 1.99668, 2.17093, + .06805, .03184, 62.06791, 2.27221, 1.88792, + 1.61297, 2.09866, 2.27211, + .06880, .03229, 64.26939, 2.37789, 1.99576, + 1.72318, 2.20516, 2.37781, + .06954, .03273, 66.35577, 2.48144, 2.10060, + 1.82934, 2.30951, 2.48139, + .07025, .03316, 68.37192, 2.58293, 2.20389, + 1.93456, 2.41175, 2.58291, + .07093, .03356, 70.23564, 2.67917, 2.30150, + 2.03364, 2.50870, 2.67917 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .07161, .03397, 72.10634, 2.77762, 2.40138, + 2.13502, 2.60785, 2.77765, + .07228, .03438, 73.96191, 2.87677, 2.50224, + 2.23771, 2.70769, 2.87682, + .07293, .03477, 75.66667, 2.97046, 2.59702, + 2.33362, 2.80203, 2.97054, + .07355, .03514, 77.31194, 3.06176, 2.68978, + 2.42793, 2.89394, 3.06186, + .07417, .03551, 78.93932, 3.15401, 2.78332, + 2.52284, 2.98681, 3.15414 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .05426, .02303, 4.17687, .38561, .00000, + .00000, .20078, .38538, + .05488, .02340, 5.24915, .39821, .00000, + .00000, .21433, .39798, + .05582, .02396, 6.93351, .42145, .01491, + .00000, .23898, .42124, + .05653, .02438, 8.14632, .44301, .03360, + .00000, .26157, .44281, + .05728, .02483, 9.57386, .46814, .06769, + .00000, .28776, .46794, + .05794, .02523, 10.83263, .49308, .09343, + .00000, .31363, .49290, + .05859, .02562, 12.10510, .51927, .12236, + .00000, .34069, .51910, + .05928, .02604, 13.49005, .54991, .15489, + .00000, .37226, .54975 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .05989, .02640, 14.73546, .57873, .18591, + .00000, .40188, .57859, + .06048, .02676, 15.95821, .60868, .21712, + .00000, .43259, .60855, + .06096, .02705, 16.98057, .63364, .24487, + .00000, .45815, .63351, + .06198, .02768, 19.09956, .69130, .30443, + .00398, .51709, .69119, + .06288, .02823, 20.94353, .74501, .36018, + .06641, .57188, .74492, + .06390, .02885, 23.05608, .80958, .42805, + .15307, .63766, .80953, + .06497, .02950, 25.29404, .88178, .50318, + .23069, .71109, .88176, + .06596, .03011, 27.31817, .95086, .57395, + .30269, .78127, .95086 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .06696, .03072, 29.40827, 1.02453, .65034, + .38307, .85604, 1.02457, + .06780, .03124, 31.14745, 1.08839, .71617, + .45100, .92080, 1.08845, + .06882, .03187, 33.24943, 1.16865, .79853, + .53572, 1.00212, 1.16874, + .06974, .03243, 35.14843, 1.24307, .87570, + .61640, 1.07748, 1.24319, + .07058, .03295, 36.83270, 1.31234, .94612, + .68772, 1.14760, 1.31249, + .07166, .03361, 39.01063, 1.40391, 1.04028, + .78490, 1.24023, 1.40410, + .07268, .03424, 41.03750, 1.49243, 1.13092, + .87781, 1.32974, 1.49266, + .07365, .03483, 42.91275, 1.57719, 1.21749, + .96633, 1.41541, 1.57745 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .07462, .03543, 44.80434, 1.66474, 1.30737, + 1.05884, 1.50386, 1.66504, + .07557, .03602, 46.59188, 1.75081, 1.39492, + 1.14791, 1.59080, 1.75115, + .07648, .03658, 48.31958, 1.83534, 1.48170, + 1.23721, 1.67614, 1.83572, + .07734, .03711, 49.87072, 1.91432, 1.56185, + 1.31857, 1.75588, 1.91474, + .07820, .03764, 51.46662, 1.99656, 1.64608, + 1.40499, 1.83888, 1.99702, + .07906, .03817, 52.96835, 2.07679, 1.72757, + 1.48781, 1.91983, 2.07728, + .07988, .03867, 54.41437, 2.15516, 1.80761, + 1.56966, 1.99889, 2.15568, + .08066, .03915, 55.74330, 2.22919, 1.88296, + 1.64642, 2.07357, 2.22975 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .08145, .03964, 57.07123, 2.30468, 1.95981, + 1.72471, 2.14971, 2.30528, + .08222, .04012, 58.38353, 2.38047, 2.03718, + 1.80380, 2.22613, 2.38110, + .08297, .04057, 59.58119, 2.45182, 2.10960, + 1.87735, 2.29808, 2.45249, + .08368, .04101, 60.73428, 2.52118, 2.18032, + 1.94952, 2.36800, 2.52188, + .08440, .04145, 61.86884, 2.59104, 2.25139, + 2.02191, 2.43843, 2.59177 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .05911, .02545, 4.16963, .36242, .00000, + .00000, .18920, .36244, + .05980, .02587, 5.14202, .37475, .00000, + .00000, .20242, .37479, + .06085, .02652, 6.66316, .39714, .01418, + .00000, .22612, .39720, + .06163, .02700, 7.75165, .41747, .03186, + .00000, .24740, .41755, + .06247, .02752, 9.02198, .44104, .06392, + .00000, .27197, .44113, + .06321, .02798, 10.13641, .46418, .08782, + .00000, .29597, .46429, + .06393, .02842, 11.25640, .48834, .11452, + .00000, .32094, .48846, + .06470, .02890, 12.46929, .51639, .14434, + .00000, .34985, .51653 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .06538, .02933, 13.55447, .54262, .17263, + .00000, .37683, .54278, + .06604, .02974, 14.61540, .56973, .20093, + .00000, .40465, .56990, + .06657, .03007, 15.49893, .59226, .22601, + .00000, .42775, .59245, + .06772, .03079, 17.31929, .64392, .27951, + .00364, .48060, .64415, + .06872, .03141, 18.89131, .69174, .32927, + .05949, .52943, .69199, + .06985, .03212, 20.68061, .74890, .38951, + .13680, .58772, .74919, + .07104, .03287, 22.56447, .81241, .45577, + .20550, .65239, .81274, + .07214, .03356, 24.25746, .87281, .51783, + .26884, .71381, .87318 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .07326, .03426, 25.99620, .93691, .58449, + .33926, .77895, .93732, + .07419, .03484, 27.43552, .99222, .64168, + .39847, .83510, .99267, + .07533, .03556, 29.16604, 1.06142, .71291, + .47199, .90530, 1.06190, + .07635, .03620, 30.72223, 1.12532, .77938, + .54175, .97009, 1.12585, + .07729, .03679, 32.09483, 1.18455, .83977, + .60310, 1.03011, 1.18511, + .07849, .03754, 33.86224, 1.26255, .92023, + .68643, 1.10911, 1.26316, + .07963, .03826, 35.49815, 1.33764, .99735, + .76576, 1.18513, 1.33830, + .08070, .03893, 37.00385, 1.40924, 1.07070, + .84102, 1.25759, 1.40995 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .08177, .03960, 38.51649, 1.48295, 1.14662, + .91943, 1.33215, 1.48370, + .08283, .04026, 39.93781, 1.55514, 1.22027, + .99460, 1.40516, 1.55594, + .08384, .04090, 41.30722, 1.62583, 1.29307, + 1.06978, 1.47662, 1.62667, + .08480, .04149, 42.52941, 1.69164, 1.36006, + 1.13799, 1.54314, 1.69253, + .08576, .04209, 43.78378, 1.76000, 1.43029, + 1.21029, 1.61222, 1.76093, + .08671, .04269, 44.95744, 1.82646, 1.49800, + 1.27933, 1.67937, 1.82744, + .08761, .04325, 46.08457, 1.89123, 1.56436, + 1.34742, 1.74479, 1.89225, + .08848, .04379, 47.11561, 1.95224, 1.62664, + 1.41108, 1.80641, 1.95330 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08935, .04433, 48.14227, 2.01430, 1.69001, + 1.47586, 1.86908, 2.01540, + .09021, .04487, 49.15392, 2.07646, 1.75368, + 1.54116, 1.93185, 2.07761, + .09104, .04538, 50.07220, 2.13482, 1.81309, + 1.60169, 1.99078, 2.13601, + .09182, .04587, 50.95475, 2.19145, 1.87101, + 1.66100, 2.04794, 2.19268, + .09262, .04636, 51.81937, 2.24835, 1.92909, + 1.72034, 2.10538, 2.24962 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .06319, .02772, 4.15657, .34619, .00000, + .00000, .18090, .34617, + .06395, .02820, 5.05550, .35829, .00000, + .00000, .19383, .35828, + .06509, .02892, 6.45326, .37995, .01359, + .00000, .21672, .37997, + .06595, .02946, 7.44757, .39929, .03045, + .00000, .23695, .39933, + .06687, .03005, 8.59994, .42159, .06091, + .00000, .26020, .42167, + .06767, .03056, 9.60659, .44333, .08338, + .00000, .28274, .44342, + .06846, .03106, 10.61343, .46589, .10836, + .00000, .30607, .46601, + .06930, .03159, 11.69932, .49194, .13612, + .00000, .33294, .49209 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .07005, .03206, 12.66686, .51621, .16233, + .00000, .35791, .51637, + .07077, .03253, 13.60955, .54116, .18845, + .00000, .38354, .54135, + .07135, .03290, 14.39204, .56186, .21152, + .00000, .40477, .56207, + .07260, .03369, 15.99632, .60906, .26051, + .00339, .45309, .60932, + .07370, .03439, 17.37291, .65252, .30584, + .05434, .49751, .65282, + .07494, .03518, 18.93136, .70424, .36045, + .12473, .55029, .70458, + .07625, .03601, 20.56393, .76141, .42024, + .18687, .60856, .76181, + .07744, .03677, 22.02333, .81552, .47596, + .24390, .66364, .81597 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07866, .03755, 23.51552, .87273, .53559, + .30706, .72182, .87323, + .07968, .03820, 24.74546, .92190, .58654, + .35997, .77179, .92244, + .08093, .03899, 26.21780, .98320, .64979, + .42542, .83404, .98379, + .08204, .03969, 27.53678, 1.03961, .70862, + .48734, .89130, 1.04026, + .08307, .04034, 28.69463, 1.09172, .76187, + .54157, .94416, 1.09241, + .08438, .04117, 30.18037, 1.16015, .83262, + .61505, 1.01353, 1.16090, + .08562, .04196, 31.54940, 1.22578, .90018, + .68473, 1.08005, 1.22659, + .08678, .04269, 32.80396, 1.28816, .96425, + .75064, 1.14325, 1.28903 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08795, .04344, 34.05998, 1.35220, 1.03038, + .81913, 1.20810, 1.35313, + .08911, .04416, 35.23427, 1.41472, 1.09431, + .88455, 1.27139, 1.41570, + .09020, .04485, 36.36274, 1.47579, 1.15737, + .94986, 1.33319, 1.47682, + .09124, .04550, 37.36457, 1.53248, 1.21521, + 1.00890, 1.39057, 1.53357, + .09229, .04616, 38.39075, 1.59125, 1.27575, + 1.07140, 1.45002, 1.59240, + .09332, .04681, 39.34624, 1.64822, 1.33394, + 1.13089, 1.50765, 1.64942, + .09430, .04743, 40.26187, 1.70363, 1.39087, + 1.18946, 1.56368, 1.70488, + .09524, .04801, 41.09597, 1.75571, 1.44417, + 1.24410, 1.61634, 1.75701 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09618, .04860, 41.92400, 1.80858, 1.49829, + 1.29957, 1.66979, 1.80992, + .09712, .04919, 42.73792, 1.86144, 1.55258, + 1.35541, 1.72323, 1.86284, + .09802, .04974, 43.47298, 1.91094, 1.60311, + 1.40703, 1.77328, 1.91239, + .09887, .05028, 44.17844, 1.95891, 1.65232, + 1.45755, 1.82176, 1.96041, + .09973, .05081, 44.86693, 2.00701, 1.70155, + 1.50800, 1.87037, 2.00855 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .07809, .03671, 4.07297, .30085, .00000, + .00000, .15779, .30104, + .07910, .03739, 4.75424, .31198, .00000, + .00000, .16962, .31220, + .08063, .03842, 5.79588, .33113, .01173, + .00000, .18981, .33142, + .08178, .03919, 6.52385, .34740, .02606, + .00000, .20684, .34773, + .08301, .04001, 7.34958, .36591, .05162, + .00000, .22614, .36629, + .08408, .04074, 8.06161, .38347, .06988, + .00000, .24438, .38390, + .08513, .04144, 8.76317, .40141, .08989, + .00000, .26298, .40189, + .08626, .04219, 9.51012, .42176, .11174, + .00000, .28402, .42229 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08725, .04285, 10.16697, .44043, .13209, + .00000, .30330, .44101, + .08822, .04349, 10.79996, .45938, .15209, + .00000, .32282, .46000, + .08899, .04401, 11.31987, .47498, .16963, + .00000, .33888, .47564, + .09066, .04511, 12.36833, .50991, .20623, + .00268, .37477, .51065, + .09211, .04607, 13.24868, .54154, .23956, + .04040, .40723, .54236, + .09376, .04716, 14.22757, .57864, .27913, + .09219, .44524, .57954, + .09549, .04830, 15.23618, .61899, .32176, + .13697, .48653, .61998, + .09708, .04933, 16.12182, .65657, .36088, + .17745, .52496, .65765 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09869, .05039, 17.01401, .69581, .40222, + .22177, .56505, .69697, + .10004, .05126, 17.73875, .72912, .43713, + .25843, .59906, .73037, + .10168, .05233, 18.59341, .77017, .47995, + .30325, .64094, .77150, + .10314, .05328, 19.34931, .80754, .51938, + .34524, .67905, .80896, + .10449, .05414, 20.00178, .84166, .55464, + .38154, .71383, .84316, + .10620, .05525, 20.82920, .88603, .60106, + .43032, .75904, .88763, + .10782, .05629, 21.57930, .92810, .64489, + .47603, .80189, .92979, + .10935, .05726, 22.25599, .96766, .68600, + .51881, .84217, .96945 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11087, .05823, 22.92550, 1.00790, .72807, + .56290, .88314, 1.00978, + .11237, .05918, 23.53993, 1.04677, .76830, + .60453, .92270, 1.04874, + .11379, .06008, 24.12532, 1.08445, .80771, + .64584, .96103, 1.08651, + .11513, .06093, 24.63459, 1.11908, .84346, + .68276, .99627, 1.12122, + .11649, .06178, 25.15291, 1.15474, .88068, + .72165, 1.03255, 1.15697, + .11782, .06261, 25.62605, 1.18898, .91610, + .75828, 1.06738, 1.19129, + .11908, .06341, 26.07604, 1.22208, .95056, + .79416, 1.10104, 1.22447, + .12028, .06416, 26.47929, 1.25294, .98256, + .82735, 1.13243, 1.25541 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12149, .06491, 26.87498, 1.28406, 1.01484, + .86084, 1.16407, 1.28660, + .12269, .06566, 27.26041, 1.31498, 1.04705, + .89437, 1.19553, 1.31761, + .12383, .06636, 27.60135, 1.34370, 1.07676, + .92509, 1.22474, 1.34640, + .12492, .06704, 27.92710, 1.37141, 1.10558, + .95506, 1.25291, 1.37418, + .12602, .06771, 28.23986, 1.39899, 1.13421, + .98476, 1.28096, 1.40184 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09766, .05032, 3.88299, .26354, .00000, + .00000, .13839, .26406, + .09906, .05128, 4.36897, .27323, .00000, + .00000, .14869, .27383, + .10118, .05274, 5.09747, .28931, .00972, + .00000, .16569, .29004, + .10275, .05381, 5.59601, .30237, .02143, + .00000, .17940, .30319, + .10444, .05496, 6.14936, .31701, .04205, + .00000, .19474, .31793, + .10592, .05596, 6.62004, .33055, .05633, + .00000, .20889, .33156, + .10736, .05692, 7.07653, .34417, .07175, + .00000, .22309, .34527, + .10890, .05796, 7.55588, .35933, .08829, + .00000, .23887, .36053 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11025, .05886, 7.97141, .37304, .10349, + .00000, .25312, .37433, + .11157, .05974, 8.36701, .38675, .11822, + .00000, .26735, .38813, + .11262, .06044, 8.68826, .39797, .13102, + .00000, .27897, .39941, + .11489, .06193, 9.32338, .42259, .15728, + .00206, .30447, .42419, + .11686, .06322, 9.84262, .44451, .18079, + .02894, .32713, .44624, + .11908, .06468, 10.40777, .46982, .20828, + .06562, .35328, .47169, + .12141, .06619, 10.97923, .49686, .23741, + .09668, .38119, .49890, + .12353, .06756, 11.47014, .52163, .26369, + .12430, .40673, .52381 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12569, .06894, 11.95612, .54714, .29111, + .15416, .43302, .54947, + .12748, .07009, 12.34396, .56851, .31396, + .17854, .45504, .57098, + .12966, .07147, 12.79268, .59450, .34164, + .20798, .48181, .59712, + .13159, .07269, 13.18347, .61789, .36685, + .23528, .50589, .62065, + .13336, .07380, 13.51310, .63897, .38909, + .25854, .52758, .64185, + .13562, .07521, 13.92512, .66609, .41809, + .28952, .55549, .66913, + .13774, .07653, 14.29049, .69146, .44512, + .31819, .58161, .69467, + .13972, .07776, 14.61288, .71504, .47019, + .34472, .60587, .71839 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14170, .07898, 14.92693, .73878, .49560, + .37182, .63029, .74228, + .14364, .08017, 15.20731, .76143, .51960, + .39708, .65360, .76507, + .14547, .08129, 15.47175, .78320, .54294, + .42199, .67600, .78698, + .14719, .08233, 15.69394, .80296, .56385, + .44396, .69634, .80686, + .14892, .08338, 15.91855, .82317, .58549, + .46699, .71714, .82721, + .15062, .08440, 16.11665, .84235, .60585, + .48842, .73689, .84651, + .15223, .08537, 16.30323, .86077, .62553, + .50930, .75586, .86505, + .15375, .08627, 16.46564, .87776, .64364, + .52844, .77336, .88217 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .15528, .08718, 16.62188, .89476, .66178, + .54761, .79088, .89928, + .15679, .08808, 16.77198, .91155, .67976, + .56670, .80817, .91619, + .15821, .08892, 16.89951, .92697, .69617, + .58400, .82407, .93172, + .15957, .08973, 17.02077, .94178, .71203, + .60081, .83934, .94663, + .16094, .09053, 17.13329, .95639, .72765, + .61735, .85441, .96135 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11239, .06137, 3.70180, .24464, .00000, + .00000, .12844, .24561, + .11410, .06253, 4.08513, .25326, .00000, + .00000, .13766, .25435, + .11668, .06428, 4.65271, .26730, .00849, + .00000, .15258, .26857, + .11860, .06557, 5.03568, .27843, .01864, + .00000, .16434, .27983, + .12066, .06694, 5.45542, .29079, .03639, + .00000, .17739, .29234, + .12245, .06813, 5.80943, .30206, .04846, + .00000, .18925, .30375, + .12419, .06928, 6.14944, .31330, .06139, + .00000, .20105, .31511, + .12606, .07050, 6.50334, .32567, .07512, + .00000, .21403, .32762 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12769, .07157, 6.80742, .33677, .08762, + .00000, .22565, .33884, + .12928, .07260, 7.09472, .34777, .09964, + .00000, .23716, .34996, + .13055, .07342, 7.32636, .35672, .11005, + .00000, .24653, .35901, + .13326, .07516, 7.77758, .37617, .13116, + .00173, .26683, .37866, + .13562, .07667, 8.13956, .39329, .14987, + .02329, .28469, .39597, + .13827, .07835, 8.52771, .41287, .17155, + .05262, .30511, .41575, + .14104, .08010, 8.91495, .43358, .19428, + .07713, .32667, .43667, + .14356, .08167, 9.24244, .45234, .21458, + .09871, .34621, .45563 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .14610, .08325, 9.56266, .47149, .23560, + .12188, .36614, .47498, + .14822, .08455, 9.81477, .48740, .25298, + .14065, .38271, .49106, + .15077, .08612, 10.10222, .50659, .27386, + .16313, .40268, .51046, + .15304, .08750, 10.34978, .52374, .29276, + .18385, .42052, .52779, + .15511, .08875, 10.55447, .53905, .30928, + .20135, .43645, .54326, + .15773, .09033, 10.80758, .55861, .33070, + .22454, .45682, .56304, + .16019, .09179, 11.02789, .57677, .35051, + .24583, .47571, .58139, + .16248, .09315, 11.21865, .59350, .36874, + .26538, .49314, .59831 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .16477, .09451, 11.40219, .61024, .38712, + .28525, .51058, .61524, + .16699, .09581, 11.56131, .62605, .40433, + .30362, .52706, .63123, + .16910, .09704, 11.71021, .64119, .42100, + .32166, .54284, .64654, + .17106, .09817, 11.83104, .65479, .43580, + .33744, .55704, .66031, + .17303, .09932, 11.95267, .66866, .45107, + .35393, .57151, .67434, + .17495, .10042, 12.05573, .68170, .46532, + .36916, .58514, .68754, + .17678, .10146, 12.15197, .69417, .47905, + .38395, .59816, .70016, + .17849, .10243, 12.23287, .70559, .49160, + .39742, .61011, .71172 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .18022, .10341, 12.30893, .71696, .50410, + .41085, .62200, .72323, + .18191, .10437, 12.38080, .72813, .51646, + .42417, .63369, .73454, + .18351, .10526, 12.43828, .73829, .52764, + .43616, .64434, .74483, + .18503, .10612, 12.49278, .74802, .53843, + .44780, .65454, .75469, + .18656, .10696, 12.54075, .75756, .54899, + .45917, .66455, .76436 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .12497, .07107, 3.53302, .23234, .00000, + .00000, .12193, .23384, + .12695, .07239, 3.84976, .24010, .00000, + .00000, .13028, .24176, + .12995, .07437, 4.31433, .25257, .00760, + .00000, .14363, .25446, + .13216, .07581, 4.62416, .26230, .01664, + .00000, .15401, .26437, + .13453, .07735, 4.96074, .27304, .03236, + .00000, .16544, .27530, + .13659, .07868, 5.24281, .28274, .04293, + .00000, .17573, .28517, + .13859, .07996, 5.51181, .29235, .05418, + .00000, .18591, .29494, + .14072, .08132, 5.78992, .30285, .06603, + .00000, .19703, .30562 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14259, .08250, 6.02726, .31220, .07678, + .00000, .20692, .31513, + .14440, .08364, 6.25014, .32143, .08704, + .00000, .21666, .32450, + .14585, .08455, 6.42890, .32891, .09590, + .00000, .22456, .33210, + .14893, .08647, 6.77279, .34503, .11373, + .00151, .24155, .34848, + .15161, .08812, 7.04414, .35911, .12943, + .01971, .25639, .36279, + .15461, .08997, 7.33143, .37510, .14749, + .04441, .27323, .37903, + .15774, .09186, 7.61501, .39188, .16630, + .06488, .29089, .39607, + .16056, .09357, 7.85154, .40696, .18297, + .08276, .30676, .41139 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .16341, .09527, 8.08041, .42225, .20012, + .10186, .32286, .42692, + .16577, .09668, 8.25844, .43488, .21423, + .11725, .33615, .43975, + .16863, .09835, 8.45872, .45000, .23108, + .13557, .35208, .45512, + .17115, .09983, 8.62952, .46345, .24625, + .15239, .36624, .46879, + .17344, .10116, 8.76795, .47536, .25943, + .16649, .37880, .48090, + .17634, .10283, 8.93744, .49051, .27645, + .18512, .39477, .49630, + .17905, .10439, 9.08219, .50447, .29209, + .20211, .40950, .51049, + .18156, .10582, 9.20500, .51726, .30640, + .21764, .42300, .52349 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .18408, .10724, 9.32164, .52998, .32077, + .23336, .43645, .53644, + .18650, .10859, 9.41950, .54192, .33414, + .24779, .44908, .54858, + .18880, .10987, 9.51041, .55329, .34704, + .26194, .46112, .56015, + .19093, .11105, 9.58085, .56344, .35843, + .27422, .47187, .57048, + .19307, .11223, 9.65154, .57375, .37015, + .28704, .48281, .58098, + .19514, .11336, 9.70820, .58336, .38101, + .29881, .49303, .59077, + .19712, .11444, 9.76057, .59253, .39145, + .31021, .50277, .60011, + .19896, .11543, 9.80229, .60087, .40094, + .32054, .51165, .60861 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .20081, .11642, 9.84007, .60913, .41037, + .33080, .52046, .61703, + .20263, .11740, 9.87487, .61722, .41965, + .34096, .52908, .62528, + .20433, .11831, 9.89963, .62452, .42800, + .35005, .53689, .63272, + .20596, .11917, 9.92305, .63149, .43604, + .35885, .54435, .63984, + .20758, .12002, 9.94135, .63829, .44388, + .36742, .55163, .64677 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .13632, .07986, 3.37677, .22326, .00000, + .00000, .11714, .22538, + .13854, .08130, 3.64580, .23030, .00000, + .00000, .12478, .23260, + .14189, .08346, 4.03728, .24150, .00691, + .00000, .13688, .24409, + .14437, .08503, 4.29580, .25014, .01509, + .00000, .14618, .25295, + .14701, .08669, 4.57476, .25963, .02926, + .00000, .15638, .26267, + .14931, .08813, 4.80734, .26814, .03871, + .00000, .16551, .27138, + .15153, .08951, 5.02787, .27653, .04872, + .00000, .17448, .27996, + .15389, .09098, 5.25463, .28565, .05920, + .00000, .18423, .28929 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .15596, .09224, 5.44706, .29373, .06867, + .00000, .19286, .29755, + .15797, .09347, 5.62685, .30166, .07767, + .00000, .20133, .30566, + .15957, .09444, 5.77043, .30808, .08542, + .00000, .20817, .31222, + .16297, .09648, 6.04350, .32181, .10093, + .00136, .22281, .32626, + .16590, .09824, 6.25561, .33374, .11451, + .01718, .23552, .33844, + .16919, .10019, 6.47760, .34721, .13006, + .03862, .24986, .35220, + .17261, .10219, 6.69471, .36125, .14614, + .05627, .26481, .36655, + .17569, .10398, 6.87340, .37377, .16032, + .07161, .27817, .37935 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .17879, .10576, 7.04465, .38642, .17485, + .08792, .29164, .39228, + .18135, .10723, 7.17636, .39680, .18674, + .10099, .30272, .40289, + .18443, .10897, 7.32258, .40918, .20087, + .11650, .31593, .41554, + .18716, .11051, 7.44611, .42013, .21356, + .13068, .32762, .42674, + .18962, .11188, 7.54394, .42977, .22451, + .14252, .33793, .43660, + .19274, .11361, 7.66257, .44197, .23861, + .15809, .35099, .44909, + .19564, .11520, 7.76186, .45315, .25151, + .17224, .36296, .46053, + .19832, .11666, 7.84407, .46333, .26325, + .18511, .37388, .47094 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .20100, .11811, 7.92095, .47342, .27501, + .19810, .38472, .48128, + .20357, .11948, 7.98284, .48282, .28588, + .20997, .39484, .49090, + .20600, .12079, 8.03985, .49175, .29635, + .22157, .40445, .50005, + .20825, .12197, 8.08116, .49965, .30553, + .23160, .41299, .50815, + .21051, .12316, 8.12251, .50766, .31497, + .24204, .42165, .51636, + .21269, .12429, 8.15272, .51508, .32367, + .25158, .42969, .52397, + .21476, .12536, 8.18020, .52212, .33202, + .26080, .43733, .53120, + .21668, .12636, 8.19985, .52850, .33957, + .26912, .44427, .53775 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .21862, .12734, 8.21620, .53478, .34705, + .27737, .45111, .54420, + .22051, .12831, 8.23037, .54091, .35439, + .28551, .45780, .55050, + .22229, .12920, 8.23729, .54641, .36096, + .29276, .46382, .55616, + .22397, .13005, 8.24382, .55165, .36728, + .29978, .46956, .56155, + .22565, .13088, 8.24615, .55672, .37342, + .30658, .47514, .56677 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15682, .09557, 3.09660, .21005, .00000, + .00000, .11025, .21356, + .15947, .09718, 3.30098, .21592, .00000, + .00000, .11676, .21968, + .16344, .09960, 3.59485, .22514, .00587, + .00000, .12696, .22929, + .16635, .10134, 3.78549, .23215, .01278, + .00000, .13467, .23657, + .16945, .10318, 3.98912, .23978, .02469, + .00000, .14306, .24451, + .17214, .10476, 4.15748, .24656, .03253, + .00000, .15050, .25154, + .17473, .10628, 4.31570, .25319, .04079, + .00000, .15777, .25842, + .17749, .10787, 4.47691, .26033, .04936, + .00000, .16559, .26583 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .17988, .10926, 4.61246, .26662, .05705, + .00000, .17246, .27235, + .18219, .11058, 4.73804, .27274, .06432, + .00000, .17916, .27869, + .18404, .11163, 4.83764, .27768, .07055, + .00000, .18456, .28381, + .18794, .11383, 5.02288, .28815, .08292, + .00114, .19600, .29465, + .19129, .11570, 5.16271, .29714, .09366, + .01375, .20584, .30397, + .19503, .11777, 5.30591, .30721, .10586, + .03081, .21685, .31440, + .19889, .11988, 5.44335, .31760, .11837, + .04472, .22823, .32516, + .20236, .12175, 5.55348, .32677, .12930, + .05670, .23828, .33465 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .20584, .12361, 5.65703, .33594, .14042, + .06936, .24835, .34416, + .20869, .12512, 5.73475, .34341, .14946, + .07944, .25656, .35190, + .21211, .12692, 5.81841, .35222, .16013, + .09131, .26627, .36104, + .21512, .12849, 5.88762, .35995, .16964, + .10211, .27480, .36906, + .21782, .12987, 5.93968, .36670, .17779, + .11105, .28226, .37605, + .22123, .13162, 6.00121, .37517, .18823, + .12276, .29165, .38484, + .22438, .13321, 6.04962, .38285, .19769, + .13332, .30018, .39282, + .22729, .13466, 6.08701, .38976, .20626, + .14287, .30789, .40001 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .23017, .13609, 6.12045, .39656, .21477, + .15245, .31549, .40707, + .23293, .13744, 6.14339, .40281, .22258, + .16114, .32251, .41358, + .23553, .13871, 6.16392, .40873, .23007, + .16960, .32915, .41973, + .23791, .13985, 6.17447, .41387, .23658, + .17685, .33498, .42509, + .24030, .14100, 6.18496, .41907, .24326, + .18438, .34086, .43052, + .24259, .14208, 6.18789, .42381, .24935, + .19120, .34627, .43547, + .24476, .14310, 6.18986, .42830, .25517, + .19777, .35139, .44015, + .24677, .14403, 6.18725, .43230, .26040, + .20367, .35598, .44433 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .24877, .14496, 6.18224, .43620, .26555, + .20949, .36048, .44842, + .25074, .14586, 6.17597, .43999, .27058, + .21521, .36486, .45238, + .25256, .14668, 6.16537, .44332, .27505, + .22026, .36875, .45588, + .25429, .14746, 6.15539, .44650, .27933, + .22514, .37245, .45921, + .25601, .14823, 6.14235, .44952, .28346, + .22984, .37600, .46239 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .18453, .11598, 2.74131, .19607, .00000, + .00000, .10317, .20203, + .18767, .11775, 2.88790, .20064, .00000, + .00000, .10845, .20692, + .19238, .12037, 3.09575, .20773, .00482, + .00000, .11663, .21451, + .19579, .12225, 3.22760, .21303, .01044, + .00000, .12273, .22016, + .19943, .12423, 3.36695, .21877, .02010, + .00000, .12931, .22627, + .20256, .12592, 3.48098, .22380, .02637, + .00000, .13509, .23163, + .20557, .12752, 3.58700, .22869, .03294, + .00000, .14068, .23683, + .20875, .12921, 3.69380, .23390, .03970, + .00000, .14666, .24237 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .21150, .13065, 3.78258, .23846, .04573, + .00000, .15187, .24722, + .21415, .13203, 3.86392, .24287, .05139, + .00000, .15692, .25189, + .21626, .13312, 3.92793, .24640, .05622, + .00000, .16097, .25565, + .22068, .13538, 4.04324, .25382, .06573, + .00093, .16947, .26351, + .22446, .13729, 4.12645, .26012, .07391, + .01062, .17670, .27020, + .22865, .13938, 4.20876, .26710, .08313, + .02372, .18473, .27759, + .23295, .14150, 4.28543, .27421, .09250, + .03428, .19292, .28513, + .23677, .14336, 4.34405, .28040, .10060, + .04330, .20008, .29170 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .24058, .14519, 4.39726, .28652, .10879, + .05277, .20719, .29820, + .24369, .14666, 4.43525, .29145, .11539, + .06025, .21294, .30343, + .24739, .14839, 4.47352, .29719, .12311, + .06900, .21966, .30953, + .25063, .14990, 4.50378, .30218, .12996, + .07691, .22552, .31483, + .25350, .15121, 4.52333, .30646, .13577, + .08341, .23057, .31938, + .25712, .15285, 4.54487, .31178, .14316, + .09186, .23689, .32505, + .26045, .15433, 4.55847, .31652, .14981, + .09943, .24256, .33011, + .26349, .15566, 4.56564, .32073, .15576, + .10621, .24763, .33461 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .26648, .15696, 4.57009, .32483, .16165, + .11298, .25259, .33898, + .26932, .15817, 4.56768, .32852, .16699, + .11907, .25710, .34292, + .27199, .15930, 4.56466, .33198, .17210, + .12497, .26134, .34662, + .27440, .16030, 4.55574, .33490, .17648, + .12997, .26499, .34977, + .27682, .16130, 4.54683, .33785, .18095, + .13516, .26867, .35294, + .27911, .16222, 4.53311, .34045, .18499, + .13981, .27198, .35575, + .28128, .16310, 4.51963, .34290, .18884, + .14428, .27510, .35839, + .28326, .16388, 4.50398, .34503, .19226, + .14825, .27786, .36069 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .28523, .16465, 4.48670, .34708, .19560, + .15215, .28054, .36290, + .28715, .16540, 4.46890, .34904, .19885, + .15597, .28312, .36503, + .28892, .16606, 4.44892, .35069, .20170, + .15930, .28536, .36684, + .29059, .16669, 4.43013, .35226, .20443, + .16252, .28749, .36855, + .29224, .16730, 4.40932, .35372, .20703, + .16559, .28950, .37015 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .22648, .14455, 2.27623, .17896, .00000, + .00000, .09500, .18960, + .23022, .14639, 2.37207, .18202, .00000, + .00000, .09891, .19308, + .23576, .14908, 2.50564, .18672, .00370, + .00000, .10488, .19839, + .23973, .15098, 2.58761, .19019, .00800, + .00000, .10927, .20229, + .24394, .15297, 2.67324, .19391, .01534, + .00000, .11397, .20646, + .24753, .15465, 2.74231, .19714, .02005, + .00000, .11806, .21007, + .25096, .15623, 2.80561, .20024, .02495, + .00000, .12198, .21353, + .25457, .15787, 2.86831, .20352, .02995, + .00000, .12614, .21719 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .25767, .15927, 2.91954, .20636, .03438, + .00000, .12973, .22035, + .26062, .16059, 2.96565, .20908, .03850, + .00000, .13318, .22338, + .26297, .16163, 3.00154, .21125, .04201, + .00000, .13593, .22579, + .26785, .16375, 3.06238, .21574, .04885, + .00071, .14164, .23077, + .27197, .16551, 3.10259, .21948, .05467, + .00768, .14644, .23492, + .27650, .16741, 3.13954, .22357, .06117, + .01709, .15170, .23945, + .28110, .16931, 3.17165, .22765, .06771, + .02458, .15700, .24397, + .28512, .17093, 3.19305, .23113, .07330, + .03092, .16156, .24783 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .28910, .17251, 3.21042, .23450, .07890, + .03751, .16602, .25158, + .29232, .17376, 3.22056, .23716, .08336, + .04268, .16958, .25454, + .29609, .17520, 3.22752, .24020, .08854, + .04867, .17368, .25792, + .29937, .17644, 3.23124, .24279, .09309, + .05405, .17722, .26081, + .30224, .17748, 3.22922, .24493, .09691, + .05841, .18022, .26320, + .30583, .17877, 3.22457, .24756, .10172, + .06406, .18391, .26613, + .30907, .17990, 3.21591, .24982, .10600, + .06906, .18717, .26867, + .31199, .18089, 3.20419, .25175, .10979, + .07351, .19002, .27085 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .31485, .18185, 3.19084, .25359, .11351, + .07791, .19277, .27292, + .31750, .18270, 3.17355, .25514, .11683, + .08182, .19520, .27468, + .31999, .18349, 3.15692, .25658, .11998, + .08559, .19747, .27632, + .32219, .18415, 3.13743, .25771, .12264, + .08874, .19936, .27761, + .32440, .18481, 3.11808, .25883, .12535, + .09200, .20124, .27890, + .32643, .18538, 3.09601, .25973, .12775, + .09488, .20288, .27995, + .32835, .18592, 3.07495, .26055, .13002, + .09764, .20441, .28092, + .33008, .18638, 3.05335, .26121, .13201, + .10006, .20571, .28169 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .33177, .18683, 3.03080, .26180, .13394, + .10242, .20695, .28240, + .33341, .18725, 3.00825, .26233, .13580, + .10471, .20812, .28304, + .33488, .18759, 2.98497, .26270, .13740, + .10669, .20908, .28350, + .33627, .18791, 2.96316, .26304, .13892, + .10859, .21000, .28394, + .33761, .18821, 2.94008, .26330, .14035, + .11039, .21082, .28428 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .26525, .16840, 1.92500, .16490, .00000, + .00000, .08873, .18064, + .26934, .17016, 1.99490, .16695, .00000, + .00000, .09172, .18312, + .27535, .17271, 2.09100, .17007, .00300, + .00000, .09627, .18689, + .27962, .17447, 2.14833, .17236, .00648, + .00000, .09958, .18962, + .28411, .17631, 2.20766, .17480, .01239, + .00000, .10310, .19251, + .28791, .17784, 2.25480, .17691, .01615, + .00000, .10615, .19500, + .29152, .17926, 2.29744, .17891, .02005, + .00000, .10905, .19736, + .29528, .18073, 2.33895, .18102, .02400, + .00000, .11210, .19984 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .29849, .18196, 2.37227, .18282, .02749, + .00000, .11472, .20195, + .30153, .18310, 2.40166, .18454, .03072, + .00000, .11723, .20395, + .30395, .18401, 2.42431, .18591, .03346, + .00000, .11922, .20554, + .30889, .18581, 2.46007, .18868, .03876, + .00058, .12330, .20876, + .31304, .18727, 2.48096, .19094, .04324, + .00597, .12669, .21140, + .31756, .18884, 2.49788, .19338, .04822, + .01326, .13038, .21423, + .32207, .19035, 2.51046, .19577, .05318, + .01902, .13404, .21699, + .32598, .19161, 2.51590, .19772, .05738, + .02384, .13714, .21927 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .32980, .19281, 2.51813, .19959, .06156, + .02883, .14014, .22145, + .33284, .19374, 2.51668, .20103, .06486, + .03272, .14250, .22311, + .33638, .19477, 2.51092, .20259, .06867, + .03720, .14518, .22494, + .33944, .19563, 2.50407, .20390, .07199, + .04119, .14746, .22647, + .34205, .19633, 2.49371, .20491, .07474, + .04440, .14935, .22766, + .34529, .19716, 2.47913, .20612, .07819, + .04854, .15165, .22908, + .34817, .19786, 2.46230, .20709, .08123, + .05217, .15363, .23024, + .35073, .19843, 2.44403, .20785, .08389, + .05537, .15532, .23115 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .35321, .19897, 2.42473, .20853, .08649, + .05853, .15692, .23199, + .35544, .19940, 2.40282, .20901, .08877, + .06129, .15828, .23259, + .35753, .19979, 2.38208, .20944, .09094, + .06396, .15955, .23313, + .35932, .20007, 2.35986, .20967, .09272, + .06616, .16054, .23344, + .36111, .20034, 2.33790, .20990, .09454, + .06842, .16152, .23375, + .36270, .20054, 2.31419, .20997, .09612, + .07040, .16232, .23388, + .36420, .20072, 2.29175, .21002, .09761, + .07229, .16306, .23399, + .36551, .20083, 2.26945, .20997, .09890, + .07393, .16364, .23397 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .36678, .20091, 2.24655, .20986, .10013, + .07551, .16417, .23390, + .36799, .20098, 2.22387, .20973, .10131, + .07705, .16466, .23379, + .36903, .20100, 2.20109, .20949, .10230, + .07835, .16501, .23357, + .37001, .20101, 2.17979, .20927, .10324, + .07960, .16534, .23337, + .37093, .20098, 2.15767, .20898, .10411, + .08077, .16560, .23309 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .33599, .20624, 1.44707, .14045, .00000, + .00000, .07840, .16619, + .34021, .20758, 1.49331, .14128, .00000, + .00000, .08027, .16735, + .34631, .20948, 1.55544, .14257, .00218, + .00000, .08308, .16910, + .35055, .21071, 1.59057, .14348, .00470, + .00000, .08510, .17033, + .35498, .21197, 1.62633, .14445, .00896, + .00000, .08723, .17161, + .35865, .21298, 1.65379, .14528, .01164, + .00000, .08905, .17268, + .36209, .21389, 1.67790, .14605, .01440, + .00000, .09077, .17367, + .36561, .21479, 1.70040, .14685, .01717, + .00000, .09256, .17468 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .36858, .21551, 1.71765, .14751, .01960, + .00000, .09407, .17551, + .37135, .21615, 1.73204, .14813, .02184, + .00000, .09550, .17627, + .37353, .21664, 1.74288, .14861, .02373, + .00000, .09663, .17687, + .37788, .21755, 1.75658, .14953, .02733, + .00043, .09889, .17800, + .38142, .21822, 1.76094, .15024, .03034, + .00408, .10073, .17885, + .38520, .21887, 1.76103, .15094, .03365, + .00902, .10268, .17970, + .38887, .21941, 1.75738, .15154, .03690, + .01286, .10456, .18042, + .39191, .21978, 1.74973, .15195, .03961, + .01604, .10608, .18089 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .39481, .22006, 1.73979, .15228, .04227, + .01930, .10752, .18126, + .39704, .22021, 1.72928, .15246, .04435, + .02181, .10860, .18147, + .39954, .22029, 1.71387, .15257, .04670, + .02466, .10978, .18158, + .40163, .22032, 1.69919, .15261, .04873, + .02719, .11075, .18162, + .40331, .22024, 1.68297, .15253, .05038, + .02918, .11148, .18149, + .40532, .22008, 1.66168, .15237, .05242, + .03173, .11235, .18127, + .40700, .21985, 1.63983, .15211, .05418, + .03394, .11302, .18093, + .40840, .21955, 1.61790, .15177, .05570, + .03585, .11354, .18051 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .40970, .21921, 1.59557, .15138, .05715, + .03772, .11399, .18003, + .41074, .21877, 1.57197, .15089, .05839, + .03933, .11430, .17942, + .41169, .21835, 1.54990, .15041, .05956, + .04086, .11457, .17883, + .41236, .21787, 1.52756, .14984, .06049, + .04210, .11469, .17815, + .41302, .21739, 1.50559, .14928, .06143, + .04337, .11480, .17746, + .41349, .21682, 1.48289, .14863, .06222, + .04445, .11480, .17667, + .41391, .21628, 1.46160, .14801, .06295, + .04547, .11479, .17592, + .41419, .21572, 1.44095, .14736, .06355, + .04634, .11471, .17514 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .41440, .21513, 1.42005, .14668, .06412, + .04717, .11459, .17432, + .41456, .21454, 1.39958, .14600, .06465, + .04797, .11444, .17350, + .41458, .21392, 1.37953, .14528, .06507, + .04862, .11423, .17263, + .41460, .21334, 1.36087, .14462, .06547, + .04925, .11403, .17182, + .41454, .21271, 1.34180, .14390, .06582, + .04982, .11378, .17095 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .39877, .23434, 1.15855, .11893, .00000, + .00000, .06939, .15300, + .40256, .23507, 1.19451, .11914, .00000, + .00000, .07061, .15332, + .40798, .23601, 1.24158, .11948, .00173, + .00000, .07246, .15379, + .41160, .23654, 1.26674, .11973, .00372, + .00000, .07377, .15408, + .41534, .23704, 1.29184, .11998, .00707, + .00000, .07513, .15436, + .41837, .23737, 1.31017, .12018, .00915, + .00000, .07628, .15457, + .42114, .23762, 1.32563, .12036, .01128, + .00000, .07735, .15474, + .42392, .23781, 1.33916, .12052, .01341, + .00000, .07844, .15486 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .42621, .23792, 1.34882, .12064, .01526, + .00000, .07935, .15493, + .42829, .23796, 1.35611, .12073, .01695, + .00000, .08019, .15496, + .42991, .23798, 1.36137, .12079, .01837, + .00000, .08085, .15497, + .43300, .23784, 1.36461, .12085, .02105, + .00034, .08214, .15488, + .43539, .23761, 1.36133, .12082, .02327, + .00305, .08315, .15469, + .43783, .23726, 1.35378, .12073, .02567, + .00672, .08418, .15439, + .44006, .23675, 1.34281, .12053, .02800, + .00953, .08513, .15397, + .44174, .23615, 1.32946, .12025, .02991, + .01183, .08584, .15343 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .44323, .23547, 1.31435, .11990, .03177, + .01416, .08647, .15282, + .44428, .23483, 1.30015, .11954, .03320, + .01594, .08690, .15224, + .44529, .23395, 1.28097, .11903, .03479, + .01794, .08732, .15142, + .44607, .23313, 1.26337, .11854, .03615, + .01969, .08764, .15065, + .44651, .23228, 1.24527, .11800, .03723, + .02106, .08781, .14984, + .44694, .23116, 1.22204, .11729, .03855, + .02279, .08798, .14877, + .44712, .23002, 1.19907, .11654, .03966, + .02426, .08802, .14769, + .44709, .22888, 1.17670, .11578, .04059, + .02552, .08799, .14660 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .44696, .22772, 1.15428, .11499, .04148, + .02673, .08791, .14548, + .44659, .22648, 1.13131, .11413, .04221, + .02776, .08772, .14429, + .44622, .22532, 1.10999, .11332, .04288, + .02873, .08754, .14317, + .44562, .22413, 1.08900, .11249, .04340, + .02949, .08727, .14202, + .44502, .22295, 1.06846, .11166, .04391, + .03027, .08701, .14087, + .44423, .22172, 1.04769, .11079, .04431, + .03092, .08666, .13968, + .44345, .22056, 1.02833, .10996, .04468, + .03152, .08633, .13854, + .44260, .21942, 1.00983, .10914, .04497, + .03203, .08596, .13743 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .44168, .21824, .99128, .10829, .04524, + .03250, .08557, .13630, + .44074, .21708, .97324, .10745, .04547, + .03295, .08517, .13518, + .43970, .21592, .95582, .10662, .04564, + .03330, .08475, .13407, + .43872, .21484, .93967, .10583, .04580, + .03364, .08434, .13302, + .43764, .21371, .92333, .10502, .04591, + .03393, .08390, .13194 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45384, .25493, .98305, .09995, .00000, + .00000, .06114, .13982, + .45682, .25496, 1.01238, .09988, .00000, + .00000, .06199, .13956, + .46092, .25485, 1.04948, .09979, .00145, + .00000, .06325, .13916, + .46353, .25460, 1.06778, .09971, .00310, + .00000, .06410, .13882, + .46615, .25427, 1.08553, .09962, .00587, + .00000, .06499, .13844, + .46818, .25388, 1.09753, .09954, .00758, + .00000, .06572, .13808, + .46997, .25343, 1.10698, .09943, .00931, + .00000, .06640, .13769, + .47167, .25288, 1.11427, .09930, .01103, + .00000, .06707, .13723 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .47300, .25233, 1.11865, .09915, .01251, + .00000, .06762, .13680, + .47414, .25174, 1.12099, .09899, .01385, + .00000, .06811, .13635, + .47501, .25127, 1.12238, .09886, .01497, + .00000, .06850, .13599, + .47642, .25009, 1.11842, .09851, .01706, + .00028, .06919, .13511, + .47735, .24896, 1.10988, .09814, .01877, + .00240, .06970, .13427, + .47813, .24761, 1.09715, .09767, .02060, + .00526, .07019, .13327, + .47858, .24607, 1.08136, .09712, .02235, + .00742, .07058, .13214, + .47865, .24454, 1.06435, .09651, .02376, + .00917, .07081, .13101 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .47852, .24294, 1.04604, .09586, .02511, + .01093, .07098, .12982, + .47819, .24155, 1.02962, .09528, .02613, + .01225, .07104, .12877, + .47752, .23977, 1.00838, .09450, .02725, + .01372, .07102, .12743, + .47682, .23818, .98930, .09379, .02820, + .01500, .07097, .12623, + .47589, .23662, .97042, .09308, .02893, + .01598, .07083, .12504, + .47460, .23462, .94653, .09215, .02981, + .01721, .07062, .12352, + .47317, .23269, .92348, .09123, .03053, + .01824, .07034, .12203, + .47164, .23081, .90149, .09032, .03112, + .01911, .07001, .12060 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .47003, .22892, .87971, .08939, .03167, + .01994, .06965, .11916, + .46820, .22699, .85786, .08843, .03210, + .02062, .06923, .11769, + .46646, .22518, .83772, .08753, .03249, + .02126, .06883, .11631, + .46459, .22341, .81829, .08664, .03276, + .02176, .06838, .11494, + .46272, .22165, .79935, .08575, .03304, + .02226, .06793, .11359, + .46069, .21986, .78051, .08483, .03323, + .02265, .06743, .11224, + .45875, .21817, .76304, .08397, .03340, + .02303, .06695, .11097, + .45681, .21653, .74652, .08313, .03352, + .02333, .06646, .10974 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .45481, .21488, .73010, .08227, .03362, + .02360, .06596, .10849, + .45280, .21325, .71421, .08143, .03370, + .02386, .06547, .10727, + .45075, .21167, .69906, .08060, .03373, + .02405, .06496, .10607, + .44883, .21018, .68506, .07983, .03376, + .02423, .06448, .10495, + .44680, .20866, .67101, .07904, .03376, + .02438, .06397, .10381 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .51187, .27221, .85637, .07982, .00000, + .00000, .05173, .12301, + .51344, .27132, .87821, .07964, .00000, + .00000, .05229, .12228, + .51536, .26983, .90406, .07938, .00121, + .00000, .05309, .12119, + .51630, .26860, .91461, .07917, .00258, + .00000, .05362, .12033, + .51715, .26723, .92412, .07893, .00486, + .00000, .05416, .11940, + .51765, .26592, .92917, .07869, .00624, + .00000, .05458, .11858, + .51793, .26461, .93208, .07845, .00763, + .00000, .05495, .11777, + .51799, .26316, .93269, .07818, .00899, + .00000, .05529, .11686 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .51788, .26183, .93148, .07791, .01015, + .00000, .05555, .11605, + .51762, .26050, .92869, .07763, .01119, + .00000, .05578, .11524, + .51739, .25943, .92609, .07741, .01206, + .00000, .05595, .11460, + .51641, .25701, .91478, .07686, .01365, + .00023, .05620, .11314, + .51527, .25482, .90094, .07633, .01492, + .00185, .05633, .11183, + .51374, .25231, .88309, .07569, .01626, + .00403, .05641, .11033, + .51179, .24961, .86274, .07495, .01752, + .00565, .05640, .10871, + .50968, .24705, .84244, .07422, .01851, + .00694, .05628, .10717 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .50736, .24442, .82139, .07345, .01944, + .00822, .05611, .10558, + .50525, .24220, .80323, .07277, .02013, + .00916, .05592, .10424, + .50243, .23945, .78051, .07190, .02087, + .01021, .05562, .10258, + .49985, .23701, .76050, .07112, .02148, + .01110, .05532, .10110, + .49721, .23469, .74138, .07034, .02193, + .01177, .05498, .09970, + .49380, .23176, .71754, .06936, .02246, + .01260, .05452, .09793, + .49038, .22898, .69506, .06841, .02288, + .01328, .05403, .09624, + .48703, .22633, .67404, .06749, .02320, + .01385, .05353, .09465 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .48362, .22369, .65348, .06656, .02350, + .01438, .05302, .09307, + .48006, .22107, .63331, .06561, .02370, + .01480, .05246, .09150, + .47671, .21862, .61487, .06474, .02388, + .01519, .05193, .09003, + .47334, .21625, .59739, .06387, .02398, + .01548, .05139, .08862, + .47000, .21392, .58046, .06303, .02409, + .01577, .05085, .08723, + .46655, .21158, .56388, .06217, .02413, + .01599, .05028, .08584, + .46329, .20938, .54862, .06137, .02417, + .01620, .04975, .08454, + .46011, .20729, .53437, .06059, .02417, + .01635, .04923, .08331 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .45687, .20518, .52031, .05980, .02415, + .01649, .04870, .08208, + .45368, .20311, .50680, .05902, .02412, + .01661, .04817, .08088, + .45052, .20111, .49406, .05828, .02407, + .01669, .04765, .07972, + .44756, .19925, .48233, .05759, .02401, + .01677, .04716, .07864, + .44451, .19735, .47067, .05688, .02394, + .01682, .04665, .07754 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .55812, .28180, .78567, .06353, .00000, + .00000, .04328, .10606, + .55797, .28002, .79967, .06337, .00000, + .00000, .04368, .10507, + .55732, .27723, .81408, .06313, .00103, + .00000, .04424, .10358, + .55637, .27502, .81693, .06289, .00219, + .00000, .04457, .10244, + .55522, .27265, .81844, .06263, .00412, + .00000, .04490, .10124, + .55396, .27049, .81692, .06237, .00526, + .00000, .04513, .10017, + .55256, .26838, .81381, .06210, .00640, + .00000, .04532, .09913, + .55084, .26609, .80840, .06179, .00749, + .00000, .04546, .09800 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .54918, .26404, .80227, .06150, .00842, + .00000, .04556, .09700, + .54743, .26202, .79505, .06119, .00924, + .00000, .04562, .09602, + .54601, .26042, .78906, .06095, .00992, + .00000, .04566, .09524, + .54256, .25687, .77168, .06033, .01114, + .00019, .04565, .09352, + .53927, .25376, .75358, .05977, .01211, + .00145, .04557, .09199, + .53538, .25026, .73177, .05911, .01311, + .00315, .04543, .09025, + .53102, .24653, .70809, .05835, .01402, + .00440, .04520, .08843, + .52675, .24309, .68560, .05760, .01472, + .00536, .04490, .08673 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .52229, .23961, .66289, .05682, .01537, + .00632, .04456, .08502, + .51842, .23670, .64382, .05615, .01583, + .00701, .04424, .08359, + .51354, .23313, .62057, .05529, .01632, + .00776, .04380, .08185, + .50918, .22999, .60041, .05453, .01671, + .00840, .04338, .08032, + .50492, .22709, .58164, .05380, .01698, + .00886, .04295, .07889, + .49950, .22343, .55854, .05287, .01729, + .00944, .04239, .07709, + .49428, .21998, .53716, .05197, .01752, + .00990, .04182, .07541, + .48926, .21674, .51752, .05111, .01768, + .01027, .04127, .07384 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .48423, .21354, .49853, .05025, .01782, + .01061, .04070, .07229, + .47912, .21039, .48019, .04939, .01789, + .01087, .04012, .07076, + .47433, .20747, .46354, .04860, .01794, + .01111, .03958, .06934, + .46966, .20467, .44803, .04782, .01795, + .01128, .03903, .06801, + .46504, .20191, .43308, .04706, .01795, + .01145, .03848, .06670, + .46037, .19917, .41865, .04629, .01792, + .01156, .03793, .06541, + .45599, .19661, .40544, .04557, .01788, + .01167, .03740, .06421, + .45176, .19419, .39323, .04488, .01782, + .01174, .03690, .06307 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .44748, .19178, .38128, .04420, .01775, + .01180, .03640, .06193, + .44328, .18942, .36986, .04354, .01767, + .01185, .03590, .06083, + .43920, .18715, .35920, .04289, .01758, + .01188, .03541, .05979, + .43539, .18503, .34943, .04229, .01749, + .01190, .03495, .05882, + .43150, .18289, .33978, .04168, .01739, + .01190, .03449, .05785 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .59293, .28513, .74132, .05067, .00000, + .00000, .03581, .08950, + .59093, .28253, .74732, .05057, .00000, + .00000, .03611, .08840, + .58754, .27852, .75034, .05039, .00089, + .00000, .03651, .08673, + .58458, .27546, .74581, .05019, .00188, + .00000, .03671, .08548, + .58131, .27221, .73979, .04997, .00351, + .00000, .03690, .08415, + .57821, .26932, .73229, .04974, .00446, + .00000, .03701, .08299, + .57508, .26651, .72380, .04949, .00540, + .00000, .03708, .08186, + .57155, .26348, .71318, .04919, .00629, + .00000, .03711, .08066 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .56834, .26082, .70289, .04890, .00704, + .00000, .03711, .07960, + .56510, .25821, .69201, .04860, .00769, + .00000, .03707, .07855, + .56251, .25616, .68326, .04836, .00823, + .00000, .03704, .07773, + .55657, .25168, .66115, .04779, .00918, + .00016, .03689, .07593, + .55120, .24780, .63991, .04725, .00991, + .00115, .03669, .07436, + .54502, .24347, .61535, .04661, .01066, + .00249, .03641, .07262, + .53839, .23891, .58960, .04588, .01132, + .00345, .03607, .07078, + .53207, .23476, .56596, .04518, .01182, + .00419, .03568, .06911 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .52563, .23060, .54257, .04444, .01226, + .00491, .03525, .06744, + .52016, .22715, .52335, .04381, .01257, + .00542, .03488, .06605, + .51341, .22297, .50035, .04302, .01288, + .00597, .03438, .06437, + .50744, .21932, .48069, .04231, .01312, + .00643, .03393, .06291, + .50175, .21595, .46279, .04164, .01328, + .00675, .03347, .06157, + .49457, .21174, .44100, .04079, .01344, + .00715, .03289, .05990, + .48777, .20780, .42118, .03997, .01355, + .00746, .03232, .05834, + .48130, .20415, .40319, .03920, .01361, + .00771, .03177, .05689 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .47485, .20056, .38595, .03844, .01366, + .00793, .03122, .05548, + .46845, .19704, .36957, .03768, .01365, + .00809, .03066, .05409, + .46250, .19378, .35479, .03697, .01364, + .00824, .03014, .05282, + .45675, .19068, .34122, .03629, .01360, + .00833, .02962, .05163, + .45108, .18764, .32820, .03562, .01355, + .00842, .02912, .05047, + .44540, .18466, .31581, .03496, .01348, + .00848, .02861, .04932, + .44008, .18188, .30452, .03435, .01340, + .00853, .02813, .04825, + .43501, .17926, .29416, .03377, .01331, + .00856, .02768, .04726 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42992, .17665, .28408, .03318, .01322, + .00857, .02723, .04628, + .42495, .17410, .27451, .03261, .01312, + .00859, .02678, .04533, + .42018, .17165, .26567, .03205, .01302, + .00858, .02635, .04443, + .41572, .16937, .25758, .03153, .01292, + .00857, .02595, .04361, + .41119, .16709, .24966, .03101, .01281, + .00855, .02554, .04278 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .61689, .28338, .70647, .04067, .00000, + .00000, .02932, .07380, + .61300, .28003, .70475, .04063, .00000, + .00000, .02955, .07270, + .60683, .27496, .69716, .04051, .00077, + .00000, .02982, .07107, + .60186, .27114, .68594, .04035, .00161, + .00000, .02995, .06983, + .59650, .26711, .67328, .04016, .00299, + .00000, .03006, .06852, + .59165, .26357, .66068, .03995, .00378, + .00000, .03010, .06738, + .58684, .26016, .64770, .03971, .00456, + .00000, .03010, .06628, + .58155, .25652, .63284, .03943, .00528, + .00000, .03006, .06511 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .57683, .25335, .61928, .03917, .00588, + .00000, .03000, .06407, + .57216, .25026, .60562, .03889, .00640, + .00000, .02993, .06306, + .56846, .24784, .59482, .03867, .00682, + .00000, .02985, .06226, + .56022, .24260, .56936, .03812, .00755, + .00013, .02961, .06056, + .55295, .23808, .54611, .03760, .00811, + .00092, .02936, .05908, + .54473, .23306, .52002, .03698, .00866, + .00197, .02903, .05744, + .53598, .22787, .49335, .03630, .00914, + .00272, .02864, .05574, + .52784, .22319, .46952, .03565, .00949, + .00328, .02823, .05419 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .51963, .21852, .44633, .03498, .00979, + .00382, .02779, .05265, + .51277, .21466, .42762, .03440, .00999, + .00420, .02741, .05138, + .50436, .21004, .40559, .03368, .01018, + .00460, .02691, .04987, + .49698, .20603, .38697, .03305, .01032, + .00493, .02645, .04857, + .49006, .20234, .37030, .03245, .01040, + .00516, .02602, .04736, + .48140, .19776, .35021, .03169, .01047, + .00544, .02547, .04587, + .47326, .19351, .33217, .03096, .01050, + .00565, .02494, .04450, + .46562, .18957, .31602, .03027, .01051, + .00580, .02443, .04324 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .45807, .18571, .30069, .02960, .01049, + .00594, .02392, .04201, + .45062, .18194, .28632, .02893, .01044, + .00604, .02341, .04083, + .44371, .17847, .27343, .02832, .01040, + .00613, .02294, .03974, + .43711, .17521, .26174, .02773, .01033, + .00618, .02248, .03872, + .43062, .17203, .25057, .02716, .01025, + .00622, .02204, .03772, + .42418, .16890, .24002, .02659, .01016, + .00624, .02158, .03677, + .41816, .16599, .23046, .02606, .01007, + .00626, .02116, .03589, + .41248, .16326, .22178, .02556, .00998, + .00626, .02077, .03506 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40679, .16055, .21339, .02506, .00988, + .00626, .02038, .03423, + .40125, .15792, .20547, .02458, .00978, + .00625, .02000, .03343, + .39594, .15542, .19820, .02412, .00967, + .00623, .01963, .03268, + .39099, .15308, .19157, .02370, .00957, + .00621, .01929, .03199, + .38599, .15075, .18511, .02326, .00947, + .00618, .01895, .03131 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .63073, .27745, .67211, .03293, .00000, + .00000, .02371, .05950, + .62500, .27345, .66346, .03290, .00000, + .00000, .02390, .05851, + .61614, .26746, .64663, .03281, .00065, + .00000, .02412, .05699, + .60926, .26301, .62981, .03267, .00137, + .00000, .02421, .05584, + .60194, .25834, .61174, .03249, .00253, + .00000, .02427, .05464, + .59541, .25427, .59507, .03229, .00319, + .00000, .02427, .05359, + .58904, .25037, .57867, .03207, .00382, + .00000, .02424, .05258, + .58213, .24624, .56071, .03180, .00440, + .00000, .02416, .05151 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .57603, .24265, .54483, .03155, .00488, + .00000, .02407, .05057, + .57004, .23919, .52927, .03129, .00529, + .00000, .02397, .04966, + .56532, .23648, .51711, .03109, .00562, + .00000, .02388, .04894, + .55502, .23065, .48974, .03057, .00618, + .00011, .02361, .04739, + .54604, .22566, .46560, .03007, .00660, + .00073, .02333, .04608, + .53598, .22016, .43910, .02949, .00701, + .00156, .02299, .04463, + .52538, .21453, .41255, .02889, .00735, + .00214, .02258, .04311, + .51569, .20946, .38937, .02828, .00758, + .00256, .02219, .04175 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .50600, .20443, .36711, .02766, .00778, + .00297, .02177, .04042, + .49797, .20030, .34937, .02713, .00791, + .00325, .02140, .03932, + .48821, .19538, .32883, .02648, .00801, + .00354, .02094, .03801, + .47968, .19113, .31167, .02592, .00809, + .00378, .02053, .03689, + .47180, .18724, .29651, .02537, .00812, + .00394, .02012, .03587, + .46196, .18243, .27840, .02469, .00814, + .00413, .01962, .03462, + .45274, .17799, .26232, .02407, .00812, + .00427, .01914, .03346, + .44416, .17390, .24810, .02348, .00809, + .00437, .01869, .03240 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43574, .16993, .23473, .02289, .00804, + .00446, .01825, .03137, + .42749, .16606, .22231, .02232, .00798, + .00451, .01780, .03038, + .41987, .16251, .21124, .02179, .00791, + .00456, .01738, .02947, + .41265, .15919, .20129, .02128, .00783, + .00458, .01700, .02864, + .40557, .15594, .19184, .02079, .00775, + .00460, .01662, .02782, + .39860, .15277, .18300, .02030, .00765, + .00460, .01624, .02704, + .39212, .14982, .17502, .01984, .00756, + .00460, .01588, .02632, + .38599, .14707, .16784, .01942, .00747, + .00459, .01554, .02565 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37988, .14435, .16094, .01900, .00738, + .00457, .01521, .02500, + .37395, .14172, .15444, .01860, .00728, + .00455, .01488, .02436, + .36832, .13922, .14852, .01821, .00719, + .00453, .01458, .02376, + .36308, .13690, .14313, .01786, .00710, + .00450, .01430, .02320, + .35780, .13458, .13792, .01750, .00700, + .00447, .01402, .02265 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .63527, .26812, .63397, .02689, .00000, + .00000, .01899, .04685, + .62780, .26362, .61955, .02688, .00000, + .00000, .01916, .04597, + .61642, .25691, .59527, .02678, .00055, + .00000, .01934, .04467, + .60777, .25197, .57415, .02665, .00115, + .00000, .01938, .04367, + .59863, .24681, .55205, .02648, .00212, + .00000, .01940, .04261, + .59057, .24235, .53253, .02630, .00266, + .00000, .01937, .04169, + .58278, .23809, .51380, .02610, .00318, + .00000, .01932, .04081, + .57443, .23359, .49385, .02584, .00364, + .00000, .01922, .03988 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .56711, .22970, .47660, .02560, .00402, + .00000, .01912, .03907, + .55998, .22597, .46004, .02535, .00434, + .00000, .01899, .03829, + .55439, .22305, .44721, .02515, .00460, + .00000, .01888, .03768, + .54230, .21680, .41921, .02466, .00502, + .00009, .01861, .03636, + .53184, .21151, .39515, .02421, .00533, + .00058, .01834, .03522, + .52020, .20571, .36923, .02369, .00563, + .00122, .01801, .03397, + .50813, .19976, .34371, .02310, .00587, + .00167, .01764, .03270, + .49720, .19443, .32178, .02254, .00602, + .00199, .01727, .03156 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48630, .18919, .30099, .02198, .00615, + .00230, .01689, .03045, + .47727, .18495, .28464, .02152, .00622, + .00250, .01655, .02953, + .46644, .17988, .26592, .02095, .00628, + .00271, .01612, .02845, + .45704, .17550, .25042, .02045, .00631, + .00288, .01575, .02752, + .44841, .17153, .23692, .01996, .00631, + .00300, .01540, .02670, + .43769, .16663, .22093, .01935, .00629, + .00313, .01496, .02568, + .42774, .16213, .20690, .01879, .00626, + .00322, .01455, .02472, + .41851, .15799, .19460, .01827, .00620, + .00328, .01416, .02386 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40948, .15398, .18310, .01777, .00615, + .00333, .01378, .02304, + .40070, .15011, .17253, .01727, .00607, + .00336, .01341, .02224, + .39261, .14656, .16316, .01682, .00600, + .00339, .01308, .02150, + .38497, .14325, .15485, .01640, .00592, + .00339, .01275, .02083, + .37749, .14002, .14697, .01600, .00584, + .00340, .01242, .02018, + .37020, .13689, .13967, .01557, .00575, + .00339, .01210, .01956, + .36343, .13399, .13310, .01517, .00567, + .00338, .01181, .01900, + .35706, .13128, .12722, .01482, .00559, + .00336, .01154, .01847 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .35072, .12860, .12158, .01448, .00550, + .00334, .01128, .01795, + .34459, .12602, .11631, .01415, .00542, + .00332, .01102, .01745, + .33876, .12359, .11152, .01384, .00533, + .00329, .01076, .01699, + .33335, .12133, .10719, .01355, .00525, + .00327, .01053, .01656, + .32793, .11909, .10302, .01326, .00517, + .00324, .01029, .01614 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .63113, .25648, .59093, .02237, .00000, + .00000, .01487, .03585, + .62210, .25156, .57201, .02234, .00000, + .00000, .01502, .03514, + .60849, .24428, .54217, .02223, .00047, + .00000, .01517, .03407, + .59828, .23895, .51808, .02206, .00097, + .00000, .01521, .03326, + .58755, .23342, .49337, .02187, .00177, + .00000, .01522, .03240, + .57819, .22866, .47214, .02167, .00221, + .00000, .01518, .03165, + .56920, .22413, .45214, .02145, .00262, + .00000, .01513, .03093, + .55965, .21935, .43124, .02119, .00299, + .00000, .01504, .03016 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .55133, .21524, .41346, .02094, .00329, + .00000, .01494, .02950, + .54328, .21131, .39663, .02068, .00354, + .00000, .01482, .02886, + .53697, .20824, .38370, .02048, .00374, + .00000, .01473, .02836, + .52339, .20175, .35616, .02000, .00406, + .00008, .01448, .02727, + .51176, .19626, .33298, .01956, .00428, + .00045, .01424, .02636, + .49891, .19027, .30836, .01906, .00450, + .00096, .01394, .02535, + .48563, .18419, .28447, .01855, .00466, + .00130, .01359, .02432, + .47370, .17875, .26428, .01804, .00476, + .00155, .01327, .02340 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46189, .17343, .24536, .01753, .00483, + .00177, .01294, .02249, + .45221, .16912, .23066, .01711, .00487, + .00192, .01265, .02174, + .44063, .16400, .21399, .01657, .00489, + .00208, .01229, .02089, + .43063, .15961, .20031, .01610, .00489, + .00220, .01196, .02017, + .42144, .15565, .18850, .01571, .00487, + .00227, .01167, .01949, + .41010, .15076, .17462, .01520, .00484, + .00236, .01130, .01866, + .39967, .14629, .16257, .01471, .00479, + .00242, .01096, .01793, + .39002, .14222, .15211, .01427, .00473, + .00246, .01064, .01726 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .38059, .13828, .14239, .01384, .00467, + .00249, .01032, .01660, + .37150, .13449, .13355, .01341, .00460, + .00250, .01001, .01599, + .36315, .13102, .12575, .01302, .00453, + .00251, .00972, .01543, + .35531, .12779, .11886, .01266, .00446, + .00251, .00945, .01491, + .34766, .12464, .11237, .01231, .00438, + .00250, .00919, .01441, + .34021, .12160, .10640, .01196, .00431, + .00249, .00894, .01393, + .33331, .11878, .10106, .01164, .00423, + .00247, .00871, .01350, + .32685, .11617, .09630, .01134, .00416, + .00245, .00848, .01310 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .32044, .11360, .09176, .01106, .00409, + .00243, .00826, .01271, + .31425, .11112, .08752, .01078, .00401, + .00241, .00805, .01234, + .30842, .10879, .08372, .01051, .00394, + .00239, .00786, .01198, + .30301, .10664, .08028, .01026, .00387, + .00236, .00769, .01165, + .29759, .10450, .07697, .01002, .00381, + .00234, .00751, .01133 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .61979, .24232, .54269, .01836, .00000, + .00000, .01168, .02695, + .60937, .23714, .52065, .01832, .00000, + .00000, .01180, .02639, + .59379, .22951, .48725, .01820, .00038, + .00000, .01192, .02552, + .58223, .22394, .46154, .01804, .00079, + .00000, .01194, .02488, + .57015, .21817, .43554, .01785, .00145, + .00000, .01193, .02420, + .55968, .21324, .41361, .01765, .00180, + .00000, .01189, .02360, + .54968, .20857, .39327, .01744, .00213, + .00000, .01183, .02303, + .53909, .20366, .37236, .01719, .00242, + .00000, .01173, .02242 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .52991, .19946, .35480, .01696, .00265, + .00000, .01164, .02188, + .52108, .19544, .33838, .01672, .00284, + .00000, .01153, .02136, + .51418, .19232, .32584, .01653, .00299, + .00000, .01145, .02096, + .49945, .18573, .29960, .01610, .00323, + .00006, .01121, .02010, + .48690, .18017, .27792, .01570, .00339, + .00035, .01098, .01938, + .47312, .17413, .25521, .01524, .00354, + .00074, .01072, .01858, + .45903, .16801, .23348, .01476, .00365, + .00100, .01043, .01777, + .44638, .16262, .21530, .01430, .00371, + .00118, .01015, .01704 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43393, .15735, .19844, .01386, .00375, + .00135, .00986, .01633, + .42378, .15309, .18547, .01350, .00376, + .00146, .00960, .01575, + .41169, .14804, .17090, .01303, .00376, + .00157, .00930, .01508, + .40128, .14371, .15904, .01263, .00375, + .00165, .00904, .01451, + .39183, .13982, .14893, .01227, .00372, + .00170, .00879, .01400, + .38018, .13506, .13713, .01183, .00368, + .00176, .00848, .01337, + .36944, .13072, .12697, .01143, .00363, + .00180, .00820, .01280, + .35961, .12677, .11820, .01105, .00357, + .00182, .00794, .01229 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .35006, .12295, .11010, .01067, .00352, + .00184, .00767, .01181, + .34087, .11929, .10280, .01031, .00345, + .00184, .00742, .01135, + .33245, .11594, .09638, .00998, .00339, + .00184, .00719, .01092, + .32457, .11286, .09079, .00968, .00332, + .00183, .00698, .01053, + .31690, .10987, .08554, .00940, .00326, + .00183, .00677, .01014, + .30944, .10699, .08072, .00912, .00319, + .00181, .00657, .00978, + .30255, .10433, .07642, .00886, .00313, + .00180, .00638, .00946, + .29615, .10185, .07262, .00861, .00307, + .00178, .00620, .00916 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .28983, .09941, .06901, .00836, .00301, + .00176, .00603, .00888, + .28374, .09707, .06565, .00812, .00295, + .00174, .00586, .00861, + .27798, .09488, .06263, .00791, .00289, + .00172, .00571, .00834, + .27264, .09287, .05991, .00771, .00283, + .00170, .00556, .00809, + .26732, .09086, .05731, .00752, .00278, + .00168, .00542, .00786 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .60174, .22687, .49098, .01517, .00000, + .00000, .00900, .01968, + .59016, .22149, .46713, .01510, .00000, + .00000, .00910, .01928, + .57299, .21361, .43197, .01494, .00031, + .00000, .00920, .01866, + .56034, .20793, .40575, .01477, .00065, + .00000, .00921, .01817, + .54717, .20206, .37957, .01457, .00117, + .00000, .00920, .01765, + .53584, .19705, .35788, .01437, .00145, + .00000, .00916, .01719, + .52505, .19232, .33800, .01416, .00171, + .00000, .00911, .01674, + .51368, .18738, .31780, .01392, .00193, + .00000, .00904, .01626 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .50387, .18316, .30103, .01371, .00211, + .00000, .00895, .01585, + .49447, .17913, .28551, .01350, .00225, + .00000, .00885, .01546, + .48713, .17601, .27373, .01333, .00237, + .00000, .00876, .01515, + .47161, .16944, .24942, .01291, .00254, + .00005, .00856, .01450, + .45844, .16393, .22964, .01254, .00266, + .00027, .00837, .01395, + .44404, .15795, .20916, .01212, .00276, + .00057, .00815, .01335, + .42938, .15195, .18977, .01170, .00283, + .00076, .00789, .01272, + .41634, .14664, .17378, .01129, .00286, + .00090, .00766, .01217 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40356, .14147, .15910, .01089, .00288, + .00102, .00742, .01164, + .39318, .13732, .14790, .01057, .00288, + .00110, .00721, .01120, + .38084, .13244, .13543, .01018, .00287, + .00117, .00696, .01070, + .37024, .12828, .12536, .00985, .00285, + .00123, .00675, .01027, + .36069, .12453, .11683, .00953, .00282, + .00127, .00655, .00989, + .34896, .11995, .10693, .00914, .00277, + .00130, .00630, .00942, + .33824, .11579, .09848, .00879, .00273, + .00133, .00606, .00900, + .32842, .11202, .09125, .00847, .00268, + .00134, .00585, .00861 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .31890, .10840, .08462, .00817, .00262, + .00135, .00564, .00824, + .30975, .10494, .07869, .00789, .00257, + .00134, .00544, .00789, + .30138, .10179, .07350, .00763, .00251, + .00134, .00526, .00758, + .29366, .09887, .06899, .00737, .00246, + .00133, .00509, .00730, + .28615, .09603, .06478, .00712, .00241, + .00132, .00492, .00703, + .27884, .09334, .06094, .00690, .00235, + .00131, .00476, .00675, + .27209, .09086, .05753, .00669, .00230, + .00130, .00462, .00650, + .26585, .08856, .05452, .00649, .00225, + .00128, .00448, .00628 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .25970, .08629, .05168, .00629, .00220, + .00126, .00435, .00607, + .25378, .08412, .04904, .00610, .00215, + .00125, .00422, .00588, + .24820, .08209, .04669, .00593, .00210, + .00123, .00410, .00569, + .24304, .08022, .04457, .00578, .00206, + .00121, .00399, .00551, + .23792, .07837, .04256, .00562, .00202, + .00120, .00389, .00535 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .57809, .21031, .43713, .01239, .00000, + .00000, .00688, .01402, + .56560, .20488, .41264, .01230, .00000, + .00000, .00697, .01374, + .54715, .19696, .37732, .01214, .00025, + .00000, .00705, .01329, + .53365, .19124, .35165, .01197, .00052, + .00000, .00706, .01294, + .51968, .18536, .32628, .01178, .00093, + .00000, .00705, .01257, + .50774, .18035, .30552, .01158, .00115, + .00000, .00701, .01225, + .49641, .17565, .28667, .01137, .00135, + .00000, .00696, .01193, + .48452, .17074, .26774, .01114, .00153, + .00000, .00688, .01157 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .47429, .16656, .25218, .01093, .00166, + .00000, .00680, .01128, + .46452, .16260, .23791, .01073, .00177, + .00000, .00671, .01100, + .45691, .15952, .22715, .01057, .00185, + .00000, .00664, .01079, + .44086, .15310, .20524, .01020, .00197, + .00004, .00647, .01030, + .42732, .14773, .18760, .00989, .00205, + .00021, .00631, .00987, + .41259, .14194, .16953, .00955, .00212, + .00043, .00613, .00940, + .39765, .13612, .15266, .00918, .00217, + .00057, .00593, .00894, + .38444, .13102, .13885, .00883, .00218, + .00067, .00573, .00855 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .37155, .12607, .12628, .00849, .00219, + .00076, .00553, .00815, + .36114, .12210, .11678, .00820, .00218, + .00082, .00536, .00783, + .34884, .11742, .10630, .00786, .00216, + .00087, .00515, .00746, + .33831, .11343, .09789, .00758, .00214, + .00091, .00498, .00715, + .32881, .10989, .09081, .00731, .00211, + .00093, .00483, .00687, + .31718, .10557, .08266, .00700, .00207, + .00096, .00463, .00653, + .30659, .10167, .07576, .00672, .00203, + .00097, .00444, .00621, + .29696, .09813, .06989, .00647, .00198, + .00098, .00427, .00593 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .28767, .09472, .06453, .00622, .00194, + .00098, .00411, .00566, + .27878, .09148, .05978, .00597, .00189, + .00097, .00395, .00540, + .27067, .08855, .05564, .00575, .00184, + .00097, .00381, .00517, + .26318, .08585, .05206, .00554, .00180, + .00096, .00368, .00497, + .25591, .08324, .04873, .00534, .00176, + .00095, .00356, .00477, + .24890, .08073, .04572, .00514, .00171, + .00094, .00343, .00460, + .24244, .07843, .04305, .00496, .00167, + .00093, .00331, .00444, + .23645, .07631, .04070, .00480, .00163, + .00092, .00320, .00428 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .23055, .07423, .03849, .00466, .00159, + .00090, .00311, .00412, + .22489, .07224, .03645, .00453, .00156, + .00089, .00301, .00396, + .21957, .07040, .03463, .00440, .00152, + .00087, .00293, .00383, + .21466, .06870, .03301, .00428, .00148, + .00086, .00285, .00370, + .20980, .06701, .03146, .00416, .00145, + .00085, .00276, .00358 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .54974, .19308, .38295, .00997, .00000, + .00000, .00521, .00976, + .53657, .18768, .35882, .00988, .00000, + .00000, .00529, .00957, + .51722, .17981, .32461, .00971, .00020, + .00000, .00533, .00931, + .50318, .17419, .30028, .00954, .00041, + .00000, .00534, .00905, + .48867, .16843, .27646, .00936, .00073, + .00000, .00533, .00878, + .47631, .16354, .25719, .00917, .00090, + .00000, .00530, .00854, + .46463, .15894, .23985, .00898, .00106, + .00000, .00525, .00831, + .45241, .15416, .22260, .00879, .00119, + .00000, .00519, .00807 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44196, .15010, .20852, .00860, .00129, + .00000, .00513, .00786, + .43202, .14626, .19569, .00841, .00136, + .00000, .00506, .00766, + .42430, .14328, .18607, .00827, .00142, + .00000, .00501, .00750, + .40803, .13708, .16671, .00798, .00151, + .00003, .00486, .00712, + .39440, .13193, .15137, .00770, .00157, + .00015, .00472, .00682, + .37964, .12638, .13580, .00738, .00161, + .00032, .00457, .00650, + .36473, .12082, .12135, .00706, .00164, + .00043, .00441, .00618, + .35161, .11598, .10968, .00677, .00164, + .00050, .00424, .00589 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33885, .11130, .09914, .00647, .00164, + .00056, .00408, .00561, + .32857, .10754, .09122, .00624, .00163, + .00060, .00395, .00538, + .31646, .10315, .08255, .00597, .00161, + .00064, .00378, .00511, + .30616, .09944, .07564, .00574, .00159, + .00066, .00364, .00488, + .29692, .09612, .06987, .00552, .00156, + .00068, .00351, .00468, + .28563, .09208, .06326, .00525, .00152, + .00069, .00336, .00444, + .27536, .08844, .05771, .00502, .00149, + .00070, .00322, .00423, + .26605, .08516, .05303, .00481, .00145, + .00070, .00310, .00403 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .25709, .08202, .04878, .00462, .00141, + .00070, .00298, .00383, + .24856, .07905, .04502, .00442, .00137, + .00070, .00285, .00366, + .24079, .07635, .04176, .00424, .00134, + .00069, .00274, .00350, + .23363, .07388, .03897, .00408, .00130, + .00068, .00263, .00336, + .22671, .07149, .03637, .00393, .00127, + .00068, .00253, .00323, + .22004, .06921, .03403, .00379, .00123, + .00067, .00244, .00308, + .21391, .06712, .03196, .00367, .00120, + .00066, .00236, .00295, + .20826, .06519, .03015, .00354, .00117, + .00065, .00228, .00284 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .20273, .06330, .02845, .00341, .00114, + .00064, .00220, .00274, + .19742, .06150, .02689, .00329, .00111, + .00063, .00213, .00264, + .19245, .05983, .02551, .00318, .00108, + .00062, .00206, .00255, + .18788, .05829, .02428, .00308, .00106, + .00061, .00200, .00247, + .18333, .05677, .02310, .00299, .00103, + .00060, .00194, .00238 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .51750, .17582, .33016, .00802, .00000, + .00000, .00386, .00653, + .50393, .17052, .30717, .00791, .00000, + .00000, .00392, .00644, + .48410, .16283, .27504, .00772, .00016, + .00000, .00395, .00630, + .46971, .15736, .25263, .00757, .00032, + .00000, .00396, .00612, + .45494, .15176, .23086, .00740, .00057, + .00000, .00395, .00595, + .44244, .14701, .21340, .00722, .00070, + .00000, .00392, .00581, + .43066, .14257, .19784, .00705, .00082, + .00000, .00387, .00566, + .41836, .13799, .18251, .00688, .00091, + .00000, .00382, .00548 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40787, .13411, .17009, .00673, .00098, + .00000, .00377, .00532, + .39791, .13043, .15886, .00657, .00104, + .00000, .00372, .00518, + .39019, .12759, .15049, .00645, .00108, + .00000, .00368, .00507, + .37403, .12173, .13377, .00616, .00115, + .00003, .00356, .00483, + .36054, .11682, .12067, .00592, .00118, + .00011, .00345, .00462, + .34598, .11156, .10750, .00566, .00121, + .00024, .00333, .00441, + .33137, .10635, .09538, .00539, .00123, + .00031, .00318, .00419, + .31852, .10181, .08569, .00516, .00122, + .00037, .00307, .00398 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .30607, .09744, .07700, .00493, .00122, + .00041, .00295, .00377, + .29610, .09394, .07051, .00473, .00120, + .00044, .00285, .00360, + .28438, .08985, .06347, .00450, .00118, + .00047, .00273, .00343, + .27444, .08640, .05788, .00431, .00117, + .00048, .00262, .00330, + .26557, .08334, .05326, .00413, .00114, + .00049, .00252, .00315, + .25476, .07964, .04800, .00393, .00111, + .00050, .00240, .00297, + .24496, .07631, .04359, .00375, .00108, + .00051, .00228, .00281, + .23612, .07331, .03991, .00358, .00105, + .00051, .00219, .00267 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .22763, .07043, .03659, .00341, .00102, + .00050, .00209, .00255, + .21957, .06772, .03364, .00325, .00099, + .00050, .00201, .00243, + .21225, .06527, .03110, .00312, .00096, + .00049, .00193, .00231, + .20550, .06304, .02894, .00301, .00094, + .00049, .00185, .00221, + .19898, .06090, .02694, .00290, .00091, + .00048, .00178, .00211, + .19276, .05884, .02515, .00279, .00088, + .00047, .00171, .00201, + .18706, .05696, .02357, .00268, .00086, + .00047, .00165, .00193, + .18179, .05523, .02220, .00258, .00084, + .00046, .00160, .00186 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .17662, .05354, .02091, .00249, .00081, + .00045, .00154, .00180, + .17169, .05193, .01973, .00240, .00079, + .00044, .00149, .00174, + .16711, .05044, .01869, .00231, .00077, + .00044, .00144, .00167, + .16291, .04907, .01776, .00223, .00075, + .00043, .00139, .00161, + .15873, .04772, .01687, .00216, .00073, + .00042, .00134, .00155 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .48238, .15855, .27989, .00626, .00000, + .00000, .00280, .00430, + .46861, .15344, .25868, .00617, .00000, + .00000, .00285, .00424, + .44859, .14605, .22942, .00602, .00012, + .00000, .00289, .00415, + .43421, .14079, .20928, .00589, .00024, + .00000, .00289, .00405, + .41945, .13544, .18990, .00574, .00044, + .00000, .00288, .00394, + .40695, .13094, .17452, .00561, .00053, + .00000, .00285, .00384, + .39523, .12674, .16089, .00547, .00062, + .00000, .00282, .00375, + .38306, .12238, .14752, .00531, .00069, + .00000, .00277, .00364 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37272, .11871, .13680, .00518, .00074, + .00000, .00273, .00354, + .36293, .11526, .12718, .00504, .00078, + .00000, .00269, .00344, + .35535, .11260, .12004, .00494, .00081, + .00000, .00265, .00336, + .33953, .10709, .10593, .00471, .00086, + .00002, .00256, .00319, + .32637, .10252, .09495, .00452, .00088, + .00008, .00247, .00306, + .31223, .09762, .08400, .00431, .00090, + .00017, .00237, .00292, + .29810, .09277, .07404, .00406, .00090, + .00023, .00228, .00277, + .28574, .08858, .06613, .00387, .00090, + .00027, .00218, .00262 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .27381, .08455, .05909, .00369, .00089, + .00030, .00208, .00248, + .26428, .08134, .05387, .00352, .00088, + .00032, .00201, .00238, + .25310, .07760, .04824, .00336, .00086, + .00034, .00192, .00225, + .24363, .07445, .04381, .00323, .00084, + .00036, .00183, .00213, + .23523, .07166, .04018, .00309, .00083, + .00036, .00176, .00204, + .22503, .06829, .03605, .00292, .00080, + .00037, .00167, .00193, + .21583, .06526, .03262, .00277, .00078, + .00037, .00159, .00182, + .20754, .06255, .02975, .00264, .00075, + .00037, .00152, .00173 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .19961, .05995, .02717, .00252, .00073, + .00037, .00144, .00165, + .19209, .05753, .02491, .00240, .00071, + .00036, .00138, .00156, + .18528, .05534, .02297, .00230, .00069, + .00036, .00132, .00149, + .17905, .05335, .02133, .00221, .00067, + .00036, .00127, .00141, + .17303, .05143, .01981, .00212, .00065, + .00035, .00122, .00134, + .16729, .04960, .01845, .00202, .00063, + .00035, .00116, .00129, + .16204, .04792, .01726, .00194, .00061, + .00034, .00111, .00124, + .15720, .04639, .01622, .00186, .00059, + .00034, .00107, .00120 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .15248, .04491, .01526, .00179, .00058, + .00033, .00103, .00115, + .14796, .04349, .01437, .00173, .00056, + .00033, .00100, .00110, + .14377, .04217, .01359, .00167, .00055, + .00032, .00096, .00107, + .13991, .04096, .01289, .00161, .00053, + .00032, .00093, .00103, + .13612, .03977, .01224, .00156, .00052, + .00031, .00090, .00099 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .44513, .14151, .23315, .00476, .00000, + .00000, .00203, .00277, + .43141, .13665, .21409, .00469, .00000, + .00000, .00208, .00275, + .41151, .12965, .18808, .00457, .00009, + .00000, .00212, .00267, + .39731, .12470, .17041, .00445, .00018, + .00000, .00211, .00262, + .38279, .11965, .15354, .00431, .00033, + .00000, .00209, .00257, + .37055, .11543, .14027, .00419, .00040, + .00000, .00206, .00251, + .35909, .11148, .12859, .00407, .00046, + .00000, .00204, .00244, + .34722, .10741, .11725, .00396, .00052, + .00000, .00201, .00237 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33717, .10398, .10820, .00385, .00055, + .00000, .00199, .00231, + .32769, .10077, .10014, .00372, .00058, + .00000, .00196, .00226, + .32037, .09829, .09417, .00363, .00060, + .00000, .00193, .00221, + .30511, .09319, .08248, .00346, .00063, + .00002, .00185, .00209, + .29246, .08897, .07348, .00330, .00065, + .00006, .00179, .00201, + .27892, .08448, .06458, .00312, .00066, + .00012, .00171, .00192, + .26546, .08004, .05654, .00295, .00066, + .00016, .00163, .00180, + .25374, .07621, .05023, .00279, .00065, + .00019, .00156, .00171 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .24245, .07253, .04464, .00264, .00064, + .00021, .00149, .00162, + .23344, .06962, .04054, .00254, .00063, + .00022, .00143, .00154, + .22296, .06623, .03612, .00240, .00062, + .00024, .00136, .00147, + .21412, .06339, .03265, .00227, .00061, + .00025, .00129, .00142, + .20625, .06088, .02984, .00217, .00059, + .00025, .00124, .00135, + .19673, .05786, .02665, .00205, .00057, + .00026, .00118, .00126, + .18820, .05517, .02402, .00195, .00056, + .00026, .00112, .00118, + .18053, .05275, .02184, .00184, .00054, + .00026, .00106, .00112 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .17320, .05046, .01988, .00174, .00052, + .00026, .00101, .00107, + .16630, .04830, .01818, .00165, .00051, + .00026, .00096, .00102, + .16007, .04635, .01672, .00157, .00049, + .00026, .00091, .00097, + .15437, .04458, .01549, .00150, .00048, + .00026, .00088, .00092, + .14889, .04289, .01436, .00144, .00046, + .00026, .00084, .00088, + .14365, .04128, .01335, .00138, .00045, + .00025, .00080, .00084, + .13886, .03982, .01246, .00132, .00044, + .00025, .00077, .00081, + .13447, .03848, .01170, .00127, .00043, + .00025, .00075, .00078 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .13019, .03718, .01099, .00122, .00041, + .00025, .00072, .00074, + .12611, .03595, .01034, .00118, .00040, + .00025, .00069, .00071, + .12234, .03480, .00976, .00113, .00039, + .00024, .00066, .00069, + .11888, .03375, .00925, .00109, .00039, + .00024, .00064, .00066, + .11547, .03272, .00877, .00105, .00038, + .00024, .00062, .00063 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .40658, .12516, .19084, .00359, .00000, + .00000, .00144, .00168, + .39313, .12057, .17410, .00351, .00000, + .00000, .00148, .00169, + .37375, .11400, .15151, .00337, .00007, + .00000, .00150, .00169, + .35994, .10936, .13640, .00326, .00014, + .00000, .00150, .00167, + .34585, .10465, .12207, .00315, .00024, + .00000, .00150, .00164, + .33399, .10071, .11087, .00305, .00030, + .00000, .00149, .00161, + .32293, .09706, .10109, .00296, .00034, + .00000, .00147, .00158, + .31150, .09332, .09165, .00286, .00038, + .00000, .00144, .00154 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .30187, .09017, .08417, .00277, .00041, + .00000, .00141, .00151, + .29282, .08721, .07755, .00266, .00043, + .00000, .00139, .00148, + .28584, .08493, .07267, .00258, .00045, + .00000, .00137, .00146, + .27135, .08025, .06319, .00243, .00047, + .00001, .00131, .00140, + .25937, .07640, .05596, .00231, .00048, + .00004, .00127, .00134, + .24659, .07233, .04887, .00219, .00048, + .00009, .00123, .00126, + .23392, .06832, .04253, .00208, .00048, + .00011, .00117, .00119, + .22296, .06485, .03758, .00194, .00048, + .00013, .00111, .00114 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .21243, .06154, .03322, .00183, .00047, + .00014, .00105, .00108, + .20403, .05894, .03004, .00176, .00046, + .00015, .00101, .00102, + .19431, .05593, .02665, .00166, .00045, + .00016, .00096, .00096, + .18613, .05340, .02400, .00157, .00044, + .00017, .00092, .00091, + .17889, .05118, .02186, .00149, .00043, + .00017, .00088, .00087, + .17017, .04850, .01945, .00139, .00042, + .00017, .00083, .00082, + .16239, .04610, .01746, .00129, .00041, + .00017, .00078, .00079, + .15538, .04398, .01583, .00122, .00039, + .00017, .00074, .00075 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .14868, .04197, .01437, .00117, .00038, + .00017, .00071, .00070, + .14240, .04009, .01311, .00112, .00037, + .00017, .00068, .00065, + .13674, .03840, .01203, .00107, .00036, + .00017, .00065, .00061, + .13161, .03685, .01112, .00101, .00035, + .00017, .00062, .00059, + .12669, .03537, .01029, .00095, .00034, + .00017, .00059, .00057, + .12198, .03398, .00955, .00091, .00033, + .00017, .00056, .00054, + .11769, .03272, .00890, .00088, .00032, + .00017, .00054, .00052, + .11377, .03157, .00835, .00084, .00032, + .00017, .00051, .00050 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .10996, .03045, .00783, .00080, .00031, + .00017, .00049, .00048, + .10634, .02938, .00735, .00077, .00030, + .00017, .00047, .00046, + .10298, .02840, .00694, .00074, .00030, + .00017, .00045, .00044, + .09990, .02750, .00657, .00071, .00029, + .00017, .00044, .00042, + .09688, .02662, .00622, .00068, .00028, + .00017, .00043, .00041 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .36763, .10966, .15353, .00270, .00000, + .00000, .00094, .00096, + .35466, .10541, .13922, .00263, .00000, + .00000, .00097, .00099, + .33597, .09934, .12012, .00253, .00005, + .00000, .00100, .00099, + .32272, .09507, .10747, .00245, .00010, + .00000, .00100, .00098, + .30925, .09076, .09557, .00237, .00018, + .00000, .00100, .00097, + .29798, .08716, .08633, .00229, .00021, + .00000, .00099, .00096, + .28750, .08382, .07833, .00221, .00025, + .00000, .00097, .00095, + .27671, .08041, .07067, .00212, .00028, + .00000, .00096, .00092 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .26761, .07754, .06463, .00205, .00030, + .00000, .00094, .00091, + .25906, .07487, .05929, .00198, .00031, + .00000, .00092, .00089, + .25248, .07281, .05537, .00193, .00032, + .00000, .00091, .00087, + .23891, .06859, .04785, .00182, .00034, + .00001, .00087, .00083, + .22774, .06514, .04216, .00172, .00035, + .00003, .00083, .00079, + .21587, .06148, .03660, .00162, .00036, + .00006, .00079, .00075, + .20415, .05789, .03166, .00151, .00036, + .00008, .00075, .00071, + .19400, .05482, .02784, .00143, .00035, + .00009, .00071, .00068 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .18429, .05189, .02451, .00135, .00035, + .00010, .00067, .00065, + .17662, .04958, .02208, .00130, .00034, + .00010, .00065, .00060, + .16775, .04692, .01951, .00122, .00033, + .00010, .00062, .00057, + .16030, .04470, .01750, .00115, .00032, + .00010, .00058, .00054, + .15375, .04274, .01590, .00107, .00032, + .00010, .00056, .00051, + .14585, .04040, .01410, .00100, .00031, + .00010, .00053, .00049, + .13877, .03832, .01262, .00094, .00030, + .00010, .00050, .00047, + .13246, .03647, .01141, .00089, .00029, + .00010, .00047, .00044 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .12648, .03472, .01034, .00085, .00028, + .00010, .00044, .00042, + .12088, .03308, .00941, .00080, .00028, + .00010, .00042, .00040, + .11583, .03162, .00862, .00075, .00027, + .00010, .00039, .00037, + .11123, .03029, .00796, .00072, .00026, + .00010, .00037, .00035, + .10683, .02902, .00735, .00070, .00026, + .00010, .00035, .00033, + .10266, .02783, .00681, .00067, .00025, + .00010, .00034, .00031, + .09887, .02675, .00634, .00064, .00025, + .00010, .00033, .00030, + .09541, .02576, .00594, .00061, .00024, + .00010, .00032, .00028 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .09205, .02480, .00557, .00058, .00024, + .00010, .00030, .00027, + .08887, .02390, .00522, .00056, .00023, + .00010, .00028, .00026, + .08593, .02306, .00493, .00053, .00023, + .00010, .00027, .00026, + .08324, .02230, .00466, .00050, .00023, + .00010, .00026, .00025, + .08060, .02155, .00441, .00048, .00022, + .00010, .00025, .00024 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .32860, .09475, .12081, .00181, .00000, + .00000, .00069, .00059, + .31621, .09087, .10889, .00176, .00000, + .00000, .00071, .00061, + .29847, .08536, .09316, .00171, .00004, + .00000, .00072, .00062, + .28597, .08149, .08285, .00166, .00007, + .00000, .00071, .00062, + .27330, .07758, .07321, .00159, .00012, + .00000, .00070, .00062, + .26273, .07435, .06580, .00154, .00015, + .00000, .00070, .00061, + .25290, .07135, .05940, .00148, .00017, + .00000, .00069, .00060, + .24280, .06830, .05331, .00144, .00019, + .00000, .00068, .00059 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .23432, .06573, .04853, .00138, .00020, + .00000, .00067, .00058, + .22641, .06333, .04433, .00132, .00021, + .00000, .00065, .00057, + .22032, .06150, .04127, .00128, .00022, + .00000, .00063, .00056, + .20775, .05776, .03542, .00123, .00023, + .00001, .00060, .00054, + .19748, .05470, .03104, .00116, .00024, + .00002, .00058, .00051, + .18659, .05148, .02681, .00109, .00024, + .00004, .00055, .00048, + .17587, .04833, .02306, .00103, .00024, + .00005, .00053, .00046, + .16668, .04563, .02018, .00096, .00024, + .00005, .00049, .00043 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15791, .04307, .01768, .00090, .00024, + .00006, .00046, .00040, + .15096, .04106, .01588, .00085, .00024, + .00005, .00044, .00038, + .14294, .03875, .01397, .00080, .00024, + .00005, .00042, .00036, + .13624, .03682, .01250, .00075, .00024, + .00005, .00039, .00035, + .13035, .03513, .01132, .00072, .00023, + .00005, .00038, .00033, + .12329, .03311, .01000, .00067, .00023, + .00005, .00035, .00031, + .11703, .03133, .00893, .00061, .00022, + .00005, .00033, .00029, + .11144, .02974, .00806, .00057, .00022, + .00005, .00031, .00028 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .10614, .02823, .00728, .00054, .00021, + .00005, .00029, .00027, + .10117, .02684, .00662, .00051, .00021, + .00005, .00028, .00025, + .09672, .02560, .00605, .00049, .00021, + .00005, .00026, .00023, + .09268, .02448, .00558, .00048, .00021, + .00005, .00025, .00021, + .08881, .02342, .00515, .00046, .00020, + .00005, .00024, .00020, + .08518, .02241, .00476, .00043, .00020, + .00005, .00023, .00019, + .08189, .02149, .00443, .00041, .00020, + .00005, .00022, .00019, + .07889, .02066, .00414, .00038, .00019, + .00005, .00021, .00018 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .07598, .01985, .00388, .00036, .00019, + .00005, .00019, .00017, + .07322, .01910, .00364, .00035, .00019, + .00005, .00018, .00017, + .07066, .01840, .00343, .00034, .00019, + .00005, .00018, .00016, + .06833, .01776, .00324, .00033, .00019, + .00005, .00017, .00016, + .06605, .01714, .00306, .00032, .00019, + .00005, .00016, .00015 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .29024, .08097, .09315, .00122, .00000, + .00000, .00047, .00035, + .27863, .07747, .08346, .00119, .00000, + .00000, .00048, .00037, + .26209, .07249, .07079, .00112, .00002, + .00000, .00049, .00040, + .25044, .06903, .06258, .00109, .00005, + .00000, .00050, .00040, + .23867, .06555, .05495, .00106, .00008, + .00000, .00050, .00040, + .22886, .06267, .04911, .00102, .00010, + .00000, .00049, .00039, + .21980, .06002, .04411, .00098, .00012, + .00000, .00048, .00038, + .21054, .05732, .03938, .00093, .00013, + .00000, .00047, .00037 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .20277, .05506, .03570, .00090, .00014, + .00000, .00046, .00037, + .19549, .05295, .03249, .00087, .00014, + .00000, .00045, .00036, + .18992, .05134, .03016, .00085, .00015, + .00000, .00044, .00036, + .17853, .04805, .02571, .00079, .00015, + .00000, .00041, .00035, + .16922, .04538, .02241, .00073, .00015, + .00001, .00039, .00033, + .15938, .04256, .01924, .00068, .00015, + .00002, .00037, .00030, + .14974, .03983, .01647, .00063, .00015, + .00003, .00035, .00029, + .14144, .03750, .01434, .00060, .00014, + .00003, .00033, .00028 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13357, .03530, .01251, .00057, .00014, + .00003, .00032, .00026, + .12739, .03356, .01120, .00053, .00014, + .00003, .00031, .00025, + .12029, .03157, .00982, .00049, .00014, + .00003, .00029, .00023, + .11437, .02992, .00876, .00047, .00014, + .00003, .00027, .00022, + .10915, .02849, .00791, .00044, .00014, + .00003, .00025, .00021, + .10291, .02678, .00697, .00041, .00014, + .00003, .00023, .00020, + .09741, .02527, .00621, .00038, .00014, + .00003, .00022, .00019, + .09251, .02393, .00559, .00036, .00014, + .00003, .00021, .00017 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .08788, .02267, .00504, .00034, .00014, + .00003, .00020, .00016, + .08357, .02150, .00458, .00032, .00014, + .00003, .00019, .00016, + .07973, .02045, .00418, .00029, .00014, + .00003, .00018, .00015, + .07624, .01951, .00385, .00028, .00014, + .00003, .00017, .00015, + .07291, .01861, .00354, .00027, .00014, + .00003, .00016, .00014, + .06978, .01778, .00328, .00026, .00014, + .00003, .00015, .00013, + .06694, .01702, .00305, .00025, .00014, + .00003, .00015, .00011, + .06436, .01633, .00285, .00024, .00014, + .00003, .00014, .00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .06186, .01567, .00266, .00023, .00014, + .00003, .00013, .00011, + .05949, .01504, .00249, .00022, .00014, + .00003, .00012, .00010, + .05732, .01446, .00235, .00021, .00013, + .00003, .00011, .00010, + .05534, .01394, .00222, .00020, .00013, + .00003, .00011, .00010, + .05341, .01343, .00210, .00019, .00013, + .00003, .00011, .00010 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .25342, .06843, .07038, .00084, .00000, + .00000, .00028, .00019, + .24268, .06532, .06270, .00082, .00000, + .00000, .00029, .00020, + .22735, .06096, .05273, .00080, .00002, + .00000, .00030, .00019, + .21667, .05789, .04635, .00077, .00003, + .00000, .00030, .00021, + .20592, .05482, .04046, .00074, .00006, + .00000, .00030, .00022, + .19702, .05228, .03598, .00070, .00007, + .00000, .00030, .00021, + .18880, .04996, .03216, .00067, .00008, + .00000, .00029, .00020, + .18038, .04760, .02858, .00065, .00008, + .00000, .00028, .00020 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .17336, .04563, .02580, .00062, .00009, + .00000, .00028, .00020, + .16682, .04379, .02338, .00059, .00009, + .00000, .00027, .00020, + .16181, .04239, .02163, .00057, .00009, + .00000, .00027, .00020, + .15155, .03954, .01835, .00055, .00009, + .00000, .00026, .00019, + .14322, .03723, .01591, .00051, .00009, + .00000, .00024, .00018, + .13446, .03482, .01359, .00047, .00009, + .00001, .00022, .00018, + .12588, .03248, .01158, .00044, .00009, + .00001, .00021, .00016, + .11857, .03049, .01004, .00041, .00008, + .00001, .00020, .00015 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .11165, .02861, .00873, .00039, .00008, + .00001, .00019, .00015, + .10622, .02714, .00779, .00036, .00008, + .00001, .00018, .00015, + .10001, .02546, .00681, .00033, .00007, + .00001, .00017, .00014, + .09485, .02407, .00606, .00031, .00007, + .00001, .00016, .00012, + .09030, .02286, .00546, .00030, .00007, + .00001, .00015, .00011, + .08488, .02143, .00480, .00028, .00007, + .00001, .00014, .00010, + .08011, .02016, .00427, .00027, .00007, + .00001, .00012, .00010, + .07588, .01905, .00384, .00025, .00007, + .00001, .00012, .00010 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .07190, .01800, .00346, .00022, .00007, + .00001, .00011, .00010, + .06821, .01703, .00313, .00022, .00007, + .00001, .00011, .00009, + .06491, .01616, .00286, .00021, .00007, + .00001, .00010, .00008, + .06194, .01539, .00263, .00019, .00007, + .00001, .00010, .00008, + .05912, .01466, .00242, .00018, .00007, + .00001, .00009, .00007, + .05645, .01397, .00223, .00017, .00007, + .00001, .00008, .00007, + .05405, .01334, .00207, .00017, .00007, + .00001, .00008, .00007, + .05186, .01278, .00194, .00016, .00007, + .00001, .00008, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04976, .01224, .00181, .00015, .00007, + .00001, .00008, .00006, + .04777, .01173, .00169, .00014, .00007, + .00001, .00007, .00005, + .04595, .01126, .00160, .00014, .00007, + .00001, .00007, .00005, + .04429, .01083, .00151, .00013, .00007, + .00001, .00006, .00005, + .04268, .01042, .00142, .00012, .00007, + .00001, .00006, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .21799, .05686, .05171, .00047, .00000, + .00000, .00021, .00012, + .20821, .05415, .04579, .00047, .00000, + .00000, .00022, .00012, + .19437, .05032, .03820, .00046, .00001, + .00000, .00023, .00013, + .18474, .04767, .03338, .00044, .00002, + .00000, .00022, .00014, + .17507, .04502, .02896, .00042, .00003, + .00000, .00021, .00014, + .16705, .04283, .02562, .00041, .00004, + .00000, .00021, .00014, + .15968, .04083, .02280, .00039, .00005, + .00000, .00020, .00014, + .15218, .03880, .02016, .00038, .00005, + .00000, .00020, .00015 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .14593, .03711, .01813, .00036, .00005, + .00000, .00020, .00014, + .14012, .03555, .01637, .00034, .00005, + .00000, .00019, .00013, + .13569, .03437, .01510, .00033, .00005, + .00000, .00018, .00013, + .12665, .03194, .01273, .00031, .00005, + .00000, .00017, .00013, + .11931, .02999, .01099, .00030, .00005, + .00000, .00016, .00012, + .11162, .02796, .00934, .00028, .00005, + .00000, .00015, .00011, + .10415, .02598, .00791, .00025, .00005, + .00000, .00014, .00011, + .09779, .02431, .00684, .00023, .00005, + .00000, .00014, .00011 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .09180, .02274, .00592, .00021, .00005, + .00000, .00013, .00010, + .08711, .02152, .00527, .00020, .00005, + .00000, .00012, .00009, + .08174, .02014, .00459, .00019, .00005, + .00000, .00011, .00008, + .07728, .01899, .00408, .00019, .00005, + .00000, .00010, .00008, + .07341, .01799, .00367, .00017, .00005, + .00000, .00010, .00008, + .06880, .01680, .00322, .00016, .00005, + .00000, .00009, .00007, + .06474, .01576, .00286, .00015, .00005, + .00000, .00009, .00006, + .06115, .01485, .00256, .00014, .00004, + .00000, .00008, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05778, .01400, .00231, .00013, .00005, + .00000, .00007, .00006, + .05467, .01321, .00209, .00013, .00005, + .00000, .00007, .00006, + .05190, .01251, .00190, .00012, .00005, + .00000, .00007, .00006, + .04942, .01188, .00175, .00011, .00005, + .00000, .00006, .00005, + .04707, .01129, .00161, .00010, .00005, + .00000, .00006, .00005, + .04485, .01073, .00149, .00009, .00005, + .00000, .00006, .00005, + .04284, .01023, .00138, .00008, .00005, + .00000, .00005, .00004, + .04103, .00978, .00129, .00008, .00005, + .00000, .00005, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03929, .00935, .00120, .00008, .00005, + .00000, .00005, .00004, + .03765, .00894, .00112, .00007, .00005, + .00000, .00005, .00004, + .03615, .00857, .00106, .00007, .00005, + .00000, .00004, .00004, + .03479, .00823, .00100, .00006, .00005, + .00000, .00004, .00004, + .03345, .00790, .00094, .00006, .00005, + .00000, .00004, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .15426, .03758, .02580, .00021, .00000, + .00000, .00006, .00003, + .14656, .03560, .02258, .00020, .00000, + .00000, .00007, .00004, + .13578, .03283, .01853, .00017, .00000, + .00000, .00007, .00004, + .12829, .03092, .01601, .00016, .00000, + .00000, .00007, .00004, + .12083, .02903, .01372, .00015, .00000, + .00000, .00007, .00005, + .11471, .02748, .01202, .00014, .00000, + .00000, .00007, .00005, + .10910, .02606, .01060, .00014, .00000, + .00000, .00007, .00005, + .10342, .02463, .00928, .00014, .00000, + .00000, .00007, .00005 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .09871, .02345, .00828, .00013, .00000, + .00000, .00007, .00005, + .09437, .02237, .00743, .00012, .00000, + .00000, .00007, .00004, + .09107, .02154, .00682, .00011, .00000, + .00000, .00006, .00004, + .08435, .01988, .00568, .00011, .00000, + .00000, .00006, .00004, + .07896, .01855, .00486, .00010, .00000, + .00000, .00006, .00004, + .07335, .01717, .00410, .00009, .00000, + .00000, .00006, .00003, + .06795, .01584, .00345, .00008, .00000, + .00000, .00006, .00004, + .06338, .01473, .00296, .00008, .00000, + .00000, .00005, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05909, .01369, .00255, .00007, .00000, + .00000, .00004, .00003, + .05576, .01289, .00226, .00007, .00000, + .00000, .00004, .00003, + .05200, .01197, .00196, .00006, .00000, + .00000, .00004, .00003, + .04891, .01123, .00173, .00005, .00000, + .00000, .00004, .00003, + .04620, .01058, .00156, .00005, .00000, + .00000, .00003, .00003, + .04301, .00982, .00136, .00005, .00000, + .00000, .00003, .00002, + .04023, .00916, .00121, .00004, .00000, + .00000, .00003, .00002, + .03779, .00858, .00108, .00004, .00000, + .00000, .00003, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .03550, .00804, .00097, .00004, .00000, + .00000, .00002, .00002, + .03341, .00755, .00088, .00004, .00000, + .00000, .00002, .00002, + .03156, .00711, .00080, .00004, .00000, + .00000, .00002, .00002, + .02991, .00673, .00073, .00003, .00000, + .00000, .00002, .00002, + .02835, .00636, .00067, .00002, .00000, + .00000, .00002, .00002, + .02688, .00602, .00062, .00002, .00000, + .00000, .00002, .00002, + .02557, .00571, .00058, .00002, .00000, + .00000, .00002, .00001, + .02438, .00544, .00054, .00003, .00000, + .00000, .00002, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .02324, .00518, .00050, .00003, .00000, + .00000, .00002, .00001, + .02217, .00493, .00047, .00003, .00000, + .00000, .00002, .00001, + .02121, .00471, .00044, .00002, .00000, + .00000, .00001, .00001, + .02034, .00451, .00042, .00002, .00000, + .00000, .00001, .00001, + .01949, .00431, .00039, .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=1,8)/ + .10130, .02291, .01122, .00006, .00000, + .00000, .00002, .00000, + .09570, .02157, .00971, .00006, .00000, + .00000, .00002, .00000, + .08788, .01973, .00784, .00006, .00000, + .00000, .00002, .00000, + .08252, .01847, .00670, .00006, .00000, + .00000, .00002, .00001, + .07721, .01722, .00568, .00005, .00000, + .00000, .00002, .00001, + .07287, .01621, .00493, .00005, .00000, + .00000, .00002, .00001, + .06893, .01530, .00431, .00005, .00000, + .00000, .00002, .00001, + .06496, .01438, .00375, .00005, .00000, + .00000, .00002, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .06169, .01363, .00332, .00005, .00000, + .00000, .00002, .00001, + .05869, .01293, .00296, .00004, .00000, + .00000, .00002, .00002, + .05642, .01241, .00270, .00004, .00000, + .00000, .00002, .00002, + .05185, .01136, .00223, .00003, .00000, + .00000, .00001, .00002, + .04820, .01053, .00190, .00003, .00000, + .00000, .00001, .00002, + .04444, .00967, .00159, .00003, .00000, + .00000, .00001, .00001, + .04083, .00885, .00133, .00003, .00000, + .00000, .00001, .00001, + .03781, .00818, .00114, .00003, .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)/ + .03501, .00755, .00098, .00002, .00000, + .00000, .00001, .00001, + .03285, .00706, .00086, .00002, .00000, + .00000, .00001, .00001, + .03041, .00652, .00075, .00002, .00000, + .00000, .00001, .00001, + .02841, .00607, .00066, .00002, .00000, + .00000, .00001, .00001, + .02670, .00569, .00059, .00001, .00000, + .00000, .00001, .00001, + .02468, .00525, .00052, .00001, .00000, + .00000, .00001, .00001, + .02293, .00486, .00046, .00002, .00000, + .00000, .00001, .00001, + .02140, .00453, .00041, .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=25,32)/ + .01999, .00422, .00037, .00001, .00000, + .00000, .00001, .00001, + .01870, .00394, .00033, .00001, .00000, + .00000, .00000, .00001, + .01757, .00369, .00030, .00001, .00000, + .00000, .00000, .00000, + .01656, .00347, .00028, .00001, .00000, + .00000, .00000, .00000, + .01561, .00326, .00026, .00001, .00000, + .00000, .00000, .00000, + .01473, .00307, .00024, .00001, .00000, + .00000, .00001, .00000, + .01394, .00290, .00022, .00001, .00000, + .00000, .00001, .00000, + .01324, .00275, .00020, .00001, .00000, + .00000, .00001, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .01256, .00261, .00019, .00001, .00000, + .00000, .00001, .00000, + .01194, .00247, .00018, .00001, .00000, + .00000, .00001, .00000, + .01137, .00235, .00017, .00001, .00000, + .00000, .00001, .00000, + .01085, .00224, .00016, .00001, .00000, + .00000, .00000, .00000, + .01036, .00214, .00015, .00001, .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)/ + .06024, .01255, .00408, .00003, .00000, + .00000, .00000, .00000, + .05654, .01175, .00349, .00003, .00000, + .00000, .00000, .00000, + .05142, .01065, .00277, .00003, .00000, + .00000, .00000, .00000, + .04796, .00990, .00235, .00002, .00000, + .00000, .00000, .00000, + .04454, .00916, .00197, .00002, .00000, + .00000, .00000, .00000, + .04177, .00857, .00170, .00002, .00000, + .00000, .00000, .00000, + .03928, .00804, .00147, .00002, .00000, + .00000, .00000, .00000, + .03679, .00751, .00127, .00001, .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)/ + .03475, .00708, .00112, .00001, .00000, + .00000, .00000, .00000, + .03288, .00668, .00099, .00001, .00000, + .00000, .00000, .00000, + .03147, .00638, .00090, .00001, .00000, + .00000, .00000, .00000, + .02866, .00579, .00074, .00001, .00000, + .00000, .00000, .00000, + .02644, .00533, .00063, .00001, .00000, + .00000, .00000, .00000, + .02416, .00485, .00053, .00001, .00000, + .00000, .00000, .00000, + .02199, .00440, .00044, .00001, .00000, + .00000, .00000, .00000, + .02021, .00403, .00037, .00001, .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)/ + .01857, .00369, .00032, .00000, .00000, + .00000, .00000, .00000, + .01730, .00343, .00028, .00000, .00000, + .00000, .00000, .00000, + .01589, .00314, .00025, .00000, .00000, + .00000, .00000, .00000, + .01474, .00291, .00022, .00001, .00000, + .00000, .00000, .00000, + .01377, .00271, .00020, .00001, .00000, + .00000, .00000, .00000, + .01263, .00248, .00017, .00000, .00000, + .00000, .00000, .00000, + .01165, .00228, .00015, .00000, .00000, + .00000, .00000, .00000, + .01080, .00211, .00014, .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)/ + .01001, .00195, .00012, .00000, .00000, + .00000, .00000, .00000, + .00930, .00181, .00011, .00000, .00000, + .00000, .00000, .00000, + .00868, .00169, .00010, .00001, .00000, + .00000, .00000, .00000, + .00813, .00158, .00009, .00000, .00000, + .00000, .00000, .00000, + .00762, .00147, .00009, .00000, .00000, + .00000, .00000, .00000, + .00715, .00138, .00008, .00000, .00000, + .00000, .00000, .00000, + .00673, .00130, .00007, .00000, .00000, + .00000, .00000, .00000, + .00636, .00122, .00007, .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)/ + .00601, .00115, .00006, .00000, .00000, + .00000, .00000, .00000, + .00568, .00109, .00006, .00000, .00000, + .00000, .00000, .00000, + .00539, .00103, .00006, .00000, .00000, + .00000, .00000, .00000, + .00512, .00098, .00005, .00000, .00000, + .00000, .00000, .00000, + .00486, .00093, .00005, .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)/ + .03104, .00587, .00114, .00000, .00000, + .00000, .00000, .00000, + .02892, .00546, .00096, .00000, .00000, + .00000, .00000, .00001, + .02602, .00489, .00076, .00000, .00000, + .00000, .00000, .00001, + .02407, .00451, .00064, .00000, .00000, + .00000, .00000, .00000, + .02217, .00414, .00053, .00000, .00000, + .00000, .00000, .00000, + .02064, .00385, .00045, .00000, .00000, + .00000, .00000, .00000, + .01927, .00359, .00039, .00000, .00000, + .00000, .00000, .00000, + .01791, .00332, .00034, .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)/ + .01680, .00311, .00030, .00000, .00000, + .00000, .00000, .00000, + .01579, .00292, .00026, .00000, .00000, + .00000, .00000, .00000, + .01504, .00278, .00024, .00000, .00000, + .00000, .00000, .00000, + .01356, .00249, .00020, .00000, .00000, + .00000, .00000, .00000, + .01239, .00227, .00017, .00000, .00000, + .00000, .00000, .00000, + .01121, .00205, .00014, .00000, .00000, + .00000, .00000, .00000, + .01011, .00184, .00012, .00000, .00000, + .00000, .00000, .00000, + .00920, .00167, .00010, .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)/ + .00837, .00152, .00009, .00000, .00000, + .00000, .00000, .00000, + .00774, .00140, .00008, .00000, .00000, + .00000, .00000, .00000, + .00705, .00127, .00007, .00000, .00000, + .00000, .00000, .00000, + .00648, .00117, .00006, .00000, .00000, + .00000, .00000, .00000, + .00601, .00108, .00005, .00000, .00000, + .00000, .00000, .00000, + .00546, .00098, .00005, .00000, .00000, + .00000, .00000, .00000, + .00499, .00089, .00004, .00000, .00000, + .00000, .00000, .00000, + .00459, .00082, .00004, .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)/ + .00422, .00075, .00003, .00000, .00000, + .00000, .00000, .00000, + .00389, .00069, .00003, .00000, .00000, + .00000, .00000, .00000, + .00361, .00064, .00003, .00000, .00000, + .00000, .00000, .00000, + .00336, .00059, .00003, .00000, .00000, + .00000, .00000, .00000, + .00313, .00055, .00002, .00000, .00000, + .00000, .00000, .00000, + .00291, .00051, .00002, .00000, .00000, + .00000, .00000, .00000, + .00272, .00048, .00002, .00000, .00000, + .00000, .00000, .00000, + .00256, .00045, .00002, .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)/ + .00240, .00042, .00002, .00000, .00000, + .00000, .00000, .00000, + .00226, .00039, .00002, .00000, .00000, + .00000, .00000, .00000, + .00213, .00037, .00002, .00000, .00000, + .00000, .00000, .00000, + .00201, .00035, .00001, .00000, .00000, + .00000, .00000, .00000, + .00190, .00033, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00361, .00052, .00002, .00000, .00000, + .00000, .00000, .00000, + .00329, .00048, .00002, .00000, .00000, + .00000, .00000, .00000, + .00287, .00041, .00001, .00000, .00000, + .00000, .00000, .00000, + .00259, .00037, .00001, .00000, .00000, + .00000, .00000, .00000, + .00233, .00033, .00001, .00000, .00000, + .00000, .00000, .00000, + .00212, .00030, .00001, .00000, .00000, + .00000, .00000, .00000, + .00194, .00028, .00001, .00000, .00000, + .00000, .00000, .00000, + .00177, .00025, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00163, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00150, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00141, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00123, .00017, .00001, .00000, .00000, + .00000, .00000, .00000, + .00110, .00015, .00000, .00000, .00000, + .00000, .00000, .00000, + .00096, .00014, .00000, .00000, .00000, + .00000, .00000, .00000, + .00084, .00012, .00000, .00000, .00000, + .00000, .00000, .00000, + .00075, .00010, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00066, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00060, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00053, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00048, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00043, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00038, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00034, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00031, .00004, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00028, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00025, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00023, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00021, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00019, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00013, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='lo01a.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