#include "pdf/pilot.h" subroutine sfmrs_99a5(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)/ + .00384, .00181, 1.10758, .81616, .00000, + .00000, .43904, .82509, + .00402, .00189, 2.42317, .85953, .00000, + .00000, .48784, .86857, + .00428, .00201, 5.00081, .95097, .00706, + .00000, .58681, .96016, + .00447, .00210, 7.29271, 1.03845, .12104, + .00000, .67939, 1.04773, + .00467, .00219, 10.27976, 1.15069, .24987, + .00000, .79678, 1.16006, + .00484, .00228, 13.35071, 1.26448, .37145, + .00000, .91485, 1.27393, + .00500, .00236, 16.78503, 1.38883, .50416, + .00000, 1.04316, 1.39834, + .00518, .00244, 20.99893, 1.53761, .66320, + .00000, 1.19603, 1.54718 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00533, .00252, 25.17682, 1.68149, .81788, + .00000, 1.34334, 1.69111, + .00548, .00259, 29.65268, 1.83443, .97952, + .00000, 1.49952, 1.84410, + .00559, .00265, 33.50784, 1.96561, 1.11636, + .00000, 1.63321, 1.97531, + .00584, .00278, 42.67230, 2.27553, 1.44148, + .00022, 1.94831, 2.28529, + .00606, .00289, 51.36903, 2.57602, 1.75584, + .25464, 2.25309, 2.58583, + .00631, .00302, 62.06824, 2.94919, 2.14460, + .71924, 2.63088, 2.95905, + .00656, .00315, 74.70134, 3.38165, 2.59378, + 1.19207, 3.06801, 3.39156, + .00680, .00327, 87.46950, 3.81335, 3.04135, + 1.66499, 3.50380, 3.82329 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00704, .00340, 101.66980, 4.28954, 3.53421, + 2.18194, 3.98400, 4.29951, + .00724, .00350, 114.45491, 4.71631, 3.97452, + 2.63951, 4.41403, 4.72631, + .00748, .00363, 131.16171, 5.27302, 4.54697, + 3.23054, 4.97458, 5.28304, + .00770, .00375, 147.11221, 5.80311, 5.09175, + 3.79398, 5.50798, 5.81315, + .00790, .00386, 162.79094, 6.32216, 5.62616, + 4.35026, 6.02999, 6.33221, + .00816, .00399, 183.90334, 7.02394, 6.34532, + 5.09034, 6.73544, 7.03401, + .00841, .00412, 205.07019, 7.72975, 7.06707, + 5.83072, 7.44461, 7.73982, + .00864, .00425, 226.18028, 8.43423, 7.78788, + 6.57239, 8.15218, 8.44431 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00887, .00437, 248.54242, 9.18170, 8.55280, + 7.36054, 8.90265, 9.19178, + .00910, .00450, 271.31281, 9.95017, 9.33568, + 8.15977, 9.67401, 9.96025, + .00932, .00462, 294.05557, 10.71837, 10.11963, + 8.96412, 10.44488, 10.72845, + .00953, .00473, 316.33887, 11.47575, 10.89125, + 9.75341, 11.20473, 11.48583, + .00974, .00484, 339.58911, 12.27033, 11.70016, + 10.58027, 12.00175, 12.28041, + .00995, .00496, 363.41312, 13.08758, 12.53227, + 11.43165, 12.82136, 13.09766, + .01015, .00507, 386.68433, 13.89274, 13.35047, + 12.26592, 13.62872, 13.90281, + .01035, .00517, 409.55508, 14.68627, 14.15740, + 13.09038, 14.42430, 14.69633 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01054, .00528, 433.16504, 15.51206, 14.99596, + 13.94501, 15.25213, 15.52212, + .01073, .00539, 457.20969, 16.35699, 15.85395, + 14.81977, 16.09904, 16.36705, + .01092, .00549, 480.76395, 17.18941, 16.69898, + 15.68126, 16.93332, 17.19946, + .01110, .00559, 503.53922, 18.00079, 17.52152, + 16.51786, 17.74644, 18.01083, + .01128, .00569, 527.45172, 18.85291, 18.38677, + 17.40124, 18.60029, 18.86294 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00530, .00251, .99891, .69905, .00000, + .00000, .37540, .70429, + .00556, .00263, 2.16061, .73765, .00000, + .00000, .41833, .74295, + .00593, .00281, 4.39455, .81656, .00613, + .00000, .50325, .82194, + .00619, .00294, 6.34383, .89050, .10229, + .00000, .58126, .89594, + .00647, .00308, 8.84640, .98413, .20972, + .00000, .67898, .98963, + .00671, .00321, 11.38391, 1.07801, .30989, + .00000, .77623, 1.08354, + .00694, .00332, 14.18857, 1.17969, .41822, + .00000, .88106, 1.18526, + .00719, .00345, 17.59114, 1.30037, .54689, + .00000, 1.00496, 1.30598 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00740, .00356, 20.92980, 1.41622, .67105, + .00000, 1.12352, 1.42187, + .00761, .00367, 24.47249, 1.53852, .79983, + .00000, 1.24837, 1.54419, + .00778, .00375, 27.49891, 1.64278, .90818, + .00000, 1.35460, 1.64847, + .00813, .00393, 34.61641, 1.88725, 1.16358, + .00019, 1.60315, 1.89298, + .00843, .00409, 41.27947, 2.12209, 1.40817, + .19778, 1.84135, 2.12785, + .00877, .00427, 49.37334, 2.41116, 1.70794, + .55650, 2.13405, 2.41696, + .00913, .00446, 58.81293, 2.74306, 2.05104, + .91742, 2.46960, 2.74890, + .00945, .00464, 68.24306, 3.07147, 2.38994, + 1.27517, 2.80122, 3.07734 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .00978, .00481, 78.61852, 3.43080, 2.76009, + 1.66292, 3.16369, 3.43669, + .01006, .00496, 87.87019, 3.75047, 3.08836, + 2.00350, 3.48589, 3.75638, + .01040, .00514, 99.84468, 4.16441, 3.51201, + 2.44010, 3.90283, 4.17034, + .01070, .00531, 111.17058, 4.55571, 3.91233, + 2.85333, 4.29672, 4.56166, + .01098, .00546, 122.21507, 4.93648, 4.30266, + 3.25888, 4.67980, 4.94245, + .01133, .00565, 136.95227, 5.44766, 4.82420, + 3.79442, 5.19384, 5.45365, + .01167, .00583, 151.58902, 5.95801, 5.34383, + 4.32621, 5.70682, 5.96401, + .01198, .00600, 166.06615, 6.46407, 5.85948, + 4.85559, 6.21528, 6.47009 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01230, .00618, 181.28224, 6.99767, 6.40338, + 5.41476, 6.75122, 7.00370, + .01262, .00635, 196.64653, 7.54268, 6.95637, + 5.97786, 7.29848, 7.54872, + .01291, .00651, 211.88655, 8.08447, 7.50718, + 6.54169, 7.84235, 8.09052, + .01320, .00667, 226.71487, 8.61568, 8.04635, + 7.09186, 8.37549, 8.62174, + .01349, .00683, 242.08498, 9.17007, 8.60867, + 7.66526, 8.93178, 9.17613, + .01377, .00698, 257.73770, 9.73745, 9.18435, + 8.25287, 9.50099, 9.74352, + .01404, .00713, 272.92841, 10.29358, 9.74750, + 8.82565, 10.05884, 10.29966, + .01430, .00728, 287.77872, 10.83930, 10.30060, + 9.38943, 10.60616, 10.84539 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01457, .00742, 303.01962, 11.40461, 10.87274, + 9.97109, 11.17305, 11.41070, + .01483, .00757, 318.46014, 11.98057, 11.45572, + 10.56404, 11.75055, 11.98666, + .01508, .00771, 333.50778, 12.54563, 12.02756, + 11.14563, 12.31707, 12.55173, + .01532, .00784, 347.98172, 13.09414, 12.58188, + 11.70804, 12.86695, 13.10025, + .01557, .00798, 363.12021, 13.66830, 13.16321, + 12.30025, 13.44246, 13.67441 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00733, .00349, .90106, .59850, .00000, + .00000, .32103, .60112, + .00768, .00367, 1.92671, .63276, .00000, + .00000, .35877, .63541, + .00821, .00394, 3.86192, .70081, .00532, + .00000, .43161, .70350, + .00858, .00413, 5.51834, .76327, .08642, + .00000, .49730, .76600, + .00898, .00434, 7.61243, .84129, .17597, + .00000, .57857, .84405, + .00932, .00452, 9.70594, .91861, .25844, + .00000, .65857, .92139, + .00964, .00469, 11.99224, 1.00161, .34680, + .00000, .74404, 1.00441, + .00999, .00487, 14.73405, 1.09929, .45081, + .00000, .84426, 1.10211 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01029, .00503, 17.39600, 1.19234, .55037, + .00000, .93945, 1.19518, + .01058, .00519, 20.19309, 1.28987, .65287, + .00000, 1.03898, 1.29273, + .01081, .00531, 22.56251, 1.37250, .73854, + .00000, 1.12316, 1.37537, + .01130, .00557, 28.07409, 1.56474, .93889, + .00017, 1.31861, 1.56765, + .01172, .00580, 33.16216, 1.74767, 1.12889, + .15355, 1.50417, 1.75059, + .01220, .00606, 39.26265, 1.97081, 1.35962, + .43038, 1.73015, 1.97376, + .01269, .00632, 46.28809, 2.22459, 1.62118, + .70570, 1.98677, 2.22756, + .01314, .00657, 53.22330, 2.47346, 1.87723, + .97613, 2.23814, 2.47646 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01360, .00682, 60.77003, 2.74350, 2.15458, + 1.26671, 2.51063, 2.74652, + .01398, .00703, 67.43280, 2.98193, 2.39869, + 1.51994, 2.75103, 2.98497, + .01445, .00728, 75.97246, 3.28838, 2.71138, + 1.84208, 3.05981, 3.29145, + .01486, .00751, 83.97243, 3.57593, 3.00469, + 2.14473, 3.34936, 3.57902, + .01524, .00772, 91.71035, 3.85397, 3.28893, + 2.43995, 3.62920, 3.85707, + .01573, .00799, 101.93859, 4.22455, 3.66595, + 2.82682, 4.00200, 4.22767, + .01619, .00824, 111.99934, 4.59176, 4.03879, + 3.20808, 4.37124, 4.59490, + .01662, .00848, 121.86608, 4.95345, 4.40637, + 3.58516, 4.73479, 4.95661 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01706, .00873, 132.15349, 5.33242, 4.79169, + 3.98101, 5.11557, 5.33560, + .01748, .00896, 142.45041, 5.71690, 5.18077, + 4.37678, 5.50179, 5.72010, + .01789, .00919, 152.59236, 6.09695, 5.56622, + 4.77099, 5.88345, 6.10016, + .01828, .00940, 162.38911, 6.46746, 5.94140, + 5.15344, 6.25546, 6.47069, + .01867, .00962, 172.47501, 6.85208, 6.33062, + 5.54993, 6.64155, 6.85533, + .01905, .00984, 182.68158, 7.24373, 6.72713, + 5.95428, 7.03462, 7.24699, + .01942, .01004, 192.51953, 7.62560, 7.11296, + 6.34627, 7.41781, 7.62887, + .01977, .01024, 202.08534, 7.99868, 7.49030, + 6.73052, 7.79213, 8.00197 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02013, .01044, 211.84239, 8.38331, 7.87877, + 7.12502, 8.17798, 8.38661, + .02048, .01064, 221.67412, 8.77350, 8.27295, + 7.52551, 8.56937, 8.77681, + .02082, .01082, 231.20451, 9.15468, 8.65796, + 7.91670, 8.95168, 9.15802, + .02114, .01101, 240.32123, 9.52314, 9.02959, + 8.29332, 9.32118, 9.52648, + .02147, .01119, 249.81972, 9.90753, 9.41814, + 8.68878, 9.70663, 9.91088 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .00885, .00424, .84846, .54638, .00000, + .00000, .29299, .54791, + .00929, .00446, 1.80199, .57831, .00000, + .00000, .32797, .57986, + .00993, .00480, 3.58091, .64067, .00490, + .00000, .39454, .64225, + .01039, .00505, 5.08614, .69724, .07829, + .00000, .45393, .69884, + .01088, .00530, 6.97168, .76732, .15876, + .00000, .52685, .76894, + .01129, .00552, 8.84081, .83628, .23234, + .00000, .59815, .83792, + .01169, .00574, 10.86750, .90991, .31073, + .00000, .67394, .91156, + .01211, .00596, 13.28125, .99611, .40252, + .00000, .76236, .99779 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01248, .00616, 15.60994, 1.07786, .48996, + .00000, .84597, 1.07956, + .01283, .00635, 18.04255, 1.16317, .57957, + .00000, .93302, 1.16488, + .01311, .00651, 20.09284, 1.23517, .65420, + .00000, 1.00637, 1.23689, + .01370, .00683, 24.83099, 1.40193, .82787, + .00016, 1.17591, 1.40368, + .01422, .00711, 29.16850, 1.55970, .99162, + .13237, 1.33596, 1.56146, + .01479, .00743, 34.32844, 1.75112, 1.18939, + .37016, 1.52984, 1.75291, + .01539, .00776, 40.22599, 1.96758, 1.41230, + .60504, 1.74877, 1.96940, + .01594, .00806, 46.00639, 2.17874, 1.62935, + .83451, 1.96208, 2.18057 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01649, .00836, 52.25506, 2.40671, 1.86330, + 1.07981, 2.19217, 2.40857, + .01695, .00862, 57.73912, 2.60710, 2.06828, + 1.29259, 2.39426, 2.60898, + .01751, .00893, 64.72672, 2.86351, 2.32966, + 1.56203, 2.65268, 2.86541, + .01801, .00921, 71.23519, 3.10304, 2.57379, + 1.81406, 2.89394, 3.10497, + .01847, .00946, 77.49985, 3.33379, 2.80949, + 2.05900, 3.12623, 3.33573, + .01905, .00979, 85.73389, 3.64000, 3.12076, + 2.37853, 3.43436, 3.64197, + .01961, .01010, 93.78600, 3.94207, 3.42720, + 2.69198, 3.73818, 3.94407, + .02012, .01039, 101.64271, 4.23842, 3.72814, + 3.00080, 4.03613, 4.24044 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02065, .01068, 109.79485, 4.54776, 4.04244, + 3.32381, 4.34703, 4.54980, + .02116, .01097, 117.91131, 4.86033, 4.35850, + 3.64534, 4.66110, 4.86239, + .02165, .01124, 125.87208, 5.16826, 4.67060, + 3.96462, 4.97042, 5.17034, + .02211, .01150, 133.52809, 5.46746, 4.97335, + 4.27329, 5.27090, 5.46956, + .02258, .01176, 141.37770, 5.77704, 5.28645, + 4.59227, 5.58175, 5.77917, + .02304, .01202, 149.29094, 6.09134, 5.60446, + 4.91663, 5.89727, 6.09349, + .02348, .01227, 156.88684, 6.39682, 5.91291, + 5.23004, 6.20389, 6.39899, + .02390, .01250, 164.24863, 6.69450, 6.21383, + 5.53651, 6.50263, 6.69668 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02432, .01274, 171.72954, 7.00051, 6.52272, + 5.85023, 6.80970, 7.00272, + .02474, .01298, 179.24321, 7.31015, 6.83536, + 6.16792, 7.12037, 7.31238, + .02514, .01320, 186.50284, 7.61188, 7.13997, + 6.47744, 7.42306, 7.61412, + .02553, .01342, 193.42378, 7.90277, 7.43322, + 6.77465, 7.71486, 7.90503, + .02592, .01364, 200.61838, 8.20567, 7.73928, + 7.08622, 8.01867, 8.20795 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01013, .00486, .81310, .51212, .00000, + .00000, .27462, .51306, + .01063, .00513, 1.71855, .54246, .00000, + .00000, .30775, .54341, + .01138, .00553, 3.39408, .60107, .00462, + .00000, .37019, .60205, + .01191, .00581, 4.80014, .65377, .07297, + .00000, .42547, .65477, + .01246, .00611, 6.54982, .71869, .14755, + .00000, .49297, .71970, + .01294, .00637, 8.27372, .78225, .21539, + .00000, .55866, .78328, + .01340, .00662, 10.13332, .84983, .28737, + .00000, .62821, .85088, + .01388, .00689, 12.33709, .92867, .37135, + .00000, .70906, .92973 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01431, .00712, 14.45354, 1.00319, .45107, + .00000, .78527, 1.00427, + .01471, .00734, 16.65511, 1.08071, .53250, + .00000, .86437, 1.08180, + .01503, .00752, 18.50394, 1.14596, .60013, + .00000, .93085, 1.14707, + .01572, .00789, 22.75643, 1.29658, .75699, + .00015, 1.08398, 1.29771, + .01630, .00822, 26.62579, 1.43849, .90426, + .11910, 1.22796, 1.43964, + .01696, .00858, 31.20276, 1.61001, 1.08144, + .33252, 1.40170, 1.61119, + .01765, .00897, 36.40554, 1.80317, 1.28032, + .54230, 1.59709, 1.80438, + .01828, .00931, 41.47878, 1.99087, 1.47323, + .74645, 1.78675, 1.99210 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .01891, .00967, 46.93690, 2.19280, 1.68041, + .96389, 1.99059, 2.19407, + .01943, .00996, 51.70663, 2.36973, 1.86135, + 1.15187, 2.16905, 2.37101, + .02007, .01032, 57.75817, 2.59539, 2.09133, + 1.38912, 2.39652, 2.59670, + .02064, .01064, 63.37143, 2.80553, 2.30545, + 1.61034, 2.60823, 2.80686, + .02117, .01093, 68.75545, 3.00741, 2.51164, + 1.82478, 2.81150, 3.00877, + .02183, .01131, 75.80296, 3.27449, 2.78307, + 2.10358, 3.08031, 3.27588, + .02246, .01166, 82.66563, 3.53711, 3.04942, + 2.37619, 3.34450, 3.53852, + .02305, .01199, 89.33710, 3.79402, 3.31027, + 2.64403, 3.60285, 3.79546 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02365, .01232, 96.23544, 4.06145, 3.58197, + 2.92343, 3.87169, 4.06292, + .02423, .01265, 103.07688, 4.33090, 3.85437, + 3.20067, 4.14249, 4.33240, + .02478, .01297, 109.76664, 4.59571, 4.12273, + 3.47535, 4.40855, 4.59723, + .02531, .01326, 116.17979, 4.85238, 4.38241, + 3.74025, 4.66637, 4.85392, + .02584, .01356, 122.73541, 5.11735, 4.65035, + 4.01336, 4.93248, 5.11892, + .02636, .01385, 129.32597, 5.38577, 4.92192, + 4.29049, 5.20200, 5.38736, + .02686, .01414, 135.63300, 5.64606, 5.18472, + 4.55762, 5.46332, 5.64768, + .02733, .01440, 141.73140, 5.89923, 5.44063, + 4.81838, 5.71745, 5.90087 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02781, .01467, 147.91127, 6.15896, 5.70277, + 5.08473, 5.97812, 6.16062, + .02828, .01494, 154.10364, 6.42127, 5.96762, + 5.35396, 6.24136, 6.42295, + .02874, .01520, 160.07234, 6.67641, 6.22519, + 5.61581, 6.49737, 6.67811, + .02917, .01545, 165.74844, 6.92193, 6.47269, + 5.86674, 6.74371, 6.92366, + .02961, .01569, 171.63931, 7.17723, 6.73066, + 6.12949, 6.99982, 7.17898 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01124, .00541, .78676, .48700, .00000, + .00000, .26119, .48757, + .01181, .00572, 1.65658, .51616, .00000, + .00000, .29294, .51674, + .01264, .00617, 3.25595, .57199, .00441, + .00000, .35236, .57260, + .01323, .00649, 4.58939, .62187, .06908, + .00000, .40464, .62249, + .01385, .00683, 6.24009, .68303, .13938, + .00000, .46820, .68367, + .01439, .00712, 7.85869, .74266, .20306, + .00000, .52982, .74333, + .01490, .00740, 9.59762, .80588, .27043, + .00000, .59486, .80656, + .01544, .00770, 11.65037, .87941, .34878, + .00000, .67027, .88011 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01591, .00796, 13.61476, .94874, .42297, + .00000, .74116, .94945, + .01636, .00821, 15.65137, 1.02067, .49856, + .00000, .81457, 1.02140, + .01672, .00841, 17.35678, 1.08109, .56119, + .00000, .87612, 1.08184, + .01748, .00883, 21.26490, 1.22019, .70609, + .00015, 1.01756, 1.22097, + .01813, .00920, 24.80395, 1.35083, .84169, + .10971, 1.15012, 1.35163, + .01887, .00961, 28.97150, 1.50825, 1.00432, + .30591, 1.30959, 1.50907, + .01963, .01004, 33.68863, 1.68495, 1.18628, + .49804, 1.48836, 1.68581, + .02032, .01042, 38.26968, 1.85615, 1.36224, + .68445, 1.66137, 1.85704 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02103, .01082, 43.17985, 2.03982, 1.55069, + .88241, 1.84680, 2.04073, + .02161, .01115, 47.45617, 2.20033, 1.71486, + 1.05311, 2.00873, 2.20127, + .02232, .01155, 52.86355, 2.40453, 1.92299, + 1.26799, 2.21461, 2.40550, + .02295, .01190, 57.86293, 2.59423, 2.11628, + 1.46785, 2.40575, 2.59523, + .02353, .01223, 62.64492, 2.77608, 2.30203, + 1.66119, 2.58889, 2.77710, + .02426, .01264, 68.88399, 3.01607, 2.54595, + 1.91191, 2.83047, 3.01712, + .02496, .01303, 74.93923, 3.25145, 2.78470, + 2.15643, 3.06731, 3.25254, + .02561, .01340, 80.80870, 3.48120, 3.01798, + 2.39614, 3.29839, 3.48232 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02627, .01377, 86.86101, 3.71985, 3.26048, + 2.64568, 3.53835, 3.72101, + .02691, .01414, 92.84492, 3.95976, 3.50302, + 2.89268, 3.77950, 3.96094, + .02752, .01448, 98.68211, 4.19508, 3.74153, + 3.13697, 4.01597, 4.19629, + .02810, .01481, 104.26393, 4.42273, 3.97188, + 3.37208, 4.24469, 4.42397, + .02868, .01514, 109.95606, 4.65732, 4.20912, + 3.61405, 4.48033, 4.65859, + .02926, .01547, 115.66621, 4.89457, 4.44919, + 3.85917, 4.71859, 4.89586, + .02981, .01578, 121.11737, 5.12421, 4.68106, + 4.09500, 4.94918, 5.12553, + .03033, .01608, 126.37828, 5.34724, 4.90654, + 4.32489, 5.17310, 5.34859 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03086, .01637, 131.69798, 5.57567, 5.13713, + 4.55931, 5.40240, 5.57704, + .03138, .01667, 137.01837, 5.80604, 5.36976, + 4.79593, 5.63363, 5.80744, + .03188, .01695, 142.13680, 6.02979, 5.59568, + 5.02572, 5.85818, 6.03122, + .03236, .01722, 146.99477, 6.24479, 5.81244, + 5.24560, 6.07394, 6.24624, + .03284, .01750, 152.03023, 6.46811, 6.03815, + 5.47562, 6.29801, 6.46959 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01556, .00758, .71076, .41642, .00000, + .00000, .22362, .41634, + .01637, .00803, 1.47864, .44211, .00000, + .00000, .25144, .44206, + .01754, .00869, 2.86210, .49005, .00382, + .00000, .30229, .49004, + .01838, .00916, 3.99176, .53201, .05821, + .00000, .34620, .53203, + .01926, .00966, 5.36712, .58272, .11663, + .00000, .39886, .58277, + .02001, .01008, 6.69522, .63154, .16888, + .00000, .44929, .63162, + .02073, .01049, 8.10372, .68278, .22362, + .00000, .50200, .68289, + .02148, .01092, 9.74582, .74183, .28668, + .00000, .56256, .74197 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02214, .01130, 11.29942, .79704, .34588, + .00000, .61904, .79721, + .02277, .01166, 12.89312, .85387, .40573, + .00000, .67705, .85406, + .02327, .01194, 14.21548, .90128, .45498, + .00000, .72538, .90150, + .02433, .01255, 17.21022, 1.00952, .56795, + .00013, .83549, 1.00978, + .02525, .01307, 19.88082, 1.11013, .67259, + .08485, .93765, 1.11044, + .02626, .01365, 22.98075, 1.23019, .79686, + .23567, 1.05936, 1.23055, + .02732, .01425, 26.44164, 1.36360, .93448, + .38158, 1.19443, 1.36401, + .02828, .01480, 29.75934, 1.49162, 1.06629, + .52181, 1.32389, 1.49208 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .02925, .01535, 33.27282, 1.62774, 1.20621, + .66939, 1.46143, 1.62825, + .03005, .01581, 36.29964, 1.74574, 1.32710, + .79557, 1.58057, 1.74629, + .03103, .01637, 40.08598, 1.89467, 1.47913, + .95312, 1.73083, 1.89526, + .03189, .01687, 43.54996, 2.03192, 1.61921, + 1.09851, 1.86923, 2.03256, + .03268, .01732, 46.83413, 2.16261, 1.75294, + 1.23824, 2.00095, 2.16330, + .03369, .01790, 51.07415, 2.33375, 1.92715, + 1.41793, 2.17336, 2.33448, + .03464, .01844, 55.14507, 2.50024, 2.09629, + 1.59175, 2.34101, 2.50103, + .03553, .01895, 59.05433, 2.66160, 2.26039, + 1.76096, 2.50343, 2.66244 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03642, .01946, 63.04982, 2.82808, 2.42984, + 1.93594, 2.67095, 2.82897, + .03729, .01996, 66.96047, 2.99421, 2.59803, + 2.10777, 2.83806, 2.99514, + .03812, .02044, 70.74601, 3.15618, 2.76247, + 2.27675, 3.00095, 3.15716, + .03890, .02089, 74.33606, 3.31191, 2.92030, + 2.43837, 3.15753, 3.31294, + .03969, .02134, 77.96896, 3.47147, 3.08191, + 2.60372, 3.31792, 3.47253, + .04047, .02178, 81.58766, 3.63195, 3.24457, + 2.77035, 3.47922, 3.63306, + .04121, .02220, 85.01472, 3.78639, 3.40076, + 2.92968, 3.63441, 3.78755, + .04191, .02261, 88.30257, 3.93569, 3.55195, + 3.08431, 3.78442, 3.93689 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04262, .02301, 91.60297, 4.08780, 3.70574, + 3.24113, 3.93723, 4.08904, + .04332, .02341, 94.88370, 4.24049, 3.86018, + 3.39870, 4.09060, 4.24177, + .04399, .02380, 98.02044, 4.38811, 4.00947, + 3.55102, 4.23886, 4.38943, + .04462, .02416, 100.97784, 4.52928, 4.15203, + 3.69605, 4.38063, 4.53064, + .04527, .02453, 104.03131, 4.67542, 4.30000, + 3.84734, 4.52737, 4.67682 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02161, .01069, .64329, .35606, .00000, + .00000, .19174, .35599, + .02276, .01136, 1.32136, .37857, .00000, + .00000, .21603, .37856, + .02442, .01232, 2.51674, .41956, .00330, + .00000, .25944, .41963, + .02560, .01301, 3.47147, .45470, .04889, + .00000, .29621, .45484, + .02684, .01374, 4.61352, .49654, .09727, + .00000, .33968, .49675, + .02789, .01435, 5.69857, .53630, .13997, + .00000, .38077, .53657, + .02890, .01494, 6.83366, .57759, .18425, + .00000, .42329, .57791, + .02996, .01556, 8.13971, .62472, .23478, + .00000, .47167, .62510 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03088, .01610, 9.36059, .66839, .28181, + .00000, .51641, .66883, + .03176, .01661, 10.59898, .71298, .32894, + .00000, .56198, .71346, + .03246, .01702, 11.61658, .74991, .36746, + .00000, .59966, .75043, + .03394, .01788, 13.89258, .83347, .45505, + .00011, .68479, .83409, + .03520, .01862, 15.88921, .91033, .53530, + .06532, .76293, .91102, + .03661, .01944, 18.17141, 1.00111, .62964, + .18068, .85508, 1.00188, + .03807, .02029, 20.68251, 1.10090, .73301, + .29091, .95626, 1.10177, + .03939, .02106, 23.05664, 1.19571, .83102, + .39581, 1.05227, 1.19666 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04073, .02184, 25.53887, 1.29558, .93408, + .50516, 1.15331, 1.29661, + .04183, .02248, 27.65253, 1.38142, 1.02238, + .59785, 1.24011, 1.38253, + .04317, .02326, 30.26614, 1.48885, 1.13247, + .71259, 1.34865, 1.49004, + .04435, .02395, 32.63048, 1.58704, 1.23307, + .81760, 1.44780, 1.58830, + .04543, .02458, 34.85106, 1.67988, 1.32845, + .91785, 1.54150, 1.68121, + .04680, .02537, 37.68542, 1.80045, 1.45165, + 1.04564, 1.66313, 1.80187, + .04809, .02612, 40.37518, 1.91675, 1.57023, + 1.16818, 1.78040, 1.91826, + .04930, .02682, 42.93225, 2.02862, 1.68444, + 1.28662, 1.89316, 2.03021 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05051, .02752, 45.52089, 2.14323, 1.80154, + 1.40823, 2.00864, 2.14490, + .05168, .02820, 48.02641, 2.25670, 1.91682, + 1.52663, 2.12293, 2.25844, + .05280, .02885, 50.43182, 2.36664, 2.02885, + 1.64240, 2.23364, 2.36846, + .05385, .02945, 52.69247, 2.47165, 2.13567, + 1.75237, 2.33936, 2.47354, + .05491, .03006, 54.96066, 2.57858, 2.24437, + 1.86419, 2.44699, 2.58054, + .05595, .03067, 57.20268, 2.68552, 2.35316, + 1.97625, 2.55462, 2.68755, + .05694, .03123, 59.30703, 2.78780, 2.45695, + 2.08270, 2.65753, 2.78990, + .05788, .03178, 61.31292, 2.88619, 2.55695, + 2.18553, 2.75651, 2.88835 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .05883, .03232, 63.31005, 2.98586, 2.65808, + 2.28920, 2.85677, 2.98809, + .05976, .03286, 65.28190, 3.08543, 2.75915, + 2.39287, 2.95691, 3.08772, + .06065, .03337, 67.15421, 3.18121, 2.85637, + 2.49259, 3.05323, 3.18356, + .06150, .03385, 68.90620, 3.27234, 2.94872, + 2.58703, 3.14487, 3.27475, + .06236, .03435, 70.70773, 3.36636, 3.04427, + 2.68525, 3.23939, 3.36883 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .02625, .01316, .60778, .32507, .00000, + .00000, .17545, .32526, + .02766, .01399, 1.23845, .34583, .00000, + .00000, .19782, .34611, + .02970, .01520, 2.33502, .38310, .00302, + .00000, .23731, .38351, + .03115, .01606, 3.19879, .41467, .04403, + .00000, .27036, .41517, + .03265, .01696, 4.22067, .45194, .08722, + .00000, .30911, .45253, + .03394, .01772, 5.18175, .48706, .12505, + .00000, .34545, .48774, + .03517, .01845, 6.17861, .52331, .16404, + .00000, .38282, .52407, + .03646, .01921, 7.31626, .56443, .20827, + .00000, .42509, .56527 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .03758, .01987, 8.37179, .60233, .24921, + .00000, .46397, .60325, + .03865, .02051, 9.43498, .64083, .29005, + .00000, .50336, .64182, + .03950, .02101, 10.30334, .67258, .32327, + .00000, .53580, .67363, + .04129, .02207, 12.23051, .74403, .39842, + .00011, .60869, .74520, + .04282, .02297, 13.90380, .80931, .46682, + .05583, .67515, .81059, + .04452, .02397, 15.79799, .88594, .54673, + .15405, .75305, .88734, + .04628, .02501, 17.86324, .96963, .63371, + .24720, .83800, .97115, + .04787, .02594, 19.79900, 1.04865, .71567, + .33531, .91813, 1.05027 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .04948, .02689, 21.80667, 1.13140, .80137, + .42662, 1.00197, 1.13314, + .05080, .02766, 23.50376, 1.20217, .87440, + .50362, 1.07361, 1.20400, + .05240, .02860, 25.58698, 1.29026, .96498, + .59843, 1.16273, 1.29221, + .05382, .02943, 27.45816, 1.37036, 1.04733, + .68477, 1.24372, 1.37241, + .05511, .03019, 29.20522, 1.44578, 1.12507, + .76684, 1.31994, 1.44792, + .05675, .03114, 31.41895, 1.54322, 1.22496, + .87090, 1.41835, 1.54548, + .05829, .03204, 33.50415, 1.63671, 1.32059, + .97015, 1.51275, 1.63908, + .05973, .03288, 35.47388, 1.72623, 1.41228, + 1.06565, 1.60308, 1.72870 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06116, .03371, 37.45588, 1.81753, 1.50587, + 1.16328, 1.69520, 1.82011, + .06256, .03452, 39.36028, 1.90748, 1.59754, + 1.25783, 1.78591, 1.91015, + .06389, .03529, 41.17906, 1.99429, 1.68629, + 1.34995, 1.87344, 1.99706, + .06514, .03601, 42.87833, 2.07688, 1.77056, + 1.43709, 1.95669, 2.07974, + .06639, .03674, 44.57386, 2.16064, 1.85599, + 1.52534, 2.04111, 2.16360, + .06762, .03745, 46.24157, 2.24413, 1.94119, + 1.61349, 2.12523, 2.24718, + .06879, .03812, 47.79761, 2.32366, 2.02215, + 1.69687, 2.20535, 2.32679, + .06990, .03876, 49.27473, 2.39993, 2.09992, + 1.77720, 2.28218, 2.40314 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07101, .03940, 50.73735, 2.47692, 2.17829, + 1.85787, 2.35972, 2.48022, + .07211, .04004, 52.17516, 2.55360, 2.25636, + 1.93831, 2.43693, 2.55698, + .07316, .04064, 53.53413, 2.62713, 2.33124, + 2.01544, 2.51097, 2.63059, + .07416, .04121, 54.79930, 2.69687, 2.40212, + 2.08824, 2.58118, 2.70040, + .07517, .04179, 56.09703, 2.76866, 2.47532, + 2.16383, 2.65345, 2.77226 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03019, .01532, .58441, .30493, .00000, + .00000, .16487, .30539, + .03182, .01630, 1.18360, .32449, .00000, + .00000, .18594, .32506, + .03417, .01772, 2.21454, .35926, .00283, + .00000, .22279, .35999, + .03584, .01872, 3.01817, .38846, .04080, + .00000, .25339, .38931, + .03758, .01976, 3.96102, .42269, .08057, + .00000, .28902, .42367, + .03907, .02065, 4.84105, .45478, .11521, + .00000, .32226, .45586, + .04048, .02149, 5.74804, .48774, .15075, + .00000, .35628, .48892, + .04196, .02238, 6.77680, .52496, .19089, + .00000, .39459, .52625 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04325, .02314, 7.72597, .55914, .22791, + .00000, .42969, .56052, + .04448, .02388, 8.67703, .59373, .26469, + .00000, .46512, .59519, + .04544, .02445, 9.45028, .62215, .29453, + .00000, .49421, .62369, + .04750, .02567, 11.15646, .68588, .36174, + .00010, .55930, .68757, + .04925, .02671, 12.62641, .74382, .42262, + .04981, .61835, .74564, + .05119, .02786, 14.27830, .81152, .49342, + .13719, .68726, .81349, + .05320, .02905, 16.06712, .88510, .57011, + .21959, .76204, .88721, + .05501, .03012, 17.73288, .95425, .64206, + .29720, .83225, .95650 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05684, .03120, 19.45009, 1.02637, .71695, + .37729, .90541, 1.02876, + .05835, .03209, 20.89364, 1.08780, .78053, + .44455, .96767, 1.09030, + .06017, .03315, 22.65584, 1.16397, .85907, + .52705, 1.04482, 1.16661, + .06177, .03410, 24.23022, 1.23297, .93022, + .60190, 1.11468, 1.23573, + .06324, .03496, 25.69360, 1.29773, .99717, + .67284, 1.18020, 1.30060, + .06509, .03604, 27.53759, 1.38108, 1.08285, + .76242, 1.26448, 1.38409, + .06683, .03705, 29.26467, 1.46073, 1.16455, + .84752, 1.34500, 1.46388, + .06846, .03800, 30.88819, 1.53674, 1.24262, + .92912, 1.42179, 1.54000 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07008, .03895, 32.51431, 1.61400, 1.32206, + 1.01229, 1.49984, 1.61740, + .07165, .03986, 34.06793, 1.68984, 1.39956, + 1.09251, 1.57641, 1.69335, + .07315, .04073, 35.54583, 1.76282, 1.47439, + 1.17046, 1.65009, 1.76645, + .07455, .04154, 36.92031, 1.83204, 1.54522, + 1.24396, 1.71995, 1.83578, + .07596, .04235, 38.28589, 1.90205, 1.61681, + 1.31820, 1.79059, 1.90589, + .07734, .04315, 39.62400, 1.97164, 1.68803, + 1.39215, 1.86078, 1.97559, + .07865, .04391, 40.86665, 2.03773, 1.75549, + 1.46189, 1.92744, 2.04178, + .07989, .04462, 42.04254, 2.10097, 1.82016, + 1.52892, 1.99122, 2.10512 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08114, .04534, 43.20185, 2.16464, 1.88514, + 1.59607, 2.05542, 2.16888, + .08237, .04605, 44.33762, 2.22790, 1.94974, + 1.66286, 2.11920, 2.23223, + .08354, .04672, 45.40723, 2.28842, 2.01154, + 1.72677, 2.18021, 2.29285, + .08465, .04735, 46.39894, 2.34568, 2.06990, + 1.78692, 2.23793, 2.35019, + .08578, .04800, 47.41436, 2.40454, 2.13009, + 1.84931, 2.29725, 2.40914 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03372, .01738, .56785, .29070, .00000, + .00000, .15723, .29123, + .03554, .01849, 1.14400, .30934, .00000, + .00000, .17729, .31000, + .03818, .02008, 2.12621, .34220, .00269, + .00000, .21211, .34305, + .04005, .02121, 2.88502, .36960, .03835, + .00000, .24083, .37059, + .04200, .02238, 3.76900, .40156, .07555, + .00000, .27411, .40270, + .04365, .02338, 4.58880, .43138, .10780, + .00000, .30501, .43263, + .04522, .02432, 5.42915, .46189, .14077, + .00000, .33652, .46326, + .04688, .02531, 6.37744, .49623, .17788, + .00000, .37189, .49773 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .04831, .02617, 7.24827, .52767, .21199, + .00000, .40419, .52928, + .04968, .02699, 8.11699, .55937, .24579, + .00000, .43671, .56109, + .05075, .02763, 8.82064, .58537, .27313, + .00000, .46332, .58717, + .05303, .02899, 10.36568, .64346, .33452, + .00010, .52270, .64544, + .05497, .03014, 11.68814, .69607, .38991, + .04540, .57636, .69819, + .05712, .03142, 13.16519, .75731, .45410, + .12487, .63874, .75960, + .05935, .03274, 14.75551, .82360, .52334, + .19948, .70617, .82606, + .06135, .03392, 16.22836, .88566, .58805, + .26949, .76924, .88828 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06337, .03511, 17.73900, .95017, .65519, + .34148, .83473, .95294, + .06503, .03609, 19.00299, 1.00493, .71199, + .40175, .89029, 1.00784, + .06703, .03727, 20.53883, 1.07263, .78195, + .47543, .95891, 1.07569, + .06880, .03830, 21.90471, 1.13376, .84511, + .54208, 1.02085, 1.13695, + .07041, .03925, 23.16950, 1.19097, .90440, + .60508, 1.07878, 1.19429, + .07245, .04044, 24.75566, 1.26437, .98003, + .68438, 1.15309, 1.26786, + .07435, .04155, 26.23426, 1.33430, 1.05192, + .75947, 1.22383, 1.33793, + .07613, .04258, 27.61844, 1.40083, 1.12041, + .83128, 1.29111, 1.40460 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07791, .04361, 28.99928, 1.46829, 1.18991, + .90426, 1.35931, 1.47220, + .07963, .04461, 30.31221, 1.53427, 1.25751, + .97444, 1.42600, 1.53832, + .08127, .04556, 31.55701, 1.59764, 1.32262, + 1.04247, 1.49003, 1.60181, + .08280, .04644, 32.71030, 1.65758, 1.38410, + 1.10646, 1.55058, 1.66188, + .08433, .04732, 33.85174, 1.71806, 1.44609, + 1.17093, 1.61166, 1.72247, + .08584, .04819, 34.96643, 1.77804, 1.50762, + 1.23501, 1.67222, 1.78257, + .08726, .04901, 35.99739, 1.83486, 1.56576, + 1.29530, 1.72959, 1.83950, + .08861, .04978, 36.97037, 1.88913, 1.62140, + 1.35314, 1.78438, 1.89388 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .08997, .05056, 37.92606, 1.94365, 1.67717, + 1.41095, 1.83940, 1.94850, + .09131, .05132, 38.85965, 1.99771, 1.73251, + 1.46835, 1.89396, 2.00267, + .09258, .05205, 39.73595, 2.04933, 1.78535, + 1.52316, 1.94605, 2.05439, + .09378, .05274, 40.54530, 2.09806, 1.83514, + 1.57464, 1.99522, 2.10322, + .09501, .05343, 41.37278, 2.14809, 1.88643, + 1.62798, 2.04570, 2.15335 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .04786, .02602, .52126, .25118, .00000, + .00000, .13619, .25239, + .05047, .02763, 1.03141, .26706, .00000, + .00000, .15330, .26849, + .05423, .02994, 1.87429, .29436, .00228, + .00000, .18230, .29611, + .05688, .03156, 2.50616, .31663, .03141, + .00000, .20571, .31860, + .05962, .03322, 3.22493, .34218, .06141, + .00000, .23242, .34439, + .06194, .03463, 3.87727, .36567, .08702, + .00000, .25685, .36807, + .06414, .03596, 4.53402, .38942, .11290, + .00000, .28147, .39200, + .06645, .03735, 5.26245, .41584, .14171, + .00000, .30879, .41862 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .06843, .03855, 5.92095, .43978, .16792, + .00000, .33349, .44273, + .07033, .03969, 6.56820, .46369, .19364, + .00000, .35811, .46680, + .07182, .04058, 7.08579, .48312, .21426, + .00000, .37809, .48635, + .07496, .04245, 8.20385, .52610, .26011, + .00008, .42220, .52960, + .07762, .04403, 9.13979, .56451, .30094, + .03371, .46154, .56823, + .08055, .04577, 10.16342, .60867, .34767, + .09227, .50672, .61264, + .08357, .04755, 11.24433, .65585, .39742, + .14643, .55491, .66008, + .08629, .04914, 12.22690, .69948, .44336, + .19665, .59943, .70393 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .08900, .05073, 13.21727, .74429, .49046, + .24771, .64512, .74897, + .09123, .05204, 14.03276, .78193, .52990, + .28999, .68348, .78680, + .09391, .05359, 15.00772, .82796, .57794, + .34116, .73034, .83306, + .09626, .05496, 15.86128, .86909, .62087, + .38697, .77220, .87438, + .09840, .05620, 16.64151, .90725, .66083, + .42991, .81101, .91272, + .10110, .05775, 17.60373, .95568, .71124, + .48337, .86026, .96138, + .10360, .05920, 18.48552, 1.00131, .75863, + .53344, .90663, 1.00722, + .10594, .06053, 19.29916, 1.04431, .80336, + .58089, .95031, 1.05041 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10826, .06186, 20.09966, 1.08751, .84836, + .62870, .99418, 1.09380, + .11051, .06314, 20.84724, 1.12931, .89164, + .67417, 1.03663, 1.13579, + .11262, .06434, 21.54769, 1.16914, .93301, + .71792, 1.07706, 1.17580, + .11460, .06547, 22.18736, 1.20649, .97173, + .75872, 1.11497, 1.21331, + .11658, .06659, 22.81191, 1.24386, 1.01046, + .79950, 1.15289, 1.25084, + .11852, .06768, 23.41463, 1.28064, 1.04862, + .83974, 1.19021, 1.28778, + .12035, .06871, 23.96348, 1.31519, 1.08437, + .87728, 1.22526, 1.32248, + .12207, .06968, 24.47643, 1.34798, 1.11837, + .91308, 1.25852, 1.35541 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12380, .07064, 24.97291, 1.38065, 1.15218, + .94858, 1.29166, 1.38823, + .12550, .07159, 25.45256, 1.41284, 1.18552, + .98361, 1.32432, 1.42056, + .12711, .07249, 25.89739, 1.44337, 1.21714, + 1.01685, 1.35528, 1.45122, + .12863, .07334, 26.30233, 1.47198, 1.24671, + 1.04784, 1.38429, 1.47995, + .13017, .07420, 26.71434, 1.50123, 1.27708, + 1.07983, 1.41396, 1.50933 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .06916, .04002, .48263, .21901, .00000, + .00000, .11895, .22152, + .07291, .04232, .93430, .23222, .00000, + .00000, .13326, .23508, + .07825, .04558, 1.65307, .25438, .00190, + .00000, .15694, .25774, + .08198, .04783, 2.17328, .27207, .02527, + .00000, .17565, .27577, + .08582, .05014, 2.74872, .29201, .04900, + .00000, .19664, .29607, + .08905, .05208, 3.25797, .31006, .06894, + .00000, .21554, .31442, + .09210, .05389, 3.75997, .32807, .08885, + .00000, .23434, .33270, + .09529, .05578, 4.30568, .34786, .11073, + .00000, .25495, .35279 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .09802, .05740, 4.79003, .36558, .13042, + .00000, .27337, .37076, + .10062, .05893, 5.25792, .38309, .14953, + .00000, .29153, .38851, + .10264, .06012, 5.62646, .39719, .16472, + .00000, .30613, .40279, + .10690, .06260, 6.40736, .42800, .19808, + .00007, .33798, .43399, + .11049, .06469, 7.04375, .45514, .22737, + .02442, .36599, .46145, + .11442, .06696, 7.72220, .48591, .26043, + .06647, .39769, .49257, + .11844, .06927, 8.42209, .51828, .29512, + .10474, .43101, .52530, + .12203, .07132, 9.04400, .54779, .32669, + .13974, .46135, .55513 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12560, .07335, 9.65758, .57769, .35865, + .17487, .49208, .58535, + .12852, .07501, 10.15283, .60249, .38508, + .20362, .51756, .61041, + .13200, .07697, 10.73299, .63245, .41688, + .23800, .54830, .64067, + .13505, .07868, 11.23096, .65889, .44496, + .26842, .57543, .66738, + .13781, .08023, 11.67885, .68317, .47084, + .29668, .60033, .69190, + .14126, .08215, 12.21922, .71358, .50308, + .33141, .63152, .72261, + .14446, .08392, 12.70307, .74186, .53299, + .36354, .66050, .75116, + .14742, .08556, 13.14122, .76820, .56093, + .39367, .68749, .77776 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15035, .08717, 13.56466, .79438, .58873, + .42373, .71433, .80420, + .15317, .08871, 13.94995, .81939, .61512, + .45194, .73995, .82944, + .15582, .09015, 14.30526, .84298, .64014, + .47887, .76412, .85326, + .15828, .09149, 14.62302, .86487, .66330, + .50373, .78654, .87535, + .16073, .09282, 14.92723, .88654, .68624, + .52834, .80875, .89723, + .16312, .09411, 15.21591, .90769, .70866, + .55243, .83042, .91858, + .16536, .09531, 15.47250, .92733, .72943, + .57467, .85055, .93840, + .16747, .09645, 15.70897, .94583, .74904, + .59574, .86950, .95708 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16957, .09757, 15.93237, .96407, .76836, + .61643, .88821, .97550, + .17163, .09867, 16.14448, .98191, .78726, + .63670, .90649, .99350, + .17358, .09970, 16.33746, .99867, .80504, + .65579, .92368, 1.01043, + .17541, .10067, 16.50889, 1.01423, .82152, + .67342, .93963, 1.02614, + .17726, .10165, 16.68235, 1.03008, .83838, + .69157, .95588, 1.04213 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .08670, .05197, .46463, .20301, .00000, + .00000, .11048, .20688, + .09130, .05475, .88480, .21470, .00000, + .00000, .12323, .21902, + .09784, .05867, 1.53681, .23405, .00169, + .00000, .14406, .23900, + .10236, .06135, 1.99784, .24928, .02205, + .00000, .16030, .25467, + .10700, .06409, 2.49839, .26628, .04255, + .00000, .17831, .27212, + .11090, .06637, 2.93396, .28151, .05960, + .00000, .19438, .28772, + .11455, .06850, 3.35732, .29658, .07648, + .00000, .21023, .30314, + .11836, .07071, 3.81139, .31301, .09490, + .00000, .22747, .31993 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12162, .07259, 4.20947, .32762, .11135, + .00000, .24277, .33485, + .12471, .07437, 4.58952, .34195, .12721, + .00000, .25774, .34947, + .12711, .07574, 4.88577, .35342, .13973, + .00000, .26970, .36116, + .13213, .07860, 5.50530, .37829, .16705, + .00006, .29560, .38649, + .13635, .08098, 6.00088, .39997, .19080, + .01995, .31815, .40857, + .14094, .08356, 6.51966, .42433, .21737, + .05411, .34345, .43335, + .14562, .08618, 7.04596, .44970, .24497, + .08486, .36976, .45914, + .14978, .08848, 7.50623, .47260, .26986, + .11275, .39349, .48241 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15389, .09075, 7.95345, .49559, .29484, + .14051, .41731, .50577, + .15725, .09259, 8.30920, .51451, .31533, + .16304, .43690, .52499, + .16123, .09477, 8.71941, .53715, .33977, + .18978, .46033, .54798, + .16470, .09665, 9.06637, .55696, .36119, + .21326, .48083, .56810, + .16784, .09835, 9.37475, .57502, .38080, + .23494, .49952, .58644, + .17174, .10044, 9.74034, .59745, .40501, + .26136, .52272, .60920, + .17534, .10237, 10.06206, .61810, .42728, + .28560, .54409, .63017, + .17866, .10413, 10.34894, .63719, .44793, + .30818, .56384, .64954 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18194, .10587, 10.62190, .65602, .46833, + .33055, .58332, .66865, + .18507, .10751, 10.86489, .67382, .48752, + .35136, .60174, .68671, + .18800, .10905, 11.08609, .69050, .50559, + .37112, .61901, .70364, + .19072, .11047, 11.28022, .70586, .52221, + .38923, .63491, .71923, + .19342, .11187, 11.46268, .72096, .53855, + .40705, .65055, .73455, + .19604, .11322, 11.63314, .73558, .55443, + .42439, .66570, .74939, + .19849, .11448, 11.78111, .74905, .56903, + .44029, .67966, .76306, + .20079, .11566, 11.91575, .76167, .58275, + .45528, .69274, .77586 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20307, .11683, 12.03977, .77402, .59616, + .46991, .70555, .78840, + .20530, .11796, 12.15544, .78602, .60921, + .48417, .71801, .80058, + .20740, .11903, 12.25842, .79723, .62142, + .49752, .72964, .81196, + .20937, .12002, 12.34721, .80754, .63266, + .50978, .74036, .82243, + .21136, .12102, 12.43669, .81802, .64412, + .52237, .75124, .83306 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .10238, .06277, .45506, .19282, .00000, + .00000, .10515, .19807, + .10769, .06592, .85379, .20346, .00000, + .00000, .11685, .20925, + .11520, .07032, 1.46059, .22088, .00155, + .00000, .13576, .22742, + .12036, .07333, 1.88199, .23447, .01993, + .00000, .15035, .24152, + .12564, .07637, 2.33291, .24951, .03831, + .00000, .16642, .25708, + .13005, .07890, 2.72014, .26289, .05348, + .00000, .18064, .27088, + .13419, .08125, 3.09238, .27604, .06841, + .00000, .19458, .28444, + .13848, .08368, 3.48741, .29030, .08461, + .00000, .20965, .29910 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14214, .08575, 3.83039, .30290, .09900, + .00000, .22294, .31205, + .14560, .08768, 4.15478, .31519, .11279, + .00000, .23588, .32467, + .14828, .08918, 4.40555, .32497, .12364, + .00000, .24617, .33471, + .15388, .09228, 4.92451, .34607, .14715, + .00006, .26832, .35633, + .15856, .09485, 5.33330, .36433, .16744, + .01715, .28745, .37502, + .16363, .09763, 5.75485, .38468, .18998, + .04639, .30875, .39584, + .16878, .10042, 6.17673, .40571, .21322, + .07250, .33074, .41733, + .17335, .10287, 6.54074, .42454, .23402, + .09602, .35042, .43657 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17784, .10528, 6.88983, .44331, .25475, + .11927, .37003, .45574, + .18150, .10722, 7.16405, .45864, .27165, + .13804, .38604, .47140, + .18582, .10950, 7.47607, .47686, .29168, + .16017, .40507, .49000, + .18957, .11147, 7.73654, .49270, .30912, + .17949, .42161, .50616, + .19296, .11324, 7.96561, .50705, .32500, + .19724, .43660, .52081, + .19715, .11541, 8.23285, .52473, .34447, + .21874, .45508, .53885, + .20100, .11739, 8.46409, .54090, .36226, + .23833, .47196, .55534, + .20454, .11921, 8.66739, .55573, .37865, + .25648, .48747, .57047 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20802, .12098, 8.85810, .57027, .39475, + .27437, .50267, .58530, + .21133, .12266, 9.02396, .58390, .40978, + .29089, .51693, .59920, + .21443, .12422, 9.17303, .59660, .42388, + .30652, .53023, .61216, + .21729, .12565, 9.30127, .60822, .43676, + .32076, .54240, .62401, + .22012, .12706, 9.41945, .61955, .44935, + .33470, .55429, .63557, + .22286, .12842, 9.52801, .63048, .46153, + .34821, .56575, .64672, + .22542, .12968, 9.61957, .64046, .47265, + .36052, .57624, .65690, + .22781, .13085, 9.70166, .64977, .48306, + .37209, .58602, .66640 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .23017, .13201, 9.77485, .65882, .49318, + .38331, .59553, .67563, + .23248, .13313, 9.84155, .66756, .50298, + .39421, .60474, .68455, + .23465, .13418, 9.89924, .67568, .51210, + .40438, .61329, .69283, + .23667, .13515, 9.94684, .68309, .52045, + .41366, .62111, .70041, + .23872, .13613, 9.99465, .69061, .52894, + .42317, .62904, .70808 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .11690, .07277, .45077, .18545, .00000, + .00000, .10139, .19211, + .12281, .07620, .83326, .19528, .00000, + .00000, .11231, .20255, + .13113, .08098, 1.40601, .21126, .00145, + .00000, .12980, .21937, + .13683, .08422, 1.79788, .22362, .01838, + .00000, .14318, .23230, + .14263, .08750, 2.21217, .23722, .03523, + .00000, .15782, .24647, + .14747, .09021, 2.56403, .24924, .04904, + .00000, .17070, .25896, + .15199, .09272, 2.89910, .26099, .06258, + .00000, .18326, .27116, + .15667, .09531, 3.25151, .27366, .07718, + .00000, .19676, .28428 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16065, .09749, 3.55498, .28481, .09009, + .00000, .20862, .29580, + .16440, .09954, 3.83970, .29564, .10241, + .00000, .22011, .30698, + .16731, .10112, 4.05830, .30421, .11206, + .00000, .22920, .31583, + .17336, .10439, 4.50659, .32261, .13288, + .00006, .24867, .33480, + .17839, .10708, 4.85490, .33844, .15074, + .01518, .26539, .35109, + .18383, .10996, 5.20930, .35597, .17046, + .04097, .28389, .36911, + .18933, .11286, 5.55984, .37394, .19066, + .06384, .30285, .38758, + .19419, .11540, 5.85861, .38994, .20863, + .08432, .31971, .40401 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19896, .11787, 6.14172, .40578, .22644, + .10446, .33641, .42027, + .20282, .11986, 6.36150, .41863, .24087, + .12063, .34996, .43346, + .20738, .12219, 6.60862, .43381, .25788, + .13960, .36597, .44903, + .21132, .12419, 6.81236, .44692, .27261, + .15609, .37980, .46248, + .21487, .12598, 6.98970, .45876, .28597, + .17118, .39228, .47461, + .21925, .12818, 7.19317, .47323, .30225, + .18934, .40756, .48945, + .22325, .13017, 7.36621, .48636, .31703, + .20581, .42144, .50291, + .22693, .13198, 7.51627, .49834, .33058, + .22099, .43410, .51519 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .23053, .13375, 7.65513, .51001, .34383, + .23589, .44645, .52716, + .23395, .13541, 7.77264, .52087, .35611, + .24958, .45796, .53828, + .23713, .13695, 7.87673, .53094, .36758, + .26247, .46863, .54861, + .24007, .13836, 7.96420, .54008, .37800, + .27416, .47834, .55798, + .24295, .13974, 8.04302, .54895, .38815, + .28556, .48777, .56707, + .24575, .14107, 8.11403, .55746, .39791, + .29656, .49683, .57580, + .24834, .14229, 8.17151, .56518, .40678, + .30654, .50505, .58371, + .25077, .14343, 8.22193, .57234, .41505, + .31588, .51270, .59105 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .25316, .14454, 8.26483, .57925, .42305, + .32491, .52008, .59814, + .25548, .14562, 8.30259, .58589, .43076, + .33364, .52719, .60495, + .25766, .14663, 8.33365, .59201, .43791, + .34176, .53376, .61123, + .25969, .14756, 8.35720, .59757, .44441, + .34913, .53973, .61694, + .26174, .14849, 8.38076, .60320, .45102, + .35668, .54578, .62271 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .14369, .09103, .45306, .17497, .00000, + .00000, .09629, .18451, + .15057, .09487, .81137, .18362, .00000, + .00000, .10608, .19387, + .16019, .10017, 1.33402, .19749, .00131, + .00000, .12154, .20871, + .16673, .10373, 1.68302, .20809, .01622, + .00000, .13321, .21997, + .17335, .10730, 2.04463, .21962, .03092, + .00000, .14584, .23214, + .17885, .11023, 2.34618, .22970, .04285, + .00000, .15682, .24275, + .18395, .11294, 2.62891, .23947, .05444, + .00000, .16744, .25302, + .18921, .11571, 2.92179, .24991, .06684, + .00000, .17875, .26395 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19366, .11804, 3.17051, .25902, .07772, + .00000, .18861, .27348, + .19784, .12021, 3.40077, .26780, .08802, + .00000, .19808, .28264, + .20107, .12187, 3.57538, .27470, .09604, + .00000, .20552, .28984, + .20775, .12529, 3.92788, .28938, .11319, + .00005, .22133, .30513, + .21327, .12809, 4.19524, .30187, .12776, + .01250, .23475, .31811, + .21920, .13107, 4.46077, .31554, .14367, + .03363, .24944, .33230, + .22516, .13403, 4.71771, .32939, .15980, + .05215, .26432, .34667, + .23039, .13660, 4.93182, .34156, .17401, + .06858, .27741, .35929 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23549, .13908, 5.13025, .35348, .18794, + .08460, .29022, .37164, + .23960, .14107, 5.28090, .36305, .19913, + .09735, .30053, .38155, + .24441, .14338, 5.44601, .37423, .21220, + .11219, .31256, .39311, + .24856, .14535, 5.57871, .38377, .22340, + .12497, .32285, .40299, + .25228, .14710, 5.69186, .39230, .23349, + .13659, .33206, .41181, + .25682, .14922, 5.81752, .40261, .24565, + .15046, .34320, .42247, + .26096, .15113, 5.92018, .41183, .25658, + .16291, .35319, .43200, + .26473, .15286, 6.00618, .42015, .26651, + .17431, .36223, .44061 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26841, .15452, 6.08287, .42817, .27614, + .18540, .37095, .44890, + .27187, .15608, 6.14348, .43551, .28496, + .19549, .37895, .45649, + .27508, .15751, 6.19521, .44225, .29314, + .20494, .38632, .46346, + .27802, .15881, 6.23576, .44829, .30050, + .21344, .39295, .46971, + .28090, .16007, 6.26936, .45408, .30760, + .22167, .39931, .47569, + .28368, .16127, 6.29732, .45957, .31438, + .22955, .40537, .48137, + .28623, .16237, 6.31657, .46447, .32047, + .23664, .41079, .48645, + .28861, .16338, 6.33195, .46899, .32612, + .24325, .41580, .49112 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .29094, .16437, 6.34149, .47327, .33152, + .24958, .42057, .49556, + .29320, .16532, 6.34756, .47735, .33669, + .25566, .42513, .49978, + .29531, .16619, 6.34983, .48106, .34145, + .26128, .42929, .50362, + .29726, .16699, 6.34781, .48437, .34573, + .26635, .43302, .50705, + .29922, .16780, 6.34568, .48771, .35007, + .27152, .43679, .51051 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .18037, .11539, .47521, .16427, .00000, + .00000, .09148, .17814, + .18832, .11956, .80748, .17171, .00000, + .00000, .10015, .18638, + .19933, .12525, 1.27733, .18344, .00117, + .00000, .11359, .19920, + .20674, .12903, 1.58210, .19225, .01415, + .00000, .12357, .20873, + .21419, .13277, 1.89033, .20171, .02680, + .00000, .13420, .21888, + .22032, .13583, 2.14166, .20986, .03692, + .00000, .14333, .22760, + .22598, .13863, 2.37279, .21767, .04665, + .00000, .15204, .23592, + .23177, .14147, 2.60779, .22593, .05696, + .00000, .16123, .24469 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23666, .14384, 2.80391, .23305, .06591, + .00000, .16915, .25225, + .24121, .14603, 2.98234, .23984, .07431, + .00000, .17669, .25943, + .24470, .14769, 3.11549, .24513, .08079, + .00000, .18256, .26502, + .25190, .15109, 3.37879, .25626, .09452, + .00005, .19488, .27676, + .25778, .15384, 3.57196, .26558, .10603, + .01003, .20520, .28656, + .26406, .15673, 3.75726, .27564, .11845, + .02686, .21634, .29713, + .27030, .15957, 3.93106, .28567, .13086, + .04141, .22745, .30763, + .27573, .16200, 4.07110, .29433, .14166, + .05418, .23707, .31671 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .28099, .16433, 4.19650, .30268, .15212, + .06648, .24636, .32545, + .28518, .16617, 4.28816, .30928, .16041, + .07618, .25373, .33236, + .29007, .16827, 4.38459, .31686, .16999, + .08735, .26221, .34028, + .29423, .17004, 4.45863, .32323, .17810, + .09688, .26936, .34694, + .29794, .17161, 4.51932, .32885, .18533, + .10546, .27568, .35281, + .30243, .17348, 4.58190, .33550, .19394, + .11560, .28320, .35975, + .30647, .17513, 4.62869, .34133, .20157, + .12459, .28983, .36584, + .31013, .17661, 4.66464, .34651, .20842, + .13275, .29574, .37124 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .31367, .17802, 4.69352, .35142, .21499, + .14062, .30137, .37635, + .31696, .17930, 4.71112, .35578, .22091, + .14769, .30641, .38090, + .32000, .18047, 4.72368, .35972, .22634, + .15425, .31100, .38501, + .32275, .18152, 4.72961, .36318, .23117, + .16009, .31506, .38863, + .32542, .18252, 4.73057, .36643, .23577, + .16570, .31889, .39201, + .32798, .18346, 4.72805, .36944, .24012, + .17103, .32248, .39515, + .33030, .18431, 4.72051, .37205, .24396, + .17576, .32562, .39787, + .33246, .18508, 4.71152, .37442, .24749, + .18014, .32848, .40034 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .33454, .18581, 4.69854, .37659, .25082, + .18430, .33115, .40260, + .33655, .18651, 4.68364, .37861, .25397, + .18826, .33365, .40471, + .33841, .18714, 4.66719, .38040, .25683, + .19189, .33590, .40657, + .34011, .18770, 4.64886, .38193, .25936, + .19512, .33786, .40817, + .34182, .18827, 4.63048, .38347, .26192, + .19840, .33983, .40978 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .23596, .15039, .54481, .15162, .00000, + .00000, .08640, .17261, + .24499, .15466, .84444, .15774, .00000, + .00000, .09389, .17956, + .25731, .16039, 1.25088, .16712, .00102, + .00000, .10514, .19001, + .26547, .16412, 1.50447, .17399, .01203, + .00000, .11329, .19757, + .27358, .16776, 1.75260, .18121, .02257, + .00000, .12179, .20544, + .28018, .17068, 1.94874, .18730, .03085, + .00000, .12893, .21205, + .28623, .17331, 2.12427, .19302, .03868, + .00000, .13564, .21824, + .29237, .17595, 2.29798, .19896, .04686, + .00000, .14260, .22465 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29748, .17812, 2.43926, .20402, .05387, + .00000, .14850, .23008, + .30220, .18011, 2.56443, .20876, .06035, + .00000, .15403, .23514, + .30579, .18160, 2.65562, .21239, .06529, + .00000, .15829, .23902, + .31312, .18460, 2.83010, .21990, .07563, + .00004, .16707, .24702, + .31903, .18696, 2.95083, .22605, .08413, + .00762, .17427, .25354, + .32524, .18940, 3.05936, .23253, .09315, + .02026, .18188, .26039, + .33132, .19173, 3.15528, .23880, .10199, + .03099, .18929, .26701, + .33654, .19368, 3.22745, .24407, .10953, + .04026, .19555, .27256 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .34151, .19550, 3.28706, .24901, .11672, + .04907, .20147, .27775, + .34543, .19689, 3.32682, .25280, .12232, + .05592, .20605, .28173, + .34991, .19845, 3.36372, .25703, .12867, + .06369, .21120, .28616, + .35367, .19973, 3.38795, .26047, .13396, + .07023, .21543, .28974, + .35698, .20083, 3.40493, .26343, .13861, + .07606, .21910, .29283, + .36093, .20209, 3.41625, .26678, .14403, + .08283, .22334, .29632, + .36440, .20316, 3.41865, .26960, .14874, + .08875, .22696, .29923, + .36750, .20409, 3.41567, .27199, .15288, + .09404, .23010, .30171 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .37046, .20494, 3.40816, .27416, .15679, + .09909, .23299, .30396, + .37313, .20567, 3.39383, .27596, .16022, + .10353, .23547, .30580, + .37556, .20631, 3.37795, .27753, .16332, + .10762, .23767, .30740, + .37773, .20685, 3.35946, .27881, .16601, + .11120, .23954, .30870, + .37979, .20733, 3.33800, .27991, .16852, + .11459, .24122, .30982, + .38173, .20777, 3.31505, .28087, .17085, + .11778, .24274, .31079, + .38344, .20813, 3.29032, .28160, .17285, + .12056, .24399, .31151, + .38501, .20845, 3.26611, .28222, .17467, + .12311, .24509, .31211 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .38649, .20871, 3.23950, .28269, .17632, + .12548, .24604, .31256, + .38789, .20895, 3.21226, .28307, .17785, + .12772, .24689, .31291, + .38916, .20914, 3.18523, .28334, .17921, + .12973, .24760, .31314, + .39028, .20928, 3.15823, .28348, .18037, + .13150, .24814, .31324, + .39141, .20943, 3.13134, .28361, .18153, + .13330, .24868, .31334 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .28692, .18030, .64108, .14141, .00000, + .00000, .08265, .16911, + .29638, .18432, .91076, .14660, .00000, + .00000, .08928, .17502, + .30914, .18961, 1.26589, .15433, .00092, + .00000, .09899, .18366, + .31749, .19297, 1.47987, .15984, .01062, + .00000, .10585, .18973, + .32568, .19620, 1.68326, .16551, .01977, + .00000, .11286, .19592, + .33228, .19875, 1.83959, .17020, .02683, + .00000, .11865, .20099, + .33825, .20101, 1.97594, .17453, .03341, + .00000, .12399, .20566, + .34425, .20324, 2.10738, .17894, .04020, + .00000, .12944, .21039 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34920, .20504, 2.21164, .18263, .04595, + .00000, .13400, .21432, + .35375, .20666, 2.30162, .18603, .05120, + .00000, .13822, .21794, + .35717, .20785, 2.36542, .18859, .05517, + .00000, .14141, .22065, + .36406, .21020, 2.48301, .19380, .06336, + .00004, .14791, .22614, + .36954, .21199, 2.55853, .19795, .06999, + .00611, .15312, .23050, + .37520, .21377, 2.62034, .20221, .07691, + .01617, .15852, .23494, + .38065, .21542, 2.67011, .20619, .08359, + .02459, .16364, .23906, + .38523, .21673, 2.70296, .20942, .08919, + .03176, .16787, .24238 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38953, .21791, 2.72558, .21235, .09443, + .03848, .17175, .24536, + .39286, .21876, 2.73679, .21450, .09846, + .04365, .17469, .24756, + .39658, .21966, 2.74172, .21680, .10295, + .04945, .17788, .24986, + .39964, .22035, 2.73986, .21857, .10663, + .05428, .18043, .25162, + .40230, .22091, 2.73444, .22004, .10982, + .05853, .18259, .25306, + .40538, .22148, 2.72026, .22157, .11347, + .06341, .18499, .25455, + .40803, .22191, 2.70130, .22273, .11657, + .06761, .18693, .25564, + .41032, .22223, 2.68017, .22363, .11925, + .07133, .18853, .25646 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .41246, .22248, 2.65621, .22437, .12173, + .07484, .18996, .25710, + .41430, .22262, 2.62830, .22483, .12384, + .07787, .19107, .25745, + .41595, .22270, 2.60069, .22516, .12572, + .08064, .19201, .25767, + .41736, .22272, 2.57254, .22532, .12730, + .08303, .19273, .25773, + .41865, .22268, 2.54266, .22536, .12875, + .08526, .19331, .25764, + .41982, .22261, 2.51242, .22531, .13006, + .08734, .19378, .25746, + .42081, .22247, 2.48199, .22512, .13114, + .08912, .19408, .25714, + .42169, .22232, 2.45297, .22488, .13209, + .09074, .19431, .25679 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .42246, .22213, 2.42259, .22454, .13293, + .09222, .19442, .25632, + .42315, .22191, 2.39229, .22414, .13368, + .09359, .19446, .25579, + .42374, .22168, 2.36299, .22370, .13432, + .09482, .19442, .25521, + .42422, .22141, 2.33454, .22320, .13482, + .09587, .19430, .25458, + .42470, .22115, 2.30632, .22270, .13533, + .09693, .19418, .25395 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .37845, .22889, .85602, .12355, .00000, + .00000, .07605, .16259, + .38755, .23182, 1.06886, .12737, .00000, + .00000, .08134, .16668, + .39947, .23547, 1.33337, .13274, .00078, + .00000, .08870, .17232, + .40701, .23764, 1.48166, .13638, .00862, + .00000, .09366, .17606, + .41424, .23959, 1.61462, .13993, .01582, + .00000, .09854, .17966, + .41989, .24102, 1.71088, .14273, .02120, + .00000, .10242, .18246, + .42489, .24221, 1.79010, .14520, .02611, + .00000, .10587, .18490, + .42979, .24330, 1.86186, .14762, .03106, + .00000, .10930, .18725 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .43375, .24411, 1.91527, .14957, .03516, + .00000, .11208, .18911, + .43726, .24478, 1.95805, .15128, .03883, + .00000, .11456, .19072, + .43984, .24522, 1.98595, .15252, .04155, + .00000, .11639, .19186, + .44488, .24597, 2.03093, .15490, .04705, + .00003, .11999, .19400, + .44869, .24640, 2.05058, .15666, .05138, + .00425, .12273, .19554, + .45244, .24667, 2.05660, .15831, .05577, + .01114, .12542, .19691, + .45583, .24675, 2.05328, .15967, .05988, + .01676, .12782, .19793, + .45851, .24665, 2.04259, .16060, .06322, + .02144, .12966, .19855 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .46085, .24642, 2.02562, .16129, .06625, + .02574, .13121, .19890, + .46251, .24611, 2.00732, .16168, .06851, + .02898, .13229, .19899, + .46421, .24563, 1.98046, .16192, .07093, + .03254, .13333, .19885, + .46546, .24510, 1.95370, .16195, .07286, + .03545, .13405, .19854, + .46644, .24456, 1.92765, .16188, .07449, + .03797, .13459, .19815, + .46736, .24378, 1.89126, .16160, .07627, + .04079, .13504, .19743, + .46798, .24292, 1.85476, .16114, .07770, + .04317, .13526, .19657, + .46837, .24206, 1.81960, .16060, .07888, + .04522, .13533, .19566 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46860, .24114, 1.78380, .15997, .07993, + .04712, .13528, .19465, + .46859, .24015, 1.74709, .15919, .08075, + .04871, .13506, .19350, + .46847, .23918, 1.71251, .15840, .08144, + .05014, .13479, .19236, + .46822, .23823, 1.67949, .15759, .08197, + .05134, .13444, .19119, + .46783, .23723, 1.64613, .15670, .08241, + .05244, .13401, .18994, + .46736, .23622, 1.61352, .15579, .08278, + .05343, .13353, .18867, + .46678, .23520, 1.58224, .15484, .08302, + .05425, .13299, .18740, + .46619, .23423, 1.55307, .15393, .08322, + .05498, .13245, .18617 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .46549, .23322, 1.52358, .15295, .08333, + .05562, .13184, .18487, + .46474, .23220, 1.49479, .15196, .08340, + .05620, .13121, .18357, + .46395, .23121, 1.46758, .15099, .08343, + .05669, .13057, .18230, + .46312, .23024, 1.44181, .15003, .08339, + .05710, .12992, .18106, + .46229, .22927, 1.41641, .14907, .08336, + .05751, .12927, .17982 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45832, .26587, 1.05054, .10750, .00000, + .00000, .06950, .15448, + .46588, .26730, 1.20692, .11028, .00000, + .00000, .07364, .15695, + .47543, .26879, 1.38885, .11394, .00066, + .00000, .07913, .16007, + .48118, .26945, 1.48150, .11627, .00707, + .00000, .08267, .16196, + .48643, .26986, 1.55824, .11843, .01283, + .00000, .08601, .16360, + .49038, .26997, 1.60884, .12000, .01702, + .00000, .08855, .16473, + .49371, .26992, 1.64645, .12131, .02077, + .00000, .09074, .16560, + .49681, .26971, 1.67647, .12251, .02447, + .00000, .09282, .16631 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .49919, .26942, 1.69558, .12340, .02749, + .00000, .09445, .16677, + .50119, .26903, 1.70747, .12412, .03014, + .00000, .09584, .16706, + .50256, .26864, 1.71256, .12459, .03208, + .00000, .09683, .16718, + .50501, .26768, 1.71312, .12538, .03592, + .00003, .09868, .16722, + .50660, .26669, 1.70031, .12584, .03886, + .00309, .09997, .16704, + .50787, .26541, 1.67552, .12610, .04178, + .00804, .10113, .16658, + .50869, .26391, 1.64448, .12610, .04442, + .01200, .10203, .16582, + .50903, .26244, 1.61242, .12590, .04650, + .01523, .10258, .16493 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .50903, .26085, 1.57712, .12553, .04833, + .01816, .10292, .16384, + .50877, .25945, 1.54599, .12508, .04966, + .02032, .10305, .16283, + .50815, .25764, 1.50638, .12438, .05103, + .02266, .10302, .16144, + .50737, .25599, 1.47047, .12365, .05207, + .02453, .10286, .16011, + .50651, .25446, 1.43744, .12294, .05292, + .02613, .10265, .15882, + .50512, .25241, 1.39459, .12190, .05380, + .02789, .10222, .15707, + .50358, .25041, 1.35405, .12080, .05445, + .02934, .10167, .15533, + .50199, .24851, 1.31645, .11972, .05496, + .03056, .10108, .15365 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .50026, .24659, 1.27939, .11860, .05537, + .03168, .10044, .15193, + .49834, .24463, 1.24297, .11741, .05563, + .03258, .09969, .15016, + .49644, .24278, 1.20935, .11627, .05582, + .03338, .09896, .14847, + .49454, .24100, 1.17805, .11515, .05593, + .03403, .09821, .14685, + .49252, .23919, 1.14711, .11399, .05597, + .03461, .09742, .14518, + .49047, .23740, 1.11736, .11284, .05597, + .03511, .09662, .14354, + .48840, .23566, 1.08943, .11171, .05590, + .03552, .09581, .14195, + .48642, .23402, 1.06368, .11064, .05582, + .03587, .09504, .14046 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .48432, .23235, 1.03809, .10953, .05569, + .03616, .09423, .13892, + .48222, .23070, 1.01340, .10844, .05553, + .03641, .09341, .13739, + .48015, .22911, .99035, .10738, .05535, + .03661, .09262, .13594, + .47812, .22760, .96881, .10637, .05515, + .03676, .09184, .13454, + .47609, .22608, .94768, .10536, .05495, + .03691, .09107, .13315 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .52744, .29364, 1.19146, .09310, .00000, + .00000, .06284, .14444, + .53271, .29339, 1.29424, .09503, .00000, + .00000, .06596, .14547, + .53886, .29254, 1.40292, .09739, .00056, + .00000, .06989, .14649, + .54218, .29160, 1.44905, .09878, .00577, + .00000, .07231, .14692, + .54492, .29037, 1.48102, .09996, .01036, + .00000, .07448, .14707, + .54668, .28914, 1.49672, .10071, .01364, + .00000, .07606, .14697, + .54794, .28782, 1.50369, .10127, .01652, + .00000, .07735, .14670, + .54887, .28631, 1.50406, .10169, .01932, + .00000, .07850, .14626 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .54939, .28492, 1.49963, .10194, .02156, + .00000, .07935, .14576, + .54961, .28350, 1.49103, .10205, .02351, + .00000, .08004, .14517, + .54958, .28232, 1.48141, .10206, .02491, + .00000, .08048, .14463, + .54909, .27971, 1.45441, .10192, .02763, + .00002, .08122, .14335, + .54821, .27737, 1.42268, .10165, .02968, + .00229, .08164, .14209, + .54676, .27465, 1.38118, .10117, .03164, + .00593, .08188, .14055, + .54482, .27171, 1.33617, .10048, .03338, + .00879, .08190, .13877, + .54272, .26898, 1.29420, .09970, .03471, + .01109, .08175, .13703 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .54030, .26616, 1.25128, .09880, .03585, + .01313, .08144, .13519, + .53805, .26378, 1.21547, .09799, .03663, + .01463, .08107, .13358, + .53509, .26084, 1.17206, .09689, .03741, + .01622, .08052, .13157, + .53229, .25820, 1.13415, .09586, .03798, + .01747, .07995, .12975, + .52962, .25579, 1.10017, .09488, .03842, + .01853, .07937, .12807, + .52597, .25268, 1.05753, .09356, .03883, + .01968, .07854, .12588, + .52235, .24972, 1.01835, .09227, .03909, + .02059, .07768, .12378, + .51885, .24695, .98278, .09104, .03927, + .02136, .07684, .12180 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .51527, .24419, .94834, .08979, .03938, + .02205, .07596, .11983, + .51159, .24144, .91529, .08851, .03939, + .02258, .07505, .11786, + .50806, .23886, .88518, .08730, .03936, + .02305, .07417, .11602, + .50463, .23644, .85758, .08616, .03929, + .02341, .07331, .11428, + .50111, .23399, .83065, .08499, .03918, + .02373, .07243, .11253, + .49764, .23159, .80504, .08385, .03904, + .02400, .07156, .11082, + .49424, .22929, .78132, .08274, .03886, + .02420, .07072, .10919, + .49102, .22714, .75962, .08170, .03868, + .02437, .06992, .10766 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48770, .22496, .73828, .08065, .03847, + .02449, .06909, .10613, + .48441, .22283, .71787, .07961, .03825, + .02460, .06827, .10463, + .48124, .22080, .69896, .07863, .03802, + .02467, .06748, .10320, + .47817, .21887, .68144, .07770, .03779, + .02471, .06673, .10185, + .47510, .21695, .66432, .07677, .03756, + .02475, .06599, .10050 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .59950, .31768, 1.27670, .07751, .00000, + .00000, .05460, .12978, + .60118, .31533, 1.32166, .07861, .00000, + .00000, .05662, .12934, + .60223, .31155, 1.35603, .07979, .00045, + .00000, .05902, .12835, + .60204, .30861, 1.35776, .08034, .00440, + .00000, .06038, .12746, + .60114, .30542, 1.34890, .08069, .00784, + .00000, .06150, .12629, + .59987, .30255, 1.33419, .08079, .01024, + .00000, .06224, .12515, + .59829, .29973, 1.31557, .08074, .01231, + .00000, .06276, .12396, + .59626, .29671, 1.29217, .08058, .01429, + .00000, .06316, .12261 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .59426, .29406, 1.26960, .08035, .01585, + .00000, .06339, .12138, + .59211, .29146, 1.24580, .08004, .01719, + .00000, .06352, .12013, + .59023, .28937, 1.22573, .07975, .01813, + .00000, .06355, .11910, + .58592, .28492, 1.18030, .07902, .01993, + .00002, .06347, .11685, + .58188, .28108, 1.13724, .07828, .02124, + .00160, .06327, .11490, + .57704, .27675, 1.08713, .07733, .02248, + .00412, .06289, .11267, + .57168, .27224, 1.03611, .07625, .02353, + .00606, .06235, .11027, + .56656, .26818, .99097, .07520, .02430, + .00759, .06176, .10806 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .56121, .26407, .94672, .07407, .02493, + .00894, .06106, .10583, + .55664, .26065, .91107, .07308, .02534, + .00991, .06043, .10396, + .55092, .25652, .86919, .07183, .02572, + .01092, .05960, .10168, + .54574, .25290, .83358, .07072, .02597, + .01171, .05883, .09966, + .54094, .24963, .80227, .06969, .02615, + .01237, .05810, .09783, + .53470, .24547, .76394, .06835, .02628, + .01306, .05713, .09550, + .52874, .24157, .72951, .06707, .02631, + .01360, .05616, .09335, + .52313, .23796, .69878, .06586, .02630, + .01404, .05526, .09136 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51751, .23438, .66951, .06466, .02625, + .01443, .05436, .08939, + .51186, .23090, .64192, .06347, .02614, + .01472, .05343, .08748, + .50655, .22765, .61705, .06236, .02602, + .01496, .05256, .08570, + .50151, .22460, .59455, .06131, .02587, + .01515, .05174, .08405, + .49641, .22157, .57285, .06027, .02570, + .01530, .05090, .08240, + .49141, .21863, .55240, .05926, .02552, + .01542, .05009, .08081, + .48661, .21584, .53367, .05828, .02532, + .01550, .04931, .07932, + .48211, .21323, .51666, .05737, .02513, + .01556, .04858, .07793 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47752, .21061, .50010, .05646, .02492, + .01560, .04785, .07654, + .47302, .20805, .48437, .05558, .02470, + .01562, .04712, .07519, + .46873, .20563, .46989, .05474, .02449, + .01563, .04644, .07392, + .46464, .20334, .45659, .05394, .02427, + .01561, .04579, .07272, + .46057, .20107, .44362, .05316, .02406, + .01560, .04515, .07154 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .65631, .33195, 1.26875, .06456, .00000, + .00000, .04676, .11381, + .65402, .32752, 1.26975, .06501, .00000, + .00000, .04793, .11236, + .64951, .32097, 1.25112, .06531, .00035, + .00000, .04919, .11003, + .64554, .31619, 1.22332, .06532, .00332, + .00000, .04983, .10826, + .64083, .31119, 1.18889, .06515, .00587, + .00000, .05026, .10631, + .63640, .30685, 1.15618, .06484, .00761, + .00000, .05044, .10460, + .63187, .30272, 1.12323, .06447, .00910, + .00000, .05050, .10289, + .62685, .29835, 1.08735, .06398, .01050, + .00000, .05045, .10106 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .62235, .29458, 1.05588, .06350, .01159, + .00000, .05034, .09947, + .61783, .29097, 1.02521, .06300, .01251, + .00000, .05015, .09790, + .61415, .28810, 1.00078, .06255, .01315, + .00000, .04995, .09666, + .60614, .28207, .94874, .06153, .01435, + .00002, .04945, .09405, + .59906, .27697, .90305, .06061, .01521, + .00113, .04894, .09182, + .59099, .27136, .85254, .05953, .01599, + .00289, .04829, .08935, + .58244, .26558, .80279, .05833, .01663, + .00422, .04752, .08680, + .57457, .26043, .76004, .05721, .01709, + .00527, .04676, .08450 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .56656, .25531, .71917, .05606, .01744, + .00617, .04595, .08221, + .55985, .25112, .68690, .05509, .01765, + .00681, .04525, .08034, + .55167, .24609, .64974, .05389, .01783, + .00747, .04437, .07811, + .54442, .24171, .61868, .05282, .01793, + .00798, .04357, .07616, + .53780, .23778, .59171, .05186, .01798, + .00840, .04284, .07442, + .52936, .23284, .55923, .05062, .01799, + .00883, .04190, .07224, + .52139, .22827, .53050, .04946, .01794, + .00916, .04099, .07025, + .51399, .22406, .50514, .04838, .01786, + .00942, .04015, .06842 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50667, .21994, .48120, .04733, .01776, + .00964, .03931, .06664, + .49943, .21594, .45897, .04628, .01763, + .00981, .03848, .06493, + .49268, .21223, .43909, .04531, .01749, + .00994, .03772, .06335, + .48635, .20878, .42125, .04440, .01733, + .01003, .03700, .06188, + .47999, .20537, .40418, .04351, .01716, + .01010, .03628, .06045, + .47379, .20207, .38821, .04265, .01699, + .01016, .03558, .05907, + .46791, .19896, .37370, .04184, .01682, + .01018, .03491, .05779, + .46242, .19607, .36059, .04107, .01665, + .01020, .03430, .05660 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45688, .19318, .34791, .04032, .01647, + .01020, .03368, .05542, + .45146, .19037, .33592, .03959, .01629, + .01019, .03308, .05428, + .44631, .18773, .32495, .03891, .01611, + .01017, .03251, .05321, + .44143, .18525, .31493, .03827, .01593, + .01014, .03198, .05220, + .43658, .18280, .30518, .03763, .01575, + .01011, .03146, .05121 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .69873, .33812, 1.19048, .05397, .00000, + .00000, .03955, .09758, + .69225, .33188, 1.16209, .05398, .00000, + .00000, .04009, .09544, + .68203, .32284, 1.11045, .05373, .00028, + .00000, .04053, .09232, + .67424, .31648, 1.06602, .05337, .00247, + .00000, .04067, .09011, + .66575, .30990, 1.01834, .05288, .00435, + .00000, .04064, .08779, + .65822, .30431, .97720, .05236, .00562, + .00000, .04050, .08579, + .65087, .29904, .93828, .05180, .00669, + .00000, .04028, .08388, + .64297, .29356, .89790, .05116, .00768, + .00000, .03997, .08189 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .63607, .28888, .86381, .05056, .00845, + .00000, .03966, .08018, + .62934, .28443, .83169, .04996, .00909, + .00000, .03930, .07854, + .62396, .28093, .80679, .04946, .00953, + .00000, .03900, .07726, + .61251, .27366, .75535, .04836, .01034, + .00001, .03833, .07459, + .60269, .26756, .71201, .04739, .01091, + .00080, .03769, .07237, + .59173, .26092, .66552, .04629, .01142, + .00204, .03695, .06995, + .58033, .25420, .62069, .04513, .01182, + .00297, .03612, .06750, + .57005, .24824, .58290, .04406, .01209, + .00369, .03535, .06533 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55974, .24236, .54734, .04297, .01229, + .00431, .03454, .06321, + .55123, .23760, .51967, .04207, .01240, + .00474, .03387, .06149, + .54097, .23193, .48822, .04098, .01247, + .00518, .03305, .05945, + .53199, .22704, .46224, .04002, .01250, + .00552, .03231, .05771, + .52386, .22267, .43988, .03915, .01250, + .00579, .03164, .05617, + .51359, .21721, .41327, .03806, .01246, + .00606, .03080, .05425, + .50405, .21217, .38997, .03705, .01238, + .00627, .03000, .05252, + .49524, .20759, .36957, .03612, .01229, + .00643, .02927, .05093 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48654, .20315, .35048, .03523, .01219, + .00656, .02855, .04939, + .47808, .19884, .33288, .03435, .01206, + .00665, .02785, .04793, + .47022, .19487, .31725, .03353, .01193, + .00673, .02720, .04659, + .46288, .19120, .30332, .03278, .01179, + .00677, .02661, .04535, + .45560, .18757, .29007, .03203, .01165, + .00681, .02601, .04415, + .44856, .18407, .27774, .03130, .01151, + .00683, .02542, .04301, + .44188, .18080, .26657, .03063, .01136, + .00683, .02488, .04194, + .43565, .17778, .25651, .03002, .01122, + .00683, .02439, .04096 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42942, .17475, .24684, .02940, .01108, + .00681, .02389, .03999, + .42337, .17182, .23774, .02881, .01093, + .00679, .02340, .03907, + .41766, .16908, .22946, .02825, .01079, + .00677, .02294, .03820, + .41226, .16652, .22192, .02772, .01066, + .00674, .02252, .03740, + .40692, .16399, .21461, .02720, .01052, + .00671, .02210, .03660 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .72763, .33767, 1.06848, .04540, .00000, + .00000, .03305, .08185, + .71706, .32979, 1.02358, .04507, .00000, + .00000, .03317, .07942, + .70135, .31857, .95540, .04438, .00021, + .00000, .03311, .07602, + .68991, .31086, .90421, .04382, .00183, + .00000, .03292, .07366, + .67782, .30299, .85226, .04315, .00322, + .00000, .03265, .07124, + .66737, .29638, .80935, .04252, .00414, + .00000, .03233, .06919, + .65740, .29020, .76996, .04186, .00490, + .00000, .03197, .06729, + .64687, .28380, .73016, .04114, .00561, + .00000, .03155, .06534 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .63780, .27839, .69728, .04050, .00616, + .00000, .03115, .06368, + .62909, .27327, .66688, .03986, .00660, + .00000, .03075, .06212, + .62219, .26929, .64372, .03935, .00691, + .00000, .03041, .06090, + .60771, .26107, .59676, .03826, .00746, + .00001, .02968, .05839, + .59548, .25423, .55817, .03732, .00785, + .00057, .02903, .05634, + .58201, .24687, .51758, .03627, .00818, + .00145, .02827, .05415, + .56820, .23945, .47903, .03518, .00844, + .00211, .02748, .05194, + .55591, .23294, .44697, .03419, .00860, + .00261, .02677, .05000 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54370, .22656, .41717, .03320, .00871, + .00304, .02604, .04814, + .53370, .22141, .39418, .03240, .00876, + .00333, .02543, .04664, + .52178, .21532, .36831, .03143, .00878, + .00363, .02470, .04489, + .51141, .21010, .34711, .03059, .00878, + .00385, .02406, .04339, + .50209, .20547, .32897, .02984, .00876, + .00403, .02349, .04207, + .49043, .19971, .30753, .02890, .00870, + .00421, .02276, .04046, + .47966, .19447, .28894, .02804, .00862, + .00434, .02209, .03898, + .46979, .18970, .27278, .02725, .00854, + .00444, .02148, .03765 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46013, .18506, .25771, .02649, .00844, + .00452, .02088, .03638, + .45078, .18060, .24396, .02574, .00833, + .00457, .02031, .03518, + .44214, .17651, .23176, .02506, .00822, + .00461, .01977, .03408, + .43412, .17274, .22092, .02443, .00811, + .00464, .01928, .03309, + .42619, .16904, .21067, .02381, .00800, + .00465, .01879, .03212, + .41853, .16550, .20118, .02322, .00788, + .00465, .01832, .03120, + .41133, .16219, .19264, .02267, .00777, + .00464, .01788, .03034, + .40466, .15912, .18497, .02216, .00766, + .00463, .01749, .02956 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .39799, .15608, .17760, .02166, .00754, + .00462, .01709, .02879, + .39153, .15315, .17066, .02118, .00743, + .00459, .01670, .02805, + .38546, .15040, .16437, .02073, .00732, + .00457, .01634, .02736, + .37975, .14784, .15866, .02031, .00722, + .00454, .01601, .02672, + .37410, .14531, .15314, .01991, .00712, + .00451, .01568, .02609 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .74414, .33171, .92674, .03835, .00000, + .00000, .02735, .06731, + .72968, .32246, .87529, .03780, .00000, + .00000, .02720, .06484, + .70875, .30951, .80252, .03687, .00017, + .00000, .02684, .06143, + .69394, .30071, .75129, .03616, .00136, + .00000, .02651, .05916, + .67862, .29177, .70086, .03538, .00238, + .00000, .02610, .05685, + .66554, .28438, .66021, .03470, .00305, + .00000, .02569, .05491, + .65322, .27748, .62361, .03401, .00360, + .00000, .02527, .05316, + .64037, .27041, .58723, .03327, .00411, + .00000, .02480, .05136 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .62941, .26446, .55758, .03263, .00450, + .00000, .02438, .04985, + .61898, .25885, .53049, .03200, .00481, + .00000, .02397, .04845, + .61079, .25452, .51007, .03150, .00503, + .00000, .02364, .04736, + .59372, .24562, .46917, .03045, .00541, + .00001, .02293, .04514, + .57946, .23830, .43617, .02956, .00567, + .00041, .02232, .04334, + .56395, .23045, .40194, .02859, .00589, + .00104, .02164, .04142, + .54818, .22260, .36973, .02760, .00606, + .00151, .02093, .03952, + .53425, .21576, .34319, .02671, .00615, + .00186, .02029, .03787 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52057, .20908, .31867, .02584, .00621, + .00216, .01965, .03629, + .50945, .20373, .29994, .02513, .00624, + .00236, .01913, .03503, + .49624, .19745, .27897, .02428, .00623, + .00257, .01850, .03356, + .48485, .19208, .26191, .02355, .00621, + .00272, .01796, .03232, + .47467, .18732, .24740, .02291, .00618, + .00284, .01747, .03123, + .46197, .18147, .23037, .02212, .00613, + .00295, .01687, .02989, + .45037, .17611, .21563, .02138, .00605, + .00304, .01632, .02871, + .43979, .17127, .20289, .02071, .00598, + .00310, .01581, .02765 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .42946, .16663, .19108, .02008, .00590, + .00315, .01531, .02664, + .41957, .16217, .18031, .01944, .00581, + .00318, .01485, .02566, + .41044, .15809, .17081, .01888, .00572, + .00320, .01442, .02478, + .40198, .15434, .16244, .01837, .00563, + .00320, .01401, .02399, + .39366, .15067, .15453, .01786, .00554, + .00321, .01363, .02322, + .38569, .14715, .14720, .01737, .00545, + .00320, .01326, .02249, + .37820, .14389, .14064, .01692, .00536, + .00319, .01292, .02182, + .37126, .14089, .13476, .01651, .00527, + .00318, .01260, .02120 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .36437, .13793, .12914, .01611, .00519, + .00316, .01228, .02060, + .35771, .13507, .12388, .01571, .00510, + .00314, .01198, .02003, + .35148, .13240, .11911, .01535, .00502, + .00312, .01171, .01950, + .34565, .12991, .11479, .01501, .00494, + .00310, .01145, .01899, + .33990, .12746, .11061, .01467, .00486, + .00307, .01120, .01850 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .74926, .32135, .78374, .03251, .00000, + .00000, .02244, .05426, + .73122, .31100, .73254, .03181, .00000, + .00000, .02211, .05195, + .70555, .29673, .66279, .03078, .00013, + .00000, .02159, .04875, + .68776, .28709, .61546, .03001, .00101, + .00000, .02117, .04668, + .66955, .27740, .56969, .02918, .00176, + .00000, .02070, .04461, + .65424, .26940, .53343, .02847, .00225, + .00000, .02027, .04290, + .63991, .26201, .50112, .02778, .00266, + .00000, .01985, .04134, + .62508, .25449, .46934, .02707, .00303, + .00000, .01939, .03976 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .61251, .24820, .44369, .02646, .00331, + .00000, .01899, .03843, + .60064, .24229, .42042, .02586, .00353, + .00000, .01860, .03722, + .59138, .23774, .40301, .02539, .00368, + .00000, .01829, .03629, + .57225, .22843, .36843, .02441, .00395, + .00001, .01763, .03441, + .55641, .22082, .34084, .02360, .00413, + .00030, .01708, .03288, + .53929, .21271, .31247, .02273, .00428, + .00075, .01648, .03126, + .52206, .20464, .28598, .02184, .00438, + .00109, .01586, .02968, + .50695, .19764, .26429, .02104, .00444, + .00134, .01531, .02834 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49216, .19089, .24439, .02027, .00447, + .00155, .01477, .02705, + .48025, .18547, .22924, .01964, .00448, + .00169, .01434, .02600, + .46616, .17916, .21241, .01892, .00446, + .00183, .01381, .02480, + .45408, .17378, .19875, .01829, .00444, + .00193, .01335, .02382, + .44336, .16901, .18716, .01773, .00441, + .00201, .01294, .02297, + .43009, .16318, .17366, .01703, .00435, + .00209, .01247, .02192, + .41794, .15791, .16203, .01642, .00429, + .00214, .01202, .02095, + .40693, .15316, .15200, .01587, .00423, + .00218, .01161, .02009 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .39627, .14858, .14272, .01534, .00416, + .00221, .01122, .01928, + .38604, .14424, .13431, .01482, .00409, + .00223, .01084, .01853, + .37667, .14027, .12692, .01435, .00402, + .00223, .01050, .01784, + .36804, .13663, .12041, .01393, .00395, + .00224, .01019, .01722, + .35958, .13307, .11429, .01351, .00388, + .00223, .00988, .01663, + .35151, .12968, .10865, .01310, .00381, + .00223, .00959, .01607, + .34395, .12653, .10359, .01273, .00374, + .00222, .00932, .01555, + .33697, .12365, .09906, .01239, .00367, + .00220, .00908, .01508 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .33005, .12081, .09474, .01206, .00360, + .00219, .00883, .01462, + .32337, .11809, .09071, .01176, .00354, + .00217, .00860, .01418, + .31714, .11556, .08706, .01147, .00348, + .00215, .00838, .01377, + .31132, .11319, .08378, .01119, .00342, + .00213, .00817, .01340, + .30559, .11087, .08061, .01092, .00336, + .00211, .00798, .01304 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .74381, .30776, .65173, .02786, .00000, + .00000, .01803, .04275, + .72265, .29660, .60462, .02706, .00000, + .00000, .01766, .04069, + .69300, .28127, .54187, .02588, .00010, + .00000, .01710, .03794, + .67267, .27106, .50020, .02510, .00076, + .00000, .01668, .03612, + .65207, .26085, .46036, .02425, .00132, + .00000, .01622, .03435, + .63490, .25246, .42906, .02354, .00168, + .00000, .01582, .03289, + .61893, .24479, .40140, .02287, .00198, + .00000, .01543, .03157, + .60255, .23698, .37437, .02216, .00225, + .00000, .01501, .03026 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58877, .23045, .35265, .02156, .00245, + .00000, .01464, .02918, + .57579, .22438, .33307, .02100, .00261, + .00000, .01432, .02815, + .56571, .21973, .31848, .02056, .00272, + .00000, .01404, .02739, + .54502, .21024, .28966, .01967, .00291, + .00001, .01347, .02582, + .52799, .20253, .26685, .01894, .00303, + .00022, .01301, .02455, + .50972, .19437, .24356, .01815, .00313, + .00055, .01249, .02325, + .49147, .18628, .22192, .01735, .00319, + .00079, .01195, .02200, + .47557, .17930, .20430, .01665, .00323, + .00097, .01149, .02092 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46010, .17259, .18822, .01597, .00324, + .00112, .01105, .01987, + .44769, .16723, .17603, .01542, .00324, + .00122, .01069, .01906, + .43311, .16100, .16250, .01480, .00322, + .00131, .01025, .01813, + .42067, .15572, .15157, .01426, .00319, + .00138, .00990, .01735, + .40965, .15108, .14234, .01378, .00316, + .00144, .00959, .01666, + .39605, .14541, .13160, .01321, .00311, + .00149, .00918, .01582, + .38373, .14030, .12241, .01268, .00306, + .00152, .00882, .01509, + .37260, .13570, .11450, .01222, .00301, + .00155, .00850, .01443 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .36184, .13130, .10721, .01177, .00295, + .00156, .00819, .01380, + .35154, .12713, .10063, .01135, .00289, + .00157, .00790, .01323, + .34215, .12334, .09485, .01097, .00284, + .00157, .00763, .01270, + .33358, .11987, .08978, .01062, .00278, + .00157, .00739, .01222, + .32517, .11650, .08502, .01027, .00273, + .00157, .00714, .01177, + .31711, .11330, .08064, .00994, .00267, + .00156, .00691, .01135, + .30964, .11033, .07673, .00964, .00262, + .00155, .00670, .01097, + .30278, .10760, .07325, .00936, .00257, + .00154, .00651, .01063 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .29601, .10492, .06993, .00909, .00252, + .00152, .00632, .01028, + .28950, .10236, .06684, .00882, .00247, + .00151, .00614, .00995, + .28342, .09999, .06404, .00858, .00242, + .00149, .00597, .00964, + .27775, .09778, .06152, .00836, .00238, + .00148, .00582, .00936, + .27217, .09561, .05910, .00814, .00233, + .00146, .00567, .00908 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .72977, .29105, .53682, .02346, .00000, + .00000, .01454, .03321, + .70590, .27934, .49549, .02264, .00000, + .00000, .01415, .03148, + .67277, .26343, .44102, .02150, .00008, + .00000, .01357, .02914, + .65033, .25290, .40539, .02073, .00057, + .00000, .01316, .02761, + .62780, .24241, .37142, .01994, .00099, + .00000, .01273, .02611, + .60914, .23387, .34492, .01926, .00126, + .00000, .01236, .02491, + .59190, .22606, .32158, .01864, .00148, + .00000, .01201, .02382, + .57429, .21816, .29884, .01799, .00167, + .00000, .01163, .02274 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55956, .21160, .28065, .01745, .00182, + .00000, .01131, .02186, + .54578, .20551, .26433, .01694, .00193, + .00000, .01101, .02104, + .53511, .20085, .25219, .01655, .00201, + .00000, .01077, .02041, + .51333, .19139, .22831, .01574, .00214, + .00001, .01028, .01916, + .49555, .18374, .20951, .01507, .00222, + .00016, .00987, .01818, + .47657, .17569, .19042, .01438, .00229, + .00040, .00944, .01713, + .45770, .16777, .17276, .01369, .00233, + .00057, .00901, .01611, + .44135, .16095, .15844, .01309, .00234, + .00070, .00864, .01525 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .42557, .15440, .14541, .01249, .00235, + .00081, .00827, .01444, + .41295, .14921, .13557, .01202, .00234, + .00087, .00795, .01384, + .39818, .14320, .12468, .01149, .00232, + .00094, .00761, .01311, + .38562, .13814, .11594, .01105, .00229, + .00099, .00733, .01248, + .37455, .13370, .10858, .01067, .00227, + .00103, .00707, .01193, + .36098, .12829, .10005, .01016, .00223, + .00106, .00674, .01133, + .34869, .12342, .09275, .00973, .00218, + .00108, .00647, .01076, + .33764, .11907, .08650, .00935, .00214, + .00110, .00622, .01026 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .32703, .11491, .08076, .00897, .00210, + .00110, .00597, .00980, + .31693, .11098, .07559, .00861, .00205, + .00111, .00573, .00936, + .30774, .10740, .07107, .00830, .00201, + .00111, .00552, .00897, + .29932, .10416, .06711, .00801, .00196, + .00110, .00534, .00860, + .29111, .10101, .06340, .00774, .00192, + .00110, .00515, .00827, + .28329, .09804, .06000, .00749, .00188, + .00109, .00496, .00796, + .27607, .09528, .05698, .00724, .00184, + .00108, .00480, .00767, + .26944, .09276, .05429, .00701, .00180, + .00107, .00466, .00740 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .26290, .09029, .05173, .00679, .00176, + .00106, .00452, .00715, + .25662, .08792, .04936, .00658, .00172, + .00105, .00438, .00691, + .25078, .08574, .04721, .00639, .00169, + .00104, .00426, .00668, + .24535, .08371, .04528, .00622, .00165, + .00102, .00414, .00647, + .24003, .08172, .04343, .00605, .00162, + .00101, .00402, .00627 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .70768, .27250, .44144, .01974, .00000, + .00000, .01153, .02530, + .68161, .26051, .40596, .01894, .00000, + .00000, .01117, .02384, + .64582, .24428, .35952, .01782, .00006, + .00000, .01064, .02195, + .62177, .23365, .32923, .01710, .00043, + .00000, .01026, .02070, + .59778, .22311, .30052, .01634, .00074, + .00000, .00988, .01951, + .57809, .21453, .27816, .01570, .00094, + .00000, .00955, .01857, + .55997, .20675, .25852, .01513, .00111, + .00000, .00924, .01770, + .54155, .19891, .23944, .01455, .00125, + .00000, .00893, .01682 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52620, .19243, .22420, .01407, .00135, + .00000, .00866, .01611, + .51191, .18642, .21057, .01361, .00144, + .00000, .00840, .01547, + .50091, .18184, .20043, .01325, .00149, + .00000, .00819, .01499, + .47851, .17260, .18058, .01253, .00158, + .00001, .00778, .01400, + .46031, .16517, .16507, .01197, .00164, + .00012, .00746, .01321, + .44104, .15734, .14938, .01137, .00168, + .00029, .00710, .01241, + .42196, .14968, .13491, .01076, .00170, + .00042, .00674, .01165, + .40552, .14314, .12322, .01023, .00171, + .00051, .00642, .01100 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .38972, .13689, .11264, .00972, .00170, + .00058, .00613, .01039, + .37712, .13197, .10469, .00934, .00169, + .00063, .00589, .00989, + .36242, .12627, .09592, .00892, .00167, + .00068, .00562, .00932, + .35001, .12147, .08889, .00855, .00165, + .00071, .00538, .00886, + .33911, .11727, .08299, .00822, .00163, + .00073, .00517, .00847, + .32583, .11218, .07617, .00780, .00159, + .00075, .00493, .00799, + .31385, .10762, .07037, .00744, .00156, + .00077, .00471, .00758, + .30311, .10355, .06543, .00712, .00152, + .00078, .00451, .00721 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .29282, .09967, .06091, .00680, .00149, + .00078, .00432, .00686, + .28305, .09604, .05685, .00651, .00145, + .00078, .00413, .00654, + .27417, .09274, .05331, .00625, .00142, + .00078, .00397, .00626, + .26607, .08975, .05021, .00604, .00138, + .00077, .00382, .00599, + .25822, .08685, .04733, .00582, .00135, + .00077, .00368, .00574, + .25078, .08410, .04469, .00560, .00132, + .00076, .00355, .00552, + .24389, .08159, .04235, .00541, .00129, + .00075, .00342, .00530, + .23757, .07929, .04028, .00523, .00126, + .00075, .00331, .00509 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .23136, .07704, .03831, .00506, .00123, + .00074, .00321, .00491, + .22542, .07488, .03648, .00490, .00120, + .00073, .00310, .00474, + .21990, .07289, .03483, .00475, .00117, + .00072, .00301, .00458, + .21480, .07106, .03335, .00461, .00115, + .00071, .00292, .00442, + .20980, .06926, .03193, .00448, .00112, + .00070, .00283, .00428 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .67890, .25252, .36461, .01641, .00000, + .00000, .00909, .01892, + .65121, .24042, .33429, .01562, .00000, + .00000, .00875, .01780, + .61340, .22427, .29457, .01459, .00005, + .00000, .00827, .01628, + .58828, .21368, .26877, .01392, .00032, + .00000, .00796, .01529, + .56333, .20329, .24446, .01323, .00056, + .00000, .00762, .01436, + .54295, .19487, .22546, .01267, .00071, + .00000, .00734, .01360, + .52431, .18723, .20880, .01216, .00083, + .00000, .00707, .01294, + .50545, .17959, .19266, .01164, .00093, + .00000, .00679, .01227 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48979, .17330, .17981, .01121, .00100, + .00000, .00657, .01172, + .47529, .16748, .16836, .01080, .00106, + .00000, .00636, .01121, + .46414, .16307, .15986, .01050, .00110, + .00000, .00620, .01083, + .44155, .15418, .14326, .00990, .00116, + .00000, .00586, .01008, + .42332, .14704, .13038, .00940, .00120, + .00009, .00558, .00949, + .40409, .13958, .11743, .00888, .00122, + .00021, .00528, .00889, + .38518, .13232, .10554, .00836, .00124, + .00030, .00499, .00831, + .36896, .12612, .09596, .00791, .00124, + .00037, .00474, .00781 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .35339, .12023, .08734, .00751, .00123, + .00042, .00452, .00733, + .34106, .11561, .08088, .00720, .00122, + .00045, .00433, .00697, + .32681, .11028, .07378, .00681, .00120, + .00048, .00411, .00657, + .31475, .10581, .06813, .00649, .00118, + .00051, .00392, .00623, + .30415, .10192, .06340, .00624, .00116, + .00052, .00375, .00593, + .29135, .09718, .05797, .00589, .00113, + .00053, .00357, .00560, + .27983, .09298, .05336, .00560, .00111, + .00054, .00339, .00529, + .26952, .08924, .04946, .00535, .00108, + .00055, .00324, .00501 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .25967, .08570, .04590, .00511, .00105, + .00055, .00310, .00475, + .25037, .08236, .04271, .00489, .00102, + .00055, .00296, .00452, + .24195, .07935, .03994, .00469, .00100, + .00054, .00284, .00431, + .23431, .07663, .03752, .00450, .00097, + .00054, .00272, .00411, + .22691, .07401, .03528, .00433, .00094, + .00054, .00261, .00393, + .21991, .07152, .03324, .00416, .00092, + .00053, .00251, .00376, + .21344, .06924, .03143, .00400, .00090, + .00052, .00242, .00361, + .20754, .06717, .02982, .00386, .00087, + .00052, .00233, .00347 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .20174, .06515, .02831, .00373, .00085, + .00051, .00226, .00334, + .19619, .06324, .02690, .00361, .00083, + .00050, .00218, .00321, + .19106, .06146, .02565, .00350, .00081, + .00050, .00211, .00309, + .18634, .05981, .02452, .00338, .00079, + .00049, .00204, .00298, + .18171, .05821, .02345, .00327, .00078, + .00048, .00198, .00287 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .64461, .23163, .30367, .01337, .00000, + .00000, .00710, .01395, + .61573, .21975, .27742, .01270, .00000, + .00000, .00681, .01304, + .57671, .20385, .24308, .01176, .00004, + .00000, .00639, .01187, + .55093, .19354, .22083, .01117, .00024, + .00000, .00609, .01112, + .52555, .18340, .19985, .01053, .00042, + .00000, .00583, .01041, + .50488, .17526, .18354, .01004, .00053, + .00000, .00559, .00985, + .48605, .16793, .16929, .00960, .00061, + .00000, .00536, .00933, + .46707, .16061, .15554, .00916, .00069, + .00000, .00514, .00882 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .45139, .15459, .14462, .00879, .00074, + .00000, .00495, .00841, + .43691, .14903, .13490, .00844, .00078, + .00000, .00479, .00803, + .42584, .14481, .12772, .00819, .00081, + .00000, .00465, .00773, + .40347, .13637, .11377, .00769, .00085, + .00000, .00437, .00716, + .38548, .12966, .10301, .00727, .00087, + .00006, .00414, .00672, + .36665, .12265, .09225, .00681, .00089, + .00015, .00391, .00627, + .34819, .11584, .08244, .00639, .00089, + .00022, .00369, .00583, + .33239, .11007, .07460, .00606, .00089, + .00026, .00350, .00546 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .31734, .10461, .06758, .00572, .00088, + .00030, .00331, .00512, + .30547, .10033, .06232, .00545, .00087, + .00032, .00315, .00486, + .29176, .09541, .05661, .00514, .00085, + .00034, .00298, .00456, + .28024, .09130, .05208, .00489, .00084, + .00036, .00284, .00431, + .27017, .08773, .04829, .00468, .00082, + .00037, .00272, .00409, + .25798, .08341, .04396, .00440, .00080, + .00038, .00257, .00385, + .24709, .07958, .04032, .00417, .00078, + .00038, .00243, .00363, + .23738, .07618, .03724, .00396, .00076, + .00038, .00232, .00344 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .22813, .07297, .03443, .00377, .00073, + .00038, .00220, .00327, + .21941, .06996, .03195, .00359, .00071, + .00038, .00211, .00309, + .21156, .06726, .02980, .00343, .00069, + .00038, .00202, .00293, + .20445, .06481, .02792, .00328, .00067, + .00038, .00193, .00279, + .19756, .06246, .02619, .00315, .00065, + .00037, .00184, .00266, + .19104, .06025, .02461, .00303, .00064, + .00037, .00176, .00253, + .18505, .05823, .02322, .00291, .00062, + .00036, .00169, .00243, + .17960, .05639, .02199, .00280, .00060, + .00036, .00163, .00233 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .17428, .05459, .02084, .00269, .00059, + .00035, .00157, .00224, + .16920, .05287, .01977, .00259, .00057, + .00034, .00152, .00216, + .16451, .05129, .01881, .00250, .00056, + .00034, .00147, .00208, + .16017, .04984, .01796, .00242, .00054, + .00033, .00142, .00201, + .15594, .04843, .01715, .00234, .00053, + .00033, .00137, .00194 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .60571, .21057, .25557, .01089, .00000, + .00000, .00539, .01004, + .57626, .19900, .23231, .01026, .00000, + .00000, .00516, .00934, + .53667, .18364, .20196, .00945, .00003, + .00000, .00480, .00848, + .51075, .17370, .18246, .00891, .00018, + .00000, .00458, .00792, + .48535, .16402, .16414, .00836, .00031, + .00000, .00437, .00737, + .46475, .15624, .14995, .00793, .00039, + .00000, .00417, .00694, + .44608, .14927, .13762, .00754, .00045, + .00000, .00399, .00657, + .42734, .14231, .12579, .00717, .00050, + .00000, .00380, .00621 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .41190, .13662, .11645, .00686, .00054, + .00000, .00365, .00590, + .39769, .13143, .10814, .00656, .00057, + .00000, .00352, .00560, + .38688, .12748, .10205, .00635, .00059, + .00000, .00341, .00539, + .36509, .11959, .09028, .00592, .00061, + .00000, .00318, .00498, + .34768, .11332, .08127, .00556, .00063, + .00004, .00301, .00467, + .32949, .10682, .07235, .00519, .00064, + .00011, .00283, .00435, + .31173, .10055, .06428, .00486, .00064, + .00015, .00265, .00403, + .29663, .09525, .05785, .00459, .00063, + .00019, .00250, .00375 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .28229, .09023, .05213, .00432, .00062, + .00021, .00236, .00351, + .27106, .08630, .04788, .00407, .00062, + .00023, .00225, .00332, + .25806, .08183, .04327, .00384, .00060, + .00024, .00212, .00311, + .24719, .07811, .03964, .00365, .00059, + .00025, .00201, .00293, + .23773, .07488, .03663, .00349, .00058, + .00026, .00192, .00277, + .22628, .07099, .03320, .00329, .00056, + .00026, .00181, .00259, + .21611, .06755, .03033, .00310, .00054, + .00027, .00171, .00244, + .20709, .06450, .02792, .00293, .00053, + .00027, .00162, .00230 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .19854, .06162, .02574, .00276, .00051, + .00027, .00154, .00217, + .19049, .05894, .02380, .00262, .00049, + .00026, .00146, .00205, + .18324, .05653, .02213, .00250, .00048, + .00026, .00139, .00194, + .17671, .05436, .02069, .00240, .00046, + .00026, .00133, .00186, + .17037, .05229, .01936, .00231, .00045, + .00025, .00127, .00177, + .16439, .05034, .01815, .00221, .00044, + .00025, .00122, .00169, + .15894, .04856, .01709, .00212, .00042, + .00025, .00117, .00161, + .15399, .04694, .01615, .00204, .00041, + .00024, .00113, .00153 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .14917, .04536, .01527, .00196, .00040, + .00024, .00109, .00147, + .14458, .04386, .01446, .00187, .00039, + .00023, .00105, .00140, + .14032, .04248, .01373, .00180, .00038, + .00023, .00101, .00135, + .13639, .04122, .01309, .00175, .00037, + .00023, .00098, .00130, + .13256, .03999, .01248, .00170, .00036, + .00022, .00094, .00125 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .56345, .18954, .21668, .00866, .00000, + .00000, .00408, .00708, + .53393, .17843, .19566, .00813, .00000, + .00000, .00386, .00659, + .49452, .16378, .16842, .00742, .00002, + .00000, .00357, .00595, + .46883, .15436, .15110, .00697, .00013, + .00000, .00338, .00554, + .44377, .14526, .13493, .00650, .00023, + .00000, .00319, .00514, + .42358, .13796, .12251, .00619, .00028, + .00000, .00303, .00480, + .40531, .13145, .11180, .00589, .00033, + .00000, .00289, .00452, + .38711, .12495, .10158, .00555, .00036, + .00000, .00275, .00425 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37221, .11963, .09355, .00527, .00039, + .00000, .00264, .00404, + .35846, .11479, .08647, .00504, .00041, + .00000, .00252, .00385, + .34801, .11115, .08128, .00486, .00042, + .00000, .00244, .00369, + .32708, .10389, .07135, .00452, .00044, + .00000, .00227, .00339, + .31044, .09813, .06383, .00424, .00045, + .00003, .00214, .00318, + .29313, .09219, .05645, .00393, .00045, + .00008, .00200, .00295, + .27633, .08647, .04981, .00367, .00045, + .00011, .00186, .00271, + .26212, .08165, .04457, .00343, .00044, + .00013, .00175, .00253 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .24868, .07711, .03994, .00322, .00044, + .00015, .00165, .00236, + .23809, .07358, .03654, .00306, .00043, + .00016, .00156, .00222, + .22602, .06955, .03287, .00285, .00042, + .00017, .00146, .00207, + .21595, .06621, .02998, .00270, .00041, + .00017, .00138, .00195, + .20718, .06331, .02760, .00256, .00040, + .00018, .00132, .00184, + .19662, .05985, .02491, .00240, .00038, + .00018, .00123, .00172, + .18727, .05679, .02266, .00225, .00037, + .00018, .00116, .00162, + .17899, .05411, .02078, .00212, .00036, + .00018, .00110, .00153 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .17114, .05159, .01910, .00201, .00035, + .00018, .00105, .00141, + .16379, .04922, .01761, .00192, .00034, + .00018, .00099, .00133, + .15720, .04710, .01633, .00182, .00032, + .00018, .00094, .00126, + .15129, .04519, .01523, .00172, .00031, + .00018, .00090, .00120, + .14559, .04337, .01421, .00164, .00030, + .00017, .00086, .00115, + .14021, .04166, .01330, .00156, .00029, + .00017, .00082, .00109, + .13528, .04011, .01249, .00151, .00029, + .00017, .00079, .00104, + .13079, .03870, .01179, .00146, .00028, + .00016, .00075, .00100 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .12645, .03733, .01113, .00140, .00027, + .00016, .00072, .00095, + .12234, .03604, .01052, .00134, .00026, + .00016, .00069, .00091, + .11855, .03485, .00997, .00129, .00025, + .00016, .00066, .00087, + .11506, .03376, .00949, .00124, .00025, + .00015, .00064, .00084, + .11166, .03271, .00903, .00120, .00024, + .00015, .00062, .00080 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .51884, .16880, .18427, .00669, .00000, + .00000, .00305, .00495, + .48969, .15832, .16492, .00624, .00000, + .00000, .00288, .00459, + .45098, .14453, .14021, .00565, .00002, + .00000, .00264, .00413, + .42595, .13572, .12471, .00529, .00009, + .00000, .00250, .00383, + .40161, .12725, .11039, .00495, .00016, + .00000, .00235, .00351, + .38213, .12045, .09949, .00464, .00020, + .00000, .00222, .00332, + .36461, .11441, .09017, .00436, .00023, + .00000, .00211, .00312, + .34714, .10844, .08137, .00410, .00026, + .00000, .00200, .00292 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33285, .10358, .07451, .00390, .00027, + .00000, .00192, .00276, + .31976, .09916, .06849, .00372, .00029, + .00000, .00182, .00262, + .30985, .09582, .06412, .00357, .00029, + .00000, .00176, .00252, + .29005, .08919, .05582, .00328, .00030, + .00000, .00163, .00232, + .27436, .08397, .04960, .00308, .00031, + .00002, .00153, .00215, + .25813, .07860, .04354, .00285, .00031, + .00005, .00143, .00199, + .24246, .07346, .03815, .00262, .00031, + .00008, .00133, .00184, + .22923, .06915, .03394, .00245, .00030, + .00009, .00125, .00170 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .21675, .06511, .03024, .00229, .00030, + .00010, .00116, .00158, + .20702, .06195, .02753, .00215, .00029, + .00011, .00110, .00148, + .19585, .05840, .02463, .00202, .00028, + .00011, .00103, .00137, + .18658, .05545, .02238, .00190, .00028, + .00012, .00097, .00129, + .17856, .05290, .02053, .00180, .00027, + .00012, .00092, .00122, + .16894, .04985, .01844, .00169, .00026, + .00012, .00086, .00113, + .16044, .04717, .01672, .00159, .00025, + .00012, .00081, .00105, + .15294, .04482, .01528, .00150, .00024, + .00012, .00077, .00099 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .14586, .04262, .01399, .00141, .00023, + .00012, .00073, .00092, + .13929, .04055, .01286, .00132, .00022, + .00012, .00068, .00088, + .13339, .03872, .01189, .00124, .00022, + .00012, .00064, .00084, + .12806, .03708, .01106, .00119, .00021, + .00012, .00062, .00079, + .12295, .03552, .01030, .00113, .00020, + .00012, .00059, .00075, + .11817, .03405, .00961, .00108, .00019, + .00011, .00056, .00071, + .11380, .03272, .00901, .00103, .00019, + .00011, .00054, .00067, + .10984, .03151, .00849, .00099, .00018, + .00011, .00052, .00063 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .10600, .03034, .00800, .00095, .00018, + .00011, .00049, .00061, + .10236, .02924, .00755, .00090, .00017, + .00010, .00047, .00059, + .09901, .02822, .00714, .00087, .00017, + .00010, .00045, .00057, + .09593, .02730, .00679, .00084, .00016, + .00010, .00043, .00055, + .09294, .02640, .00645, .00082, .00016, + .00010, .00041, .00052 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .47283, .14881, .15628, .00509, .00000, + .00000, .00223, .00340, + .44444, .13902, .13838, .00470, .00000, + .00000, .00209, .00315, + .40706, .12622, .11592, .00421, .00001, + .00000, .00192, .00280, + .38302, .11806, .10212, .00388, .00007, + .00000, .00181, .00261, + .35972, .11026, .08951, .00361, .00011, + .00000, .00171, .00240, + .34113, .10407, .08004, .00337, .00014, + .00000, .00160, .00227, + .32450, .09856, .07201, .00315, .00016, + .00000, .00152, .00213, + .30800, .09311, .06447, .00294, .00017, + .00000, .00144, .00199 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29454, .08870, .05866, .00278, .00019, + .00000, .00136, .00189, + .28226, .08470, .05363, .00263, .00019, + .00000, .00130, .00179, + .27297, .08169, .05000, .00252, .00020, + .00000, .00125, .00171, + .25449, .07574, .04313, .00231, .00021, + .00000, .00116, .00155, + .23991, .07108, .03805, .00215, .00021, + .00002, .00109, .00143, + .22488, .06628, .03317, .00198, .00021, + .00004, .00102, .00132, + .21042, .06171, .02885, .00181, .00021, + .00005, .00094, .00123, + .19826, .05790, .02551, .00169, .00020, + .00006, .00088, .00114 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .18684, .05434, .02259, .00158, .00020, + .00007, .00082, .00104, + .17798, .05158, .02048, .00147, .00019, + .00007, .00076, .00099, + .16788, .04846, .01823, .00136, .00019, + .00008, .00073, .00092, + .15951, .04588, .01649, .00128, .00018, + .00008, .00069, .00086, + .15227, .04367, .01507, .00122, .00018, + .00008, .00065, .00081, + .14366, .04103, .01348, .00111, .00017, + .00008, .00060, .00076, + .13603, .03872, .01217, .00104, .00016, + .00008, .00056, .00071, + .12931, .03669, .01109, .00099, .00016, + .00008, .00053, .00066 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12299, .03479, .01012, .00093, .00015, + .00008, .00050, .00061, + .11715, .03304, .00928, .00086, .00015, + .00008, .00047, .00059, + .11192, .03148, .00856, .00081, .00014, + .00008, .00044, .00056, + .10721, .03008, .00794, .00078, .00014, + .00008, .00042, .00052, + .10271, .02874, .00738, .00075, .00013, + .00008, .00040, .00049, + .09851, .02749, .00687, .00070, .00013, + .00007, .00038, .00047, + .09469, .02636, .00643, .00066, .00012, + .00007, .00037, .00045, + .09123, .02535, .00605, .00063, .00012, + .00007, .00035, .00043 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .08786, .02437, .00569, .00060, .00011, + .00007, .00033, .00041, + .08468, .02343, .00536, .00059, .00011, + .00007, .00032, .00038, + .08176, .02258, .00507, .00057, .00011, + .00007, .00030, .00036, + .07911, .02181, .00481, .00054, .00010, + .00007, .00029, .00035, + .07653, .02106, .00456, .00051, .00010, + .00006, .00028, .00034 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .42633, .12997, .13160, .00390, .00000, + .00000, .00153, .00222, + .39914, .12096, .11519, .00360, .00000, + .00000, .00143, .00204, + .36351, .10926, .09502, .00321, .00001, + .00000, .00129, .00182, + .34074, .10181, .08286, .00294, .00004, + .00000, .00121, .00170, + .31880, .09475, .07190, .00272, .00007, + .00000, .00113, .00153, + .30137, .08916, .06376, .00254, .00009, + .00000, .00107, .00141, + .28582, .08418, .05694, .00237, .00011, + .00000, .00100, .00135, + .27045, .07930, .05061, .00220, .00012, + .00000, .00093, .00126 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25793, .07536, .04577, .00208, .00012, + .00000, .00089, .00118, + .24652, .07181, .04159, .00200, .00013, + .00000, .00085, .00110, + .23796, .06913, .03860, .00191, .00013, + .00000, .00081, .00105, + .22099, .06384, .03302, .00172, .00014, + .00000, .00074, .00097, + .20763, .05971, .02893, .00160, .00014, + .00001, .00069, .00089, + .19392, .05550, .02504, .00147, .00014, + .00002, .00064, .00082, + .18078, .05149, .02163, .00135, .00014, + .00003, .00059, .00075, + .16980, .04816, .01902, .00125, .00013, + .00004, .00055, .00069 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .15954, .04507, .01676, .00115, .00013, + .00005, .00051, .00065, + .15158, .04267, .01513, .00108, .00013, + .00005, .00048, .00060, + .14252, .03997, .01341, .00100, .00012, + .00005, .00045, .00055, + .13505, .03774, .01208, .00093, .00012, + .00005, .00042, .00052, + .12862, .03583, .01100, .00088, .00012, + .00005, .00039, .00050, + .12094, .03357, .00980, .00081, .00011, + .00005, .00036, .00047, + .11419, .03160, .00882, .00077, .00011, + .00005, .00034, .00042, + .10828, .02987, .00801, .00072, .00010, + .00005, .00032, .00039 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10274, .02826, .00729, .00067, .00010, + .00005, .00029, .00038, + .09761, .02677, .00667, .00063, .00009, + .00005, .00028, .00035, + .09303, .02544, .00614, .00060, .00009, + .00005, .00026, .00032, + .08893, .02427, .00568, .00057, .00009, + .00005, .00025, .00030, + .08502, .02314, .00527, .00054, .00008, + .00005, .00023, .00028, + .08138, .02209, .00490, .00051, .00008, + .00005, .00022, .00027, + .07806, .02114, .00458, .00048, .00008, + .00005, .00021, .00026, + .07507, .02029, .00430, .00047, .00007, + .00005, .00020, .00025 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07217, .01947, .00403, .00044, .00007, + .00005, .00019, .00024, + .06944, .01870, .00379, .00042, .00007, + .00004, .00018, .00022, + .06694, .01799, .00358, .00040, .00007, + .00004, .00018, .00021, + .06466, .01734, .00340, .00039, .00007, + .00004, .00017, .00020, + .06246, .01672, .00322, .00037, .00006, + .00004, .00016, .00019 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .37999, .11191, .10880, .00274, .00000, + .00000, .00112, .00149, + .35433, .10373, .09410, .00249, .00000, + .00000, .00104, .00138, + .32082, .09319, .07633, .00222, .00001, + .00000, .00092, .00123, + .29955, .08654, .06585, .00203, .00003, + .00000, .00086, .00112, + .27914, .08023, .05654, .00186, .00005, + .00000, .00080, .00102, + .26303, .07525, .04971, .00173, .00006, + .00000, .00075, .00093, + .24868, .07083, .04406, .00161, .00007, + .00000, .00070, .00088, + .23453, .06652, .03886, .00150, .00007, + .00000, .00065, .00082 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22308, .06306, .03491, .00142, .00008, + .00000, .00062, .00076, + .21270, .05992, .03154, .00133, .00008, + .00000, .00059, .00073, + .20488, .05758, .02913, .00128, .00008, + .00000, .00056, .00069, + .18947, .05296, .02470, .00117, .00009, + .00000, .00051, .00062, + .17744, .04938, .02150, .00106, .00009, + .00001, .00048, .00057, + .16507, .04574, .01847, .00099, .00009, + .00002, .00043, .00052, + .15332, .04228, .01585, .00090, .00009, + .00002, .00040, .00047, + .14350, .03940, .01385, .00083, .00008, + .00003, .00037, .00044 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13435, .03675, .01214, .00077, .00008, + .00003, .00034, .00040, + .12730, .03471, .01092, .00073, .00008, + .00003, .00032, .00038, + .11932, .03242, .00963, .00066, .00008, + .00003, .00029, .00034, + .11275, .03053, .00864, .00061, .00007, + .00003, .00027, .00032, + .10710, .02892, .00785, .00058, .00007, + .00003, .00025, .00030, + .10038, .02701, .00697, .00054, .00007, + .00003, .00023, .00029, + .09451, .02534, .00625, .00051, .00007, + .00003, .00022, .00026, + .08939, .02389, .00566, .00048, .00006, + .00003, .00021, .00024 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08459, .02254, .00514, .00044, .00006, + .00003, .00019, .00023, + .08016, .02130, .00469, .00040, .00006, + .00003, .00018, .00021, + .07622, .02020, .00430, .00038, .00006, + .00003, .00016, .00019, + .07270, .01922, .00398, .00036, .00005, + .00003, .00015, .00017, + .06935, .01829, .00368, .00034, .00005, + .00003, .00014, .00017, + .06623, .01743, .00342, .00032, .00005, + .00003, .00014, .00017, + .06341, .01664, .00319, .00030, .00005, + .00003, .00013, .00017, + .06086, .01594, .00299, .00028, .00005, + .00003, .00012, .00016 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .05841, .01527, .00280, .00027, .00004, + .00003, .00012, .00014, + .05610, .01463, .00263, .00027, .00004, + .00003, .00011, .00013, + .05398, .01405, .00248, .00026, .00004, + .00003, .00011, .00012, + .05205, .01353, .00235, .00024, .00004, + .00003, .00010, .00012, + .05018, .01302, .00223, .00023, .00004, + .00003, .00009, .00011 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .33464, .09524, .08815, .00188, .00000, + .00000, .00080, .00099, + .31072, .08793, .07528, .00171, .00000, + .00000, .00073, .00090, + .27974, .07853, .06003, .00149, .00000, + .00000, .00064, .00080, + .26016, .07265, .05122, .00137, .00002, + .00000, .00059, .00073, + .24146, .06708, .04350, .00124, .00003, + .00000, .00053, .00067, + .22671, .06272, .03792, .00116, .00004, + .00000, .00050, .00061, + .21366, .05886, .03333, .00109, .00004, + .00000, .00047, .00057, + .20084, .05511, .02917, .00101, .00005, + .00000, .00044, .00052 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .19051, .05210, .02604, .00095, .00005, + .00000, .00041, .00049, + .18121, .04938, .02339, .00087, .00005, + .00000, .00038, .00046, + .17420, .04735, .02151, .00083, .00005, + .00000, .00037, .00044, + .16039, .04337, .01808, .00075, .00005, + .00000, .00034, .00040, + .14967, .04029, .01563, .00068, .00005, + .00000, .00031, .00037, + .13873, .03718, .01334, .00063, .00005, + .00001, .00029, .00033, + .12833, .03424, .01137, .00057, .00005, + .00001, .00026, .00030, + .11970, .03181, .00988, .00052, .00005, + .00002, .00024, .00028 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11170, .02956, .00862, .00048, .00005, + .00002, .00022, .00026, + .10556, .02783, .00772, .00043, .00005, + .00002, .00021, .00025, + .09860, .02590, .00678, .00041, .00005, + .00002, .00019, .00023, + .09289, .02433, .00607, .00039, .00005, + .00002, .00017, .00021, + .08801, .02299, .00549, .00036, .00004, + .00002, .00016, .00019, + .08224, .02140, .00486, .00033, .00004, + .00002, .00015, .00017, + .07720, .02002, .00435, .00031, .00004, + .00002, .00014, .00016, + .07280, .01883, .00393, .00029, .00004, + .00002, .00013, .00015 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .06869, .01772, .00356, .00027, .00004, + .00002, .00012, .00014, + .06493, .01669, .00324, .00025, .00003, + .00002, .00011, .00014, + .06158, .01579, .00297, .00023, .00003, + .00002, .00011, .00013, + .05861, .01499, .00274, .00022, .00003, + .00002, .00010, .00011, + .05578, .01424, .00253, .00021, .00003, + .00002, .00009, .00010, + .05316, .01353, .00235, .00019, .00003, + .00002, .00009, .00010, + .05078, .01290, .00219, .00018, .00003, + .00002, .00008, .00010, + .04865, .01233, .00205, .00017, .00003, + .00002, .00008, .00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04660, .01179, .00192, .00016, .00003, + .00002, .00008, .00009, + .04466, .01128, .00180, .00015, .00003, + .00002, .00007, .00008, + .04290, .01081, .00169, .00015, .00002, + .00002, .00007, .00008, + .04130, .01039, .00160, .00014, .00002, + .00002, .00007, .00007, + .03976, .00998, .00151, .00013, .00002, + .00002, .00006, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .29107, .08014, .06975, .00135, .00000, + .00000, .00050, .00061, + .26917, .07367, .05880, .00121, .00000, + .00000, .00045, .00055, + .24089, .06545, .04612, .00105, .00000, + .00000, .00040, .00048, + .22313, .06032, .03891, .00097, .00001, + .00000, .00036, .00041, + .20625, .05545, .03272, .00087, .00002, + .00000, .00032, .00040, + .19303, .05167, .02828, .00081, .00002, + .00000, .00030, .00037, + .18135, .04835, .02468, .00074, .00002, + .00000, .00029, .00033, + .16992, .04512, .02144, .00069, .00003, + .00000, .00027, .00030 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .16074, .04254, .01902, .00065, .00003, + .00000, .00025, .00028, + .15246, .04021, .01698, .00060, .00003, + .00000, .00024, .00027, + .14626, .03849, .01556, .00057, .00003, + .00000, .00023, .00025, + .13410, .03511, .01297, .00051, .00003, + .00000, .00020, .00023, + .12468, .03252, .01115, .00046, .00003, + .00000, .00018, .00021, + .11512, .02989, .00946, .00042, .00003, + .00001, .00016, .00019, + .10610, .02741, .00802, .00039, .00003, + .00001, .00015, .00017, + .09863, .02538, .00694, .00035, .00003, + .00001, .00014, .00016 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09173, .02352, .00603, .00032, .00003, + .00001, .00013, .00014, + .08643, .02209, .00538, .00030, .00003, + .00001, .00011, .00014, + .08045, .02049, .00471, .00029, .00003, + .00001, .00010, .00012, + .07558, .01919, .00420, .00027, .00003, + .00001, .00010, .00011, + .07143, .01808, .00379, .00024, .00003, + .00001, .00009, .00010, + .06651, .01678, .00335, .00023, .00002, + .00001, .00008, .00009, + .06226, .01565, .00299, .00021, .00002, + .00001, .00008, .00009, + .05856, .01468, .00269, .00018, .00002, + .00001, .00007, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05512, .01377, .00244, .00017, .00002, + .00001, .00006, .00008, + .05194, .01295, .00221, .00016, .00002, + .00001, .00006, .00007, + .04914, .01222, .00202, .00015, .00002, + .00001, .00006, .00007, + .04665, .01157, .00187, .00015, .00002, + .00001, .00006, .00006, + .04430, .01096, .00172, .00014, .00002, + .00001, .00005, .00006, + .04212, .01040, .00159, .00013, .00002, + .00001, .00005, .00005, + .04016, .00989, .00148, .00012, .00002, + .00001, .00005, .00005, + .03841, .00944, .00139, .00011, .00002, + .00001, .00004, .00004 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03671, .00901, .00130, .00011, .00002, + .00001, .00004, .00004, + .03511, .00860, .00122, .00011, .00001, + .00001, .00004, .00004, + .03366, .00823, .00114, .00010, .00001, + .00001, .00003, .00004, + .03234, .00789, .00108, .00010, .00001, + .00001, .00003, .00004, + .03108, .00757, .00102, .00009, .00001, + .00001, .00003, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .24953, .06625, .05334, .00081, .00000, + .00000, .00036, .00041, + .22971, .06065, .04441, .00073, .00000, + .00000, .00032, .00038, + .20430, .05356, .03426, .00066, .00000, + .00000, .00028, .00031, + .18851, .04914, .02860, .00057, .00001, + .00000, .00025, .00028, + .17352, .04502, .02379, .00051, .00001, + .00000, .00022, .00027, + .16181, .04179, .02040, .00046, .00001, + .00000, .00021, .00023, + .15148, .03899, .01767, .00044, .00001, + .00000, .00019, .00021, + .14144, .03627, .01524, .00041, .00001, + .00000, .00017, .00019 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13342, .03409, .01344, .00038, .00002, + .00000, .00016, .00018, + .12621, .03214, .01194, .00035, .00002, + .00000, .00015, .00018, + .12083, .03069, .01090, .00033, .00002, + .00000, .00014, .00017, + .11028, .02788, .00902, .00029, .00002, + .00000, .00013, .00015, + .10215, .02572, .00770, .00027, .00002, + .00000, .00012, .00013, + .09394, .02354, .00649, .00024, .00002, + .00000, .00011, .00012, + .08621, .02152, .00548, .00022, .00002, + .00001, .00010, .00011, + .07985, .01985, .00472, .00020, .00002, + .00001, .00009, .00010 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07398, .01832, .00409, .00018, .00002, + .00001, .00008, .00009, + .06950, .01716, .00364, .00017, .00002, + .00001, .00007, .00009, + .06448, .01586, .00317, .00015, .00002, + .00001, .00006, .00008, + .06039, .01481, .00282, .00014, .00001, + .00001, .00006, .00007, + .05691, .01392, .00255, .00013, .00001, + .00001, .00006, .00007, + .05283, .01287, .00224, .00012, .00001, + .00001, .00005, .00006, + .04928, .01197, .00200, .00011, .00001, + .00001, .00005, .00005, + .04621, .01119, .00180, .00010, .00001, + .00001, .00004, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04336, .01047, .00162, .00010, .00001, + .00001, .00004, .00005, + .04077, .00981, .00147, .00009, .00001, + .00001, .00004, .00004, + .03847, .00924, .00135, .00008, .00001, + .00001, .00004, .00004, + .03644, .00873, .00124, .00007, .00001, + .00001, .00003, .00003, + .03452, .00825, .00114, .00007, .00001, + .00001, .00003, .00003, + .03275, .00781, .00105, .00007, .00001, + .00001, .00003, .00003, + .03115, .00741, .00098, .00006, .00001, + .00001, .00003, .00003, + .02971, .00706, .00092, .00006, .00001, + .00001, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .02834, .00672, .00086, .00006, .00001, + .00001, .00003, .00003, + .02705, .00640, .00080, .00006, .00001, + .00001, .00003, .00003, + .02589, .00611, .00075, .00005, .00001, + .00001, .00003, .00003, + .02484, .00585, .00071, .00005, .00001, + .00001, .00002, .00003, + .02382, .00561, .00067, .00005, .00001, + .00001, .00002, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .17507, .04325, .02809, .00034, .00000, + .00000, .00012, .00014, + .15970, .03925, .02282, .00031, .00000, + .00000, .00011, .00011, + .14024, .03421, .01704, .00026, .00000, + .00000, .00009, .00010, + .12828, .03113, .01395, .00021, .00000, + .00000, .00008, .00009, + .11703, .02825, .01139, .00018, .00000, + .00000, .00007, .00009, + .10832, .02605, .00962, .00018, .00000, + .00000, .00007, .00007, + .10072, .02413, .00823, .00016, .00000, + .00000, .00006, .00007, + .09338, .02229, .00701, .00014, .00000, + .00000, .00006, .00006 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08753, .02082, .00612, .00013, .00000, + .00000, .00006, .00006, + .08231, .01952, .00539, .00012, .00000, + .00000, .00005, .00006, + .07845, .01856, .00489, .00012, .00000, + .00000, .00005, .00005, + .07095, .01670, .00400, .00010, .00000, + .00000, .00004, .00004, + .06521, .01529, .00338, .00008, .00000, + .00000, .00004, .00004, + .05947, .01388, .00283, .00008, .00000, + .00000, .00003, .00003, + .05411, .01257, .00237, .00008, .00000, + .00000, .00003, .00003, + .04973, .01151, .00203, .00006, .00000, + .00000, .00003, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04572, .01055, .00175, .00006, .00000, + .00000, .00003, .00003, + .04268, .00982, .00155, .00007, .00000, + .00000, .00003, .00002, + .03932, .00901, .00135, .00005, .00000, + .00000, .00002, .00002, + .03660, .00836, .00120, .00005, .00000, + .00000, .00002, .00002, + .03429, .00781, .00108, .00004, .00000, + .00000, .00002, .00002, + .03160, .00718, .00095, .00004, .00000, + .00000, .00002, .00002, + .02929, .00663, .00084, .00003, .00000, + .00000, .00002, .00001, + .02729, .00616, .00076, .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)/ + .02546, .00573, .00068, .00003, .00000, + .00000, .00001, .00002, + .02378, .00534, .00062, .00003, .00000, + .00000, .00001, .00001, + .02232, .00500, .00056, .00003, .00000, + .00000, .00001, .00001, + .02103, .00470, .00052, .00003, .00000, + .00000, .00001, .00001, + .01983, .00442, .00047, .00002, .00000, + .00000, .00001, .00001, + .01872, .00416, .00044, .00002, .00000, + .00000, .00001, .00001, + .01772, .00393, .00041, .00002, .00000, + .00000, .00001, .00001, + .01683, .00373, .00038, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01599, .00354, .00035, .00002, .00000, + .00000, .00001, .00001, + .01520, .00336, .00033, .00002, .00000, + .00000, .00001, .00001, + .01449, .00319, .00031, .00001, .00000, + .00000, .00001, .00001, + .01385, .00304, .00029, .00001, .00000, + .00000, .00001, .00001, + .01323, .00290, .00027, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .11375, .02598, .01232, .00012, .00000, + .00000, .00004, .00004, + .10276, .02333, .00980, .00009, .00000, + .00000, .00003, .00004, + .08897, .02007, .00713, .00009, .00000, + .00000, .00003, .00002, + .08059, .01809, .00574, .00008, .00000, + .00000, .00003, .00003, + .07284, .01627, .00462, .00006, .00000, + .00000, .00002, .00002, + .06687, .01488, .00386, .00006, .00000, + .00000, .00001, .00002, + .06171, .01369, .00327, .00005, .00000, + .00000, .00001, .00002, + .05677, .01254, .00276, .00005, .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)/ + .05286, .01164, .00240, .00005, .00000, + .00000, .00001, .00001, + .04939, .01084, .00210, .00005, .00000, + .00000, .00001, .00002, + .04684, .01026, .00190, .00004, .00000, + .00000, .00001, .00002, + .04195, .00914, .00154, .00003, .00000, + .00000, .00001, .00001, + .03823, .00830, .00130, .00003, .00000, + .00000, .00001, .00001, + .03454, .00747, .00108, .00002, .00000, + .00000, .00001, .00001, + .03115, .00670, .00091, .00001, .00000, + .00000, .00001, .00001, + .02839, .00609, .00078, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02589, .00553, .00067, .00002, .00000, + .00000, .00001, .00001, + .02400, .00512, .00059, .00002, .00000, + .00000, .00001, .00001, + .02193, .00466, .00051, .00002, .00000, + .00000, .00000, .00001, + .02027, .00429, .00046, .00002, .00000, + .00000, .00000, .00001, + .01888, .00399, .00041, .00001, .00000, + .00000, .00000, .00000, + .01726, .00363, .00036, .00001, .00000, + .00000, .00000, .00000, + .01588, .00333, .00032, .00001, .00000, + .00000, .00000, .00000, + .01470, .00308, .00029, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/ + .01362, .00284, .00026, .00001, .00000, + .00000, .00000, .00000, + .01265, .00263, .00023, .00001, .00000, + .00000, .00000, .00000, + .01180, .00245, .00021, .00001, .00000, + .00000, .00000, .00000, + .01106, .00229, .00019, .00001, .00000, + .00000, .00000, .00000, + .01037, .00214, .00018, .00001, .00000, + .00000, .00000, .00000, + .00973, .00201, .00016, .00001, .00000, + .00000, .00000, .00000, + .00917, .00189, .00015, .00000, .00000, + .00000, .00000, .00000, + .00867, .00178, .00014, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00820, .00168, .00013, .00000, .00000, + .00000, .00000, .00000, + .00776, .00159, .00012, .00000, .00000, + .00000, .00000, .00000, + .00736, .00150, .00012, .00000, .00000, + .00000, .00000, .00000, + .00700, .00143, .00011, .00000, .00000, + .00000, .00000, .00000, + .00666, .00136, .00010, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ + .06679, .01398, .00427, .00004, .00000, + .00000, .00000, .00001, + .05965, .01242, .00334, .00004, .00000, + .00000, .00000, .00000, + .05086, .01052, .00239, .00003, .00000, + .00000, .00000, .00000, + .04558, .00938, .00190, .00003, .00000, + .00000, .00000, .00000, + .04075, .00835, .00152, .00003, .00000, + .00000, .00000, .00000, + .03708, .00757, .00127, .00002, .00000, + .00000, .00000, .00000, + .03393, .00690, .00107, .00002, .00000, + .00000, .00000, .00000, + .03094, .00627, .00090, .00002, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .02860, .00578, .00078, .00001, .00000, + .00000, .00000, .00000, + .02654, .00535, .00069, .00001, .00000, + .00000, .00000, .00000, + .02503, .00503, .00062, .00001, .00000, + .00000, .00000, .00000, + .02215, .00443, .00050, .00001, .00000, + .00000, .00000, .00000, + .02000, .00398, .00043, .00001, .00000, + .00000, .00000, .00000, + .01788, .00355, .00036, .00001, .00000, + .00000, .00000, .00000, + .01595, .00315, .00030, .00000, .00000, + .00000, .00000, .00000, + .01441, .00284, .00026, .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)/ + .01302, .00256, .00022, .00001, .00000, + .00000, .00000, .00000, + .01199, .00235, .00020, .00000, .00000, + .00000, .00000, .00000, + .01085, .00212, .00017, .00000, .00000, + .00000, .00000, .00000, + .00995, .00194, .00015, .00000, .00000, + .00000, .00000, .00000, + .00920, .00179, .00014, .00000, .00000, + .00000, .00000, .00000, + .00834, .00161, .00012, .00000, .00000, + .00000, .00000, .00000, + .00761, .00147, .00011, .00000, .00000, + .00000, .00000, .00000, + .00699, .00135, .00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00643, .00123, .00009, .00000, .00000, + .00000, .00000, .00000, + .00593, .00113, .00008, .00000, .00000, + .00000, .00000, .00000, + .00550, .00105, .00007, .00000, .00000, + .00000, .00000, .00000, + .00512, .00097, .00006, .00000, .00000, + .00000, .00000, .00000, + .00477, .00091, .00006, .00000, .00000, + .00000, .00000, .00000, + .00445, .00084, .00005, .00000, .00000, + .00000, .00000, .00000, + .00417, .00079, .00005, .00000, .00000, + .00000, .00000, .00000, + .00392, .00074, .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)/ + .00369, .00070, .00004, .00000, .00000, + .00000, .00000, .00000, + .00347, .00065, .00004, .00000, .00000, + .00000, .00000, .00000, + .00328, .00062, .00004, .00000, .00000, + .00000, .00000, .00000, + .00311, .00058, .00004, .00000, .00000, + .00000, .00000, .00000, + .00294, .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=1,8)/ + .03386, .00639, .00107, .00000, .00000, + .00000, .00000, .00000, + .02985, .00561, .00083, .00001, .00000, + .00000, .00000, .00000, + .02500, .00467, .00059, .00000, .00000, + .00000, .00000, .00000, + .02214, .00411, .00048, .00000, .00000, + .00000, .00000, .00000, + .01953, .00361, .00038, .00000, .00000, + .00000, .00000, .00000, + .01759, .00324, .00032, .00000, .00000, + .00000, .00000, .00000, + .01594, .00293, .00027, .00000, .00000, + .00000, .00000, .00000, + .01439, .00263, .00023, .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)/ + .01318, .00241, .00020, .00000, .00000, + .00000, .00000, .00000, + .01213, .00221, .00018, .00000, .00000, + .00000, .00000, .00000, + .01137, .00207, .00016, .00000, .00000, + .00000, .00000, .00000, + .00993, .00180, .00013, .00000, .00000, + .00000, .00000, .00000, + .00887, .00160, .00011, .00000, .00000, + .00000, .00000, .00000, + .00783, .00141, .00010, .00000, .00000, + .00000, .00000, .00000, + .00690, .00123, .00008, .00000, .00000, + .00000, .00000, .00000, + .00616, .00110, .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)/ + .00551, .00098, .00006, .00000, .00000, + .00000, .00000, .00000, + .00503, .00089, .00005, .00000, .00000, + .00000, .00000, .00000, + .00451, .00080, .00005, .00000, .00000, + .00000, .00000, .00000, + .00410, .00072, .00004, .00000, .00000, + .00000, .00000, .00000, + .00376, .00066, .00004, .00000, .00000, + .00000, .00000, .00000, + .00337, .00059, .00003, .00000, .00000, + .00000, .00000, .00000, + .00305, .00053, .00003, .00000, .00000, + .00000, .00000, .00000, + .00277, .00048, .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)/ + .00253, .00044, .00002, .00000, .00000, + .00000, .00000, .00000, + .00231, .00040, .00002, .00000, .00000, + .00000, .00000, .00000, + .00213, .00037, .00002, .00000, .00000, + .00000, .00000, .00000, + .00197, .00034, .00002, .00000, .00000, + .00000, .00000, .00000, + .00182, .00031, .00002, .00000, .00000, + .00000, .00000, .00000, + .00168, .00029, .00002, .00000, .00000, + .00000, .00000, .00000, + .00157, .00027, .00001, .00000, .00000, + .00000, .00000, .00000, + .00147, .00025, .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)/ + .00137, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00128, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00120, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00113, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00107, .00018, .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)/ + .00373, .00053, .00001, .00000, .00000, + .00000, .00000, .00000, + .00317, .00045, .00001, .00000, .00000, + .00000, .00000, .00000, + .00252, .00035, .00001, .00000, .00000, + .00000, .00000, .00000, + .00215, .00030, .00001, .00000, .00000, + .00000, .00000, .00000, + .00183, .00025, .00001, .00000, .00000, + .00000, .00000, .00000, + .00160, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00141, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00123, .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)/ + .00110, .00015, .00001, .00000, .00000, + .00000, .00000, .00000, + .00099, .00014, .00001, .00000, .00000, + .00000, .00000, .00000, + .00091, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00076, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00066, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00056, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00048, .00006, .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)/ + .00036, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00032, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00028, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00025, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00022, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00019, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00015, .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)/ + .00013, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .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)/ + .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, + .00004, .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='cor05.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