#include "pdf/pilot.h" subroutine sfmrsc3(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)/ + .00258, .00689, 1.14806, .85861, .00000, + .00000, .45800, .86391, + .00277, .00697, 2.42849, .89638, .01185, + .00000, .50017, .90214, + .00304, .00710, 4.96211, .97683, .09806, + .00000, .58693, .98325, + .00325, .00720, 7.41708, 1.05385, .17636, + .00000, .66842, 1.06073, + .00346, .00730, 10.55312, 1.15475, .27666, + .00000, .77390, 1.16211, + .00365, .00738, 13.76159, 1.25869, .37864, + .00000, .88168, 1.26644, + .00383, .00747, 17.37161, 1.37239, .49342, + .00000, .99898, 1.38050, + .00402, .00756, 21.81108, 1.50921, .63369, + .00000, 1.13954, 1.51770 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00419, .00764, 26.12737, 1.64364, .76808, + .00000, 1.27715, 1.65245, + .00435, .00771, 30.75916, 1.78670, .91133, + .00000, 1.42324, 1.79581, + .00448, .00778, 34.81681, 1.90947, 1.03633, + .00000, 1.54835, 1.91880, + .00476, .00791, 44.32189, 2.20200, 1.32967, + .02787, 1.84579, 2.21180, + .00500, .00802, 53.50489, 2.48779, 1.61375, + .43733, 2.13570, 2.49798, + .00527, .00815, 65.12843, 2.84747, 1.97154, + .92081, 2.49987, 2.85808, + .00556, .00829, 78.79559, 3.26815, 2.38932, + 1.40475, 2.92512, 3.27918, + .00582, .00842, 92.61547, 3.69260, 2.81055, + 1.87731, 3.35359, 3.70398 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00609, .00855, 107.98018, 4.16443, 3.27920, + 2.38844, 3.82939, 4.17615, + .00631, .00866, 121.76965, 4.58990, 3.70076, + 2.83574, 4.25808, 4.60189, + .00659, .00879, 139.74814, 5.14769, 4.25285, + 3.41330, 4.81970, 5.15999, + .00683, .00891, 156.92575, 5.68184, 4.78295, + 3.96611, 5.35716, 5.69441, + .00705, .00902, 173.74388, 6.20658, 5.30457, + 4.50763, 5.88488, 6.21939, + .00734, .00916, 196.26759, 6.91735, 6.00896, + 5.23028, 6.59935, 6.93043, + .00761, .00929, 218.92592, 7.63631, 6.72304, + 5.96296, 7.32172, 7.64965, + .00787, .00942, 241.55801, 8.35747, 7.44128, + 6.70091, 8.04601, 8.37103 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00813, .00954, 265.05768, 9.11715, 8.19520, + 7.46866, 8.80875, 9.13092, + .00839, .00967, 289.35907, 9.90649, 8.98064, + 8.27069, 9.60104, 9.92046, + .00863, .00979, 313.45605, 10.69498, 9.76585, + 9.07211, 10.39226, 10.70912, + .00886, .00991, 336.88663, 11.47034, 10.53702, + 9.85665, 11.17016, 11.48465, + .00910, .01002, 361.59863, 12.29091, 11.35535, + 10.69154, 11.99324, 12.30538, + .00933, .01014, 386.39938, 13.12581, 12.18600, + 11.53506, 12.83056, 13.14042, + .00955, .01025, 411.12766, 13.96017, 13.01861, + 12.38349, 13.66719, 13.97491, + .00976, .01035, 434.83429, 14.77101, 13.82584, + 13.20258, 14.48015, 14.78587 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .00998, .01046, 459.72943, 15.62518, 14.67805, + 14.06937, 15.33643, 15.64015, + .01019, .01057, 484.74979, 16.49272, 15.54287, + 14.94731, 16.20602, 16.50780, + .01040, .01067, 509.28992, 17.34928, 16.39721, + 15.81470, 17.06452, 17.36445, + .01059, .01077, 533.25323, 18.19009, 17.23674, + 16.66779, 17.90714, 18.20536, + .01079, .01087, 557.67255, 19.05720, 18.10114, + 17.54373, 18.77607, 19.07255 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00427, .00843, 1.06935, .73999, .00000, + .00000, .39431, .74414, + .00452, .00855, 2.22558, .77429, .01062, + .00000, .43216, .77873, + .00489, .00873, 4.46074, .84480, .08677, + .00000, .50776, .84966, + .00517, .00887, 6.58048, .91088, .15428, + .00000, .57743, .91603, + .00547, .00901, 9.23991, .99604, .23941, + .00000, .66627, 1.00149, + .00572, .00914, 11.91834, 1.08267, .32478, + .00000, .75598, 1.08837, + .00597, .00926, 14.89336, 1.17661, .41984, + .00000, .85280, 1.18254, + .00623, .00939, 18.50627, 1.28870, .53481, + .00000, .96788, 1.29487 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00646, .00950, 21.97669, 1.39785, .64387, + .00000, 1.07958, 1.40423, + .00668, .00961, 25.66308, 1.51321, .75920, + .00000, 1.19733, 1.51977, + .00685, .00970, 28.86595, 1.61165, .85918, + .00000, 1.29765, 1.61836, + .00723, .00988, 36.27455, 1.84419, 1.09159, + .02278, 1.53409, 1.85120, + .00756, .01004, 43.32248, 2.06903, 1.31421, + .34461, 1.76221, 2.07629, + .00793, .01022, 52.12724, 2.34931, 1.59176, + .72130, 2.04606, 2.35684, + .00832, .01041, 62.34169, 2.67382, 1.91247, + 1.09285, 2.37418, 2.68162, + .00867, .01059, 72.54090, 2.99811, 2.23269, + 1.45170, 2.70166, 3.00614 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .00903, .01077, 83.75018, 3.35544, 2.58580, + 1.83600, 3.06213, 3.36369, + .00933, .01091, 93.70589, 3.67508, 2.90087, + 2.16933, 3.38432, 3.68351, + .00970, .01109, 106.55493, 4.09084, 3.31026, + 2.59618, 3.80310, 4.09948, + .01003, .01126, 118.71117, 4.48591, 3.70035, + 3.00161, 4.20079, 4.49472, + .01033, .01140, 130.51088, 4.87138, 4.08164, + 3.39608, 4.58861, 4.88035, + .01071, .01160, 146.16129, 5.38957, 4.59264, + 3.91834, 5.10972, 5.39873, + .01108, .01178, 161.75487, 5.90973, 5.10680, + 4.44396, 5.63256, 5.91905, + .01142, .01195, 177.19695, 6.42785, 5.62047, + 4.96989, 6.15315, 6.43733 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01177, .01212, 193.08632, 6.96979, 6.15584, + 5.51299, 6.69750, 6.97941, + .01211, .01229, 209.39034, 7.52934, 6.71017, + 6.07703, 7.25937, 7.53909, + .01244, .01245, 225.43550, 8.08486, 7.26103, + 6.63731, 7.81705, 8.09474, + .01275, .01260, 240.92027, 8.62790, 7.79885, + 7.18250, 8.36208, 8.63789, + .01306, .01276, 257.15128, 9.19964, 8.36674, + 7.75999, 8.93580, 9.20974, + .01337, .01291, 273.32095, 9.77802, 8.93985, + 8.33993, 9.51609, 9.78822, + .01366, .01306, 289.35507, 10.35332, 9.51178, + 8.92088, 10.09318, 10.36362, + .01394, .01320, 304.62338, 10.90949, 10.06333, + 9.47863, 10.65102, 10.91988 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01423, .01334, 320.57779, 11.49290, 10.64328, + 10.06665, 11.23609, 11.50337, + .01451, .01348, 336.51559, 12.08263, 11.22901, + 10.65936, 11.82744, 12.09318, + .01478, .01362, 352.06702, 12.66242, 11.80526, + 11.24258, 12.40876, 12.67304, + .01504, .01375, 367.18179, 13.22932, 12.36937, + 11.81410, 12.97709, 13.24001, + .01531, .01388, 382.49710, 13.81141, 12.94763, + 12.39822, 13.56060, 13.82216 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00670, .01031, .99732, .63735, .00000, + .00000, .33949, .64069, + .00705, .01049, 2.04110, .66840, .00952, + .00000, .37342, .67191, + .00757, .01075, 4.01147, .73015, .07678, + .00000, .43927, .73390, + .00795, .01094, 5.83946, .78681, .13496, + .00000, .49882, .79073, + .00835, .01114, 8.09089, .85861, .20716, + .00000, .57358, .86271, + .00870, .01132, 10.32220, .93070, .27854, + .00000, .64814, .93495, + .00904, .01149, 12.76816, 1.00816, .35717, + .00000, .72791, 1.01255, + .00940, .01167, 15.70073, 1.09979, .45127, + .00000, .82192, 1.10431 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .00971, .01182, 18.48290, 1.18819, .53964, + .00000, .91236, 1.19283, + .01001, .01197, 21.40765, 1.28092, .63232, + .00000, 1.00701, 1.28568, + .01025, .01209, 23.92749, 1.35961, .71214, + .00000, 1.08719, 1.36446, + .01077, .01235, 29.68100, 1.54384, .89591, + .01861, 1.27452, 1.54886, + .01121, .01257, 35.06790, 1.72007, 1.06996, + .27143, 1.45336, 1.72525, + .01172, .01282, 41.70796, 1.93761, 1.28475, + .56476, 1.67373, 1.94295, + .01224, .01308, 49.30594, 2.18687, 1.53029, + .84979, 1.92585, 2.19237, + .01272, .01332, 56.79535, 2.43354, 1.77302, + 1.12201, 2.17504, 2.43918 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01321, .01357, 64.92997, 2.70291, 2.03826, + 1.41060, 2.44689, 2.70869, + .01362, .01377, 72.07808, 2.94189, 2.27299, + 1.65864, 2.68788, 2.94778, + .01411, .01401, 81.20795, 3.25025, 2.57554, + 1.97359, 2.99862, 3.25627, + .01455, .01423, 89.75897, 3.54097, 2.86160, + 2.27039, 3.29140, 3.54710, + .01496, .01443, 97.98599, 3.82266, 3.13929, + 2.55715, 3.57494, 3.82889, + .01548, .01469, 108.78947, 4.19843, 3.50858, + 2.93375, 3.95301, 4.20478, + .01597, .01493, 119.44830, 4.57269, 3.87732, + 3.30992, 4.32938, 4.57915, + .01643, .01516, 129.91092, 4.94287, 4.24319, + 3.68378, 4.70149, 4.94943 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01689, .01539, 140.57541, 5.32726, 4.62172, + 4.06690, 5.08778, 5.33392, + .01735, .01562, 151.43144, 5.72159, 5.01122, + 4.46238, 5.48393, 5.72834, + .01779, .01584, 162.03230, 6.11065, 5.39593, + 4.85287, 5.87469, 6.11749, + .01820, .01604, 172.18329, 6.48867, 5.76924, + 5.23047, 6.25427, 6.49558, + .01861, .01625, 182.75668, 6.88459, 6.16146, + 5.62856, 6.65174, 6.89157, + .01902, .01645, 193.20845, 7.28274, 6.55491, + 6.02583, 7.05139, 7.28980, + .01942, .01664, 203.51527, 7.67690, 6.94580, + 6.42215, 7.44696, 7.68403, + .01979, .01683, 213.26010, 8.05591, 7.32069, + 6.80045, 7.82727, 8.06309 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02017, .01702, 223.39165, 8.45177, 7.71329, + 7.19778, 8.22444, 8.45902, + .02055, .01720, 233.44849, 8.84998, 8.10785, + 7.59625, 8.62391, 8.85728, + .02091, .01738, 243.20926, 9.23978, 8.49439, + 7.98672, 9.01491, 9.24714, + .02125, .01755, 252.65016, 9.61939, 8.87132, + 8.36794, 9.39565, 9.62681, + .02160, .01772, 262.15836, 10.00741, 9.25593, + 8.75569, 9.78479, 10.01487 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .00859, .01161, .95848, .58382, .00000, + .00000, .31105, .58685, + .00901, .01183, 1.94154, .61307, .00893, + .00000, .34284, .61622, + .00964, .01215, 3.77108, .67017, .07147, + .00000, .40358, .67350, + .01010, .01238, 5.44625, .72192, .12480, + .00000, .45789, .72537, + .01059, .01262, 7.48678, .78686, .19033, + .00000, .52543, .79044, + .01101, .01284, 9.48971, .85155, .25459, + .00000, .59230, .85523, + .01142, .01304, 11.66813, .92068, .32490, + .00000, .66346, .92445, + .01185, .01326, 14.26002, 1.00200, .40853, + .00000, .74689, 1.00588 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01222, .01344, 16.70078, 1.08003, .48660, + .00000, .82670, 1.08399, + .01259, .01363, 19.25074, 1.16152, .56807, + .00000, .90987, 1.16556, + .01288, .01377, 21.43669, 1.23043, .63797, + .00000, .98009, 1.23454, + .01349, .01408, 26.38913, 1.39089, .79796, + .01653, 1.14328, 1.39513, + .01403, .01435, 30.98164, 1.54341, .94849, + .23597, 1.29807, 1.54776, + .01463, .01465, 36.59739, 1.73057, 1.13310, + .48926, 1.48771, 1.73503, + .01526, .01496, 42.97072, 1.94369, 1.34281, + .73322, 1.70332, 1.94827, + .01583, .01525, 49.20474, 2.15337, 1.54889, + .96465, 1.91521, 2.15806 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01642, .01554, 55.92823, 2.38111, 1.77288, + 1.20852, 2.14512, 2.38591, + .01690, .01578, 61.79861, 2.58218, 1.97012, + 1.41698, 2.34794, 2.58706, + .01749, .01607, 69.24979, 2.84038, 2.22313, + 1.68035, 2.60821, 2.84536, + .01802, .01633, 76.18650, 3.08267, 2.46125, + 1.92737, 2.85230, 3.08773, + .01850, .01657, 82.82520, 3.31647, 2.69146, + 2.16505, 3.08771, 3.32161, + .01912, .01688, 91.49043, 3.62691, 2.99619, + 2.47567, 3.40016, 3.63215, + .01970, .01717, 99.98937, 3.93469, 3.29908, + 2.78452, 3.70976, 3.94001, + .02025, .01744, 108.28806, 4.23783, 3.59839, + 3.09026, 4.01459, 4.24324 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02080, .01771, 116.69842, 4.55125, 3.90669, + 3.40211, 4.32966, 4.55673, + .02134, .01798, 125.21895, 4.87154, 4.22275, + 3.72288, 4.65153, 4.87709, + .02186, .01823, 133.50034, 5.18639, 4.53378, + 4.03844, 4.96785, 5.19201, + .02235, .01848, 141.39267, 5.49119, 4.83451, + 4.34245, 5.27401, 5.49687, + .02284, .01872, 149.58260, 5.80943, 5.14952, + 4.66205, 5.59360, 5.81518, + .02332, .01896, 157.63989, 6.12833, 5.46438, + 4.97978, 5.91380, 6.13414, + .02379, .01919, 165.55927, 6.44316, 5.77636, + 5.29598, 6.22985, 6.44902, + .02423, .01941, 173.01379, 6.74489, 6.07457, + 5.59674, 6.53272, 6.75081 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02468, .01963, 180.74088, 7.05926, 6.38613, + 5.91192, 6.84822, 7.06523, + .02512, .01985, 188.38113, 7.37455, 6.69831, + 6.22704, 7.16460, 7.38057, + .02554, .02005, 195.77267, 7.68238, 7.00337, + 6.53507, 7.47348, 7.68845, + .02595, .02025, 202.90105, 7.98147, 7.30017, + 6.83513, 7.77354, 7.98759, + .02636, .02046, 210.05336, 8.28635, 7.60216, + 7.13943, 8.07939, 8.29250 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01019, .01264, .93254, .54846, .00000, + .00000, .29233, .55137, + .01067, .01288, 1.87465, .57647, .00854, + .00000, .32269, .57947, + .01139, .01325, 3.61006, .63048, .06793, + .00000, .38003, .63361, + .01192, .01351, 5.18404, .67900, .11805, + .00000, .43090, .68223, + .01248, .01380, 7.08612, .73945, .17922, + .00000, .49373, .74277, + .01296, .01404, 8.94021, .79932, .23883, + .00000, .55560, .80273, + .01342, .01427, 10.94537, .86304, .30377, + .00000, .62118, .86653, + .01392, .01452, 13.31800, .93772, .38065, + .00000, .69779, .94129 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01434, .01473, 15.54035, 1.00908, .45211, + .00000, .77078, 1.01272, + .01476, .01494, 17.85175, 1.08336, .52642, + .00000, .84660, 1.08706, + .01509, .01511, 19.82608, 1.14603, .58999, + .00000, .91046, 1.14978, + .01579, .01546, 24.27394, 1.29137, .73492, + .01520, 1.05829, 1.29523, + .01640, .01576, 28.36990, 1.42888, .87061, + .21360, 1.19787, 1.43282, + .01709, .01610, 33.34963, 1.59690, 1.03631, + .44178, 1.36815, 1.60094, + .01780, .01646, 38.96780, 1.78737, 1.22366, + .66015, 1.56090, 1.79152, + .01845, .01678, 44.43269, 1.97399, 1.40699, + .86632, 1.74952, 1.97821 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .01912, .01711, 50.29672, 2.17589, 1.60547, + 1.08262, 1.95340, 2.18021, + .01967, .01738, 55.39304, 2.35352, 1.77963, + 1.26680, 2.13262, 2.35791, + .02034, .01772, 61.83253, 2.58084, 2.00227, + 1.49864, 2.36183, 2.58531, + .02093, .01801, 67.80136, 2.79344, 2.21111, + 1.71535, 2.57605, 2.79798, + .02148, .01828, 73.49202, 2.99797, 2.41242, + 1.92324, 2.78206, 3.00258, + .02218, .01863, 80.88731, 3.26866, 2.67801, + 2.19397, 3.05456, 3.27335, + .02283, .01896, 88.10972, 3.53613, 2.94113, + 2.46229, 3.32369, 3.54089, + .02346, .01926, 95.13513, 3.79879, 3.20036, + 2.72714, 3.58788, 3.80362 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02408, .01957, 102.22534, 4.06949, 3.46655, + 2.99637, 3.86008, 4.07439, + .02469, .01987, 109.38365, 4.34537, 3.73869, + 3.27258, 4.13739, 4.35034, + .02527, .02016, 116.31742, 4.61585, 4.00581, + 3.54360, 4.40920, 4.62088, + .02582, .02043, 122.90256, 4.87700, 4.26339, + 3.80399, 4.67159, 4.88209, + .02637, .02070, 129.71748, 5.14907, 4.53265, + 4.07718, 4.94488, 5.15421, + .02692, .02097, 136.39856, 5.42100, 4.80105, + 4.34802, 5.21798, 5.42620, + .02744, .02123, 142.94978, 5.68892, 5.06650, + 4.61708, 5.48701, 5.69417, + .02794, .02147, 149.09645, 5.94510, 5.31963, + 4.87235, 5.74422, 5.95040 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02844, .02172, 155.45416, 6.21151, 5.58362, + 5.13943, 6.01166, 6.21686, + .02894, .02197, 161.72232, 6.47814, 5.84757, + 5.40587, 6.27929, 6.48354, + .02941, .02220, 167.77206, 6.73799, 6.10504, + 5.66584, 6.54007, 6.74343, + .02987, .02242, 173.59416, 6.99002, 6.35512, + 5.91868, 6.79299, 6.99550, + .03033, .02265, 179.41945, 7.24641, 6.60904, + 6.17454, 7.05026, 7.25193 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01160, .01350, .91344, .52245, .00000, + .00000, .27861, .52530, + .01213, .01377, 1.82496, .54952, .00824, + .00000, .30788, .55245, + .01294, .01418, 3.49048, .60122, .06531, + .00000, .36271, .60427, + .01352, .01447, 4.98986, .64737, .11307, + .00000, .41106, .65049, + .01414, .01478, 6.79046, .70453, .17104, + .00000, .47045, .70774, + .01468, .01505, 8.53608, .76090, .22728, + .00000, .52869, .76418, + .01519, .01531, 10.41555, .82070, .28831, + .00000, .59023, .82404, + .01574, .01558, 12.62985, .89057, .36031, + .00000, .66190, .89398 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01621, .01582, 14.69517, .95712, .42701, + .00000, .72997, .96059, + .01667, .01605, 16.83572, 1.02622, .49618, + .00000, .80051, 1.02974, + .01704, .01623, 18.65894, 1.08440, .55522, + .00000, .85981, 1.08797, + .01782, .01662, 22.74818, 1.21892, .68939, + .01423, .99665, 1.22258, + .01849, .01696, 26.49324, 1.34572, .81454, + .19768, 1.12539, 1.34946, + .01925, .01733, 31.02574, 1.50015, .96683, + .40807, 1.28192, 1.50397, + .02004, .01773, 36.11561, 1.67459, 1.13840, + .60839, 1.45848, 1.67850, + .02076, .01808, 41.04498, 1.84493, 1.30573, + .79682, 1.63069, 1.84892 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02149, .01845, 46.31329, 2.02868, 1.48634, + .99384, 1.81627, 2.03274, + .02210, .01875, 50.87516, 2.18988, 1.64437, + 1.16108, 1.97896, 2.19401, + .02283, .01911, 56.61886, 2.39563, 1.84585, + 1.37099, 2.18646, 2.39983, + .02349, .01944, 61.92459, 2.58754, 2.03434, + 1.56669, 2.37989, 2.59181, + .02409, .01974, 66.96776, 2.77175, 2.21563, + 1.75398, 2.56546, 2.77608, + .02486, .02012, 73.49903, 3.01490, 2.45417, + 1.99721, 2.81030, 3.01930, + .02558, .02047, 79.85612, 3.25452, 2.68988, + 2.23765, 3.05147, 3.25900, + .02627, .02081, 86.02132, 3.48929, 2.92158, + 2.47445, 3.28766, 3.49383 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02695, .02115, 92.22269, 3.73065, 3.15889, + 2.71452, 3.53041, 3.73526, + .02762, .02148, 98.46655, 3.97611, 3.40101, + 2.96031, 3.77719, 3.98077, + .02826, .02179, 104.49836, 4.21624, 3.63817, + 3.20100, 4.01857, 4.22097, + .02886, .02209, 110.21112, 4.44763, 3.86638, + 3.43174, 4.25110, 4.45241, + .02947, .02239, 116.11056, 4.68827, 4.10453, + 3.67344, 4.49287, 4.69310, + .03007, .02268, 121.87805, 4.92829, 4.34144, + 3.91254, 4.73399, 4.93318, + .03064, .02296, 127.52287, 5.16441, 4.57541, + 4.14975, 4.97114, 5.16935, + .03118, .02323, 132.80536, 5.38976, 4.79807, + 4.37434, 5.19744, 5.39474 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03173, .02350, 138.25984, 5.62379, 5.02999, + 4.60902, 5.43242, 5.62882, + .03228, .02377, 143.62531, 5.85760, 5.26148, + 4.84273, 5.66716, 5.86268, + .03280, .02402, 148.79410, 6.08514, 5.48695, + 5.07045, 5.89557, 6.09026, + .03329, .02427, 153.76004, 6.30553, 5.70567, + 5.29164, 6.11679, 6.31070, + .03380, .02452, 158.71748, 6.52940, 5.92739, + 5.51509, 6.34147, 6.53460 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01713, .01660, .86075, .44884, .00000, + .00000, .24001, .45186, + .01789, .01698, 1.68349, .47313, .00739, + .00000, .26613, .47621, + .01900, .01753, 3.14801, .51821, .05779, + .00000, .31380, .52137, + .01982, .01794, 4.43534, .55763, .09887, + .00000, .35504, .56085, + .02068, .01837, 5.95061, .60559, .14789, + .00000, .40485, .60888, + .02142, .01873, 7.39420, .65222, .19474, + .00000, .45301, .65556, + .02213, .01909, 8.92655, .70118, .24499, + .00000, .50341, .70457, + .02288, .01946, 10.70712, .75783, .30361, + .00000, .56154, .76128 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02354, .01978, 12.34563, .81123, .35732, + .00000, .61619, .81473, + .02417, .02010, 14.02485, .86622, .41255, + .00000, .67236, .86976, + .02467, .02034, 15.44233, .91224, .45935, + .00000, .71930, .91582, + .02574, .02087, 18.57651, 1.01757, .56463, + .01159, .82654, 1.02123, + .02666, .02133, 21.39634, 1.11571, .66165, + .15515, .92625, 1.11943, + .02769, .02184, 24.75994, 1.23396, .77842, + .31832, 1.04622, 1.23775, + .02877, .02237, 28.48142, 1.36603, .90848, + .47124, 1.18003, 1.36991, + .02975, .02285, 32.03538, 1.49365, 1.03398, + .61337, 1.30917, 1.49760 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03074, .02334, 35.78537, 1.62998, 1.16813, + .76037, 1.44700, 1.63401, + .03156, .02374, 38.99463, 1.74855, 1.28447, + .88393, 1.56677, 1.75263, + .03256, .02423, 42.98937, 1.89856, 1.43152, + 1.03761, 1.71821, 1.90271, + .03345, .02467, 46.63905, 2.03733, 1.56796, + 1.17967, 1.85821, 2.04154, + .03426, .02507, 50.07476, 2.16954, 1.69822, + 1.31462, 1.99154, 2.17382, + .03529, .02557, 54.47460, 2.34262, 1.86817, + 1.48831, 2.16597, 2.34697, + .03626, .02605, 58.71094, 2.51177, 2.03475, + 1.65861, 2.33639, 2.51620, + .03718, .02650, 62.77994, 2.67627, 2.19729, + 1.82513, 2.50203, 2.68076 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03809, .02694, 66.82854, 2.84405, 2.36243, + 1.99251, 2.67094, 2.84861, + .03899, .02738, 70.86932, 3.01351, 2.52979, + 2.16277, 2.84148, 3.01814, + .03984, .02780, 74.73900, 3.17821, 2.69265, + 2.32840, 3.00718, 3.18290, + .04064, .02819, 78.37093, 3.33585, 2.84832, + 2.48609, 3.16575, 3.34060, + .04145, .02859, 82.09612, 3.49890, 3.00992, + 2.65045, 3.32973, 3.50371, + .04224, .02897, 85.70422, 3.66048, 3.16959, + 2.81188, 3.49218, 3.66534, + .04300, .02934, 89.21493, 3.81865, 3.32654, + 2.97135, 3.65119, 3.82357, + .04372, .02970, 92.47161, 3.96869, 3.47499, + 3.12135, 3.80200, 3.97367 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04444, .03005, 95.81638, 4.12382, 3.62895, + 3.27746, 3.95791, 4.12886, + .04516, .03040, 99.08143, 4.27797, 3.78178, + 3.43204, 4.11281, 4.28306, + .04585, .03073, 102.20765, 4.42729, 3.92995, + 3.58197, 4.26283, 4.43243, + .04650, .03105, 105.19489, 4.57131, 4.07310, + 3.72703, 4.40752, 4.57650, + .04716, .03138, 108.15430, 4.71684, 4.21744, + 3.87275, 4.55371, 4.72208 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02497, .02056, .82165, .38507, .00000, + .00000, .20691, .38878, + .02602, .02107, 1.56436, .40675, .00664, + .00000, .23014, .41054, + .02758, .02183, 2.84942, .44590, .05113, + .00000, .27150, .44981, + .02871, .02238, 3.95068, .47943, .08642, + .00000, .30657, .48342, + .02990, .02296, 5.21965, .51950, .12776, + .00000, .34821, .52358, + .03093, .02346, 6.40646, .55787, .16666, + .00000, .38789, .56203, + .03191, .02394, 7.64745, .59773, .20786, + .00000, .42896, .60197, + .03295, .02444, 9.06856, .64338, .25538, + .00000, .47587, .64769 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03385, .02488, 10.35772, .68593, .29842, + .00000, .51947, .69031, + .03472, .02531, 11.66333, .72937, .34227, + .00000, .56391, .73381, + .03541, .02564, 12.75502, .76548, .37916, + .00000, .60080, .76998, + .03687, .02635, 15.13235, .84728, .46124, + .00941, .68421, .85189, + .03813, .02697, 17.23071, .92254, .53593, + .12123, .76081, .92724, + .03954, .02766, 19.69551, 1.01220, .62480, + .24716, .85194, 1.01702, + .04100, .02837, 22.37996, 1.11117, .72259, + .36323, .95237, 1.11610, + .04233, .02902, 24.90566, 1.20575, .81590, + .46977, 1.04824, 1.21078 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04367, .02967, 27.53461, 1.30576, .91464, + .57870, 1.14952, 1.31090, + .04478, .03021, 29.75644, 1.39193, .99947, + .66933, 1.23671, 1.39715, + .04613, .03087, 32.48829, 1.49998, 1.10571, + .78096, 1.34596, 1.50530, + .04732, .03144, 34.95506, 1.59905, 1.20343, + .88324, 1.44607, 1.60447, + .04841, .03198, 37.25327, 1.69272, 1.29602, + .97963, 1.54068, 1.69822, + .04979, .03265, 40.16072, 1.81425, 1.41574, + 1.10254, 1.66337, 1.81986, + .05109, .03328, 42.92770, 1.93200, 1.53207, + 1.22202, 1.78219, 1.93772, + .05231, .03387, 45.55807, 2.04562, 1.64472, + 1.33795, 1.89679, 2.05144 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05353, .03446, 48.14392, 2.16054, 1.75819, + 1.45343, 2.01265, 2.16645, + .05472, .03504, 50.70055, 2.27578, 1.87238, + 1.57010, 2.12881, 2.28179, + .05584, .03559, 53.12588, 2.38701, 1.98273, + 1.68281, 2.24088, 2.39310, + .05690, .03610, 55.37930, 2.49271, 2.08745, + 1.78933, 2.34738, 2.49889, + .05797, .03662, 57.67388, 2.60143, 2.19556, + 1.89977, 2.45687, 2.60770, + .05902, .03713, 59.87297, 2.70840, 2.30162, + 2.00742, 2.56459, 2.71475, + .06002, .03762, 61.99949, 2.81259, 2.40537, + 2.11328, 2.66949, 2.81903, + .06096, .03807, 63.95244, 2.91078, 2.50283, + 2.21215, 2.76834, 2.91729 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06192, .03854, 65.94678, 3.01184, 2.60347, + 2.31462, 2.87005, 3.01843, + .06286, .03899, 67.87664, 3.11167, 2.70278, + 2.41547, 2.97052, 3.11833, + .06375, .03943, 69.71193, 3.20789, 2.79860, + 2.51282, 3.06734, 3.21463, + .06461, .03984, 71.45519, 3.30029, 2.89077, + 2.60661, 3.16031, 3.30710, + .06547, .04026, 73.16676, 3.39314, 2.98317, + 2.70025, 3.25371, 3.40001 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03100, .02341, .80823, .35188, .00000, + .00000, .18980, .35625, + .03228, .02403, 1.50773, .37210, .00623, + .00000, .21146, .37658, + .03416, .02494, 2.69614, .40806, .04759, + .00000, .24944, .41270, + .03554, .02560, 3.69850, .43847, .07984, + .00000, .28128, .44324, + .03698, .02629, 4.83830, .47443, .11720, + .00000, .31868, .47931, + .03821, .02689, 5.89210, .50854, .15199, + .00000, .35399, .51353, + .03939, .02746, 6.98372, .54374, .18858, + .00000, .39032, .54884, + .04065, .02807, 8.22249, .58379, .23047, + .00000, .43153, .58900 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04173, .02859, 9.33630, .62087, .26814, + .00000, .46959, .62617, + .04277, .02910, 10.45600, .65852, .30629, + .00000, .50816, .66391, + .04360, .02950, 11.38673, .68970, .33825, + .00000, .54006, .69516, + .04536, .03035, 13.39428, .75986, .40889, + .00830, .61170, .76547, + .04686, .03108, 15.14489, .82390, .47266, + .10456, .67698, .82964, + .04855, .03189, 17.18159, .89968, .54799, + .21234, .75411, .90557, + .05030, .03274, 19.37809, .98271, .63028, + .31066, .83849, .98875, + .05188, .03351, 21.42552, 1.06151, .70825, + .40021, .91848, 1.06768 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05348, .03428, 23.53855, 1.14432, .79024, + .49114, 1.00247, 1.15063, + .05480, .03492, 25.31027, 1.21525, .86028, + .56630, 1.07435, 1.22168, + .05639, .03570, 27.47192, 1.30369, .94750, + .65833, 1.16391, 1.31026, + .05780, .03638, 29.40938, 1.38435, 1.02729, + .74220, 1.24553, 1.39104, + .05910, .03701, 31.20271, 1.46025, 1.10252, + .82084, 1.32230, 1.46705, + .06073, .03780, 33.45379, 1.55818, 1.19928, + .92054, 1.42131, 1.56513, + .06226, .03854, 35.58032, 1.65257, 1.29279, + 1.01695, 1.51668, 1.65965, + .06370, .03924, 37.58868, 1.74320, 1.38291, + 1.11005, 1.60822, 1.75041 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06513, .03993, 39.54761, 1.83438, 1.47320, + 1.20227, 1.70028, 1.84171, + .06653, .04061, 41.47281, 1.92542, 1.56367, + 1.29504, 1.79217, 1.93287, + .06785, .04125, 43.28807, 2.01290, 1.65072, + 1.38428, 1.88045, 2.02047, + .06909, .04185, 44.96352, 2.09568, 1.73297, + 1.46823, 1.96396, 2.10336, + .07034, .04245, 46.66174, 2.18051, 1.81759, + 1.55499, 2.04952, 2.18830, + .07157, .04305, 48.27782, 2.26361, 1.90021, + 1.63915, 2.13332, 2.27151, + .07274, .04361, 49.83459, 2.34431, 1.98081, + 1.72170, 2.21468, 2.35231, + .07384, .04414, 51.25456, 2.42003, 2.05620, + 1.79843, 2.29101, 2.42813 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07495, .04468, 52.69943, 2.49775, 2.13384, + 1.87777, 2.36935, 2.50595, + .07604, .04521, 54.08931, 2.57424, 2.21016, + 1.95555, 2.44643, 2.58254, + .07709, .04571, 55.40521, 2.64775, 2.28357, + 2.03040, 2.52050, 2.65613, + .07808, .04619, 56.65030, 2.71814, 2.35400, + 2.10233, 2.59142, 2.72661, + .07908, .04667, 57.86508, 2.78861, 2.42435, + 2.17387, 2.66241, 2.79717 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03611, .02577, .80486, .33007, .00000, + .00000, .17859, .33502, + .03757, .02647, 1.47505, .34929, .00596, + .00000, .19917, .35438, + .03973, .02751, 2.59786, .38308, .04523, + .00000, .23488, .38837, + .04130, .02826, 3.53369, .41142, .07546, + .00000, .26456, .41685, + .04295, .02905, 4.58731, .44463, .11018, + .00000, .29915, .45023, + .04436, .02973, 5.55310, .47594, .14228, + .00000, .33159, .48167, + .04570, .03038, 6.54656, .50809, .17585, + .00000, .36481, .51394, + .04713, .03107, 7.66631, .54450, .21406, + .00000, .40231, .55048 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04837, .03166, 8.66645, .57803, .24825, + .00000, .43677, .58413, + .04955, .03224, 9.66634, .61194, .28273, + .00000, .47156, .61816, + .05049, .03269, 10.49384, .63994, .31152, + .00000, .50025, .64624, + .05248, .03365, 12.26589, .70263, .37482, + .00758, .56435, .70912, + .05419, .03448, 13.79702, .75954, .43163, + .09390, .62244, .76619, + .05610, .03540, 15.56563, .82653, .49840, + .19014, .69071, .83336, + .05808, .03636, 17.45902, .89952, .57092, + .27726, .76499, .90653, + .05987, .03722, 19.21159, .96843, .63929, + .35615, .83504, .97562 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06167, .03809, 21.00875, 1.04053, .71084, + .43584, .90825, 1.04788, + .06316, .03881, 22.50665, 1.10201, .77170, + .50140, .97065, 1.10951, + .06495, .03968, 24.32353, 1.17836, .84717, + .58132, 1.04806, 1.18602, + .06654, .04045, 25.94290, 1.24770, .91594, + .65385, 1.11832, 1.25551, + .06799, .04115, 27.43443, 1.31272, .98055, + .72162, 1.18418, 1.32067, + .06982, .04204, 29.29551, 1.39627, 1.06330, + .80716, 1.26876, 1.40439, + .07154, .04287, 31.04373, 1.47647, 1.14296, + .88955, 1.34990, 1.48475, + .07315, .04365, 32.68665, 1.55321, 1.21947, + .96884, 1.42752, 1.56164 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07475, .04442, 34.27938, 1.63011, 1.29580, + 1.04704, 1.50526, 1.63869, + .07631, .04518, 35.83756, 1.70663, 1.37204, + 1.12547, 1.58260, 1.71536, + .07779, .04589, 37.29990, 1.77993, 1.44516, + 1.20068, 1.65666, 1.78880, + .07918, .04656, 38.64263, 1.84906, 1.51402, + 1.27118, 1.72648, 1.85805, + .08057, .04724, 39.99887, 1.91972, 1.58468, + 1.34386, 1.79785, 1.92884, + .08194, .04790, 41.28231, 1.98870, 1.65345, + 1.41411, 1.86750, 1.99795, + .08324, .04852, 42.51507, 2.05554, 1.72037, + 1.48288, 1.93497, 2.06490, + .08446, .04911, 43.63335, 2.11805, 1.78277, + 1.54659, 1.99807, 2.12754 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08569, .04971, 44.76816, 2.18209, 1.84691, + 1.61234, 2.06269, 2.19168, + .08691, .05029, 45.85463, 2.24493, 1.90978, + 1.67661, 2.12611, 2.25464, + .08807, .05085, 46.87968, 2.30518, 1.97011, + 1.73832, 2.18690, 2.31499, + .08916, .05138, 47.84660, 2.36275, 2.02788, + 1.79751, 2.24498, 2.37267, + .09027, .05192, 48.78518, 2.42024, 2.08542, + 1.85620, 2.30297, 2.43025 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .04070, .02791, .81012, .31435, .00000, + .00000, .17033, .31960, + .04233, .02869, 1.45724, .33280, .00576, + .00000, .19006, .33821, + .04472, .02984, 2.52946, .36494, .04346, + .00000, .22401, .37057, + .04646, .03068, 3.41454, .39170, .07217, + .00000, .25204, .39750, + .04827, .03156, 4.40274, .42286, .10492, + .00000, .28449, .42883, + .04983, .03232, 5.30215, .45207, .13501, + .00000, .31478, .45819, + .05131, .03304, 6.22190, .48195, .16633, + .00000, .34566, .48821, + .05289, .03380, 7.25273, .51565, .20182, + .00000, .38041, .52206 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05425, .03446, 8.16843, .54657, .23343, + .00000, .41220, .55311, + .05555, .03509, 9.07968, .57774, .26520, + .00000, .44419, .58440, + .05659, .03559, 9.83104, .60340, .29165, + .00000, .47050, .61016, + .05878, .03665, 11.43037, .66065, .34958, + .00704, .52908, .66762, + .06065, .03756, 12.80159, .71236, .40131, + .08606, .58191, .71951, + .06275, .03858, 14.37601, .77298, .46185, + .17386, .64374, .78033, + .06492, .03963, 16.05118, .83873, .52729, + .25283, .71071, .84629, + .06687, .04058, 17.59269, .90055, .58873, + .32399, .77361, .90829 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06884, .04154, 19.16495, .96497, .65278, + .39556, .83908, .97290, + .07047, .04233, 20.46893, 1.01971, .70706, + .45421, .89468, 1.02780, + .07243, .04328, 22.04251, 1.08745, .77414, + .52544, .96343, 1.09572, + .07416, .04412, 23.43849, 1.14878, .83506, + .58987, 1.02563, 1.15721, + .07574, .04489, 24.71906, 1.20610, .89213, + .64990, 1.08375, 1.21469, + .07773, .04586, 26.30879, 1.27952, .96497, + .72538, 1.15814, 1.28829, + .07960, .04676, 27.79498, 1.34975, 1.03486, + .79785, 1.22926, 1.35870, + .08135, .04761, 29.18575, 1.41675, 1.10179, + .86740, 1.29709, 1.42587 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08308, .04845, 30.52699, 1.48367, 1.16833, + .93575, 1.36481, 1.49295, + .08478, .04927, 31.83397, 1.55008, 1.23463, + 1.00412, 1.43200, 1.55952, + .08638, .05005, 33.05558, 1.61352, 1.29804, + 1.06951, 1.49616, 1.62311, + .08788, .05078, 34.17229, 1.67318, 1.35759, + 1.13063, 1.55649, 1.68292, + .08939, .05151, 35.29696, 1.73404, 1.41857, + 1.19352, 1.61801, 1.74392, + .09086, .05222, 36.35587, 1.79328, 1.47774, + 1.25413, 1.67789, 1.80329, + .09226, .05290, 37.37049, 1.85056, 1.53523, + 1.31335, 1.73578, 1.86071, + .09358, .05353, 38.28664, 1.90400, 1.58869, + 1.36807, 1.78978, 1.91428 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09491, .05418, 39.21431, 1.95864, 1.64354, + 1.42445, 1.84498, 1.96904, + .09622, .05481, 40.09851, 2.01214, 1.69717, + 1.47943, 1.89902, 2.02266, + .09747, .05541, 40.93009, 2.06333, 1.74856, + 1.53212, 1.95073, 2.07397, + .09865, .05598, 41.71250, 2.11217, 1.79767, + 1.58258, 2.00005, 2.12292, + .09984, .05656, 42.46859, 2.16081, 1.84647, + 1.63249, 2.04917, 2.17167 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05888, .03625, .85433, .27025, .00000, + .00000, .14752, .27723, + .06111, .03735, 1.43344, .28643, .00519, + .00000, .16479, .29364, + .06438, .03896, 2.35562, .31377, .03846, + .00000, .19368, .32130, + .06675, .04012, 3.09227, .33600, .06287, + .00000, .21701, .34378, + .06921, .04134, 3.89246, .36133, .09005, + .00000, .24345, .36936, + .07131, .04237, 4.60362, .38466, .11451, + .00000, .26770, .39290, + .07332, .04336, 5.31667, .40821, .13957, + .00000, .29211, .41665, + .07544, .04440, 6.10086, .43443, .16753, + .00000, .31923, .44309 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07726, .04530, 6.78478, .45815, .19207, + .00000, .34371, .46699, + .07900, .04616, 7.45492, .48180, .21644, + .00000, .36808, .49082, + .08038, .04684, 8.00072, .50112, .23653, + .00000, .38796, .51029, + .08330, .04828, 9.13882, .54364, .27994, + .00556, .43163, .55310, + .08579, .04951, 10.08880, .58145, .31808, + .06501, .47041, .59116, + .08855, .05087, 11.15766, .62514, .36206, + .13028, .51515, .63513, + .09141, .05227, 12.27158, .67182, .40888, + .18774, .56289, .68209, + .09397, .05353, 13.27634, .71509, .45221, + .23870, .60709, .72561 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09654, .05480, 14.28251, .75959, .49679, + .28921, .65252, .77038, + .09866, .05584, 15.10268, .79697, .53413, + .33006, .69064, .80796, + .10120, .05709, 16.07559, .84267, .57974, + .37908, .73722, .85391, + .10343, .05818, 16.92475, .88358, .62070, + .42293, .77890, .89504, + .10547, .05918, 17.69253, .92145, .65870, + .46337, .81746, .93311, + .10803, .06044, 18.62860, .96938, .70664, + .51362, .86625, .98130, + .11042, .06161, 19.48914, 1.01473, .75214, + .56134, .91238, 1.02687, + .11265, .06269, 20.28266, 1.05755, .79528, + .60671, .95594, 1.06992 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11485, .06377, 21.03331, 1.09984, .83769, + .65076, .99893, 1.11242, + .11700, .06482, 21.75478, 1.14142, .87957, + .69446, 1.04120, 1.15421, + .11902, .06580, 22.41942, 1.18079, .91927, + .73588, 1.08121, 1.19377, + .12091, .06672, 23.01684, 1.21744, .95620, + .77423, 1.11845, 1.23061, + .12280, .06764, 23.61230, 1.25458, .99376, + .81343, 1.15618, 1.26793, + .12464, .06854, 24.16234, 1.29036, 1.02983, + .85083, 1.19252, 1.30388, + .12639, .06939, 24.68501, 1.32475, 1.06469, + .88718, 1.22745, 1.33844, + .12803, .07018, 25.14795, 1.35652, 1.09678, + .92043, 1.25972, 1.37037 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12969, .07099, 25.61294, 1.38883, 1.12955, + .95453, 1.29253, 1.40283, + .13130, .07177, 26.04880, 1.42019, 1.16132, + .98751, 1.32438, 1.43435, + .13284, .07251, 26.45392, 1.45001, 1.19156, + 1.01892, 1.35466, 1.46432, + .13430, .07322, 26.83133, 1.47829, 1.22031, + 1.04883, 1.38338, 1.49273, + .13576, .07392, 27.18903, 1.50622, 1.24864, + 1.07817, 1.41173, 1.52080 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .08500, .04872, .97827, .23408, .00000, + .00000, .12881, .24349, + .08803, .05025, 1.48832, .24818, .00474, + .00000, .14385, .25792, + .09243, .05249, 2.26106, .27113, .03422, + .00000, .16813, .28135, + .09561, .05409, 2.85548, .28929, .05486, + .00000, .18724, .29986, + .09890, .05576, 3.48234, .30948, .07717, + .00000, .20839, .32040, + .10170, .05717, 4.02447, .32769, .09675, + .00000, .22739, .33891, + .10436, .05851, 4.55571, .34579, .11643, + .00000, .24624, .35729, + .10715, .05992, 5.12735, .36564, .13799, + .00000, .26687, .37744 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10955, .06113, 5.61549, .38331, .15658, + .00000, .28520, .39537, + .11184, .06228, 6.08527, .40071, .17478, + .00000, .30322, .41301, + .11364, .06319, 6.46246, .41479, .18962, + .00000, .31779, .42727, + .11744, .06510, 7.22964, .44529, .22117, + .00430, .34930, .45817, + .12067, .06671, 7.84892, .47191, .24836, + .04792, .37677, .48513, + .12423, .06850, 8.52906, .50216, .27918, + .09515, .40794, .51575, + .12789, .07032, 9.22060, .53391, .31140, + .13569, .44064, .54788, + .13116, .07196, 9.82952, .56286, .34073, + .17099, .47041, .57716 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13443, .07358, 10.42578, .59218, .37047, + .20540, .50056, .60682, + .13710, .07490, 10.90136, .61646, .39502, + .23281, .52551, .63137, + .14030, .07649, 11.45348, .64574, .42461, + .26525, .55557, .66096, + .14310, .07787, 11.92562, .67160, .45084, + .29389, .58213, .68711, + .14564, .07913, 12.34475, .69527, .47490, + .32000, .60642, .71103, + .14882, .08069, 12.84331, .72479, .50485, + .35200, .63671, .74086, + .15177, .08214, 13.29172, .75236, .53290, + .38202, .66499, .76872, + .15452, .08348, 13.69738, .77810, .55921, + .41025, .69140, .79473 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15721, .08480, 14.07051, .80315, .58472, + .43728, .71709, .82004, + .15982, .08608, 14.42247, .82751, .60965, + .46384, .74208, .84465, + .16227, .08727, 14.74013, .85032, .63304, + .48875, .76548, .86770, + .16455, .08838, 15.01855, .87131, .65454, + .51156, .78700, .88891, + .16684, .08948, 15.29223, .89239, .67624, + .53471, .80863, .91021, + .16904, .09055, 15.53716, .91245, .69683, + .55652, .82920, .93047, + .17113, .09156, 15.76738, .93159, .71659, + .57760, .84885, .94981, + .17308, .09250, 15.96453, .94906, .73458, + .59666, .86677, .96745 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .17504, .09344, 16.16038, .96670, .75282, + .61609, .88487, .98528, + .17695, .09436, 16.33860, .98364, .77034, + .63469, .90226, 1.00239, + .17876, .09522, 16.50102, .99961, .78689, + .65229, .91866, 1.01853, + .18047, .09604, 16.64990, 1.01465, .80251, + .66894, .93411, 1.03373, + .18217, .09686, 16.78572, 1.02934, .81774, + .68511, .94919, 1.04857 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .10533, .05891, 1.10223, .21636, .00000, + .00000, .11981, .22790, + .10892, .06076, 1.56312, .22924, .00449, + .00000, .13357, .24119, + .11412, .06344, 2.24426, .24971, .03187, + .00000, .15528, .26223, + .11787, .06536, 2.75570, .26561, .05045, + .00000, .17207, .27856, + .12173, .06734, 3.28477, .28301, .07013, + .00000, .19037, .29639, + .12500, .06902, 3.73447, .29849, .08711, + .00000, .20659, .31222, + .12810, .07060, 4.16847, .31371, .10395, + .00000, .22252, .32777, + .13136, .07225, 4.62881, .33023, .12218, + .00000, .23979, .34465 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13414, .07367, 5.01655, .34479, .13771, + .00000, .25496, .35950, + .13679, .07501, 5.38520, .35899, .15277, + .00000, .26976, .37399, + .13888, .07606, 5.67833, .37041, .16496, + .00000, .28164, .38563, + .14325, .07827, 6.26422, .39490, .19059, + .00365, .30709, .41058, + .14695, .08014, 6.72568, .41600, .21239, + .03944, .32900, .43207, + .15103, .08218, 7.22413, .43972, .23683, + .07785, .35361, .45621, + .15519, .08426, 7.72233, .46431, .26207, + .11028, .37910, .48123, + .15890, .08612, 8.15352, .48647, .28480, + .13818, .40206, .50377 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .16259, .08795, 8.56906, .50870, .30761, + .16508, .42508, .52637, + .16561, .08944, 8.89536, .52692, .32626, + .18629, .44395, .54489, + .16919, .09121, 9.26798, .54869, .34854, + .21116, .46648, .56701, + .17232, .09275, 9.58166, .56774, .36813, + .23294, .48620, .58637, + .17516, .09415, 9.85616, .58504, .38596, + .25265, .50410, .60395, + .17869, .09587, 10.17645, .60640, .40794, + .27658, .52621, .62565, + .18196, .09746, 10.45935, .62616, .42837, + .29884, .54667, .64573, + .18498, .09893, 10.71122, .64446, .44737, + .31963, .56562, .66432 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18794, .10036, 10.93740, .66209, .46562, + .33936, .58387, .68222, + .19080, .10175, 11.14726, .67910, .48334, + .35861, .60150, .69950, + .19348, .10303, 11.33310, .69491, .49984, + .37655, .61788, .71556, + .19596, .10422, 11.49211, .70933, .51489, + .39285, .63283, .73020, + .19843, .10540, 11.64655, .72372, .53000, + .40931, .64776, .74482, + .20081, .10654, 11.78022, .73728, .54421, + .42470, .66183, .75860, + .20307, .10761, 11.90469, .75017, .55779, + .43950, .67520, .77168, + .20516, .10860, 12.00716, .76180, .57004, + .45279, .68729, .78350 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20726, .10959, 12.10788, .77350, .58242, + .46628, .69944, .79539, + .20930, .11055, 12.19632, .78464, .59422, + .47911, .71103, .80670, + .21123, .11146, 12.27507, .79508, .60530, + .49119, .72189, .81732, + .21305, .11231, 12.34584, .80486, .61572, + .50257, .73207, .82726, + .21485, .11316, 12.40695, .81432, .62579, + .51353, .74193, .83686 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .12267, .06800, 1.21449, .20537, .00000, + .00000, .11430, .21886, + .12670, .07009, 1.63724, .21734, .00430, + .00000, .12712, .23129, + .13253, .07312, 2.24916, .23602, .03016, + .00000, .14700, .25063, + .13672, .07528, 2.70033, .25034, .04729, + .00000, .16218, .26542, + .14102, .07749, 3.16042, .26581, .06515, + .00000, .17852, .28137, + .14466, .07935, 3.54632, .27941, .08035, + .00000, .19286, .29537, + .14809, .08111, 3.91441, .29269, .09529, + .00000, .20682, .30902, + .15169, .08295, 4.30052, .30699, .11129, + .00000, .22184, .32370 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15476, .08451, 4.62230, .31947, .12480, + .00000, .23494, .33652, + .15768, .08598, 4.92535, .33158, .13780, + .00000, .24762, .34893, + .15998, .08714, 5.16451, .34126, .14827, + .00000, .25776, .35886, + .16477, .08956, 5.63561, .36185, .17008, + .00322, .27930, .37995, + .16881, .09159, 5.99890, .37942, .18846, + .03399, .29766, .39794, + .17326, .09381, 6.38600, .39899, .20887, + .06679, .31811, .41797, + .17778, .09606, 6.76756, .41909, .22976, + .09414, .33910, .43852, + .18180, .09805, 7.09309, .43704, .24841, + .11745, .35785, .45688 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18577, .10001, 7.40254, .45490, .26698, + .13974, .37649, .47513, + .18901, .10160, 7.64219, .46942, .28205, + .15718, .39166, .48997, + .19286, .10348, 7.91191, .48663, .29993, + .17749, .40963, .50755, + .19620, .10511, 8.13582, .50159, .31554, + .19516, .42526, .52283, + .19923, .10658, 8.32924, .51508, .32967, + .21106, .43935, .53661, + .20298, .10839, 8.55067, .53161, .34696, + .23022, .45663, .55349, + .20644, .11005, 8.74293, .54678, .36291, + .24794, .47250, .56898, + .20964, .11158, 8.91150, .56074, .37767, + .26440, .48710, .58323 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .21275, .11307, 9.05896, .57406, .39174, + .27990, .50106, .59683, + .21575, .11449, 9.19349, .58684, .40532, + .29495, .51445, .60988, + .21855, .11581, 9.31022, .59864, .41789, + .30891, .52683, .62193, + .22113, .11703, 9.40723, .60931, .42929, + .32151, .53803, .63282, + .22371, .11824, 9.50019, .61992, .44068, + .33419, .54917, .64365, + .22618, .11939, 9.57723, .62982, .45131, + .34596, .55959, .65376, + .22851, .12047, 9.64822, .63919, .46144, + .35726, .56946, .66334, + .23067, .12147, 9.70347, .64758, .47052, + .36733, .57830, .67190 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .23283, .12247, 9.75706, .65598, .47965, + .37753, .58716, .68048, + .23492, .12343, 9.80146, .66391, .48831, + .38717, .59554, .68859, + .23690, .12433, 9.83948, .67131, .49640, + .39622, .60337, .69615, + .23875, .12518, 9.87251, .67821, .50398, + .40471, .61067, .70320, + .24059, .12602, 9.89797, .68482, .51125, + .41284, .61768, .70995 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .13812, .07635, 1.31339, .19762, .00000, + .00000, .11049, .21298, + .14252, .07864, 1.70355, .20883, .00413, + .00000, .12254, .22470, + .14887, .08194, 2.25872, .22609, .02873, + .00000, .14098, .24267, + .15342, .08428, 2.66206, .23916, .04471, + .00000, .15490, .25625, + .15808, .08668, 3.06864, .25313, .06116, + .00000, .16974, .27073, + .16200, .08869, 3.40590, .26531, .07501, + .00000, .18265, .28334, + .16571, .09058, 3.72450, .27710, .08850, + .00000, .19513, .29554, + .16958, .09255, 4.05565, .28973, .10285, + .00000, .20848, .30858 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17288, .09421, 4.32914, .30068, .11487, + .00000, .22005, .31988, + .17601, .09579, 4.58469, .31124, .12637, + .00000, .23118, .33076, + .17847, .09703, 4.78511, .31965, .13558, + .00000, .24005, .33943, + .18358, .09959, 5.17473, .33741, .15464, + .00290, .25875, .35771, + .18789, .10173, 5.46935, .35243, .17057, + .03005, .27458, .37318, + .19260, .10407, 5.77957, .36904, .18813, + .05883, .29207, .39026, + .19739, .10642, 6.08159, .38597, .20597, + .08260, .30989, .40766, + .20163, .10850, 6.33590, .40096, .22177, + .10270, .32569, .42307 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20581, .11054, 6.57460, .41578, .23740, + .12179, .34130, .43828, + .20921, .11219, 6.75699, .42774, .25002, + .13664, .35391, .45057, + .21323, .11413, 6.95953, .44183, .26490, + .15382, .36877, .46503, + .21672, .11581, 7.12540, .45399, .27781, + .16869, .38161, .47751, + .21987, .11731, 7.26680, .46490, .28944, + .18202, .39313, .48871, + .22375, .11915, 7.42550, .47817, .30359, + .19798, .40716, .50232, + .22733, .12084, 7.56082, .49027, .31657, + .21266, .41996, .51473, + .23063, .12239, 7.67755, .50132, .32852, + .22624, .43167, .52608 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .23383, .12389, 7.77628, .51179, .33983, + .23894, .44278, .53682, + .23691, .12532, 7.86472, .52179, .35070, + .25124, .45340, .54708, + .23977, .12664, 7.93972, .53095, .36071, + .26258, .46315, .55648, + .24240, .12785, 7.99953, .53918, .36974, + .27278, .47192, .56492, + .24502, .12905, 8.05581, .54732, .37873, + .28301, .48060, .57328, + .24752, .13018, 8.09950, .55486, .38706, + .29245, .48866, .58101, + .24989, .13126, 8.13920, .56197, .39499, + .30149, .49627, .58831, + .25206, .13223, 8.16709, .56827, .40203, + .30950, .50304, .59478 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .25424, .13321, 8.19350, .57457, .40911, + .31759, .50980, .60124, + .25634, .13415, 8.21287, .58046, .41577, + .32521, .51616, .60730, + .25832, .13503, 8.22795, .58593, .42198, + .33233, .52206, .61291, + .26018, .13585, 8.23982, .59101, .42778, + .33900, .52754, .61812, + .26201, .13665, 8.24543, .59581, .43330, + .34535, .53275, .62306 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .16539, .09158, 1.47476, .18702, .00000, + .00000, .10543, .20592, + .17039, .09417, 1.80967, .19696, .00384, + .00000, .11621, .21642, + .17755, .09786, 2.27321, .21192, .02630, + .00000, .13238, .23218, + .18266, .10046, 2.60229, .22305, .04047, + .00000, .14437, .24386, + .18787, .10311, 2.92778, .23473, .05476, + .00000, .15694, .25610, + .19224, .10531, 3.19313, .24478, .06659, + .00000, .16773, .26661, + .19635, .10738, 3.43985, .25440, .07797, + .00000, .17806, .27666, + .20063, .10952, 3.69241, .26459, .08992, + .00000, .18899, .28728 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20425, .11132, 3.89794, .27333, .09980, + .00000, .19835, .29638, + .20768, .11302, 4.08738, .28167, .10917, + .00000, .20729, .30507, + .21037, .11434, 4.23438, .28826, .11662, + .00000, .21436, .31193, + .21594, .11707, 4.51337, .30204, .13186, + .00245, .22912, .32625, + .22060, .11934, 4.71651, .31353, .14442, + .02454, .24143, .33818, + .22568, .12179, 4.92585, .32608, .15811, + .04779, .25489, .35121, + .23081, .12425, 5.12508, .33868, .17185, + .06669, .26843, .36428, + .23533, .12639, 5.28869, .34971, .18387, + .08248, .28028, .37571 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23976, .12849, 5.43854, .36046, .19565, + .09732, .29186, .38686, + .24334, .13016, 5.55003, .36904, .20506, + .10874, .30111, .39575, + .24756, .13212, 5.67008, .37902, .21604, + .12185, .31189, .40609, + .25120, .13381, 5.76544, .38755, .22549, + .13310, .32112, .41492, + .25447, .13531, 5.84434, .39513, .23393, + .14310, .32933, .42276, + .25848, .13713, 5.92874, .40420, .24408, + .15497, .33920, .43215, + .26216, .13879, 5.99735, .41238, .25332, + .16580, .34810, .44061, + .26553, .14030, 6.05391, .41977, .26174, + .17574, .35618, .44827 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26877, .14174, 6.09755, .42666, .26963, + .18495, .36373, .45540, + .27188, .14311, 6.13411, .43316, .27715, + .19381, .37088, .46212, + .27476, .14437, 6.16225, .43906, .28403, + .20192, .37738, .46822, + .27738, .14551, 6.18100, .44427, .29015, + .20915, .38316, .47362, + .27999, .14663, 6.19715, .44940, .29622, + .21637, .38884, .47892, + .28246, .14769, 6.20500, .45404, .30179, + .22296, .39404, .48373, + .28480, .14868, 6.21128, .45840, .30705, + .22926, .39891, .48825, + .28692, .14957, 6.21057, .46219, .31167, + .23478, .40318, .49217 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28904, .15046, 6.20878, .46595, .31630, + .24034, .40742, .49606, + .29108, .15130, 6.20236, .46940, .32060, + .24554, .41134, .49963, + .29298, .15209, 6.19397, .47257, .32458, + .25036, .41495, .50291, + .29477, .15282, 6.18450, .47547, .32828, + .25486, .41828, .50592, + .29652, .15353, 6.17076, .47817, .33176, + .25911, .42139, .50871 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .20079, .11200, 1.64019, .17677, .00000, + .00000, .10072, .20058, + .20642, .11485, 1.90809, .18513, .00346, + .00000, .10997, .20954, + .21444, .11886, 2.26690, .19741, .02323, + .00000, .12354, .22265, + .22012, .12168, 2.51504, .20635, .03534, + .00000, .13340, .23216, + .22589, .12451, 2.75524, .21556, .04728, + .00000, .14355, .24193, + .23069, .12685, 2.94697, .22334, .05699, + .00000, .15213, .25017, + .23518, .12902, 3.12189, .23070, .06620, + .00000, .16025, .25796, + .23985, .13126, 3.29768, .23839, .07574, + .00000, .16873, .26608 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24378, .13313, 3.43808, .24489, .08351, + .00000, .17590, .27294, + .24747, .13488, 3.56530, .25104, .09081, + .00000, .18268, .27941, + .25035, .13624, 3.66274, .25586, .09657, + .00000, .18800, .28449, + .25630, .13902, 3.84113, .26578, .10820, + .00199, .19897, .29492, + .26124, .14130, 3.96332, .27391, .11764, + .01926, .20798, .30345, + .26658, .14374, 4.08514, .28264, .12779, + .03727, .21769, .31262, + .27192, .14616, 4.19714, .29126, .13783, + .05168, .22730, .32165, + .27659, .14825, 4.28545, .29867, .14650, + .06356, .23559, .32941 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .28115, .15026, 4.36289, .30578, .15489, + .07460, .24358, .33686, + .28480, .15185, 4.41742, .31137, .16151, + .08301, .24988, .34270, + .28907, .15370, 4.47257, .31775, .16916, + .09256, .25711, .34938, + .29272, .15526, 4.51355, .32312, .17566, + .10067, .26322, .35499, + .29598, .15664, 4.54509, .32782, .18141, + .10782, .26859, .35990, + .29994, .15830, 4.57389, .33333, .18825, + .11622, .27494, .36565, + .30354, .15979, 4.59372, .33821, .19439, + .12382, .28059, .37074, + .30682, .16113, 4.60719, .34255, .19995, + .13072, .28565, .37527 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30995, .16238, 4.61179, .34649, .20506, + .13705, .29028, .37936, + .31292, .16356, 4.61240, .35013, .20990, + .14309, .29461, .38316, + .31565, .16463, 4.60892, .35337, .21427, + .14858, .29849, .38654, + .31812, .16558, 4.60061, .35616, .21811, + .15342, .30187, .38944, + .32055, .16651, 4.59068, .35886, .22190, + .15822, .30516, .39225, + .32283, .16737, 4.57579, .36123, .22530, + .16256, .30809, .39470, + .32497, .16817, 4.56108, .36342, .22851, + .16668, .31082, .39698, + .32690, .16887, 4.54302, .36524, .23128, + .17026, .31314, .39887 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32882, .16957, 4.52433, .36703, .23403, + .17384, .31543, .40072, + .33064, .17021, 4.50308, .36860, .23655, + .17715, .31749, .40235, + .33234, .17081, 4.48156, .37000, .23886, + .18021, .31935, .40380, + .33392, .17136, 4.46035, .37126, .24098, + .18304, .32105, .40510, + .33544, .17187, 4.43638, .37235, .24294, + .18568, .32258, .40623 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25160, .14178, 1.76492, .16524, .00000, + .00000, .09566, .19638, + .25788, .14473, 1.94915, .17146, .00290, + .00000, .10290, .20315, + .26674, .14886, 2.18475, .18034, .01903, + .00000, .11322, .21277, + .27294, .15170, 2.34248, .18663, .02862, + .00000, .12055, .21957, + .27917, .15452, 2.49081, .19296, .03785, + .00000, .12793, .22638, + .28431, .15681, 2.60583, .19820, .04521, + .00000, .13405, .23200, + .28909, .15893, 2.70809, .20307, .05208, + .00000, .13976, .23722, + .29400, .16108, 2.80822, .20807, .05910, + .00000, .14565, .24256 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29810, .16285, 2.88587, .21223, .06473, + .00000, .15054, .24699, + .30193, .16448, 2.95436, .21608, .06995, + .00000, .15511, .25110, + .30491, .16574, 3.00576, .21908, .07403, + .00000, .15865, .25429, + .31098, .16828, 3.09335, .22512, .08215, + .00152, .16585, .26069, + .31595, .17031, 3.14509, .22995, .08863, + .01395, .17165, .26579, + .32127, .17246, 3.19281, .23500, .09548, + .02684, .17777, .27112, + .32652, .17453, 3.23302, .23985, .10214, + .03696, .18370, .27622, + .33104, .17628, 3.26093, .24389, .10781, + .04518, .18871, .28047 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33539, .17793, 3.28167, .24767, .11320, + .05273, .19343, .28443, + .33884, .17921, 3.29294, .25055, .11740, + .05840, .19708, .28743, + .34280, .18065, 3.29987, .25373, .12217, + .06476, .20118, .29075, + .34616, .18184, 3.30132, .25633, .12617, + .07011, .20457, .29344, + .34913, .18287, 3.29908, .25853, .12967, + .07477, .20750, .29573, + .35266, .18405, 3.28985, .26100, .13376, + .08018, .21086, .29827, + .35582, .18509, 3.27706, .26309, .13737, + .08501, .21377, .30040, + .35866, .18600, 3.26232, .26488, .14059, + .08936, .21632, .30223 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36130, .18681, 3.24274, .26637, .14350, + .09328, .21856, .30374, + .36378, .18754, 3.22159, .26770, .14620, + .09699, .22060, .30507, + .36603, .18819, 3.19948, .26880, .14861, + .10033, .22237, .30616, + .36801, .18873, 3.17598, .26965, .15068, + .10323, .22384, .30700, + .36996, .18924, 3.15182, .27044, .15270, + .10609, .22524, .30777, + .37172, .18969, 3.12540, .27103, .15447, + .10863, .22641, .30831, + .37337, .19009, 3.10033, .27155, .15612, + .11104, .22749, .30879, + .37481, .19041, 3.07441, .27186, .15751, + .11308, .22832, .30906 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37623, .19072, 3.04831, .27215, .15887, + .11512, .22913, .30930, + .37754, .19098, 3.02120, .27232, .16008, + .11698, .22979, .30941, + .37874, .19121, 2.99490, .27241, .16117, + .11868, .23036, .30943, + .37984, .19141, 2.96974, .27245, .16215, + .12024, .23085, .30941, + .38086, .19156, 2.94304, .27237, .16303, + .12167, .23122, .30927 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29652, .16766, 1.76359, .15602, .00000, + .00000, .09174, .19344, + .30308, .17048, 1.88891, .16054, .00243, + .00000, .09737, .19840, + .31223, .17434, 2.04221, .16684, .01570, + .00000, .10526, .20525, + .31859, .17697, 2.14236, .17122, .02347, + .00000, .11077, .20999, + .32490, .17952, 2.23414, .17554, .03083, + .00000, .11624, .21465, + .33005, .18158, 2.30340, .17906, .03663, + .00000, .12072, .21841, + .33481, .18344, 2.36351, .18228, .04199, + .00000, .12485, .22184, + .33966, .18530, 2.42089, .18554, .04742, + .00000, .12905, .22530 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34368, .18680, 2.46394, .18819, .05173, + .00000, .13251, .22812, + .34740, .18818, 2.50071, .19062, .05570, + .00000, .13571, .23068, + .35026, .18924, 2.52768, .19249, .05878, + .00000, .13817, .23264, + .35605, .19130, 2.56855, .19619, .06485, + .00121, .14310, .23649, + .36074, .19291, 2.58574, .19904, .06963, + .01071, .14699, .23945, + .36566, .19455, 2.59818, .20195, .07463, + .02052, .15103, .24245, + .37045, .19609, 2.60525, .20465, .07943, + .02813, .15487, .24519, + .37452, .19735, 2.60618, .20680, .08347, + .03426, .15804, .24737 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37837, .19849, 2.60237, .20874, .08727, + .03982, .16097, .24930, + .38136, .19934, 2.59546, .21015, .09019, + .04397, .16318, .25068, + .38476, .20024, 2.58283, .21162, .09347, + .04858, .16560, .25210, + .38758, .20095, 2.56881, .21275, .09620, + .05242, .16756, .25317, + .39003, .20153, 2.55384, .21366, .09856, + .05575, .16921, .25402, + .39288, .20216, 2.53084, .21456, .10127, + .05957, .17103, .25481, + .39537, .20266, 2.50688, .21525, .10363, + .06295, .17255, .25536, + .39757, .20306, 2.48299, .21577, .10571, + .06598, .17384, .25576 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39955, .20335, 2.45605, .21606, .10756, + .06867, .17489, .25591, + .40137, .20359, 2.42876, .21625, .10925, + .07120, .17580, .25596, + .40298, .20376, 2.40191, .21633, .11073, + .07345, .17656, .25590, + .40434, .20385, 2.37514, .21627, .11198, + .07539, .17712, .25569, + .40564, .20393, 2.34819, .21617, .11319, + .07729, .17763, .25544, + .40678, .20392, 2.32004, .21593, .11421, + .07895, .17798, .25503, + .40782, .20390, 2.29357, .21568, .11516, + .08052, .17829, .25463, + .40868, .20382, 2.26731, .21531, .11593, + .08183, .17845, .25411 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40951, .20373, 2.24110, .21493, .11667, + .08313, .17857, .25356, + .41022, .20359, 2.21453, .21447, .11731, + .08430, .17861, .25294, + .41085, .20344, 2.18908, .21399, .11787, + .08536, .17861, .25231, + .41141, .20328, 2.16498, .21351, .11837, + .08632, .17857, .25168, + .41187, .20307, 2.13995, .21295, .11878, + .08719, .17844, .25094 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .37568, .21057, 1.56740, .13935, .00000, + .00000, .08450, .18629, + .38206, .21265, 1.62461, .14142, .00176, + .00000, .08783, .18845, + .39071, .21538, 1.68832, .14424, .01107, + .00000, .09240, .19126, + .39658, .21714, 1.72845, .14612, .01645, + .00000, .09552, .19312, + .40228, .21876, 1.76341, .14790, .02147, + .00000, .09856, .19482, + .40684, .21997, 1.78820, .14928, .02538, + .00000, .10100, .19612, + .41096, .22102, 1.80849, .15050, .02896, + .00000, .10320, .19723, + .41507, .22202, 1.82652, .15169, .03255, + .00000, .10540, .19829 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .41838, .22276, 1.83849, .15262, .03536, + .00000, .10718, .19907, + .42138, .22339, 1.84748, .15342, .03792, + .00000, .10879, .19972, + .42367, .22385, 1.85344, .15402, .03990, + .00000, .11002, .20019, + .42815, .22463, 1.85590, .15509, .04374, + .00084, .11239, .20100, + .43161, .22513, 1.84686, .15581, .04672, + .00700, .11419, .20144, + .43511, .22553, 1.83355, .15645, .04979, + .01334, .11598, .20174, + .43834, .22576, 1.81726, .15690, .05269, + .01818, .11760, .20182, + .44094, .22584, 1.80000, .15713, .05508, + .02202, .11885, .20169 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .44326, .22578, 1.78045, .15722, .05729, + .02547, .11995, .20141, + .44497, .22564, 1.76248, .15717, .05896, + .02800, .12071, .20105, + .44675, .22534, 1.73872, .15697, .06080, + .03078, .12145, .20046, + .44811, .22501, 1.71651, .15670, .06229, + .03307, .12199, .19983, + .44921, .22464, 1.69531, .15638, .06356, + .03504, .12240, .19917, + .45031, .22406, 1.66660, .15583, .06498, + .03725, .12275, .19817, + .45114, .22343, 1.63874, .15523, .06619, + .03918, .12295, .19714, + .45178, .22279, 1.61223, .15459, .06723, + .04088, .12306, .19611 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .45216, .22205, 1.58441, .15385, .06811, + .04237, .12303, .19495, + .45241, .22129, 1.55707, .15307, .06890, + .04375, .12294, .19377, + .45253, .22052, 1.53097, .15228, .06956, + .04496, .12278, .19259, + .45248, .21973, 1.50582, .15146, .07010, + .04598, .12255, .19141, + .45238, .21893, 1.48084, .15062, .07060, + .04697, .12228, .19020, + .45210, .21807, 1.45567, .14972, .07098, + .04781, .12193, .18893, + .45181, .21726, 1.43220, .14886, .07133, + .04859, .12159, .18772, + .45139, .21643, 1.40951, .14799, .07158, + .04923, .12119, .18651 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45095, .21559, 1.38702, .14710, .07181, + .04985, .12077, .18530, + .45041, .21473, 1.36465, .14618, .07199, + .05040, .12031, .18406, + .44984, .21388, 1.34347, .14529, .07212, + .05088, .11984, .18285, + .44926, .21307, 1.32358, .14443, .07223, + .05131, .11938, .18170, + .44857, .21221, 1.30327, .14353, .07228, + .05168, .11887, .18049 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .44473, .24386, 1.28592, .12337, .00000, + .00000, .07717, .17615, + .45013, .24487, 1.31605, .12399, .00134, + .00000, .07906, .17642, + .45725, .24598, 1.34699, .12475, .00830, + .00000, .08163, .17661, + .46193, .24655, 1.36616, .12520, .01230, + .00000, .08336, .17664, + .46626, .24695, 1.38210, .12558, .01602, + .00000, .08501, .17652, + .46962, .24712, 1.39253, .12582, .01889, + .00000, .08630, .17633, + .47255, .24716, 1.40032, .12599, .02151, + .00000, .08745, .17607, + .47537, .24709, 1.40633, .12611, .02411, + .00000, .08857, .17572 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .47754, .24691, 1.40915, .12615, .02613, + .00000, .08945, .17535, + .47941, .24667, 1.41011, .12613, .02796, + .00000, .09022, .17493, + .48079, .24645, 1.41009, .12610, .02937, + .00000, .09080, .17457, + .48329, .24579, 1.40273, .12592, .03207, + .00064, .09186, .17367, + .48503, .24506, 1.38832, .12561, .03415, + .00501, .09260, .17277, + .48658, .24410, 1.37016, .12518, .03625, + .00951, .09328, .17164, + .48775, .24296, 1.34982, .12460, .03820, + .01290, .09381, .17032, + .48847, .24179, 1.32981, .12397, .03979, + .01556, .09414, .16902 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .48890, .24052, 1.30830, .12325, .04124, + .01792, .09436, .16763, + .48901, .23938, 1.28936, .12258, .04231, + .01964, .09443, .16641, + .48885, .23793, 1.26519, .12169, .04346, + .02150, .09442, .16483, + .48851, .23658, 1.24316, .12085, .04438, + .02302, .09433, .16338, + .48805, .23529, 1.22254, .12004, .04515, + .02430, .09418, .16203, + .48718, .23355, 1.19528, .11893, .04598, + .02573, .09388, .16022, + .48618, .23187, 1.16932, .11784, .04667, + .02696, .09352, .15849, + .48510, .23026, 1.14498, .11678, .04724, + .02803, .09313, .15684 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .48377, .22859, 1.11989, .11567, .04769, + .02895, .09266, .15512, + .48237, .22692, 1.09550, .11455, .04808, + .02978, .09215, .15342, + .48093, .22532, 1.07248, .11347, .04839, + .03050, .09163, .15180, + .47943, .22376, 1.05056, .11242, .04862, + .03110, .09109, .15023, + .47788, .22220, 1.02895, .11136, .04882, + .03167, .09053, .14866, + .47618, .22062, 1.00742, .11027, .04894, + .03214, .08992, .14707, + .47457, .21912, .98745, .10925, .04905, + .03257, .08935, .14559, + .47289, .21766, .96836, .10825, .04909, + .03291, .08875, .14414 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47119, .21620, .94953, .10725, .04912, + .03324, .08815, .14269, + .46942, .21473, .93097, .10624, .04911, + .03351, .08753, .14124, + .46769, .21331, .91351, .10527, .04908, + .03374, .08692, .13987, + .46603, .21198, .89719, .10435, .04904, + .03395, .08634, .13856, + .46425, .21060, .88066, .10339, .04896, + .03411, .08572, .13723 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .50528, .26906, 1.02241, .10802, .00000, + .00000, .06967, .16353, + .50914, .26884, 1.04632, .10781, .00109, + .00000, .07070, .16257, + .51395, .26814, 1.07099, .10743, .00665, + .00000, .07206, .16108, + .51690, .26743, 1.08614, .10712, .00983, + .00000, .07296, .15996, + .51941, .26650, 1.09843, .10675, .01277, + .00000, .07378, .15873, + .52117, .26553, 1.10608, .10637, .01502, + .00000, .07441, .15763, + .52255, .26452, 1.11137, .10598, .01705, + .00000, .07494, .15653, + .52373, .26336, 1.11493, .10554, .01907, + .00000, .07545, .15534 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .52446, .26225, 1.11583, .10513, .02062, + .00000, .07581, .15428, + .52494, .26112, 1.11508, .10469, .02201, + .00000, .07610, .15323, + .52523, .26019, 1.11379, .10433, .02307, + .00000, .07630, .15240, + .52538, .25810, 1.10482, .10350, .02510, + .00050, .07663, .15052, + .52511, .25617, 1.09037, .10272, .02662, + .00381, .07678, .14884, + .52442, .25390, 1.07233, .10176, .02815, + .00720, .07683, .14693, + .52329, .25143, 1.05222, .10069, .02955, + .00972, .07676, .14487, + .52194, .24912, 1.03264, .09967, .03066, + .01167, .07660, .14293 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .52027, .24674, 1.01181, .09861, .03165, + .01339, .07635, .14094, + .51868, .24471, .99365, .09766, .03236, + .01462, .07607, .13927, + .51651, .24215, .97069, .09646, .03312, + .01594, .07566, .13721, + .51442, .23987, .94997, .09538, .03370, + .01700, .07523, .13539, + .51235, .23776, .93074, .09438, .03418, + .01789, .07480, .13370, + .50946, .23504, .90559, .09306, .03466, + .01887, .07419, .13152, + .50660, .23245, .88185, .09180, .03505, + .01970, .07356, .12946, + .50382, .23001, .85976, .09061, .03535, + .02041, .07294, .12754 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .50081, .22754, .83725, .08938, .03556, + .02100, .07226, .12560, + .49779, .22512, .81552, .08817, .03573, + .02153, .07157, .12371, + .49485, .22283, .79515, .08703, .03586, + .02198, .07090, .12193, + .49196, .22063, .77593, .08592, .03591, + .02234, .07023, .12024, + .48906, .21845, .75707, .08482, .03595, + .02268, .06956, .11856, + .48603, .21628, .73845, .08373, .03593, + .02295, .06886, .11688, + .48316, .21424, .72127, .08271, .03591, + .02319, .06820, .11531, + .48033, .21228, .70496, .08172, .03585, + .02337, .06754, .11381 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .47748, .21033, .68895, .08073, .03578, + .02354, .06689, .11232, + .47460, .20838, .67327, .07974, .03568, + .02367, .06623, .11086, + .47184, .20653, .65859, .07880, .03557, + .02378, .06559, .10947, + .46920, .20478, .64493, .07792, .03546, + .02387, .06498, .10817, + .46644, .20300, .63119, .07702, .03532, + .02392, .06434, .10683 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .56968, .29085, .77506, .09007, .00000, + .00000, .06033, .14556, + .57112, .28899, .80237, .08938, .00091, + .00000, .06078, .14374, + .57228, .28600, .83157, .08836, .00544, + .00000, .06129, .14106, + .57259, .28366, .84886, .08760, .00800, + .00000, .06161, .13914, + .57237, .28105, .86237, .08679, .01033, + .00000, .06187, .13715, + .57174, .27873, .87040, .08607, .01209, + .00000, .06203, .13541, + .57087, .27644, .87570, .08538, .01367, + .00000, .06213, .13374, + .56970, .27398, .87894, .08464, .01520, + .00000, .06218, .13198 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .56842, .27175, .87928, .08395, .01637, + .00000, .06217, .13045, + .56698, .26957, .87786, .08327, .01740, + .00000, .06213, .12898, + .56576, .26784, .87599, .08274, .01819, + .00000, .06209, .12782, + .56273, .26410, .86627, .08158, .01965, + .00039, .06189, .12533, + .55977, .26080, .85195, .08051, .02073, + .00284, .06162, .12318, + .55614, .25706, .83407, .07929, .02178, + .00535, .06125, .12076, + .55202, .25314, .81409, .07799, .02272, + .00717, .06078, .11824, + .54802, .24956, .79476, .07678, .02343, + .00857, .06028, .11596 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .54377, .24594, .77439, .07554, .02405, + .00977, .05972, .11367, + .54005, .24295, .75680, .07449, .02448, + .01063, .05922, .11177, + .53535, .23928, .73484, .07321, .02491, + .01153, .05855, .10947, + .53109, .23605, .71524, .07206, .02523, + .01224, .05792, .10746, + .52710, .23310, .69722, .07099, .02547, + .01283, .05734, .10564, + .52184, .22934, .67395, .06963, .02568, + .01345, .05654, .10333, + .51679, .22584, .65225, .06835, .02583, + .01397, .05576, .10118, + .51201, .22260, .63226, .06716, .02593, + .01440, .05503, .09919 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .50706, .21935, .61215, .06596, .02596, + .01476, .05425, .09720, + .50219, .21620, .59292, .06480, .02596, + .01506, .05349, .09529, + .49755, .21324, .57507, .06370, .02594, + .01531, .05275, .09351, + .49309, .21046, .55840, .06266, .02588, + .01550, .05205, .09184, + .48863, .20770, .54214, .06164, .02580, + .01568, .05134, .09019, + .48414, .20498, .52626, .06062, .02569, + .01580, .05063, .08857, + .47992, .20245, .51167, .05967, .02558, + .01591, .04997, .08707, + .47584, .20003, .49799, .05876, .02545, + .01598, .04932, .08565 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47176, .19763, .48464, .05787, .02531, + .01605, .04867, .08425, + .46769, .19526, .47165, .05698, .02516, + .01608, .04803, .08287, + .46380, .19303, .45956, .05614, .02500, + .01611, .04742, .08157, + .46013, .19094, .44838, .05535, .02485, + .01612, .04685, .08036, + .45635, .18881, .43724, .05456, .02468, + .01611, .04625, .07914 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .62178, .30339, .62837, .07391, .00000, + .00000, .05136, .12662, + .62038, .29996, .65964, .07308, .00079, + .00000, .05151, .12442, + .61744, .29475, .69237, .07186, .00468, + .00000, .05163, .12122, + .61480, .29088, .71055, .07099, .00683, + .00000, .05168, .11893, + .61154, .28675, .72362, .07004, .00875, + .00000, .05163, .11660, + .60838, .28315, .73054, .06921, .01017, + .00000, .05154, .11460, + .60512, .27970, .73440, .06841, .01142, + .00000, .05141, .11270, + .60147, .27604, .73579, .06755, .01263, + .00000, .05124, .11071 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .59806, .27285, .73430, .06679, .01352, + .00000, .05105, .10899, + .59462, .26976, .73107, .06606, .01431, + .00000, .05083, .10735, + .59184, .26733, .72775, .06549, .01489, + .00000, .05063, .10607, + .58563, .26213, .71538, .06421, .01596, + .00032, .05017, .10337, + .57996, .25768, .69950, .06309, .01672, + .00219, .04969, .10105, + .57341, .25272, .68010, .06182, .01744, + .00409, .04910, .09849, + .56637, .24760, .65879, .06049, .01805, + .00546, .04843, .09587, + .55982, .24300, .63863, .05926, .01850, + .00648, .04778, .09351 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .55308, .23843, .61778, .05803, .01886, + .00735, .04708, .09118, + .54738, .23465, .60008, .05700, .01910, + .00795, .04647, .08927, + .54035, .23012, .57838, .05575, .01931, + .00857, .04571, .08697, + .53410, .22616, .55930, .05465, .01945, + .00906, .04502, .08499, + .52837, .22257, .54196, .05363, .01954, + .00945, .04437, .08322, + .52094, .21806, .51995, .05236, .01958, + .00986, .04353, .08097, + .51394, .21389, .49971, .05117, .01958, + .01018, .04272, .07890, + .50742, .21007, .48128, .05008, .01956, + .01045, .04196, .07702 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50078, .20627, .46302, .04899, .01948, + .01066, .04118, .07516, + .49433, .20261, .44575, .04793, .01939, + .01083, .04043, .07337, + .48826, .19919, .42989, .04694, .01928, + .01096, .03972, .07172, + .48247, .19600, .41525, .04602, .01916, + .01105, .03905, .07018, + .47673, .19287, .40107, .04511, .01903, + .01113, .03838, .06867, + .47102, .18980, .38738, .04422, .01887, + .01118, .03771, .06720, + .46569, .18694, .37488, .04339, .01872, + .01122, .03709, .06584, + .46059, .18424, .36327, .04260, .01856, + .01123, .03649, .06457 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45552, .18156, .35199, .04183, .01840, + .01124, .03590, .06332, + .45049, .17895, .34112, .04107, .01822, + .01123, .03531, .06209, + .44571, .17649, .33107, .04036, .01805, + .01121, .03476, .06095, + .44122, .17419, .32184, .03969, .01789, + .01119, .03424, .05988, + .43666, .17187, .31269, .03901, .01771, + .01115, .03372, .05881 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .66183, .30812, .56250, .05971, .00000, + .00000, .04302, .10791, + .65737, .30328, .59310, .05893, .00071, + .00000, .04303, .10563, + .65004, .29611, .62267, .05777, .00410, + .00000, .04296, .10229, + .64431, .29092, .63743, .05692, .00593, + .00000, .04284, .09993, + .63795, .28546, .64617, .05599, .00752, + .00000, .04262, .09750, + .63218, .28079, .64907, .05519, .00868, + .00000, .04240, .09543, + .62652, .27635, .64901, .05441, .00969, + .00000, .04216, .09348, + .62039, .27169, .64630, .05357, .01063, + .00000, .04186, .09146 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .61490, .26768, .64138, .05283, .01132, + .00000, .04157, .08975, + .60950, .26385, .63499, .05211, .01191, + .00000, .04125, .08810, + .60521, .26085, .62926, .05155, .01235, + .00000, .04099, .08681, + .59591, .25449, .61251, .05032, .01312, + .00026, .04038, .08413, + .58767, .24914, .59383, .04926, .01364, + .00170, .03982, .08183, + .57839, .24322, .57185, .04806, .01412, + .00317, .03914, .07932, + .56868, .23716, .54847, .04679, .01451, + .00420, .03839, .07680, + .55981, .23179, .52697, .04565, .01477, + .00495, .03767, .07456 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55082, .22650, .50528, .04451, .01495, + .00559, .03694, .07234, + .54334, .22218, .48728, .04357, .01506, + .00602, .03631, .07054, + .53428, .21702, .46565, .04242, .01513, + .00645, .03553, .06841, + .52630, .21255, .44696, .04143, .01515, + .00679, .03484, .06657, + .51903, .20854, .43023, .04053, .01515, + .00705, .03421, .06492, + .50976, .20352, .40936, .03939, .01509, + .00731, .03339, .06287, + .50113, .19892, .39048, .03834, .01501, + .00752, .03262, .06100, + .49315, .19471, .37350, .03738, .01491, + .00768, .03192, .05930 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48515, .19055, .35695, .03641, .01478, + .00779, .03119, .05764, + .47742, .18658, .34146, .03550, .01465, + .00788, .03050, .05605, + .47016, .18290, .32735, .03466, .01450, + .00795, .02985, .05458, + .46333, .17948, .31449, .03387, .01435, + .00799, .02924, .05323, + .45660, .17612, .30213, .03309, .01419, + .00801, .02864, .05192, + .44994, .17286, .29035, .03234, .01402, + .00802, .02805, .05064, + .44373, .16984, .27965, .03164, .01385, + .00802, .02750, .04946, + .43785, .16699, .26983, .03098, .01369, + .00800, .02697, .04837 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43204, .16418, .26033, .03033, .01352, + .00798, .02645, .04730, + .42630, .16145, .25125, .02971, .01335, + .00795, .02595, .04626, + .42088, .15888, .24292, .02913, .01319, + .00792, .02548, .04527, + .41579, .15649, .23529, .02858, .01303, + .00788, .02504, .04436, + .41066, .15408, .22781, .02802, .01286, + .00783, .02459, .04347 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .69011, .30639, .54930, .04754, .00000, + .00000, .03544, .09024, + .68256, .30030, .57361, .04687, .00063, + .00000, .03540, .08804, + .67085, .29146, .59314, .04585, .00357, + .00000, .03525, .08483, + .66211, .28513, .60038, .04509, .00513, + .00000, .03505, .08256, + .65271, .27855, .60145, .04424, .00644, + .00000, .03479, .08023, + .64444, .27299, .59811, .04350, .00738, + .00000, .03450, .07824, + .63648, .26775, .59244, .04279, .00818, + .00000, .03420, .07639, + .62801, .26229, .58418, .04202, .00891, + .00000, .03385, .07447 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .62056, .25763, .57487, .04133, .00944, + .00000, .03351, .07284, + .61335, .25321, .56464, .04068, .00988, + .00000, .03317, .07127, + .60766, .24977, .55611, .04016, .01019, + .00000, .03289, .07005, + .59544, .24259, .53445, .03906, .01074, + .00021, .03223, .06753, + .58493, .23652, .51265, .03808, .01108, + .00133, .03164, .06541, + .57323, .22989, .48799, .03699, .01139, + .00245, .03094, .06311, + .56111, .22320, .46265, .03586, .01161, + .00323, .03019, .06079, + .55020, .21730, .44003, .03485, .01173, + .00379, .02950, .05874 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .53931, .21151, .41777, .03383, .01180, + .00425, .02879, .05673, + .53035, .20681, .39971, .03299, .01182, + .00455, .02820, .05511, + .51956, .20124, .37842, .03199, .01181, + .00486, .02746, .05322, + .51013, .19646, .36035, .03113, .01176, + .00508, .02681, .05159, + .50160, .19219, .34444, .03036, .01170, + .00526, .02622, .05014, + .49085, .18689, .32492, .02939, .01159, + .00542, .02548, .04833, + .48092, .18203, .30751, .02849, .01146, + .00555, .02479, .04670, + .47180, .17762, .29205, .02767, .01133, + .00564, .02416, .04523 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46268, .17331, .27722, .02688, .01118, + .00570, .02353, .04378, + .45393, .16921, .26347, .02612, .01102, + .00574, .02292, .04242, + .44579, .16541, .25109, .02542, .01087, + .00577, .02235, .04118, + .43820, .16189, .23993, .02476, .01071, + .00577, .02182, .04004, + .43073, .15846, .22929, .02411, .01055, + .00577, .02130, .03893, + .42341, .15511, .21926, .02348, .01038, + .00575, .02079, .03787, + .41660, .15202, .21021, .02291, .01023, + .00574, .02032, .03690, + .41017, .14915, .20197, .02238, .01007, + .00571, .01988, .03598 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40382, .14633, .19404, .02186, .00991, + .00568, .01944, .03508, + .39760, .14358, .18653, .02135, .00976, + .00564, .01901, .03421, + .39177, .14100, .17967, .02087, .00961, + .00560, .01862, .03341, + .38631, .13861, .17344, .02042, .00947, + .00556, .01825, .03267, + .38079, .13621, .16737, .01998, .00932, + .00551, .01788, .03193 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .70717, .29929, .56250, .03727, .00000, + .00000, .02876, .07417, + .69660, .29220, .57622, .03674, .00055, + .00000, .02871, .07214, + .68074, .28195, .58096, .03587, .00306, + .00000, .02851, .06921, + .66914, .27471, .57827, .03521, .00436, + .00000, .02830, .06712, + .65687, .26729, .57000, .03448, .00543, + .00000, .02801, .06496, + .64626, .26106, .55947, .03385, .00618, + .00000, .02772, .06313, + .63616, .25523, .54760, .03322, .00680, + .00000, .02740, .06144, + .62554, .24919, .53351, .03254, .00736, + .00000, .02703, .05970 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .61633, .24406, .51983, .03194, .00775, + .00000, .02669, .05821, + .60749, .23921, .50591, .03136, .00807, + .00000, .02634, .05680, + .60057, .23546, .49476, .03091, .00829, + .00000, .02605, .05571, + .58590, .22763, .46869, .02992, .00867, + .00017, .02542, .05345, + .57337, .22111, .44430, .02906, .00889, + .00102, .02485, .05155, + .55956, .21406, .41764, .02812, .00907, + .00188, .02419, .04950, + .54543, .20697, .39110, .02714, .00917, + .00246, .02349, .04745, + .53283, .20075, .36805, .02628, .00921, + .00287, .02285, .04565 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52035, .19469, .34583, .02543, .00921, + .00320, .02220, .04389, + .51015, .18980, .32819, .02472, .00918, + .00342, .02166, .04250, + .49796, .18405, .30777, .02388, .00911, + .00363, .02100, .04086, + .48741, .17913, .29072, .02316, .00903, + .00378, .02042, .03945, + .47792, .17476, .27592, .02250, .00894, + .00390, .01991, .03821, + .46607, .16930, .25805, .02168, .00881, + .00400, .01926, .03671, + .45515, .16438, .24233, .02094, .00867, + .00407, .01866, .03534, + .44516, .15994, .22852, .02028, .00853, + .00413, .01811, .03410 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43529, .15558, .21547, .01963, .00837, + .00415, .01757, .03290, + .42587, .15145, .20350, .01901, .00822, + .00416, .01705, .03176, + .41714, .14766, .19284, .01845, .00807, + .00417, .01657, .03072, + .40902, .14415, .18330, .01791, .00792, + .00416, .01613, .02980, + .40107, .14074, .17427, .01738, .00778, + .00414, .01569, .02890, + .39329, .13745, .16586, .01689, .00763, + .00412, .01527, .02802, + .38609, .13443, .15831, .01644, .00749, + .00409, .01489, .02721, + .37934, .13161, .15149, .01602, .00735, + .00406, .01453, .02647 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37268, .12885, .14497, .01560, .00722, + .00403, .01418, .02575, + .36618, .12617, .13884, .01520, .00708, + .00399, .01383, .02505, + .36008, .12367, .13328, .01484, .00695, + .00395, .01351, .02439, + .35440, .12135, .12824, .01450, .00683, + .00391, .01321, .02380, + .34871, .11903, .12335, .01414, .00671, + .00387, .01291, .02321 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .71368, .28788, .58174, .02877, .00000, + .00000, .02299, .05996, + .70028, .28001, .58264, .02835, .00047, + .00000, .02294, .05816, + .68049, .26879, .57074, .02768, .00257, + .00000, .02272, .05551, + .66625, .26091, .55756, .02715, .00363, + .00000, .02250, .05364, + .65140, .25287, .53990, .02654, .00448, + .00000, .02219, .05175, + .63873, .24616, .52250, .02600, .00506, + .00000, .02190, .05012, + .62676, .23992, .50496, .02547, .00554, + .00000, .02159, .04862, + .61427, .23349, .48576, .02489, .00597, + .00000, .02124, .04709 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60351, .22807, .46840, .02439, .00625, + .00000, .02090, .04578, + .59327, .22297, .45151, .02390, .00648, + .00000, .02057, .04455, + .58530, .21904, .43830, .02351, .00663, + .00000, .02029, .04361, + .56852, .21089, .40910, .02268, .00688, + .00013, .01972, .04162, + .55433, .20411, .38321, .02197, .00701, + .00078, .01920, .03998, + .53884, .19681, .35569, .02117, .00711, + .00142, .01860, .03822, + .52312, .18953, .32896, .02035, .00714, + .00186, .01797, .03647, + .50921, .18319, .30627, .01963, .00713, + .00216, .01740, .03494 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49553, .17703, .28488, .01892, .00709, + .00239, .01684, .03348, + .48440, .17210, .26818, .01833, .00703, + .00255, .01638, .03230, + .47120, .16632, .24918, .01766, .00694, + .00269, .01582, .03092, + .45984, .16138, .23352, .01706, .00684, + .00279, .01533, .02976, + .44970, .15700, .22006, .01650, .00675, + .00286, .01489, .02875, + .43700, .15164, .20410, .01587, .00661, + .00293, .01434, .02748, + .42543, .14678, .19025, .01528, .00648, + .00297, .01384, .02635, + .41493, .14239, .17822, .01474, .00634, + .00299, .01338, .02534 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40460, .13812, .16696, .01421, .00620, + .00300, .01294, .02437, + .39475, .13410, .15674, .01373, .00606, + .00300, .01251, .02345, + .38564, .13041, .14771, .01330, .00593, + .00299, .01212, .02262, + .37725, .12702, .13974, .01286, .00580, + .00297, .01176, .02187, + .36907, .12372, .13223, .01242, .00568, + .00295, .01142, .02115, + .36110, .12055, .12527, .01204, .00555, + .00293, .01108, .02046, + .35374, .11764, .11906, .01169, .00543, + .00290, .01077, .01982, + .34683, .11494, .11351, .01137, .00532, + .00287, .01049, .01922 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34005, .11230, .10822, .01106, .00520, + .00284, .01020, .01864, + .33344, .10975, .10329, .01075, .00509, + .00281, .00993, .01810, + .32727, .10737, .09884, .01046, .00499, + .00277, .00969, .01760, + .32153, .10517, .09483, .01020, .00489, + .00274, .00945, .01714, + .31579, .10299, .09097, .00994, .00479, + .00270, .00922, .01669 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .71006, .27348, .59370, .02215, .00000, + .00000, .01792, .04750, + .69414, .26505, .58155, .02182, .00039, + .00000, .01788, .04594, + .67101, .25305, .55370, .02124, .00211, + .00000, .01768, .04370, + .65448, .24475, .53098, .02081, .00296, + .00000, .01749, .04206, + .63746, .23630, .50519, .02027, .00363, + .00000, .01720, .04046, + .62303, .22930, .48216, .01981, .00408, + .00000, .01694, .03907, + .60949, .22283, .46013, .01937, .00444, + .00000, .01666, .03778, + .59545, .21620, .43704, .01889, .00475, + .00000, .01634, .03647 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58346, .21061, .41715, .01847, .00495, + .00000, .01606, .03535, + .57210, .20537, .39833, .01805, .00510, + .00000, .01576, .03431, + .56330, .20134, .38390, .01771, .00521, + .00000, .01553, .03352, + .54480, .19308, .35316, .01705, .00536, + .00010, .01502, .03184, + .52935, .18623, .32699, .01645, .00544, + .00059, .01456, .03048, + .51261, .17888, .29979, .01577, .00547, + .00107, .01405, .02903, + .49573, .17159, .27391, .01509, .00546, + .00139, .01352, .02758, + .48088, .16528, .25240, .01450, .00543, + .00160, .01304, .02632 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46636, .15919, .23247, .01391, .00536, + .00177, .01256, .02513, + .45463, .15431, .21713, .01345, .00530, + .00188, .01217, .02416, + .44076, .14865, .19995, .01291, .00520, + .00197, .01171, .02303, + .42887, .14384, .18599, .01245, .00511, + .00204, .01132, .02208, + .41829, .13957, .17413, .01203, .00502, + .00208, .01097, .02124, + .40521, .13435, .16022, .01149, .00489, + .00212, .01052, .02025, + .39330, .12966, .14829, .01102, .00477, + .00214, .01011, .01936, + .38249, .12545, .13803, .01059, .00465, + .00215, .00974, .01857 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37196, .12136, .12855, .01019, .00453, + .00215, .00938, .01778, + .36196, .11751, .12000, .00980, .00441, + .00214, .00905, .01705, + .35275, .11400, .11250, .00945, .00430, + .00213, .00875, .01641, + .34424, .11079, .10595, .00914, .00419, + .00211, .00847, .01583, + .33595, .10768, .09981, .00884, .00409, + .00209, .00819, .01526, + .32795, .10470, .09419, .00855, .00399, + .00207, .00792, .01472, + .32059, .10196, .08920, .00828, .00389, + .00204, .00768, .01423, + .31373, .09942, .08475, .00802, .00380, + .00202, .00745, .01377 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30701, .09694, .08052, .00777, .00371, + .00199, .00723, .01332, + .30048, .09455, .07661, .00754, .00362, + .00196, .00703, .01291, + .29440, .09233, .07310, .00732, .00354, + .00193, .00684, .01253, + .28875, .09029, .06995, .00712, .00346, + .00191, .00666, .01218, + .28310, .08826, .06692, .00693, .00338, + .00188, .00648, .01183 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .69798, .25614, .59069, .01652, .00000, + .00000, .01392, .03721, + .67983, .24739, .56699, .01628, .00032, + .00000, .01386, .03588, + .65375, .23502, .52573, .01585, .00168, + .00000, .01368, .03394, + .63530, .22650, .49546, .01548, .00234, + .00000, .01349, .03259, + .61638, .21793, .46362, .01510, .00285, + .00000, .01323, .03119, + .60054, .21081, .43668, .01472, .00318, + .00000, .01298, .03004, + .58575, .20426, .41176, .01435, .00345, + .00000, .01272, .02898, + .57046, .19760, .38642, .01397, .00367, + .00000, .01244, .02789 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55746, .19203, .36525, .01364, .00381, + .00000, .01220, .02694, + .54521, .18682, .34565, .01332, .00392, + .00000, .01195, .02606, + .53575, .18281, .33082, .01306, .00399, + .00000, .01175, .02538, + .51616, .17455, .30019, .01248, .00408, + .00008, .01129, .02407, + .49981, .16779, .27483, .01200, .00411, + .00043, .01090, .02295, + .48211, .16059, .24900, .01150, .00412, + .00079, .01047, .02175, + .46442, .15350, .22492, .01098, .00409, + .00101, .01004, .02055, + .44897, .14737, .20523, .01051, .00404, + .00117, .00965, .01953 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43395, .14147, .18725, .01004, .00397, + .00128, .00925, .01857, + .42186, .13679, .17363, .00969, .00391, + .00136, .00893, .01781, + .40769, .13134, .15854, .00925, .00382, + .00142, .00855, .01692, + .39558, .12673, .14641, .00887, .00373, + .00146, .00823, .01618, + .38481, .12267, .13622, .00856, .00366, + .00149, .00795, .01552, + .37155, .11771, .12442, .00817, .00355, + .00151, .00760, .01472, + .35956, .11326, .11439, .00783, .00344, + .00152, .00729, .01402, + .34875, .10928, .10585, .00751, .00335, + .00152, .00700, .01339 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33822, .10544, .09804, .00718, .00325, + .00152, .00672, .01281, + .32827, .10184, .09105, .00688, .00315, + .00151, .00646, .01225, + .31914, .09857, .08498, .00663, .00306, + .00149, .00622, .01175, + .31074, .09558, .07970, .00639, .00298, + .00148, .00600, .01129, + .30258, .09269, .07478, .00617, .00290, + .00146, .00578, .01086, + .29476, .08992, .07032, .00594, .00282, + .00144, .00559, .01045, + .28757, .08738, .06636, .00572, .00274, + .00142, .00541, .01008, + .28086, .08505, .06286, .00554, .00267, + .00140, .00524, .00974 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27429, .08278, .05955, .00537, .00260, + .00137, .00507, .00941, + .26793, .08060, .05650, .00521, .00253, + .00135, .00491, .00909, + .26202, .07858, .05377, .00506, .00247, + .00133, .00477, .00879, + .25656, .07671, .05133, .00492, .00241, + .00131, .00464, .00852, + .25114, .07486, .04900, .00476, .00235, + .00129, .00451, .00826 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .67791, .23718, .57073, .01220, .00000, + .00000, .01058, .02862, + .65793, .22834, .53796, .01203, .00025, + .00000, .01052, .02750, + .62943, .21591, .48694, .01172, .00130, + .00000, .01035, .02588, + .60948, .20734, .45165, .01142, .00181, + .00000, .01019, .02477, + .58918, .19877, .41614, .01109, .00219, + .00000, .00995, .02365, + .57223, .19173, .38718, .01081, .00243, + .00000, .00974, .02268, + .55650, .18527, .36105, .01052, .00262, + .00000, .00953, .02180, + .54036, .17869, .33507, .01021, .00278, + .00000, .00930, .02092 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52670, .17319, .31379, .00995, .00288, + .00000, .00908, .02017, + .51389, .16807, .29446, .00968, .00294, + .00000, .00887, .01946, + .50403, .16415, .28002, .00947, .00299, + .00000, .00871, .01893, + .48360, .15617, .25076, .00905, .00304, + .00006, .00833, .01782, + .46670, .14962, .22719, .00866, .00305, + .00031, .00803, .01694, + .44854, .14268, .20357, .00824, .00303, + .00057, .00767, .01602, + .43046, .13588, .18188, .00785, .00300, + .00073, .00731, .01508, + .41475, .13004, .16443, .00750, .00295, + .00084, .00699, .01427 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39954, .12445, .14873, .00715, .00289, + .00092, .00668, .01351, + .38739, .12000, .13698, .00687, .00283, + .00097, .00644, .01290, + .37313, .11485, .12410, .00655, .00275, + .00101, .00614, .01224, + .36104, .11052, .11387, .00627, .00268, + .00104, .00590, .01165, + .35038, .10672, .10533, .00603, .00262, + .00105, .00569, .01111, + .33727, .10210, .09554, .00573, .00253, + .00106, .00540, .01052, + .32544, .09796, .08731, .00545, .00245, + .00107, .00515, .01000, + .31479, .09426, .08036, .00521, .00237, + .00107, .00494, .00953 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30447, .09072, .07406, .00500, .00229, + .00106, .00473, .00908, + .29475, .08741, .06845, .00479, .00222, + .00105, .00453, .00866, + .28589, .08439, .06360, .00458, .00215, + .00103, .00435, .00829, + .27777, .08165, .05943, .00440, .00208, + .00102, .00419, .00796, + .26988, .07900, .05557, .00423, .00202, + .00101, .00402, .00764, + .26232, .07649, .05208, .00408, .00196, + .00099, .00388, .00732, + .25537, .07420, .04900, .00395, .00190, + .00097, .00375, .00703, + .24895, .07209, .04629, .00381, .00185, + .00096, .00363, .00677 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24267, .07004, .04374, .00367, .00180, + .00094, .00350, .00652, + .23662, .06806, .04141, .00355, .00175, + .00092, .00339, .00629, + .23101, .06623, .03933, .00343, .00170, + .00091, .00328, .00609, + .22582, .06454, .03747, .00332, .00166, + .00089, .00318, .00590, + .22068, .06288, .03570, .00321, .00162, + .00088, .00308, .00571 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .65096, .21717, .53475, .00884, .00000, + .00000, .00795, .02163, + .62958, .20838, .49592, .00873, .00019, + .00000, .00789, .02071, + .59938, .19604, .43921, .00843, .00098, + .00000, .00771, .01946, + .57838, .18759, .40141, .00821, .00136, + .00000, .00759, .01853, + .55703, .17926, .36471, .00797, .00164, + .00000, .00738, .01763, + .53938, .17239, .33547, .00773, .00181, + .00000, .00720, .01687, + .52306, .16610, .30962, .00752, .00194, + .00000, .00702, .01617, + .50637, .15975, .28436, .00729, .00205, + .00000, .00682, .01546 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .49231, .15447, .26401, .00710, .00212, + .00000, .00665, .01484, + .47916, .14956, .24579, .00690, .00216, + .00000, .00647, .01430, + .46907, .14582, .23233, .00674, .00218, + .00000, .00632, .01389, + .44828, .13818, .20553, .00642, .00221, + .00005, .00604, .01302, + .43118, .13198, .18440, .00613, .00221, + .00022, .00580, .01231, + .41288, .12542, .16352, .00583, .00219, + .00040, .00552, .01158, + .39479, .11901, .14464, .00552, .00215, + .00052, .00525, .01085, + .37915, .11353, .12966, .00525, .00210, + .00059, .00500, .01023 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36405, .10830, .11633, .00499, .00205, + .00065, .00475, .00966, + .35201, .10416, .10644, .00480, .00200, + .00068, .00456, .00918, + .33800, .09940, .09574, .00455, .00194, + .00070, .00434, .00867, + .32617, .09539, .08731, .00434, .00189, + .00072, .00415, .00825, + .31577, .09187, .08033, .00414, .00183, + .00073, .00399, .00788, + .30298, .08763, .07244, .00393, .00177, + .00074, .00377, .00742, + .29151, .08385, .06584, .00374, .00170, + .00074, .00359, .00702, + .28124, .08048, .06028, .00358, .00164, + .00073, .00343, .00667 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27128, .07727, .05532, .00343, .00159, + .00072, .00328, .00632, + .26197, .07426, .05093, .00327, .00153, + .00072, .00313, .00601, + .25353, .07151, .04715, .00310, .00148, + .00071, .00300, .00575, + .24579, .06905, .04392, .00297, .00143, + .00070, .00287, .00550, + .23828, .06668, .04093, .00287, .00138, + .00068, .00276, .00525, + .23112, .06442, .03825, .00275, .00134, + .00067, .00265, .00503, + .22457, .06236, .03589, .00264, .00130, + .00066, .00255, .00484, + .21848, .06048, .03383, .00256, .00126, + .00065, .00246, .00465 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21254, .05865, .03189, .00249, .00122, + .00064, .00238, .00447, + .20685, .05690, .03012, .00241, .00119, + .00062, .00230, .00430, + .20159, .05529, .02854, .00232, .00115, + .00061, .00221, .00414, + .19675, .05381, .02714, .00224, .00112, + .00060, .00214, .00400, + .19196, .05233, .02582, .00217, .00109, + .00059, .00207, .00386 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .61836, .19649, .48592, .00619, .00000, + .00000, .00589, .01617, + .59601, .18795, .44408, .00614, .00015, + .00000, .00583, .01539, + .56460, .17601, .38562, .00592, .00072, + .00000, .00569, .01436, + .54282, .16794, .34780, .00580, .00099, + .00000, .00555, .01363, + .52100, .15988, .31189, .00560, .00119, + .00000, .00538, .01293, + .50297, .15331, .28387, .00541, .00131, + .00000, .00523, .01234, + .48636, .14732, .25948, .00525, .00140, + .00000, .00509, .01178, + .46945, .14128, .23601, .00509, .00148, + .00000, .00493, .01122 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .45528, .13628, .21742, .00493, .00152, + .00000, .00479, .01075, + .44207, .13165, .20093, .00479, .00154, + .00000, .00466, .01031, + .43194, .12813, .18883, .00469, .00156, + .00000, .00457, .00997, + .41120, .12096, .16518, .00443, .00157, + .00003, .00432, .00934, + .39420, .11516, .14684, .00423, .00156, + .00016, .00412, .00879, + .37616, .10905, .12895, .00399, .00154, + .00028, .00391, .00825, + .35834, .10311, .11301, .00376, .00150, + .00036, .00369, .00771, + .34301, .09805, .10051, .00358, .00147, + .00041, .00350, .00725 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32833, .09322, .08949, .00338, .00143, + .00045, .00333, .00680, + .31664, .08944, .08140, .00323, .00139, + .00047, .00318, .00647, + .30310, .08509, .07274, .00306, .00134, + .00049, .00302, .00608, + .29167, .08146, .06597, .00292, .00130, + .00050, .00288, .00575, + .28163, .07828, .06040, .00280, .00126, + .00050, .00276, .00547, + .26940, .07443, .05414, .00266, .00121, + .00050, .00260, .00513, + .25848, .07102, .04896, .00252, .00116, + .00050, .00246, .00485, + .24873, .06799, .04465, .00238, .00112, + .00050, .00235, .00461 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23934, .06511, .04082, .00227, .00108, + .00049, .00223, .00435, + .23054, .06243, .03744, .00217, .00104, + .00048, .00213, .00411, + .22253, .06000, .03455, .00208, .00100, + .00048, .00203, .00392, + .21528, .05780, .03209, .00198, .00097, + .00047, .00194, .00374, + .20828, .05569, .02983, .00188, .00094, + .00046, .00186, .00358, + .20158, .05370, .02781, .00181, .00090, + .00045, .00178, .00342, + .19546, .05189, .02603, .00175, .00087, + .00044, .00171, .00327, + .18983, .05022, .02449, .00168, .00085, + .00043, .00165, .00313 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18436, .04860, .02304, .00162, .00082, + .00043, .00159, .00300, + .17912, .04706, .02173, .00156, .00080, + .00042, .00153, .00288, + .17428, .04564, .02056, .00150, .00077, + .00041, .00147, .00279, + .16981, .04434, .01953, .00145, .00075, + .00040, .00142, .00270, + .16539, .04306, .01855, .00140, .00073, + .00040, .00138, .00259 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .58090, .17609, .42878, .00441, .00000, + .00000, .00424, .01173, + .55805, .16784, .38669, .00435, .00011, + .00000, .00419, .01115, + .52612, .15644, .32977, .00415, .00052, + .00000, .00406, .01036, + .50409, .14877, .29374, .00406, .00071, + .00000, .00393, .00981, + .48214, .14112, .26030, .00391, .00084, + .00000, .00381, .00925, + .46406, .13495, .23465, .00377, .00093, + .00000, .00369, .00881, + .44749, .12934, .21259, .00364, .00099, + .00000, .00358, .00840, + .43069, .12369, .19161, .00352, .00104, + .00000, .00346, .00796 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .41666, .11900, .17517, .00340, .00106, + .00000, .00335, .00761, + .40360, .11470, .16077, .00329, .00108, + .00000, .00324, .00729, + .39361, .11143, .15031, .00322, .00109, + .00000, .00316, .00705, + .37333, .10479, .13013, .00301, .00109, + .00002, .00300, .00656, + .35671, .09947, .11470, .00289, .00108, + .00011, .00285, .00615, + .33914, .09388, .09985, .00273, .00106, + .00019, .00269, .00574, + .32191, .08845, .08675, .00256, .00103, + .00024, .00254, .00534, + .30714, .08385, .07660, .00243, .00100, + .00028, .00240, .00501 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .29305, .07949, .06774, .00229, .00097, + .00030, .00226, .00469, + .28193, .07605, .06129, .00218, .00094, + .00032, .00216, .00444, + .26903, .07212, .05444, .00206, .00091, + .00033, .00204, .00417, + .25818, .06886, .04914, .00197, .00088, + .00034, .00194, .00393, + .24868, .06603, .04481, .00189, .00085, + .00035, .00185, .00373, + .23717, .06261, .03997, .00178, .00081, + .00035, .00175, .00348, + .22692, .05956, .03600, .00167, .00078, + .00035, .00165, .00328, + .21779, .05687, .03270, .00158, .00075, + .00035, .00156, .00311 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20903, .05433, .02978, .00150, .00072, + .00034, .00147, .00293, + .20084, .05197, .02724, .00143, .00069, + .00034, .00140, .00277, + .19341, .04983, .02507, .00138, .00067, + .00034, .00134, .00261, + .18668, .04791, .02323, .00132, .00064, + .00033, .00128, .00249, + .18022, .04608, .02154, .00126, .00062, + .00033, .00122, .00237, + .17408, .04432, .02003, .00120, .00060, + .00032, .00117, .00226, + .16848, .04273, .01872, .00116, .00058, + .00032, .00112, .00217, + .16335, .04128, .01758, .00110, .00056, + .00031, .00108, .00208 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15836, .03989, .01652, .00105, .00054, + .00031, .00104, .00199, + .15356, .03856, .01556, .00102, .00053, + .00030, .00100, .00191, + .14913, .03734, .01471, .00098, .00051, + .00030, .00096, .00183, + .14507, .03622, .01395, .00095, .00050, + .00029, .00092, .00176, + .14109, .03513, .01324, .00092, .00049, + .00029, .00089, .00168 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .53998, .15591, .36745, .00300, .00000, + .00000, .00300, .00843, + .51705, .14813, .32740, .00292, .00008, + .00000, .00296, .00798, + .48504, .13750, .27465, .00285, .00036, + .00000, .00284, .00733, + .46318, .13031, .24188, .00276, .00049, + .00000, .00274, .00693, + .44143, .12321, .21201, .00267, .00058, + .00000, .00264, .00650, + .42360, .11750, .18937, .00259, .00064, + .00000, .00254, .00617, + .40734, .11231, .17016, .00250, .00068, + .00000, .00245, .00585, + .39092, .10711, .15213, .00241, .00071, + .00000, .00236, .00552 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37723, .10283, .13815, .00234, .00072, + .00000, .00229, .00526, + .36456, .09888, .12600, .00227, .00073, + .00000, .00221, .00503, + .35492, .09589, .11723, .00220, .00074, + .00000, .00214, .00487, + .33530, .08987, .10047, .00206, .00074, + .00002, .00201, .00450, + .31936, .08503, .08788, .00197, .00073, + .00007, .00191, .00420, + .30256, .07998, .07587, .00188, .00071, + .00013, .00181, .00389, + .28617, .07510, .06540, .00176, .00069, + .00016, .00169, .00360, + .27218, .07097, .05737, .00165, .00067, + .00018, .00158, .00337 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25886, .06706, .05043, .00155, .00065, + .00020, .00148, .00315, + .24838, .06402, .04541, .00147, .00063, + .00021, .00142, .00297, + .23630, .06054, .04012, .00139, .00060, + .00022, .00134, .00277, + .22617, .05764, .03606, .00132, .00058, + .00022, .00127, .00261, + .21732, .05512, .03277, .00127, .00056, + .00022, .00120, .00248, + .20664, .05211, .02911, .00119, .00054, + .00022, .00112, .00231, + .19716, .04945, .02612, .00112, .00052, + .00022, .00106, .00216, + .18875, .04711, .02365, .00106, .00050, + .00022, .00101, .00203 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18069, .04487, .02148, .00099, .00048, + .00022, .00095, .00192, + .17320, .04281, .01959, .00093, .00046, + .00022, .00090, .00181, + .16643, .04098, .01800, .00089, .00045, + .00022, .00085, .00171, + .16030, .03931, .01664, .00085, .00043, + .00022, .00081, .00163, + .15441, .03772, .01540, .00082, .00042, + .00022, .00077, .00155, + .14882, .03622, .01431, .00079, .00040, + .00022, .00074, .00146, + .14375, .03487, .01335, .00076, .00039, + .00022, .00071, .00138, + .13911, .03363, .01252, .00073, .00038, + .00022, .00068, .00132 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13461, .03243, .01175, .00069, .00037, + .00022, .00065, .00127, + .13031, .03129, .01105, .00067, .00036, + .00022, .00062, .00121, + .12635, .03025, .01044, .00064, .00035, + .00022, .00060, .00116, + .12271, .02930, .00989, .00062, .00035, + .00022, .00058, .00111, + .11913, .02836, .00938, .00060, .00034, + .00022, .00056, .00107 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .49645, .13643, .30580, .00197, .00000, + .00000, .00213, .00592, + .47374, .12922, .26945, .00192, .00005, + .00000, .00205, .00562, + .44231, .11937, .22253, .00185, .00024, + .00000, .00196, .00515, + .42091, .11275, .19391, .00180, .00033, + .00000, .00189, .00483, + .39975, .10627, .16818, .00174, .00039, + .00000, .00183, .00449, + .38250, .10104, .14894, .00168, .00043, + .00000, .00174, .00423, + .36679, .09631, .13279, .00161, .00046, + .00000, .00167, .00401, + .35097, .09159, .11777, .00154, .00048, + .00000, .00161, .00379 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33787, .08770, .10624, .00149, .00049, + .00000, .00156, .00360, + .32576, .08414, .09632, .00143, .00049, + .00000, .00150, .00344, + .31655, .08145, .08921, .00139, .00049, + .00000, .00145, .00333, + .29789, .07604, .07578, .00130, .00049, + .00001, .00135, .00307, + .28278, .07173, .06580, .00126, .00049, + .00005, .00128, .00283, + .26692, .06725, .05639, .00119, .00047, + .00008, .00120, .00261, + .25155, .06291, .04827, .00111, .00046, + .00010, .00113, .00241, + .23850, .05925, .04208, .00103, .00045, + .00012, .00106, .00225 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22612, .05581, .03677, .00096, .00043, + .00013, .00098, .00210, + .21636, .05315, .03299, .00093, .00042, + .00013, .00094, .00197, + .20520, .05010, .02902, .00086, .00041, + .00013, .00089, .00184, + .19588, .04757, .02597, .00081, .00039, + .00013, .00084, .00173, + .18776, .04540, .02351, .00079, .00038, + .00013, .00080, .00162, + .17797, .04278, .02081, .00074, .00037, + .00013, .00075, .00150, + .16934, .04048, .01862, .00069, .00036, + .00013, .00070, .00141, + .16171, .03845, .01682, .00063, .00034, + .00013, .00067, .00132 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15440, .03655, .01524, .00060, .00033, + .00013, .00062, .00124, + .14761, .03479, .01387, .00057, .00032, + .00013, .00059, .00117, + .14150, .03320, .01272, .00055, .00031, + .00013, .00056, .00112, + .13600, .03178, .01174, .00052, .00031, + .00013, .00053, .00106, + .13073, .03044, .01085, .00049, .00030, + .00013, .00051, .00100, + .12574, .02916, .01007, .00046, .00029, + .00013, .00048, .00095, + .12121, .02801, .00939, .00044, .00028, + .00013, .00045, .00091, + .11707, .02697, .00880, .00043, .00028, + .00013, .00044, .00086 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11306, .02596, .00825, .00042, .00027, + .00013, .00042, .00082, + .10926, .02500, .00776, .00040, .00027, + .00013, .00041, .00078, + .10576, .02412, .00732, .00038, .00026, + .00013, .00039, .00075, + .10256, .02333, .00693, .00037, .00026, + .00013, .00038, .00072, + .09940, .02255, .00656, .00036, .00025, + .00013, .00036, .00069 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .45140, .11804, .24734, .00125, .00000, + .00000, .00145, .00409, + .42926, .11141, .21561, .00126, .00004, + .00000, .00140, .00383, + .39887, .10242, .17547, .00117, .00016, + .00000, .00136, .00349, + .37832, .09641, .15135, .00110, .00021, + .00000, .00129, .00327, + .35797, .09055, .12997, .00106, .00025, + .00000, .00124, .00307, + .34149, .08584, .11419, .00102, .00028, + .00000, .00119, .00288, + .32657, .08159, .10105, .00097, .00029, + .00000, .00114, .00271, + .31158, .07737, .08896, .00093, .00031, + .00000, .00109, .00254 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29916, .07391, .07979, .00091, .00032, + .00000, .00106, .00240, + .28776, .07074, .07194, .00086, .00032, + .00000, .00101, .00230, + .27914, .06835, .06634, .00082, .00032, + .00000, .00097, .00223, + .26164, .06357, .05586, .00078, .00032, + .00001, .00092, .00203, + .24759, .05974, .04820, .00073, .00032, + .00003, .00087, .00189, + .23286, .05580, .04102, .00069, .00032, + .00005, .00080, .00174, + .21864, .05203, .03488, .00064, .00032, + .00006, .00075, .00159, + .20661, .04885, .03026, .00060, .00031, + .00007, .00070, .00147 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19522, .04588, .02632, .00056, .00031, + .00007, .00065, .00137, + .18633, .04355, .02352, .00052, .00030, + .00007, .00062, .00131, + .17616, .04093, .02060, .00049, .00029, + .00007, .00058, .00121, + .16769, .03877, .01838, .00047, .00028, + .00007, .00055, .00112, + .16034, .03689, .01661, .00045, .00028, + .00007, .00052, .00106, + .15153, .03467, .01466, .00040, .00027, + .00007, .00049, .00098, + .14375, .03272, .01308, .00037, .00026, + .00007, .00046, .00092, + .13687, .03101, .01180, .00035, .00026, + .00007, .00043, .00086 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13034, .02938, .01067, .00035, .00025, + .00007, .00041, .00080, + .12431, .02789, .00969, .00033, .00024, + .00007, .00039, .00076, + .11890, .02656, .00887, .00030, .00024, + .00007, .00036, .00072, + .11402, .02538, .00818, .00029, .00023, + .00007, .00034, .00068, + .10936, .02425, .00756, .00028, .00023, + .00007, .00033, .00064, + .10496, .02318, .00701, .00026, .00022, + .00007, .00031, .00061, + .10098, .02222, .00652, .00024, .00022, + .00007, .00029, .00058, + .09735, .02136, .00611, .00023, .00022, + .00007, .00028, .00055 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09384, .02052, .00573, .00023, .00021, + .00007, .00027, .00052, + .09051, .01973, .00538, .00022, .00021, + .00007, .00026, .00049, + .08745, .01901, .00507, .00022, .00021, + .00007, .00025, .00047, + .08466, .01835, .00480, .00021, .00021, + .00007, .00024, .00045, + .08193, .01770, .00455, .00020, .00020, + .00007, .00023, .00044 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .40572, .10103, .19461, .00093, .00000, + .00000, .00091, .00268, + .38465, .09505, .16802, .00086, .00002, + .00000, .00088, .00254, + .35564, .08699, .13493, .00084, .00010, + .00000, .00082, .00229, + .33616, .08161, .11535, .00080, .00013, + .00000, .00078, .00213, + .31701, .07640, .09816, .00074, .00016, + .00000, .00074, .00198, + .30153, .07222, .08561, .00073, .00017, + .00000, .00072, .00183, + .28753, .06848, .07528, .00071, .00018, + .00000, .00069, .00172, + .27352, .06475, .06584, .00068, .00019, + .00000, .00065, .00162 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .26200, .06171, .05873, .00064, .00019, + .00000, .00063, .00152, + .25143, .05893, .05271, .00062, .00020, + .00000, .00060, .00145, + .24343, .05684, .04844, .00060, .00020, + .00000, .00058, .00140, + .22730, .05266, .04049, .00057, .00019, + .00001, .00054, .00128, + .21439, .04936, .03474, .00054, .00019, + .00002, .00051, .00117, + .20095, .04594, .02941, .00049, .00019, + .00003, .00046, .00108, + .18801, .04268, .02488, .00046, .00019, + .00003, .00043, .00099, + .17709, .03995, .02148, .00043, .00019, + .00003, .00040, .00091 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16681, .03741, .01861, .00040, .00019, + .00004, .00038, .00084, + .15877, .03544, .01659, .00040, .00019, + .00004, .00036, .00078, + .14966, .03320, .01449, .00036, .00019, + .00004, .00033, .00072, + .14210, .03136, .01291, .00033, .00019, + .00004, .00031, .00067, + .13554, .02978, .01164, .00033, .00019, + .00004, .00030, .00063, + .12771, .02790, .01025, .00029, .00019, + .00004, .00027, .00059, + .12081, .02625, .00913, .00027, .00019, + .00004, .00025, .00055, + .11474, .02482, .00822, .00026, .00019, + .00004, .00024, .00051 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10899, .02347, .00743, .00025, .00019, + .00004, .00022, .00047, + .10369, .02223, .00675, .00024, .00019, + .00004, .00021, .00044, + .09894, .02112, .00617, .00023, .00019, + .00004, .00020, .00041, + .09468, .02013, .00569, .00021, .00018, + .00004, .00019, .00039, + .09062, .01919, .00525, .00020, .00018, + .00004, .00018, .00038, + .08680, .01831, .00487, .00019, .00018, + .00004, .00017, .00035, + .08334, .01753, .00453, .00019, .00018, + .00004, .00016, .00033, + .08019, .01681, .00424, .00018, .00018, + .00004, .00015, .00031 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07716, .01613, .00397, .00018, .00018, + .00004, .00014, .00029, + .07429, .01548, .00373, .00017, .00018, + .00004, .00014, .00028, + .07166, .01489, .00352, .00016, .00018, + .00004, .00013, .00027, + .06926, .01435, .00333, .00015, .00018, + .00004, .00013, .00026, + .06692, .01382, .00315, .00014, .00018, + .00004, .00012, .00026 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .36021, .08505, .14828, .00048, .00000, + .00000, .00063, .00181, + .34026, .07978, .12683, .00047, .00001, + .00000, .00062, .00167, + .31313, .07263, .10056, .00044, .00006, + .00000, .00056, .00151, + .29494, .06794, .08521, .00041, .00008, + .00000, .00054, .00139, + .27708, .06338, .07189, .00043, .00009, + .00000, .00049, .00129, + .26277, .05973, .06230, .00039, .00010, + .00000, .00048, .00120, + .24987, .05648, .05445, .00037, .00010, + .00000, .00045, .00113, + .23700, .05327, .04733, .00036, .00011, + .00000, .00041, .00105 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22645, .05064, .04200, .00034, .00011, + .00000, .00039, .00098, + .21678, .04825, .03752, .00034, .00011, + .00000, .00038, .00092, + .20947, .04645, .03437, .00033, .00011, + .00000, .00037, .00088, + .19481, .04289, .02854, .00032, .00011, + .00000, .00034, .00081, + .18316, .04006, .02436, .00028, .00011, + .00001, .00032, .00075, + .17103, .03715, .02051, .00027, .00011, + .00001, .00029, .00069, + .15942, .03439, .01727, .00026, .00011, + .00001, .00027, .00061, + .14966, .03208, .01487, .00023, .00011, + .00001, .00025, .00056 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .14050, .02994, .01284, .00022, .00011, + .00001, .00023, .00053, + .13341, .02829, .01142, .00020, .00011, + .00001, .00021, .00050, + .12535, .02642, .00995, .00018, .00011, + .00001, .00019, .00046, + .11868, .02489, .00884, .00017, .00011, + .00001, .00018, .00043, + .11290, .02358, .00796, .00018, .00011, + .00001, .00018, .00039, + .10603, .02203, .00701, .00017, .00011, + .00001, .00017, .00036, + .10001, .02067, .00624, .00016, .00011, + .00001, .00015, .00033, + .09474, .01948, .00561, .00015, .00011, + .00001, .00014, .00031 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08976, .01837, .00507, .00014, .00011, + .00001, .00013, .00029, + .08517, .01736, .00460, .00013, .00011, + .00001, .00013, .00027, + .08108, .01645, .00420, .00013, .00011, + .00001, .00012, .00025, + .07741, .01565, .00387, .00012, .00011, + .00001, .00011, .00024, + .07391, .01490, .00358, .00012, .00011, + .00001, .00010, .00023, + .07063, .01418, .00331, .00011, .00011, + .00001, .00010, .00021, + .06768, .01354, .00308, .00011, .00011, + .00001, .00009, .00020, + .06501, .01296, .00289, .00010, .00011, + .00001, .00009, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06244, .01241, .00270, .00009, .00011, + .00001, .00008, .00018, + .06000, .01189, .00254, .00009, .00011, + .00001, .00008, .00017, + .05778, .01142, .00239, .00009, .00011, + .00001, .00008, .00016, + .05575, .01099, .00226, .00008, .00011, + .00001, .00007, .00015, + .05377, .01057, .00214, .00008, .00011, + .00001, .00007, .00015 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .31569, .07066, .10957, .00025, .00000, + .00000, .00043, .00116, + .29716, .06605, .09288, .00026, .00001, + .00000, .00041, .00107, + .27210, .05987, .07275, .00022, .00003, + .00000, .00037, .00095, + .25536, .05581, .06112, .00023, .00004, + .00000, .00033, .00086, + .23903, .05185, .05119, .00024, .00005, + .00000, .00032, .00082, + .22598, .04874, .04408, .00021, .00005, + .00000, .00030, .00075, + .21428, .04595, .03830, .00019, .00005, + .00000, .00029, .00069, + .20263, .04320, .03310, .00018, .00006, + .00000, .00027, .00065 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .19307, .04096, .02924, .00019, .00005, + .00000, .00025, .00061, + .18437, .03894, .02601, .00018, .00005, + .00000, .00025, .00056, + .17783, .03742, .02375, .00018, .00005, + .00000, .00024, .00053, + .16471, .03441, .01961, .00017, .00005, + .00000, .00022, .00049, + .15433, .03203, .01667, .00015, .00005, + .00000, .00020, .00045, + .14361, .02959, .01397, .00014, .00005, + .00000, .00019, .00040, + .13335, .02729, .01172, .00013, .00005, + .00000, .00016, .00038, + .12475, .02538, .01006, .00013, .00005, + .00000, .00015, .00035 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11672, .02361, .00868, .00012, .00005, + .00000, .00015, .00032, + .11049, .02224, .00770, .00012, .00005, + .00000, .00014, .00030, + .10348, .02070, .00670, .00010, .00005, + .00000, .00013, .00028, + .09770, .01945, .00595, .00010, .00005, + .00000, .00012, .00026, + .09271, .01838, .00535, .00009, .00005, + .00000, .00011, .00024, + .08680, .01711, .00471, .00008, .00005, + .00000, .00010, .00021, + .08163, .01601, .00419, .00008, .00005, + .00000, .00009, .00019, + .07709, .01506, .00376, .00008, .00005, + .00000, .00009, .00018 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07285, .01416, .00340, .00007, .00005, + .00000, .00008, .00017, + .06895, .01334, .00308, .00006, .00005, + .00000, .00008, .00016, + .06547, .01262, .00282, .00007, .00005, + .00000, .00007, .00015, + .06236, .01197, .00260, .00006, .00005, + .00000, .00007, .00014, + .05941, .01136, .00240, .00006, .00005, + .00000, .00006, .00014, + .05665, .01080, .00222, .00006, .00005, + .00000, .00006, .00013, + .05417, .01029, .00207, .00006, .00005, + .00000, .00006, .00012, + .05192, .00983, .00194, .00006, .00005, + .00000, .00006, .00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04976, .00939, .00181, .00006, .00005, + .00000, .00005, .00010, + .04773, .00898, .00170, .00006, .00005, + .00000, .00005, .00010, + .04588, .00861, .00160, .00005, .00005, + .00000, .00005, .00010, + .04419, .00827, .00152, .00005, .00005, + .00000, .00005, .00010, + .04255, .00794, .00143, .00004, .00005, + .00000, .00004, .00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .27304, .05794, .07854, .00019, .00000, + .00000, .00024, .00069, + .25615, .05397, .06602, .00017, .00000, + .00000, .00021, .00066, + .23333, .04869, .05114, .00018, .00002, + .00000, .00019, .00057, + .21819, .04521, .04265, .00017, .00002, + .00000, .00018, .00052, + .20351, .04188, .03546, .00018, .00003, + .00000, .00016, .00047, + .19183, .03924, .03036, .00014, .00003, + .00000, .00016, .00044, + .18137, .03689, .02625, .00011, .00003, + .00000, .00015, .00041, + .17099, .03457, .02258, .00011, .00003, + .00000, .00014, .00038 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .16251, .03271, .01988, .00013, .00003, + .00000, .00013, .00035, + .15481, .03102, .01763, .00013, .00003, + .00000, .00012, .00034, + .14903, .02974, .01605, .00012, .00003, + .00000, .00012, .00033, + .13747, .02725, .01320, .00012, .00003, + .00000, .00011, .00030, + .12837, .02527, .01118, .00009, .00003, + .00000, .00010, .00027, + .11899, .02327, .00934, .00009, .00003, + .00000, .00009, .00024, + .11006, .02138, .00782, .00009, .00003, + .00000, .00008, .00022, + .10263, .01982, .00670, .00007, .00003, + .00000, .00007, .00021 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09573, .01837, .00577, .00007, .00003, + .00000, .00007, .00018, + .09038, .01727, .00512, .00007, .00003, + .00000, .00007, .00016, + .08433, .01602, .00445, .00007, .00003, + .00000, .00006, .00015, + .07938, .01501, .00395, .00007, .00003, + .00000, .00005, .00014, + .07515, .01415, .00356, .00006, .00003, + .00000, .00005, .00013, + .07013, .01313, .00313, .00006, .00003, + .00000, .00004, .00012, + .06575, .01225, .00278, .00005, .00003, + .00000, .00004, .00011, + .06193, .01148, .00250, .00005, .00003, + .00000, .00004, .00010 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05835, .01077, .00226, .00005, .00003, + .00000, .00004, .00009, + .05507, .01012, .00205, .00005, .00003, + .00000, .00004, .00008, + .05216, .00955, .00188, .00006, .00003, + .00000, .00004, .00008, + .04959, .00904, .00173, .00005, .00003, + .00000, .00003, .00007, + .04715, .00856, .00160, .00004, .00003, + .00000, .00003, .00007, + .04486, .00812, .00148, .00004, .00003, + .00000, .00003, .00006, + .04281, .00772, .00138, .00004, .00003, + .00000, .00003, .00006, + .04094, .00736, .00129, .00004, .00003, + .00000, .00002, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03916, .00702, .00121, .00004, .00003, + .00000, .00002, .00006, + .03749, .00670, .00113, .00004, .00003, + .00000, .00002, .00005, + .03596, .00641, .00107, .00004, .00003, + .00000, .00002, .00005, + .03458, .00615, .00101, .00004, .00003, + .00000, .00002, .00005, + .03324, .00589, .00095, .00003, .00003, + .00000, .00002, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .23240, .04657, .05419, .00007, .00000, + .00000, .00017, .00043, + .21725, .04323, .04520, .00005, .00000, + .00000, .00016, .00040, + .19688, .03880, .03466, .00006, .00000, + .00000, .00014, .00034, + .18342, .03590, .02870, .00007, .00000, + .00000, .00013, .00031, + .17043, .03313, .02370, .00006, .00000, + .00000, .00012, .00028, + .16013, .03093, .02018, .00004, .00000, + .00000, .00012, .00026, + .15093, .02900, .01737, .00004, .00000, + .00000, .00011, .00024, + .14183, .02710, .01489, .00004, .00000, + .00000, .00010, .00022 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13444, .02556, .01306, .00004, .00000, + .00000, .00009, .00021, + .12773, .02418, .01155, .00004, .00000, + .00000, .00008, .00020, + .12270, .02314, .01050, .00004, .00000, + .00000, .00007, .00019, + .11272, .02111, .00860, .00005, .00000, + .00000, .00007, .00018, + .10487, .01951, .00727, .00004, .00000, + .00000, .00006, .00016, + .09683, .01790, .00606, .00003, .00000, + .00000, .00006, .00015, + .08921, .01638, .00507, .00002, .00000, + .00000, .00005, .00013, + .08289, .01512, .00434, .00002, .00000, + .00000, .00005, .00011 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07702, .01397, .00373, .00003, .00000, + .00000, .00005, .00009, + .07251, .01310, .00331, .00003, .00000, + .00000, .00005, .00009, + .06743, .01211, .00288, .00004, .00000, + .00000, .00004, .00008, + .06329, .01131, .00256, .00003, .00000, + .00000, .00004, .00008, + .05977, .01063, .00230, .00001, .00000, + .00000, .00003, .00007, + .05558, .00984, .00203, .00002, .00000, + .00000, .00003, .00006, + .05194, .00915, .00181, .00002, .00000, + .00000, .00003, .00006, + .04877, .00855, .00163, .00002, .00000, + .00000, .00003, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04582, .00800, .00147, .00002, .00000, + .00000, .00002, .00005, + .04314, .00749, .00133, .00002, .00000, + .00000, .00002, .00005, + .04076, .00705, .00122, .00002, .00000, + .00000, .00002, .00005, + .03864, .00666, .00112, .00002, .00000, + .00000, .00002, .00004, + .03664, .00629, .00104, .00002, .00000, + .00000, .00002, .00004, + .03478, .00595, .00096, .00002, .00000, + .00000, .00002, .00003, + .03311, .00565, .00090, .00002, .00000, + .00000, .00002, .00003, + .03161, .00537, .00084, .00001, .00000, + .00000, .00002, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03018, .00511, .00078, .00001, .00000, + .00000, .00001, .00003, + .02883, .00487, .00074, .00001, .00000, + .00000, .00001, .00003, + .02760, .00465, .00069, .00001, .00000, + .00000, .00001, .00003, + .02649, .00445, .00066, .00001, .00000, + .00000, .00001, .00003, + .02542, .00426, .00062, .00001, .00000, + .00000, .00001, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .16031, .02854, .02307, .00003, .00000, + .00000, .00004, .00014, + .14872, .02629, .01898, .00003, .00000, + .00000, .00004, .00011, + .13331, .02334, .01429, .00002, .00000, + .00000, .00004, .00010, + .12326, .02143, .01170, .00001, .00000, + .00000, .00003, .00009, + .11362, .01963, .00956, .00002, .00000, + .00000, .00003, .00007, + .10601, .01821, .00809, .00002, .00000, + .00000, .00003, .00007, + .09928, .01696, .00692, .00001, .00000, + .00000, .00002, .00007, + .09269, .01574, .00590, .00000, .00000, + .00000, .00002, .00008 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08736, .01477, .00516, .00001, .00000, + .00000, .00002, .00006, + .08256, .01389, .00455, .00001, .00000, + .00000, .00002, .00006, + .07898, .01324, .00413, .00000, .00000, + .00000, .00002, .00005, + .07192, .01197, .00337, .00000, .00000, + .00000, .00002, .00004, + .06640, .01099, .00285, .00001, .00000, + .00000, .00002, .00004, + .06079, .01000, .00238, .00002, .00000, + .00000, .00002, .00004, + .05555, .00907, .00199, .00001, .00000, + .00000, .00002, .00003, + .05124, .00832, .00171, .00000, .00000, + .00000, .00002, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04725, .00763, .00147, .00000, .00000, + .00000, .00001, .00003, + .04421, .00710, .00131, .00001, .00000, + .00000, .00001, .00002, + .04082, .00652, .00114, .00001, .00000, + .00000, .00001, .00002, + .03808, .00605, .00102, .00001, .00000, + .00000, .00001, .00003, + .03575, .00566, .00092, .00000, .00000, + .00000, .00001, .00003, + .03302, .00520, .00081, .00000, .00000, + .00000, .00001, .00002, + .03066, .00480, .00072, .00000, .00000, + .00000, .00001, .00002, + .02863, .00446, .00065, .00000, .00000, + .00000, .00001, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02673, .00415, .00059, .00000, .00000, + .00000, .00001, .00002, + .02501, .00387, .00054, .00000, .00000, + .00000, .00001, .00001, + .02351, .00362, .00049, .00000, .00000, + .00000, .00001, .00002, + .02217, .00340, .00045, .00000, .00000, + .00000, .00001, .00001, + .02091, .00320, .00042, .00001, .00000, + .00000, .00001, .00001, + .01976, .00301, .00039, .00000, .00000, + .00000, .00001, .00001, + .01873, .00284, .00036, .00000, .00000, + .00000, .00001, .00001, + .01780, .00269, .00034, .00000, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01692, .00255, .00032, .00000, .00000, + .00000, .00001, .00001, + .01609, .00242, .00030, .00000, .00000, + .00000, .00000, .00001, + .01534, .00230, .00028, .00000, .00000, + .00000, .00000, .00001, + .01467, .00220, .00026, .00000, .00000, + .00000, .00000, .00001, + .01402, .00209, .00025, .00000, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .10182, .01590, .00817, .00001, .00000, + .00000, .00000, .00004, + .09370, .01453, .00665, .00000, .00000, + .00000, .00000, .00004, + .08299, .01275, .00496, .00002, .00000, + .00000, .00001, .00001, + .07608, .01161, .00404, .00001, .00000, + .00000, .00001, .00002, + .06954, .01054, .00329, .00001, .00000, + .00000, .00000, .00002, + .06441, .00971, .00278, .00001, .00000, + .00000, .00001, .00002, + .05990, .00898, .00238, .00001, .00000, + .00000, .00001, .00002, + .05552, .00828, .00203, .00001, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05202, .00772, .00178, .00000, .00000, + .00000, .00000, .00001, + .04887, .00722, .00157, .00000, .00000, + .00000, .00000, .00001, + .04653, .00685, .00143, .00000, .00000, + .00000, .00000, .00001, + .04198, .00614, .00117, -.00001, .00000, + .00000, .00001, .00001, + .03845, .00559, .00100, .00000, .00000, + .00000, .00000, .00001, + .03489, .00504, .00084, .00000, .00000, + .00000, .00000, .00001, + .03159, .00453, .00071, .00000, .00000, + .00000, .00000, .00000, + .02889, .00412, .00061, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02644, .00375, .00053, .00000, .00000, + .00000, .00000, .00000, + .02458, .00347, .00047, .00000, .00000, + .00000, .00000, .00000, + .02252, .00316, .00041, .00000, .00000, + .00000, .00000, .00000, + .02086, .00292, .00037, .00000, .00000, + .00000, .00000, .00001, + .01946, .00271, .00034, .00000, .00000, + .00000, .00000, .00000, + .01783, .00247, .00030, .00000, .00000, + .00000, .00000, .00000, + .01644, .00227, .00027, .00000, .00000, + .00000, .00000, .00000, + .01525, .00209, .00024, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01415, .00193, .00022, .00000, .00000, + .00000, .00000, .00000, + .01316, .00179, .00020, .00000, .00000, + .00000, .00000, .00000, + .01229, .00166, .00018, .00000, .00000, + .00000, .00000, .00000, + .01153, .00156, .00017, .00000, .00000, + .00000, .00000, .00000, + .01082, .00145, .00015, .00000, .00000, + .00000, .00000, .00000, + .01016, .00136, .00014, .00000, .00000, + .00000, .00000, .00000, + .00958, .00128, .00013, .00000, .00000, + .00000, .00000, .00000, + .00907, .00121, .00012, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00858, .00114, .00012, .00000, .00000, + .00000, .00000, .00000, + .00812, .00108, .00011, .00000, .00000, + .00000, .00000, .00000, + .00771, .00102, .00010, .00000, .00000, + .00000, .00000, .00000, + .00735, .00097, .00010, .00000, .00000, + .00000, .00000, .00000, + .00699, .00092, .00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ + .05802, .00781, .00228, .00001, .00000, + .00000, -.00001, .00000, + .05290, .00707, .00186, .00001, .00000, + .00000, -.00001, .00000, + .04625, .00612, .00139, .00001, .00000, + .00000, -.00001, .00000, + .04198, .00553, .00114, .00001, .00000, + .00000, -.00001, .00000, + .03802, .00497, .00094, .00000, .00000, + .00000, .00000, .00000, + .03493, .00454, .00080, .00000, .00000, + .00000, .00000, .00000, + .03224, .00417, .00069, .00000, .00000, + .00000, .00000, .00001, + .02964, .00381, .00059, .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=9,16)/ + .02757, .00353, .00052, .00000, .00000, + .00000, .00000, .00000, + .02573, .00328, .00047, .00000, .00000, + .00000, .00000, .00000, + .02438, .00310, .00043, .00000, .00000, + .00000, .00000, .00000, + .02175, .00275, .00036, .00000, .00000, + .00000, .00000, .00000, + .01975, .00248, .00031, .00000, .00000, + .00000, .00000, .00000, + .01775, .00221, .00026, .00000, .00000, + .00000, .00000, .00000, + .01590, .00197, .00022, .00000, .00000, + .00000, .00000, .00000, + .01441, .00177, .00019, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01307, .00160, .00017, .00000, .00000, + .00000, .00000, .00000, + .01206, .00147, .00015, .00000, .00000, + .00000, .00000, .00000, + .01096, .00133, .00013, .00000, .00000, + .00000, .00000, .00000, + .01007, .00122, .00012, .00000, .00000, + .00000, .00000, .00000, + .00933, .00112, .00011, .00000, .00000, + .00000, .00000, .00000, + .00848, .00101, .00010, .00000, .00000, + .00000, .00000, .00000, + .00775, .00092, .00009, .00000, .00000, + .00000, .00000, .00000, + .00713, .00085, .00008, .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)/ + .00657, .00078, .00007, .00000, .00000, + .00000, .00000, .00000, + .00607, .00071, .00006, .00000, .00000, + .00000, .00000, .00000, + .00563, .00066, .00006, .00000, .00000, + .00000, .00000, .00000, + .00525, .00061, .00005, .00000, .00000, + .00000, .00000, .00000, + .00490, .00057, .00005, .00000, .00000, + .00000, .00000, .00000, + .00458, .00053, .00005, .00000, .00000, + .00000, .00000, .00000, + .00429, .00050, .00004, .00000, .00000, + .00000, .00000, .00000, + .00404, .00047, .00004, .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)/ + .00380, .00044, .00004, .00000, .00000, + .00000, .00000, .00000, + .00358, .00041, .00003, .00000, .00000, + .00000, .00000, .00000, + .00338, .00039, .00003, .00000, .00000, + .00000, .00000, .00000, + .00320, .00037, .00003, .00000, .00000, + .00000, .00000, .00000, + .00304, .00035, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .02824, .00318, .00046, .00000, .00000, + .00000, .00000, .00000, + .02548, .00285, .00039, .00000, .00000, + .00000, .00000, .00000, + .02194, .00243, .00030, .00000, .00000, + .00000, .00000, .00000, + .01971, .00217, .00025, .00000, .00000, + .00000, .00000, .00000, + .01764, .00193, .00021, .00000, .00000, + .00000, .00000, .00000, + .01606, .00175, .00019, .00000, .00000, + .00000, .00000, .00000, + .01469, .00159, .00016, .00000, .00000, + .00000, .00000, .00000, + .01338, .00144, .00014, .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)/ + .01235, .00133, .00013, .00000, .00000, + .00000, .00000, .00000, + .01144, .00122, .00012, .00000, .00000, + .00000, .00000, .00000, + .01077, .00115, .00011, .00000, .00000, + .00000, .00000, .00000, + .00949, .00100, .00009, .00000, .00000, + .00000, .00000, .00000, + .00852, .00090, .00008, .00000, .00000, + .00000, .00000, .00000, + .00757, .00079, .00007, .00000, .00000, + .00000, .00000, .00000, + .00670, .00070, .00006, .00000, .00000, + .00000, .00000, .00000, + .00601, .00062, .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=17,24)/ + .00540, .00056, .00005, .00000, .00000, + .00000, .00000, .00000, + .00494, .00051, .00004, .00000, .00000, + .00000, .00000, .00000, + .00444, .00045, .00004, .00000, .00000, + .00000, .00000, .00000, + .00404, .00041, .00003, .00000, .00000, + .00000, .00000, .00000, + .00372, .00038, .00003, .00000, .00000, + .00000, .00000, .00000, + .00334, .00034, .00003, .00000, .00000, + .00000, .00000, .00000, + .00303, .00030, .00002, .00000, .00000, + .00000, .00000, .00000, + .00276, .00028, .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=25,32)/ + .00252, .00025, .00002, .00000, .00000, + .00000, .00000, .00000, + .00231, .00023, .00002, .00000, .00000, + .00000, .00000, .00000, + .00213, .00021, .00002, .00000, .00000, + .00000, .00000, .00000, + .00197, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00182, .00018, .00001, .00000, .00000, + .00000, .00000, .00000, + .00169, .00017, .00001, .00000, .00000, + .00000, .00000, .00000, + .00158, .00015, .00001, .00000, .00000, + .00000, .00000, .00000, + .00147, .00014, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00138, .00013, .00001, .00000, .00000, + .00000, .00000, .00000, + .00129, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00121, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00114, .00011, .00001, .00000, .00000, + .00000, .00000, .00000, + .00108, .00010, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00270, .00018, .00000, .00000, .00000, + .00000, .00000, .00000, + .00237, .00016, .00000, .00000, .00000, + .00000, .00000, .00000, + .00195, .00013, .00000, .00000, .00000, + .00000, .00000, .00000, + .00170, .00011, .00000, .00000, .00000, + .00000, .00000, .00000, + .00147, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00130, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00116, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00103, .00007, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00093, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00084, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00078, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00066, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00058, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00050, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00042, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00037, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00032, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00025, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00022, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00020, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=3,file='mrschm3.dat',status='old') do 20 n=1,nx-1 do 20 m=1,nq C read(3,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