#include "pdf/pilot.h" subroutine sfmrs_98d5(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)/ + .00538, .00208, 1.18692, .82770, .00000, + .00000, .44796, .83742, + .00553, .00214, 2.48810, .87715, .00000, + .00000, .50206, .88700, + .00574, .00224, 5.07391, .97590, .02391, + .00000, .60742, .98594, + .00591, .00231, 7.59054, 1.06951, .12162, + .00000, .70567, 1.07966, + .00608, .00238, 10.89055, 1.18833, .23766, + .00000, .82921, 1.19859, + .00622, .00245, 14.30614, 1.30888, .35086, + .00000, .95372, 1.31923, + .00637, .00251, 18.13641, 1.44020, .47654, + .00000, 1.08871, 1.45062, + .00652, .00258, 22.84442, 1.59694, .62924, + .00000, 1.24926, 1.60744 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00666, .00264, 27.51741, 1.74827, .77940, + .00000, 1.40382, 1.75882, + .00679, .00270, 32.52043, 1.90887, .93745, + .00000, 1.56746, 1.91946, + .00689, .00276, 36.82547, 2.04641, 1.07191, + .00000, 1.70738, 2.05705, + .00711, .00286, 47.15055, 2.37090, 1.39353, + .00000, 2.03680, 2.38160, + .00731, .00295, 57.23297, 2.68639, 1.70765, + .25923, 2.35643, 2.69713, + .00754, .00306, 69.89858, 3.08074, 2.10045, + .72654, 2.75529, 3.09153, + .00777, .00317, 84.75495, 3.53995, 2.55840, + 1.20596, 3.21906, 3.55078, + .00800, .00328, 99.75118, 4.00124, 3.01900, + 1.69036, 3.68435, 4.01208 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00822, .00339, 116.37136, 4.51186, 3.52943, + 2.22344, 4.19892, 4.52273, + .00841, .00348, 131.28504, 4.97099, 3.98788, + 2.69795, 4.66124, 4.98187, + .00863, .00359, 150.69511, 5.57124, 4.58636, + 3.31366, 5.26529, 5.58214, + .00885, .00369, 169.15860, 6.14401, 5.15826, + 3.90317, 5.84132, 6.15490, + .00904, .00378, 187.25596, 6.70599, 5.72142, + 4.48741, 6.40625, 6.71689, + .00928, .00391, 211.50574, 7.46657, 6.48094, + 5.26674, 7.17046, 7.47746, + .00952, .00402, 235.70283, 8.23216, 7.24499, + 6.04844, 7.93940, 8.24304, + .00973, .00413, 259.74336, 8.99716, 8.00998, + 6.83348, 8.70746, 9.00803 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00996, .00424, 285.11374, 9.80957, 8.82352, + 7.66947, 9.52286, 9.82042, + .01017, .00436, 310.81589, 10.64419, 9.65629, + 8.51779, 10.36035, 10.65502, + .01039, .00447, 336.40709, 11.47919, 10.49184, + 9.37305, 11.19801, 11.49000, + .01059, .00457, 361.37973, 12.30217, 11.31467, + 10.21288, 12.02348, 12.31298, + .01079, .00467, 387.34310, 13.16539, 12.17774, + 11.09327, 12.88913, 13.17618, + .01100, .00478, 413.86263, 14.05329, 13.06634, + 12.00050, 13.77938, 14.06405, + .01119, .00487, 439.66459, 14.92723, 13.93981, + 12.88946, 14.65553, 14.93796, + .01138, .00497, 464.95543, 15.78863, 14.80198, + 13.76858, 15.51899, 15.79935 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01157, .00507, 490.97503, 16.68421, 15.69754, + 14.67967, 16.41661, 16.69492, + .01176, .00516, 517.40083, 17.60026, 16.61411, + 15.61245, 17.33464, 17.61094, + .01194, .00526, 543.21470, 18.50224, 17.51681, + 16.53108, 18.23849, 18.51289, + .01211, .00535, 568.09547, 19.38052, 18.39493, + 17.42279, 19.11852, 19.39115, + .01229, .00544, 594.17630, 20.30327, 19.31960, + 18.36502, 20.04301, 20.31388 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00746, .00298, 1.06298, .71034, .00000, + .00000, .38395, .71612, + .00767, .00307, 2.21197, .75410, .00000, + .00000, .43143, .75995, + .00796, .00321, 4.45154, .83903, .02099, + .00000, .52162, .84498, + .00820, .00332, 6.58911, .91780, .10296, + .00000, .60410, .92382, + .00843, .00343, 9.34762, 1.01640, .19892, + .00000, .70644, 1.02248, + .00864, .00352, 12.16107, 1.11526, .29128, + .00000, .80842, 1.12138, + .00884, .00361, 15.27718, 1.22195, .39282, + .00000, .91803, 1.22812, + .00905, .00371, 19.06189, 1.34825, .51505, + .00000, 1.04734, 1.35446 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00923, .00381, 22.77770, 1.46927, .63427, + .00000, 1.17090, 1.47551, + .00941, .00389, 26.71627, 1.59681, .75883, + .00000, 1.30084, 1.60307, + .00955, .00396, 30.07641, 1.70537, .86415, + .00000, 1.41127, 1.71165, + .00986, .00411, 38.04541, 1.95954, 1.11410, + .00000, 1.66932, 1.96586, + .01013, .00425, 45.71872, 2.20430, 1.35587, + .19874, 1.91735, 2.21066, + .01045, .00440, 55.22882, 2.50746, 1.65546, + .55593, 2.22404, 2.51384, + .01077, .00456, 66.23729, 2.85714, 2.00146, + .91806, 2.57728, 2.86355, + .01108, .00471, 77.21247, 3.20523, 2.34639, + 1.28062, 2.92852, 3.21166 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01138, .00486, 89.23834, 3.58736, 2.72556, + 1.67622, 3.31375, 3.59382, + .01164, .00499, 99.91991, 3.92838, 3.06360, + 2.02562, 3.65726, 3.93484, + .01195, .00515, 113.68324, 4.37092, 3.50169, + 2.47559, 4.10276, 4.37738, + .01223, .00529, 126.64787, 4.79007, 3.91734, + 2.90331, 4.52448, 4.79655, + .01249, .00542, 139.25001, 5.19873, 4.32418, + 3.32467, 4.93542, 5.20522, + .01282, .00560, 155.97671, 5.74785, 4.86898, + 3.88256, 5.48738, 5.75434, + .01314, .00575, 172.50496, 6.29649, 5.41306, + 4.43803, 6.03863, 6.30298, + .01345, .00591, 188.78603, 6.84105, 5.95434, + 4.99236, 6.58558, 6.84754 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01375, .00607, 205.82951, 7.41571, 6.52650, + 5.57913, 7.16258, 7.42221, + .01405, .00622, 222.94626, 8.00221, 7.10831, + 6.17043, 7.75131, 8.00869, + .01434, .00637, 239.86919, 8.58563, 7.68896, + 6.76352, 8.33682, 8.59213, + .01461, .00651, 256.26471, 9.15748, 8.25763, + 7.34266, 8.91059, 9.16396, + .01489, .00665, 273.19583, 9.75408, 8.85104, + 7.94663, 9.50910, 9.76056, + .01516, .00680, 290.38141, 10.36467, 9.45906, + 8.56608, 10.12153, 10.37114, + .01542, .00693, 306.99051, 10.96255, 10.05365, + 9.16986, 10.72114, 10.96903, + .01567, .00706, 323.18349, 11.54930, 10.63812, + 9.76456, 11.30947, 11.55577 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01593, .00720, 339.74313, 12.15648, 11.24243, + 10.37798, 11.91825, 12.16294, + .01618, .00733, 356.47244, 12.77487, 11.85836, + 11.00347, 12.53820, 12.78133, + .01642, .00746, 372.72830, 13.38122, 12.46251, + 11.61698, 13.14600, 13.38768, + .01665, .00759, 388.31303, 13.96919, 13.04776, + 12.20999, 13.73535, 13.97564, + .01690, .00771, 404.58673, 14.58486, 13.66215, + 12.83483, 14.35237, 14.59129 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01034, .00428, .95121, .60945, .00000, + .00000, .32924, .61249, + .01062, .00442, 1.96580, .64808, .00000, + .00000, .37086, .65115, + .01104, .00461, 3.90492, .72101, .01844, + .00000, .44799, .72414, + .01135, .00476, 5.71922, .78719, .08712, + .00000, .51710, .79033, + .01168, .00492, 8.02260, .86882, .16638, + .00000, .60171, .87199, + .01196, .00506, 10.33669, .94967, .24162, + .00000, .68503, .95286, + .01224, .00519, 12.86740, 1.03611, .32352, + .00000, .77377, 1.03933, + .01252, .00533, 15.90381, 1.13753, .42118, + .00000, .87757, 1.14077 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01278, .00547, 18.85181, 1.23398, .51568, + .00000, .97602, 1.23722, + .01303, .00558, 21.94462, 1.33487, .61367, + .00000, 1.07880, 1.33813, + .01322, .00568, 24.56007, 1.42023, .69598, + .00000, 1.16562, 1.42350, + .01365, .00589, 30.69231, 1.61853, .88985, + .00000, 1.36697, 1.62183, + .01403, .00608, 36.51314, 1.80763, 1.07554, + .15164, 1.55863, 1.81095, + .01446, .00630, 43.62650, 2.03968, 1.30352, + .42442, 1.79344, 2.04300, + .01491, .00653, 51.74974, 2.30475, 1.56431, + .69769, 2.06129, 2.30809, + .01532, .00675, 59.74598, 2.56622, 1.82199, + .96877, 2.32522, 2.56958 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01574, .00697, 68.40600, 2.85085, 2.10288, + 1.26197, 2.61226, 2.85423, + .01610, .00715, 76.01769, 3.10292, 2.35146, + 1.51893, 2.86627, 3.10631, + .01653, .00737, 85.72474, 3.42757, 2.67120, + 1.84730, 3.19321, 3.43097, + .01691, .00757, 94.77690, 3.73278, 2.97238, + 2.15715, 3.50040, 3.73618, + .01726, .00776, 103.50134, 4.02842, 3.26536, + 2.46054, 3.79783, 4.03183, + .01771, .00799, 114.96790, 4.42281, 3.65485, + 2.85918, 4.19442, 4.42624, + .01815, .00822, 126.18494, 4.81388, 4.04094, + 3.25308, 4.58752, 4.81732, + .01855, .00843, 137.13730, 5.19943, 4.42256, + 3.64367, 4.97492, 5.20287 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01897, .00865, 148.50742, 5.60368, 4.82346, + 4.05457, 5.38098, 5.60713, + .01937, .00886, 159.82326, 6.01349, 5.22835, + 4.46567, 5.79252, 6.01696, + .01976, .00908, 170.93020, 6.41882, 5.63024, + 4.87588, 6.19947, 6.42229, + .02012, .00927, 181.61082, 6.81385, 6.02162, + 5.27414, 6.59598, 6.81732, + .02050, .00946, 192.56348, 7.22375, 6.42787, + 5.68727, 7.00736, 7.22724, + .02087, .00966, 203.60877, 7.64112, 6.84208, + 6.10893, 7.42615, 7.64462, + .02122, .00985, 214.20908, 8.04766, 7.24500, + 6.51768, 7.83402, 8.05116, + .02156, .01003, 224.48675, 8.44484, 7.63939, + 6.91864, 8.23244, 8.44835 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02190, .01022, 234.93131, 8.85390, 8.04521, + 7.33022, 8.64274, 8.85743, + .02224, .01040, 245.42474, 9.26872, 8.45711, + 7.74813, 9.05875, 9.27224, + .02257, .01057, 255.56544, 9.67370, 8.85943, + 8.15634, 9.46486, 9.67723, + .02288, .01074, 265.23272, 10.06473, 9.24749, + 8.54917, 9.85695, 10.06827, + .02319, .01091, 275.28801, 10.47278, 9.65363, + 8.96193, 10.26607, 10.47633 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01251, .00528, .89067, .55717, .00000, + .00000, .30105, .55909, + .01284, .00544, 1.83413, .59304, .00000, + .00000, .33953, .59498, + .01333, .00569, 3.61632, .65968, .01712, + .00000, .40988, .66164, + .01371, .00587, 5.26421, .71936, .07901, + .00000, .47213, .72135, + .01412, .00608, 7.33598, .79236, .14981, + .00000, .54772, .79435, + .01445, .00625, 9.39870, .86411, .21647, + .00000, .62164, .86612, + .01479, .00641, 11.63744, .94039, .28861, + .00000, .69992, .94241, + .01514, .00659, 14.30398, 1.02943, .37417, + .00000, .79104, 1.03147 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01545, .00675, 16.87567, 1.11371, .45656, + .00000, .87707, 1.11575, + .01575, .00690, 19.55713, 1.20149, .54161, + .00000, .96650, 1.20354, + .01599, .00702, 21.81276, 1.27548, .61279, + .00000, 1.04176, 1.27754, + .01650, .00729, 27.06532, 1.44659, .77965, + .00000, 1.21552, 1.44867, + .01696, .00752, 32.00929, 1.60882, .93858, + .12899, 1.37996, 1.61091, + .01747, .00779, 37.99941, 1.80679, 1.13263, + .36182, 1.58034, 1.80889, + .01802, .00807, 44.78460, 2.03164, 1.35335, + .59341, 1.80760, 2.03376, + .01851, .00832, 51.41287, 2.25225, 1.57029, + .82191, 2.03034, 2.25438 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01902, .00859, 58.54117, 2.49120, 1.80563, + 1.06781, 2.27135, 2.49334, + .01944, .00881, 64.76718, 2.70185, 2.01295, + 1.28229, 2.48369, 2.70401, + .01996, .00909, 72.65797, 2.97195, 2.27844, + 1.55513, 2.75578, 2.97412, + .02041, .00933, 79.97202, 3.22476, 2.52745, + 1.81147, 3.01030, 3.22694, + .02084, .00956, 86.98538, 3.46872, 2.76880, + 2.06156, 3.25580, 3.47092, + .02138, .00984, 96.14840, 3.79275, 3.08826, + 2.38867, 3.58173, 3.79496, + .02190, .01013, 105.05767, 4.11262, 3.40353, + 2.71043, 3.90333, 4.11485, + .02240, .01038, 113.71070, 4.42670, 3.71395, + 3.02826, 4.21902, 4.42895 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02288, .01064, 122.64891, 4.75478, 4.03885, + 3.36140, 4.54865, 4.75704, + .02337, .01090, 131.49537, 5.08603, 4.36564, + 3.69327, 4.88139, 5.08830, + .02383, .01115, 140.14071, 5.41254, 4.68896, + 4.02337, 5.20931, 5.41483, + .02426, .01139, 148.41667, 5.72968, 5.00276, + 4.34276, 5.52772, 5.73199, + .02471, .01163, 156.86733, 6.05771, 5.32747, + 4.67303, 5.85701, 6.06002, + .02515, .01187, 165.35625, 6.39069, 5.65755, + 5.00913, 6.19123, 6.39303, + .02556, .01209, 173.46809, 6.71401, 5.97762, + 5.33388, 6.51570, 6.71636, + .02597, .01231, 181.30700, 7.02906, 6.29012, + 5.65165, 6.83181, 7.03141 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02638, .01253, 189.24244, 7.35261, 6.61075, + 5.97687, 7.15641, 7.35498, + .02678, .01276, 197.18841, 7.67983, 6.93537, + 6.30628, 7.48469, 7.68222, + .02717, .01296, 204.84146, 7.99850, 7.25163, + 6.62723, 7.80432, 8.00090, + .02753, .01316, 212.11195, 8.30540, 7.55591, + 6.93527, 8.11213, 8.30781, + .02791, .01337, 219.65704, 8.62503, 7.87378, + 7.25840, 8.43268, 8.62746 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01429, .00614, .84967, .52281, .00000, + .00000, .28259, .52413, + .01468, .00632, 1.74574, .55682, .00000, + .00000, .31899, .55815, + .01525, .00660, 3.42423, .61930, .01627, + .00000, .38484, .62064, + .01568, .00683, 4.96323, .67472, .07370, + .00000, .44262, .67607, + .01614, .00706, 6.88450, .74208, .13902, + .00000, .51235, .74344, + .01653, .00726, 8.78495, .80793, .20016, + .00000, .58018, .80932, + .01691, .00746, 10.83630, .87767, .26604, + .00000, .65175, .87905, + .01732, .00766, 13.26681, .95877, .34388, + .00000, .73473, .96016 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01768, .00783, 15.59963, 1.03527, .41858, + .00000, .81282, 1.03667, + .01801, .00802, 18.02119, 1.11471, .49545, + .00000, .89375, 1.11611, + .01829, .00816, 20.05045, 1.18148, .55962, + .00000, .96168, 1.18290, + .01887, .00847, 24.75259, 1.33542, .70953, + .00000, 1.11801, 1.33684, + .01940, .00873, 29.15214, 1.48074, .85174, + .11476, 1.26535, 1.48218, + .01998, .00904, 34.44911, 1.65739, 1.02470, + .32275, 1.44417, 1.65885, + .02060, .00936, 40.41401, 1.85719, 1.22063, + .52860, 1.64617, 1.85867, + .02117, .00967, 46.20884, 2.05249, 1.41246, + .73090, 1.84338, 2.05398 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02174, .00997, 52.40936, 2.26325, 1.61985, + .94782, 2.05602, 2.26476, + .02222, .01023, 57.80029, 2.44846, 1.80196, + 1.13640, 2.24275, 2.44999, + .02281, .01055, 64.60198, 2.68518, 2.03444, + 1.37551, 2.48126, 2.68673, + .02334, .01082, 70.87904, 2.90604, 2.25180, + 1.59945, 2.70367, 2.90760, + .02382, .01108, 76.87587, 3.11859, 2.46193, + 1.81737, 2.91761, 3.12017, + .02444, .01142, 84.67699, 3.40003, 2.73919, + 2.10145, 3.20077, 3.40163, + .02503, .01173, 92.22855, 3.67696, 3.01196, + 2.38001, 3.47928, 3.67859, + .02558, .01203, 99.53477, 3.94812, 3.27977, + 2.65439, 3.75186, 3.94976 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02614, .01233, 107.05441, 4.23057, 3.55935, + 2.94123, 4.03573, 4.23223, + .02669, .01262, 114.46685, 4.51493, 3.83970, + 3.22608, 4.32144, 4.51661, + .02721, .01291, 121.68796, 4.79454, 4.11645, + 3.50879, 4.60230, 4.79624, + .02771, .01319, 128.57762, 5.06547, 4.38439, + 3.78164, 4.87438, 5.06719, + .02820, .01345, 135.59095, 5.34505, 4.66100, + 4.06313, 5.15510, 5.34679, + .02871, .01373, 142.61583, 5.62823, 4.94161, + 4.34899, 5.43939, 5.62999, + .02918, .01399, 149.30764, 5.90258, 5.21307, + 4.62454, 5.71477, 5.90435, + .02963, .01423, 155.75879, 6.16939, 5.47763, + 4.89370, 5.98254, 6.17118 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .03009, .01448, 162.27058, 6.44283, 5.74852, + 5.16858, 6.25694, 6.44464, + .03054, .01474, 168.77528, 6.71888, 6.02226, + 5.44650, 6.53391, 6.72070, + .03099, .01498, 175.02485, 6.98720, 6.28848, + 5.71678, 6.80312, 6.98904, + .03140, .01520, 180.94667, 7.24513, 6.54413, + 5.97569, 7.06188, 7.24700, + .03182, .01544, 187.08216, 7.51339, 6.81086, + 6.24696, 7.33095, 7.51528 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01588, .00689, .81893, .49765, .00000, + .00000, .26910, .49858, + .01629, .00710, 1.67995, .53026, .00000, + .00000, .30395, .53119, + .01693, .00743, 3.28215, .58965, .01564, + .00000, .36648, .59059, + .01741, .00767, 4.74166, .64195, .06984, + .00000, .42098, .64290, + .01791, .00793, 6.55361, .70521, .13117, + .00000, .48646, .70618, + .01835, .00816, 8.33678, .76681, .18831, + .00000, .54989, .76778, + .01877, .00837, 10.25324, .83181, .24968, + .00000, .61660, .83280, + .01922, .00860, 12.51457, .90719, .32199, + .00000, .69373, .90818 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01961, .00881, 14.67680, .97811, .39119, + .00000, .76614, .97911, + .02000, .00900, 16.91345, 1.05157, .46223, + .00000, .84098, 1.05258, + .02030, .00916, 18.78211, 1.11319, .52141, + .00000, .90369, 1.11421, + .02095, .00950, 23.09543, 1.25489, .65930, + .00000, 1.04761, 1.25593, + .02152, .00981, 27.11275, 1.38823, .78969, + .10465, 1.18283, 1.38928, + .02218, .01015, 31.92561, 1.54980, .94780, + .29516, 1.34643, 1.55088, + .02286, .01051, 37.32018, 1.73198, 1.12635, + .48296, 1.53065, 1.73308, + .02349, .01086, 42.53818, 1.90951, 1.30065, + .66699, 1.70995, 1.91062 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02412, .01120, 48.09913, 2.10057, 1.48856, + .86374, 1.90275, 2.10170, + .02466, .01148, 52.91660, 2.26804, 1.65316, + 1.03434, 2.07163, 2.26919, + .02531, .01182, 58.97317, 2.48153, 1.86276, + 1.25009, 2.28681, 2.48272, + .02589, .01214, 64.54327, 2.68025, 2.05824, + 1.45167, 2.48695, 2.68145, + .02642, .01243, 69.84927, 2.87108, 2.24685, + 1.64742, 2.67907, 2.87230, + .02711, .01280, 76.72796, 3.12315, 2.49510, + 1.90198, 2.93273, 3.12440, + .02775, .01315, 83.36342, 3.37055, 2.73871, + 2.15093, 3.18159, 3.37182, + .02836, .01349, 89.76383, 3.61225, 2.97737, + 2.39562, 3.42462, 3.61354 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02897, .01381, 96.33229, 3.86348, 3.22600, + 2.65088, 3.67716, 3.86479, + .02958, .01415, 102.78612, 4.11584, 3.47475, + 2.90377, 3.93077, 4.11719, + .03016, .01446, 109.05774, 4.36352, 3.71984, + 3.15431, 4.17961, 4.36488, + .03070, .01477, 115.02584, 4.60303, 3.95669, + 3.39563, 4.42018, 4.60442, + .03126, .01507, 121.08596, 4.84975, 4.20076, + 3.64415, 4.66796, 4.85115, + .03180, .01537, 127.14237, 5.09922, 4.44795, + 3.89612, 4.91845, 5.10065, + .03232, .01565, 132.89711, 5.34047, 4.68663, + 4.13853, 5.16066, 5.34193, + .03282, .01593, 138.43430, 5.57474, 4.91892, + 4.37499, 5.39584, 5.57623 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03332, .01620, 144.01092, 5.81446, 5.15637, + 4.61607, 5.63643, 5.81596, + .03383, .01648, 149.57049, 6.05609, 5.39598, + 4.85947, 5.87893, 6.05762, + .03430, .01674, 154.90168, 6.29063, 5.62868, + 5.09585, 6.11428, 6.29218, + .03477, .01700, 159.94277, 6.51575, 5.85181, + 5.32194, 6.34016, 6.51732, + .03523, .01726, 165.15911, 6.74963, 6.08437, + 5.55860, 6.57481, 6.75122 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02200, .00995, .72870, .42699, .00000, + .00000, .23150, .42732, + .02258, .01024, 1.48976, .45549, .00000, + .00000, .26184, .45582, + .02345, .01069, 2.87625, .50602, .01391, + .00000, .31495, .50639, + .02412, .01104, 4.11304, .54953, .05901, + .00000, .36026, .54991, + .02481, .01140, 5.62151, .60135, .10928, + .00000, .41389, .60175, + .02541, .01173, 7.08181, .65114, .15545, + .00000, .46518, .65155, + .02599, .01204, 8.62978, .70315, .20454, + .00000, .51857, .70359, + .02660, .01236, 10.43225, .76290, .26183, + .00000, .57975, .76336 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02714, .01265, 12.13498, .81868, .31621, + .00000, .63671, .81914, + .02767, .01294, 13.87664, .87599, .37161, + .00000, .69518, .87648, + .02808, .01316, 15.31778, .92377, .41746, + .00000, .74382, .92427, + .02897, .01363, 18.60323, 1.03273, .52346, + .00000, .85459, 1.03327, + .02976, .01407, 21.61941, 1.13424, .62270, + .07761, .95760, 1.13480, + .03066, .01455, 25.17332, 1.25603, .74189, + .22228, 1.08103, 1.25664, + .03159, .01507, 29.09796, 1.39201, .87516, + .36313, 1.21864, 1.39264, + .03245, .01554, 32.84139, 1.52324, 1.00406, + .49987, 1.35132, 1.52392 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03332, .01602, 36.77986, 1.66325, 1.14182, + .64474, 1.49273, 1.66397, + .03404, .01642, 40.15236, 1.78500, 1.26154, + .76933, 1.61562, 1.78576, + .03493, .01691, 44.34394, 1.93900, 1.41280, + .92564, 1.77095, 1.93980, + .03572, .01734, 48.15611, 2.08122, 1.55281, + 1.07056, 1.91432, 2.08206, + .03644, .01775, 51.75371, 2.21689, 1.68701, + 1.21039, 2.05102, 2.21776, + .03736, .01826, 56.36609, 2.39473, 1.86228, + 1.39074, 2.23014, 2.39564, + .03824, .01875, 60.76509, 2.56788, 2.03291, + 1.56570, 2.40445, 2.56884, + .03906, .01921, 64.96688, 2.73584, 2.19891, + 1.73648, 2.57348, 2.73684 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03990, .01967, 69.23915, 2.90926, 2.37072, + 1.91348, 2.74795, 2.91031, + .04071, .02012, 73.39247, 3.08220, 2.54133, + 2.08746, 2.92188, 3.08329, + .04148, .02056, 77.39640, 3.25090, 2.70846, + 2.25886, 3.09152, 3.25204, + .04221, .02097, 81.17374, 3.41306, 2.86898, + 2.42293, 3.25454, 3.41423, + .04296, .02138, 84.97857, 3.57913, 3.03344, + 2.59090, 3.42146, 3.58035, + .04369, .02179, 88.75323, 3.74615, 3.19913, + 2.76032, 3.58929, 3.74741, + .04439, .02218, 92.31007, 3.90673, 3.35818, + 2.92233, 3.75063, 3.90802, + .04505, .02256, 95.71135, 4.06194, 3.51228, + 3.07967, 3.90656, 4.06328 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04572, .02293, 99.11091, 4.21993, 3.66897, + 3.23922, 4.06525, 4.22129, + .04639, .02331, 102.47873, 4.37844, 3.82635, + 3.39955, 4.22446, 4.37984, + .04703, .02367, 105.68745, 4.53158, 3.97850, + 3.55456, 4.37824, 4.53303, + .04764, .02401, 108.70053, 4.67788, 4.12368, + 3.70208, 4.52516, 4.67937, + .04826, .02436, 111.80609, 4.82935, 4.27454, + 3.85607, 4.67724, 4.83086 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .03065, .01442, .64532, .36674, .00000, + .00000, .19982, .36726, + .03143, .01482, 1.31905, .39142, .00000, + .00000, .22606, .39197, + .03260, .01545, 2.51862, .43402, .01248, + .00000, .27085, .43462, + .03348, .01593, 3.56532, .46988, .04976, + .00000, .30821, .47052, + .03443, .01645, 4.81810, .51192, .09065, + .00000, .35177, .51261, + .03524, .01688, 6.00980, .55177, .12767, + .00000, .39288, .55249, + .03603, .01731, 7.25465, .59296, .16663, + .00000, .43524, .59374, + .03687, .01778, 8.68389, .63986, .21166, + .00000, .48333, .64068 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03759, .01819, 10.01678, .68325, .25407, + .00000, .52774, .68411, + .03831, .01858, 11.36394, .72752, .29693, + .00000, .57295, .72841, + .03887, .01889, 12.46723, .76417, .33217, + .00000, .61032, .76509, + .04008, .01957, 14.94949, .84708, .41303, + .00000, .69475, .84807, + .04117, .02018, 17.19575, .92351, .48795, + .05595, .77244, .92455, + .04238, .02086, 19.79300, 1.01432, .57708, + .16512, .86463, 1.01545, + .04365, .02158, 22.61604, 1.11467, .67572, + .27007, .96634, 1.11586, + .04482, .02223, 25.26866, 1.21058, .77022, + .37097, 1.06346, 1.21184 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04599, .02290, 28.02128, 1.31199, .87034, + .47692, 1.16605, 1.31333, + .04697, .02346, 30.34903, 1.39947, .95663, + .56726, 1.25448, 1.40086, + .04817, .02414, 33.20649, 1.50921, 1.06478, + .67966, 1.36534, 1.51068, + .04924, .02475, 35.77428, 1.60975, 1.16408, + .78305, 1.46684, 1.61128, + .05021, .02530, 38.17339, 1.70500, 1.25864, + .88216, 1.56295, 1.70659, + .05146, .02602, 41.21204, 1.82885, 1.38111, + 1.00888, 1.68789, 1.83054, + .05264, .02668, 44.07444, 1.94846, 1.49937, + 1.13079, 1.80847, 1.95022, + .05375, .02732, 46.77959, 2.06363, 1.61359, + 1.24895, 1.92453, 2.06546 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05486, .02795, 49.50254, 2.18171, 1.73099, + 1.37056, 2.04350, 2.18361, + .05596, .02857, 52.11849, 2.29856, 1.84664, + 1.48911, 2.16118, 2.30053, + .05700, .02917, 54.61862, 2.41184, 1.95928, + 1.60523, 2.27525, 2.41389, + .05797, .02972, 56.95475, 2.52004, 2.06674, + 1.71564, 2.38416, 2.52214, + .05896, .03029, 59.28685, 2.63016, 2.17619, + 1.82800, 2.49499, 2.63233, + .05994, .03085, 61.58199, 2.74028, 2.28583, + 1.94069, 2.60581, 2.74252, + .06087, .03138, 63.72411, 2.84552, 2.39042, + 2.04776, 2.71170, 2.84782, + .06175, .03188, 65.75888, 2.94674, 2.49128, + 2.15127, 2.81352, 2.94910 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06264, .03239, 67.77503, 3.04920, 2.59326, + 2.25563, 2.91657, 3.05162, + .06352, .03290, 69.75841, 3.15148, 2.69519, + 2.35999, 3.01945, 3.15397, + .06437, .03338, 71.63428, 3.24982, 2.79325, + 2.46040, 3.11834, 3.25236, + .06518, .03384, 73.38180, 3.34329, 2.88634, + 2.55545, 3.21232, 3.34589, + .06599, .03431, 75.17548, 3.43973, 2.98275, + 2.65436, 3.30927, 3.44238 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03724, .01792, .59982, .33583, .00000, + .00000, .18376, .33677, + .03816, .01840, 1.22787, .35839, .00000, + .00000, .20773, .35936, + .03954, .01916, 2.32971, .39669, .01178, + .00000, .24805, .39778, + .04059, .01974, 3.27809, .42852, .04494, + .00000, .28126, .42964, + .04172, .02037, 4.39975, .46549, .08100, + .00000, .31962, .46669, + .04268, .02090, 5.45507, .50024, .11334, + .00000, .35553, .50151, + .04362, .02144, 6.54735, .53597, .14719, + .00000, .39233, .53729, + .04462, .02200, 7.79043, .57640, .18612, + .00000, .43386, .57778 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04550, .02249, 8.94042, .61363, .22258, + .00000, .47201, .61507, + .04635, .02297, 10.09405, .65143, .25927, + .00000, .51069, .65292, + .04701, .02335, 11.03277, .68261, .28933, + .00000, .54253, .68415, + .04847, .02418, 13.12740, .75280, .35795, + .00000, .61412, .75444, + .04976, .02491, 15.00697, .81710, .42116, + .04531, .67959, .81882, + .05121, .02575, 17.15329, .89307, .49592, + .13747, .75681, .89488, + .05273, .02661, 19.46305, .97647, .57817, + .22539, .84148, .97839, + .05412, .02741, 21.61294, 1.05575, .65651, + .30943, .92186, 1.05776 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05553, .02822, 23.82456, 1.13910, .73906, + .39718, 1.00631, 1.14122, + .05669, .02890, 25.68002, 1.21065, .80985, + .47163, 1.07874, 1.21284, + .05812, .02972, 27.93986, 1.29997, .89814, + .56379, 1.16908, 1.30225, + .05938, .03045, 29.95517, 1.38139, .97881, + .64815, 1.25141, 1.38376, + .06056, .03112, 31.82619, 1.45821, 1.05532, + .72870, 1.32903, 1.46067, + .06204, .03197, 34.17750, 1.55762, 1.15394, + .83117, 1.42942, 1.56019, + .06343, .03278, 36.37486, 1.65311, 1.24865, + .92922, 1.52584, 1.65578, + .06475, .03354, 38.43743, 1.74466, 1.33974, + 1.02384, 1.61821, 1.74742 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06606, .03430, 40.50021, 1.83812, 1.43296, + 1.12081, 1.71249, 1.84097, + .06735, .03504, 42.46646, 1.93016, 1.52434, + 1.21486, 1.80532, 1.93311, + .06858, .03575, 44.33530, 2.01906, 1.61301, + 1.30666, 1.89495, 2.02210, + .06974, .03642, 46.07064, 2.10362, 1.69726, + 1.39357, 1.98017, 2.10674, + .07090, .03710, 47.79278, 2.18935, 1.78276, + 1.48170, 2.06658, 2.19257, + .07206, .03775, 49.47876, 2.27480, 1.86811, + 1.56978, 2.15268, 2.27810, + .07315, .03839, 51.04236, 2.35614, 1.94920, + 1.65313, 2.23461, 2.35952, + .07419, .03898, 52.52111, 2.43413, 2.02717, + 1.73347, 2.31318, 2.43759 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07524, .03959, 53.97780, 2.51280, 2.10572, + 1.81418, 2.39240, 2.51633, + .07628, .04018, 55.40417, 2.59111, 2.18401, + 1.89466, 2.47126, 2.59472, + .07727, .04075, 56.74665, 2.66616, 2.25909, + 1.97185, 2.54682, 2.66983, + .07821, .04130, 57.99034, 2.73726, 2.33014, + 2.04469, 2.61841, 2.74101, + .07916, .04185, 59.26380, 2.81046, 2.40358, + 2.12034, 2.69209, 2.81428 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .04275, .02087, .56994, .31551, .00000, + .00000, .17336, .31697, + .04378, .02144, 1.16776, .33659, .00000, + .00000, .19579, .33813, + .04534, .02230, 2.20471, .37205, .01131, + .00000, .23312, .37366, + .04653, .02297, 3.08797, .40120, .04176, + .00000, .26358, .40290, + .04779, .02369, 4.12333, .43486, .07464, + .00000, .29856, .43663, + .04890, .02431, 5.08942, .46633, .10395, + .00000, .33111, .46817, + .04996, .02491, 6.08248, .49852, .13449, + .00000, .36432, .50044, + .05108, .02557, 7.20520, .53482, .16948, + .00000, .40165, .53680 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .05208, .02613, 8.23762, .56812, .20214, + .00000, .43584, .57017, + .05304, .02669, 9.26749, .60182, .23491, + .00000, .47036, .60394, + .05381, .02713, 10.10144, .62954, .26167, + .00000, .49872, .63170, + .05545, .02808, 11.95096, .69172, .32257, + .00000, .56221, .69401, + .05691, .02892, 13.60009, .74843, .37842, + .03868, .62002, .75080, + .05856, .02988, 15.46542, .81512, .44420, + .12018, .68793, .81763, + .06029, .03089, 17.45785, .88803, .51626, + .19749, .76203, .89065, + .06186, .03179, 19.29920, .95702, .58459, + .27107, .83207, .95975 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06345, .03273, 21.18102, 1.02927, .65631, + .34759, .90536, 1.03213, + .06478, .03349, 22.75034, 1.09106, .71761, + .41228, .96799, 1.09401, + .06639, .03444, 24.65029, 1.16792, .79375, + .49205, 1.04583, 1.17098, + .06781, .03526, 26.33486, 1.23772, .86308, + .56481, 1.11648, 1.24089, + .06913, .03603, 27.89136, 1.30337, .92863, + .63406, 1.18291, 1.30665, + .07081, .03701, 29.83568, 1.38802, 1.01281, + .72182, 1.26850, 1.39142, + .07238, .03792, 31.64164, 1.46903, 1.09335, + .80549, 1.35038, 1.47254, + .07386, .03877, 33.32804, 1.54642, 1.17055, + .88597, 1.42857, 1.55005 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07534, .03965, 35.00631, 1.62518, 1.24932, + .96819, 1.50812, 1.62891, + .07680, .04048, 36.59628, 1.70247, 1.32624, + 1.04762, 1.58614, 1.70631, + .07818, .04128, 38.10115, 1.77690, 1.40067, + 1.12494, 1.66127, 1.78084, + .07948, .04204, 39.49164, 1.84747, 1.47120, + 1.19794, 1.73250, 1.85152, + .08078, .04279, 40.86524, 1.91885, 1.54254, + 1.27173, 1.80451, 1.92299, + .08208, .04355, 42.20453, 1.98978, 1.61359, + 1.34531, 1.87606, 1.99403, + .08331, .04426, 43.44034, 2.05710, 1.68090, + 1.41472, 1.94397, 2.06144, + .08447, .04493, 44.60519, 2.12152, 1.74546, + 1.48148, 2.00893, 2.12594 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08564, .04560, 45.74729, 2.18631, 1.81034, + 1.54837, 2.07426, 2.19082, + .08680, .04627, 46.86152, 2.25066, 1.87485, + 1.61492, 2.13913, 2.25526, + .08790, .04691, 47.90618, 2.31217, 1.93659, + 1.67860, 2.20115, 2.31686, + .08896, .04751, 48.86966, 2.37032, 1.99485, + 1.73853, 2.25977, 2.37509, + .09003, .04813, 49.85437, 2.43009, 2.05500, + 1.80071, 2.32001, 2.43495 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .04762, .02359, .54876, .30105, .00000, + .00000, .16572, .30263, + .04874, .02421, 1.12465, .32100, .00000, + .00000, .18693, .32265, + .05045, .02517, 2.11349, .35425, .01097, + .00000, .22195, .35601, + .05177, .02593, 2.94837, .38140, .03936, + .00000, .25032, .38325, + .05316, .02673, 3.91949, .41258, .06988, + .00000, .28273, .41453, + .05437, .02742, 4.81932, .44160, .09694, + .00000, .31278, .44364, + .05554, .02809, 5.73894, .47120, .12504, + .00000, .34333, .47331, + .05679, .02881, 6.77284, .50445, .15714, + .00000, .37756, .50666 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05789, .02945, 7.71876, .53489, .18703, + .00000, .40882, .53717, + .05896, .03008, 8.65794, .56561, .21692, + .00000, .44031, .56796, + .05980, .03056, 9.41537, .59081, .24130, + .00000, .46611, .59322, + .06161, .03162, 11.08647, .64719, .29660, + .00000, .52374, .64974, + .06323, .03256, 12.56894, .69843, .34713, + .03405, .57602, .70109, + .06505, .03362, 14.23254, .75846, .40645, + .10783, .63719, .76126, + .06694, .03473, 15.99821, .82386, .47118, + .17749, .70372, .82679, + .06868, .03575, 17.62031, .88552, .53236, + .24356, .76638, .88858 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07043, .03677, 19.26897, .94988, .59637, + .31206, .83172, .95308, + .07189, .03762, 20.63689, 1.00475, .65090, + .36977, .88739, 1.00806, + .07365, .03866, 22.28449, 1.07279, .71843, + .44072, .95638, 1.07624, + .07523, .03958, 23.73831, 1.13441, .77975, + .50525, 1.01880, 1.13798, + .07668, .04042, 25.07627, 1.19221, .83758, + .56652, 1.07734, 1.19590, + .07850, .04149, 26.73894, 1.26651, .91160, + .64392, 1.15253, 1.27034, + .08023, .04249, 28.27512, 1.33738, .98220, + .71746, 1.22423, 1.34134, + .08185, .04344, 29.70340, 1.40490, 1.04970, + .78802, 1.29252, 1.40899 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08347, .04438, 31.11900, 1.47343, 1.11837, + .85991, 1.36179, 1.47764, + .08506, .04530, 32.45275, 1.54047, 1.18524, + .92915, 1.42955, 1.54480, + .08656, .04618, 33.71062, 1.60488, 1.24979, + .99639, 1.49462, 1.60933, + .08798, .04700, 34.86806, 1.66581, 1.31079, + 1.05972, 1.55617, 1.67037, + .08941, .04783, 36.00673, 1.72727, 1.37237, + 1.12358, 1.61824, 1.73195, + .09081, .04864, 37.11299, 1.78821, 1.43355, + 1.18712, 1.67977, 1.79300, + .09214, .04941, 38.12938, 1.84590, 1.49137, + 1.24691, 1.73802, 1.85080, + .09340, .05014, 39.08473, 1.90101, 1.54674, + 1.30433, 1.79365, 1.90600 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09467, .05088, 40.01741, 1.95631, 1.60225, + 1.36172, 1.84947, 1.96140, + .09593, .05160, 40.92440, 2.01113, 1.65734, + 1.41871, 1.90480, 2.01633, + .09714, .05229, 41.77185, 2.06344, 1.70995, + 1.47314, 1.95758, 2.06873, + .09827, .05295, 42.55028, 2.11277, 1.75951, + 1.52426, 2.00736, 2.11815, + .09942, .05362, 43.34467, 2.16342, 1.81060, + 1.57724, 2.05846, 2.16888 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .06666, .03454, .48556, .26112, .00000, + .00000, .14519, .26387, + .06813, .03539, .99991, .27756, .00000, + .00000, .16269, .28041, + .07043, .03674, 1.85255, .30428, .01004, + .00000, .19091, .30730, + .07220, .03779, 2.55101, .32562, .03262, + .00000, .21331, .32878, + .07408, .03890, 3.34261, .34978, .05649, + .00000, .23852, .35307, + .07571, .03988, 4.05886, .37197, .07733, + .00000, .26160, .37540, + .07730, .04081, 4.77658, .39438, .09878, + .00000, .28482, .39793, + .07899, .04182, 5.56851, .41933, .12304, + .00000, .31061, .42301 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08048, .04272, 6.28077, .44196, .14545, + .00000, .33396, .44576, + .08192, .04357, 6.97675, .46462, .16768, + .00000, .35729, .46853, + .08307, .04426, 7.53038, .48308, .18566, + .00000, .37627, .48708, + .08552, .04571, 8.73069, .52403, .22614, + .00000, .41830, .52823, + .08770, .04701, 9.77768, .56078, .26271, + .02174, .45597, .56517, + .09015, .04846, 10.91961, .60339, .30516, + .07530, .49957, .60797, + .09270, .04997, 12.10582, .64923, .35095, + .12513, .54641, .65403, + .09501, .05135, 13.17339, .69197, .39373, + .17185, .59004, .69696 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09736, .05273, 14.23796, .73610, .43801, + .21977, .63504, .74127, + .09930, .05387, 15.10588, .77334, .47536, + .25973, .67298, .77867, + .10164, .05526, 16.13292, .81906, .52117, + .30838, .71953, .82459, + .10372, .05648, 17.02379, .86004, .56233, + .35218, .76124, .86575, + .10563, .05760, 17.83221, .89817, .60084, + .39344, .80002, .90404, + .10804, .05901, 18.81860, .94667, .64964, + .44503, .84933, .95273, + .11030, .06033, 19.71309, .99244, .69568, + .49352, .89584, .99870, + .11241, .06157, 20.53176, 1.03563, .73930, + .53962, .93972, 1.04207 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11453, .06279, 21.33106, 1.07909, .78329, + .58620, .98385, 1.08570, + .11659, .06399, 22.06934, 1.12114, .82567, + .63058, 1.02655, 1.12793, + .11853, .06511, 22.75677, 1.16124, .86629, + .67338, 1.06725, 1.16819, + .12036, .06617, 23.37929, 1.19884, .90434, + .71333, 1.10541, 1.20594, + .12219, .06723, 23.98262, 1.23646, .94244, + .75331, 1.14358, 1.24371, + .12399, .06827, 24.56123, 1.27349, .98004, + .79281, 1.18115, 1.28089, + .12569, .06924, 25.08368, 1.30824, 1.01526, + .82967, 1.21641, 1.31578, + .12731, .07017, 25.56955, 1.34122, 1.04879, + .86485, 1.24987, 1.34890 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12892, .07110, 26.03612, 1.37405, 1.08215, + .89974, 1.28317, 1.38187, + .13051, .07201, 26.48431, 1.40639, 1.11504, + .93418, 1.31597, 1.41434, + .13203, .07287, 26.89745, 1.43703, 1.14624, + .96686, 1.34705, 1.44511, + .13346, .07369, 27.27074, 1.46573, 1.17542, + .99734, 1.37615, 1.47391, + .13493, .07452, 27.64984, 1.49506, 1.20540, + 1.02881, 1.40591, 1.50337 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09362, .05067, .43102, .22877, .00000, + .00000, .12883, .23339, + .09558, .05186, .89300, .24162, .00000, + .00000, .14259, .24641, + .09866, .05375, 1.62612, .26213, .00929, + .00000, .16440, .26718, + .10104, .05520, 2.20554, .27826, .02674, + .00000, .18143, .28350, + .10358, .05675, 2.84220, .29628, .04489, + .00000, .20038, .30175, + .10579, .05809, 3.40217, .31267, .06052, + .00000, .21754, .31833, + .10793, .05939, 3.95038, .32906, .07646, + .00000, .23465, .33490, + .11022, .06078, 4.54202, .34715, .09434, + .00000, .25348, .35319 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11223, .06199, 5.06350, .36344, .11070, + .00000, .27040, .36965, + .11417, .06316, 5.56351, .37960, .12680, + .00000, .28717, .38599, + .11570, .06409, 5.95475, .39268, .13974, + .00000, .30071, .39921, + .11901, .06607, 6.78553, .42143, .16859, + .00000, .33043, .42826, + .12191, .06780, 7.49685, .44692, .19434, + .01233, .35674, .45400, + .12516, .06972, 8.24455, .47610, .22386, + .05023, .38681, .48347, + .12853, .07171, 9.00118, .50708, .25528, + .08493, .41870, .51474, + .13158, .07351, 9.66505, .53558, .28427, + .11706, .44802, .54352 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13465, .07531, 10.31152, .56465, .31392, + .14962, .47788, .57287, + .13717, .07679, 10.82697, .58891, .33864, + .17646, .50279, .59734, + .14022, .07856, 11.42332, .61833, .36860, + .20877, .53298, .62704, + .14291, .08012, 11.92920, .64441, .39523, + .23754, .55972, .65335, + .14537, .08154, 12.38000, .66841, .41991, + .26439, .58434, .67757, + .14845, .08331, 12.91672, .69859, .45080, + .29756, .61526, .70802, + .15134, .08496, 13.39128, .72669, .47959, + .32836, .64407, .73638, + .15402, .08650, 13.81643, .75294, .50658, + .35735, .67094, .76285 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15669, .08803, 14.22297, .77905, .53351, + .38634, .69769, .78919, + .15926, .08948, 14.58775, .80399, .55914, + .41362, .72325, .81436, + .16169, .09085, 14.92137, .82755, .58349, + .43972, .74737, .83812, + .16396, .09214, 15.21613, .84940, .60608, + .46384, .76976, .86016, + .16624, .09341, 15.49539, .87104, .62846, + .48775, .79193, .88200, + .16845, .09466, 15.75810, .89216, .65037, + .51118, .81356, .90332, + .17054, .09582, 15.98834, .91176, .67069, + .53283, .83365, .92310, + .17252, .09692, 16.19894, .93022, .68990, + .55336, .85256, .94172 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .17448, .09801, 16.39553, .94841, .70881, + .57352, .87120, .96007, + .17642, .09908, 16.58062, .96617, .72733, + .59328, .88941, .97800, + .17825, .10010, 16.74726, .98287, .74475, + .61189, .90652, .99485, + .17997, .10104, 16.89321, .99835, .76090, + .62909, .92240, 1.01047, + .18173, .10200, 17.04060, 1.01409, .77742, + .64678, .93855, 1.02637 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11420, .06325, .40898, .21251, .00000, + .00000, .12089, .21871, + .11654, .06473, .84354, .22327, .00000, + .00000, .13249, .22967, + .12022, .06702, 1.51289, .24032, .00889, + .00000, .15075, .24707, + .12306, .06878, 2.02948, .25364, .02364, + .00000, .16492, .26065, + .12609, .07064, 2.58526, .26848, .03888, + .00000, .18064, .27577, + .12875, .07226, 3.06481, .28190, .05189, + .00000, .19478, .28944, + .13130, .07382, 3.52698, .29526, .06509, + .00000, .20883, .30304, + .13402, .07547, 4.01825, .30995, .07983, + .00000, .22422, .31798 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13641, .07692, 4.44532, .32311, .09326, + .00000, .23799, .33135, + .13872, .07830, 4.84952, .33613, .10641, + .00000, .25158, .34458, + .14054, .07939, 5.16224, .34660, .11692, + .00000, .26251, .35524, + .14443, .08171, 5.81684, .36952, .14026, + .00000, .28635, .37851, + .14785, .08373, 6.37097, .38965, .16089, + .00793, .30729, .39896, + .15164, .08596, 6.93726, .41253, .18439, + .03848, .33103, .42219, + .15557, .08824, 7.49973, .43660, .20918, + .06616, .35599, .44663, + .15911, .09030, 7.98420, .45856, .23186, + .09159, .37875, .46891 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .16266, .09234, 8.44783, .48078, .25486, + .11714, .40175, .49145, + .16558, .09402, 8.81152, .49917, .27391, + .13805, .42077, .51009, + .16908, .09602, 9.22499, .52128, .29680, + .16304, .44365, .53253, + .17213, .09776, 9.56979, .54073, .31701, + .18513, .46376, .55225, + .17494, .09934, 9.87281, .55852, .33561, + .20562, .48214, .57029, + .17844, .10131, 10.22645, .58067, .35870, + .23072, .50504, .59276, + .18169, .10313, 10.53246, .60113, .38003, + .25385, .52619, .61350, + .18470, .10481, 10.80181, .62007, .39989, + .27547, .54578, .63270 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18770, .10648, 11.05492, .63878, .41958, + .29695, .56511, .65167, + .19057, .10806, 11.27578, .65649, .43814, + .31699, .58343, .66963, + .19327, .10955, 11.47475, .67311, .45567, + .33605, .60061, .68647, + .19579, .11093, 11.64666, .68839, .47182, + .35356, .61643, .70198, + .19830, .11229, 11.80577, .70342, .48772, + .37080, .63199, .71721, + .20074, .11363, 11.95249, .71798, .50319, + .38760, .64707, .73200, + .20302, .11486, 12.07715, .73139, .51743, + .40302, .66096, .74560, + .20517, .11601, 12.18932, .74395, .53082, + .41757, .67397, .75833 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20732, .11717, 12.29042, .75623, .54392, + .43177, .68670, .77078, + .20942, .11829, 12.38330, .76814, .55668, + .44562, .69906, .78287, + .21140, .11935, 12.46448, .77927, .56861, + .45859, .71060, .79416, + .21326, .12033, 12.53255, .78950, .57960, + .47051, .72123, .80454, + .21514, .12133, 12.60102, .79989, .59081, + .48274, .73202, .81507 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .13147, .07393, .40136, .20202, .00000, + .00000, .11585, .20963, + .13414, .07564, .81749, .21127, .00000, + .00000, .12589, .21913, + .13834, .07830, 1.44365, .22595, .00858, + .00000, .14173, .23422, + .14158, .08030, 1.91798, .23741, .02156, + .00000, .15402, .24599, + .14505, .08243, 2.41998, .25013, .03490, + .00000, .16759, .25906, + .14804, .08425, 2.84661, .26164, .04621, + .00000, .17981, .27084, + .15093, .08600, 3.25263, .27306, .05769, + .00000, .19190, .28256, + .15403, .08788, 3.67908, .28558, .07044, + .00000, .20512, .29538 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15672, .08949, 4.04582, .29675, .08203, + .00000, .21689, .30681, + .15931, .09104, 4.38927, .30778, .09333, + .00000, .22848, .31809, + .16136, .09224, 4.65256, .31662, .10234, + .00000, .23777, .32713, + .16573, .09483, 5.19740, .33589, .12224, + .00000, .25796, .34681, + .16953, .09703, 5.65473, .35272, .13975, + .00524, .27558, .36399, + .17375, .09947, 6.11083, .37170, .15954, + .03127, .29544, .38338, + .17809, .10197, 6.55682, .39156, .18029, + .05466, .31618, .40364, + .18200, .10419, 6.93501, .40954, .19916, + .07602, .33496, .42197 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18589, .10640, 7.29158, .42761, .21817, + .09734, .35381, .44040, + .18908, .10819, 7.56719, .44247, .23381, + .11470, .36931, .45555, + .19289, .11033, 7.87570, .46023, .25251, + .13531, .38784, .47366, + .19623, .11217, 8.12904, .47574, .26891, + .15343, .40401, .48947, + .19927, .11386, 8.34891, .48985, .28393, + .17016, .41873, .50385, + .20304, .11593, 8.60056, .50730, .30245, + .19053, .43693, .52163, + .20653, .11784, 8.81388, .52328, .31945, + .20918, .45361, .53792, + .20976, .11959, 8.99839, .53799, .33518, + .22652, .46896, .55290 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .21296, .12132, 9.16870, .55242, .35069, + .24365, .48403, .56761, + .21601, .12295, 9.31291, .56597, .36521, + .25954, .49820, .58142, + .21889, .12448, 9.44070, .57861, .37886, + .27458, .51141, .59430, + .22155, .12589, 9.54819, .59016, .39135, + .28831, .52350, .60607, + .22417, .12728, 9.64500, .60144, .40360, + .30178, .53532, .61758, + .22674, .12864, 9.73217, .61231, .41544, + .31484, .54671, .62866, + .22913, .12989, 9.80309, .62225, .42629, + .32677, .55713, .63879, + .23138, .13106, 9.86551, .63150, .43644, + .33797, .56685, .64822 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .23361, .13221, 9.91891, .64049, .44631, + .34885, .57629, .65740, + .23579, .13333, 9.96614, .64917, .45588, + .35942, .58542, .66624, + .23784, .13439, 10.00537, .65722, .46481, + .36929, .59389, .67445, + .23975, .13537, 10.03561, .66457, .47297, + .37830, .60165, .68195, + .24170, .13636, 10.06594, .67200, .48127, + .38753, .60949, .68954 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .14648, .08330, .40419, .19413, .00000, + .00000, .11207, .20291, + .14948, .08523, .80617, .20221, .00000, + .00000, .12093, .21130, + .15418, .08820, 1.39959, .21512, .00824, + .00000, .13495, .22469, + .15778, .09043, 1.84214, .22519, .01993, + .00000, .14584, .23514, + .16161, .09277, 2.30406, .23640, .03191, + .00000, .15789, .24673, + .16492, .09479, 2.69158, .24652, .04203, + .00000, .16871, .25718, + .16812, .09671, 3.05651, .25655, .05226, + .00000, .17941, .26754, + .17152, .09873, 3.43597, .26753, .06361, + .00000, .19107, .27885 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17449, .10049, 3.75924, .27730, .07390, + .00000, .20145, .28893, + .17733, .10217, 4.05930, .28691, .08390, + .00000, .21163, .29882, + .17956, .10348, 4.28746, .29462, .09186, + .00000, .21976, .30674, + .18432, .10624, 4.75486, .31132, .10937, + .00000, .23741, .32391, + .18845, .10860, 5.14483, .32583, .12469, + .00336, .25272, .33881, + .19301, .11120, 5.52490, .34211, .14194, + .02624, .26988, .35553, + .19768, .11383, 5.89132, .35904, .15991, + .04668, .28771, .37290, + .20187, .11617, 6.19774, .37428, .17615, + .06522, .30375, .38853 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20604, .11848, 6.48267, .38951, .19243, + .08366, .31978, .40414, + .20943, .12035, 6.69965, .40196, .20576, + .09859, .33287, .41691, + .21348, .12256, 6.93917, .41676, .22161, + .11624, .34844, .43207, + .21700, .12448, 7.13296, .42960, .23544, + .13168, .36197, .44522, + .22020, .12621, 7.29908, .44123, .24804, + .14587, .37421, .45714, + .22418, .12833, 7.48518, .45552, .26351, + .16306, .38926, .47177, + .22783, .13028, 7.63971, .46851, .27763, + .17873, .40297, .48509, + .23121, .13205, 7.77085, .48040, .29062, + .19321, .41552, .49726 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .23454, .13380, 7.88948, .49200, .30337, + .20747, .42776, .50913, + .23770, .13544, 7.98623, .50280, .31523, + .22062, .43919, .52021, + .24066, .13698, 8.07027, .51283, .32633, + .23301, .44980, .53048, + .24340, .13839, 8.13850, .52194, .33645, + .24428, .45945, .53981, + .24610, .13978, 8.19769, .53078, .34631, + .25529, .46883, .54886, + .24873, .14111, 8.24923, .53926, .35582, + .26592, .47784, .55755, + .25117, .14234, 8.28837, .54694, .36445, + .27557, .48602, .56543, + .25347, .14350, 8.32155, .55407, .37253, + .28463, .49361, .57275 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .25573, .14462, 8.34717, .56094, .38033, + .29337, .50096, .57979, + .25793, .14572, 8.36799, .56754, .38788, + .30184, .50801, .58656, + .26001, .14675, 8.38314, .57362, .39487, + .30972, .51452, .59280, + .26193, .14769, 8.39189, .57914, .40124, + .31688, .52045, .59846, + .26390, .14865, 8.40060, .58471, .40771, + .32420, .52643, .60418 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17244, .09951, .42509, .18282, .00000, + .00000, .10673, .19382, + .17604, .10183, .80553, .18915, .00000, + .00000, .11382, .20056, + .18162, .10533, 1.35007, .19943, .00752, + .00000, .12522, .21149, + .18585, .10792, 1.74561, .20755, .01741, + .00000, .13414, .22005, + .19033, .11062, 2.14900, .21660, .02750, + .00000, .14406, .22960, + .19419, .11291, 2.48028, .22479, .03598, + .00000, .15294, .23819, + .19787, .11508, 2.78670, .23289, .04452, + .00000, .16172, .24668, + .20178, .11737, 3.09984, .24171, .05397, + .00000, .17126, .25592 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20518, .11933, 3.36240, .24957, .06251, + .00000, .17973, .26412, + .20842, .12119, 3.60239, .25725, .07076, + .00000, .18800, .27214, + .21095, .12263, 3.78238, .26338, .07730, + .00000, .19459, .27852, + .21633, .12565, 4.14468, .27661, .09159, + .00000, .20878, .29228, + .22094, .12821, 4.44410, .28798, .10400, + .00082, .22098, .30410, + .22600, .13098, 4.72341, .30064, .11784, + .01950, .23455, .31724, + .23115, .13377, 4.98584, .31365, .13213, + .03601, .24850, .33074, + .23573, .13623, 5.19938, .32525, .14492, + .05087, .26092, .34276 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .24025, .13864, 5.39257, .33672, .15763, + .06551, .27322, .35464, + .24392, .14058, 5.53565, .34600, .16794, + .07726, .28318, .36424, + .24828, .14283, 5.68865, .35691, .18009, + .09105, .29489, .37555, + .25204, .14479, 5.80852, .36629, .19060, + .10302, .30497, .38525, + .25544, .14653, 5.90856, .37471, .20013, + .11396, .31402, .39395, + .25961, .14865, 6.01545, .38492, .21168, + .12708, .32502, .40451, + .26344, .15058, 6.09936, .39409, .22212, + .13892, .33492, .41400, + .26696, .15232, 6.16714, .40239, .23165, + .14980, .34390, .42258 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .27040, .15403, 6.22519, .41039, .24092, + .16042, .35258, .43086, + .27363, .15562, 6.26721, .41774, .24947, + .17013, .36056, .43846, + .27666, .15709, 6.30127, .42449, .25739, + .17922, .36792, .44543, + .27945, .15842, 6.32510, .43055, .26455, + .18742, .37453, .45171, + .28218, .15972, 6.34225, .43636, .27147, + .19537, .38090, .45771, + .28481, .16097, 6.35434, .44186, .27810, + .20301, .38695, .46341, + .28725, .16211, 6.35858, .44678, .28406, + .20988, .39237, .46850, + .28951, .16317, 6.35989, .45131, .28959, + .21629, .39737, .47319 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .29175, .16420, 6.35575, .45560, .29490, + .22244, .40214, .47764, + .29390, .16520, 6.34869, .45968, .29998, + .22836, .40669, .48187, + .29592, .16612, 6.33879, .46339, .30466, + .23382, .41084, .48571, + .29779, .16697, 6.32562, .46670, .30887, + .23875, .41456, .48915, + .29968, .16781, 6.31238, .47002, .31314, + .24378, .41831, .49260 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .20479, .11970, .48332, .17067, .00000, + .00000, .10081, .18455, + .20924, .12251, .83814, .17521, .00000, + .00000, .10613, .18966, + .21602, .12668, 1.32946, .18289, .00617, + .00000, .11498, .19820, + .22105, .12966, 1.67435, .18910, .01439, + .00000, .12205, .20500, + .22632, .13275, 2.01634, .19609, .02274, + .00000, .12993, .21259, + .23083, .13534, 2.28994, .20242, .02970, + .00000, .13700, .21943, + .23511, .13776, 2.53736, .20869, .03671, + .00000, .14400, .22617, + .23961, .14028, 2.78481, .21551, .04442, + .00000, .15158, .23346 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24349, .14242, 2.98811, .22155, .05134, + .00000, .15827, .23991, + .24716, .14444, 3.17024, .22743, .05799, + .00000, .16477, .24618, + .25003, .14598, 3.30439, .23211, .06323, + .00000, .16992, .25113, + .25605, .14920, 3.56805, .24210, .07461, + .00000, .18095, .26173, + .26112, .15186, 3.78429, .25058, .08438, + -.00154, .19031, .27069, + .26665, .15472, 3.97237, .25991, .09515, + .01333, .20060, .28052, + .27222, .15756, 4.14235, .26938, .10614, + .02633, .21104, .29049, + .27712, .16002, 4.27497, .27769, .11587, + .03790, .22023, .29924 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .28191, .16240, 4.38961, .28578, .12542, + .04918, .22920, .30774, + .28577, .16429, 4.47046, .29226, .13309, + .05815, .23638, .31453, + .29030, .16648, 4.55177, .29973, .14202, + .06857, .24469, .32239, + .29418, .16833, 4.61137, .30607, .14966, + .07752, .25177, .32903, + .29765, .16998, 4.65827, .31170, .15651, + .08563, .25805, .33491, + .30190, .17196, 4.70250, .31837, .16473, + .09525, .26555, .34191, + .30573, .17372, 4.73178, .32426, .17206, + .10386, .27219, .34808, + .30922, .17529, 4.75130, .32950, .17867, + .11167, .27814, .35357 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .31261, .17681, 4.76385, .33447, .18504, + .11925, .28380, .35878, + .31577, .17820, 4.76561, .33892, .19082, + .12608, .28892, .36344, + .31870, .17948, 4.76352, .34296, .19614, + .13244, .29357, .36766, + .32135, .18061, 4.75602, .34649, .20087, + .13811, .29768, .37136, + .32393, .18172, 4.74395, .34981, .20540, + .14356, .30157, .37483, + .32641, .18275, 4.72906, .35290, .20970, + .14875, .30521, .37806, + .32868, .18368, 4.71024, .35557, .21350, + .15338, .30841, .38087, + .33077, .18454, 4.69093, .35800, .21701, + .15766, .31132, .38341 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .33281, .18535, 4.66790, .36024, .22032, + .16173, .31403, .38575, + .33477, .18613, 4.64343, .36231, .22347, + .16562, .31659, .38792, + .33658, .18683, 4.61829, .36414, .22632, + .16917, .31886, .38984, + .33823, .18748, 4.59217, .36573, .22887, + .17236, .32086, .39150, + .33991, .18811, 4.56611, .36730, .23143, + .17559, .32286, .39314 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .24920, .14690, .61262, .15572, .00000, + .00000, .09310, .17432, + .25488, .15035, .93054, .15843, .00000, + .00000, .09669, .17781, + .26333, .15528, 1.35401, .16349, .00351, + .00000, .10308, .18396, + .26941, .15869, 1.63649, .16777, .01016, + .00000, .10833, .18896, + .27569, .16214, 1.90606, .17269, .01688, + .00000, .11425, .19461, + .28097, .16498, 2.11391, .17719, .02243, + .00000, .11959, .19967, + .28592, .16759, 2.29598, .18164, .02798, + .00000, .12483, .20464, + .29107, .17026, 2.47234, .18646, .03404, + .00000, .13049, .20999 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29547, .17250, 2.61294, .19068, .03943, + .00000, .13544, .21466, + .29957, .17456, 2.73503, .19478, .04456, + .00000, .14021, .21915, + .30273, .17613, 2.82233, .19801, .04857, + .00000, .14396, .22266, + .30930, .17934, 2.98735, .20482, .05718, + .00000, .15189, .23006, + .31472, .18191, 3.12239, .21048, .06444, + -.00383, .15849, .23618, + .32052, .18461, 3.22363, .21659, .07234, + .00744, .16564, .24276, + .32628, .18722, 3.30785, .22264, .08025, + .01714, .17274, .24924, + .33127, .18943, 3.36716, .22782, .08713, + .02564, .17885, .25478 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33605, .19153, 3.41248, .23275, .09377, + .03381, .18469, .26003, + .33986, .19315, 3.43949, .23659, .09902, + .04022, .18928, .26412, + .34425, .19498, 3.46042, .24091, .10504, + .04756, .19448, .26872, + .34795, .19649, 3.47045, .24447, .11010, + .05379, .19880, .27248, + .35123, .19781, 3.47445, .24755, .11458, + .05937, .20256, .27574, + .35514, .19933, 3.46941, .25108, .11986, + .06590, .20694, .27947, + .35862, .20064, 3.45697, .25406, .12447, + .07164, .21071, .28262, + .36173, .20179, 3.44061, .25663, .12857, + .07680, .21398, .28531 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36470, .20286, 3.42026, .25898, .13245, + .08172, .21704, .28777, + .36741, .20378, 3.39413, .26095, .13589, + .08610, .21968, .28983, + .36987, .20461, 3.36759, .26266, .13901, + .09013, .22202, .29162, + .37207, .20532, 3.33960, .26408, .14174, + .09367, .22401, .29309, + .37416, .20597, 3.30916, .26533, .14430, + .09703, .22583, .29439, + .37614, .20657, 3.27785, .26643, .14669, + .10020, .22748, .29554, + .37790, .20706, 3.24574, .26728, .14875, + .10298, .22885, .29641, + .37950, .20751, 3.21489, .26802, .15063, + .10552, .23006, .29716 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .38102, .20791, 3.18206, .26861, .15235, + .10790, .23112, .29773, + .38246, .20828, 3.14906, .26909, .15396, + .11016, .23207, .29821, + .38377, .20857, 3.11692, .26945, .15539, + .11219, .23287, .29856, + .38492, .20883, 3.08544, .26968, .15663, + .11399, .23351, .29879, + .38609, .20907, 3.05420, .26991, .15787, + .11580, .23413, .29899 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .28576, .16893, .76339, .14261, .00000, + .00000, .08560, .16507, + .29263, .17284, 1.04375, .14428, .00000, + .00000, .08830, .16775, + .30253, .17824, 1.40970, .14787, .00051, + .00000, .09338, .17262, + .30947, .18188, 1.64108, .15107, .00633, + .00000, .09763, .17662, + .31653, .18547, 1.85457, .15477, .01217, + .00000, .10244, .18111, + .32236, .18837, 2.01359, .15818, .01694, + .00000, .10676, .18512, + .32776, .19100, 2.14865, .16154, .02166, + .00000, .11098, .18901, + .33330, .19362, 2.27539, .16515, .02677, + .00000, .11550, .19313 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .33794, .19579, 2.37333, .16829, .03127, + .00000, .11942, .19669, + .34226, .19776, 2.45552, .17131, .03550, + .00000, .12315, .20006, + .34557, .19924, 2.51229, .17364, .03879, + .00000, .12606, .20267, + .35231, .20220, 2.61450, .17853, .04575, + .00000, .13211, .20808, + .35775, .20449, 2.69942, .18249, .05154, + -.00515, .13707, .21242, + .36345, .20683, 2.74862, .18668, .05774, + .00396, .14232, .21695, + .36901, .20903, 2.78311, .19071, .06385, + .01171, .14743, .22129, + .37374, .21083, 2.80123, .19405, .06908, + .01840, .15172, .22489 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37821, .21247, 2.80863, .19715, .07406, + .02477, .15574, .22818, + .38170, .21371, 2.80717, .19949, .07794, + .02972, .15882, .23063, + .38563, .21504, 2.79698, .20202, .08232, + .03530, .16223, .23329, + .38890, .21610, 2.78222, .20401, .08594, + .03999, .16500, .23538, + .39174, .21698, 2.76540, .20569, .08911, + .04414, .16735, .23711, + .39505, .21795, 2.73746, .20749, .09278, + .04895, .17000, .23898, + .39792, .21872, 2.70639, .20890, .09593, + .05312, .17219, .24041, + .40042, .21935, 2.67463, .21004, .09868, + .05683, .17403, .24154 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40276, .21990, 2.64077, .21101, .10124, + .06032, .17568, .24247, + .40480, .22032, 2.60402, .21169, .10347, + .06339, .17701, .24311, + .40663, .22065, 2.56860, .21223, .10545, + .06618, .17814, .24359, + .40821, .22089, 2.53369, .21258, .10714, + .06861, .17904, .24388, + .40966, .22107, 2.49758, .21279, .10871, + .07089, .17982, .24403, + .41100, .22119, 2.46169, .21291, .11014, + .07302, .18045, .24406, + .41213, .22124, 2.42643, .21288, .11134, + .07484, .18091, .24394, + .41314, .22126, 2.39318, .21279, .11242, + .07652, .18129, .24376 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41404, .22123, 2.35895, .21259, .11337, + .07806, .18154, .24346, + .41486, .22117, 2.32514, .21232, .11425, + .07949, .18171, .24309, + .41557, .22107, 2.29282, .21201, .11501, + .08079, .18182, .24267, + .41615, .22093, 2.26180, .21163, .11563, + .08190, .18182, .24218, + .41674, .22079, 2.23112, .21124, .11625, + .08301, .18181, .24169 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .34760, .20405, 1.03973, .11981, .00000, + .00000, .07213, .15039, + .35623, .20840, 1.24736, .12065, .00000, + .00000, .07417, .15222, + .36814, .21408, 1.51123, .12284, -.00496, + .00000, .07810, .15562, + .37605, .21766, 1.65826, .12487, .00008, + .00000, .08132, .15834, + .38384, .22102, 1.78450, .12725, .00504, + .00000, .08492, .16130, + .39011, .22362, 1.87133, .12937, .00898, + .00000, .08805, .16387, + .39575, .22588, 1.93955, .13144, .01278, + .00000, .09103, .16627, + .40137, .22807, 1.99827, .13361, .01680, + .00000, .09413, .16873 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .40597, .22979, 2.03962, .13544, .02026, + .00000, .09677, .17077, + .41014, .23129, 2.07028, .13715, .02345, + .00000, .09923, .17265, + .41325, .23236, 2.08855, .13844, .02589, + .00000, .10109, .17402, + .41944, .23439, 2.11404, .14104, .03093, + .00000, .10486, .17675, + .42415, .23578, 2.13911, .14300, .03499, + -.00635, .10781, .17875, + .42890, .23706, 2.12953, .14493, .03923, + .00018, .11078, .18068, + .43332, .23810, 2.11017, .14664, .04328, + .00563, .11354, .18232, + .43688, .23882, 2.08554, .14792, .04666, + .01025, .11574, .18349 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .44007, .23936, 2.05531, .14899, .04977, + .01453, .11767, .18439, + .44242, .23965, 2.02667, .14968, .05213, + .01779, .11906, .18491, + .44490, .23984, 1.98834, .15028, .05473, + .02141, .12048, .18529, + .44681, .23986, 1.95228, .15064, .05682, + .02439, .12154, .18544, + .44839, .23979, 1.91836, .15086, .05859, + .02698, .12238, .18543, + .45003, .23956, 1.87302, .15090, .06059, + .02992, .12320, .18519, + .45127, .23918, 1.82910, .15077, .06225, + .03242, .12374, .18475, + .45223, .23874, 1.78775, .15051, .06364, + .03459, .12411, .18420 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .45300, .23823, 1.74643, .15015, .06489, + .03661, .12436, .18354, + .45348, .23759, 1.70513, .14963, .06592, + .03833, .12440, .18271, + .45380, .23695, 1.66669, .14906, .06680, + .03988, .12437, .18185, + .45392, .23628, 1.63052, .14846, .06753, + .04120, .12424, .18094, + .45393, .23554, 1.59441, .14778, .06816, + .04241, .12402, .17994, + .45382, .23477, 1.55947, .14703, .06870, + .04350, .12374, .17891, + .45358, .23398, 1.52634, .14626, .06913, + .04444, .12338, .17784, + .45328, .23322, 1.49564, .14551, .06948, + .04526, .12301, .17681 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45285, .23238, 1.46489, .14468, .06977, + .04601, .12257, .17571, + .45236, .23154, 1.43507, .14383, .07000, + .04670, .12209, .17457, + .45182, .23071, 1.40706, .14299, .07018, + .04729, .12160, .17346, + .45121, .22988, 1.38073, .14215, .07028, + .04778, .12108, .17236, + .45060, .22905, 1.35484, .14131, .07039, + .04829, .12056, .17126 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .39929, .23118, 1.24983, .09985, .00000, + .00000, .06015, .13727, + .40909, .23543, 1.38841, .10059, .00000, + .00000, .06221, .13874, + .42197, .24067, 1.56302, .10238, -.00903, + .00000, .06576, .14125, + .43011, .24373, 1.64258, .10390, -.00435, + .00000, .06849, .14311, + .43787, .24644, 1.70326, .10561, .00016, + .00000, .07140, .14501, + .44390, .24841, 1.73862, .10707, .00365, + .00000, .07384, .14656, + .44917, .25000, 1.76135, .10842, .00693, + .00000, .07608, .14792, + .45424, .25142, 1.77567, .10975, .01029, + .00000, .07833, .14920 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .45828, .25244, 1.78140, .11086, .01313, + .00000, .08019, .15019, + .46184, .25323, 1.78084, .11181, .01570, + .00000, .08186, .15103, + .46438, .25373, 1.77648, .11251, .01763, + .00000, .08309, .15160, + .46923, .25453, 1.75869, .11380, .02153, + .00000, .08547, .15257, + .47262, .25482, 1.75087, .11468, .02460, + -.00652, .08724, .15310, + .47578, .25486, 1.71195, .11542, .02771, + -.00156, .08892, .15338, + .47844, .25460, 1.66744, .11592, .03061, + .00254, .09035, .15338, + .48032, .25414, 1.62430, .11615, .03296, + .00592, .09139, .15315 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .48179, .25347, 1.57904, .11620, .03508, + .00902, .09221, .15268, + .48269, .25277, 1.54054, .11609, .03664, + .01133, .09271, .15212, + .48335, .25176, 1.49306, .11580, .03831, + .01387, .09313, .15129, + .48363, .25076, 1.45109, .11542, .03962, + .01592, .09333, .15040, + .48368, .24976, 1.41313, .11499, .04070, + .01767, .09342, .14951, + .48339, .24835, 1.36493, .11429, .04189, + .01964, .09337, .14820, + .48281, .24689, 1.32021, .11349, .04282, + .02128, .09317, .14685, + .48205, .24546, 1.27933, .11268, .04358, + .02268, .09288, .14551 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .48110, .24397, 1.23950, .11181, .04423, + .02395, .09251, .14409, + .47989, .24241, 1.20094, .11086, .04474, + .02503, .09203, .14261, + .47863, .24088, 1.16564, .10992, .04516, + .02597, .09152, .14119, + .47731, .23938, 1.13311, .10898, .04547, + .02676, .09099, .13979, + .47583, .23784, 1.10122, .10800, .04571, + .02747, .09039, .13833, + .47429, .23630, 1.07076, .10702, .04590, + .02810, .08978, .13690, + .47267, .23479, 1.04239, .10604, .04602, + .02863, .08914, .13549, + .47111, .23334, 1.01637, .10510, .04609, + .02908, .08851, .13414 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .46940, .23185, .99066, .10412, .04613, + .02948, .08784, .13275, + .46766, .23037, .96598, .10315, .04613, + .02984, .08717, .13139, + .46594, .22893, .94303, .10220, .04611, + .03015, .08650, .13007, + .46421, .22754, .92171, .10129, .04605, + .03039, .08584, .12880, + .46248, .22614, .90082, .10037, .04599, + .03063, .08519, .12753 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .44432, .25289, 1.37635, .08299, .00000, + .00000, .05022, .12571, + .45467, .25671, 1.45438, .08390, .00000, + .00000, .05240, .12683, + .46771, .26100, 1.55391, .08558, -.01148, + .00000, .05577, .12856, + .47554, .26323, 1.58132, .08685, -.00708, + .00000, .05815, .12965, + .48267, .26499, 1.59374, .08813, -.00293, + .00000, .06054, .13064, + .48797, .26607, 1.59291, .08917, .00021, + .00000, .06246, .13131, + .49240, .26681, 1.58485, .09005, .00309, + .00000, .06415, .13179, + .49646, .26731, 1.57021, .09088, .00598, + .00000, .06578, .13217 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .49953, .26750, 1.55362, .09150, .00836, + .00000, .06707, .13235, + .50206, .26750, 1.53412, .09199, .01049, + .00000, .06818, .13243, + .50378, .26738, 1.51652, .09232, .01205, + .00000, .06896, .13237, + .50677, .26681, 1.47454, .09283, .01518, + .00000, .07041, .13210, + .50847, .26591, 1.44849, .09304, .01756, + -.00620, .07140, .13159, + .50965, .26463, 1.39570, .09309, .01993, + -.00233, .07225, .13081, + .51019, .26305, 1.34050, .09292, .02210, + .00084, .07287, .12974, + .51014, .26141, 1.29053, .09259, .02380, + .00341, .07321, .12858 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .50964, .25957, 1.24072, .09211, .02530, + .00573, .07336, .12729, + .50888, .25793, 1.20000, .09161, .02639, + .00745, .07338, .12609, + .50756, .25578, 1.15156, .09088, .02752, + .00929, .07323, .12456, + .50609, .25380, 1.10995, .09013, .02839, + .01077, .07299, .12312, + .50457, .25193, 1.07308, .08940, .02910, + .01202, .07270, .12174, + .50226, .24945, 1.02748, .08839, .02982, + .01339, .07221, .11991, + .49980, .24703, .98615, .08736, .03038, + .01452, .07164, .11812, + .49733, .24469, .94899, .08635, .03081, + .01547, .07106, .11642 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .49471, .24233, .91334, .08530, .03116, + .01633, .07043, .11469, + .49186, .23994, .87951, .08422, .03141, + .01703, .06973, .11294, + .48907, .23768, .84887, .08318, .03159, + .01764, .06904, .11129, + .48632, .23550, .82098, .08219, .03172, + .01815, .06836, .10971, + .48345, .23330, .79393, .08115, .03179, + .01859, .06764, .10813, + .48055, .23111, .76833, .08012, .03183, + .01898, .06694, .10656, + .47767, .22902, .74477, .07914, .03183, + .01930, .06622, .10507, + .47490, .22703, .72328, .07822, .03179, + .01957, .06553, .10366 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .47204, .22502, .70227, .07726, .03174, + .01980, .06482, .10223, + .46917, .22302, .68226, .07631, .03165, + .02000, .06411, .10085, + .46638, .22111, .66377, .07541, .03155, + .02016, .06343, .09951, + .46367, .21928, .64670, .07454, .03144, + .02028, .06277, .09824, + .46094, .21745, .63004, .07369, .03132, + .02041, .06212, .09699 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .49317, .27354, 1.42960, .06593, .00000, + .00000, .04033, .11237, + .50319, .27625, 1.44803, .06711, .00000, + .00000, .04254, .11296, + .51497, .27882, 1.47570, .06876, -.01272, + .00000, .04561, .11358, + .52146, .27969, 1.45734, .06984, -.00871, + .00000, .04762, .11380, + .52697, .27999, 1.42936, .07079, -.00499, + .00000, .04948, .11380, + .53070, .27983, 1.39954, .07147, -.00224, + .00000, .05088, .11360, + .53352, .27935, 1.36781, .07199, .00021, + .00000, .05206, .11327, + .53582, .27855, 1.33196, .07241, .00261, + .00000, .05311, .11280 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .53728, .27765, 1.29968, .07267, .00455, + .00000, .05389, .11227, + .53821, .27660, 1.26752, .07283, .00625, + .00000, .05455, .11162, + .53865, .27566, 1.24144, .07289, .00749, + .00000, .05498, .11106, + .53887, .27337, 1.18517, .07284, .00991, + .00000, .05568, .10976, + .53812, .27104, 1.14816, .07260, .01170, + -.00543, .05606, .10844, + .53660, .26819, 1.08982, .07216, .01344, + -.00254, .05627, .10685, + .53430, .26505, 1.03172, .07157, .01499, + -.00019, .05630, .10502, + .53171, .26205, .98127, .07091, .01618, + .00167, .05615, .10327 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .52868, .25888, .93263, .07012, .01721, + .00334, .05587, .10144, + .52584, .25619, .89398, .06940, .01792, + .00454, .05554, .09988, + .52204, .25283, .84917, .06846, .01865, + .00584, .05506, .09792, + .51844, .24981, .81149, .06757, .01920, + .00685, .05456, .09616, + .51497, .24703, .77865, .06674, .01962, + .00769, .05405, .09455, + .51028, .24343, .73889, .06562, .02004, + .00862, .05333, .09248, + .50566, .23999, .70351, .06452, .02034, + .00936, .05261, .09052, + .50119, .23676, .67217, .06347, .02057, + .00998, .05190, .08869 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .49662, .23353, .64249, .06241, .02073, + .01052, .05116, .08687, + .49193, .23035, .61476, .06134, .02082, + .01096, .05039, .08508, + .48745, .22735, .58990, .06033, .02087, + .01133, .04967, .08341, + .48313, .22452, .56751, .05939, .02089, + .01163, .04896, .08185, + .47873, .22167, .54601, .05843, .02087, + .01189, .04824, .08031, + .47437, .21890, .52586, .05748, .02083, + .01212, .04752, .07881, + .47015, .21623, .50746, .05658, .02077, + .01230, .04683, .07738, + .46616, .21375, .49082, .05573, .02069, + .01244, .04620, .07604 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .46206, .21124, .47467, .05488, .02059, + .01256, .04554, .07470, + .45800, .20879, .45936, .05405, .02049, + .01266, .04490, .07341, + .45410, .20645, .44533, .05327, .02038, + .01274, .04427, .07219, + .45038, .20424, .43247, .05252, .02026, + .01279, .04368, .07104, + .44665, .20205, .41996, .05177, .02012, + .01284, .04309, .06990 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .53524, .28850, 1.39066, .05300, .00000, + .00000, .03290, .10010, + .54393, .28975, 1.36770, .05424, .00000, + .00000, .03499, .10003, + .55336, .29007, 1.34623, .05576, -.01255, + .00000, .03766, .09961, + .55781, .28936, 1.30011, .05662, -.00898, + .00000, .03931, .09901, + .56102, .28803, 1.24896, .05731, -.00573, + .00000, .04070, .09826, + .56269, .28650, 1.20365, .05774, -.00337, + .00000, .04170, .09739, + .56347, .28476, 1.16008, .05801, -.00130, + .00000, .04246, .09647, + .56358, .28266, 1.11439, .05816, .00069, + .00000, .04313, .09537 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .56315, .28063, 1.07549, .05817, .00226, + .00000, .04358, .09434, + .56230, .27853, 1.03851, .05810, .00362, + .00000, .04389, .09331, + .56127, .27678, 1.00966, .05799, .00460, + .00000, .04405, .09245, + .55840, .27287, .94981, .05764, .00648, + .00000, .04426, .09050, + .55502, .26922, .90974, .05718, .00785, + -.00459, .04428, .08873, + .55064, .26498, .85302, .05654, .00917, + -.00240, .04414, .08668, + .54547, .26044, .79811, .05574, .01030, + -.00064, .04382, .08452, + .54036, .25624, .75157, .05492, .01115, + .00074, .04343, .08252 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .53482, .25197, .70762, .05405, .01187, + .00195, .04295, .08046, + .52999, .24837, .67333, .05326, .01236, + .00283, .04247, .07880, + .52385, .24401, .63420, .05228, .01285, + .00375, .04184, .07674, + .51823, .24014, .60178, .05137, .01320, + .00446, .04125, .07494, + .51301, .23660, .57381, .05053, .01347, + .00506, .04068, .07331, + .50617, .23212, .54045, .04945, .01373, + .00569, .03991, .07124, + .49959, .22788, .51115, .04840, .01390, + .00619, .03915, .06934, + .49335, .22397, .48546, .04740, .01401, + .00661, .03844, .06759 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .48708, .22012, .46137, .04643, .01407, + .00696, .03772, .06587, + .48078, .21634, .43909, .04549, .01411, + .00725, .03699, .06419, + .47485, .21282, .41929, .04459, .01411, + .00749, .03631, .06265, + .46923, .20952, .40163, .04372, .01408, + .00767, .03564, .06123, + .46355, .20623, .38479, .04288, .01403, + .00783, .03498, .05983, + .45797, .20304, .36909, .04206, .01396, + .00796, .03435, .05847, + .45264, .20003, .35485, .04129, .01389, + .00807, .03374, .05720, + .44762, .19723, .34202, .04057, .01380, + .00814, .03318, .05602 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .44255, .19440, .32966, .03983, .01371, + .00821, .03260, .05485, + .43758, .19164, .31801, .03911, .01360, + .00826, .03203, .05373, + .43284, .18904, .30738, .03844, .01350, + .00829, .03150, .05268, + .42833, .18660, .29770, .03782, .01340, + .00832, .03099, .05167, + .42383, .18418, .28831, .03720, .01329, + .00833, .03050, .05069 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .57105, .29851, 1.29106, .04340, .00000, + .00000, .02727, .08838, + .57760, .29806, 1.24258, .04456, .00000, + .00000, .02909, .08764, + .58344, .29607, 1.19118, .04593, -.01160, + .00000, .03124, .08624, + .58523, .29374, 1.13078, .04659, -.00850, + .00000, .03244, .08503, + .58567, .29072, 1.06891, .04705, -.00572, + .00000, .03344, .08363, + .58488, .28787, 1.01724, .04729, -.00370, + .00000, .03408, .08232, + .58337, .28488, .96961, .04737, -.00199, + .00000, .03454, .08098, + .58107, .28149, .92132, .04732, -.00035, + .00000, .03488, .07951 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .57858, .27844, .88128, .04719, .00092, + .00000, .03507, .07821, + .57570, .27541, .84413, .04700, .00202, + .00000, .03518, .07691, + .57317, .27292, .81575, .04676, .00279, + .00000, .03520, .07587, + .56716, .26750, .75807, .04621, .00427, + .00000, .03512, .07363, + .56119, .26268, .71932, .04565, .00532, + -.00379, .03491, .07169, + .55400, .25720, .66766, .04489, .00631, + -.00213, .03455, .06952, + .54606, .25147, .61856, .04401, .00716, + -.00080, .03408, .06726, + .53852, .24630, .57764, .04317, .00778, + .00024, .03357, .06524 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .53071, .24110, .53954, .04227, .00830, + .00114, .03300, .06322, + .52402, .23680, .51017, .04150, .00865, + .00178, .03250, .06157, + .51574, .23165, .47705, .04057, .00899, + .00245, .03185, .05959, + .50837, .22711, .44994, .03971, .00922, + .00296, .03123, .05790, + .50162, .22299, .42677, .03888, .00939, + .00338, .03066, .05640, + .49287, .21785, .39938, .03789, .00955, + .00383, .02994, .05449, + .48460, .21308, .37558, .03695, .00965, + .00418, .02923, .05275, + .47687, .20870, .35488, .03607, .00971, + .00446, .02857, .05117 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .46918, .20439, .33562, .03520, .00973, + .00470, .02791, .04965, + .46161, .20020, .31794, .03434, .00972, + .00489, .02727, .04818, + .45453, .19632, .30231, .03355, .00970, + .00504, .02667, .04682, + .44786, .19273, .28846, .03282, .00966, + .00517, .02611, .04557, + .44118, .18917, .27533, .03209, .00961, + .00527, .02554, .04435, + .43469, .18572, .26315, .03140, .00954, + .00535, .02498, .04319, + .42851, .18247, .25218, .03073, .00947, + .00541, .02446, .04212, + .42276, .17947, .24235, .03010, .00940, + .00546, .02398, .04112 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .41695, .17646, .23292, .02948, .00932, + .00550, .02350, .04015, + .41126, .17356, .22406, .02890, .00923, + .00552, .02303, .03920, + .40589, .17082, .21600, .02834, .00914, + .00554, .02259, .03832, + .40080, .16824, .20870, .02782, .00905, + .00554, .02217, .03750, + .39575, .16570, .20163, .02731, .00896, + .00554, .02177, .03669 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .60067, .30423, 1.15818, .03624, .00000, + .00000, .02281, .07695, + .60432, .30198, 1.09646, .03729, .00000, + .00000, .02427, .07564, + .60597, .29746, 1.02961, .03832, -.01031, + .00000, .02596, .07353, + .60470, .29346, .96420, .03877, -.00766, + .00000, .02680, .07194, + .60195, .28888, .89969, .03902, -.00531, + .00000, .02747, .07016, + .59855, .28469, .84754, .03908, -.00364, + .00000, .02787, .06854, + .59461, .28048, .80054, .03902, -.00222, + .00000, .02809, .06701, + .58978, .27593, .75379, .03882, -.00088, + .00000, .02824, .06538 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .58516, .27192, .71571, .03857, .00015, + .00000, .02827, .06396, + .58037, .26796, .68095, .03825, .00103, + .00000, .02822, .06261, + .57631, .26484, .65471, .03799, .00165, + .00000, .02813, .06152, + .56717, .25814, .60222, .03733, .00280, + .00000, .02786, .05922, + .55868, .25233, .56678, .03668, .00362, + -.00309, .02754, .05729, + .54884, .24584, .52146, .03590, .00438, + -.00182, .02709, .05516, + .53832, .23918, .47897, .03502, .00501, + -.00081, .02656, .05299, + .52858, .23322, .44399, .03418, .00547, + -.00003, .02603, .05108 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .51867, .22730, .41180, .03332, .00585, + .00065, .02543, .04922, + .51041, .22247, .38722, .03258, .00610, + .00112, .02494, .04772, + .50031, .21670, .35977, .03169, .00634, + .00161, .02432, .04593, + .49140, .21169, .33749, .03090, .00650, + .00198, .02375, .04440, + .48329, .20721, .31857, .03018, .00661, + .00228, .02324, .04304, + .47295, .20165, .29640, .02929, .00671, + .00260, .02257, .04137, + .46336, .19649, .27727, .02843, .00676, + .00285, .02195, .03987, + .45446, .19178, .26075, .02765, .00679, + .00304, .02137, .03851 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .44568, .18718, .24549, .02689, .00679, + .00322, .02078, .03719, + .43709, .18276, .23159, .02614, .00677, + .00334, .02024, .03595, + .42910, .17869, .21937, .02547, .00675, + .00345, .01973, .03481, + .42161, .17493, .20858, .02484, .00671, + .00353, .01924, .03378, + .41419, .17122, .19842, .02423, .00665, + .00359, .01875, .03277, + .40701, .16768, .18905, .02363, .00659, + .00364, .01828, .03181, + .40024, .16434, .18063, .02307, .00654, + .00368, .01787, .03090, + .39394, .16124, .17309, .02254, .00648, + .00371, .01748, .03009 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .38762, .15819, .16592, .02204, .00640, + .00372, .01708, .02927, + .38146, .15525, .15919, .02156, .00633, + .00373, .01670, .02849, + .37567, .15247, .15310, .02110, .00626, + .00374, .01634, .02778, + .37025, .14985, .14758, .02064, .00619, + .00375, .01601, .02713, + .36489, .14726, .14226, .02020, .00612, + .00374, .01568, .02649 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .62415, .30604, 1.01238, .03089, .00000, + .00000, .01916, .06580, + .62450, .30185, .94605, .03164, .00000, + .00000, .02034, .06416, + .62136, .29484, .87387, .03234, -.00895, + .00000, .02154, .06167, + .61684, .28918, .80931, .03255, -.00672, + .00000, .02215, .05986, + .61075, .28307, .74712, .03258, -.00476, + .00000, .02257, .05792, + .60461, .27766, .69784, .03248, -.00336, + .00000, .02275, .05626, + .59814, .27241, .65411, .03228, -.00220, + .00000, .02283, .05467, + .59077, .26684, .61121, .03198, -.00112, + .00000, .02281, .05301 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .58405, .26201, .57664, .03167, -.00029, + .00000, .02274, .05158, + .57728, .25736, .54541, .03133, .00042, + .00000, .02260, .05023, + .57175, .25365, .52203, .03101, .00091, + .00000, .02247, .04919, + .55966, .24590, .47586, .03029, .00182, + .00000, .02210, .04702, + .54885, .23929, .44463, .02963, .00246, + -.00251, .02173, .04518, + .53662, .23201, .40583, .02883, .00304, + -.00153, .02126, .04324, + .52377, .22460, .36985, .02798, .00353, + -.00075, .02070, .04128, + .51213, .21806, .34052, .02720, .00387, + -.00017, .02018, .03956 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .50045, .21165, .31380, .02637, .00415, + .00035, .01963, .03790, + .49077, .20644, .29355, .02571, .00434, + .00070, .01917, .03656, + .47914, .20029, .27110, .02490, .00449, + .00106, .01859, .03502, + .46895, .19499, .25299, .02421, .00461, + .00133, .01809, .03371, + .45977, .19026, .23773, .02357, .00469, + .00156, .01762, .03255, + .44831, .18439, .21997, .02271, .00475, + .00178, .01706, .03114, + .43758, .17907, .20478, .02200, .00478, + .00196, .01651, .02988, + .42773, .17421, .19173, .02133, .00479, + .00210, .01600, .02874 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .41816, .16948, .17971, .02065, .00479, + .00222, .01555, .02767, + .40885, .16498, .16888, .02001, .00476, + .00230, .01507, .02661, + .40022, .16084, .15938, .01944, .00473, + .00238, .01463, .02567, + .39221, .15704, .15103, .01892, .00470, + .00243, .01423, .02483, + .38429, .15329, .14321, .01839, .00465, + .00247, .01383, .02401, + .37668, .14972, .13601, .01787, .00460, + .00251, .01347, .02323, + .36951, .14639, .12960, .01740, .00455, + .00253, .01311, .02251, + .36287, .14332, .12388, .01697, .00450, + .00254, .01278, .02185 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .35625, .14029, .11844, .01655, .00444, + .00256, .01246, .02122, + .34983, .13735, .11336, .01614, .00438, + .00256, .01214, .02062, + .34380, .13462, .10878, .01576, .00433, + .00256, .01186, .02006, + .33816, .13205, .10466, .01541, .00427, + .00255, .01159, .01954, + .33260, .12954, .10067, .01505, .00422, + .00255, .01132, .01904 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .64196, .30388, .86730, .02635, .00000, + .00000, .01621, .05545, + .63835, .29804, .80213, .02695, .00000, + .00000, .01700, .05356, + .62991, .28876, .73108, .02740, -.00767, + .00000, .01781, .05088, + .62177, .28178, .67083, .02753, -.00581, + .00000, .01820, .04889, + .61227, .27430, .61362, .02743, -.00418, + .00000, .01837, .04699, + .60342, .26782, .56892, .02719, -.00303, + .00000, .01843, .04538, + .59447, .26168, .52960, .02692, -.00207, + .00000, .01840, .04386, + .58467, .25522, .49148, .02655, -.00118, + .00000, .01830, .04225 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .57595, .24969, .46102, .02620, -.00051, + .00000, .01817, .04092, + .56737, .24442, .43373, .02582, .00005, + .00000, .01798, .03969, + .56046, .24030, .41347, .02549, .00044, + .00000, .01781, .03872, + .54574, .23168, .37377, .02475, .00117, + .00000, .01742, .03673, + .53291, .22443, .34687, .02408, .00166, + -.00204, .01704, .03514, + .51850, .21661, .31421, .02334, .00212, + -.00128, .01655, .03339, + .50366, .20876, .28417, .02254, .00249, + -.00067, .01605, .03168, + .49043, .20183, .25996, .02179, .00275, + -.00022, .01558, .03021 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .47726, .19508, .23805, .02106, .00296, + .00016, .01509, .02878, + .46650, .18969, .22156, .02043, .00309, + .00042, .01467, .02767, + .45368, .18328, .20344, .01969, .00321, + .00070, .01416, .02637, + .44258, .17781, .18890, .01905, .00329, + .00090, .01370, .02529, + .43260, .17298, .17671, .01846, .00334, + .00106, .01330, .02435, + .42016, .16703, .16262, .01779, .00338, + .00123, .01282, .02315, + .40872, .16165, .15064, .01714, .00340, + .00136, .01237, .02210, + .39827, .15677, .14043, .01657, .00340, + .00146, .01197, .02117 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .38810, .15204, .13109, .01599, .00339, + .00154, .01157, .02031, + .37831, .14756, .12270, .01545, .00337, + .00160, .01117, .01948, + .36930, .14346, .11539, .01495, .00334, + .00165, .01081, .01874, + .36099, .13970, .10898, .01450, .00331, + .00169, .01049, .01806, + .35281, .13602, .10302, .01404, .00327, + .00171, .01017, .01742, + .34497, .13251, .09754, .01361, .00323, + .00173, .00987, .01682, + .33761, .12927, .09270, .01322, .00318, + .00174, .00957, .01625, + .33081, .12631, .08840, .01286, .00315, + .00176, .00931, .01572 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .32407, .12338, .08430, .01252, .00311, + .00176, .00905, .01522, + .31756, .12055, .08049, .01219, .00305, + .00176, .00882, .01474, + .31147, .11792, .07706, .01188, .00301, + .00176, .00860, .01431, + .30579, .11545, .07399, .01159, .00297, + .00175, .00838, .01391, + .30018, .11304, .07106, .01129, .00293, + .00175, .00818, .01352 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .65226, .29979, .73206, .02373, .00000, + .00000, .01289, .04496, + .64487, .29208, .67102, .02396, .00000, + .00000, .01356, .04320, + .63126, .28058, .60449, .02398, -.00655, + .00000, .01423, .04066, + .61988, .27212, .54996, .02381, -.00498, + .00000, .01448, .03896, + .60712, .26342, .49878, .02352, -.00362, + .00000, .01463, .03717, + .59566, .25607, .45917, .02322, -.00267, + .00000, .01463, .03568, + .58444, .24912, .42470, .02284, -.00188, + .00000, .01454, .03433, + .57241, .24190, .39151, .02237, -.00115, + .00000, .01440, .03299 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .56191, .23580, .36519, .02193, -.00061, + .00000, .01426, .03185, + .55176, .23001, .34182, .02149, -.00016, + .00000, .01407, .03076, + .54368, .22556, .32454, .02115, .00016, + .00000, .01392, .02990, + .52655, .21632, .29098, .02042, .00073, + .00000, .01355, .02820, + .51193, .20864, .26823, .01974, .00112, + -.00164, .01320, .02684, + .49585, .20041, .24108, .01900, .00148, + -.00104, .01278, .02538, + .47942, .19221, .21637, .01824, .00176, + -.00058, .01233, .02394, + .46489, .18506, .19662, .01755, .00196, + -.00024, .01188, .02274 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .45061, .17817, .17885, .01687, .00212, + .00006, .01146, .02157, + .43907, .17263, .16561, .01630, .00222, + .00026, .01109, .02064, + .42532, .16618, .15110, .01563, .00230, + .00046, .01070, .01960, + .41351, .16071, .13960, .01506, .00235, + .00061, .01033, .01871, + .40301, .15587, .13001, .01455, .00239, + .00073, .00998, .01793, + .38995, .14998, .11898, .01395, .00241, + .00085, .00959, .01700, + .37807, .14461, .10966, .01339, .00243, + .00095, .00921, .01618, + .36728, .13980, .10179, .01287, .00242, + .00102, .00886, .01544 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .35680, .13523, .09460, .01240, .00241, + .00107, .00854, .01472, + .34679, .13084, .08819, .01193, .00239, + .00111, .00823, .01408, + .33760, .12685, .08265, .01151, .00237, + .00115, .00794, .01350, + .32916, .12322, .07784, .01112, .00233, + .00117, .00767, .01299, + .32089, .11968, .07333, .01075, .00231, + .00119, .00741, .01249, + .31298, .11632, .06921, .01040, .00227, + .00120, .00717, .01202, + .30563, .11321, .06558, .01007, .00224, + .00121, .00695, .01159, + .29887, .11036, .06238, .00976, .00221, + .00122, .00674, .01120 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .29215, .10756, .05936, .00948, .00217, + .00122, .00655, .01081, + .28565, .10488, .05657, .00921, .00213, + .00121, .00636, .01046, + .27962, .10239, .05406, .00896, .00211, + .00122, .00617, .01012, + .27402, .10008, .05180, .00871, .00207, + .00121, .00601, .00981, + .26851, .09782, .04964, .00847, .00204, + .00121, .00584, .00951 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .65778, .29165, .60905, .02037, .00000, + .00000, .01058, .03623, + .64622, .28243, .55382, .02046, .00000, + .00000, .01108, .03456, + .62721, .26911, .49369, .02038, -.00557, + .00000, .01156, .03218, + .61235, .25970, .44546, .02015, -.00426, + .00000, .01168, .03062, + .59644, .24998, .40065, .01978, -.00312, + .00000, .01172, .02906, + .58255, .24187, .36631, .01936, -.00233, + .00000, .01166, .02782, + .56918, .23436, .33666, .01895, -.00168, + .00000, .01158, .02662, + .55502, .22668, .30825, .01853, -.00109, + .00000, .01142, .02541 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .54282, .22022, .28594, .01814, -.00065, + .00000, .01124, .02440, + .53120, .21414, .26621, .01772, -.00029, + .00000, .01105, .02350, + .52211, .20939, .25170, .01736, -.00004, + .00000, .01090, .02282, + .50302, .19973, .22380, .01664, .00042, + .00000, .01054, .02140, + .48690, .19190, .20481, .01603, .00074, + -.00131, .01023, .02022, + .46943, .18345, .18256, .01532, .00102, + -.00085, .00987, .01902, + .45184, .17510, .16249, .01460, .00123, + -.00050, .00945, .01790, + .43635, .16794, .14658, .01398, .00139, + -.00023, .00907, .01692 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .42120, .16104, .13241, .01340, .00150, + -.00001, .00872, .01594, + .40908, .15551, .12193, .01288, .00157, + .00014, .00842, .01525, + .39474, .14918, .11054, .01232, .00163, + .00029, .00807, .01438, + .38249, .14381, .10155, .01185, .00167, + .00040, .00776, .01366, + .37165, .13907, .09410, .01144, .00170, + .00049, .00747, .01304, + .35840, .13328, .08561, .01084, .00171, + .00058, .00714, .01234, + .34627, .12811, .07849, .01037, .00172, + .00065, .00683, .01171, + .33533, .12348, .07250, .00995, .00171, + .00070, .00655, .01115 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .32479, .11904, .06709, .00953, .00171, + .00074, .00628, .01060, + .31473, .11488, .06228, .00916, .00169, + .00077, .00604, .01010, + .30558, .11110, .05814, .00882, .00166, + .00079, .00583, .00963, + .29724, .10763, .05455, .00849, .00165, + .00082, .00563, .00923, + .28905, .10429, .05124, .00819, .00162, + .00082, .00542, .00884, + .28124, .10114, .04825, .00791, .00159, + .00083, .00522, .00848, + .27400, .09821, .04561, .00763, .00157, + .00084, .00503, .00815, + .26737, .09555, .04325, .00739, .00155, + .00084, .00487, .00786 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .26082, .09294, .04105, .00714, .00152, + .00084, .00472, .00758, + .25454, .09043, .03903, .00693, .00149, + .00084, .00457, .00732, + .24869, .08810, .03722, .00672, .00147, + .00084, .00443, .00707, + .24326, .08596, .03560, .00653, .00144, + .00083, .00431, .00685, + .23793, .08387, .03405, .00634, .00141, + .00082, .00419, .00663 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .65672, .28159, .50026, .01786, .00000, + .00000, .00832, .02817, + .64112, .27108, .45121, .01780, .00000, + .00000, .00874, .02673, + .61712, .25609, .39815, .01745, -.00473, + .00000, .00905, .02482, + .59921, .24566, .35615, .01711, -.00363, + .00000, .00919, .02352, + .58040, .23523, .31750, .01665, -.00267, + .00000, .00920, .02222, + .56424, .22662, .28810, .01624, -.00202, + .00000, .00916, .02115, + .54899, .21866, .26291, .01584, -.00148, + .00000, .00902, .02017, + .53313, .21055, .23900, .01538, -.00100, + .00000, .00886, .01920 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51959, .20380, .22028, .01495, -.00064, + .00000, .00872, .01840, + .50677, .19752, .20388, .01457, -.00034, + .00000, .00857, .01763, + .49676, .19273, .19192, .01425, -.00015, + .00000, .00843, .01705, + .47611, .18291, .16900, .01353, .00023, + .00000, .00813, .01592, + .45894, .17489, .15350, .01294, .00047, + -.00105, .00783, .01504, + .44035, .16645, .13556, .01231, .00068, + -.00070, .00747, .01411, + .42187, .15818, .11955, .01166, .00085, + -.00042, .00714, .01319, + .40580, .15108, .10696, .01111, .00097, + -.00021, .00685, .01238 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39020, .14431, .09586, .01058, .00106, + -.00005, .00656, .01161, + .37772, .13897, .08770, .01015, .00111, + .00007, .00629, .01105, + .36314, .13277, .07888, .00965, .00117, + .00019, .00602, .01039, + .35074, .12755, .07202, .00922, .00119, + .00027, .00577, .00987, + .33982, .12297, .06638, .00883, .00121, + .00034, .00555, .00942, + .32642, .11748, .05999, .00841, .00121, + .00039, .00527, .00882, + .31434, .11256, .05467, .00801, .00122, + .00044, .00502, .00833, + .30349, .10816, .05024, .00765, .00121, + .00048, .00480, .00790 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .29310, .10399, .04624, .00731, .00120, + .00051, .00461, .00747, + .28323, .10004, .04274, .00698, .00118, + .00053, .00440, .00712, + .27426, .09648, .03973, .00669, .00117, + .00055, .00420, .00680, + .26606, .09326, .03715, .00645, .00116, + .00056, .00404, .00648, + .25812, .09014, .03478, .00619, .00113, + .00057, .00390, .00621, + .25058, .08719, .03264, .00592, .00112, + .00058, .00375, .00594, + .24359, .08449, .03077, .00572, .00110, + .00058, .00361, .00569, + .23718, .08203, .02911, .00555, .00108, + .00058, .00350, .00547 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .23090, .07961, .02757, .00536, .00105, + .00057, .00337, .00527, + .22489, .07732, .02615, .00515, .00104, + .00057, .00325, .00508, + .21931, .07519, .02490, .00498, .00102, + .00057, .00315, .00491, + .21413, .07324, .02376, .00484, .00100, + .00057, .00306, .00471, + .20905, .07134, .02269, .00469, .00098, + .00057, .00297, .00455 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .65012, .26915, .40483, .01531, .00000, + .00000, .00643, .02143, + .63069, .25748, .36204, .01513, .00000, + .00000, .00680, .02027, + .60185, .24132, .31587, .01475, -.00401, + .00000, .00710, .01867, + .58109, .23026, .27986, .01433, -.00308, + .00000, .00716, .01765, + .55972, .21922, .24690, .01389, -.00228, + .00000, .00715, .01666, + .54167, .21022, .22217, .01346, -.00173, + .00000, .00704, .01585, + .52481, .20203, .20115, .01301, -.00130, + .00000, .00696, .01507, + .50749, .19375, .18129, .01254, -.00089, + .00000, .00686, .01425 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .49288, .18690, .16590, .01215, -.00060, + .00000, .00672, .01360, + .47910, .18054, .15251, .01176, -.00037, + .00000, .00657, .01306, + .46845, .17567, .14281, .01146, -.00021, + .00000, .00646, .01260, + .44655, .16587, .12430, .01086, .00009, + .00000, .00618, .01168, + .42856, .15799, .11196, .01035, .00028, + -.00084, .00592, .01098, + .40934, .14970, .09777, .00978, .00045, + -.00056, .00567, .01024, + .39031, .14160, .08522, .00924, .00058, + -.00035, .00538, .00954, + .37389, .13469, .07550, .00876, .00067, + -.00019, .00514, .00894 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .35811, .12815, .06701, .00828, .00074, + -.00006, .00487, .00838, + .34559, .12298, .06085, .00791, .00078, + .00003, .00468, .00794, + .33095, .11709, .05427, .00750, .00082, + .00011, .00444, .00740, + .31863, .11214, .04915, .00715, .00084, + .00017, .00425, .00699, + .30784, .10782, .04500, .00683, .00084, + .00022, .00406, .00667, + .29461, .10263, .04034, .00646, .00085, + .00027, .00384, .00623, + .28279, .09800, .03653, .00611, .00085, + .00030, .00365, .00586, + .27222, .09387, .03334, .00581, .00085, + .00033, .00349, .00554 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .26212, .08997, .03051, .00552, .00085, + .00036, .00333, .00524, + .25257, .08632, .02806, .00527, .00083, + .00036, .00317, .00496, + .24392, .08303, .02595, .00505, .00082, + .00038, .00304, .00471, + .23608, .08006, .02417, .00482, .00081, + .00038, .00292, .00450, + .22844, .07721, .02253, .00464, .00079, + .00039, .00281, .00429, + .22120, .07450, .02107, .00446, .00078, + .00039, .00269, .00411, + .21456, .07204, .01979, .00429, .00077, + .00040, .00259, .00394, + .20851, .06981, .01871, .00411, .00074, + .00039, .00249, .00377 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .20259, .06762, .01767, .00395, .00073, + .00039, .00239, .00361, + .19692, .06554, .01673, .00381, .00072, + .00040, .00229, .00347, + .19168, .06362, .01589, .00368, .00070, + .00039, .00222, .00333, + .18683, .06185, .01515, .00355, .00070, + .00039, .00214, .00323, + .18209, .06012, .01445, .00343, .00068, + .00039, .00207, .00310 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .63798, .25480, .32131, .01272, .00000, + .00000, .00496, .01597, + .61495, .24227, .28450, .01251, .00000, + .00000, .00524, .01511, + .58183, .22517, .24507, .01207, -.00338, + .00000, .00549, .01392, + .55857, .21365, .21456, .01171, -.00260, + .00000, .00556, .01313, + .53491, .20239, .18707, .01132, -.00193, + .00000, .00556, .01225, + .51543, .19317, .16658, .01085, -.00148, + .00000, .00552, .01163, + .49727, .18490, .14928, .01049, -.00112, + .00000, .00540, .01106, + .47870, .17662, .13321, .01010, -.00078, + .00000, .00526, .01045 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .46322, .16980, .12088, .00972, -.00055, + .00000, .00515, .00993, + .44882, .16344, .11019, .00935, -.00036, + .00000, .00505, .00950, + .43773, .15863, .10247, .00909, -.00023, + .00000, .00492, .00918, + .41512, .14899, .08795, .00852, .00000, + .00000, .00471, .00849, + .39668, .14129, .07838, .00811, .00015, + -.00066, .00453, .00789, + .37712, .13326, .06749, .00765, .00029, + -.00045, .00426, .00735, + .35797, .12549, .05798, .00714, .00039, + -.00029, .00403, .00682, + .34153, .11893, .05071, .00672, .00046, + -.00016, .00383, .00635 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32576, .11271, .04442, .00636, .00051, + -.00007, .00363, .00591, + .31338, .10782, .03993, .00601, .00054, + .00000, .00347, .00565, + .29897, .10227, .03522, .00569, .00056, + .00006, .00326, .00525, + .28689, .09764, .03158, .00540, .00057, + .00010, .00311, .00493, + .27636, .09361, .02866, .00513, .00059, + .00014, .00297, .00467, + .26357, .08877, .02541, .00484, .00059, + .00018, .00280, .00436, + .25216, .08449, .02280, .00456, .00059, + .00021, .00265, .00408, + .24198, .08070, .02065, .00432, .00059, + .00023, .00251, .00385 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23228, .07710, .01875, .00410, .00059, + .00025, .00239, .00363, + .22318, .07379, .01712, .00390, .00058, + .00026, .00227, .00343, + .21496, .07081, .01574, .00371, .00057, + .00027, .00217, .00324, + .20755, .06811, .01459, .00354, .00056, + .00028, .00207, .00309, + .20038, .06552, .01356, .00337, .00055, + .00028, .00197, .00294, + .19359, .06308, .01262, .00322, .00053, + .00028, .00189, .00279, + .18736, .06087, .01182, .00309, .00053, + .00028, .00181, .00267, + .18168, .05885, .01114, .00298, .00052, + .00029, .00174, .00256 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .17613, .05690, .01050, .00288, .00051, + .00028, .00168, .00244, + .17086, .05503, .00989, .00278, .00049, + .00028, .00161, .00236, + .16598, .05332, .00939, .00268, .00049, + .00028, .00156, .00225, + .16148, .05176, .00894, .00259, .00048, + .00028, .00151, .00216, + .15710, .05023, .00851, .00251, .00046, + .00028, .00145, .00207 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .62032, .23939, .24845, .01078, .00000, + .00000, .00350, .01132, + .59415, .22619, .21715, .01050, .00000, + .00000, .00383, .01078, + .55735, .20851, .18418, .01002, -.00283, + .00000, .00409, .00989, + .53218, .19671, .15887, .00957, -.00217, + .00000, .00416, .00940, + .50677, .18535, .13632, .00920, -.00162, + .00000, .00412, .00882, + .48602, .17611, .11979, .00878, -.00124, + .00000, .00408, .00836, + .46694, .16787, .10599, .00844, -.00095, + .00000, .00401, .00790, + .44760, .15965, .09328, .00806, -.00067, + .00000, .00392, .00747 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .43156, .15292, .08360, .00772, -.00049, + .00000, .00384, .00714, + .41674, .14680, .07537, .00743, -.00033, + .00000, .00375, .00676, + .40539, .14211, .06953, .00718, -.00023, + .00000, .00365, .00650, + .38236, .13277, .05861, .00672, -.00005, + .00000, .00346, .00597, + .36382, .12542, .05145, .00635, .00007, + -.00051, .00330, .00555, + .34432, .11775, .04336, .00593, .00018, + -.00035, .00313, .00514, + .32534, .11036, .03648, .00551, .00025, + -.00023, .00294, .00477, + .30911, .10413, .03131, .00516, .00031, + -.00014, .00277, .00445 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .29377, .09832, .02690, .00480, .00034, + -.00007, .00262, .00416, + .28159, .09380, .02381, .00460, .00036, + -.00002, .00250, .00387, + .26770, .08862, .02060, .00431, .00039, + .00003, .00236, .00358, + .25604, .08434, .01819, .00408, .00039, + .00006, .00223, .00337, + .24588, .08062, .01626, .00388, .00040, + .00009, .00212, .00321, + .23371, .07618, .01418, .00360, .00041, + .00012, .00199, .00299, + .22284, .07226, .01252, .00338, .00041, + .00013, .00188, .00280, + .21320, .06882, .01120, .00320, .00041, + .00015, .00178, .00262 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20405, .06560, .01007, .00303, .00041, + .00016, .00168, .00244, + .19547, .06258, .00910, .00288, .00040, + .00017, .00159, .00230, + .18778, .05988, .00829, .00274, .00040, + .00018, .00152, .00219, + .18087, .05744, .00761, .00260, .00039, + .00018, .00145, .00209, + .17421, .05513, .00701, .00247, .00038, + .00019, .00138, .00198, + .16793, .05297, .00649, .00236, .00037, + .00019, .00132, .00188, + .16217, .05099, .00604, .00226, .00037, + .00020, .00126, .00179, + .15694, .04920, .00566, .00218, .00036, + .00020, .00122, .00171 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15182, .04747, .00533, .00209, .00035, + .00020, .00117, .00162, + .14697, .04584, .00503, .00201, .00035, + .00021, .00112, .00154, + .14251, .04434, .00476, .00193, .00034, + .00021, .00107, .00149, + .13842, .04296, .00453, .00185, .00034, + .00021, .00103, .00143, + .13444, .04161, .00432, .00177, .00033, + .00021, .00098, .00137 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .59795, .22275, .18432, .00887, .00000, + .00000, .00241, .00780, + .56911, .20925, .15849, .00862, .00000, + .00000, .00265, .00745, + .52941, .19132, .13161, .00811, -.00234, + .00000, .00289, .00695, + .50242, .17962, .11124, .00780, -.00179, + .00000, .00297, .00651, + .47583, .16830, .09323, .00745, -.00134, + .00000, .00299, .00611, + .45417, .15927, .08036, .00710, -.00103, + .00000, .00294, .00580, + .43454, .15117, .06974, .00676, -.00079, + .00000, .00293, .00546, + .41484, .14315, .06014, .00642, -.00057, + .00000, .00286, .00513 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .39856, .13663, .05299, .00615, -.00043, + .00000, .00276, .00487, + .38355, .13072, .04689, .00590, -.00030, + .00000, .00268, .00465, + .37214, .12627, .04260, .00569, -.00022, + .00000, .00261, .00447, + .34915, .11738, .03479, .00528, -.00007, + .00000, .00247, .00410, + .33078, .11040, .02979, .00496, .00003, + -.00039, .00235, .00381, + .31158, .10318, .02416, .00463, .00011, + -.00027, .00223, .00351, + .29298, .09628, .01953, .00430, .00017, + -.00018, .00208, .00320, + .27729, .09050, .01612, .00402, .00021, + -.00011, .00194, .00298 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .26248, .08509, .01330, .00373, .00024, + -.00006, .00182, .00279, + .25087, .08090, .01137, .00351, .00025, + -.00003, .00173, .00262, + .23756, .07616, .00941, .00329, .00027, + .00001, .00164, .00242, + .22648, .07224, .00801, .00310, .00028, + .00003, .00154, .00227, + .21689, .06887, .00695, .00291, .00029, + .00004, .00146, .00212, + .20538, .06483, .00580, .00272, .00029, + .00006, .00136, .00197, + .19513, .06131, .00493, .00257, .00029, + .00007, .00127, .00183, + .18615, .05824, .00424, .00242, .00029, + .00008, .00121, .00171 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17770, .05533, .00369, .00223, .00029, + .00009, .00114, .00162, + .16975, .05265, .00321, .00212, .00030, + .00010, .00107, .00151, + .16263, .05025, .00285, .00202, .00029, + .00010, .00102, .00143, + .15622, .04811, .00258, .00191, .00029, + .00011, .00096, .00135, + .15008, .04605, .00233, .00182, .00028, + .00011, .00092, .00128, + .14433, .04412, .00209, .00174, .00029, + .00012, .00087, .00121, + .13908, .04238, .00194, .00165, .00028, + .00012, .00084, .00115, + .13434, .04081, .00180, .00157, .00027, + .00012, .00081, .00110 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .12970, .03929, .00168, .00151, .00028, + .00013, .00078, .00105, + .12531, .03785, .00159, .00144, .00027, + .00013, .00074, .00101, + .12128, .03654, .00150, .00140, .00027, + .00013, .00071, .00096, + .11756, .03534, .00144, .00134, .00026, + .00013, .00067, .00092, + .11397, .03419, .00138, .00129, .00026, + .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)/ + .57122, .20502, .12824, .00690, .00000, + .00000, .00161, .00531, + .54018, .19149, .10747, .00672, .00000, + .00000, .00190, .00507, + .49804, .17371, .08642, .00637, -.00190, + .00000, .00210, .00475, + .47010, .16219, .07060, .00608, -.00146, + .00000, .00218, .00446, + .44266, .15109, .05711, .00570, -.00109, + .00000, .00220, .00423, + .42055, .14236, .04748, .00548, -.00084, + .00000, .00216, .00399, + .40063, .13457, .03983, .00520, -.00065, + .00000, .00209, .00377, + .38081, .12690, .03296, .00491, -.00047, + .00000, .00207, .00355 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .36459, .12067, .02799, .00468, -.00036, + .00000, .00202, .00337, + .34963, .11504, .02387, .00447, -.00025, + .00000, .00194, .00319, + .33834, .11084, .02104, .00432, -.00020, + .00000, .00189, .00306, + .31576, .10249, .01593, .00396, -.00007, + .00000, .00179, .00282, + .29786, .09597, .01284, .00367, -.00001, + -.00030, .00169, .00264, + .27928, .08927, .00934, .00336, .00005, + -.00021, .00160, .00242, + .26141, .08291, .00655, .00308, .00010, + -.00014, .00150, .00222, + .24637, .07761, .00463, .00287, .00014, + -.00009, .00140, .00206 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .23222, .07268, .00313, .00267, .00017, + -.00005, .00129, .00189, + .22121, .06888, .00217, .00249, .00019, + -.00003, .00124, .00177, + .20869, .06460, .00125, .00230, .00021, + -.00001, .00114, .00164, + .19829, .06107, .00061, .00217, .00021, + .00000, .00108, .00154, + .18928, .05807, .00016, .00208, .00022, + .00001, .00102, .00144, + .17862, .05446, -.00025, .00189, .00024, + .00003, .00096, .00133, + .16918, .05135, -.00050, .00177, .00023, + .00003, .00089, .00124, + .16085, .04860, -.00068, .00166, .00024, + .00004, .00083, .00115 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15303, .04604, -.00082, .00158, .00024, + .00005, .00079, .00108, + .14582, .04366, -.00089, .00147, .00023, + .00005, .00075, .00101, + .13935, .04156, -.00091, .00138, .00023, + .00006, .00072, .00095, + .13353, .03968, -.00093, .00132, .00023, + .00006, .00068, .00090, + .12796, .03790, -.00090, .00125, .00022, + .00006, .00065, .00084, + .12274, .03625, -.00087, .00117, .00023, + .00007, .00060, .00078, + .11802, .03474, -.00084, .00110, .00023, + .00007, .00058, .00075, + .11376, .03337, -.00078, .00105, .00022, + .00007, .00054, .00072 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .10962, .03207, -.00075, .00100, .00022, + .00007, .00052, .00068, + .10568, .03084, -.00071, .00097, .00021, + .00007, .00051, .00065, + .10208, .02972, -.00068, .00094, .00022, + .00008, .00049, .00062, + .09879, .02868, -.00062, .00089, .00022, + .00008, .00046, .00060, + .09559, .02768, -.00058, .00085, .00022, + .00008, .00045, .00058 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .54059, .18685, .07915, .00524, .00000, + .00000, .00117, .00342, + .50790, .17337, .06346, .00504, .00000, + .00000, .00142, .00337, + .46421, .15587, .04832, .00476, -.00153, + .00000, .00158, .00320, + .43558, .14472, .03680, .00447, -.00116, + .00000, .00162, .00309, + .40792, .13409, .02727, .00413, -.00087, + .00000, .00165, .00297, + .38574, .12569, .02084, .00389, -.00067, + .00000, .00163, .00279, + .36587, .11830, .01574, .00368, -.00051, + .00000, .00162, .00267, + .34619, .11109, .01144, .00345, -.00039, + .00000, .00156, .00253 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .33018, .10531, .00842, .00323, -.00029, + .00000, .00151, .00239, + .31557, .10003, .00603, .00306, -.00022, + .00000, .00149, .00227, + .30453, .09612, .00441, .00296, -.00017, + .00000, .00145, .00218, + .28265, .08841, .00167, .00273, -.00009, + .00000, .00138, .00197, + .26549, .08240, .00017, .00250, -.00003, + -.00022, .00128, .00185, + .24768, .07632, -.00156, .00232, .00001, + -.00016, .00117, .00168, + .23067, .07055, -.00281, .00213, .00005, + -.00011, .00110, .00152, + .21647, .06578, -.00356, .00197, .00008, + -.00007, .00104, .00139 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .20320, .06134, -.00403, .00183, .00010, + -.00005, .00095, .00131, + .19293, .05795, -.00428, .00172, .00011, + -.00004, .00090, .00123, + .18129, .05415, -.00442, .00159, .00013, + -.00002, .00084, .00113, + .17172, .05101, -.00441, .00148, .00014, + -.00001, .00078, .00104, + .16348, .04832, -.00437, .00138, .00015, + .00000, .00075, .00097, + .15362, .04517, -.00422, .00126, .00015, + .00000, .00069, .00090, + .14500, .04244, -.00406, .00118, .00016, + .00001, .00065, .00084, + .13745, .04004, -.00388, .00109, .00017, + .00002, .00060, .00080 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13038, .03781, -.00367, .00100, .00017, + .00002, .00057, .00075, + .12384, .03577, -.00345, .00095, .00017, + .00002, .00052, .00068, + .11799, .03397, -.00326, .00089, .00018, + .00003, .00048, .00064, + .11280, .03235, -.00309, .00085, .00018, + .00003, .00047, .00061, + .10781, .03082, -.00290, .00080, .00018, + .00003, .00045, .00057, + .10315, .02940, -.00272, .00078, .00018, + .00003, .00041, .00053, + .09897, .02811, -.00256, .00073, .00019, + .00004, .00040, .00050, + .09519, .02695, -.00240, .00069, .00019, + .00004, .00039, .00047 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09154, .02584, -.00226, .00065, .00019, + .00004, .00037, .00045, + .08808, .02480, -.00212, .00062, .00019, + .00004, .00034, .00044, + .08491, .02384, -.00198, .00059, .00019, + .00004, .00033, .00041, + .08202, .02297, -.00186, .00056, .00019, + .00004, .00032, .00040, + .07922, .02214, -.00175, .00054, .00019, + .00004, .00031, .00038 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .50684, .16946, .03629, .00446, .00000, + .00000, .00038, .00188, + .47324, .15630, .02546, .00422, .00000, + .00000, .00067, .00191, + .42889, .13933, .01584, .00390, -.00120, + .00000, .00087, .00192, + .40016, .12862, .00839, .00366, -.00091, + .00000, .00096, .00186, + .37261, .11850, .00260, .00339, -.00068, + .00000, .00099, .00175, + .35060, .11064, -.00113, .00323, -.00052, + .00000, .00100, .00169, + .33119, .10372, -.00377, .00299, -.00041, + .00000, .00102, .00157, + .31202, .09698, -.00586, .00279, -.00031, + .00000, .00098, .00149 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .29643, .09158, -.00719, .00266, -.00024, + .00000, .00094, .00143, + .28237, .08672, -.00818, .00255, -.00018, + .00000, .00093, .00135, + .27182, .08309, -.00869, .00240, -.00014, + .00000, .00090, .00130, + .25093, .07602, -.00935, .00215, -.00008, + .00000, .00083, .00118, + .23460, .07056, -.00952, .00198, -.00004, + -.00016, .00077, .00110, + .21789, .06501, -.00984, .00178, -.00001, + -.00012, .00070, .00104, + .20201, .05983, -.00980, .00163, .00002, + -.00009, .00066, .00092, + .18879, .05556, -.00963, .00152, .00004, + -.00007, .00063, .00084 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .17655, .05161, -.00931, .00138, .00006, + -.00005, .00059, .00080, + .16709, .04862, -.00894, .00129, .00007, + -.00004, .00055, .00071, + .15637, .04524, -.00844, .00119, .00008, + -.00003, .00051, .00065, + .14756, .04249, -.00799, .00112, .00009, + -.00002, .00048, .00062, + .14003, .04016, -.00759, .00106, .00009, + -.00002, .00046, .00058, + .13116, .03739, -.00705, .00096, .00010, + -.00001, .00043, .00053, + .12336, .03500, -.00653, .00090, .00010, + -.00001, .00038, .00048, + .11656, .03294, -.00609, .00084, .00011, + .00000, .00036, .00045 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11023, .03102, -.00564, .00079, .00011, + .00000, .00034, .00041, + .10439, .02924, -.00523, .00073, .00011, + .00000, .00031, .00040, + .09921, .02768, -.00487, .00069, .00011, + .00000, .00029, .00038, + .09459, .02630, -.00454, .00065, .00012, + .00001, .00028, .00035, + .09022, .02499, -.00422, .00062, .00012, + .00001, .00025, .00033, + .08614, .02379, -.00393, .00057, .00012, + .00001, .00024, .00030, + .08243, .02270, -.00367, .00054, .00012, + .00001, .00023, .00028, + .07911, .02172, -.00343, .00052, .00012, + .00001, .00022, .00027 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07591, .02078, -.00320, .00048, .00012, + .00001, .00021, .00025, + .07291, .01989, -.00301, .00046, .00012, + .00001, .00020, .00024, + .07016, .01909, -.00281, .00042, .00012, + .00001, .00019, .00024, + .06764, .01837, -.00264, .00041, .00012, + .00001, .00018, .00023, + .06522, .01767, -.00248, .00040, .00012, + .00001, .00016, .00022 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .47020, .15093, .00034, .00305, .00000, + .00000, .00031, .00119, + .43619, .13839, -.00581, .00289, .00000, + .00000, .00043, .00133, + .39175, .12243, -.01028, .00277, -.00091, + .00000, .00064, .00121, + .36331, .11243, -.01385, .00255, -.00069, + .00000, .00067, .00119, + .33631, .10302, -.01643, .00236, -.00051, + .00000, .00068, .00117, + .31508, .09571, -.01770, .00219, -.00040, + .00000, .00071, .00109, + .29621, .08936, -.01834, .00210, -.00032, + .00000, .00068, .00104, + .27778, .08320, -.01856, .00195, -.00024, + .00000, .00066, .00098 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .26301, .07827, -.01846, .00182, -.00019, + .00000, .00064, .00094, + .24963, .07387, -.01818, .00170, -.00015, + .00000, .00063, .00087, + .23966, .07062, -.01786, .00163, -.00012, + .00000, .00060, .00082, + .21998, .06422, -.01700, .00149, -.00008, + .00000, .00056, .00078, + .20472, .05936, -.01609, .00138, -.00005, + -.00012, .00052, .00072, + .18921, .05447, -.01528, .00125, -.00003, + -.00010, .00050, .00061, + .17457, .04987, -.01436, .00114, -.00001, + -.00008, .00047, .00059, + .16243, .04610, -.01343, .00105, .00001, + -.00006, .00042, .00056 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15120, .04267, -.01243, .00095, .00002, + -.00005, .00038, .00048, + .14257, .04004, -.01167, .00089, .00003, + -.00004, .00037, .00047, + .13295, .03711, -.01077, .00081, .00003, + -.00004, .00033, .00044, + .12508, .03473, -.01001, .00074, .00004, + -.00003, .00031, .00040, + .11835, .03272, -.00930, .00069, .00004, + -.00003, .00027, .00038, + .11037, .03037, -.00849, .00065, .00005, + -.00002, .00024, .00034, + .10349, .02831, -.00778, .00058, .00005, + -.00002, .00025, .00030, + .09748, .02655, -.00714, .00053, .00005, + -.00002, .00022, .00028 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09187, .02493, -.00657, .00050, .00006, + -.00001, .00021, .00027, + .08674, .02344, -.00606, .00047, .00006, + -.00001, .00021, .00026, + .08220, .02213, -.00558, .00044, .00006, + -.00001, .00018, .00023, + .07817, .02097, -.00519, .00042, .00006, + -.00001, .00017, .00022, + .07435, .01988, -.00481, .00039, .00006, + -.00001, .00017, .00020, + .07080, .01887, -.00445, .00037, .00006, + -.00001, .00016, .00019, + .06761, .01797, -.00414, .00036, .00006, + -.00001, .00015, .00018, + .06475, .01716, -.00387, .00033, .00006, + -.00001, .00015, .00017 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06199, .01638, -.00362, .00032, .00006, + -.00001, .00013, .00017, + .05939, .01565, -.00336, .00030, .00007, + .00000, .00012, .00016, + .05704, .01499, -.00316, .00029, .00007, + .00000, .00012, .00016, + .05489, .01440, -.00296, .00029, .00007, + .00000, .00011, .00014, + .05282, .01383, -.00277, .00027, .00007, + .00000, .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)/ + .43140, .13297, -.02885, .00197, .00000, + .00000, .00027, .00069, + .39747, .12118, -.03068, .00195, .00000, + .00000, .00037, .00074, + .35385, .10629, -.03028, .00181, -.00069, + .00000, .00046, .00076, + .32629, .09697, -.03083, .00168, -.00051, + .00000, .00050, .00080, + .30028, .08835, -.03059, .00153, -.00038, + .00000, .00054, .00077, + .27988, .08173, -.02981, .00144, -.00030, + .00000, .00053, .00075, + .26194, .07596, -.02869, .00137, -.00024, + .00000, .00049, .00070, + .24448, .07041, -.02735, .00127, -.00019, + .00000, .00049, .00065 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .23051, .06601, -.02612, .00120, -.00015, + .00000, .00047, .00063, + .21798, .06208, -.02489, .00114, -.00013, + .00000, .00043, .00061, + .20871, .05916, -.02390, .00107, -.00011, + .00000, .00041, .00059, + .19053, .05353, -.02182, .00093, -.00007, + .00000, .00041, .00054, + .17650, .04925, -.02011, .00086, -.00005, + -.00008, .00040, .00047, + .16227, .04496, -.01849, .00080, -.00004, + -.00007, .00036, .00042, + .14895, .04097, -.01681, .00070, -.00002, + -.00005, .00031, .00039, + .13799, .03772, -.01541, .00064, -.00001, + -.00004, .00028, .00038 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .12792, .03474, -.01406, .00058, .00000, + -.00003, .00028, .00034, + .12025, .03249, -.01301, .00054, .00000, + -.00003, .00025, .00031, + .11166, .02999, -.01183, .00048, .00001, + -.00002, .00023, .00028, + .10466, .02798, -.01084, .00044, .00001, + -.00002, .00020, .00026, + .09870, .02627, -.01001, .00041, .00001, + -.00002, .00019, .00025, + .09170, .02427, -.00905, .00039, .00002, + -.00001, .00019, .00022, + .08565, .02257, -.00822, .00035, .00002, + -.00001, .00018, .00019, + .08042, .02110, -.00750, .00033, .00002, + -.00001, .00017, .00017 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07554, .01975, -.00685, .00031, .00002, + -.00001, .00016, .00017, + .07109, .01851, -.00625, .00029, .00002, + -.00001, .00013, .00015, + .06719, .01743, -.00574, .00027, .00002, + -.00001, .00013, .00014, + .06373, .01647, -.00529, .00024, .00002, + -.00001, .00012, .00012, + .06046, .01557, -.00488, .00023, .00002, + -.00001, .00010, .00013, + .05745, .01474, -.00451, .00020, .00003, + .00000, .00010, .00012, + .05470, .01400, -.00419, .00020, .00003, + .00000, .00009, .00012, + .05223, .01334, -.00389, .00020, .00003, + .00000, .00009, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04991, .01271, -.00360, .00018, .00003, + .00000, .00008, .00009, + .04774, .01212, -.00336, .00015, .00003, + .00000, .00008, .00009, + .04576, .01159, -.00314, .00014, .00003, + .00000, .00008, .00009, + .04395, .01110, -.00295, .00014, .00003, + .00000, .00007, .00009, + .04221, .01064, -.00276, .00014, .00003, + .00000, .00007, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .39180, .11638, -.05244, .00166, .00000, + .00000, -.00011, .00022, + .35872, .10536, -.05049, .00155, .00000, + .00000, .00008, .00032, + .31655, .09159, -.04590, .00139, -.00050, + .00000, .00018, .00039, + .29013, .08312, -.04366, .00130, -.00037, + .00000, .00022, .00043, + .26532, .07531, -.04086, .00116, -.00028, + .00000, .00026, .00039, + .24608, .06933, -.03831, .00111, -.00022, + .00000, .00024, .00035, + .22934, .06416, -.03593, .00101, -.00018, + .00000, .00026, .00036, + .21311, .05919, -.03348, .00096, -.00014, + .00000, .00028, .00034 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .20015, .05527, -.03135, .00091, -.00012, + .00000, .00027, .00033, + .18867, .05179, -.02933, .00080, -.00010, + .00000, .00027, .00030, + .18011, .04922, -.02784, .00077, -.00008, + .00000, .00026, .00030, + .16341, .04426, -.02480, .00068, -.00006, + .00000, .00021, .00031, + .15066, .04054, -.02250, .00061, -.00005, + -.00006, .00019, .00029, + .13783, .03684, -.02029, .00056, -.00003, + -.00004, .00019, .00025, + .12588, .03339, -.01816, .00052, -.00002, + -.00003, .00017, .00021, + .11612, .03061, -.01641, .00046, -.00002, + -.00003, .00016, .00018 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .10717, .02808, -.01480, .00043, -.00001, + -.00002, .00015, .00016, + .10038, .02616, -.01357, .00038, -.00001, + -.00002, .00014, .00016, + .09280, .02406, -.01218, .00035, -.00001, + -.00002, .00011, .00014, + .08666, .02237, -.01109, .00032, .00000, + -.00001, .00010, .00013, + .08146, .02095, -.01018, .00030, .00000, + -.00001, .00010, .00012, + .07538, .01926, -.00912, .00028, .00000, + -.00001, .00009, .00012, + .07014, .01785, -.00822, .00025, .00000, + -.00001, .00008, .00010, + .06563, .01662, -.00748, .00024, .00000, + -.00001, .00008, .00011 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06147, .01550, -.00679, .00022, .00000, + -.00001, .00007, .00010, + .05769, .01448, -.00617, .00019, .00000, + -.00001, .00007, .00008, + .05434, .01359, -.00564, .00018, .00001, + .00000, .00005, .00008, + .05139, .01281, -.00519, .00017, .00001, + .00000, .00006, .00008, + .04861, .01209, -.00477, .00017, .00001, + .00000, .00006, .00007, + .04605, .01142, -.00439, .00015, .00001, + .00000, .00006, .00005, + .04377, .01081, -.00405, .00014, .00001, + .00000, .00004, .00006, + .04175, .01028, -.00376, .00012, .00001, + .00000, .00004, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03978, .00977, -.00349, .00012, .00001, + .00000, .00004, .00006, + .03794, .00930, -.00324, .00012, .00001, + .00000, .00005, .00004, + .03629, .00886, -.00303, .00012, .00001, + .00000, .00003, .00005, + .03478, .00848, -.00282, .00010, .00001, + .00000, .00003, .00005, + .03333, .00812, -.00265, .00011, .00001, + .00000, .00003, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .35086, .09954, -.06897, .00085, .00000, + .00000, .00006, .00021, + .31911, .08960, -.06380, .00083, .00000, + .00000, .00014, .00025, + .27910, .07726, -.05582, .00075, -.00035, + .00000, .00017, .00027, + .25421, .06975, -.05142, .00074, -.00027, + .00000, .00022, .00027, + .23106, .06284, -.04686, .00070, -.00020, + .00000, .00021, .00027, + .21323, .05755, -.04311, .00064, -.00016, + .00000, .00022, .00028, + .19778, .05301, -.03973, .00060, -.00013, + .00000, .00023, .00026, + .18289, .04868, -.03634, .00055, -.00010, + .00000, .00020, .00024 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .17112, .04529, -.03360, .00051, -.00008, + .00000, .00017, .00025, + .16061, .04228, -.03109, .00048, -.00007, + .00000, .00015, .00023, + .15287, .04009, -.02926, .00044, -.00006, + .00000, .00017, .00021, + .13787, .03587, -.02568, .00040, -.00005, + .00000, .00014, .00020, + .12652, .03269, -.02305, .00036, -.00004, + -.00004, .00014, .00017, + .11514, .02951, -.02047, .00032, -.00003, + -.00003, .00013, .00016, + .10456, .02663, -.01810, .00028, -.00002, + -.00002, .00012, .00015, + .09597, .02429, -.01617, .00026, -.00002, + -.00002, .00011, .00014 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .08815, .02218, -.01442, .00023, -.00001, + -.00001, .00009, .00012, + .08228, .02061, -.01314, .00021, -.00001, + -.00001, .00008, .00011, + .07572, .01887, -.01172, .00019, -.00001, + -.00001, .00009, .00010, + .07045, .01747, -.01059, .00017, -.00001, + -.00001, .00007, .00009, + .06601, .01629, -.00965, .00016, -.00001, + -.00001, .00007, .00007, + .06083, .01494, -.00859, .00015, -.00001, + -.00001, .00006, .00007, + .05638, .01378, -.00770, .00014, -.00001, + -.00001, .00006, .00007, + .05256, .01279, -.00693, .00012, .00000, + .00000, .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)/ + .04904, .01189, -.00628, .00012, .00000, + .00000, .00005, .00005, + .04587, .01107, -.00569, .00011, .00000, + .00000, .00005, .00005, + .04308, .01036, -.00519, .00010, .00000, + .00000, .00005, .00005, + .04064, .00974, -.00474, .00008, .00000, + .00000, .00003, .00005, + .03833, .00916, -.00434, .00008, .00000, + .00000, .00003, .00003, + .03621, .00862, -.00399, .00008, .00000, + .00000, .00003, .00005, + .03433, .00815, -.00367, .00007, .00000, + .00000, .00003, .00003, + .03265, .00772, -.00341, .00007, .00000, + .00000, .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)/ + .03105, .00732, -.00315, .00007, .00000, + .00000, .00003, .00003, + .02955, .00695, -.00291, .00006, .00000, + .00000, .00002, .00003, + .02820, .00662, -.00271, .00006, .00000, + .00000, .00002, .00002, + .02697, .00632, -.00253, .00006, .00000, + .00000, .00002, .00002, + .02580, .00603, -.00236, .00005, .00000, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .27008, .07030, -.08515, .00039, .00000, + .00000, -.00002, .00001, + .24231, .06244, -.07543, .00035, .00000, + .00000, -.00001, .00003, + .20793, .05283, -.06306, .00029, -.00015, + .00000, .00002, .00011, + .18701, .04710, -.05594, .00027, -.00011, + .00000, .00007, .00009, + .16777, .04191, -.04928, .00027, -.00009, + .00000, .00007, .00009, + .15323, .03799, -.04416, .00024, -.00007, + .00000, .00006, .00010, + .14072, .03466, -.03977, .00021, -.00005, + .00000, .00006, .00011, + .12882, .03152, -.03559, .00020, -.00004, + .00000, .00005, .00010 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .11950, .02908, -.03232, .00018, -.00003, + .00000, .00005, .00008, + .11131, .02695, -.02950, .00015, -.00003, + .00000, .00008, .00008, + .10530, .02538, -.02741, .00013, -.00003, + .00000, .00006, .00008, + .09376, .02241, -.02352, .00014, -.00002, + .00000, .00006, .00006, + .08514, .02024, -.02071, .00012, -.00001, + -.00001, .00005, .00005, + .07661, .01809, -.01806, .00011, -.00001, + -.00001, .00005, .00005, + .06881, .01613, -.01568, .00012, -.00001, + -.00001, .00003, .00005, + .06255, .01458, -.01378, .00010, -.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)/ + .05694, .01318, -.01212, .00008, -.00001, + -.00001, .00004, .00004, + .05270, .01215, -.01090, .00007, .00000, + .00000, .00003, .00004, + .04807, .01103, -.00960, .00007, .00000, + .00000, .00003, .00002, + .04435, .01012, -.00858, .00007, .00000, + .00000, .00003, .00002, + .04125, .00938, -.00777, .00007, .00000, + .00000, .00003, .00003, + .03769, .00852, -.00682, .00005, .00000, + .00000, .00003, .00002, + .03466, .00780, -.00606, .00004, .00000, + .00000, .00003, .00003, + .03207, .00719, -.00543, .00005, .00000, + .00000, .00003, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02972, .00663, -.00486, .00005, .00000, + .00000, .00001, .00001, + .02761, .00614, -.00435, .00002, .00000, + .00000, .00001, .00001, + .02577, .00571, -.00394, .00002, .00000, + .00000, .00001, .00001, + .02415, .00533, -.00358, .00002, .00000, + .00000, .00001, .00001, + .02265, .00498, -.00326, .00002, .00000, + .00000, .00001, .00001, + .02127, .00466, -.00298, .00002, .00000, + .00000, .00001, .00001, + .02005, .00439, -.00274, .00002, .00000, + .00000, .00001, .00001, + .01898, .00414, -.00251, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01795, .00390, -.00232, .00001, .00000, + .00000, .00001, .00001, + .01700, .00368, -.00214, .00003, .00000, + .00000, .00001, .00001, + .01613, .00349, -.00198, .00003, .00000, + .00000, .00001, .00001, + .01538, .00332, -.00184, .00001, .00000, + .00000, .00001, .00001, + .01464, .00315, -.00172, .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)/ + .19400, .04587, -.08162, .00015, .00000, + .00000, -.00004, -.00003, + .17151, .04018, -.07051, .00012, .00000, + .00000, -.00001, .00002, + .14427, .03337, -.05706, .00009, -.00006, + .00000, .00002, .00002, + .12799, .02934, -.04935, .00012, -.00004, + .00000, .00001, -.00001, + .11329, .02578, -.04250, .00008, -.00003, + .00000, .00002, .00002, + .10227, .02311, -.03742, .00008, -.00002, + .00000, .00002, .00002, + .09294, .02085, -.03317, .00010, -.00002, + .00000, .00000, .00003, + .08419, .01877, -.02919, .00006, -.00001, + .00000, .00001, .00003 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .07742, .01717, -.02621, .00006, -.00001, + .00000, .00001, .00003, + .07146, .01578, -.02362, .00008, -.00001, + .00000, .00001, .00001, + .06714, .01478, -.02178, .00008, -.00001, + .00000, .00001, .00001, + .05900, .01288, -.01833, .00004, -.00001, + .00000, .00001, .00001, + .05299, .01149, -.01590, .00004, -.00001, + -.00001, .00001, .00000, + .04712, .01014, -.01365, .00002, .00000, + .00000, .00001, .00001, + .04183, .00894, -.01165, .00000, .00000, + .00000, .00001, .00001, + .03762, .00800, -.01012, .00000, .00000, + .00000, .00002, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .03387, .00716, -.00881, .00003, .00000, + .00000, .00000, .00002, + .03109, .00654, -.00783, .00002, .00000, + .00000, .00000, .00002, + .02807, .00587, -.00682, .00002, .00000, + .00000, .00000, .00002, + .02568, .00536, -.00604, .00001, .00000, + .00000, .00000, .00001, + .02372, .00492, -.00541, .00001, .00000, + .00000, .00000, .00000, + .02145, .00443, -.00472, .00001, .00000, + .00000, .00000, .00001, + .01955, .00403, -.00414, .00001, .00000, + .00000, .00000, .00000, + .01794, .00367, -.00367, .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)/ + .01650, .00336, -.00327, .00001, .00000, + .00000, .00000, .00000, + .01520, .00309, -.00291, .00001, .00000, + .00000, .00000, .00000, + .01408, .00286, -.00261, .00001, .00000, + .00000, .00000, .00000, + .01312, .00264, -.00236, .00001, .00000, + .00000, .00000, .00000, + .01222, .00246, -.00214, .00001, .00000, + .00000, .00000, .00000, + .01141, .00229, -.00194, .00001, .00000, + .00000, .00000, .00000, + .01069, .00214, -.00177, .00001, .00000, + .00000, .00000, .00000, + .01006, .00201, -.00162, .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=33,37)/ + .00946, .00188, -.00148, .00000, .00000, + .00000, .00000, .00000, + .00892, .00177, -.00136, .00000, .00000, + .00000, .00000, .00000, + .00843, .00167, -.00125, .00000, .00000, + .00000, .00000, .00000, + .00799, .00158, -.00116, .00000, .00000, + .00000, .00000, .00000, + .00757, .00149, -.00108, .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)/ + .12753, .02707, -.06558, .00009, .00000, + .00000, -.00004, -.00001, + .11100, .02334, -.05543, .00009, .00000, + .00000, -.00003, -.00003, + .09129, .01898, -.04367, .00009, -.00002, + .00000, -.00002, -.00002, + .07978, .01647, -.03704, .00004, -.00001, + .00000, -.00001, .00001, + .06959, .01424, -.03129, .00004, -.00001, + .00000, -.00001, -.00001, + .06202, .01262, -.02711, .00004, -.00001, + .00000, -.00001, -.00001, + .05572, .01126, -.02367, .00002, -.00001, + .00000, -.00001, -.00001, + .04986, .01002, -.02057, .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)/ + .04538, .00908, -.01825, .00002, .00000, + .00000, .00000, .00000, + .04150, .00826, -.01627, .00002, .00000, + .00000, .00000, .00000, + .03873, .00767, -.01488, .00002, .00000, + .00000, .00000, .00000, + .03350, .00660, -.01234, .00002, .00000, + .00000, .00000, .00000, + .02969, .00580, -.01058, .00002, .00000, + .00000, .00000, .00002, + .02606, .00506, -.00894, .00002, .00000, + .00000, .00000, .00000, + .02282, .00440, -.00752, .00002, .00000, + .00000, .00000, .00000, + .02028, .00389, -.00645, .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)/ + .01804, .00344, -.00552, .00000, .00000, + .00000, .00000, .00000, + .01641, .00311, -.00487, .00000, .00000, + .00000, .00000, .00000, + .01465, .00277, -.00420, .00000, .00000, + .00000, .00000, .00000, + .01328, .00250, -.00368, .00000, .00000, + .00000, .00000, .00000, + .01216, .00228, -.00327, .00000, .00000, + .00000, .00000, .00000, + .01088, .00202, -.00282, .00000, .00000, + .00000, .00000, .00000, + .00981, .00182, -.00245, .00000, .00000, + .00000, .00000, .00000, + .00893, .00165, -.00216, .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)/ + .00813, .00149, -.00190, .00000, .00000, + .00000, .00000, .00000, + .00743, .00137, -.00169, .00000, .00000, + .00000, .00000, .00000, + .00683, .00125, -.00150, .00000, .00000, + .00000, .00000, .00000, + .00632, .00115, -.00134, .00000, .00000, + .00000, .00000, .00000, + .00584, .00107, -.00122, .00000, .00000, + .00000, .00000, .00000, + .00542, .00099, -.00109, .00000, .00000, + .00000, .00000, .00000, + .00504, .00091, -.00098, .00000, .00000, + .00000, .00000, .00000, + .00471, .00085, -.00090, .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)/ + .00440, .00079, -.00081, .00000, .00000, + .00000, .00000, .00000, + .00412, .00074, -.00074, .00000, .00000, + .00000, .00000, .00000, + .00387, .00070, -.00068, .00000, .00000, + .00000, .00000, .00000, + .00366, .00066, -.00063, .00000, .00000, + .00000, .00000, .00000, + .00344, .00062, -.00058, .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)/ + .07383, .01359, -.04375, -.00001, .00000, + .00000, -.00001, -.00001, + .06314, .01156, -.03635, -.00001, .00000, + .00000, -.00001, -.00001, + .05068, .00921, -.02795, .00000, .00000, + .00000, .00000, .00000, + .04356, .00785, -.02330, .00000, .00000, + .00000, .00000, .00000, + .03730, .00670, -.01935, .00000, .00000, + .00000, .00000, .00000, + .03280, .00585, -.01653, .00000, .00000, + .00000, .00000, .00000, + .02906, .00515, -.01424, .00000, .00000, + .00000, .00000, .00000, + .02566, .00454, -.01222, .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)/ + .02307, .00407, -.01072, .00000, .00000, + .00000, .00000, .00000, + .02086, .00364, -.00943, .00000, .00000, + .00000, .00000, .00000, + .01929, .00336, -.00856, .00000, .00000, + .00000, .00000, .00000, + .01639, .00284, -.00697, .00000, .00000, + .00000, .00000, .00000, + .01434, .00248, -.00591, .00000, .00000, + .00000, .00000, .00000, + .01236, .00213, -.00490, .00000, .00000, + .00000, .00000, .00000, + .01066, .00182, -.00407, .00000, .00000, + .00000, .00000, .00000, + .00934, .00158, -.00344, .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)/ + .00819, .00140, -.00292, .00000, .00000, + .00000, .00000, .00000, + .00737, .00124, -.00254, .00000, .00000, + .00000, .00000, .00000, + .00650, .00110, -.00218, .00000, .00000, + .00000, .00000, .00000, + .00581, .00096, -.00187, .00000, .00000, + .00000, .00000, .00000, + .00526, .00086, -.00163, .00000, .00000, + .00000, .00000, .00000, + .00465, .00078, -.00141, .00000, .00000, + .00000, .00000, .00000, + .00415, .00068, -.00120, .00000, .00000, + .00000, .00000, .00000, + .00373, .00060, -.00105, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00335, .00054, -.00091, .00000, .00000, + .00000, .00000, .00000, + .00304, .00049, -.00080, .00000, .00000, + .00000, .00000, .00000, + .00277, .00045, -.00071, .00000, .00000, + .00000, .00000, .00000, + .00254, .00042, -.00063, .00000, .00000, + .00000, .00000, .00000, + .00232, .00037, -.00055, .00000, .00000, + .00000, .00000, .00000, + .00214, .00034, -.00050, .00000, .00000, + .00000, .00000, .00000, + .00198, .00032, -.00045, .00000, .00000, + .00000, .00000, .00000, + .00182, .00029, -.00040, .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)/ + .00171, .00027, -.00037, .00000, .00000, + .00000, .00000, .00000, + .00158, .00025, -.00033, .00000, .00000, + .00000, .00000, .00000, + .00148, .00023, -.00030, .00000, .00000, + .00000, .00000, .00000, + .00138, .00022, -.00027, .00000, .00000, + .00000, .00000, .00000, + .00130, .00020, -.00025, .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)/ + .01215, .00161, -.00910, .00000, .00000, + .00000, .00000, .00000, + .00982, .00129, -.00716, .00000, .00000, + .00000, .00000, .00000, + .00730, .00095, -.00513, .00000, .00000, + .00000, .00000, .00000, + .00597, .00078, -.00408, .00000, .00000, + .00000, .00000, .00000, + .00485, .00062, -.00321, .00000, .00000, + .00000, .00000, .00000, + .00408, .00052, -.00263, .00000, .00000, + .00000, .00000, .00000, + .00348, .00046, -.00220, .00000, .00000, + .00000, .00000, .00000, + .00296, .00037, -.00181, .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)/ + .00256, .00032, -.00153, .00000, .00000, + .00000, .00000, .00000, + .00225, .00029, -.00132, .00000, .00000, + .00000, .00000, .00000, + .00202, .00026, -.00116, .00000, .00000, + .00000, .00000, .00000, + .00163, .00021, -.00091, .00000, .00000, + .00000, .00000, .00000, + .00136, .00016, -.00073, .00000, .00000, + .00000, .00000, .00000, + .00113, .00014, -.00059, .00000, .00000, + .00000, .00000, .00000, + .00092, .00011, -.00046, .00000, .00000, + .00000, .00000, .00000, + .00077, .00009, -.00038, .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)/ + .00065, .00007, -.00030, .00000, .00000, + .00000, .00000, .00000, + .00057, .00007, -.00026, .00000, .00000, + .00000, .00000, .00000, + .00048, .00005, -.00021, .00000, .00000, + .00000, .00000, .00000, + .00042, .00005, -.00018, .00000, .00000, + .00000, .00000, .00000, + .00037, .00005, -.00016, .00000, .00000, + .00000, .00000, .00000, + .00031, .00003, -.00012, .00000, .00000, + .00000, .00000, .00000, + .00028, .00003, -.00011, .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, + .00018, .00002, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00013, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00010, .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)/ + .00008, .00001, -.00003, .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, + .00005, .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='ft23d.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