#include "pdf/pilot.h" subroutine sfmrs_98a2(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)/ + .00510, .00251, 1.10688, .90346, .00000, + .00000, .48165, .91695, + .00527, .00258, 2.36364, .93734, .00000, + .00000, .52101, .95094, + .00553, .00267, 4.83473, 1.01202, .03326, + .00000, .60348, 1.02576, + .00572, .00275, 7.21821, 1.08454, .11146, + .00000, .68145, 1.09837, + .00592, .00282, 10.25881, 1.18080, .20031, + .00000, .78327, 1.19470, + .00609, .00289, 13.37211, 1.28065, .29262, + .00000, .88779, 1.29461, + .00625, .00296, 16.87478, 1.39018, .39834, + .00000, 1.00167, 1.40418, + .00643, .00303, 21.18184, 1.52224, .52868, + .00000, 1.13823, 1.53628 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00659, .00310, 25.37047, 1.65236, .65413, + .00000, 1.27217, 1.66643, + .00673, .00316, 29.86588, 1.79103, .78895, + .00000, 1.41445, 1.80512, + .00685, .00321, 33.80442, 1.91001, .90745, + .00000, 1.53624, 1.92412, + .00711, .00332, 43.06942, 2.19400, 1.18715, + .02223, 1.82605, 2.20812, + .00733, .00342, 52.07138, 2.47224, 1.46053, + .34113, 2.10916, 2.48636, + .00758, .00353, 63.45149, 2.82272, 1.80706, + .73948, 2.46494, 2.83684, + .00784, .00364, 76.80630, 3.23311, 2.21384, + 1.16389, 2.88068, 3.24721, + .00808, .00375, 90.29980, 3.64752, 2.62552, + 1.59385, 3.29980, 3.66160 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00832, .00386, 105.29520, 4.10834, 3.08458, + 2.07153, 3.76524, 4.12239, + .00853, .00396, 118.75182, 4.52408, 3.49791, + 2.49680, 4.18471, 4.53810, + .00878, .00407, 136.29903, 5.06927, 4.03950, + 3.05200, 4.73433, 5.08324, + .00900, .00417, 153.06889, 5.59142, 4.56004, + 3.58814, 5.26029, 5.60535, + .00920, .00427, 169.49274, 6.10444, 5.07255, + 4.11637, 5.77673, 6.11833, + .00947, .00439, 191.50041, 6.79957, 5.76425, + 4.82259, 6.47609, 6.81339, + .00972, .00451, 213.65015, 7.50284, 6.46582, + 5.54086, 7.18325, 7.51660, + .00995, .00462, 235.78360, 8.20836, 7.17187, + 6.26618, 7.89232, 8.22206 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01019, .00474, 258.77975, 8.95189, 7.91241, + 7.01966, 8.63933, 8.96552, + .01042, .00485, 282.57089, 9.72455, 8.68435, + 7.80818, 9.41530, 9.73811, + .01065, .00496, 306.17310, 10.49648, 9.45620, + 8.59649, 10.19032, 10.50998, + .01086, .00506, 329.13446, 11.25586, 10.21407, + 9.36765, 10.95255, 11.26929, + .01108, .00516, 353.35953, 12.05957, 11.01873, + 10.18948, 11.75906, 12.07293, + .01129, .00527, 377.68521, 12.87768, 11.83519, + 11.01869, 12.57989, 12.89097, + .01149, .00537, 401.94644, 13.69528, 12.65410, + 11.85407, 13.40002, 13.70851, + .01169, .00546, 425.21692, 14.49012, 13.44773, + 12.65951, 14.19722, 14.50328 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01189, .00556, 449.66071, 15.32748, 14.28599, + 13.51282, 15.03693, 15.34058, + .01208, .00566, 474.23663, 16.17825, 15.13665, + 14.37672, 15.88998, 16.19130, + .01227, .00575, 498.34888, 17.01844, 15.97717, + 15.23050, 16.73230, 17.03142, + .01245, .00584, 521.90094, 17.84327, 16.80334, + 16.07067, 17.55914, 17.85620, + .01264, .00593, 545.91125, 18.69417, 17.65384, + 16.93269, 18.41204, 18.70704 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00696, .00337, 1.03458, .76573, .00000, + .00000, .40748, .77358, + .00720, .00346, 2.16835, .79731, .00000, + .00000, .44334, .80523, + .00755, .00361, 4.34798, .86355, .02886, + .00000, .51564, .87155, + .00781, .00372, 6.40551, .92612, .09612, + .00000, .58246, .93417, + .00809, .00383, 8.98451, 1.00757, .17108, + .00000, .66823, 1.01566, + .00832, .00394, 11.58427, 1.09086, .24798, + .00000, .75514, 1.09899, + .00855, .00404, 14.47203, 1.18138, .33518, + .00000, .84903, 1.18953, + .00879, .00414, 17.97907, 1.28957, .44162, + .00000, .96071, 1.29775 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00901, .00424, 21.34900, 1.39519, .54312, + .00000, 1.06928, 1.40338, + .00921, .00433, 24.92942, 1.50694, .65137, + .00000, 1.18382, 1.51514, + .00937, .00440, 28.04069, 1.60231, .74593, + .00000, 1.28136, 1.61053, + .00972, .00456, 35.26984, 1.82795, .96712, + .01806, 1.51151, 1.83618, + .01003, .00470, 42.18938, 2.04677, 1.18104, + .26700, 1.73409, 2.05500, + .01037, .00486, 50.82276, 2.31981, 1.44957, + .57582, 2.01122, 2.32804, + .01072, .00502, 60.81812, 2.63634, 1.76159, + .90084, 2.33187, 2.64457, + .01105, .00518, 70.79073, 2.95299, 2.07437, + 1.22689, 2.65215, 2.96121 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01138, .00533, 81.74635, 3.30205, 2.42014, + 1.58588, 3.00477, 3.31026, + .01166, .00546, 91.47599, 3.61447, 2.72897, + 1.90284, 3.32007, 3.62266, + .01200, .00563, 104.03548, 4.02099, 3.13052, + 2.31336, 3.73000, 4.02916, + .01230, .00577, 115.92147, 4.40738, 3.51358, + 2.70685, 4.11932, 4.41553, + .01258, .00591, 127.46274, 4.78446, 3.88823, + 3.09197, 4.49904, 4.79259, + .01294, .00608, 142.77927, 5.29157, 4.39009, + 3.60285, 5.00941, 5.29967, + .01327, .00624, 158.04828, 5.80076, 4.89535, + 4.11866, 5.52158, 5.80882, + .01359, .00640, 173.17590, 6.30808, 5.40048, + 4.63617, 6.03164, 6.31612 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01391, .00656, 188.75221, 6.83897, 5.92651, + 5.16975, 6.56520, 6.84697, + .01423, .00671, 204.74258, 7.38720, 6.47154, + 5.72492, 7.11600, 7.39517, + .01453, .00686, 220.48721, 7.93162, 7.01329, + 6.27668, 7.66279, 7.93956, + .01481, .00700, 235.69031, 8.46402, 7.54210, + 6.81318, 8.19739, 8.47193, + .01510, .00715, 251.63194, 9.02464, 8.10085, + 7.38233, 8.76017, 9.03251, + .01539, .00729, 267.52240, 9.59203, 8.66449, + 7.95310, 9.32966, 9.59987, + .01566, .00743, 283.28485, 10.15645, 9.22739, + 8.52582, 9.89604, 10.16427, + .01592, .00756, 298.30212, 10.70231, 9.77001, + 9.07493, 10.44372, 10.71009 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01619, .00769, 313.99866, 11.27496, 10.34089, + 9.65453, 11.01818, 11.28272, + .01645, .00783, 329.68579, 11.85404, 10.91746, + 10.23849, 11.59901, 11.86176, + .01670, .00795, 344.99789, 12.42349, 11.48484, + 10.81328, 12.17012, 12.43119, + .01694, .00808, 359.88419, 12.98037, 12.04044, + 11.37688, 12.72855, 12.98804, + .01719, .00820, 374.97501, 13.55235, 12.60986, + 11.95245, 13.30207, 13.55999 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00950, .00452, .96820, .64872, .00000, + .00000, .34484, .65263, + .00983, .00466, 1.99060, .67790, .00000, + .00000, .37734, .68184, + .01032, .00488, 3.91161, .73651, .02503, + .00000, .44066, .74049, + .01067, .00504, 5.68545, .79046, .08287, + .00000, .49790, .79446, + .01105, .00521, 7.86921, .85935, .14607, + .00000, .57013, .86336, + .01138, .00536, 10.03565, .92877, .21010, + .00000, .64234, .93279, + .01169, .00551, 12.41090, 1.00348, .28195, + .00000, .71966, 1.00752, + .01203, .00566, 15.25913, 1.09198, .36879, + .00000, .81085, 1.09603 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01232, .00580, 17.96255, 1.17755, .45080, + .00000, .89870, 1.18161, + .01260, .00593, 20.80536, 1.26740, .53760, + .00000, .99069, 1.27146, + .01282, .00604, 23.25513, 1.34366, .61296, + .00000, 1.06863, 1.34773, + .01330, .00626, 28.87563, 1.52244, .78760, + .01466, 1.25087, 1.52652, + .01371, .00646, 34.17313, 1.69398, .95469, + .20887, 1.42530, 1.69807, + .01418, .00669, 40.69452, 1.90596, 1.16235, + .44816, 1.64042, 1.91005, + .01467, .00692, 48.14097, 2.14919, 1.40115, + .69687, 1.88681, 2.15328, + .01512, .00714, 55.47519, 2.39017, 1.63823, + .94392, 2.13056, 2.39426 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01557, .00737, 63.43791, 2.65347, 1.89798, + 1.21343, 2.39658, 2.65755, + .01595, .00755, 70.43452, 2.88722, 2.12811, + 1.44937, 2.63253, 2.89129, + .01641, .00778, 79.37270, 3.18895, 2.42495, + 1.75249, 2.93687, 3.19302, + .01682, .00798, 87.74705, 3.47352, 2.70597, + 2.04083, 3.22368, 3.47759, + .01719, .00817, 95.80730, 3.74935, 2.97897, + 2.32113, 3.50152, 3.75341, + .01767, .00841, 106.39835, 4.11743, 3.34184, + 2.68998, 3.87210, 4.12149, + .01813, .00864, 116.85361, 4.48418, 3.70443, + 3.05962, 4.24113, 4.48823, + .01856, .00886, 127.12174, 4.84705, 4.06447, + 3.42803, 4.60609, 4.85110 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01899, .00908, 137.59564, 5.22404, 4.43666, + 3.80494, 4.98512, 5.22808, + .01942, .00930, 148.26306, 5.61087, 4.81993, + 4.19478, 5.37391, 5.61490, + .01982, .00950, 158.68562, 5.99265, 5.19860, + 4.57989, 5.75750, 5.99666, + .02020, .00970, 168.67183, 6.36374, 5.56598, + 4.95203, 6.13027, 6.36775, + .02059, .00990, 179.07739, 6.75249, 5.95225, + 5.34497, 6.52067, 6.75649, + .02097, .01009, 189.37038, 7.14361, 6.33957, + 5.73654, 6.91339, 7.14760, + .02134, .01028, 199.52374, 7.53087, 6.72468, + 6.12786, 7.30215, 7.53486, + .02169, .01046, 209.12880, 7.90339, 7.09388, + 6.50087, 7.67605, 7.90736 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02204, .01064, 219.11787, 8.29254, 7.48075, + 6.89312, 8.06659, 8.29651, + .02239, .01083, 229.03833, 8.68413, 7.86956, + 7.28633, 8.45952, 8.68809, + .02273, .01100, 238.67024, 9.06756, 8.25057, + 7.67177, 8.84422, 9.07152, + .02305, .01117, 247.98935, 9.44105, 8.62226, + 8.04830, 9.21889, 9.44500, + .02337, .01134, 257.37970, 9.82293, 9.00142, + 8.43097, 9.60195, 9.82687 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01139, .00537, .93233, .58863, .00000, + .00000, .31284, .59089, + .01179, .00555, 1.89458, .61638, .00000, + .00000, .34346, .61866, + .01238, .00582, 3.67802, .67088, .02303, + .00000, .40202, .67318, + .01281, .00602, 5.30327, .72032, .07597, + .00000, .45430, .72263, + .01327, .00624, 7.28271, .78275, .13315, + .00000, .51960, .78507, + .01366, .00642, 9.22776, .84512, .19064, + .00000, .58437, .84745, + .01404, .00661, 11.34374, .91185, .25476, + .00000, .65334, .91419, + .01444, .00680, 13.86195, .99047, .33181, + .00000, .73427, .99282 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01479, .00697, 16.23459, 1.06604, .40415, + .00000, .81179, 1.06839, + .01513, .00713, 18.71426, 1.14503, .48037, + .00000, .89262, 1.14738, + .01540, .00726, 20.84049, 1.21185, .54630, + .00000, .96087, 1.21421, + .01598, .00754, 25.68183, 1.36763, .69825, + .01298, 1.11963, 1.37000, + .01647, .00779, 30.20284, 1.51615, .84270, + .18086, 1.27062, 1.51852, + .01704, .00807, 35.72382, 1.69861, 1.02117, + .38688, 1.45576, 1.70098, + .01762, .00836, 41.97604, 1.90668, 1.22512, + .59944, 1.66652, 1.90906, + .01816, .00863, 48.08667, 2.11163, 1.42644, + .80934, 1.87385, 2.11401 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01870, .00890, 54.67430, 2.33438, 1.64585, + 1.03707, 2.09892, 2.33676, + .01915, .00913, 60.42571, 2.53116, 1.83929, + 1.23543, 2.29759, 2.53355, + .01970, .00941, 67.72749, 2.78398, 2.08763, + 1.48904, 2.55262, 2.78637, + .02019, .00965, 74.52772, 3.02131, 2.32166, + 1.72919, 2.79187, 3.02371, + .02064, .00988, 81.03848, 3.25041, 2.54810, + 1.96171, 3.02269, 3.25281, + .02121, .01018, 89.54232, 3.55474, 2.84769, + 2.26620, 3.32913, 3.55714, + .02176, .01046, 97.88802, 3.85657, 3.14570, + 2.56999, 3.63291, 3.85898, + .02227, .01072, 106.04147, 4.15398, 3.44043, + 2.87157, 3.93210, 4.15639 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02278, .01099, 114.31097, 4.46162, 3.74375, + 3.17867, 4.24148, 4.46403, + .02329, .01125, 122.69340, 4.77609, 4.05496, + 3.49518, 4.55762, 4.77850, + .02377, .01150, 130.84538, 5.08532, 4.36133, + 3.80673, 4.86839, 5.08773, + .02422, .01173, 138.61922, 5.38480, 4.65748, + 4.10664, 5.16930, 5.38722, + .02468, .01197, 146.68935, 5.69757, 4.96795, + 4.42244, 5.48348, 5.70000, + .02514, .01221, 154.63420, 6.01113, 5.27812, + 4.73595, 5.79841, 6.01356, + .02557, .01244, 162.44595, 6.32075, 5.58574, + 5.04849, 6.10930, 6.32318, + .02598, .01265, 169.80338, 6.61761, 5.87965, + 5.34536, 6.40734, 6.62005 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02640, .01287, 177.43217, 6.92695, 6.18691, + 5.65685, 6.71786, 6.92939, + .02682, .01309, 184.97922, 7.23732, 6.49479, + 5.96815, 7.02937, 7.23976, + .02721, .01330, 192.28329, 7.54044, 6.79574, + 6.27254, 7.33357, 7.54288, + .02759, .01350, 199.32956, 7.83500, 7.08867, + 6.56925, 7.62915, 7.83746, + .02798, .01370, 206.40331, 8.13536, 7.38663, + 6.86989, 7.93052, 8.13782 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01296, .00607, .90834, .54935, .00000, + .00000, .29201, .55072, + .01342, .00628, 1.83002, .57609, .00000, + .00000, .32133, .57746, + .01410, .00660, 3.52151, .62782, .02170, + .00000, .37672, .62920, + .01459, .00684, 5.04838, .67428, .07141, + .00000, .42573, .67567, + .01511, .00709, 6.89364, .73248, .12466, + .00000, .48651, .73388, + .01556, .00731, 8.69440, .79026, .17790, + .00000, .54645, .79167, + .01599, .00752, 10.64246, .85183, .23704, + .00000, .61004, .85325, + .01645, .00774, 12.94822, .92408, .30778, + .00000, .68436, .92550 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01685, .00794, 15.10919, .99322, .37395, + .00000, .75526, .99465, + .01724, .00813, 17.35764, 1.06527, .44342, + .00000, .82895, 1.06670, + .01754, .00829, 19.27873, 1.12607, .50335, + .00000, .89103, 1.12750, + .01820, .00861, 23.62908, 1.26724, .64094, + .01190, 1.03487, 1.26868, + .01877, .00890, 27.66440, 1.40120, .77113, + .16324, 1.17104, 1.40265, + .01940, .00922, 32.56380, 1.56507, .93131, + .34845, 1.33732, 1.56653, + .02007, .00956, 38.07914, 1.75112, 1.11355, + .53853, 1.52579, 1.75259, + .02068, .00987, 43.43961, 1.93362, 1.29268, + .72543, 1.71041, 1.93510 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02129, .01018, 49.18917, 2.13121, 1.48717, + .92743, 1.91007, 2.13269, + .02181, .01044, 54.18570, 2.30515, 1.65804, + 1.10272, 2.08570, 2.30664, + .02243, .01076, 60.50067, 2.52785, 1.87665, + 1.32607, 2.31038, 2.52936, + .02299, .01105, 66.35643, 2.73622, 2.08199, + 1.53688, 2.52046, 2.73774, + .02350, .01131, 71.94156, 2.93678, 2.28009, + 1.74039, 2.72255, 2.93830, + .02415, .01165, 79.20473, 3.20229, 2.54133, + 2.00597, 2.98997, 3.20383, + .02476, .01197, 86.30258, 3.46477, 2.80033, + 2.27008, 3.25418, 3.46631, + .02534, .01227, 93.21075, 3.72263, 3.05575, + 2.53153, 3.51363, 3.72418 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02592, .01258, 100.18820, 3.98852, 3.31777, + 2.79687, 3.78107, 3.99008, + .02650, .01288, 107.23663, 4.25958, 3.58590, + 3.06963, 4.05362, 4.26116, + .02704, .01316, 114.06824, 4.52542, 3.84917, + 3.33743, 4.32084, 4.52700, + .02755, .01343, 120.56041, 4.78220, 4.10298, + 3.59452, 4.57889, 4.78380, + .02807, .01371, 127.28187, 5.04979, 4.36852, + 3.86469, 4.84775, 5.05140, + .02858, .01398, 133.87613, 5.31737, 4.63309, + 4.13214, 5.11653, 5.31899, + .02907, .01423, 140.34460, 5.58106, 4.89501, + 4.39833, 5.38136, 5.58269, + .02954, .01448, 146.41722, 5.83328, 5.14464, + 4.65051, 5.63465, 5.83492 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .03001, .01473, 152.70030, 6.09564, 5.40517, + 4.91469, 5.89806, 6.09730, + .03048, .01498, 158.89832, 6.35831, 5.66566, + 5.17812, 6.16176, 6.35998, + .03092, .01521, 164.88275, 6.61438, 5.91983, + 5.43524, 6.41879, 6.61606, + .03135, .01544, 170.64380, 6.86280, 6.16682, + 5.68548, 6.66811, 6.86449, + .03178, .01567, 176.41138, 7.11560, 6.41754, + 5.93849, 6.92181, 7.11730 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01433, .00668, .89066, .52068, .00000, + .00000, .27685, .52149, + .01484, .00692, 1.78203, .54664, .00000, + .00000, .30519, .54745, + .01559, .00728, 3.40526, .59629, .02072, + .00000, .35822, .59712, + .01614, .00755, 4.85959, .64055, .06806, + .00000, .40483, .64138, + .01671, .00783, 6.60651, .69566, .11844, + .00000, .46232, .69650, + .01721, .00808, 8.30209, .75011, .16860, + .00000, .51876, .75095, + .01769, .00832, 10.12832, .80793, .22412, + .00000, .57844, .80879, + .01820, .00857, 12.28064, .87558, .29032, + .00000, .64799, .87643 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01864, .00879, 14.28939, .94009, .35203, + .00000, .71412, .94096, + .01907, .00901, 16.37219, 1.00714, .41666, + .00000, .78269, 1.00801, + .01941, .00918, 18.14678, 1.06362, .47230, + .00000, .84035, 1.06449, + .02013, .00955, 22.14805, 1.19434, .59965, + .01112, .97351, 1.19523, + .02076, .00987, 25.83997, 1.31792, .71972, + .15074, 1.09913, 1.31882, + .02147, .01023, 30.30208, 1.46860, .86694, + .32121, 1.25202, 1.46952, + .02220, .01060, 35.30166, 1.63907, 1.03386, + .49546, 1.42471, 1.64000, + .02287, .01095, 40.13959, 1.80574, 1.19740, + .66623, 1.59333, 1.80668 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02355, .01130, 45.30795, 1.98565, 1.37442, + .85021, 1.77514, 1.98660, + .02412, .01159, 49.78305, 2.14358, 1.52953, + 1.00943, 1.93462, 2.14455, + .02481, .01195, 55.41895, 2.34525, 1.72743, + 1.21173, 2.13811, 2.34623, + .02542, .01227, 60.62719, 2.53345, 1.91284, + 1.40219, 2.32788, 2.53444, + .02599, .01257, 65.57992, 2.71417, 2.09132, + 1.58563, 2.51000, 2.71517, + .02670, .01294, 71.99842, 2.95280, 2.32605, + 1.82437, 2.75037, 2.95382, + .02738, .01330, 78.24995, 3.18809, 2.55818, + 2.06120, 2.98726, 3.18913, + .02802, .01363, 84.31629, 3.41870, 2.78658, + 2.29511, 3.21933, 3.41976 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02866, .01397, 90.42320, 3.65591, 3.02030, + 2.53186, 3.45796, 3.65699, + .02928, .01430, 96.57562, 3.89722, 3.25896, + 2.77476, 3.70063, 3.89831, + .02988, .01462, 102.52283, 4.13338, 3.49282, + 3.01274, 3.93806, 4.13449, + .03045, .01492, 108.15910, 4.36103, 3.71781, + 3.24072, 4.16687, 4.36215, + .03102, .01522, 113.98200, 4.59785, 3.95281, + 3.47992, 4.40485, 4.59900, + .03158, .01552, 119.67897, 4.83418, 4.18647, + 3.71620, 4.64229, 4.83534, + .03212, .01581, 125.25694, 5.06672, 4.41744, + 3.95103, 4.87588, 5.06790, + .03262, .01608, 130.47989, 5.28873, 4.63716, + 4.17306, 5.09886, 5.28993 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03314, .01635, 135.87483, 5.51935, 4.86617, + 4.40537, 5.33044, 5.52056, + .03365, .01663, 141.18457, 5.74985, 5.09475, + 4.63661, 5.56188, 5.75107, + .03414, .01689, 146.30185, 5.97422, 5.31747, + 4.86199, 5.78714, 5.97546, + .03461, .01714, 151.22002, 6.19161, 5.53361, + 5.08107, 6.00535, 6.19287, + .03508, .01739, 156.13257, 6.41248, 5.75267, + 5.30219, 6.22705, 6.41375 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01958, .00901, .84185, .44083, .00000, + .00000, .23487, .44064, + .02029, .00937, 1.64525, .46436, .00000, + .00000, .26029, .46419, + .02132, .00990, 3.07215, .50799, .01794, + .00000, .30656, .50783, + .02208, .01029, 4.32030, .54600, .05857, + .00000, .34641, .54585, + .02287, .01070, 5.79070, .59243, .10092, + .00000, .39472, .59230, + .02356, .01106, 7.19337, .63761, .14253, + .00000, .44145, .63750, + .02422, .01140, 8.68304, .68510, .18810, + .00000, .49039, .68500, + .02492, .01177, 10.41489, .74009, .24186, + .00000, .54687, .74001 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02552, .01209, 12.00979, .79198, .29146, + .00000, .60002, .79192, + .02611, .01240, 13.64518, .84546, .34299, + .00000, .65468, .84541, + .02658, .01264, 15.02618, .89022, .38706, + .00000, .70037, .89019, + .02757, .01317, 18.09723, .99279, .48694, + .00900, .80484, .99279, + .02843, .01362, 20.88297, 1.08862, .58004, + .11746, .90225, 1.08865, + .02939, .01414, 24.20120, 1.20422, .69299, + .24899, 1.01957, 1.20428, + .03040, .01467, 27.86374, 1.33354, .81963, + .38169, 1.15061, 1.33363, + .03131, .01516, 31.35843, 1.45866, .94242, + .51038, 1.27724, 1.45878 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03224, .01566, 35.04423, 1.59241, 1.07409, + .64768, 1.41247, 1.59257, + .03300, .01607, 38.19844, 1.70880, 1.18844, + .76543, 1.53006, 1.70899, + .03394, .01657, 42.12572, 1.85614, 1.33310, + .91374, 1.67881, 1.85637, + .03477, .01702, 45.71547, 1.99250, 1.46752, + 1.05224, 1.81638, 1.99276, + .03553, .01743, 49.09644, 2.12248, 1.59598, + 1.18468, 1.94745, 2.12278, + .03649, .01795, 53.42940, 2.29269, 1.76352, + 1.35552, 2.11901, 2.29303, + .03741, .01845, 57.60442, 2.45913, 1.92786, + 1.52365, 2.28668, 2.45951, + .03826, .01891, 61.61715, 2.62107, 2.08839, + 1.68852, 2.44975, 2.62149 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03912, .01938, 65.61336, 2.78631, 2.25134, + 1.85398, 2.61609, 2.78677, + .03996, .01983, 69.60441, 2.95327, 2.41664, + 2.02264, 2.78411, 2.95377, + .04076, .02027, 73.42921, 3.11560, 2.57755, + 2.18682, 2.94742, 3.11614, + .04152, .02068, 77.02151, 3.27104, 2.73133, + 2.34301, 3.10376, 3.27162, + .04228, .02110, 80.70769, 3.43188, 2.89112, + 2.50608, 3.26549, 3.43249, + .04303, .02151, 84.28116, 3.59132, 3.04892, + 2.66601, 3.42580, 3.59197, + .04374, .02190, 87.75956, 3.74745, 3.20421, + 2.82429, 3.58274, 3.74814, + .04442, .02227, 90.98846, 3.89561, 3.35099, + 2.97295, 3.73165, 3.89633 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04511, .02264, 94.30584, 4.04884, 3.50336, + 3.12789, 3.88562, 4.04960, + .04578, .02301, 97.54615, 4.20115, 3.65460, + 3.28124, 4.03867, 4.20195, + .04643, .02337, 100.65018, 4.34874, 3.80129, + 3.43003, 4.18694, 4.34957, + .04705, .02371, 103.61729, 4.49113, 3.94307, + 3.57408, 4.32998, 4.49199, + .04768, .02405, 106.55864, 4.63506, 4.08600, + 3.71866, 4.47454, 4.63595 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02681, .01227, .80568, .37361, .00000, + .00000, .19988, .37338, + .02778, .01279, 1.52978, .39479, .00000, + .00000, .22256, .39459, + .02921, .01357, 2.78141, .43293, .01550, + .00000, .26281, .43278, + .03026, .01413, 3.84866, .46543, .05029, + .00000, .29680, .46533, + .03136, .01473, 5.08032, .50441, .08578, + .00000, .33727, .50435, + .03230, .01524, 6.23392, .54174, .12017, + .00000, .37584, .54172, + .03321, .01574, 7.44100, .58054, .15742, + .00000, .41581, .58057, + .03417, .01626, 8.82425, .62501, .20088, + .00000, .46147, .62508 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03500, .01672, 10.08023, .66649, .24056, + .00000, .50396, .66660, + .03581, .01716, 11.35304, .70887, .28142, + .00000, .54728, .70901, + .03645, .01751, 12.41782, .74411, .31614, + .00000, .58327, .74429, + .03781, .01826, 14.75104, .82399, .39401, + .00725, .66467, .82423, + .03898, .01891, 16.82924, .89769, .46572, + .09109, .73964, .89800, + .04029, .01963, 19.26673, .98560, .55176, + .19204, .82892, .98597, + .04166, .02039, 21.91466, 1.08278, .64712, + .29251, .92748, 1.08322, + .04290, .02107, 24.40378, 1.17576, .73858, + .38889, 1.02167, 1.17627 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04415, .02177, 26.99344, 1.27415, .83568, + .49069, 1.12125, 1.27473, + .04519, .02235, 29.18198, 1.35898, .91923, + .57716, 1.20704, 1.35962, + .04646, .02305, 31.87381, 1.46539, 1.02397, + .68509, 1.31458, 1.46610, + .04757, .02367, 34.30567, 1.56301, 1.12047, + .78502, 1.41318, 1.56378, + .04860, .02424, 36.57265, 1.65535, 1.21200, + .87985, 1.50640, 1.65619, + .04990, .02497, 39.44299, 1.77520, 1.33030, + 1.00107, 1.62733, 1.77612, + .05112, .02565, 42.17688, 1.89139, 1.44536, + 1.11934, 1.74451, 1.89238, + .05227, .02629, 44.77767, 2.00356, 1.55691, + 1.23447, 1.85759, 2.00462 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05342, .02693, 47.33707, 2.11705, 1.66915, + 1.34896, 1.97196, 2.11818, + .05454, .02756, 49.86937, 2.23091, 1.78223, + 1.46489, 2.08668, 2.23211, + .05561, .02815, 52.27351, 2.34085, 1.89156, + 1.57695, 2.19740, 2.34211, + .05661, .02871, 54.50906, 2.44537, 1.99529, + 1.68278, 2.30266, 2.44670, + .05762, .02928, 56.78650, 2.55292, 2.10250, + 1.79271, 2.41093, 2.55431, + .05862, .02983, 58.97137, 2.65878, 2.20760, + 1.89969, 2.51749, 2.66024, + .05957, .03037, 61.08510, 2.76193, 2.31054, + 2.00511, 2.62129, 2.76345, + .06046, .03087, 63.02779, 2.85916, 2.40718, + 2.10341, 2.71914, 2.86074 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06137, .03137, 65.01241, 2.95927, 2.50707, + 2.20545, 2.81985, 2.96091, + .06226, .03187, 66.93423, 3.05820, 2.60563, + 2.30582, 2.91937, 3.05990, + .06312, .03235, 68.76286, 3.15359, 2.70077, + 2.40275, 3.01532, 3.15535, + .06393, .03281, 70.50058, 3.24522, 2.79233, + 2.49620, 3.10747, 3.24703, + .06475, .03326, 72.20791, 3.33731, 2.88409, + 2.58942, 3.20008, 3.33917 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03226, .01480, .79340, .33971, .00000, + .00000, .18233, .33980, + .03344, .01545, 1.47468, .35954, .00000, + .00000, .20350, .35968, + .03517, .01641, 2.63195, .39467, .01420, + .00000, .24052, .39491, + .03644, .01712, 3.60307, .42425, .04590, + .00000, .27142, .42455, + .03776, .01785, 4.70951, .45932, .07784, + .00000, .30782, .45969, + .03890, .01849, 5.73408, .49259, .10851, + .00000, .34219, .49303, + .03999, .01910, 6.79627, .52694, .14151, + .00000, .37758, .52744, + .04115, .01975, 8.00263, .56606, .17976, + .00000, .41777, .56663 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04216, .02031, 9.08842, .60229, .21445, + .00000, .45490, .60292, + .04312, .02085, 10.18075, .63910, .24999, + .00000, .49256, .63978, + .04389, .02129, 11.08923, .66959, .28006, + .00000, .52371, .67032, + .04552, .02220, 13.06171, .73825, .34707, + .00637, .59373, .73907, + .04693, .02299, 14.79852, .80110, .40833, + .07818, .65771, .80201, + .04850, .02388, 16.81607, .87554, .48133, + .16428, .73339, .87655, + .05013, .02480, 18.98611, .95723, .56166, + .24927, .81632, .95834, + .05162, .02564, 21.00700, 1.03485, .63819, + .33025, .89503, 1.03606 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05311, .02648, 23.09164, 1.11648, .71893, + .41525, .97773, 1.11779, + .05435, .02718, 24.83951, 1.18645, .78801, + .48702, 1.04856, 1.18784, + .05585, .02803, 26.97281, 1.27373, .87414, + .57612, 1.13686, 1.27522, + .05718, .02878, 28.88595, 1.35337, .95307, + .65818, 1.21738, 1.35494, + .05840, .02947, 30.65785, 1.42834, 1.02758, + .73569, 1.29314, 1.43000, + .05994, .03035, 32.88402, 1.52511, 1.12335, + .83419, 1.39089, 1.52687, + .06139, .03117, 34.98886, 1.61842, 1.21601, + .92982, 1.48510, 1.62028, + .06275, .03194, 36.97830, 1.70807, 1.30542, + 1.02246, 1.57558, 1.71003 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06411, .03270, 38.92092, 1.79830, 1.39490, + 1.11407, 1.66661, 1.80035, + .06543, .03345, 40.83160, 1.88843, 1.48467, + 1.20646, 1.75751, 1.89057, + .06669, .03417, 42.63470, 1.97507, 1.57109, + 1.29538, 1.84487, 1.97730, + .06787, .03483, 44.30035, 2.05709, 1.65272, + 1.37897, 1.92755, 2.05940, + .06906, .03551, 45.98953, 2.14118, 1.73680, + 1.46552, 2.01231, 2.14358, + .07023, .03617, 47.59882, 2.22359, 1.81885, + 1.54935, 2.09534, 2.22606, + .07134, .03680, 49.14977, 2.30364, 1.89899, + 1.63173, 2.17599, 2.30619, + .07239, .03739, 50.56557, 2.37878, 1.97390, + 1.70821, 2.25169, 2.38141 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07345, .03799, 52.00680, 2.45593, 2.05112, + 1.78739, 2.32940, 2.45864, + .07450, .03858, 53.39434, 2.53189, 2.12703, + 1.86498, 2.40589, 2.53467, + .07550, .03915, 54.70881, 2.60491, 2.20009, + 1.93969, 2.47942, 2.60776, + .07645, .03969, 55.95307, 2.67486, 2.27021, + 2.01153, 2.54985, 2.67778, + .07741, .04023, 57.16805, 2.74490, 2.34022, + 2.08292, 2.62037, 2.74789 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03683, .01699, .79050, .31802, .00000, + .00000, .17112, .31844, + .03818, .01775, 1.44273, .33691, .00000, + .00000, .19124, .33740, + .04017, .01887, 2.53600, .36999, .01333, + .00000, .22608, .37061, + .04161, .01969, 3.44244, .39760, .04297, + .00000, .25490, .39830, + .04313, .02055, 4.46535, .43006, .07254, + .00000, .28860, .43086, + .04443, .02129, 5.40455, .46065, .10078, + .00000, .32022, .46153, + .04567, .02200, 6.37151, .49208, .13099, + .00000, .35261, .49305, + .04700, .02275, 7.46240, .52770, .16584, + .00000, .38923, .52875 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04814, .02340, 8.43786, .56052, .19730, + .00000, .42288, .56165, + .04924, .02403, 9.41385, .59373, .22940, + .00000, .45688, .59493, + .05012, .02452, 10.22204, .62116, .25648, + .00000, .48492, .62242, + .05197, .02558, 11.96471, .68261, .31654, + .00580, .54764, .68399, + .05357, .02649, 13.48592, .73854, .37114, + .06994, .60464, .74003, + .05535, .02751, 15.24031, .80445, .43589, + .14663, .67170, .80606, + .05721, .02857, 17.11329, .87637, .50674, + .22185, .74478, .87812, + .05889, .02953, 18.84533, .94437, .57392, + .29317, .81380, .94623 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06058, .03050, 20.62056, 1.01555, .64446, + .36768, .88598, 1.01753, + .06198, .03130, 22.10015, 1.07629, .70457, + .43034, .94753, 1.07837, + .06368, .03227, 23.89551, 1.15175, .77920, + .50779, 1.02394, 1.15395, + .06518, .03313, 25.49667, 1.22032, .84732, + .57885, 1.09334, 1.22263, + .06655, .03391, 26.97237, 1.28465, .91140, + .64573, 1.15842, 1.28706, + .06829, .03490, 28.81545, 1.36733, .99343, + .73037, 1.24203, 1.36987, + .06992, .03584, 30.54838, 1.44675, 1.07249, + .81222, 1.32229, 1.44941, + .07145, .03671, 32.17829, 1.52278, 1.14851, + .89125, 1.39910, 1.52555 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07297, .03758, 33.76029, 1.59900, 1.22427, + .96907, 1.47607, 1.60188, + .07446, .03843, 35.30925, 1.67488, 1.30005, + 1.04730, 1.55269, 1.67787, + .07587, .03923, 36.76426, 1.74759, 1.37276, + 1.12237, 1.62608, 1.75068, + .07719, .03999, 38.10149, 1.81619, 1.44121, + 1.19269, 1.69531, 1.81938, + .07852, .04075, 39.45295, 1.88635, 1.51155, + 1.26533, 1.76609, 1.88964, + .07983, .04149, 40.73337, 1.95486, 1.57995, + 1.33543, 1.83521, 1.95825, + .08107, .04220, 41.96386, 2.02127, 1.64662, + 1.40420, 1.90219, 2.02475, + .08225, .04287, 43.08107, 2.08341, 1.70873, + 1.46781, 1.96485, 2.08698 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08343, .04354, 44.21530, 2.14707, 1.77263, + 1.53355, 2.02905, 2.15073, + .08460, .04421, 45.30216, 2.20958, 1.83528, + 1.59779, 2.09207, 2.21333, + .08571, .04484, 46.32824, 2.26953, 1.89543, + 1.65950, 2.15251, 2.27337, + .08677, .04544, 47.29662, 2.32684, 1.95305, + 1.71874, 2.21027, 2.33076, + .08783, .04604, 48.23743, 2.38408, 2.01041, + 1.77742, 2.26796, 2.38807 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .04086, .01907, .79624, .30324, .00000, + .00000, .16327, .30369, + .04236, .01993, 1.42580, .32138, .00000, + .00000, .18257, .32193, + .04457, .02119, 2.46985, .35289, .01266, + .00000, .21570, .35359, + .04618, .02212, 3.32701, .37899, .04074, + .00000, .24293, .37979, + .04786, .02308, 4.28656, .40947, .06853, + .00000, .27457, .41040, + .04930, .02391, 5.16138, .43804, .09493, + .00000, .30409, .43906, + .05069, .02470, 6.05687, .46728, .12307, + .00000, .33423, .46840, + .05215, .02555, 7.06151, .50029, .15540, + .00000, .36816, .50151 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05342, .02627, 7.95497, .53058, .18446, + .00000, .39923, .53189, + .05464, .02698, 8.84487, .56112, .21402, + .00000, .43051, .56252, + .05560, .02753, 9.57911, .58629, .23889, + .00000, .45625, .58776, + .05765, .02871, 11.15322, .64245, .29385, + .00537, .51359, .64406, + .05942, .02973, 12.51726, .69333, .34358, + .06390, .56546, .69507, + .06138, .03086, 14.08090, .75303, .40230, + .13369, .62624, .75492, + .06343, .03204, 15.73993, .81788, .46629, + .20180, .69218, .81992, + .06528, .03310, 17.26513, .87894, .52671, + .26612, .75419, .88112 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06714, .03418, 18.81994, .94261, .58991, + .33306, .81880, .94493, + .06868, .03506, 20.10936, .99675, .64358, + .38914, .87371, .99918, + .07054, .03613, 21.66627, 1.06378, .70998, + .45823, .94163, 1.06635, + .07218, .03708, 23.04830, 1.12448, .77039, + .52142, 1.00311, 1.12718, + .07369, .03794, 24.31679, 1.18127, .82707, + .58073, 1.06060, 1.18408, + .07559, .03904, 25.89298, 1.25401, .89936, + .65551, 1.13421, 1.25696, + .07737, .04006, 27.36810, 1.32364, .96881, + .72760, 1.20463, 1.32673, + .07904, .04102, 28.74986, 1.39010, 1.03540, + .79702, 1.27183, 1.39332 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08070, .04197, 30.08396, 1.45651, 1.10154, + .86513, 1.33895, 1.45985, + .08233, .04290, 31.38519, 1.52244, 1.16752, + .93343, 1.40558, 1.52591, + .08386, .04378, 32.60262, 1.58546, 1.23067, + .99880, 1.46924, 1.58905, + .08530, .04461, 33.71660, 1.64474, 1.28995, + 1.05986, 1.52911, 1.64844, + .08675, .04544, 34.83917, 1.70523, 1.35074, + 1.12281, 1.59020, 1.70905, + .08817, .04625, 35.89747, 1.76414, 1.40969, + 1.18339, 1.64968, 1.76807, + .08952, .04702, 36.91204, 1.82114, 1.46704, + 1.24271, 1.70722, 1.82517, + .09079, .04774, 37.82885, 1.87433, 1.52033, + 1.29743, 1.76091, 1.87846 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09208, .04848, 38.75751, 1.92873, 1.57507, + 1.35390, 1.81582, 1.93296, + .09334, .04920, 39.64379, 1.98201, 1.62859, + 1.40894, 1.86959, 1.98634, + .09455, .04988, 40.47801, 2.03302, 1.67990, + 1.46173, 1.92106, 2.03744, + .09569, .05053, 41.26328, 2.08170, 1.72896, + 1.51231, 1.97017, 2.08621, + .09684, .05119, 42.02265, 2.13020, 1.77770, + 1.56230, 2.01911, 2.13480 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05670, .02767, .83825, .26293, .00000, + .00000, .14210, .26410, + .05880, .02893, 1.40049, .27887, .00000, + .00000, .15899, .28020, + .06187, .03075, 2.29836, .30573, .01075, + .00000, .18719, .30731, + .06409, .03208, 3.01127, .32745, .03436, + .00000, .20986, .32921, + .06642, .03346, 3.78864, .35230, .05714, + .00000, .23566, .35424, + .06841, .03463, 4.48086, .37516, .07842, + .00000, .25933, .37727, + .07031, .03576, 5.17583, .39825, .10079, + .00000, .28317, .40052, + .07232, .03695, 5.94117, .42399, .12615, + .00000, .30969, .42642 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07405, .03797, 6.60961, .44729, .14864, + .00000, .33364, .44985, + .07571, .03896, 7.26531, .47053, .17128, + .00000, .35750, .47323, + .07703, .03974, 7.79982, .48952, .19016, + .00000, .37698, .49233, + .07981, .04138, 8.92354, .53134, .23137, + .00420, .41981, .53439, + .08219, .04278, 9.87332, .56864, .26809, + .04773, .45795, .57189, + .08485, .04434, 10.94011, .61180, .31085, + .09921, .50203, .61526, + .08759, .04595, 12.04837, .65799, .35677, + .14861, .54915, .66168, + .09006, .04740, 13.04704, .70087, .39954, + .19464, .59285, .70476 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09254, .04885, 14.04655, .74501, .44372, + .24194, .63781, .74911, + .09459, .05005, 14.86127, .78210, .48080, + .28111, .67556, .78637, + .09705, .05148, 15.82840, .82749, .52616, + .32881, .72173, .83197, + .09922, .05275, 16.67317, .86814, .56699, + .37198, .76306, .87280, + .10120, .05390, 17.43751, .90580, .60492, + .41212, .80133, .91063, + .10369, .05534, 18.37045, .95349, .65275, + .46215, .84978, .95852, + .10602, .05669, 19.22924, .99862, .69821, + .50987, .89562, 1.00385, + .10819, .05795, 20.02208, 1.04129, .74139, + .55539, .93894, 1.04670 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11035, .05919, 20.77321, 1.08343, .78379, + .59954, .98171, 1.08902, + .11245, .06040, 21.49594, 1.12490, .82572, + .64344, 1.02380, 1.13066, + .11443, .06154, 22.16257, 1.16417, .86550, + .68510, 1.06364, 1.17010, + .11628, .06260, 22.76255, 1.20076, .90249, + .72364, 1.10077, 1.20685, + .11814, .06367, 23.36099, 1.23784, .94017, + .76312, 1.13838, 1.24408, + .11995, .06470, 23.91473, 1.27359, .97634, + .80073, 1.17464, 1.27998, + .12167, .06569, 24.44121, 1.30797, 1.01134, + .83737, 1.20951, 1.31450, + .12328, .06661, 24.90805, 1.33974, 1.04355, + .87084, 1.24173, 1.34641 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12491, .06754, 25.37720, 1.37207, 1.07647, + .90521, 1.27451, 1.37887, + .12651, .06844, 25.81766, 1.40346, 1.10840, + .93845, 1.30635, 1.41040, + .12803, .06931, 26.22753, 1.43332, 1.13881, + .97012, 1.33663, 1.44038, + .12947, .07012, 26.60959, 1.46165, 1.16773, + 1.00032, 1.36535, 1.46883, + .13091, .07094, 26.97212, 1.48964, 1.19622, + 1.02991, 1.39374, 1.49694 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07965, .04146, .94767, .23204, .00000, + .00000, .12574, .23450, + .08259, .04324, 1.44160, .24584, .00000, + .00000, .14036, .24857, + .08686, .04583, 2.19454, .26828, .00905, + .00000, .16397, .27141, + .08994, .04770, 2.76961, .28596, .02868, + .00000, .18248, .28937, + .09314, .04963, 3.37930, .30571, .04707, + .00000, .20307, .30942, + .09587, .05126, 3.90787, .32352, .06392, + .00000, .22159, .32749, + .09846, .05282, 4.42676, .34125, .08136, + .00000, .23998, .34545, + .10120, .05445, 4.98612, .36071, .10082, + .00000, .26014, .36517 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10355, .05585, 5.46474, .37806, .11782, + .00000, .27808, .38273, + .10579, .05719, 5.92603, .39515, .13471, + .00000, .29573, .40003, + .10757, .05825, 6.29680, .40899, .14867, + .00000, .31001, .41403, + .11130, .06046, 7.05849, .43900, .17868, + .00320, .34093, .44439, + .11448, .06233, 7.68299, .46530, .20495, + .03472, .36800, .47097, + .11800, .06441, 8.36756, .49523, .23507, + .07163, .39877, .50123, + .12163, .06653, 9.06110, .52671, .26687, + .10638, .43111, .53304, + .12487, .06843, 9.67111, .55547, .29602, + .13826, .46063, .56209 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12812, .07031, 10.26807, .58463, .32571, + .17056, .49055, .59155, + .13078, .07186, 10.74430, .60881, .35029, + .19694, .51535, .61596, + .13396, .07370, 11.29764, .63798, .37996, + .22866, .54525, .64542, + .13676, .07531, 11.77131, .66378, .40634, + .25703, .57169, .67147, + .13930, .07678, 12.19223, .68740, .43058, + .28312, .59590, .69532, + .14248, .07860, 12.69383, .71690, .46075, + .31521, .62612, .72511, + .14543, .08029, 13.14566, .74446, .48906, + .34545, .65436, .75293, + .14819, .08185, 13.55497, .77021, .51566, + .37400, .68073, .77893 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15089, .08339, 13.93240, .79530, .54142, + .40131, .70643, .80424, + .15352, .08488, 14.28894, .81972, .56665, + .42822, .73144, .82889, + .15599, .08627, 14.61126, .84259, .59034, + .45350, .75487, .85199, + .15828, .08756, 14.89436, .86365, .61212, + .47663, .77645, .87325, + .16058, .08885, 15.17292, .88482, .63414, + .50015, .79814, .89461, + .16281, .09010, 15.42290, .90497, .65502, + .52229, .81878, .91495, + .16492, .09128, 15.65806, .92421, .67510, + .54374, .83851, .93438, + .16689, .09237, 15.85999, .94178, .69337, + .56311, .85652, .95212 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16887, .09348, 16.06073, .95953, .71193, + .58289, .87472, .97004, + .17080, .09455, 16.24388, .97659, .72975, + .60183, .89222, .98727, + .17263, .09556, 16.41109, .99269, .74660, + .61975, .90873, 1.00352, + .17437, .09652, 16.56449, 1.00786, .76252, + .63673, .92429, 1.01884, + .17610, .09747, 16.70474, 1.02267, .77803, + .65321, .93949, 1.03379 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09795, .05315, 1.05261, .21739, .00000, + .00000, .11807, .22122, + .10152, .05532, 1.49895, .22987, .00000, + .00000, .13135, .23406, + .10668, .05845, 2.16398, .24975, .00812, + .00000, .15237, .25445, + .11039, .06069, 2.65930, .26515, .02559, + .00000, .16858, .27020, + .11423, .06299, 3.17507, .28209, .04165, + .00000, .18635, .28753, + .11749, .06493, 3.61462, .29718, .05617, + .00000, .20213, .30293, + .12058, .06678, 4.03981, .31203, .07104, + .00000, .21764, .31808, + .12383, .06871, 4.49182, .32819, .08747, + .00000, .23449, .33456 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12661, .07035, 4.87341, .34244, .10167, + .00000, .24933, .34908, + .12927, .07192, 5.23695, .35637, .11567, + .00000, .26381, .36326, + .13136, .07315, 5.52649, .36758, .12716, + .00000, .27546, .37468, + .13575, .07572, 6.11162, .39165, .15163, + .00270, .30044, .39916, + .13947, .07789, 6.58113, .41249, .17280, + .02836, .32205, .42036, + .14358, .08028, 7.08724, .43595, .19682, + .05822, .34636, .44420, + .14778, .08270, 7.59104, .46035, .22190, + .08598, .37162, .46899, + .15154, .08486, 8.02662, .48239, .24465, + .11119, .39443, .49138 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15527, .08700, 8.44607, .50452, .26760, + .13650, .41734, .51386, + .15832, .08874, 8.77542, .52269, .28643, + .15700, .43613, .53231, + .16196, .09081, 9.15206, .54442, .30897, + .18143, .45861, .55437, + .16515, .09261, 9.46960, .56346, .32884, + .20311, .47831, .57371, + .16803, .09424, 9.74787, .58076, .34697, + .22291, .49620, .59127, + .17162, .09625, 10.07316, .60216, .36933, + .24705, .51834, .61299, + .17495, .09811, 10.36125, .62197, .39014, + .26963, .53884, .63310, + .17804, .09983, 10.61837, .64033, .40954, + .29079, .55785, .65174 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18106, .10150, 10.84967, .65803, .42817, + .31086, .57618, .66971, + .18399, .10312, 11.06486, .67514, .44629, + .33050, .59389, .68708, + .18673, .10463, 11.25606, .69104, .46319, + .34883, .61037, .70322, + .18926, .10601, 11.42000, .70555, .47860, + .36549, .62541, .71795, + .19180, .10740, 11.57940, .72006, .49410, + .38234, .64046, .73268, + .19424, .10873, 11.71805, .73373, .50868, + .39808, .65465, .74656, + .19656, .10999, 11.84732, .74673, .52264, + .41327, .66814, .75976, + .19870, .11114, 11.95431, .75848, .53524, + .42688, .68035, .77169 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20086, .11231, 12.05961, .77030, .54798, + .44072, .69263, .78370, + .20296, .11343, 12.15247, .78156, .56013, + .45390, .70434, .79514, + .20495, .11450, 12.23537, .79212, .57156, + .46630, .71533, .80587, + .20682, .11550, 12.31001, .80202, .58232, + .47801, .72564, .81592, + .20868, .11648, 12.37476, .81161, .59271, + .48928, .73563, .82566 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .11398, .06372, 1.14489, .20831, .00000, + .00000, .11337, .21355, + .11806, .06618, 1.55489, .21980, .00000, + .00000, .12567, .22546, + .12395, .06971, 2.15438, .23782, .00747, + .00000, .14484, .24408, + .12816, .07223, 2.59237, .25159, .02345, + .00000, .15944, .25828, + .13251, .07481, 3.04241, .26658, .03793, + .00000, .17527, .27371, + .13619, .07698, 3.42099, .27979, .05089, + .00000, .18918, .28728, + .13967, .07902, 3.78308, .29270, .06405, + .00000, .20276, .30054, + .14332, .08116, 4.16391, .30664, .07848, + .00000, .21741, .31484 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14644, .08298, 4.48209, .31883, .09085, + .00000, .23020, .32734, + .14940, .08471, 4.78247, .33068, .10298, + .00000, .24262, .33948, + .15174, .08606, 5.01996, .34016, .11288, + .00000, .25256, .34919, + .15663, .08888, 5.49370, .36037, .13380, + .00237, .27371, .36988, + .16075, .09124, 5.86700, .37771, .15174, + .02431, .29183, .38761, + .16529, .09383, 6.26391, .39706, .17193, + .04973, .31206, .40739, + .16992, .09645, 6.65335, .41700, .19283, + .07315, .33289, .42777, + .17403, .09878, 6.98525, .43485, .21164, + .09424, .35155, .44601 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17812, .10107, 7.30052, .45264, .23048, + .11527, .37014, .46418, + .18144, .10292, 7.54469, .46714, .24583, + .13218, .38528, .47898, + .18539, .10512, 7.81998, .48435, .26407, + .15222, .40327, .49655, + .18884, .10702, 8.04896, .49932, .28005, + .16989, .41892, .51184, + .19195, .10874, 8.24713, .51283, .29455, + .18594, .43306, .52564, + .19582, .11085, 8.47458, .52941, .31231, + .20538, .45041, .54257, + .19939, .11279, 8.67275, .54465, .32873, + .22345, .46637, .55812, + .20268, .11458, 8.84707, .55869, .34395, + .24030, .48107, .57245 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20590, .11632, 8.99998, .57210, .35846, + .25617, .49513, .58614, + .20901, .11798, 9.14001, .58497, .37250, + .27163, .50864, .59929, + .21191, .11953, 9.26210, .59687, .38551, + .28598, .52114, .61143, + .21458, .12095, 9.36395, .60764, .39731, + .29894, .53246, .62243, + .21725, .12237, 9.46171, .61836, .40914, + .31202, .54374, .63338, + .21981, .12372, 9.54343, .62838, .42018, + .32415, .55429, .64361, + .22223, .12499, 9.61889, .63786, .43072, + .33582, .56429, .65330, + .22447, .12616, 9.67825, .64636, .44016, + .34621, .57326, .66198 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22672, .12733, 9.73596, .65487, .44969, + .35675, .58226, .67068, + .22890, .12846, 9.78428, .66292, .45872, + .36673, .59078, .67891, + .23095, .12952, 9.82594, .67043, .46717, + .37609, .59874, .68658, + .23288, .13052, 9.86233, .67743, .47510, + .38490, .60617, .69375, + .23479, .13150, 9.89092, .68415, .48271, + .39332, .61331, .70062 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .12860, .07349, 1.22458, .20176, .00000, + .00000, .11005, .20845, + .13311, .07619, 1.60399, .21244, .00000, + .00000, .12156, .21960, + .13960, .08004, 2.15040, .22897, .00697, + .00000, .13927, .23680, + .14424, .08276, 2.54333, .24147, .02180, + .00000, .15262, .24977, + .14901, .08555, 2.94278, .25495, .03508, + .00000, .16697, .26374, + .15303, .08789, 3.27521, .26672, .04687, + .00000, .17948, .27592, + .15683, .09009, 3.59022, .27816, .05877, + .00000, .19162, .28774, + .16081, .09239, 3.91864, .29043, .07172, + .00000, .20462, .30041 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16419, .09433, 4.19065, .30110, .08276, + .00000, .21591, .31142, + .16741, .09616, 4.44544, .31141, .09351, + .00000, .22681, .32204, + .16993, .09760, 4.64564, .31963, .10227, + .00000, .23551, .33051, + .17521, .10059, 5.04059, .33704, .12064, + .00213, .25389, .34843, + .17965, .10309, 5.34671, .35185, .13629, + .02143, .26953, .36367, + .18452, .10581, 5.66830, .36826, .15377, + .04370, .28685, .38054, + .18946, .10856, 5.97983, .38504, .17175, + .06405, .30457, .39779, + .19385, .11098, 6.24189, .39996, .18782, + .08227, .32032, .41312 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19819, .11336, 6.48775, .41473, .20381, + .10034, .33592, .42829, + .20171, .11528, 6.67570, .42668, .21677, + .11478, .34855, .44056, + .20588, .11754, 6.88474, .44077, .23208, + .13181, .36345, .45503, + .20951, .11950, 7.05631, .45296, .24543, + .14675, .37635, .46755, + .21278, .12125, 7.20293, .46390, .25748, + .16026, .38794, .47878, + .21682, .12341, 7.36815, .47723, .27215, + .17654, .40206, .49246, + .22055, .12538, 7.50958, .48939, .28564, + .19159, .41498, .50495, + .22398, .12720, 7.63202, .50053, .29809, + .20557, .42681, .51639 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22731, .12894, 7.73660, .51110, .30988, + .21865, .43806, .52724, + .23053, .13061, 7.83056, .52119, .32124, + .23135, .44881, .53760, + .23352, .13216, 7.91052, .53045, .33172, + .24309, .45869, .54711, + .23627, .13358, 7.97493, .53877, .34117, + .25364, .46759, .55566, + .23901, .13498, 8.03579, .54702, .35062, + .26425, .47642, .56413, + .24162, .13632, 8.08381, .55466, .35938, + .27404, .48461, .57198, + .24409, .13758, 8.12758, .56187, .36772, + .28344, .49235, .57939, + .24637, .13872, 8.15917, .56827, .37514, + .29177, .49925, .58597 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24865, .13987, 8.18927, .57467, .38261, + .30019, .50615, .59255, + .25085, .14097, 8.21198, .58067, .38966, + .30813, .51264, .59873, + .25292, .14200, 8.23010, .58623, .39623, + .31555, .51867, .60445, + .25487, .14297, 8.24485, .59140, .40237, + .32252, .52427, .60977, + .25679, .14392, 8.25337, .59631, .40824, + .32915, .52962, .61482 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15514, .09137, 1.35182, .19235, .00000, + .00000, .10542, .20195, + .16036, .09440, 1.68040, .20168, .00000, + .00000, .11565, .21183, + .16782, .09869, 2.14243, .21585, .00620, + .00000, .13111, .22678, + .17313, .10171, 2.46629, .22638, .01929, + .00000, .14256, .23786, + .17855, .10479, 2.78996, .23756, .03079, + .00000, .15469, .24960, + .18310, .10735, 3.05477, .24721, .04087, + .00000, .16513, .25970, + .18738, .10974, 3.30191, .25648, .05093, + .00000, .17516, .26940, + .19185, .11223, 3.55585, .26633, .06178, + .00000, .18580, .27969 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19564, .11432, 3.76324, .27480, .07092, + .00000, .19495, .28854, + .19922, .11629, 3.95495, .28292, .07976, + .00000, .20371, .29700, + .20203, .11783, 4.10404, .28935, .08691, + .00000, .21065, .30370, + .20786, .12100, 4.39230, .30281, .10177, + .00179, .22517, .31772, + .21274, .12363, 4.60908, .31412, .11427, + .01745, .23738, .32949, + .21805, .12648, 4.83184, .32650, .12809, + .03542, .25075, .34236, + .22343, .12934, 5.04258, .33899, .14214, + .05165, .26426, .35535, + .22817, .13184, 5.21559, .34996, .15456, + .06603, .27612, .36674 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23282, .13427, 5.37403, .36069, .16681, + .08015, .28774, .37787, + .23659, .13623, 5.49189, .36927, .17663, + .09135, .29706, .38679, + .24103, .13851, 5.61942, .37927, .18814, + .10443, .30794, .39718, + .24486, .14047, 5.72125, .38783, .19809, + .11583, .31726, .40606, + .24830, .14222, 5.80594, .39544, .20700, + .12607, .32556, .41396, + .25252, .14435, 5.89697, .40458, .21773, + .13828, .33556, .42344, + .25639, .14628, 5.97169, .41283, .22752, + .14949, .34461, .43200, + .25994, .14805, 6.03393, .42031, .23649, + .15983, .35283, .43976 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26336, .14973, 6.08278, .42727, .24489, + .16941, .36053, .44700, + .26664, .15133, 6.12429, .43386, .25292, + .17865, .36782, .45384, + .26968, .15281, 6.15697, .43984, .26027, + .18714, .37446, .46005, + .27245, .15414, 6.17974, .44514, .26684, + .19471, .38038, .46556, + .27521, .15547, 6.19983, .45035, .27336, + .20228, .38620, .47097, + .27782, .15670, 6.21122, .45508, .27935, + .20920, .39152, .47589, + .28028, .15787, 6.22080, .45952, .28503, + .21582, .39653, .48051, + .28253, .15892, 6.22299, .46338, .29002, + .22163, .40092, .48453 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28478, .15997, 6.22406, .46723, .29503, + .22749, .40528, .48853, + .28693, .16096, 6.22031, .47076, .29971, + .23297, .40933, .49221, + .28895, .16189, 6.21438, .47400, .30404, + .23807, .41306, .49559, + .29084, .16275, 6.20713, .47698, .30807, + .24282, .41650, .49870, + .29269, .16359, 6.19537, .47975, .31187, + .24731, .41972, .50158 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .19086, .11527, 1.47891, .18225, .00000, + .00000, .10069, .19622, + .19684, .11858, 1.74728, .18998, .00000, + .00000, .10942, .20457, + .20534, .12322, 2.11455, .20145, .00536, + .00000, .12234, .21691, + .21134, .12647, 2.36442, .20981, .01655, + .00000, .13174, .22587, + .21742, .12974, 2.60930, .21855, .02619, + .00000, .14154, .23520, + .22250, .13244, 2.80560, .22596, .03452, + .00000, .14984, .24310, + .22726, .13495, 2.98556, .23300, .04274, + .00000, .15773, .25060, + .23218, .13754, 3.16730, .24040, .05150, + .00000, .16601, .25845 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23634, .13970, 3.31305, .24668, .05880, + .00000, .17304, .26512, + .24025, .14172, 3.44563, .25263, .06579, + .00000, .17971, .27143, + .24331, .14329, 3.54747, .25731, .07140, + .00000, .18496, .27638, + .24961, .14651, 3.73872, .26698, .08294, + .00146, .19580, .28661, + .25484, .14915, 3.87616, .27497, .09251, + .01370, .20478, .29505, + .26050, .15197, 4.01306, .28358, .10297, + .02767, .21448, .30414, + .26617, .15477, 4.13805, .29213, .11347, + .04012, .22414, .31315, + .27113, .15720, 4.23661, .29951, .12263, + .05102, .23250, .32093 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27596, .15953, 4.32322, .30662, .13157, + .06162, .24059, .32842, + .27984, .16139, 4.38474, .31221, .13866, + .06993, .24698, .33432, + .28436, .16353, 4.44749, .31862, .14688, + .07957, .25434, .34107, + .28825, .16535, 4.49473, .32402, .15390, + .08788, .26057, .34676, + .29171, .16696, 4.53169, .32876, .16014, + .09529, .26605, .35174, + .29592, .16889, 4.56688, .33433, .16757, + .10403, .27255, .35761, + .29975, .17063, 4.59218, .33927, .17427, + .11199, .27835, .36281, + .30324, .17220, 4.61039, .34368, .18035, + .11927, .28355, .36745 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30656, .17366, 4.61941, .34768, .18597, + .12594, .28833, .37166, + .30973, .17504, 4.62403, .35139, .19129, + .13233, .29279, .37557, + .31263, .17630, 4.62401, .35470, .19612, + .13815, .29680, .37905, + .31526, .17742, 4.61873, .35755, .20038, + .14328, .30030, .38204, + .31786, .17852, 4.61173, .36031, .20458, + .14839, .30371, .38496, + .32029, .17953, 4.59932, .36273, .20838, + .15301, .30675, .38751, + .32257, .18048, 4.58689, .36498, .21197, + .15742, .30960, .38989, + .32463, .18131, 4.57069, .36686, .21507, + .16123, .31202, .39186 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32668, .18214, 4.55382, .36870, .21817, + .16507, .31442, .39381, + .32862, .18291, 4.53424, .37033, .22102, + .16862, .31658, .39552, + .33043, .18362, 4.51423, .37178, .22364, + .17189, .31854, .39706, + .33212, .18428, 4.49437, .37308, .22605, + .17494, .32033, .39844, + .33374, .18490, 4.47158, .37422, .22829, + .17778, .32194, .39965 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .24408, .14976, 1.57208, .16917, .00000, + .00000, .09490, .19024, + .25083, .15318, 1.76661, .17483, .00000, + .00000, .10173, .19653, + .26031, .15790, 2.02373, .18303, .00434, + .00000, .11160, .20556, + .26692, .16115, 2.19180, .18885, .01332, + .00000, .11862, .21196, + .27357, .16439, 2.35236, .19481, .02089, + .00000, .12579, .21848, + .27906, .16702, 2.47760, .19977, .02732, + .00000, .13177, .22389, + .28415, .16944, 2.58966, .20441, .03358, + .00000, .13736, .22894, + .28939, .17191, 2.70012, .20921, .04016, + .00000, .14316, .23414 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29377, .17394, 2.78633, .21322, .04557, + .00000, .14801, .23847, + .29785, .17582, 2.86282, .21696, .05070, + .00000, .15255, .24251, + .30103, .17727, 2.92051, .21986, .05479, + .00000, .15609, .24565, + .30751, .18019, 3.02347, .22576, .06307, + .00112, .16329, .25201, + .31281, .18254, 3.09086, .23050, .06983, + .01001, .16913, .25710, + .31848, .18501, 3.15362, .23551, .07711, + .02009, .17533, .26247, + .32407, .18741, 3.20649, .24034, .08430, + .02893, .18137, .26763, + .32890, .18944, 3.24411, .24439, .09049, + .03657, .18650, .27196 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33355, .19135, 3.27330, .24819, .09644, + .04391, .19136, .27601, + .33722, .19284, 3.29069, .25109, .10109, + .04960, .19512, .27911, + .34145, .19452, 3.30407, .25432, .10641, + .05611, .19937, .28254, + .34503, .19591, 3.31062, .25696, .11090, + .06167, .20288, .28533, + .34819, .19711, 3.31263, .25921, .11484, + .06658, .20592, .28772, + .35196, .19851, 3.30794, .26173, .11945, + .07230, .20943, .29039, + .35533, .19974, 3.29893, .26387, .12355, + .07745, .21247, .29265, + .35836, .20081, 3.28738, .26571, .12723, + .08211, .21514, .29458 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36118, .20178, 3.27041, .26726, .13056, + .08632, .21750, .29620, + .36383, .20266, 3.25161, .26864, .13368, + .09031, .21965, .29764, + .36623, .20343, 3.23151, .26978, .13646, + .09391, .22152, .29884, + .36835, .20409, 3.20961, .27068, .13888, + .09704, .22309, .29976, + .37042, .20473, 3.18692, .27151, .14124, + .10014, .22459, .30061, + .37231, .20527, 3.16158, .27213, .14332, + .10290, .22584, .30124, + .37408, .20577, 3.13747, .27268, .14527, + .10551, .22700, .30181, + .37562, .20617, 3.11224, .27303, .14691, + .10774, .22791, .30216 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37714, .20657, 3.08679, .27336, .14854, + .10996, .22879, .30247, + .37855, .20690, 3.06019, .27355, .15001, + .11200, .22952, .30265, + .37984, .20720, 3.03429, .27366, .15134, + .11385, .23014, .30274, + .38102, .20746, 3.00944, .27373, .15254, + .11557, .23069, .30278, + .38213, .20767, 2.98293, .27368, .15363, + .11713, .23111, .30270 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29230, .17936, 1.57052, .15768, .00000, + .00000, .09001, .18532, + .29936, .18260, 1.71305, .16177, .00000, + .00000, .09539, .18995, + .30917, .18700, 1.89604, .16760, .00361, + .00000, .10303, .19647, + .31593, .18999, 2.01155, .17167, .01101, + .00000, .10838, .20099, + .32267, .19291, 2.11959, .17575, .01716, + .00000, .11378, .20550, + .32817, .19524, 2.20177, .17910, .02233, + .00000, .11821, .20918, + .33325, .19737, 2.27373, .18218, .02731, + .00000, .12232, .21256, + .33842, .19950, 2.34307, .18532, .03251, + .00000, .12653, .21598 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34268, .20123, 2.39561, .18791, .03675, + .00000, .13001, .21879, + .34664, .20281, 2.44099, .19029, .04073, + .00000, .13324, .22136, + .34970, .20402, 2.47456, .19212, .04388, + .00000, .13573, .22334, + .35586, .20640, 2.53033, .19576, .05021, + .00090, .14074, .22725, + .36083, .20826, 2.56173, .19861, .05532, + .00776, .14473, .23028, + .36607, .21017, 2.58744, .20153, .06077, + .01551, .14889, .23337, + .37116, .21196, 2.60530, .20426, .06608, + .02223, .15286, .23625, + .37549, .21343, 2.61419, .20646, .07060, + .02798, .15617, .23856 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37958, .21477, 2.61705, .20845, .07490, + .03346, .15924, .24061, + .38277, .21576, 2.61471, .20991, .07822, + .03767, .16157, .24211, + .38637, .21684, 2.60665, .21144, .08197, + .04244, .16413, .24367, + .38936, .21770, 2.59605, .21263, .08511, + .04649, .16621, .24486, + .39195, .21841, 2.58378, .21359, .08784, + .05003, .16796, .24581, + .39498, .21917, 2.56353, .21455, .09099, + .05412, .16990, .24674, + .39763, .21978, 2.54168, .21529, .09376, + .05776, .17154, .24742, + .39996, .22030, 2.51941, .21585, .09621, + .06104, .17293, .24792 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40207, .22069, 2.49368, .21620, .09840, + .06396, .17407, .24819, + .40400, .22101, 2.46735, .21644, .10042, + .06671, .17508, .24834, + .40570, .22126, 2.44116, .21656, .10220, + .06917, .17591, .24837, + .40715, .22142, 2.41477, .21654, .10371, + .07128, .17654, .24826, + .40856, .22155, 2.38811, .21646, .10518, + .07337, .17711, .24809, + .40975, .22159, 2.36011, .21625, .10644, + .07519, .17752, .24776, + .41086, .22163, 2.33375, .21604, .10762, + .07692, .17789, .24743, + .41177, .22159, 2.30736, .21571, .10858, + .07836, .17809, .24698 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41265, .22154, 2.28097, .21535, .10952, + .07980, .17827, .24651, + .41342, .22143, 2.25415, .21492, .11035, + .08110, .17836, .24595, + .41409, .22131, 2.22843, .21447, .11109, + .08227, .17839, .24537, + .41469, .22117, 2.20404, .21400, .11175, + .08335, .17839, .24479, + .41519, .22099, 2.17862, .21345, .11231, + .08431, .17828, .24411 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .37818, .22765, 1.42724, .13662, .00000, + .00000, .08104, .17502, + .38494, .23004, 1.50693, .13860, .00000, + .00000, .08439, .17718, + .39407, .23315, 1.60429, .14135, .00261, + .00000, .08904, .18006, + .40024, .23515, 1.66188, .14320, .00793, + .00000, .09223, .18198, + .40623, .23699, 1.71355, .14501, .01228, + .00000, .09538, .18380, + .41099, .23840, 1.75080, .14643, .01587, + .00000, .09790, .18520, + .41530, .23962, 1.78185, .14769, .01931, + .00000, .10021, .18643, + .41962, .24077, 1.81014, .14893, .02285, + .00000, .10252, .18761 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42306, .24165, 1.82985, .14991, .02570, + .00000, .10440, .18850, + .42619, .24240, 1.84542, .15078, .02835, + .00000, .10610, .18926, + .42859, .24294, 1.85620, .15142, .03043, + .00000, .10740, .18983, + .43323, .24389, 1.86897, .15261, .03455, + .00064, .10993, .19081, + .43682, .24452, 1.86896, .15345, .03783, + .00516, .11187, .19143, + .44045, .24503, 1.86343, .15420, .04126, + .01025, .11382, .19192, + .44380, .24538, 1.85273, .15478, .04455, + .01459, .11559, .19220, + .44648, .24554, 1.83904, .15513, .04729, + .01825, .11698, .19225 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .44888, .24556, 1.82201, .15532, .04986, + .02169, .11819, .19215, + .45061, .24546, 1.80536, .15537, .05181, + .02430, .11905, .19191, + .45243, .24522, 1.78254, .15528, .05397, + .02722, .11992, .19148, + .45382, .24492, 1.76078, .15511, .05574, + .02967, .12056, .19099, + .45494, .24457, 1.73971, .15487, .05726, + .03178, .12104, .19045, + .45605, .24401, 1.71069, .15442, .05896, + .03418, .12148, .18960, + .45688, .24339, 1.68231, .15389, .06043, + .03629, .12177, .18871, + .45752, .24275, 1.65518, .15333, .06170, + .03816, .12195, .18780 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .45789, .24200, 1.62652, .15265, .06278, + .03979, .12198, .18676, + .45812, .24122, 1.59828, .15193, .06377, + .04131, .12194, .18568, + .45821, .24043, 1.57124, .15120, .06462, + .04264, .12183, .18460, + .45814, .23963, 1.54513, .15043, .06530, + .04377, .12163, .18350, + .45800, .23880, 1.51918, .14965, .06595, + .04487, .12141, .18239, + .45769, .23791, 1.49297, .14879, .06648, + .04581, .12109, .18121, + .45736, .23707, 1.46855, .14798, .06696, + .04668, .12078, .18008, + .45692, .23620, 1.44490, .14714, .06732, + .04740, .12041, .17895 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45644, .23532, 1.42148, .14629, .06767, + .04810, .12002, .17780, + .45585, .23442, 1.39817, .14541, .06794, + .04871, .11958, .17662, + .45523, .23354, 1.37611, .14456, .06818, + .04926, .11914, .17548, + .45461, .23270, 1.35540, .14374, .06838, + .04975, .11870, .17438, + .45388, .23179, 1.33425, .14286, .06851, + .05018, .11821, .17323 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45261, .26452, 1.22292, .11757, .00000, + .00000, .07257, .16306, + .45820, .26570, 1.27274, .11833, .00000, + .00000, .07465, .16354, + .46547, .26703, 1.33113, .11938, .00200, + .00000, .07749, .16407, + .47021, .26775, 1.36350, .12004, .00605, + .00000, .07941, .16432, + .47463, .26825, 1.39117, .12064, .00934, + .00000, .08126, .16446, + .47800, .26850, 1.40977, .12106, .01202, + .00000, .08272, .16448, + .48095, .26862, 1.42417, .12141, .01457, + .00000, .08401, .16442, + .48378, .26862, 1.43604, .12171, .01717, + .00000, .08529, .16429 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .48593, .26849, 1.44285, .12189, .01925, + .00000, .08629, .16408, + .48779, .26828, 1.44695, .12202, .02117, + .00000, .08719, .16382, + .48915, .26808, 1.44910, .12210, .02266, + .00000, .08786, .16359, + .49159, .26745, 1.44617, .12214, .02560, + .00048, .08910, .16296, + .49327, .26673, 1.43564, .12204, .02789, + .00372, .09000, .16227, + .49472, .26579, 1.42014, .12181, .03027, + .00736, .09082, .16137, + .49579, .26463, 1.40082, .12144, .03251, + .01042, .09150, .16029, + .49641, .26344, 1.38075, .12098, .03435, + .01297, .09195, .15921 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .49673, .26213, 1.35854, .12043, .03604, + .01534, .09228, .15801, + .49673, .26096, 1.33863, .11990, .03731, + .01712, .09245, .15693, + .49645, .25944, 1.31293, .11916, .03868, + .01909, .09253, .15553, + .49599, .25803, 1.28939, .11845, .03979, + .02072, .09252, .15424, + .49542, .25669, 1.26730, .11776, .04072, + .02211, .09244, .15302, + .49440, .25487, 1.23806, .11678, .04173, + .02367, .09222, .15137, + .49326, .25310, 1.21021, .11580, .04259, + .02502, .09194, .14978, + .49205, .25141, 1.18409, .11485, .04331, + .02620, .09161, .14828 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49060, .24964, 1.15723, .11383, .04389, + .02722, .09118, .14668, + .48906, .24788, 1.13115, .11281, .04441, + .02814, .09072, .14510, + .48750, .24619, 1.10655, .11182, .04483, + .02895, .09025, .14359, + .48587, .24454, 1.08320, .11083, .04516, + .02961, .08974, .14212, + .48420, .24288, 1.06018, .10985, .04546, + .03025, .08921, .14066, + .48238, .24120, 1.03731, .10883, .04567, + .03078, .08863, .13916, + .48065, .23963, 1.01611, .10788, .04586, + .03128, .08809, .13776, + .47887, .23807, .99589, .10693, .04598, + .03166, .08752, .13640 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47707, .23651, .97597, .10599, .04608, + .03204, .08694, .13504, + .47519, .23494, .95636, .10503, .04614, + .03235, .08634, .13368, + .47335, .23345, .93793, .10411, .04617, + .03263, .08575, .13237, + .47159, .23203, .92074, .10324, .04618, + .03288, .08519, .13114, + .46971, .23055, .90335, .10233, .04616, + .03307, .08459, .12986 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .51676, .29217, 1.02954, .10064, .00000, + .00000, .06450, .14959, + .52054, .29201, 1.06655, .10078, .00000, + .00000, .06579, .14895, + .52521, .29135, 1.10842, .10088, .00161, + .00000, .06752, .14796, + .52797, .29070, 1.13033, .10092, .00486, + .00000, .06865, .14715, + .53032, .28975, 1.14795, .10090, .00746, + .00000, .06971, .14625, + .53190, .28879, 1.15867, .10081, .00957, + .00000, .07053, .14540, + .53312, .28777, 1.16603, .10068, .01156, + .00000, .07124, .14455, + .53412, .28659, 1.17097, .10050, .01358, + .00000, .07190, .14362 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .53469, .28546, 1.17233, .10030, .01518, + .00000, .07239, .14275, + .53502, .28429, 1.17158, .10006, .01664, + .00000, .07281, .14188, + .53518, .28334, 1.17010, .09986, .01777, + .00000, .07312, .14118, + .53507, .28116, 1.16080, .09934, .01998, + .00038, .07363, .13960, + .53454, .27916, 1.14639, .09880, .02167, + .00283, .07392, .13817, + .53358, .27678, 1.12739, .09811, .02340, + .00556, .07412, .13650, + .53217, .27420, 1.10527, .09730, .02501, + .00784, .07420, .13469, + .53057, .27177, 1.08339, .09648, .02631, + .00972, .07416, .13298 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .52867, .26924, 1.06000, .09561, .02748, + .01144, .07402, .13122, + .52686, .26709, 1.03959, .09483, .02834, + .01272, .07381, .12972, + .52442, .26441, 1.01390, .09382, .02925, + .01412, .07349, .12786, + .52208, .26200, .99080, .09290, .02998, + .01527, .07314, .12619, + .51981, .25978, .96944, .09204, .03057, + .01624, .07278, .12465, + .51667, .25689, .94166, .09087, .03119, + .01730, .07224, .12265, + .51357, .25414, .91559, .08975, .03170, + .01822, .07168, .12076, + .51058, .25156, .89142, .08869, .03211, + .01901, .07112, .11899 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .50736, .24891, .86695, .08757, .03242, + .01967, .07049, .11719, + .50414, .24633, .84341, .08648, .03269, + .02027, .06985, .11544, + .50100, .24389, .82141, .08543, .03289, + .02077, .06923, .11378, + .49793, .24156, .80076, .08442, .03302, + .02118, .06860, .11220, + .49483, .23923, .78053, .08342, .03313, + .02158, .06796, .11064, + .49162, .23691, .76065, .08239, .03318, + .02188, .06730, .10908, + .48860, .23474, .74233, .08143, .03323, + .02217, .06667, .10763, + .48562, .23265, .72499, .08051, .03322, + .02238, .06604, .10623 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48263, .23056, .70799, .07959, .03320, + .02259, .06541, .10484, + .47960, .22848, .69140, .07867, .03316, + .02275, .06477, .10346, + .47668, .22650, .67590, .07779, .03310, + .02289, .06417, .10216, + .47391, .22464, .66150, .07697, .03303, + .02300, .06359, .10093, + .47103, .22272, .64706, .07611, .03293, + .02309, .06298, .09969 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .58326, .31599, .84191, .08254, .00000, + .00000, .05507, .13145, + .58433, .31406, .87318, .08230, .00000, + .00000, .05576, .13002, + .58496, .31095, .90699, .08191, .00129, + .00000, .05669, .12786, + .58485, .30854, .92350, .08160, .00389, + .00000, .05725, .12629, + .58421, .30583, .93546, .08120, .00594, + .00000, .05776, .12465, + .58323, .30341, .94146, .08081, .00758, + .00000, .05809, .12320, + .58202, .30102, .94445, .08042, .00912, + .00000, .05835, .12179, + .58050, .29843, .94496, .07997, .01066, + .00000, .05858, .12028 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .57889, .29611, .94272, .07955, .01185, + .00000, .05870, .11897, + .57716, .29383, .93871, .07910, .01294, + .00000, .05878, .11770, + .57572, .29201, .93477, .07873, .01378, + .00000, .05882, .11670, + .57224, .28806, .92121, .07790, .01538, + .00030, .05879, .11452, + .56889, .28457, .90432, .07711, .01659, + .00210, .05867, .11263, + .56482, .28061, .88319, .07618, .01780, + .00411, .05845, .11050, + .56027, .27646, .85951, .07514, .01889, + .00576, .05811, .10827, + .55588, .27268, .83681, .07416, .01975, + .00709, .05772, .10622 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55123, .26887, .81311, .07315, .02052, + .00831, .05727, .10416, + .54721, .26569, .79289, .07228, .02106, + .00919, .05685, .10243, + .54217, .26179, .76790, .07118, .02161, + .01014, .05628, .10036, + .53760, .25835, .74581, .07018, .02203, + .01091, .05573, .09854, + .53334, .25521, .72565, .06927, .02237, + .01155, .05521, .09687, + .52773, .25121, .69990, .06807, .02270, + .01225, .05449, .09477, + .52237, .24748, .67607, .06694, .02295, + .01283, .05378, .09280, + .51733, .24403, .65423, .06588, .02313, + .01332, .05312, .09098 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51211, .24054, .63244, .06479, .02325, + .01372, .05240, .08917, + .50701, .23716, .61170, .06374, .02333, + .01407, .05170, .08742, + .50215, .23399, .59253, .06274, .02338, + .01437, .05101, .08578, + .49748, .23101, .57473, .06178, .02338, + .01459, .05035, .08425, + .49283, .22806, .55741, .06084, .02336, + .01480, .04968, .08274, + .48814, .22514, .54057, .05990, .02331, + .01496, .04901, .08125, + .48375, .22242, .52514, .05902, .02326, + .01510, .04839, .07987, + .47949, .21983, .51074, .05818, .02318, + .01520, .04778, .07856 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47524, .21726, .49669, .05734, .02309, + .01529, .04717, .07726, + .47101, .21472, .48307, .05652, .02298, + .01535, .04656, .07600, + .46698, .21231, .47042, .05574, .02287, + .01539, .04597, .07481, + .46318, .21006, .45874, .05500, .02276, + .01543, .04542, .07369, + .45927, .20777, .44710, .05425, .02262, + .01544, .04486, .07256 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .63532, .32980, .72109, .06763, .00000, + .00000, .04645, .11287, + .63330, .32623, .74915, .06728, .00000, + .00000, .04685, .11104, + .62954, .32074, .77757, .06669, .00108, + .00000, .04734, .10838, + .62632, .31670, .78997, .06624, .00323, + .00000, .04759, .10647, + .62249, .31237, .79734, .06569, .00490, + .00000, .04775, .10448, + .61883, .30860, .79936, .06520, .00622, + .00000, .04784, .10275, + .61512, .30497, .79862, .06469, .00744, + .00000, .04786, .10112, + .61100, .30112, .79531, .06413, .00864, + .00000, .04784, .09940 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .60722, .29773, .78992, .06360, .00956, + .00000, .04776, .09793, + .60342, .29447, .78307, .06308, .01039, + .00000, .04765, .09650, + .60035, .29191, .77700, .06266, .01102, + .00000, .04754, .09537, + .59354, .28641, .75968, .06171, .01221, + .00024, .04724, .09300, + .58741, .28169, .74053, .06085, .01308, + .00161, .04689, .09095, + .58034, .27645, .71750, .05985, .01394, + .00313, .04645, .08867, + .57281, .27100, .69244, .05876, .01469, + .00435, .04591, .08635, + .56583, .26610, .66906, .05774, .01527, + .00533, .04537, .08426 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .55868, .26123, .64521, .05670, .01576, + .00620, .04478, .08218, + .55264, .25722, .62522, .05583, .01609, + .00683, .04425, .08046, + .54524, .25237, .60100, .05474, .01641, + .00749, .04357, .07842, + .53868, .24814, .57988, .05377, .01665, + .00802, .04296, .07665, + .53265, .24431, .56086, .05288, .01682, + .00846, .04239, .07505, + .52487, .23950, .53696, .05175, .01697, + .00891, .04163, .07301, + .51756, .23505, .51513, .05069, .01707, + .00928, .04090, .07115, + .51077, .23095, .49535, .04970, .01712, + .00960, .04021, .06944 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50386, .22687, .47591, .04871, .01713, + .00984, .03950, .06775, + .49717, .22294, .45758, .04775, .01711, + .01005, .03880, .06615, + .49088, .21926, .44080, .04684, .01707, + .01021, .03814, .06466, + .48490, .21583, .42539, .04598, .01700, + .01033, .03751, .06327, + .47897, .21246, .41051, .04514, .01693, + .01044, .03689, .06190, + .47308, .20916, .39621, .04430, .01683, + .01052, .03626, .06058, + .46758, .20608, .38317, .04353, .01673, + .01058, .03567, .05935, + .46233, .20317, .37112, .04279, .01661, + .01061, .03511, .05821 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45712, .20029, .35941, .04205, .01650, + .01064, .03456, .05707, + .45195, .19747, .34815, .04134, .01637, + .01065, .03401, .05596, + .44704, .19483, .33775, .04067, .01624, + .01065, .03350, .05491, + .44243, .19236, .32820, .04004, .01611, + .01064, .03301, .05394, + .43774, .18985, .31878, .03941, .01598, + .01062, .03252, .05297 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .67366, .33539, .65451, .05548, .00000, + .00000, .03872, .09481, + .66849, .33025, .67784, .05510, .00000, + .00000, .03895, .09288, + .66018, .32270, .69870, .05450, .00092, + .00000, .03917, .09005, + .65380, .31724, .70559, .05400, .00273, + .00000, .03924, .08805, + .64676, .31149, .70716, .05344, .00411, + .00000, .03922, .08597, + .64045, .30657, .70437, .05289, .00518, + .00000, .03915, .08420, + .63428, .30189, .69926, .05236, .00616, + .00000, .03903, .08254, + .62765, .29698, .69159, .05178, .00711, + .00000, .03885, .08080 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62173, .29273, .68275, .05123, .00783, + .00000, .03866, .07930, + .61596, .28865, .67288, .05069, .00847, + .00000, .03845, .07787, + .61140, .28546, .66457, .05025, .00894, + .00000, .03827, .07675, + .60147, .27873, .64337, .04927, .00982, + .00019, .03782, .07441, + .59276, .27302, .62188, .04841, .01046, + .00125, .03737, .07241, + .58299, .26672, .59694, .04740, .01106, + .00241, .03682, .07023, + .57276, .26028, .57063, .04634, .01158, + .00333, .03619, .06800, + .56345, .25457, .54669, .04538, .01195, + .00406, .03558, .06601 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55408, .24892, .52275, .04438, .01226, + .00469, .03494, .06407, + .54630, .24428, .50311, .04354, .01245, + .00514, .03440, .06248, + .53686, .23876, .47972, .04253, .01263, + .00561, .03371, .06060, + .52858, .23398, .45965, .04164, .01274, + .00598, .03309, .05898, + .52106, .22967, .44179, .04081, .01282, + .00627, .03252, .05752, + .51149, .22429, .41969, .03977, .01286, + .00658, .03178, .05570, + .50258, .21934, .39979, .03881, .01286, + .00682, .03109, .05404, + .49436, .21482, .38197, .03793, .01284, + .00701, .03045, .05251 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48613, .21034, .36466, .03703, .01279, + .00716, .02979, .05105, + .47819, .20606, .34853, .03617, .01272, + .00728, .02915, .04965, + .47076, .20210, .33392, .03537, .01263, + .00737, .02855, .04835, + .46377, .19840, .32063, .03463, .01253, + .00743, .02798, .04714, + .45689, .19477, .30787, .03390, .01243, + .00748, .02743, .04597, + .45010, .19125, .29574, .03317, .01231, + .00751, .02687, .04484, + .44377, .18799, .28474, .03250, .01220, + .00753, .02635, .04380, + .43776, .18491, .27465, .03187, .01208, + .00753, .02587, .04283 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43181, .18189, .26490, .03125, .01196, + .00753, .02539, .04187, + .42597, .17893, .25562, .03065, .01182, + .00751, .02491, .04094, + .42046, .17615, .24710, .03007, .01170, + .00749, .02447, .04007, + .41531, .17356, .23931, .02954, .01158, + .00747, .02405, .03926, + .41008, .17095, .23167, .02901, .01145, + .00743, .02364, .03845 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .69923, .33414, .62406, .04559, .00000, + .00000, .03187, .07795, + .69086, .32773, .64000, .04524, .00000, + .00000, .03201, .07608, + .67819, .31832, .65024, .04461, .00078, + .00000, .03210, .07339, + .66876, .31166, .64982, .04412, .00231, + .00000, .03208, .07145, + .65868, .30473, .64430, .04355, .00345, + .00000, .03195, .06947, + .64989, .29883, .63592, .04300, .00432, + .00000, .03179, .06781, + .64143, .29329, .62591, .04246, .00511, + .00000, .03160, .06623, + .63246, .28752, .61356, .04186, .00586, + .00000, .03136, .06459 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .62461, .28257, .60113, .04132, .00641, + .00000, .03111, .06320, + .61705, .27786, .58822, .04078, .00690, + .00000, .03085, .06186, + .61111, .27419, .57774, .04035, .00726, + .00000, .03064, .06081, + .59837, .26650, .55289, .03941, .00791, + .00016, .03011, .05867, + .58741, .26003, .52929, .03857, .00837, + .00097, .02962, .05684, + .57524, .25298, .50273, .03762, .00878, + .00187, .02905, .05483, + .56269, .24582, .47551, .03662, .00912, + .00256, .02841, .05283, + .55142, .23950, .45141, .03569, .00936, + .00310, .02781, .05107 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54018, .23329, .42781, .03477, .00954, + .00356, .02720, .04933, + .53095, .22824, .40878, .03400, .00965, + .00389, .02666, .04794, + .51985, .22229, .38645, .03308, .00973, + .00422, .02602, .04627, + .51019, .21715, .36758, .03227, .00976, + .00447, .02544, .04485, + .50147, .21254, .35101, .03154, .00977, + .00467, .02491, .04359, + .49047, .20682, .33083, .03061, .00975, + .00487, .02423, .04203, + .48033, .20159, .31287, .02975, .00970, + .00502, .02360, .04062, + .47104, .19683, .29696, .02896, .00964, + .00514, .02303, .03934 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46179, .19214, .28175, .02818, .00955, + .00523, .02244, .03809, + .45291, .18769, .26767, .02744, .00946, + .00529, .02188, .03691, + .44462, .18360, .25503, .02675, .00936, + .00534, .02135, .03583, + .43691, .17978, .24365, .02611, .00926, + .00536, .02086, .03483, + .42935, .17604, .23282, .02547, .00915, + .00538, .02039, .03386, + .42192, .17243, .22261, .02486, .00903, + .00538, .01992, .03293, + .41503, .16909, .21340, .02430, .00892, + .00538, .01949, .03206, + .40851, .16598, .20504, .02378, .00880, + .00536, .01908, .03125 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40206, .16292, .19699, .02328, .00868, + .00535, .01867, .03046, + .39578, .15993, .18938, .02277, .00856, + .00532, .01827, .02970, + .38988, .15712, .18243, .02229, .00845, + .00529, .01790, .02900, + .38437, .15451, .17611, .02185, .00834, + .00526, .01755, .02836, + .37882, .15190, .16995, .02139, .00823, + .00523, .01721, .02772 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .71298, .32732, .61260, .03749, .00000, + .00000, .02594, .06278, + .70167, .31975, .61906, .03713, .00000, + .00000, .02603, .06109, + .68483, .30890, .61654, .03651, .00066, + .00000, .02603, .05866, + .67258, .30127, .60784, .03604, .00194, + .00000, .02594, .05691, + .65971, .29339, .59466, .03546, .00288, + .00000, .02577, .05514, + .64865, .28676, .58057, .03493, .00358, + .00000, .02557, .05363, + .63814, .28054, .56571, .03439, .00420, + .00000, .02535, .05222, + .62712, .27410, .54886, .03379, .00478, + .00000, .02508, .05077 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .61756, .26864, .53319, .03326, .00521, + .00000, .02482, .04952, + .60841, .26347, .51758, .03276, .00558, + .00000, .02454, .04833, + .60126, .25946, .50521, .03236, .00585, + .00000, .02431, .04740, + .58611, .25111, .47741, .03146, .00632, + .00013, .02378, .04551, + .57324, .24412, .45233, .03067, .00665, + .00075, .02330, .04391, + .55908, .23653, .42492, .02977, .00693, + .00144, .02274, .04219, + .54464, .22890, .39753, .02884, .00714, + .00196, .02212, .04047, + .53177, .22222, .37377, .02801, .00729, + .00236, .02157, .03893 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .51901, .21571, .35093, .02719, .00738, + .00270, .02100, .03743, + .50863, .21044, .33286, .02650, .00742, + .00293, .02051, .03626, + .49626, .20421, .31199, .02567, .00744, + .00316, .01992, .03487, + .48555, .19888, .29459, .02495, .00744, + .00333, .01941, .03368, + .47593, .19415, .27949, .02430, .00741, + .00347, .01894, .03262, + .46391, .18827, .26133, .02348, .00735, + .00360, .01835, .03133, + .45286, .18294, .24538, .02275, .00728, + .00369, .01780, .03016, + .44274, .17812, .23140, .02209, .00721, + .00376, .01730, .02909 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43280, .17338, .21821, .02141, .00711, + .00381, .01680, .02807, + .42330, .16889, .20612, .02077, .00701, + .00384, .01632, .02712, + .41449, .16476, .19534, .02019, .00691, + .00386, .01588, .02625, + .40630, .16096, .18572, .01965, .00681, + .00387, .01547, .02544, + .39827, .15725, .17660, .01913, .00670, + .00387, .01508, .02465, + .39046, .15366, .16811, .01862, .00660, + .00385, .01469, .02390, + .38324, .15035, .16049, .01815, .00649, + .00384, .01433, .02322, + .37645, .14727, .15362, .01770, .00639, + .00382, .01399, .02258 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .36977, .14426, .14704, .01727, .00629, + .00380, .01366, .02196, + .36324, .14132, .14086, .01685, .00618, + .00377, .01333, .02136, + .35712, .13859, .13525, .01647, .00608, + .00374, .01303, .02081, + .35142, .13605, .13017, .01611, .00599, + .00371, .01276, .02029, + .34570, .13352, .12525, .01576, .00590, + .00367, .01247, .01979 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .71599, .31599, .60668, .03076, .00000, + .00000, .02088, .04959, + .70188, .30760, .60266, .03045, .00000, + .00000, .02092, .04810, + .68127, .29563, .58683, .02986, .00055, + .00000, .02085, .04599, + .66654, .28724, .56998, .02936, .00160, + .00000, .02072, .04449, + .65121, .27867, .54952, .02883, .00236, + .00000, .02052, .04293, + .63817, .27150, .53023, .02830, .00292, + .00000, .02031, .04164, + .62588, .26483, .51115, .02779, .00341, + .00000, .02007, .04043, + .61306, .25798, .49059, .02724, .00386, + .00000, .01978, .03917 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60205, .25216, .47234, .02674, .00418, + .00000, .01953, .03810, + .59159, .24668, .45473, .02626, .00446, + .00000, .01925, .03709, + .58346, .24245, .44104, .02588, .00466, + .00000, .01903, .03630, + .56637, .23365, .41141, .02504, .00500, + .00010, .01855, .03470, + .55192, .22638, .38570, .02433, .00522, + .00058, .01809, .03334, + .53620, .21851, .35824, .02352, .00541, + .00110, .01757, .03190, + .52025, .21066, .33145, .02269, .00554, + .00149, .01701, .03045, + .50615, .20383, .30868, .02195, .00561, + .00178, .01652, .02918 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49233, .19717, .28716, .02120, .00566, + .00203, .01602, .02796, + .48112, .19179, .27036, .02059, .00567, + .00219, .01559, .02701, + .46781, .18552, .25128, .01987, .00565, + .00235, .01508, .02586, + .45636, .18017, .23556, .01925, .00562, + .00247, .01463, .02488, + .44615, .17542, .22206, .01868, .00558, + .00256, .01424, .02403, + .43343, .16956, .20605, .01799, .00551, + .00264, .01373, .02299, + .42182, .16425, .19214, .01736, .00543, + .00270, .01326, .02207, + .41127, .15946, .18007, .01678, .00535, + .00274, .01284, .02124 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40090, .15480, .16880, .01622, .00526, + .00276, .01243, .02040, + .39105, .15040, .15855, .01570, .00516, + .00278, .01205, .01963, + .38194, .14638, .14950, .01521, .00507, + .00278, .01168, .01894, + .37352, .14267, .14150, .01476, .00498, + .00278, .01135, .01831, + .36530, .13906, .13397, .01432, .00489, + .00277, .01102, .01770, + .35732, .13560, .12700, .01391, .00479, + .00275, .01070, .01711, + .34995, .13241, .12077, .01353, .00470, + .00273, .01042, .01657, + .34307, .12943, .11519, .01317, .00462, + .00271, .01015, .01608 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .33631, .12652, .10987, .01282, .00453, + .00269, .00988, .01561, + .32973, .12371, .10491, .01248, .00444, + .00266, .00963, .01515, + .32357, .12110, .10043, .01217, .00436, + .00264, .00939, .01472, + .31786, .11868, .09638, .01188, .00429, + .00261, .00917, .01433, + .31215, .11626, .09249, .01158, .00421, + .00258, .00895, .01395 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .70897, .30146, .59731, .02547, .00000, + .00000, .01639, .03822, + .69250, .29240, .58303, .02511, .00000, + .00000, .01644, .03700, + .66870, .27959, .55474, .02447, .00045, + .00000, .01635, .03526, + .65185, .27068, .53066, .02398, .00131, + .00000, .01621, .03404, + .63449, .26164, .50408, .02342, .00192, + .00000, .01602, .03276, + .61979, .25414, .48066, .02294, .00235, + .00000, .01581, .03166, + .60603, .24718, .45840, .02245, .00273, + .00000, .01559, .03066, + .59178, .24005, .43519, .02192, .00308, + .00000, .01534, .02963 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .57962, .23406, .41527, .02147, .00332, + .00000, .01510, .02873, + .56815, .22840, .39649, .02100, .00352, + .00000, .01485, .02791, + .55927, .22402, .38211, .02063, .00366, + .00000, .01466, .02729, + .54064, .21507, .35187, .01988, .00390, + .00008, .01420, .02596, + .52506, .20766, .32646, .01923, .00405, + .00044, .01382, .02486, + .50817, .19972, .29989, .01851, .00417, + .00084, .01337, .02368, + .49118, .19182, .27445, .01776, .00424, + .00113, .01289, .02252, + .47627, .18495, .25319, .01710, .00428, + .00134, .01246, .02151 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46171, .17832, .23342, .01646, .00429, + .00151, .01202, .02053, + .44994, .17304, .21823, .01595, .00427, + .00163, .01167, .01974, + .43609, .16683, .20118, .01531, .00424, + .00174, .01125, .01885, + .42423, .16155, .18729, .01478, .00420, + .00182, .01089, .01808, + .41364, .15688, .17548, .01432, .00415, + .00188, .01057, .01739, + .40058, .15117, .16162, .01372, .00408, + .00193, .01015, .01659, + .38868, .14603, .14973, .01320, .00400, + .00196, .00977, .01586, + .37788, .14141, .13951, .01274, .00393, + .00199, .00943, .01519 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .36737, .13691, .13003, .01228, .00385, + .00199, .00909, .01457, + .35741, .13268, .12148, .01184, .00376, + .00200, .00878, .01398, + .34825, .12881, .11399, .01142, .00368, + .00199, .00850, .01345, + .33980, .12526, .10742, .01105, .00361, + .00198, .00823, .01297, + .33157, .12182, .10127, .01069, .00353, + .00197, .00797, .01251, + .32363, .11853, .09565, .01036, .00345, + .00195, .00772, .01207, + .31631, .11551, .09064, .01005, .00338, + .00194, .00749, .01167, + .30949, .11271, .08618, .00976, .00331, + .00192, .00728, .01129 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30280, .10997, .08194, .00948, .00324, + .00189, .00708, .01092, + .29632, .10732, .07800, .00921, .00317, + .00187, .00687, .01058, + .29028, .10486, .07445, .00896, .00310, + .00185, .00668, .01027, + .28468, .10258, .07126, .00872, .00304, + .00183, .00651, .00998, + .27911, .10033, .06822, .00848, .00298, + .00180, .00635, .00969 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .69385, .28382, .57888, .02061, .00000, + .00000, .01290, .02909, + .67528, .27439, .55557, .02028, .00000, + .00000, .01289, .02808, + .64874, .26110, .51696, .01969, .00036, + .00000, .01278, .02666, + .63009, .25192, .48725, .01924, .00104, + .00000, .01265, .02564, + .61104, .24265, .45623, .01872, .00151, + .00000, .01245, .02460, + .59504, .23499, .43005, .01826, .00185, + .00000, .01226, .02373, + .58017, .22790, .40584, .01781, .00213, + .00000, .01205, .02292, + .56485, .22066, .38122, .01732, .00239, + .00000, .01181, .02210 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55181, .21461, .36060, .01692, .00257, + .00000, .01160, .02137, + .53951, .20896, .34154, .01653, .00271, + .00000, .01138, .02069, + .53001, .20462, .32712, .01623, .00282, + .00000, .01120, .02017, + .51033, .19567, .29750, .01555, .00298, + .00006, .01079, .01913, + .49397, .18830, .27321, .01496, .00308, + .00033, .01047, .01826, + .47636, .18043, .24829, .01431, .00315, + .00062, .01008, .01735, + .45868, .17268, .22486, .01369, .00319, + .00083, .00968, .01641, + .44324, .16600, .20558, .01315, .00320, + .00099, .00931, .01560 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .42828, .15952, .18789, .01260, .00319, + .00111, .00895, .01485, + .41628, .15435, .17444, .01215, .00317, + .00119, .00866, .01424, + .40217, .14836, .15952, .01163, .00313, + .00127, .00832, .01355, + .39012, .14330, .14753, .01119, .00308, + .00132, .00802, .01296, + .37943, .13882, .13743, .01081, .00304, + .00136, .00774, .01245, + .36629, .13336, .12571, .01034, .00297, + .00139, .00742, .01181, + .35441, .12845, .11573, .00989, .00291, + .00141, .00712, .01125, + .34370, .12404, .10721, .00948, .00284, + .00142, .00685, .01076 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33321, .11979, .09941, .00912, .00277, + .00142, .00658, .01029, + .32334, .11581, .09243, .00876, .00270, + .00142, .00633, .00985, + .31433, .11217, .08636, .00843, .00264, + .00141, .00611, .00946, + .30604, .10884, .08106, .00813, .00258, + .00140, .00590, .00910, + .29799, .10562, .07613, .00783, .00251, + .00139, .00569, .00875, + .29021, .10256, .07164, .00757, .00245, + .00137, .00550, .00842, + .28307, .09975, .06766, .00734, .00239, + .00136, .00533, .00812, + .27643, .09714, .06414, .00712, .00234, + .00134, .00517, .00784 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .26993, .09461, .06081, .00691, .00228, + .00132, .00501, .00756, + .26367, .09216, .05773, .00670, .00223, + .00130, .00486, .00731, + .25785, .08990, .05497, .00650, .00218, + .00128, .00472, .00707, + .25246, .08782, .05250, .00632, .00213, + .00127, .00459, .00686, + .24708, .08575, .05014, .00614, .00208, + .00125, .00446, .00666 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .67114, .26443, .54986, .01667, .00000, + .00000, .00995, .02162, + .65099, .25474, .51946, .01631, .00000, + .00000, .00993, .02086, + .62225, .24130, .47329, .01577, .00028, + .00000, .00981, .01972, + .60227, .23204, .43984, .01532, .00081, + .00000, .00969, .01893, + .58197, .22271, .40623, .01485, .00117, + .00000, .00950, .01811, + .56505, .21504, .37872, .01442, .00143, + .00000, .00932, .01743, + .54935, .20800, .35385, .01402, .00164, + .00000, .00914, .01679, + .53323, .20085, .32905, .01360, .00183, + .00000, .00893, .01613 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51961, .19486, .30866, .01323, .00196, + .00000, .00873, .01558, + .50682, .18929, .29007, .01288, .00206, + .00000, .00855, .01505, + .49696, .18503, .27616, .01261, .00213, + .00000, .00841, .01464, + .47666, .17626, .24815, .01203, .00224, + .00005, .00808, .01381, + .45987, .16909, .22570, .01153, .00230, + .00024, .00778, .01317, + .44184, .16147, .20300, .01100, .00234, + .00046, .00747, .01245, + .42391, .15397, .18198, .01047, .00236, + .00061, .00714, .01175, + .40833, .14752, .16495, .01001, .00236, + .00072, .00684, .01113 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39327, .14134, .14954, .00956, .00234, + .00081, .00655, .01054, + .38123, .13643, .13792, .00919, .00231, + .00086, .00632, .01009, + .36718, .13072, .12521, .00873, .00227, + .00091, .00604, .00958, + .35523, .12591, .11508, .00837, .00223, + .00094, .00581, .00914, + .34465, .12168, .10660, .00807, .00219, + .00097, .00560, .00874, + .33168, .11655, .09687, .00768, .00214, + .00099, .00534, .00825, + .32000, .11196, .08867, .00734, .00208, + .00100, .00511, .00784, + .30949, .10786, .08172, .00703, .00203, + .00100, .00490, .00748 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .29930, .10389, .07540, .00673, .00197, + .00100, .00469, .00714, + .28972, .10018, .06978, .00644, .00192, + .00100, .00450, .00681, + .28098, .09680, .06493, .00618, .00187, + .00099, .00433, .00651, + .27297, .09373, .06073, .00595, .00182, + .00098, .00417, .00626, + .26520, .09077, .05683, .00573, .00177, + .00097, .00401, .00602, + .25773, .08795, .05330, .00553, .00172, + .00095, .00387, .00577, + .25089, .08538, .05019, .00535, .00168, + .00094, .00374, .00554, + .24457, .08300, .04744, .00517, .00163, + .00093, .00362, .00535 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .23841, .08068, .04486, .00499, .00159, + .00091, .00350, .00516, + .23245, .07845, .04249, .00483, .00155, + .00090, .00339, .00497, + .22691, .07640, .04038, .00468, .00151, + .00088, .00328, .00480, + .22180, .07452, .03849, .00455, .00148, + .00087, .00319, .00464, + .21674, .07265, .03669, .00441, .00144, + .00086, .00309, .00449 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .64221, .24370, .51047, .01327, .00000, + .00000, .00760, .01581, + .62080, .23402, .47525, .01293, .00000, + .00000, .00756, .01523, + .59058, .22060, .42456, .01239, .00022, + .00000, .00745, .01436, + .56965, .21145, .38940, .01200, .00062, + .00000, .00731, .01375, + .54850, .20227, .35505, .01157, .00089, + .00000, .00716, .01312, + .53094, .19477, .32755, .01123, .00108, + .00000, .00701, .01257, + .51472, .18789, .30312, .01088, .00123, + .00000, .00684, .01208, + .49816, .18092, .27917, .01050, .00137, + .00000, .00666, .01159 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48427, .17510, .25978, .01018, .00146, + .00000, .00651, .01115, + .47127, .16969, .24237, .00987, .00153, + .00000, .00635, .01076, + .46128, .16556, .22946, .00964, .00158, + .00000, .00621, .01048, + .44070, .15716, .20380, .00916, .00165, + .00004, .00595, .00983, + .42383, .15029, .18367, .00873, .00169, + .00018, .00572, .00933, + .40574, .14303, .16361, .00829, .00171, + .00033, .00544, .00881, + .38784, .13591, .14527, .00787, .00171, + .00044, .00518, .00827, + .37242, .12981, .13060, .00748, .00170, + .00051, .00496, .00781 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .35758, .12399, .11748, .00709, .00168, + .00057, .00474, .00738, + .34570, .11937, .10771, .00683, .00166, + .00061, .00455, .00704, + .33191, .11405, .09710, .00649, .00162, + .00064, .00434, .00664, + .32026, .10957, .08872, .00619, .00159, + .00067, .00415, .00632, + .30999, .10564, .08175, .00592, .00156, + .00068, .00399, .00604, + .29744, .10088, .07384, .00561, .00151, + .00069, .00379, .00570, + .28615, .09663, .06722, .00534, .00147, + .00070, .00361, .00539, + .27602, .09286, .06165, .00511, .00142, + .00070, .00346, .00512 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .26628, .08922, .05664, .00486, .00138, + .00070, .00330, .00488, + .25713, .08583, .05221, .00464, .00134, + .00069, .00315, .00465, + .24877, .08276, .04840, .00446, .00130, + .00068, .00302, .00443, + .24116, .07997, .04512, .00429, .00126, + .00067, .00291, .00424, + .23381, .07727, .04209, .00412, .00123, + .00067, .00281, .00406, + .22676, .07471, .03937, .00396, .00119, + .00066, .00269, .00390, + .22031, .07237, .03697, .00382, .00116, + .00065, .00258, .00375, + .21435, .07025, .03487, .00369, .00113, + .00063, .00249, .00360 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .20853, .06818, .03289, .00357, .00110, + .00062, .00240, .00345, + .20296, .06619, .03108, .00345, .00107, + .00061, .00232, .00331, + .19781, .06435, .02947, .00333, .00104, + .00060, .00225, .00319, + .19306, .06265, .02804, .00322, .00101, + .00059, .00218, .00308, + .18835, .06097, .02669, .00311, .00099, + .00058, .00211, .00299 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .60818, .22220, .46268, .01033, .00000, + .00000, .00575, .01139, + .58592, .21272, .42497, .01002, .00000, + .00000, .00569, .01094, + .55473, .19961, .37273, .00956, .00016, + .00000, .00557, .01028, + .53322, .19073, .33767, .00923, .00046, + .00000, .00548, .00978, + .51168, .18182, .30416, .00884, .00066, + .00000, .00531, .00933, + .49384, .17457, .27784, .00855, .00079, + .00000, .00519, .00892, + .47745, .16796, .25481, .00825, .00090, + .00000, .00506, .00855, + .46078, .16129, .23254, .00794, .00100, + .00000, .00491, .00818 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44682, .15572, .21479, .00768, .00106, + .00000, .00478, .00787, + .43380, .15058, .19900, .00742, .00111, + .00000, .00464, .00759, + .42384, .14666, .18738, .00721, .00114, + .00000, .00453, .00737, + .40344, .13868, .16464, .00682, .00119, + .00003, .00431, .00689, + .38671, .13223, .14709, .00650, .00121, + .00013, .00413, .00650, + .36893, .12541, .12980, .00613, .00122, + .00023, .00393, .00611, + .35142, .11876, .11421, .00578, .00122, + .00031, .00373, .00573, + .33636, .11308, .10189, .00548, .00120, + .00036, .00355, .00539 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32192, .10767, .09099, .00519, .00119, + .00040, .00338, .00508, + .31048, .10339, .08295, .00495, .00117, + .00043, .00323, .00484, + .29718, .09849, .07429, .00468, .00114, + .00045, .00307, .00455, + .28594, .09439, .06750, .00447, .00111, + .00047, .00293, .00431, + .27607, .09079, .06191, .00429, .00108, + .00048, .00281, .00411, + .26409, .08645, .05561, .00405, .00105, + .00048, .00265, .00387, + .25339, .08258, .05038, .00383, .00102, + .00048, .00252, .00366, + .24383, .07914, .04599, .00364, .00098, + .00048, .00242, .00347 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23459, .07586, .04210, .00348, .00095, + .00048, .00230, .00329, + .22596, .07280, .03866, .00332, .00092, + .00047, .00219, .00312, + .21815, .07004, .03571, .00316, .00089, + .00047, .00209, .00296, + .21103, .06753, .03320, .00302, .00087, + .00046, .00200, .00284, + .20416, .06513, .03088, .00289, .00084, + .00045, .00191, .00272, + .19761, .06284, .02880, .00276, .00081, + .00045, .00184, .00260, + .19164, .06076, .02698, .00265, .00079, + .00044, .00177, .00249, + .18612, .05885, .02539, .00255, .00077, + .00043, .00171, .00239 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18076, .05701, .02391, .00246, .00075, + .00042, .00165, .00229, + .17560, .05525, .02255, .00238, .00072, + .00042, .00159, .00220, + .17083, .05364, .02135, .00231, .00070, + .00041, .00153, .00211, + .16644, .05216, .02028, .00224, .00069, + .00040, .00148, .00203, + .16213, .05068, .01927, .00217, .00067, + .00040, .00143, .00196 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .56988, .20075, .40938, .00807, .00000, + .00000, .00421, .00796, + .54722, .19156, .37134, .00778, .00000, + .00000, .00416, .00764, + .51565, .17895, .32022, .00736, .00012, + .00000, .00406, .00714, + .49402, .17040, .28674, .00706, .00033, + .00000, .00395, .00681, + .47245, .16192, .25534, .00672, .00048, + .00000, .00384, .00650, + .45467, .15504, .23111, .00647, .00057, + .00000, .00373, .00619, + .43840, .14876, .21015, .00622, .00065, + .00000, .00363, .00591, + .42193, .14243, .19012, .00595, .00071, + .00000, .00353, .00564 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40813, .13722, .17437, .00574, .00076, + .00000, .00342, .00540, + .39533, .13239, .16050, .00555, .00079, + .00000, .00331, .00519, + .38555, .12872, .15038, .00540, .00081, + .00000, .00323, .00502, + .36558, .12129, .13078, .00508, .00084, + .00002, .00306, .00469, + .34934, .11526, .11586, .00480, .00085, + .00009, .00292, .00442, + .33216, .10894, .10136, .00450, .00085, + .00016, .00277, .00415, + .31528, .10281, .08844, .00422, .00085, + .00021, .00262, .00387, + .30080, .09760, .07834, .00398, .00084, + .00025, .00248, .00364 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28699, .09264, .06947, .00375, .00082, + .00028, .00234, .00343, + .27605, .08876, .06301, .00360, .00081, + .00030, .00224, .00324, + .26342, .08431, .05610, .00339, .00078, + .00031, .00211, .00305, + .25283, .08058, .05072, .00321, .00076, + .00032, .00200, .00288, + .24357, .07733, .04632, .00306, .00074, + .00033, .00192, .00273, + .23229, .07341, .04140, .00289, .00072, + .00034, .00181, .00256, + .22223, .06994, .03733, .00274, .00069, + .00034, .00171, .00242, + .21326, .06687, .03395, .00261, .00067, + .00034, .00163, .00230 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20474, .06393, .03096, .00245, .00065, + .00034, .00155, .00217, + .19675, .06121, .02834, .00232, .00062, + .00033, .00148, .00205, + .18947, .05876, .02611, .00223, .00060, + .00033, .00141, .00194, + .18290, .05655, .02421, .00214, .00058, + .00033, .00135, .00185, + .17658, .05443, .02246, .00205, .00057, + .00033, .00129, .00176, + .17056, .05241, .02091, .00196, .00055, + .00032, .00123, .00167, + .16507, .05058, .01954, .00187, .00053, + .00032, .00118, .00160, + .16003, .04892, .01836, .00180, .00052, + .00031, .00114, .00153 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15514, .04731, .01726, .00173, .00050, + .00031, .00109, .00147, + .15045, .04576, .01626, .00166, .00049, + .00031, .00105, .00141, + .14613, .04434, .01536, .00161, .00048, + .00030, .00102, .00135, + .14217, .04304, .01457, .00155, .00046, + .00030, .00098, .00130, + .13827, .04176, .01383, .00149, .00045, + .00029, .00094, .00126 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .52867, .17936, .35345, .00611, .00000, + .00000, .00305, .00551, + .50600, .17065, .31690, .00587, .00000, + .00000, .00300, .00526, + .47457, .15870, .26893, .00552, .00008, + .00000, .00290, .00491, + .45319, .15064, .23822, .00527, .00023, + .00000, .00282, .00465, + .43184, .14272, .20986, .00503, .00033, + .00000, .00272, .00438, + .41442, .13625, .18833, .00481, .00040, + .00000, .00263, .00420, + .39850, .13040, .16990, .00462, .00045, + .00000, .00254, .00400, + .38242, .12454, .15246, .00442, .00050, + .00000, .00246, .00378 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36907, .11968, .13890, .00424, .00053, + .00000, .00237, .00361, + .35668, .11523, .12706, .00408, .00055, + .00000, .00229, .00346, + .34722, .11185, .11847, .00396, .00057, + .00000, .00223, .00335, + .32805, .10501, .10210, .00369, .00058, + .00001, .00210, .00315, + .31246, .09948, .08976, .00350, .00059, + .00006, .00200, .00295, + .29605, .09372, .07787, .00328, .00059, + .00011, .00188, .00274, + .28003, .08816, .06740, .00307, .00058, + .00015, .00177, .00254, + .26635, .08343, .05932, .00289, .00057, + .00017, .00167, .00237 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25335, .07896, .05229, .00271, .00056, + .00019, .00158, .00224, + .24310, .07547, .04719, .00257, .00055, + .00020, .00150, .00212, + .23128, .07146, .04179, .00242, .00053, + .00021, .00141, .00199, + .22138, .06812, .03761, .00229, .00052, + .00021, .00134, .00187, + .21275, .06523, .03421, .00219, .00050, + .00022, .00127, .00177, + .20232, .06174, .03044, .00205, .00049, + .00022, .00120, .00165, + .19305, .05866, .02734, .00193, .00047, + .00022, .00113, .00155, + .18482, .05594, .02479, .00183, .00046, + .00022, .00107, .00147 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17695, .05337, .02253, .00173, .00044, + .00022, .00101, .00137, + .16961, .05098, .02057, .00164, .00043, + .00022, .00096, .00130, + .16297, .04883, .01890, .00157, .00041, + .00022, .00092, .00124, + .15697, .04690, .01748, .00150, .00040, + .00022, .00087, .00118, + .15121, .04505, .01619, .00144, .00039, + .00022, .00083, .00111, + .14579, .04329, .01504, .00137, .00038, + .00022, .00079, .00106, + .14086, .04169, .01404, .00130, .00037, + .00022, .00076, .00102, + .13631, .04024, .01318, .00125, .00036, + .00022, .00073, .00097 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13190, .03885, .01237, .00120, .00035, + .00022, .00070, .00092, + .12770, .03752, .01163, .00115, .00034, + .00022, .00067, .00088, + .12383, .03630, .01098, .00111, .00034, + .00022, .00064, .00085, + .12029, .03518, .01041, .00107, .00033, + .00022, .00062, .00082, + .11679, .03408, .00986, .00103, .00032, + .00022, .00060, .00079 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .48533, .15855, .29750, .00450, .00000, + .00000, .00221, .00373, + .46299, .15037, .26384, .00431, .00000, + .00000, .00215, .00356, + .43222, .13919, .22054, .00399, .00006, + .00000, .00206, .00333, + .41135, .13169, .19335, .00379, .00016, + .00000, .00200, .00313, + .39066, .12434, .16862, .00362, .00023, + .00000, .00191, .00296, + .37385, .11838, .15002, .00343, .00027, + .00000, .00186, .00281, + .35853, .11299, .13429, .00326, .00031, + .00000, .00179, .00268, + .34309, .10759, .11957, .00311, .00034, + .00000, .00171, .00256 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33029, .10315, .10822, .00298, .00036, + .00000, .00165, .00244, + .31847, .09909, .09840, .00286, .00038, + .00000, .00160, .00232, + .30948, .09603, .09133, .00277, .00039, + .00000, .00156, .00223, + .29124, .08983, .07799, .00258, .00040, + .00001, .00146, .00207, + .27654, .08484, .06806, .00242, .00041, + .00004, .00138, .00194, + .26111, .07964, .05861, .00226, .00041, + .00007, .00130, .00181, + .24611, .07464, .05036, .00210, .00041, + .00010, .00122, .00168, + .23335, .07041, .04404, .00196, .00040, + .00011, .00114, .00157 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22123, .06644, .03859, .00185, .00039, + .00012, .00107, .00146, + .21174, .06335, .03467, .00175, .00038, + .00013, .00102, .00138, + .20083, .05981, .03055, .00164, .00037, + .00013, .00095, .00128, + .19174, .05687, .02738, .00154, .00036, + .00013, .00090, .00121, + .18385, .05430, .02482, .00144, .00035, + .00013, .00086, .00115, + .17428, .05125, .02200, .00137, .00034, + .00013, .00081, .00108, + .16583, .04857, .01969, .00129, .00033, + .00013, .00076, .00101, + .15837, .04621, .01779, .00120, .00032, + .00013, .00072, .00094 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15123, .04396, .01613, .00114, .00032, + .00013, .00067, .00089, + .14462, .04188, .01469, .00107, .00031, + .00013, .00064, .00085, + .13868, .04003, .01347, .00101, .00030, + .00013, .00061, .00080, + .13329, .03836, .01244, .00096, .00029, + .00013, .00058, .00076, + .12813, .03676, .01150, .00092, .00029, + .00013, .00054, .00072, + .12325, .03526, .01067, .00088, .00028, + .00013, .00053, .00068, + .11882, .03390, .00994, .00085, .00027, + .00013, .00051, .00064, + .11477, .03266, .00932, .00081, .00027, + .00013, .00049, .00062 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11086, .03147, .00873, .00078, .00026, + .00013, .00046, .00060, + .10714, .03033, .00821, .00074, .00026, + .00013, .00044, .00058, + .10373, .02929, .00774, .00071, .00025, + .00013, .00043, .00056, + .10060, .02835, .00733, .00068, .00025, + .00013, .00041, .00054, + .09751, .02742, .00694, .00066, .00025, + .00013, .00039, .00051 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .44093, .13866, .24421, .00324, .00000, + .00000, .00154, .00249, + .41925, .13105, .21429, .00308, .00000, + .00000, .00149, .00237, + .38953, .12073, .17655, .00285, .00004, + .00000, .00144, .00219, + .36950, .11386, .15325, .00266, .00011, + .00000, .00139, .00207, + .34970, .10712, .13231, .00253, .00015, + .00000, .00133, .00197, + .33363, .10170, .11679, .00240, .00018, + .00000, .00129, .00185, + .31907, .09681, .10379, .00227, .00020, + .00000, .00125, .00175, + .30445, .09194, .09174, .00214, .00022, + .00000, .00120, .00167 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29240, .08794, .08254, .00204, .00024, + .00000, .00114, .00160, + .28129, .08427, .07463, .00194, .00025, + .00000, .00110, .00153, + .27286, .08149, .06897, .00186, .00025, + .00000, .00107, .00147, + .25582, .07594, .05837, .00172, .00026, + .00001, .00100, .00136, + .24214, .07150, .05061, .00161, .00026, + .00003, .00094, .00128, + .22780, .06689, .04327, .00149, .00027, + .00005, .00088, .00119, + .21392, .06246, .03693, .00137, .00027, + .00006, .00082, .00110, + .20218, .05874, .03212, .00128, .00027, + .00007, .00077, .00103 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19109, .05525, .02799, .00119, .00027, + .00007, .00072, .00096, + .18245, .05254, .02505, .00111, .00027, + .00007, .00068, .00090, + .17248, .04945, .02197, .00105, .00027, + .00008, .00065, .00083, + .16421, .04690, .01962, .00100, .00026, + .00007, .00061, .00078, + .15707, .04469, .01774, .00093, .00026, + .00007, .00058, .00074, + .14848, .04205, .01566, .00086, .00026, + .00008, .00054, .00069, + .14089, .03973, .01398, .00080, .00026, + .00008, .00051, .00064, + .13419, .03769, .01261, .00075, .00025, + .00008, .00049, .00061 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12781, .03577, .01140, .00071, .00024, + .00008, .00046, .00057, + .12191, .03400, .01036, .00067, .00024, + .00008, .00043, .00054, + .11662, .03242, .00948, .00063, .00023, + .00008, .00041, .00050, + .11185, .03100, .00874, .00060, .00023, + .00008, .00039, .00047, + .10729, .02965, .00807, .00058, .00023, + .00008, .00037, .00044, + .10299, .02839, .00748, .00055, .00022, + .00008, .00035, .00042, + .09910, .02724, .00696, .00053, .00022, + .00008, .00033, .00041, + .09555, .02620, .00652, .00050, .00021, + .00008, .00031, .00039 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09214, .02519, .00610, .00047, .00021, + .00008, .00030, .00038, + .08888, .02424, .00573, .00045, .00021, + .00008, .00029, .00036, + .08590, .02337, .00540, .00043, .00021, + .00008, .00028, .00034, + .08317, .02258, .00511, .00042, .00021, + .00008, .00027, .00032, + .08049, .02180, .00484, .00040, .00020, + .00008, .00026, .00031 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .39621, .12002, .19565, .00244, .00000, + .00000, .00099, .00157, + .37553, .11311, .17002, .00226, .00000, + .00000, .00096, .00149, + .34729, .10375, .13823, .00209, .00002, + .00000, .00091, .00139, + .32836, .09752, .11891, .00195, .00007, + .00000, .00089, .00128, + .30969, .09146, .10172, .00184, .00010, + .00000, .00085, .00118, + .29462, .08658, .08915, .00173, .00011, + .00000, .00082, .00114, + .28101, .08220, .07871, .00164, .00013, + .00000, .00078, .00109, + .26740, .07784, .06911, .00155, .00014, + .00000, .00074, .00103 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25618, .07429, .06183, .00146, .00015, + .00000, .00071, .00098, + .24589, .07104, .05564, .00139, .00015, + .00000, .00068, .00094, + .23809, .06858, .05124, .00133, .00016, + .00000, .00066, .00091, + .22240, .06368, .04303, .00124, .00016, + .00000, .00061, .00082, + .20980, .05977, .03707, .00118, .00016, + .00002, .00057, .00077, + .19670, .05574, .03149, .00109, .00016, + .00003, .00054, .00072, + .18407, .05188, .02673, .00100, .00016, + .00003, .00050, .00066, + .17344, .04865, .02313, .00093, .00016, + .00004, .00045, .00061 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16345, .04561, .02007, .00085, .00016, + .00004, .00042, .00057, + .15561, .04326, .01791, .00081, .00016, + .00004, .00040, .00054, + .14669, .04060, .01566, .00076, .00016, + .00004, .00038, .00049, + .13931, .03841, .01394, .00072, .00016, + .00004, .00036, .00045, + .13293, .03652, .01258, .00067, .00016, + .00004, .00034, .00043, + .12527, .03426, .01108, .00061, .00016, + .00004, .00031, .00041, + .11855, .03229, .00986, .00057, .00016, + .00004, .00029, .00037, + .11264, .03056, .00887, .00053, .00016, + .00004, .00028, .00034 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10700, .02893, .00801, .00051, .00016, + .00004, .00026, .00032, + .10182, .02744, .00727, .00048, .00016, + .00004, .00025, .00030, + .09718, .02610, .00665, .00046, .00016, + .00004, .00023, .00028, + .09302, .02491, .00612, .00043, .00016, + .00004, .00021, .00027, + .08905, .02378, .00565, .00040, .00016, + .00004, .00020, .00025, + .08530, .02271, .00523, .00039, .00016, + .00004, .00019, .00024, + .08191, .02175, .00486, .00038, .00016, + .00004, .00018, .00023, + .07885, .02088, .00455, .00035, .00016, + .00004, .00017, .00022 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07590, .02004, .00426, .00033, .00016, + .00004, .00016, .00021, + .07309, .01925, .00400, .00031, .00016, + .00004, .00015, .00020, + .07051, .01854, .00377, .00030, .00016, + .00004, .00015, .00019, + .06816, .01788, .00356, .00029, .00016, + .00004, .00014, .00018, + .06587, .01724, .00337, .00028, .00016, + .00004, .00014, .00017 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .35192, .10235, .15221, .00156, .00000, + .00000, .00072, .00105, + .33237, .09614, .13104, .00150, .00000, + .00000, .00068, .00097, + .30591, .08779, .10517, .00134, .00001, + .00000, .00065, .00089, + .28820, .08224, .08969, .00127, .00004, + .00000, .00062, .00084, + .27091, .07687, .07607, .00119, .00006, + .00000, .00057, .00079, + .25696, .07256, .06620, .00112, .00007, + .00000, .00053, .00073, + .24438, .06872, .05807, .00106, .00008, + .00000, .00051, .00068, + .23186, .06491, .05066, .00100, .00008, + .00000, .00050, .00063 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22161, .06178, .04510, .00094, .00009, + .00000, .00047, .00061, + .21220, .05893, .04038, .00089, .00009, + .00000, .00045, .00059, + .20507, .05679, .03704, .00086, .00009, + .00000, .00042, .00056, + .19081, .05254, .03088, .00081, .00009, + .00000, .00040, .00052, + .17942, .04917, .02646, .00075, .00009, + .00001, .00038, .00048, + .16765, .04570, .02235, .00068, .00009, + .00001, .00035, .00043, + .15631, .04237, .01886, .00063, .00009, + .00001, .00032, .00039, + .14679, .03960, .01625, .00059, .00009, + .00001, .00030, .00036 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13787, .03702, .01405, .00054, .00009, + .00001, .00027, .00034, + .13095, .03502, .01250, .00050, .00009, + .00001, .00025, .00033, + .12307, .03276, .01089, .00046, .00009, + .00001, .00024, .00031, + .11655, .03090, .00968, .00043, .00009, + .00001, .00023, .00029, + .11091, .02932, .00871, .00041, .00009, + .00001, .00021, .00027, + .10421, .02742, .00765, .00038, .00009, + .00001, .00020, .00025, + .09833, .02577, .00680, .00035, .00009, + .00001, .00018, .00023, + .09316, .02433, .00611, .00033, .00009, + .00001, .00016, .00022 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08829, .02297, .00552, .00031, .00009, + .00001, .00016, .00020, + .08380, .02173, .00500, .00030, .00009, + .00001, .00015, .00018, + .07978, .02063, .00457, .00029, .00009, + .00001, .00014, .00016, + .07619, .01964, .00420, .00027, .00009, + .00001, .00013, .00015, + .07279, .01871, .00387, .00025, .00009, + .00001, .00013, .00015, + .06957, .01784, .00358, .00024, .00009, + .00001, .00012, .00014, + .06667, .01705, .00333, .00024, .00009, + .00001, .00011, .00014, + .06405, .01634, .00312, .00022, .00009, + .00001, .00011, .00013 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06153, .01565, .00291, .00021, .00009, + .00001, .00010, .00012, + .05914, .01501, .00273, .00020, .00009, + .00001, .00009, .00012, + .05696, .01442, .00257, .00019, .00009, + .00001, .00009, .00011, + .05497, .01389, .00243, .00018, .00009, + .00001, .00008, .00011, + .05304, .01337, .00230, .00017, .00009, + .00001, .00008, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30873, .08622, .11518, .00101, .00000, + .00000, .00049, .00067, + .29062, .08072, .09828, .00094, .00000, + .00000, .00047, .00062, + .26617, .07335, .07788, .00086, .00001, + .00000, .00043, .00056, + .24990, .06850, .06585, .00079, .00002, + .00000, .00039, .00054, + .23409, .06377, .05540, .00072, .00003, + .00000, .00038, .00050, + .22136, .06003, .04789, .00068, .00004, + .00000, .00035, .00046, + .20993, .05668, .04175, .00064, .00004, + .00000, .00033, .00044, + .19858, .05337, .03619, .00060, .00004, + .00000, .00032, .00042 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18928, .05069, .03206, .00058, .00004, + .00000, .00030, .00039, + .18080, .04826, .02858, .00055, .00004, + .00000, .00029, .00036, + .17442, .04643, .02612, .00053, .00004, + .00000, .00028, .00034, + .16167, .04276, .02164, .00048, .00004, + .00000, .00026, .00033, + .15154, .03988, .01845, .00043, .00004, + .00000, .00024, .00030, + .14104, .03693, .01551, .00040, .00004, + .00000, .00022, .00027, + .13100, .03412, .01302, .00037, .00004, + .00000, .00020, .00024, + .12262, .03178, .01118, .00034, .00004, + .00000, .00019, .00023 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11479, .02961, .00963, .00031, .00004, + .00000, .00018, .00022, + .10872, .02794, .00855, .00029, .00004, + .00000, .00017, .00020, + .10185, .02605, .00743, .00027, .00004, + .00000, .00015, .00018, + .09619, .02451, .00659, .00025, .00004, + .00000, .00014, .00017, + .09132, .02319, .00592, .00023, .00004, + .00000, .00013, .00016, + .08552, .02162, .00520, .00022, .00004, + .00000, .00012, .00014, + .08045, .02026, .00461, .00021, .00004, + .00000, .00011, .00013, + .07601, .01908, .00414, .00019, .00004, + .00000, .00010, .00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07184, .01796, .00373, .00018, .00004, + .00000, .00010, .00012, + .06801, .01695, .00338, .00017, .00004, + .00000, .00009, .00011, + .06460, .01605, .00309, .00016, .00004, + .00000, .00008, .00010, + .06156, .01525, .00284, .00015, .00004, + .00000, .00008, .00010, + .05867, .01449, .00261, .00014, .00004, + .00000, .00008, .00010, + .05597, .01378, .00242, .00013, .00004, + .00000, .00007, .00009, + .05354, .01315, .00225, .00012, .00004, + .00000, .00007, .00009, + .05132, .01258, .00210, .00012, .00004, + .00000, .00007, .00008 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04919, .01203, .00196, .00012, .00004, + .00000, .00006, .00008, + .04719, .01151, .00184, .00011, .00004, + .00000, .00006, .00007, + .04538, .01104, .00173, .00011, .00004, + .00000, .00006, .00007, + .04372, .01062, .00164, .00010, .00004, + .00000, .00005, .00006, + .04210, .01020, .00155, .00010, .00004, + .00000, .00005, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .26750, .07176, .08479, .00070, .00000, + .00000, .00028, .00039, + .25091, .06697, .07173, .00067, .00000, + .00000, .00027, .00036, + .22869, .06054, .05618, .00059, .00000, + .00000, .00024, .00032, + .21393, .05635, .04714, .00058, .00001, + .00000, .00023, .00029, + .19969, .05229, .03934, .00050, .00001, + .00000, .00021, .00027, + .18829, .04906, .03381, .00046, .00001, + .00000, .00019, .00026, + .17807, .04620, .02932, .00043, .00001, + .00000, .00019, .00024, + .16793, .04338, .02528, .00041, .00001, + .00000, .00018, .00022 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15968, .04109, .02228, .00038, .00001, + .00000, .00017, .00021, + .15216, .03901, .01978, .00036, .00001, + .00000, .00016, .00020, + .14651, .03746, .01803, .00034, .00001, + .00000, .00016, .00019, + .13524, .03437, .01486, .00032, .00001, + .00000, .00014, .00018, + .12632, .03196, .01262, .00030, .00001, + .00000, .00012, .00016, + .11713, .02948, .01056, .00028, .00001, + .00000, .00011, .00015, + .10840, .02714, .00884, .00025, .00001, + .00000, .00011, .00014, + .10113, .02520, .00757, .00023, .00001, + .00000, .00010, .00013 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09436, .02340, .00650, .00022, .00001, + .00000, .00010, .00012, + .08914, .02203, .00576, .00020, .00001, + .00000, .00008, .00011, + .08324, .02048, .00500, .00017, .00001, + .00000, .00007, .00010, + .07839, .01921, .00443, .00017, .00001, + .00000, .00007, .00009, + .07421, .01813, .00398, .00017, .00001, + .00000, .00007, .00008, + .06929, .01685, .00349, .00015, .00001, + .00000, .00006, .00008, + .06499, .01575, .00310, .00014, .00001, + .00000, .00006, .00007, + .06122, .01479, .00278, .00014, .00001, + .00000, .00005, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05773, .01389, .00250, .00012, .00001, + .00000, .00005, .00007, + .05452, .01307, .00227, .00011, .00001, + .00000, .00005, .00006, + .05167, .01235, .00207, .00010, .00001, + .00000, .00004, .00005, + .04911, .01170, .00190, .00010, .00001, + .00000, .00004, .00005, + .04668, .01110, .00175, .00011, .00001, + .00000, .00004, .00005, + .04445, .01053, .00162, .00009, .00001, + .00000, .00004, .00004, + .04244, .01002, .00150, .00008, .00001, + .00000, .00003, .00004, + .04061, .00957, .00141, .00008, .00001, + .00000, .00003, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03885, .00913, .00131, .00008, .00001, + .00000, .00003, .00004, + .03719, .00873, .00123, .00008, .00001, + .00000, .00003, .00004, + .03569, .00836, .00116, .00007, .00001, + .00000, .00003, .00003, + .03433, .00802, .00110, .00007, .00001, + .00000, .00002, .00003, + .03300, .00770, .00104, .00007, .00001, + .00000, .00002, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .22829, .05861, .06027, .00037, .00000, + .00000, .00022, .00025, + .21338, .05450, .05055, .00036, .00000, + .00000, .00019, .00023, + .19345, .04905, .03917, .00033, .00000, + .00000, .00017, .00020, + .18039, .04546, .03261, .00029, .00000, + .00000, .00016, .00020, + .16772, .04205, .02702, .00026, .00000, + .00000, .00015, .00018, + .15761, .03933, .02308, .00025, .00000, + .00000, .00014, .00017, + .14860, .03693, .01990, .00024, .00000, + .00000, .00013, .00015, + .13972, .03458, .01708, .00023, .00000, + .00000, .00012, .00013 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13250, .03266, .01499, .00020, .00000, + .00000, .00012, .00013, + .12594, .03093, .01327, .00019, .00000, + .00000, .00011, .00012, + .12102, .02964, .01206, .00019, .00000, + .00000, .00010, .00012, + .11126, .02709, .00988, .00017, .00000, + .00000, .00008, .00011, + .10355, .02510, .00836, .00015, .00000, + .00000, .00009, .00010, + .09565, .02307, .00697, .00014, .00000, + .00000, .00008, .00009, + .08818, .02115, .00582, .00013, .00000, + .00000, .00007, .00007, + .08198, .01957, .00497, .00012, .00000, + .00000, .00006, .00007 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07622, .01811, .00427, .00011, .00000, + .00000, .00005, .00007, + .07179, .01700, .00377, .00009, .00000, + .00000, .00006, .00007, + .06681, .01575, .00327, .00009, .00000, + .00000, .00005, .00006, + .06273, .01473, .00290, .00008, .00000, + .00000, .00005, .00005, + .05923, .01386, .00260, .00007, .00000, + .00000, .00004, .00005, + .05510, .01284, .00228, .00008, .00000, + .00000, .00004, .00005, + .05153, .01196, .00202, .00007, .00000, + .00000, .00004, .00004, + .04843, .01120, .00181, .00007, .00000, + .00000, .00003, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04552, .01049, .00163, .00006, .00000, + .00000, .00003, .00004, + .04287, .00984, .00148, .00005, .00000, + .00000, .00003, .00004, + .04052, .00928, .00135, .00005, .00000, + .00000, .00003, .00004, + .03842, .00877, .00124, .00005, .00000, + .00000, .00003, .00003, + .03644, .00830, .00114, .00005, .00000, + .00000, .00002, .00002, + .03461, .00786, .00106, .00004, .00000, + .00000, .00002, .00002, + .03298, .00746, .00098, .00004, .00000, + .00000, .00002, .00002, + .03149, .00711, .00092, .00004, .00000, + .00000, .00002, .00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03007, .00677, .00086, .00003, .00000, + .00000, .00002, .00002, + .02873, .00646, .00081, .00003, .00000, + .00000, .00002, .00002, + .02751, .00617, .00076, .00003, .00000, + .00000, .00002, .00002, + .02641, .00591, .00071, .00003, .00000, + .00000, .00002, .00002, + .02535, .00566, .00068, .00003, .00000, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .15864, .03725, .02747, .00015, .00000, + .00000, .00005, .00007, + .14720, .03438, .02269, .00013, .00000, + .00000, .00006, .00007, + .13202, .03061, .01722, .00012, .00000, + .00000, .00005, .00006, + .12215, .02816, .01414, .00011, .00000, + .00000, .00004, .00006, + .11268, .02584, .01156, .00009, .00000, + .00000, .00003, .00005, + .10520, .02401, .00978, .00008, .00000, + .00000, .00003, .00005, + .09856, .02241, .00837, .00008, .00000, + .00000, .00003, .00005, + .09206, .02084, .00712, .00007, .00000, + .00000, .00003, .00005 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08683, .01958, .00622, .00006, .00000, + .00000, .00003, .00004, + .08210, .01844, .00547, .00006, .00000, + .00000, .00003, .00003, + .07856, .01760, .00496, .00006, .00000, + .00000, .00003, .00003, + .07158, .01595, .00404, .00006, .00000, + .00000, .00003, .00003, + .06615, .01467, .00340, .00004, .00000, + .00000, .00002, .00003, + .06062, .01337, .00283, .00004, .00000, + .00000, .00002, .00003, + .05542, .01216, .00235, .00004, .00000, + .00000, .00002, .00003, + .05114, .01117, .00201, .00003, .00000, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04721, .01027, .00172, .00003, .00000, + .00000, .00001, .00002, + .04420, .00958, .00153, .00003, .00000, + .00000, .00001, .00002, + .04083, .00881, .00132, .00003, .00000, + .00000, .00002, .00002, + .03811, .00819, .00117, .00003, .00000, + .00000, .00002, .00002, + .03579, .00766, .00105, .00002, .00000, + .00000, .00001, .00001, + .03307, .00705, .00093, .00002, .00000, + .00000, .00001, .00001, + .03072, .00653, .00082, .00002, .00000, + .00000, .00001, .00001, + .02870, .00608, .00074, .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=25,32)/ + .02681, .00566, .00066, .00002, .00000, + .00000, .00001, .00001, + .02511, .00528, .00060, .00001, .00000, + .00000, .00001, .00001, + .02361, .00495, .00055, .00001, .00000, + .00000, .00001, .00001, + .02228, .00466, .00051, .00001, .00000, + .00000, .00001, .00001, + .02102, .00438, .00047, .00001, .00000, + .00000, .00001, .00001, + .01987, .00413, .00043, .00001, .00000, + .00000, .00001, .00001, + .01884, .00391, .00040, .00001, .00000, + .00000, .00001, .00001, + .01791, .00370, .00037, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01703, .00351, .00035, .00001, .00000, + .00000, .00001, .00001, + .01620, .00333, .00033, .00001, .00000, + .00000, .00001, .00001, + .01546, .00317, .00031, .00001, .00000, + .00000, .00001, .00001, + .01479, .00303, .00029, .00001, .00000, + .00000, .00001, .00001, + .01414, .00289, .00027, .00001, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .10189, .02167, .01055, .00005, .00000, + .00000, .00001, .00002, + .09377, .01985, .00860, .00005, .00000, + .00000, .00000, .00001, + .08314, .01746, .00643, .00005, .00000, + .00000, .00001, .00001, + .07631, .01594, .00522, .00003, .00000, + .00000, .00000, .00001, + .06979, .01450, .00424, .00003, .00000, + .00000, .00000, .00001, + .06468, .01338, .00357, .00003, .00000, + .00000, .00001, .00001, + .06019, .01240, .00304, .00003, .00000, + .00000, .00001, .00001, + .05583, .01145, .00257, .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=9,16)/ + .05233, .01069, .00224, .00002, .00000, + .00000, .00000, .00001, + .04919, .01002, .00197, .00001, .00000, + .00000, .00000, .00001, + .04687, .00952, .00179, .00001, .00000, + .00000, .00001, .00001, + .04231, .00855, .00145, .00002, .00000, + .00000, .00001, .00001, + .03877, .00780, .00123, .00002, .00000, + .00000, .00000, .00001, + .03522, .00705, .00102, .00001, .00000, + .00000, .00000, .00001, + .03193, .00635, .00085, .00001, .00000, + .00000, .00000, .00000, + .02923, .00579, .00073, .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=17,24)/ + .02675, .00528, .00063, .00001, .00000, + .00000, .00000, .00001, + .02490, .00489, .00056, .00001, .00000, + .00000, .00000, .00000, + .02283, .00447, .00049, .00001, .00000, + .00000, .00000, .00000, + .02116, .00412, .00043, .00001, .00000, + .00000, .00000, .00000, + .01975, .00384, .00039, .00000, .00000, + .00000, .00000, .00000, + .01810, .00351, .00034, .00001, .00000, + .00000, .00000, .00000, + .01670, .00322, .00030, .00001, .00000, + .00000, .00000, .00000, + .01550, .00298, .00027, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01439, .00276, .00025, .00000, .00000, + .00000, .00000, .00000, + .01339, .00256, .00022, .00001, .00000, + .00000, .00000, .00000, + .01251, .00238, .00020, .00001, .00000, + .00000, .00000, .00000, + .01174, .00223, .00019, .00001, .00000, + .00000, .00000, .00000, + .01103, .00209, .00017, .00000, .00000, + .00000, .00000, .00000, + .01037, .00196, .00016, .00000, .00000, + .00000, .00000, .00000, + .00978, .00184, .00015, .00000, .00000, + .00000, .00000, .00000, + .00926, .00174, .00014, .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)/ + .00876, .00164, .00013, .00000, .00000, + .00000, .00000, .00000, + .00830, .00155, .00012, .00000, .00000, + .00000, .00000, .00000, + .00788, .00147, .00011, .00000, .00000, + .00000, .00000, .00000, + .00751, .00140, .00011, .00000, .00000, + .00000, .00000, .00000, + .00715, .00133, .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=1,8)/ + .05902, .01122, .00325, .00002, .00000, + .00000, .00000, .00000, + .05382, .01018, .00263, .00002, .00000, + .00000, .00000, .00001, + .04709, .00885, .00195, .00002, .00000, + .00000, -.00001, .00000, + .04281, .00800, .00158, .00002, .00000, + .00000, .00000, .00000, + .03879, .00721, .00128, .00001, .00000, + .00000, .00000, .00000, + .03568, .00660, .00108, .00000, .00000, + .00000, .00000, .00000, + .03296, .00607, .00092, .00000, .00000, + .00000, .00000, .00000, + .03032, .00556, .00078, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .02823, .00516, .00069, .00000, .00000, + .00000, .00000, .00000, + .02636, .00480, .00060, .00000, .00000, + .00000, .00000, .00000, + .02498, .00454, .00055, .00001, .00000, + .00000, .00000, .00000, + .02232, .00403, .00045, .00000, .00000, + .00000, .00000, .00000, + .02027, .00365, .00038, .00000, .00000, + .00000, .00000, .00000, + .01823, .00326, .00032, .00000, .00000, + .00000, .00000, .00000, + .01635, .00291, .00027, .00000, .00000, + .00000, .00000, .00000, + .01484, .00263, .00023, .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)/ + .01347, .00238, .00020, .00000, .00000, + .00000, .00000, .00000, + .01244, .00219, .00018, .00000, .00000, + .00000, .00000, .00000, + .01131, .00198, .00016, .00000, .00000, + .00000, .00000, .00000, + .01040, .00182, .00014, .00000, .00000, + .00000, .00000, .00000, + .00964, .00168, .00013, .00000, .00000, + .00000, .00000, .00000, + .00877, .00152, .00011, .00000, .00000, + .00000, .00000, .00000, + .00802, .00139, .00010, .00000, .00000, + .00000, .00000, .00000, + .00739, .00127, .00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00681, .00117, .00008, .00000, .00000, + .00000, .00000, .00000, + .00629, .00108, .00007, .00000, .00000, + .00000, .00000, .00000, + .00584, .00100, .00007, .00000, .00000, + .00000, .00000, .00000, + .00545, .00093, .00006, .00000, .00000, + .00000, .00000, .00000, + .00509, .00086, .00006, .00000, .00000, + .00000, .00000, .00000, + .00476, .00080, .00005, .00000, .00000, + .00000, .00000, .00000, + .00446, .00075, .00005, .00000, .00000, + .00000, .00000, .00000, + .00420, .00071, .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, .00066, .00004, .00000, .00000, + .00000, .00000, .00000, + .00373, .00062, .00004, .00000, .00000, + .00000, .00000, .00000, + .00352, .00059, .00004, .00000, .00000, + .00000, .00000, .00000, + .00334, .00056, .00003, .00000, .00000, + .00000, .00000, .00000, + .00317, .00053, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .02940, .00489, .00074, .00000, .00000, + .00000, .00000, .00000, + .02654, .00439, .00060, .00000, .00000, + .00000, .00000, .00000, + .02288, .00376, .00045, .00000, .00000, + .00000, .00000, .00000, + .02058, .00336, .00037, .00000, .00000, + .00000, .00000, .00000, + .01844, .00300, .00030, .00000, .00000, + .00000, .00000, .00000, + .01679, .00272, .00026, .00000, .00000, + .00000, .00000, .00000, + .01537, .00248, .00022, .00000, .00000, + .00000, .00000, .00000, + .01401, .00225, .00019, .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)/ + .01295, .00207, .00017, .00000, .00000, + .00000, .00000, .00000, + .01200, .00191, .00015, .00000, .00000, + .00000, .00000, .00000, + .01130, .00180, .00014, .00000, .00000, + .00000, .00000, .00000, + .00997, .00158, .00012, .00000, .00000, + .00000, .00000, .00000, + .00897, .00141, .00010, .00000, .00000, + .00000, .00000, .00000, + .00797, .00125, .00008, .00000, .00000, + .00000, .00000, .00000, + .00707, .00110, .00007, .00000, .00000, + .00000, .00000, .00000, + .00635, .00099, .00006, .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)/ + .00570, .00088, .00005, .00000, .00000, + .00000, .00000, .00000, + .00522, .00080, .00005, .00000, .00000, + .00000, .00000, .00000, + .00470, .00072, .00004, .00000, .00000, + .00000, .00000, .00000, + .00428, .00066, .00004, .00000, .00000, + .00000, .00000, .00000, + .00394, .00060, .00003, .00000, .00000, + .00000, .00000, .00000, + .00354, .00054, .00003, .00000, .00000, + .00000, .00000, .00000, + .00321, .00049, .00003, .00000, .00000, + .00000, .00000, .00000, + .00293, .00044, .00002, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00268, .00040, .00002, .00000, .00000, + .00000, .00000, .00000, + .00246, .00037, .00002, .00000, .00000, + .00000, .00000, .00000, + .00227, .00034, .00002, .00000, .00000, + .00000, .00000, .00000, + .00210, .00031, .00002, .00000, .00000, + .00000, .00000, .00000, + .00194, .00029, .00002, .00000, .00000, + .00000, .00000, .00000, + .00180, .00027, .00001, .00000, .00000, + .00000, .00000, .00000, + .00168, .00025, .00001, .00000, .00000, + .00000, .00000, .00000, + .00157, .00023, .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, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00138, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00130, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00122, .00018, .00001, .00000, .00000, + .00000, .00000, .00000, + .00115, .00017, .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)/ + .00307, .00035, .00001, .00000, .00000, + .00000, .00000, .00000, + .00268, .00030, .00001, .00000, .00000, + .00000, .00000, .00000, + .00221, .00025, .00001, .00000, .00000, + .00000, .00000, .00000, + .00193, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00167, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00148, .00016, .00001, .00000, .00000, + .00000, .00000, .00000, + .00132, .00015, .00001, .00000, .00000, + .00000, .00000, .00000, + .00118, .00013, .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)/ + .00106, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00096, .00010, .00001, .00000, .00000, + .00000, .00000, .00000, + .00089, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00076, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00066, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00057, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00049, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00042, .00005, .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)/ + .00037, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00033, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00023, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00020, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .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=25,32)/ + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .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='ft09a.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