#include "pdf/pilot.h" subroutine sfmrs_99d10(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)/ + .00644, .00286, 1.15921, .88630, .00000, + .00000, .47638, .89841, + .00657, .00291, 2.40762, .92722, .00000, + .00000, .52217, .93940, + .00677, .00300, 4.86269, 1.01168, .01974, + .00000, .61359, 1.02395, + .00692, .00306, 7.27698, 1.09045, .02401, + .00000, .69728, 1.10277, + .00707, .00313, 10.27009, 1.19170, .05075, + .00000, .80353, 1.20408, + .00720, .00318, 13.20634, 1.29316, .17049, + .00000, .90916, 1.30556, + .00734, .00324, 16.50387, 1.40290, .30737, + .00000, 1.02282, 1.41534, + .00748, .00331, 20.57943, 1.53355, .45373, + .00000, 1.15754, 1.54601 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00761, .00337, 24.54548, 1.66008, .58832, + .00000, 1.28755, 1.67255, + .00773, .00342, 28.80896, 1.79382, .73158, + .00000, 1.42459, 1.80631, + .00782, .00347, 32.54614, 1.90791, .85644, + .00000, 1.54124, 1.92039, + .00803, .00357, 41.44735, 2.17811, 1.14458, + .00000, 1.81679, 2.19060, + .00821, .00365, 49.33257, 2.43853, 1.41937, + .36708, 2.08170, 2.45102, + .00842, .00376, 59.65310, 2.76356, 1.76270, + .76286, 2.41162, 2.77604, + .00864, .00387, 71.79965, 3.14034, 2.15960, + 1.17656, 2.79336, 3.15280, + .00884, .00396, 84.08485, 3.51778, 2.55634, + 1.59038, 3.17519, 3.53022 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00905, .00406, 97.76816, 3.93547, 2.99497, + 2.04602, 3.59720, 3.94788, + .00923, .00414, 110.07838, 4.31095, 3.38688, + 2.44869, 3.97620, 4.32335, + .00944, .00425, 126.17461, 4.80242, 3.89766, + 2.97160, 4.47184, 4.81477, + .00964, .00434, 141.58936, 5.27234, 4.38674, + 3.47452, 4.94536, 5.28466, + .00981, .00444, 156.71695, 5.73356, 4.86682, + 3.96848, 5.40983, 5.74585, + .01004, .00456, 177.06027, 6.35902, 5.51296, + 4.62725, 6.03932, 6.37125, + .01025, .00467, 197.58642, 6.99196, 6.16724, + 5.29607, 6.67598, 7.00415, + .01047, .00477, 218.14121, 7.62706, 6.82495, + 5.97059, 7.31447, 7.63921 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01067, .00488, 239.58248, 8.29814, 7.51443, + 6.67114, 7.98889, 8.31023, + .01087, .00498, 261.80860, 8.99615, 8.23303, + 7.40406, 8.69010, 9.00820, + .01108, .00508, 283.91061, 9.69455, 8.95158, + 8.13683, 9.39146, 9.70655, + .01127, .00518, 305.47799, 10.38335, 9.65762, + 8.85422, 10.08302, 10.39530, + .01145, .00528, 328.26726, 11.11291, 10.40737, + 9.61879, 10.81529, 11.12481, + .01164, .00538, 351.22649, 11.85802, 11.16915, + 10.39142, 11.56303, 11.86987, + .01183, .00548, 374.15233, 12.60304, 11.93334, + 11.16985, 12.31052, 12.61485, + .01200, .00556, 396.20929, 13.32985, 12.67524, + 11.92178, 13.03961, 13.34159 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01218, .00566, 419.40595, 14.09609, 13.45915, + 12.71862, 13.80814, 14.10780, + .01236, .00575, 442.78589, 14.87669, 14.25583, + 13.52662, 14.59096, 14.88834, + .01253, .00584, 465.76421, 15.64879, 15.04377, + 14.32590, 15.36515, 15.66041, + .01269, .00593, 488.24113, 16.40782, 15.81886, + 15.11304, 16.12613, 16.41940, + .01286, .00602, 511.21274, 17.19330, 16.61826, + 15.92222, 16.91356, 17.20483 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00875, .00395, 1.06964, .75187, .00000, + .00000, .40415, .75898, + .00893, .00403, 2.19535, .78957, .00000, + .00000, .44561, .79671, + .00920, .00415, 4.35972, .86402, .01802, + .00000, .52547, .87121, + .00940, .00424, 6.44656, .93172, .02149, + .00000, .59698, .93893, + .00962, .00434, 8.99044, 1.01714, .04392, + .00000, .68625, 1.02438, + .00981, .00443, 11.44899, 1.10164, .14346, + .00000, .77397, 1.10890, + .00999, .00452, 14.17711, 1.19223, .25664, + .00000, .86759, 1.19950, + .01017, .00461, 17.50962, 1.29921, .37624, + .00000, .97769, 1.30648 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .01034, .00469, 20.71570, 1.40191, .48524, + .00000, 1.08308, 1.40919, + .01052, .00477, 24.12906, 1.50974, .60046, + .00000, 1.19344, 1.51702, + .01064, .00483, 27.09760, 1.60127, .70031, + .00000, 1.28695, 1.60857, + .01093, .00497, 34.09254, 1.81629, .92877, + .00000, 1.50608, 1.82359, + .01118, .00510, 40.18456, 2.02165, 1.14454, + .28878, 1.71488, 2.02895, + .01147, .00524, 48.07370, 2.27579, 1.41175, + .59731, 1.97278, 2.28308, + .01177, .00539, 57.24030, 2.56773, 1.71775, + .91609, 2.26852, 2.57501, + .01205, .00552, 66.40055, 2.85768, 2.02096, + 1.23211, 2.56186, 2.86495 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01233, .00567, 76.49078, 3.17602, 2.35350, + 1.57714, 2.88351, 3.18328, + .01256, .00579, 85.47780, 3.46011, 2.64840, + 1.87969, 3.17030, 3.46736, + .01285, .00594, 97.11393, 3.82927, 3.02994, + 2.26964, 3.54265, 3.83650, + .01311, .00608, 108.15137, 4.17975, 3.39272, + 2.64206, 3.89591, 4.18697, + .01335, .00620, 118.89272, 4.52160, 3.74664, + 3.00557, 4.24024, 4.52880, + .01366, .00636, 133.20189, 4.98188, 4.21951, + 3.48671, 4.70361, 4.98905, + .01396, .00651, 147.50503, 5.44433, 4.69501, + 3.97180, 5.16891, 5.45150, + .01423, .00666, 161.70784, 5.90538, 5.17001, + 4.45800, 5.63257, 5.91251 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01452, .00681, 176.39184, 6.38923, 5.66448, + 4.95928, 6.11897, 6.39634, + .01480, .00696, 191.49708, 6.88948, 6.17687, + 5.48079, 6.62167, 6.89656, + .01507, .00710, 206.40661, 7.38708, 6.68631, + 5.99923, 7.12156, 7.39415, + .01532, .00723, 220.84823, 7.87504, 7.18400, + 6.50378, 7.61164, 7.88209, + .01557, .00737, 236.01473, 8.38934, 7.71004, + 7.03912, 8.12802, 8.39636, + .01583, .00750, 251.18331, 8.91163, 8.24145, + 7.57688, 8.65233, 8.91863, + .01608, .00763, 266.24741, 9.43153, 8.77233, + 8.11654, 9.17412, 9.43851, + .01631, .00775, 280.64375, 9.93611, 9.28500, + 8.63496, 9.68045, 9.94306 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01655, .00788, 295.70942, 10.46589, 9.82462, + 9.18236, 10.21199, 10.47283, + .01678, .00800, 310.80340, 11.00307, 10.37047, + 9.73477, 10.75087, 11.00998, + .01701, .00813, 325.56158, 11.53219, 10.90814, + 10.27902, 11.28160, 11.53908, + .01723, .00825, 339.93023, 12.05035, 11.43510, + 10.81309, 11.80128, 12.05723, + .01745, .00836, 354.53256, 12.58425, 11.97617, + 11.35957, 12.33667, 12.59110 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01187, .00545, .98611, .63807, .00000, + .00000, .34343, .64172, + .01212, .00557, 2.00106, .67247, .00000, + .00000, .38075, .67614, + .01250, .00574, 3.90794, .73789, .01663, + .00000, .45034, .74157, + .01277, .00588, 5.71032, .79594, .01935, + .00000, .51134, .79963, + .01307, .00603, 7.86979, .86786, .03807, + .00000, .58622, .87155, + .01333, .00615, 9.92496, .93808, .12069, + .00000, .65892, .94177, + .01358, .00627, 12.17764, 1.01270, .21417, + .00000, .73586, 1.01639, + .01384, .00641, 14.89659, 1.10006, .31176, + .00000, .82563, 1.10376 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01407, .00653, 17.48186, 1.18319, .39990, + .00000, .91082, 1.18689, + .01430, .00663, 20.20714, 1.26987, .49241, + .00000, .99943, 1.27357, + .01448, .00673, 22.55831, 1.34308, .57214, + .00000, 1.07416, 1.34678, + .01487, .00693, 28.03826, 1.51362, .75295, + .00000, 1.24784, 1.51732, + .01521, .00711, 32.72708, 1.67499, .92208, + .22658, 1.41184, 1.67870, + .01560, .00731, 38.73340, 1.87295, 1.12962, + .46687, 1.61267, 1.87665, + .01601, .00752, 45.62123, 2.09826, 1.36506, + .71224, 1.84088, 2.10195, + .01639, .00771, 52.41979, 2.32010, 1.59627, + .95329, 2.06529, 2.32378 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01677, .00792, 59.82397, 2.56169, 1.84776, + 1.21423, 2.30941, 2.56537, + .01709, .00809, 66.35098, 2.77568, 2.06910, + 1.44123, 2.52544, 2.77935, + .01749, .00830, 74.71708, 3.05170, 2.35333, + 1.73158, 2.80389, 3.05537, + .01784, .00848, 82.57549, 3.31187, 2.62167, + 2.00691, 3.06617, 3.31554, + .01817, .00866, 90.15766, 3.56403, 2.88178, + 2.27392, 3.32021, 3.56769, + .01859, .00888, 100.16024, 3.90106, 3.22676, + 2.62463, 3.65960, 3.90472, + .01899, .00908, 110.06274, 4.23724, 3.57118, + 2.97572, 3.99794, 4.24090, + .01937, .00929, 119.81132, 4.57020, 3.91305, + 3.32538, 4.33288, 4.57384 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01975, .00950, 129.79740, 4.91717, 4.26636, + 3.68317, 4.68179, 4.92082, + .02012, .00969, 139.98956, 5.27374, 4.63035, + 4.05328, 5.04022, 5.27737, + .02048, .00988, 149.97282, 5.62632, 4.99012, + 4.41906, 5.39453, 5.62995, + .02082, .01007, 159.56854, 5.97003, 5.33950, + 4.77287, 5.73985, 5.97365, + .02117, .01026, 169.58317, 6.33049, 5.70707, + 5.14658, 6.10189, 6.33411, + .02151, .01044, 179.52271, 6.69442, 6.07614, + 5.51962, 6.46736, 6.69804, + .02184, .01062, 189.33952, 7.05508, 6.44332, + 5.89252, 6.82944, 7.05868, + .02215, .01080, 198.65490, 7.40322, 6.79593, + 6.24868, 7.17893, 7.40682 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02247, .01097, 208.35473, 7.76725, 7.16567, + 6.62336, 7.54429, 7.77085, + .02279, .01114, 218.01134, 8.13458, 7.53784, + 6.99958, 7.91292, 8.13818, + .02309, .01130, 227.40339, 8.49487, 7.90292, + 7.36873, 8.27443, 8.49848, + .02338, .01146, 236.50350, 8.84634, 8.25940, + 7.72966, 8.62705, 8.84994, + .02367, .01162, 245.69586, 9.20684, 8.62371, + 8.09718, 8.98869, 9.21043 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01420, .00658, .93972, .57988, .00000, + .00000, .31261, .58213, + .01449, .00673, 1.89510, .61236, .00000, + .00000, .34760, .61460, + .01494, .00695, 3.66528, .67287, .01597, + .00000, .41171, .67511, + .01528, .00712, 5.31902, .72583, .01828, + .00000, .46719, .72808, + .01564, .00730, 7.27999, .79077, .03505, + .00000, .53470, .79302, + .01595, .00745, 9.12915, .85370, .10908, + .00000, .59974, .85595, + .01624, .00761, 11.14117, .92021, .19257, + .00000, .66824, .92245, + .01655, .00778, 13.55232, .99769, .27913, + .00000, .74778, .99993 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01684, .00792, 15.82880, 1.07102, .35690, + .00000, .82288, 1.07326, + .01711, .00806, 18.21441, 1.14718, .43817, + .00000, .90068, 1.14941, + .01733, .00817, 20.26268, 1.21130, .50799, + .00000, .96611, 1.21354, + .01779, .00841, 25.00559, 1.35992, .66549, + .00000, 1.11742, 1.36217, + .01820, .00863, 29.02098, 1.49980, .81199, + .19622, 1.25953, 1.50203, + .01868, .00887, 34.13096, 1.67047, .99081, + .40367, 1.43266, 1.67271, + .01916, .00914, 39.94489, 1.86367, 1.19250, + .61404, 1.62833, 1.86591, + .01962, .00937, 45.64119, 2.05291, 1.38954, + .81961, 1.81976, 2.05515 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .02008, .00962, 51.80277, 2.25800, 1.60281, + 1.04101, 2.02701, 2.26025, + .02047, .00983, 57.20083, 2.43886, 1.78967, + 1.23272, 2.20961, 2.44110, + .02094, .01008, 64.07807, 2.67110, 2.02855, + 1.47682, 2.44392, 2.67336, + .02136, .01030, 70.50017, 2.88910, 2.25311, + 1.70730, 2.66371, 2.89135, + .02176, .01052, 76.66462, 3.09957, 2.46998, + 1.92998, 2.87579, 3.10182, + .02225, .01078, 84.74927, 3.37966, 2.75632, + 2.22111, 3.15787, 3.38191, + .02272, .01105, 92.70690, 3.65785, 3.04099, + 2.51131, 3.43790, 3.66011, + .02317, .01128, 100.50042, 3.93229, 3.32247, + 2.79926, 3.71401, 3.93454 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02363, .01153, 108.43895, 4.21709, 3.61211, + 3.09256, 4.00046, 4.21935, + .02407, .01178, 116.50323, 4.50870, 3.90945, + 3.39491, 4.29365, 4.51096, + .02450, .01201, 124.36579, 4.79604, 4.20234, + 3.69270, 4.58246, 4.79830, + .02491, .01223, 131.88777, 5.07516, 4.48574, + 3.97968, 4.86294, 5.07742, + .02531, .01245, 139.70894, 5.36702, 4.78306, + 4.28198, 5.15615, 5.36929, + .02572, .01268, 147.43514, 5.66067, 5.08052, + 4.58260, 5.45110, 5.66293, + .02612, .01289, 155.04083, 5.95088, 5.37573, + 4.88242, 5.74254, 5.95316, + .02648, .01310, 162.22683, 6.23014, 5.65826, + 5.16775, 6.02294, 6.23242 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02686, .01330, 169.68690, 6.52144, 5.95385, + 5.46729, 6.31536, 6.52373, + .02723, .01351, 177.08502, 6.81451, 6.25051, + 5.76715, 6.60954, 6.81681, + .02760, .01371, 184.25737, 7.10124, 6.54079, + 6.06065, 6.89731, 7.10354, + .02794, .01390, 191.18652, 7.38031, 6.82360, + 6.34698, 7.17735, 7.38261, + .02829, .01409, 198.15988, 7.66577, 7.11180, + 6.63769, 7.46377, 7.66807 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01611, .00753, .90796, .54197, .00000, + .00000, .29265, .54345, + .01646, .00770, 1.82327, .57310, .00000, + .00000, .32602, .57457, + .01696, .00797, 3.50225, .63026, .01558, + .00000, .38642, .63174, + .01735, .00816, 5.05775, .67985, .01759, + .00000, .43830, .68133, + .01775, .00837, 6.88852, .74021, .03307, + .00000, .50093, .74167, + .01810, .00855, 8.60351, .79837, .10150, + .00000, .56101, .79984, + .01845, .00873, 10.45964, .85961, .17853, + .00000, .62403, .86108, + .01881, .00891, 12.67249, .93070, .25797, + .00000, .69698, .93217 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01913, .00908, 14.75115, .99773, .32908, + .00000, .76558, .99920, + .01944, .00925, 16.92014, 1.06713, .40317, + .00000, .83646, 1.06859, + .01968, .00937, 18.77601, 1.12543, .46667, + .00000, .89593, 1.12690, + .02021, .00966, 23.05325, 1.26011, .60941, + .00000, 1.03302, 1.26158, + .02068, .00991, 26.64686, 1.38634, .74161, + .17695, 1.16126, 1.38782, + .02122, .01019, 31.19819, 1.53981, .90238, + .36378, 1.31692, 1.54129, + .02177, .01049, 36.34717, 1.71284, 1.08298, + .55230, 1.49216, 1.71431, + .02228, .01076, 41.36501, 1.88169, 1.25874, + .73581, 1.66295, 1.88317 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02281, .01105, 46.76607, 2.06405, 1.44834, + .93277, 1.84725, 2.06554, + .02325, .01129, 51.47665, 2.22435, 1.61389, + 1.10270, 2.00910, 2.22584, + .02379, .01157, 57.45177, 2.42956, 1.82487, + 1.31839, 2.21615, 2.43105, + .02426, .01183, 63.00780, 2.62157, 2.02260, + 1.52144, 2.40977, 2.62308, + .02471, .01208, 68.32113, 2.80646, 2.21305, + 1.71708, 2.59609, 2.80797, + .02528, .01238, 75.25975, 3.05175, 2.46369, + 1.97201, 2.84316, 3.05326, + .02582, .01268, 82.06081, 3.29459, 2.71209, + 2.22534, 3.08764, 3.29612, + .02632, .01296, 88.69679, 3.53351, 2.95705, + 2.47602, 3.32806, 3.53504 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02683, .01324, 95.42850, 3.78069, 3.20832, + 2.73053, 3.57670, 3.78222, + .02734, .01351, 102.24357, 4.03313, 3.46563, + 2.99227, 3.83056, 4.03468, + .02782, .01378, 108.86595, 4.28123, 3.71844, + 3.24939, 4.07998, 4.28280, + .02828, .01404, 115.17984, 4.52163, 3.96242, + 3.49651, 4.32159, 4.52320, + .02875, .01429, 121.72715, 4.77248, 4.21789, + 3.75634, 4.57363, 4.77406, + .02920, .01455, 128.17264, 5.02422, 4.47279, + 4.01400, 4.82654, 5.02581, + .02964, .01479, 134.50280, 5.27254, 4.72532, + 4.27055, 5.07595, 5.27414, + .03006, .01502, 140.46421, 5.51094, 4.96642, + 4.51409, 5.31535, 5.51254 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .03048, .01526, 146.63986, 5.75917, 5.21825, + 4.76934, 5.56460, 5.76079, + .03091, .01549, 152.74671, 6.00839, 5.47044, + 5.02431, 5.81481, 6.01002, + .03131, .01571, 158.65339, 6.25179, 5.71678, + 5.27343, 6.05913, 6.25343, + .03170, .01593, 164.34764, 6.48828, 5.95639, + 5.51609, 6.29648, 6.48992, + .03209, .01615, 170.06252, 6.72970, 6.20006, + 5.76192, 6.53877, 6.73136 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01777, .00837, .88425, .51437, .00000, + .00000, .27813, .51534, + .01815, .00855, 1.76971, .54443, .00000, + .00000, .31029, .54541, + .01872, .00885, 3.38104, .59911, .01531, + .00000, .36795, .60008, + .01915, .00907, 4.86420, .64620, .01708, + .00000, .41713, .64717, + .01960, .00931, 6.59965, .70318, .03161, + .00000, .47623, .70415, + .01999, .00951, 8.21699, .75788, .09597, + .00000, .53268, .75884, + .02035, .00971, 9.96017, .81529, .16830, + .00000, .59174, .81626, + .02076, .00992, 12.02985, .88175, .24260, + .00000, .65990, .88273 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .02112, .01010, 13.96625, .94424, .30890, + .00000, .72383, .94521, + .02146, .01028, 15.98002, 1.00877, .37784, + .00000, .78974, 1.00975, + .02173, .01043, 17.69841, 1.06290, .43681, + .00000, .84494, 1.06389, + .02232, .01074, 21.64418, 1.18759, .56899, + .00000, .97183, 1.18857, + .02284, .01103, 24.93999, 1.30408, .69104, + .16318, 1.09019, 1.30508, + .02342, .01134, 29.09822, 1.44531, .83899, + .33538, 1.23342, 1.44631, + .02405, .01168, 33.78132, 1.60404, 1.00469, + .50848, 1.39418, 1.60504, + .02461, .01199, 38.32592, 1.75849, 1.16547, + .67647, 1.55043, 1.75951 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02519, .01229, 43.19866, 1.92485, 1.33842, + .85625, 1.71856, 1.92587, + .02567, .01256, 47.43348, 2.07071, 1.48906, + 1.01097, 1.86585, 2.07175, + .02626, .01289, 52.78640, 2.25697, 1.68055, + 1.20685, 2.05381, 2.25802, + .02679, .01318, 57.74733, 2.43085, 1.85961, + 1.39081, 2.22915, 2.43190, + .02728, .01344, 62.47764, 2.59792, 2.03168, + 1.56767, 2.39754, 2.59898, + .02791, .01379, 68.63394, 2.81900, 2.25757, + 1.79753, 2.62025, 2.82008, + .02850, .01411, 74.64829, 3.03736, 2.48092, + 2.02542, 2.84013, 3.03846, + .02905, .01442, 80.49935, 3.25171, 2.70069, + 2.25044, 3.05586, 3.25282 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02962, .01473, 86.41550, 3.47297, 2.92557, + 2.47831, 3.27846, 3.47409, + .03017, .01504, 92.38881, 3.69846, 3.15540, + 2.71219, 3.50524, 3.69960, + .03071, .01534, 98.17788, 3.91965, 3.38076, + 2.94148, 3.72764, 3.92080, + .03121, .01561, 103.68221, 4.13353, 3.59783, + 3.16142, 3.94263, 4.13470, + .03172, .01590, 109.37799, 4.35634, 3.82473, + 3.39229, 4.16653, 4.35752, + .03222, .01618, 114.96969, 4.57950, 4.05067, + 3.62075, 4.39076, 4.58069, + .03271, .01645, 120.45120, 4.79930, 4.27421, + 3.84794, 4.61156, 4.80051, + .03316, .01671, 125.60004, 5.00992, 4.48719, + 4.06315, 4.82312, 5.01115 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03363, .01697, 130.92490, 5.22894, 4.70939, + 4.28846, 5.04306, 5.23018, + .03409, .01722, 136.17852, 5.44847, 4.93152, + 4.51311, 5.26349, 5.44973, + .03454, .01747, 141.25046, 5.66255, 5.14820, + 4.73230, 5.47842, 5.66383, + .03496, .01771, 146.13185, 5.87029, 5.35868, + 4.94554, 5.68696, 5.87158, + .03540, .01795, 151.01980, 6.08204, 5.57239, + 5.16121, 5.89950, 6.08333 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02419, .01165, .81414, .43800, .00000, + .00000, .23846, .43817, + .02470, .01193, 1.61363, .46478, .00000, + .00000, .26689, .46497, + .02548, .01233, 3.03118, .51208, .01470, + .00000, .31653, .51227, + .02606, .01265, 4.30967, .55196, .01574, + .00000, .35806, .55216, + .02667, .01298, 5.77773, .59942, .02751, + .00000, .40718, .59962, + .02720, .01327, 7.12310, .64439, .08052, + .00000, .45352, .64461, + .02771, .01354, 8.55386, .69117, .13983, + .00000, .50158, .69139, + .02826, .01384, 10.23060, .74484, .19997, + .00000, .55659, .74507 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02874, .01410, 11.77924, .79483, .25316, + .00000, .60772, .79507, + .02920, .01436, 13.37247, .84608, .30807, + .00000, .66004, .84634, + .02957, .01457, 14.72028, .88886, .35477, + .00000, .70365, .88912, + .03037, .01500, 17.77885, .98651, .45854, + .00000, .80303, .98681, + .03107, .01540, 20.28536, 1.07688, .55339, + .12597, .89482, 1.07719, + .03188, .01584, 23.40845, 1.18542, .66733, + .25930, 1.00493, 1.18574, + .03271, .01631, 26.87546, 1.30621, .79367, + .39170, 1.12731, 1.30657, + .03348, .01674, 30.19462, 1.42266, .91512, + .51900, 1.24516, 1.42305 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03427, .01718, 33.70937, 1.54705, 1.04464, + .65403, 1.37091, 1.54746, + .03492, .01754, 36.72932, 1.65523, 1.15654, + .76928, 1.48020, 1.65568, + .03572, .01799, 40.50425, 1.79231, 1.29767, + .91403, 1.61859, 1.79278, + .03644, .01839, 43.96534, 1.91930, 1.42862, + 1.04894, 1.74672, 1.91980, + .03709, .01877, 47.23445, 2.04049, 1.55365, + 1.17779, 1.86893, 2.04102, + .03794, .01924, 51.44261, 2.19964, 1.71645, + 1.34384, 2.02934, 2.20020, + .03874, .01969, 55.51021, 2.35561, 1.87619, + 1.50724, 2.18647, 2.35620, + .03949, .02011, 59.43000, 2.50766, 2.03231, + 1.66749, 2.33959, 2.50828 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .04025, .02054, 63.35131, 2.66340, 2.19079, + 1.82843, 2.49638, 2.66407, + .04099, .02096, 67.27637, 2.82113, 2.35176, + 1.99262, 2.65510, 2.82182, + .04170, .02137, 71.04786, 2.97487, 2.50859, + 2.15256, 2.80977, 2.97559, + .04237, .02175, 74.60186, 3.12257, 2.65866, + 2.30495, 2.95833, 3.12332, + .04305, .02213, 78.25466, 3.27564, 2.81477, + 2.46416, 3.11225, 3.27642, + .04373, .02252, 81.80811, 3.42796, 2.96916, + 2.62060, 3.26540, 3.42878, + .04437, .02288, 85.27114, 3.57730, 3.12125, + 2.77552, 3.41551, 3.57815, + .04498, .02323, 88.49607, 3.71955, 3.26526, + 2.92133, 3.55848, 3.72043 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04561, .02359, 91.81332, 3.86683, 3.41488, + 3.07338, 3.70648, 3.86774, + .04622, .02393, 95.06154, 4.01368, 3.56365, + 3.22415, 3.85402, 4.01462, + .04681, .02427, 98.17837, 4.15624, 3.70812, + 3.37060, 3.99723, 4.15720, + .04737, .02458, 101.16196, 4.29398, 3.84789, + 3.51251, 4.13560, 4.29498, + .04794, .02491, 104.12711, 4.43368, 3.98903, + 3.65522, 4.27591, 4.43470 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .03305, .01633, .75212, .37461, .00000, + .00000, .20613, .37487, + .03374, .01670, 1.47542, .39809, .00000, + .00000, .23095, .39838, + .03478, .01727, 2.72150, .43845, .01442, + .00000, .27322, .43878, + .03557, .01771, 3.82201, .47184, .01467, + .00000, .30794, .47220, + .03640, .01816, 5.06053, .51096, .02395, + .00000, .34840, .51134, + .03710, .01856, 6.17534, .54757, .06727, + .00000, .38611, .54799, + .03779, .01895, 7.34408, .58531, .11556, + .00000, .42490, .58575, + .03853, .01937, 8.69479, .62824, .16389, + .00000, .46890, .62872 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03918, .01974, 9.92529, .66785, .20622, + .00000, .50942, .66836, + .03981, .02009, 11.17674, .70817, .24962, + .00000, .55061, .70871, + .04031, .02038, 12.22572, .74165, .28633, + .00000, .58475, .74220, + .04139, .02099, 14.57653, .81739, .36718, + .00000, .66188, .81799, + .04234, .02154, 16.46521, .88678, .44034, + .09567, .73244, .88743, + .04342, .02216, 18.78547, .96935, .52740, + .19826, .81626, .97006, + .04455, .02280, 21.32188, 1.06032, .62295, + .29885, .90851, 1.06110, + .04559, .02340, 23.71514, 1.14721, .71394, + .39466, .99651, 1.14804 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04664, .02401, 26.21585, 1.23919, .81011, + .49537, 1.08959, 1.24006, + .04753, .02451, 28.33830, 1.31853, .89251, + .58059, 1.16983, 1.31946, + .04860, .02513, 30.95964, 1.41825, .99557, + .68674, 1.27060, 1.41923, + .04957, .02569, 33.33548, 1.50990, 1.09046, + .78492, 1.36318, 1.51094, + .05045, .02620, 35.55685, 1.59677, 1.18042, + .87802, 1.45087, 1.59786, + .05157, .02685, 38.38230, 1.70990, 1.29656, + .99698, 1.56501, 1.71105, + .05264, .02746, 41.08218, 1.81990, 1.40963, + 1.11311, 1.67595, 1.82110, + .05366, .02804, 43.65758, 1.92635, 1.51935, + 1.22621, 1.78326, 1.92762 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05466, .02863, 46.20367, 2.03453, 1.62980, + 1.33881, 1.89227, 2.03585, + .05566, .02921, 48.72850, 2.14333, 1.74124, + 1.45295, 2.00189, 2.14472, + .05660, .02976, 51.13197, 2.24869, 1.84912, + 1.56341, 2.10800, 2.25014, + .05750, .03028, 53.37441, 2.34922, 1.95162, + 1.66790, 2.20923, 2.35072, + .05841, .03080, 55.66261, 2.45286, 2.05768, + 1.77651, 2.31355, 2.45441, + .05931, .03131, 57.86554, 2.55528, 2.16183, + 1.88244, 2.41663, 2.55689, + .06016, .03181, 59.99917, 2.65520, 2.26397, + 1.98691, 2.51719, 2.65687, + .06097, .03227, 61.96654, 2.74978, 2.36003, + 2.08453, 2.61234, 2.75149 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06179, .03274, 63.97870, 2.84727, 2.45941, + 2.18592, 2.71042, 2.84903, + .06260, .03322, 65.93201, 2.94391, 2.55764, + 2.28586, 2.80762, 2.94572, + .06339, .03367, 67.79377, 3.03727, 2.65258, + 2.38247, 2.90152, 3.03914, + .06413, .03410, 69.56535, 3.12710, 2.74406, + 2.47571, 2.99186, 3.12901, + .06488, .03453, 71.31043, 3.21769, 2.83589, + 2.56891, 3.08295, 3.21965 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03974, .01994, .72282, .34291, .00000, + .00000, .19024, .34356, + .04055, .02038, 1.40579, .36444, .00000, + .00000, .21297, .36513, + .04178, .02107, 2.56049, .40092, .01435, + .00000, .25116, .40169, + .04271, .02161, 3.56725, .43079, .01412, + .00000, .28223, .43160, + .04368, .02217, 4.68602, .46549, .02203, + .00000, .31812, .46635, + .04453, .02264, 5.68174, .49775, .06031, + .00000, .35138, .49865, + .04535, .02312, 6.71629, .53083, .10293, + .00000, .38540, .53178, + .04622, .02361, 7.90152, .56828, .14522, + .00000, .42380, .56926 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04700, .02406, 8.97201, .60263, .18206, + .00000, .45898, .60367, + .04774, .02450, 10.05289, .63745, .21969, + .00000, .49457, .63853, + .04835, .02484, 10.95372, .66626, .25141, + .00000, .52399, .66739, + .04962, .02558, 12.95670, .73115, .32090, + .00000, .59013, .73234, + .05076, .02625, 14.54675, .79024, .38342, + .08053, .65025, .79149, + .05204, .02698, 16.48184, .86015, .45738, + .16811, .72129, .86149, + .05340, .02777, 18.57678, .93672, .53808, + .25335, .79901, .93813, + .05462, .02850, 20.53550, 1.00941, .61448, + .33407, .87272, 1.01090 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05589, .02922, 22.56501, 1.08597, .69479, + .41845, .95027, 1.08753, + .05693, .02983, 24.27419, 1.15167, .76325, + .48949, 1.01678, 1.15330, + .05821, .03058, 26.36907, 1.23383, .84844, + .57752, 1.09989, 1.23555, + .05935, .03124, 28.25396, 1.30900, .92651, + .65856, 1.17588, 1.31079, + .06039, .03186, 30.00499, 1.37993, 1.00021, + .73508, 1.24755, 1.38179, + .06173, .03264, 32.21513, 1.47183, 1.09486, + .83234, 1.34038, 1.47378, + .06300, .03338, 34.31164, 1.56075, 1.18657, + .92683, 1.43015, 1.56278, + .06419, .03408, 36.29862, 1.64644, 1.27516, + 1.01846, 1.51661, 1.64853 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06538, .03478, 38.24785, 1.73305, 1.36387, + 1.10918, 1.60399, 1.73524, + .06656, .03547, 40.16936, 1.81983, 1.45302, + 1.20079, 1.69150, 1.82210, + .06768, .03611, 41.98753, 1.90351, 1.53897, + 1.28908, 1.77587, 1.90584, + .06873, .03673, 43.67280, 1.98302, 1.62028, + 1.37223, 1.85601, 1.98543, + .06981, .03735, 45.38465, 2.06472, 1.70415, + 1.45840, 1.93833, 2.06719, + .07086, .03797, 47.02125, 2.14509, 1.78613, + 1.54205, 2.01931, 2.14764, + .07186, .03856, 48.60032, 2.22329, 1.86631, + 1.62432, 2.09809, 2.22591, + .07282, .03910, 50.04653, 2.29700, 1.94140, + 1.70087, 2.17232, 2.29967 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07378, .03967, 51.52039, 2.37276, 2.01888, + 1.78018, 2.24863, 2.37551, + .07473, .04022, 52.94282, 2.44760, 2.09518, + 1.85804, 2.32397, 2.45041, + .07565, .04075, 54.29262, 2.51968, 2.16870, + 1.93310, 2.39655, 2.52256, + .07652, .04126, 55.57205, 2.58886, 2.23936, + 2.00536, 2.46619, 2.59180, + .07741, .04177, 56.82463, 2.65836, 2.31002, + 2.07730, 2.53615, 2.66136 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .04529, .02296, .70884, .32227, .00000, + .00000, .18006, .32344, + .04620, .02348, 1.36472, .34242, .00000, + .00000, .20133, .34364, + .04757, .02426, 2.45779, .37628, .01428, + .00000, .23676, .37756, + .04864, .02487, 3.40160, .40381, .01370, + .00000, .26538, .40516, + .04974, .02551, 4.44050, .43559, .02069, + .00000, .29829, .43699, + .05068, .02606, 5.35729, .46501, .05567, + .00000, .32862, .46647, + .05162, .02661, 6.30339, .49507, .09456, + .00000, .35955, .49658, + .05262, .02719, 7.38027, .52896, .13291, + .00000, .39433, .53053 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .05348, .02770, 8.34661, .55995, .16621, + .00000, .42607, .56156, + .05433, .02819, 9.31708, .59125, .20010, + .00000, .45810, .59292, + .05501, .02859, 10.12240, .61711, .22862, + .00000, .48451, .61881, + .05646, .02944, 11.90269, .67507, .29084, + .00000, .54364, .67687, + .05774, .03019, 13.30308, .72765, .34659, + .07089, .59717, .72952, + .05920, .03106, 14.99522, .78959, .41228, + .14896, .66018, .79156, + .06072, .03195, 16.81389, .85711, .48361, + .22450, .72876, .85918, + .06211, .03277, 18.50262, .92096, .55085, + .29574, .79356, .92311 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06354, .03361, 20.24130, .98792, .62128, + .36994, .86144, .99016, + .06472, .03431, 21.69699, 1.04517, .68108, + .43216, .91946, 1.04750, + .06616, .03516, 23.47085, 1.11651, .75522, + .50896, .99168, 1.11894, + .06744, .03592, 25.05812, 1.18154, .82292, + .57944, 1.05748, 1.18404, + .06862, .03661, 26.52553, 1.24270, .88662, + .64576, 1.11934, 1.24528, + .07014, .03750, 28.36678, 1.32164, .96813, + .72973, 1.19915, 1.32434, + .07156, .03833, 30.10370, 1.39775, 1.04680, + .81101, 1.27605, 1.40054, + .07289, .03913, 31.74181, 1.47084, 1.12256, + .88958, 1.34987, 1.47372 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07424, .03991, 33.33921, 1.54446, 1.19813, + .96707, 1.42421, 1.54743, + .07556, .04069, 34.90677, 1.61796, 1.27384, + 1.04508, 1.49841, 1.62104, + .07682, .04143, 36.38318, 1.68865, 1.34662, + 1.12004, 1.56973, 1.69180, + .07801, .04213, 37.74469, 1.75558, 1.41523, + 1.19040, 1.63726, 1.75882, + .07921, .04282, 39.12288, 1.82418, 1.48584, + 1.26314, 1.70646, 1.82750, + .08039, .04351, 40.43328, 1.89145, 1.55462, + 1.33351, 1.77430, 1.89487, + .08151, .04418, 41.69398, 1.95676, 1.62176, + 1.40259, 1.84015, 1.96025, + .08258, .04480, 42.84239, 2.01812, 1.68442, + 1.46664, 1.90202, 2.02169 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08365, .04543, 44.00960, 2.08108, 1.74897, + 1.53290, 1.96548, 2.08472, + .08472, .04605, 45.13085, 2.14309, 1.81235, + 1.59776, 2.02798, 2.14680, + .08575, .04665, 46.19116, 2.20268, 1.87329, + 1.66014, 2.08803, 2.20647, + .08672, .04722, 47.19318, 2.25975, 1.93174, + 1.72007, 2.14553, 2.26360, + .08769, .04778, 48.16921, 2.31694, 1.99002, + 1.77958, 2.20316, 2.32087 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .05015, .02574, .70533, .30816, .00000, + .00000, .17282, .30941, + .05116, .02631, 1.34069, .32723, .00000, + .00000, .19292, .32854, + .05268, .02720, 2.38704, .35907, .01416, + .00000, .22620, .36045, + .05383, .02788, 3.28315, .38479, .01332, + .00000, .25296, .38625, + .05505, .02858, 4.26166, .41439, .01963, + .00000, .28357, .41592, + .05610, .02920, 5.11912, .44168, .05213, + .00000, .31171, .44328, + .05712, .02981, 5.99898, .46947, .08824, + .00000, .34031, .47114, + .05822, .03045, 6.99492, .50074, .12368, + .00000, .37241, .50248 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05918, .03102, 7.88386, .52924, .15436, + .00000, .40160, .53103, + .06012, .03158, 8.77255, .55795, .18551, + .00000, .43099, .55981, + .06087, .03202, 9.50732, .58161, .21167, + .00000, .45517, .58352, + .06247, .03297, 11.12389, .63454, .26858, + .00000, .50917, .63655, + .06388, .03381, 12.38577, .68238, .31939, + .06392, .55790, .68448, + .06548, .03475, 13.90154, .73853, .37906, + .13505, .61505, .74075, + .06716, .03574, 15.52078, .79953, .44362, + .20357, .67704, .80186, + .06870, .03666, 17.01565, .85700, .50426, + .26796, .73540, .85944 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07025, .03758, 18.54650, .91707, .56757, + .33480, .79634, .91962, + .07155, .03835, 19.82182, .96829, .62116, + .39066, .84826, .97093, + .07314, .03929, 21.36821, 1.03189, .68738, + .45943, .91270, 1.03464, + .07454, .04012, 22.74554, 1.08970, .74769, + .52233, .97123, 1.09254, + .07585, .04089, 24.01369, 1.14394, .80428, + .58138, 1.02612, 1.14687, + .07750, .04186, 25.59698, 1.21371, .87645, + .65589, 1.09671, 1.21677, + .07905, .04278, 27.08358, 1.28077, .94590, + .72780, 1.16452, 1.28394, + .08052, .04365, 28.47983, 1.34499, 1.01261, + .79714, 1.22943, 1.34827 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08199, .04451, 29.83414, 1.40947, 1.07891, + .86527, 1.29458, 1.41285, + .08343, .04536, 31.15809, 1.47368, 1.14520, + .93372, 1.35946, 1.47717, + .08481, .04616, 32.40022, 1.53527, 1.20874, + .99931, 1.42165, 1.53886, + .08609, .04692, 33.54046, 1.59343, 1.26848, + 1.06071, 1.48038, 1.59712, + .08741, .04769, 34.69123, 1.65292, 1.32985, + 1.12407, 1.54043, 1.65670, + .08868, .04844, 35.78031, 1.71110, 1.38945, + 1.18519, 1.59915, 1.71498, + .08992, .04916, 36.82553, 1.76747, 1.44753, + 1.24508, 1.65603, 1.77144, + .09108, .04984, 37.77323, 1.82030, 1.50159, + 1.30047, 1.70934, 1.82435 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09224, .05051, 38.73423, 1.87441, 1.55720, + 1.35767, 1.76393, 1.87856, + .09341, .05119, 39.65346, 1.92758, 1.61167, + 1.41354, 1.81757, 1.93181, + .09452, .05184, 40.52009, 1.97859, 1.66393, + 1.46716, 1.86901, 1.98289, + .09557, .05245, 41.33694, 2.02733, 1.71398, + 1.51860, 1.91818, 2.03172, + .09663, .05307, 42.12898, 2.07608, 1.76378, + 1.56956, 1.96732, 2.08054 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .06909, .03687, .71374, .26986, .00000, + .00000, .15364, .27212, + .07041, .03767, 1.28968, .28551, .00000, + .00000, .17013, .28786, + .07245, .03890, 2.19968, .31120, .01358, + .00000, .19700, .31369, + .07402, .03985, 2.95763, .33168, .01194, + .00000, .21831, .33427, + .07566, .04085, 3.76333, .35496, .01628, + .00000, .24241, .35766, + .07707, .04170, 4.45264, .37622, .04182, + .00000, .26438, .37902, + .07844, .04254, 5.14643, .39769, .07017, + .00000, .28651, .40060, + .07994, .04344, 5.91732, .42163, .09758, + .00000, .31115, .42465 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08123, .04422, 6.59303, .44326, .12107, + .00000, .33336, .44638, + .08249, .04499, 7.25828, .46490, .14476, + .00000, .35554, .46810, + .08350, .04560, 7.80166, .48262, .16453, + .00000, .37370, .48590, + .08567, .04691, 8.97774, .52190, .20712, + .00000, .41388, .52534, + .08756, .04805, 9.87269, .55699, .24474, + .04494, .44972, .56057, + .08971, .04934, 10.92466, .59775, .28842, + .09760, .49131, .60149, + .09196, .05069, 12.02525, .64148, .33513, + .14758, .53590, .64540, + .09401, .05192, 13.02133, .68222, .37850, + .19402, .57738, .68630 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09608, .05316, 14.02284, .72434, .42329, + .24171, .62025, .72858, + .09781, .05419, 14.84294, .75988, .46082, + .28116, .65639, .76426, + .09992, .05544, 15.82061, .80357, .50673, + .32923, .70080, .80812, + .10178, .05654, 16.67743, .84288, .54811, + .37278, .74074, .84758, + .10349, .05756, 17.45510, .87944, .58662, + .41331, .77786, .88427, + .10567, .05885, 18.40882, .92598, .63521, + .46391, .82511, .93098, + .10772, .06005, 19.28956, .97024, .68149, + .51226, .87002, .97540, + .10964, .06118, 20.10479, 1.01224, .72555, + .55846, .91262, 1.01756 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11156, .06231, 20.88066, 1.05395, .76887, + .60338, .95493, 1.05941, + .11344, .06341, 21.62884, 1.09514, .81180, + .64812, .99669, 1.10076, + .11523, .06445, 22.32083, 1.13429, .85261, + .69064, 1.03637, 1.14005, + .11690, .06542, 22.94561, 1.17093, .89062, + .73007, 1.07351, 1.17682, + .11858, .06640, 23.56967, 1.20813, .92943, + .77052, 1.11122, 1.21417, + .12024, .06736, 24.14937, 1.24418, .96674, + .80914, 1.14774, 1.25034, + .12182, .06828, 24.70114, 1.27889, 1.00290, + .84679, 1.18291, 1.28518, + .12330, .06913, 25.19207, 1.31112, 1.03623, + .88127, 1.21556, 1.31752 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12480, .07000, 25.68593, 1.34395, 1.07034, + .91670, 1.24882, 1.35047, + .12627, .07085, 26.15066, 1.37594, 1.10350, + .95105, 1.28123, 1.38258, + .12768, .07165, 26.58376, 1.40643, 1.13510, + .98380, 1.31212, 1.41318, + .12902, .07242, 26.98799, 1.43541, 1.16520, + 1.01505, 1.34147, 1.44226, + .13037, .07319, 27.37267, 1.46413, 1.19489, + 1.04574, 1.37057, 1.47110 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09569, .05325, .78494, .23943, .00000, + .00000, .13805, .24334, + .09748, .05437, 1.30253, .25166, .00000, + .00000, .15097, .25571, + .10024, .05607, 2.08198, .27156, .01209, + .00000, .17184, .27582, + .10234, .05738, 2.70968, .28726, .00975, + .00000, .18825, .29169, + .10455, .05875, 3.35711, .30495, .01240, + .00000, .20665, .30956, + .10647, .05992, 3.89564, .32099, .03200, + .00000, .22329, .32576, + .10833, .06106, 4.42562, .33707, .05375, + .00000, .23993, .34200, + .11033, .06230, 5.00191, .35485, .07444, + .00000, .25830, .35994 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11208, .06337, 5.49649, .37077, .09198, + .00000, .27472, .37600, + .11377, .06439, 5.97475, .38656, .10955, + .00000, .29100, .39194, + .11514, .06523, 6.35987, .39942, .12411, + .00000, .30424, .40491, + .11803, .06698, 7.17777, .42762, .15518, + .00000, .33324, .43336, + .12057, .06850, 7.78203, .45251, .18225, + .02937, .35880, .45847, + .12342, .07020, 8.47200, .48107, .21333, + .06738, .38809, .48727, + .12639, .07197, 9.17579, .51129, .24611, + .10287, .41907, .51775, + .12910, .07357, 9.79730, .53908, .27616, + .13542, .44752, .54576 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13183, .07518, 10.40822, .56743, .30681, + .16844, .47656, .57435, + .13409, .07652, 10.89796, .59108, .33219, + .19543, .50076, .59819, + .13683, .07811, 11.46919, .61980, .36287, + .22795, .53013, .62714, + .13925, .07952, 11.95961, .64534, .39022, + .25710, .55625, .65289, + .14147, .08081, 12.39660, .66885, .41541, + .28395, .58028, .67659, + .14427, .08243, 12.91979, .69838, .44680, + .31705, .61047, .70636, + .14689, .08394, 13.39242, .72612, .47636, + .34834, .63882, .73433, + .14935, .08535, 13.82152, .75217, .50420, + .37793, .66544, .76059 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15179, .08673, 14.21894, .77769, .53120, + .40632, .69151, .78631, + .15417, .08809, 14.59514, .80263, .55772, + .43434, .71699, .81145, + .15641, .08937, 14.93616, .82609, .58268, + .46071, .74096, .83510, + .15852, .09055, 15.23656, .84779, .60566, + .48490, .76313, .85698, + .16062, .09174, 15.53250, .86965, .62895, + .50953, .78548, .87903, + .16268, .09289, 15.79904, .89056, .65107, + .53277, .80684, .90010, + .16464, .09398, 16.04998, .91055, .67238, + .55530, .82728, .92027, + .16648, .09500, 16.26621, .92890, .69179, + .57569, .84603, .93877 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16832, .09602, 16.48139, .94747, .71154, + .59653, .86502, .95748, + .17013, .09703, 16.67809, .96537, .73053, + .61653, .88332, .97554, + .17186, .09798, 16.85788, .98228, .74852, + .63547, .90062, .99259, + .17349, .09887, 17.02311, .99824, .76553, + .65343, .91695, 1.00870, + .17512, .09978, 17.17478, 1.01391, .78213, + .67088, .93297, 1.02449 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11598, .06601, .87050, .22350, .00000, + .00000, .12954, .22883, + .11812, .06737, 1.34894, .23383, .00000, + .00000, .14049, .23935, + .12142, .06946, 2.05151, .25059, .01045, + .00000, .15816, .25638, + .12394, .07103, 2.60395, .26375, .00780, + .00000, .17199, .26979, + .12660, .07267, 3.16272, .27854, .00966, + .00000, .18746, .28481, + .12888, .07407, 3.61894, .29191, .02623, + .00000, .20138, .29839, + .13110, .07543, 4.06120, .30524, .04464, + .00000, .21526, .31191, + .13349, .07689, 4.53524, .31991, .06197, + .00000, .23048, .32680 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13556, .07814, 4.93646, .33296, .07656, + .00000, .24402, .34003, + .13759, .07937, 5.31975, .34585, .09111, + .00000, .25737, .35310, + .13919, .08034, 5.62546, .35631, .10313, + .00000, .26819, .36370, + .14262, .08238, 6.26646, .37909, .12858, + .00000, .29175, .38680, + .14560, .08414, 6.73084, .39903, .15058, + .02162, .31234, .40700, + .14895, .08612, 7.24899, .42170, .17563, + .05257, .33573, .42997, + .15242, .08814, 7.76825, .44548, .20181, + .08117, .36025, .45406, + .15556, .08997, 8.21887, .46713, .22561, + .10719, .38257, .47600 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15874, .09180, 8.65455, .48906, .24969, + .13337, .40517, .49821, + .16135, .09330, 8.99813, .50718, .26946, + .15461, .42383, .51656, + .16450, .09511, 9.39226, .52901, .29319, + .18001, .44632, .53867, + .16729, .09669, 9.72532, .54827, .31418, + .20260, .46616, .55817, + .16983, .09813, 10.01788, .56586, .33339, + .22328, .48428, .57599, + .17302, .09992, 10.36163, .58776, .35710, + .24857, .50684, .59817, + .17601, .10158, 10.66658, .60816, .37926, + .27228, .52785, .61883, + .17880, .10314, 10.93906, .62716, .39999, + .29456, .54743, .63808 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18154, .10466, 11.18562, .64561, .41992, + .31575, .56644, .65676, + .18422, .10613, 11.41536, .66350, .43935, + .33654, .58488, .67488, + .18674, .10751, 11.61990, .68020, .45751, + .35596, .60209, .69179, + .18908, .10879, 11.79555, .69550, .47412, + .37366, .61788, .70730, + .19144, .11006, 11.96645, .71085, .49085, + .39158, .63371, .72285, + .19372, .11129, 12.11573, .72537, .50662, + .40837, .64872, .73757, + .19588, .11246, 12.25505, .73922, .52174, + .42457, .66300, .75160, + .19791, .11355, 12.37075, .75179, .53540, + .43913, .67599, .76434 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19994, .11464, 12.48474, .76444, .54924, + .45394, .68907, .77717, + .20192, .11569, 12.58539, .77655, .56245, + .46805, .70160, .78944, + .20381, .11668, 12.67538, .78793, .57489, + .48135, .71337, .80098, + .20559, .11763, 12.75653, .79862, .58662, + .49392, .72443, .81181, + .20737, .11855, 12.82723, .80899, .59797, + .50604, .73518, .82233 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .13305, .07687, .95593, .21263, .00000, + .00000, .12342, .21927, + .13550, .07843, 1.40303, .22167, .00000, + .00000, .13308, .22855, + .13927, .08081, 2.04909, .23634, .00879, + .00000, .14862, .24357, + .14214, .08259, 2.54728, .24786, .00602, + .00000, .16077, .25535, + .14517, .08444, 3.04367, .26075, .00740, + .00000, .17433, .26853, + .14776, .08602, 3.44307, .27237, .02203, + .00000, .18650, .28039, + .15027, .08755, 3.82572, .28393, .03830, + .00000, .19859, .29218, + .15297, .08918, 4.23136, .29659, .05348, + .00000, .21181, .30510 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15533, .09059, 4.57094, .30781, .06620, + .00000, .22352, .31653, + .15759, .09194, 4.89228, .31884, .07883, + .00000, .23501, .32778, + .15941, .09303, 5.14662, .32776, .08923, + .00000, .24430, .33687, + .16326, .09528, 5.67462, .34710, .11115, + .00000, .26441, .35657, + .16658, .09721, 6.05142, .36390, .12998, + .01663, .28187, .37369, + .17030, .09936, 6.46302, .38289, .15128, + .04317, .30158, .39302, + .17416, .10157, 6.86941, .40264, .17338, + .06750, .32210, .41312, + .17763, .10355, 7.21686, .42050, .19334, + .08950, .34064, .43130 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18114, .10552, 7.54803, .43846, .21340, + .11150, .35928, .44957, + .18400, .10713, 7.80553, .45319, .22978, + .12923, .37458, .46458, + .18747, .10905, 8.09654, .47084, .24929, + .15031, .39289, .48253, + .19050, .11073, 8.33903, .48629, .26647, + .16896, .40894, .49826, + .19327, .11226, 8.54928, .50032, .28209, + .18594, .42351, .51254, + .19673, .11415, 8.79169, .51766, .30125, + .20657, .44153, .53019, + .19996, .11590, 9.00308, .53370, .31905, + .22580, .45820, .54650, + .20298, .11752, 9.18913, .54854, .33561, + .24378, .47362, .56161 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20593, .11910, 9.35321, .56282, .35140, + .26075, .48849, .57614, + .20880, .12062, 9.50361, .57659, .36673, + .27733, .50282, .59016, + .21148, .12205, 9.63492, .58936, .38098, + .29274, .51613, .60317, + .21399, .12336, 9.74455, .60098, .39391, + .30669, .52825, .61500, + .21649, .12467, 9.84979, .61257, .40691, + .32078, .54034, .62680, + .21890, .12592, 9.93808, .62345, .41905, + .33388, .55172, .63789, + .22119, .12711, 10.01967, .63378, .43067, + .34648, .56251, .64841, + .22332, .12821, 10.08400, .64308, .44109, + .35773, .57224, .65789 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22546, .12931, 10.14660, .65241, .45161, + .36915, .58200, .66739, + .22754, .13037, 10.19902, .66127, .46161, + .37998, .59129, .67643, + .22950, .13138, 10.24425, .66955, .47097, + .39013, .59998, .68486, + .23136, .13231, 10.28382, .67729, .47976, + .39970, .60810, .69275, + .23321, .13324, 10.31502, .68473, .48822, + .40886, .61594, .70035 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .14796, .08640, 1.03703, .20400, .00000, + .00000, .11838, .21179, + .15071, .08815, 1.45769, .21211, .00000, + .00000, .12707, .22018, + .15490, .09079, 2.05814, .22527, .00716, + .00000, .14110, .23374, + .15810, .09276, 2.51327, .23558, .00436, + .00000, .15205, .24436, + .16145, .09478, 2.96118, .24711, .00546, + .00000, .16423, .25623, + .16431, .09652, 3.31708, .25748, .01869, + .00000, .17516, .26688, + .16707, .09819, 3.65478, .26776, .03341, + .00000, .18597, .27743, + .17005, .09996, 4.00948, .27899, .04705, + .00000, .19777, .28894 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17263, .10147, 4.30364, .28888, .05845, + .00000, .20816, .29911, + .17513, .10293, 4.57972, .29859, .06973, + .00000, .21833, .30905, + .17712, .10409, 4.79688, .30641, .07898, + .00000, .22653, .31706, + .18132, .10652, 5.24399, .32330, .09840, + .00000, .24421, .33435, + .18493, .10857, 5.55893, .33789, .11500, + .01305, .25947, .34928, + .18895, .11085, 5.89603, .35427, .13366, + .03649, .27659, .36604, + .19312, .11318, 6.22440, .37120, .15293, + .05784, .29431, .38336, + .19686, .11526, 6.50134, .38639, .17022, + .07704, .31020, .39892 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20062, .11731, 6.76184, .40159, .18750, + .09612, .32610, .41445, + .20369, .11900, 6.96152, .41399, .20154, + .11145, .33908, .42713, + .20737, .12099, 7.18406, .42874, .21818, + .12956, .35452, .44221, + .21061, .12273, 7.36701, .44158, .23275, + .14551, .36798, .45535, + .21355, .12430, 7.52362, .45319, .24594, + .15997, .38015, .46721, + .21721, .12624, 7.70060, .46742, .26203, + .17745, .39507, .48177, + .22061, .12803, 7.85217, .48049, .27689, + .19366, .40880, .49515, + .22377, .12968, 7.98345, .49253, .29065, + .20875, .42146, .50747 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22686, .13128, 8.09573, .50402, .30369, + .22291, .43355, .51923, + .22986, .13282, 8.19658, .51505, .31629, + .23668, .44516, .53051, + .23266, .13425, 8.28239, .52521, .32795, + .24943, .45588, .54091, + .23526, .13557, 8.35158, .53439, .33849, + .26092, .46558, .55032, + .23784, .13688, 8.41699, .54351, .34902, + .27247, .47522, .55965, + .24033, .13812, 8.46859, .55200, .35882, + .28317, .48421, .56835, + .24269, .13931, 8.51565, .56004, .36815, + .29342, .49272, .57657, + .24487, .14038, 8.54953, .56720, .37647, + .30253, .50034, .58392 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24706, .14146, 8.58181, .57439, .38487, + .31175, .50797, .59128, + .24919, .14250, 8.60610, .58114, .39278, + .32045, .51516, .59820, + .25120, .14348, 8.62542, .58742, .40017, + .32858, .52186, .60464, + .25309, .14439, 8.64108, .59325, .40709, + .33621, .52810, .61063, + .25496, .14529, 8.64986, .59882, .41370, + .34349, .53407, .61635 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17389, .10294, 1.18026, .19073, .00000, + .00000, .11031, .20071, + .17715, .10500, 1.55613, .19754, .00000, + .00000, .11771, .20789, + .18213, .10806, 2.08392, .20856, .00417, + .00000, .12963, .21946, + .18587, .11031, 2.47199, .21718, .00144, + .00000, .13892, .22847, + .18976, .11262, 2.84619, .22679, .00224, + .00000, .14920, .23848, + .19307, .11458, 3.13729, .23541, .01354, + .00000, .15840, .24744, + .19629, .11643, 3.40905, .24389, .02611, + .00000, .16745, .25625, + .19972, .11840, 3.69014, .25310, .03766, + .00000, .17726, .26581 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20267, .12009, 3.91969, .26117, .04723, + .00000, .18585, .27417, + .20551, .12170, 4.13213, .26902, .05665, + .00000, .19420, .28232, + .20778, .12297, 4.29741, .27532, .06435, + .00000, .20090, .28886, + .21252, .12561, 4.63275, .28883, .08038, + .00000, .21524, .30282, + .21658, .12782, 4.86410, .30035, .09394, + .00813, .22748, .31474, + .22107, .13025, 5.10139, .31317, .10907, + .02736, .24110, .32798, + .22568, .13271, 5.32672, .32625, .12451, + .04470, .25503, .34151, + .22980, .13489, 5.51182, .33788, .13824, + .06014, .26740, .35352 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23391, .13704, 5.68139, .34936, .15185, + .07538, .27964, .36539, + .23726, .13877, 5.80770, .35864, .16280, + .08749, .28953, .37497, + .24124, .14082, 5.94430, .36954, .17567, + .10171, .30118, .38624, + .24474, .14258, 6.05322, .37895, .18684, + .11413, .31123, .39595, + .24788, .14417, 6.14364, .38735, .19688, + .12531, .32024, .40463, + .25178, .14612, 6.24079, .39754, .20900, + .13870, .33117, .41516, + .25538, .14789, 6.32034, .40679, .22010, + .15102, .34113, .42472, + .25872, .14952, 6.38642, .41522, .23029, + .16240, .35021, .43343 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26195, .15108, 6.43768, .42315, .23986, + .17299, .35878, .44164, + .26507, .15258, 6.48110, .43067, .24903, + .18321, .36693, .44941, + .26796, .15396, 6.51513, .43753, .25744, + .19261, .37438, .45651, + .27062, .15522, 6.53839, .44364, .26497, + .20099, .38103, .46284, + .27329, .15646, 6.55870, .44967, .27245, + .20939, .38761, .46907, + .27582, .15763, 6.56956, .45518, .27934, + .21709, .39365, .47478, + .27822, .15873, 6.57855, .46035, .28587, + .22444, .39933, .48014, + .28041, .15973, 6.57939, .46490, .29163, + .23091, .40436, .48485 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28262, .16073, 6.57903, .46940, .29741, + .23743, .40934, .48953, + .28474, .16167, 6.57342, .47359, .30281, + .24353, .41400, .49388, + .28673, .16257, 6.56552, .47744, .30781, + .24920, .41829, .49787, + .28861, .16340, 6.55628, .48099, .31247, + .25450, .42225, .50156, + .29044, .16419, 6.54211, .48431, .31687, + .25950, .42599, .50499 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .20654, .12359, 1.35471, .17560, .00000, + .00000, .10073, .18857, + .21052, .12601, 1.67516, .18117, .00000, + .00000, .10695, .19462, + .21648, .12954, 2.11921, .19019, .00032, + .00000, .11694, .20434, + .22089, .13209, 2.43278, .19719, -.00212, + .00000, .12467, .21183, + .22548, .13469, 2.72762, .20494, -.00145, + .00000, .13318, .22009, + .22935, .13686, 2.95068, .21185, .00805, + .00000, .14073, .22741, + .23307, .13890, 3.15490, .21860, .01857, + .00000, .14810, .23457, + .23700, .14106, 3.36218, .22587, .02814, + .00000, .15603, .24225 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24038, .14287, 3.52799, .23216, .03600, + .00000, .16290, .24891, + .24362, .14460, 3.67868, .23825, .04369, + .00000, .16954, .25532, + .24617, .14596, 3.79431, .24309, .04993, + .00000, .17483, .26043, + .25152, .14875, 4.02457, .25337, .06281, + .00000, .18603, .27124, + .25600, .15104, 4.17870, .26202, .07358, + .00362, .19547, .28032, + .26093, .15352, 4.32583, .27150, .08545, + .01895, .20583, .29025, + .26595, .15601, 4.46011, .28102, .09743, + .03262, .21627, .30025, + .27041, .15819, 4.56547, .28935, .10796, + .04465, .22543, .30899 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27479, .16033, 4.65748, .29747, .11828, + .05641, .23435, .31749, + .27836, .16202, 4.72248, .30392, .12648, + .06566, .24147, .32425, + .28257, .16399, 4.78803, .31139, .13603, + .07642, .24976, .33208, + .28620, .16568, 4.83684, .31772, .14424, + .08573, .25681, .33874, + .28948, .16719, 4.87460, .32332, .15153, + .09403, .26305, .34460, + .29348, .16900, 4.90930, .32998, .16025, + .10389, .27051, .35158, + .29716, .17064, 4.93339, .33592, .16813, + .11285, .27721, .35780, + .30052, .17213, 4.94998, .34124, .17530, + .12106, .28323, .36339 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30376, .17352, 4.95625, .34614, .18194, + .12861, .28881, .36853, + .30686, .17485, 4.95774, .35070, .18824, + .13583, .29406, .37333, + .30972, .17606, 4.95434, .35480, .19396, + .14242, .29877, .37762, + .31233, .17714, 4.94531, .35836, .19902, + .14824, .30293, .38137, + .31491, .17820, 4.93444, .36182, .20402, + .15403, .30697, .38502, + .31734, .17918, 4.91764, .36491, .20855, + .15929, .31062, .38826, + .31964, .18009, 4.90106, .36776, .21282, + .16427, .31402, .39127, + .32171, .18091, 4.88058, .37018, .21652, + .16860, .31693, .39383 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32377, .18172, 4.85944, .37256, .22022, + .17294, .31981, .39633, + .32574, .18248, 4.83529, .37469, .22363, + .17697, .32244, .39858, + .32759, .18317, 4.81079, .37661, .22677, + .18068, .32481, .40061, + .32931, .18382, 4.78665, .37835, .22966, + .18412, .32699, .40245, + .33098, .18443, 4.75927, .37990, .23235, + .18734, .32897, .40408 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25196, .15143, 1.55471, .15666, .00000, + .00000, .08860, .17451, + .25692, .15426, 1.80181, .16102, .00000, + .00000, .09375, .17951, + .26421, .15827, 2.14196, .16799, -.00454, + .00000, .10188, .18736, + .26950, .16109, 2.36738, .17330, -.00640, + .00000, .10806, .19328, + .27489, .16391, 2.57154, .17913, -.00565, + .00000, .11477, .19970, + .27940, .16622, 2.71927, .18425, .00204, + .00000, .12066, .20532, + .28369, .16840, 2.85065, .18921, .01049, + .00000, .12634, .21072, + .28819, .17062, 2.98033, .19445, .01810, + .00000, .13236, .21642 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29201, .17249, 3.08063, .19894, .02427, + .00000, .13750, .22128, + .29562, .17424, 3.16906, .20321, .03024, + .00000, .14240, .22590, + .29848, .17559, 3.23542, .20658, .03505, + .00000, .14628, .22954, + .30434, .17833, 3.36338, .21360, .04484, + .00000, .15435, .23711, + .30915, .18053, 3.44455, .21937, .05290, + -.00050, .16102, .24332, + .31437, .18285, 3.50878, .22556, .06165, + .01101, .16819, .24994, + .31962, .18514, 3.56133, .23162, .07035, + .02114, .17528, .25641, + .32420, .18708, 3.59703, .23678, .07785, + .02993, .18136, .26195 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .32868, .18894, 3.62309, .24168, .08511, + .03840, .18717, .26719, + .33225, .19040, 3.63683, .24549, .09079, + .04498, .19170, .27126, + .33640, .19205, 3.64475, .24977, .09731, + .05254, .19688, .27583, + .33994, .19344, 3.64577, .25331, .10284, + .05900, .20119, .27960, + .34309, .19465, 3.64220, .25637, .10769, + .06470, .20493, .28285, + .34689, .19605, 3.62975, .25986, .11339, + .07137, .20930, .28658, + .35031, .19729, 3.61298, .26287, .11846, + .07736, .21311, .28979, + .35343, .19839, 3.59393, .26548, .12302, + .08279, .21646, .29256 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .35633, .19938, 3.56894, .26776, .12715, + .08770, .21947, .29499, + .35908, .20029, 3.54214, .26980, .13103, + .09235, .22222, .29716, + .36160, .20110, 3.51430, .27156, .13450, + .09653, .22463, .29902, + .36384, .20178, 3.48493, .27298, .13750, + .10018, .22667, .30055, + .36603, .20245, 3.45484, .27433, .14044, + .10378, .22863, .30197, + .36804, .20303, 3.42206, .27542, .14305, + .10699, .23030, .30313, + .36993, .20357, 3.39103, .27640, .14549, + .11001, .23183, .30416, + .37160, .20400, 3.35914, .27711, .14756, + .11260, .23306, .30492 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37325, .20443, 3.32710, .27780, .14959, + .11517, .23425, .30566, + .37479, .20479, 3.29398, .27832, .15144, + .11753, .23527, .30621, + .37621, .20512, 3.26193, .27874, .15310, + .11967, .23617, .30665, + .37750, .20542, 3.23136, .27908, .15462, + .12164, .23694, .30699, + .37873, .20566, 3.19902, .27927, .15599, + .12344, .23758, .30720 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29002, .17390, 1.67416, .14152, .00000, + .00000, .07912, .16358, + .29580, .17699, 1.86361, .14513, .00000, + .00000, .08363, .16792, + .30418, .18124, 2.12531, .15078, -.00781, + .00000, .09063, .17458, + .31012, .18415, 2.28764, .15501, -.00913, + .00000, .09583, .17946, + .31613, .18700, 2.42911, .15956, -.00821, + .00000, .10140, .18466, + .32108, .18931, 2.52631, .16354, -.00168, + .00000, .10623, .18914, + .32572, .19143, 2.61006, .16731, .00543, + .00000, .11082, .19338, + .33055, .19359, 2.69023, .17126, .01180, + .00000, .11561, .19779 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .33460, .19537, 2.74970, .17457, .01690, + .00000, .11966, .20148, + .33841, .19700, 2.80008, .17769, .02180, + .00000, .12347, .20492, + .34138, .19825, 2.83682, .18013, .02572, + .00000, .12645, .20760, + .34741, .20074, 2.90454, .18512, .03361, + .00000, .13259, .21307, + .35227, .20265, 2.94382, .18912, .04002, + -.00262, .13755, .21743, + .35746, .20465, 2.96218, .19330, .04689, + .00655, .14280, .22199, + .36259, .20655, 2.97104, .19730, .05362, + .01453, .14786, .22631, + .36700, .20812, 2.97068, .20060, .05937, + .02138, .15213, .22987 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37123, .20958, 2.96337, .20365, .06484, + .02790, .15613, .23315, + .37455, .21069, 2.95200, .20594, .06908, + .03292, .15919, .23560, + .37835, .21191, 2.93249, .20842, .07390, + .03864, .16259, .23826, + .38156, .21288, 2.91151, .21041, .07792, + .04347, .16536, .24037, + .38437, .21369, 2.88959, .21206, .08141, + .04769, .16772, .24213, + .38767, .21460, 2.85684, .21382, .08547, + .05259, .17038, .24399, + .39059, .21534, 2.82324, .21526, .08903, + .05694, .17264, .24550, + .39320, .21598, 2.79005, .21645, .09218, + .06083, .17457, .24673 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39557, .21649, 2.75343, .21737, .09501, + .06432, .17622, .24768, + .39777, .21694, 2.71665, .21812, .09761, + .06758, .17768, .24845, + .39974, .21730, 2.68077, .21870, .09991, + .07050, .17891, .24902, + .40144, .21755, 2.64529, .21907, .10188, + .07302, .17988, .24937, + .40309, .21778, 2.60974, .21937, .10377, + .07547, .18078, .24965, + .40455, .21792, 2.57310, .21947, .10543, + .07763, .18147, .24973, + .40591, .21804, 2.53879, .21954, .10695, + .07966, .18208, .24976, + .40702, .21809, 2.50501, .21947, .10822, + .08136, .18250, .24963 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40813, .21812, 2.47143, .21936, .10946, + .08305, .18288, .24945, + .40912, .21810, 2.43763, .21913, .11055, + .08457, .18315, .24916, + .40999, .21804, 2.40544, .21886, .11152, + .08594, .18334, .24882, + .41078, .21797, 2.37507, .21857, .11239, + .08719, .18347, .24844, + .41148, .21786, 2.34371, .21816, .11315, + .08831, .18349, .24797 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .35494, .20932, 1.74816, .11803, .00000, + .00000, .06558, .14848, + .36191, .21245, 1.85447, .12061, .00000, + .00000, .06926, .15176, + .37159, .21657, 2.00649, .12446, -.01133, + .00000, .07471, .15649, + .37818, .21924, 2.08579, .12720, -.01179, + .00000, .07858, .15978, + .38466, .22176, 2.14736, .13009, -.01061, + .00000, .08261, .16314, + .38989, .22372, 2.18231, .13253, -.00558, + .00000, .08599, .16594, + .39467, .22545, 2.20909, .13479, -.00020, + .00000, .08914, .16851, + .39954, .22714, 2.23162, .13708, .00456, + .00000, .09237, .17106 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .40352, .22848, 2.24461, .13894, .00834, + .00000, .09500, .17310, + .40718, .22964, 2.25262, .14062, .01191, + .00000, .09743, .17495, + .41000, .23050, 2.25699, .14190, .01472, + .00000, .09930, .17634, + .41556, .23212, 2.26045, .14444, .02030, + .00000, .10304, .17906, + .41981, .23323, 2.25609, .14636, .02473, + -.00437, .10595, .18104, + .42421, .23426, 2.22989, .14825, .02939, + .00196, .10892, .18297, + .42836, .23512, 2.19789, .14990, .03385, + .00739, .11164, .18462, + .43179, .23573, 2.16508, .15114, .03759, + .01197, .11383, .18581 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .43493, .23618, 2.12916, .15217, .04106, + .01625, .11578, .18675, + .43728, .23643, 2.09718, .15284, .04371, + .01951, .11719, .18733, + .43985, .23660, 2.05635, .15344, .04665, + .02314, .11869, .18780, + .44189, .23664, 2.01925, .15382, .04906, + .02617, .11982, .18802, + .44358, .23661, 1.98459, .15404, .05113, + .02879, .12072, .18809, + .44543, .23640, 1.93903, .15412, .05345, + .03176, .12162, .18793, + .44692, .23611, 1.89586, .15404, .05546, + .03436, .12230, .18763, + .44815, .23576, 1.85556, .15386, .05720, + .03665, .12282, .18723 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .44911, .23530, 1.81436, .15351, .05870, + .03866, .12314, .18663, + .44992, .23478, 1.77448, .15307, .06006, + .04052, .12335, .18596, + .45053, .23422, 1.73696, .15259, .06122, + .04213, .12344, .18523, + .45092, .23362, 1.70147, .15203, .06219, + .04352, .12343, .18442, + .45123, .23301, 1.66655, .15143, .06311, + .04485, .12336, .18358, + .45137, .23232, 1.63197, .15074, .06387, + .04599, .12318, .18262, + .45145, .23165, 1.59995, .15005, .06456, + .04703, .12298, .18171, + .45138, .23095, 1.56945, .14933, .06510, + .04790, .12269, .18074 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45126, .23023, 1.53943, .14858, .06562, + .04875, .12239, .17975, + .45102, .22947, 1.50993, .14779, .06604, + .04949, .12202, .17871, + .45074, .22873, 1.48224, .14701, .06641, + .05015, .12163, .17770, + .45043, .22800, 1.45642, .14624, .06672, + .05073, .12124, .17672, + .44999, .22722, 1.43033, .14542, .06696, + .05125, .12077, .17566 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .40953, .23594, 1.69985, .09972, .00000, + .00000, .05610, .13701, + .41707, .23873, 1.75213, .10153, .00000, + .00000, .05913, .13931, + .42709, .24222, 1.83382, .10415, -.01241, + .00000, .06337, .14240, + .43368, .24428, 1.86368, .10593, -.01235, + .00000, .06631, .14440, + .43997, .24611, 1.87955, .10772, -.01104, + .00000, .06928, .14634, + .44486, .24744, 1.88046, .10922, -.00702, + .00000, .07172, .14788, + .44925, .24853, 1.87699, .11056, -.00279, + .00000, .07393, .14921, + .45361, .24950, 1.86976, .11184, .00095, + .00000, .07612, .15047 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .45706, .25019, 1.85954, .11282, .00388, + .00000, .07788, .15140, + .46013, .25072, 1.84705, .11369, .00661, + .00000, .07944, .15217, + .46242, .25109, 1.83614, .11433, .00874, + .00000, .08063, .15273, + .46681, .25159, 1.81023, .11550, .01292, + .00000, .08293, .15366, + .46989, .25172, 1.78667, .11630, .01619, + -.00470, .08464, .15417, + .47288, .25165, 1.74316, .11698, .01956, + -.00007, .08631, .15450, + .47547, .25134, 1.69643, .11744, .02273, + .00387, .08777, .15455, + .47743, .25088, 1.65302, .11765, .02534, + .00714, .08883, .15436 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .47905, .25025, 1.60868, .11770, .02774, + .01017, .08973, .15400, + .48009, .24960, 1.57148, .11761, .02953, + .01243, .09030, .15356, + .48101, .24869, 1.52618, .11736, .03150, + .01495, .09081, .15283, + .48158, .24779, 1.48646, .11702, .03308, + .01701, .09115, .15208, + .48190, .24690, 1.45043, .11664, .03442, + .01877, .09136, .15129, + .48196, .24561, 1.40476, .11600, .03589, + .02075, .09144, .15016, + .48180, .24432, 1.36264, .11531, .03713, + .02245, .09140, .14897, + .48145, .24306, 1.32412, .11459, .03818, + .02392, .09128, .14779 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .48082, .24166, 1.28584, .11377, .03907, + .02520, .09103, .14650, + .48005, .24026, 1.24935, .11292, .03986, + .02637, .09072, .14518, + .47918, .23890, 1.21562, .11206, .04052, + .02738, .09037, .14389, + .47818, .23754, 1.18428, .11120, .04105, + .02821, .08995, .14261, + .47711, .23616, 1.15372, .11032, .04154, + .02901, .08952, .14129, + .47587, .23473, 1.12401, .10938, .04191, + .02968, .08901, .13995, + .47466, .23338, 1.09669, .10849, .04225, + .03030, .08852, .13868, + .47336, .23204, 1.07109, .10761, .04249, + .03078, .08800, .13742 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47202, .23068, 1.04605, .10671, .04273, + .03126, .08747, .13615, + .47059, .22931, 1.02173, .10580, .04289, + .03166, .08689, .13485, + .46915, .22799, .99908, .10491, .04303, + .03202, .08633, .13362, + .46775, .22673, .97810, .10406, .04313, + .03232, .08578, .13245, + .46622, .22542, .95714, .10317, .04319, + .03258, .08519, .13122 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45685, .25653, 1.59151, .08481, .00000, + .00000, .04894, .12717, + .46440, .25872, 1.60881, .08608, .00000, + .00000, .05136, .12848, + .47412, .26117, 1.64478, .08779, -.01228, + .00000, .05465, .13006, + .48017, .26243, 1.64487, .08886, -.01192, + .00000, .05682, .13094, + .48570, .26340, 1.63429, .08993, -.01061, + .00000, .05895, .13171, + .48988, .26392, 1.61628, .09079, -.00733, + .00000, .06068, .13225, + .49347, .26422, 1.59659, .09150, -.00393, + .00000, .06219, .13266, + .49686, .26437, 1.57392, .09215, -.00094, + .00000, .06365, .13293 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .49940, .26432, 1.55200, .09261, .00140, + .00000, .06479, .13302, + .50157, .26415, 1.52955, .09296, .00354, + .00000, .06580, .13300, + .50313, .26392, 1.51140, .09321, .00521, + .00000, .06653, .13293, + .50580, .26323, 1.47207, .09360, .00843, + .00000, .06790, .13263, + .50738, .26230, 1.44039, .09374, .01092, + -.00454, .06884, .13217, + .50861, .26106, 1.39124, .09374, .01346, + -.00103, .06971, .13145, + .50934, .25957, 1.34063, .09354, .01582, + .00194, .07036, .13050, + .50953, .25803, 1.29521, .09323, .01772, + .00436, .07078, .12950 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .50935, .25636, 1.25012, .09279, .01945, + .00660, .07103, .12835, + .50890, .25486, 1.21325, .09233, .02073, + .00825, .07115, .12728, + .50799, .25292, 1.16932, .09167, .02212, + .01007, .07114, .12590, + .50694, .25114, 1.13153, .09101, .02321, + .01154, .07105, .12460, + .50579, .24943, 1.09778, .09036, .02412, + .01278, .07089, .12336, + .50400, .24714, 1.05578, .08943, .02511, + .01416, .07056, .12171, + .50207, .24495, 1.01764, .08850, .02592, + .01534, .07017, .12009, + .50007, .24287, .98318, .08760, .02661, + .01635, .06975, .11854 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .49782, .24068, .94946, .08663, .02717, + .01722, .06925, .11693, + .49549, .23852, .91768, .08565, .02765, + .01799, .06872, .11534, + .49315, .23645, .88860, .08471, .02803, + .01865, .06816, .11382, + .49079, .23444, .86187, .08378, .02834, + .01920, .06760, .11236, + .48838, .23241, .83600, .08283, .02860, + .01970, .06702, .11090, + .48582, .23038, .81109, .08187, .02881, + .02013, .06641, .10942, + .48337, .22846, .78831, .08096, .02898, + .02050, .06583, .10803, + .48091, .22659, .76718, .08007, .02909, + .02081, .06524, .10669 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .47841, .22473, .74661, .07920, .02919, + .02109, .06464, .10535, + .47585, .22287, .72678, .07831, .02924, + .02133, .06403, .10401, + .47335, .22109, .70842, .07746, .02927, + .02153, .06343, .10274, + .47097, .21940, .69149, .07666, .02929, + .02170, .06288, .10154, + .46846, .21766, .67471, .07583, .02927, + .02183, .06228, .10032 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .50725, .27498, 1.42597, .06951, .00000, + .00000, .04166, .11495, + .51407, .27607, 1.41663, .07027, .00000, + .00000, .04341, .11520, + .52220, .27692, 1.41734, .07125, -.01137, + .00000, .04574, .11519, + .52684, .27697, 1.39633, .07182, -.01082, + .00000, .04717, .11497, + .53079, .27662, 1.36781, .07232, -.00957, + .00000, .04857, .11464, + .53350, .27606, 1.33777, .07268, -.00699, + .00000, .04966, .11426, + .53562, .27531, 1.30816, .07294, -.00435, + .00000, .05059, .11379, + .53737, .27434, 1.27643, .07314, -.00203, + .00000, .05145, .11318 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .53846, .27333, 1.24810, .07320, -.00024, + .00000, .05208, .11259, + .53917, .27223, 1.22049, .07320, .00140, + .00000, .05259, .11194, + .53957, .27128, 1.19877, .07318, .00265, + .00000, .05296, .11139, + .53975, .26906, 1.15342, .07300, .00506, + .00000, .05359, .11009, + .53912, .26689, 1.11856, .07272, .00689, + -.00404, .05395, .10888, + .53785, .26429, 1.06933, .07230, .00873, + -.00148, .05420, .10740, + .53596, .26144, 1.01995, .07173, .01041, + .00067, .05430, .10572, + .53382, .25869, .97672, .07111, .01176, + .00241, .05427, .10412 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .53130, .25583, .93470, .07038, .01296, + .00399, .05411, .10246, + .52893, .25337, .90093, .06974, .01383, + .00515, .05389, .10103, + .52570, .25032, .86142, .06888, .01476, + .00640, .05354, .09924, + .52262, .24758, .82790, .06810, .01549, + .00742, .05317, .09764, + .51965, .24503, .79833, .06732, .01608, + .00825, .05279, .09618, + .51558, .24171, .76212, .06631, .01671, + .00919, .05224, .09426, + .51156, .23857, .72965, .06530, .01721, + .00996, .05167, .09245, + .50767, .23561, .70065, .06435, .01764, + .01062, .05110, .09077 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .50353, .23262, .67262, .06336, .01796, + .01117, .05049, .08906, + .49939, .22968, .64648, .06240, .01823, + .01166, .04985, .08739, + .49539, .22691, .62274, .06148, .01845, + .01208, .04925, .08583, + .49148, .22426, .60118, .06059, .01859, + .01240, .04865, .08435, + .48755, .22163, .58043, .05970, .01873, + .01271, .04805, .08288, + .48353, .21902, .56064, .05882, .01881, + .01295, .04742, .08142, + .47972, .21658, .54263, .05798, .01888, + .01318, .04683, .08008, + .47597, .21423, .52608, .05718, .01891, + .01335, .04625, .07879 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47223, .21190, .51002, .05641, .01893, + .01351, .04567, .07751, + .46847, .20956, .49470, .05560, .01892, + .01363, .04510, .07626, + .46489, .20736, .48057, .05483, .01890, + .01373, .04454, .07509, + .46148, .20528, .46760, .05412, .01887, + .01381, .04402, .07399, + .45793, .20317, .45483, .05340, .01882, + .01387, .04347, .07288 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .54947, .28712, 1.25556, .05715, .00000, + .00000, .03549, .10262, + .55470, .28700, 1.23132, .05763, .00000, + .00000, .03676, .10191, + .56041, .28591, 1.21177, .05809, -.01020, + .00000, .03834, .10072, + .56313, .28456, 1.18000, .05828, -.00956, + .00000, .03931, .09972, + .56496, .28284, 1.14303, .05846, -.00842, + .00000, .04017, .09862, + .56578, .28112, 1.10807, .05853, -.00636, + .00000, .04082, .09763, + .56607, .27930, 1.07470, .05852, -.00427, + .00000, .04135, .09663, + .56589, .27720, 1.03995, .05843, -.00244, + .00000, .04179, .09551 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .56524, .27524, 1.00987, .05832, -.00104, + .00000, .04210, .09444, + .56429, .27325, .98119, .05814, .00023, + .00000, .04233, .09339, + .56336, .27162, .95897, .05796, .00119, + .00000, .04245, .09255, + .56071, .26802, .91337, .05753, .00303, + .00000, .04262, .09070, + .55772, .26468, .87899, .05706, .00440, + -.00349, .04266, .08906, + .55386, .26084, .83299, .05643, .00578, + -.00157, .04257, .08720, + .54935, .25672, .78762, .05566, .00702, + .00002, .04235, .08522, + .54485, .25293, .74851, .05492, .00799, + .00130, .04205, .08339 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .53998, .24907, .71100, .05414, .00884, + .00245, .04169, .08153, + .53570, .24581, .68127, .05344, .00946, + .00328, .04134, .07999, + .53028, .24181, .64688, .05254, .01011, + .00418, .04084, .07808, + .52530, .23827, .61802, .05172, .01061, + .00490, .04036, .07640, + .52058, .23507, .59280, .05098, .01100, + .00548, .03991, .07488, + .51439, .23094, .56220, .04997, .01142, + .00613, .03927, .07296, + .50846, .22705, .53508, .04901, .01175, + .00665, .03865, .07118, + .50284, .22346, .51104, .04813, .01200, + .00710, .03804, .06955 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .49702, .21984, .48809, .04722, .01220, + .00746, .03742, .06790, + .49130, .21635, .46676, .04634, .01236, + .00778, .03681, .06632, + .48583, .21305, .44758, .04550, .01248, + .00805, .03621, .06484, + .48059, .20997, .43026, .04470, .01256, + .00826, .03564, .06347, + .47536, .20691, .41370, .04393, .01262, + .00845, .03506, .06211, + .47009, .20389, .39805, .04314, .01265, + .00861, .03449, .06080, + .46516, .20106, .38387, .04241, .01266, + .00874, .03396, .05959, + .46043, .19836, .37092, .04171, .01266, + .00884, .03344, .05844 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45570, .19570, .35843, .04100, .01264, + .00892, .03292, .05730, + .45096, .19309, .34652, .04032, .01262, + .00899, .03241, .05620, + .44644, .19061, .33561, .03969, .01258, + .00904, .03190, .05516, + .44218, .18829, .32564, .03910, .01253, + .00908, .03144, .05419, + .43781, .18595, .31586, .03850, .01248, + .00911, .03098, .05322 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .58391, .29399, 1.09505, .04721, .00000, + .00000, .03008, .08998, + .58707, .29247, 1.06282, .04752, .00000, + .00000, .03094, .08858, + .58951, .28943, 1.03188, .04771, -.00902, + .00000, .03194, .08660, + .58974, .28682, .99514, .04776, -.00836, + .00000, .03254, .08502, + .58906, .28374, .95493, .04772, -.00732, + .00000, .03302, .08343, + .58777, .28089, .91872, .04763, -.00565, + .00000, .03339, .08204, + .58599, .27806, .88483, .04747, -.00399, + .00000, .03364, .08071, + .58361, .27493, .85003, .04725, -.00252, + .00000, .03383, .07929 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .58113, .27207, .82048, .04700, -.00141, + .00000, .03390, .07803, + .57841, .26926, .79265, .04673, -.00041, + .00000, .03393, .07680, + .57608, .26703, .77131, .04648, .00034, + .00000, .03394, .07581, + .57062, .26209, .72794, .04589, .00177, + .00000, .03384, .07374, + .56525, .25777, .69585, .04533, .00282, + -.00297, .03367, .07195, + .55881, .25288, .65426, .04464, .00386, + -.00151, .03339, .06997, + .55168, .24775, .61372, .04386, .00479, + -.00031, .03301, .06789, + .54493, .24309, .57922, .04309, .00551, + .00065, .03261, .06603 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .53791, .23837, .54651, .04226, .00614, + .00150, .03217, .06417, + .53190, .23448, .52081, .04159, .00659, + .00212, .03175, .06262, + .52440, .22975, .49138, .04073, .00705, + .00277, .03120, .06081, + .51770, .22561, .46691, .03993, .00740, + .00329, .03071, .05923, + .51152, .22184, .44569, .03922, .00767, + .00371, .03024, .05779, + .50343, .21712, .42018, .03832, .00795, + .00416, .02961, .05600, + .49582, .21272, .39773, .03746, .00817, + .00454, .02902, .05435, + .48871, .20865, .37798, .03665, .00834, + .00484, .02845, .05285 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48151, .20459, .35927, .03582, .00845, + .00509, .02786, .05139, + .47444, .20071, .34203, .03502, .00855, + .00531, .02728, .04998, + .46775, .19710, .32658, .03431, .00861, + .00548, .02675, .04868, + .46143, .19370, .31275, .03362, .00865, + .00562, .02624, .04747, + .45517, .19036, .29958, .03293, .00868, + .00575, .02573, .04629, + .44895, .18708, .28722, .03224, .00868, + .00584, .02523, .04515, + .44314, .18403, .27605, .03162, .00868, + .00592, .02476, .04410, + .43757, .18115, .26592, .03103, .00866, + .00598, .02431, .04311 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43203, .17832, .25617, .03045, .00863, + .00602, .02387, .04214, + .42657, .17552, .24695, .02988, .00859, + .00606, .02343, .04121, + .42139, .17288, .23851, .02933, .00855, + .00609, .02303, .04034, + .41652, .17043, .23084, .02882, .00851, + .00611, .02264, .03954, + .41158, .16796, .22335, .02830, .00845, + .00611, .02225, .03872 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .61088, .29635, .94951, .03930, .00000, + .00000, .02516, .07717, + .61154, .29338, .91323, .03937, .00000, + .00000, .02575, .07555, + .61016, .28846, .87610, .03943, -.00791, + .00000, .02641, .07304, + .60777, .28444, .83760, .03933, -.00726, + .00000, .02673, .07127, + .60434, .28006, .79693, .03916, -.00633, + .00000, .02700, .06941, + .60070, .27624, .76135, .03900, -.00496, + .00000, .02718, .06787, + .59676, .27246, .72856, .03877, -.00361, + .00000, .02728, .06638, + .59216, .26834, .69529, .03845, -.00244, + .00000, .02731, .06481 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .58782, .26469, .66735, .03813, -.00155, + .00000, .02727, .06351, + .58331, .26116, .64133, .03780, -.00076, + .00000, .02717, .06223, + .57961, .25839, .62147, .03754, -.00016, + .00000, .02708, .06122, + .57129, .25240, .58161, .03690, .00097, + .00000, .02686, .05907, + .56364, .24721, .55230, .03629, .00179, + -.00249, .02659, .05735, + .55479, .24142, .51541, .03556, .00259, + -.00137, .02623, .05541, + .54530, .23545, .47989, .03476, .00329, + -.00045, .02580, .05343, + .53648, .23009, .44994, .03403, .00383, + .00027, .02535, .05169 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .52744, .22476, .42180, .03326, .00429, + .00091, .02486, .04996, + .51987, .22037, .39990, .03261, .00462, + .00136, .02444, .04857, + .51060, .21511, .37501, .03180, .00495, + .00185, .02392, .04689, + .50239, .21054, .35446, .03109, .00520, + .00222, .02343, .04547, + .49490, .20641, .33677, .03042, .00539, + .00253, .02298, .04421, + .48527, .20126, .31568, .02959, .00559, + .00286, .02239, .04260, + .47628, .19649, .29726, .02883, .00573, + .00312, .02185, .04116, + .46795, .19212, .28117, .02811, .00585, + .00334, .02135, .03986 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .45955, .18781, .26604, .02740, .00592, + .00351, .02083, .03858, + .45145, .18369, .25217, .02672, .00598, + .00366, .02034, .03738, + .44387, .17986, .23982, .02606, .00601, + .00378, .01987, .03626, + .43674, .17629, .22884, .02547, .00602, + .00387, .01944, .03524, + .42970, .17278, .21845, .02486, .00602, + .00394, .01899, .03427, + .42273, .16938, .20872, .02429, .00602, + .00401, .01856, .03331, + .41622, .16625, .19996, .02377, .00601, + .00406, .01815, .03244, + .41005, .16329, .19206, .02327, .00598, + .00409, .01779, .03162 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40395, .16036, .18448, .02278, .00596, + .00412, .01743, .03082, + .39795, .15750, .17734, .02229, .00592, + .00414, .01706, .03007, + .39232, .15482, .17086, .02184, .00588, + .00415, .01672, .02935, + .38704, .15232, .16496, .02142, .00584, + .00415, .01640, .02869, + .38168, .14983, .15924, .02100, .00579, + .00416, .01609, .02804 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .63068, .29472, .81901, .03285, .00000, + .00000, .02083, .06486, + .62841, .29040, .78115, .03289, .00000, + .00000, .02125, .06303, + .62299, .28353, .74110, .03275, -.00691, + .00000, .02165, .06045, + .61775, .27833, .70282, .03255, -.00628, + .00000, .02182, .05858, + .61147, .27276, .66321, .03230, -.00544, + .00000, .02199, .05668, + .60552, .26794, .62944, .03204, -.00432, + .00000, .02201, .05515, + .59941, .26332, .59857, .03175, -.00322, + .00000, .02199, .05369, + .59256, .25843, .56756, .03140, -.00227, + .00000, .02192, .05218 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .58634, .25412, .54177, .03106, -.00155, + .00000, .02182, .05089, + .58012, .24997, .51801, .03071, -.00091, + .00000, .02168, .04965, + .57510, .24673, .50001, .03043, -.00043, + .00000, .02156, .04868, + .56417, .23980, .46409, .02973, .00045, + .00000, .02124, .04673, + .55439, .23397, .43790, .02915, .00109, + -.00209, .02092, .04509, + .54330, .22754, .40565, .02844, .00171, + -.00122, .02054, .04332, + .53165, .22093, .37490, .02767, .00225, + -.00051, .02008, .04152, + .52104, .21505, .34923, .02698, .00266, + .00004, .01965, .03995 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .51031, .20926, .32532, .02627, .00301, + .00052, .01919, .03841, + .50139, .20454, .30687, .02566, .00326, + .00087, .01880, .03718, + .49061, .19894, .28604, .02491, .00350, + .00123, .01830, .03574, + .48116, .19410, .26897, .02427, .00368, + .00151, .01787, .03451, + .47255, .18976, .25440, .02370, .00381, + .00173, .01745, .03341, + .46169, .18431, .23715, .02296, .00394, + .00196, .01695, .03207, + .45162, .17935, .22220, .02228, .00404, + .00215, .01646, .03086, + .44231, .17484, .20921, .02167, .00412, + .00231, .01602, .02975 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43310, .17039, .19709, .02102, .00416, + .00243, .01559, .02870, + .42423, .16615, .18604, .02042, .00420, + .00254, .01516, .02769, + .41597, .16223, .17624, .01987, .00421, + .00261, .01475, .02679, + .40822, .15863, .16755, .01937, .00421, + .00268, .01438, .02595, + .40058, .15510, .15937, .01887, .00421, + .00274, .01403, .02513, + .39309, .15168, .15179, .01840, .00420, + .00277, .01368, .02436, + .38614, .14852, .14500, .01795, .00418, + .00280, .01334, .02366, + .37964, .14554, .13890, .01752, .00416, + .00282, .01303, .02300 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37323, .14261, .13306, .01709, .00413, + .00284, .01273, .02237, + .36691, .13978, .12758, .01669, .00410, + .00284, .01243, .02174, + .36095, .13715, .12262, .01632, .00406, + .00284, .01215, .02118, + .35541, .13471, .11812, .01598, .00403, + .00284, .01191, .02065, + .34981, .13225, .11378, .01565, .00399, + .00284, .01164, .02011 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .64362, .28945, .70203, .02742, .00000, + .00000, .01718, .05344, + .63822, .28387, .66425, .02742, .00000, + .00000, .01742, .05162, + .62844, .27540, .62349, .02730, -.00601, + .00000, .01765, .04899, + .62026, .26912, .58651, .02708, -.00540, + .00000, .01772, .04722, + .61109, .26258, .54913, .02680, -.00465, + .00000, .01768, .04543, + .60279, .25701, .51776, .02651, -.00373, + .00000, .01765, .04396, + .59460, .25167, .48929, .02619, -.00284, + .00000, .01758, .04263, + .58568, .24603, .46097, .02580, -.00205, + .00000, .01743, .04124 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .57763, .24124, .43770, .02547, -.00147, + .00000, .01730, .04003, + .56981, .23662, .41638, .02512, -.00095, + .00000, .01714, .03890, + .56360, .23299, .40035, .02483, -.00058, + .00000, .01698, .03804, + .55019, .22545, .36855, .02414, .00013, + .00000, .01667, .03629, + .53861, .21908, .34551, .02355, .00064, + -.00172, .01633, .03485, + .52560, .21214, .31773, .02291, .00112, + -.00105, .01595, .03328, + .51206, .20515, .29150, .02218, .00153, + -.00051, .01551, .03173, + .49987, .19897, .26977, .02154, .00185, + -.00008, .01512, .03039 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48773, .19290, .24971, .02088, .00211, + .00029, .01472, .02907, + .47779, .18794, .23435, .02033, .00229, + .00054, .01435, .02804, + .46583, .18211, .21719, .01966, .00247, + .00082, .01390, .02683, + .45541, .17711, .20320, .01908, .00260, + .00102, .01351, .02581, + .44603, .17266, .19126, .01856, .00270, + .00119, .01318, .02490, + .43419, .16716, .17731, .01791, .00279, + .00136, .01273, .02379, + .42332, .16215, .16530, .01732, .00286, + .00150, .01232, .02279, + .41340, .15758, .15495, .01676, .00291, + .00161, .01195, .02190 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40356, .15313, .14534, .01624, .00294, + .00170, .01157, .02104, + .39415, .14890, .13662, .01573, .00296, + .00177, .01122, .02025, + .38542, .14502, .12894, .01526, .00296, + .00182, .01088, .01953, + .37731, .14144, .12218, .01483, .00296, + .00186, .01059, .01885, + .36935, .13797, .11583, .01443, .00295, + .00189, .01031, .01818, + .36161, .13460, .10997, .01401, .00293, + .00192, .01002, .01758, + .35445, .13150, .10474, .01363, .00292, + .00194, .00976, .01702, + .34772, .12862, .10006, .01327, .00290, + .00195, .00952, .01650 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34109, .12579, .09561, .01294, .00287, + .00196, .00928, .01599, + .33462, .12304, .09144, .01260, .00285, + .00196, .00903, .01551, + .32856, .12048, .08768, .01230, .00282, + .00196, .00881, .01508, + .32291, .11811, .08428, .01201, .00279, + .00196, .00859, .01468, + .31727, .11574, .08103, .01172, .00277, + .00196, .00839, .01428 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .64879, .28216, .59729, .02385, .00000, + .00000, .01340, .04253, + .64041, .27533, .56049, .02369, .00000, + .00000, .01363, .04090, + .62643, .26530, .52032, .02337, -.00518, + .00000, .01386, .03857, + .61551, .25805, .48550, .02304, -.00462, + .00000, .01389, .03700, + .60371, .25056, .45080, .02263, -.00395, + .00000, .01385, .03550, + .59335, .24426, .42210, .02226, -.00318, + .00000, .01380, .03425, + .58320, .23836, .39643, .02190, -.00245, + .00000, .01373, .03304, + .57230, .23221, .37109, .02150, -.00182, + .00000, .01362, .03179 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .56283, .22688, .35039, .02111, -.00134, + .00000, .01346, .03080, + .55362, .22188, .33159, .02072, -.00093, + .00000, .01329, .02986, + .54634, .21799, .31748, .02039, -.00062, + .00000, .01318, .02914, + .53080, .20997, .28985, .01978, -.00006, + .00000, .01285, .02760, + .51755, .20329, .26994, .01922, .00035, + -.00141, .01259, .02636, + .50290, .19605, .24635, .01858, .00072, + -.00088, .01225, .02505, + .48793, .18876, .22425, .01790, .00104, + -.00046, .01185, .02379, + .47459, .18235, .20617, .01727, .00128, + -.00014, .01148, .02270 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46139, .17611, .18960, .01665, .00148, + .00014, .01111, .02165, + .45059, .17110, .17702, .01615, .00161, + .00034, .01081, .02081, + .43768, .16524, .16302, .01558, .00175, + .00054, .01046, .01981, + .42654, .16024, .15174, .01506, .00184, + .00069, .01013, .01898, + .41656, .15576, .14221, .01460, .00191, + .00081, .00984, .01828, + .40417, .15026, .13113, .01404, .00198, + .00094, .00947, .01737, + .39281, .14527, .12164, .01352, .00202, + .00104, .00914, .01656, + .38245, .14080, .11348, .01304, .00205, + .00112, .00884, .01585 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37226, .13642, .10596, .01259, .00207, + .00118, .00854, .01520, + .36258, .13229, .09921, .01213, .00208, + .00123, .00825, .01457, + .35367, .12851, .09329, .01170, .00208, + .00127, .00798, .01402, + .34535, .12503, .08813, .01135, .00208, + .00129, .00773, .01349, + .33721, .12167, .08327, .01103, .00207, + .00132, .00750, .01299, + .32938, .11843, .07882, .01067, .00206, + .00133, .00726, .01252, + .32217, .11543, .07486, .01035, .00204, + .00135, .00705, .01209, + .31537, .11268, .07134, .01007, .00202, + .00136, .00686, .01169 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30870, .10999, .06799, .00981, .00200, + .00135, .00667, .01130, + .30224, .10738, .06488, .00954, .00198, + .00136, .00649, .01094, + .29621, .10496, .06206, .00928, .00196, + .00136, .00631, .01062, + .29061, .10271, .05954, .00904, .00194, + .00135, .00616, .01031, + .28502, .10047, .05712, .00882, .00191, + .00135, .00599, .01001 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .64838, .27136, .50165, .02002, .00000, + .00000, .01072, .03350, + .63676, .26364, .46691, .01985, .00000, + .00000, .01091, .03201, + .61864, .25238, .42865, .01949, -.00443, + .00000, .01100, .03003, + .60503, .24439, .39656, .01916, -.00391, + .00000, .01102, .02865, + .59062, .23625, .36511, .01876, -.00332, + .00000, .01097, .02733, + .57815, .22952, .33956, .01841, -.00269, + .00000, .01090, .02622, + .56623, .22319, .31683, .01804, -.00210, + .00000, .01078, .02524, + .55365, .21663, .29454, .01764, -.00158, + .00000, .01062, .02424 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .54274, .21108, .27654, .01727, -.00119, + .00000, .01048, .02339, + .53226, .20581, .26026, .01690, -.00085, + .00000, .01034, .02260, + .52407, .20172, .24817, .01661, -.00062, + .00000, .01021, .02199, + .50676, .19342, .22462, .01601, -.00017, + .00000, .00992, .02073, + .49225, .18654, .20774, .01547, .00014, + -.00114, .00965, .01973, + .47636, .17915, .18809, .01487, .00044, + -.00074, .00934, .01867, + .46017, .17180, .16987, .01426, .00068, + -.00041, .00901, .01764, + .44588, .16539, .15508, .01371, .00087, + -.00017, .00870, .01675 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43186, .15916, .14168, .01316, .00101, + .00004, .00839, .01589, + .42049, .15417, .13156, .01271, .00112, + .00020, .00813, .01524, + .40706, .14835, .12043, .01219, .00121, + .00034, .00784, .01443, + .39550, .14342, .11146, .01176, .00129, + .00046, .00759, .01377, + .38516, .13907, .10395, .01138, .00134, + .00055, .00733, .01319, + .37240, .13369, .09528, .01089, .00139, + .00065, .00702, .01251, + .36077, .12886, .08792, .01045, .00141, + .00071, .00675, .01191, + .35021, .12451, .08166, .01006, .00144, + .00078, .00649, .01137 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33992, .12030, .07591, .00967, .00145, + .00081, .00626, .01085, + .33017, .11634, .07079, .00929, .00145, + .00085, .00602, .01037, + .32119, .11275, .06631, .00896, .00146, + .00088, .00581, .00992, + .31294, .10945, .06242, .00865, .00145, + .00090, .00562, .00953, + .30488, .10624, .05882, .00835, .00144, + .00091, .00544, .00916, + .29707, .10319, .05549, .00809, .00143, + .00092, .00526, .00881, + .28988, .10039, .05253, .00785, .00142, + .00093, .00510, .00849, + .28321, .09778, .04995, .00761, .00140, + .00093, .00494, .00819 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27670, .09524, .04749, .00737, .00139, + .00094, .00479, .00791, + .27038, .09280, .04521, .00715, .00137, + .00094, .00465, .00764, + .26449, .09053, .04318, .00695, .00136, + .00094, .00451, .00738, + .25904, .08844, .04135, .00677, .00134, + .00093, .00440, .00714, + .25359, .08638, .03959, .00658, .00132, + .00092, .00427, .00692 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .64137, .25891, .41470, .01710, .00000, + .00000, .00828, .02555, + .62670, .25042, .38260, .01694, .00000, + .00000, .00843, .02431, + .60478, .23809, .34719, .01646, -.00374, + .00000, .00855, .02270, + .58883, .22941, .31836, .01599, -.00327, + .00000, .00853, .02170, + .57202, .22090, .29047, .01564, -.00276, + .00000, .00848, .02053, + .55788, .21376, .26810, .01527, -.00224, + .00000, .00839, .01968, + .54447, .20711, .24842, .01488, -.00176, + .00000, .00831, .01887, + .53041, .20032, .22931, .01449, -.00134, + .00000, .00819, .01803 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51832, .19462, .21397, .01412, -.00103, + .00000, .00808, .01731, + .50687, .18922, .20023, .01376, -.00077, + .00000, .00794, .01669, + .49795, .18508, .19009, .01345, -.00057, + .00000, .00781, .01621, + .47923, .17658, .17051, .01290, -.00022, + .00000, .00756, .01525, + .46374, .16966, .15651, .01241, .00002, + -.00092, .00732, .01448, + .44688, .16230, .14046, .01187, .00025, + -.00060, .00705, .01366, + .42991, .15498, .12576, .01132, .00045, + -.00035, .00679, .01281, + .41504, .14865, .11396, .01085, .00058, + -.00017, .00654, .01210 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40054, .14257, .10336, .01037, .00069, + -.00001, .00626, .01143, + .38883, .13772, .09539, .00998, .00077, + .00011, .00606, .01090, + .37505, .13206, .08672, .00953, .00085, + .00022, .00580, .01034, + .36329, .12729, .07982, .00915, .00089, + .00030, .00557, .00986, + .35287, .12309, .07410, .00879, .00093, + .00036, .00538, .00939, + .34001, .11794, .06750, .00838, .00096, + .00044, .00514, .00888, + .32834, .11333, .06192, .00803, .00099, + .00049, .00493, .00841, + .31780, .10921, .05724, .00770, .00100, + .00053, .00474, .00797 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30754, .10523, .05300, .00738, .00101, + .00056, .00453, .00760, + .29788, .10151, .04920, .00709, .00101, + .00058, .00435, .00724, + .28907, .09810, .04593, .00680, .00101, + .00060, .00418, .00693, + .28097, .09502, .04308, .00653, .00101, + .00062, .00404, .00664, + .27313, .09202, .04042, .00629, .00100, + .00063, .00391, .00635, + .26554, .08917, .03803, .00608, .00099, + .00064, .00376, .00610, + .25857, .08657, .03591, .00588, .00098, + .00064, .00363, .00586, + .25212, .08417, .03407, .00569, .00097, + .00064, .00352, .00564 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24581, .08183, .03231, .00550, .00096, + .00065, .00341, .00543, + .23974, .07958, .03070, .00531, .00094, + .00064, .00331, .00522, + .23409, .07749, .02925, .00515, .00093, + .00064, .00320, .00504, + .22886, .07557, .02796, .00501, .00092, + .00064, .00311, .00488, + .22365, .07368, .02673, .00487, .00090, + .00063, .00301, .00471 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .62850, .24477, .33533, .01442, .00000, + .00000, .00630, .01907, + .61130, .23542, .30646, .01414, .00000, + .00000, .00646, .01818, + .58587, .22240, .27464, .01364, -.00312, + .00000, .00656, .01689, + .56762, .21346, .24945, .01327, -.00270, + .00000, .00655, .01600, + .54896, .20449, .22534, .01287, -.00227, + .00000, .00655, .01512, + .53331, .19714, .20635, .01249, -.00185, + .00000, .00645, .01448, + .51857, .19040, .18974, .01216, -.00146, + .00000, .00634, .01382, + .50330, .18352, .17372, .01179, -.00112, + .00000, .00626, .01316 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .49036, .17770, .16102, .01142, -.00087, + .00000, .00613, .01267, + .47811, .17229, .14974, .01107, -.00066, + .00000, .00602, .01217, + .46863, .16815, .14145, .01083, -.00050, + .00000, .00593, .01178, + .44895, .15973, .12562, .01030, -.00023, + .00000, .00570, .01101, + .43274, .15294, .11441, .00987, -.00005, + -.00073, .00549, .01040, + .41530, .14570, .10166, .00939, .00013, + -.00049, .00528, .00976, + .39783, .13856, .09013, .00890, .00028, + -.00030, .00504, .00916, + .38261, .13242, .08101, .00845, .00038, + -.00016, .00482, .00865 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36788, .12654, .07285, .00805, .00047, + -.00003, .00463, .00815, + .35608, .12186, .06682, .00775, .00052, + .00005, .00444, .00775, + .34228, .11650, .06029, .00736, .00057, + .00013, .00425, .00729, + .33058, .11195, .05512, .00702, .00061, + .00019, .00408, .00690, + .32025, .10794, .05084, .00673, .00064, + .00025, .00393, .00659, + .30748, .10310, .04602, .00641, .00066, + .00029, .00373, .00619, + .29600, .09878, .04196, .00612, .00068, + .00033, .00356, .00585, + .28570, .09491, .03857, .00585, .00070, + .00036, .00341, .00554 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27572, .09122, .03552, .00559, .00070, + .00039, .00326, .00525, + .26634, .08775, .03283, .00533, .00069, + .00040, .00313, .00499, + .25777, .08459, .03051, .00511, .00070, + .00041, .00300, .00477, + .24997, .08174, .02851, .00490, .00069, + .00042, .00288, .00456, + .24241, .07899, .02670, .00469, .00068, + .00043, .00275, .00436, + .23514, .07637, .02504, .00452, .00068, + .00043, .00266, .00416, + .22849, .07399, .02358, .00436, .00067, + .00043, .00257, .00398, + .22236, .07178, .02230, .00421, .00066, + .00044, .00248, .00384 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21640, .06963, .02110, .00405, .00065, + .00043, .00239, .00369, + .21063, .06760, .01999, .00392, .00064, + .00044, .00231, .00356, + .20527, .06572, .01901, .00380, .00064, + .00044, .00223, .00343, + .20032, .06400, .01815, .00368, .00062, + .00043, .00216, .00331, + .19546, .06228, .01732, .00356, .00061, + .00042, .00209, .00320 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .61044, .22893, .26313, .01187, .00000, + .00000, .00488, .01398, + .59074, .21923, .23794, .01152, .00000, + .00000, .00505, .01329, + .56227, .20570, .21048, .01107, -.00257, + .00000, .00508, .01234, + .54228, .19652, .18902, .01072, -.00220, + .00000, .00509, .01165, + .52195, .18753, .16896, .01033, -.00184, + .00000, .00496, .01103, + .50509, .18016, .15324, .01003, -.00149, + .00000, .00494, .01043, + .48941, .17338, .13971, .00968, -.00119, + .00000, .00487, .00996, + .47329, .16649, .12676, .00930, -.00092, + .00000, .00475, .00952 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .45963, .16076, .11663, .00903, -.00073, + .00000, .00463, .00909, + .44677, .15543, .10762, .00878, -.00056, + .00000, .00454, .00871, + .43688, .15137, .10106, .00854, -.00044, + .00000, .00446, .00843, + .41661, .14311, .08869, .00806, -.00022, + .00000, .00426, .00786, + .40008, .13648, .08000, .00765, -.00008, + -.00056, .00411, .00744, + .38233, .12952, .07031, .00723, .00005, + -.00038, .00390, .00696, + .36473, .12268, .06160, .00683, .00017, + -.00024, .00372, .00649, + .34951, .11683, .05477, .00649, .00024, + -.00014, .00357, .00607 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33483, .11125, .04878, .00615, .00031, + -.00004, .00341, .00569, + .32316, .10685, .04437, .00587, .00035, + .00002, .00327, .00539, + .30952, .10176, .03965, .00557, .00039, + .00008, .00310, .00509, + .29799, .09751, .03598, .00530, .00041, + .00012, .00297, .00481, + .28786, .09379, .03297, .00507, .00044, + .00016, .00286, .00453, + .27552, .08928, .02957, .00479, .00046, + .00020, .00269, .00427, + .26441, .08527, .02678, .00454, .00047, + .00022, .00256, .00402, + .25445, .08170, .02445, .00434, .00048, + .00025, .00244, .00380 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24486, .07831, .02239, .00414, .00047, + .00026, .00233, .00358, + .23590, .07514, .02058, .00396, .00047, + .00027, .00223, .00338, + .22779, .07226, .01904, .00375, .00047, + .00027, .00213, .00323, + .22034, .06965, .01771, .00360, .00046, + .00028, .00204, .00310, + .21313, .06714, .01649, .00346, .00046, + .00029, .00197, .00297, + .20629, .06478, .01542, .00333, .00046, + .00029, .00189, .00282, + .20003, .06261, .01447, .00321, .00046, + .00030, .00182, .00268, + .19429, .06064, .01366, .00307, .00045, + .00029, .00175, .00257 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18871, .05873, .01291, .00294, .00044, + .00030, .00167, .00247, + .18333, .05689, .01222, .00283, .00043, + .00029, .00162, .00237, + .17837, .05521, .01161, .00272, .00042, + .00029, .00157, .00228, + .17379, .05367, .01105, .00263, .00042, + .00029, .00153, .00219, + .16925, .05215, .01053, .00256, .00041, + .00029, .00147, .00211 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .58734, .21253, .19813, .00991, .00000, + .00000, .00358, .00983, + .56556, .20258, .17696, .00960, .00000, + .00000, .00368, .00937, + .53455, .18892, .15422, .00912, -.00208, + .00000, .00371, .00866, + .51316, .17967, .13665, .00873, -.00177, + .00000, .00371, .00824, + .49170, .17055, .12048, .00840, -.00147, + .00000, .00371, .00771, + .47403, .16321, .10804, .00803, -.00120, + .00000, .00364, .00738, + .45766, .15655, .09741, .00772, -.00095, + .00000, .00357, .00705, + .44090, .14982, .08740, .00742, -.00074, + .00000, .00348, .00668 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .42685, .14422, .07960, .00715, -.00059, + .00000, .00340, .00639, + .41376, .13903, .07282, .00688, -.00046, + .00000, .00332, .00609, + .40370, .13508, .06788, .00667, -.00037, + .00000, .00328, .00587, + .38307, .12718, .05872, .00632, -.00020, + .00000, .00313, .00544, + .36647, .12084, .05231, .00595, -.00010, + -.00044, .00300, .00513, + .34879, .11421, .04523, .00561, .00000, + -.00030, .00287, .00476, + .33135, .10772, .03899, .00525, .00009, + -.00019, .00272, .00444, + .31634, .10221, .03418, .00495, .00015, + -.00012, .00258, .00417 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .30191, .09701, .03000, .00468, .00020, + -.00004, .00245, .00389, + .29055, .09289, .02699, .00445, .00023, + .00000, .00232, .00369, + .27736, .08817, .02381, .00417, .00026, + .00004, .00221, .00346, + .26625, .08423, .02136, .00396, .00027, + .00007, .00210, .00326, + .25650, .08078, .01936, .00379, .00029, + .00010, .00201, .00310, + .24457, .07666, .01716, .00360, .00030, + .00012, .00192, .00287, + .23399, .07301, .01538, .00339, .00031, + .00015, .00180, .00269, + .22460, .06976, .01390, .00320, .00031, + .00016, .00171, .00256 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21556, .06665, .01261, .00303, .00031, + .00017, .00162, .00242, + .20708, .06378, .01151, .00287, .00032, + .00018, .00155, .00229, + .19940, .06118, .01058, .00277, .00032, + .00018, .00148, .00216, + .19246, .05886, .00980, .00263, .00032, + .00019, .00142, .00204, + .18579, .05663, .00908, .00251, .00031, + .00019, .00136, .00194, + .17939, .05452, .00845, .00241, .00031, + .00020, .00130, .00185, + .17357, .05260, .00792, .00231, .00030, + .00019, .00124, .00176, + .16823, .05085, .00744, .00222, .00030, + .00020, .00120, .00169 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16307, .04914, .00701, .00213, .00029, + .00020, .00117, .00161, + .15811, .04751, .00662, .00205, .00029, + .00019, .00112, .00155, + .15354, .04603, .00628, .00197, .00029, + .00020, .00107, .00149, + .14934, .04465, .00600, .00189, .00028, + .00019, .00102, .00144, + .14519, .04332, .00569, .00184, .00027, + .00019, .00099, .00139 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .56000, .19547, .14010, .00809, .00000, + .00000, .00258, .00676, + .53651, .18549, .12325, .00784, .00000, + .00000, .00259, .00644, + .50373, .17177, .10531, .00735, -.00165, + .00000, .00267, .00603, + .48122, .16273, .09170, .00707, -.00139, + .00000, .00266, .00562, + .45892, .15382, .07934, .00667, -.00115, + .00000, .00265, .00534, + .44068, .14667, .07005, .00642, -.00094, + .00000, .00258, .00506, + .42396, .14019, .06215, .00615, -.00074, + .00000, .00255, .00481, + .40698, .13364, .05479, .00586, -.00058, + .00000, .00250, .00456 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .39278, .12832, .04920, .00565, -.00046, + .00000, .00244, .00428, + .37959, .12339, .04439, .00544, -.00037, + .00000, .00238, .00405, + .36950, .11965, .04094, .00526, -.00029, + .00000, .00231, .00391, + .34906, .11207, .03455, .00490, -.00018, + .00000, .00218, .00367, + .33262, .10611, .03022, .00463, -.00009, + -.00033, .00209, .00343, + .31523, .09990, .02543, .00435, -.00002, + -.00023, .00200, .00317, + .29826, .09384, .02131, .00404, .00004, + -.00015, .00189, .00292, + .28376, .08873, .01820, .00378, .00009, + -.00009, .00178, .00273 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .26988, .08388, .01553, .00356, .00012, + -.00005, .00167, .00258, + .25889, .08008, .01367, .00338, .00015, + -.00001, .00158, .00245, + .24620, .07578, .01172, .00320, .00017, + .00002, .00150, .00227, + .23560, .07219, .01026, .00303, .00018, + .00005, .00143, .00213, + .22636, .06907, .00911, .00288, .00019, + .00006, .00135, .00202, + .21519, .06530, .00790, .00269, .00020, + .00008, .00127, .00187, + .20523, .06199, .00693, .00253, .00021, + .00009, .00120, .00175, + .19638, .05907, .00614, .00240, .00021, + .00011, .00117, .00163 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18795, .05630, .00548, .00226, .00021, + .00011, .00110, .00154, + .18011, .05372, .00491, .00213, .00022, + .00012, .00103, .00146, + .17300, .05141, .00444, .00203, .00021, + .00012, .00099, .00139, + .16657, .04933, .00406, .00193, .00021, + .00013, .00094, .00133, + .16039, .04735, .00371, .00185, .00021, + .00013, .00092, .00124, + .15455, .04548, .00343, .00176, .00020, + .00013, .00087, .00119, + .14925, .04378, .00320, .00168, .00020, + .00013, .00084, .00113, + .14439, .04223, .00299, .00161, .00020, + .00013, .00079, .00108 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13967, .04075, .00280, .00155, .00019, + .00013, .00076, .00104, + .13516, .03933, .00263, .00149, .00020, + .00014, .00073, .00099, + .13100, .03802, .00251, .00143, .00019, + .00013, .00069, .00096, + .12719, .03684, .00239, .00138, .00019, + .00013, .00067, .00091, + .12345, .03566, .00229, .00132, .00018, + .00013, .00064, .00089 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .52888, .17786, .08951, .00632, .00000, + .00000, .00186, .00459, + .50416, .16796, .07686, .00608, .00000, + .00000, .00192, .00438, + .47002, .15457, .06380, .00571, -.00129, + .00000, .00201, .00404, + .44696, .14576, .05398, .00542, -.00108, + .00000, .00195, .00379, + .42425, .13715, .04513, .00516, -.00088, + .00000, .00195, .00357, + .40583, .13028, .03867, .00489, -.00072, + .00000, .00190, .00341, + .38900, .12407, .03332, .00467, -.00057, + .00000, .00186, .00325, + .37201, .11788, .02839, .00444, -.00045, + .00000, .00182, .00307 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .35790, .11281, .02477, .00423, -.00037, + .00000, .00175, .00295, + .34485, .10815, .02166, .00406, -.00029, + .00000, .00170, .00281, + .33489, .10462, .01951, .00392, -.00024, + .00000, .00167, .00270, + .31489, .09758, .01563, .00363, -.00014, + .00000, .00157, .00248, + .29889, .09205, .01303, .00342, -.00008, + -.00024, .00151, .00229, + .28206, .08627, .01015, .00320, -.00003, + -.00017, .00143, .00212, + .26570, .08071, .00783, .00298, .00001, + -.00012, .00132, .00198, + .25179, .07602, .00610, .00278, .00005, + -.00007, .00125, .00185 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .23861, .07161, .00470, .00257, .00008, + -.00003, .00119, .00172, + .22822, .06822, .00377, .00246, .00009, + -.00002, .00115, .00158, + .21633, .06428, .00286, .00227, .00011, + .00001, .00107, .00148, + .20641, .06104, .00221, .00212, .00011, + .00002, .00101, .00140, + .19774, .05826, .00173, .00202, .00012, + .00003, .00096, .00131, + .18729, .05489, .00122, .00191, .00013, + .00005, .00089, .00121, + .17808, .05195, .00087, .00177, .00013, + .00006, .00085, .00114, + .16993, .04936, .00060, .00166, .00014, + .00007, .00081, .00108 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16215, .04690, .00040, .00157, .00014, + .00008, .00076, .00103, + .15492, .04465, .00025, .00148, .00014, + .00008, .00073, .00096, + .14843, .04263, .00016, .00141, .00014, + .00008, .00070, .00090, + .14259, .04080, .00009, .00134, .00014, + .00008, .00066, .00084, + .13701, .03906, .00004, .00125, .00013, + .00008, .00062, .00080, + .13170, .03743, -.00001, .00121, .00014, + .00009, .00060, .00076, + .12687, .03596, -.00003, .00116, .00013, + .00009, .00057, .00073, + .12250, .03462, -.00004, .00110, .00013, + .00009, .00054, .00069 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11828, .03333, -.00003, .00103, .00013, + .00008, .00052, .00067, + .11422, .03212, -.00003, .00098, .00012, + .00008, .00049, .00063, + .11048, .03099, -.00003, .00096, .00012, + .00008, .00048, .00061, + .10707, .02997, -.00002, .00094, .00012, + .00009, .00046, .00059, + .10375, .02897, .00001, .00090, .00012, + .00009, .00044, .00055 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .49464, .16019, .04623, .00483, .00000, + .00000, .00141, .00306, + .46916, .15055, .03767, .00462, .00000, + .00000, .00145, .00292, + .43437, .13754, .02949, .00420, -.00099, + .00000, .00150, .00272, + .41103, .12906, .02312, .00394, -.00082, + .00000, .00148, .00263, + .38831, .12088, .01769, .00368, -.00067, + .00000, .00146, .00244, + .36996, .11442, .01375, .00351, -.00055, + .00000, .00142, .00233, + .35333, .10858, .01060, .00334, -.00043, + .00000, .00139, .00221, + .33662, .10277, .00783, .00316, -.00034, + .00000, .00136, .00208 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .32274, .09803, .00590, .00304, -.00028, + .00000, .00132, .00197, + .31003, .09371, .00428, .00288, -.00022, + .00000, .00128, .00189, + .30043, .09044, .00318, .00276, -.00018, + .00000, .00124, .00185, + .28108, .08394, .00142, .00251, -.00012, + .00000, .00119, .00169, + .26574, .07886, .00027, .00237, -.00007, + -.00018, .00112, .00156, + .24976, .07360, -.00096, .00216, -.00003, + -.00012, .00105, .00146, + .23428, .06857, -.00195, .00200, .00001, + -.00008, .00099, .00136, + .22113, .06435, -.00252, .00186, .00003, + -.00005, .00094, .00126 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .20874, .06039, -.00290, .00172, .00004, + -.00004, .00088, .00117, + .19905, .05732, -.00309, .00161, .00006, + -.00001, .00082, .00110, + .18797, .05388, -.00326, .00152, .00007, + .00000, .00078, .00099, + .17876, .05100, -.00328, .00143, .00007, + .00001, .00074, .00093, + .17080, .04852, -.00328, .00133, .00008, + .00003, .00069, .00089, + .16122, .04557, -.00323, .00124, .00008, + .00003, .00065, .00082, + .15279, .04298, -.00312, .00116, .00008, + .00004, .00061, .00077, + .14535, .04072, -.00301, .00110, .00009, + .00005, .00058, .00074 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13831, .03859, -.00288, .00102, .00009, + .00005, .00055, .00069, + .13178, .03663, -.00274, .00096, .00008, + .00005, .00052, .00064, + .12592, .03489, -.00258, .00090, .00009, + .00006, .00048, .00060, + .12066, .03331, -.00243, .00086, .00009, + .00005, .00046, .00056, + .11567, .03182, -.00230, .00081, .00008, + .00005, .00044, .00054, + .11093, .03042, -.00216, .00078, .00008, + .00005, .00041, .00051, + .10663, .02918, -.00203, .00074, .00008, + .00005, .00040, .00047, + .10272, .02804, -.00192, .00071, .00009, + .00006, .00038, .00045 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09895, .02693, -.00179, .00067, .00008, + .00006, .00037, .00042, + .09539, .02589, -.00168, .00064, .00008, + .00006, .00034, .00041, + .09212, .02495, -.00159, .00062, .00008, + .00006, .00033, .00039, + .08914, .02408, -.00148, .00060, .00008, + .00005, .00032, .00038, + .08623, .02323, -.00138, .00056, .00007, + .00005, .00031, .00036 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .45839, .14350, .00974, .00403, .00000, + .00000, .00075, .00177, + .43264, .13417, .00506, .00379, .00000, + .00000, .00081, .00175, + .39779, .12183, .00119, .00344, -.00074, + .00000, .00086, .00166, + .37457, .11379, -.00203, .00329, -.00061, + .00000, .00087, .00157, + .35220, .10608, -.00450, .00302, -.00049, + .00000, .00088, .00147, + .33421, .10004, -.00616, .00289, -.00040, + .00000, .00090, .00134, + .31806, .09459, -.00736, .00273, -.00032, + .00000, .00087, .00129, + .30194, .08918, -.00821, .00249, -.00026, + .00000, .00080, .00128 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .28865, .08481, -.00879, .00234, -.00021, + .00000, .00080, .00123, + .27645, .08083, -.00909, .00223, -.00016, + .00000, .00076, .00114, + .26722, .07785, -.00925, .00217, -.00014, + .00000, .00075, .00107, + .24881, .07192, -.00940, .00195, -.00009, + .00000, .00071, .00101, + .23431, .06731, -.00923, .00180, -.00006, + -.00013, .00068, .00094, + .21925, .06257, -.00921, .00167, -.00003, + -.00010, .00062, .00087, + .20471, .05806, -.00904, .00157, -.00001, + -.00007, .00059, .00079, + .19250, .05429, -.00876, .00147, .00001, + -.00004, .00055, .00073 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .18106, .05078, -.00837, .00134, .00002, + -.00003, .00052, .00068, + .17217, .04807, -.00805, .00124, .00003, + -.00001, .00050, .00063, + .16201, .04498, -.00759, .00115, .00004, + .00000, .00045, .00059, + .15361, .04246, -.00722, .00108, .00005, + .00001, .00044, .00057, + .14638, .04028, -.00686, .00101, .00005, + .00001, .00043, .00053, + .13774, .03772, -.00634, .00090, .00005, + .00002, .00038, .00050, + .13010, .03547, -.00590, .00085, .00005, + .00002, .00035, .00046, + .12335, .03350, -.00553, .00084, .00006, + .00003, .00035, .00044 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11704, .03166, -.00513, .00077, .00006, + .00003, .00032, .00040, + .11124, .02996, -.00475, .00070, .00005, + .00003, .00030, .00037, + .10604, .02846, -.00444, .00067, .00005, + .00003, .00028, .00036, + .10136, .02712, -.00416, .00063, .00006, + .00004, .00027, .00034, + .09689, .02585, -.00386, .00060, .00006, + .00004, .00024, .00031, + .09271, .02466, -.00360, .00057, .00006, + .00004, .00023, .00029, + .08893, .02359, -.00337, .00057, .00005, + .00004, .00022, .00027, + .08551, .02263, -.00315, .00053, .00005, + .00003, .00021, .00026 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08221, .02170, -.00295, .00050, .00005, + .00003, .00021, .00024, + .07909, .02082, -.00276, .00048, .00005, + .00003, .00020, .00023, + .07625, .02001, -.00259, .00045, .00005, + .00003, .00019, .00022, + .07365, .01929, -.00245, .00044, .00005, + .00003, .00017, .00022, + .07111, .01857, -.00229, .00041, .00004, + .00003, .00017, .00021 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .42002, .12628, -.01913, .00273, .00000, + .00000, .00060, .00121, + .39431, .11757, -.02032, .00265, .00000, + .00000, .00061, .00113, + .35981, .10608, -.02022, .00245, -.00054, + .00000, .00067, .00100, + .33742, .09858, -.02075, .00222, -.00044, + .00000, .00064, .00101, + .31559, .09149, -.02087, .00208, -.00035, + .00000, .00065, .00099, + .29837, .08595, -.02059, .00192, -.00029, + .00000, .00064, .00091, + .28285, .08098, -.02016, .00181, -.00023, + .00000, .00060, .00084, + .26738, .07610, -.01964, .00174, -.00019, + .00000, .00061, .00079 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .25475, .07215, -.01902, .00165, -.00015, + .00000, .00058, .00074, + .24324, .06855, -.01840, .00156, -.00012, + .00000, .00057, .00072, + .23458, .06585, -.01791, .00148, -.00010, + .00000, .00055, .00074, + .21733, .06059, -.01664, .00136, -.00007, + .00000, .00049, .00064, + .20384, .05647, -.01560, .00126, -.00005, + -.00009, .00045, .00061, + .18991, .05227, -.01468, .00117, -.00002, + -.00006, .00045, .00055, + .17658, .04830, -.01363, .00107, -.00001, + -.00005, .00042, .00048, + .16542, .04499, -.01267, .00096, .00001, + -.00003, .00038, .00047 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15499, .04192, -.01177, .00089, .00001, + -.00002, .00034, .00045, + .14686, .03957, -.01106, .00087, .00002, + -.00001, .00032, .00041, + .13770, .03691, -.01018, .00079, .00003, + .00000, .00030, .00037, + .13013, .03473, -.00944, .00072, .00002, + .00000, .00028, .00035, + .12363, .03285, -.00882, .00070, .00002, + .00000, .00027, .00032, + .11590, .03064, -.00806, .00063, .00003, + .00001, .00024, .00030, + .10913, .02872, -.00741, .00058, .00003, + .00001, .00023, .00027, + .10321, .02706, -.00684, .00053, .00003, + .00001, .00021, .00026 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09763, .02548, -.00630, .00050, .00004, + .00002, .00020, .00024, + .09250, .02406, -.00582, .00048, .00004, + .00002, .00019, .00023, + .08792, .02279, -.00538, .00045, .00003, + .00002, .00018, .00021, + .08385, .02166, -.00500, .00043, .00003, + .00002, .00016, .00020, + .07996, .02060, -.00465, .00041, .00003, + .00002, .00017, .00019, + .07632, .01960, -.00432, .00038, .00003, + .00002, .00016, .00018, + .07308, .01872, -.00402, .00035, .00003, + .00002, .00014, .00017, + .07010, .01791, -.00376, .00034, .00003, + .00002, .00013, .00015 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06725, .01713, -.00351, .00033, .00003, + .00002, .00013, .00014, + .06458, .01641, -.00328, .00031, .00003, + .00002, .00012, .00014, + .06214, .01574, -.00307, .00028, .00003, + .00002, .00011, .00015, + .05992, .01513, -.00288, .00025, .00003, + .00003, .00011, .00013, + .05774, .01456, -.00271, .00025, .00003, + .00003, .00011, .00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .38029, .10988, -.04082, .00187, .00000, + .00000, .00050, .00070, + .35525, .10180, -.03920, .00173, .00000, + .00000, .00052, .00071, + .32201, .09115, -.03584, .00154, -.00038, + .00000, .00051, .00070, + .30024, .08438, -.03411, .00150, -.00031, + .00000, .00052, .00062, + .27955, .07794, -.03225, .00138, -.00025, + .00000, .00049, .00062, + .26313, .07289, -.03052, .00128, -.00020, + .00000, .00047, .00062, + .24848, .06846, -.02891, .00119, -.00016, + .00000, .00046, .00060, + .23398, .06411, -.02716, .00114, -.00013, + .00000, .00041, .00053 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .22222, .06055, -.02571, .00107, -.00011, + .00000, .00041, .00051, + .21150, .05737, -.02431, .00100, -.00008, + .00000, .00039, .00048, + .20347, .05500, -.02321, .00094, -.00007, + .00000, .00039, .00043, + .18756, .05033, -.02109, .00085, -.00005, + .00000, .00038, .00043, + .17523, .04672, -.01933, .00076, -.00004, + -.00006, .00034, .00038, + .16251, .04306, -.01769, .00070, -.00002, + -.00004, .00030, .00036, + .15039, .03961, -.01607, .00064, -.00001, + -.00003, .00028, .00032, + .14031, .03676, -.01477, .00060, .00000, + -.00002, .00026, .00030 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13095, .03412, -.01350, .00055, .00001, + -.00001, .00025, .00028, + .12375, .03208, -.01249, .00050, .00000, + -.00001, .00022, .00027, + .11559, .02981, -.01138, .00044, .00001, + .00000, .00021, .00026, + .10888, .02795, -.01046, .00042, .00001, + .00000, .00020, .00023, + .10308, .02637, -.00969, .00042, .00001, + .00000, .00019, .00021, + .09630, .02453, -.00879, .00038, .00002, + .00001, .00018, .00019, + .09036, .02292, -.00800, .00034, .00002, + .00001, .00017, .00018, + .08515, .02152, -.00733, .00032, .00002, + .00001, .00015, .00017 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .08030, .02021, -.00672, .00031, .00002, + .00001, .00014, .00016, + .07587, .01901, -.00615, .00029, .00002, + .00001, .00013, .00014, + .07193, .01796, -.00566, .00026, .00002, + .00001, .00011, .00014, + .06840, .01703, -.00523, .00024, .00002, + .00001, .00012, .00013, + .06507, .01616, -.00484, .00023, .00002, + .00001, .00010, .00011, + .06197, .01534, -.00446, .00021, .00001, + .00001, .00009, .00012, + .05918, .01460, -.00416, .00020, .00002, + .00002, .00009, .00012, + .05666, .01395, -.00388, .00019, .00002, + .00002, .00009, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05425, .01331, -.00362, .00018, .00002, + .00002, .00008, .00010, + .05196, .01272, -.00338, .00018, .00002, + .00002, .00008, .00009, + .04987, .01219, -.00315, .00018, .00002, + .00002, .00008, .00008, + .04798, .01171, -.00296, .00018, .00002, + .00002, .00007, .00008, + .04617, .01124, -.00279, .00017, .00002, + .00002, .00007, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .34090, .09493, -.05716, .00149, .00000, + .00000, .00019, .00041, + .31685, .08746, -.05308, .00137, .00000, + .00000, .00026, .00038, + .28500, .07784, -.04692, .00126, -.00027, + .00000, .00023, .00034, + .26451, .07170, -.04351, .00118, -.00022, + .00000, .00025, .00034, + .24506, .06588, -.04000, .00103, -.00017, + .00000, .00023, .00035, + .22976, .06139, -.03716, .00097, -.00014, + .00000, .00024, .00030, + .21615, .05744, -.03456, .00089, -.00011, + .00000, .00024, .00028, + .20276, .05358, -.03197, .00081, -.00009, + .00000, .00023, .00028 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .19184, .05045, -.02986, .00077, -.00008, + .00000, .00022, .00028, + .18199, .04763, -.02797, .00074, -.00006, + .00000, .00023, .00025, + .17464, .04554, -.02651, .00071, -.00005, + .00000, .00022, .00024, + .16010, .04147, -.02366, .00068, -.00003, + .00000, .00020, .00020, + .14898, .03836, -.02150, .00060, -.00002, + -.00004, .00019, .00020, + .13758, .03520, -.01943, .00053, -.00002, + -.00003, .00018, .00019, + .12676, .03222, -.01741, .00047, -.00001, + -.00002, .00016, .00019, + .11777, .02978, -.01574, .00044, .00000, + -.00001, .00013, .00016 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .10946, .02754, -.01424, .00040, .00000, + -.00001, .00014, .00013, + .10308, .02581, -.01311, .00037, .00000, + -.00001, .00012, .00014, + .09589, .02389, -.01184, .00036, .00000, + -.00001, .00011, .00013, + .09003, .02234, -.01082, .00034, .00001, + .00000, .00010, .00012, + .08503, .02102, -.00995, .00029, .00001, + .00000, .00008, .00012, + .07913, .01946, -.00895, .00026, .00001, + .00000, .00007, .00011, + .07399, .01812, -.00810, .00025, .00001, + .00000, .00007, .00009, + .06949, .01696, -.00740, .00025, .00001, + .00000, .00008, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06534, .01588, -.00674, .00022, .00001, + .00000, .00007, .00007, + .06155, .01491, -.00615, .00021, .00001, + .00000, .00007, .00007, + .05819, .01404, -.00564, .00019, .00002, + .00001, .00007, .00007, + .05519, .01328, -.00521, .00018, .00002, + .00001, .00005, .00007, + .05237, .01256, -.00481, .00017, .00002, + .00001, .00006, .00007, + .04974, .01189, -.00443, .00017, .00002, + .00001, .00006, .00006, + .04739, .01130, -.00411, .00015, .00001, + .00001, .00006, .00006, + .04530, .01077, -.00382, .00014, .00001, + .00001, .00006, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04329, .01026, -.00355, .00013, .00001, + .00001, .00004, .00004, + .04137, .00978, -.00330, .00012, .00001, + .00001, .00004, .00004, + .03964, .00935, -.00309, .00012, .00001, + .00001, .00004, .00004, + .03807, .00897, -.00290, .00012, .00001, + .00001, .00003, .00005, + .03654, .00859, -.00271, .00012, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .30118, .08024, -.06690, .00080, .00000, + .00000, .00024, .00029, + .27842, .07364, -.06115, .00078, .00000, + .00000, .00023, .00029, + .24858, .06506, -.05308, .00071, -.00018, + .00000, .00023, .00026, + .22962, .05964, -.04841, .00062, -.00014, + .00000, .00024, .00025, + .21160, .05457, -.04374, .00053, -.00012, + .00000, .00020, .00022, + .19747, .05064, -.04020, .00055, -.00010, + .00000, .00020, .00022, + .18502, .04717, -.03705, .00054, -.00007, + .00000, .00020, .00021, + .17284, .04381, -.03392, .00049, -.00006, + .00000, .00018, .00019 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .16303, .04113, -.03139, .00043, -.00005, + .00000, .00017, .00019, + .15418, .03871, -.02909, .00039, -.00004, + .00000, .00014, .00018, + .14757, .03692, -.02744, .00037, -.00003, + .00000, .00013, .00018, + .13455, .03345, -.02418, .00036, -.00003, + .00000, .00012, .00015, + .12461, .03081, -.02181, .00032, -.00002, + -.00003, .00013, .00014, + .11452, .02813, -.01947, .00028, -.00001, + -.00002, .00012, .00014, + .10500, .02564, -.01730, .00025, -.00001, + -.00001, .00011, .00012, + .09716, .02360, -.01554, .00024, -.00001, + -.00001, .00009, .00011 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .08994, .02172, -.01395, .00021, .00000, + .00000, .00008, .00011, + .08439, .02031, -.01274, .00020, .00000, + .00000, .00008, .00008, + .07819, .01873, -.01145, .00019, .00000, + .00000, .00008, .00008, + .07315, .01745, -.01038, .00016, .00000, + .00000, .00007, .00007, + .06887, .01636, -.00952, .00015, .00000, + .00000, .00007, .00007, + .06382, .01508, -.00850, .00015, .00000, + .00000, .00006, .00006, + .05947, .01400, -.00768, .00014, .00000, + .00000, .00006, .00006, + .05571, .01306, -.00695, .00011, .00001, + .00001, .00004, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05218, .01219, -.00631, .00011, .00001, + .00001, .00005, .00005, + .04898, .01141, -.00574, .00011, .00001, + .00001, .00005, .00005, + .04616, .01071, -.00526, .00011, .00001, + .00001, .00005, .00005, + .04369, .01010, -.00483, .00010, .00001, + .00001, .00005, .00003, + .04135, .00953, -.00443, .00008, .00001, + .00001, .00003, .00003, + .03916, .00901, -.00408, .00008, .00001, + .00001, .00003, .00003, + .03721, .00854, -.00378, .00008, .00001, + .00001, .00003, .00003, + .03547, .00811, -.00350, .00007, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03381, .00772, -.00325, .00007, .00001, + .00001, .00003, .00003, + .03224, .00734, -.00301, .00006, .00001, + .00001, .00003, .00003, + .03084, .00699, -.00282, .00006, .00001, + .00001, .00003, .00003, + .02955, .00669, -.00262, .00006, .00001, + .00001, .00002, .00002, + .02831, .00639, -.00245, .00006, .00001, + .00001, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .22514, .05518, -.07241, .00038, .00000, + .00000, .00004, .00006, + .20584, .05007, -.06469, .00033, .00000, + .00000, .00007, .00009, + .18100, .04358, -.05465, .00025, -.00007, + .00000, .00008, .00008, + .16531, .03953, -.04870, .00025, -.00006, + .00000, .00004, .00008, + .15062, .03581, -.04326, .00027, -.00005, + .00000, .00007, .00007, + .13939, .03293, -.03901, .00023, -.00004, + .00000, .00004, .00008, + .12954, .03044, -.03540, .00019, -.00003, + .00000, .00006, .00008, + .11998, .02803, -.03194, .00016, -.00003, + .00000, .00006, .00008 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .11232, .02612, -.02923, .00017, -.00002, + .00000, .00006, .00006, + .10546, .02443, -.02682, .00015, -.00002, + .00000, .00006, .00006, + .10038, .02318, -.02506, .00015, -.00002, + .00000, .00005, .00007, + .09056, .02077, -.02171, .00012, -.00001, + .00000, .00005, .00007, + .08309, .01895, -.01929, .00013, -.00001, + -.00001, .00003, .00005, + .07561, .01713, -.01695, .00011, -.00001, + -.00001, .00003, .00003, + .06865, .01547, -.01484, .00009, -.00001, + -.00001, .00003, .00003, + .06295, .01411, -.01315, .00008, -.00001, + -.00001, .00004, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05774, .01288, -.01165, .00008, -.00001, + -.00001, .00004, .00002, + .05380, .01196, -.01058, .00008, .00000, + .00000, .00004, .00003, + .04944, .01094, -.00935, .00005, .00000, + .00000, .00002, .00002, + .04593, .01011, -.00842, .00005, .00000, + .00000, .00002, .00002, + .04295, .00941, -.00767, .00005, .00000, + .00000, .00003, .00003, + .03947, .00862, -.00680, .00005, .00000, + .00000, .00003, .00003, + .03649, .00794, -.00606, .00004, .00000, + .00000, .00003, .00001, + .03395, .00735, -.00545, .00004, .00000, + .00000, .00003, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .03158, .00681, -.00490, .00004, .00000, + .00000, .00001, .00001, + .02946, .00634, -.00443, .00004, .00000, + .00000, .00001, .00001, + .02760, .00592, -.00402, .00002, .00000, + .00000, .00001, .00001, + .02597, .00555, -.00368, .00002, .00000, + .00000, .00001, .00001, + .02444, .00520, -.00336, .00002, .00000, + .00000, .00001, .00001, + .02303, .00489, -.00308, .00002, .00000, + .00000, .00001, .00001, + .02176, .00461, -.00284, .00003, .00000, + .00000, .00001, .00001, + .02064, .00436, -.00262, .00003, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01957, .00413, -.00242, .00003, .00000, + .00000, .00001, .00001, + .01858, .00391, -.00224, .00002, .00000, + .00000, .00001, .00001, + .01769, .00372, -.00207, .00001, .00000, + .00000, .00001, .00001, + .01689, .00353, -.00193, .00001, .00000, + .00000, .00001, .00001, + .01612, .00336, -.00181, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .15654, .03501, -.06399, .00015, .00000, + .00000, .00003, .00001, + .14148, .03140, -.05619, .00012, .00000, + .00000, -.00001, .00004, + .12234, .02690, -.04655, .00011, -.00003, + .00000, .00002, .00002, + .11048, .02414, -.04084, .00011, -.00002, + .00000, .00003, .00000, + .09955, .02161, -.03565, .00010, -.00002, + .00000, .00001, -.00001, + .09124, .01969, -.03184, .00008, -.00001, + .00000, .00003, .00003, + .08401, .01805, -.02856, .00008, -.00001, + .00000, .00001, .00003, + .07710, .01647, -.02543, .00006, -.00001, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .07163, .01524, -.02304, .00004, -.00001, + .00000, .00001, .00001, + .06676, .01414, -.02095, .00004, -.00001, + .00000, .00001, .00001, + .06318, .01335, -.01946, .00004, -.00001, + .00000, .00001, .00001, + .05630, .01181, -.01663, .00004, .00000, + .00000, .00001, .00001, + .05117, .01068, -.01461, .00002, .00000, + .00000, .00001, .00001, + .04604, .00956, -.01270, .00003, .00000, + .00000, .00001, .00001, + .04133, .00852, -.01097, .00003, .00000, + .00000, .00001, .00001, + .03755, .00770, -.00961, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .03413, .00697, -.00844, .00002, .00000, + .00000, .00001, .00001, + .03156, .00642, -.00757, .00003, .00000, + .00000, .00000, .00000, + .02872, .00582, -.00664, .00001, .00000, + .00000, .00001, .00001, + .02647, .00534, -.00595, .00001, .00000, + .00000, .00001, .00001, + .02457, .00494, -.00534, .00001, .00000, + .00000, .00000, .00000, + .02238, .00448, -.00469, .00001, .00000, + .00000, .00000, .00000, + .02053, .00409, -.00415, .00001, .00000, + .00000, .00000, .00000, + .01896, .00377, -.00372, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01750, .00347, -.00332, .00001, .00000, + .00000, .00000, .00000, + .01621, .00319, -.00297, .00001, .00000, + .00000, .00000, .00000, + .01509, .00297, -.00269, .00001, .00000, + .00000, .00000, .00000, + .01410, .00276, -.00244, .00001, .00000, + .00000, .00000, .00000, + .01318, .00258, -.00221, .00001, .00000, + .00000, .00000, .00000, + .01235, .00241, -.00202, .00001, .00000, + .00000, .00000, .00000, + .01161, .00226, -.00184, .00000, .00000, + .00000, .00000, .00000, + .01096, .00212, -.00169, .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)/ + .01034, .00200, -.00156, .00000, .00000, + .00000, .00000, .00000, + .00976, .00188, -.00144, .00001, .00000, + .00000, .00000, .00000, + .00924, .00178, -.00133, .00001, .00000, + .00000, .00000, .00000, + .00877, .00169, -.00123, .00001, .00000, + .00000, .00000, .00000, + .00834, .00160, -.00114, .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)/ + .09919, .02000, -.04821, .00007, .00000, + .00000, -.00001, -.00001, + .08848, .01772, -.04172, .00004, .00000, + .00000, -.00001, -.00001, + .07509, .01492, -.03393, .00007, -.00001, + .00000, -.00001, -.00001, + .06700, .01324, -.02938, .00004, -.00001, + .00000, -.00001, -.00001, + .05963, .01170, -.02534, .00002, .00000, + .00000, .00000, .00002, + .05406, .01056, -.02231, .00002, .00000, + .00000, .00000, .00000, + .04928, .00957, -.01979, .00002, .00000, + .00000, .00000, .00000, + .04476, .00866, -.01748, .00002, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .04119, .00793, -.01567, .00002, .00000, + .00000, .00000, .00000, + .03808, .00730, -.01415, .00002, .00000, + .00000, .00000, .00000, + .03580, .00685, -.01304, .00002, .00000, + .00000, .00000, .00000, + .03148, .00599, -.01100, .00002, .00000, + .00000, .00000, .00000, + .02830, .00535, -.00958, .00002, .00000, + .00000, .00000, .00000, + .02517, .00472, -.00819, .00000, .00000, + .00000, .00000, .00000, + .02232, .00418, -.00699, .00000, .00000, + .00000, .00000, .00000, + .02005, .00374, -.00608, .00002, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01803, .00334, -.00528, .00002, .00000, + .00000, .00000, .00000, + .01652, .00305, -.00469, .00000, .00000, + .00000, .00000, .00000, + .01490, .00273, -.00409, .00002, .00000, + .00000, .00000, .00000, + .01360, .00248, -.00360, .00000, .00000, + .00000, .00000, .00000, + .01252, .00229, -.00323, .00000, .00000, + .00000, .00000, .00000, + .01130, .00206, -.00281, .00000, .00000, + .00000, .00000, .00000, + .01026, .00185, -.00246, .00000, .00000, + .00000, .00000, .00000, + .00938, .00168, -.00217, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00860, .00154, -.00193, .00000, .00000, + .00000, .00000, .00000, + .00789, .00142, -.00172, .00000, .00000, + .00000, .00000, .00000, + .00729, .00130, -.00154, .00000, .00000, + .00000, .00000, .00000, + .00677, .00120, -.00139, .00000, .00000, + .00000, .00000, .00000, + .00629, .00112, -.00126, .00000, .00000, + .00000, .00000, .00000, + .00584, .00104, -.00113, .00000, .00000, + .00000, .00000, .00000, + .00547, .00096, -.00104, .00000, .00000, + .00000, .00000, .00000, + .00513, .00090, -.00094, .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)/ + .00481, .00084, -.00086, .00000, .00000, + .00000, .00000, .00000, + .00452, .00079, -.00080, .00000, .00000, + .00000, .00000, .00000, + .00425, .00074, -.00072, .00000, .00000, + .00000, .00000, .00000, + .00402, .00070, -.00067, .00000, .00000, + .00000, .00000, .00000, + .00379, .00066, -.00062, .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)/ + .05495, .00974, -.03053, .00000, .00000, + .00000, .00000, .00000, + .04834, .00850, -.02609, .00000, .00000, + .00000, .00000, .00000, + .04022, .00703, -.02084, .00000, .00000, + .00000, .00000, .00000, + .03535, .00613, -.01778, .00000, .00000, + .00000, .00000, .00000, + .03099, .00535, -.01511, .00000, .00000, + .00000, .00000, .00000, + .02777, .00481, -.01322, .00000, .00000, + .00000, .00000, .00000, + .02502, .00431, -.01160, .00000, .00000, + .00000, .00000, .00000, + .02243, .00383, -.01009, .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)/ + .02046, .00351, -.00901, .00000, .00000, + .00000, .00000, .00000, + .01872, .00319, -.00804, .00000, .00000, + .00000, .00000, .00000, + .01748, .00297, -.00737, .00000, .00000, + .00000, .00000, .00000, + .01510, .00255, -.00610, .00000, .00000, + .00000, .00000, .00000, + .01341, .00224, -.00525, .00000, .00000, + .00000, .00000, .00000, + .01177, .00196, -.00444, .00000, .00000, + .00000, .00000, .00000, + .01028, .00170, -.00373, .00000, .00000, + .00000, .00000, .00000, + .00911, .00150, -.00320, .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)/ + .00808, .00134, -.00275, .00000, .00000, + .00000, .00000, .00000, + .00733, .00120, -.00242, .00000, .00000, + .00000, .00000, .00000, + .00653, .00108, -.00209, .00000, .00000, + .00000, .00000, .00000, + .00590, .00096, -.00183, .00000, .00000, + .00000, .00000, .00000, + .00539, .00087, -.00161, .00000, .00000, + .00000, .00000, .00000, + .00480, .00078, -.00140, .00000, .00000, + .00000, .00000, .00000, + .00431, .00070, -.00121, .00000, .00000, + .00000, .00000, .00000, + .00391, .00063, -.00106, .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)/ + .00354, .00056, -.00093, .00000, .00000, + .00000, .00000, .00000, + .00322, .00050, -.00081, .00000, .00000, + .00000, .00000, .00000, + .00295, .00047, -.00073, .00000, .00000, + .00000, .00000, .00000, + .00271, .00043, -.00065, .00000, .00000, + .00000, .00000, .00000, + .00249, .00040, -.00058, .00000, .00000, + .00000, .00000, .00000, + .00230, .00037, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00214, .00034, -.00048, .00000, .00000, + .00000, .00000, .00000, + .00199, .00031, -.00043, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00185, .00028, -.00039, .00000, .00000, + .00000, .00000, .00000, + .00172, .00027, -.00035, .00000, .00000, + .00000, .00000, .00000, + .00161, .00026, -.00032, .00000, .00000, + .00000, .00000, .00000, + .00153, .00023, -.00030, .00000, .00000, + .00000, .00000, .00000, + .00142, .00022, -.00027, .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)/ + .00785, .00101, -.00551, .00000, .00000, + .00000, .00000, .00000, + .00660, .00086, -.00453, .00000, .00000, + .00000, .00000, .00000, + .00515, .00067, -.00341, .00000, .00000, + .00000, .00000, .00000, + .00435, .00057, -.00281, .00000, .00000, + .00000, .00000, .00000, + .00364, .00048, -.00229, .00000, .00000, + .00000, .00000, .00000, + .00315, .00039, -.00192, .00000, .00000, + .00000, .00000, .00000, + .00275, .00034, -.00164, .00000, .00000, + .00000, .00000, .00000, + .00238, .00031, -.00139, .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)/ + .00211, .00026, -.00120, .00000, .00000, + .00000, .00000, .00000, + .00187, .00023, -.00104, .00000, .00000, + .00000, .00000, .00000, + .00170, .00021, -.00094, .00000, .00000, + .00000, .00000, .00000, + .00142, .00018, -.00076, .00000, .00000, + .00000, .00000, .00000, + .00120, .00015, -.00062, .00000, .00000, + .00000, .00000, .00000, + .00101, .00013, -.00051, .00000, .00000, + .00000, .00000, .00000, + .00086, .00011, -.00042, .00000, .00000, + .00000, .00000, .00000, + .00072, .00009, -.00034, .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)/ + .00062, .00007, -.00028, .00000, .00000, + .00000, .00000, .00000, + .00054, .00007, -.00024, .00000, .00000, + .00000, .00000, .00000, + .00047, .00005, -.00020, .00000, .00000, + .00000, .00000, .00000, + .00041, .00005, -.00017, .00000, .00000, + .00000, .00000, .00000, + .00036, .00005, -.00015, .00000, .00000, + .00000, .00000, .00000, + .00031, .00003, -.00012, .00000, .00000, + .00000, .00000, .00000, + .00027, .00003, -.00010, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, -.00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00021, .00003, -.00008, .00000, .00000, + .00000, .00000, .00000, + .00019, .00003, -.00007, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00009, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor10dis.dat',status='old') do 20 n=1,nx-1 do 20 m=1,nq C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m), C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m) c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea do 25 i=1,np 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i) 20 continue do 31 j=1,ntenth-1 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth) do 31 i=1,8 if(i.eq.5.or.i.eq.7) goto 31 do 30 k=1,nq 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k) 31 continue 50 format(8f10.5) do 40 i=1,np do 40 m=1,nq 40 f(i,nx,m)=ZEROD init=1 10 continue if(x.lt.xmin) x=xmin if(x.gt.xmax) x=xmax if(qsq.lt.qsqmin) qsq=qsqmin if(qsq.gt.qsqmax) qsq=qsqmax xxx=x if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth) n=0 70 n=n+1 if(xxx.gt.xx(n+1)) goto 70 a=(xxx-xx(n))/(xx(n+1)-xx(n)) m=0 80 m=m+1 if(qsq.gt.qq(m+1)) goto 80 b=(qsq-qq(m))/(qq(m+1)-qq(m)) do 60 i=1,np g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1) . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1) if(n.ge.ntenth) goto 65 if(i.eq.5.or.i.eq.7) goto 65 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1) g(i)=fac*10d0**(g(i)-fac) 65 continue g(i)=g(i)*(ONED-x)**n0(i) 60 continue upv=g(1) dnv=g(2) usea=g(4) dsea=g(8) str=g(6) chm=g(5) glu=g(3) bot=g(7) x=xsave qsq=q2save return end