#include "pdf/pilot.h" subroutine sfmrs_98d2(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)/ + .00633, .00311, 1.14392, .89438, .00000, + .00000, .48061, .90764, + .00647, .00317, 2.36832, .93385, .00000, + .00000, .52497, .94724, + .00668, .00324, 4.76149, 1.01541, .05290, + .00000, .61357, 1.02896, + .00684, .00331, 7.11672, 1.09185, .13518, + .00000, .69498, 1.10550, + .00701, .00336, 10.13798, 1.19087, .22724, + .00000, .79911, 1.20459, + .00716, .00342, 13.24386, 1.29192, .32134, + .00000, .90447, 1.30571, + .00729, .00348, 16.74708, 1.40164, .42795, + .00000, 1.01823, 1.41549, + .00745, .00354, 21.06366, 1.53279, .55824, + .00000, 1.15357, 1.54669 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00758, .00360, 25.26889, 1.66106, .68271, + .00000, 1.28541, 1.67500, + .00770, .00365, 29.78732, 1.79707, .81579, + .00000, 1.42480, 1.81103, + .00781, .00370, 33.74889, 1.91335, .93236, + .00000, 1.54371, 1.92733, + .00803, .00379, 43.31359, 2.18968, 1.20620, + .00000, 1.82554, 2.20369, + .00823, .00388, 52.13549, 2.45927, 1.47270, + .35330, 2.09975, 2.47329, + .00846, .00398, 63.64087, 2.79794, 1.80955, + .74197, 2.44348, 2.81197, + .00869, .00408, 77.14781, 3.19377, 2.20408, + 1.15413, 2.84443, 3.20779, + .00891, .00418, 90.79831, 3.59308, 2.60281, + 1.57114, 3.24826, 3.60708 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00912, .00428, 105.96921, 4.03695, 3.04715, + 2.03410, 3.69657, 4.05093, + .00932, .00437, 119.58295, 4.43747, 3.44712, + 2.44601, 4.10068, 4.45142, + .00954, .00447, 137.33309, 4.96295, 3.97126, + 2.98376, 4.63045, 4.97687, + .00975, .00456, 154.29370, 5.46657, 4.47525, + 3.50335, 5.13774, 5.48044, + .00993, .00465, 170.90085, 5.96176, 4.97174, + 4.01556, 5.63625, 5.97560, + .01018, .00476, 193.14832, 6.63353, 5.64232, + 4.70066, 6.31213, 6.64731, + .01041, .00487, 215.53217, 7.31399, 6.32313, + 5.39817, 6.99636, 7.32771, + .01062, .00497, 237.89236, 7.99742, 7.00897, + 6.10328, 7.68325, 8.01108 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01085, .00508, 261.11618, 8.71874, 7.72910, + 6.83635, 8.40796, 8.73234, + .01106, .00519, 285.13487, 9.46922, 8.48055, + 7.60438, 9.16167, 9.48275, + .01127, .00529, 308.95500, 10.21990, 9.23270, + 8.37299, 9.91537, 10.23338, + .01147, .00538, 332.12072, 10.95936, 9.97202, + 9.12560, 10.65761, 10.97276, + .01168, .00548, 356.55433, 11.74275, 10.75770, + 9.92845, 11.44373, 11.75608, + .01187, .00558, 381.08114, 12.54125, 11.55577, + 10.73927, 12.24490, 12.55452, + .01206, .00567, 405.53654, 13.33994, 12.35690, + 11.55687, 13.04606, 13.35315, + .01225, .00576, 428.98582, 14.11736, 13.13408, + 12.34586, 13.82580, 14.13050 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01244, .00585, 453.61158, 14.93700, 13.95558, + 13.18241, 14.64774, 14.95009, + .01262, .00595, 478.36330, 15.77066, 14.78999, + 14.03006, 15.48364, 15.78370, + .01280, .00603, 502.64206, 16.59465, 15.61508, + 14.86841, 16.30972, 16.60762, + .01297, .00612, 526.35150, 17.40418, 16.42664, + 15.69397, 17.12122, 17.41710, + .01315, .00620, 550.51563, 18.24012, 17.26282, + 16.54167, 17.95913, 18.25298 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00869, .00423, 1.05713, .75928, .00000, + .00000, .40785, .76709, + .00887, .00430, 2.16285, .79570, .00000, + .00000, .44808, .80359, + .00916, .00442, 4.27428, .86771, .04684, + .00000, .52551, .87568, + .00937, .00451, 6.30951, .93340, .11739, + .00000, .59505, .94142, + .00961, .00460, 8.87464, 1.01687, .19476, + .00000, .68247, 1.02494, + .00980, .00469, 11.47070, 1.10085, .27285, + .00000, .76978, 1.10897, + .00999, .00478, 14.36158, 1.19121, .36046, + .00000, .86324, 1.19935, + .01019, .00486, 17.87948, 1.29828, .46648, + .00000, .97354, 1.30646 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .01038, .00495, 21.26568, 1.40206, .56683, + .00000, 1.08006, 1.41025, + .01055, .00502, 24.86737, 1.51133, .67333, + .00000, 1.19193, 1.51953, + .01069, .00508, 27.99928, 1.60427, .76606, + .00000, 1.28690, 1.61250, + .01099, .00522, 35.47525, 1.82329, .98201, + .00000, 1.51015, 1.83152, + .01127, .00534, 42.25191, 2.03486, 1.19005, + .27601, 1.72528, 2.04310, + .01157, .00548, 50.98762, 2.29825, 1.45054, + .57679, 1.99256, 2.30650, + .01188, .00563, 61.10448, 2.60317, 1.75267, + .89192, 2.30139, 2.61141, + .01218, .00577, 71.20002, 2.90800, 2.05523, + 1.20775, 2.60970, 2.91624 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01247, .00591, 82.29069, 3.24404, 2.38959, + 1.55533, 2.94915, 3.25228, + .01273, .00602, 92.13943, 3.54494, 2.68823, + 1.86210, 3.25282, 3.55316, + .01304, .00618, 104.85053, 3.93677, 3.07669, + 2.25953, 3.64792, 3.94497, + .01331, .00630, 116.87706, 4.30953, 3.44750, + 2.64077, 4.02351, 4.31771, + .01357, .00643, 128.55175, 4.67366, 3.81045, + 3.01419, 4.39019, 4.68182, + .01390, .00659, 144.04049, 5.16403, 4.29709, + 3.50985, 4.88372, 5.17216, + .01420, .00673, 159.47539, 5.65710, 4.78760, + 4.01091, 5.37967, 5.66519, + .01450, .00688, 174.76172, 6.14899, 5.27855, + 4.51424, 5.87422, 6.15706 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01479, .00703, 190.49539, 6.66457, 5.79043, + 5.03367, 6.39240, 6.67261, + .01509, .00717, 206.64128, 7.19768, 6.32142, + 5.57480, 6.92800, 7.20568, + .01537, .00731, 222.53323, 7.72778, 6.84981, + 6.11320, 7.46041, 7.73575, + .01563, .00744, 237.87297, 8.24690, 7.36618, + 6.63726, 7.98167, 8.25484, + .01590, .00758, 253.95277, 8.79409, 7.91232, + 7.19380, 8.53097, 8.80200, + .01617, .00771, 269.97499, 9.34868, 8.46387, + 7.75248, 9.08761, 9.35655, + .01642, .00784, 285.86359, 9.90085, 9.01518, + 8.31361, 9.64170, 9.90871, + .01667, .00796, 300.99577, 10.43556, 9.54720, + 8.85212, 10.17818, 10.44337 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01692, .00808, 316.80835, 10.99695, 10.10734, + 9.42098, 10.74135, 11.00474, + .01717, .00822, 332.60647, 11.56527, 10.67361, + 9.99464, 11.31138, 11.57302, + .01740, .00833, 348.02279, 12.12462, 11.23130, + 10.55974, 11.87235, 12.13235, + .01763, .00845, 363.00681, 12.67204, 11.77778, + 11.11422, 12.42129, 12.67974, + .01787, .00857, 378.19215, 13.23487, 12.33835, + 11.68094, 12.98563, 13.24254 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01190, .00574, .97586, .64487, .00000, + .00000, .34675, .64892, + .01216, .00585, 1.97436, .67819, .00000, + .00000, .38299, .68227, + .01254, .00602, 3.83597, .74148, .04169, + .00000, .45047, .74560, + .01283, .00615, 5.59313, .79779, .10208, + .00000, .50975, .80192, + .01314, .00629, 7.76811, .86801, .16697, + .00000, .58300, .87215, + .01341, .00642, 9.93429, .93765, .23164, + .00000, .65518, .94180, + .01367, .00654, 12.31503, 1.01185, .30346, + .00000, .73178, 1.01602, + .01396, .00667, 15.17541, 1.09901, .38954, + .00000, .82142, 1.10319 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01420, .00678, 17.89486, 1.18273, .47026, + .00000, .90724, 1.18691, + .01444, .00689, 20.75754, 1.27023, .55529, + .00000, .99672, 1.27441, + .01462, .00699, 23.22598, 1.34426, .62890, + .00000, 1.07232, 1.34846, + .01503, .00717, 29.05018, 1.51722, .79879, + .00000, 1.24850, 1.52142, + .01539, .00735, 34.23548, 1.68261, .96078, + .21496, 1.41661, 1.68682, + .01580, .00755, 40.84044, 1.88662, 1.16169, + .44750, 1.62359, 1.89083, + .01624, .00776, 48.38382, 2.12050, 1.39242, + .68814, 1.86046, 2.12471, + .01664, .00795, 55.81407, 2.35218, 1.62136, + .92705, 2.09477, 2.35638 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01705, .00816, 63.88035, 2.60541, 1.87222, + 1.18767, 2.35060, 2.60960, + .01739, .00832, 70.96682, 2.83040, 2.09454, + 1.41580, 2.57769, 2.83458, + .01780, .00853, 80.01763, 3.12114, 2.38150, + 1.70904, 2.87092, 3.12532, + .01817, .00871, 88.49480, 3.39566, 2.65343, + 1.98829, 3.14759, 3.39984, + .01851, .00888, 96.65139, 3.66207, 2.91785, + 2.26001, 3.41593, 3.66624, + .01895, .00910, 107.36499, 4.01815, 3.26974, + 2.61788, 3.77442, 4.02231, + .01937, .00931, 117.93656, 4.37351, 3.62184, + 2.97703, 4.13198, 4.37766, + .01977, .00951, 128.31450, 4.72563, 3.97192, + 3.33548, 4.48611, 4.72977 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .02016, .00971, 138.89572, 5.09209, 4.33432, + 3.70260, 4.85455, 5.09623, + .02056, .00992, 149.66790, 5.46866, 4.70798, + 4.08283, 5.23301, 5.47278, + .02093, .01010, 160.18849, 5.84083, 5.07763, + 4.45892, 5.60694, 5.84493, + .02128, .01029, 170.26448, 6.20312, 5.43670, + 4.82275, 5.97086, 6.20722, + .02165, .01047, 180.75988, 6.58307, 5.81464, + 5.20736, 6.35242, 6.58716, + .02200, .01065, 191.13743, 6.96591, 6.19407, + 5.59104, 6.73681, 6.96998, + .02235, .01083, 201.37099, 7.34531, 6.57167, + 5.97485, 7.11767, 7.34939, + .02268, .01100, 211.04816, 7.71077, 6.93409, + 6.34108, 7.48448, 7.71483 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02300, .01117, 221.10939, 8.09286, 7.31416, + 6.72653, 7.86792, 8.09691, + .02333, .01134, 231.09804, 8.47778, 7.69651, + 7.11328, 8.25415, 8.48182, + .02365, .01150, 240.79332, 8.85501, 8.07150, + 7.49270, 8.63262, 8.85905, + .02396, .01166, 250.17130, 9.22275, 8.43758, + 7.86362, 9.00151, 9.22678, + .02426, .01182, 259.61782, 9.59914, 8.81136, + 8.24091, 9.37905, 9.60316 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01429, .00687, .93072, .58636, .00000, + .00000, .31575, .58885, + .01460, .00701, 1.87151, .61783, .00000, + .00000, .34973, .62034, + .01505, .00722, 3.60043, .67638, .03908, + .00000, .41189, .67890, + .01540, .00738, 5.21230, .72774, .09414, + .00000, .46580, .73026, + .01578, .00756, 7.18596, .79110, .15260, + .00000, .53175, .79363, + .01610, .00771, 9.13277, .85341, .21043, + .00000, .59625, .85595, + .01641, .00787, 11.25573, .91943, .27427, + .00000, .66431, .92197, + .01674, .00803, 13.78696, .99658, .35038, + .00000, .74358, .99913 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01704, .00817, 16.17572, 1.07027, .42133, + .00000, .81906, 1.07281, + .01732, .00830, 18.67475, 1.14695, .49576, + .00000, .89745, 1.14950, + .01755, .00841, 20.81881, 1.21164, .55998, + .00000, .96346, 1.21419, + .01804, .00865, 25.84282, 1.36196, .70741, + .00000, 1.11656, 1.36452, + .01847, .00886, 30.26764, 1.50485, .84713, + .18529, 1.26177, 1.50740, + .01897, .00911, 35.86355, 1.68015, 1.01947, + .38518, 1.43958, 1.68269, + .01949, .00937, 42.20140, 1.87993, 1.21621, + .59053, 1.64191, 1.88248, + .01997, .00961, 48.39572, 2.07675, 1.41038, + .79328, 1.84098, 2.07929 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .02045, .00985, 55.07255, 2.29081, 1.62206, + 1.01328, 2.05725, 2.29335, + .02085, .01005, 60.90058, 2.48010, 1.80879, + 1.20493, 2.24834, 2.48265, + .02135, .01031, 68.29744, 2.72362, 2.04872, + 1.45013, 2.49397, 2.72616, + .02179, .01052, 75.18367, 2.95253, 2.27510, + 1.68263, 2.72471, 2.95507, + .02220, .01073, 81.77432, 3.17380, 2.49438, + 1.90799, 2.94763, 3.17634, + .02272, .01100, 90.37887, 3.46824, 2.78488, + 2.20339, 3.24410, 3.47078, + .02322, .01126, 98.81925, 3.76078, 3.07429, + 2.49858, 3.53851, 3.76333, + .02369, .01150, 107.06134, 4.04949, 3.36092, + 2.79206, 3.82893, 4.05203 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02416, .01174, 115.41668, 4.34869, 3.65635, + 3.09127, 4.12982, 4.35123, + .02463, .01198, 123.88225, 4.65499, 3.95988, + 3.40010, 4.43773, 4.65753, + .02507, .01221, 132.11141, 4.95664, 4.25909, + 3.70449, 4.74087, 4.95918, + .02549, .01243, 139.95535, 5.24923, 4.54870, + 3.99786, 5.03485, 5.25177, + .02592, .01265, 148.09519, 5.55516, 4.85265, + 4.30714, 5.34214, 5.55771, + .02635, .01287, 156.10504, 5.86233, 5.15669, + 4.61452, 5.65064, 5.86488, + .02675, .01309, 163.97810, 6.16593, 5.45853, + 4.92128, 5.95548, 6.16848, + .02713, .01328, 171.39014, 6.45743, 5.74724, + 5.21295, 6.24812, 6.45998 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02753, .01349, 179.07328, 6.76144, 6.04932, + 5.51926, 6.55327, 6.76398, + .02792, .01369, 186.67124, 7.06681, 6.35233, + 5.82569, 6.85976, 7.06936, + .02829, .01389, 194.02231, 7.36532, 6.64875, + 6.12555, 7.15932, 7.36787, + .02865, .01408, 201.11195, 7.65563, 6.93750, + 6.41808, 7.45063, 7.65819, + .02901, .01427, 208.22668, 7.95198, 7.23147, + 6.71473, 7.74796, 7.95454 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01627, .00781, .89987, .54824, .00000, + .00000, .29567, .54989, + .01662, .00797, 1.80186, .57839, .00000, + .00000, .32808, .58004, + .01715, .00822, 3.44219, .63373, .03738, + .00000, .38665, .63537, + .01754, .00841, 4.95806, .68179, .08891, + .00000, .43701, .68344, + .01796, .00862, 6.79970, .74063, .14315, + .00000, .49818, .74229, + .01833, .00879, 8.60372, .79816, .19652, + .00000, .55767, .79982, + .01868, .00897, 10.55983, .85887, .25522, + .00000, .62022, .86054, + .01906, .00915, 12.87934, .92955, .32488, + .00000, .69280, .93122 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01940, .00931, 15.05658, .99678, .38959, + .00000, .76164, .99844, + .01972, .00947, 17.32414, 1.06655, .45726, + .00000, .83293, 1.06821, + .01997, .00961, 19.26261, 1.12527, .51549, + .00000, .89282, 1.12692, + .02054, .00987, 23.78228, 1.26121, .64870, + .00000, 1.03125, 1.26287, + .02103, .01013, 27.73218, 1.38986, .77439, + .16650, 1.16197, 1.39152, + .02158, .01041, 32.70132, 1.54706, .92882, + .34596, 1.32143, 1.54872, + .02218, .01071, 38.29544, 1.72548, 1.10440, + .52938, 1.50214, 1.72715, + .02272, .01098, 43.73217, 1.90057, 1.27698, + .70973, 1.67924, 1.90225 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02326, .01126, 49.56230, 2.09032, 1.46446, + .90472, 1.87095, 2.09198, + .02373, .01149, 54.62750, 2.25755, 1.62929, + 1.07397, 2.03979, 2.25922, + .02428, .01178, 61.02708, 2.47198, 1.84040, + 1.28982, 2.25610, 2.47367, + .02479, .01204, 66.95882, 2.67291, 2.03896, + 1.49385, 2.45867, 2.67460, + .02525, .01227, 72.61410, 2.86660, 2.23076, + 1.69106, 2.65382, 2.86829, + .02584, .01258, 79.96508, 3.12350, 2.48404, + 1.94868, 2.91255, 3.12520, + .02640, .01287, 87.14494, 3.37793, 2.73557, + 2.20532, 3.16865, 3.37963, + .02693, .01315, 94.12939, 3.62831, 2.98401, + 2.45979, 3.42056, 3.63002 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02746, .01343, 101.18020, 3.88700, 3.23926, + 2.71836, 3.68074, 3.88871, + .02800, .01371, 108.29926, 4.15113, 3.50085, + 2.98458, 3.94630, 4.15285, + .02850, .01396, 115.19605, 4.41057, 3.75805, + 3.24631, 4.20708, 4.41229, + .02897, .01421, 121.74704, 4.66157, 4.00635, + 3.49789, 4.45931, 4.66331, + .02945, .01447, 128.52670, 4.92345, 4.26642, + 3.76259, 4.72242, 4.92520, + .02993, .01472, 135.17488, 5.18574, 4.52588, + 4.02493, 4.98587, 5.18750, + .03038, .01495, 141.69395, 5.44447, 4.78300, + 4.28632, 5.24571, 5.44623, + .03082, .01519, 147.81134, 5.69230, 5.02835, + 4.53422, 5.49458, 5.69406 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .03126, .01542, 154.13878, 5.95031, 5.28463, + 4.79415, 5.75361, 5.95210, + .03171, .01566, 160.37807, 6.20894, 5.54114, + 5.05360, 6.01324, 6.21073, + .03212, .01587, 166.40038, 6.46130, 5.79164, + 5.30705, 6.26653, 6.46310, + .03252, .01609, 172.19622, 6.70631, 6.03524, + 5.55390, 6.51242, 6.70812, + .03293, .01631, 177.99640, 6.95592, 6.28276, + 5.80371, 6.76291, 6.95774 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01799, .00863, .87695, .52046, .00000, + .00000, .28106, .52155, + .01838, .00881, 1.74998, .54961, .00000, + .00000, .31229, .55069, + .01896, .00909, 3.32465, .60251, .03614, + .00000, .36819, .60360, + .01940, .00931, 4.76991, .64813, .08506, + .00000, .41592, .64922, + .01986, .00953, 6.51496, .70367, .13622, + .00000, .47360, .70476, + .02027, .00974, 8.21504, .75772, .18634, + .00000, .52946, .75881, + .02066, .00993, 10.05029, .81457, .24129, + .00000, .58800, .81567, + .02108, .01014, 12.21707, .88058, .30631, + .00000, .65575, .88166 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .02145, .01032, 14.24238, .94315, .36652, + .00000, .71981, .94425, + .02181, .01050, 16.34430, 1.00794, .42933, + .00000, .78600, 1.00903, + .02209, .01065, 18.13608, 1.06237, .48328, + .00000, .84152, 1.06346, + .02270, .01096, 22.29738, 1.18803, .60635, + .00000, .96944, 1.18913, + .02325, .01123, 25.91254, 1.30653, .72209, + .15311, 1.08986, 1.30764, + .02387, .01155, 30.44159, 1.45089, .86384, + .31811, 1.23630, 1.45202, + .02451, .01187, 35.51606, 1.61421, 1.02448, + .48608, 1.40171, 1.61534, + .02510, .01218, 40.42590, 1.77399, 1.18190, + .65073, 1.56334, 1.77512 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02571, .01249, 45.66972, 1.94665, 1.35242, + .82821, 1.73781, 1.94779, + .02622, .01275, 50.20875, 2.09842, 1.50197, + .98187, 1.89106, 2.09958, + .02684, .01307, 55.92297, 2.29254, 1.69300, + 1.17730, 2.08691, 2.29370, + .02739, .01336, 61.20117, 2.47400, 1.87223, + 1.36158, 2.26987, 2.47516, + .02790, .01363, 66.21821, 2.64851, 2.04500, + 1.53931, 2.44573, 2.64968, + .02855, .01396, 72.71677, 2.87941, 2.27257, + 1.77089, 2.67830, 2.88059, + .02917, .01429, 79.04267, 3.10752, 2.49801, + 2.00103, 2.90795, 3.10872, + .02975, .01459, 85.17790, 3.33149, 2.72018, + 2.22871, 3.13332, 3.33270 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .03034, .01490, 91.35070, 3.56234, 2.94790, + 2.45946, 3.36555, 3.56357, + .03091, .01520, 97.56629, 3.79756, 3.18079, + 2.69659, 3.60208, 3.79880, + .03146, .01550, 103.57156, 4.02813, 3.40932, + 2.92924, 3.83388, 4.02938, + .03199, .01578, 109.25998, 4.25076, 3.62949, + 3.15240, 4.05763, 4.25202, + .03252, .01605, 115.13431, 4.48263, 3.85973, + 3.38684, 4.29063, 4.48392, + .03304, .01633, 120.87867, 4.71441, 4.08898, + 3.61871, 4.52348, 4.71570, + .03355, .01660, 126.50099, 4.94270, 4.31580, + 3.84939, 4.75279, 4.94400, + .03401, .01685, 131.76296, 5.16097, 4.53185, + 4.06775, 4.97200, 5.16229 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03450, .01710, 137.19646, 5.38789, 4.75722, + 4.29642, 5.19986, 5.38922, + .03498, .01737, 142.54190, 5.61498, 4.98242, + 4.52428, 5.42786, 5.61632, + .03544, .01761, 147.69181, 5.83624, 5.20203, + 4.74655, 5.64999, 5.83759, + .03588, .01785, 152.63985, 6.05078, 5.41531, + 4.96277, 5.86533, 6.05215, + .03632, .01808, 157.58023, 6.26900, 5.63169, + 5.18121, 6.08436, 6.27038 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02464, .01184, .80938, .44363, .00000, + .00000, .24119, .44381, + .02517, .01210, 1.59908, .46957, .00000, + .00000, .26879, .46976, + .02595, .01250, 2.98536, .51530, .03280, + .00000, .31685, .51549, + .02655, .01280, 4.23050, .55389, .07426, + .00000, .35708, .55407, + .02718, .01312, 5.70448, .60004, .11669, + .00000, .40493, .60023, + .02773, .01341, 7.11542, .64432, .15776, + .00000, .45063, .64453, + .02826, .01368, 8.61694, .69047, .20235, + .00000, .49809, .69068, + .02883, .01398, 10.36527, .74355, .25460, + .00000, .55253, .74377 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02932, .01423, 11.97746, .79339, .30253, + .00000, .60353, .79363, + .02981, .01449, 13.63182, .84461, .35217, + .00000, .65584, .84485, + .03020, .01468, 15.02935, .88740, .39456, + .00000, .69948, .88765, + .03103, .01512, 18.23465, .98530, .49040, + .00000, .79914, .98557, + .03177, .01550, 20.96617, 1.07663, .57960, + .11702, .89196, 1.07692, + .03260, .01595, 24.34168, 1.18682, .68779, + .24379, 1.00377, 1.18714, + .03348, .01641, 28.06643, 1.31021, .80914, + .37120, 1.12878, 1.31054, + .03428, .01684, 31.61930, 1.42977, .92693, + .49489, 1.24977, 1.43012 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03510, .01727, 35.36477, 1.55780, 1.05342, + .62701, 1.37921, 1.55819, + .03577, .01763, 38.56849, 1.66944, 1.16343, + .74042, 1.49199, 1.66985, + .03661, .01808, 42.55525, 1.81107, 1.30284, + .88348, 1.63496, 1.81151, + .03736, .01848, 46.19713, 1.94242, 1.43263, + 1.01735, 1.76748, 1.94289, + .03804, .01884, 49.62524, 2.06788, 1.55687, + 1.14557, 1.89397, 2.06838, + .03890, .01931, 54.01575, 2.23256, 1.71923, + 1.31123, 2.05995, 2.23309, + .03974, .01976, 58.24323, 2.39397, 1.87882, + 1.47461, 2.22254, 2.39453, + .04051, .02018, 62.30372, 2.55133, 2.03501, + 1.63514, 2.38099, 2.55193 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .04130, .02061, 66.34470, 2.71228, 2.19385, + 1.79649, 2.54300, 2.71291, + .04207, .02102, 70.37797, 2.87520, 2.35527, + 1.96127, 2.70695, 2.87587, + .04280, .02142, 74.24091, 3.03389, 2.51264, + 2.12191, 2.86658, 3.03459, + .04350, .02179, 77.86683, 3.18612, 2.66329, + 2.27497, 3.01968, 3.18685, + .04421, .02218, 81.58569, 3.34385, 2.82002, + 2.43498, 3.17827, 3.34461, + .04490, .02256, 85.18863, 3.50048, 2.97504, + 2.59213, 3.33575, 3.50128, + .04556, .02292, 88.69426, 3.65403, 3.12776, + 2.74784, 3.49008, 3.65486, + .04620, .02327, 91.94656, 3.79997, 3.27230, + 2.89426, 3.63676, 3.80083 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04684, .02361, 95.28675, 3.95105, 3.42249, + 3.04702, 3.78855, 3.95194, + .04747, .02395, 98.54770, 4.10141, 3.57173, + 3.19837, 3.93964, 4.10234, + .04808, .02429, 101.67026, 4.24726, 3.71662, + 3.34536, 4.08615, 4.24822, + .04866, .02461, 104.65404, 4.38809, 3.85677, + 3.48778, 4.22761, 4.38907, + .04925, .02493, 107.61046, 4.53062, 3.99821, + 3.63087, 4.37075, 4.53163 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .03386, .01638, .75072, .37986, .00000, + .00000, .20879, .38012, + .03455, .01674, 1.46661, .40254, .00000, + .00000, .23280, .40283, + .03559, .01729, 2.68593, .44149, .03011, + .00000, .27362, .44179, + .03640, .01770, 3.75691, .47369, .06492, + .00000, .30718, .47403, + .03725, .01816, 4.99809, .51162, .09975, + .00000, .34646, .51199, + .03798, .01854, 6.16405, .54753, .13307, + .00000, .38350, .54792, + .03870, .01893, 7.38608, .58457, .16892, + .00000, .42162, .58501, + .03947, .01933, 8.78813, .62682, .21053, + .00000, .46496, .62728 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .04013, .01970, 10.06242, .66611, .24836, + .00000, .50518, .66660, + .04079, .02005, 11.35441, .70618, .28724, + .00000, .54613, .70669, + .04131, .02032, 12.43537, .73947, .32026, + .00000, .58012, .74002, + .04243, .02093, 14.88188, .81495, .39425, + .00000, .65701, .81554, + .04342, .02147, 16.92565, .88460, .46238, + .08775, .72785, .88524, + .04454, .02208, 19.41259, .96780, .54422, + .18450, .81235, .96849, + .04572, .02273, 22.11251, 1.05999, .63508, + .28047, .90584, 1.06074, + .04680, .02331, 24.64885, 1.14843, .72241, + .37272, .99543, 1.14924 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04789, .02392, 27.28567, 1.24228, .81535, + .47036, 1.09041, 1.24314, + .04880, .02442, 29.51244, 1.32343, .89550, + .55343, 1.17248, 1.32434, + .04993, .02503, 32.24916, 1.42551, .99621, + .65733, 1.27564, 1.42648, + .05091, .02558, 34.71950, 1.51942, 1.08924, + .75379, 1.37049, 1.52045, + .05183, .02609, 37.02058, 1.60848, 1.17767, + .84552, 1.46039, 1.60956, + .05300, .02673, 39.93160, 1.72441, 1.29225, + .96302, 1.57736, 1.72556, + .05409, .02734, 42.70171, 1.83712, 1.40397, + 1.07795, 1.69101, 1.83833, + .05514, .02792, 45.33477, 1.94618, 1.51253, + 1.19009, 1.80096, 1.94746 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05618, .02850, 47.92364, 2.05685, 1.62201, + 1.30182, 1.91247, 2.05818, + .05720, .02907, 50.48313, 2.16810, 1.73253, + 1.41519, 2.02455, 2.16950, + .05818, .02961, 52.91129, 2.27574, 1.83958, + 1.52497, 2.13295, 2.27719, + .05910, .03012, 55.16744, 2.37829, 1.94133, + 1.62882, 2.23622, 2.37981, + .06003, .03064, 57.46453, 2.48397, 2.04665, + 1.73686, 2.34260, 2.48554, + .06095, .03115, 59.66653, 2.58820, 2.15008, + 1.84217, 2.44751, 2.58984, + .06184, .03165, 61.79581, 2.68988, 2.25149, + 1.94606, 2.54982, 2.69157, + .06266, .03211, 63.75135, 2.78590, 2.34685, + 2.04308, 2.64644, 2.78764 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06351, .03257, 65.74825, 2.88486, 2.44551, + 2.14389, 2.74597, 2.88665, + .06434, .03304, 67.68073, 2.98279, 2.54298, + 2.24317, 2.84448, 2.98464, + .06514, .03348, 69.51862, 3.07732, 2.63716, + 2.33914, 2.93956, 3.07923, + .06590, .03391, 71.26442, 3.16820, 2.72788, + 2.43175, 3.03094, 3.17015, + .06667, .03433, 72.97860, 3.25966, 2.81890, + 2.52423, 3.12291, 3.26166 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .04078, .01987, .72455, .34796, .00000, + .00000, .19285, .34865, + .04160, .02029, 1.40130, .36870, .00000, + .00000, .21479, .36942, + .04283, .02095, 2.53143, .40381, .02873, + .00000, .25160, .40460, + .04379, .02147, 3.51044, .43257, .05995, + .00000, .28156, .43340, + .04479, .02200, 4.63000, .46614, .09078, + .00000, .31635, .46702, + .04566, .02247, 5.66938, .49768, .12007, + .00000, .34890, .49861, + .04651, .02293, 6.74836, .53004, .15143, + .00000, .38222, .53102, + .04742, .02343, 7.97485, .56676, .18764, + .00000, .41993, .56780 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04823, .02387, 9.07956, .60072, .22038, + .00000, .45473, .60180, + .04899, .02429, 10.19121, .63521, .25389, + .00000, .49000, .63632, + .04961, .02464, 11.11572, .66377, .28225, + .00000, .51918, .66492, + .05094, .02536, 13.19090, .72818, .34548, + .00000, .58486, .72940, + .05212, .02601, 14.90362, .78721, .40333, + .07318, .64496, .78851, + .05346, .02676, 16.96664, .85732, .47242, + .15537, .71623, .85870, + .05485, .02753, 19.18352, .93451, .54866, + .23627, .79460, .93597, + .05614, .02825, 21.24616, 1.00811, .62151, + .31357, .86925, 1.00966 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05743, .02897, 23.37182, 1.08580, .69859, + .39491, .94795, 1.08743, + .05851, .02958, 25.15242, 1.15262, .76473, + .46374, 1.01559, 1.15432, + .05983, .03032, 27.32358, 1.23625, .84744, + .54942, 1.10020, 1.23804, + .06101, .03097, 29.26869, 1.31281, .92346, + .62857, 1.17761, 1.31467, + .06209, .03158, 31.06856, 1.38509, .99540, + .70351, 1.25065, 1.38703, + .06347, .03236, 33.32754, 1.47871, 1.08814, + .79898, 1.34520, 1.48073, + .06477, .03309, 35.46112, 1.56926, 1.17812, + .89193, 1.43662, 1.57137, + .06600, .03379, 37.47578, 1.65650, 1.26516, + .98220, 1.52466, 1.65870 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06723, .03447, 39.44097, 1.74457, 1.35249, + 1.07166, 1.61350, 1.74685, + .06843, .03515, 41.37215, 1.83274, 1.44030, + 1.16209, 1.70242, 1.83510, + .06958, .03580, 43.19303, 1.91769, 1.52500, + 1.24929, 1.78806, 1.92013, + .07066, .03640, 44.87361, 1.99829, 1.60517, + 1.33142, 1.86931, 2.00081, + .07176, .03703, 46.57680, 2.08106, 1.68787, + 1.41659, 1.95272, 2.08365, + .07284, .03763, 48.19795, 2.16235, 1.76873, + 1.49923, 2.03462, 2.16501, + .07386, .03821, 49.75949, 2.24141, 1.84779, + 1.58053, 2.11426, 2.24414, + .07484, .03876, 51.18372, 2.31577, 1.92183, + 1.65614, 2.18916, 2.31857 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07582, .03931, 52.63284, 2.39219, 1.99822, + 1.73449, 2.26612, 2.39507, + .07680, .03986, 54.02694, 2.46755, 2.07342, + 1.81137, 2.34200, 2.47049, + .07773, .04039, 55.34690, 2.54007, 2.14587, + 1.88547, 2.41502, 2.54308, + .07862, .04090, 56.59577, 2.60961, 2.21547, + 1.95679, 2.48503, 2.61268, + .07952, .04140, 57.81432, 2.67933, 2.28505, + 2.02775, 2.55522, 2.68247 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .04654, .02277, .71387, .32712, .00000, + .00000, .18263, .32840, + .04746, .02326, 1.36418, .34651, .00000, + .00000, .20310, .34782, + .04886, .02401, 2.43389, .37903, .02777, + .00000, .23721, .38042, + .04992, .02459, 3.35099, .40549, .05657, + .00000, .26476, .40692, + .05106, .02522, 4.38924, .43619, .08473, + .00000, .29659, .43768, + .05205, .02576, 5.34462, .46488, .11139, + .00000, .32622, .46643, + .05299, .02630, 6.32932, .49422, .13981, + .00000, .35644, .49584, + .05403, .02686, 7.44093, .52738, .17251, + .00000, .39052, .52905 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .05493, .02737, 8.43540, .55793, .20197, + .00000, .42183, .55965, + .05580, .02785, 9.43049, .58885, .23203, + .00000, .45349, .59062, + .05651, .02824, 10.25434, .61440, .25742, + .00000, .47960, .61622, + .05800, .02908, 12.09229, .67178, .31379, + .00000, .53816, .67369, + .05933, .02982, 13.59546, .72412, .36513, + .06393, .59152, .72612, + .06083, .03068, 15.39207, .78602, .42621, + .13695, .65449, .78810, + .06242, .03157, 17.30792, .85384, .49327, + .20838, .72340, .85604, + .06386, .03238, 19.07764, .91823, .55708, + .27633, .78876, .92052 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06532, .03321, 20.88942, .98591, .62433, + .34755, .85739, .98830, + .06654, .03391, 22.39783, 1.04389, .68182, + .40759, .91614, 1.04636, + .06803, .03475, 24.22613, 1.11619, .75343, + .48202, .98934, 1.11877, + .06936, .03550, 25.85478, 1.18213, .81901, + .55054, 1.05608, 1.18480, + .07057, .03619, 27.35428, 1.24419, .88088, + .61521, 1.11885, 1.24694, + .07212, .03706, 29.22489, 1.32424, .96033, + .69727, 1.19979, 1.32711, + .07358, .03790, 30.98160, 1.40139, 1.03713, + .77686, 1.27775, 1.40437, + .07496, .03868, 32.63212, 1.47547, 1.11118, + .85392, 1.35257, 1.47854 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07634, .03947, 34.23224, 1.54997, 1.18519, + .92999, 1.42780, 1.55314, + .07769, .04024, 35.79742, 1.62432, 1.25938, + 1.00663, 1.50286, 1.62759, + .07898, .04096, 37.26628, 1.69573, 1.33072, + 1.08033, 1.57492, 1.69908, + .08019, .04166, 38.61488, 1.76327, 1.39802, + 1.14950, 1.64307, 1.76671, + .08141, .04235, 39.97685, 1.83246, 1.46729, + 1.22107, 1.71285, 1.83599, + .08262, .04303, 41.26590, 1.90017, 1.53479, + 1.29027, 1.78116, 1.90379, + .08376, .04369, 42.50396, 1.96589, 1.60066, + 1.35824, 1.84742, 1.96959, + .08486, .04431, 43.62694, 2.02751, 1.66213, + 1.42121, 1.90955, 2.03130 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08595, .04493, 44.76645, 2.09070, 1.72544, + 1.48636, 1.97326, 2.09457, + .08704, .04555, 45.85744, 2.15285, 1.78760, + 1.55011, 2.03591, 2.15680, + .08808, .04614, 46.88680, 2.21252, 1.84735, + 1.61142, 2.09605, 2.21656, + .08907, .04670, 47.85778, 2.26962, 1.90463, + 1.67032, 2.15359, 2.27373, + .09006, .04726, 48.80029, 2.32674, 1.96173, + 1.72874, 2.21114, 2.33091 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .05157, .02545, .71442, .31295, .00000, + .00000, .17535, .31427, + .05257, .02600, 1.34424, .33124, .00000, + .00000, .19466, .33262, + .05410, .02683, 2.36776, .36177, .02693, + .00000, .22663, .36325, + .05528, .02749, 3.23771, .38647, .05392, + .00000, .25235, .38801, + .05652, .02818, 4.21427, .41500, .08009, + .00000, .28193, .41664, + .05761, .02878, 5.10630, .44157, .10478, + .00000, .30936, .44326, + .05867, .02937, 6.02018, .46865, .13104, + .00000, .33727, .47041, + .05980, .03001, 7.04587, .49918, .16117, + .00000, .36863, .50101 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .06079, .03056, 7.95833, .52722, .18822, + .00000, .39739, .52912, + .06175, .03111, 8.86709, .55551, .21575, + .00000, .42637, .55748, + .06251, .03154, 9.61666, .57886, .23896, + .00000, .45024, .58088, + .06416, .03248, 11.28037, .63112, .29035, + .00000, .50360, .63325, + .06563, .03331, 12.63079, .67862, .33698, + .05730, .55202, .68084, + .06728, .03425, 14.23441, .73457, .39224, + .12363, .60899, .73692, + .06902, .03524, 15.93355, .79564, .45270, + .18821, .67110, .79811, + .07061, .03614, 17.49363, .85342, .51003, + .24944, .72977, .85601 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07221, .03707, 19.08195, .91394, .57023, + .31338, .79118, .91664, + .07355, .03782, 20.39755, .96562, .62154, + .36710, .84359, .96841, + .07518, .03875, 21.98412, 1.02987, .68525, + .43350, .90869, 1.03278, + .07662, .03958, 23.39068, 1.08827, .74341, + .49444, .96784, 1.09130, + .07796, .04034, 24.68023, 1.14310, .79815, + .55181, 1.02333, 1.14622, + .07965, .04132, 26.28053, 1.21360, .86820, + .62435, 1.09466, 1.21684, + .08124, .04222, 27.77627, 1.28132, .93571, + .69450, 1.16314, 1.28468, + .08275, .04309, 29.17573, 1.34615, 1.00063, + .76225, 1.22869, 1.34963 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08425, .04394, 30.52515, 1.41116, 1.06530, + .82889, 1.29438, 1.41475, + .08573, .04478, 31.83996, 1.47586, 1.12996, + .89587, 1.35975, 1.47956, + .08713, .04558, 33.06881, 1.53786, 1.19199, + .96012, 1.42236, 1.54167, + .08844, .04634, 34.19201, 1.59632, 1.25035, + 1.02026, 1.48139, 1.60023, + .08978, .04710, 35.32300, 1.65607, 1.31029, + 1.08236, 1.54172, 1.66009, + .09108, .04785, 36.38801, 1.71441, 1.36854, + 1.14224, 1.60061, 1.71852, + .09233, .04856, 37.40839, 1.77092, 1.42527, + 1.20094, 1.65764, 1.77512, + .09351, .04922, 38.32942, 1.82376, 1.47809, + 1.25519, 1.71097, 1.82806 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09471, .04991, 39.26187, 1.87786, 1.53240, + 1.31123, 1.76557, 1.88226, + .09588, .05058, 40.15093, 1.93094, 1.58558, + 1.36593, 1.81912, 1.93543, + .09701, .05121, 40.98721, 1.98182, 1.63662, + 1.41845, 1.87044, 1.98638, + .09808, .05182, 41.77397, 2.03041, 1.68547, + 1.46882, 1.91945, 2.03506, + .09915, .05244, 42.53403, 2.07890, 1.73406, + 1.51866, 1.96837, 2.08364 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .07103, .03613, .74006, .27424, .00000, + .00000, .15591, .27668, + .07236, .03690, 1.31025, .28914, .00000, + .00000, .17162, .29166, + .07440, .03806, 2.19823, .31363, .02418, + .00000, .19729, .31630, + .07596, .03898, 2.93056, .33318, .04590, + .00000, .21767, .33596, + .07764, .03994, 3.72989, .35551, .06645, + .00000, .24084, .35840, + .07909, .04078, 4.44211, .37606, .08565, + .00000, .26212, .37907, + .08050, .04161, 5.15706, .39683, .10592, + .00000, .28356, .39995, + .08202, .04249, 5.94402, .42005, .12897, + .00000, .30748, .42328 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08335, .04326, 6.63101, .44119, .14945, + .00000, .32920, .44450, + .08463, .04402, 7.30443, .46235, .17016, + .00000, .35093, .46577, + .08567, .04463, 7.85295, .47970, .18750, + .00000, .36873, .48320, + .08787, .04592, 9.04982, .51817, .22554, + .00000, .40812, .52186, + .08982, .04705, 9.99709, .55269, .25963, + .03927, .44341, .55653, + .09204, .04834, 11.09603, .59290, .29957, + .08793, .48447, .59690, + .09434, .04969, 12.23524, .63624, .34274, + .13458, .52868, .64043, + .09644, .05091, 13.25978, .67674, .38318, + .17828, .56995, .68110 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09856, .05215, 14.28325, .71869, .42519, + .22341, .61267, .72322, + .10033, .05318, 15.11603, .75413, .46062, + .26093, .64873, .75881, + .10247, .05443, 16.10287, .79774, .50416, + .30681, .69307, .80259, + .10438, .05554, 16.96335, .83698, .54353, + .34852, .73295, .84199, + .10612, .05655, 17.74071, .87348, .58023, + .38743, .77002, .87863, + .10833, .05783, 18.68785, .91992, .62671, + .43611, .81718, .92525, + .11041, .05903, 19.55818, .96405, .67105, + .48271, .86198, .96955, + .11236, .06016, 20.36043, 1.00592, .71330, + .52730, .90447, 1.01158 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11431, .06128, 21.11910, 1.04743, .75494, + .57069, .94658, 1.05326, + .11622, .06238, 21.84806, 1.08840, .79622, + .61394, .98814, 1.09438, + .11803, .06342, 22.51951, 1.12730, .83549, + .65509, 1.02758, 1.13343, + .11972, .06439, 23.12288, 1.16365, .87209, + .69324, 1.06445, 1.16993, + .12143, .06537, 23.72410, 1.20055, .90944, + .73239, 1.10185, 1.20697, + .12309, .06632, 24.27947, 1.23623, .94539, + .76978, 1.13802, 1.24278, + .12468, .06724, 24.80711, 1.27058, .98021, + .80624, 1.17283, 1.27726, + .12618, .06809, 25.27418, 1.30240, 1.01233, + .83962, 1.20509, 1.30921 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12769, .06896, 25.74325, 1.33481, 1.04518, + .87392, 1.23793, 1.34174, + .12918, .06980, 26.18300, 1.36634, 1.07711, + .90716, 1.26989, 1.37340, + .13060, .07061, 26.59182, 1.39637, 1.10755, + .93886, 1.30032, 1.40354, + .13195, .07137, 26.97261, 1.42488, 1.13652, + .96911, 1.32921, 1.43217, + .13330, .07214, 27.33333, 1.45311, 1.16511, + .99880, 1.35782, 1.46051 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09809, .05187, .84340, .24309, .00000, + .00000, .13963, .24727, + .09986, .05292, 1.35324, .25464, .00000, + .00000, .15186, .25896, + .10258, .05455, 2.10882, .27351, .02034, + .00000, .17170, .27806, + .10468, .05582, 2.70862, .28843, .03745, + .00000, .18733, .29316, + .10691, .05716, 3.34369, .30531, .05319, + .00000, .20493, .31023, + .10886, .05832, 3.89362, .32070, .06778, + .00000, .22093, .32580, + .11075, .05945, 4.43265, .33615, .08306, + .00000, .23694, .34140, + .11279, .06066, 5.01274, .35325, .10027, + .00000, .25466, .35869 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11456, .06172, 5.50830, .36867, .11542, + .00000, .27059, .37426, + .11627, .06275, 5.98517, .38399, .13059, + .00000, .28640, .38973, + .11765, .06357, 6.36790, .39647, .14322, + .00000, .29927, .40233, + .12058, .06532, 7.18687, .42384, .17062, + .00000, .32745, .42997, + .12317, .06684, 7.81703, .44805, .19482, + .02459, .35235, .45440, + .12607, .06856, 8.52533, .47588, .22283, + .05939, .38093, .48249, + .12911, .07034, 9.24057, .50543, .25266, + .09217, .41127, .51232, + .13184, .07195, 9.86780, .53269, .28024, + .12248, .43922, .53981 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13462, .07356, 10.47991, .56054, .30852, + .15337, .46776, .56791, + .13692, .07491, 10.96696, .58379, .33208, + .17873, .49159, .59137, + .13968, .07651, 11.53143, .61203, .36068, + .20938, .52050, .61985, + .14213, .07793, 12.01342, .63715, .38625, + .23694, .54621, .64519, + .14437, .07924, 12.44080, .66026, .40985, + .26239, .56987, .66850, + .14720, .08086, 12.94873, .68929, .43936, + .29382, .59956, .69779, + .14984, .08238, 13.40512, .71653, .46718, + .32357, .62744, .72526, + .15232, .08379, 13.81765, .74209, .49341, + .35175, .65357, .75104 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15476, .08519, 14.19694, .76711, .51892, + .37881, .67916, .77626, + .15716, .08656, 14.55452, .79154, .54398, + .40555, .70414, .80090, + .15941, .08783, 14.87710, .81448, .56757, + .43073, .72761, .82405, + .16151, .08902, 15.15969, .83568, .58933, + .45384, .74930, .84544, + .16363, .09022, 15.43736, .85702, .61136, + .47737, .77114, .86696, + .16570, .09138, 15.68577, .87741, .63231, + .49958, .79199, .88752, + .16765, .09248, 15.91922, .89689, .65248, + .52112, .81193, .90718, + .16949, .09350, 16.11901, .91474, .67089, + .54063, .83020, .92519 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .17134, .09454, 16.31744, .93279, .68959, + .56055, .84867, .94339, + .17314, .09555, 16.49796, .95017, .70760, + .57968, .86647, .96094, + .17486, .09650, 16.66247, .96660, .72464, + .59779, .88329, .97750, + .17649, .09741, 16.81317, .98209, .74075, + .61496, .89915, .99313, + .17812, .09831, 16.95042, .99724, .75648, + .63166, .91468, 1.00842 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11854, .06416, .95677, .22637, .00000, + .00000, .13035, .23208, + .12065, .06546, 1.42247, .23612, .00000, + .00000, .14072, .24203, + .12389, .06745, 2.09790, .25201, .01716, + .00000, .15751, .25821, + .12639, .06897, 2.61953, .26452, .03191, + .00000, .17069, .27094, + .12904, .07058, 3.16113, .27860, .04524, + .00000, .18545, .28529, + .13135, .07197, 3.62157, .29138, .05752, + .00000, .19880, .29827, + .13359, .07333, 4.06588, .30411, .07032, + .00000, .21208, .31122, + .13600, .07478, 4.53700, .31816, .08466, + .00000, .22671, .32549 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13809, .07603, 4.93376, .33074, .09719, + .00000, .23978, .33827, + .14013, .07725, 5.31096, .34316, .10967, + .00000, .25268, .35088, + .14175, .07822, 5.61076, .35325, .12001, + .00000, .26314, .36113, + .14520, .08027, 6.24396, .37521, .14228, + .00000, .28588, .38340, + .14822, .08205, 6.72243, .39443, .16177, + .01733, .30578, .40292, + .15162, .08405, 7.24702, .41633, .18412, + .04552, .32843, .42513, + .15513, .08609, 7.76705, .43937, .20770, + .07178, .35224, .44850, + .15832, .08794, 8.21496, .46041, .22930, + .09584, .37396, .46983 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .16151, .08980, 8.64476, .48172, .25126, + .12016, .39597, .49144, + .16415, .09132, 8.98111, .49935, .26940, + .13997, .41417, .50931, + .16733, .09315, 9.36451, .52060, .29126, + .16372, .43609, .53084, + .17013, .09475, 9.68670, .53933, .31065, + .18492, .45542, .54984, + .17268, .09621, 9.96826, .55644, .32841, + .20435, .47307, .56718, + .17588, .09802, 10.29620, .57774, .35045, + .22817, .49504, .58876, + .17888, .09971, 10.58567, .59755, .37105, + .25054, .51549, .60885, + .18167, .10128, 10.84328, .61599, .39033, + .27158, .53453, .62754 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18442, .10281, 11.07403, .63386, .40894, + .29163, .55299, .64567, + .18710, .10431, 11.28810, .65119, .42708, + .31129, .57088, .66324, + .18961, .10571, 11.47772, .66735, .44406, + .32970, .58757, .67962, + .19195, .10699, 11.63964, .68215, .45958, + .34647, .60287, .69462, + .19430, .10829, 11.79677, .69697, .47523, + .36347, .61819, .70965, + .19657, .10954, 11.93270, .71098, .48999, + .37939, .63270, .72386, + .19873, .11073, 12.05926, .72433, .50414, + .39477, .64650, .73739, + .20073, .11181, 12.16334, .73643, .51695, + .40859, .65904, .74967 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20276, .11292, 12.26563, .74861, .52991, + .42265, .67165, .76203, + .20473, .11398, 12.35531, .76025, .54230, + .43607, .68372, .77384, + .20661, .11500, 12.43506, .77117, .55397, + .44871, .69505, .78493, + .20838, .11595, 12.50666, .78143, .56496, + .46065, .70569, .79532, + .21014, .11689, 12.56815, .79139, .57560, + .47217, .71603, .80542 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .13563, .07464, 1.06249, .21477, .00000, + .00000, .12351, .22186, + .13804, .07614, 1.49349, .22333, .00000, + .00000, .13267, .23066, + .14173, .07842, 2.10878, .23727, .01432, + .00000, .14748, .24496, + .14455, .08016, 2.57305, .24821, .02755, + .00000, .15907, .25619, + .14756, .08199, 3.04817, .26048, .03936, + .00000, .17201, .26876, + .15017, .08357, 3.44651, .27156, .05019, + .00000, .18365, .28009, + .15270, .08509, 3.82628, .28257, .06142, + .00000, .19520, .29135, + .15541, .08671, 4.22439, .29466, .07394, + .00000, .20787, .30370 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15777, .08813, 4.55603, .30541, .08481, + .00000, .21912, .31469, + .16004, .08949, 4.86825, .31600, .09561, + .00000, .23018, .32551, + .16187, .09057, 5.11455, .32455, .10451, + .00000, .23912, .33424, + .16573, .09285, 5.62963, .34308, .12357, + .00000, .25844, .35315, + .16909, .09481, 6.01363, .35918, .14013, + .01270, .27520, .36956, + .17285, .09699, 6.42510, .37737, .15898, + .03678, .29416, .38811, + .17675, .09923, 6.82684, .39636, .17872, + .05904, .31393, .40748, + .18025, .10126, 7.16767, .41356, .19667, + .07927, .33185, .42501 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18377, .10326, 7.49006, .43086, .21481, + .09960, .34986, .44264, + .18666, .10490, 7.73872, .44508, .22970, + .11605, .36465, .45713, + .19012, .10686, 8.01792, .46209, .24751, + .13566, .38236, .47446, + .19317, .10856, 8.24925, .47699, .26320, + .15304, .39787, .48964, + .19594, .11012, 8.44874, .49050, .27752, + .16891, .41196, .50342, + .19942, .11204, 8.67662, .50720, .29516, + .18823, .42937, .52044, + .20264, .11382, 8.87430, .52264, .31154, + .20626, .44546, .53616, + .20563, .11547, 9.04752, .53691, .32678, + .22313, .46034, .55070 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20858, .11709, 9.19853, .55063, .34139, + .23910, .47465, .56468, + .21144, .11864, 9.33628, .56383, .35557, + .25470, .48845, .57815, + .21412, .12009, 9.45582, .57609, .36874, + .26921, .50126, .59063, + .21659, .12142, 9.55488, .58722, .38074, + .28237, .51290, .60198, + .21908, .12276, 9.64967, .59832, .39277, + .29565, .52453, .61330, + .22148, .12404, 9.72813, .60874, .40405, + .30802, .53544, .62392, + .22375, .12525, 9.80043, .61860, .41483, + .31993, .54580, .63398, + .22585, .12636, 9.85655, .62749, .42451, + .33056, .55512, .64304 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22798, .12748, 9.91098, .63638, .43429, + .34135, .56448, .65212, + .23004, .12856, 9.95593, .64483, .44358, + .35159, .57337, .66074, + .23199, .12958, 9.99431, .65271, .45229, + .36121, .58168, .66878, + .23382, .13054, 10.02757, .66007, .46046, + .37026, .58945, .67630, + .23564, .13149, 10.05289, .66716, .46833, + .37894, .59693, .68354 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .15051, .08386, 1.15878, .20546, .00000, + .00000, .11779, .21378, + .15317, .08555, 1.55959, .21319, .00000, + .00000, .12611, .22179, + .15726, .08810, 2.12559, .22575, .01177, + .00000, .13951, .23477, + .16039, .09000, 2.54388, .23558, .02391, + .00000, .14999, .24492, + .16372, .09202, 2.96698, .24657, .03464, + .00000, .16164, .25625, + .16659, .09376, 3.31766, .25642, .04444, + .00000, .17208, .26641, + .16937, .09543, 3.64870, .26619, .05457, + .00000, .18240, .27646, + .17236, .09721, 3.99255, .27686, .06580, + .00000, .19365, .28744 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17493, .09874, 4.27633, .28633, .07551, + .00000, .20362, .29717, + .17742, .10020, 4.54133, .29560, .08509, + .00000, .21337, .30669, + .17940, .10137, 4.74899, .30307, .09299, + .00000, .22124, .31436, + .18362, .10383, 5.17994, .31917, .10980, + .00000, .23814, .33088, + .18726, .10594, 5.49763, .33304, .12430, + .00944, .25272, .34511, + .19133, .10826, 5.83068, .34862, .14071, + .03064, .26908, .36108, + .19551, .11065, 6.15148, .36477, .15780, + .05010, .28605, .37764, + .19928, .11277, 6.41991, .37930, .17323, + .06768, .30131, .39253 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20304, .11488, 6.67047, .39383, .18873, + .08526, .31657, .40742, + .20612, .11660, 6.86110, .40569, .20139, + .09940, .32903, .41957, + .20980, .11864, 7.07206, .41979, .21644, + .11617, .34385, .43402, + .21304, .12042, 7.24437, .43207, .22966, + .13098, .35677, .44660, + .21598, .12202, 7.39098, .44316, .24164, + .14442, .36844, .45795, + .21963, .12401, 7.55514, .45676, .25633, + .16072, .38276, .47188, + .22302, .12584, 7.69486, .46923, .26989, + .17584, .39593, .48467, + .22616, .12754, 7.81521, .48071, .28246, + .18994, .40804, .49643 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22923, .12917, 7.91704, .49167, .29443, + .20320, .41963, .50766, + .23221, .13074, 8.00800, .50217, .30599, + .21610, .43074, .51841, + .23500, .13221, 8.08485, .51184, .31669, + .22806, .44098, .52832, + .23757, .13356, 8.14604, .52056, .32638, + .23885, .45024, .53727, + .24014, .13489, 8.20356, .52922, .33607, + .24970, .45945, .54615, + .24259, .13617, 8.24805, .53729, .34510, + .25976, .46803, .55442, + .24493, .13738, 8.28845, .54490, .35370, + .26942, .47614, .56223, + .24709, .13848, 8.31667, .55170, .36138, + .27801, .48340, .56920 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24925, .13959, 8.34340, .55849, .36911, + .28669, .49067, .57617, + .25135, .14065, 8.36268, .56489, .37643, + .29490, .49753, .58274, + .25333, .14165, 8.37752, .57082, .38326, + .30258, .50391, .58884, + .25519, .14260, 8.38916, .57635, .38964, + .30979, .50984, .59451, + .25703, .14352, 8.39447, .58162, .39577, + .31668, .51553, .59992 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17619, .09993, 1.31880, .19108, .00000, + .00000, .10863, .20172, + .17936, .10193, 1.66790, .19767, .00000, + .00000, .11581, .20867, + .18417, .10490, 2.15423, .20833, .00742, + .00000, .12737, .21987, + .18782, .10711, 2.50053, .21661, .01808, + .00000, .13631, .22856, + .19167, .10943, 2.84443, .22576, .02735, + .00000, .14617, .23814, + .19498, .11140, 3.12430, .23393, .03575, + .00000, .15494, .24666, + .19818, .11328, 3.38428, .24196, .04435, + .00000, .16355, .25503, + .20160, .11528, 3.65019, .25066, .05383, + .00000, .17287, .26410 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20454, .11699, 3.86639, .25831, .06193, + .00000, .18106, .27206, + .20737, .11862, 4.06549, .26576, .06989, + .00000, .18902, .27980, + .20962, .11991, 4.21983, .27172, .07641, + .00000, .19539, .28599, + .21437, .12260, 4.53599, .28444, .09017, + .00000, .20899, .29920, + .21844, .12488, 4.76491, .29527, .10191, + .00509, .22058, .31044, + .22294, .12739, 4.99441, .30730, .11506, + .02239, .23345, .32291, + .22757, .12993, 5.20994, .31961, .12859, + .03810, .24664, .33569, + .23171, .13218, 5.38563, .33056, .14069, + .05216, .25836, .34702 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23580, .13440, 5.54544, .34138, .15274, + .06608, .26997, .35822, + .23916, .13619, 5.66346, .35012, .16247, + .07719, .27936, .36728, + .24315, .13830, 5.79021, .36039, .17397, + .09026, .29042, .37792, + .24661, .14013, 5.89067, .36925, .18397, + .10171, .29996, .38709, + .24975, .14177, 5.97361, .37717, .19297, + .11204, .30850, .39529, + .25362, .14378, 6.06171, .38676, .20387, + .12442, .31887, .40521, + .25720, .14561, 6.13322, .39546, .21388, + .13585, .32830, .41422, + .26050, .14730, 6.19215, .40339, .22307, + .14641, .33691, .42243 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26370, .14891, 6.23730, .41083, .23174, + .15626, .34503, .43014, + .26678, .15046, 6.27502, .41789, .24005, + .16578, .35274, .43746, + .26965, .15189, 6.30398, .42433, .24767, + .17454, .35979, .44413, + .27228, .15318, 6.32309, .43007, .25452, + .18239, .36611, .45008, + .27491, .15448, 6.33949, .43572, .26132, + .19024, .37233, .45594, + .27740, .15568, 6.34713, .44089, .26760, + .19745, .37805, .46130, + .27976, .15683, 6.35319, .44574, .27356, + .20435, .38344, .46633, + .28192, .15787, 6.35196, .44999, .27881, + .21042, .38819, .47075 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28409, .15890, 6.34965, .45423, .28409, + .21655, .39291, .47514, + .28617, .15988, 6.34253, .45814, .28904, + .22230, .39731, .47920, + .28813, .16080, 6.33341, .46173, .29362, + .22765, .40137, .48295, + .28996, .16166, 6.32318, .46505, .29789, + .23264, .40512, .48640, + .29176, .16249, 6.30839, .46815, .30194, + .23738, .40866, .48962 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .20832, .12012, 1.49174, .17489, .00000, + .00000, .09805, .18865, + .21214, .12248, 1.77718, .18046, .00000, + .00000, .10425, .19470, + .21789, .12596, 2.17145, .18933, .00244, + .00000, .11410, .20428, + .22219, .12850, 2.43848, .19611, .01169, + .00000, .12162, .21156, + .22668, .13112, 2.69813, .20352, .01961, + .00000, .12982, .21949, + .23053, .13333, 2.90490, .21003, .02670, + .00000, .13699, .22642, + .23423, .13543, 3.09338, .21635, .03389, + .00000, .14397, .23317, + .23814, .13763, 3.28266, .22315, .04171, + .00000, .15146, .24038 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .24149, .13950, 3.43361, .22905, .04833, + .00000, .15795, .24664, + .24470, .14127, 3.57025, .23473, .05478, + .00000, .16421, .25267, + .24724, .14266, 3.67481, .23925, .06001, + .00000, .16920, .25744, + .25255, .14554, 3.88549, .24878, .07095, + .00000, .17968, .26751, + .25706, .14794, 4.03457, .25675, .08015, + .00134, .18849, .27592, + .26200, .15053, 4.17342, .26546, .09033, + .01503, .19814, .28511, + .26702, .15314, 4.29881, .27425, .10068, + .02733, .20789, .29436, + .27147, .15542, 4.39657, .28193, .10982, + .03821, .21643, .30245 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27585, .15764, 4.48145, .28942, .11881, + .04886, .22478, .31032, + .27940, .15942, 4.54093, .29537, .12600, + .05727, .23145, .31659, + .28357, .16148, 4.60058, .30225, .13441, + .06710, .23919, .32384, + .28719, .16325, 4.64468, .30810, .14162, + .07560, .24579, .32999, + .29043, .16483, 4.67850, .31327, .14807, + .08322, .25162, .33541, + .29440, .16673, 4.70932, .31940, .15581, + .09227, .25861, .34187, + .29804, .16845, 4.73030, .32489, .16281, + .10053, .26488, .34763, + .30137, .17001, 4.74435, .32981, .16919, + .10811, .27053, .35280 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30456, .17147, 4.74904, .33432, .17513, + .11510, .27577, .35755, + .30762, .17286, 4.74941, .33853, .18077, + .12181, .28068, .36198, + .31043, .17413, 4.74535, .34231, .18591, + .12794, .28512, .36595, + .31299, .17527, 4.73624, .34560, .19046, + .13336, .28902, .36940, + .31553, .17638, 4.72545, .34879, .19495, + .13876, .29282, .37277, + .31791, .17742, 4.70929, .35163, .19904, + .14367, .29624, .37575, + .32016, .17839, 4.69338, .35427, .20290, + .14835, .29945, .37854, + .32219, .17924, 4.67388, .35651, .20626, + .15242, .30221, .38089 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32422, .18010, 4.65377, .35871, .20961, + .15651, .30494, .38321, + .32614, .18090, 4.63103, .36068, .21271, + .16031, .30742, .38528, + .32794, .18163, 4.60806, .36246, .21557, + .16382, .30968, .38716, + .32962, .18232, 4.58545, .36405, .21820, + .16709, .31174, .38885, + .33124, .18297, 4.55991, .36549, .22066, + .17015, .31363, .39037 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25268, .14760, 1.64351, .15549, .00000, + .00000, .08557, .17432, + .25744, .15041, 1.84834, .15999, .00000, + .00000, .09086, .17945, + .26445, .15443, 2.13174, .16696, -.00294, + .00000, .09901, .18727, + .26957, .15727, 2.30895, .17212, .00486, + .00000, .10507, .19303, + .27486, .16018, 2.47660, .17763, .01144, + .00000, .11150, .19914, + .27935, .16258, 2.60622, .18237, .01720, + .00000, .11704, .20437, + .28358, .16483, 2.72136, .18690, .02295, + .00000, .12232, .20936, + .28804, .16716, 2.83401, .19169, .02910, + .00000, .12792, .21460 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29183, .16911, 2.92122, .19578, .03425, + .00000, .13270, .21905, + .29540, .17092, 2.99803, .19966, .03919, + .00000, .13723, .22327, + .29822, .17234, 3.05566, .20269, .04317, + .00000, .14081, .22659, + .30405, .17522, 3.16918, .20900, .05137, + .00000, .14822, .23344, + .30888, .17756, 3.24643, .21412, .05813, + -.00169, .15430, .23897, + .31411, .18003, 3.30645, .21962, .06551, + .00849, .16084, .24491, + .31934, .18247, 3.35564, .22501, .07288, + .01751, .16731, .25070, + .32391, .18456, 3.38933, .22961, .07929, + .02537, .17287, .25564 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .32836, .18654, 3.41414, .23398, .08550, + .03297, .17820, .26033, + .33191, .18811, 3.42766, .23736, .09039, + .03890, .18237, .26397, + .33602, .18988, 3.43610, .24119, .09604, + .04574, .18713, .26805, + .33954, .19136, 3.43819, .24435, .10083, + .05160, .19109, .27142, + .34266, .19265, 3.43606, .24708, .10505, + .05679, .19455, .27434, + .34641, .19417, 3.42603, .25020, .11004, + .06289, .19860, .27767, + .34978, .19552, 3.41204, .25289, .11449, + .06839, .20213, .28054, + .35284, .19670, 3.39590, .25524, .11850, + .07338, .20525, .28303 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .35570, .19778, 3.37434, .25728, .12217, + .07793, .20807, .28519, + .35840, .19877, 3.35117, .25913, .12561, + .08224, .21064, .28714, + .36086, .19965, 3.32703, .26070, .12869, + .08614, .21290, .28882, + .36304, .20041, 3.30138, .26199, .13139, + .08955, .21484, .29017, + .36518, .20115, 3.27505, .26321, .13402, + .09292, .21669, .29143, + .36715, .20178, 3.24618, .26419, .13637, + .09595, .21828, .29246, + .36899, .20237, 3.21885, .26507, .13856, + .09880, .21975, .29340, + .37061, .20286, 3.19061, .26573, .14043, + .10126, .22095, .29409 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37221, .20334, 3.16224, .26636, .14228, + .10370, .22210, .29472, + .37370, .20376, 3.13282, .26684, .14397, + .10596, .22310, .29522, + .37506, .20413, 3.10432, .26721, .14550, + .10801, .22397, .29560, + .37632, .20447, 3.07708, .26752, .14688, + .10991, .22474, .29590, + .37751, .20475, 3.04819, .26771, .14816, + .11166, .22539, .29608 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .28959, .17001, 1.68395, .14110, .00000, + .00000, .07698, .16424, + .29517, .17311, 1.83077, .14480, .00000, + .00000, .08161, .16867, + .30326, .17744, 2.03619, .15037, -.00568, + .00000, .08853, .17521, + .30900, .18043, 2.15473, .15439, .00106, + .00000, .09355, .17986, + .31489, .18341, 2.26428, .15856, .00672, + .00000, .09879, .18465, + .31980, .18584, 2.34658, .16209, .01159, + .00000, .10320, .18867, + .32442, .18809, 2.41796, .16541, .01638, + .00000, .10738, .19244, + .32920, .19037, 2.48602, .16885, .02146, + .00000, .11172, .19631 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .33320, .19225, 2.53687, .17175, .02566, + .00000, .11539, .19957, + .33697, .19399, 2.58026, .17446, .02965, + .00000, .11883, .20259, + .33991, .19533, 2.61209, .17657, .03284, + .00000, .12151, .20494, + .34591, .19801, 2.67298, .18086, .03934, + .00000, .12701, .20969, + .35078, .20010, 2.71226, .18426, .04464, + -.00292, .13143, .21342, + .35597, .20227, 2.73278, .18781, .05036, + .00510, .13610, .21729, + .36109, .20435, 2.74488, .19121, .05599, + .01214, .14064, .22100, + .36550, .20608, 2.74832, .19402, .06083, + .01821, .14447, .22405 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .36970, .20769, 2.74558, .19662, .06547, + .02403, .14808, .22683, + .37301, .20890, 2.73854, .19859, .06908, + .02853, .15085, .22894, + .37679, .21025, 2.72478, .20072, .07320, + .03367, .15395, .23121, + .37995, .21134, 2.70920, .20242, .07666, + .03804, .15649, .23301, + .38271, .21226, 2.69243, .20384, .07969, + .04188, .15866, .23450, + .38597, .21328, 2.66656, .20537, .08322, + .04635, .16112, .23610, + .38885, .21412, 2.63958, .20663, .08634, + .05034, .16324, .23738, + .39140, .21486, 2.61266, .20765, .08911, + .05394, .16505, .23842 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39373, .21547, 2.58238, .20844, .09161, + .05717, .16661, .23921, + .39589, .21599, 2.55177, .20910, .09393, + .06022, .16801, .23985, + .39780, .21642, 2.52168, .20960, .09599, + .06296, .16919, .24032, + .39945, .21675, 2.49172, .20992, .09775, + .06532, .17014, .24060, + .40106, .21705, 2.46162, .21017, .09947, + .06766, .17102, .24081, + .40245, .21725, 2.43033, .21027, .10096, + .06971, .17173, .24084, + .40375, .21743, 2.40097, .21035, .10236, + .07166, .17237, .24084, + .40483, .21753, 2.37183, .21028, .10352, + .07330, .17281, .24069 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40589, .21761, 2.34277, .21017, .10465, + .07493, .17323, .24051, + .40683, .21763, 2.31340, .20997, .10567, + .07642, .17354, .24022, + .40766, .21763, 2.28534, .20974, .10658, + .07776, .17378, .23989, + .40841, .21759, 2.25880, .20947, .10740, + .07900, .17397, .23954, + .40907, .21752, 2.23128, .20911, .10811, + .08011, .17404, .23909 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .35252, .20589, 1.58267, .12035, .00000, + .00000, .06650, .15183, + .35926, .20915, 1.65897, .12266, .00000, + .00000, .06995, .15482, + .36861, .21351, 1.77059, .12598, -.00732, + .00000, .07489, .15893, + .37504, .21633, 1.82427, .12826, -.00211, + .00000, .07834, .16171, + .38142, .21903, 1.87128, .13056, .00221, + .00000, .08183, .16444, + .38661, .22118, 1.90415, .13244, .00584, + .00000, .08468, .16661, + .39138, .22308, 1.93079, .13414, .00937, + .00000, .08735, .16859, + .39624, .22494, 1.95428, .13586, .01304, + .00000, .09005, .17053 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .40018, .22642, 1.96965, .13727, .01604, + .00000, .09229, .17209, + .40382, .22773, 1.98100, .13856, .01886, + .00000, .09434, .17348, + .40663, .22871, 1.98843, .13952, .02108, + .00000, .09592, .17454, + .41217, .23055, 2.00075, .14142, .02555, + .00000, .09909, .17655, + .41645, .23185, 2.00534, .14285, .02914, + -.00353, .10155, .17799, + .42086, .23307, 1.99257, .14423, .03294, + .00193, .10408, .17935, + .42503, .23413, 1.97447, .14545, .03661, + .00665, .10644, .18051, + .42845, .23490, 1.95422, .14636, .03971, + .01067, .10836, .18130 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .43159, .23551, 1.93077, .14710, .04264, + .01447, .11008, .18193, + .43392, .23587, 1.90894, .14758, .04489, + .01738, .11135, .18226, + .43646, .23617, 1.88003, .14800, .04740, + .02065, .11271, .18249, + .43848, .23632, 1.85310, .14826, .04948, + .02341, .11376, .18256, + .44015, .23636, 1.82748, .14840, .05127, + .02579, .11460, .18250, + .44195, .23628, 1.79290, .14840, .05331, + .02853, .11548, .18223, + .44341, .23609, 1.75956, .14828, .05509, + .03095, .11616, .18185, + .44461, .23583, 1.72801, .14808, .05663, + .03309, .11669, .18139 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .44553, .23543, 1.69513, .14774, .05798, + .03499, .11705, .18078, + .44628, .23499, 1.66296, .14733, .05922, + .03676, .11732, .18009, + .44685, .23449, 1.63240, .14689, .06029, + .03831, .11749, .17936, + .44721, .23396, 1.60310, .14637, .06118, + .03965, .11753, .17857, + .44749, .23339, 1.57411, .14583, .06202, + .04094, .11755, .17776, + .44758, .23275, 1.54503, .14519, .06274, + .04207, .11745, .17686, + .44762, .23213, 1.51804, .14459, .06339, + .04311, .11734, .17598, + .44752, .23146, 1.49204, .14393, .06391, + .04399, .11715, .17507 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .44737, .23077, 1.46636, .14325, .06440, + .04483, .11694, .17413, + .44709, .23006, 1.44092, .14254, .06482, + .04559, .11666, .17316, + .44676, .22935, 1.41690, .14184, .06519, + .04627, .11637, .17220, + .44641, .22866, 1.39443, .14115, .06551, + .04688, .11606, .17126, + .44595, .22790, 1.37155, .14040, .06575, + .04742, .11570, .17027 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .40539, .23345, 1.39240, .10478, .00000, + .00000, .06003, .14279, + .41275, .23644, 1.43540, .10587, .00000, + .00000, .06237, .14431, + .42254, .24025, 1.50153, .10748, -.00677, + .00000, .06565, .14625, + .42901, .24254, 1.52726, .10853, -.00272, + .00000, .06791, .14745, + .43524, .24462, 1.54785, .10956, .00063, + .00000, .07015, .14854, + .44016, .24615, 1.56030, .11037, .00342, + .00000, .07197, .14936, + .44457, .24744, 1.56882, .11111, .00610, + .00000, .07361, .15004, + .44892, .24861, 1.57452, .11182, .00887, + .00000, .07528, .15067 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .45236, .24945, 1.57601, .11236, .01112, + .00000, .07663, .15110, + .45544, .25013, 1.57502, .11284, .01323, + .00000, .07787, .15143, + .45774, .25061, 1.57323, .11319, .01487, + .00000, .07880, .15166, + .46213, .25134, 1.56712, .11383, .01816, + .00000, .08063, .15198, + .46529, .25163, 1.55903, .11421, .02076, + -.00341, .08201, .15204, + .46831, .25176, 1.53568, .11451, .02349, + .00058, .08335, .15192, + .47094, .25162, 1.50854, .11467, .02610, + .00401, .08455, .15161, + .47290, .25129, 1.48166, .11467, .02827, + .00689, .08546, .15119 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .47452, .25079, 1.45289, .11457, .03029, + .00959, .08624, .15061, + .47555, .25025, 1.42776, .11439, .03183, + .01164, .08677, .15002, + .47647, .24945, 1.39603, .11406, .03352, + .01393, .08726, .14917, + .47701, .24864, 1.36744, .11370, .03490, + .01583, .08759, .14834, + .47732, .24781, 1.34094, .11330, .03607, + .01746, .08782, .14751, + .47736, .24660, 1.30639, .11268, .03738, + .01932, .08796, .14633, + .47717, .24536, 1.27385, .11202, .03850, + .02093, .08800, .14515, + .47679, .24414, 1.24361, .11134, .03946, + .02235, .08795, .14401 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .47614, .24282, 1.21284, .11059, .04026, + .02359, .08779, .14275, + .47534, .24146, 1.18318, .10980, .04099, + .02472, .08757, .14147, + .47445, .24013, 1.15537, .10903, .04160, + .02572, .08732, .14023, + .47343, .23880, 1.12916, .10823, .04210, + .02655, .08700, .13900, + .47233, .23745, 1.10344, .10742, .04256, + .02735, .08665, .13776, + .47106, .23605, 1.07803, .10657, .04292, + .02803, .08624, .13647, + .46982, .23474, 1.05456, .10577, .04325, + .02867, .08585, .13525, + .46849, .23341, 1.03230, .10495, .04350, + .02918, .08542, .13405 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .46712, .23207, 1.01042, .10414, .04371, + .02967, .08497, .13285, + .46565, .23071, .98897, .10329, .04389, + .03010, .08449, .13163, + .46419, .22941, .96888, .10248, .04402, + .03048, .08401, .13045, + .46277, .22816, .95019, .10170, .04412, + .03082, .08355, .12934, + .46123, .22685, .93134, .10089, .04419, + .03110, .08304, .12817 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45140, .25514, 1.20021, .09160, .00000, + .00000, .05482, .13417, + .45880, .25764, 1.22906, .09181, .00000, + .00000, .05621, .13430, + .46844, .26045, 1.27445, .09210, -.00588, + .00000, .05816, .13443, + .47441, .26201, 1.28877, .09232, -.00267, + .00000, .05951, .13436, + .47997, .26320, 1.29841, .09256, -.00004, + .00000, .06084, .13421, + .48420, .26395, 1.30225, .09272, .00216, + .00000, .06194, .13400, + .48784, .26447, 1.30312, .09285, .00426, + .00000, .06293, .13374, + .49128, .26481, 1.30133, .09296, .00644, + .00000, .06390, .13343 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .49387, .26492, 1.29692, .09302, .00820, + .00000, .06468, .13308, + .49607, .26487, 1.29074, .09305, .00983, + .00000, .06539, .13269, + .49765, .26477, 1.28507, .09307, .01110, + .00000, .06592, .13236, + .50040, .26426, 1.27112, .09302, .01364, + .00000, .06693, .13155, + .50201, .26350, 1.25779, .09287, .01562, + -.00322, .06763, .13073, + .50329, .26240, 1.23079, .09261, .01768, + -.00016, .06828, .12970, + .50405, .26103, 1.20076, .09223, .01963, + .00246, .06882, .12851, + .50429, .25960, 1.17208, .09178, .02124, + .00465, .06917, .12733 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .50413, .25800, 1.14224, .09127, .02272, + .00668, .06941, .12606, + .50367, .25657, 1.11675, .09078, .02382, + .00820, .06950, .12495, + .50277, .25470, 1.08524, .09010, .02502, + .00989, .06953, .12353, + .50171, .25295, 1.05730, .08946, .02600, + .01129, .06947, .12221, + .50054, .25129, 1.03176, .08884, .02681, + .01248, .06936, .12098, + .49872, .24907, .99900, .08795, .02769, + .01380, .06912, .11934, + .49677, .24690, .96857, .08708, .02843, + .01495, .06882, .11776, + .49480, .24481, .94060, .08624, .02905, + .01595, .06849, .11626 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .49253, .24263, .91257, .08532, .02955, + .01680, .06807, .11471, + .49019, .24047, .88578, .08442, .03000, + .01758, .06762, .11319, + .48783, .23840, .86091, .08353, .03036, + .01824, .06718, .11172, + .48545, .23640, .83771, .08267, .03064, + .01880, .06670, .11031, + .48302, .23438, .81508, .08180, .03088, + .01933, .06620, .10891, + .48042, .23235, .79298, .08090, .03106, + .01976, .06567, .10750, + .47796, .23044, .77268, .08005, .03123, + .02017, .06516, .10618, + .47548, .22858, .75357, .07922, .03132, + .02048, .06463, .10489 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .47297, .22671, .73488, .07840, .03140, + .02079, .06410, .10361, + .47040, .22483, .71672, .07756, .03145, + .02104, .06355, .10232, + .46789, .22304, .69980, .07676, .03148, + .02127, .06303, .10111, + .46549, .22135, .68412, .07601, .03148, + .02145, .06252, .09996, + .46297, .21959, .66846, .07522, .03146, + .02162, .06198, .09880 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .50070, .27520, 1.00939, .07684, .00000, + .00000, .04832, .12184, + .50748, .27661, 1.03185, .07633, .00000, + .00000, .04883, .12073, + .51567, .27788, 1.06598, .07579, -.00514, + .00000, .04970, .11910, + .52037, .27820, 1.07421, .07548, -.00263, + .00000, .05032, .11794, + .52444, .27810, 1.07738, .07517, -.00058, + .00000, .05100, .11677, + .52724, .27775, 1.07592, .07491, .00113, + .00000, .05150, .11574, + .52942, .27718, 1.07189, .07469, .00278, + .00000, .05197, .11472, + .53128, .27637, 1.06515, .07445, .00447, + .00000, .05245, .11362 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .53241, .27550, 1.05676, .07424, .00582, + .00000, .05280, .11267, + .53319, .27451, 1.04699, .07399, .00708, + .00000, .05312, .11175, + .53365, .27365, 1.03862, .07378, .00806, + .00000, .05335, .11102, + .53392, .27159, 1.01921, .07333, .00999, + .00000, .05374, .10940, + .53336, .26949, 1.00210, .07286, .01148, + -.00301, .05398, .10797, + .53217, .26693, .97281, .07229, .01301, + -.00068, .05415, .10632, + .53035, .26410, .94120, .07160, .01444, + .00131, .05420, .10455, + .52823, .26141, .91180, .07093, .01559, + .00293, .05414, .10289 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .52570, .25860, .88178, .07022, .01664, + .00443, .05401, .10119, + .52331, .25617, .85666, .06958, .01741, + .00554, .05385, .09973, + .52011, .25311, .82611, .06875, .01823, + .00676, .05357, .09797, + .51704, .25035, .79950, .06797, .01887, + .00775, .05325, .09640, + .51406, .24779, .77546, .06725, .01940, + .00858, .05293, .09494, + .50997, .24446, .74512, .06626, .01996, + .00951, .05245, .09310, + .50593, .24130, .71735, .06532, .02042, + .01030, .05194, .09134, + .50203, .23834, .69210, .06443, .02078, + .01097, .05146, .08970 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .49787, .23530, .66716, .06349, .02106, + .01153, .05090, .08805, + .49374, .23233, .64358, .06257, .02130, + .01204, .05035, .08644, + .48973, .22952, .62192, .06169, .02148, + .01247, .04979, .08492, + .48581, .22685, .60193, .06083, .02160, + .01281, .04924, .08350, + .48187, .22419, .58258, .05999, .02169, + .01313, .04867, .08209, + .47784, .22154, .56388, .05913, .02175, + .01340, .04810, .08068, + .47404, .21906, .54679, .05833, .02179, + .01363, .04756, .07938, + .47031, .21668, .53092, .05755, .02179, + .01381, .04702, .07813 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .46655, .21431, .51550, .05678, .02178, + .01398, .04648, .07689, + .46279, .21195, .50060, .05601, .02175, + .01412, .04593, .07569, + .45919, .20971, .48681, .05528, .02170, + .01422, .04539, .07455, + .45577, .20760, .47411, .05458, .02165, + .01432, .04489, .07347, + .45223, .20545, .46150, .05387, .02157, + .01439, .04438, .07238 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .54234, .28892, .88313, .06358, .00000, + .00000, .04143, .10785, + .54768, .28914, .90163, .06283, .00000, + .00000, .04152, .10593, + .55358, .28846, .92859, .06193, -.00501, + .00000, .04183, .10336, + .55643, .28740, .93185, .06142, -.00292, + .00000, .04209, .10160, + .55845, .28591, .92967, .06090, -.00120, + .00000, .04235, .09984, + .55941, .28434, .92356, .06053, .00023, + .00000, .04261, .09834, + .55982, .28265, .91530, .06016, .00159, + .00000, .04282, .09695, + .55973, .28067, .90429, .05978, .00298, + .00000, .04303, .09549 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .55922, .27877, .89242, .05944, .00408, + .00000, .04317, .09427, + .55835, .27685, .87957, .05911, .00511, + .00000, .04327, .09307, + .55746, .27529, .86895, .05884, .00589, + .00000, .04333, .09212, + .55497, .27170, .84495, .05825, .00744, + .00000, .04342, .09014, + .55204, .26839, .82489, .05768, .00861, + -.00286, .04339, .08841, + .54820, .26456, .79371, .05700, .00980, + -.00101, .04330, .08646, + .54372, .26041, .76087, .05623, .01089, + .00055, .04311, .08447, + .53925, .25656, .73101, .05547, .01176, + .00182, .04286, .08265 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .53441, .25265, .70116, .05468, .01252, + .00296, .04254, .08081, + .53012, .24936, .67657, .05401, .01307, + .00381, .04222, .07927, + .52469, .24530, .64724, .05314, .01364, + .00472, .04177, .07744, + .51972, .24171, .62196, .05234, .01408, + .00545, .04136, .07583, + .51503, .23841, .59943, .05161, .01443, + .00607, .04095, .07437, + .50882, .23421, .57146, .05065, .01479, + .00673, .04038, .07248, + .50286, .23028, .54616, .04974, .01507, + .00728, .03980, .07074, + .49722, .22662, .52343, .04887, .01527, + .00775, .03925, .06914 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .49138, .22295, .50129, .04800, .01543, + .00814, .03866, .06754, + .48565, .21938, .48055, .04714, .01554, + .00848, .03806, .06602, + .48021, .21600, .46169, .04631, .01561, + .00875, .03749, .06460, + .47497, .21284, .44447, .04552, .01565, + .00898, .03694, .06326, + .46972, .20973, .42792, .04475, .01567, + .00918, .03639, .06194, + .46447, .20665, .41210, .04397, .01565, + .00934, .03583, .06066, + .45953, .20377, .39774, .04325, .01563, + .00948, .03529, .05947, + .45478, .20103, .38453, .04255, .01558, + .00958, .03478, .05836 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45005, .19831, .37173, .04185, .01553, + .00967, .03427, .05724, + .44532, .19564, .35947, .04117, .01546, + .00974, .03376, .05615, + .44080, .19314, .34818, .04054, .01538, + .00979, .03329, .05512, + .43654, .19079, .33785, .03993, .01530, + .00983, .03283, .05417, + .43219, .18840, .32769, .03933, .01522, + .00986, .03237, .05321 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .57661, .29734, .80943, .05184, .00000, + .00000, .03440, .09287, + .58006, .29605, .82224, .05109, .00000, + .00000, .03433, .09063, + .58282, .29347, .84059, .05030, -.00530, + .00000, .03440, .08758, + .58335, .29102, .83729, .04979, -.00343, + .00000, .03452, .08558, + .58288, .28810, .82839, .04934, -.00189, + .00000, .03465, .08358, + .58172, .28538, .81689, .04895, -.00062, + .00000, .03477, .08192, + .58008, .28260, .80377, .04860, .00057, + .00000, .03486, .08040, + .57786, .27952, .78804, .04825, .00177, + .00000, .03492, .07883 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .57546, .27671, .77255, .04789, .00273, + .00000, .03495, .07748, + .57285, .27390, .75657, .04756, .00360, + .00000, .03496, .07620, + .57063, .27165, .74369, .04727, .00425, + .00000, .03495, .07521, + .56527, .26672, .71538, .04663, .00553, + .00000, .03488, .07312, + .55992, .26233, .69262, .04606, .00649, + -.00272, .03474, .07134, + .55352, .25732, .65978, .04534, .00744, + -.00121, .03450, .06940, + .54643, .25207, .62605, .04457, .00830, + .00005, .03418, .06737, + .53966, .24731, .59605, .04386, .00895, + .00106, .03382, .06555 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .53262, .24251, .56657, .04307, .00953, + .00196, .03341, .06377, + .52659, .23851, .54277, .04240, .00993, + .00262, .03305, .06229, + .51908, .23367, .51479, .04157, .01034, + .00332, .03255, .06054, + .51235, .22943, .49105, .04082, .01064, + .00388, .03209, .05901, + .50614, .22557, .47014, .04010, .01088, + .00433, .03164, .05763, + .49808, .22071, .44454, .03920, .01111, + .00483, .03105, .05589, + .49044, .21619, .42171, .03835, .01127, + .00523, .03048, .05429, + .48331, .21203, .40144, .03757, .01138, + .00555, .02994, .05280 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .47608, .20787, .38189, .03675, .01146, + .00583, .02937, .05139, + .46903, .20388, .36380, .03595, .01150, + .00606, .02880, .05002, + .46238, .20016, .34752, .03521, .01151, + .00625, .02827, .04874, + .45606, .19667, .33281, .03452, .01149, + .00639, .02775, .04755, + .44980, .19323, .31873, .03383, .01147, + .00652, .02725, .04639, + .44358, .18988, .30544, .03314, .01142, + .00662, .02673, .04528, + .43775, .18677, .29342, .03250, .01137, + .00670, .02624, .04425, + .43218, .18382, .28245, .03189, .01131, + .00676, .02579, .04328 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42664, .18092, .27188, .03129, .01124, + .00681, .02534, .04233, + .42118, .17806, .26186, .03071, .01114, + .00683, .02488, .04140, + .41601, .17538, .25270, .03015, .01107, + .00686, .02446, .04053, + .41116, .17288, .24434, .02963, .01098, + .00687, .02406, .03971, + .40622, .17034, .23617, .02912, .01089, + .00687, .02367, .03890 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .60385, .30101, .76963, .04168, .00000, + .00000, .02750, .07769, + .60475, .29840, .77386, .04117, .00000, + .00000, .02750, .07544, + .60399, .29367, .78087, .04057, -.00573, + .00000, .02766, .07248, + .60189, .28987, .76920, .04021, -.00397, + .00000, .02781, .07047, + .59871, .28560, .75244, .03987, -.00253, + .00000, .02791, .06851, + .59529, .28172, .73488, .03955, -.00136, + .00000, .02800, .06693, + .59149, .27793, .71660, .03925, -.00027, + .00000, .02806, .06544, + .58701, .27383, .69607, .03892, .00080, + .00000, .02810, .06390 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .58274, .27017, .67700, .03861, .00164, + .00000, .02808, .06262, + .57837, .26659, .65809, .03827, .00240, + .00000, .02806, .06138, + .57478, .26375, .64315, .03800, .00296, + .00000, .02803, .06041, + .56656, .25763, .61124, .03741, .00405, + .00000, .02785, .05845, + .55891, .25230, .58621, .03685, .00485, + -.00255, .02765, .05677, + .55002, .24637, .55224, .03619, .00562, + -.00129, .02738, .05489, + .54049, .24022, .51820, .03545, .00629, + -.00027, .02702, .05302, + .53165, .23468, .48864, .03472, .00681, + .00055, .02663, .05137 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .52260, .22916, .46013, .03398, .00725, + .00127, .02622, .04972, + .51501, .22462, .43747, .03335, .00755, + .00179, .02583, .04839, + .50569, .21923, .41119, .03258, .00785, + .00234, .02535, .04677, + .49745, .21452, .38924, .03188, .00805, + .00276, .02488, .04539, + .48991, .21025, .37013, .03124, .00820, + .00310, .02445, .04417, + .48026, .20492, .34708, .03041, .00835, + .00347, .02388, .04263, + .47126, .20001, .32676, .02963, .00844, + .00376, .02334, .04124, + .46294, .19551, .30889, .02890, .00849, + .00399, .02284, .03998 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .45455, .19106, .29194, .02817, .00851, + .00419, .02231, .03873, + .44643, .18681, .27636, .02748, .00851, + .00434, .02180, .03755, + .43880, .18289, .26246, .02683, .00849, + .00447, .02131, .03647, + .43165, .17921, .25002, .02622, .00846, + .00456, .02085, .03546, + .42462, .17559, .23822, .02560, .00842, + .00465, .02041, .03448, + .41766, .17210, .22716, .02501, .00836, + .00471, .01997, .03355, + .41117, .16885, .21723, .02446, .00830, + .00476, .01956, .03266, + .40501, .16583, .20825, .02396, .00822, + .00478, .01916, .03184 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .39888, .16284, .19965, .02347, .00814, + .00481, .01877, .03104, + .39291, .15992, .19153, .02297, .00806, + .00482, .01838, .03026, + .38728, .15716, .18415, .02249, .00798, + .00482, .01802, .02955, + .38200, .15459, .17746, .02206, .00790, + .00482, .01767, .02890, + .37668, .15203, .17096, .02160, .00782, + .00482, .01734, .02825 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .62416, .30054, .74564, .03311, .00000, + .00000, .02123, .06315, + .62240, .29636, .73945, .03279, .00000, + .00000, .02142, .06118, + .61759, .28974, .73322, .03247, -.00609, + .00000, .02175, .05855, + .61266, .28468, .71245, .03233, -.00441, + .00000, .02197, .05675, + .60664, .27914, .68758, .03208, -.00302, + .00000, .02216, .05504, + .60085, .27427, .66419, .03187, -.00192, + .00000, .02227, .05359, + .59489, .26954, .64114, .03161, -.00092, + .00000, .02235, .05225, + .58824, .26448, .61630, .03130, .00004, + .00000, .02239, .05089 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .58211, .26012, .59425, .03102, .00079, + .00000, .02238, .04972, + .57597, .25590, .57294, .03075, .00146, + .00000, .02234, .04860, + .57102, .25257, .55641, .03053, .00196, + .00000, .02228, .04772, + .56009, .24551, .52196, .02997, .00288, + .00000, .02209, .04595, + .55031, .23943, .49553, .02944, .00356, + -.00234, .02189, .04445, + .53916, .23272, .46147, .02879, .00419, + -.00130, .02159, .04282, + .52747, .22586, .42808, .02809, .00473, + -.00045, .02121, .04118, + .51679, .21977, .39960, .02744, .00514, + .00021, .02085, .03968 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .50595, .21379, .37264, .02678, .00547, + .00079, .02044, .03821, + .49700, .20890, .35154, .02620, .00569, + .00120, .02006, .03706, + .48618, .20306, .32745, .02548, .00590, + .00162, .01959, .03569, + .47668, .19802, .30756, .02485, .00606, + .00195, .01918, .03451, + .46806, .19353, .29047, .02426, .00615, + .00221, .01877, .03345, + .45717, .18791, .27009, .02351, .00623, + .00248, .01826, .03215, + .44705, .18279, .25235, .02284, .00628, + .00269, .01778, .03097, + .43770, .17814, .23693, .02223, .00631, + .00286, .01732, .02987 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .42846, .17354, .22247, .02157, .00630, + .00300, .01686, .02884, + .41956, .16916, .20932, .02096, .00628, + .00311, .01641, .02788, + .41127, .16512, .19765, .02040, .00625, + .00320, .01599, .02699, + .40351, .16140, .18730, .01987, .00620, + .00326, .01560, .02615, + .39587, .15775, .17754, .01937, .00614, + .00331, .01523, .02534, + .38841, .15421, .16850, .01886, .00609, + .00334, .01485, .02457, + .38150, .15094, .16043, .01840, .00602, + .00337, .01450, .02387, + .37497, .14790, .15319, .01795, .00596, + .00339, .01416, .02321 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .36852, .14492, .14626, .01752, .00589, + .00340, .01384, .02257, + .36221, .14200, .13980, .01710, .00581, + .00340, .01351, .02194, + .35627, .13929, .13395, .01672, .00573, + .00339, .01321, .02138, + .35073, .13676, .12867, .01636, .00567, + .00339, .01295, .02084, + .34516, .13425, .12356, .01601, .00560, + .00337, .01266, .02032 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .63794, .29616, .72351, .02571, .00000, + .00000, .01596, .05007, + .63302, .29075, .70633, .02580, .00000, + .00000, .01629, .04840, + .62390, .28240, .68664, .02585, -.00626, + .00000, .01678, .04622, + .61615, .27615, .65760, .02579, -.00465, + .00000, .01708, .04474, + .60724, .26951, .62553, .02575, -.00332, + .00000, .01731, .04324, + .59912, .26375, .59720, .02557, -.00229, + .00000, .01747, .04205, + .59104, .25828, .57031, .02540, -.00137, + .00000, .01755, .04092, + .58219, .25255, .54232, .02518, -.00049, + .00000, .01757, .03972 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .57428, .24756, .51822, .02493, .00017, + .00000, .01758, .03873, + .56653, .24281, .49546, .02470, .00076, + .00000, .01753, .03777, + .56036, .23911, .47806, .02449, .00119, + .00000, .01747, .03701, + .54702, .23123, .44241, .02397, .00199, + .00000, .01733, .03550, + .53525, .22464, .41570, .02351, .00255, + -.00209, .01710, .03419, + .52214, .21738, .38253, .02292, .00308, + -.00123, .01681, .03281, + .50852, .21007, .35073, .02229, .00352, + -.00053, .01645, .03139, + .49624, .20365, .32409, .02171, .00383, + .00000, .01612, .03013 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48402, .19732, .29924, .02107, .00409, + .00046, .01576, .02891, + .47398, .19215, .28008, .02054, .00426, + .00078, .01541, .02798, + .46191, .18611, .25855, .01991, .00441, + .00111, .01499, .02680, + .45141, .18093, .24099, .01935, .00451, + .00136, .01460, .02580, + .44199, .17631, .22601, .01882, .00458, + .00156, .01426, .02494, + .43013, .17058, .20842, .01818, .00463, + .00176, .01380, .02387, + .41922, .16535, .19327, .01758, .00465, + .00192, .01337, .02292, + .40925, .16063, .18022, .01702, .00465, + .00204, .01298, .02207 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .39938, .15602, .16815, .01648, .00464, + .00214, .01259, .02119, + .38996, .15165, .15722, .01597, .00460, + .00222, .01223, .02039, + .38120, .14766, .14764, .01549, .00457, + .00228, .01187, .01967, + .37307, .14396, .13922, .01505, .00452, + .00232, .01155, .01901, + .36511, .14036, .13134, .01461, .00447, + .00235, .01122, .01837, + .35735, .13690, .12409, .01420, .00441, + .00237, .01091, .01775, + .35017, .13370, .11765, .01382, .00435, + .00238, .01063, .01718, + .34344, .13071, .11189, .01345, .00430, + .00239, .01036, .01667 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .33683, .12779, .10642, .01310, .00423, + .00239, .01009, .01618, + .33037, .12496, .10135, .01275, .00416, + .00238, .00984, .01569, + .32431, .12234, .09679, .01244, .00410, + .00238, .00960, .01524, + .31868, .11990, .09267, .01215, .00405, + .00237, .00937, .01483, + .31304, .11746, .08875, .01184, .00399, + .00236, .00915, .01443 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .64403, .28958, .69498, .02071, .00000, + .00000, .01093, .03801, + .63617, .28281, .66748, .02086, .00000, + .00000, .01157, .03685, + .62300, .27276, .63556, .02096, -.00619, + .00000, .01229, .03528, + .61253, .26544, .59951, .02097, -.00466, + .00000, .01268, .03423, + .60097, .25782, .56190, .02090, -.00340, + .00000, .01302, .03310, + .59061, .25135, .53018, .02082, -.00245, + .00000, .01321, .03210, + .58052, .24524, .50082, .02066, -.00162, + .00000, .01335, .03120, + .56970, .23887, .47096, .02045, -.00083, + .00000, .01344, .03026 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .56021, .23345, .44593, .02024, -.00024, + .00000, .01346, .02943, + .55108, .22823, .42275, .01996, .00027, + .00000, .01344, .02868, + .54389, .22415, .40522, .01972, .00064, + .00000, .01342, .02811, + .52834, .21578, .36999, .01926, .00132, + .00000, .01326, .02684, + .51496, .20877, .34392, .01882, .00179, + -.00182, .01310, .02578, + .50015, .20118, .31272, .01830, .00222, + -.00111, .01286, .02462, + .48502, .19354, .28334, .01769, .00257, + -.00054, .01255, .02349, + .47154, .18684, .25914, .01713, .00282, + -.00012, .01225, .02248 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .45818, .18035, .23692, .01658, .00302, + .00024, .01191, .02148, + .44726, .17516, .22002, .01613, .00314, + .00050, .01163, .02067, + .43431, .16901, .20127, .01554, .00326, + .00076, .01128, .01976, + .42314, .16376, .18613, .01505, .00333, + .00095, .01097, .01896, + .41308, .15910, .17338, .01461, .00337, + .00110, .01069, .01823, + .40060, .15339, .15854, .01403, .00340, + .00125, .01030, .01741, + .38914, .14823, .14594, .01353, .00340, + .00136, .00994, .01664, + .37867, .14359, .13518, .01309, .00340, + .00146, .00962, .01593 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .36847, .13905, .12529, .01263, .00338, + .00152, .00929, .01528, + .35875, .13477, .11643, .01219, .00334, + .00158, .00899, .01465, + .34978, .13086, .10874, .01176, .00330, + .00161, .00872, .01409, + .34147, .12726, .10203, .01138, .00327, + .00164, .00845, .01358, + .33336, .12377, .09577, .01102, .00322, + .00166, .00819, .01309, + .32552, .12043, .09010, .01068, .00317, + .00167, .00793, .01262, + .31828, .11736, .08507, .01036, .00312, + .00168, .00770, .01220, + .31152, .11452, .08062, .01006, .00307, + .00168, .00749, .01179 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30487, .11173, .07640, .00977, .00302, + .00167, .00729, .01140, + .29842, .10903, .07251, .00949, .00297, + .00167, .00707, .01104, + .29240, .10652, .06901, .00923, .00291, + .00166, .00687, .01071, + .28682, .10419, .06589, .00898, .00287, + .00166, .00670, .01041, + .28126, .10190, .06292, .00873, .00282, + .00164, .00654, .01009 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .64467, .27927, .65437, .01578, .00000, + .00000, .00748, .02847, + .63357, .27155, .61868, .01617, .00000, + .00000, .00817, .02763, + .61627, .26013, .57700, .01647, -.00590, + .00000, .00901, .02655, + .60303, .25201, .53632, .01661, -.00449, + .00000, .00948, .02574, + .58886, .24366, .49545, .01661, -.00333, + .00000, .00983, .02489, + .57645, .23663, .46197, .01654, -.00246, + .00000, .01007, .02417, + .56462, .23001, .43170, .01641, -.00172, + .00000, .01020, .02348, + .55210, .22316, .40152, .01620, -.00103, + .00000, .01028, .02277 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .54117, .21740, .37670, .01604, -.00051, + .00000, .01033, .02210, + .53066, .21197, .35412, .01585, -.00008, + .00000, .01031, .02146, + .52244, .20777, .33721, .01568, .00025, + .00000, .01027, .02098, + .50509, .19904, .30377, .01523, .00081, + .00000, .01012, .02001, + .49037, .19180, .27934, .01481, .00120, + -.00155, .01001, .01916, + .47431, .18400, .25097, .01429, .00155, + -.00098, .00978, .01827, + .45791, .17629, .22473, .01379, .00183, + -.00053, .00952, .01732, + .44341, .16961, .20341, .01334, .00203, + -.00018, .00925, .01650 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .42924, .16308, .18411, .01285, .00218, + .00010, .00897, .01574, + .41779, .15784, .16961, .01243, .00228, + .00030, .00873, .01510, + .40421, .15178, .15365, .01195, .00236, + .00050, .00844, .01437, + .39253, .14664, .14100, .01153, .00240, + .00064, .00817, .01375, + .38212, .14208, .13043, .01116, .00244, + .00076, .00791, .01322, + .36926, .13650, .11827, .01070, .00245, + .00087, .00761, .01254, + .35759, .13147, .10805, .01025, .00245, + .00095, .00732, .01194, + .34702, .12695, .09940, .00983, .00244, + .00102, .00706, .01141 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33661, .12259, .09155, .00947, .00241, + .00106, .00679, .01090, + .32680, .11851, .08458, .00910, .00238, + .00110, .00654, .01043, + .31782, .11477, .07854, .00876, .00236, + .00113, .00632, .01002, + .30954, .11134, .07334, .00845, .00232, + .00114, .00611, .00962, + .30149, .10803, .06855, .00813, .00228, + .00116, .00590, .00924, + .29369, .10488, .06419, .00786, .00224, + .00116, .00570, .00889, + .28651, .10199, .06034, .00762, .00220, + .00117, .00553, .00857, + .27983, .09930, .05698, .00739, .00217, + .00117, .00536, .00826 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27328, .09669, .05381, .00718, .00212, + .00116, .00520, .00796, + .26697, .09416, .05090, .00696, .00208, + .00115, .00504, .00769, + .26110, .09184, .04830, .00675, .00204, + .00114, .00489, .00743, + .25566, .08969, .04599, .00656, .00200, + .00114, .00476, .00721, + .25022, .08756, .04379, .00637, .00196, + .00113, .00462, .00699 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .63873, .26707, .60151, .01227, .00000, + .00000, .00464, .02039, + .62483, .25830, .56006, .01266, .00000, + .00000, .00544, .02000, + .60347, .24591, .51186, .01310, -.00543, + .00000, .00634, .01931, + .58784, .23714, .46888, .01319, -.00415, + .00000, .00686, .01882, + .57135, .22817, .42702, .01323, -.00310, + .00000, .00721, .01823, + .55721, .22070, .39357, .01313, -.00233, + .00000, .00743, .01775, + .54377, .21379, .36383, .01302, -.00168, + .00000, .00760, .01724, + .52968, .20671, .33474, .01288, -.00108, + .00000, .00769, .01667 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51754, .20074, .31122, .01270, -.00064, + .00000, .00770, .01621, + .50597, .19516, .29005, .01252, -.00027, + .00000, .00771, .01572, + .49696, .19087, .27439, .01236, -.00001, + .00000, .00772, .01532, + .47822, .18196, .24386, .01196, .00046, + .00000, .00762, .01455, + .46246, .17467, .22177, .01160, .00077, + -.00129, .00747, .01396, + .44535, .16688, .19675, .01118, .00105, + -.00083, .00731, .01324, + .42816, .15918, .17398, .01072, .00128, + -.00047, .00709, .01254, + .41305, .15253, .15582, .01032, .00144, + -.00020, .00686, .01191 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39833, .14615, .13961, .00992, .00155, + .00002, .00662, .01129, + .38652, .14107, .12754, .00955, .00162, + .00017, .00644, .01082, + .37265, .13514, .11449, .00909, .00168, + .00032, .00618, .01029, + .36078, .13013, .10420, .00874, .00171, + .00042, .00598, .00981, + .35023, .12573, .09567, .00845, .00173, + .00051, .00578, .00938, + .33725, .12039, .08601, .00805, .00175, + .00060, .00553, .00884, + .32553, .11561, .07794, .00771, .00174, + .00066, .00531, .00840, + .31495, .11134, .07119, .00738, .00173, + .00070, .00510, .00801 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30465, .10719, .06513, .00707, .00170, + .00073, .00489, .00764, + .29496, .10332, .05978, .00677, .00169, + .00077, .00470, .00728, + .28611, .09979, .05522, .00649, .00166, + .00078, .00452, .00695, + .27798, .09658, .05130, .00625, .00163, + .00079, .00436, .00668, + .27008, .09350, .04770, .00601, .00160, + .00080, .00419, .00642, + .26248, .09055, .04447, .00580, .00157, + .00080, .00404, .00614, + .25551, .08788, .04163, .00561, .00154, + .00080, .00391, .00589, + .24907, .08539, .03915, .00542, .00150, + .00080, .00379, .00568 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24279, .08296, .03684, .00523, .00147, + .00079, .00366, .00548, + .23671, .08064, .03473, .00506, .00144, + .00079, .00354, .00527, + .23104, .07850, .03288, .00490, .00141, + .00078, .00343, .00509, + .22582, .07654, .03122, .00476, .00139, + .00078, .00333, .00491, + .22065, .07460, .02966, .00461, .00136, + .00078, .00323, .00475 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .62703, .25286, .53741, .00942, .00000, + .00000, .00264, .01416, + .61036, .24338, .49304, .00984, .00000, + .00000, .00346, .01406, + .58561, .23007, .44174, .01019, -.00482, + .00000, .00439, .01376, + .56780, .22088, .39895, .01033, -.00370, + .00000, .00482, .01350, + .54922, .21158, .35820, .01036, -.00278, + .00000, .00523, .01311, + .53348, .20392, .32626, .01035, -.00211, + .00000, .00546, .01273, + .51866, .19683, .29842, .01026, -.00156, + .00000, .00558, .01238, + .50331, .18960, .27155, .01009, -.00105, + .00000, .00566, .01201 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .49029, .18355, .25012, .00992, -.00069, + .00000, .00572, .01163, + .47798, .17789, .23111, .00974, -.00038, + .00000, .00573, .01129, + .46842, .17356, .21713, .00961, -.00016, + .00000, .00569, .01105, + .44851, .16474, .19028, .00927, .00022, + .00000, .00564, .01044, + .43209, .15751, .17105, .00892, .00047, + -.00104, .00553, .00998, + .41428, .14987, .14985, .00856, .00070, + -.00068, .00535, .00948, + .39652, .14235, .13083, .00820, .00087, + -.00040, .00518, .00892, + .38113, .13590, .11582, .00784, .00099, + -.00020, .00502, .00845 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36625, .12974, .10263, .00745, .00108, + -.00003, .00485, .00799, + .35424, .12484, .09293, .00722, .00113, + .00008, .00468, .00763, + .34028, .11919, .08254, .00688, .00117, + .00019, .00450, .00720, + .32846, .11443, .07445, .00656, .00120, + .00028, .00432, .00685, + .31800, .11026, .06783, .00627, .00122, + .00034, .00416, .00655, + .30519, .10521, .06039, .00595, .00122, + .00040, .00397, .00618, + .29362, .10070, .05427, .00567, .00122, + .00045, .00379, .00583, + .28321, .09670, .04919, .00543, .00120, + .00048, .00363, .00553 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27321, .09284, .04468, .00516, .00119, + .00051, .00347, .00527, + .26380, .08924, .04074, .00492, .00117, + .00052, .00331, .00502, + .25519, .08599, .03739, .00473, .00115, + .00053, .00318, .00478, + .24734, .08304, .03455, .00456, .00112, + .00053, .00307, .00456, + .23976, .08017, .03193, .00437, .00111, + .00055, .00297, .00436, + .23248, .07747, .02963, .00420, .00108, + .00055, .00284, .00419, + .22582, .07499, .02763, .00405, .00106, + .00055, .00272, .00402, + .21966, .07276, .02589, .00391, .00104, + .00054, .00262, .00385 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21364, .07057, .02428, .00378, .00102, + .00054, .00252, .00369, + .20789, .06847, .02281, .00365, .00099, + .00053, .00244, .00353, + .20257, .06653, .02151, .00352, .00097, + .00053, .00237, .00340, + .19767, .06474, .02038, .00340, .00095, + .00053, .00229, .00328, + .19280, .06297, .01932, .00328, .00093, + .00052, .00222, .00318 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .61021, .23677, .46529, .00683, .00000, + .00000, .00139, .00964, + .59098, .22689, .42083, .00727, .00000, + .00000, .00214, .00969, + .56310, .21308, .36964, .00770, -.00416, + .00000, .00298, .00963, + .54331, .20372, .32905, .00787, -.00320, + .00000, .00348, .00942, + .52313, .19419, .29133, .00789, -.00241, + .00000, .00375, .00923, + .50611, .18642, .26217, .00789, -.00185, + .00000, .00397, .00899, + .49028, .17932, .23710, .00781, -.00139, + .00000, .00410, .00876, + .47399, .17214, .21325, .00769, -.00097, + .00000, .00417, .00850 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .46024, .16610, .19452, .00756, -.00067, + .00000, .00421, .00827, + .44731, .16053, .17811, .00739, -.00042, + .00000, .00420, .00805, + .43737, .15627, .16618, .00723, -.00025, + .00000, .00417, .00786, + .41687, .14758, .14347, .00696, .00006, + .00000, .00411, .00741, + .39994, .14062, .12739, .00672, .00026, + -.00082, .00403, .00703, + .38184, .13324, .11001, .00641, .00044, + -.00055, .00392, .00664, + .36393, .12603, .09462, .00609, .00058, + -.00033, .00378, .00626, + .34847, .11987, .08272, .00581, .00066, + -.00018, .00365, .00590 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33357, .11401, .07236, .00553, .00073, + -.00006, .00351, .00556, + .32176, .10936, .06488, .00527, .00077, + .00003, .00337, .00532, + .30796, .10405, .05694, .00500, .00081, + .00012, .00323, .00499, + .29627, .09961, .05081, .00479, .00082, + .00018, .00310, .00473, + .28597, .09572, .04587, .00461, .00083, + .00023, .00298, .00451, + .27349, .09103, .04041, .00435, .00083, + .00026, .00281, .00424, + .26234, .08685, .03594, .00410, .00083, + .00029, .00268, .00401, + .25236, .08313, .03226, .00390, .00082, + .00032, .00258, .00379 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24268, .07960, .02906, .00374, .00081, + .00034, .00245, .00359, + .23365, .07631, .02629, .00357, .00080, + .00035, .00233, .00340, + .22550, .07334, .02396, .00338, .00078, + .00036, .00223, .00322, + .21805, .07064, .02201, .00323, .00077, + .00036, .00213, .00309, + .21086, .06807, .02024, .00308, .00075, + .00036, .00203, .00296, + .20401, .06562, .01866, .00294, .00073, + .00037, .00196, .00282, + .19776, .06339, .01729, .00282, .00072, + .00037, .00188, .00270, + .19199, .06135, .01614, .00271, .00071, + .00037, .00182, .00259 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18638, .05938, .01507, .00261, .00069, + .00036, .00176, .00247, + .18098, .05751, .01410, .00253, .00067, + .00037, .00169, .00237, + .17599, .05579, .01326, .00245, .00065, + .00036, .00162, .00227, + .17140, .05422, .01252, .00238, .00064, + .00035, .00157, .00218, + .16690, .05264, .01182, .00230, .00063, + .00036, .00152, .00210 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .58791, .22025, .38887, .00533, .00000, + .00000, .00037, .00603, + .56658, .20998, .34665, .00568, .00000, + .00000, .00109, .00626, + .53617, .19591, .29851, .00601, -.00348, + .00000, .00189, .00633, + .51493, .18637, .26182, .00613, -.00268, + .00000, .00226, .00636, + .49355, .17684, .22810, .00607, -.00202, + .00000, .00257, .00635, + .47562, .16915, .20275, .00607, -.00156, + .00000, .00275, .00617, + .45910, .16209, .18114, .00599, -.00118, + .00000, .00288, .00601, + .44226, .15496, .16086, .00584, -.00085, + .00000, .00298, .00585 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .42800, .14912, .14517, .00575, -.00060, + .00000, .00301, .00567, + .41474, .14368, .13157, .00564, -.00040, + .00000, .00300, .00551, + .40457, .13955, .12179, .00554, -.00027, + .00000, .00299, .00536, + .38368, .13120, .10336, .00531, -.00003, + .00000, .00295, .00505, + .36672, .12448, .09050, .00506, .00013, + -.00063, .00288, .00481, + .34871, .11744, .07681, .00478, .00026, + -.00043, .00280, .00456, + .33092, .11061, .06494, .00451, .00037, + -.00027, .00270, .00428, + .31562, .10483, .05586, .00427, .00044, + -.00015, .00259, .00404 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .30100, .09932, .04812, .00404, .00048, + -.00006, .00246, .00381, + .28940, .09502, .04257, .00391, .00052, + .00001, .00237, .00359, + .27600, .09010, .03681, .00368, .00053, + .00006, .00224, .00339, + .26476, .08598, .03242, .00348, .00055, + .00011, .00213, .00320, + .25492, .08240, .02889, .00332, .00056, + .00015, .00206, .00303, + .24293, .07809, .02506, .00314, .00056, + .00018, .00194, .00284, + .23222, .07427, .02197, .00298, .00056, + .00021, .00184, .00268, + .22268, .07091, .01948, .00284, .00055, + .00022, .00176, .00255 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21364, .06769, .01733, .00265, .00055, + .00024, .00167, .00240, + .20515, .06471, .01552, .00251, .00053, + .00024, .00160, .00226, + .19742, .06204, .01400, .00241, .00052, + .00025, .00152, .00213, + .19045, .05964, .01273, .00231, .00051, + .00026, .00146, .00203, + .18375, .05733, .01158, .00221, .00051, + .00027, .00139, .00193, + .17735, .05514, .01063, .00211, .00049, + .00026, .00132, .00182, + .17153, .05316, .00979, .00201, .00048, + .00027, .00127, .00174, + .16619, .05137, .00907, .00193, .00047, + .00026, .00122, .00166 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16101, .04963, .00842, .00186, .00046, + .00027, .00117, .00160, + .15605, .04795, .00785, .00178, .00045, + .00027, .00113, .00153, + .15148, .04642, .00734, .00172, .00045, + .00027, .00109, .00146, + .14729, .04502, .00691, .00166, .00043, + .00027, .00105, .00140, + .14318, .04365, .00651, .00159, .00042, + .00026, .00100, .00136 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .56155, .20260, .31185, .00396, .00000, + .00000, -.00023, .00368, + .53853, .19233, .27372, .00428, .00000, + .00000, .00042, .00392, + .50608, .17827, .23071, .00459, -.00284, + .00000, .00109, .00410, + .48385, .16884, .19896, .00468, -.00218, + .00000, .00143, .00415, + .46137, .15958, .17050, .00469, -.00165, + .00000, .00169, .00409, + .44290, .15200, .14928, .00466, -.00127, + .00000, .00182, .00409, + .42593, .14516, .13152, .00462, -.00098, + .00000, .00191, .00399, + .40871, .13833, .11506, .00453, -.00071, + .00000, .00201, .00383 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .39437, .13266, .10253, .00441, -.00052, + .00000, .00202, .00371, + .38101, .12748, .09177, .00430, -.00036, + .00000, .00202, .00362, + .37078, .12354, .08407, .00421, -.00025, + .00000, .00202, .00354, + .35004, .11560, .06978, .00397, -.00007, + .00000, .00199, .00341, + .33320, .10924, .06002, .00382, .00005, + -.00048, .00196, .00322, + .31545, .10265, .04978, .00361, .00015, + -.00033, .00188, .00300, + .29809, .09631, .04103, .00340, .00022, + -.00021, .00181, .00280, + .28326, .09092, .03451, .00322, .00028, + -.00012, .00173, .00262 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .26917, .08584, .02899, .00301, .00031, + -.00006, .00166, .00249, + .25804, .08188, .02515, .00286, .00034, + -.00001, .00158, .00236, + .24521, .07734, .02120, .00270, .00035, + .00003, .00150, .00222, + .23447, .07357, .01826, .00255, .00037, + .00006, .00143, .00209, + .22510, .07033, .01593, .00245, .00037, + .00009, .00136, .00197, + .21380, .06642, .01348, .00228, .00038, + .00011, .00129, .00183, + .20376, .06297, .01154, .00215, .00038, + .00013, .00121, .00172, + .19485, .05993, .00998, .00204, .00038, + .00014, .00115, .00163 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18635, .05708, .00870, .00192, .00037, + .00015, .00109, .00151, + .17842, .05442, .00762, .00182, .00037, + .00016, .00103, .00143, + .17125, .05204, .00673, .00174, .00036, + .00017, .00099, .00137, + .16479, .04991, .00601, .00166, .00035, + .00017, .00094, .00130, + .15859, .04787, .00538, .00159, .00035, + .00018, .00090, .00122, + .15277, .04593, .00485, .00151, .00034, + .00018, .00085, .00116, + .14748, .04417, .00439, .00142, .00034, + .00019, .00081, .00112, + .14260, .04259, .00404, .00137, .00033, + .00019, .00078, .00106 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13787, .04107, .00371, .00131, .00032, + .00019, .00075, .00100, + .13337, .03962, .00341, .00125, .00031, + .00019, .00072, .00095, + .12923, .03829, .00316, .00121, .00032, + .00020, .00068, .00092, + .12545, .03706, .00296, .00116, .00031, + .00020, .00066, .00088, + .12171, .03587, .00276, .00112, .00030, + .00020, .00064, .00085 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .53113, .18445, .23775, .00280, .00000, + .00000, -.00040, .00206, + .50680, .17429, .20502, .00310, .00000, + .00000, .00011, .00234, + .47304, .16046, .16868, .00326, -.00224, + .00000, .00064, .00263, + .45006, .15127, .14261, .00337, -.00172, + .00000, .00093, .00266, + .42717, .14231, .11954, .00342, -.00130, + .00000, .00111, .00269, + .40854, .13504, .10264, .00335, -.00101, + .00000, .00127, .00268, + .39147, .12849, .08873, .00327, -.00077, + .00000, .00133, .00265, + .37422, .12194, .07605, .00321, -.00057, + .00000, .00136, .00261 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .35987, .11657, .06654, .00314, -.00042, + .00000, .00140, .00253, + .34662, .11169, .05847, .00306, -.00030, + .00000, .00142, .00243, + .33654, .10804, .05275, .00300, -.00022, + .00000, .00143, .00235, + .31607, .10062, .04247, .00284, -.00008, + .00000, .00140, .00223, + .29970, .09473, .03548, .00268, .00001, + -.00036, .00136, .00211, + .28253, .08860, .02828, .00253, .00009, + -.00025, .00132, .00199, + .26584, .08275, .02225, .00237, .00015, + -.00016, .00127, .00187, + .25164, .07781, .01795, .00221, .00019, + -.00010, .00120, .00175 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .23815, .07320, .01438, .00210, .00022, + -.00005, .00114, .00163, + .22760, .06963, .01193, .00200, .00023, + -.00002, .00109, .00154, + .21551, .06555, .00954, .00186, .00025, + .00001, .00102, .00143, + .20545, .06216, .00777, .00174, .00025, + .00002, .00097, .00136, + .19672, .05921, .00644, .00162, .00026, + .00004, .00093, .00129, + .18614, .05573, .00505, .00155, .00026, + .00005, .00088, .00121, + .17682, .05268, .00399, .00146, .00026, + .00006, .00083, .00113, + .16861, .05001, .00320, .00135, .00026, + .00007, .00078, .00105 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16077, .04747, .00255, .00128, .00027, + .00008, .00072, .00099, + .15352, .04512, .00204, .00120, .00027, + .00009, .00069, .00095, + .14702, .04304, .00163, .00113, .00026, + .00009, .00066, .00089, + .14113, .04117, .00133, .00107, .00026, + .00010, .00063, .00085, + .13549, .03938, .00109, .00102, .00026, + .00010, .00058, .00080, + .13018, .03771, .00088, .00098, .00025, + .00010, .00058, .00075, + .12535, .03620, .00073, .00094, .00025, + .00011, .00055, .00070, + .12095, .03482, .00060, .00090, .00025, + .00011, .00053, .00068 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11671, .03351, .00049, .00086, .00024, + .00011, .00050, .00066, + .11268, .03225, .00042, .00082, .00024, + .00011, .00048, .00064, + .10899, .03110, .00035, .00078, .00023, + .00011, .00046, .00062, + .10561, .03007, .00030, .00074, .00023, + .00011, .00044, .00059, + .10227, .02905, .00026, .00072, .00024, + .00012, .00042, .00056 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .49773, .16620, .16954, .00179, .00000, + .00000, -.00047, .00112, + .47251, .15618, .14300, .00207, .00000, + .00000, -.00007, .00138, + .43790, .14276, .11405, .00225, -.00173, + .00000, .00042, .00159, + .41466, .13399, .09375, .00226, -.00132, + .00000, .00063, .00171, + .39164, .12540, .07606, .00232, -.00100, + .00000, .00079, .00182, + .37294, .11855, .06351, .00231, -.00078, + .00000, .00091, .00176, + .35599, .11239, .05338, .00224, -.00060, + .00000, .00099, .00172, + .33896, .10629, .04426, .00216, -.00045, + .00000, .00103, .00171 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .32495, .10130, .03752, .00211, -.00033, + .00000, .00102, .00168, + .31203, .09674, .03196, .00203, -.00025, + .00000, .00103, .00163, + .30225, .09329, .02812, .00197, -.00019, + .00000, .00103, .00158, + .28248, .08646, .02125, .00184, -.00009, + .00000, .00101, .00151, + .26680, .08108, .01667, .00173, -.00002, + -.00025, .00097, .00144, + .25036, .07552, .01209, .00162, .00004, + -.00018, .00093, .00135, + .23448, .07021, .00842, .00150, .00009, + -.00012, .00088, .00126, + .22108, .06577, .00584, .00141, .00012, + -.00008, .00085, .00119 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .20844, .06164, .00382, .00132, .00015, + -.00005, .00080, .00111, + .19865, .05844, .00252, .00122, .00017, + -.00003, .00076, .00103, + .18734, .05481, .00127, .00116, .00018, + -.00001, .00073, .00096, + .17798, .05182, .00044, .00111, .00019, + .00000, .00069, .00090, + .16993, .04925, -.00016, .00103, .00020, + .00001, .00065, .00085, + .16028, .04619, -.00075, .00095, .00021, + .00003, .00061, .00079, + .15176, .04350, -.00113, .00088, .00021, + .00003, .00058, .00073, + .14426, .04116, -.00138, .00083, .00021, + .00004, .00056, .00070 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13714, .03896, -.00153, .00078, .00021, + .00005, .00052, .00065, + .13057, .03694, -.00163, .00073, .00021, + .00005, .00048, .00062, + .12469, .03514, -.00167, .00069, .00020, + .00005, .00046, .00057, + .11940, .03353, -.00169, .00065, .00021, + .00006, .00044, .00053, + .11436, .03200, -.00169, .00064, .00021, + .00006, .00042, .00050, + .10961, .03059, -.00165, .00060, .00020, + .00006, .00039, .00047, + .10533, .02929, -.00162, .00058, .00020, + .00006, .00037, .00046, + .10142, .02813, -.00155, .00054, .00020, + .00007, .00035, .00044 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09768, .02700, -.00151, .00051, .00020, + .00007, .00034, .00043, + .09411, .02594, -.00145, .00049, .00020, + .00007, .00032, .00040, + .09085, .02497, -.00139, .00046, .00020, + .00007, .00031, .00038, + .08787, .02409, -.00133, .00045, .00020, + .00007, .00030, .00036, + .08495, .02323, -.00126, .00043, .00019, + .00007, .00029, .00034 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .46177, .14878, .10868, .00176, .00000, + .00000, -.00073, .00029, + .43632, .13921, .08863, .00174, .00000, + .00000, -.00036, .00057, + .40158, .12642, .06714, .00191, -.00130, + .00000, .00001, .00084, + .37855, .11808, .05249, .00187, -.00099, + .00000, .00024, .00086, + .35575, .11002, .04011, .00188, -.00074, + .00000, .00039, .00088, + .33743, .10358, .03141, .00183, -.00059, + .00000, .00050, .00097, + .32094, .09783, .02459, .00178, -.00045, + .00000, .00053, .00101, + .30446, .09213, .01869, .00171, -.00034, + .00000, .00054, .00101 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .29088, .08756, .01447, .00163, -.00026, + .00000, .00057, .00098, + .27849, .08338, .01106, .00157, -.00020, + .00000, .00058, .00096, + .26912, .08023, .00872, .00151, -.00015, + .00000, .00059, .00096, + .25031, .07400, .00477, .00142, -.00008, + .00000, .00057, .00087, + .23538, .06911, .00229, .00138, -.00004, + -.00018, .00055, .00084, + .21991, .06411, -.00021, .00129, .00000, + -.00013, .00055, .00081, + .20508, .05936, -.00199, .00118, .00003, + -.00010, .00052, .00075, + .19264, .05541, -.00311, .00109, .00006, + -.00006, .00047, .00070 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .18099, .05171, -.00389, .00100, .00008, + -.00004, .00045, .00065, + .17186, .04887, -.00432, .00096, .00009, + -.00003, .00043, .00062, + .16152, .04568, -.00462, .00090, .00010, + -.00002, .00041, .00055, + .15300, .04306, -.00477, .00085, .00011, + -.00001, .00039, .00050, + .14567, .04081, -.00481, .00079, .00012, + .00000, .00038, .00049, + .13688, .03813, -.00474, .00071, .00012, + .00000, .00034, .00047, + .12920, .03581, -.00464, .00066, .00013, + .00001, .00032, .00042, + .12247, .03378, -.00450, .00061, .00013, + .00001, .00032, .00038 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11606, .03189, -.00430, .00059, .00014, + .00002, .00029, .00036, + .11020, .03016, -.00411, .00055, .00014, + .00002, .00028, .00034, + .10496, .02860, -.00391, .00052, .00014, + .00002, .00025, .00032, + .10028, .02723, -.00373, .00049, .00014, + .00002, .00023, .00031, + .09582, .02594, -.00351, .00045, .00015, + .00003, .00022, .00028, + .09163, .02471, -.00333, .00044, .00015, + .00003, .00021, .00027, + .08784, .02362, -.00315, .00043, .00015, + .00003, .00020, .00026, + .08443, .02263, -.00298, .00039, .00015, + .00003, .00018, .00024 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08115, .02168, -.00282, .00037, .00015, + .00003, .00017, .00023, + .07804, .02078, -.00265, .00034, .00015, + .00003, .00016, .00022, + .07518, .01998, -.00252, .00033, .00015, + .00003, .00016, .00021, + .07258, .01924, -.00239, .00032, .00015, + .00003, .00015, .00020, + .07005, .01852, -.00226, .00031, .00015, + .00003, .00015, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .42384, .13086, .05730, .00092, .00000, + .00000, -.00048, .00012, + .39826, .12185, .04343, .00113, .00000, + .00000, -.00025, .00027, + .36398, .10996, .02925, .00114, -.00094, + .00000, .00006, .00047, + .34132, .10220, .01961, .00121, -.00072, + .00000, .00021, .00054, + .31928, .09482, .01179, .00123, -.00054, + .00000, .00025, .00061, + .30159, .08891, .00669, .00120, -.00042, + .00000, .00029, .00060, + .28569, .08371, .00279, .00117, -.00033, + .00000, .00034, .00059, + .26995, .07859, -.00043, .00113, -.00026, + .00000, .00039, .00056 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .25714, .07439, -.00262, .00107, -.00020, + .00000, .00038, .00059, + .24540, .07059, -.00427, .00102, -.00015, + .00000, .00039, .00060, + .23651, .06776, -.00525, .00100, -.00013, + .00000, .00036, .00058, + .21885, .06223, -.00694, .00097, -.00008, + .00000, .00038, .00055, + .20495, .05790, -.00777, .00091, -.00005, + -.00013, .00038, .00052, + .19071, .05349, -.00855, .00082, -.00002, + -.00010, .00036, .00047, + .17703, .04928, -.00892, .00076, .00001, + -.00007, .00034, .00043, + .16560, .04582, -.00897, .00071, .00002, + -.00006, .00032, .00040 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15495, .04261, -.00882, .00065, .00003, + -.00005, .00029, .00038, + .14672, .04014, -.00861, .00060, .00004, + -.00004, .00027, .00038, + .13739, .03737, -.00829, .00055, .00005, + -.00003, .00026, .00036, + .12971, .03510, -.00793, .00051, .00006, + -.00002, .00026, .00034, + .12308, .03319, -.00758, .00049, .00006, + -.00002, .00023, .00031, + .11525, .03090, -.00711, .00045, .00007, + -.00001, .00022, .00029, + .10841, .02892, -.00665, .00041, .00007, + -.00001, .00020, .00027, + .10242, .02720, -.00623, .00039, .00007, + -.00001, .00018, .00025 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09680, .02560, -.00581, .00036, .00007, + -.00001, .00018, .00023, + .09164, .02413, -.00542, .00035, .00008, + .00000, .00017, .00020, + .08703, .02284, -.00507, .00034, .00008, + .00000, .00016, .00018, + .08292, .02168, -.00474, .00031, .00008, + .00000, .00014, .00016, + .07906, .02060, -.00444, .00029, .00008, + .00000, .00014, .00017, + .07540, .01960, -.00415, .00028, .00008, + .00000, .00013, .00016, + .07211, .01868, -.00389, .00028, .00008, + .00000, .00012, .00016, + .06916, .01786, -.00365, .00025, .00008, + .00000, .00012, .00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06633, .01707, -.00343, .00024, .00008, + .00000, .00011, .00013, + .06364, .01634, -.00322, .00023, .00008, + .00000, .00010, .00013, + .06120, .01567, -.00302, .00021, .00009, + .00001, .00010, .00012, + .05897, .01506, -.00286, .00020, .00009, + .00001, .00009, .00012, + .05682, .01448, -.00269, .00019, .00009, + .00001, .00009, .00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .38438, .11377, .01597, .00047, .00000, + .00000, -.00031, .00002, + .35943, .10541, .00773, .00054, .00000, + .00000, -.00012, .00014, + .32610, .09447, -.00014, .00066, -.00066, + .00000, .00006, .00028, + .30432, .08744, -.00526, .00063, -.00051, + .00000, .00010, .00038, + .28327, .08064, -.00920, .00065, -.00039, + .00000, .00020, .00040, + .26643, .07535, -.01146, .00067, -.00030, + .00000, .00022, .00039, + .25140, .07064, -.01296, .00065, -.00024, + .00000, .00023, .00041, + .23659, .06603, -.01404, .00063, -.00019, + .00000, .00026, .00043 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .22450, .06235, -.01455, .00064, -.00015, + .00000, .00026, .00040, + .21354, .05904, -.01480, .00062, -.00013, + .00000, .00027, .00038, + .20535, .05655, -.01485, .00060, -.00011, + .00000, .00026, .00036, + .18908, .05161, -.01468, .00054, -.00007, + .00000, .00027, .00037, + .17638, .04781, -.01424, .00048, -.00005, + -.00009, .00026, .00034, + .16330, .04397, -.01378, .00045, -.00003, + -.00007, .00024, .00031, + .15085, .04034, -.01310, .00043, -.00002, + -.00006, .00022, .00027, + .14055, .03734, -.01240, .00039, -.00001, + -.00005, .00022, .00027 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13097, .03459, -.01164, .00035, .00000, + -.00004, .00021, .00026, + .12359, .03248, -.01100, .00033, .00001, + -.00003, .00020, .00023, + .11528, .03012, -.01021, .00032, .00001, + -.00003, .00018, .00021, + .10848, .02821, -.00952, .00029, .00002, + -.00002, .00016, .00020, + .10266, .02658, -.00893, .00026, .00002, + -.00002, .00015, .00019, + .09575, .02465, -.00817, .00025, .00002, + -.00002, .00014, .00016, + .08974, .02300, -.00753, .00024, .00003, + -.00001, .00013, .00015, + .08451, .02157, -.00696, .00021, .00003, + -.00001, .00012, .00016 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07961, .02022, -.00641, .00021, .00003, + -.00001, .00012, .00014, + .07513, .01901, -.00591, .00020, .00003, + -.00001, .00010, .00013, + .07117, .01794, -.00547, .00018, .00003, + -.00001, .00009, .00012, + .06765, .01700, -.00509, .00017, .00003, + -.00001, .00009, .00012, + .06432, .01610, -.00473, .00015, .00003, + -.00001, .00009, .00012, + .06121, .01527, -.00439, .00015, .00003, + -.00001, .00008, .00011, + .05842, .01453, -.00410, .00013, .00004, + .00000, .00008, .00011, + .05588, .01387, -.00383, .00013, .00004, + .00000, .00008, .00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05345, .01323, -.00358, .00013, .00004, + .00000, .00007, .00009, + .05119, .01263, -.00333, .00012, .00004, + .00000, .00007, .00008, + .04914, .01209, -.00314, .00012, .00004, + .00000, .00007, .00008, + .04726, .01160, -.00294, .00011, .00004, + .00000, .00006, .00007, + .04543, .01112, -.00276, .00011, .00004, + .00000, .00006, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .34512, .09819, -.01647, .00050, .00000, + .00000, -.00038, -.00014, + .32094, .09055, -.01995, .00058, .00000, + .00000, -.00021, -.00003, + .28916, .08050, -.02214, .00056, -.00046, + .00000, -.00008, .00007, + .26836, .07419, -.02373, .00066, -.00035, + .00000, .00000, .00009, + .24861, .06810, -.02437, .00057, -.00027, + .00000, .00004, .00014, + .23293, .06334, -.02435, .00053, -.00022, + .00000, .00005, .00017, + .21897, .05917, -.02401, .00050, -.00018, + .00000, .00009, .00018, + .20519, .05509, -.02335, .00049, -.00014, + .00000, .00011, .00018 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .19408, .05183, -.02263, .00047, -.00012, + .00000, .00011, .00018, + .18402, .04889, -.02182, .00045, -.00010, + .00000, .00012, .00019, + .17650, .04671, -.02112, .00041, -.00009, + .00000, .00014, .00018, + .16162, .04241, -.01959, .00040, -.00006, + .00000, .00013, .00018, + .15008, .03915, -.01825, .00039, -.00005, + -.00006, .00010, .00016, + .13829, .03582, -.01693, .00036, -.00004, + -.00005, .00010, .00016, + .12718, .03272, -.01557, .00032, -.00003, + -.00004, .00011, .00016, + .11800, .03017, -.01434, .00029, -.00002, + -.00003, .00011, .00015 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .10952, .02783, -.01319, .00028, -.00001, + -.00002, .00012, .00014, + .10302, .02606, -.01222, .00026, -.00001, + -.00002, .00008, .00012, + .09572, .02408, -.01113, .00021, -.00001, + -.00002, .00007, .00011, + .08976, .02246, -.01027, .00022, .00000, + -.00001, .00007, .00010, + .08465, .02110, -.00953, .00022, .00000, + -.00001, .00008, .00009, + .07867, .01950, -.00861, .00018, .00000, + -.00001, .00006, .00009, + .07348, .01814, -.00784, .00017, .00000, + -.00001, .00006, .00008, + .06894, .01695, -.00717, .00017, .00000, + -.00001, .00005, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06478, .01585, -.00657, .00015, .00000, + -.00001, .00005, .00008, + .06096, .01485, -.00602, .00014, .00000, + -.00001, .00006, .00007, + .05759, .01398, -.00552, .00012, .00001, + .00000, .00004, .00005, + .05458, .01320, -.00511, .00012, .00001, + .00000, .00004, .00006, + .05173, .01248, -.00475, .00013, .00001, + .00000, .00005, .00006, + .04913, .01180, -.00438, .00011, .00001, + .00000, .00005, .00005, + .04679, .01119, -.00406, .00009, .00001, + .00000, .00003, .00005, + .04467, .01066, -.00378, .00009, .00001, + .00000, .00003, .00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04263, .01014, -.00353, .00010, .00001, + .00000, .00003, .00005, + .04072, .00968, -.00329, .00010, .00001, + .00000, .00003, .00005, + .03900, .00924, -.00306, .00008, .00001, + .00000, .00003, .00003, + .03744, .00885, -.00287, .00008, .00001, + .00000, .00002, .00003, + .03592, .00848, -.00269, .00008, .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)/ + .30537, .08285, -.03921, .00009, .00000, + .00000, -.00010, -.00007, + .28250, .07603, -.03876, .00020, .00000, + .00000, -.00008, .00000, + .25255, .06720, -.03669, .00025, -.00030, + .00000, .00000, .00005, + .23340, .06156, -.03552, .00023, -.00023, + .00000, .00005, .00011, + .21501, .05628, -.03387, .00024, -.00018, + .00000, .00009, .00013, + .20049, .05213, -.03217, .00026, -.00015, + .00000, .00010, .00014, + .18769, .04850, -.03043, .00026, -.00012, + .00000, .00010, .00012, + .17518, .04501, -.02858, .00027, -.00010, + .00000, .00010, .00010 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .16509, .04218, -.02698, .00023, -.00008, + .00000, .00011, .00012, + .15600, .03966, -.02543, .00022, -.00007, + .00000, .00010, .00012, + .14923, .03779, -.02425, .00023, -.00006, + .00000, .00009, .00013, + .13594, .03415, -.02181, .00020, -.00005, + .00000, .00007, .00012, + .12564, .03137, -.01997, .00018, -.00004, + -.00004, .00010, .00011, + .11521, .02858, -.01808, .00017, -.00003, + -.00003, .00009, .00010, + .10544, .02597, -.01624, .00016, -.00002, + -.00002, .00008, .00007, + .09741, .02384, -.01475, .00015, -.00002, + -.00002, .00006, .00008 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .09000, .02190, -.01333, .00014, -.00002, + -.00002, .00006, .00008, + .08435, .02044, -.01227, .00011, -.00001, + -.00001, .00007, .00008, + .07805, .01880, -.01105, .00011, -.00001, + -.00001, .00005, .00007, + .07292, .01748, -.01006, .00009, -.00001, + -.00001, .00005, .00005, + .06855, .01637, -.00926, .00008, -.00001, + -.00001, .00005, .00006, + .06343, .01506, -.00832, .00010, -.00001, + -.00001, .00005, .00006, + .05904, .01395, -.00751, .00008, -.00001, + -.00001, .00005, .00005, + .05524, .01300, -.00683, .00008, .00000, + .00000, .00003, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05171, .01211, -.00621, .00007, .00000, + .00000, .00003, .00005, + .04850, .01131, -.00565, .00006, .00000, + .00000, .00003, .00005, + .04568, .01062, -.00518, .00006, .00000, + .00000, .00003, .00005, + .04317, .01000, -.00476, .00006, .00000, + .00000, .00003, .00003, + .04081, .00943, -.00437, .00006, .00000, + .00000, .00002, .00002, + .03864, .00890, -.00402, .00005, .00000, + .00000, .00002, .00002, + .03672, .00841, -.00372, .00005, .00000, + .00000, .00002, .00002, + .03497, .00800, -.00346, .00005, .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)/ + .03331, .00759, -.00320, .00003, .00000, + .00000, .00002, .00002, + .03174, .00722, -.00297, .00003, .00000, + .00000, .00002, .00002, + .03032, .00688, -.00277, .00003, .00000, + .00000, .00002, .00002, + .02905, .00657, -.00260, .00003, .00000, + .00000, .00002, .00002, + .02782, .00628, -.00243, .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)/ + .22889, .05670, -.06143, .00006, .00000, + .00000, -.00011, -.00008, + .20949, .05146, -.05618, .00005, .00000, + .00000, -.00002, -.00002, + .18437, .04481, -.04877, .00008, -.00012, + .00000, -.00002, .00001, + .16852, .04062, -.04435, .00011, -.00009, + .00000, .00000, .00003, + .15357, .03674, -.03995, .00008, -.00007, + .00000, .00000, .00002, + .14193, .03372, -.03644, .00007, -.00006, + .00000, -.00001, .00004, + .13172, .03113, -.03336, .00008, -.00004, + .00000, .00000, .00004, + .12185, .02862, -.03036, .00008, -.00004, + .00000, .00001, .00005 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .11400, .02664, -.02795, .00006, -.00003, + .00000, .00003, .00004, + .10698, .02486, -.02580, .00008, -.00003, + .00000, .00003, .00002, + .10176, .02357, -.02417, .00008, -.00002, + .00000, .00002, .00002, + .09161, .02106, -.02108, .00007, -.00002, + .00000, .00003, .00003, + .08393, .01917, -.01882, .00004, -.00001, + -.00001, .00002, .00003, + .07619, .01728, -.01663, .00005, -.00001, + -.00001, .00002, .00003, + .06899, .01555, -.01463, .00005, -.00001, + -.00001, .00003, .00004, + .06315, .01414, -.01298, .00003, -.00001, + -.00001, .00003, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05785, .01289, -.01152, .00004, -.00001, + -.00001, .00001, .00002, + .05381, .01194, -.01045, .00004, .00000, + .00000, .00001, .00003, + .04934, .01088, -.00929, .00004, .00000, + .00000, .00003, .00003, + .04577, .01005, -.00838, .00004, .00000, + .00000, .00003, .00003, + .04275, .00933, -.00760, .00003, .00000, + .00000, .00001, .00001, + .03924, .00852, -.00672, .00002, .00000, + .00000, .00001, .00001, + .03623, .00784, -.00601, .00002, .00000, + .00000, .00001, .00001, + .03366, .00726, -.00542, .00003, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .03128, .00672, -.00488, .00003, .00000, + .00000, .00001, .00001, + .02915, .00623, -.00439, .00001, .00000, + .00000, .00001, .00001, + .02729, .00581, -.00399, .00001, .00000, + .00000, .00001, .00001, + .02565, .00545, -.00365, .00001, .00000, + .00000, .00001, .00001, + .02410, .00509, -.00333, .00001, .00000, + .00000, .00001, .00001, + .02269, .00478, -.00306, .00001, .00000, + .00000, .00001, .00001, + .02144, .00451, -.00281, .00001, .00000, + .00000, .00001, .00001, + .02031, .00425, -.00260, .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)/ + .01926, .00402, -.00240, .00001, .00000, + .00000, .00001, .00001, + .01826, .00380, -.00221, .00001, .00000, + .00000, .00001, .00001, + .01738, .00361, -.00206, .00001, .00000, + .00000, .00001, .00001, + .01658, .00344, -.00192, .00001, .00000, + .00000, .00001, .00001, + .01581, .00327, -.00179, .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)/ + .15956, .03571, -.06090, .00001, .00000, + .00000, -.00005, -.00002, + .14433, .03208, -.05392, .00003, .00000, + .00000, -.00006, -.00005, + .12499, .02745, -.04527, .00004, -.00004, + .00000, .00000, -.00001, + .11300, .02464, -.03997, .00001, -.00003, + .00000, -.00003, -.00001, + .10176, .02202, -.03514, .00003, -.00002, + .00000, -.00002, .00000, + .09310, .02003, -.03148, .00005, -.00002, + .00000, .00000, .00000, + .08561, .01832, -.02830, .00005, -.00001, + .00000, .00001, .00001, + .07847, .01669, -.02530, .00003, -.00001, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .07281, .01540, -.02293, .00003, -.00001, + .00000, -.00001, .00001, + .06780, .01429, -.02088, .00001, -.00001, + .00000, -.00001, .00001, + .06415, .01346, -.01940, .00000, -.00001, + .00000, .00001, .00001, + .05704, .01189, -.01665, .00003, -.00001, + .00000, .00001, .00001, + .05170, .01071, -.01461, .00003, .00000, + .00000, .00000, .00001, + .04642, .00956, -.01268, .00001, .00000, + .00000, .00000, .00001, + .04160, .00850, -.01096, .00001, .00000, + .00000, .00000, .00000, + .03770, .00766, -.00960, .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)/ + .03416, .00691, -.00842, .00001, .00000, + .00000, .00000, .00001, + .03156, .00634, -.00755, .00001, .00000, + .00000, .00000, .00000, + .02867, .00574, -.00662, .00001, .00000, + .00000, .00000, .00000, + .02638, .00524, -.00591, .00001, .00000, + .00000, .00000, .00000, + .02445, .00485, -.00532, .00000, .00000, + .00000, .00000, .00000, + .02222, .00440, -.00467, .00001, .00000, + .00000, .00000, .00000, + .02035, .00400, -.00413, .00001, .00000, + .00000, .00000, .00000, + .01877, .00367, -.00368, .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)/ + .01731, .00338, -.00328, .00000, .00000, + .00000, .00000, .00000, + .01601, .00311, -.00296, .00001, .00000, + .00000, .00000, .00000, + .01488, .00287, -.00266, .00001, .00000, + .00000, .00000, .00000, + .01389, .00268, -.00241, .00001, .00000, + .00000, .00000, .00000, + .01299, .00250, -.00219, .00000, .00000, + .00000, .00000, .00000, + .01215, .00233, -.00199, .00000, .00000, + .00000, .00000, .00000, + .01141, .00218, -.00182, .00000, .00000, + .00000, .00000, .00000, + .01076, .00205, -.00167, .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)/ + .01014, .00192, -.00153, .00000, .00000, + .00000, .00000, .00000, + .00957, .00181, -.00141, .00000, .00000, + .00000, .00000, .00000, + .00906, .00171, -.00131, .00000, .00000, + .00000, .00000, .00000, + .00861, .00162, -.00121, .00000, .00000, + .00000, .00000, .00000, + .00817, .00154, -.00112, .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)/ + .10139, .02023, -.04808, .00004, .00000, + .00000, -.00002, -.00002, + .09052, .01794, -.04184, .00004, .00000, + .00000, -.00001, .00001, + .07695, .01511, -.03412, .00004, -.00001, + .00000, -.00003, -.00001, + .06867, .01339, -.02966, .00004, -.00001, + .00000, -.00001, -.00001, + .06107, .01181, -.02558, .00002, -.00001, + .00000, -.00001, -.00001, + .05532, .01063, -.02256, .00000, .00000, + .00000, .00000, .00000, + .05038, .00962, -.02002, .00000, .00000, + .00000, .00000, .00000, + .04567, .00868, -.01766, .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)/ + .04200, .00794, -.01584, .00000, .00000, + .00000, .00000, .00000, + .03877, .00730, -.01430, .00000, .00000, + .00000, .00000, .00000, + .03642, .00683, -.01319, .00002, .00000, + .00000, .00000, .00000, + .03196, .00595, -.01110, .00000, .00000, + .00000, .00000, .00000, + .02863, .00531, -.00964, .00000, .00000, + .00000, .00000, .00000, + .02539, .00467, -.00824, .00000, .00000, + .00000, .00000, .00000, + .02245, .00411, -.00702, .00000, .00000, + .00000, .00000, .00000, + .02013, .00366, -.00608, .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)/ + .01806, .00327, -.00527, .00000, .00000, + .00000, .00000, .00000, + .01652, .00298, -.00469, .00000, .00000, + .00000, .00000, .00000, + .01486, .00266, -.00406, .00000, .00000, + .00000, .00000, .00000, + .01354, .00242, -.00359, .00000, .00000, + .00000, .00000, .00000, + .01244, .00222, -.00321, .00000, .00000, + .00000, .00000, .00000, + .01121, .00198, -.00279, .00000, .00000, + .00000, .00000, .00000, + .01016, .00179, -.00244, .00000, .00000, + .00000, .00000, .00000, + .00929, .00163, -.00216, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00849, .00149, -.00191, .00000, .00000, + .00000, .00000, .00000, + .00778, .00136, -.00170, .00000, .00000, + .00000, .00000, .00000, + .00718, .00125, -.00152, .00000, .00000, + .00000, .00000, .00000, + .00666, .00116, -.00137, .00000, .00000, + .00000, .00000, .00000, + .00618, .00106, -.00123, .00000, .00000, + .00000, .00000, .00000, + .00575, .00098, -.00112, .00000, .00000, + .00000, .00000, .00000, + .00536, .00091, -.00101, .00000, .00000, + .00000, .00000, .00000, + .00502, .00086, -.00093, .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)/ + .00470, .00079, -.00085, .00000, .00000, + .00000, .00000, .00000, + .00442, .00074, -.00077, .00000, .00000, + .00000, .00000, .00000, + .00415, .00071, -.00071, .00000, .00000, + .00000, .00000, .00000, + .00393, .00067, -.00066, .00000, .00000, + .00000, .00000, .00000, + .00371, .00063, -.00061, .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)/ + .05633, .00971, -.03099, .00000, .00000, + .00000, .00000, .00000, + .04962, .00852, -.02659, .00000, .00000, + .00000, .00000, .00000, + .04134, .00703, -.02126, .00000, .00000, + .00000, .00000, .00000, + .03636, .00616, -.01820, .00000, .00000, + .00000, .00000, .00000, + .03187, .00535, -.01546, .00000, .00000, + .00000, .00000, .00000, + .02848, .00478, -.01348, .00000, .00000, + .00000, .00000, .00000, + .02562, .00426, -.01180, .00000, .00000, + .00000, .00000, .00000, + .02293, .00380, -.01027, .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)/ + .02089, .00343, -.00913, .00000, .00000, + .00000, .00000, .00000, + .01910, .00315, -.00818, .00000, .00000, + .00000, .00000, .00000, + .01779, .00291, -.00746, .00000, .00000, + .00000, .00000, .00000, + .01535, .00251, -.00619, .00000, .00000, + .00000, .00000, .00000, + .01359, .00220, -.00531, .00000, .00000, + .00000, .00000, .00000, + .01186, .00192, -.00448, .00000, .00000, + .00000, .00000, .00000, + .01034, .00166, -.00376, .00000, .00000, + .00000, .00000, .00000, + .00916, .00146, -.00321, .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)/ + .00810, .00128, -.00275, .00000, .00000, + .00000, .00000, .00000, + .00733, .00114, -.00240, .00000, .00000, + .00000, .00000, .00000, + .00651, .00102, -.00207, .00000, .00000, + .00000, .00000, .00000, + .00586, .00092, -.00180, .00000, .00000, + .00000, .00000, .00000, + .00534, .00084, -.00161, .00000, .00000, + .00000, .00000, .00000, + .00474, .00074, -.00137, .00000, .00000, + .00000, .00000, .00000, + .00425, .00066, -.00118, .00000, .00000, + .00000, .00000, .00000, + .00384, .00058, -.00104, .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)/ + .00348, .00052, -.00091, .00000, .00000, + .00000, .00000, .00000, + .00317, .00049, -.00081, .00000, .00000, + .00000, .00000, .00000, + .00290, .00044, -.00072, .00000, .00000, + .00000, .00000, .00000, + .00266, .00040, -.00064, .00000, .00000, + .00000, .00000, .00000, + .00244, .00037, -.00057, .00000, .00000, + .00000, .00000, .00000, + .00225, .00034, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00209, .00031, -.00046, .00000, .00000, + .00000, .00000, .00000, + .00194, .00029, -.00042, .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)/ + .00180, .00027, -.00037, .00000, .00000, + .00000, .00000, .00000, + .00169, .00024, -.00034, .00000, .00000, + .00000, .00000, .00000, + .00158, .00023, -.00031, .00000, .00000, + .00000, .00000, .00000, + .00148, .00022, -.00028, .00000, .00000, + .00000, .00000, .00000, + .00138, .00020, -.00026, .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)/ + .00809, .00098, -.00564, .00000, .00000, + .00000, .00000, .00000, + .00680, .00081, -.00462, .00000, .00000, + .00000, .00000, .00000, + .00532, .00064, -.00349, .00000, .00000, + .00000, .00000, .00000, + .00449, .00052, -.00286, .00000, .00000, + .00000, .00000, .00000, + .00376, .00045, -.00234, .00000, .00000, + .00000, .00000, .00000, + .00324, .00037, -.00196, .00000, .00000, + .00000, .00000, .00000, + .00281, .00034, -.00167, .00000, .00000, + .00000, .00000, .00000, + .00245, .00028, -.00141, .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)/ + .00215, .00026, -.00122, .00000, .00000, + .00000, .00000, .00000, + .00191, .00021, -.00105, .00000, .00000, + .00000, .00000, .00000, + .00174, .00021, -.00095, .00000, .00000, + .00000, .00000, .00000, + .00144, .00016, -.00076, .00000, .00000, + .00000, .00000, .00000, + .00122, .00014, -.00062, .00000, .00000, + .00000, .00000, .00000, + .00102, .00011, -.00051, .00000, .00000, + .00000, .00000, .00000, + .00086, .00009, -.00041, .00000, .00000, + .00000, .00000, .00000, + .00072, .00009, -.00034, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00062, .00007, -.00028, .00000, .00000, + .00000, .00000, .00000, + .00054, .00007, -.00024, .00000, .00000, + .00000, .00000, .00000, + .00047, .00005, -.00020, .00000, .00000, + .00000, .00000, .00000, + .00041, .00005, -.00017, .00000, .00000, + .00000, .00000, .00000, + .00036, .00003, -.00014, .00000, .00000, + .00000, .00000, .00000, + .00031, .00003, -.00012, .00000, .00000, + .00000, .00000, .00000, + .00027, .00003, -.00010, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, -.00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00021, .00003, -.00008, .00000, .00000, + .00000, .00000, .00000, + .00019, .00001, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00013, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00009, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='ft09d.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