#include "pdf/pilot.h" subroutine sfmrs_99a12(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)/ + .00515, .00191, 1.11860, .90463, .00000, + .00000, .48175, .91662, + .00531, .00198, 2.39185, .93942, .00000, + .00000, .52193, .95147, + .00555, .00208, 4.89753, 1.01576, .00000, + .00000, .60592, 1.02788, + .00572, .00216, 7.23869, 1.08961, .04539, + .00000, .68510, 1.10177, + .00590, .00225, 10.06430, 1.18522, .15603, + .00000, .78610, 1.19741, + .00606, .00232, 12.97936, 1.28391, .26195, + .00000, .88932, 1.29613, + .00622, .00240, 16.25096, 1.39123, .37881, + .00000, 1.00087, 1.40346, + .00638, .00248, 20.26498, 1.51964, .52048, + .00000, 1.13368, 1.53189 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00653, .00254, 24.17605, 1.64565, .65309, + .00000, 1.26342, 1.65790, + .00667, .00261, 28.37500, 1.77949, .79429, + .00000, 1.40079, 1.79174, + .00678, .00267, 32.05324, 1.89403, .91753, + .00000, 1.51807, 1.90628, + .00702, .00278, 40.56970, 2.16685, 1.20469, + .02266, 1.79659, 2.17909, + .00722, .00288, 48.58288, 2.43104, 1.48024, + .34642, 2.06552, 2.44327, + .00746, .00300, 58.70207, 2.76186, 1.82555, + .74505, 2.40151, 2.77407, + .00770, .00312, 70.61198, 3.14639, 2.22608, + 1.16391, 2.79127, 3.15858, + .00793, .00323, 82.65894, 3.53230, 2.62739, + 1.58378, 3.18180, 3.54447 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00816, .00335, 96.07996, 3.95985, 3.07176, + 2.04681, 3.61388, 3.97198, + .00835, .00345, 108.15657, 4.34444, 3.46950, + 2.45656, 4.00215, 4.35653, + .00858, .00357, 123.95258, 4.84792, 3.98841, + 2.98905, 4.51000, 4.85998, + .00879, .00368, 139.08627, 5.32931, 4.48526, + 3.50125, 4.99516, 5.34134, + .00899, .00378, 153.94434, 5.80172, 4.97297, + 4.00435, 5.47096, 5.81370, + .00923, .00390, 173.93205, 6.44198, 5.62988, + 4.67547, 6.11543, 6.45391, + .00947, .00403, 194.11009, 7.08948, 6.29474, + 5.35656, 6.76679, 7.10136, + .00969, .00414, 214.32675, 7.73874, 6.96260, + 6.04310, 7.41959, 7.75058 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00992, .00426, 235.42511, 8.42417, 7.66294, + 6.75593, 8.10849, 8.43595, + .01014, .00438, 257.30655, 9.13652, 8.39223, + 7.50121, 8.82417, 9.14826, + .01035, .00449, 279.07556, 9.84867, 9.12102, + 8.24588, 9.53940, 9.86035, + .01055, .00459, 300.32693, 10.55035, 9.83690, + 8.97452, 10.24395, 10.56199, + .01076, .00470, 322.79166, 11.29302, 10.59640, + 9.75056, 10.98943, 11.30461, + .01096, .00481, 345.43198, 12.05075, 11.36793, + 10.53431, 11.74990, 12.06229, + .01116, .00491, 368.04791, 12.80791, 12.14119, + 11.32343, 12.50960, 12.81940, + .01134, .00501, 389.81564, 13.54586, 12.89170, + 12.08523, 13.24994, 13.55731 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01153, .00511, 412.71667, 14.32341, 13.68411, + 12.89208, 14.02985, 14.33482, + .01172, .00521, 435.80719, 15.11483, 14.48903, + 13.70972, 14.82358, 15.12619, + .01190, .00531, 458.50980, 15.89711, 15.28465, + 14.51808, 15.60803, 15.90843, + .01207, .00540, 480.72339, 16.66569, 16.06683, + 15.31373, 16.37863, 16.67696, + .01225, .00549, 503.43262, 17.46037, 16.87332, + 16.13122, 17.17534, 17.47160 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00697, .00267, 1.04247, .76551, .00000, + .00000, .40715, .77242, + .00719, .00278, 2.18894, .79783, .00000, + .00000, .44369, .80476, + .00753, .00293, 4.39703, .86542, .00000, + .00000, .51728, .87240, + .00777, .00305, 6.41926, .92911, .03862, + .00000, .58513, .93611, + .00803, .00318, 8.81928, 1.01012, .13228, + .00000, .67034, 1.01713, + .00825, .00329, 11.25971, 1.09261, .22082, + .00000, .75636, 1.09964, + .00846, .00339, 13.96599, 1.18153, .31755, + .00000, .84857, 1.18856, + .00869, .00350, 17.24763, 1.28704, .43379, + .00000, .95750, 1.29408 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00889, .00360, 20.40882, 1.38967, .54160, + .00000, 1.06302, 1.39671, + .00908, .00370, 23.77011, 1.49792, .65558, + .00000, 1.17401, 1.50496, + .00924, .00378, 26.69160, 1.59008, .75449, + .00000, 1.26830, 1.59713, + .00957, .00395, 33.37648, 1.80777, .98295, + .01851, 1.49040, 1.81481, + .00985, .00409, 39.57725, 2.01658, 1.20000, + .27298, 1.70289, 2.02362, + .01017, .00426, 47.31119, 2.27575, 1.46952, + .58437, 1.96605, 2.28278, + .01051, .00443, 56.29833, 2.57418, 1.77911, + .90776, 2.26852, 2.58120, + .01082, .00459, 65.28069, 2.87104, 2.08652, + 1.22894, 2.56894, 2.87805 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01113, .00475, 75.17767, 3.19723, 2.42407, + 1.58008, 2.89863, 3.20423, + .01140, .00489, 83.99490, 3.48843, 2.72389, + 1.88832, 3.19267, 3.49541, + .01172, .00506, 95.41535, 3.86681, 3.11211, + 2.28583, 3.57442, 3.87378, + .01200, .00521, 106.25360, 4.22597, 3.48115, + 2.66543, 3.93648, 4.23292, + .01227, .00535, 116.80604, 4.57615, 3.84110, + 3.03590, 4.28927, 4.58309, + .01261, .00553, 130.86890, 5.04730, 4.32232, + 3.52630, 4.76366, 5.05421, + .01293, .00570, 144.93398, 5.52030, 4.80588, + 4.02043, 5.23963, 5.52719, + .01323, .00586, 158.90825, 5.99145, 5.28849, + 4.51536, 5.71351, 5.99832 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01353, .00602, 173.36311, 6.48540, 5.79100, + 5.02545, 6.21013, 6.49225, + .01383, .00619, 188.24060, 6.99563, 6.31119, + 5.55570, 6.72292, 7.00246, + .01412, .00634, 202.93250, 7.50270, 6.82802, + 6.08246, 7.23236, 7.50950, + .01439, .00649, 217.16971, 7.99941, 7.33272, + 6.59479, 7.73127, 8.00619, + .01467, .00664, 232.12834, 8.52251, 7.86564, + 7.13798, 8.25655, 8.52928, + .01494, .00678, 247.09474, 9.05319, 8.40385, + 7.68324, 8.78933, 9.05993, + .01520, .00693, 261.96417, 9.58106, 8.94098, + 8.23008, 9.31917, 9.58779, + .01545, .00706, 276.18063, 10.09289, 9.45955, + 8.75503, 9.83283, 10.09959 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01570, .00720, 291.06381, 10.62995, 10.00494, + 9.30899, 10.37171, 10.63663, + .01596, .00734, 305.98074, 11.17402, 10.55631, + 9.86765, 10.91755, 11.18068, + .01620, .00747, 320.57196, 11.70955, 11.09909, + 10.41774, 11.45476, 11.71620, + .01643, .00759, 334.78259, 12.23368, 11.63072, + 10.95724, 11.98045, 12.24031, + .01666, .00772, 349.22876, 12.77324, 12.17643, + 11.50896, 12.52158, 12.77986 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00943, .00375, .97256, .64749, .00000, + .00000, .34420, .65089, + .00975, .00390, 2.00449, .67726, .00000, + .00000, .37726, .68066, + .01021, .00413, 3.94891, .73698, .00000, + .00000, .44166, .74039, + .01055, .00431, 5.69364, .79186, .03286, + .00000, .49979, .79529, + .01091, .00449, 7.72898, .86046, .11212, + .00000, .57166, .86389, + .01122, .00465, 9.76817, .92936, .18610, + .00000, .64330, .93280, + .01152, .00480, 12.00198, 1.00296, .26612, + .00000, .71945, 1.00640, + .01183, .00496, 14.67843, 1.08954, .36142, + .00000, .80868, 1.09299 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01211, .00511, 17.22665, 1.17298, .44900, + .00000, .89436, 1.17642, + .01238, .00525, 19.90962, 1.26036, .54090, + .00000, .98385, 1.26380, + .01259, .00536, 22.22300, 1.33436, .62020, + .00000, 1.05950, 1.33781, + .01304, .00560, 27.45266, 1.50762, .80172, + .01511, 1.23617, 1.51107, + .01344, .00580, 32.23278, 1.67219, .97244, + .21501, 1.40357, 1.67564, + .01388, .00604, 38.11961, 1.87460, 1.18244, + .45812, 1.60904, 1.87805, + .01434, .00629, 44.87164, 2.10542, 1.42130, + .70764, 1.84297, 2.10887, + .01477, .00651, 51.53778, 2.33295, 1.65627, + .95312, 2.07323, 2.33639 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01520, .00674, 58.80032, 2.58085, 1.91210, + 1.21914, 2.32382, 2.58429, + .01555, .00694, 65.20455, 2.80044, 2.13755, + 1.45076, 2.54558, 2.80388, + .01599, .00717, 73.41675, 3.08360, 2.42722, + 1.74711, 2.83132, 3.08704, + .01638, .00739, 81.13496, 3.35038, 2.70055, + 2.02802, 3.10032, 3.35382, + .01674, .00758, 88.58572, 3.60878, 2.96540, + 2.30037, 3.36072, 3.61222, + .01720, .00783, 98.41943, 3.95384, 3.31680, + 2.65805, 3.70825, 3.95727, + .01764, .00807, 108.16090, 4.29767, 3.66731, + 3.01582, 4.05435, 4.30110, + .01805, .00830, 117.75685, 4.63786, 4.01484, + 3.37184, 4.39662, 4.64129 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01846, .00852, 127.59196, 4.99196, 4.37405, + 3.73596, 4.75276, 4.99539, + .01887, .00875, 137.63580, 5.35546, 4.74367, + 4.11226, 5.11822, 5.35889, + .01925, .00896, 147.47906, 5.71454, 5.10871, + 4.48386, 5.47911, 5.71796, + .01962, .00916, 156.94484, 6.06418, 5.46303, + 4.84303, 5.83043, 6.06760, + .01999, .00937, 166.82872, 6.43054, 5.83536, + 5.22210, 6.19845, 6.43396, + .02036, .00957, 176.64261, 6.80001, 6.20912, + 5.60020, 6.56953, 6.80343, + .02071, .00977, 186.33946, 7.16587, 6.58055, + 5.97788, 6.93688, 7.16928, + .02104, .00995, 195.54559, 7.51868, 6.93713, + 6.33833, 7.29110, 7.52210 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02138, .01014, 205.13533, 7.88737, 7.31070, + 6.71730, 7.66117, 7.89078, + .02172, .01033, 214.68669, 8.25903, 7.68650, + 7.09755, 8.03419, 8.26245, + .02204, .01051, 223.98032, 8.62332, 8.05490, + 7.47042, 8.39976, 8.62673, + .02235, .01068, 232.98787, 8.97845, 8.41438, + 7.83477, 8.75608, 8.98187, + .02266, .01085, 242.09029, 9.34238, 8.78164, + 8.20556, 9.12120, 9.34580 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01126, .00457, .93471, .58695, .00000, + .00000, .31205, .58890, + .01164, .00476, 1.90488, .61521, .00000, + .00000, .34318, .61717, + .01221, .00506, 3.70923, .67069, .00000, + .00000, .40270, .67265, + .01262, .00527, 5.30864, .72098, .02988, + .00000, .45580, .72295, + .01305, .00550, 7.15535, .78320, .10175, + .00000, .52084, .78517, + .01343, .00569, 8.98923, .84518, .16833, + .00000, .58518, .84715, + .01379, .00588, 10.98352, .91102, .23992, + .00000, .65323, .91300, + .01417, .00609, 13.35597, .98809, .32473, + .00000, .73258, .99007 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01451, .00626, 15.59898, 1.06194, .40223, + .00000, .80836, 1.06392, + .01483, .00644, 17.94675, 1.13894, .48322, + .00000, .88718, 1.14093, + .01509, .00657, 19.96152, 1.20395, .55285, + .00000, .95361, 1.20594, + .01564, .00687, 24.48316, 1.35534, .71139, + .01341, 1.10792, 1.35733, + .01611, .00712, 28.57969, 1.49830, .85961, + .18691, 1.25330, 1.50030, + .01664, .00741, 33.58651, 1.67315, 1.04091, + .39716, 1.43079, 1.67515, + .01720, .00772, 39.28451, 1.87140, 1.24591, + .61145, 1.63169, 1.87340, + .01771, .00799, 44.86890, 2.06575, 1.44647, + .82109, 1.82838, 2.06776 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01823, .00828, 50.91201, 2.27643, 1.66372, + 1.04709, 2.04137, 2.27845, + .01866, .00851, 56.20821, 2.46219, 1.85426, + 1.24289, 2.22899, 2.46421, + .01918, .00880, 62.95894, 2.70062, 2.09796, + 1.49225, 2.46962, 2.70265, + .01965, .00906, 69.26672, 2.92426, 2.32689, + 1.72758, 2.69516, 2.92630, + .02008, .00930, 75.32494, 3.14003, 2.54785, + 1.95484, 2.91263, 3.14207, + .02063, .00960, 83.27407, 3.42686, 2.83969, + 2.25188, 3.20157, 3.42891, + .02115, .00989, 91.10364, 3.71140, 3.12950, + 2.54771, 3.48805, 3.71346, + .02164, .01017, 98.77679, 3.99180, 3.41572, + 2.84095, 3.77023, 3.99386 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02213, .01044, 106.59731, 4.28241, 3.71025, + 3.13947, 4.06257, 4.28447, + .02262, .01071, 114.54664, 4.57964, 4.01223, + 3.44689, 4.36146, 4.58171, + .02308, .01097, 122.30146, 4.87218, 4.30941, + 3.74939, 4.65556, 4.87426, + .02352, .01121, 129.72435, 5.15601, 4.59681, + 4.04069, 4.94082, 5.15810, + .02396, .01146, 137.44640, 5.45253, 4.89796, + 4.34727, 5.23875, 5.45463, + .02439, .01171, 145.07800, 5.75051, 5.19915, + 4.65190, 5.53809, 5.75261, + .02481, .01194, 152.59410, 6.04477, 5.49770, + 4.95547, 5.83364, 6.04688, + .02521, .01216, 159.69885, 6.32762, 5.78336, + 5.24417, 6.11768, 6.32974 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02561, .01239, 167.07774, 6.62247, 6.08193, + 5.54702, 6.41371, 6.62459, + .02601, .01261, 174.39903, 6.91883, 6.38139, + 5.84997, 6.71122, 6.92096, + .02639, .01283, 181.49994, 7.20856, 6.67422, + 6.14631, 7.00204, 7.21070, + .02676, .01304, 188.36246, 7.49035, 6.95931, + 6.43524, 7.28485, 7.49250, + .02713, .01324, 195.27145, 7.77833, 7.24975, + 6.72839, 7.57385, 7.78049 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01277, .00526, .90932, .54741, .00000, + .00000, .29113, .54857, + .01321, .00549, 1.83788, .57460, .00000, + .00000, .32092, .57577, + .01386, .00583, 3.54869, .62722, .00000, + .00000, .37719, .62840, + .01433, .00608, 5.05191, .67447, .02793, + .00000, .42698, .67566, + .01483, .00635, 6.77472, .73251, .09497, + .00000, .48756, .73370, + .01526, .00658, 8.47467, .78999, .15673, + .00000, .54717, .79118, + .01567, .00680, 10.31361, .85081, .22287, + .00000, .60998, .85201, + .01611, .00704, 12.49003, .92174, .30092, + .00000, .68296, .92294 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01649, .00724, 14.53733, .98943, .37196, + .00000, .75239, .99063, + .01686, .00744, 16.67118, 1.05978, .44597, + .00000, .82438, 1.06099, + .01716, .00760, 18.49613, 1.11905, .50944, + .00000, .88491, 1.12026, + .01778, .00794, 22.57033, 1.25651, .65341, + .01233, 1.02501, 1.25773, + .01832, .00824, 26.23789, 1.38577, .78741, + .16919, 1.15644, 1.38700, + .01893, .00857, 30.69591, 1.54324, .95068, + .35880, 1.31628, 1.54448, + .01957, .00893, 35.74089, 1.72103, 1.13449, + .55109, 1.49645, 1.72228, + .02015, .00925, 40.65915, 1.89463, 1.31361, + .73845, 1.67215, 1.89589 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02074, .00957, 45.95553, 2.08215, 1.50693, + .93967, 1.86173, 2.08342, + .02123, .00985, 50.57674, 2.24692, 1.67590, + 1.11340, 2.02816, 2.24820, + .02182, .01018, 56.44152, 2.45771, 1.89129, + 1.33389, 2.24092, 2.45900, + .02236, .01048, 61.89856, 2.65480, 2.09299, + 1.54133, 2.43971, 2.65610, + .02285, .01075, 67.12031, 2.84441, 2.28713, + 1.74108, 2.63084, 2.84572, + .02347, .01110, 73.94298, 3.09564, 2.54267, + 2.00127, 2.88397, 3.09697, + .02406, .01143, 80.63518, 3.34407, 2.79565, + 2.25958, 3.13413, 3.34541, + .02462, .01174, 87.16942, 3.58817, 3.04477, + 2.51492, 3.37982, 3.58953 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02517, .01206, 93.80210, 3.84038, 3.30032, + 2.77398, 3.63358, 3.84175, + .02572, .01237, 100.52126, 4.09765, 3.56165, + 3.04010, 3.89234, 4.09903, + .02625, .01266, 107.05423, 4.35021, 3.81816, + 3.30128, 4.14628, 4.35160, + .02674, .01294, 113.28632, 4.59461, 4.06557, + 3.55210, 4.39195, 4.59602, + .02724, .01322, 119.75238, 4.84938, 4.32429, + 3.81557, 4.64799, 4.85080, + .02773, .01350, 126.12086, 5.10474, 4.58236, + 4.07663, 4.90457, 5.10618, + .02820, .01377, 132.37833, 5.35644, 4.83770, + 4.33634, 5.15742, 5.35790, + .02865, .01402, 138.27441, 5.59781, 5.08142, + 4.58268, 5.39984, 5.59927 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02911, .01428, 144.38498, 5.84896, 5.33572, + 4.84070, 5.65206, 5.85044, + .02956, .01454, 150.43063, 6.10087, 5.59023, + 5.09823, 5.90499, 6.10236, + .02999, .01478, 156.28064, 6.34669, 5.83865, + 5.34968, 6.15179, 6.34820, + .03040, .01502, 161.92247, 6.58538, 6.08012, + 5.59446, 6.39138, 6.58690, + .03082, .01525, 167.58688, 6.82881, 6.32560, + 5.84228, 6.63572, 6.83035 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01408, .00587, .89054, .51855, .00000, + .00000, .27590, .51924, + .01457, .00613, 1.78804, .54493, .00000, + .00000, .30468, .54562, + .01529, .00652, 3.42946, .59542, .00000, + .00000, .35855, .59612, + .01582, .00680, 4.86176, .64043, .02650, + .00000, .40591, .64113, + .01637, .00710, 6.49375, .69540, .09001, + .00000, .46324, .69612, + .01685, .00736, 8.09601, .74961, .14827, + .00000, .51941, .75033, + .01731, .00761, 9.82215, .80679, .21045, + .00000, .57842, .80751, + .01779, .00787, 11.85679, .87327, .28362, + .00000, .64680, .87400 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01822, .00811, 13.76315, .93651, .35001, + .00000, .71164, .93725, + .01863, .00833, 15.74349, 1.00208, .41900, + .00000, .77872, 1.00283, + .01895, .00851, 17.43262, 1.05722, .47805, + .00000, .83502, 1.05797, + .01965, .00889, 21.18804, 1.18471, .61160, + .01154, .96494, 1.18547, + .02025, .00923, 24.55158, 1.30419, .73548, + .15657, 1.08643, 1.30497, + .02092, .00960, 28.62248, 1.44929, .88594, + .33154, 1.23370, 1.45008, + .02163, .00999, 33.20899, 1.61257, 1.05478, + .50828, 1.39918, 1.61338, + .02227, .01035, 37.66171, 1.77152, 1.21878, + .67996, 1.56005, 1.77234 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02292, .01072, 42.43841, 1.94271, 1.39528, + .86379, 1.73313, 1.94354, + .02346, .01102, 46.59162, 2.09273, 1.54914, + 1.02207, 1.88469, 2.09358, + .02412, .01139, 51.84443, 2.28416, 1.74475, + 1.22242, 2.07793, 2.28503, + .02471, .01172, 56.71589, 2.46269, 1.92747, + 1.41044, 2.25802, 2.46358, + .02525, .01203, 61.36382, 2.63407, 2.10295, + 1.59109, 2.43080, 2.63497, + .02594, .01242, 67.41640, 2.86056, 2.33333, + 1.82577, 2.65902, 2.86148, + .02659, .01279, 73.33390, 3.08396, 2.56083, + 2.05818, 2.88401, 3.08490, + .02720, .01313, 79.09486, 3.30298, 2.78437, + 2.28740, 3.10449, 3.30394 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02782, .01348, 84.92371, 3.52871, 3.01309, + 2.51936, 3.33164, 3.52969, + .02842, .01383, 90.81282, 3.75849, 3.24651, + 2.75716, 3.56279, 3.75948, + .02900, .01415, 96.52387, 3.98360, 3.47516, + 2.99007, 3.78917, 3.98462, + .02954, .01446, 101.95706, 4.20099, 3.69524, + 3.21327, 4.00773, 4.20203, + .03009, .01478, 107.58254, 4.42723, 3.92501, + 3.44736, 4.23513, 4.42829, + .03063, .01508, 113.10788, 4.65354, 4.15372, + 3.67880, 4.46255, 4.65461, + .03115, .01538, 118.52700, 4.87625, 4.37970, + 3.90873, 4.68632, 4.87734, + .03164, .01566, 123.62015, 5.08943, 4.59496, + 4.12639, 4.90047, 5.09054 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03214, .01595, 128.88962, 5.31095, 4.81928, + 4.35407, 5.12296, 5.31207, + .03264, .01623, 134.09149, 5.53275, 5.04340, + 4.58092, 5.34570, 5.53389, + .03311, .01650, 139.11565, 5.74889, 5.26184, + 4.80212, 5.56273, 5.75005, + .03356, .01676, 143.95311, 5.95847, 5.47390, + 5.01717, 5.77315, 5.95965, + .03402, .01702, 148.79900, 6.17189, 5.68913, + 5.23451, 5.98740, 6.17309 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01909, .00828, .83807, .43823, .00000, + .00000, .23373, .43807, + .01977, .00866, 1.64556, .46209, .00000, + .00000, .25950, .46195, + .02078, .00923, 3.08768, .50639, .00000, + .00000, .30648, .50627, + .02151, .00964, 4.31858, .54503, .02249, + .00000, .34698, .54493, + .02228, .01007, 5.69514, .59143, .07610, + .00000, .39523, .59135, + .02294, .01045, 7.02508, .63652, .12464, + .00000, .44187, .63646, + .02357, .01081, 8.43908, .68363, .17591, + .00000, .49043, .68359, + .02425, .01119, 10.08444, .73789, .23567, + .00000, .54617, .73787 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02483, .01152, 11.60656, .78897, .28936, + .00000, .59851, .78896, + .02540, .01185, 13.17104, .84151, .34473, + .00000, .65224, .84152, + .02585, .01210, 14.49413, .88543, .39183, + .00000, .69708, .88546, + .02680, .01265, 17.39697, .98601, .49733, + .00939, .79956, .98607, + .02763, .01312, 19.95484, 1.07925, .59415, + .12286, .89436, 1.07934, + .02855, .01366, 23.00819, 1.19135, .71057, + .25892, 1.00816, 1.19147, + .02952, .01421, 26.39984, 1.31616, .83982, + .39466, 1.13469, 1.31633, + .03040, .01472, 29.64888, 1.43646, .96414, + .52521, 1.25650, 1.43666 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03129, .01523, 33.09179, 1.56484, 1.09669, + .66370, 1.38636, 1.56508, + .03203, .01566, 36.05181, 1.67640, 1.21127, + .78189, 1.49910, 1.67667, + .03293, .01618, 39.75450, 1.81756, 1.35572, + .93026, 1.64168, 1.81787, + .03372, .01664, 43.15216, 1.94816, 1.48958, + 1.06839, 1.77349, 1.94850, + .03446, .01707, 46.36381, 2.07264, 1.61722, + 1.20017, 1.89906, 2.07301, + .03539, .01761, 50.50092, 2.23580, 1.78341, + 1.36989, 2.06356, 2.23622, + .03627, .01812, 54.50340, 2.39545, 1.94622, + 1.53665, 2.22444, 2.39590, + .03710, .01860, 58.36371, 2.55083, 2.10507, + 1.69998, 2.38096, 2.55133 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03793, .01908, 62.22844, 2.70972, 2.26627, + 1.86385, 2.54096, 2.71026, + .03875, .01955, 66.09988, 2.87039, 2.42973, + 2.03079, 2.70268, 2.87097, + .03952, .02000, 69.82244, 3.02677, 2.58881, + 2.19325, 2.86005, 3.02739, + .04025, .02043, 73.33282, 3.17680, 2.74091, + 2.34786, 3.01098, 3.17745, + .04099, .02086, 76.94306, 3.33210, 2.89889, + 2.50921, 3.16719, 3.33279, + .04172, .02128, 80.45716, 3.48642, 3.05506, + 2.66760, 3.32237, 3.48714, + .04241, .02168, 83.88371, 3.63758, 3.20869, + 2.82431, 3.47435, 3.63834, + .04307, .02206, 87.07677, 3.78138, 3.35410, + 2.97165, 3.61891, 3.78218 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04373, .02245, 90.36282, 3.93016, 3.50501, + 3.12520, 3.76844, 3.93099, + .04439, .02283, 93.58252, 4.07833, 3.65494, + 3.27730, 3.91734, 4.07920, + .04502, .02320, 96.67362, 4.22205, 3.80042, + 3.42494, 4.06175, 4.22294, + .04562, .02355, 99.63385, 4.36082, 3.94107, + 3.56791, 4.20118, 4.36176, + .04623, .02390, 102.57716, 4.50141, 4.08305, + 3.71159, 4.34240, 4.50237 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02595, .01175, .79730, .37062, .00000, + .00000, .19852, .37044, + .02690, .01231, 1.52392, .39205, .00000, + .00000, .22150, .39191, + .02830, .01314, 2.78871, .43074, .00000, + .00000, .26234, .43065, + .02932, .01373, 3.84318, .46379, .01904, + .00000, .29690, .46375, + .03038, .01436, 4.99933, .50280, .06415, + .00000, .33741, .50281, + .03129, .01490, 6.09748, .54016, .10445, + .00000, .37602, .54021, + .03217, .01542, 7.24885, .57880, .14656, + .00000, .41582, .57889, + .03310, .01597, 8.57045, .62286, .19517, + .00000, .46108, .62300 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03391, .01645, 9.77671, .66389, .23840, + .00000, .50313, .66407, + .03469, .01691, 11.00267, .70574, .28262, + .00000, .54593, .70596, + .03531, .01728, 12.03019, .74052, .32000, + .00000, .58145, .74077, + .03663, .01806, 14.25292, .81931, .40289, + .00761, .66178, .81963, + .03776, .01873, 16.17751, .89153, .47811, + .09596, .73526, .89190, + .03903, .01948, 18.44142, .97743, .56761, + .20123, .82253, .97788, + .04035, .02026, 20.91859, 1.07202, .66588, + .30492, .91849, 1.07253, + .04155, .02097, 23.25810, 1.16222, .75941, + .40361, 1.00991, 1.16280 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04276, .02169, 25.70501, 1.25756, .85818, + .50729, 1.10644, 1.25821, + .04377, .02229, 27.78354, 1.33966, .94279, + .59498, 1.18950, 1.34037, + .04499, .02301, 30.35303, 1.44263, 1.04853, + .70407, 1.29361, 1.44341, + .04607, .02366, 32.68432, 1.53709, 1.14569, + .80480, 1.38905, 1.53794, + .04707, .02424, 34.86613, 1.62646, 1.23766, + .90019, 1.47930, 1.62736, + .04833, .02499, 37.64373, 1.74258, 1.35634, + 1.02193, 1.59650, 1.74355, + .04952, .02570, 40.30076, 1.85523, 1.47163, + 1.14056, 1.71015, 1.85628, + .05063, .02636, 42.83784, 1.96405, 1.58328, + 1.25589, 1.81989, 1.96517 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05175, .02702, 45.34848, 2.07439, 1.69560, + 1.37056, 1.93112, 2.07557, + .05284, .02766, 47.84043, 2.18518, 1.80872, + 1.48661, 2.04277, 2.18643, + .05388, .02828, 50.21461, 2.29228, 1.91806, + 1.59876, 2.15067, 2.29359, + .05486, .02886, 52.43157, 2.39430, 2.02184, + 1.70472, 2.25342, 2.39568, + .05585, .02944, 54.69545, 2.49933, 2.12907, + 1.81473, 2.35918, 2.50077, + .05682, .03001, 56.87657, 2.60295, 2.23428, + 1.92189, 2.46350, 2.60445, + .05774, .03056, 58.99041, 2.70395, 2.33731, + 2.02745, 2.56517, 2.70551, + .05862, .03107, 60.94112, 2.79940, 2.43415, + 2.12599, 2.66123, 2.80101 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05950, .03159, 62.93736, 2.89771, 2.53423, + 2.22826, 2.76016, 2.89938, + .06038, .03211, 64.87665, 2.99504, 2.63306, + 2.32896, 2.85808, 2.99677, + .06121, .03260, 66.72620, 3.08899, 2.72850, + 2.42622, 2.95259, 3.09077, + .06201, .03306, 68.48701, 3.17931, 2.82037, + 2.52002, 3.04344, 3.18114, + .06281, .03354, 70.22265, 3.27028, 2.91256, + 2.61370, 3.13494, 3.27216 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03111, .01450, .78138, .33646, .00000, + .00000, .18082, .33655, + .03227, .01520, 1.46454, .35651, .00000, + .00000, .20225, .35666, + .03397, .01623, 2.63428, .39214, .00000, + .00000, .23981, .39238, + .03520, .01697, 3.59525, .42222, .01722, + .00000, .27123, .42253, + .03649, .01774, 4.63595, .45737, .05791, + .00000, .30772, .45775, + .03759, .01841, 5.61400, .49073, .09394, + .00000, .34220, .49118, + .03865, .01905, 6.63056, .52502, .13136, + .00000, .37753, .52552, + .03978, .01973, 7.78757, .56389, .17430, + .00000, .41747, .56446 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04076, .02032, 8.83476, .59984, .21225, + .00000, .45434, .60047, + .04170, .02089, 9.89163, .63632, .25087, + .00000, .49167, .63700, + .04245, .02134, 10.77249, .66652, .28340, + .00000, .52253, .66724, + .04403, .02230, 12.66118, .73450, .35508, + .00671, .59189, .73533, + .04539, .02311, 14.27852, .79637, .41968, + .08272, .65489, .79727, + .04692, .02403, 16.16363, .86947, .49605, + .17295, .72923, .87048, + .04850, .02498, 18.20696, .94941, .57933, + .26113, .81041, .95051, + .04994, .02585, 20.11963, 1.02515, .65808, + .34453, .88724, 1.02634 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05139, .02672, 22.10375, 1.10472, .74076, + .43162, .96789, 1.10601, + .05259, .02744, 23.77642, 1.17286, .81119, + .50486, 1.03689, 1.17422, + .05405, .02832, 25.82881, 1.25785, .89872, + .59550, 1.12291, 1.25931, + .05534, .02909, 27.67772, 1.33542, .97874, + .67876, 1.20136, 1.33696, + .05653, .02980, 29.39721, 1.40845, 1.05413, + .75724, 1.27519, 1.41007, + .05803, .03070, 31.56986, 1.50283, 1.15089, + .85684, 1.37056, 1.50456, + .05945, .03155, 33.63335, 1.59392, 1.24439, + .95339, 1.46255, 1.59574, + .06077, .03234, 35.59126, 1.68150, 1.33453, + 1.04684, 1.55096, 1.68340 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06210, .03313, 37.51412, 1.76982, 1.42471, + 1.13923, 1.64009, 1.77181, + .06339, .03390, 39.41160, 1.85813, 1.51515, + 1.23235, 1.72918, 1.86021, + .06462, .03463, 41.20873, 1.94313, 1.60219, + 1.32196, 1.81490, 1.94529, + .06578, .03532, 42.87613, 2.02374, 1.68444, + 1.40623, 1.89618, 2.02598, + .06694, .03601, 44.57117, 2.10644, 1.76914, + 1.49344, 1.97955, 2.10876, + .06809, .03669, 46.19319, 2.18766, 1.85187, + 1.57799, 2.06141, 2.19006, + .06918, .03734, 47.75922, 2.26660, 1.93264, + 1.66106, 2.14095, 2.26907, + .07021, .03795, 49.19485, 2.34087, 2.00823, + 1.73825, 2.21578, 2.34342 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07125, .03856, 50.65880, 2.41717, 2.08614, + 1.81816, 2.29264, 2.41979, + .07227, .03917, 52.07293, 2.49242, 2.16279, + 1.89653, 2.36844, 2.49511, + .07325, .03975, 53.41577, 2.56484, 2.23658, + 1.97201, 2.44137, 2.56760, + .07419, .04030, 54.68932, 2.63427, 2.30743, + 2.04461, 2.51128, 2.63709, + .07513, .04085, 55.93709, 2.70394, 2.37825, + 2.11683, 2.58144, 2.70683 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03544, .01690, .77516, .31455, .00000, + .00000, .16948, .31492, + .03677, .01772, 1.42899, .33364, .00000, + .00000, .18985, .33409, + .03873, .01891, 2.53455, .36719, .00000, + .00000, .22519, .36775, + .04014, .01978, 3.43279, .39527, .01601, + .00000, .25451, .39592, + .04161, .02068, 4.39661, .42785, .05376, + .00000, .28833, .42859, + .04288, .02145, 5.29524, .45857, .08698, + .00000, .32009, .45939, + .04409, .02220, 6.22317, .49000, .12132, + .00000, .35249, .49090, + .04538, .02298, 7.27262, .52547, .16055, + .00000, .38896, .52645 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04650, .02366, 8.21653, .55812, .19506, + .00000, .42246, .55917, + .04757, .02432, 9.16418, .59112, .23006, + .00000, .45625, .59224, + .04843, .02484, 9.95073, .61836, .25945, + .00000, .48411, .61954, + .05024, .02594, 11.62599, .67939, .32393, + .00612, .54643, .68069, + .05179, .02689, 13.04862, .73464, .38174, + .07425, .60274, .73604, + .05352, .02794, 14.69537, .79961, .44975, + .15490, .66886, .80113, + .05532, .02903, 16.46778, .87028, .52355, + .23325, .74069, .87192, + .05695, .03002, 18.11574, .93692, .59301, + .30702, .80836, .93867 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05860, .03102, 19.81475, 1.00661, .66561, + .38372, .87906, 1.00848, + .05997, .03185, 21.23887, 1.06604, .72719, + .44794, .93930, 1.06801, + .06162, .03284, 22.97646, 1.13988, .80342, + .52710, 1.01410, 1.14196, + .06308, .03372, 24.53336, 1.20699, .87283, + .59954, 1.08205, 1.20917, + .06442, .03453, 25.97441, 1.26997, .93802, + .66760, 1.14578, 1.27225, + .06612, .03555, 27.78477, 1.35103, 1.02132, + .75361, 1.22776, 1.35342, + .06771, .03651, 29.49487, 1.42895, 1.10152, + .83667, 1.30653, 1.43145, + .06921, .03741, 31.10970, 1.50360, 1.17856, + .91679, 1.38197, 1.50621 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07070, .03830, 32.68634, 1.57859, 1.25533, + .99567, 1.45772, 1.58131, + .07216, .03917, 34.23527, 1.65332, 1.33207, + 1.07493, 1.53319, 1.65615, + .07354, .04000, 35.69566, 1.72503, 1.40570, + 1.15096, 1.60558, 1.72795, + .07484, .04077, 37.04387, 1.79280, 1.47504, + 1.22221, 1.67399, 1.79581, + .07615, .04155, 38.40977, 1.86215, 1.54627, + 1.29579, 1.74398, 1.86527, + .07743, .04231, 39.70981, 1.93004, 1.61559, + 1.36685, 1.81246, 1.93324, + .07865, .04304, 40.96140, 1.99586, 1.68314, + 1.43654, 1.87886, 1.99915, + .07980, .04372, 42.10275, 2.05760, 1.74613, + 1.50106, 1.94113, 2.06098 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08097, .04441, 43.26353, 2.12089, 1.81095, + 1.56774, 2.00496, 2.12436, + .08212, .04509, 44.37968, 2.18314, 1.87452, + 1.63295, 2.06772, 2.18668, + .08321, .04574, 45.43599, 2.24290, 1.93559, + 1.69561, 2.12797, 2.24653, + .08425, .04635, 46.43482, 2.30008, 1.99411, + 1.75576, 2.18562, 2.30378, + .08530, .04697, 47.40864, 2.35731, 2.05243, + 1.81542, 2.24329, 2.36108 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03929, .01915, .77703, .29942, .00000, + .00000, .16146, .29983, + .04077, .02007, 1.40849, .31777, .00000, + .00000, .18099, .31828, + .04295, .02142, 2.46522, .34973, .00000, + .00000, .21461, .35038, + .04453, .02240, 3.31594, .37629, .01510, + .00000, .24233, .37704, + .04617, .02341, 4.22171, .40691, .05061, + .00000, .27411, .40777, + .04758, .02427, 5.06062, .43565, .08172, + .00000, .30381, .43661, + .04893, .02510, 5.92212, .46494, .11375, + .00000, .33400, .46599, + .05036, .02599, 6.89127, .49787, .15021, + .00000, .36787, .49902 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05160, .02675, 7.75841, .52806, .18217, + .00000, .39886, .52930, + .05279, .02748, 8.62515, .55848, .21448, + .00000, .43002, .55980, + .05374, .02806, 9.34204, .58354, .24155, + .00000, .45566, .58492, + .05574, .02929, 10.86053, .63946, .30072, + .00568, .51277, .64099, + .05746, .03033, 12.14089, .68986, .35355, + .06801, .56417, .69151, + .05937, .03150, 13.61435, .74891, .41546, + .14163, .62428, .75069, + .06136, .03272, 15.19092, .81285, .48235, + .21282, .68932, .81478, + .06316, .03381, 16.64857, .87291, .54506, + .27958, .75033, .87496 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06498, .03491, 18.14355, .93548, .61037, + .34874, .81385, .93767, + .06648, .03582, 19.39073, .98867, .66558, + .40645, .86780, .99096, + .06830, .03692, 20.90516, 1.05451, .73369, + .47734, .93454, 1.05694, + .06991, .03789, 22.25584, 1.11417, .79553, + .54203, .99499, 1.11672, + .07138, .03878, 23.50086, 1.16999, .85342, + .60262, 1.05151, 1.17265, + .07324, .03990, 25.05754, 1.24160, .92716, + .67893, 1.12399, 1.24439, + .07499, .04095, 26.52138, 1.31020, .99792, + .75240, 1.19339, 1.31313, + .07663, .04194, 27.89814, 1.37574, 1.06571, + .82307, 1.25967, 1.37879 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07826, .04291, 29.23520, 1.44135, 1.13302, + .89240, 1.32600, 1.44452, + .07985, .04386, 30.54384, 1.50657, 1.20014, + .96189, 1.39191, 1.50985, + .08136, .04476, 31.77293, 1.56898, 1.26436, + 1.02838, 1.45497, 1.57237, + .08278, .04561, 32.90271, 1.62779, 1.32467, + 1.09050, 1.51438, 1.63129, + .08420, .04645, 34.04403, 1.68786, 1.38651, + 1.15454, 1.57504, 1.69147, + .08560, .04728, 35.12527, 1.74648, 1.44650, + 1.21620, 1.63424, 1.75019, + .08693, .04807, 36.16378, 1.80322, 1.50487, + 1.27656, 1.69152, 1.80703, + .08818, .04881, 37.10635, 1.85630, 1.55915, + 1.33230, 1.74510, 1.86020 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .08945, .04956, 38.06282, 1.91062, 1.61490, + 1.38981, 1.79992, 1.91462, + .09070, .05030, 38.97885, 1.96391, 1.66946, + 1.44591, 1.85370, 1.96800, + .09189, .05100, 39.84321, 2.01497, 1.72177, + 1.49973, 1.90523, 2.01916, + .09302, .05166, 40.65842, 2.06375, 1.77180, + 1.55130, 1.95445, 2.06802, + .09416, .05233, 41.44955, 2.11244, 1.82156, + 1.60233, 2.00357, 2.11679 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05446, .02855, .80348, .25812, .00000, + .00000, .13976, .25915, + .05655, .02988, 1.36883, .27424, .00000, + .00000, .15687, .27543, + .05961, .03182, 2.28143, .30151, .00000, + .00000, .18552, .30294, + .06182, .03321, 2.99377, .32368, .01250, + .00000, .20864, .32528, + .06410, .03464, 3.73292, .34874, .04170, + .00000, .23467, .35052, + .06606, .03587, 4.40244, .37187, .06687, + .00000, .25861, .37381, + .06794, .03704, 5.07746, .39515, .09246, + .00000, .28265, .39724, + .06992, .03827, 5.82346, .42102, .12126, + .00000, .30930, .42326 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07163, .03933, 6.47934, .44443, .14618, + .00000, .33338, .44681, + .07327, .04035, 7.12537, .46778, .17114, + .00000, .35735, .47028, + .07457, .04115, 7.65349, .48685, .19189, + .00000, .37691, .48946, + .07731, .04285, 8.75111, .52890, .23669, + .00447, .41997, .53172, + .07965, .04428, 9.65441, .56625, .27613, + .05125, .45816, .56926, + .08225, .04587, 10.67371, .60942, .32176, + .10610, .50225, .61265, + .08494, .04752, 11.74264, .65552, .37039, + .15830, .54928, .65896, + .08737, .04899, 12.71214, .69825, .41538, + .20664, .59282, .70188 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .08981, .05047, 13.68897, .74222, .46168, + .25612, .63761, .74605, + .09182, .05169, 14.49043, .77915, .50037, + .29694, .67520, .78315, + .09425, .05315, 15.44767, .82437, .54757, + .34653, .72120, .82856, + .09639, .05443, 16.28812, .86490, .58997, + .39132, .76240, .86926, + .09834, .05560, 17.05211, .90245, .62930, + .43289, .80057, .90697, + .10080, .05707, 17.99090, .95008, .67882, + .48463, .84895, .95479, + .10310, .05844, 18.85958, .99521, .72583, + .53394, .89478, 1.00011, + .10525, .05972, 19.66506, 1.03790, .77044, + .58093, .93812, 1.04298 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10739, .06098, 20.43300, 1.08015, .81423, + .62649, .98101, 1.08540, + .10947, .06220, 21.17466, 1.12177, .85752, + .67178, 1.02324, 1.12719, + .11143, .06336, 21.86164, 1.16124, .89858, + .71473, 1.06328, 1.16682, + .11326, .06443, 22.48302, 1.19808, .93676, + .75449, 1.10065, 1.20381, + .11511, .06551, 23.10444, 1.23544, .97565, + .79520, 1.13854, 1.24131, + .11690, .06656, 23.68260, 1.27154, 1.01299, + .83400, 1.17514, 1.27755, + .11862, .06756, 24.23339, 1.30627, 1.04913, + .87179, 1.21036, 1.31242, + .12022, .06849, 24.72426, 1.33844, 1.08240, + .90634, 1.24297, 1.34472 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12184, .06943, 25.21845, 1.37118, 1.11640, + .94181, 1.27617, 1.37759, + .12343, .07035, 25.68434, 1.40303, 1.14940, + .97613, 1.30846, 1.40957, + .12494, .07122, 26.11907, 1.43336, 1.18083, + 1.00884, 1.33920, 1.44002, + .12637, .07205, 26.52517, 1.46215, 1.21074, + 1.04003, 1.36839, 1.46893, + .12781, .07287, 26.91218, 1.49065, 1.24021, + 1.07061, 1.39728, 1.49754 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07677, .04359, .88587, .22604, .00000, + .00000, .12277, .22826, + .07973, .04547, 1.38563, .24002, .00000, + .00000, .13759, .24250, + .08404, .04818, 2.15814, .26289, .00000, + .00000, .16165, .26576, + .08713, .05011, 2.74022, .28102, .01019, + .00000, .18061, .28416, + .09030, .05209, 3.32704, .30110, .03381, + .00000, .20153, .30452, + .09301, .05377, 3.84523, .31929, .05382, + .00000, .22042, .32295, + .09560, .05536, 4.35669, .33734, .07387, + .00000, .23913, .34122, + .09832, .05703, 4.91048, .35712, .09613, + .00000, .25960, .36125 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10066, .05846, 5.38763, .37476, .11513, + .00000, .27783, .37909, + .10290, .05983, 5.84963, .39214, .13395, + .00000, .29576, .39668, + .10467, .06090, 6.22220, .40622, .14946, + .00000, .31028, .41092, + .10838, .06315, 6.97908, .43681, .18248, + .00344, .34177, .44183, + .11152, .06504, 7.58371, .46354, .21109, + .03765, .36925, .46883, + .11501, .06713, 8.25011, .49395, .24370, + .07743, .40049, .49956, + .11859, .06926, 8.93215, .52590, .27791, + .11461, .43328, .53182, + .12181, .07117, 9.53643, .55505, .30909, + .14855, .46318, .56125 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12502, .07306, 10.13223, .58462, .34073, + .18281, .49348, .59109, + .12767, .07461, 10.61094, .60913, .36682, + .21072, .51859, .61583, + .13083, .07646, 11.17095, .63873, .39825, + .24419, .54891, .64571, + .13361, .07807, 11.65308, .66492, .42614, + .27407, .57573, .67214, + .13614, .07954, 12.08371, .68892, .45172, + .30151, .60030, .69636, + .13930, .08136, 12.60056, .71892, .48350, + .33522, .63101, .72663, + .14225, .08305, 13.06878, .74700, .51331, + .36696, .65973, .75496, + .14499, .08462, 13.49496, .77326, .54128, + .39689, .68661, .78146 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14770, .08616, 13.89084, .79887, .56836, + .42551, .71281, .80730, + .15032, .08765, 14.26642, .82383, .59486, + .45370, .73835, .83249, + .15279, .08904, 14.60765, .84725, .61974, + .48016, .76231, .85611, + .15509, .09033, 14.90894, .86884, .64260, + .50438, .78440, .87789, + .15739, .09162, 15.20620, .89056, .66572, + .52900, .80663, .89981, + .15962, .09286, 15.47498, .91127, .68764, + .55217, .82782, .92070, + .16173, .09404, 15.72837, .93106, .70871, + .57461, .84807, .94067, + .16371, .09513, 15.94728, .94916, .72788, + .59489, .86660, .95894 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16570, .09623, 16.16535, .96746, .74736, + .61559, .88534, .97741, + .16764, .09730, 16.36548, .98508, .76606, + .63541, .90337, .99518, + .16948, .09831, 16.54889, 1.00171, .78374, + .65417, .92041, 1.01197, + .17122, .09927, 16.71767, 1.01739, .80045, + .67195, .93648, 1.02780, + .17296, .10022, 16.87316, 1.03273, .81674, + .68919, .95219, 1.04328 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09480, .05629, .96861, .21076, .00000, + .00000, .11476, .21424, + .09842, .05855, 1.42563, .22347, .00000, + .00000, .12827, .22729, + .10367, .06179, 2.11509, .24384, .00000, + .00000, .14978, .24815, + .10741, .06409, 2.62269, .25972, .00895, + .00000, .16647, .26439, + .11124, .06642, 3.12497, .27709, .02962, + .00000, .18464, .28211, + .11449, .06839, 3.56125, .29262, .04692, + .00000, .20085, .29795, + .11759, .07025, 3.98582, .30789, .06409, + .00000, .21677, .31351, + .12084, .07221, 4.43935, .32448, .08300, + .00000, .23404, .33040 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12363, .07387, 4.82495, .33913, .09898, + .00000, .24926, .34531, + .12629, .07545, 5.19407, .35346, .11469, + .00000, .26412, .35988, + .12839, .07669, 5.48907, .36499, .12757, + .00000, .27609, .37161, + .13278, .07928, 6.07883, .38980, .15473, + .00292, .30179, .39682, + .13647, .08144, 6.53980, .41124, .17803, + .03096, .32398, .41860, + .14055, .08380, 7.03966, .43540, .20432, + .06339, .34895, .44313, + .14473, .08622, 7.54267, .46048, .23160, + .09336, .37486, .46859, + .14846, .08836, 7.98088, .48313, .25623, + .12045, .39825, .49157 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15218, .09048, 8.40615, .50587, .28098, + .14755, .42174, .51465, + .15523, .09221, 8.74256, .52455, .30123, + .16944, .44102, .53360, + .15886, .09426, 9.13012, .54690, .32539, + .19548, .46409, .55628, + .16204, .09604, 9.45880, .56651, .34666, + .21855, .48432, .57616, + .16493, .09765, 9.74832, .58433, .36604, + .23958, .50272, .59424, + .16852, .09965, 10.08963, .60640, .38988, + .26519, .52550, .61662, + .17186, .10149, 10.39363, .62686, .41205, + .28912, .54661, .63737, + .17495, .10319, 10.66623, .64584, .43271, + .31153, .56622, .65663 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .17798, .10484, 10.91364, .66417, .45252, + .33276, .58514, .67521, + .18092, .10644, 11.14490, .68189, .47178, + .35353, .60345, .69319, + .18367, .10793, 11.35151, .69839, .48972, + .37290, .62050, .70993, + .18622, .10930, 11.52981, .71347, .50608, + .39049, .63608, .72522, + .18878, .11067, 11.70373, .72855, .52254, + .40830, .65168, .74052, + .19124, .11198, 11.85636, .74278, .53800, + .42491, .66640, .75496, + .19357, .11322, 11.99902, .75632, .55281, + .44094, .68041, .76869, + .19574, .11436, 12.11831, .76858, .56616, + .45530, .69311, .78113 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19791, .11551, 12.23604, .78093, .57967, + .46991, .70590, .79366, + .20003, .11662, 12.34077, .79270, .59254, + .48380, .71811, .80561, + .20204, .11767, 12.43482, .80375, .60465, + .49688, .72957, .81682, + .20393, .11865, 12.51985, .81411, .61604, + .50922, .74032, .82734, + .20581, .11963, 12.59451, .82416, .62705, + .52111, .75074, .83754 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11076, .06769, 1.04567, .20133, .00000, + .00000, .10987, .20611, + .11493, .07023, 1.46950, .21310, .00000, + .00000, .12244, .21829, + .12093, .07385, 2.09799, .23168, .00000, + .00000, .14216, .23746, + .12520, .07641, 2.55261, .24600, .00812, + .00000, .15729, .25220, + .12955, .07900, 2.99596, .26148, .02680, + .00000, .17359, .26810, + .13323, .08117, 3.37627, .27521, .04229, + .00000, .18800, .28218, + .13673, .08323, 3.74234, .28861, .05756, + .00000, .20205, .29592, + .14040, .08537, 4.12930, .30306, .07425, + .00000, .21718, .31072 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14353, .08719, 4.45489, .31573, .08827, + .00000, .23042, .32368, + .14651, .08891, 4.76377, .32803, .10197, + .00000, .24328, .33627, + .14886, .09026, 5.00887, .33790, .11315, + .00000, .25358, .34636, + .15376, .09306, 5.49252, .35896, .13655, + .00257, .27554, .36787, + .15787, .09539, 5.86368, .37700, .15647, + .02670, .29435, .38630, + .16238, .09794, 6.26071, .39716, .17877, + .05448, .31534, .40688, + .16700, .10052, 6.65466, .41791, .20172, + .07993, .33693, .42805, + .17111, .10280, 6.99305, .43648, .22228, + .10276, .35626, .44699 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17519, .10505, 7.31705, .45499, .24280, + .12544, .37553, .46587, + .17852, .10687, 7.56992, .47007, .25947, + .14364, .39124, .48125, + .18248, .10903, 7.85721, .48798, .27922, + .16516, .40988, .49952, + .18593, .11089, 8.09765, .50358, .29650, + .18411, .42613, .51543, + .18905, .11257, 8.30685, .51768, .31215, + .20129, .44081, .52980, + .19293, .11464, 8.54915, .53498, .33127, + .22207, .45884, .54744, + .19652, .11655, 8.76156, .55090, .34893, + .24136, .47545, .56368, + .19984, .11830, 8.94935, .56558, .36530, + .25933, .49076, .57864 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20308, .12000, 9.11574, .57963, .38086, + .27624, .50542, .59296, + .20621, .12163, 9.26894, .59313, .39591, + .29269, .51952, .60673, + .20913, .12314, 9.40339, .60561, .40986, + .30796, .53257, .61946, + .21183, .12453, 9.51647, .61693, .42249, + .32174, .54441, .63100, + .21453, .12591, 9.62544, .62819, .43514, + .33564, .55621, .64250, + .21711, .12723, 9.71766, .63873, .44694, + .34852, .56725, .65324, + .21957, .12848, 9.80306, .64871, .45820, + .36090, .57772, .66343, + .22183, .12962, 9.87133, .65767, .46828, + .37192, .58714, .67258 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22411, .13076, 9.93796, .66667, .47845, + .38311, .59658, .68175, + .22631, .13186, 9.99460, .67517, .48808, + .39368, .60553, .69043, + .22839, .13290, 10.04397, .68311, .49709, + .40360, .61389, .69854, + .23036, .13387, 10.08745, .69051, .50554, + .41292, .62170, .70610, + .23230, .13482, 10.12261, .69763, .51365, + .42184, .62921, .71337 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .12543, .07816, 1.11475, .19460, .00000, + .00000, .10646, .20073, + .13005, .08092, 1.51125, .20561, .00000, + .00000, .11829, .21221, + .13669, .08484, 2.09086, .22278, .00000, + .00000, .13662, .23005, + .14140, .08759, 2.50405, .23589, .00750, + .00000, .15054, .24362, + .14618, .09036, 2.90211, .24994, .02468, + .00000, .16543, .25814, + .15022, .09268, 3.24004, .26229, .03883, + .00000, .17849, .27088, + .15405, .09487, 3.56238, .27428, .05269, + .00000, .19114, .28324, + .15805, .09715, 3.90016, .28713, .06777, + .00000, .20469, .29648 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16146, .09907, 4.18194, .29833, .08034, + .00000, .21648, .30801, + .16470, .10089, 4.44711, .30915, .09258, + .00000, .22787, .31914, + .16725, .10232, 4.65622, .31779, .10253, + .00000, .23696, .32802, + .17255, .10526, 5.06433, .33612, .12323, + .00232, .25622, .34684, + .17697, .10769, 5.37234, .35170, .14073, + .02365, .27258, .36285, + .18183, .11034, 5.69781, .36899, .16020, + .04813, .29073, .38058, + .18677, .11302, 6.01668, .38665, .18011, + .07038, .30927, .39870, + .19116, .11538, 6.28704, .40235, .19782, + .09022, .32575, .41479 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19550, .11769, 6.54269, .41788, .21539, + .10983, .34207, .43072, + .19903, .11956, 6.73986, .43046, .22958, + .12547, .35528, .44361, + .20323, .12176, 6.96067, .44529, .24630, + .14387, .37087, .45881, + .20687, .12366, 7.14308, .45813, .26085, + .15999, .38438, .47197, + .21016, .12536, 7.29991, .46966, .27397, + .17454, .39652, .48380, + .21422, .12745, 7.47826, .48373, .28989, + .19204, .41134, .49821, + .21798, .12937, 7.63209, .49657, .30451, + .20820, .42489, .51137, + .22144, .13112, 7.76618, .50834, .31800, + .22319, .43731, .52344 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22481, .13282, 7.88176, .51952, .33074, + .23721, .44913, .53490, + .22806, .13444, 7.98629, .53020, .34300, + .25080, .46043, .54585, + .23108, .13594, 8.07600, .54001, .35430, + .26335, .47083, .55592, + .23386, .13731, 8.14908, .54885, .36448, + .27461, .48020, .56497, + .23663, .13867, 8.21849, .55760, .37465, + .28594, .48950, .57396, + .23928, .13996, 8.27428, .56572, .38406, + .29638, .49814, .58228, + .24179, .14118, 8.32534, .57338, .39303, + .30639, .50631, .59015, + .24410, .14228, 8.36335, .58020, .40099, + .31525, .51359, .59715 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24642, .14339, 8.39982, .58701, .40901, + .32422, .52087, .60414, + .24866, .14446, 8.42838, .59341, .41656, + .33265, .52773, .61071, + .25077, .14545, 8.45183, .59935, .42359, + .34054, .53410, .61682, + .25275, .14638, 8.47137, .60487, .43017, + .34793, .54003, .62249, + .25471, .14729, 8.48404, .61011, .43643, + .35496, .54569, .62788 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15228, .09713, 1.23256, .18511, .00000, + .00000, .10182, .19400, + .15765, .10018, 1.58412, .19490, .00000, + .00000, .11247, .20434, + .16532, .10449, 2.08643, .20988, .00000, + .00000, .12869, .22010, + .17071, .10749, 2.43618, .22112, .00658, + .00000, .14081, .23188, + .17616, .11049, 2.76631, .23301, .02158, + .00000, .15359, .24431, + .18075, .11299, 3.04189, .24333, .03379, + .00000, .16466, .25508, + .18508, .11534, 3.30082, .25325, .04563, + .00000, .17529, .26541, + .18958, .11776, 3.56822, .26377, .05839, + .00000, .18657, .27637 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19341, .11980, 3.78801, .27284, .06893, + .00000, .19627, .28581, + .19703, .12172, 3.99218, .28153, .07911, + .00000, .20557, .29485, + .19986, .12322, 4.15156, .28843, .08733, + .00000, .21295, .30201, + .20574, .12629, 4.45607, .30290, .10429, + .00197, .22841, .31703, + .21061, .12881, 4.67877, .31505, .11846, + .01944, .24140, .32963, + .21594, .13154, 4.90894, .32837, .13407, + .03938, .25564, .34343, + .22132, .13427, 5.12923, .34180, .14984, + .05729, .27001, .35735, + .22607, .13666, 5.31145, .35358, .16373, + .07310, .28263, .36955 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23075, .13899, 5.47959, .36510, .17738, + .08859, .29498, .38147, + .23453, .14086, 5.60593, .37432, .18829, + .10084, .30489, .39103, + .23900, .14304, 5.74357, .38506, .20102, + .11511, .31644, .40215, + .24286, .14491, 5.85412, .39426, .21200, + .12752, .32634, .41167, + .24632, .14657, 5.94656, .40244, .22182, + .13865, .33517, .42014, + .25059, .14861, 6.04732, .41227, .23362, + .15189, .34580, .43032, + .25450, .15045, 6.13074, .42115, .24435, + .16403, .35542, .43950, + .25809, .15213, 6.20070, .42919, .25417, + .17520, .36416, .44784 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26156, .15373, 6.25651, .43670, .26333, + .18554, .37235, .45562, + .26489, .15525, 6.30448, .44381, .27208, + .19550, .38011, .46299, + .26797, .15665, 6.34288, .45026, .28009, + .20462, .38718, .46968, + .27079, .15792, 6.37051, .45597, .28722, + .21275, .39347, .47560, + .27359, .15917, 6.39528, .46159, .29430, + .22087, .39966, .48143, + .27626, .16034, 6.41057, .46670, .30078, + .22828, .40533, .48673, + .27877, .16145, 6.42374, .47150, .30692, + .23537, .41066, .49172, + .28106, .16244, 6.42876, .47569, .31231, + .24157, .41533, .49607 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28335, .16343, 6.43258, .47985, .31771, + .24782, .41999, .50040, + .28555, .16437, 6.43107, .48368, .32274, + .25366, .42430, .50438, + .28762, .16524, 6.42700, .48720, .32739, + .25908, .42826, .50803, + .28955, .16606, 6.42138, .49043, .33172, + .26413, .43192, .51140, + .29145, .16685, 6.41090, .49343, .33578, + .26889, .43535, .51452 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .18875, .12210, 1.36786, .17529, .00000, + .00000, .09728, .18838, + .19493, .12537, 1.66593, .18365, .00000, + .00000, .10660, .19736, + .20368, .12994, 2.08093, .19615, .00000, + .00000, .12048, .21074, + .20979, .13309, 2.36186, .20536, .00563, + .00000, .13066, .22055, + .21592, .13620, 2.62024, .21495, .01838, + .00000, .14123, .23072, + .22105, .13879, 2.83162, .22313, .02862, + .00000, .15025, .23940, + .22585, .14119, 3.02659, .23091, .03843, + .00000, .15880, .24762, + .23083, .14366, 3.22430, .23906, .04890, + .00000, .16778, .25623 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23504, .14572, 3.38374, .24599, .05744, + .00000, .17542, .26355, + .23900, .14764, 3.52939, .25256, .06562, + .00000, .18265, .27048, + .24209, .14914, 3.64163, .25774, .07219, + .00000, .18835, .27593, + .24845, .15218, 3.84964, .26844, .08557, + .00162, .20015, .28719, + .25368, .15464, 3.99452, .27730, .09660, + .01544, .20992, .29650, + .25935, .15728, 4.13930, .28685, .10860, + .03112, .22047, .30653, + .26503, .15989, 4.27297, .29631, .12058, + .04501, .23095, .31646, + .27002, .16215, 4.37920, .30447, .13099, + .05714, .24002, .32502 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27488, .16433, 4.47321, .31232, .14109, + .06888, .24877, .33327, + .27878, .16605, 4.54048, .31850, .14908, + .07807, .25569, .33975, + .28335, .16805, 4.60966, .32558, .15829, + .08868, .26365, .34717, + .28728, .16974, 4.66210, .33154, .16615, + .09782, .27038, .35343, + .29079, .17123, 4.70340, .33677, .17311, + .10593, .27630, .35892, + .29505, .17302, 4.74331, .34292, .18136, + .11549, .28330, .36537, + .29894, .17462, 4.77249, .34836, .18878, + .12416, .28955, .37109, + .30248, .17607, 4.79393, .35323, .19549, + .13208, .29514, .37619 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30586, .17742, 4.80535, .35764, .20166, + .13931, .30028, .38083, + .30908, .17870, 4.81198, .36174, .20750, + .14622, .30508, .38514, + .31205, .17985, 4.81352, .36539, .21278, + .15249, .30938, .38899, + .31473, .18088, 4.80908, .36854, .21743, + .15802, .31313, .39230, + .31738, .18189, 4.80272, .37160, .22200, + .16351, .31680, .39551, + .31987, .18282, 4.79049, .37427, .22611, + .16846, .32005, .39833, + .32221, .18368, 4.77817, .37676, .22999, + .17316, .32309, .40096, + .32432, .18444, 4.76165, .37883, .23334, + .17723, .32568, .40314 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32643, .18520, 4.74439, .38087, .23667, + .18131, .32823, .40529, + .32843, .18589, 4.72408, .38267, .23973, + .18508, .33053, .40720, + .33029, .18654, 4.70323, .38429, .24253, + .18855, .33262, .40891, + .33202, .18713, 4.68245, .38574, .24510, + .19177, .33452, .41045, + .33370, .18768, 4.65842, .38700, .24748, + .19476, .33623, .41179 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .24354, .15734, 1.51173, .16311, .00000, + .00000, .09205, .18313, + .25050, .16060, 1.74166, .16962, .00000, + .00000, .09966, .19029, + .26027, .16509, 2.05124, .17910, .00000, + .00000, .11072, .20064, + .26702, .16814, 2.25279, .18591, .00457, + .00000, .11863, .20805, + .27370, .17112, 2.43102, .19285, .01481, + .00000, .12669, .21555, + .27924, .17354, 2.57261, .19865, .02289, + .00000, .13342, .22181, + .28439, .17577, 2.69983, .20406, .03054, + .00000, .13972, .22764, + .28968, .17803, 2.82545, .20965, .03857, + .00000, .14623, .23364 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29411, .17990, 2.92367, .21430, .04505, + .00000, .15167, .23864, + .29824, .18162, 3.01097, .21865, .05117, + .00000, .15676, .24330, + .30146, .18294, 3.07689, .22203, .05605, + .00000, .16073, .24692, + .30799, .18560, 3.19218, .22889, .06583, + .00126, .16879, .25425, + .31330, .18770, 3.26445, .23442, .07377, + .01144, .17533, .26016, + .31897, .18990, 3.33144, .24025, .08227, + .02291, .18225, .26636, + .32458, .19204, 3.38808, .24586, .09061, + .03290, .18898, .27233, + .32943, .19384, 3.42824, .25056, .09773, + .04149, .19466, .27732 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33411, .19554, 3.45919, .25495, .10454, + .04970, .20002, .28198, + .33781, .19685, 3.47745, .25831, .10983, + .05604, .20417, .28555, + .34209, .19833, 3.49118, .26203, .11585, + .06326, .20883, .28949, + .34572, .19956, 3.49751, .26506, .12091, + .06941, .21269, .29271, + .34892, .20061, 3.49890, .26765, .12532, + .07481, .21600, .29544, + .35274, .20183, 3.49275, .27055, .13046, + .08108, .21981, .29851, + .35618, .20288, 3.48192, .27301, .13500, + .08670, .22311, .30112, + .35927, .20381, 3.46836, .27512, .13906, + .09176, .22599, .30335 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36216, .20463, 3.44891, .27690, .14271, + .09631, .22852, .30523, + .36487, .20538, 3.42740, .27848, .14610, + .10061, .23083, .30689, + .36733, .20604, 3.40443, .27981, .14913, + .10448, .23283, .30828, + .36950, .20659, 3.37961, .28084, .15172, + .10782, .23448, .30936, + .37164, .20711, 3.35395, .28181, .15426, + .11112, .23607, .31037, + .37358, .20755, 3.32548, .28253, .15647, + .11404, .23738, .31112, + .37541, .20796, 3.29841, .28317, .15855, + .11680, .23859, .31179, + .37700, .20827, 3.27016, .28358, .16028, + .11914, .23953, .31222 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37858, .20858, 3.24168, .28396, .16199, + .12147, .24043, .31261, + .38005, .20883, 3.21199, .28420, .16351, + .12359, .24117, .31285, + .38140, .20905, 3.18313, .28436, .16488, + .12552, .24181, .31301, + .38263, .20924, 3.15546, .28446, .16613, + .12729, .24235, .31310, + .38378, .20939, 3.12598, .28442, .16723, + .12890, .24276, .31304 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29336, .18680, 1.58371, .15266, .00000, + .00000, .08777, .17922, + .30065, .18979, 1.76177, .15774, .00000, + .00000, .09406, .18487, + .31073, .19384, 1.99454, .16496, .00000, + .00000, .10298, .19284, + .31765, .19653, 2.14082, .17003, .00381, + .00000, .10927, .19841, + .32439, .19912, 2.26471, .17513, .01231, + .00000, .11555, .20394, + .32993, .20119, 2.36043, .17930, .01893, + .00000, .12072, .20847, + .33504, .20306, 2.44416, .18312, .02512, + .00000, .12549, .21261, + .34025, .20494, 2.52450, .18700, .03156, + .00000, .13036, .21680 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34456, .20646, 2.58510, .19018, .03669, + .00000, .13437, .22022, + .34856, .20783, 2.63718, .19310, .04151, + .00000, .13807, .22335, + .35165, .20888, 2.67556, .19535, .04531, + .00000, .14093, .22576, + .35784, .21093, 2.73705, .19981, .05287, + .00102, .14666, .23052, + .36281, .21250, 2.76845, .20332, .05891, + .00894, .15121, .23424, + .36804, .21410, 2.79286, .20691, .06530, + .01782, .15594, .23805, + .37313, .21559, 2.80859, .21024, .07149, + .02545, .16042, .24156, + .37747, .21681, 2.81472, .21293, .07670, + .03194, .16412, .24438 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38160, .21790, 2.81410, .21535, .08161, + .03808, .16754, .24690, + .38480, .21871, 2.80846, .21712, .08538, + .04276, .17011, .24873, + .38844, .21957, 2.79581, .21897, .08962, + .04806, .17292, .25065, + .39148, .22024, 2.78085, .22041, .09313, + .05251, .17518, .25213, + .39411, .22079, 2.76439, .22158, .09616, + .05639, .17708, .25331, + .39719, .22135, 2.73843, .22275, .09963, + .06085, .17917, .25447, + .39990, .22180, 2.71106, .22366, .10265, + .06479, .18091, .25536, + .40230, .22215, 2.68356, .22436, .10531, + .06832, .18238, .25603 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40445, .22239, 2.65242, .22480, .10765, + .07144, .18356, .25643, + .40644, .22258, 2.62081, .22512, .10980, + .07437, .18459, .25668, + .40819, .22272, 2.58963, .22529, .11168, + .07697, .18543, .25679, + .40969, .22276, 2.55848, .22531, .11326, + .07920, .18605, .25672, + .41115, .22279, 2.52712, .22527, .11479, + .08138, .18662, .25660, + .41241, .22273, 2.49445, .22506, .11608, + .08327, .18699, .25630, + .41357, .22267, 2.46376, .22484, .11728, + .08505, .18732, .25600, + .41453, .22254, 2.43330, .22449, .11825, + .08654, .18748, .25555 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41547, .22241, 2.40291, .22412, .11919, + .08801, .18761, .25509, + .41629, .22223, 2.37218, .22366, .12000, + .08932, .18763, .25452, + .41701, .22204, 2.34280, .22317, .12072, + .09050, .18760, .25393, + .41765, .22183, 2.31499, .22268, .12135, + .09158, .18753, .25333, + .41820, .22158, 2.28614, .22208, .12187, + .09254, .18736, .25262 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .38221, .23327, 1.59627, .13352, .00000, + .00000, .07988, .17112, + .38914, .23528, 1.70094, .13652, .00000, + .00000, .08416, .17434, + .39847, .23789, 1.82972, .14060, .00000, + .00000, .09004, .17862, + .40470, .23950, 1.90420, .14336, .00278, + .00000, .09403, .18150, + .41065, .24094, 1.96018, .14600, .00890, + .00000, .09792, .18421, + .41541, .24202, 1.99999, .14808, .01358, + .00000, .10103, .18631, + .41971, .24293, 2.03209, .14992, .01789, + .00000, .10383, .18815, + .42399, .24380, 2.06003, .15172, .02231, + .00000, .10661, .18991 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42745, .24442, 2.07810, .15312, .02577, + .00000, .10883, .19126, + .43059, .24494, 2.09122, .15434, .02897, + .00000, .11084, .19242, + .43298, .24531, 2.09969, .15525, .03147, + .00000, .11236, .19327, + .43761, .24590, 2.10449, .15696, .03636, + .00072, .11530, .19481, + .44116, .24623, 2.09486, .15818, .04019, + .00592, .11754, .19586, + .44475, .24644, 2.07800, .15928, .04416, + .01172, .11976, .19676, + .44806, .24649, 2.05546, .16016, .04791, + .01661, .12173, .19738, + .45073, .24640, 2.03103, .16072, .05100, + .02069, .12326, .19770 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .45313, .24619, 2.00327, .16109, .05386, + .02449, .12457, .19780, + .45487, .24593, 1.97782, .16124, .05600, + .02734, .12547, .19770, + .45670, .24549, 1.94463, .16123, .05835, + .03051, .12635, .19739, + .45812, .24503, 1.91395, .16110, .06025, + .03314, .12698, .19698, + .45927, .24454, 1.88494, .16089, .06185, + .03540, .12745, .19651, + .46040, .24381, 1.84621, .16044, .06364, + .03794, .12784, .19569, + .46126, .24306, 1.80912, .15989, .06515, + .04016, .12805, .19481, + .46193, .24229, 1.77420, .15931, .06644, + .04211, .12816, .19390 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46234, .24143, 1.73808, .15857, .06753, + .04379, .12809, .19283, + .46262, .24055, 1.70291, .15780, .06850, + .04535, .12795, .19172, + .46275, .23968, 1.66964, .15700, .06932, + .04670, .12774, .19061, + .46270, .23879, 1.63795, .15617, .06997, + .04784, .12745, .18947, + .46260, .23789, 1.60664, .15531, .07058, + .04893, .12712, .18830, + .46233, .23694, 1.57542, .15438, .07105, + .04985, .12669, .18705, + .46204, .23604, 1.54643, .15348, .07147, + .05071, .12627, .18586, + .46162, .23512, 1.51871, .15256, .07178, + .05140, .12579, .18466 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .46117, .23420, 1.49134, .15163, .07206, + .05208, .12530, .18344, + .46062, .23324, 1.46435, .15067, .07228, + .05266, .12476, .18220, + .46004, .23232, 1.43893, .14974, .07245, + .05317, .12421, .18098, + .45945, .23143, 1.41517, .14884, .07258, + .05363, .12368, .17983, + .45875, .23049, 1.39108, .14787, .07265, + .05401, .12308, .17861 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45898, .26729, 1.51365, .11599, .00000, + .00000, .07222, .16119, + .46463, .26807, 1.57129, .11761, .00000, + .00000, .07508, .16255, + .47197, .26884, 1.63627, .11970, .00000, + .00000, .07886, .16420, + .47668, .26917, 1.66884, .12103, .00209, + .00000, .08136, .16519, + .48101, .26927, 1.68661, .12223, .00666, + .00000, .08373, .16599, + .48431, .26922, 1.69605, .12311, .01011, + .00000, .08556, .16649, + .48718, .26905, 1.70096, .12382, .01324, + .00000, .08716, .16684, + .48995, .26877, 1.70210, .12446, .01642, + .00000, .08870, .16708 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .49206, .26842, 1.69903, .12489, .01888, + .00000, .08989, .16716, + .49388, .26801, 1.69338, .12521, .02113, + .00000, .09092, .16712, + .49522, .26765, 1.68776, .12543, .02287, + .00000, .09169, .16704, + .49759, .26673, 1.66717, .12571, .02623, + .00053, .09309, .16670, + .49919, .26577, 1.64057, .12578, .02882, + .00417, .09408, .16623, + .50057, .26458, 1.60769, .12568, .03146, + .00820, .09498, .16551, + .50158, .26320, 1.57139, .12540, .03391, + .01155, .09567, .16457, + .50216, .26185, 1.53688, .12499, .03589, + .01430, .09610, .16356 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .50245, .26038, 1.50098, .12445, .03768, + .01684, .09638, .16240, + .50245, .25909, 1.47039, .12390, .03900, + .01872, .09650, .16134, + .50216, .25744, 1.43263, .12312, .04042, + .02078, .09648, .15994, + .50170, .25593, 1.39918, .12236, .04154, + .02247, .09637, .15863, + .50113, .25451, 1.36856, .12160, .04247, + .02391, .09620, .15737, + .50012, .25262, 1.32933, .12054, .04347, + .02550, .09585, .15566, + .49898, .25078, 1.29285, .11948, .04429, + .02686, .09543, .15400, + .49779, .24903, 1.25925, .11844, .04497, + .02804, .09498, .15242 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49634, .24721, 1.22557, .11732, .04551, + .02905, .09442, .15074, + .49483, .24542, 1.19330, .11620, .04597, + .02996, .09384, .14908, + .49328, .24370, 1.16330, .11511, .04634, + .03073, .09324, .14748, + .49167, .24202, 1.13527, .11403, .04661, + .03137, .09261, .14594, + .49003, .24034, 1.10785, .11295, .04684, + .03198, .09197, .14440, + .48822, .23865, 1.08104, .11185, .04700, + .03248, .09129, .14282, + .48650, .23705, 1.05632, .11081, .04713, + .03294, .09064, .14134, + .48473, .23550, 1.03306, .10978, .04719, + .03329, .08997, .13990 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .48294, .23394, 1.01023, .10875, .04724, + .03362, .08930, .13846, + .48108, .23236, .98800, .10771, .04724, + .03390, .08860, .13702, + .47927, .23086, .96722, .10671, .04722, + .03414, .08793, .13566, + .47752, .22943, .94793, .10576, .04718, + .03435, .08729, .13436, + .47566, .22796, .92861, .10478, .04710, + .03451, .08660, .13302 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .52475, .29179, 1.38959, .10021, .00000, + .00000, .06472, .14944, + .52854, .29122, 1.41690, .10095, .00000, + .00000, .06654, .14944, + .53309, .29009, 1.44226, .10176, .00000, + .00000, .06888, .14916, + .53576, .28908, 1.44977, .10222, .00160, + .00000, .07037, .14881, + .53794, .28783, 1.44567, .10256, .00509, + .00000, .07172, .14832, + .53940, .28661, 1.43826, .10272, .00769, + .00000, .07272, .14776, + .54051, .28538, 1.42853, .10277, .01004, + .00000, .07355, .14713, + .54140, .28399, 1.41570, .10274, .01239, + .00000, .07431, .14639 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .54189, .28269, 1.40198, .10264, .01419, + .00000, .07486, .14564, + .54214, .28138, 1.38713, .10247, .01583, + .00000, .07530, .14486, + .54225, .28032, 1.37479, .10231, .01709, + .00000, .07561, .14422, + .54202, .27794, 1.34295, .10184, .01949, + .00041, .07610, .14274, + .54140, .27580, 1.30985, .10133, .02131, + .00304, .07637, .14136, + .54035, .27330, 1.27159, .10063, .02314, + .00595, .07652, .13973, + .53886, .27062, 1.23140, .09979, .02481, + .00834, .07650, .13791, + .53719, .26812, 1.19474, .09893, .02614, + .01028, .07636, .13618 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .53525, .26554, 1.15784, .09798, .02732, + .01205, .07610, .13438, + .53342, .26334, 1.12730, .09713, .02817, + .01335, .07580, .13282, + .53095, .26063, 1.09051, .09604, .02907, + .01476, .07535, .13089, + .52860, .25821, 1.05856, .09504, .02976, + .01590, .07489, .12914, + .52633, .25597, 1.02979, .09409, .03032, + .01686, .07442, .12753, + .52318, .25309, .99369, .09282, .03090, + .01791, .07374, .12543, + .52005, .25036, .96064, .09161, .03137, + .01879, .07305, .12344, + .51704, .24780, .93060, .09045, .03174, + .01955, .07237, .12159 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .51382, .24519, .90098, .08924, .03200, + .02017, .07163, .11970, + .51060, .24264, .87291, .08805, .03221, + .02074, .07088, .11786, + .50747, .24022, .84708, .08692, .03237, + .02122, .07015, .11612, + .50439, .23792, .82322, .08583, .03246, + .02159, .06944, .11446, + .50129, .23563, .80002, .08475, .03254, + .02195, .06872, .11281, + .49809, .23335, .77761, .08366, .03255, + .02223, .06797, .11118, + .49506, .23121, .75703, .08263, .03256, + .02248, .06726, .10966, + .49209, .22915, .73788, .08164, .03251, + .02267, .06657, .10820 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48910, .22709, .71916, .08066, .03246, + .02285, .06588, .10674, + .48607, .22505, .70108, .07968, .03239, + .02298, .06517, .10531, + .48316, .22311, .68428, .07875, .03230, + .02309, .06450, .10395, + .48039, .22128, .66875, .07788, .03221, + .02319, .06386, .10268, + .47750, .21941, .65330, .07697, .03209, + .02325, .06320, .10138 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .59247, .31176, 1.21813, .08313, .00000, + .00000, .05576, .13295, + .59335, .30958, 1.22252, .08318, .00000, + .00000, .05670, .13177, + .59374, .30610, 1.21888, .08307, .00000, + .00000, .05782, .12990, + .59343, .30347, 1.20890, .08290, .00118, + .00000, .05848, .12850, + .59255, .30062, 1.19044, .08262, .00372, + .00000, .05903, .12695, + .59140, .29807, 1.17236, .08228, .00560, + .00000, .05937, .12558, + .59005, .29558, 1.15369, .08190, .00727, + .00000, .05961, .12421, + .58838, .29290, 1.13268, .08145, .00893, + .00000, .05979, .12272 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .58666, .29052, 1.11310, .08098, .01019, + .00000, .05984, .12142, + .58482, .28819, 1.09350, .08050, .01133, + .00000, .05985, .12011, + .58329, .28635, 1.07783, .08012, .01219, + .00000, .05983, .11905, + .57964, .28237, 1.04134, .07920, .01382, + .00030, .05968, .11680, + .57619, .27890, 1.00678, .07835, .01504, + .00211, .05945, .11486, + .57204, .27498, .96820, .07732, .01624, + .00412, .05909, .11266, + .56738, .27091, .92888, .07620, .01732, + .00574, .05863, .11033, + .56292, .26719, .89397, .07514, .01815, + .00705, .05812, .10819 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55825, .26343, .85959, .07402, .01888, + .00822, .05753, .10604, + .55420, .26031, .83168, .07306, .01939, + .00908, .05701, .10425, + .54913, .25650, .79867, .07185, .01992, + .00999, .05632, .10208, + .54453, .25316, .77042, .07078, .02031, + .01072, .05568, .10016, + .54023, .25013, .74530, .06980, .02062, + .01132, .05507, .09841, + .53460, .24623, .71428, .06852, .02092, + .01197, .05424, .09621, + .52923, .24261, .68626, .06731, .02114, + .01251, .05344, .09416, + .52415, .23927, .66106, .06618, .02131, + .01297, .05269, .09227 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51893, .23589, .63654, .06504, .02140, + .01334, .05190, .09037, + .51381, .23262, .61350, .06392, .02147, + .01366, .05113, .08854, + .50893, .22955, .59250, .06288, .02150, + .01392, .05040, .08684, + .50424, .22667, .57331, .06187, .02150, + .01413, .04969, .08525, + .49957, .22381, .55478, .06088, .02148, + .01432, .04898, .08369, + .49487, .22100, .53702, .05990, .02142, + .01446, .04826, .08215, + .49045, .21837, .52080, .05899, .02136, + .01458, .04760, .08072, + .48619, .21586, .50583, .05813, .02128, + .01466, .04695, .07937 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .48193, .21337, .49127, .05727, .02119, + .01474, .04631, .07803, + .47768, .21092, .47730, .05642, .02109, + .01479, .04567, .07672, + .47363, .20860, .46439, .05561, .02098, + .01483, .04507, .07549, + .46980, .20643, .45251, .05485, .02087, + .01486, .04450, .07434, + .46588, .20423, .44078, .05409, .02074, + .01486, .04392, .07318 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .64487, .32232, 1.05312, .06894, .00000, + .00000, .04743, .11549, + .64259, .31859, 1.04467, .06859, .00000, + .00000, .04781, .11362, + .63842, .31297, 1.02550, .06794, .00000, + .00000, .04817, .11087, + .63493, .30887, 1.00676, .06743, .00088, + .00000, .04833, .10885, + .63085, .30455, .98177, .06682, .00276, + .00000, .04839, .10681, + .62701, .30079, .95918, .06624, .00415, + .00000, .04835, .10501, + .62313, .29720, .93701, .06565, .00537, + .00000, .04826, .10327, + .61883, .29341, .91310, .06499, .00657, + .00000, .04810, .10144 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .61489, .29009, .89177, .06438, .00747, + .00000, .04790, .09985, + .61095, .28689, .87101, .06377, .00827, + .00000, .04768, .09832, + .60780, .28439, .85471, .06329, .00888, + .00000, .04750, .09711, + .60080, .27905, .81832, .06220, .01001, + .00023, .04702, .09456, + .59460, .27449, .78542, .06122, .01084, + .00151, .04655, .09243, + .58745, .26944, .74943, .06011, .01165, + .00293, .04596, .09004, + .57983, .26423, .71337, .05893, .01237, + .00406, .04529, .08758, + .57280, .25953, .68186, .05782, .01291, + .00496, .04464, .08538 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .56563, .25484, .65129, .05669, .01337, + .00576, .04395, .08319, + .55956, .25099, .62679, .05574, .01368, + .00634, .04335, .08140, + .55210, .24638, .59813, .05459, .01399, + .00694, .04260, .07926, + .54550, .24234, .57387, .05357, .01422, + .00743, .04192, .07740, + .53945, .23868, .55250, .05263, .01439, + .00782, .04129, .07573, + .53166, .23406, .52638, .05144, .01454, + .00823, .04046, .07364, + .52433, .22979, .50301, .05033, .01464, + .00857, .03968, .07172, + .51750, .22588, .48216, .04931, .01470, + .00886, .03894, .06997 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .51058, .22197, .46210, .04828, .01472, + .00908, .03820, .06822, + .50387, .21822, .44337, .04729, .01471, + .00927, .03748, .06656, + .49754, .21471, .42640, .04637, .01469, + .00942, .03680, .06502, + .49154, .21144, .41102, .04549, .01464, + .00953, .03616, .06360, + .48559, .20821, .39624, .04463, .01459, + .00963, .03552, .06221, + .47968, .20504, .38219, .04379, .01451, + .00970, .03489, .06085, + .47415, .20209, .36940, .04301, .01443, + .00976, .03430, .05959, + .46887, .19931, .35767, .04227, .01434, + .00979, .03375, .05841 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46362, .19656, .34631, .04153, .01425, + .00982, .03320, .05724, + .45843, .19386, .33546, .04082, .01415, + .00983, .03265, .05611, + .45350, .19132, .32549, .04014, .01404, + .00983, .03213, .05505, + .44887, .18894, .31634, .03951, .01394, + .00983, .03165, .05407, + .44415, .18653, .30736, .03888, .01383, + .00981, .03116, .05309 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .68293, .32538, .90558, .05729, .00000, + .00000, .03987, .09808, + .67735, .32030, .89011, .05673, .00000, + .00000, .03988, .09589, + .66854, .31281, .86292, .05583, .00000, + .00000, .03977, .09269, + .66185, .30745, .84007, .05515, .00067, + .00000, .03961, .09045, + .65455, .30192, .81264, .05440, .00208, + .00000, .03940, .08815, + .64804, .29716, .78864, .05372, .00311, + .00000, .03914, .08620, + .64170, .29265, .76565, .05304, .00402, + .00000, .03885, .08436, + .63489, .28792, .74139, .05230, .00490, + .00000, .03852, .08245 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62886, .28382, .72022, .05163, .00555, + .00000, .03821, .08080, + .62295, .27992, .69994, .05097, .00613, + .00000, .03787, .07924, + .61828, .27687, .68417, .05045, .00656, + .00000, .03759, .07802, + .60815, .27048, .64989, .04934, .00737, + .00017, .03695, .07548, + .59942, .26506, .61977, .04836, .00795, + .00109, .03638, .07336, + .58960, .25910, .58728, .04725, .00850, + .00211, .03572, .07104, + .57931, .25303, .55513, .04610, .00898, + .00292, .03499, .06869, + .56997, .24762, .52737, .04505, .00934, + .00355, .03430, .06661 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .56060, .24225, .50073, .04398, .00963, + .00411, .03361, .06457, + .55281, .23787, .47959, .04309, .00983, + .00451, .03301, .06291, + .54334, .23266, .45509, .04204, .01001, + .00492, .03227, .06094, + .53503, .22814, .43451, .04112, .01014, + .00524, .03162, .05926, + .52749, .22405, .41650, .04028, .01023, + .00551, .03103, .05775, + .51791, .21895, .39473, .03921, .01029, + .00578, .03027, .05588, + .50899, .21426, .37537, .03822, .01033, + .00600, .02956, .05419, + .50075, .20996, .35821, .03732, .01034, + .00617, .02890, .05265 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49249, .20572, .34184, .03641, .01032, + .00631, .02824, .05114, + .48452, .20166, .32665, .03556, .01029, + .00642, .02761, .04970, + .47705, .19789, .31296, .03476, .01024, + .00651, .02702, .04837, + .47003, .19439, .30063, .03403, .01018, + .00657, .02646, .04714, + .46311, .19095, .28884, .03330, .01012, + .00662, .02592, .04595, + .45629, .18758, .27769, .03258, .01004, + .00665, .02538, .04480, + .44995, .18447, .26758, .03191, .00996, + .00668, .02489, .04375, + .44393, .18153, .25836, .03129, .00988, + .00668, .02442, .04276 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43796, .17864, .24946, .03068, .00979, + .00669, .02395, .04179, + .43208, .17581, .24101, .03008, .00970, + .00668, .02350, .04085, + .42652, .17316, .23326, .02953, .00961, + .00667, .02307, .03998, + .42132, .17069, .22618, .02901, .00952, + .00665, .02267, .03917, + .41607, .16820, .21925, .02848, .00943, + .00663, .02227, .03837 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .70766, .32249, .77820, .04779, .00000, + .00000, .03310, .08149, + .69891, .31619, .75893, .04709, .00000, + .00000, .03291, .07924, + .68560, .30712, .72783, .04605, .00000, + .00000, .03254, .07599, + .67583, .30073, .70337, .04530, .00051, + .00000, .03224, .07371, + .66555, .29416, .67551, .04447, .00158, + .00000, .03186, .07147, + .65656, .28858, .65162, .04374, .00236, + .00000, .03150, .06956, + .64794, .28332, .62909, .04303, .00303, + .00000, .03113, .06777, + .63882, .27785, .60563, .04227, .00368, + .00000, .03072, .06593 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .63085, .27315, .58545, .04159, .00416, + .00000, .03034, .06438, + .62315, .26871, .56635, .04094, .00458, + .00000, .02996, .06290, + .61708, .26527, .55161, .04044, .00490, + .00000, .02965, .06175, + .60424, .25802, .52013, .03934, .00547, + .00013, .02899, .05938, + .59327, .25198, .49304, .03840, .00587, + .00080, .02840, .05744, + .58109, .24537, .46418, .03736, .00626, + .00154, .02773, .05533, + .56855, .23867, .43593, .03628, .00658, + .00212, .02702, .05320, + .55728, .23275, .41176, .03531, .00682, + .00257, .02637, .05135 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54604, .22694, .38876, .03434, .00701, + .00297, .02571, .04954, + .53681, .22221, .37065, .03355, .00713, + .00324, .02516, .04808, + .52573, .21658, .34983, .03257, .00723, + .00352, .02449, .04639, + .51607, .21174, .33248, .03174, .00730, + .00374, .02391, .04493, + .50734, .20741, .31741, .03100, .00734, + .00392, .02338, .04362, + .49634, .20201, .29929, .03007, .00736, + .00410, .02271, .04203, + .48618, .19708, .28331, .02922, .00736, + .00424, .02209, .04058, + .47684, .19260, .26924, .02846, .00735, + .00435, .02153, .03925 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46756, .18818, .25588, .02769, .00731, + .00443, .02096, .03799, + .45867, .18396, .24356, .02695, .00727, + .00450, .02042, .03679, + .45041, .18005, .23253, .02625, .00721, + .00455, .01993, .03570, + .44267, .17645, .22262, .02562, .00716, + .00458, .01946, .03469, + .43505, .17293, .21319, .02501, .00709, + .00461, .01901, .03370, + .42759, .16949, .20435, .02441, .00702, + .00462, .01856, .03278, + .42066, .16631, .19636, .02386, .00695, + .00462, .01815, .03193, + .41413, .16334, .18911, .02335, .00688, + .00462, .01776, .03112 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40768, .16042, .18212, .02285, .00680, + .00461, .01737, .03033, + .40136, .15756, .17551, .02235, .00672, + .00460, .01701, .02958, + .39542, .15489, .16946, .02189, .00665, + .00458, .01667, .02888, + .38988, .15240, .16395, .02146, .00657, + .00456, .01635, .02823, + .38428, .14992, .15859, .02103, .00650, + .00454, .01603, .02759 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .72023, .31480, .66992, .03994, .00000, + .00000, .02719, .06631, + .70842, .30756, .64866, .03921, .00000, + .00000, .02690, .06414, + .69097, .29717, .61583, .03810, .00000, + .00000, .02640, .06107, + .67842, .28991, .59102, .03729, .00039, + .00000, .02601, .05898, + .66540, .28255, .56373, .03644, .00121, + .00000, .02556, .05692, + .65416, .27635, .54067, .03571, .00179, + .00000, .02517, .05516, + .64350, .27054, .51917, .03500, .00230, + .00000, .02477, .05353, + .63234, .26451, .49706, .03425, .00278, + .00000, .02434, .05187 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .62270, .25936, .47826, .03360, .00313, + .00000, .02396, .05046, + .61346, .25451, .46058, .03297, .00344, + .00000, .02358, .04913, + .60623, .25076, .44702, .03249, .00367, + .00000, .02329, .04811, + .59101, .24295, .41854, .03146, .00408, + .00010, .02263, .04602, + .57819, .23645, .39444, .03059, .00437, + .00059, .02208, .04431, + .56409, .22941, .36900, .02961, .00463, + .00113, .02146, .04249, + .54966, .22232, .34434, .02863, .00485, + .00155, .02080, .04066, + .53682, .21610, .32345, .02776, .00500, + .00187, .02021, .03906 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52413, .21000, .30370, .02690, .00512, + .00215, .01962, .03752, + .51377, .20509, .28825, .02620, .00519, + .00234, .01914, .03627, + .50140, .19927, .27066, .02535, .00525, + .00254, .01856, .03483, + .49071, .19427, .25610, .02463, .00528, + .00269, .01805, .03362, + .48109, .18981, .24353, .02399, .00530, + .00281, .01759, .03254, + .46905, .18431, .22852, .02318, .00530, + .00293, .01701, .03123, + .45802, .17929, .21536, .02244, .00528, + .00302, .01650, .03004, + .44795, .17472, .20383, .02176, .00525, + .00309, .01603, .02897 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43798, .17026, .19299, .02111, .00521, + .00314, .01555, .02793, + .42846, .16601, .18303, .02048, .00516, + .00318, .01511, .02697, + .41964, .16209, .17413, .01990, .00511, + .00320, .01469, .02610, + .41144, .15848, .16621, .01938, .00506, + .00322, .01430, .02529, + .40339, .15496, .15869, .01887, .00500, + .00323, .01392, .02451, + .39555, .15155, .15166, .01838, .00494, + .00323, .01357, .02375, + .38830, .14841, .14533, .01793, .00488, + .00322, .01325, .02305, + .38150, .14547, .13962, .01749, .00482, + .00321, .01293, .02243 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37480, .14259, .13413, .01706, .00476, + .00320, .01262, .02182, + .36825, .13979, .12896, .01666, .00469, + .00319, .01233, .02123, + .36210, .13718, .12425, .01629, .00463, + .00317, .01205, .02068, + .35637, .13475, .11996, .01595, .00457, + .00315, .01179, .02017, + .35060, .13233, .11581, .01560, .00451, + .00313, .01153, .01967 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .72182, .30332, .57821, .03339, .00000, + .00000, .02210, .05289, + .70723, .29535, .55595, .03264, .00000, + .00000, .02173, .05094, + .68602, .28400, .52257, .03152, .00000, + .00000, .02118, .04819, + .67095, .27614, .49814, .03075, .00030, + .00000, .02076, .04631, + .65552, .26821, .47195, .02994, .00092, + .00000, .02032, .04445, + .64237, .26154, .45007, .02922, .00137, + .00000, .01992, .04292, + .62999, .25534, .42989, .02854, .00174, + .00000, .01953, .04151, + .61709, .24894, .40933, .02783, .00210, + .00000, .01911, .04007 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60602, .24351, .39200, .02722, .00236, + .00000, .01874, .03885, + .59549, .23840, .37585, .02664, .00259, + .00000, .01839, .03772, + .58730, .23446, .36354, .02618, .00275, + .00000, .01811, .03685, + .57018, .22629, .33797, .02523, .00305, + .00008, .01751, .03508, + .55586, .21956, .31669, .02444, .00325, + .00044, .01701, .03362, + .54020, .21230, .29443, .02358, .00343, + .00083, .01646, .03207, + .52436, .20500, .27303, .02269, .00358, + .00114, .01588, .03056, + .51038, .19861, .25503, .02190, .00368, + .00137, .01537, .02925 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49663, .19241, .23817, .02113, .00375, + .00157, .01486, .02798, + .48545, .18744, .22512, .02052, .00380, + .00170, .01444, .02698, + .47220, .18155, .21032, .01979, .00382, + .00184, .01394, .02580, + .46080, .17652, .19814, .01916, .00384, + .00194, .01351, .02482, + .45060, .17206, .18767, .01860, .00384, + .00202, .01314, .02396, + .43791, .16655, .17529, .01790, .00382, + .00210, .01267, .02290, + .42631, .16155, .16449, .01727, .00380, + .00216, .01223, .02195, + .41577, .15703, .15508, .01672, .00377, + .00220, .01183, .02111 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40541, .15262, .14629, .01616, .00373, + .00223, .01145, .02029, + .39556, .14845, .13824, .01563, .00368, + .00225, .01109, .01952, + .38645, .14463, .13109, .01516, .00364, + .00226, .01076, .01882, + .37802, .14111, .12475, .01472, .00359, + .00227, .01046, .01819, + .36979, .13767, .11876, .01430, .00354, + .00227, .01016, .01757, + .36179, .13436, .11319, .01389, .00349, + .00227, .00986, .01700, + .35441, .13132, .10818, .01351, .00344, + .00226, .00959, .01649, + .34751, .12849, .10369, .01315, .00339, + .00225, .00935, .01599 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34074, .12571, .09939, .01281, .00334, + .00224, .00912, .01551, + .33414, .12302, .09535, .01247, .00329, + .00222, .00889, .01505, + .32797, .12051, .09168, .01216, .00324, + .00221, .00867, .01463, + .32223, .11818, .08834, .01188, .00319, + .00219, .00847, .01425, + .31648, .11587, .08512, .01160, .00314, + .00217, .00827, .01387 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .71325, .28931, .50013, .02813, .00000, + .00000, .01755, .04121, + .69629, .28076, .47740, .02736, .00000, + .00000, .01721, .03952, + .67189, .26870, .44432, .02626, .00000, + .00000, .01669, .03716, + .65477, .26038, .42055, .02548, .00023, + .00000, .01630, .03556, + .63738, .25203, .39572, .02466, .00071, + .00000, .01589, .03402, + .62269, .24505, .37520, .02397, .00104, + .00000, .01552, .03275, + .60890, .23860, .35642, .02333, .00133, + .00000, .01516, .03156, + .59460, .23200, .33745, .02267, .00159, + .00000, .01480, .03035 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58243, .22639, .32164, .02210, .00179, + .00000, .01446, .02936, + .57090, .22114, .30703, .02157, .00195, + .00000, .01415, .02842, + .56195, .21710, .29595, .02115, .00207, + .00000, .01390, .02769, + .54339, .20878, .27319, .02029, .00228, + .00006, .01339, .02624, + .52799, .20194, .25454, .01956, .00242, + .00032, .01296, .02506, + .51129, .19458, .23515, .01875, .00255, + .00062, .01249, .02382, + .49445, .18725, .21668, .01797, .00264, + .00084, .01200, .02259, + .47963, .18088, .20132, .01730, .00271, + .00100, .01157, .02153 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46516, .17470, .18702, .01663, .00275, + .00114, .01114, .02053, + .45351, .16972, .17600, .01607, .00278, + .00124, .01079, .01976, + .43972, .16392, .16361, .01544, .00279, + .00133, .01038, .01883, + .42789, .15898, .15349, .01491, .00279, + .00140, .01003, .01804, + .41737, .15460, .14484, .01444, .00278, + .00146, .00973, .01736, + .40435, .14921, .13466, .01386, .00276, + .00151, .00935, .01652, + .39250, .14435, .12584, .01333, .00273, + .00154, .00900, .01579, + .38175, .13998, .11819, .01285, .00270, + .00157, .00868, .01513 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37125, .13571, .11107, .01238, .00267, + .00159, .00837, .01451, + .36131, .13168, .10461, .01195, .00263, + .00160, .00808, .01392, + .35217, .12800, .09890, .01155, .00259, + .00160, .00782, .01338, + .34373, .12461, .09386, .01118, .00255, + .00160, .00758, .01291, + .33550, .12132, .08911, .01082, .00251, + .00160, .00735, .01245, + .32754, .11817, .08470, .01047, .00247, + .00160, .00712, .01202, + .32021, .11527, .08076, .01016, .00243, + .00159, .00691, .01162, + .31337, .11258, .07723, .00988, .00239, + .00158, .00672, .01125 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30667, .10995, .07385, .00961, .00235, + .00157, .00654, .01089, + .30017, .10741, .07070, .00935, .00231, + .00155, .00636, .01055, + .29410, .10506, .06784, .00910, .00227, + .00154, .00620, .01023, + .28847, .10287, .06526, .00887, .00223, + .00153, .00604, .00994, + .28285, .10069, .06278, .00865, .00220, + .00151, .00589, .00965 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .69653, .27268, .43234, .02327, .00000, + .00000, .01399, .03163, + .67751, .26381, .40975, .02256, .00000, + .00000, .01365, .03020, + .65044, .25132, .37734, .02150, .00000, + .00000, .01313, .02829, + .63156, .24279, .35464, .02078, .00017, + .00000, .01275, .02697, + .61259, .23425, .33135, .02003, .00053, + .00000, .01237, .02570, + .59663, .22716, .31231, .01941, .00079, + .00000, .01206, .02462, + .58174, .22061, .29506, .01883, .00100, + .00000, .01174, .02365, + .56641, .21391, .27778, .01822, .00119, + .00000, .01140, .02269 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55342, .20826, .26347, .01771, .00133, + .00000, .01112, .02186, + .54115, .20300, .25036, .01724, .00145, + .00000, .01085, .02110, + .53165, .19897, .24048, .01688, .00154, + .00000, .01065, .02051, + .51211, .19061, .22041, .01609, .00169, + .00005, .01019, .01938, + .49593, .18383, .20415, .01547, .00179, + .00024, .00983, .01843, + .47851, .17657, .18743, .01478, .00187, + .00045, .00942, .01745, + .46108, .16934, .17163, .01409, .00194, + .00061, .00900, .01650, + .44583, .16309, .15858, .01350, .00198, + .00073, .00865, .01566 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43098, .15707, .14654, .01295, .00200, + .00083, .00831, .01486, + .41904, .15226, .13732, .01250, .00201, + .00089, .00803, .01422, + .40504, .14661, .12703, .01195, .00201, + .00096, .00770, .01353, + .39310, .14183, .11868, .01149, .00201, + .00101, .00741, .01295, + .38248, .13761, .11158, .01109, .00200, + .00104, .00716, .01244, + .36940, .13244, .10326, .01061, .00198, + .00107, .00686, .01178, + .35757, .12778, .09611, .01017, .00195, + .00110, .00658, .01122, + .34689, .12360, .08996, .00977, .00193, + .00111, .00633, .01072 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33647, .11955, .08424, .00938, .00189, + .00112, .00609, .01026, + .32662, .11574, .07907, .00902, .00186, + .00113, .00586, .00981, + .31758, .11226, .07453, .00872, .00183, + .00113, .00565, .00941, + .30930, .10907, .07053, .00842, .00180, + .00113, .00546, .00904, + .30125, .10598, .06678, .00813, .00177, + .00112, .00528, .00869, + .29348, .10302, .06332, .00786, .00173, + .00112, .00511, .00837, + .28633, .10031, .06023, .00761, .00170, + .00111, .00496, .00808, + .27970, .09779, .05748, .00738, .00167, + .00110, .00481, .00780 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27321, .09534, .05485, .00715, .00164, + .00109, .00466, .00753, + .26693, .09297, .05241, .00694, .00161, + .00108, .00452, .00729, + .26109, .09078, .05020, .00675, .00158, + .00107, .00439, .00707, + .25568, .08875, .04821, .00657, .00155, + .00106, .00427, .00687, + .25028, .08674, .04629, .00639, .00152, + .00104, .00416, .00666 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .67226, .25470, .37318, .01921, .00000, + .00000, .01094, .02376, + .65164, .24566, .35098, .01854, .00000, + .00000, .01064, .02261, + .62249, .23301, .31975, .01755, .00000, + .00000, .01018, .02105, + .60231, .22441, .29831, .01692, .00013, + .00000, .00985, .01998, + .58220, .21582, .27668, .01622, .00040, + .00000, .00952, .01897, + .56535, .20871, .25921, .01565, .00059, + .00000, .00924, .01815, + .54975, .20216, .24350, .01511, .00075, + .00000, .00897, .01739, + .53374, .19549, .22790, .01455, .00089, + .00000, .00869, .01662 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52017, .18992, .21511, .01411, .00099, + .00000, .00845, .01598, + .50745, .18472, .20349, .01369, .00108, + .00000, .00822, .01539, + .49766, .18073, .19479, .01336, .00114, + .00000, .00803, .01494, + .47749, .17258, .17722, .01269, .00124, + .00004, .00765, .01407, + .46096, .16595, .16320, .01215, .00131, + .00017, .00735, .01333, + .44320, .15889, .14889, .01157, .00137, + .00033, .00704, .01255, + .42550, .15191, .13549, .01100, .00141, + .00044, .00670, .01180, + .41013, .14587, .12453, .01050, .00143, + .00053, .00640, .01118 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39526, .14005, .11449, .01002, .00145, + .00060, .00612, .01059, + .38333, .13542, .10684, .00964, .00145, + .00064, .00591, .01012, + .36940, .13004, .09834, .00918, .00145, + .00069, .00565, .00958, + .35755, .12550, .09150, .00880, .00144, + .00072, .00542, .00914, + .34706, .12149, .08572, .00847, .00143, + .00074, .00522, .00875, + .33422, .11659, .07898, .00805, .00141, + .00076, .00497, .00828, + .32260, .11221, .07322, .00769, .00139, + .00078, .00476, .00785, + .31213, .10829, .06829, .00738, .00137, + .00079, .00457, .00746 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30197, .10449, .06375, .00708, .00134, + .00079, .00438, .00712, + .29241, .10092, .05966, .00679, .00131, + .00079, .00421, .00681, + .28368, .09766, .05607, .00653, .00129, + .00079, .00405, .00653, + .27569, .09470, .05292, .00629, .00126, + .00079, .00390, .00627, + .26795, .09185, .04996, .00606, .00124, + .00079, .00375, .00602, + .26051, .08911, .04726, .00584, .00121, + .00078, .00363, .00578, + .25368, .08660, .04486, .00564, .00119, + .00077, .00352, .00556, + .24732, .08429, .04273, .00548, .00116, + .00077, .00341, .00535 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24112, .08204, .04070, .00532, .00114, + .00076, .00330, .00514, + .23516, .07988, .03881, .00514, .00112, + .00075, .00319, .00497, + .22964, .07787, .03710, .00497, .00110, + .00074, .00309, .00481, + .22454, .07602, .03557, .00481, .00107, + .00073, .00300, .00467, + .21945, .07419, .03410, .00468, .00105, + .00072, .00291, .00452 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .64184, .23569, .32068, .01565, .00000, + .00000, .00847, .01754, + .62000, .22664, .29921, .01505, .00000, + .00000, .00821, .01661, + .58941, .21403, .26962, .01416, .00000, + .00000, .00781, .01539, + .56848, .20540, .24963, .01352, .00010, + .00000, .00754, .01460, + .54760, .19693, .22985, .01290, .00030, + .00000, .00727, .01381, + .53014, .19001, .21398, .01244, .00044, + .00000, .00703, .01314, + .51407, .18361, .19985, .01198, .00055, + .00000, .00679, .01255, + .49769, .17709, .18596, .01149, .00066, + .00000, .00654, .01199 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48387, .17166, .17468, .01110, .00073, + .00000, .00634, .01151, + .47094, .16662, .16447, .01075, .00079, + .00000, .00615, .01104, + .46100, .16276, .15685, .01049, .00083, + .00000, .00600, .01068, + .44070, .15485, .14169, .00991, .00090, + .00003, .00570, .01001, + .42412, .14847, .12970, .00943, .00095, + .00013, .00545, .00947, + .40636, .14171, .11761, .00895, .00099, + .00024, .00520, .00889, + .38877, .13504, .10638, .00846, .00102, + .00032, .00493, .00834, + .37357, .12930, .09724, .00803, .00103, + .00038, .00469, .00788 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .35893, .12378, .08892, .00762, .00104, + .00043, .00446, .00746, + .34724, .11942, .08265, .00730, .00104, + .00046, .00429, .00709, + .33359, .11437, .07574, .00696, .00103, + .00049, .00409, .00668, + .32203, .11010, .07020, .00665, .00102, + .00051, .00392, .00635, + .31186, .10635, .06553, .00636, .00101, + .00052, .00376, .00608, + .29941, .10178, .06012, .00604, .00100, + .00054, .00358, .00573, + .28820, .09770, .05552, .00576, .00098, + .00055, .00341, .00543, + .27814, .09406, .05160, .00551, .00096, + .00055, .00326, .00516 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .26843, .09056, .04801, .00527, .00094, + .00055, .00312, .00489, + .25931, .08728, .04479, .00505, .00092, + .00055, .00299, .00465, + .25100, .08428, .04197, .00485, .00090, + .00055, .00287, .00444, + .24341, .08157, .03952, .00465, .00088, + .00055, .00276, .00425, + .23608, .07895, .03723, .00446, .00086, + .00055, .00266, .00408, + .22904, .07644, .03514, .00430, .00084, + .00054, .00255, .00391, + .22259, .07416, .03329, .00415, .00082, + .00053, .00246, .00375, + .21663, .07206, .03165, .00401, .00080, + .00053, .00238, .00361 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21081, .07002, .03009, .00388, .00079, + .00052, .00230, .00348, + .20523, .06805, .02864, .00375, .00077, + .00051, .00222, .00336, + .20007, .06623, .02734, .00363, .00075, + .00051, .00214, .00324, + .19531, .06456, .02617, .00352, .00074, + .00050, .00208, .00314, + .19059, .06290, .02505, .00341, .00072, + .00049, .00202, .00303 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60639, .21611, .27368, .01250, .00000, + .00000, .00651, .01274, + .58383, .20716, .25329, .01197, .00000, + .00000, .00627, .01204, + .55238, .19479, .22570, .01118, .00000, + .00000, .00594, .01109, + .53092, .18642, .20735, .01067, .00007, + .00000, .00572, .01046, + .50966, .17822, .18945, .01013, .00022, + .00000, .00546, .00987, + .49207, .17144, .17531, .00970, .00032, + .00000, .00525, .00939, + .47587, .16526, .16280, .00931, .00040, + .00000, .00507, .00894, + .45937, .15902, .15055, .00892, .00048, + .00000, .00488, .00850 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44554, .15380, .14072, .00859, .00053, + .00000, .00471, .00814, + .43266, .14897, .13189, .00829, .00057, + .00000, .00456, .00780, + .42279, .14527, .12534, .00806, .00060, + .00000, .00445, .00752, + .40268, .13776, .11240, .00756, .00065, + .00002, .00420, .00705, + .38634, .13169, .10231, .00716, .00068, + .00009, .00400, .00665, + .36892, .12528, .09219, .00676, .00071, + .00017, .00379, .00623, + .35173, .11900, .08288, .00638, .00072, + .00023, .00358, .00582, + .33693, .11361, .07536, .00604, .00073, + .00027, .00341, .00548 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32272, .10847, .06857, .00571, .00073, + .00030, .00324, .00514, + .31139, .10441, .06349, .00548, .00073, + .00032, .00310, .00488, + .29825, .09971, .05789, .00519, .00073, + .00034, .00294, .00460, + .28718, .09575, .05344, .00494, .00072, + .00036, .00280, .00437, + .27746, .09229, .04972, .00473, .00071, + .00037, .00268, .00416, + .26561, .08808, .04544, .00447, .00069, + .00038, .00255, .00391, + .25497, .08433, .04181, .00425, .00068, + .00038, .00243, .00369, + .24544, .08100, .03872, .00404, .00067, + .00038, .00231, .00350 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23630, .07778, .03593, .00385, .00065, + .00038, .00220, .00332, + .22774, .07479, .03342, .00366, .00064, + .00038, .00211, .00315, + .21995, .07210, .03125, .00350, .00062, + .00038, .00202, .00300, + .21283, .06964, .02936, .00337, .00061, + .00038, .00194, .00286, + .20595, .06727, .02761, .00326, .00059, + .00038, .00186, .00273, + .19943, .06502, .02599, .00311, .00058, + .00037, .00179, .00262, + .19348, .06296, .02456, .00298, .00056, + .00037, .00172, .00253, + .18797, .06107, .02331, .00287, .00055, + .00036, .00165, .00242 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18262, .05924, .02213, .00277, .00054, + .00036, .00159, .00231, + .17746, .05749, .02103, .00267, .00052, + .00035, .00153, .00222, + .17270, .05586, .02004, .00258, .00051, + .00035, .00148, .00215, + .16831, .05437, .01915, .00250, .00050, + .00034, .00144, .00208, + .16400, .05290, .01831, .00241, .00049, + .00034, .00139, .00201 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .56692, .19656, .23160, .00999, .00000, + .00000, .00486, .00898, + .54405, .18785, .21260, .00950, .00000, + .00000, .00467, .00848, + .51233, .17588, .18729, .00881, .00000, + .00000, .00440, .00778, + .49080, .16780, .17076, .00835, .00005, + .00000, .00420, .00736, + .46959, .15992, .15483, .00792, .00016, + .00000, .00403, .00688, + .45209, .15345, .14238, .00754, .00023, + .00000, .00386, .00654, + .43606, .14754, .13146, .00720, .00029, + .00000, .00371, .00622, + .41980, .14158, .12087, .00687, .00034, + .00000, .00357, .00589 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40618, .13666, .11243, .00661, .00038, + .00000, .00344, .00563, + .39356, .13208, .10489, .00635, .00041, + .00000, .00331, .00539, + .38393, .12859, .09932, .00614, .00043, + .00000, .00321, .00521, + .36432, .12153, .08843, .00575, .00046, + .00002, .00302, .00483, + .34845, .11585, .08003, .00544, .00048, + .00006, .00288, .00454, + .33160, .10988, .07167, .00512, .00050, + .00012, .00271, .00424, + .31508, .10403, .06406, .00478, .00051, + .00016, .00255, .00396, + .30092, .09903, .05796, .00450, .00051, + .00019, .00242, .00373 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28734, .09428, .05248, .00425, .00051, + .00021, .00229, .00349, + .27658, .09055, .04840, .00406, .00051, + .00023, .00219, .00330, + .26412, .08625, .04395, .00385, .00050, + .00024, .00207, .00309, + .25365, .08264, .04042, .00366, .00050, + .00025, .00196, .00293, + .24449, .07947, .03748, .00348, .00049, + .00026, .00187, .00279, + .23339, .07563, .03413, .00327, .00048, + .00026, .00177, .00262, + .22345, .07223, .03130, .00309, .00047, + .00026, .00168, .00246, + .21456, .06922, .02891, .00295, .00046, + .00027, .00160, .00232 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20603, .06632, .02673, .00281, .00045, + .00026, .00152, .00221, + .19808, .06362, .02480, .00267, .00044, + .00026, .00145, .00210, + .19090, .06120, .02313, .00254, .00042, + .00026, .00138, .00199, + .18436, .05900, .02168, .00243, .00041, + .00026, .00133, .00190, + .17806, .05689, .02034, .00231, .00040, + .00026, .00127, .00181, + .17208, .05487, .01912, .00221, .00039, + .00025, .00121, .00173, + .16663, .05303, .01804, .00212, .00038, + .00025, .00116, .00165, + .16158, .05136, .01709, .00205, .00037, + .00025, .00112, .00158 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15667, .04974, .01619, .00198, .00036, + .00024, .00108, .00151, + .15199, .04819, .01537, .00191, .00035, + .00024, .00105, .00145, + .14768, .04676, .01462, .00184, .00035, + .00023, .00101, .00140, + .14371, .04544, .01396, .00178, .00034, + .00023, .00098, .00135, + .13978, .04415, .01333, .00172, .00033, + .00023, .00095, .00130 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .52469, .17710, .19385, .00775, .00000, + .00000, .00361, .00627, + .50185, .16878, .17650, .00737, .00000, + .00000, .00344, .00587, + .47036, .15734, .15372, .00680, .00000, + .00000, .00322, .00538, + .44914, .14971, .13907, .00643, .00004, + .00000, .00305, .00504, + .42830, .14222, .12517, .00606, .00011, + .00000, .00290, .00473, + .41119, .13613, .11438, .00577, .00016, + .00000, .00279, .00445, + .39556, .13058, .10501, .00550, .00020, + .00000, .00266, .00422, + .37975, .12499, .09601, .00522, .00024, + .00000, .00253, .00400 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36656, .12039, .08888, .00501, .00027, + .00000, .00243, .00382, + .35437, .11613, .08254, .00481, .00029, + .00000, .00234, .00364, + .34507, .11288, .07787, .00465, .00030, + .00000, .00227, .00350, + .32626, .10630, .06886, .00432, .00032, + .00001, .00213, .00325, + .31111, .10106, .06198, .00407, .00034, + .00004, .00202, .00305, + .29510, .09555, .05519, .00382, .00035, + .00008, .00190, .00284, + .27942, .09020, .04904, .00358, .00035, + .00011, .00178, .00262, + .26603, .08564, .04416, .00337, .00036, + .00013, .00168, .00245 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25328, .08130, .03981, .00317, .00035, + .00015, .00158, .00230, + .24321, .07789, .03658, .00301, .00035, + .00016, .00151, .00216, + .23161, .07397, .03309, .00282, .00035, + .00016, .00142, .00203, + .22186, .07070, .03033, .00267, .00034, + .00017, .00134, .00193, + .21333, .06786, .02804, .00255, .00034, + .00018, .00128, .00183, + .20301, .06442, .02543, .00241, .00033, + .00018, .00120, .00171, + .19386, .06137, .02325, .00227, .00032, + .00018, .00114, .00160, + .18574, .05866, .02141, .00214, .00031, + .00018, .00108, .00150 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17791, .05608, .01975, .00203, .00030, + .00018, .00102, .00143, + .17063, .05369, .01828, .00193, .00029, + .00018, .00097, .00135, + .16407, .05153, .01701, .00184, .00029, + .00018, .00092, .00128, + .15812, .04958, .01591, .00176, .00028, + .00018, .00089, .00121, + .15241, .04771, .01490, .00167, .00027, + .00017, .00085, .00115, + .14699, .04594, .01398, .00160, .00026, + .00017, .00082, .00109, + .14206, .04433, .01316, .00153, .00026, + .00017, .00078, .00104, + .13753, .04285, .01245, .00146, .00025, + .00017, .00075, .00100 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13314, .04142, .01178, .00140, .00024, + .00016, .00071, .00097, + .12894, .04006, .01116, .00135, .00024, + .00016, .00069, .00092, + .12506, .03882, .01061, .00131, .00023, + .00016, .00066, .00088, + .12150, .03768, .01011, .00127, .00023, + .00015, .00064, .00085, + .11801, .03654, .00965, .00122, .00022, + .00015, .00062, .00082 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .48052, .15809, .16001, .00589, .00000, + .00000, .00265, .00430, + .45813, .15018, .14448, .00555, .00000, + .00000, .00251, .00403, + .42739, .13940, .12440, .00510, .00000, + .00000, .00234, .00366, + .40674, .13221, .11168, .00477, .00003, + .00000, .00219, .00345, + .38657, .12525, .09977, .00451, .00008, + .00000, .00210, .00319, + .37011, .11955, .09060, .00426, .00011, + .00000, .00200, .00302, + .35511, .11439, .08269, .00404, .00014, + .00000, .00191, .00286, + .33997, .10922, .07514, .00382, .00017, + .00000, .00181, .00270 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .32743, .10495, .06922, .00362, .00018, + .00000, .00174, .00257, + .31582, .10101, .06400, .00346, .00020, + .00000, .00167, .00245, + .30698, .09802, .06019, .00335, .00021, + .00000, .00163, .00237, + .28915, .09201, .05286, .00311, .00022, + .00001, .00152, .00219, + .27486, .08722, .04731, .00293, .00023, + .00003, .00143, .00203, + .25986, .08221, .04189, .00273, .00024, + .00006, .00134, .00188, + .24521, .07735, .03701, .00253, .00024, + .00008, .00125, .00175, + .23274, .07322, .03317, .00236, .00024, + .00009, .00117, .00164 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22092, .06930, .02977, .00220, .00024, + .00010, .00110, .00153, + .21159, .06624, .02725, .00210, .00024, + .00011, .00104, .00145, + .20088, .06273, .02455, .00197, .00023, + .00011, .00097, .00135, + .19193, .05981, .02243, .00185, .00023, + .00012, .00092, .00126, + .18414, .05728, .02068, .00176, .00023, + .00012, .00089, .00120, + .17472, .05423, .01869, .00165, .00022, + .00012, .00084, .00111, + .16638, .05152, .01704, .00155, .00021, + .00012, .00079, .00105, + .15901, .04911, .01565, .00144, .00021, + .00012, .00074, .00099 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15191, .04686, .01440, .00139, .00020, + .00012, .00070, .00093, + .14535, .04476, .01329, .00132, .00020, + .00012, .00067, .00087, + .13947, .04286, .01234, .00124, .00019, + .00012, .00064, .00083, + .13414, .04116, .01153, .00117, .00018, + .00012, .00061, .00079, + .12902, .03954, .01077, .00111, .00018, + .00012, .00057, .00075, + .12417, .03799, .01009, .00107, .00017, + .00011, .00055, .00071, + .11976, .03659, .00949, .00103, .00017, + .00011, .00053, .00068, + .11572, .03531, .00896, .00099, .00016, + .00011, .00051, .00065 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11181, .03408, .00847, .00095, .00016, + .00011, .00048, .00063, + .10810, .03290, .00801, .00090, .00016, + .00011, .00046, .00060, + .10470, .03182, .00761, .00085, .00015, + .00010, .00044, .00058, + .10157, .03084, .00724, .00082, .00015, + .00010, .00043, .00056, + .09848, .02987, .00690, .00079, .00014, + .00010, .00041, .00053 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .43555, .13979, .13014, .00435, .00000, + .00000, .00192, .00289, + .41388, .13239, .11650, .00408, .00000, + .00000, .00181, .00270, + .38424, .12235, .09917, .00371, .00000, + .00000, .00167, .00247, + .36451, .11566, .08833, .00345, .00002, + .00000, .00158, .00229, + .34526, .10921, .07831, .00323, .00005, + .00000, .00150, .00213, + .32963, .10396, .07067, .00302, .00008, + .00000, .00143, .00203, + .31539, .09922, .06415, .00286, .00010, + .00000, .00136, .00193, + .30106, .09449, .05797, .00271, .00011, + .00000, .00129, .00182 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .28927, .09059, .05315, .00257, .00012, + .00000, .00124, .00171, + .27837, .08701, .04892, .00245, .00013, + .00000, .00119, .00163, + .27008, .08429, .04584, .00236, .00014, + .00000, .00115, .00158, + .25350, .07884, .03999, .00217, .00015, + .00001, .00106, .00147, + .24024, .07451, .03561, .00201, .00015, + .00002, .00100, .00136, + .22633, .07000, .03136, .00187, .00016, + .00004, .00094, .00124, + .21283, .06563, .02756, .00173, .00016, + .00005, .00088, .00115, + .20140, .06194, .02458, .00160, .00016, + .00006, .00082, .00109 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19057, .05845, .02197, .00149, .00016, + .00007, .00077, .00101, + .18205, .05575, .02004, .00143, .00016, + .00007, .00073, .00094, + .17233, .05265, .01800, .00132, .00015, + .00007, .00068, .00088, + .16421, .05007, .01640, .00124, .00015, + .00008, .00064, .00083, + .15714, .04785, .01507, .00119, .00015, + .00008, .00061, .00078, + .14869, .04517, .01358, .00109, .00014, + .00008, .00058, .00072, + .14121, .04280, .01234, .00102, .00014, + .00008, .00054, .00069, + .13458, .04071, .01131, .00096, .00014, + .00008, .00051, .00066 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12828, .03874, .01038, .00091, .00013, + .00008, .00049, .00061, + .12244, .03692, .00957, .00086, .00013, + .00008, .00046, .00057, + .11719, .03528, .00887, .00082, .00012, + .00008, .00044, .00054, + .11246, .03381, .00827, .00078, .00012, + .00008, .00042, .00051, + .10794, .03240, .00771, .00074, .00012, + .00008, .00040, .00049, + .10368, .03107, .00721, .00070, .00011, + .00007, .00038, .00046, + .09983, .02987, .00677, .00066, .00011, + .00007, .00036, .00044, + .09628, .02878, .00639, .00063, .00011, + .00007, .00034, .00042 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09285, .02773, .00603, .00061, .00010, + .00007, .00033, .00040, + .08960, .02673, .00570, .00059, .00010, + .00007, .00032, .00038, + .08662, .02582, .00540, .00056, .00010, + .00007, .00030, .00036, + .08390, .02498, .00514, .00054, .00009, + .00007, .00029, .00035, + .08123, .02416, .00489, .00052, .00009, + .00007, .00028, .00033 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .39043, .12259, .10422, .00329, .00000, + .00000, .00129, .00185, + .36980, .11576, .09258, .00309, .00000, + .00000, .00121, .00172, + .34179, .10652, .07795, .00276, .00000, + .00000, .00111, .00155, + .32314, .10041, .06893, .00259, .00001, + .00000, .00106, .00144, + .30503, .09453, .06067, .00242, .00004, + .00000, .00098, .00136, + .29038, .08975, .05444, .00228, .00005, + .00000, .00092, .00126, + .27715, .08545, .04917, .00214, .00006, + .00000, .00088, .00118, + .26389, .08116, .04421, .00199, .00008, + .00000, .00084, .00111 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25290, .07765, .04035, .00190, .00008, + .00000, .00080, .00107, + .24282, .07442, .03699, .00180, .00009, + .00000, .00076, .00102, + .23521, .07198, .03456, .00173, .00009, + .00000, .00073, .00097, + .21994, .06709, .02998, .00159, .00010, + .00000, .00067, .00090, + .20779, .06323, .02657, .00148, .00010, + .00001, .00063, .00084, + .19511, .05922, .02328, .00137, .00010, + .00003, .00059, .00077, + .18285, .05536, .02037, .00127, .00011, + .00003, .00055, .00070, + .17249, .05211, .01810, .00119, .00011, + .00004, .00051, .00063 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16272, .04905, .01612, .00111, .00010, + .00004, .00048, .00058, + .15508, .04665, .01466, .00104, .00010, + .00005, .00045, .00056, + .14636, .04394, .01312, .00097, .00010, + .00005, .00042, .00051, + .13913, .04169, .01192, .00090, .00010, + .00005, .00040, .00048, + .13287, .03973, .01093, .00084, .00010, + .00005, .00037, .00047, + .12533, .03741, .00983, .00079, .00009, + .00005, .00034, .00043, + .11869, .03537, .00891, .00074, .00009, + .00005, .00032, .00041, + .11286, .03357, .00815, .00068, .00009, + .00005, .00031, .00039 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10729, .03186, .00747, .00066, .00009, + .00005, .00028, .00036, + .10216, .03030, .00687, .00063, .00008, + .00005, .00027, .00033, + .09758, .02890, .00635, .00059, .00008, + .00005, .00025, .00030, + .09345, .02763, .00591, .00056, .00008, + .00005, .00024, .00029, + .08951, .02643, .00551, .00053, .00007, + .00005, .00023, .00028, + .08579, .02530, .00514, .00051, .00007, + .00005, .00022, .00027, + .08242, .02428, .00482, .00049, .00007, + .00005, .00020, .00025, + .07936, .02336, .00454, .00046, .00007, + .00005, .00020, .00024 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07642, .02247, .00428, .00043, .00007, + .00005, .00019, .00023, + .07363, .02162, .00404, .00041, .00006, + .00004, .00018, .00022, + .07106, .02084, .00383, .00039, .00006, + .00004, .00017, .00021, + .06872, .02014, .00364, .00038, .00006, + .00004, .00016, .00020, + .06642, .01945, .00346, .00036, .00006, + .00004, .00016, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .34594, .10607, .08162, .00223, .00000, + .00000, .00092, .00125, + .32657, .09984, .07196, .00206, .00000, + .00000, .00086, .00116, + .30032, .09147, .05994, .00187, .00000, + .00000, .00078, .00105, + .28298, .08597, .05264, .00173, .00001, + .00000, .00074, .00095, + .26623, .08066, .04601, .00163, .00002, + .00000, .00069, .00087, + .25270, .07640, .04105, .00152, .00003, + .00000, .00065, .00081, + .24049, .07256, .03688, .00143, .00004, + .00000, .00061, .00076, + .22831, .06874, .03298, .00135, .00005, + .00000, .00057, .00072 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .21829, .06560, .02997, .00129, .00005, + .00000, .00054, .00068, + .20912, .06273, .02737, .00121, .00006, + .00000, .00052, .00066, + .20220, .06057, .02551, .00115, .00006, + .00000, .00050, .00065, + .18835, .05629, .02198, .00106, .00006, + .00000, .00045, .00056, + .17738, .05289, .01939, .00098, .00007, + .00001, .00042, .00053, + .16599, .04935, .01692, .00091, .00007, + .00002, .00039, .00048, + .15502, .04598, .01474, .00083, .00007, + .00002, .00036, .00045, + .14576, .04316, .01304, .00077, .00007, + .00003, .00033, .00042 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13708, .04050, .01157, .00072, .00007, + .00003, .00031, .00039, + .13032, .03843, .01050, .00067, .00007, + .00003, .00030, .00037, + .12263, .03608, .00937, .00062, .00006, + .00003, .00028, .00033, + .11625, .03415, .00849, .00058, .00006, + .00003, .00026, .00031, + .11074, .03249, .00777, .00054, .00006, + .00003, .00024, .00028, + .10414, .03050, .00696, .00050, .00006, + .00003, .00022, .00027, + .09835, .02876, .00630, .00048, .00006, + .00003, .00021, .00025, + .09326, .02723, .00575, .00045, .00006, + .00003, .00020, .00022 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08846, .02578, .00526, .00041, .00005, + .00003, .00018, .00021, + .08403, .02445, .00483, .00039, .00005, + .00003, .00017, .00020, + .08004, .02327, .00446, .00038, .00005, + .00003, .00016, .00019, + .07650, .02221, .00415, .00036, .00005, + .00003, .00015, .00018, + .07313, .02120, .00386, .00033, .00005, + .00003, .00014, .00017, + .06994, .02025, .00360, .00031, .00005, + .00003, .00014, .00016, + .06706, .01940, .00337, .00030, .00004, + .00003, .00013, .00014, + .06445, .01863, .00317, .00029, .00004, + .00003, .00013, .00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06195, .01788, .00299, .00028, .00004, + .00003, .00012, .00013, + .05957, .01718, .00282, .00027, .00004, + .00003, .00012, .00013, + .05739, .01654, .00266, .00025, .00004, + .00003, .00011, .00013, + .05541, .01596, .00253, .00024, .00004, + .00003, .00010, .00012, + .05348, .01538, .00240, .00023, .00004, + .00003, .00010, .00012 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30269, .09082, .06266, .00151, .00000, + .00000, .00064, .00081, + .28477, .08522, .05478, .00141, .00000, + .00000, .00060, .00074, + .26066, .07771, .04516, .00123, .00000, + .00000, .00054, .00066, + .24476, .07278, .03937, .00113, .00001, + .00000, .00051, .00061, + .22948, .06808, .03418, .00105, .00001, + .00000, .00047, .00057, + .21717, .06430, .03032, .00099, .00002, + .00000, .00044, .00053, + .20611, .06090, .02709, .00093, .00003, + .00000, .00041, .00050, + .19510, .05753, .02411, .00086, .00003, + .00000, .00038, .00047 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18606, .05478, .02183, .00084, .00003, + .00000, .00037, .00043, + .17785, .05227, .01986, .00078, .00004, + .00000, .00035, .00041, + .17168, .05038, .01845, .00073, .00004, + .00000, .00034, .00039, + .15928, .04664, .01582, .00066, .00004, + .00000, .00030, .00037, + .14950, .04369, .01390, .00063, .00004, + .00001, .00029, .00033, + .13940, .04065, .01207, .00057, .00004, + .00001, .00026, .00030, + .12971, .03774, .01046, .00052, .00004, + .00001, .00024, .00028, + .12158, .03531, .00923, .00049, .00004, + .00002, .00022, .00026 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11397, .03303, .00816, .00044, .00004, + .00002, .00021, .00024, + .10807, .03127, .00739, .00041, .00004, + .00002, .00019, .00021, + .10135, .02927, .00657, .00039, .00004, + .00002, .00018, .00020, + .09581, .02762, .00594, .00037, .00004, + .00002, .00017, .00019, + .09104, .02621, .00543, .00034, .00004, + .00002, .00015, .00018, + .08537, .02453, .00486, .00031, .00004, + .00002, .00015, .00016, + .08039, .02306, .00439, .00029, .00004, + .00002, .00014, .00015, + .07602, .02179, .00400, .00027, .00003, + .00002, .00013, .00015 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07192, .02057, .00365, .00025, .00003, + .00002, .00012, .00013, + .06815, .01946, .00335, .00023, .00003, + .00002, .00011, .00013, + .06478, .01848, .00309, .00022, .00003, + .00002, .00011, .00013, + .06175, .01760, .00286, .00021, .00003, + .00002, .00010, .00012, + .05887, .01677, .00266, .00021, .00003, + .00002, .00010, .00011, + .05620, .01599, .00248, .00020, .00003, + .00002, .00009, .00010, + .05380, .01528, .00232, .00018, .00003, + .00002, .00008, .00010, + .05160, .01465, .00218, .00017, .00003, + .00002, .00008, .00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04950, .01404, .00205, .00016, .00003, + .00002, .00007, .00009, + .04750, .01346, .00193, .00015, .00002, + .00002, .00007, .00008, + .04568, .01293, .00183, .00015, .00002, + .00002, .00007, .00008, + .04402, .01246, .00173, .00015, .00002, + .00002, .00007, .00007, + .04242, .01199, .00164, .00014, .00002, + .00002, .00006, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .26157, .07697, .04706, .00107, .00000, + .00000, .00039, .00048, + .24530, .07198, .04087, .00096, .00000, + .00000, .00036, .00045, + .22337, .06534, .03334, .00086, .00000, + .00000, .00032, .00040, + .20901, .06098, .02887, .00082, .00000, + .00000, .00030, .00036, + .19527, .05687, .02490, .00074, .00001, + .00000, .00028, .00033, + .18427, .05355, .02199, .00069, .00001, + .00000, .00026, .00031, + .17442, .05059, .01957, .00063, .00002, + .00000, .00024, .00029, + .16465, .04766, .01733, .00058, .00002, + .00000, .00023, .00027 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15662, .04529, .01563, .00055, .00002, + .00000, .00021, .00024, + .14934, .04312, .01417, .00052, .00002, + .00000, .00020, .00023, + .14387, .04148, .01313, .00049, .00002, + .00000, .00019, .00023, + .13296, .03825, .01120, .00045, .00002, + .00000, .00017, .00022, + .12441, .03573, .00981, .00042, .00002, + .00000, .00016, .00019, + .11559, .03312, .00848, .00039, .00003, + .00001, .00015, .00017, + .10717, .03064, .00733, .00035, .00003, + .00001, .00014, .00016, + .10014, .02858, .00645, .00032, .00003, + .00001, .00013, .00014 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09356, .02666, .00569, .00030, .00002, + .00001, .00011, .00013, + .08847, .02518, .00514, .00029, .00002, + .00001, .00011, .00012, + .08272, .02350, .00456, .00026, .00002, + .00001, .00010, .00011, + .07799, .02212, .00412, .00024, .00002, + .00001, .00009, .00010, + .07390, .02095, .00375, .00024, .00002, + .00001, .00009, .00009, + .06908, .01954, .00335, .00021, .00002, + .00001, .00008, .00009, + .06487, .01832, .00302, .00020, .00002, + .00001, .00007, .00008, + .06119, .01726, .00275, .00018, .00002, + .00001, .00007, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05773, .01626, .00251, .00017, .00002, + .00001, .00006, .00007, + .05456, .01535, .00229, .00016, .00002, + .00001, .00005, .00006, + .05174, .01454, .00211, .00015, .00002, + .00001, .00006, .00006, + .04922, .01382, .00196, .00014, .00002, + .00001, .00005, .00006, + .04683, .01314, .00182, .00014, .00002, + .00001, .00005, .00006, + .04460, .01250, .00169, .00013, .00002, + .00001, .00005, .00006, + .04260, .01192, .00158, .00012, .00002, + .00001, .00005, .00005, + .04079, .01141, .00149, .00011, .00002, + .00001, .00004, .00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03906, .01091, .00139, .00010, .00002, + .00001, .00004, .00005, + .03742, .01044, .00131, .00010, .00001, + .00001, .00004, .00004, + .03593, .01002, .00124, .00009, .00001, + .00001, .00004, .00004, + .03457, .00964, .00118, .00009, .00001, + .00001, .00003, .00004, + .03325, .00926, .00111, .00009, .00001, + .00001, .00003, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .22266, .06415, .03435, .00062, .00000, + .00000, .00028, .00032, + .20801, .05981, .02960, .00058, .00000, + .00000, .00024, .00028, + .18847, .05403, .02391, .00051, .00000, + .00000, .00023, .00026, + .17572, .05026, .02057, .00048, .00000, + .00000, .00022, .00024, + .16362, .04668, .01764, .00042, .00001, + .00000, .00020, .00023, + .15391, .04384, .01550, .00039, .00001, + .00000, .00019, .00020, + .14523, .04130, .01373, .00037, .00001, + .00000, .00018, .00019, + .13665, .03880, .01210, .00034, .00001, + .00000, .00016, .00018 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .12967, .03677, .01087, .00032, .00001, + .00000, .00014, .00017, + .12334, .03493, .00983, .00030, .00001, + .00000, .00014, .00015, + .11858, .03355, .00908, .00028, .00001, + .00000, .00013, .00014, + .10917, .03081, .00771, .00026, .00001, + .00000, .00012, .00013, + .10180, .02868, .00673, .00023, .00001, + .00000, .00011, .00012, + .09423, .02650, .00580, .00020, .00001, + .00000, .00010, .00011, + .08701, .02443, .00500, .00020, .00001, + .00001, .00009, .00010, + .08101, .02271, .00439, .00019, .00001, + .00001, .00008, .00009 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07545, .02111, .00386, .00016, .00001, + .00001, .00008, .00009, + .07115, .01989, .00348, .00015, .00001, + .00001, .00007, .00008, + .06629, .01850, .00308, .00015, .00001, + .00001, .00007, .00007, + .06232, .01737, .00278, .00014, .00001, + .00001, .00006, .00006, + .05892, .01640, .00253, .00013, .00001, + .00001, .00006, .00006, + .05490, .01525, .00226, .00011, .00001, + .00001, .00005, .00005, + .05139, .01426, .00203, .00011, .00001, + .00001, .00005, .00005, + .04832, .01340, .00184, .00010, .00001, + .00001, .00005, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04546, .01259, .00168, .00009, .00001, + .00001, .00005, .00004, + .04286, .01185, .00154, .00009, .00001, + .00001, .00004, .00004, + .04055, .01120, .00141, .00007, .00001, + .00001, .00003, .00004, + .03849, .01062, .00131, .00007, .00001, + .00001, .00003, .00004, + .03654, .01007, .00121, .00006, .00001, + .00001, .00003, .00003, + .03472, .00956, .00113, .00006, .00001, + .00001, .00003, .00003, + .03308, .00910, .00105, .00005, .00001, + .00001, .00003, .00003, + .03161, .00869, .00099, .00005, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03021, .00830, .00093, .00005, .00001, + .00001, .00003, .00003, + .02888, .00792, .00087, .00005, .00001, + .00001, .00003, .00003, + .02767, .00759, .00082, .00005, .00001, + .00001, .00002, .00002, + .02658, .00728, .00078, .00005, .00001, + .00001, .00002, .00002, + .02552, .00699, .00074, .00005, .00001, + .00001, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .15389, .04274, .01679, .00026, .00000, + .00000, .00010, .00010, + .14271, .03956, .01427, .00021, .00000, + .00000, .00009, .00009, + .12789, .03538, .01132, .00020, .00000, + .00000, .00008, .00008, + .11837, .03267, .00962, .00017, .00000, + .00000, .00007, .00008, + .10934, .03013, .00816, .00016, .00000, + .00000, .00006, .00007, + .10220, .02812, .00711, .00014, .00000, + .00000, .00006, .00006, + .09585, .02634, .00625, .00012, .00000, + .00000, .00006, .00006, + .08961, .02459, .00547, .00012, .00000, + .00000, .00005, .00006 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08457, .02318, .00489, .00012, .00000, + .00000, .00005, .00005, + .08001, .02190, .00440, .00011, .00000, + .00000, .00005, .00005, + .07661, .02095, .00405, .00011, .00000, + .00000, .00004, .00004, + .06997, .01909, .00342, .00007, .00000, + .00000, .00004, .00005, + .06476, .01764, .00296, .00007, .00000, + .00000, .00003, .00004, + .05948, .01618, .00254, .00007, .00000, + .00000, .00003, .00004, + .05449, .01480, .00218, .00006, .00000, + .00000, .00003, .00004, + .05038, .01366, .00191, .00006, .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=17,24)/ + .04659, .01262, .00168, .00005, .00000, + .00000, .00003, .00003, + .04367, .01182, .00151, .00005, .00000, + .00000, .00002, .00003, + .04041, .01092, .00133, .00005, .00000, + .00000, .00002, .00003, + .03776, .01019, .00120, .00004, .00000, + .00000, .00002, .00003, + .03552, .00957, .00109, .00003, .00000, + .00000, .00002, .00002, + .03285, .00885, .00097, .00004, .00000, + .00000, .00002, .00002, + .03056, .00822, .00087, .00003, .00000, + .00000, .00001, .00002, + .02859, .00768, .00079, .00002, .00000, + .00000, .00001, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02673, .00717, .00072, .00002, .00000, + .00000, .00001, .00002, + .02505, .00672, .00065, .00003, .00000, + .00000, .00001, .00002, + .02357, .00631, .00060, .00003, .00000, + .00000, .00001, .00001, + .02226, .00596, .00055, .00002, .00000, + .00000, .00001, .00001, + .02104, .00562, .00051, .00001, .00000, + .00000, .00001, .00002, + .01990, .00531, .00047, .00002, .00000, + .00000, .00001, .00001, + .01887, .00504, .00044, .00002, .00000, + .00000, .00001, .00001, + .01796, .00479, .00041, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01708, .00456, .00039, .00002, .00000, + .00000, .00001, .00001, + .01627, .00433, .00036, .00001, .00000, + .00000, .00001, .00001, + .01553, .00413, .00034, .00001, .00000, + .00000, .00001, .00001, + .01486, .00395, .00032, .00001, .00000, + .00000, .00001, .00001, + .01422, .00378, .00031, .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)/ + .09825, .02637, .00708, .00009, .00000, + .00000, .00003, .00002, + .09036, .02422, .00595, .00008, .00000, + .00000, .00002, .00002, + .08007, .02141, .00465, .00007, .00000, + .00000, .00002, .00002, + .07348, .01962, .00392, .00006, .00000, + .00000, .00002, .00003, + .06732, .01796, .00330, .00005, .00000, + .00000, .00002, .00002, + .06248, .01664, .00286, .00005, .00000, + .00000, .00001, .00002, + .05822, .01548, .00250, .00004, .00000, + .00000, .00001, .00002, + .05406, .01436, .00218, .00004, .00000, + .00000, .00001, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05071, .01346, .00194, .00004, .00000, + .00000, .00001, .00002, + .04771, .01265, .00174, .00004, .00000, + .00000, .00001, .00001, + .04548, .01205, .00160, .00004, .00000, + .00000, .00001, .00001, + .04113, .01088, .00134, .00003, .00000, + .00000, .00001, .00001, + .03781, .00999, .00116, .00002, .00000, + .00000, .00001, .00001, + .03442, .00908, .00100, .00002, .00000, + .00000, .00001, .00001, + .03125, .00824, .00085, .00003, .00000, + .00000, .00001, .00001, + .02868, .00755, .00075, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02632, .00692, .00065, .00001, .00000, + .00000, .00000, .00001, + .02451, .00644, .00059, .00001, .00000, + .00000, .00000, .00001, + .02251, .00591, .00052, .00001, .00000, + .00000, .00000, .00001, + .02090, .00548, .00047, .00001, .00000, + .00000, .00000, .00001, + .01953, .00512, .00042, .00001, .00000, + .00000, .00001, .00000, + .01795, .00469, .00037, .00001, .00000, + .00000, .00000, .00000, + .01658, .00433, .00034, .00001, .00000, + .00000, .00000, .00000, + .01541, .00402, .00030, .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)/ + .01432, .00374, .00028, .00001, .00000, + .00000, .00000, .00000, + .01334, .00348, .00025, .00001, .00000, + .00000, .00000, .00000, + .01247, .00325, .00023, .00001, .00000, + .00000, .00000, .00000, + .01172, .00305, .00021, .00001, .00000, + .00000, .00000, .00000, + .01101, .00286, .00020, .00001, .00000, + .00000, .00000, .00000, + .01036, .00269, .00018, .00000, .00000, + .00000, .00000, .00000, + .00979, .00254, .00017, .00000, .00000, + .00000, .00000, .00000, + .00927, .00241, .00016, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00878, .00228, .00015, .00000, .00000, + .00000, .00000, .00000, + .00832, .00216, .00014, .00001, .00000, + .00000, .00000, .00000, + .00791, .00205, .00013, .00000, .00000, + .00000, .00000, .00000, + .00754, .00195, .00012, .00000, .00000, + .00000, .00000, .00000, + .00718, .00186, .00011, .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)/ + .05651, .01470, .00245, .00003, .00000, + .00000, .00000, .00000, + .05152, .01338, .00205, .00002, .00000, + .00000, -.00001, .00000, + .04505, .01168, .00159, .00002, .00000, + .00000, .00000, .00000, + .04098, .01061, .00133, .00002, .00000, + .00000, .00000, .00000, + .03720, .00962, .00112, .00002, .00000, + .00000, .00000, .00000, + .03425, .00885, .00097, .00001, .00000, + .00000, .00000, .00000, + .03167, .00817, .00085, .00001, .00000, + .00000, .00000, .00000, + .02918, .00752, .00074, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .02719, .00701, .00066, .00002, .00000, + .00000, .00000, .00000, + .02541, .00655, .00059, .00002, .00000, + .00000, .00000, .00000, + .02410, .00620, .00054, .00002, .00000, + .00000, .00000, .00000, + .02158, .00555, .00046, .00001, .00000, + .00000, .00000, .00000, + .01965, .00505, .00040, .00001, .00000, + .00000, .00000, .00000, + .01773, .00455, .00034, .00001, .00000, + .00000, .00000, .00000, + .01595, .00409, .00029, .00001, .00000, + .00000, .00000, .00000, + .01451, .00371, .00025, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01320, .00337, .00022, .00000, .00000, + .00000, .00000, .00000, + .01221, .00312, .00020, .00000, .00000, + .00000, .00000, .00000, + .01112, .00284, .00018, .00000, .00000, + .00000, .00000, .00000, + .01024, .00261, .00016, .00000, .00000, + .00000, .00000, .00000, + .00951, .00242, .00014, .00000, .00000, + .00000, .00000, .00000, + .00866, .00221, .00013, .00000, .00000, + .00000, .00000, .00000, + .00794, .00202, .00011, .00000, .00000, + .00000, .00000, .00000, + .00732, .00186, .00010, .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)/ + .00676, .00172, .00009, .00000, .00000, + .00000, .00000, .00000, + .00625, .00159, .00008, .00000, .00000, + .00000, .00000, .00000, + .00581, .00148, .00008, .00000, .00000, + .00000, .00000, .00000, + .00543, .00138, .00007, .00000, .00000, + .00000, .00000, .00000, + .00507, .00129, .00007, .00000, .00000, + .00000, .00000, .00000, + .00474, .00120, .00006, .00000, .00000, + .00000, .00000, .00000, + .00445, .00113, .00006, .00000, .00000, + .00000, .00000, .00000, + .00420, .00106, .00005, .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)/ + .00395, .00100, .00005, .00000, .00000, + .00000, .00000, .00000, + .00373, .00094, .00005, .00000, .00000, + .00000, .00000, .00000, + .00353, .00089, .00004, .00000, .00000, + .00000, .00000, .00000, + .00335, .00085, .00004, .00000, .00000, + .00000, .00000, .00000, + .00317, .00080, .00004, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .02795, .00704, .00064, .00000, .00000, + .00000, .00000, .00000, + .02520, .00634, .00054, .00000, .00000, + .00000, .00000, .00000, + .02171, .00546, .00042, .00000, .00000, + .00000, .00000, .00000, + .01954, .00491, .00035, .00000, .00000, + .00000, .00000, .00000, + .01755, .00440, .00030, .00000, .00000, + .00000, .00000, .00000, + .01601, .00401, .00026, .00000, .00000, + .00000, .00000, .00000, + .01468, .00368, .00023, .00000, .00000, + .00000, .00000, .00000, + .01339, .00335, .00020, .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)/ + .01239, .00310, .00018, .00000, .00000, + .00000, .00000, .00000, + .01150, .00288, .00016, .00000, .00000, + .00000, .00000, .00000, + .01084, .00271, .00015, .00000, .00000, + .00000, .00000, .00000, + .00959, .00240, .00013, .00000, .00000, + .00000, .00000, .00000, + .00865, .00216, .00011, .00000, .00000, + .00000, .00000, .00000, + .00771, .00192, .00009, .00000, .00000, + .00000, .00000, .00000, + .00686, .00171, .00008, .00000, .00000, + .00000, .00000, .00000, + .00617, .00154, .00007, .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)/ + .00556, .00138, .00006, .00000, .00000, + .00000, .00000, .00000, + .00510, .00127, .00006, .00000, .00000, + .00000, .00000, .00000, + .00460, .00114, .00005, .00000, .00000, + .00000, .00000, .00000, + .00420, .00104, .00004, .00000, .00000, + .00000, .00000, .00000, + .00387, .00096, .00004, .00000, .00000, + .00000, .00000, .00000, + .00349, .00087, .00004, .00000, .00000, + .00000, .00000, .00000, + .00317, .00079, .00003, .00000, .00000, + .00000, .00000, .00000, + .00290, .00072, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00265, .00066, .00003, .00000, .00000, + .00000, .00000, .00000, + .00244, .00060, .00002, .00000, .00000, + .00000, .00000, .00000, + .00225, .00056, .00002, .00000, .00000, + .00000, .00000, .00000, + .00208, .00052, .00002, .00000, .00000, + .00000, .00000, .00000, + .00193, .00048, .00002, .00000, .00000, + .00000, .00000, .00000, + .00180, .00044, .00002, .00000, .00000, + .00000, .00000, .00000, + .00167, .00041, .00002, .00000, .00000, + .00000, .00000, .00000, + .00157, .00039, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00147, .00036, .00001, .00000, .00000, + .00000, .00000, .00000, + .00138, .00034, .00001, .00000, .00000, + .00000, .00000, .00000, + .00130, .00032, .00001, .00000, .00000, + .00000, .00000, .00000, + .00122, .00030, .00001, .00000, .00000, + .00000, .00000, .00000, + .00115, .00028, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00285, .00068, .00001, .00000, .00000, + .00000, .00000, .00000, + .00249, .00059, .00001, .00000, .00000, + .00000, .00000, .00000, + .00205, .00049, .00001, .00000, .00000, + .00000, .00000, .00000, + .00179, .00043, .00001, .00000, .00000, + .00000, .00000, .00000, + .00156, .00037, .00001, .00000, .00000, + .00000, .00000, .00000, + .00139, .00033, .00001, .00000, .00000, + .00000, .00000, .00000, + .00124, .00030, .00001, .00000, .00000, + .00000, .00000, .00000, + .00110, .00026, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00100, .00024, .00001, .00000, .00000, + .00000, .00000, .00000, + .00091, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00084, .00020, .00000, .00000, .00000, + .00000, .00000, .00000, + .00072, .00017, .00000, .00000, .00000, + .00000, .00000, .00000, + .00063, .00015, .00000, .00000, .00000, + .00000, .00000, .00000, + .00054, .00013, .00000, .00000, .00000, + .00000, .00000, .00000, + .00047, .00011, .00000, .00000, .00000, + .00000, .00000, .00000, + .00041, .00010, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00036, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00032, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00028, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00025, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00022, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00020, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00004, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00014, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00007, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor12.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