#include "pdf/pilot.h" subroutine sfmrs_99a6(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)/ + .00497, .00177, 1.15210, .89336, .00000, + .00000, .47667, .90539, + .00513, .00183, 2.47205, .93052, .00000, + .00000, .51900, .94263, + .00537, .00192, 5.03464, 1.01120, .00000, + .00000, .60700, 1.02342, + .00554, .00199, 7.43318, 1.08834, .04830, + .00000, .68924, 1.10062, + .00572, .00207, 10.34505, 1.18713, .16725, + .00000, .79318, 1.19948, + .00588, .00213, 13.33317, 1.28929, .27343, + .00000, .89967, 1.30168, + .00603, .00220, 16.68069, 1.40013, .39316, + .00000, 1.01455, 1.41255, + .00619, .00227, 20.78683, 1.53255, .53848, + .00000, 1.15116, 1.54500 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00633, .00233, 24.80729, 1.66186, .67612, + .00000, 1.28403, 1.67433, + .00647, .00239, 29.09272, 1.79950, .82038, + .00000, 1.42504, 1.81200, + .00658, .00244, 32.87029, 1.91693, .94795, + .00000, 1.54509, 1.92944, + .00681, .00254, 41.55747, 2.19668, 1.24255, + .04991, 1.83027, 2.20920, + .00702, .00263, 49.69793, 2.46693, 1.52425, + .38292, 2.10503, 2.47945, + .00725, .00274, 60.02327, 2.80539, 1.87769, + .78330, 2.44842, 2.81792, + .00749, .00285, 72.15387, 3.19814, 2.28702, + 1.21100, 2.84615, 3.21066, + .00771, .00295, 84.41103, 3.59208, 2.69672, + 1.63845, 3.24448, 3.60459 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00794, .00306, 98.05283, 4.02809, 3.14997, + 2.11006, 3.68481, 4.04058, + .00813, .00314, 110.37105, 4.42044, 3.55744, + 2.53295, 4.08066, 4.43291, + .00836, .00325, 126.40661, 4.93327, 4.08603, + 3.07418, 4.59765, 4.94571, + .00857, .00335, 141.74768, 5.42313, 4.59147, + 3.59405, 5.09109, 5.43554, + .00876, .00344, 156.87645, 5.90443, 5.08999, + 4.11059, 5.57562, 5.91681, + .00900, .00356, 177.12810, 6.55537, 5.75793, + 4.79199, 6.23056, 6.56771, + .00924, .00367, 197.54942, 7.21308, 6.43328, + 5.48291, 6.89194, 7.22538, + .00946, .00378, 217.98642, 7.87198, 7.11103, + 6.17877, 7.55422, 7.88424 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00968, .00389, 239.41856, 8.56906, 7.82488, + 6.90709, 8.25459, 8.58128, + .00990, .00399, 261.50864, 9.29117, 8.56406, + 7.66150, 8.97986, 9.30333, + .01011, .00410, 283.60461, 10.01490, 9.30620, + 8.42130, 9.70653, 10.02702, + .01031, .00419, 305.01801, 10.72516, 10.03058, + 9.15741, 10.41951, 10.73724, + .01051, .00429, 327.75452, 11.47855, 10.80199, + 9.94631, 11.17559, 11.49058, + .01071, .00439, 350.58826, 12.24562, 11.58317, + 10.73938, 11.94526, 12.25760, + .01090, .00449, 373.44971, 13.01297, 12.36754, + 11.54034, 12.71502, 13.02490, + .01109, .00458, 395.37778, 13.75926, 13.12668, + 12.31038, 13.46359, 13.77115 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01127, .00467, 418.56946, 14.54795, 13.93157, + 13.13096, 14.25452, 14.55980, + .01146, .00476, 441.74615, 15.34638, 14.74331, + 13.95443, 15.05515, 15.35818, + .01164, .00485, 464.72070, 16.13945, 15.55091, + 14.77582, 15.85027, 16.15120, + .01181, .00494, 486.97900, 16.91376, 16.33856, + 15.57600, 16.62651, 16.92547, + .01198, .00503, 509.94702, 17.71894, 17.15668, + 16.40602, 17.43362, 17.73061 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00674, .00246, 1.07231, .76209, .00000, + .00000, .40603, .76909, + .00696, .00255, 2.26038, .79622, .00000, + .00000, .44423, .80326, + .00729, .00269, 4.51702, .86720, .00000, + .00000, .52098, .87430, + .00754, .00280, 6.58703, .93350, .04105, + .00000, .59129, .94064, + .00779, .00291, 9.05823, 1.01709, .14163, + .00000, .67892, 1.02425, + .00801, .00301, 11.55681, 1.10236, .23019, + .00000, .76758, 1.10955, + .00822, .00310, 14.32226, 1.19408, .32913, + .00000, .86248, 1.20129, + .00845, .00320, 17.67462, 1.30278, .44817, + .00000, .97445, 1.31001 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00864, .00329, 20.92012, 1.40804, .55992, + .00000, 1.08250, 1.41529, + .00883, .00338, 24.34522, 1.51927, .67616, + .00000, 1.19636, 1.52653, + .00899, .00345, 27.34146, 1.61372, .77840, + .00000, 1.29285, 1.62098, + .00931, .00360, 34.14922, 1.83677, 1.01238, + .04013, 1.52014, 1.84404, + .00959, .00373, 40.43729, 2.05021, 1.23391, + .30140, 1.73709, 2.05748, + .00991, .00388, 48.31535, 2.31515, 1.50930, + .61356, 2.00587, 2.32243, + .01024, .00404, 57.45286, 2.61968, 1.82517, + .94323, 2.31427, 2.62696, + .01055, .00419, 66.57521, 2.92242, 2.13845, + 1.26964, 2.62042, 2.92969 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01086, .00434, 76.61635, 3.25472, 2.48216, + 1.62666, 2.95608, 3.26199, + .01112, .00447, 85.59460, 3.55153, 2.78884, + 1.94435, 3.25561, 3.55879, + .01144, .00462, 97.16595, 3.93651, 3.18360, + 2.34764, 3.64381, 3.94375, + .01172, .00476, 108.13094, 4.30154, 3.55834, + 2.73221, 4.01163, 4.30877, + .01198, .00489, 118.85684, 4.65794, 3.92568, + 3.11203, 4.37052, 4.66516, + .01232, .00506, 133.07704, 5.13635, 4.41410, + 3.60902, 4.85204, 5.14356, + .01264, .00521, 147.28285, 5.61618, 4.90440, + 4.10936, 5.33472, 5.62337, + .01293, .00536, 161.38051, 6.09369, 5.39326, + 4.61008, 5.81484, 6.10086 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01324, .00551, 176.03821, 6.59545, 5.90465, + 5.13048, 6.31916, 6.60260, + .01353, .00566, 191.02635, 7.11194, 6.43091, + 5.66620, 6.83810, 7.11907, + .01382, .00581, 205.91228, 7.62662, 6.95638, + 6.20286, 7.35505, 7.63373, + .01409, .00594, 220.22716, 8.12867, 7.46609, + 6.71942, 7.85921, 8.13575, + .01436, .00608, 235.33824, 8.65862, 8.00646, + 7.27071, 8.39124, 8.66569, + .01463, .00622, 250.40137, 9.19508, 8.55041, + 7.82144, 8.92971, 9.20212, + .01489, .00635, 265.40344, 9.72933, 9.09435, + 8.37556, 9.46585, 9.73635, + .01514, .00648, 279.69492, 10.24618, 9.61791, + 8.90520, 9.98446, 10.25319 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01539, .00661, 294.74033, 10.79024, 10.17103, + 9.46775, 10.53027, 10.79723, + .01564, .00673, 309.67938, 11.33826, 10.72596, + 10.02923, 11.07998, 11.34522, + .01588, .00686, 324.41992, 11.88047, 11.27606, + 10.58736, 11.62379, 11.88741, + .01611, .00698, 338.62619, 12.40765, 11.81034, + 11.12880, 12.15247, 12.41457, + .01634, .00710, 353.21179, 12.95363, 12.36305, + 11.68814, 12.69995, 12.96054 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00914, .00342, .99915, .64985, .00000, + .00000, .34595, .65332, + .00945, .00356, 2.06813, .68101, .00000, + .00000, .38031, .68449, + .00992, .00377, 4.05388, .74338, .00000, + .00000, .44722, .74689, + .01025, .00393, 5.83825, .80034, .03487, + .00000, .50732, .80386, + .01061, .00409, 7.93215, .87101, .11989, + .00000, .58115, .87454, + .01091, .00424, 10.01731, .94212, .19372, + .00000, .65491, .94566, + .01121, .00438, 12.29688, 1.01792, .27544, + .00000, .73320, 1.02148, + .01152, .00453, 15.02712, 1.10700, .37288, + .00000, .82484, 1.11057 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01179, .00466, 17.63990, 1.19253, .46353, + .00000, .91252, 1.19610, + .01206, .00479, 20.36929, 1.28221, .55709, + .00000, 1.00425, 1.28578, + .01227, .00489, 22.73849, 1.35799, .63894, + .00000, 1.08162, 1.36157, + .01272, .00511, 28.05524, 1.53533, .82453, + .03226, 1.26226, 1.53892, + .01311, .00530, 32.89364, 1.70338, .99847, + .23713, 1.43303, 1.70697, + .01355, .00552, 38.87954, 1.91007, 1.21269, + .48037, 1.64269, 1.91367, + .01401, .00574, 45.73190, 2.14535, 1.45596, + .73429, 1.88097, 2.14895, + .01443, .00595, 52.48901, 2.37710, 1.69501, + .98333, 2.11536, 2.38070 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01486, .00617, 59.84299, 2.62934, 1.95504, + 1.25334, 2.37018, 2.63294, + .01521, .00635, 66.35276, 2.85291, 2.18529, + 1.49172, 2.59586, 2.85651, + .01565, .00657, 74.65672, 3.14063, 2.47930, + 1.79182, 2.88606, 3.14423, + .01603, .00676, 82.44904, 3.41140, 2.75633, + 2.07587, 3.15897, 3.41499, + .01639, .00695, 90.00859, 3.67406, 3.02620, + 2.35470, 3.42356, 3.67766, + .01685, .00718, 99.93141, 4.02395, 3.38220, + 2.71649, 3.77584, 4.02754, + .01728, .00740, 109.74957, 4.37224, 3.73692, + 3.07807, 4.12632, 4.37583, + .01769, .00761, 119.40958, 4.71649, 4.08828, + 3.43757, 4.47258, 4.72008 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01810, .00782, 129.36427, 5.07573, 4.45326, + 3.80850, 4.83378, 5.07931, + .01850, .00803, 139.46075, 5.44312, 4.82646, + 4.18793, 5.20306, 5.44671, + .01889, .00823, 149.41571, 5.80709, 5.19701, + 4.56595, 5.56878, 5.81068, + .01925, .00842, 158.91158, 6.15992, 5.55414, + 4.92734, 5.92323, 6.16350, + .01962, .00862, 168.87665, 6.53054, 5.93104, + 5.31142, 6.29545, 6.53411, + .01998, .00881, 178.73265, 6.90346, 6.30807, + 5.69259, 6.66991, 6.90703, + .02033, .00899, 188.49651, 7.27318, 6.68355, + 6.07466, 7.04109, 7.27675, + .02067, .00917, 197.73083, 7.62890, 7.04289, + 6.43763, 7.39815, 7.63247 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02100, .00934, 207.40767, 8.00186, 7.42115, + 6.82189, 7.77246, 8.00542, + .02134, .00952, 216.95029, 8.37558, 7.79860, + 7.20324, 8.14748, 8.37914, + .02166, .00969, 226.32225, 8.74389, 8.17137, + 7.58100, 8.51703, 8.74746, + .02196, .00985, 235.30515, 9.10045, 8.53187, + 7.94586, 8.87474, 9.10401, + .02228, .01002, 244.47920, 9.46819, 8.90327, + 8.32121, 9.24363, 9.47175 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01092, .00416, .95959, .59191, .00000, + .00000, .31508, .59391, + .01130, .00433, 1.96438, .62137, .00000, + .00000, .34734, .62338, + .01187, .00460, 3.80630, .67916, .00000, + .00000, .40906, .68118, + .01228, .00479, 5.44118, .73125, .03170, + .00000, .46388, .73328, + .01271, .00500, 7.34003, .79528, .10873, + .00000, .53065, .79732, + .01308, .00518, 9.21384, .85918, .17509, + .00000, .59685, .86123, + .01343, .00536, 11.24731, .92694, .24812, + .00000, .66676, .92899, + .01382, .00554, 13.66535, 1.00616, .33475, + .00000, .74818, 1.00821 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01415, .00571, 15.96338, 1.08181, .41490, + .00000, .82571, 1.08387, + .01447, .00587, 18.34937, 1.16078, .49726, + .00000, .90644, 1.16284, + .01472, .00599, 20.41100, 1.22731, .56907, + .00000, .97434, 1.22937, + .01527, .00627, 25.00319, 1.38216, .73101, + .02838, 1.13203, 1.38423, + .01574, .00650, 29.14494, 1.52803, .88187, + .20600, 1.28025, 1.53011, + .01627, .00677, 34.23050, 1.70645, 1.06662, + .41613, 1.46122, 1.70853, + .01682, .00705, 40.00671, 1.90837, 1.27520, + .63398, 1.66572, 1.91046, + .01733, .00731, 45.66071, 2.10616, 1.47902, + .84644, 1.86579, 2.10826 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01784, .00758, 51.77266, 2.32035, 1.69959, + 1.07557, 2.08220, 2.32246, + .01827, .00780, 57.15047, 2.50934, 1.89402, + 1.27694, 2.27299, 2.51145, + .01879, .00807, 63.96812, 2.75140, 2.14109, + 1.52917, 2.51718, 2.75352, + .01926, .00831, 70.32844, 2.97818, 2.37286, + 1.76686, 2.74580, 2.98030, + .01969, .00853, 76.46835, 3.19733, 2.59781, + 1.99932, 2.96661, 3.19946, + .02023, .00882, 84.47935, 3.48791, 2.89313, + 2.29944, 3.25923, 3.49004, + .02075, .00909, 92.36030, 3.77587, 3.18610, + 2.59807, 3.54906, 3.77801, + .02124, .00935, 100.07452, 4.05934, 3.47513, + 2.89383, 3.83426, 4.06148 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02173, .00960, 107.98147, 4.35391, 3.77412, + 3.19767, 4.13051, 4.35606, + .02221, .00986, 115.96161, 4.65402, 4.07867, + 3.50728, 4.43223, 4.65618, + .02267, .01010, 123.79581, 4.95030, 4.38005, + 3.81474, 4.73001, 4.95246, + .02310, .01033, 131.23172, 5.23642, 4.66937, + 4.10747, 5.01752, 5.23859, + .02354, .01057, 139.00803, 5.53611, 4.97390, + 4.41781, 5.31858, 5.53829, + .02398, .01080, 146.66214, 5.83657, 5.27739, + 4.72455, 5.62036, 5.83875, + .02439, .01102, 154.22110, 6.13367, 5.57889, + 5.03134, 5.91870, 6.13585, + .02479, .01123, 161.33797, 6.41856, 5.86642, + 5.32172, 6.20474, 6.42075 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02519, .01144, 168.77577, 6.71656, 6.16846, + 5.62853, 6.50390, 6.71876, + .02559, .01166, 176.07950, 7.01423, 6.46885, + 5.93197, 6.80268, 7.01643, + .02597, .01186, 183.23259, 7.30691, 6.76488, + 6.23192, 7.09641, 7.30911, + .02633, .01206, 190.06569, 7.58951, 7.05041, + 6.52087, 7.38000, 7.59172, + .02670, .01225, 197.02168, 7.88025, 7.34384, + 6.81737, 7.67173, 7.88247 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01240, .00477, .93307, .55391, .00000, + .00000, .29491, .55511, + .01284, .00498, 1.89462, .58220, .00000, + .00000, .32573, .58340, + .01348, .00529, 3.64052, .63691, .00000, + .00000, .38401, .63812, + .01395, .00552, 5.17649, .68579, .02961, + .00000, .43536, .68701, + .01444, .00577, 6.94727, .74547, .10143, + .00000, .49753, .74670, + .01487, .00598, 8.68326, .80469, .16293, + .00000, .55882, .80592, + .01528, .00618, 10.55722, .86724, .23035, + .00000, .62330, .86848, + .01572, .00640, 12.77406, .94009, .31003, + .00000, .69815, .94133 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01610, .00660, 14.87037, 1.00940, .38345, + .00000, .76915, 1.01065, + .01646, .00678, 17.03738, 1.08150, .45865, + .00000, .84284, 1.08275, + .01676, .00693, 18.90361, 1.14212, .52407, + .00000, .90470, 1.14337, + .01738, .00725, 23.03825, 1.28265, .67102, + .02591, 1.04778, 1.28391, + .01792, .00752, 26.74322, 1.41446, .80731, + .18638, 1.18171, 1.41574, + .01852, .00783, 31.26778, 1.57505, .97355, + .37572, 1.34459, 1.57633, + .01916, .00816, 36.37778, 1.75602, 1.16044, + .57106, 1.52788, 1.75731, + .01973, .00846, 41.35311, 1.93260, 1.34233, + .76080, 1.70650, 1.93390 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02032, .00877, 46.70518, 2.12310, 1.53846, + .96466, 1.89900, 2.12442, + .02081, .00902, 51.39396, 2.29064, 1.71076, + 1.14321, 2.06816, 2.29196, + .02140, .00934, 57.31154, 2.50450, 1.92897, + 1.36607, 2.28393, 2.50583, + .02193, .00962, 62.80886, 2.70421, 2.13300, + 1.57541, 2.48529, 2.70555, + .02242, .00987, 68.09689, 2.89668, 2.33050, + 1.77961, 2.67924, 2.89803, + .02304, .01020, 74.96618, 3.15102, 2.58889, + 2.04229, 2.93542, 3.15238, + .02363, .01051, 81.69593, 3.40225, 2.84441, + 2.30283, 3.18833, 3.40362, + .02418, .01081, 88.25879, 3.64885, 3.09578, + 2.56015, 3.43648, 3.65024 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02474, .01111, 94.95933, 3.90434, 3.35501, + 2.82366, 3.69347, 3.90574, + .02528, .01140, 101.69788, 4.16390, 3.61834, + 3.09145, 3.95448, 4.16532, + .02580, .01168, 108.29245, 4.41952, 3.87830, + 3.35674, 4.21144, 4.42095, + .02630, .01194, 114.52911, 4.66570, 4.12715, + 3.60857, 4.45886, 4.66714, + .02679, .01221, 121.03493, 4.92302, 4.38859, + 3.87508, 4.71741, 4.92447, + .02729, .01247, 127.41595, 5.18031, 4.64840, + 4.13773, 4.97589, 5.18178, + .02776, .01273, 133.70337, 5.43426, 4.90608, + 4.40001, 5.23095, 5.43573, + .02820, .01297, 139.60374, 5.67718, 5.15118, + 4.64757, 5.47490, 5.67866 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02865, .01321, 145.75816, 5.93085, 5.40826, + 4.90880, 5.72961, 5.93235, + .02910, .01346, 151.78264, 6.18367, 5.66333, + 5.16649, 5.98342, 6.18518, + .02953, .01369, 157.67101, 6.43182, 5.91430, + 5.42085, 6.23252, 6.43335, + .02994, .01391, 163.28220, 6.67099, 6.15591, + 5.66541, 6.47257, 6.67253, + .03036, .01414, 168.98079, 6.91661, 6.40375, + 5.91589, 6.71907, 6.91816 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01368, .00531, .91347, .52611, .00000, + .00000, .28020, .52681, + .01417, .00555, 1.84275, .55349, .00000, + .00000, .30993, .55421, + .01489, .00591, 3.51742, .60592, .00000, + .00000, .36567, .60664, + .01541, .00617, 4.98048, .65244, .02809, + .00000, .41447, .65316, + .01596, .00644, 6.65742, .70895, .09609, + .00000, .47328, .70968, + .01643, .00668, 8.29293, .76475, .15406, + .00000, .53100, .76549, + .01689, .00692, 10.05108, .82352, .21742, + .00000, .59156, .82426, + .01737, .00716, 12.12249, .89176, .29206, + .00000, .66165, .89251 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01779, .00738, 14.07360, .95649, .36065, + .00000, .72794, .95725, + .01820, .00759, 16.08353, 1.02365, .43071, + .00000, .79657, 1.02442, + .01853, .00776, 17.81002, 1.08003, .49155, + .00000, .85408, 1.08079, + .01922, .00811, 21.61888, 1.21030, .62778, + .02414, .98672, 1.21108, + .01981, .00842, 25.01445, 1.33208, .75371, + .17242, 1.11045, 1.33287, + .02049, .00877, 29.14350, 1.47998, .90682, + .34703, 1.26047, 1.48078, + .02119, .00914, 33.78611, 1.64610, 1.07837, + .52647, 1.42872, 1.64692, + .02183, .00948, 38.28744, 1.80768, 1.24482, + .70022, 1.59218, 1.80851 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02247, .00982, 43.11102, 1.98151, 1.42377, + .88636, 1.76785, 1.98235, + .02301, .01011, 47.32240, 2.13398, 1.58059, + 1.04895, 1.92182, 2.13484, + .02367, .01046, 52.61868, 2.32809, 1.77863, + 1.25133, 2.11768, 2.32896, + .02426, .01077, 57.52249, 2.50889, 1.96335, + 1.44095, 2.30001, 2.50978, + .02480, .01106, 62.22643, 2.68277, 2.14177, + 1.62553, 2.47525, 2.68367, + .02548, .01143, 68.31583, 2.91193, 2.37457, + 1.86230, 2.70610, 2.91285, + .02613, .01177, 74.26198, 3.13772, 2.60420, + 2.09657, 2.93343, 3.13866, + .02674, .01210, 80.04373, 3.35884, 2.82961, + 2.32742, 3.15597, 3.35979 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02735, .01243, 85.92854, 3.58739, 3.06150, + 2.56324, 3.38591, 3.58836, + .02796, .01276, 91.82995, 3.81907, 3.29655, + 2.80237, 3.61893, 3.82007, + .02853, .01307, 97.59109, 4.04680, 3.52816, + 3.03884, 3.84788, 4.04781, + .02907, .01336, 103.02381, 4.26563, 3.74937, + 3.26277, 4.06786, 4.26666, + .02962, .01366, 108.67991, 4.49401, 3.98141, + 3.49943, 4.29737, 4.49505, + .03016, .01395, 114.21176, 4.72188, 4.21152, + 3.73212, 4.52633, 4.72294, + .03068, .01424, 119.65307, 4.94646, 4.43942, + 3.96420, 4.75193, 4.94754, + .03117, .01450, 124.74576, 5.16088, 4.65576, + 4.18278, 4.96730, 5.16197 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03167, .01477, 130.04980, 5.38450, 4.88242, + 4.41319, 5.19187, 5.38561, + .03216, .01504, 135.22879, 5.60695, 5.10686, + 4.64002, 5.41524, 5.60808, + .03263, .01530, 140.28278, 5.82503, 5.32743, + 4.86365, 5.63418, 5.82617, + .03308, .01555, 145.08955, 6.03489, 5.53946, + 5.07835, 5.84486, 6.03605, + .03354, .01580, 149.96169, 6.25010, 5.75664, + 5.29791, 6.06088, 6.25128 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01858, .00744, .85877, .44833, .00000, + .00000, .23924, .44815, + .01926, .00780, 1.69452, .47301, .00000, + .00000, .26579, .47284, + .02027, .00833, 3.16471, .51883, .00000, + .00000, .31425, .51868, + .02100, .00871, 4.42077, .55866, .02381, + .00000, .35590, .55852, + .02176, .00912, 5.83384, .60626, .08115, + .00000, .40533, .60615, + .02242, .00947, 7.18944, .65259, .12932, + .00000, .45317, .65249, + .02305, .00980, 8.62742, .70090, .18147, + .00000, .50290, .70082, + .02373, .01017, 10.29975, .75648, .24233, + .00000, .55994, .75642 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02431, .01048, 11.85531, .80869, .29772, + .00000, .61339, .80865, + .02488, .01078, 13.44014, .86240, .35383, + .00000, .66825, .86237, + .02532, .01103, 14.79030, .90724, .40228, + .00000, .71400, .90722, + .02628, .01154, 17.72866, 1.00983, .50971, + .01933, .81845, 1.00984, + .02710, .01199, 20.30523, 1.10470, .60795, + .13513, .91485, 1.10474, + .02802, .01249, 23.39581, 1.21876, .72619, + .27063, 1.03058, 1.21883, + .02899, .01302, 26.82159, 1.34551, .85728, + .40819, 1.15901, 1.34562, + .02986, .01350, 30.09879, 1.46758, .98320, + .54007, 1.28255, 1.46772 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03075, .01399, 33.56760, 1.59769, 1.11734, + .68003, 1.41411, 1.59786, + .03149, .01439, 36.56309, 1.71089, 1.23392, + .80127, 1.52848, 1.71109, + .03239, .01489, 40.28756, 1.85375, 1.37987, + .95083, 1.67272, 1.85398, + .03319, .01533, 43.69944, 1.98575, 1.51491, + 1.08985, 1.80590, 1.98601, + .03392, .01573, 46.94313, 2.11182, 1.64448, + 1.22429, 1.93305, 2.11212, + .03485, .01625, 51.09515, 2.27658, 1.81207, + 1.39517, 2.09913, 2.27692, + .03573, .01674, 55.10693, 2.43761, 1.97606, + 1.56291, 2.26137, 2.43799, + .03656, .01720, 58.97126, 2.59416, 2.13589, + 1.72706, 2.41903, 2.59458 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03739, .01766, 62.86501, 2.75476, 2.29905, + 1.89339, 2.58071, 2.75521, + .03820, .01811, 66.73438, 2.91642, 2.46329, + 2.06090, 2.74341, 2.91691, + .03898, .01854, 70.48190, 3.07434, 2.62415, + 2.22557, 2.90230, 3.07486, + .03971, .01895, 73.98219, 3.22503, 2.77668, + 2.38033, 3.05388, 3.22559, + .04044, .01936, 77.60398, 3.38150, 2.93592, + 2.54317, 3.21124, 3.38210, + .04117, .01977, 81.11302, 3.53658, 3.09272, + 2.70208, 3.36716, 3.53721, + .04186, .02015, 84.54561, 3.68871, 3.24736, + 2.85995, 3.52009, 3.68938, + .04252, .02052, 87.72998, 3.83305, 3.39318, + 3.00761, 3.66517, 3.83374 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04318, .02089, 91.03090, 3.98298, 3.54540, + 3.16274, 3.81585, 3.98371, + .04384, .02126, 94.22682, 4.13124, 3.69519, + 3.31446, 3.96483, 4.13200, + .04447, .02162, 97.33006, 4.27599, 3.84183, + 3.46349, 4.11025, 4.27679, + .04507, .02195, 100.26223, 4.41462, 3.98211, + 3.60587, 4.24953, 4.41545, + .04568, .02229, 103.21578, 4.55614, 4.12514, + 3.75078, 4.39168, 4.55700 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02531, .01051, .81642, .38240, .00000, + .00000, .20480, .38217, + .02627, .01104, 1.56805, .40450, .00000, + .00000, .22842, .40430, + .02767, .01182, 2.85632, .44439, .00000, + .00000, .27045, .44425, + .02868, .01238, 3.93113, .47836, .02012, + .00000, .30590, .47826, + .02974, .01298, 5.11658, .51831, .06831, + .00000, .34733, .51826, + .03066, .01349, 6.23410, .55661, .10821, + .00000, .38686, .55659, + .03154, .01398, 7.40295, .59614, .15096, + .00000, .42753, .59616, + .03247, .01451, 8.74377, .64116, .20037, + .00000, .47374, .64123 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03328, .01496, 9.97448, .68303, .24489, + .00000, .51661, .68313, + .03406, .01540, 11.21373, .72571, .28961, + .00000, .56023, .72585, + .03468, .01575, 12.26040, .76114, .32800, + .00000, .59640, .76131, + .03600, .01650, 14.50539, .84134, .41224, + .01542, .67810, .84157, + .03713, .01714, 16.43926, .91466, .48841, + .10540, .75266, .91495, + .03840, .01785, 18.72550, 1.00187, .57913, + .21001, .84123, 1.00223, + .03972, .01860, 21.22160, 1.09771, .67859, + .31489, .93843, 1.09814, + .04092, .01929, 23.57550, 1.18904, .77313, + .41438, 1.03095, 1.18952 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04213, .01998, 26.03455, 1.28544, .87287, + .51895, 1.12853, 1.28599, + .04314, .02055, 28.13335, 1.36858, .95881, + .60875, 1.21262, 1.36919, + .04436, .02125, 30.71111, 1.47255, 1.06541, + .71848, 1.31771, 1.47323, + .04544, .02187, 33.04573, 1.56780, 1.16321, + .81964, 1.41393, 1.56854, + .04644, .02243, 35.24431, 1.65813, 1.25639, + .91679, 1.50513, 1.65893, + .04770, .02315, 38.02420, 1.77511, 1.37579, + 1.03909, 1.62318, 1.77598, + .04889, .02383, 40.67988, 1.88847, 1.49166, + 1.15814, 1.73752, 1.88941, + .05001, .02447, 43.21231, 1.99785, 1.60374, + 1.27379, 1.84781, 1.99885 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05113, .02511, 45.73605, 2.10914, 1.71721, + 1.38998, 1.95998, 2.11020, + .05222, .02574, 48.21922, 2.22035, 1.83060, + 1.50615, 2.07204, 2.22148, + .05326, .02633, 50.60384, 2.32828, 1.94095, + 1.61964, 2.18075, 2.32947, + .05424, .02689, 52.80751, 2.43050, 2.04477, + 1.72543, 2.28370, 2.43175, + .05523, .02746, 55.07288, 2.53608, 2.15264, + 1.83624, 2.39001, 2.53739, + .05620, .02801, 57.24446, 2.63996, 2.25802, + 1.94351, 2.49458, 2.64133, + .05712, .02854, 59.35657, 2.74138, 2.36151, + 2.04965, 2.59666, 2.74281, + .05800, .02904, 61.29600, 2.83695, 2.45840, + 2.14817, 2.69283, 2.83843 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05889, .02955, 63.29677, 2.93582, 2.55916, + 2.25132, 2.79231, 2.93736, + .05976, .03005, 65.21503, 3.03295, 2.65763, + 2.35148, 2.89003, 3.03455, + .06060, .03053, 67.06784, 3.12739, 2.75365, + 2.44950, 2.98502, 3.12903, + .06139, .03098, 68.80563, 3.21736, 2.84503, + 2.54265, 3.07552, 3.21906, + .06220, .03144, 70.54349, 3.30876, 2.93773, + 2.63698, 3.16744, 3.31050 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03040, .01295, .79999, .34893, .00000, + .00000, .18741, .34897, + .03156, .01361, 1.50634, .36957, .00000, + .00000, .20941, .36967, + .03326, .01459, 2.69707, .40626, .00000, + .00000, .24800, .40644, + .03450, .01530, 3.67581, .43712, .01819, + .00000, .28019, .43736, + .03578, .01604, 4.74203, .47307, .06161, + .00000, .31747, .47338, + .03689, .01667, 5.73626, .50721, .09723, + .00000, .35272, .50759, + .03795, .01729, 6.76705, .54224, .13517, + .00000, .38877, .54267, + .03908, .01794, 7.93944, .58189, .17877, + .00000, .42949, .58239 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04006, .01850, 9.00668, .61853, .21781, + .00000, .46703, .61908, + .04100, .01905, 10.07349, .65567, .25682, + .00000, .50501, .65627, + .04175, .01948, 10.96970, .68640, .29018, + .00000, .53641, .68705, + .04334, .02040, 12.87452, .75549, .36294, + .01346, .60686, .75623, + .04470, .02119, 14.49702, .81820, .42827, + .09078, .67069, .81903, + .04623, .02207, 16.39781, .89232, .50558, + .18032, .74602, .89323, + .04781, .02299, 18.45350, .97319, .58976, + .26940, .82813, .97420, + .04925, .02382, 20.37475, 1.04976, .66926, + .35337, .90577, 1.05085 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05071, .02467, 22.36537, 1.13009, .75263, + .44109, .98717, 1.13128, + .05191, .02537, 24.05191, 1.19900, .82408, + .51602, 1.05694, 1.20026, + .05338, .02621, 26.10727, 1.28468, .91220, + .60705, 1.14364, 1.28604, + .05467, .02696, 27.95543, 1.36277, .99263, + .69055, 1.22260, 1.36420, + .05586, .02765, 29.68559, 1.43649, 1.06893, + .77040, 1.29711, 1.43800, + .05736, .02852, 31.85600, 1.53142, 1.16613, + .87031, 1.39302, 1.53303, + .05878, .02935, 33.91458, 1.62293, 1.25996, + .96707, 1.48542, 1.62464, + .06011, .03012, 35.86517, 1.71081, 1.35031, + 1.06064, 1.57413, 1.71260 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06143, .03088, 37.79520, 1.79978, 1.44130, + 1.15416, 1.66390, 1.80165, + .06273, .03164, 39.68221, 1.88827, 1.53182, + 1.24723, 1.75316, 1.89023, + .06396, .03235, 41.48458, 1.97380, 1.61956, + 1.33781, 1.83942, 1.97585, + .06512, .03302, 43.13845, 2.05443, 1.70170, + 1.42181, 1.92071, 2.05655, + .06629, .03370, 44.83183, 2.13745, 1.78680, + 1.50955, 2.00439, 2.13965, + .06743, .03436, 46.44350, 2.21874, 1.86953, + 1.59406, 2.08632, 2.22102, + .06853, .03499, 48.00557, 2.29788, 1.95056, + 1.67747, 2.16606, 2.30024, + .06956, .03559, 49.43001, 2.37214, 2.02606, + 1.75453, 2.24087, 2.37456 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07060, .03619, 50.89522, 2.44876, 2.10441, + 1.83504, 2.31805, 2.45125, + .07163, .03679, 52.29064, 2.52372, 2.18065, + 1.91286, 2.39356, 2.52629, + .07261, .03735, 53.63396, 2.59641, 2.25480, + 1.98884, 2.46676, 2.59905, + .07355, .03789, 54.88761, 2.66545, 2.32514, + 2.06081, 2.53628, 2.66815, + .07449, .03844, 56.13532, 2.73535, 2.39627, + 2.13345, 2.60666, 2.73811 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03467, .01509, .79367, .32741, .00000, + .00000, .17623, .32773, + .03600, .01587, 1.46940, .34704, .00000, + .00000, .19712, .34743, + .03796, .01701, 2.59423, .38154, .00000, + .00000, .23340, .38205, + .03938, .01784, 3.50849, .41032, .01690, + .00000, .26341, .41091, + .04085, .01871, 4.49530, .44361, .05715, + .00000, .29793, .44429, + .04212, .01945, 5.40800, .47501, .08996, + .00000, .33037, .47577, + .04334, .02016, 6.34806, .50708, .12474, + .00000, .36339, .50791, + .04463, .02092, 7.41044, .54322, .16453, + .00000, .40053, .54413 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04575, .02158, 8.37156, .57646, .20001, + .00000, .43461, .57744, + .04683, .02221, 9.32708, .61001, .23533, + .00000, .46895, .61106, + .04769, .02271, 10.12657, .63770, .26545, + .00000, .49726, .63881, + .04950, .02378, 11.81420, .69966, .33083, + .01219, .56048, .70088, + .05105, .02469, 13.23952, .75560, .38924, + .08143, .61747, .75692, + .05279, .02570, 14.89798, .82138, .45803, + .16137, .68440, .82282, + .05460, .02676, 16.67888, .89280, .53254, + .24046, .75697, .89436, + .05623, .02772, 18.33211, .96008, .60258, + .31465, .82527, .96175 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05788, .02869, 20.03442, 1.03036, .67571, + .39183, .89654, 1.03213, + .05925, .02950, 21.46873, 1.09040, .73813, + .45748, .95740, 1.09227, + .06091, .03047, 23.20642, 1.16474, .81479, + .53690, 1.03269, 1.16672, + .06237, .03132, 24.76046, 1.23222, .88448, + .60947, 1.10100, 1.23430, + .06372, .03211, 26.20878, 1.29572, .95039, + .67866, 1.16525, 1.29789, + .06542, .03311, 28.01467, 1.37714, 1.03398, + .76484, 1.24759, 1.37944, + .06702, .03404, 29.71816, 1.45532, 1.11436, + .84798, 1.32662, 1.45773, + .06852, .03492, 31.32450, 1.53014, 1.19150, + .92812, 1.40222, 1.53264 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07001, .03579, 32.90520, 1.60559, 1.26889, + 1.00789, 1.47843, 1.60820, + .07147, .03665, 34.44318, 1.68038, 1.34560, + 1.08702, 1.55395, 1.68309, + .07286, .03746, 35.90615, 1.75246, 1.41976, + 1.16381, 1.62672, 1.75527, + .07416, .03821, 37.24115, 1.82015, 1.48891, + 1.23475, 1.69504, 1.82306, + .07547, .03898, 38.60395, 1.88969, 1.56040, + 1.30870, 1.76521, 1.89269, + .07676, .03973, 39.89367, 1.95754, 1.62964, + 1.37965, 1.83367, 1.96063, + .07798, .04044, 41.14042, 2.02346, 1.69733, + 1.44955, 1.90017, 2.02664, + .07914, .04111, 42.27101, 2.08510, 1.76019, + 1.51389, 1.96233, 2.08836 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08031, .04179, 43.43150, 2.14859, 1.82530, + 1.58102, 2.02636, 2.15194, + .08146, .04246, 44.53075, 2.21051, 1.88845, + 1.64569, 2.08879, 2.21394, + .08256, .04310, 45.58630, 2.27044, 1.94976, + 1.70871, 2.14921, 2.27394, + .08360, .04370, 46.56750, 2.32721, 2.00778, + 1.76826, 2.20644, 2.33079, + .08465, .04431, 47.54026, 2.38456, 2.06630, + 1.82822, 2.26425, 2.38822 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03846, .01713, .79574, .31256, .00000, + .00000, .16833, .31290, + .03995, .01801, 1.44791, .33141, .00000, + .00000, .18835, .33184, + .04214, .01930, 2.52251, .36424, .00000, + .00000, .22283, .36481, + .04372, .02024, 3.38787, .39142, .01593, + .00000, .25117, .39210, + .04537, .02122, 4.31463, .42269, .05377, + .00000, .28359, .42347, + .04678, .02205, 5.16600, .45204, .08446, + .00000, .31390, .45291, + .04814, .02285, 6.03804, .48189, .11688, + .00000, .34464, .48285, + .04957, .02370, 7.01827, .51541, .15384, + .00000, .37910, .51647 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05082, .02444, 7.90051, .54613, .18666, + .00000, .41060, .54727, + .05201, .02515, 8.77361, .57703, .21924, + .00000, .44223, .57825, + .05296, .02571, 9.50170, .60248, .24696, + .00000, .46826, .60377, + .05497, .02690, 11.02979, .65919, .30691, + .01125, .52616, .66062, + .05669, .02792, 12.31109, .71018, .36023, + .07455, .57813, .71172, + .05861, .02905, 13.79350, .76990, .42279, + .14746, .63892, .77158, + .06061, .03023, 15.37594, .83446, .49028, + .21924, .70456, .83627, + .06241, .03130, 16.83659, .89503, .55346, + .28633, .76609, .89697 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06423, .03237, 18.33274, .95806, .61919, + .35586, .83007, .96014, + .06574, .03326, 19.58747, 1.01174, .67511, + .41482, .88450, 1.01392, + .06757, .03434, 21.10022, 1.07797, .74354, + .48588, .95163, 1.08028, + .06918, .03529, 22.44679, 1.13789, .80555, + .55061, 1.01233, 1.14032, + .07066, .03616, 23.69690, 1.19412, .86405, + .61217, 1.06927, 1.19666, + .07252, .03725, 25.24784, 1.26597, .93797, + .68856, 1.14198, 1.26864, + .07428, .03828, 26.70392, 1.33473, 1.00882, + .76203, 1.21154, 1.33753, + .07592, .03925, 28.07131, 1.40034, 1.07662, + .83264, 1.27790, 1.40326 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07755, .04020, 29.41074, 1.46629, 1.14442, + .90271, 1.34457, 1.46933, + .07915, .04114, 30.70846, 1.53148, 1.21144, + .97202, 1.41045, 1.53464, + .08067, .04203, 31.93857, 1.59416, 1.27608, + 1.03912, 1.47378, 1.59743, + .08209, .04286, 33.05578, 1.65284, 1.33616, + 1.10091, 1.53306, 1.65621, + .08352, .04369, 34.19343, 1.71301, 1.39816, + 1.16522, 1.59382, 1.71649, + .08492, .04451, 35.26458, 1.77154, 1.45803, + 1.22671, 1.65292, 1.77512, + .08626, .04529, 36.29782, 1.82830, 1.51646, + 1.28722, 1.71024, 1.83198, + .08751, .04602, 37.23009, 1.88123, 1.57056, + 1.34274, 1.76366, 1.88500 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .08879, .04676, 38.18533, 1.93566, 1.62653, + 1.40060, 1.81861, 1.93953, + .09004, .04749, 39.08587, 1.98861, 1.68066, + 1.45617, 1.87204, 1.99257, + .09123, .04818, 39.94881, 2.03976, 1.73314, + 1.51026, 1.92367, 2.04382, + .09236, .04884, 40.74811, 2.08813, 1.78269, + 1.56125, 1.97247, 2.09226, + .09350, .04950, 41.53778, 2.13688, 1.83257, + 1.61250, 2.02166, 2.14110 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .05346, .02571, .82421, .27192, .00000, + .00000, .14689, .27284, + .05557, .02700, 1.40678, .28843, .00000, + .00000, .16438, .28950, + .05865, .02889, 2.33308, .31633, .00000, + .00000, .19366, .31764, + .06087, .03025, 3.05597, .33894, .01315, + .00000, .21723, .34042, + .06317, .03165, 3.81037, .36446, .04421, + .00000, .24372, .36611, + .06514, .03284, 4.48788, .38799, .06895, + .00000, .26806, .38980, + .06702, .03399, 5.16906, .41163, .09478, + .00000, .29246, .41359, + .06902, .03519, 5.92117, .43787, .12389, + .00000, .31949, .43998 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07074, .03624, 6.58650, .46161, .14943, + .00000, .34389, .46385, + .07239, .03723, 7.23493, .48523, .17451, + .00000, .36814, .48760, + .07370, .03802, 7.76962, .50454, .19571, + .00000, .38795, .50702, + .07645, .03969, 8.87006, .54703, .24096, + .00868, .43145, .54971, + .07880, .04110, 9.77022, .58467, .28066, + .05606, .46994, .58754, + .08141, .04266, 10.79176, .62818, .32662, + .11020, .51437, .63126, + .08412, .04428, 11.86036, .67454, .37553, + .16269, .56167, .67784, + .08656, .04574, 12.82780, .71746, .42071, + .21112, .60542, .72095 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .08901, .04720, 13.80123, .76158, .46715, + .26072, .65035, .76526, + .09103, .04841, 14.60460, .79873, .50623, + .30231, .68817, .80258, + .09347, .04985, 15.55652, .84403, .55349, + .35186, .73425, .84807, + .09562, .05113, 16.39053, .88456, .59587, + .39654, .77547, .88877, + .09758, .05229, 17.15484, .92226, .63549, + .43866, .81379, .92663, + .10005, .05375, 18.08579, .96985, .68496, + .49028, .86214, .97441, + .10236, .05511, 18.94567, 1.01489, .73186, + .53943, .90789, 1.01963, + .10452, .05638, 19.74168, 1.05745, .77632, + .58622, .95111, 1.06237 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10667, .05763, 20.50825, 1.09977, .82030, + .63215, .99407, 1.10486, + .10876, .05886, 21.23989, 1.14119, .86337, + .67716, 1.03611, 1.14645, + .11073, .06001, 21.92497, 1.18068, .90457, + .72040, 1.07619, 1.18610, + .11257, .06108, 22.53596, 1.21727, .94246, + .75979, 1.11331, 1.22283, + .11442, .06216, 23.15286, 1.25455, .98133, + .80056, 1.15113, 1.26026, + .11623, .06321, 23.72261, 1.29043, 1.01846, + .83913, 1.18753, 1.29628, + .11795, .06421, 24.26826, 1.32503, 1.05452, + .87690, 1.22263, 1.33102, + .11956, .06514, 24.75106, 1.35697, 1.08756, + .91119, 1.25502, 1.36309 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12119, .06608, 25.24298, 1.38966, 1.12160, + .94678, 1.28818, 1.39591, + .12278, .06700, 25.69785, 1.42115, 1.15420, + .98064, 1.32011, 1.42753, + .12430, .06788, 26.13047, 1.45142, 1.18565, + 1.01344, 1.35081, 1.45792, + .12574, .06871, 26.52566, 1.47982, 1.21513, + 1.04415, 1.37961, 1.48644, + .12719, .06954, 26.91077, 1.50825, 1.24460, + 1.07479, 1.40845, 1.51498 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07560, .03967, .91292, .24032, .00000, + .00000, .13006, .24233, + .07859, .04153, 1.42618, .25458, .00000, + .00000, .14517, .25685, + .08294, .04422, 2.20793, .27787, .00000, + .00000, .16967, .28052, + .08605, .04613, 2.79638, .29627, .01070, + .00000, .18892, .29920, + .08926, .04810, 3.39298, .31663, .03576, + .00000, .21014, .31984, + .09199, .04976, 3.91513, .33504, .05534, + .00000, .22926, .33849, + .09459, .05135, 4.42893, .35328, .07551, + .00000, .24817, .35696, + .09733, .05301, 4.98466, .37324, .09794, + .00000, .26884, .37716 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .09969, .05444, 5.46656, .39104, .11735, + .00000, .28724, .39517, + .10195, .05580, 5.92794, .40854, .13619, + .00000, .30530, .41286, + .10373, .05687, 6.30342, .42272, .15198, + .00000, .31993, .42720, + .10747, .05912, 7.05827, .45346, .18520, + .00655, .35160, .45827, + .11063, .06101, 7.65711, .48025, .21388, + .04107, .37916, .48534, + .11414, .06309, 8.32119, .51073, .24660, + .08018, .41048, .51612, + .11775, .06523, 8.99907, .54268, .28086, + .11743, .44330, .54839, + .12099, .06714, 9.59853, .57180, .31204, + .15130, .47318, .57778 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12422, .06905, 10.18866, .60130, .34364, + .18551, .50344, .60756, + .12688, .07061, 10.66596, .62582, .36990, + .21385, .52858, .63231, + .13007, .07247, 11.21926, .65528, .40122, + .24716, .55879, .66205, + .13286, .07410, 11.69438, .68131, .42896, + .27684, .58547, .68833, + .13541, .07558, 12.12279, .70527, .45465, + .30456, .61001, .71250, + .13859, .07742, 12.63177, .73507, .48625, + .33804, .64054, .74257, + .14156, .07913, 13.09207, .76290, .51584, + .36954, .66906, .77066, + .14431, .08072, 13.51032, .78890, .54359, + .39922, .69568, .79690 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14704, .08228, 13.90359, .81441, .57068, + .42798, .72181, .82264, + .14968, .08379, 14.27116, .83908, .59692, + .45586, .74709, .84754, + .15216, .08520, 14.60968, .86238, .62179, + .48242, .77095, .87104, + .15447, .08651, 14.90318, .88367, .64436, + .50630, .79276, .89253, + .15679, .08783, 15.19638, .90521, .66737, + .53086, .81483, .91426, + .15903, .08909, 15.45894, .92565, .68905, + .55380, .83577, .93489, + .16116, .09029, 15.70822, .94524, .71000, + .57615, .85585, .95466, + .16314, .09141, 15.92168, .96309, .72894, + .59618, .87414, .97267 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16515, .09253, 16.13783, .98126, .74836, + .61689, .89277, .99101, + .16710, .09362, 16.33095, .99853, .76674, + .63635, .91048, 1.00845, + .16895, .09466, 16.51272, 1.01504, .78436, + .65510, .92741, 1.02511, + .17070, .09563, 16.67480, 1.03038, .80074, + .67251, .94315, 1.04060, + .17245, .09660, 16.82891, 1.04560, .81697, + .68973, .95876, 1.05596 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .09355, .05163, 1.00255, .22523, .00000, + .00000, .12211, .22844, + .09721, .05389, 1.46987, .23815, .00000, + .00000, .13585, .24170, + .10251, .05714, 2.16566, .25881, .00000, + .00000, .15768, .26286, + .10628, .05944, 2.67709, .27487, .00939, + .00000, .17457, .27927, + .11015, .06178, 3.18584, .29241, .03127, + .00000, .19295, .29717, + .11344, .06376, 3.62384, .30807, .04815, + .00000, .20931, .31314, + .11656, .06564, 4.04870, .32343, .06538, + .00000, .22534, .32879, + .11984, .06761, 4.50197, .34009, .08437, + .00000, .24270, .34575 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12265, .06928, 4.88988, .35482, .10066, + .00000, .25802, .36074, + .12533, .07088, 5.25689, .36916, .11634, + .00000, .27293, .37533, + .12745, .07213, 5.55296, .38073, .12942, + .00000, .28494, .38710, + .13187, .07474, 6.13851, .40555, .15667, + .00547, .31068, .41232, + .13559, .07693, 6.59267, .42694, .17995, + .03370, .33285, .43405, + .13970, .07933, 7.08845, .45103, .20624, + .06549, .35778, .45851, + .14391, .08178, 7.58590, .47599, .23348, + .09543, .38361, .48385, + .14768, .08395, 8.01823, .49849, .25802, + .12238, .40689, .50669 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15142, .08611, 8.43715, .52106, .28267, + .14937, .43024, .52960, + .15449, .08788, 8.77135, .53965, .30298, + .17155, .44947, .54847, + .15815, .08996, 9.15197, .56178, .32698, + .19738, .47235, .57092, + .16135, .09178, 9.47397, .58116, .34807, + .22022, .49238, .59058, + .16426, .09343, 9.76091, .59886, .36746, + .24141, .51069, .60854, + .16788, .09547, 10.09497, .62065, .39108, + .26678, .53322, .63065, + .17124, .09736, 10.39181, .64081, .41302, + .29045, .55408, .65111, + .17435, .09910, 10.65745, .65950, .43344, + .31259, .57341, .67006 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .17741, .10080, 10.90223, .67766, .45320, + .33388, .59221, .68849, + .18036, .10244, 11.12703, .69507, .47219, + .35436, .61023, .70615, + .18314, .10398, 11.33126, .71139, .49008, + .37376, .62714, .72271, + .18570, .10539, 11.50352, .72616, .50617, + .39105, .64244, .73770, + .18827, .10680, 11.67420, .74103, .52250, + .40876, .65786, .75279, + .19075, .10815, 11.82219, .75498, .53774, + .42515, .67234, .76695, + .19311, .10944, 11.96179, .76830, .55241, + .44107, .68616, .78048, + .19528, .11062, 12.07692, .78031, .56555, + .45522, .69863, .79266 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19748, .11181, 12.19303, .79249, .57899, + .46980, .71128, .80504, + .19960, .11295, 12.29266, .80396, .59159, + .48338, .72320, .81668, + .20163, .11404, 12.38553, .81486, .60362, + .49643, .73455, .82775, + .20352, .11506, 12.46577, .82492, .61474, + .50847, .74502, .83796, + .20542, .11608, 12.53953, .83482, .62568, + .52032, .75533, .84802 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .10946, .06247, 1.08535, .21588, .00000, + .00000, .11722, .22034, + .11367, .06504, 1.51730, .22780, .00000, + .00000, .12998, .23268, + .11974, .06870, 2.14972, .24658, .00000, + .00000, .14994, .25205, + .12405, .07129, 2.60621, .26100, .00850, + .00000, .16521, .26689, + .12845, .07391, 3.05364, .27659, .02824, + .00000, .18164, .28290, + .13218, .07612, 3.43406, .29036, .04332, + .00000, .19614, .29704, + .13571, .07821, 3.79900, .30378, .05860, + .00000, .21024, .31079, + .13940, .08039, 4.18424, .31823, .07533, + .00000, .22540, .32560 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14257, .08224, 4.51056, .33091, .08958, + .00000, .23868, .33858, + .14558, .08399, 4.81642, .34318, .10322, + .00000, .25153, .35113, + .14795, .08538, 5.06147, .35303, .11455, + .00000, .26184, .36121, + .15289, .08823, 5.53957, .37400, .13797, + .00477, .28376, .38264, + .15702, .09061, 5.90339, .39191, .15781, + .02900, .30247, .40094, + .16158, .09322, 6.29537, .41191, .18005, + .05617, .32335, .42136, + .16624, .09586, 6.68312, .43246, .20291, + .08153, .34479, .44233, + .17038, .09820, 7.01530, .45082, .22334, + .10419, .36396, .46107 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17449, .10052, 7.33283, .46909, .24371, + .12673, .38303, .47972, + .17784, .10240, 7.58298, .48403, .26039, + .14513, .39863, .49496, + .18183, .10462, 7.86358, .50167, .27996, + .16642, .41705, .51296, + .18531, .10654, 8.09776, .51700, .29703, + .18513, .43306, .52860, + .18846, .10828, 8.30422, .53093, .31266, + .20240, .44762, .54281, + .19237, .11042, 8.53996, .54791, .33154, + .22293, .46538, .56014, + .19598, .11240, 8.74601, .56352, .34896, + .24196, .48171, .57606, + .19932, .11421, 8.92776, .57788, .36509, + .25968, .49674, .59071 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20259, .11598, 9.09172, .59172, .38058, + .27659, .51124, .60484, + .20574, .11767, 9.23951, .60489, .39537, + .29278, .52506, .61828, + .20869, .11925, 9.37189, .61717, .40925, + .30804, .53794, .63081, + .21141, .12070, 9.48006, .62818, .42162, + .32154, .54951, .64205, + .21412, .12215, 9.58639, .63922, .43415, + .33534, .56112, .65332, + .21673, .12352, 9.67493, .64948, .44574, + .34801, .57193, .66380, + .21921, .12482, 9.75795, .65924, .45687, + .36029, .58221, .67377, + .22149, .12602, 9.82301, .66796, .46676, + .37112, .59140, .68267 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22378, .12722, 9.88844, .67678, .47685, + .38226, .60072, .69169, + .22599, .12837, 9.94126, .68499, .48624, + .39257, .60940, .70008, + .22810, .12946, 9.98985, .69278, .49518, + .40244, .61765, .70804, + .23006, .13048, 10.02979, .69991, .50339, + .41151, .62520, .71532, + .23203, .13149, 10.06443, .70687, .51143, + .42039, .63260, .72245 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .12410, .07252, 1.15929, .20917, .00000, + .00000, .11379, .21494, + .12878, .07532, 1.56198, .22029, .00000, + .00000, .12577, .22653, + .13549, .07932, 2.14341, .23757, .00000, + .00000, .14427, .24449, + .14026, .08213, 2.55684, .25071, .00783, + .00000, .15829, .25811, + .14509, .08496, 2.95711, .26480, .02597, + .00000, .17325, .27267, + .14918, .08734, 3.29394, .27715, .03970, + .00000, .18634, .28541, + .15304, .08958, 3.61406, .28910, .05354, + .00000, .19900, .29774, + .15708, .09191, 3.94900, .30189, .06862, + .00000, .21253, .31093 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16053, .09389, 4.23031, .31305, .08138, + .00000, .22432, .32242, + .16380, .09576, 4.49187, .32378, .09353, + .00000, .23565, .33347, + .16637, .09723, 4.70020, .33237, .10358, + .00000, .24472, .34230, + .17171, .10026, 5.10186, .35054, .12426, + .00427, .26387, .36097, + .17617, .10277, 5.40221, .36593, .14165, + .02564, .28010, .37679, + .18108, .10550, 5.72203, .38300, .16102, + .04952, .29808, .39432, + .18606, .10827, 6.03436, .40040, .18079, + .07165, .31642, .41218, + .19049, .11072, 6.29852, .41584, .19835, + .09131, .33269, .42802 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19487, .11312, 6.54792, .43109, .21575, + .11074, .34878, .44367, + .19843, .11507, 6.74202, .44348, .22991, + .12652, .36186, .45639, + .20266, .11736, 6.95646, .45801, .24643, + .14468, .37720, .47129, + .20632, .11933, 7.13310, .47055, .26077, + .16057, .39046, .48416, + .20965, .12112, 7.28726, .48189, .27383, + .17517, .40245, .49579, + .21374, .12330, 7.45970, .49561, .28952, + .19242, .41697, .50987, + .21752, .12531, 7.60792, .50812, .30391, + .20833, .43024, .52271, + .22101, .12715, 7.73664, .51957, .31716, + .22308, .44239, .53446 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22442, .12893, 7.84977, .53052, .32981, + .23707, .45403, .54570, + .22768, .13063, 7.94971, .54088, .34183, + .25040, .46505, .55633, + .23073, .13222, 8.03785, .55048, .35305, + .26292, .47529, .56619, + .23353, .13366, 8.10684, .55900, .36300, + .27394, .48440, .57494, + .23633, .13510, 8.17402, .56753, .37304, + .28516, .49351, .58370, + .23900, .13646, 8.22701, .57538, .38227, + .29541, .50192, .59176, + .24153, .13775, 8.27633, .58282, .39110, + .30532, .50991, .59942, + .24385, .13892, 8.31174, .58940, .39890, + .31400, .51698, .60618 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24620, .14010, 8.34726, .59604, .40684, + .32293, .52414, .61301, + .24844, .14123, 8.37286, .60216, .41417, + .33113, .53075, .61931, + .25058, .14229, 8.39585, .60794, .42114, + .33897, .53700, .62526, + .25256, .14328, 8.41273, .61320, .42751, + .34615, .54270, .63067, + .25454, .14426, 8.42525, .61830, .43371, + .35314, .54825, .63593 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .15094, .09091, 1.28407, .19960, .00000, + .00000, .10906, .20807, + .15638, .09406, 1.63853, .20940, .00000, + .00000, .11979, .21845, + .16414, .09852, 2.13917, .22435, .00000, + .00000, .13607, .23418, + .16960, .10162, 2.48658, .23553, .00685, + .00000, .14818, .24592, + .17512, .10474, 2.81601, .24735, .02263, + .00000, .16096, .25829, + .17976, .10734, 3.08862, .25757, .03442, + .00000, .17198, .26897, + .18413, .10978, 3.34378, .26736, .04619, + .00000, .18254, .27919, + .18868, .11231, 3.60686, .27774, .05889, + .00000, .19373, .29002 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19256, .11444, 3.82463, .28670, .06954, + .00000, .20337, .29935, + .19621, .11644, 4.02435, .29523, .07961, + .00000, .21256, .30824, + .19909, .11801, 4.18188, .30203, .08789, + .00000, .21987, .31530, + .20502, .12122, 4.47894, .31622, .10474, + .00356, .23514, .33006, + .20993, .12387, 4.69390, .32811, .11876, + .02100, .24792, .34241, + .21530, .12673, 4.91790, .34113, .13422, + .04038, .26193, .35592, + .22074, .12961, 5.13153, .35421, .14981, + .05812, .27604, .36950, + .22553, .13212, 5.30770, .36567, .16352, + .07372, .28840, .38139 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23025, .13458, 5.46988, .37685, .17697, + .08901, .30049, .39299, + .23407, .13657, 5.59303, .38585, .18782, + .10132, .31022, .40232, + .23857, .13888, 5.72512, .39624, .20033, + .11536, .32149, .41310, + .24246, .14086, 5.83078, .40512, .21110, + .12754, .33114, .42231, + .24597, .14264, 5.92086, .41307, .22085, + .13866, .33979, .43056, + .25027, .14480, 6.01668, .42253, .23241, + .15167, .35013, .44039, + .25421, .14677, 6.09572, .43106, .24292, + .16357, .35946, .44924, + .25783, .14856, 6.16176, .43877, .25252, + .17452, .36793, .45725 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26134, .15029, 6.21587, .44604, .26159, + .18481, .37593, .46479, + .26469, .15192, 6.26045, .45282, .27013, + .19454, .38343, .47184, + .26781, .15344, 6.29765, .45905, .27805, + .20362, .39033, .47832, + .27064, .15480, 6.32243, .46448, .28498, + .21153, .39638, .48396, + .27347, .15616, 6.34576, .46987, .29195, + .21956, .40240, .48957, + .27616, .15743, 6.35926, .47473, .29827, + .22681, .40787, .49464, + .27869, .15862, 6.37139, .47932, .30431, + .23380, .41303, .49942, + .28100, .15970, 6.37489, .48328, .30956, + .23986, .41752, .50355 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28333, .16078, 6.37839, .48727, .31489, + .24607, .42205, .50770, + .28553, .16180, 6.37518, .49085, .31975, + .25172, .42615, .51144, + .28763, .16277, 6.37123, .49421, .32435, + .25710, .43001, .51495, + .28957, .16365, 6.36408, .49721, .32851, + .26199, .43348, .51809, + .29149, .16452, 6.35376, .50007, .33253, + .26671, .43682, .52108 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .18744, .11549, 1.42374, .18946, .00000, + .00000, .10432, .20212, + .19371, .11894, 1.72086, .19772, .00000, + .00000, .11362, .21102, + .20257, .12376, 2.13009, .21002, .00000, + .00000, .12741, .22422, + .20877, .12708, 2.40590, .21904, .00583, + .00000, .13749, .23387, + .21499, .13039, 2.66073, .22843, .01916, + .00000, .14795, .24386, + .22018, .13313, 2.86733, .23642, .02898, + .00000, .15684, .25235, + .22504, .13568, 3.05714, .24397, .03868, + .00000, .16526, .26037, + .23008, .13831, 3.24928, .25189, .04903, + .00000, .17407, .26876 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23434, .14051, 3.40535, .25863, .05762, + .00000, .18157, .27590, + .23834, .14256, 3.54596, .26498, .06565, + .00000, .18865, .28262, + .24148, .14416, 3.65554, .27000, .07223, + .00000, .19424, .28792, + .24789, .14741, 3.85566, .28033, .08544, + .00288, .20577, .29883, + .25317, .15005, 3.99297, .28885, .09629, + .01660, .21528, .30781, + .25890, .15290, 4.13168, .29802, .10811, + .03175, .22554, .31748, + .26465, .15571, 4.25912, .30707, .11987, + .04544, .23572, .32702, + .26968, .15816, 4.35989, .31486, .13008, + .05734, .24450, .33523 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27459, .16052, 4.44873, .32234, .13998, + .06887, .25297, .34311, + .27854, .16240, 4.51326, .32825, .14788, + .07807, .25969, .34933, + .28316, .16457, 4.57804, .33496, .15688, + .08845, .26736, .35641, + .28711, .16641, 4.62673, .34059, .16455, + .09737, .27383, .36235, + .29066, .16806, 4.66617, .34557, .17142, + .10546, .27956, .36759, + .29497, .17003, 4.70279, .35135, .17946, + .11479, .28629, .37369, + .29888, .17179, 4.72898, .35646, .18669, + .12326, .29227, .37908, + .30245, .17339, 4.74775, .36100, .19322, + .13097, .29762, .38388 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30588, .17490, 4.75835, .36517, .19931, + .13815, .30258, .38828, + .30912, .17632, 4.76292, .36897, .20497, + .14487, .30714, .39230, + .31212, .17763, 4.76392, .37240, .21018, + .15110, .31130, .39593, + .31482, .17878, 4.75809, .37528, .21466, + .15645, .31484, .39898, + .31751, .17991, 4.75139, .37812, .21915, + .16186, .31834, .40199, + .32002, .18095, 4.73833, .38056, .22314, + .16669, .32142, .40459, + .32239, .18194, 4.72570, .38285, .22694, + .17132, .32432, .40702, + .32451, .18280, 4.70873, .38473, .23019, + .17527, .32676, .40902 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32665, .18367, 4.69184, .38662, .23347, + .17932, .32921, .41103, + .32865, .18447, 4.67082, .38821, .23641, + .18295, .33135, .41272, + .33054, .18521, 4.65041, .38968, .23917, + .18639, .33334, .41430, + .33228, .18589, 4.62901, .39094, .24163, + .18948, .33509, .41564, + .33398, .18655, 4.60554, .39208, .24398, + .19245, .33672, .41687 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .24236, .15092, 1.56293, .17648, .00000, + .00000, .09863, .19613, + .24945, .15447, 1.78762, .18273, .00000, + .00000, .10610, .20306, + .25936, .15936, 2.08698, .19179, .00000, + .00000, .11689, .21303, + .26620, .16269, 2.28092, .19827, .00468, + .00000, .12459, .22013, + .27299, .16595, 2.45289, .20487, .01529, + .00000, .13242, .22732, + .27860, .16861, 2.58834, .21035, .02296, + .00000, .13895, .23329, + .28382, .17106, 2.70953, .21546, .03044, + .00000, .14503, .23883, + .28918, .17356, 2.82893, .22071, .03831, + .00000, .15130, .24452 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29367, .17563, 2.92303, .22510, .04476, + .00000, .15656, .24927, + .29786, .17753, 3.00531, .22916, .05071, + .00000, .16144, .25366, + .30113, .17900, 3.06827, .23233, .05555, + .00000, .16526, .25709, + .30772, .18196, 3.17620, .23874, .06513, + .00218, .17299, .26399, + .31308, .18431, 3.24208, .24388, .07287, + .01221, .17924, .26951, + .31882, .18679, 3.30396, .24928, .08116, + .02320, .18586, .27531, + .32450, .18920, 3.35572, .25445, .08929, + .03296, .19225, .28085, + .32941, .19125, 3.39198, .25875, .09622, + .04133, .19765, .28547 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33414, .19318, 3.41952, .26275, .10283, + .04934, .20272, .28976, + .33790, .19471, 3.43606, .26583, .10804, + .05564, .20668, .29306, + .34222, .19641, 3.44715, .26918, .11387, + .06266, .21107, .29666, + .34588, .19783, 3.45137, .27190, .11877, + .06863, .21468, .29956, + .34912, .19908, 3.45197, .27424, .12311, + .07398, .21783, .30206, + .35299, .20052, 3.44430, .27680, .12809, + .08007, .22140, .30480, + .35646, .20177, 3.43235, .27895, .13248, + .08551, .22448, .30711, + .35958, .20288, 3.41792, .28077, .13640, + .09042, .22716, .30906 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .36251, .20389, 3.39863, .28232, .13999, + .09493, .22953, .31072, + .36524, .20481, 3.37662, .28364, .14327, + .09909, .23165, .31212, + .36774, .20564, 3.35419, .28477, .14624, + .10291, .23353, .31333, + .36994, .20633, 3.32924, .28558, .14874, + .10614, .23503, .31420, + .37211, .20700, 3.30409, .28636, .15122, + .10938, .23649, .31503, + .37408, .20757, 3.27591, .28689, .15336, + .11222, .23768, .31561, + .37593, .20811, 3.24940, .28737, .15539, + .11493, .23879, .31613, + .37754, .20855, 3.22158, .28763, .15706, + .11719, .23961, .31640 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37915, .20898, 3.19403, .28788, .15875, + .11950, .24044, .31667, + .38061, .20934, 3.16462, .28795, .16021, + .12154, .24107, .31674, + .38199, .20968, 3.13670, .28799, .16156, + .12345, .24164, .31678, + .38322, .20996, 3.10932, .28793, .16274, + .12515, .24208, .31672, + .38440, .21021, 3.08087, .28780, .16384, + .12675, .24244, .31658 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .29239, .18124, 1.62085, .16505, .00000, + .00000, .09384, .19140, + .29981, .18460, 1.79131, .16975, .00000, + .00000, .09989, .19670, + .31006, .18914, 2.01192, .17640, .00000, + .00000, .10844, .20414, + .31706, .19220, 2.14963, .18106, .00387, + .00000, .11443, .20931, + .32391, .19515, 2.26652, .18572, .01258, + .00000, .12042, .21445, + .32954, .19750, 2.35595, .18951, .01880, + .00000, .12533, .21862, + .33473, .19965, 2.43380, .19298, .02480, + .00000, .12985, .22242, + .34001, .20181, 2.50830, .19648, .03106, + .00000, .13445, .22626 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34439, .20357, 2.56506, .19936, .03613, + .00000, .13825, .22939, + .34843, .20517, 2.61281, .20197, .04077, + .00000, .14173, .23223, + .35158, .20639, 2.64859, .20400, .04452, + .00000, .14443, .23443, + .35787, .20879, 2.70410, .20797, .05185, + .00173, .14982, .23872, + .36288, .21066, 2.73071, .21107, .05770, + .00948, .15408, .24206, + .36818, .21257, 2.75156, .21423, .06390, + .01793, .15850, .24545, + .37335, .21439, 2.76412, .21712, .06988, + .02534, .16267, .24854, + .37774, .21588, 2.76788, .21943, .07492, + .03162, .16611, .25099 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38191, .21724, 2.76538, .22148, .07968, + .03757, .16927, .25317, + .38518, .21827, 2.75909, .22298, .08337, + .04221, .17166, .25475, + .38886, .21938, 2.74548, .22450, .08746, + .04733, .17423, .25634, + .39192, .22026, 2.72982, .22565, .09084, + .05163, .17630, .25753, + .39462, .22101, 2.71350, .22658, .09381, + .05546, .17805, .25850, + .39773, .22182, 2.68743, .22746, .09716, + .05977, .17994, .25937, + .40046, .22248, 2.66020, .22809, .10008, + .06358, .18149, .25999, + .40288, .22302, 2.63296, .22854, .10264, + .06700, .18279, .26042 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .40509, .22346, 2.60283, .22878, .10495, + .07008, .18386, .26062, + .40709, .22382, 2.57178, .22888, .10702, + .07291, .18475, .26066, + .40889, .22413, 2.54179, .22889, .10888, + .07548, .18550, .26061, + .41040, .22431, 2.51128, .22872, .11040, + .07762, .18600, .26036, + .41189, .22449, 2.48098, .22851, .11190, + .07976, .18647, .26009, + .41316, .22457, 2.44925, .22815, .11315, + .08160, .18676, .25965, + .41436, .22464, 2.41963, .22780, .11433, + .08335, .18701, .25922, + .41533, .22463, 2.39008, .22733, .11526, + .08479, .18710, .25865 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .41630, .22462, 2.36091, .22686, .11621, + .08625, .18719, .25808, + .41711, .22454, 2.33098, .22626, .11698, + .08750, .18713, .25737, + .41786, .22446, 2.30279, .22568, .11770, + .08869, .18705, .25668, + .41850, .22434, 2.27569, .22506, .11830, + .08971, .18691, .25597, + .41907, .22419, 2.24802, .22439, .11883, + .09067, .18671, .25519 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .38171, .23052, 1.59408, .14377, .00000, + .00000, .08492, .18155, + .38877, .23300, 1.69041, .14628, .00000, + .00000, .08886, .18428, + .39829, .23621, 1.80770, .14963, .00000, + .00000, .09422, .18789, + .40464, .23825, 1.87490, .15188, .00277, + .00000, .09787, .19029, + .41070, .24012, 1.92527, .15404, .00894, + .00000, .10142, .19253, + .41554, .24154, 1.96058, .15571, .01327, + .00000, .10424, .19423, + .41991, .24277, 1.98880, .15717, .01738, + .00000, .10677, .19570, + .42428, .24394, 2.01317, .15857, .02161, + .00000, .10928, .19709 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42782, .24484, 2.02911, .15965, .02498, + .00000, .11130, .19814, + .43100, .24560, 2.04002, .16058, .02803, + .00000, .11309, .19900, + .43343, .24617, 2.04732, .16128, .03047, + .00000, .11447, .19964, + .43816, .24714, 2.04972, .16251, .03516, + .00118, .11709, .20074, + .44176, .24777, 2.03851, .16336, .03883, + .00621, .11907, .20143, + .44541, .24831, 2.02124, .16409, .04265, + .01167, .12103, .20195, + .44878, .24869, 1.99878, .16459, .04626, + .01637, .12276, .20220, + .45150, .24888, 1.97476, .16483, .04923, + .02029, .12408, .20220 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .45394, .24894, 1.94772, .16489, .05198, + .02395, .12519, .20200, + .45575, .24888, 1.92353, .16482, .05407, + .02676, .12597, .20169, + .45761, .24868, 1.89158, .16456, .05633, + .02981, .12669, .20113, + .45905, .24841, 1.86210, .16420, .05817, + .03233, .12719, .20049, + .46024, .24811, 1.83464, .16381, .05975, + .03456, .12756, .19984, + .46140, .24760, 1.79768, .16314, .06148, + .03701, .12781, .19880, + .46229, .24703, 1.76228, .16240, .06294, + .03914, .12791, .19772, + .46297, .24643, 1.72895, .16163, .06420, + .04103, .12791, .19664 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46342, .24574, 1.69484, .16076, .06528, + .04269, .12778, .19542, + .46370, .24499, 1.66130, .15983, .06622, + .04419, .12756, .19415, + .46387, .24426, 1.62985, .15892, .06704, + .04554, .12730, .19292, + .46383, .24348, 1.59957, .15796, .06767, + .04663, .12694, .19165, + .46376, .24270, 1.56986, .15699, .06829, + .04771, .12656, .19038, + .46349, .24184, 1.54014, .15596, .06876, + .04861, .12609, .18903, + .46322, .24104, 1.51263, .15498, .06919, + .04946, .12564, .18775, + .46280, .24020, 1.48619, .15398, .06950, + .05013, .12513, .18646 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .46238, .23938, 1.46023, .15298, .06981, + .05081, .12461, .18518, + .46183, .23849, 1.43438, .15193, .07001, + .05137, .12403, .18384, + .46128, .23764, 1.41023, .15093, .07020, + .05189, .12347, .18258, + .46067, .23681, 1.38744, .14996, .07033, + .05233, .12290, .18135, + .45999, .23594, 1.36453, .14895, .07042, + .05272, .12230, .18008 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45900, .26801, 1.47257, .12417, .00000, + .00000, .07629, .16991, + .46480, .26926, 1.52412, .12526, .00000, + .00000, .07877, .17076, + .47232, .27066, 1.58168, .12661, .00000, + .00000, .08204, .17168, + .47714, .27140, 1.61007, .12745, .00206, + .00000, .08420, .17217, + .48157, .27191, 1.62529, .12819, .00661, + .00000, .08624, .17253, + .48495, .27218, 1.63307, .12868, .00975, + .00000, .08780, .17265, + .48789, .27231, 1.63678, .12904, .01272, + .00000, .08916, .17264, + .49073, .27233, 1.63711, .12933, .01573, + .00000, .09046, .17253 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .49291, .27222, 1.63407, .12948, .01810, + .00000, .09147, .17232, + .49477, .27203, 1.62838, .12954, .02023, + .00000, .09232, .17201, + .49615, .27185, 1.62312, .12956, .02192, + .00000, .09296, .17174, + .49860, .27125, 1.60334, .12945, .02513, + .00085, .09411, .17102, + .50023, .27057, 1.57785, .12922, .02761, + .00434, .09489, .17024, + .50166, .26965, 1.54710, .12881, .03014, + .00812, .09559, .16920, + .50272, .26854, 1.51318, .12824, .03249, + .01132, .09610, .16794, + .50334, .26741, 1.48096, .12758, .03440, + .01396, .09638, .16667 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .50366, .26615, 1.44749, .12680, .03613, + .01639, .09652, .16528, + .50371, .26503, 1.41921, .12608, .03743, + .01824, .09654, .16406, + .50346, .26354, 1.38400, .12510, .03880, + .02022, .09642, .16245, + .50301, .26217, 1.35275, .12418, .03989, + .02185, .09622, .16096, + .50248, .26089, 1.32437, .12331, .04081, + .02326, .09599, .15957, + .50148, .25913, 1.28774, .12207, .04179, + .02479, .09555, .15770, + .50036, .25741, 1.25362, .12087, .04260, + .02611, .09506, .15588, + .49917, .25576, 1.22216, .11971, .04327, + .02726, .09456, .15416 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49776, .25405, 1.19076, .11849, .04382, + .02825, .09396, .15239, + .49624, .25233, 1.16045, .11726, .04428, + .02913, .09333, .15062, + .49472, .25069, 1.13240, .11609, .04466, + .02991, .09271, .14894, + .49310, .24907, 1.10597, .11494, .04493, + .03053, .09205, .14730, + .49146, .24746, 1.08022, .11380, .04519, + .03114, .09140, .14568, + .48967, .24580, 1.05492, .11262, .04536, + .03163, .09068, .14404, + .48797, .24425, 1.03163, .11152, .04551, + .03208, .09001, .14251, + .48620, .24272, 1.00962, .11043, .04558, + .03243, .08933, .14101 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .48444, .24120, .98810, .10936, .04565, + .03278, .08865, .13952, + .48255, .23966, .96696, .10827, .04566, + .03305, .08794, .13802, + .48075, .23819, .94732, .10724, .04566, + .03330, .08726, .13660, + .47897, .23678, .92895, .10625, .04563, + .03350, .08660, .13525, + .47713, .23534, .91063, .10524, .04558, + .03368, .08592, .13388 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .52532, .29610, 1.31846, .10652, .00000, + .00000, .06792, .15653, + .52925, .29596, 1.34323, .10674, .00000, + .00000, .06940, .15603, + .53396, .29535, 1.36619, .10689, .00000, + .00000, .07125, .15508, + .53671, .29471, 1.37301, .10692, .00157, + .00000, .07244, .15427, + .53901, .29378, 1.36971, .10683, .00501, + .00000, .07350, .15339, + .54052, .29285, 1.36328, .10667, .00738, + .00000, .07427, .15246, + .54168, .29185, 1.35473, .10644, .00958, + .00000, .07490, .15152, + .54263, .29068, 1.34342, .10612, .01180, + .00000, .07547, .15046 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .54318, .28958, 1.33152, .10578, .01354, + .00000, .07587, .14947, + .54346, .28843, 1.31834, .10539, .01508, + .00000, .07617, .14846, + .54361, .28750, 1.30754, .10507, .01630, + .00000, .07638, .14765, + .54344, .28537, 1.27893, .10429, .01859, + .00064, .07668, .14584, + .54286, .28340, 1.24874, .10354, .02033, + .00316, .07679, .14423, + .54183, .28110, 1.21416, .10262, .02209, + .00588, .07678, .14233, + .54037, .27858, 1.17774, .10154, .02371, + .00816, .07663, .14027, + .53874, .27620, 1.14440, .10049, .02499, + .01003, .07639, .13833 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .53681, .27373, 1.11078, .09938, .02614, + .01172, .07604, .13633, + .53502, .27164, 1.08304, .09841, .02699, + .01300, .07568, .13465, + .53256, .26902, 1.04935, .09718, .02786, + .01436, .07516, .13255, + .53021, .26666, 1.01998, .09605, .02854, + .01545, .07464, .13068, + .52798, .26449, .99363, .09501, .02911, + .01641, .07413, .12897, + .52482, .26165, .96033, .09363, .02969, + .01742, .07340, .12675, + .52170, .25895, .92974, .09231, .03015, + .01828, .07267, .12465, + .51868, .25642, .90185, .09107, .03052, + .01901, .07196, .12269 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .51549, .25384, .87441, .08979, .03081, + .01964, .07119, .12072, + .51225, .25130, .84821, .08855, .03103, + .02019, .07042, .11879, + .50913, .24892, .82417, .08738, .03121, + .02068, .06968, .11697, + .50604, .24660, .80179, .08623, .03131, + .02104, .06895, .11526, + .50297, .24430, .78009, .08509, .03140, + .02140, .06822, .11357, + .49976, .24200, .75901, .08395, .03143, + .02168, .06745, .11189, + .49675, .23986, .73967, .08289, .03145, + .02194, .06674, .11032, + .49374, .23779, .72158, .08187, .03143, + .02213, .06604, .10882 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .49076, .23573, .70396, .08087, .03141, + .02231, .06534, .10733, + .48770, .23366, .68680, .07986, .03134, + .02245, .06464, .10585, + .48480, .23171, .67092, .07891, .03127, + .02257, .06397, .10446, + .48200, .22985, .65614, .07800, .03119, + .02266, .06333, .10315, + .47913, .22796, .64149, .07708, .03109, + .02273, .06267, .10183 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .59372, .32030, 1.12518, .08748, .00000, + .00000, .05804, .13821, + .59474, .31838, 1.13134, .08710, .00000, + .00000, .05868, .13662, + .59523, .31527, 1.13110, .08645, .00000, + .00000, .05941, .13414, + .59500, .31287, 1.12415, .08592, .00115, + .00000, .05982, .13236, + .59418, .31024, 1.10970, .08533, .00366, + .00000, .06015, .13046, + .59309, .30781, 1.09510, .08473, .00536, + .00000, .06032, .12880, + .59178, .30543, 1.07977, .08413, .00693, + .00000, .06041, .12719, + .59013, .30288, 1.06231, .08345, .00850, + .00000, .06044, .12546 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .58845, .30060, 1.04600, .08283, .00972, + .00000, .06041, .12393, + .58662, .29834, 1.02933, .08220, .01079, + .00000, .06032, .12245, + .58513, .29655, 1.01609, .08169, .01163, + .00000, .06022, .12128, + .58152, .29265, .98444, .08055, .01319, + .00046, .05993, .11879, + .57806, .28926, .95389, .07953, .01437, + .00220, .05960, .11665, + .57392, .28538, .91984, .07835, .01553, + .00408, .05915, .11425, + .56930, .28131, .88490, .07707, .01658, + .00564, .05859, .11174, + .56484, .27760, .85368, .07588, .01739, + .00689, .05801, .10946 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .56014, .27385, .82278, .07465, .01811, + .00803, .05738, .10716, + .55611, .27074, .79768, .07362, .01863, + .00887, .05682, .10527, + .55103, .26689, .76772, .07233, .01915, + .00975, .05609, .10298, + .54643, .26350, .74195, .07118, .01954, + .01045, .05541, .10098, + .54217, .26042, .71907, .07013, .01986, + .01106, .05478, .09918, + .53651, .25648, .69059, .06878, .02017, + .01169, .05393, .09689, + .53111, .25279, .66472, .06751, .02040, + .01222, .05311, .09477, + .52602, .24936, .64137, .06634, .02057, + .01267, .05233, .09281 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .52082, .24594, .61868, .06515, .02069, + .01304, .05154, .09086, + .51566, .24259, .59721, .06399, .02077, + .01335, .05075, .08898, + .51079, .23947, .57763, .06291, .02082, + .01363, .05002, .08723, + .50609, .23649, .55959, .06188, .02082, + .01383, .04930, .08561, + .50144, .23355, .54219, .06086, .02081, + .01402, .04858, .08402, + .49671, .23066, .52545, .05986, .02077, + .01416, .04787, .08244, + .49229, .22796, .51017, .05893, .02074, + .01429, .04720, .08098, + .48799, .22538, .49599, .05805, .02066, + .01438, .04656, .07960 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .48374, .22284, .48222, .05717, .02059, + .01446, .04592, .07823, + .47946, .22030, .46891, .05630, .02050, + .01451, .04528, .07690, + .47542, .21792, .45664, .05549, .02040, + .01455, .04468, .07565, + .47156, .21566, .44528, .05472, .02030, + .01458, .04411, .07448, + .46764, .21338, .43409, .05394, .02019, + .01459, .04353, .07332 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .64683, .33444, .95427, .07172, .00000, + .00000, .04896, .11918, + .64460, .33085, .95088, .07107, .00000, + .00000, .04911, .11694, + .64051, .32533, .93916, .07000, .00000, + .00000, .04917, .11371, + .63707, .32129, .92582, .06924, .00086, + .00000, .04915, .11142, + .63300, .31705, .90678, .06840, .00273, + .00000, .04905, .10907, + .62916, .31331, .88902, .06765, .00399, + .00000, .04890, .10703, + .62529, .30970, .87128, .06690, .00514, + .00000, .04870, .10511, + .62101, .30588, .85187, .06608, .00629, + .00000, .04843, .10311 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .61710, .30255, .83438, .06534, .00716, + .00000, .04818, .10138, + .61318, .29930, .81703, .06461, .00793, + .00000, .04789, .09973, + .61006, .29675, .80342, .06404, .00852, + .00000, .04765, .09844, + .60305, .29136, .77229, .06281, .00962, + .00034, .04708, .09571, + .59683, .28673, .74352, .06174, .01043, + .00158, .04655, .09342, + .58968, .28155, .71197, .06052, .01122, + .00292, .04591, .09090, + .58204, .27622, .68008, .05923, .01192, + .00401, .04518, .08830, + .57499, .27141, .65198, .05804, .01245, + .00488, .04449, .08601 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .56779, .26660, .62453, .05684, .01291, + .00566, .04376, .08374, + .56174, .26264, .60247, .05585, .01323, + .00623, .04314, .08188, + .55428, .25786, .57644, .05464, .01354, + .00682, .04235, .07967, + .54763, .25369, .55425, .05357, .01377, + .00729, .04165, .07775, + .54157, .24994, .53468, .05261, .01395, + .00768, .04101, .07604, + .53375, .24515, .51059, .05137, .01411, + .00809, .04017, .07389, + .52639, .24073, .48892, .05024, .01421, + .00842, .03938, .07191, + .51952, .23666, .46951, .04919, .01429, + .00870, .03864, .07010 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .51261, .23261, .45080, .04814, .01432, + .00893, .03790, .06834, + .50586, .22869, .43323, .04712, .01432, + .00911, .03717, .06664, + .49954, .22506, .41731, .04617, .01431, + .00927, .03650, .06508, + .49350, .22165, .40274, .04528, .01428, + .00938, .03585, .06363, + .48754, .21830, .38875, .04441, .01424, + .00949, .03522, .06220, + .48160, .21499, .37542, .04356, .01416, + .00956, .03458, .06083, + .47606, .21191, .36329, .04277, .01410, + .00962, .03400, .05955, + .47076, .20900, .35208, .04202, .01402, + .00965, .03344, .05836 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46551, .20614, .34124, .04128, .01393, + .00968, .03289, .05719, + .46027, .20330, .33083, .04055, .01384, + .00969, .03234, .05605, + .45535, .20064, .32126, .03988, .01374, + .00970, .03182, .05498, + .45068, .19814, .31245, .03924, .01365, + .00970, .03134, .05399, + .44597, .19564, .30381, .03861, .01354, + .00969, .03085, .05299 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .68551, .34035, .81257, .05890, .00000, + .00000, .04079, .10043, + .67997, .33520, .80407, .05812, .00000, + .00000, .04064, .09795, + .67116, .32758, .78645, .05694, .00000, + .00000, .04034, .09439, + .66449, .32209, .77009, .05606, .00066, + .00000, .04007, .09193, + .65721, .31644, .74926, .05516, .00208, + .00000, .03972, .08945, + .65068, .31155, .73045, .05435, .00303, + .00000, .03939, .08735, + .64432, .30691, .71209, .05357, .00389, + .00000, .03904, .08537, + .63748, .30204, .69240, .05273, .00473, + .00000, .03864, .08332 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .63144, .29783, .67501, .05198, .00537, + .00000, .03826, .08158, + .62551, .29378, .65803, .05125, .00593, + .00000, .03788, .07993, + .62084, .29062, .64479, .05069, .00636, + .00000, .03758, .07864, + .61072, .28398, .61538, .04947, .00714, + .00026, .03688, .07599, + .60194, .27837, .58893, .04843, .00771, + .00116, .03627, .07378, + .59208, .27216, .56027, .04724, .00826, + .00212, .03557, .07137, + .58177, .26583, .53166, .04603, .00873, + .00291, .03481, .06893, + .57239, .26019, .50671, .04494, .00909, + .00352, .03410, .06678 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .56295, .25460, .48254, .04385, .00938, + .00407, .03338, .06467, + .55515, .25003, .46330, .04294, .00958, + .00446, .03277, .06298, + .54565, .24456, .44081, .04184, .00977, + .00487, .03203, .06098, + .53731, .23981, .42181, .04089, .00990, + .00518, .03137, .05925, + .52976, .23556, .40518, .04004, .01000, + .00545, .03077, .05771, + .52014, .23020, .38487, .03894, .01007, + .00572, .03001, .05581, + .51117, .22528, .36674, .03793, .01011, + .00593, .02930, .05408, + .50287, .22078, .35060, .03702, .01013, + .00610, .02864, .05250 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49461, .21632, .33515, .03611, .01012, + .00624, .02798, .05097, + .48659, .21205, .32072, .03525, .01009, + .00635, .02734, .04952, + .47912, .20810, .30772, .03445, .01005, + .00645, .02675, .04818, + .47205, .20441, .29595, .03369, .01000, + .00650, .02619, .04695, + .46510, .20080, .28470, .03296, .00994, + .00656, .02565, .04575, + .45825, .19726, .27399, .03224, .00987, + .00659, .02511, .04460, + .45188, .19398, .26428, .03158, .00980, + .00662, .02461, .04353, + .44583, .19088, .25540, .03095, .00972, + .00662, .02415, .04254 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43986, .18783, .24683, .03034, .00964, + .00663, .02370, .04156, + .43394, .18485, .23864, .02973, .00955, + .00663, .02324, .04062, + .42840, .18206, .23113, .02917, .00947, + .00662, .02281, .03975, + .42316, .17944, .22425, .02864, .00938, + .00660, .02242, .03893, + .41790, .17682, .21753, .02812, .00929, + .00658, .02202, .03812 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .71089, .33942, .69825, .04851, .00000, + .00000, .03359, .08278, + .70207, .33293, .68659, .04770, .00000, + .00000, .03329, .08030, + .68871, .32348, .66545, .04647, .00000, + .00000, .03278, .07681, + .67894, .31678, .64748, .04558, .00051, + .00000, .03238, .07442, + .66861, .30994, .62592, .04467, .00160, + .00000, .03196, .07200, + .65959, .30409, .60690, .04385, .00232, + .00000, .03154, .07001, + .65092, .29859, .58859, .04308, .00297, + .00000, .03112, .06814, + .64173, .29287, .56920, .04226, .00360, + .00000, .03067, .06621 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .63374, .28795, .55232, .04155, .00408, + .00000, .03026, .06457, + .62601, .28326, .53605, .04085, .00448, + .00000, .02985, .06304, + .61996, .27962, .52345, .04031, .00480, + .00000, .02953, .06186, + .60705, .27201, .49599, .03914, .00536, + .00019, .02883, .05944, + .59604, .26565, .47191, .03818, .00576, + .00085, .02822, .05742, + .58380, .25868, .44604, .03709, .00614, + .00156, .02754, .05526, + .57118, .25163, .42044, .03599, .00646, + .00213, .02681, .05308, + .55987, .24538, .39836, .03499, .00670, + .00257, .02614, .05119 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54860, .23921, .37718, .03398, .00689, + .00296, .02547, .04937, + .53933, .23424, .36047, .03318, .00701, + .00323, .02491, .04789, + .52817, .22831, .34108, .03222, .00712, + .00351, .02425, .04614, + .51844, .22320, .32483, .03138, .00719, + .00373, .02366, .04466, + .50969, .21863, .31070, .03063, .00724, + .00390, .02313, .04336, + .49863, .21293, .29355, .02969, .00726, + .00408, .02247, .04173, + .48842, .20770, .27835, .02883, .00726, + .00422, .02185, .04027, + .47903, .20293, .26491, .02805, .00725, + .00433, .02127, .03896 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46973, .19827, .25217, .02728, .00722, + .00441, .02071, .03769, + .46078, .19380, .24035, .02654, .00718, + .00448, .02017, .03649, + .45250, .18967, .22976, .02586, .00713, + .00453, .01968, .03539, + .44471, .18585, .22020, .02522, .00707, + .00456, .01922, .03438, + .43707, .18211, .21108, .02461, .00702, + .00459, .01876, .03339, + .42959, .17848, .20250, .02400, .00695, + .00460, .01833, .03244, + .42265, .17512, .19475, .02345, .00688, + .00460, .01792, .03157, + .41608, .17196, .18768, .02293, .00681, + .00460, .01753, .03078 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40962, .16886, .18087, .02242, .00674, + .00460, .01715, .03001, + .40325, .16583, .17441, .02193, .00666, + .00458, .01678, .02926, + .39730, .16300, .16850, .02148, .00659, + .00457, .01644, .02856, + .39170, .16036, .16312, .02106, .00652, + .00455, .01612, .02790, + .38609, .15774, .15787, .02065, .00644, + .00452, .01581, .02725 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .72401, .33295, .60640, .04007, .00000, + .00000, .02732, .06679, + .71209, .32534, .59235, .03925, .00000, + .00000, .02696, .06448, + .69454, .31433, .56865, .03801, .00000, + .00000, .02640, .06126, + .68192, .30665, .54960, .03713, .00039, + .00000, .02595, .05909, + .66879, .29890, .52775, .03625, .00124, + .00000, .02548, .05690, + .65752, .29228, .50876, .03547, .00179, + .00000, .02504, .05510, + .64682, .28610, .49072, .03472, .00228, + .00000, .02462, .05343, + .63559, .27970, .47187, .03394, .00275, + .00000, .02417, .05172 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .62589, .27426, .45571, .03326, .00310, + .00000, .02377, .05029, + .61657, .26910, .44026, .03261, .00340, + .00000, .02338, .04894, + .60932, .26512, .42838, .03211, .00363, + .00000, .02306, .04790, + .59402, .25682, .40292, .03105, .00404, + .00015, .02241, .04576, + .58114, .24992, .38098, .03015, .00432, + .00063, .02185, .04403, + .56693, .24246, .35769, .02919, .00459, + .00116, .02121, .04215, + .55244, .23490, .33491, .02817, .00480, + .00157, .02055, .04032, + .53954, .22826, .31545, .02729, .00496, + .00188, .01996, .03872 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52676, .22179, .29695, .02643, .00508, + .00216, .01936, .03715, + .51637, .21658, .28243, .02573, .00515, + .00235, .01888, .03591, + .50392, .21039, .26577, .02488, .00521, + .00255, .01830, .03446, + .49317, .20506, .25189, .02415, .00524, + .00269, .01779, .03324, + .48356, .20032, .23988, .02349, .00526, + .00281, .01734, .03217, + .47144, .19446, .22547, .02270, .00526, + .00293, .01677, .03084, + .46033, .18910, .21280, .02197, .00524, + .00302, .01625, .02965, + .45017, .18424, .20167, .02130, .00522, + .00309, .01578, .02858 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .44018, .17950, .19115, .02063, .00518, + .00314, .01531, .02756, + .43059, .17499, .18147, .02002, .00513, + .00318, .01486, .02659, + .42172, .17084, .17283, .01947, .00509, + .00320, .01445, .02571, + .41348, .16699, .16508, .01894, .00503, + .00322, .01407, .02489, + .40542, .16325, .15772, .01843, .00498, + .00323, .01370, .02411, + .39754, .15963, .15084, .01793, .00491, + .00323, .01334, .02338, + .39026, .15630, .14465, .01747, .00486, + .00323, .01300, .02270, + .38340, .15317, .13903, .01706, .00479, + .00321, .01270, .02207 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37666, .15011, .13364, .01665, .00473, + .00320, .01241, .02145, + .37007, .14712, .12854, .01625, .00467, + .00319, .01211, .02087, + .36393, .14434, .12389, .01587, .00461, + .00317, .01183, .02033, + .35816, .14175, .11965, .01552, .00455, + .00315, .01157, .01983, + .35238, .13918, .11555, .01518, .00449, + .00313, .01133, .01934 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .72606, .32198, .53145, .03309, .00000, + .00000, .02199, .05279, + .71135, .31346, .51539, .03230, .00000, + .00000, .02160, .05075, + .68996, .30131, .48961, .03110, .00000, + .00000, .02099, .04795, + .67481, .29287, .46982, .03028, .00031, + .00000, .02056, .04604, + .65928, .28440, .44786, .02946, .00095, + .00000, .02009, .04413, + .64600, .27729, .42909, .02874, .00138, + .00000, .01968, .04255, + .63352, .27065, .41153, .02804, .00175, + .00000, .01928, .04112, + .62052, .26380, .39339, .02732, .00210, + .00000, .01885, .03966 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60940, .25800, .37794, .02671, .00236, + .00000, .01849, .03841, + .59879, .25253, .36335, .02611, .00258, + .00000, .01813, .03727, + .59056, .24831, .35221, .02565, .00275, + .00000, .01784, .03640, + .57334, .23958, .32871, .02469, .00304, + .00011, .01724, .03462, + .55891, .23239, .30889, .02390, .00324, + .00047, .01674, .03316, + .54319, .22460, .28803, .02302, .00343, + .00086, .01619, .03161, + .52725, .21679, .26781, .02213, .00357, + .00116, .01561, .03010, + .51315, .20998, .25073, .02136, .00367, + .00138, .01509, .02879 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49928, .20336, .23465, .02061, .00375, + .00158, .01459, .02752, + .48807, .19802, .22211, .02000, .00379, + .00172, .01418, .02651, + .47474, .19175, .20784, .01928, .00382, + .00185, .01370, .02533, + .46327, .18637, .19607, .01865, .00383, + .00195, .01327, .02435, + .45305, .18160, .18594, .01808, .00383, + .00203, .01289, .02351, + .44029, .17572, .17387, .01739, .00382, + .00211, .01241, .02247, + .42861, .17039, .16332, .01677, .00379, + .00217, .01198, .02153, + .41797, .16556, .15412, .01622, .00376, + .00221, .01159, .02069 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40758, .16088, .14549, .01567, .00372, + .00224, .01123, .01985, + .39764, .15644, .13759, .01516, .00368, + .00226, .01087, .01909, + .38850, .15237, .13058, .01470, .00363, + .00227, .01054, .01840, + .38001, .14860, .12433, .01426, .00359, + .00228, .01023, .01779, + .37174, .14494, .11842, .01384, .00354, + .00228, .00993, .01721, + .36371, .14142, .11291, .01344, .00349, + .00227, .00966, .01662, + .35631, .13818, .10796, .01307, .00344, + .00227, .00941, .01608, + .34935, .13516, .10350, .01273, .00339, + .00225, .00916, .01561 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34253, .13221, .09924, .01240, .00334, + .00224, .00892, .01514, + .33589, .12933, .09522, .01207, .00329, + .00223, .00868, .01469, + .32971, .12666, .09157, .01177, .00324, + .00221, .00847, .01428, + .32392, .12418, .08827, .01149, .00319, + .00219, .00827, .01389, + .31814, .12173, .08507, .01123, .00314, + .00218, .00808, .01351 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .71789, .30778, .46867, .02755, .00000, + .00000, .01729, .04071, + .70076, .29857, .45083, .02677, .00000, + .00000, .01694, .03899, + .67616, .28554, .42329, .02564, .00000, + .00000, .01640, .03663, + .65886, .27661, .40299, .02485, .00024, + .00000, .01600, .03501, + .64133, .26766, .38116, .02404, .00074, + .00000, .01558, .03346, + .62651, .26012, .36281, .02334, .00106, + .00000, .01521, .03218, + .61260, .25316, .34580, .02271, .00134, + .00000, .01487, .03099, + .59819, .24605, .32844, .02205, .00161, + .00000, .01450, .02977 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58593, .24005, .31385, .02148, .00180, + .00000, .01416, .02879, + .57430, .23440, .30025, .02094, .00196, + .00000, .01385, .02785, + .56531, .23005, .28992, .02053, .00208, + .00000, .01361, .02713, + .54664, .22109, .26843, .01966, .00229, + .00009, .01310, .02569, + .53113, .21376, .25061, .01895, .00243, + .00035, .01267, .02452, + .51428, .20587, .23203, .01818, .00256, + .00064, .01221, .02327, + .49729, .19802, .21423, .01742, .00265, + .00085, .01173, .02206, + .48238, .19118, .19935, .01674, .00272, + .00102, .01130, .02101 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46784, .18454, .18547, .01607, .00276, + .00116, .01087, .02003, + .45614, .17923, .17474, .01552, .00278, + .00125, .01052, .01927, + .44226, .17301, .16258, .01492, .00279, + .00135, .01013, .01832, + .43035, .16771, .15264, .01439, .00279, + .00141, .00978, .01756, + .41976, .16304, .14417, .01390, .00278, + .00147, .00946, .01693, + .40666, .15728, .13415, .01333, .00276, + .00152, .00912, .01608, + .39475, .15206, .12544, .01280, .00274, + .00155, .00877, .01535, + .38395, .14736, .11788, .01233, .00271, + .00158, .00845, .01472 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37336, .14283, .11084, .01192, .00267, + .00160, .00816, .01407, + .36333, .13853, .10442, .01150, .00263, + .00161, .00788, .01350, + .35415, .13461, .09876, .01109, .00259, + .00161, .00761, .01301, + .34566, .13100, .09375, .01073, .00255, + .00161, .00737, .01254, + .33740, .12750, .08902, .01038, .00251, + .00161, .00714, .01208, + .32935, .12416, .08464, .01008, .00247, + .00160, .00692, .01163, + .32196, .12108, .08072, .00980, .00243, + .00159, .00671, .01123, + .31509, .11820, .07721, .00952, .00239, + .00158, .00653, .01087 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30838, .11539, .07385, .00925, .00235, + .00157, .00635, .01053, + .30182, .11268, .07070, .00899, .00231, + .00156, .00617, .01020, + .29572, .11017, .06785, .00875, .00227, + .00154, .00601, .00990, + .29005, .10784, .06527, .00852, .00223, + .00153, .00586, .00962, + .28442, .10553, .06280, .00829, .00219, + .00151, .00570, .00934 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .70150, .29044, .41358, .02255, .00000, + .00000, .01362, .03091, + .68232, .28077, .39430, .02180, .00000, + .00000, .01328, .02953, + .65493, .26727, .36575, .02075, .00000, + .00000, .01280, .02758, + .63588, .25803, .34523, .02005, .00018, + .00000, .01244, .02627, + .61674, .24879, .32388, .01931, .00056, + .00000, .01206, .02501, + .60060, .24114, .30611, .01871, .00080, + .00000, .01173, .02396, + .58558, .23406, .28989, .01813, .00101, + .00000, .01141, .02301, + .57011, .22682, .27355, .01753, .00121, + .00000, .01108, .02206 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55701, .22075, .25996, .01704, .00135, + .00000, .01081, .02124, + .54464, .21506, .24740, .01656, .00147, + .00000, .01054, .02050, + .53509, .21069, .23793, .01620, .00156, + .00000, .01033, .01994, + .51535, .20175, .21846, .01546, .00170, + .00007, .00989, .01879, + .49907, .19445, .20263, .01485, .00180, + .00026, .00953, .01787, + .48152, .18664, .18631, .01417, .00189, + .00046, .00914, .01690, + .46397, .17886, .17080, .01350, .00195, + .00062, .00874, .01596, + .44860, .17214, .15795, .01293, .00199, + .00074, .00839, .01515 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43363, .16567, .14608, .01238, .00201, + .00084, .00805, .01438, + .42163, .16052, .13699, .01194, .00202, + .00090, .00777, .01378, + .40756, .15447, .12679, .01141, .00202, + .00097, .00745, .01308, + .39551, .14935, .11850, .01097, .00202, + .00102, .00717, .01249, + .38481, .14485, .11146, .01060, .00201, + .00105, .00693, .01197, + .37164, .13930, .10317, .01013, .00198, + .00108, .00664, .01135, + .35972, .13432, .09605, .00970, .00196, + .00111, .00637, .01081, + .34896, .12984, .08991, .00932, .00193, + .00112, .00612, .01033 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .33850, .12552, .08422, .00895, .00190, + .00113, .00588, .00987, + .32859, .12145, .07906, .00860, .00187, + .00113, .00566, .00944, + .31952, .11774, .07453, .00828, .00183, + .00114, .00546, .00906, + .31116, .11434, .07055, .00800, .00180, + .00113, .00528, .00871, + .30306, .11105, .06680, .00772, .00177, + .00113, .00511, .00837, + .29523, .10790, .06334, .00747, .00174, + .00112, .00493, .00806, + .28804, .10501, .06025, .00723, .00170, + .00111, .00477, .00777, + .28135, .10235, .05750, .00702, .00167, + .00110, .00464, .00749 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27482, .09975, .05487, .00681, .00164, + .00109, .00450, .00722, + .26848, .09724, .05242, .00661, .00161, + .00108, .00436, .00698, + .26261, .09491, .05021, .00642, .00158, + .00107, .00424, .00677, + .25715, .09275, .04822, .00624, .00155, + .00106, .00412, .00657, + .25176, .09061, .04630, .00605, .00152, + .00105, .00401, .00637 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .67750, .27128, .36405, .01839, .00000, + .00000, .01054, .02297, + .65663, .26144, .34386, .01772, .00000, + .00000, .01024, .02185, + .62716, .24766, .31485, .01678, .00000, + .00000, .00981, .02031, + .60683, .23829, .29458, .01611, .00014, + .00000, .00949, .01930, + .58645, .22902, .27391, .01547, .00042, + .00000, .00915, .01831, + .56942, .22135, .25708, .01491, .00060, + .00000, .00888, .01750, + .55363, .21428, .24187, .01441, .00076, + .00000, .00862, .01675, + .53743, .20709, .22668, .01390, .00090, + .00000, .00835, .01598 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52377, .20106, .21421, .01345, .00101, + .00000, .00812, .01537, + .51093, .19541, .20279, .01304, .00109, + .00000, .00790, .01480, + .50106, .19109, .19423, .01273, .00115, + .00000, .00773, .01438, + .48076, .18233, .17690, .01208, .00126, + .00005, .00739, .01345, + .46411, .17518, .16297, .01155, .00132, + .00019, .00709, .01276, + .44619, .16758, .14880, .01098, .00138, + .00034, .00677, .01203, + .42836, .16005, .13548, .01042, .00142, + .00045, .00645, .01132, + .41287, .15356, .12455, .00994, .00144, + .00053, .00616, .01072 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39787, .14734, .11451, .00948, .00145, + .00060, .00588, .01014, + .38587, .14239, .10688, .00910, .00146, + .00065, .00566, .00970, + .37180, .13663, .09840, .00868, .00145, + .00069, .00540, .00918, + .35987, .13176, .09156, .00831, .00144, + .00072, .00519, .00875, + .34935, .12748, .08578, .00799, .00143, + .00075, .00501, .00837, + .33635, .12226, .07903, .00761, .00141, + .00077, .00477, .00790, + .32462, .11758, .07327, .00728, .00139, + .00078, .00456, .00748, + .31408, .11338, .06832, .00698, .00137, + .00079, .00438, .00711 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30391, .10933, .06376, .00669, .00134, + .00080, .00420, .00678, + .29429, .10553, .05965, .00641, .00131, + .00080, .00403, .00647, + .28552, .10209, .05606, .00615, .00129, + .00080, .00387, .00620, + .27744, .09894, .05292, .00594, .00126, + .00079, .00373, .00595, + .26962, .09590, .04997, .00574, .00124, + .00079, .00360, .00571, + .26211, .09299, .04726, .00553, .00121, + .00078, .00348, .00548, + .25523, .09033, .04485, .00534, .00119, + .00077, .00336, .00527, + .24885, .08788, .04271, .00517, .00116, + .00077, .00325, .00508 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24263, .08549, .04068, .00500, .00114, + .00076, .00314, .00491, + .23662, .08319, .03880, .00484, .00112, + .00075, .00304, .00473, + .23106, .08106, .03710, .00469, .00109, + .00074, .00295, .00457, + .22590, .07910, .03556, .00455, .00107, + .00073, .00286, .00442, + .22081, .07716, .03409, .00441, .00105, + .00072, .00278, .00427 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .64729, .25073, .31819, .01478, .00000, + .00000, .00806, .01677, + .62519, .24086, .29766, .01418, .00000, + .00000, .00782, .01589, + .59421, .22712, .26897, .01335, .00000, + .00000, .00744, .01470, + .57298, .21782, .24943, .01276, .00010, + .00000, .00717, .01392, + .55182, .20867, .22994, .01220, .00031, + .00000, .00691, .01314, + .53426, .20109, .21424, .01172, .00045, + .00000, .00666, .01254, + .51802, .19416, .20022, .01127, .00056, + .00000, .00645, .01197, + .50141, .18714, .18638, .01083, .00066, + .00000, .00623, .01139 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48743, .18129, .17514, .01047, .00074, + .00000, .00604, .01092, + .47439, .17582, .16493, .01011, .00080, + .00000, .00586, .01050, + .46441, .17165, .15732, .00982, .00084, + .00000, .00572, .01018, + .44391, .16315, .14213, .00929, .00091, + .00004, .00544, .00953, + .42719, .15630, .13010, .00885, .00096, + .00014, .00520, .00900, + .40929, .14900, .11795, .00838, .00100, + .00024, .00494, .00845, + .39153, .14183, .10664, .00794, .00102, + .00032, .00468, .00792, + .37620, .13568, .09745, .00754, .00103, + .00038, .00446, .00747 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36143, .12979, .08910, .00715, .00104, + .00043, .00425, .00703, + .34963, .12514, .08281, .00688, .00104, + .00046, .00409, .00669, + .33588, .11972, .07584, .00652, .00103, + .00049, .00388, .00632, + .32425, .11515, .07025, .00621, .00102, + .00051, .00371, .00602, + .31403, .11115, .06556, .00593, .00101, + .00053, .00358, .00574, + .30145, .10630, .06014, .00565, .00099, + .00054, .00339, .00540, + .29012, .10196, .05553, .00540, .00097, + .00055, .00324, .00510, + .27997, .09808, .05160, .00517, .00096, + .00055, .00310, .00484 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27023, .09434, .04799, .00492, .00094, + .00056, .00295, .00461, + .26106, .09084, .04476, .00469, .00092, + .00055, .00283, .00438, + .25271, .08768, .04196, .00450, .00090, + .00055, .00272, .00418, + .24504, .08481, .03949, .00432, .00088, + .00055, .00262, .00401, + .23763, .08204, .03719, .00416, .00086, + .00054, .00251, .00385, + .23055, .07939, .03510, .00400, .00084, + .00054, .00242, .00368, + .22408, .07698, .03324, .00386, .00082, + .00053, .00233, .00353, + .21811, .07475, .03159, .00372, .00080, + .00053, .00225, .00340 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21230, .07258, .03002, .00358, .00078, + .00052, .00217, .00327, + .20665, .07051, .02858, .00347, .00076, + .00051, .00210, .00314, + .20142, .06861, .02728, .00337, .00075, + .00051, .00204, .00303, + .19660, .06685, .02611, .00328, .00073, + .00050, .00197, .00293, + .19185, .06511, .02499, .00317, .00072, + .00049, .00191, .00283 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .61192, .22943, .27527, .01170, .00000, + .00000, .00613, .01199, + .58911, .21964, .25502, .01116, .00000, + .00000, .00590, .01135, + .55721, .20618, .22740, .01041, .00000, + .00000, .00558, .01048, + .53546, .19712, .20898, .00992, .00008, + .00000, .00536, .00987, + .51397, .18820, .19095, .00943, .00023, + .00000, .00515, .00930, + .49613, .18090, .17668, .00904, .00033, + .00000, .00494, .00884, + .47976, .17421, .16404, .00867, .00041, + .00000, .00477, .00842, + .46309, .16744, .15167, .00830, .00048, + .00000, .00459, .00800 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44911, .16183, .14172, .00801, .00053, + .00000, .00444, .00764, + .43608, .15662, .13276, .00772, .00057, + .00000, .00430, .00731, + .42611, .15265, .12613, .00750, .00061, + .00000, .00419, .00706, + .40579, .14457, .11304, .00703, .00065, + .00003, .00395, .00660, + .38929, .13807, .10279, .00669, .00068, + .00010, .00376, .00622, + .37172, .13121, .09257, .00629, .00071, + .00017, .00359, .00582, + .35437, .12447, .08315, .00591, .00072, + .00023, .00339, .00544, + .33943, .11871, .07555, .00560, .00073, + .00027, .00321, .00512 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32509, .11323, .06869, .00530, .00073, + .00030, .00304, .00482, + .31368, .10890, .06356, .00508, .00073, + .00032, .00292, .00458, + .30048, .10389, .05795, .00478, .00072, + .00034, .00276, .00430, + .28931, .09967, .05346, .00454, .00071, + .00036, .00263, .00408, + .27950, .09598, .04970, .00435, .00070, + .00037, .00251, .00390, + .26753, .09153, .04540, .00412, .00069, + .00038, .00239, .00366, + .25681, .08756, .04177, .00391, .00068, + .00038, .00227, .00344, + .24722, .08402, .03868, .00373, .00066, + .00038, .00217, .00325 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .23800, .08063, .03586, .00355, .00065, + .00038, .00207, .00309, + .22935, .07746, .03334, .00338, .00063, + .00038, .00198, .00293, + .22151, .07460, .03116, .00323, .00062, + .00038, .00190, .00280, + .21435, .07200, .02927, .00309, .00060, + .00038, .00182, .00267, + .20745, .06951, .02750, .00296, .00059, + .00037, .00174, .00254, + .20085, .06713, .02590, .00285, .00057, + .00037, .00167, .00243, + .19483, .06496, .02447, .00274, .00056, + .00036, .00160, .00234, + .18927, .06298, .02322, .00265, .00054, + .00036, .00155, .00224 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18387, .06105, .02204, .00256, .00053, + .00035, .00150, .00215, + .17870, .05920, .02094, .00246, .00052, + .00035, .00145, .00207, + .17393, .05750, .01996, .00236, .00051, + .00034, .00140, .00200, + .16952, .05594, .01908, .00228, .00050, + .00034, .00135, .00193, + .16515, .05440, .01823, .00221, .00048, + .00033, .00130, .00186 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .57252, .20798, .23525, .00920, .00000, + .00000, .00453, .00836, + .54932, .19849, .21583, .00873, .00000, + .00000, .00434, .00789, + .51714, .18544, .18994, .00810, .00000, + .00000, .00407, .00726, + .49534, .17673, .17300, .00766, .00005, + .00000, .00391, .00683, + .47383, .16819, .15674, .00725, .00017, + .00000, .00374, .00644, + .45611, .16123, .14398, .00694, .00023, + .00000, .00359, .00606, + .43985, .15488, .13281, .00665, .00029, + .00000, .00345, .00574, + .42337, .14849, .12199, .00634, .00034, + .00000, .00330, .00544 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40964, .14317, .11338, .00607, .00038, + .00000, .00319, .00521, + .39687, .13824, .10568, .00582, .00041, + .00000, .00308, .00499, + .38713, .13448, .10001, .00563, .00043, + .00000, .00299, .00482, + .36735, .12693, .08893, .00525, .00046, + .00002, .00281, .00449, + .35133, .12088, .08037, .00495, .00048, + .00007, .00267, .00422, + .33432, .11449, .07190, .00467, .00050, + .00012, .00253, .00393, + .31759, .10827, .06419, .00440, .00051, + .00016, .00238, .00364, + .30327, .10295, .05802, .00414, .00051, + .00019, .00225, .00342 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28958, .09788, .05249, .00390, .00051, + .00021, .00212, .00322, + .27873, .09391, .04836, .00372, .00051, + .00023, .00204, .00305, + .26619, .08935, .04388, .00351, .00050, + .00024, .00192, .00285, + .25564, .08552, .04034, .00333, .00049, + .00025, .00183, .00269, + .24640, .08217, .03739, .00317, .00049, + .00025, .00174, .00257, + .23515, .07814, .03401, .00299, .00047, + .00026, .00164, .00240, + .22512, .07454, .03118, .00283, .00046, + .00026, .00155, .00226, + .21618, .07135, .02878, .00269, .00045, + .00026, .00148, .00215 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .20761, .06832, .02661, .00255, .00044, + .00026, .00140, .00203, + .19958, .06549, .02467, .00243, .00043, + .00026, .00133, .00192, + .19231, .06293, .02300, .00232, .00042, + .00026, .00127, .00182, + .18572, .06063, .02156, .00221, .00041, + .00026, .00122, .00174, + .17939, .05842, .02022, .00210, .00040, + .00025, .00117, .00165, + .17332, .05630, .01900, .00203, .00039, + .00025, .00112, .00157, + .16780, .05438, .01792, .00196, .00038, + .00025, .00107, .00150, + .16274, .05263, .01698, .00188, .00037, + .00024, .00104, .00144 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .15785, .05093, .01608, .00180, .00036, + .00024, .00101, .00138, + .15312, .04930, .01526, .00173, .00035, + .00024, .00097, .00133, + .14877, .04780, .01452, .00167, .00034, + .00023, .00093, .00128, + .14476, .04643, .01386, .00161, .00033, + .00023, .00090, .00123, + .14082, .04508, .01324, .00155, .00032, + .00022, .00086, .00119 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .53021, .18660, .19793, .00707, .00000, + .00000, .00330, .00572, + .50706, .17752, .17994, .00666, .00000, + .00000, .00313, .00543, + .47505, .16519, .15630, .00618, .00000, + .00000, .00294, .00492, + .45354, .15692, .14117, .00583, .00004, + .00000, .00280, .00461, + .43243, .14884, .12685, .00550, .00012, + .00000, .00267, .00431, + .41508, .14230, .11574, .00522, .00016, + .00000, .00253, .00410, + .39921, .13636, .10608, .00499, .00020, + .00000, .00243, .00388, + .38319, .13038, .09682, .00475, .00024, + .00000, .00232, .00365 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36992, .12542, .08951, .00453, .00026, + .00000, .00223, .00347, + .35758, .12085, .08304, .00434, .00028, + .00000, .00215, .00331, + .34817, .11738, .07829, .00419, .00030, + .00000, .00209, .00320, + .32910, .11041, .06912, .00395, .00032, + .00001, .00195, .00293, + .31382, .10482, .06211, .00369, .00033, + .00005, .00184, .00278, + .29765, .09895, .05521, .00345, .00034, + .00008, .00173, .00260, + .28180, .09327, .04900, .00324, .00035, + .00011, .00162, .00240, + .26830, .08843, .04407, .00303, .00035, + .00013, .00152, .00225 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25543, .08385, .03967, .00283, .00035, + .00015, .00143, .00211, + .24522, .08027, .03643, .00272, .00035, + .00015, .00137, .00198, + .23351, .07613, .03291, .00255, .00034, + .00016, .00130, .00184, + .22369, .07268, .03014, .00241, .00033, + .00017, .00123, .00174, + .21510, .06968, .02786, .00228, .00033, + .00017, .00116, .00167, + .20468, .06608, .02525, .00215, .00032, + .00018, .00109, .00155, + .19543, .06287, .02307, .00203, .00031, + .00018, .00103, .00145, + .18721, .06004, .02123, .00192, .00030, + .00018, .00098, .00136 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17933, .05734, .01959, .00183, .00030, + .00018, .00093, .00129, + .17199, .05484, .01812, .00174, .00029, + .00018, .00088, .00122, + .16537, .05259, .01686, .00165, .00028, + .00017, .00084, .00116, + .15936, .05056, .01577, .00157, .00027, + .00017, .00080, .00110, + .15360, .04861, .01476, .00150, .00026, + .00017, .00077, .00104, + .14811, .04677, .01385, .00144, .00026, + .00017, .00073, .00099, + .14313, .04510, .01305, .00138, .00025, + .00017, .00070, .00095, + .13859, .04356, .01234, .00132, .00024, + .00016, .00068, .00091 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13419, .04208, .01167, .00126, .00024, + .00016, .00065, .00087, + .12993, .04067, .01106, .00121, .00023, + .00016, .00063, .00083, + .12602, .03938, .01051, .00118, .00023, + .00015, .00060, .00079, + .12243, .03819, .01002, .00114, .00022, + .00015, .00058, .00076, + .11891, .03703, .00955, .00110, .00021, + .00015, .00056, .00073 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .48597, .16564, .16360, .00528, .00000, + .00000, .00240, .00387, + .46320, .15710, .14736, .00498, .00000, + .00000, .00227, .00363, + .43196, .14548, .12641, .00454, .00000, + .00000, .00212, .00330, + .41103, .13776, .11319, .00427, .00003, + .00000, .00200, .00310, + .39059, .13026, .10087, .00399, .00008, + .00000, .00189, .00291, + .37378, .12421, .09141, .00382, .00011, + .00000, .00181, .00272, + .35854, .11871, .08328, .00363, .00014, + .00000, .00173, .00256, + .34323, .11319, .07555, .00342, .00016, + .00000, .00164, .00242 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33054, .10863, .06949, .00326, .00018, + .00000, .00157, .00231, + .31881, .10444, .06415, .00311, .00019, + .00000, .00151, .00219, + .30990, .10127, .06025, .00300, .00020, + .00000, .00146, .00210, + .29185, .09489, .05282, .00278, .00022, + .00001, .00136, .00195, + .27740, .08983, .04718, .00262, .00023, + .00003, .00130, .00181, + .26221, .08453, .04170, .00243, .00023, + .00006, .00121, .00169, + .24742, .07940, .03680, .00224, .00023, + .00008, .00112, .00156, + .23482, .07505, .03293, .00210, .00023, + .00009, .00106, .00146 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22284, .07095, .02951, .00197, .00023, + .00010, .00100, .00138, + .21345, .06775, .02702, .00186, .00023, + .00010, .00095, .00129, + .20263, .06409, .02431, .00175, .00023, + .00011, .00088, .00118, + .19359, .06103, .02219, .00165, .00022, + .00011, .00083, .00111, + .18573, .05836, .02045, .00155, .00022, + .00012, .00079, .00107, + .17622, .05518, .01848, .00146, .00021, + .00012, .00075, .00101, + .16779, .05237, .01684, .00137, .00021, + .00012, .00071, .00094, + .16033, .04989, .01546, .00129, .00020, + .00012, .00067, .00087 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15323, .04752, .01422, .00122, .00020, + .00012, .00065, .00082, + .14661, .04534, .01313, .00116, .00019, + .00012, .00061, .00078, + .14064, .04338, .01219, .00110, .00018, + .00012, .00058, .00074, + .13525, .04162, .01138, .00105, .00018, + .00011, .00055, .00071, + .13008, .03994, .01063, .00099, .00017, + .00011, .00052, .00067, + .12518, .03834, .00996, .00095, .00017, + .00011, .00049, .00064, + .12073, .03690, .00937, .00091, .00016, + .00011, .00047, .00062, + .11667, .03558, .00885, .00087, .00016, + .00011, .00046, .00058 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11275, .03432, .00836, .00084, .00015, + .00011, .00044, .00055, + .10901, .03310, .00791, .00080, .00015, + .00010, .00042, .00052, + .10557, .03199, .00751, .00076, .00015, + .00010, .00040, .00051, + .10240, .03098, .00715, .00073, .00014, + .00010, .00039, .00049, + .09929, .02999, .00681, .00071, .00014, + .00010, .00037, .00047 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .44077, .14553, .13267, .00384, .00000, + .00000, .00169, .00257, + .41872, .13759, .11843, .00362, .00000, + .00000, .00161, .00238, + .38859, .12681, .10032, .00327, .00000, + .00000, .00150, .00217, + .36850, .11970, .08912, .00307, .00002, + .00000, .00141, .00203, + .34901, .11280, .07876, .00285, .00005, + .00000, .00134, .00189, + .33311, .10723, .07092, .00268, .00008, + .00000, .00127, .00178, + .31868, .10221, .06423, .00253, .00009, + .00000, .00121, .00169, + .30418, .09719, .05792, .00239, .00011, + .00000, .00115, .00159 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29223, .09305, .05301, .00225, .00012, + .00000, .00110, .00151, + .28119, .08926, .04872, .00214, .00013, + .00000, .00106, .00144, + .27282, .08640, .04562, .00206, .00013, + .00000, .00102, .00139, + .25600, .08067, .03971, .00190, .00014, + .00001, .00096, .00127, + .24259, .07613, .03529, .00177, .00015, + .00002, .00089, .00119, + .22854, .07140, .03101, .00162, .00015, + .00004, .00084, .00109, + .21490, .06683, .02722, .00150, .00015, + .00005, .00078, .00102, + .20332, .06297, .02426, .00139, .00015, + .00006, .00073, .00096 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19235, .05935, .02166, .00130, .00015, + .00007, .00068, .00089, + .18375, .05651, .01976, .00123, .00015, + .00007, .00065, .00084, + .17391, .05329, .01772, .00115, .00015, + .00007, .00061, .00078, + .16572, .05063, .01613, .00109, .00015, + .00008, .00057, .00073, + .15862, .04833, .01483, .00103, .00014, + .00008, .00054, .00068, + .15002, .04555, .01335, .00096, .00014, + .00008, .00052, .00064, + .14245, .04311, .01214, .00090, .00013, + .00008, .00048, .00060, + .13577, .04097, .01112, .00084, .00013, + .00008, .00045, .00057 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12943, .03893, .01021, .00079, .00013, + .00008, .00043, .00054, + .12353, .03705, .00941, .00074, .00012, + .00008, .00041, .00050, + .11823, .03538, .00871, .00071, .00012, + .00008, .00039, .00047, + .11345, .03387, .00813, .00067, .00011, + .00007, .00037, .00045, + .10888, .03243, .00758, .00063, .00011, + .00007, .00036, .00043, + .10458, .03107, .00709, .00060, .00011, + .00007, .00034, .00041, + .10068, .02984, .00666, .00057, .00010, + .00007, .00032, .00039, + .09712, .02872, .00628, .00055, .00010, + .00007, .00031, .00038 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09368, .02765, .00593, .00052, .00010, + .00007, .00029, .00036, + .09040, .02663, .00561, .00050, .00010, + .00007, .00028, .00034, + .08739, .02570, .00532, .00048, .00009, + .00007, .00027, .00032, + .08464, .02485, .00506, .00046, .00009, + .00006, .00026, .00030, + .08194, .02401, .00481, .00044, .00009, + .00006, .00025, .00030 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .39541, .12663, .10560, .00289, .00000, + .00000, .00110, .00161, + .37440, .11935, .09347, .00268, .00000, + .00000, .00103, .00150, + .34584, .10950, .07829, .00243, .00000, + .00000, .00097, .00135, + .32693, .10302, .06900, .00225, .00001, + .00000, .00092, .00124, + .30858, .09681, .06057, .00211, .00004, + .00000, .00085, .00115, + .29369, .09176, .05421, .00198, .00005, + .00000, .00081, .00108, + .28023, .08724, .04884, .00186, .00006, + .00000, .00077, .00102, + .26675, .08274, .04381, .00174, .00007, + .00000, .00072, .00096 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25564, .07906, .03992, .00165, .00008, + .00000, .00068, .00091, + .24545, .07567, .03655, .00157, .00008, + .00000, .00066, .00087, + .23774, .07310, .03411, .00151, .00009, + .00000, .00063, .00083, + .22221, .06804, .02951, .00141, .00009, + .00001, .00058, .00075, + .20994, .06401, .02611, .00129, .00010, + .00001, .00054, .00071, + .19712, .05984, .02285, .00118, .00010, + .00003, .00051, .00066, + .18468, .05584, .01996, .00111, .00010, + .00003, .00047, .00059, + .17420, .05246, .01773, .00103, .00010, + .00004, .00043, .00055 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16434, .04928, .01577, .00095, .00010, + .00004, .00040, .00052, + .15662, .04684, .01434, .00090, .00010, + .00005, .00039, .00049, + .14778, .04404, .01283, .00084, .00010, + .00005, .00036, .00045, + .14045, .04173, .01166, .00079, .00009, + .00005, .00034, .00042, + .13412, .03974, .01069, .00075, .00009, + .00005, .00032, .00040, + .12649, .03736, .00961, .00070, .00009, + .00005, .00030, .00037, + .11980, .03526, .00872, .00065, .00009, + .00005, .00028, .00035, + .11392, .03341, .00797, .00060, .00008, + .00005, .00027, .00033 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10835, .03168, .00730, .00055, .00008, + .00005, .00025, .00030, + .10316, .03008, .00672, .00052, .00008, + .00005, .00023, .00029, + .09850, .02866, .00622, .00051, .00008, + .00005, .00022, .00027, + .09433, .02738, .00579, .00048, .00007, + .00005, .00021, .00026, + .09036, .02617, .00540, .00045, .00007, + .00005, .00020, .00024, + .08659, .02503, .00504, .00043, .00007, + .00005, .00018, .00023, + .08318, .02400, .00473, .00041, .00007, + .00005, .00017, .00021, + .08010, .02306, .00446, .00040, .00006, + .00005, .00017, .00020 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07714, .02216, .00420, .00038, .00006, + .00004, .00016, .00019, + .07430, .02130, .00397, .00036, .00006, + .00004, .00015, .00019, + .07172, .02052, .00376, .00035, .00006, + .00004, .00015, .00018, + .06935, .01981, .00358, .00033, .00006, + .00004, .00014, .00017, + .06704, .01912, .00340, .00031, .00006, + .00004, .00014, .00017 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .35062, .10860, .08190, .00191, .00000, + .00000, .00080, .00106, + .33086, .10201, .07190, .00177, .00000, + .00000, .00075, .00098, + .30418, .09315, .05958, .00159, .00000, + .00000, .00068, .00088, + .28655, .08736, .05212, .00147, .00001, + .00000, .00064, .00081, + .26948, .08182, .04544, .00139, .00002, + .00000, .00058, .00076, + .25573, .07736, .04044, .00129, .00003, + .00000, .00055, .00071, + .24335, .07335, .03624, .00121, .00004, + .00000, .00052, .00066, + .23098, .06937, .03234, .00114, .00005, + .00000, .00049, .00062 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22081, .06612, .02934, .00109, .00005, + .00000, .00046, .00059, + .21150, .06315, .02676, .00103, .00005, + .00000, .00044, .00056, + .20447, .06091, .02491, .00098, .00006, + .00000, .00042, .00054, + .19045, .05648, .02143, .00089, .00006, + .00000, .00038, .00048, + .17934, .05297, .01888, .00084, .00006, + .00001, .00036, .00045, + .16781, .04935, .01645, .00077, .00006, + .00002, .00033, .00041, + .15670, .04589, .01432, .00071, .00006, + .00002, .00031, .00037, + .14733, .04299, .01267, .00065, .00006, + .00002, .00029, .00034 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13853, .04027, .01124, .00060, .00006, + .00003, .00026, .00032, + .13170, .03817, .01020, .00056, .00006, + .00003, .00025, .00031, + .12389, .03578, .00910, .00052, .00006, + .00003, .00024, .00028, + .11742, .03382, .00824, .00050, .00006, + .00003, .00022, .00026, + .11183, .03213, .00755, .00048, .00006, + .00003, .00020, .00023, + .10518, .03011, .00677, .00044, .00006, + .00003, .00019, .00022, + .09932, .02835, .00613, .00041, .00005, + .00003, .00018, .00021, + .09417, .02680, .00560, .00038, .00005, + .00003, .00017, .00020 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08935, .02534, .00512, .00034, .00005, + .00003, .00015, .00019, + .08486, .02401, .00470, .00032, .00005, + .00003, .00014, .00017, + .08084, .02282, .00434, .00032, .00005, + .00003, .00013, .00016, + .07724, .02176, .00404, .00031, .00005, + .00003, .00013, .00015, + .07381, .02075, .00376, .00030, .00004, + .00003, .00012, .00014, + .07061, .01980, .00351, .00027, .00004, + .00003, .00012, .00014, + .06773, .01895, .00329, .00025, .00004, + .00003, .00011, .00013, + .06509, .01817, .00310, .00024, .00004, + .00003, .00010, .00013 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06255, .01743, .00292, .00024, .00004, + .00003, .00010, .00012, + .06014, .01673, .00275, .00023, .00004, + .00003, .00009, .00011, + .05794, .01609, .00261, .00021, .00004, + .00003, .00009, .00011, + .05594, .01551, .00247, .00021, .00004, + .00003, .00009, .00010, + .05398, .01494, .00235, .00020, .00003, + .00003, .00008, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .30709, .09204, .06204, .00124, .00000, + .00000, .00055, .00068, + .28879, .08616, .05404, .00116, .00000, + .00000, .00051, .00061, + .26419, .07830, .04429, .00103, .00000, + .00000, .00046, .00056, + .24800, .07320, .03847, .00095, .00000, + .00000, .00042, .00052, + .23246, .06829, .03330, .00089, .00001, + .00000, .00040, .00047, + .21993, .06439, .02949, .00083, .00002, + .00000, .00037, .00044, + .20868, .06090, .02631, .00078, .00002, + .00000, .00035, .00041, + .19749, .05743, .02336, .00072, .00003, + .00000, .00033, .00039 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18836, .05460, .02112, .00068, .00003, + .00000, .00031, .00036, + .17998, .05203, .01919, .00065, .00003, + .00000, .00030, .00034, + .17366, .05011, .01781, .00063, .00003, + .00000, .00029, .00033, + .16117, .04627, .01525, .00054, .00004, + .00000, .00026, .00030, + .15128, .04326, .01338, .00050, .00004, + .00001, .00025, .00027, + .14102, .04016, .01161, .00047, .00004, + .00001, .00023, .00025, + .13118, .03720, .01007, .00043, .00004, + .00001, .00020, .00023, + .12293, .03474, .00889, .00041, .00004, + .00002, .00019, .00021 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11522, .03245, .00786, .00038, .00004, + .00002, .00018, .00019, + .10927, .03067, .00712, .00034, .00004, + .00002, .00017, .00019, + .10245, .02866, .00634, .00033, .00004, + .00002, .00016, .00017, + .09684, .02701, .00573, .00030, .00004, + .00002, .00015, .00016, + .09203, .02560, .00524, .00028, .00003, + .00002, .00014, .00015, + .08627, .02392, .00469, .00025, .00003, + .00002, .00012, .00015, + .08123, .02245, .00424, .00023, .00003, + .00002, .00011, .00014, + .07682, .02117, .00387, .00022, .00003, + .00002, .00011, .00012 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07268, .01997, .00353, .00021, .00003, + .00002, .00011, .00011, + .06886, .01887, .00324, .00020, .00003, + .00002, .00010, .00010, + .06545, .01789, .00299, .00019, .00003, + .00002, .00009, .00010, + .06239, .01702, .00278, .00018, .00003, + .00002, .00008, .00009, + .05948, .01620, .00259, .00017, .00003, + .00002, .00008, .00008, + .05677, .01543, .00241, .00016, .00003, + .00002, .00008, .00008, + .05434, .01473, .00226, .00016, .00002, + .00002, .00007, .00008, + .05211, .01411, .00212, .00015, .00002, + .00002, .00007, .00007 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04998, .01351, .00200, .00015, .00002, + .00002, .00007, .00006, + .04798, .01294, .00188, .00013, .00002, + .00002, .00006, .00006, + .04616, .01242, .00178, .00012, .00002, + .00002, .00006, .00006, + .04449, .01195, .00169, .00011, .00002, + .00002, .00005, .00006, + .04286, .01150, .00160, .00011, .00002, + .00002, .00005, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .26561, .07708, .04586, .00088, .00000, + .00000, .00032, .00039, + .24892, .07192, .03967, .00080, .00000, + .00000, .00030, .00035, + .22656, .06505, .03219, .00072, .00000, + .00000, .00027, .00033, + .21196, .06060, .02779, .00065, .00000, + .00000, .00024, .00030, + .19798, .05637, .02391, .00060, .00001, + .00000, .00021, .00027, + .18676, .05297, .02107, .00058, .00001, + .00000, .00022, .00024, + .17672, .04996, .01872, .00053, .00001, + .00000, .00020, .00022, + .16678, .04698, .01655, .00048, .00002, + .00000, .00018, .00020 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15868, .04455, .01491, .00044, .00002, + .00000, .00018, .00020, + .15125, .04235, .01352, .00043, .00002, + .00000, .00017, .00019, + .14566, .04071, .01252, .00042, .00002, + .00000, .00016, .00018, + .13461, .03745, .01067, .00038, .00002, + .00000, .00014, .00017, + .12596, .03493, .00934, .00034, .00002, + .00000, .00013, .00015, + .11701, .03231, .00808, .00031, .00002, + .00001, .00012, .00014, + .10845, .02982, .00699, .00029, .00002, + .00001, .00011, .00013, + .10131, .02775, .00615, .00027, .00002, + .00001, .00010, .00012 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09464, .02584, .00543, .00025, .00002, + .00001, .00009, .00011, + .08949, .02437, .00491, .00024, .00002, + .00001, .00009, .00009, + .08368, .02270, .00436, .00021, .00002, + .00001, .00008, .00009, + .07888, .02134, .00394, .00019, .00002, + .00001, .00007, .00008, + .07477, .02017, .00360, .00018, .00002, + .00001, .00007, .00008, + .06987, .01879, .00322, .00018, .00002, + .00001, .00007, .00007, + .06558, .01759, .00291, .00017, .00002, + .00001, .00006, .00007, + .06185, .01654, .00265, .00017, .00002, + .00001, .00006, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05836, .01556, .00242, .00015, .00002, + .00001, .00005, .00005, + .05515, .01467, .00222, .00014, .00002, + .00001, .00005, .00005, + .05230, .01388, .00205, .00013, .00002, + .00001, .00005, .00005, + .04976, .01318, .00190, .00012, .00002, + .00001, .00004, .00005, + .04736, .01251, .00176, .00010, .00002, + .00001, .00003, .00005, + .04510, .01189, .00164, .00010, .00002, + .00001, .00004, .00004, + .04307, .01133, .00154, .00010, .00001, + .00001, .00004, .00004, + .04123, .01083, .00144, .00009, .00001, + .00001, .00003, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03947, .01035, .00136, .00009, .00001, + .00001, .00003, .00004, + .03781, .00989, .00128, .00009, .00001, + .00001, .00003, .00003, + .03630, .00948, .00121, .00008, .00001, + .00001, .00003, .00003, + .03493, .00911, .00114, .00008, .00001, + .00001, .00003, .00003, + .03360, .00875, .00108, .00008, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .22629, .06341, .03282, .00050, .00000, + .00000, .00024, .00026, + .21132, .05895, .02818, .00045, .00000, + .00000, .00021, .00025, + .19136, .05308, .02266, .00040, .00000, + .00000, .00019, .00020, + .17837, .04926, .01944, .00036, .00000, + .00000, .00017, .00020, + .16600, .04565, .01663, .00034, .00000, + .00000, .00016, .00017, + .15612, .04278, .01460, .00031, .00001, + .00000, .00015, .00016, + .14727, .04023, .01292, .00029, .00001, + .00000, .00014, .00015, + .13852, .03772, .01138, .00028, .00001, + .00000, .00012, .00013 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13142, .03568, .01023, .00027, .00001, + .00000, .00011, .00014, + .12498, .03384, .00924, .00025, .00001, + .00000, .00011, .00013, + .12017, .03246, .00854, .00023, .00001, + .00000, .00010, .00011, + .11060, .02974, .00726, .00020, .00001, + .00000, .00010, .00010, + .10314, .02763, .00634, .00018, .00001, + .00000, .00009, .00010, + .09544, .02546, .00547, .00017, .00001, + .00000, .00008, .00008, + .08812, .02342, .00472, .00015, .00001, + .00001, .00008, .00008, + .08204, .02173, .00415, .00013, .00001, + .00001, .00007, .00008 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07639, .02016, .00365, .00012, .00001, + .00001, .00007, .00007, + .07203, .01896, .00330, .00012, .00001, + .00001, .00006, .00007, + .06711, .01760, .00293, .00011, .00001, + .00001, .00005, .00006, + .06308, .01650, .00265, .00011, .00001, + .00001, .00005, .00005, + .05964, .01556, .00241, .00010, .00001, + .00001, .00005, .00005, + .05555, .01445, .00215, .00009, .00001, + .00001, .00005, .00004, + .05199, .01348, .00194, .00008, .00001, + .00001, .00004, .00004, + .04890, .01264, .00177, .00007, .00001, + .00001, .00004, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04601, .01186, .00161, .00007, .00001, + .00001, .00003, .00004, + .04336, .01115, .00148, .00007, .00001, + .00001, .00003, .00003, + .04102, .01052, .00136, .00006, .00001, + .00001, .00003, .00003, + .03893, .00997, .00126, .00006, .00001, + .00001, .00003, .00003, + .03696, .00944, .00117, .00005, .00001, + .00001, .00003, .00003, + .03511, .00895, .00109, .00005, .00001, + .00001, .00003, .00003, + .03347, .00851, .00102, .00005, .00001, + .00001, .00003, .00003, + .03198, .00812, .00096, .00004, .00001, + .00001, .00002, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03056, .00774, .00090, .00004, .00001, + .00001, .00002, .00002, + .02921, .00738, .00084, .00004, .00001, + .00001, .00002, .00002, + .02799, .00706, .00080, .00004, .00001, + .00001, .00002, .00002, + .02688, .00678, .00076, .00004, .00001, + .00001, .00002, .00002, + .02580, .00650, .00072, .00004, .00001, + .00001, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .15671, .04096, .01530, .00019, .00000, + .00000, .00007, .00007, + .14523, .03779, .01297, .00018, .00000, + .00000, .00006, .00007, + .13011, .03366, .01027, .00015, .00000, + .00000, .00005, .00006, + .12037, .03101, .00872, .00012, .00000, + .00000, .00006, .00004, + .11113, .02851, .00740, .00013, .00000, + .00000, .00005, .00004, + .10386, .02654, .00645, .00010, .00000, + .00000, .00004, .00004, + .09738, .02481, .00568, .00010, .00000, + .00000, .00004, .00004, + .09101, .02311, .00498, .00009, .00000, + .00000, .00004, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08588, .02175, .00446, .00009, .00000, + .00000, .00004, .00004, + .08124, .02052, .00401, .00008, .00000, + .00000, .00003, .00003, + .07778, .01961, .00370, .00007, .00000, + .00000, .00003, .00003, + .07097, .01781, .00313, .00006, .00000, + .00000, .00003, .00004, + .06572, .01643, .00273, .00006, .00000, + .00000, .00003, .00003, + .06034, .01503, .00235, .00005, .00000, + .00000, .00003, .00003, + .05526, .01371, .00202, .00005, .00000, + .00000, .00002, .00002, + .05108, .01263, .00178, .00005, .00000, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04723, .01164, .00156, .00004, .00000, + .00000, .00002, .00002, + .04428, .01088, .00141, .00003, .00000, + .00000, .00002, .00002, + .04097, .01003, .00125, .00003, .00000, + .00000, .00001, .00002, + .03828, .00935, .00113, .00003, .00000, + .00000, .00002, .00002, + .03598, .00877, .00103, .00003, .00000, + .00000, .00002, .00001, + .03330, .00808, .00092, .00002, .00000, + .00000, .00001, .00002, + .03096, .00750, .00083, .00002, .00000, + .00000, .00001, .00002, + .02894, .00699, .00075, .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)/ + .02707, .00652, .00068, .00002, .00000, + .00000, .00001, .00001, + .02537, .00610, .00062, .00002, .00000, + .00000, .00001, .00001, + .02387, .00572, .00057, .00002, .00000, + .00000, .00001, .00001, + .02255, .00539, .00053, .00002, .00000, + .00000, .00001, .00001, + .02131, .00508, .00049, .00001, .00000, + .00000, .00001, .00001, + .02015, .00480, .00046, .00002, .00000, + .00000, .00001, .00001, + .01911, .00454, .00043, .00002, .00000, + .00000, .00001, .00001, + .01818, .00431, .00040, .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)/ + .01731, .00410, .00037, .00001, .00000, + .00000, .00001, .00001, + .01647, .00389, .00035, .00001, .00000, + .00000, .00001, .00001, + .01572, .00371, .00033, .00001, .00000, + .00000, .00001, .00001, + .01505, .00355, .00031, .00001, .00000, + .00000, .00001, .00001, + .01439, .00338, .00030, .00001, .00000, + .00000, .00001, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .10030, .02428, .00607, .00006, .00000, + .00000, .00002, .00003, + .09219, .02223, .00511, .00006, .00000, + .00000, .00002, .00001, + .08161, .01957, .00400, .00005, .00000, + .00000, .00001, .00002, + .07488, .01788, .00339, .00005, .00000, + .00000, .00001, .00001, + .06857, .01632, .00286, .00004, .00000, + .00000, .00001, .00001, + .06362, .01509, .00249, .00004, .00000, + .00000, .00001, .00001, + .05926, .01401, .00219, .00003, .00000, + .00000, .00001, .00001, + .05502, .01296, .00192, .00003, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05160, .01212, .00171, .00003, .00000, + .00000, .00001, .00001, + .04853, .01137, .00154, .00003, .00000, + .00000, .00001, .00001, + .04626, .01082, .00142, .00003, .00000, + .00000, .00000, .00001, + .04181, .00974, .00121, .00002, .00000, + .00000, .00000, .00000, + .03841, .00892, .00105, .00002, .00000, + .00000, .00000, .00001, + .03498, .00809, .00091, .00001, .00000, + .00000, .00000, .00001, + .03176, .00732, .00078, .00002, .00000, + .00000, .00000, .00000, + .02913, .00669, .00069, .00002, .00000, + .00000, .00001, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02673, .00611, .00060, .00001, .00000, + .00000, .00001, .00000, + .02489, .00568, .00055, .00001, .00000, + .00000, .00000, .00000, + .02287, .00520, .00048, .00001, .00000, + .00000, .00000, .00000, + .02123, .00481, .00044, .00001, .00000, + .00000, .00000, .00000, + .01984, .00449, .00040, .00001, .00000, + .00000, .00000, .00000, + .01822, .00411, .00035, .00001, .00000, + .00000, .00000, .00000, + .01683, .00378, .00032, .00000, .00000, + .00000, .00000, .00000, + .01564, .00350, .00029, .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)/ + .01453, .00325, .00026, .00000, .00000, + .00000, .00000, .00000, + .01353, .00302, .00024, .00000, .00000, + .00000, .00000, .00000, + .01266, .00282, .00022, .00000, .00000, + .00000, .00000, .00000, + .01189, .00264, .00020, .00000, .00000, + .00000, .00000, .00000, + .01117, .00248, .00019, .00000, .00000, + .00000, .00000, .00000, + .01051, .00233, .00017, .00000, .00000, + .00000, .00000, .00000, + .00993, .00219, .00016, .00000, .00000, + .00000, .00000, .00000, + .00940, .00207, .00015, .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)/ + .00890, .00196, .00014, .00000, .00000, + .00000, .00000, .00000, + .00844, .00185, .00013, .00000, .00000, + .00000, .00000, .00000, + .00802, .00176, .00012, .00000, .00000, + .00000, .00000, .00000, + .00764, .00167, .00012, .00000, .00000, + .00000, .00000, .00000, + .00728, .00159, .00011, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ + .05784, .01287, .00196, .00003, .00000, + .00000, .00000, .00000, + .05269, .01167, .00165, .00002, .00000, + .00000, .00000, .00000, + .04604, .01014, .00129, .00002, .00000, + .00000, .00000, .00000, + .04186, .00919, .00110, .00002, .00000, + .00000, .00000, .00000, + .03797, .00830, .00093, .00002, .00000, + .00000, .00000, .00000, + .03496, .00762, .00081, .00001, .00000, + .00000, .00000, .00000, + .03232, .00702, .00072, .00001, .00000, + .00000, .00000, .00000, + .02976, .00644, .00063, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .02772, .00599, .00057, .00001, .00000, + .00000, .00000, .00000, + .02592, .00558, .00051, .00001, .00000, + .00000, .00000, .00000, + .02458, .00528, .00047, .00001, .00000, + .00000, .00000, .00000, + .02199, .00471, .00040, .00001, .00000, + .00000, .00000, .00000, + .02003, .00428, .00035, .00001, .00000, + .00000, .00000, .00000, + .01806, .00384, .00031, .00001, .00000, + .00000, .00000, .00000, + .01624, .00344, .00026, .00001, .00000, + .00000, .00000, .00000, + .01476, .00312, .00023, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01343, .00283, .00021, .00000, .00000, + .00000, .00000, .00000, + .01242, .00261, .00019, .00000, .00000, + .00000, .00000, .00000, + .01132, .00237, .00016, .00000, .00000, + .00000, .00000, .00000, + .01043, .00217, .00015, .00000, .00000, + .00000, .00000, .00000, + .00968, .00201, .00013, .00000, .00000, + .00000, .00000, .00000, + .00881, .00183, .00012, .00000, .00000, + .00000, .00000, .00000, + .00807, .00167, .00011, .00000, .00000, + .00000, .00000, .00000, + .00745, .00154, .00010, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00687, .00142, .00009, .00000, .00000, + .00000, .00000, .00000, + .00636, .00131, .00008, .00000, .00000, + .00000, .00000, .00000, + .00591, .00121, .00007, .00000, .00000, + .00000, .00000, .00000, + .00552, .00113, .00007, .00000, .00000, + .00000, .00000, .00000, + .00516, .00105, .00006, .00000, .00000, + .00000, .00000, .00000, + .00482, .00098, .00006, .00000, .00000, + .00000, .00000, .00000, + .00453, .00092, .00005, .00000, .00000, + .00000, .00000, .00000, + .00426, .00087, .00005, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ + .00402, .00082, .00005, .00000, .00000, + .00000, .00000, .00000, + .00379, .00077, .00004, .00000, .00000, + .00000, .00000, .00000, + .00358, .00072, .00004, .00000, .00000, + .00000, .00000, .00000, + .00340, .00069, .00004, .00000, .00000, + .00000, .00000, .00000, + .00322, .00065, .00004, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .02870, .00577, .00047, .00000, .00000, + .00000, .00000, .00001, + .02586, .00518, .00040, .00000, .00000, + .00000, .00000, .00000, + .02226, .00444, .00033, .00000, .00000, + .00000, .00000, .00000, + .02002, .00397, .00028, .00000, .00000, + .00000, .00000, .00000, + .01797, .00356, .00024, .00000, .00000, + .00000, .00000, .00000, + .01639, .00323, .00021, .00000, .00000, + .00000, .00000, .00000, + .01502, .00295, .00019, .00000, .00000, + .00000, .00000, .00000, + .01370, .00269, .00017, .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)/ + .01267, .00248, .00015, .00000, .00000, + .00000, .00000, .00000, + .01175, .00229, .00014, .00000, .00000, + .00000, .00000, .00000, + .01108, .00216, .00013, .00000, .00000, + .00000, .00000, .00000, + .00980, .00190, .00011, .00000, .00000, + .00000, .00000, .00000, + .00883, .00171, .00010, .00000, .00000, + .00000, .00000, .00000, + .00788, .00152, .00009, .00000, .00000, + .00000, .00000, .00000, + .00700, .00134, .00007, .00000, .00000, + .00000, .00000, .00000, + .00630, .00121, .00007, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ + .00567, .00108, .00006, .00000, .00000, + .00000, .00000, .00000, + .00520, .00099, .00005, .00000, .00000, + .00000, .00000, .00000, + .00469, .00089, .00005, .00000, .00000, + .00000, .00000, .00000, + .00429, .00081, .00004, .00000, .00000, + .00000, .00000, .00000, + .00395, .00075, .00004, .00000, .00000, + .00000, .00000, .00000, + .00356, .00067, .00003, .00000, .00000, + .00000, .00000, .00000, + .00323, .00061, .00003, .00000, .00000, + .00000, .00000, .00000, + .00296, .00055, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00271, .00051, .00002, .00000, .00000, + .00000, .00000, .00000, + .00248, .00046, .00002, .00000, .00000, + .00000, .00000, .00000, + .00229, .00043, .00002, .00000, .00000, + .00000, .00000, .00000, + .00212, .00039, .00002, .00000, .00000, + .00000, .00000, .00000, + .00197, .00037, .00002, .00000, .00000, + .00000, .00000, .00000, + .00183, .00034, .00002, .00000, .00000, + .00000, .00000, .00000, + .00171, .00032, .00001, .00000, .00000, + .00000, .00000, .00000, + .00160, .00030, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00150, .00028, .00001, .00000, .00000, + .00000, .00000, .00000, + .00140, .00026, .00001, .00000, .00000, + .00000, .00000, .00000, + .00132, .00024, .00001, .00000, .00000, + .00000, .00000, .00000, + .00125, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00117, .00022, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00296, .00045, .00001, .00000, .00000, + .00000, .00000, .00000, + .00258, .00039, .00001, .00000, .00000, + .00000, .00000, .00000, + .00213, .00032, .00001, .00000, .00000, + .00000, .00000, .00000, + .00185, .00028, .00001, .00000, .00000, + .00000, .00000, .00000, + .00161, .00024, .00001, .00000, .00000, + .00000, .00000, .00000, + .00143, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00128, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00114, .00017, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00103, .00015, .00000, .00000, .00000, + .00000, .00000, .00000, + .00093, .00014, .00000, .00000, .00000, + .00000, .00000, .00000, + .00087, .00013, .00000, .00000, .00000, + .00000, .00000, .00000, + .00074, .00011, .00000, .00000, .00000, + .00000, .00000, .00000, + .00065, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00056, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00048, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00042, .00006, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00037, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00033, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00023, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00020, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor06.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