#include "pdf/pilot.h" subroutine sfmrs_99d11(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)/ + .00643, .00286, 1.14446, .88535, .00000, + .00000, .47531, .89745, + .00656, .00291, 2.37217, .92504, .00000, + .00000, .51979, .93722, + .00675, .00299, 4.68859, 1.00687, .06115, + .00000, .60845, 1.01914, + .00690, .00306, 6.85114, 1.08200, .15939, + .00000, .68839, 1.09432, + .00706, .00312, 9.65336, 1.17892, .26390, + .00000, .79027, 1.19129, + .00719, .00318, 12.52149, 1.27669, .36740, + .00000, .89222, 1.28910, + .00732, .00324, 15.75260, 1.38241, .48220, + .00000, 1.00186, 1.39484, + .00747, .00330, 19.73471, 1.50833, .61997, + .00000, 1.13186, 1.52079 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00758, .00336, 23.61896, 1.63105, .74972, + .00000, 1.25806, 1.64352, + .00770, .00341, 27.79681, 1.76091, .88701, + .00000, 1.39121, 1.77340, + .00780, .00346, 31.46172, 1.87174, 1.00625, + .00000, 1.50460, 1.88422, + .00801, .00356, 40.19745, 2.13484, 1.28392, + .00000, 1.77307, 2.14734, + .00819, .00365, 47.94481, 2.38893, 1.54993, + .35871, 2.03164, 2.40142, + .00840, .00375, 58.09385, 2.70650, 1.88252, + .74530, 2.35410, 2.71898, + .00861, .00385, 70.04822, 3.07516, 2.26773, + 1.15010, 2.72773, 3.08763, + .00882, .00395, 82.14747, 3.44491, 2.65335, + 1.55548, 3.10188, 3.45736 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00903, .00405, 95.63206, 3.85452, 3.08015, + 2.00230, 3.51580, 3.86694, + .00920, .00413, 107.76947, 4.22306, 3.46230, + 2.39751, 3.88786, 4.23545, + .00941, .00424, 123.64727, 4.70582, 3.96109, + 2.91113, 4.37480, 4.71817, + .00960, .00433, 138.86093, 5.16774, 4.43881, + 3.40545, 4.84033, 5.18007, + .00979, .00443, 153.79768, 5.62142, 4.90798, + 3.89126, 5.29725, 5.63371, + .01001, .00454, 173.89207, 6.23698, 5.54072, + 4.53956, 5.91686, 6.24923, + .01023, .00466, 194.17670, 6.86031, 6.18165, + 5.19815, 6.54389, 6.87249, + .01043, .00476, 214.49835, 7.48609, 6.82597, + 5.86268, 7.17309, 7.49825 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01065, .00486, 235.70280, 8.14767, 7.50275, + 6.55320, 7.83800, 8.15978, + .01085, .00497, 257.69163, 8.83610, 8.20807, + 7.27593, 8.52962, 8.84815, + .01105, .00507, 279.56451, 9.52519, 8.91367, + 7.99880, 9.22170, 9.53720, + .01123, .00517, 300.91295, 10.20506, 9.60768, + 8.70677, 9.90431, 10.21701, + .01142, .00527, 323.47764, 10.92539, 10.34451, + 9.46155, 10.62737, 10.93730, + .01162, .00536, 346.21507, 11.66127, 11.09406, + 10.22452, 11.36588, 11.67314, + .01180, .00546, 368.92585, 12.39730, 11.84573, + 10.99343, 12.10437, 12.40911, + .01198, .00555, 390.78066, 13.11557, 12.57629, + 11.73637, 12.82493, 13.12733 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01215, .00565, 413.77109, 13.87305, 13.34807, + 12.52388, 13.58470, 13.88477, + .01233, .00573, 436.94658, 14.64485, 14.13291, + 13.32262, 14.35872, 14.65652, + .01250, .00582, 459.72822, 15.40844, 14.90930, + 14.11291, 15.12440, 15.42007, + .01266, .00591, 482.01725, 16.15924, 15.67308, + 14.89134, 15.87716, 16.17082, + .01283, .00600, 504.79942, 16.93635, 16.46147, + 15.69178, 16.65622, 16.94788 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00873, .00394, 1.05603, .75097, .00000, + .00000, .40316, .75806, + .00892, .00402, 2.16348, .78758, .00000, + .00000, .44348, .79472, + .00918, .00414, 4.20749, .85983, .05384, + .00000, .52101, .86700, + .00938, .00423, 6.07932, .92455, .13815, + .00000, .58945, .93175, + .00960, .00433, 8.46498, 1.00651, .22629, + .00000, .67525, 1.01375, + .00978, .00442, 10.87119, 1.08808, .31260, + .00000, .76004, 1.09532, + .00996, .00450, 13.54926, 1.17548, .40745, + .00000, .85047, 1.18274, + .01015, .00460, 16.81091, 1.27873, .52027, + .00000, .95686, 1.28601 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .01032, .00468, 19.95607, 1.37847, .62558, + .00000, 1.05927, 1.38575, + .01049, .00476, 23.30626, 1.48329, .73623, + .00000, 1.16663, 1.49058, + .01062, .00482, 26.22195, 1.57230, .83177, + .00000, 1.25763, 1.57960, + .01090, .00495, 33.09720, 1.78191, 1.05241, + .00000, 1.47135, 1.78921, + .01115, .00509, 39.09176, 1.98248, 1.26175, + .28252, 1.67537, 1.98978, + .01143, .00523, 46.86115, 2.23105, 1.52116, + .58419, 1.92769, 2.23834, + .01174, .00537, 55.89554, 2.51698, 1.81880, + .89641, 2.21744, 2.52427, + .01201, .00551, 64.92972, 2.80133, 2.11413, + 1.20626, 2.50515, 2.80860 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01229, .00566, 74.88704, 3.11381, 2.43838, + 1.54493, 2.82096, 3.12108, + .01253, .00577, 83.75978, 3.39291, 2.72655, + 1.84214, 3.10276, 3.40017, + .01282, .00593, 95.25328, 3.75588, 3.09993, + 2.22552, 3.46892, 3.76312, + .01308, .00605, 106.16109, 4.10073, 3.45502, + 2.59190, 3.81654, 4.10795, + .01332, .00618, 116.78076, 4.43730, 3.80158, + 2.94972, 4.15560, 4.44450, + .01363, .00635, 130.93309, 4.89072, 4.26560, + 3.42364, 4.61212, 4.89790, + .01392, .00649, 145.08583, 5.34657, 4.73232, + 3.90173, 5.07082, 5.35374, + .01420, .00664, 159.14525, 5.80128, 5.19855, + 4.38115, 5.52813, 5.80842 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01449, .00679, 173.68530, 6.27871, 5.68486, + 4.87569, 6.00812, 6.28582, + .01477, .00694, 188.64797, 6.77253, 6.18876, + 5.39040, 6.50440, 6.77961, + .01503, .00707, 203.42125, 7.26396, 6.68995, + 5.90227, 6.99811, 7.27102, + .01528, .00720, 217.73390, 7.74601, 7.18008, + 6.40064, 7.48228, 7.75305, + .01554, .00734, 232.76927, 8.25425, 7.69799, + 6.92960, 7.99261, 8.26127, + .01579, .00747, 247.80967, 8.77053, 8.22184, + 7.46108, 8.51091, 8.77754, + .01604, .00761, 262.75084, 9.28460, 8.74495, + 7.99463, 9.02688, 9.29159, + .01627, .00773, 277.03271, 9.78370, 9.25069, + 8.50729, 9.52773, 9.79065 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01651, .00786, 291.98255, 10.30787, 9.78290, + 9.04875, 10.05367, 10.31481, + .01674, .00798, 306.96229, 10.83946, 10.32157, + 9.59528, 10.58696, 10.84637, + .01697, .00810, 321.61232, 11.36319, 10.85228, + 10.13388, 11.11231, 11.37009, + .01719, .00822, 335.87805, 11.87619, 11.37244, + 10.66251, 11.62682, 11.88307, + .01740, .00834, 350.37756, 12.40486, 11.90698, + 11.20356, 12.15698, 12.41172 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01187, .00544, .97357, .63721, .00000, + .00000, .34250, .64086, + .01211, .00555, 1.97239, .67068, .00000, + .00000, .37884, .67434, + .01247, .00573, 3.77488, .73422, .04761, + .00000, .44649, .73791, + .01275, .00587, 5.39372, .78986, .11986, + .00000, .50499, .79355, + .01305, .00600, 7.42228, .85904, .19408, + .00000, .57712, .86273, + .01329, .00614, 9.43772, .92694, .26591, + .00000, .64749, .93063, + .01354, .00626, 11.65326, .99903, .34415, + .00000, .72192, 1.00274, + .01381, .00638, 14.31911, 1.08348, .43637, + .00000, .80877, 1.08718 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01403, .00650, 16.85960, 1.16432, .52166, + .00000, .89165, 1.16802, + .01426, .00662, 19.53891, 1.24868, .61064, + .00000, .97797, 1.25237, + .01444, .00671, 21.85201, 1.31995, .68704, + .00000, 1.05076, 1.32366, + .01483, .00691, 27.24656, 1.48640, .86195, + .00000, 1.22034, 1.49009, + .01517, .00708, 31.86776, 1.64418, 1.02632, + .22193, 1.38075, 1.64787, + .01556, .00728, 37.79199, 1.83799, 1.22816, + .45711, 1.57744, 1.84169, + .01597, .00750, 44.59061, 2.05889, 1.45752, + .69766, 1.80124, 2.06258, + .01635, .00769, 51.30546, 2.27664, 1.68310, + .93422, 2.02157, 2.28033 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01673, .00790, 58.62266, 2.51403, 1.92874, + 1.19059, 2.26148, 2.51771, + .01705, .00806, 65.07582, 2.72447, 2.14538, + 1.41378, 2.47396, 2.72814, + .01745, .00827, 73.35094, 2.99612, 2.42399, + 1.69949, 2.74805, 2.99979, + .01780, .00845, 81.12773, 3.25235, 2.68707, + 1.97060, 3.00639, 3.25602, + .01813, .00863, 88.63420, 3.50084, 2.94219, + 2.23367, 3.25678, 3.50451, + .01855, .00885, 98.54063, 3.83317, 3.28127, + 2.57943, 3.59145, 3.83684, + .01894, .00906, 108.35231, 4.16486, 3.61987, + 2.92574, 3.92531, 4.16851, + .01932, .00927, 118.01532, 4.49354, 3.95594, + 3.27084, 4.25596, 4.49718 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01969, .00947, 127.91659, 4.83623, 4.30399, + 3.62413, 4.60061, 4.83988, + .02007, .00967, 138.02579, 5.18854, 4.66249, + 3.98973, 4.95478, 5.19218, + .02042, .00986, 147.93081, 5.53706, 5.01698, + 4.35120, 5.30502, 5.54069, + .02077, .01005, 157.45325, 5.87692, 5.36158, + 4.70098, 5.64650, 5.88055, + .02111, .01023, 167.39429, 6.23346, 5.72400, + 5.07055, 6.00461, 6.23708, + .02146, .01042, 177.26260, 6.59354, 6.08838, + 5.43957, 6.36623, 6.59715, + .02179, .01060, 187.01181, 6.95045, 6.45070, + 5.80856, 6.72459, 6.95407, + .02209, .01077, 196.26510, 7.29513, 6.79908, + 6.16107, 7.07061, 7.29875 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02241, .01093, 205.90277, 7.65564, 7.16427, + 6.53202, 7.43245, 7.65925, + .02272, .01110, 215.49898, 8.01949, 7.53209, + 6.90457, 7.79759, 8.02309, + .02303, .01127, 224.83391, 8.37644, 7.89296, + 7.27021, 8.15576, 8.38003, + .02332, .01143, 233.88043, 8.72470, 8.24532, + 7.62777, 8.50518, 8.72830, + .02361, .01159, 243.02012, 9.08198, 8.60576, + 7.99197, 8.86360, 9.08557 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01419, .00657, .92776, .57905, .00000, + .00000, .31173, .58130, + .01448, .00672, 1.86816, .61067, .00000, + .00000, .34582, .61290, + .01491, .00694, 3.54235, .66950, .04444, + .00000, .40815, .67174, + .01525, .00711, 5.02891, .72032, .11039, + .00000, .46146, .72257, + .01559, .00728, 6.87283, .78289, .17741, + .00000, .52655, .78513, + .01591, .00744, 8.68840, .84379, .24186, + .00000, .58958, .84604, + .01621, .00758, 10.66950, .90811, .31168, + .00000, .65590, .91036, + .01652, .00775, 13.03604, .98307, .39352, + .00000, .73293, .98531 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01680, .00789, 15.27542, 1.05443, .46883, + .00000, .80604, 1.05668, + .01706, .00804, 17.62314, 1.12860, .54706, + .00000, .88187, 1.13084, + .01728, .00814, 19.64023, 1.19108, .61400, + .00000, .94564, 1.19332, + .01775, .00839, 24.31375, 1.33622, .76649, + .00000, 1.09348, 1.33847, + .01816, .00860, 28.27499, 1.47305, .90896, + .19233, 1.23256, 1.47530, + .01862, .00885, 33.31983, 1.64027, 1.08299, + .39549, 1.40222, 1.64251, + .01912, .00910, 39.06370, 1.82980, 1.27963, + .60184, 1.59424, 1.83203, + .01957, .00935, 44.69486, 2.01566, 1.47201, + .80369, 1.78228, 2.01790 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .02003, .00959, 50.78944, 2.21729, 1.68046, + 1.02133, 1.98607, 2.21954, + .02041, .00979, 56.13104, 2.39525, 1.86348, + 1.20992, 2.16577, 2.39749, + .02089, .01005, 62.93931, 2.62396, 2.09783, + 1.45024, 2.39655, 2.62620, + .02130, .01028, 69.30013, 2.83876, 2.31814, + 1.67731, 2.61315, 2.84101, + .02169, .01049, 75.40816, 3.04629, 2.53101, + 1.89682, 2.82229, 3.04854, + .02219, .01075, 83.42176, 3.32264, 2.81265, + 2.18398, 3.10063, 3.32488, + .02267, .01102, 91.31287, 3.59725, 3.09272, + 2.47040, 3.37708, 3.59950, + .02312, .01125, 99.04431, 3.86831, 3.36961, + 2.75472, 3.64982, 3.87056 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02357, .01150, 106.92179, 4.14975, 3.65516, + 3.04448, 3.93291, 4.15200, + .02401, .01175, 114.92701, 4.43804, 3.94823, + 3.34332, 4.22278, 4.44029, + .02443, .01198, 122.73427, 4.72222, 4.23702, + 3.63774, 4.50843, 4.72448, + .02484, .01220, 130.20485, 4.99836, 4.51675, + 3.92160, 4.78594, 5.00062, + .02525, .01242, 137.97483, 5.28720, 4.81011, + 4.22071, 5.07613, 5.28947, + .02566, .01264, 145.65180, 5.57790, 5.10400, + 4.51825, 5.36813, 5.58017, + .02605, .01286, 153.21122, 5.86527, 5.39550, + 4.81507, 5.65672, 5.86754, + .02642, .01306, 160.35487, 6.14190, 5.67485, + 5.09764, 5.93448, 6.14418 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02679, .01327, 167.77302, 6.43052, 5.96701, + 5.39435, 6.22426, 6.43281, + .02717, .01348, 175.13079, 6.72098, 6.26039, + 5.69143, 6.51580, 6.72326, + .02753, .01367, 182.26524, 7.00520, 6.54752, + 5.98228, 6.80107, 7.00750, + .02787, .01386, 189.15919, 7.28187, 6.82726, + 6.26609, 7.07872, 7.28418, + .02822, .01405, 196.09812, 7.56493, 7.11261, + 6.55431, 7.36275, 7.56724 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01610, .00752, .89637, .54118, .00000, + .00000, .29179, .54266, + .01643, .00769, 1.79747, .57148, .00000, + .00000, .32432, .57295, + .01693, .00794, 3.38605, .62710, .04238, + .00000, .38310, .62856, + .01731, .00813, 4.78514, .67474, .10415, + .00000, .43296, .67621, + .01771, .00834, 6.50792, .73292, .16646, + .00000, .49343, .73440, + .01806, .00852, 8.19316, .78926, .22609, + .00000, .55168, .79074, + .01840, .00870, 10.02226, .84853, .29044, + .00000, .61272, .84999, + .01875, .00889, 12.19584, .91735, .36559, + .00000, .68340, .91882 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01907, .00906, 14.24214, .98260, .43448, + .00000, .75024, .98408, + .01938, .00921, 16.37824, 1.05023, .50582, + .00000, .81936, 1.05170, + .01964, .00935, 18.20716, 1.10707, .56672, + .00000, .87736, 1.10853, + .02016, .00962, 22.42468, 1.23865, .70496, + .00000, 1.01134, 1.24012, + .02063, .00987, 25.97236, 1.36219, .83360, + .17354, 1.13690, 1.36367, + .02116, .01016, 30.46877, 1.51262, .99011, + .35657, 1.28951, 1.51409, + .02172, .01046, 35.55909, 1.68242, 1.16626, + .54156, 1.46154, 1.68390, + .02223, .01073, 40.52279, 1.84833, 1.33794, + .72184, 1.62940, 1.84981 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02276, .01102, 45.86854, 2.02768, 1.52332, + .91550, 1.81069, 2.02918, + .02319, .01126, 50.53285, 2.18547, 1.68554, + 1.08274, 1.97003, 2.18697, + .02373, .01154, 56.45174, 2.38763, 1.89261, + 1.29518, 2.17404, 2.38913, + .02421, .01180, 61.95820, 2.57692, 2.08668, + 1.49529, 2.36493, 2.57842, + .02464, .01204, 67.22610, 2.75929, 2.27368, + 1.68821, 2.54873, 2.76081, + .02522, .01235, 74.10799, 3.00138, 2.52031, + 1.93974, 2.79260, 3.00290, + .02575, .01264, 80.85629, 3.24122, 2.76481, + 2.18987, 3.03407, 3.24274, + .02626, .01292, 87.44339, 3.47728, 3.00588, + 2.43750, 3.27164, 3.47881 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02677, .01320, 94.12738, 3.72164, 3.25370, + 2.68903, 3.51747, 3.72318, + .02727, .01348, 100.89659, 3.97130, 3.50741, + 2.94779, 3.76854, 3.97285, + .02776, .01375, 107.47630, 4.21678, 3.75679, + 3.20211, 4.01533, 4.21834, + .02821, .01400, 113.75072, 4.45471, 3.99773, + 3.44665, 4.25447, 4.45628, + .02868, .01425, 120.25905, 4.70305, 4.24988, + 3.70382, 4.50403, 4.70463, + .02913, .01451, 126.66725, 4.95236, 4.50185, + 3.95894, 4.75449, 4.95395, + .02957, .01475, 132.96256, 5.19835, 4.75130, + 4.21302, 5.00157, 5.19995, + .02999, .01498, 138.89246, 5.43458, 4.98979, + 4.45429, 5.23883, 5.43619 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .03041, .01522, 145.03704, 5.68064, 5.23879, + 4.70723, 5.48590, 5.68227, + .03083, .01545, 151.11426, 5.92774, 5.48831, + 4.95993, 5.73396, 5.92937, + .03124, .01567, 156.99319, 6.16910, 5.73208, + 5.20690, 5.97625, 6.17074, + .03163, .01589, 162.66194, 6.40365, 5.96918, + 5.44751, 6.21168, 6.40530, + .03201, .01611, 168.35186, 6.64314, 6.21053, + 5.69132, 6.45203, 6.64479 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01776, .00835, .87298, .51358, .00000, + .00000, .27730, .51456, + .01813, .00854, 1.74479, .54287, .00000, + .00000, .30865, .54384, + .01868, .00882, 3.26984, .59608, .04089, + .00000, .36478, .59705, + .01910, .00905, 4.60465, .64135, .09957, + .00000, .41209, .64232, + .01955, .00928, 6.23873, .69635, .15842, + .00000, .46919, .69732, + .01993, .00948, 7.82907, .74935, .21454, + .00000, .52394, .75032, + .02031, .00968, 9.54791, .80493, .27492, + .00000, .58119, .80592, + .02071, .00989, 11.58209, .86931, .34522, + .00000, .64726, .87029 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .02106, .01008, 13.48946, .93016, .40947, + .00000, .70956, .93114, + .02140, .01026, 15.47382, .99307, .47586, + .00000, .77384, .99405, + .02167, .01040, 17.16821, 1.04586, .53243, + .00000, .82770, 1.04685, + .02226, .01072, 21.06100, 1.16772, .66047, + .00000, .95178, 1.16871, + .02277, .01099, 24.31646, 1.28179, .77925, + .16011, 1.06769, 1.28278, + .02337, .01130, 28.42670, 1.42025, .92334, + .32887, 1.20817, 1.42124, + .02398, .01165, 33.05889, 1.57607, 1.08499, + .49877, 1.36604, 1.57709, + .02455, .01195, 37.55680, 1.72788, 1.24207, + .66384, 1.51963, 1.72890 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02512, .01226, 42.38211, 1.89155, 1.41121, + .84067, 1.68507, 1.89257, + .02561, .01253, 46.57739, 2.03518, 1.55887, + .99299, 1.83013, 2.03621, + .02620, .01285, 51.88260, 2.21872, 1.74685, + 1.18596, 2.01538, 2.21977, + .02672, .01313, 56.80166, 2.39018, 1.92263, + 1.36731, 2.18830, 2.39124, + .02721, .01340, 61.49380, 2.55503, 2.09163, + 1.54177, 2.35448, 2.55609, + .02783, .01375, 67.60276, 2.77331, 2.31398, + 1.76863, 2.57438, 2.77439, + .02842, .01407, 73.57335, 2.98903, 2.53387, + 1.99370, 2.79161, 2.99012, + .02898, .01438, 79.38411, 3.20089, 2.75021, + 2.21603, 3.00485, 3.20200 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02954, .01469, 85.26112, 3.41968, 2.97206, + 2.44129, 3.22499, 3.42080, + .03010, .01500, 91.19704, 3.64276, 3.19874, + 2.67259, 3.44936, 3.64389, + .03063, .01530, 96.95153, 3.86166, 3.42111, + 2.89947, 3.66947, 3.86281, + .03113, .01557, 102.42401, 4.07341, 3.63551, + 3.11715, 3.88234, 4.07458, + .03164, .01586, 108.08861, 4.29407, 3.85953, + 3.34573, 4.10409, 4.29524, + .03214, .01614, 113.65060, 4.51513, 4.08293, + 3.57200, 4.32623, 4.51633, + .03262, .01641, 119.10445, 4.73294, 4.30381, + 3.79706, 4.54504, 4.73414, + .03308, .01666, 124.22854, 4.94172, 4.51456, + 4.01033, 4.75475, 4.94294 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03355, .01692, 129.52917, 5.15889, 4.73431, + 4.23365, 4.97285, 5.16013, + .03401, .01718, 134.75967, 5.37661, 4.95415, + 4.45638, 5.19146, 5.37786, + .03445, .01742, 139.81027, 5.58896, 5.16863, + 4.67374, 5.40467, 5.59023, + .03487, .01766, 144.67207, 5.79507, 5.37697, + 4.88525, 5.61157, 5.79636, + .03531, .01790, 149.54116, 6.00519, 5.58870, + 5.09921, 5.82248, 6.00648 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02417, .01164, .80374, .43728, .00000, + .00000, .23770, .43745, + .02467, .01190, 1.59118, .46340, .00000, + .00000, .26544, .46358, + .02542, .01231, 2.93418, .50948, .03679, + .00000, .31381, .50966, + .02600, .01262, 4.08659, .54791, .08669, + .00000, .35387, .54811, + .02660, .01294, 5.47142, .59382, .13579, + .00000, .40143, .59403, + .02713, .01322, 6.79718, .63749, .18207, + .00000, .44646, .63769, + .02763, .01350, 8.21086, .68284, .23143, + .00000, .49310, .68306, + .02819, .01380, 9.86202, .73490, .28837, + .00000, .54649, .73513 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02866, .01406, 11.39038, .78365, .33993, + .00000, .59638, .78389, + .02912, .01432, 12.96327, .83369, .39281, + .00000, .64747, .83393, + .02949, .01452, 14.29469, .87544, .43763, + .00000, .69008, .87571, + .03029, .01496, 17.31755, .97099, .53817, + .00000, .78735, .97128, + .03100, .01534, 19.79784, 1.05955, .63053, + .12378, .87735, 1.05986, + .03179, .01579, 22.89036, 1.16607, .74152, + .25456, .98543, 1.16640, + .03264, .01626, 26.32562, 1.28479, .86481, + .38464, 1.10573, 1.28514, + .03340, .01669, 29.61629, 1.39936, .98350, + .50984, 1.22170, 1.39974 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03418, .01712, 33.10270, 1.52185, 1.11023, + .64279, 1.34556, 1.52226, + .03484, .01749, 36.09943, 1.62848, 1.21995, + .75634, 1.45330, 1.62891, + .03563, .01794, 39.84688, 1.76369, 1.35856, + .89906, 1.58983, 1.76415, + .03634, .01834, 43.28434, 1.88903, 1.48717, + 1.03218, 1.71631, 1.88952, + .03700, .01871, 46.53235, 2.00874, 1.61001, + 1.15938, 1.83703, 2.00925, + .03784, .01918, 50.71486, 2.16600, 1.77034, + 1.32343, 1.99556, 2.16656, + .03863, .01963, 54.75934, 2.32023, 1.92768, + 1.48493, 2.15096, 2.32081, + .03939, .02005, 58.65833, 2.47065, 2.08143, + 1.64342, 2.30245, 2.47128 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .04015, .02048, 62.55994, 2.62483, 2.23786, + 1.80266, 2.45767, 2.62548, + .04089, .02091, 66.46664, 2.78101, 2.39670, + 1.96518, 2.61485, 2.78170, + .04159, .02131, 70.22150, 2.93331, 2.55154, + 2.12358, 2.76807, 2.93402, + .04227, .02168, 73.76060, 3.07968, 2.69985, + 2.27454, 2.91531, 3.08043, + .04295, .02207, 77.39920, 3.23142, 2.85406, + 2.43231, 3.06791, 3.23220, + .04362, .02246, 80.93934, 3.38247, 3.00681, + 2.58740, 3.21978, 3.38328, + .04427, .02282, 84.39031, 3.53060, 3.15716, + 2.74101, 3.36868, 3.53143, + .04487, .02317, 87.60490, 3.67174, 3.29973, + 2.88563, 3.51054, 3.67261 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04550, .02352, 90.91236, 3.81793, 3.44781, + 3.03649, 3.65745, 3.81883, + .04610, .02387, 94.15145, 3.96371, 3.59513, + 3.18610, 3.80393, 3.96464, + .04669, .02421, 97.26017, 4.10525, 3.73820, + 3.33146, 3.94613, 4.10621, + .04726, .02452, 100.23656, 4.24206, 3.87662, + 3.47233, 4.08355, 4.24305, + .04783, .02485, 103.19506, 4.38082, 4.01656, + 3.61406, 4.22292, 4.38183 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .03303, .01632, .74244, .37397, .00000, + .00000, .20545, .37423, + .03370, .01668, 1.45515, .39687, .00000, + .00000, .22968, .39715, + .03472, .01724, 2.63690, .43624, .03346, + .00000, .27092, .43657, + .03548, .01765, 3.63061, .46852, .07555, + .00000, .30449, .46887, + .03629, .01812, 4.80116, .50645, .11616, + .00000, .34376, .50684, + .03700, .01851, 5.90222, .54206, .15402, + .00000, .38047, .54246, + .03769, .01890, 7.05955, .57870, .19402, + .00000, .41816, .57914, + .03843, .01932, 8.39245, .62040, .23976, + .00000, .46093, .62087 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03908, .01968, 9.60933, .65907, .28080, + .00000, .50052, .65958, + .03970, .02003, 10.84731, .69848, .32258, + .00000, .54078, .69901, + .04020, .02031, 11.88558, .73119, .35779, + .00000, .57418, .73175, + .04128, .02094, 14.21342, .80538, .43610, + .00000, .64975, .80598, + .04223, .02147, 16.08599, .87347, .50731, + .09416, .71900, .87412, + .04331, .02208, 18.38802, .95458, .59210, + .19489, .80138, .95529, + .04443, .02274, 20.90602, 1.04408, .68533, + .29381, .89214, 1.04484, + .04547, .02334, 23.28322, 1.12964, .77421, + .38811, .97883, 1.13045 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04653, .02394, 25.76838, 1.22030, .86828, + .48736, 1.07059, 1.22117, + .04741, .02444, 27.87840, 1.29859, .94907, + .57140, 1.14977, 1.29950, + .04848, .02506, 30.48541, 1.39704, 1.05026, + .67616, 1.24928, 1.39801, + .04943, .02561, 32.84933, 1.48759, 1.14345, + .77312, 1.34075, 1.48863, + .05032, .02613, 35.06037, 1.57348, 1.23182, + .86512, 1.42746, 1.57455, + .05145, .02677, 37.87367, 1.68538, 1.34620, + .98274, 1.54039, 1.68653, + .05251, .02739, 40.56305, 1.79426, 1.45755, + 1.09763, 1.65020, 1.79546, + .05352, .02797, 43.12941, 1.89968, 1.56560, + 1.20959, 1.75648, 1.90095 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05453, .02855, 45.66726, 2.00687, 1.67462, + 1.32109, 1.86450, 2.00819, + .05552, .02913, 48.18482, 2.11472, 1.78459, + 1.43418, 1.97317, 2.11610, + .05647, .02968, 50.58205, 2.21919, 1.89109, + 1.54367, 2.07840, 2.22063, + .05736, .03019, 52.81912, 2.31893, 1.99239, + 1.64727, 2.17883, 2.32043, + .05827, .03072, 55.10254, 2.42177, 2.09717, + 1.75501, 2.28235, 2.42331, + .05916, .03123, 57.30125, 2.52343, 2.20021, + 1.86011, 2.38469, 2.52503, + .06002, .03172, 59.43138, 2.62265, 2.30119, + 1.96379, 2.48454, 2.62431, + .06082, .03219, 61.39607, 2.71660, 2.39630, + 2.06071, 2.57906, 2.71830 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06164, .03266, 63.40602, 2.81346, 2.49466, + 2.16140, 2.67651, 2.81521, + .06245, .03313, 65.35750, 2.90950, 2.59195, + 2.26066, 2.77311, 2.91130, + .06324, .03359, 67.21790, 3.00230, 2.68598, + 2.35665, 2.86646, 3.00416, + .06398, .03401, 68.98856, 3.09161, 2.77659, + 2.44931, 2.95627, 3.09351, + .06473, .03444, 70.73311, 3.18169, 2.86764, + 2.54194, 3.04685, 3.18364 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03971, .01991, .71353, .34231, .00000, + .00000, .18961, .34297, + .04049, .02036, 1.38668, .36330, .00000, + .00000, .21178, .36401, + .04169, .02103, 2.48247, .39893, .03178, + .00000, .24909, .39969, + .04259, .02154, 3.39253, .42786, .06967, + .00000, .27919, .42867, + .04357, .02210, 4.45118, .46157, .10580, + .00000, .31408, .46241, + .04441, .02258, 5.43606, .49295, .13925, + .00000, .34648, .49385, + .04523, .02304, 6.46192, .52511, .17443, + .00000, .37955, .52604, + .04610, .02355, 7.63308, .56150, .21444, + .00000, .41692, .56248 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04688, .02399, 8.69308, .59508, .25014, + .00000, .45131, .59610, + .04761, .02442, 9.76368, .62912, .28635, + .00000, .48614, .63020, + .04822, .02477, 10.65643, .65731, .31676, + .00000, .51493, .65842, + .04949, .02550, 12.64237, .72090, .38403, + .00000, .57976, .72208, + .05063, .02616, 14.22070, .77891, .44485, + .07935, .63881, .78015, + .05192, .02691, 16.14298, .84764, .51685, + .16540, .70867, .84896, + .05326, .02769, 18.22529, .92299, .59555, + .24926, .78517, .92440, + .05449, .02841, 20.17323, .99463, .67016, + .32876, .85782, .99611 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05574, .02914, 22.19256, 1.07012, .74867, + .41195, .93432, 1.07169, + .05679, .02975, 23.89377, 1.13499, .81576, + .48204, .99999, 1.13661, + .05806, .03050, 25.97969, 1.21615, .89939, + .56896, 1.08211, 1.21786, + .05919, .03116, 27.85735, 1.29046, .97602, + .64904, 1.15724, 1.29224, + .06025, .03177, 29.60231, 1.36063, 1.04839, + .72469, 1.22816, 1.36247, + .06157, .03255, 31.80557, 1.45160, 1.14158, + .82091, 1.32004, 1.45353, + .06284, .03329, 33.89643, 1.53966, 1.23186, + .91444, 1.40895, 1.54167, + .06404, .03399, 35.87880, 1.62456, 1.31907, + 1.00519, 1.49465, 1.62665 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06523, .03468, 37.82408, 1.71044, 1.40662, + 1.09508, 1.58129, 1.71262, + .06640, .03537, 39.74236, 1.79652, 1.49457, + 1.18589, 1.66809, 1.79877, + .06751, .03602, 41.55799, 1.87955, 1.57939, + 1.27345, 1.75181, 1.88187, + .06857, .03663, 43.24131, 1.95848, 1.65973, + 1.35594, 1.83137, 1.96087, + .06964, .03725, 44.95167, 2.03959, 1.74257, + 1.44147, 1.91311, 2.04206, + .07069, .03787, 46.58717, 2.11943, 1.82366, + 1.52451, 1.99356, 2.12197, + .07169, .03846, 48.16558, 2.19712, 1.90291, + 1.60621, 2.07183, 2.19972, + .07265, .03900, 49.61165, 2.27039, 1.97724, + 1.68224, 2.14562, 2.27306 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07360, .03956, 51.08580, 2.34572, 2.05391, + 1.76104, 2.22149, 2.34846, + .07456, .04012, 52.50875, 2.42014, 2.12947, + 1.83844, 2.29643, 2.42294, + .07548, .04065, 53.85932, 2.49185, 2.20228, + 1.91306, 2.36863, 2.49471, + .07634, .04116, 55.13978, 2.56066, 2.27225, + 1.98490, 2.43790, 2.56358, + .07722, .04166, 56.39362, 2.62983, 2.34231, + 2.05645, 2.50752, 2.63281 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .04525, .02294, .69982, .32170, .00000, + .00000, .17947, .32286, + .04614, .02344, 1.34639, .34136, .00000, + .00000, .20022, .34257, + .04749, .02421, 2.38415, .37444, .03063, + .00000, .23484, .37572, + .04851, .02480, 3.23805, .40113, .06570, + .00000, .26261, .40247, + .04960, .02543, 4.22197, .43205, .09881, + .00000, .29463, .43344, + .05055, .02599, 5.12976, .46069, .12938, + .00000, .32419, .46214, + .05147, .02652, 6.06894, .48992, .16138, + .00000, .35429, .49142, + .05247, .02710, 7.13406, .52288, .19767, + .00000, .38815, .52445 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .05334, .02762, 8.09189, .55318, .22991, + .00000, .41920, .55478, + .05418, .02811, 9.05409, .58379, .26251, + .00000, .45054, .58546, + .05486, .02851, 9.85295, .60909, .28983, + .00000, .47639, .61079, + .05631, .02936, 11.61959, .66594, .35005, + .00000, .53440, .66773, + .05759, .03011, 13.01109, .71757, .40426, + .06991, .58700, .71944, + .05904, .03097, 14.69365, .77848, .46817, + .14664, .64897, .78044, + .06057, .03186, 16.50305, .84498, .53770, + .22100, .71653, .84703, + .06196, .03268, 18.18406, .90792, .60334, + .29119, .78042, .91006 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06337, .03352, 19.91563, .97398, .67217, + .36437, .84740, .97623, + .06455, .03421, 21.36586, 1.03053, .73075, + .42578, .90471, 1.03285, + .06599, .03506, 23.13378, 1.10103, .80350, + .50165, .97610, 1.10344, + .06728, .03582, 24.71644, 1.16534, .86992, + .57130, 1.04118, 1.16784, + .06845, .03651, 26.18009, 1.22587, .93246, + .63691, 1.10242, 1.22845, + .06996, .03740, 28.01733, 1.30405, 1.01267, + .72000, 1.18146, 1.30673, + .07139, .03823, 29.75120, 1.37946, 1.09009, + .80049, 1.25766, 1.38223, + .07272, .03902, 31.38701, 1.45192, 1.16465, + .87833, 1.33086, 1.45479 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07406, .03981, 32.98270, 1.52493, 1.23920, + .95515, 1.40459, 1.52790, + .07538, .04058, 34.54912, 1.59788, 1.31388, + 1.03251, 1.47824, 1.60094, + .07664, .04133, 36.02488, 1.66805, 1.38568, + 1.10688, 1.54904, 1.67119, + .07782, .04202, 37.38615, 1.73453, 1.45345, + 1.17671, 1.61611, 1.73775, + .07902, .04272, 38.76451, 1.80267, 1.52317, + 1.24893, 1.68486, 1.80598, + .08020, .04340, 40.07532, 1.86953, 1.59119, + 1.31882, 1.75229, 1.87292, + .08132, .04407, 41.33674, 1.93445, 1.65752, + 1.38745, 1.81774, 1.93792, + .08239, .04469, 42.48623, 1.99547, 1.71955, + 1.45110, 1.87928, 1.99902 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08346, .04532, 43.65487, 2.05810, 1.78340, + 1.51696, 1.94241, 2.06172, + .08452, .04594, 44.77770, 2.11979, 1.84614, + 1.58145, 2.00459, 2.12350, + .08555, .04653, 45.83975, 2.17910, 1.90648, + 1.64349, 2.06436, 2.18288, + .08652, .04710, 46.84366, 2.23590, 1.96434, + 1.70311, 2.12160, 2.23975, + .08749, .04767, 47.82180, 2.29283, 2.02211, + 1.76231, 2.17896, 2.29675 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .05012, .02572, .69649, .30762, .00000, + .00000, .17225, .30886, + .05110, .02628, 1.32290, .32622, .00000, + .00000, .19187, .32753, + .05257, .02714, 2.31676, .35733, .02968, + .00000, .22440, .35872, + .05370, .02779, 3.12821, .38232, .06258, + .00000, .25039, .38377, + .05491, .02850, 4.05573, .41112, .09346, + .00000, .28020, .41265, + .05595, .02912, 4.90552, .43771, .12184, + .00000, .30765, .43930, + .05697, .02971, 5.77966, .46476, .15151, + .00000, .33548, .46641, + .05807, .03036, 6.76555, .49518, .18503, + .00000, .36674, .49690 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05903, .03093, 7.64736, .52305, .21472, + .00000, .39531, .52483, + .05996, .03148, 8.52916, .55115, .24467, + .00000, .42409, .55299, + .06071, .03192, 9.25863, .57432, .26972, + .00000, .44777, .57621, + .06231, .03287, 10.86397, .62624, .32478, + .00000, .50077, .62824, + .06371, .03371, 12.11891, .67323, .37418, + .06309, .54866, .67532, + .06531, .03465, 13.62734, .72847, .43222, + .13302, .60489, .73068, + .06699, .03564, 15.23948, .78856, .49512, + .20048, .66598, .79087, + .06851, .03656, 16.72858, .84523, .55431, + .26395, .72353, .84766 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .07008, .03748, 18.25438, .90453, .61615, + .32988, .78370, .90706, + .07137, .03824, 19.52585, .95512, .66864, + .38504, .83501, .95775, + .07295, .03918, 21.06853, 1.01802, .73360, + .45299, .89873, 1.02074, + .07436, .04001, 22.44310, 1.07521, .79275, + .51518, .95665, 1.07804, + .07565, .04078, 23.70895, 1.12890, .84829, + .57360, 1.01100, 1.13182, + .07730, .04175, 25.28997, 1.19802, .91930, + .64736, 1.08093, 1.20106, + .07886, .04267, 26.77506, 1.26448, .98764, + .71860, 1.14814, 1.26764, + .08032, .04353, 28.17045, 1.32816, 1.05326, + .78731, 1.21252, 1.33143 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .08179, .04439, 29.52444, 1.39215, 1.11867, + .85489, 1.27718, 1.39551, + .08323, .04524, 30.84848, 1.45591, 1.18401, + .92277, 1.34158, 1.45938, + .08461, .04604, 32.09092, 1.51706, 1.24669, + .98787, 1.40336, 1.52063, + .08589, .04680, 33.23203, 1.57485, 1.30569, + 1.04883, 1.46171, 1.57852, + .08720, .04757, 34.38416, 1.63397, 1.36627, + 1.11176, 1.52139, 1.63773, + .08848, .04831, 35.47455, 1.69181, 1.42521, + 1.17248, 1.57977, 1.69567, + .08971, .04903, 36.52132, 1.74788, 1.48257, + 1.23200, 1.63636, 1.75183, + .09087, .04971, 37.47067, 1.80044, 1.53607, + 1.28706, 1.68939, 1.80447 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09204, .05039, 38.43360, 1.85428, 1.59106, + 1.34393, 1.74371, 1.85840, + .09319, .05106, 39.35494, 1.90721, 1.64497, + 1.39950, 1.79710, 1.91140, + .09430, .05171, 40.22374, 1.95798, 1.69672, + 1.45286, 1.84832, 1.96227, + .09535, .05232, 41.04288, 2.00654, 1.74625, + 1.50405, 1.89728, 2.01090, + .09641, .05294, 41.83752, 2.05508, 1.79560, + 1.55476, 1.94624, 2.05953 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .06904, .03684, .70544, .26940, .00000, + .00000, .15317, .27166, + .07033, .03762, 1.27345, .28468, .00000, + .00000, .16925, .28702, + .07232, .03882, 2.13903, .30984, .02673, + .00000, .19556, .31231, + .07383, .03974, 2.82719, .32980, .05339, + .00000, .21634, .33238, + .07545, .04073, 3.59284, .35252, .07785, + .00000, .23990, .35520, + .07687, .04158, 4.27810, .37326, .10012, + .00000, .26134, .37605, + .07824, .04241, 4.96942, .39418, .12323, + .00000, .28292, .39707, + .07973, .04331, 5.73468, .41751, .14910, + .00000, .30694, .42050 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .08102, .04409, 6.40681, .43869, .17180, + .00000, .32870, .44178, + .08228, .04486, 7.06872, .45988, .19453, + .00000, .35045, .46308, + .08329, .04547, 7.60964, .47725, .21344, + .00000, .36825, .48052, + .08545, .04677, 8.78057, .51582, .25458, + .00000, .40773, .51926, + .08734, .04791, 9.67307, .55035, .29108, + .04447, .44301, .55392, + .08948, .04921, 10.72290, .59049, .33350, + .09630, .48398, .59422, + .09173, .05055, 11.82172, .63362, .37894, + .14556, .52795, .63753, + .09377, .05178, 12.81673, .67383, .42120, + .19138, .56892, .67789 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09584, .05302, 13.81772, .71546, .46489, + .23847, .61129, .71968, + .09757, .05405, 14.63767, .75062, .50158, + .27746, .64704, .75497, + .09967, .05530, 15.61579, .79385, .54654, + .32500, .69101, .79838, + .10154, .05641, 16.47336, .83279, .58709, + .36811, .73058, .83747, + .10324, .05742, 17.25186, .86902, .62482, + .40825, .76737, .87384, + .10542, .05870, 18.20704, .91519, .67255, + .45838, .81424, .92017, + .10746, .05991, 19.08953, .95911, .71802, + .50632, .85881, .96425, + .10939, .06104, 19.90674, 1.00081, .76130, + .55217, .90112, 1.00610 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11130, .06216, 20.68488, 1.04225, .80396, + .59674, .94315, 1.04770, + .11318, .06325, 21.43549, 1.08319, .84623, + .64118, .98467, 1.08878, + .11496, .06429, 22.12986, 1.12213, .88642, + .68342, 1.02413, 1.12786, + .11663, .06527, 22.75723, 1.15857, .92391, + .72261, 1.06108, 1.16444, + .11832, .06625, 23.38416, 1.19560, .96214, + .76281, 1.09860, 1.20161, + .11996, .06721, 23.96663, 1.23148, .99898, + .80122, 1.13496, 1.23761, + .12154, .06812, 24.52115, 1.26605, 1.03465, + .83867, 1.17000, 1.27231, + .12302, .06898, 25.01474, 1.29816, 1.06759, + .87300, 1.20252, 1.30454 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12452, .06984, 25.51142, 1.33087, 1.10128, + .90827, 1.23566, 1.33737, + .12600, .07069, 25.97900, 1.36276, 1.13403, + .94246, 1.26798, 1.36937, + .12740, .07149, 26.41491, 1.39315, 1.16527, + .97508, 1.29876, 1.39989, + .12875, .07226, 26.82194, 1.42205, 1.19503, + 1.00623, 1.32804, 1.42890, + .13009, .07303, 27.20949, 1.45071, 1.22441, + 1.03681, 1.35706, 1.45765 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .09563, .05321, .77712, .23907, .00000, + .00000, .13766, .24297, + .09737, .05430, 1.28784, .25100, .00000, + .00000, .15027, .25504, + .10005, .05597, 2.03031, .27053, .02309, + .00000, .17076, .27477, + .10210, .05723, 2.60169, .28592, .04417, + .00000, .18683, .29032, + .10428, .05859, 3.21855, .30325, .06302, + .00000, .20487, .30783, + .10619, .05976, 3.75591, .31892, .08006, + .00000, .22114, .32366, + .10805, .06090, 4.28582, .33460, .09759, + .00000, .23738, .33950, + .11005, .06213, 4.85976, .35195, .11706, + .00000, .25532, .35701 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .11179, .06320, 5.35336, .36754, .13397, + .00000, .27143, .37276, + .11349, .06422, 5.83079, .38304, .15077, + .00000, .28740, .38839, + .11485, .06506, 6.21541, .39566, .16465, + .00000, .30040, .40113, + .11774, .06680, 7.03232, .42340, .19457, + .00000, .32893, .42911, + .12027, .06832, 7.63689, .44791, .22079, + .02917, .35412, .45384, + .12312, .07002, 8.32786, .47607, .25088, + .06662, .38301, .48224, + .12609, .07179, 9.03310, .50590, .28268, + .10163, .41360, .51233, + .12879, .07340, 9.65633, .53335, .31188, + .13379, .44174, .54002 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .13152, .07500, 10.26926, .56141, .34169, + .16643, .47046, .56831, + .13378, .07634, 10.76065, .58483, .36643, + .19313, .49444, .59192, + .13651, .07793, 11.33423, .61330, .39639, + .22533, .52357, .62062, + .13893, .07934, 11.82700, .63864, .42310, + .25420, .54947, .64616, + .14115, .08063, 12.26634, .66196, .44772, + .28083, .57332, .66967, + .14394, .08225, 12.79269, .69129, .47845, + .31366, .60330, .69924, + .14657, .08376, 13.26835, .71886, .50740, + .34471, .63148, .72704, + .14903, .08517, 13.70037, .74475, .53466, + .37410, .65795, .75315 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15146, .08655, 14.10098, .77015, .56118, + .40231, .68390, .77874, + .15384, .08791, 14.48035, .79498, .58720, + .43016, .70926, .80377, + .15608, .08917, 14.82437, .81833, .61171, + .45640, .73313, .82731, + .15818, .09037, 15.12755, .83996, .63430, + .48046, .75522, .84912, + .16029, .09155, 15.42637, .86175, .65717, + .50498, .77750, .87109, + .16235, .09271, 15.69580, .88260, .67894, + .52812, .79881, .89211, + .16431, .09380, 15.94958, .90255, .69989, + .55056, .81919, .91222, + .16613, .09482, 16.16837, .92085, .71901, + .57088, .83791, .93068 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16799, .09584, 16.38617, .93938, .73844, + .59165, .85686, .94937, + .16980, .09685, 16.58555, .95725, .75715, + .61158, .87513, .96740, + .17153, .09779, 16.76800, .97416, .77486, + .63047, .89242, .98444, + .17316, .09869, 16.93572, .99011, .79160, + .64838, .90874, 1.00053, + .17479, .09959, 17.08986, 1.00575, .80798, + .66580, .92475, 1.01631 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .11591, .06597, .86312, .22319, .00000, + .00000, .12921, .22852, + .11801, .06730, 1.33520, .23328, .00000, + .00000, .13991, .23879, + .12121, .06933, 2.00494, .24974, .02030, + .00000, .15727, .25554, + .12365, .07086, 2.50845, .26271, .03843, + .00000, .17088, .26871, + .12627, .07248, 3.04160, .27722, .05441, + .00000, .18606, .28346, + .12855, .07387, 3.49794, .29028, .06876, + .00000, .19968, .29672, + .13077, .07524, 3.94114, .30330, .08349, + .00000, .21323, .30993, + .13316, .07669, 4.41429, .31761, .09976, + .00000, .22813, .32447 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .13523, .07795, 4.81560, .33043, .11378, + .00000, .24141, .33746, + .13725, .07916, 5.19911, .34308, .12766, + .00000, .25453, .35030, + .13886, .08013, 5.50515, .35334, .13908, + .00000, .26516, .36071, + .14228, .08219, 6.14683, .37577, .16353, + .00000, .28835, .38343, + .14526, .08395, 6.61262, .39541, .18477, + .02152, .30865, .40336, + .14859, .08591, 7.13294, .41779, .20896, + .05205, .33175, .42602, + .15207, .08794, 7.65467, .44127, .23430, + .08029, .35598, .44983, + .15521, .08977, 8.10775, .46270, .25736, + .10601, .37807, .47154 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15838, .09160, 8.54605, .48441, .28071, + .13190, .40045, .49352, + .16099, .09310, 8.89187, .50236, .29994, + .15293, .41895, .51172, + .16415, .09491, 9.28900, .52401, .32304, + .17809, .44125, .53364, + .16693, .09648, 9.62491, .54313, .34348, + .20049, .46095, .55300, + .16947, .09793, 9.92018, .56060, .36219, + .22101, .47895, .57070, + .17265, .09971, 10.26708, .58238, .38535, + .24611, .50138, .59276, + .17564, .10139, 10.57529, .60268, .40698, + .26965, .52229, .61331, + .17842, .10294, 10.85108, .62159, .42722, + .29180, .54177, .63247 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18117, .10446, 11.10053, .63995, .44672, + .31287, .56070, .65106, + .18386, .10593, 11.33318, .65778, .46573, + .33354, .57907, .66912, + .18637, .10731, 11.54053, .67442, .48351, + .35288, .59624, .68598, + .18871, .10859, 11.71885, .68969, .49977, + .37050, .61199, .70146, + .19107, .10987, 11.89247, .70499, .51615, + .38835, .62778, .71697, + .19334, .11110, 12.04423, .71950, .53161, + .40508, .64275, .73166, + .19551, .11227, 12.18590, .73331, .54642, + .42123, .65702, .74566, + .19754, .11334, 12.30395, .74588, .55982, + .43574, .67001, .75840 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19957, .11443, 12.42034, .75854, .57338, + .45051, .68309, .77123, + .20157, .11549, 12.52337, .77064, .58635, + .46460, .69561, .78351, + .20345, .11649, 12.61560, .78203, .59856, + .47788, .70739, .79505, + .20523, .11743, 12.69890, .79272, .61005, + .49042, .71845, .80588, + .20700, .11837, 12.77177, .80310, .62120, + .50252, .72921, .81641 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .13297, .07682, .94876, .21235, .00000, + .00000, .12313, .21899, + .13536, .07835, 1.39005, .22120, .00000, + .00000, .13256, .22806, + .13902, .08067, 2.00619, .23565, .01785, + .00000, .14787, .24284, + .14181, .08240, 2.46044, .24700, .03405, + .00000, .15985, .25446, + .14479, .08424, 2.93443, .25968, .04816, + .00000, .17319, .26743, + .14739, .08582, 3.33469, .27105, .06080, + .00000, .18510, .27904, + .14991, .08734, 3.71891, .28232, .07373, + .00000, .19692, .29055, + .15261, .08897, 4.12452, .29470, .08794, + .00000, .20985, .30318 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .15494, .09037, 4.46481, .30570, .10015, + .00000, .22135, .31441, + .15722, .09173, 4.78690, .31655, .11217, + .00000, .23264, .32545, + .15903, .09281, 5.04201, .32531, .12203, + .00000, .24178, .33439, + .16288, .09507, 5.57161, .34435, .14303, + .00000, .26159, .35378, + .16620, .09699, 5.95028, .36092, .16117, + .01660, .27882, .37067, + .16992, .09914, 6.36459, .37966, .18169, + .04280, .29828, .38975, + .17376, .10136, 6.77391, .39920, .20302, + .06683, .31858, .40964, + .17725, .10333, 7.12417, .41686, .22230, + .08858, .33693, .42763 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .18074, .10530, 7.45823, .43466, .24172, + .11035, .35540, .44574, + .18362, .10691, 7.71816, .44928, .25759, + .12791, .37057, .46062, + .18707, .10883, 8.01231, .46678, .27654, + .14881, .38875, .47843, + .19011, .11052, 8.25769, .48212, .29321, + .16730, .40469, .49405, + .19288, .11204, 8.47061, .49607, .30839, + .18416, .41918, .50825, + .19635, .11394, 8.71617, .51332, .32704, + .20465, .43711, .52580, + .19957, .11568, 8.93074, .52928, .34437, + .22376, .45370, .54206, + .20258, .11731, 9.11993, .54406, .36047, + .24163, .46907, .55710 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20554, .11889, 9.28679, .55829, .37589, + .25853, .48389, .57158, + .20840, .12042, 9.43995, .57202, .39083, + .27502, .49818, .58556, + .21109, .12185, 9.57386, .58476, .40471, + .29036, .51145, .59854, + .21359, .12316, 9.68591, .59636, .41735, + .30427, .52356, .61035, + .21610, .12447, 9.79364, .60794, .43001, + .31830, .53564, .62214, + .21851, .12573, 9.88415, .61881, .44188, + .33136, .54700, .63322, + .22080, .12692, 9.96786, .62913, .45321, + .34393, .55778, .64373, + .22293, .12802, 10.03425, .63844, .46340, + .35516, .56752, .65321 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22507, .12912, 10.09896, .64777, .47367, + .36655, .57730, .66273, + .22715, .13017, 10.15345, .65665, .48343, + .37735, .58659, .67177, + .22912, .13118, 10.20063, .66494, .49258, + .38750, .59529, .68022, + .23098, .13213, 10.24203, .67269, .50116, + .39705, .60342, .68813, + .23283, .13305, 10.27507, .68015, .50943, + .40621, .61128, .69573 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .14787, .08636, 1.03013, .20376, .00000, + .00000, .11810, .21153, + .15056, .08807, 1.44540, .21168, .00000, + .00000, .12661, .21973, + .15465, .09064, 2.01816, .22467, .01562, + .00000, .14044, .23311, + .15774, .09255, 2.43307, .23487, .03043, + .00000, .15127, .24363, + .16104, .09457, 2.86095, .24622, .04321, + .00000, .16328, .25530, + .16390, .09629, 3.21825, .25637, .05462, + .00000, .17397, .26572, + .16668, .09795, 3.55791, .26641, .06625, + .00000, .18454, .27604, + .16964, .09972, 3.91312, .27737, .07900, + .00000, .19608, .28731 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .17223, .10125, 4.20838, .28710, .08990, + .00000, .20630, .29728, + .17472, .10270, 4.48557, .29663, .10061, + .00000, .21630, .30705, + .17671, .10386, 4.70366, .30433, .10937, + .00000, .22437, .31494, + .18090, .10629, 5.15288, .32096, .12793, + .00000, .24179, .33198, + .18451, .10835, 5.46997, .33535, .14389, + .01306, .25685, .34671, + .18854, .11062, 5.81005, .35152, .16182, + .03620, .27378, .36326, + .19270, .11295, 6.14157, .36826, .18036, + .05730, .29129, .38039, + .19645, .11502, 6.42140, .38332, .19703, + .07629, .30705, .39580 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20020, .11709, 6.68492, .39838, .21371, + .09520, .32281, .41121, + .20327, .11878, 6.88721, .41068, .22728, + .11038, .33570, .42379, + .20696, .12077, 7.11282, .42532, .24339, + .12834, .35103, .43876, + .21018, .12251, 7.29856, .43809, .25750, + .14417, .36440, .45182, + .21313, .12409, 7.45784, .44962, .27026, + .15852, .37649, .46361, + .21679, .12602, 7.63773, .46379, .28589, + .17589, .39137, .47811, + .22020, .12782, 7.79218, .47682, .30030, + .19200, .40505, .49144, + .22336, .12948, 7.92629, .48881, .31364, + .20701, .41765, .50372 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22645, .13107, 8.04126, .50027, .32632, + .22110, .42972, .51544, + .22945, .13261, 8.14479, .51127, .33857, + .23481, .44131, .52670, + .23225, .13405, 8.23318, .52142, .34990, + .24752, .45200, .53708, + .23484, .13537, 8.30471, .53059, .36014, + .25896, .46169, .54648, + .23744, .13668, 8.37244, .53970, .37038, + .27049, .47132, .55581, + .23993, .13792, 8.42607, .54820, .37990, + .28114, .48032, .56452, + .24230, .13912, 8.47504, .55624, .38898, + .29138, .48885, .57275, + .24448, .14019, 8.51068, .56342, .39708, + .30047, .49647, .58010 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24668, .14128, 8.54474, .57061, .40523, + .30968, .50411, .58746, + .24880, .14231, 8.57086, .57737, .41292, + .31836, .51132, .59441, + .25081, .14329, 8.59198, .58367, .42011, + .32649, .51803, .60087, + .25271, .14421, 8.60930, .58952, .42683, + .33412, .52429, .60687, + .25458, .14512, 8.61964, .59511, .43327, + .34140, .53028, .61261 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .17380, .10289, 1.17383, .19053, .00000, + .00000, .11010, .20052, + .17699, .10491, 1.54500, .19718, .00000, + .00000, .11733, .20752, + .18184, .10789, 2.04842, .20810, .01172, + .00000, .12911, .21897, + .18547, .11009, 2.40178, .21667, .02459, + .00000, .13833, .22792, + .18931, .11237, 2.75922, .22617, .03553, + .00000, .14850, .23781, + .19263, .11432, 3.05230, .23459, .04524, + .00000, .15751, .24658, + .19584, .11619, 3.32645, .24288, .05511, + .00000, .16637, .25520, + .19926, .11816, 3.60877, .25189, .06585, + .00000, .17597, .26455 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .20221, .11984, 3.83981, .25981, .07497, + .00000, .18441, .27278, + .20507, .12145, 4.05373, .26753, .08386, + .00000, .19264, .28080, + .20734, .12273, 4.22029, .27373, .09112, + .00000, .19924, .28721, + .21207, .12537, 4.55828, .28704, .10638, + .00000, .21337, .30099, + .21613, .12758, 4.79196, .29842, .11935, + .00819, .22546, .31276, + .22062, .13001, 5.03240, .31107, .13382, + .02719, .23893, .32586, + .22523, .13247, 5.26104, .32403, .14862, + .04433, .25271, .33924, + .22935, .13466, 5.44913, .33555, .16180, + .05963, .26498, .35114 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23346, .13681, 5.62171, .34694, .17486, + .07472, .27713, .36292, + .23682, .13854, 5.75061, .35614, .18539, + .08673, .28695, .37244, + .24081, .14059, 5.88999, .36699, .19778, + .10084, .29853, .38363, + .24429, .14236, 6.00142, .37633, .20853, + .11317, .30853, .39329, + .24745, .14395, 6.09428, .38470, .21819, + .12428, .31750, .40194, + .25135, .14590, 6.19438, .39485, .22989, + .13759, .32840, .41243, + .25496, .14769, 6.27659, .40407, .24059, + .14985, .33832, .42196, + .25829, .14931, 6.34505, .41247, .25041, + .16117, .34738, .43066 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .26152, .15088, 6.39871, .42039, .25965, + .17172, .35593, .43884, + .26464, .15238, 6.44436, .42791, .26849, + .18190, .36408, .44661, + .26756, .15377, 6.48038, .43477, .27660, + .19126, .37152, .45371, + .27023, .15503, 6.50551, .44089, .28386, + .19963, .37819, .46004, + .27288, .15627, 6.52769, .44691, .29107, + .20801, .38477, .46628, + .27542, .15745, 6.54031, .45244, .29772, + .21569, .39082, .47200, + .27783, .15855, 6.55096, .45761, .30401, + .22303, .39653, .47738, + .28002, .15956, 6.55332, .46218, .30956, + .22949, .40155, .48210 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28222, .16056, 6.55448, .46672, .31512, + .23601, .40656, .48681, + .28435, .16151, 6.55034, .47092, .32032, + .24211, .41123, .49116, + .28635, .16241, 6.54381, .47477, .32514, + .24777, .41554, .49518, + .28823, .16323, 6.53581, .47834, .32961, + .25307, .41952, .49887, + .29007, .16404, 6.52277, .48168, .33385, + .25808, .42328, .50235 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .20645, .12353, 1.34903, .17544, .00000, + .00000, .10055, .18840, + .21034, .12592, 1.66553, .18090, .00000, + .00000, .10665, .19433, + .21616, .12938, 2.08875, .18987, .00692, + .00000, .11657, .20398, + .22046, .13186, 2.37308, .19688, .01792, + .00000, .12429, .21148, + .22497, .13444, 2.65435, .20456, .02716, + .00000, .13271, .21966, + .22885, .13660, 2.87991, .21131, .03530, + .00000, .14011, .22683, + .23257, .13866, 3.08677, .21791, .04349, + .00000, .14733, .23384, + .23651, .14081, 3.29569, .22502, .05235, + .00000, .15510, .24136 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23989, .14263, 3.46328, .23122, .05980, + .00000, .16187, .24791, + .24312, .14435, 3.61571, .23720, .06702, + .00000, .16840, .25423, + .24568, .14571, 3.73275, .24197, .07286, + .00000, .17361, .25926, + .25104, .14850, 3.96583, .25209, .08505, + .00000, .18468, .26993, + .25552, .15080, 4.12249, .26064, .09530, + .00371, .19401, .27891, + .26045, .15329, 4.27273, .27001, .10659, + .01887, .20426, .28873, + .26547, .15580, 4.41015, .27944, .11798, + .03239, .21460, .29864, + .26994, .15797, 4.51841, .28769, .12802, + .04432, .22368, .30730 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27434, .16011, 4.61330, .29575, .13784, + .05597, .23255, .31575, + .27790, .16181, 4.68046, .30216, .14568, + .06516, .23962, .32248, + .28212, .16379, 4.74869, .30958, .15479, + .07583, .24786, .33026, + .28576, .16548, 4.79973, .31589, .16262, + .08509, .25489, .33687, + .28903, .16698, 4.83936, .32147, .16958, + .09334, .26111, .34273, + .29305, .16881, 4.87661, .32811, .17791, + .10314, .26856, .34968, + .29673, .17045, 4.90301, .33405, .18544, + .11207, .27523, .35591, + .30010, .17194, 4.92165, .33937, .19228, + .12025, .28126, .36149 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30336, .17335, 4.92984, .34426, .19862, + .12778, .28684, .36663, + .30646, .17468, 4.93321, .34883, .20463, + .13498, .29209, .37142, + .30933, .17589, 4.93161, .35293, .21008, + .14155, .29682, .37574, + .31193, .17699, 4.92402, .35651, .21490, + .14736, .30098, .37949, + .31452, .17805, 4.91452, .35997, .21965, + .15314, .30504, .38314, + .31696, .17904, 4.89913, .36306, .22396, + .15838, .30868, .38640, + .31926, .17996, 4.88389, .36594, .22801, + .16337, .31209, .38943, + .32134, .18077, 4.86456, .36838, .23153, + .16770, .31503, .39200 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32343, .18159, 4.84453, .37078, .23503, + .17204, .31794, .39453, + .32540, .18235, 4.82146, .37293, .23826, + .17607, .32058, .39679, + .32726, .18305, 4.79797, .37486, .24122, + .17978, .32299, .39884, + .32898, .18370, 4.77476, .37661, .24395, + .18323, .32518, .40070, + .33065, .18431, 4.74825, .37819, .24648, + .18645, .32718, .40236 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25186, .15138, 1.55003, .15656, .00000, + .00000, .08849, .17441, + .25673, .15418, 1.79422, .16085, .00000, + .00000, .09352, .17930, + .26386, .15812, 2.11760, .16781, .00093, + .00000, .10163, .18714, + .26900, .16087, 2.31969, .17319, .01007, + .00000, .10784, .19311, + .27435, .16365, 2.51349, .17898, .01764, + .00000, .11453, .19950, + .27886, .16598, 2.66392, .18400, .02421, + .00000, .12031, .20501, + .28316, .16816, 2.79804, .18884, .03076, + .00000, .12586, .21029, + .28766, .17040, 2.92967, .19397, .03775, + .00000, .13177, .21590 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29149, .17226, 3.03186, .19837, .04355, + .00000, .13685, .22068, + .29511, .17401, 3.12208, .20258, .04912, + .00000, .14168, .22524, + .29796, .17537, 3.18984, .20589, .05359, + .00000, .14549, .22883, + .30384, .17811, 3.32066, .21282, .06278, + .00000, .15347, .23630, + .30866, .18031, 3.40416, .21852, .07038, + -.00040, .16007, .24242, + .31390, .18265, 3.47116, .22464, .07862, + .01100, .16718, .24898, + .31915, .18494, 3.52655, .23064, .08681, + .02103, .17420, .25542, + .32375, .18690, 3.56474, .23577, .09388, + .02974, .18025, .26091 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .32823, .18877, 3.59309, .24064, .10071, + .03814, .18601, .26612, + .33181, .19023, 3.60867, .24443, .10608, + .04469, .19055, .27016, + .33597, .19190, 3.61876, .24869, .11223, + .05221, .19569, .27472, + .33953, .19328, 3.62169, .25221, .11742, + .05863, .19999, .27848, + .34269, .19449, 3.61986, .25526, .12199, + .06431, .20373, .28172, + .34650, .19591, 3.60930, .25874, .12735, + .07094, .20808, .28544, + .34993, .19717, 3.59423, .26175, .13212, + .07691, .21190, .28865, + .35306, .19827, 3.57669, .26437, .13638, + .08232, .21526, .29144 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .35599, .19927, 3.55304, .26664, .14026, + .08722, .21828, .29387, + .35876, .20018, 3.52759, .26870, .14387, + .09186, .22104, .29606, + .36127, .20101, 3.50109, .27047, .14711, + .09604, .22346, .29793, + .36352, .20170, 3.47284, .27192, .14991, + .09969, .22550, .29946, + .36573, .20237, 3.44379, .27328, .15264, + .10328, .22748, .30091, + .36775, .20295, 3.41200, .27437, .15505, + .10649, .22915, .30207, + .36965, .20350, 3.38187, .27536, .15730, + .10951, .23070, .30313, + .37133, .20393, 3.35077, .27610, .15920, + .11211, .23195, .30391 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37299, .20437, 3.31950, .27680, .16107, + .11468, .23316, .30464, + .37454, .20474, 3.28711, .27734, .16276, + .11704, .23420, .30522, + .37596, .20507, 3.25576, .27776, .16427, + .11918, .23511, .30567, + .37727, .20537, 3.22581, .27812, .16565, + .12116, .23591, .30605, + .37851, .20562, 3.19404, .27832, .16688, + .12298, .23655, .30627 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .28989, .17386, 1.67044, .14144, .00000, + .00000, .07901, .16350, + .29563, .17690, 1.85760, .14499, .00000, + .00000, .08346, .16779, + .30384, .18109, 2.10545, .15068, -.00318, + .00000, .09046, .17445, + .30965, .18393, 2.24851, .15499, .00475, + .00000, .09573, .17942, + .31558, .18677, 2.38155, .15955, .01127, + .00000, .10128, .18461, + .32053, .18909, 2.48142, .16343, .01687, + .00000, .10601, .18900, + .32520, .19121, 2.56782, .16712, .02237, + .00000, .11052, .19315, + .33004, .19338, 2.64999, .17099, .02819, + .00000, .11523, .19747 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .33409, .19517, 2.71125, .17425, .03297, + .00000, .11921, .20110, + .33789, .19682, 2.76331, .17731, .03751, + .00000, .12299, .20450, + .34088, .19807, 2.80137, .17970, .04113, + .00000, .12592, .20714, + .34692, .20057, 2.87184, .18462, .04849, + .00000, .13198, .21256, + .35181, .20250, 2.91306, .18858, .05449, + -.00252, .13690, .21688, + .35701, .20450, 2.93398, .19273, .06091, + .00656, .14211, .22138, + .36215, .20641, 2.94533, .19668, .06719, + .01448, .14714, .22567, + .36658, .20800, 2.94706, .19995, .07255, + .02127, .15137, .22921 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37082, .20947, 2.94174, .20298, .07765, + .02775, .15535, .23246, + .37416, .21059, 2.93193, .20525, .08161, + .03274, .15839, .23490, + .37799, .21179, 2.91424, .20772, .08609, + .03843, .16179, .23756, + .38121, .21277, 2.89478, .20969, .08983, + .04324, .16456, .23966, + .38403, .21360, 2.87417, .21134, .09307, + .04745, .16692, .24142, + .38735, .21451, 2.84289, .21312, .09682, + .05232, .16959, .24330, + .39029, .21528, 2.81066, .21457, .10011, + .05666, .17185, .24482, + .39292, .21593, 2.77876, .21576, .10301, + .06054, .17380, .24605 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39529, .21646, 2.74319, .21668, .10559, + .06402, .17544, .24699, + .39752, .21691, 2.70742, .21746, .10799, + .06729, .17691, .24777, + .39950, .21727, 2.67243, .21803, .11008, + .07020, .17814, .24835, + .40122, .21753, 2.63778, .21841, .11186, + .07271, .17912, .24872, + .40287, .21777, 2.60305, .21872, .11358, + .07517, .18004, .24901, + .40435, .21792, 2.56712, .21885, .11505, + .07733, .18075, .24910, + .40572, .21805, 2.53347, .21892, .11642, + .07936, .18138, .24915, + .40685, .21810, 2.50027, .21886, .11753, + .08106, .18181, .24904 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40797, .21813, 2.46724, .21876, .11862, + .08275, .18220, .24887, + .40897, .21812, 2.43396, .21855, .11958, + .08428, .18248, .24860, + .40986, .21807, 2.40225, .21828, .12041, + .08566, .18268, .24827, + .41067, .21800, 2.37231, .21800, .12116, + .08691, .18282, .24792, + .41137, .21789, 2.34135, .21762, .12180, + .08804, .18287, .24745 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .35485, .20927, 1.74584, .11798, .00000, + .00000, .06552, .14842, + .36175, .21240, 1.85088, .12053, .00000, + .00000, .06915, .15167, + .37129, .21648, 1.99301, .12443, -.00789, + .00000, .07462, .15648, + .37773, .21911, 2.05821, .12731, -.00156, + .00000, .07857, .15986, + .38415, .22162, 2.11379, .13020, .00362, + .00000, .08261, .16326, + .38939, .22359, 2.15117, .13260, .00795, + .00000, .08595, .16601, + .39420, .22532, 2.18027, .13480, .01213, + .00000, .08905, .16850, + .39907, .22703, 2.20456, .13703, .01646, + .00000, .09222, .17100 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .40308, .22836, 2.21904, .13886, .01997, + .00000, .09482, .17300, + .40676, .22954, 2.22850, .14051, .02325, + .00000, .09722, .17482, + .40959, .23042, 2.23398, .14177, .02582, + .00000, .09906, .17620, + .41517, .23205, 2.23965, .14427, .03098, + .00000, .10275, .17888, + .41946, .23317, 2.23693, .14615, .03508, + -.00428, .10564, .18085, + .42388, .23422, 2.21266, .14802, .03937, + .00199, .10858, .18275, + .42807, .23510, 2.18250, .14964, .04348, + .00738, .11129, .18437, + .43152, .23571, 2.15122, .15087, .04691, + .01193, .11347, .18555 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .43469, .23618, 2.11672, .15189, .05009, + .01619, .11541, .18651, + .43707, .23644, 2.08588, .15255, .05252, + .01943, .11683, .18707, + .43965, .23662, 2.04630, .15316, .05520, + .02305, .11830, .18751, + .44171, .23668, 2.01019, .15354, .05738, + .02607, .11943, .18774, + .44343, .23665, 1.97641, .15376, .05924, + .02867, .12033, .18782, + .44529, .23646, 1.93188, .15383, .06134, + .03164, .12125, .18768, + .44681, .23618, 1.88962, .15376, .06312, + .03423, .12193, .18739, + .44806, .23584, 1.85012, .15357, .06467, + .03652, .12245, .18698 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .44904, .23539, 1.80960, .15324, .06599, + .03853, .12278, .18641, + .44985, .23488, 1.77034, .15282, .06717, + .04038, .12301, .18574, + .45049, .23434, 1.73339, .15234, .06818, + .04201, .12311, .18502, + .45090, .23374, 1.69838, .15179, .06900, + .04339, .12310, .18422, + .45125, .23313, 1.66392, .15119, .06978, + .04472, .12304, .18338, + .45140, .23244, 1.62976, .15050, .07040, + .04585, .12287, .18244, + .45151, .23178, 1.59811, .14984, .07097, + .04692, .12269, .18152, + .45143, .23108, 1.56794, .14912, .07138, + .04778, .12241, .18057 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45134, .23037, 1.53824, .14838, .07179, + .04862, .12210, .17959, + .45111, .22962, 1.50903, .14759, .07211, + .04938, .12174, .17857, + .45083, .22889, 1.48160, .14682, .07237, + .05004, .12135, .17756, + .45053, .22817, 1.45601, .14606, .07259, + .05063, .12097, .17659, + .45011, .22740, 1.43014, .14524, .07274, + .05114, .12052, .17553 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .40943, .23593, 1.69849, .09970, .00000, + .00000, .05605, .13698, + .41690, .23871, 1.75012, .10151, .00000, + .00000, .05905, .13927, + .42684, .24217, 1.82437, .10421, -.00978, + .00000, .06336, .14246, + .43329, .24422, 1.84361, .10608, -.00459, + .00000, .06639, .14456, + .43954, .24607, 1.85512, .10792, -.00033, + .00000, .06936, .14656, + .44448, .24740, 1.85805, .10937, .00317, + .00000, .07176, .14805, + .44891, .24851, 1.85655, .11065, .00648, + .00000, .07391, .14934, + .45329, .24949, 1.85086, .11190, .00986, + .00000, .07607, .15057 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .45676, .25018, 1.84187, .11286, .01257, + .00000, .07781, .15147, + .45986, .25074, 1.83053, .11369, .01508, + .00000, .07937, .15223, + .46218, .25110, 1.82053, .11431, .01701, + .00000, .08052, .15275, + .46657, .25164, 1.79624, .11547, .02084, + .00000, .08281, .15365, + .46971, .25176, 1.77399, .11624, .02383, + -.00465, .08451, .15417, + .47273, .25171, 1.73198, .11690, .02692, + -.00004, .08616, .15447, + .47538, .25142, 1.68666, .11734, .02982, + .00388, .08759, .15452, + .47735, .25097, 1.64438, .11755, .03218, + .00713, .08866, .15433 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .47899, .25037, 1.60111, .11760, .03434, + .01014, .08955, .15395, + .48005, .24975, 1.56470, .11752, .03596, + .01241, .09011, .15350, + .48102, .24884, 1.52026, .11725, .03771, + .01491, .09063, .15279, + .48161, .24793, 1.48126, .11690, .03912, + .01696, .09096, .15205, + .48195, .24706, 1.44584, .11652, .04030, + .01872, .09117, .15127, + .48205, .24578, 1.40087, .11590, .04158, + .02068, .09127, .15012, + .48189, .24450, 1.35936, .11522, .04265, + .02239, .09123, .14895, + .48157, .24325, 1.32136, .11451, .04356, + .02387, .09111, .14777 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .48096, .24187, 1.28353, .11368, .04430, + .02514, .09088, .14647, + .48022, .24048, 1.24747, .11284, .04494, + .02631, .09058, .14516, + .47937, .23911, 1.21408, .11200, .04547, + .02731, .09023, .14388, + .47839, .23777, 1.18304, .11114, .04588, + .02815, .08983, .14260, + .47735, .23641, 1.15279, .11026, .04626, + .02895, .08940, .14130, + .47612, .23499, 1.12333, .10933, .04654, + .02963, .08889, .13996, + .47493, .23364, 1.09624, .10845, .04677, + .03024, .08841, .13868, + .47363, .23229, 1.07084, .10756, .04693, + .03073, .08788, .13743 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47230, .23095, 1.04599, .10667, .04707, + .03121, .08736, .13616, + .47088, .22959, 1.02183, .10576, .04715, + .03161, .08679, .13487, + .46946, .22827, .99934, .10487, .04721, + .03197, .08623, .13364, + .46808, .22701, .97848, .10403, .04724, + .03228, .08568, .13247, + .46656, .22569, .95765, .10315, .04723, + .03254, .08510, .13125 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .45675, .25656, 1.59078, .08483, .00000, + .00000, .04891, .12718, + .46430, .25875, 1.60786, .08607, .00000, + .00000, .05129, .12848, + .47394, .26120, 1.63826, .08785, -.01025, + .00000, .05465, .13014, + .47991, .26245, 1.63012, .08904, -.00592, + .00000, .05689, .13118, + .48544, .26342, 1.61618, .09014, -.00238, + .00000, .05906, .13198, + .48965, .26397, 1.59983, .09096, .00050, + .00000, .06075, .13249, + .49327, .26430, 1.58174, .09165, .00318, + .00000, .06225, .13284, + .49669, .26447, 1.56033, .09228, .00589, + .00000, .06370, .13309 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .49929, .26443, 1.53944, .09270, .00803, + .00000, .06481, .13319, + .50147, .26426, 1.51790, .09305, .00999, + .00000, .06578, .13317, + .50305, .26404, 1.50044, .09328, .01151, + .00000, .06651, .13309, + .50577, .26337, 1.46253, .09364, .01446, + .00000, .06785, .13275, + .50739, .26248, 1.43183, .09378, .01672, + -.00449, .06880, .13226, + .50865, .26125, 1.38382, .09376, .01903, + -.00100, .06966, .13154, + .50942, .25975, 1.33424, .09354, .02115, + .00194, .07031, .13059, + .50965, .25824, 1.28967, .09323, .02286, + .00436, .07070, .12958 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .50950, .25659, 1.24537, .09279, .02441, + .00659, .07098, .12842, + .50909, .25508, 1.20909, .09231, .02554, + .00824, .07109, .12737, + .50820, .25318, 1.16580, .09166, .02675, + .01004, .07108, .12598, + .50717, .25140, 1.12852, .09102, .02770, + .01151, .07097, .12468, + .50606, .24970, 1.09518, .09036, .02848, + .01275, .07080, .12345, + .50427, .24745, 1.05367, .08944, .02932, + .01413, .07050, .12178, + .50236, .24526, 1.01594, .08851, .03001, + .01531, .07012, .12016, + .50042, .24315, .98184, .08761, .03056, + .01633, .06970, .11863 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .49817, .24099, .94845, .08664, .03101, + .01719, .06919, .11703, + .49587, .23884, .91694, .08567, .03138, + .01796, .06866, .11544, + .49355, .23676, .88808, .08472, .03168, + .01863, .06813, .11390, + .49120, .23475, .86153, .08379, .03188, + .01917, .06757, .11244, + .48882, .23273, .83582, .08285, .03206, + .01968, .06700, .11098, + .48627, .23070, .81110, .08189, .03218, + .02011, .06639, .10951, + .48384, .22879, .78849, .08099, .03227, + .02048, .06580, .10812, + .48138, .22694, .76749, .08011, .03231, + .02079, .06522, .10678 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .47889, .22508, .74702, .07923, .03234, + .02107, .06463, .10544, + .47634, .22321, .72730, .07834, .03232, + .02131, .06402, .10412, + .47387, .22143, .70904, .07749, .03230, + .02151, .06342, .10286, + .47148, .21974, .69218, .07669, .03225, + .02169, .06286, .10167, + .46898, .21801, .67546, .07585, .03218, + .02183, .06227, .10044 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .50728, .27496, 1.42574, .06949, .00000, + .00000, .04164, .11501, + .51401, .27615, 1.41647, .07029, .00000, + .00000, .04339, .11521, + .52212, .27706, 1.41323, .07133, -.00986, + .00000, .04576, .11530, + .52676, .27711, 1.38616, .07198, -.00639, + .00000, .04730, .11519, + .53074, .27678, 1.35510, .07251, -.00352, + .00000, .04870, .11493, + .53349, .27624, 1.32641, .07286, -.00125, + .00000, .04977, .11452, + .53563, .27552, 1.29804, .07310, .00086, + .00000, .05066, .11405, + .53743, .27457, 1.26729, .07327, .00296, + .00000, .05150, .11346 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .53854, .27356, 1.23975, .07334, .00460, + .00000, .05212, .11281, + .53930, .27247, 1.21284, .07333, .00610, + .00000, .05264, .11213, + .53971, .27155, 1.19168, .07328, .00723, + .00000, .05300, .11157, + .53993, .26935, 1.14734, .07311, .00942, + .00000, .05360, .11028, + .53935, .26719, 1.11322, .07280, .01108, + -.00401, .05396, .10906, + .53814, .26460, 1.06479, .07237, .01274, + -.00146, .05421, .10756, + .53631, .26174, 1.01615, .07179, .01425, + .00068, .05430, .10590, + .53422, .25901, .97353, .07115, .01544, + .00242, .05425, .10430 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .53173, .25614, .93204, .07043, .01649, + .00399, .05410, .10262, + .52936, .25371, .89868, .06978, .01725, + .00514, .05389, .10119, + .52617, .25067, .85959, .06892, .01805, + .00640, .05355, .09941, + .52313, .24793, .82641, .06813, .01868, + .00741, .05318, .09781, + .52016, .24540, .79714, .06739, .01917, + .00825, .05280, .09631, + .51610, .24209, .76123, .06635, .01968, + .00917, .05225, .09440, + .51210, .23895, .72903, .06536, .02009, + .00995, .05168, .09260, + .50822, .23602, .70023, .06441, .02041, + .01061, .05111, .09091 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .50412, .23302, .67241, .06343, .02065, + .01116, .05050, .08921, + .50001, .23009, .64642, .06245, .02084, + .01165, .04988, .08755, + .49601, .22733, .62283, .06153, .02098, + .01207, .04926, .08597, + .49211, .22469, .60138, .06065, .02105, + .01239, .04866, .08449, + .48818, .22207, .58073, .05977, .02112, + .01270, .04806, .08302, + .48417, .21945, .56105, .05888, .02114, + .01295, .04744, .08156, + .48037, .21700, .54311, .05806, .02115, + .01318, .04685, .08022, + .47667, .21466, .52664, .05725, .02113, + .01335, .04628, .07894 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47296, .21231, .51067, .05646, .02109, + .01351, .04570, .07767, + .46920, .20998, .49538, .05566, .02103, + .01363, .04512, .07642, + .46561, .20778, .48128, .05490, .02097, + .01373, .04457, .07525, + .46219, .20570, .46835, .05419, .02090, + .01381, .04404, .07414, + .45865, .20359, .45561, .05347, .02081, + .01388, .04350, .07300 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .54945, .28721, 1.25567, .05717, .00000, + .00000, .03548, .10263, + .55476, .28709, 1.23165, .05764, .00000, + .00000, .03671, .10198, + .56054, .28605, 1.20917, .05818, -.00907, + .00000, .03838, .10091, + .56325, .28482, 1.17285, .05846, -.00623, + .00000, .03940, .10003, + .56513, .28313, 1.13401, .05866, -.00390, + .00000, .04031, .09893, + .56599, .28144, 1.10009, .05870, -.00206, + .00000, .04094, .09791, + .56632, .27964, 1.06774, .05870, -.00038, + .00000, .04145, .09688, + .56615, .27758, 1.03377, .05862, .00126, + .00000, .04188, .09572 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .56556, .27561, 1.00428, .05847, .00255, + .00000, .04217, .09467, + .56465, .27363, .97611, .05827, .00370, + .00000, .04239, .09363, + .56374, .27200, .95430, .05809, .00458, + .00000, .04251, .09278, + .56115, .26841, .90948, .05763, .00625, + .00000, .04270, .09090, + .55820, .26511, .87563, .05715, .00749, + -.00346, .04271, .08927, + .55441, .26125, .83021, .05651, .00871, + -.00156, .04262, .08740, + .54993, .25714, .78538, .05575, .00981, + .00003, .04240, .08542, + .54545, .25337, .74671, .05501, .01067, + .00130, .04211, .08357 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .54062, .24949, .70958, .05421, .01142, + .00245, .04173, .08171, + .53636, .24626, .68013, .05352, .01195, + .00329, .04138, .08015, + .53096, .24227, .64601, .05262, .01249, + .00418, .04089, .07824, + .52600, .23872, .61739, .05180, .01290, + .00489, .04042, .07657, + .52135, .23549, .59233, .05104, .01322, + .00548, .03994, .07506, + .51516, .23137, .56198, .05003, .01355, + .00612, .03931, .07315, + .50923, .22751, .53502, .04909, .01380, + .00665, .03869, .07136, + .50363, .22392, .51114, .04821, .01399, + .00709, .03809, .06969 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .49780, .22032, .48826, .04730, .01412, + .00747, .03747, .06804, + .49208, .21682, .46704, .04643, .01422, + .00779, .03685, .06646, + .48663, .21353, .44793, .04559, .01428, + .00806, .03625, .06499, + .48140, .21044, .43068, .04478, .01431, + .00827, .03569, .06363, + .47618, .20739, .41419, .04400, .01431, + .00846, .03511, .06228, + .47096, .20435, .39859, .04322, .01429, + .00861, .03453, .06097, + .46604, .20152, .38445, .04248, .01426, + .00874, .03399, .05975, + .46127, .19885, .37154, .04179, .01421, + .00883, .03347, .05859 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .45651, .19620, .35907, .04110, .01416, + .00893, .03296, .05744, + .45177, .19357, .34720, .04044, .01409, + .00899, .03244, .05633, + .44727, .19110, .33630, .03979, .01402, + .00904, .03195, .05530, + .44303, .18878, .32634, .03919, .01395, + .00909, .03149, .05433, + .43867, .18644, .31659, .03858, .01386, + .00911, .03104, .05335 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .58402, .29403, 1.09536, .04723, .00000, + .00000, .03007, .09000, + .58722, .29258, 1.06342, .04750, .00000, + .00000, .03096, .08867, + .58973, .28970, 1.03041, .04778, -.00815, + .00000, .03200, .08675, + .59010, .28716, .99017, .04790, -.00582, + .00000, .03265, .08530, + .58948, .28414, .94851, .04786, -.00391, + .00000, .03315, .08376, + .58821, .28133, .91309, .04778, -.00241, + .00000, .03350, .08236, + .58650, .27848, .87998, .04762, -.00105, + .00000, .03374, .08100, + .58419, .27532, .84584, .04738, .00026, + .00000, .03392, .07958 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .58174, .27251, .81669, .04712, .00129, + .00000, .03400, .07830, + .57903, .26972, .78931, .04684, .00220, + .00000, .03402, .07704, + .57673, .26748, .76827, .04659, .00288, + .00000, .03401, .07605, + .57128, .26260, .72549, .04601, .00417, + .00000, .03391, .07394, + .56595, .25828, .69376, .04543, .00512, + -.00295, .03374, .07215, + .55954, .25339, .65259, .04472, .00605, + -.00150, .03346, .07016, + .55246, .24826, .61250, .04394, .00686, + -.00030, .03308, .06808, + .54573, .24360, .57830, .04318, .00750, + .00066, .03268, .06620 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .53873, .23891, .54582, .04237, .00803, + .00150, .03222, .06434, + .53276, .23499, .52033, .04168, .00841, + .00212, .03180, .06281, + .52527, .23027, .49108, .04082, .00879, + .00277, .03127, .06097, + .51856, .22615, .46674, .04005, .00908, + .00329, .03076, .05938, + .51239, .22241, .44563, .03932, .00930, + .00371, .03028, .05795, + .50437, .21764, .42025, .03839, .00951, + .00416, .02965, .05617, + .49678, .21323, .39791, .03752, .00966, + .00453, .02906, .05453, + .48965, .20916, .37828, .03673, .00977, + .00484, .02849, .05302 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .48243, .20511, .35963, .03591, .00984, + .00509, .02791, .05154, + .47540, .20121, .34244, .03512, .00989, + .00531, .02734, .05014, + .46877, .19757, .32706, .03438, .00991, + .00549, .02680, .04883, + .46245, .19418, .31327, .03367, .00991, + .00563, .02629, .04763, + .45617, .19086, .30013, .03299, .00989, + .00575, .02578, .04644, + .44994, .18757, .28779, .03231, .00986, + .00585, .02528, .04530, + .44413, .18452, .27666, .03169, .00982, + .00592, .02481, .04424, + .43856, .18164, .26654, .03110, .00976, + .00598, .02436, .04325 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43304, .17878, .25680, .03052, .00971, + .00603, .02392, .04228, + .42757, .17600, .24757, .02994, .00965, + .00608, .02349, .04133, + .42237, .17338, .23913, .02941, .00958, + .00610, .02307, .04046, + .41749, .17093, .23146, .02891, .00951, + .00612, .02269, .03964, + .41256, .16846, .22399, .02839, .00943, + .00613, .02230, .03883 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .61097, .29648, .94985, .03930, .00000, + .00000, .02518, .07724, + .61174, .29355, .91398, .03940, .00000, + .00000, .02575, .07563, + .61056, .28877, .87535, .03951, -.00725, + .00000, .02646, .07319, + .60831, .28489, .83423, .03946, -.00532, + .00000, .02685, .07148, + .60495, .28061, .79241, .03935, -.00373, + .00000, .02712, .06968, + .60140, .27673, .75753, .03910, -.00250, + .00000, .02725, .06817, + .59752, .27294, .72530, .03886, -.00140, + .00000, .02734, .06670, + .59296, .26886, .69249, .03855, -.00033, + .00000, .02736, .06513 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .58861, .26524, .66492, .03824, .00049, + .00000, .02733, .06375, + .58414, .26171, .63920, .03790, .00121, + .00000, .02726, .06246, + .58048, .25891, .61959, .03761, .00176, + .00000, .02717, .06146, + .57219, .25294, .58015, .03697, .00277, + .00000, .02691, .05934, + .56460, .24774, .55115, .03637, .00351, + -.00248, .02665, .05757, + .55577, .24196, .51454, .03565, .00421, + -.00137, .02628, .05563, + .54628, .23601, .47928, .03486, .00483, + -.00045, .02584, .05364, + .53750, .23065, .44955, .03410, .00530, + .00027, .02540, .05188 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .52851, .22530, .42160, .03332, .00570, + .00091, .02490, .05016, + .52094, .22091, .39982, .03268, .00597, + .00136, .02449, .04875, + .51167, .21566, .37503, .03186, .00624, + .00185, .02396, .04707, + .50347, .21109, .35456, .03115, .00644, + .00223, .02350, .04565, + .49595, .20696, .33695, .03051, .00659, + .00253, .02305, .04436, + .48637, .20178, .31598, .02965, .00673, + .00286, .02245, .04278, + .47738, .19701, .29762, .02888, .00683, + .00312, .02191, .04133, + .46904, .19266, .28156, .02818, .00690, + .00334, .02140, .04002 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46068, .18834, .26645, .02745, .00693, + .00351, .02089, .03873, + .45258, .18421, .25262, .02677, .00694, + .00366, .02039, .03753, + .44498, .18036, .24033, .02612, .00695, + .00379, .01992, .03643, + .43785, .17680, .22936, .02553, .00693, + .00388, .01947, .03540, + .43080, .17330, .21895, .02492, .00690, + .00395, .01903, .03442, + .42384, .16987, .20921, .02435, .00686, + .00401, .01861, .03347, + .41733, .16671, .20046, .02382, .00683, + .00407, .01820, .03259, + .41117, .16375, .19257, .02332, .00678, + .00410, .01783, .03176 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .40506, .16083, .18500, .02283, .00672, + .00413, .01747, .03097, + .39907, .15798, .17788, .02235, .00667, + .00415, .01711, .03019, + .39341, .15530, .17141, .02190, .00661, + .00416, .01677, .02946, + .38811, .15281, .16552, .02149, .00655, + .00416, .01645, .02879, + .38274, .15031, .15980, .02107, .00649, + .00417, .01614, .02812 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .63081, .29486, .81947, .03284, .00000, + .00000, .02082, .06494, + .62871, .29059, .78203, .03292, .00000, + .00000, .02124, .06309, + .62351, .28395, .74086, .03286, -.00641, + .00000, .02169, .06056, + .61851, .27885, .70053, .03268, -.00480, + .00000, .02192, .05882, + .61235, .27334, .66011, .03245, -.00346, + .00000, .02207, .05698, + .60641, .26858, .62677, .03221, -.00244, + .00000, .02213, .05538, + .60032, .26395, .59640, .03190, -.00153, + .00000, .02209, .05391, + .59355, .25903, .56574, .03153, -.00066, + .00000, .02202, .05239 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .58735, .25472, .54026, .03118, -.00001, + .00000, .02191, .05108, + .58116, .25060, .51671, .03081, .00057, + .00000, .02176, .04986, + .57615, .24736, .49886, .03052, .00101, + .00000, .02162, .04890, + .56523, .24045, .46328, .02985, .00181, + .00000, .02130, .04690, + .55553, .23458, .43729, .02923, .00239, + -.00207, .02098, .04529, + .54447, .22813, .40526, .02851, .00293, + -.00122, .02060, .04350, + .53282, .22152, .37470, .02775, .00340, + -.00051, .02014, .04172, + .52218, .21566, .34918, .02705, .00376, + .00005, .01970, .04013 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .51144, .20991, .32537, .02634, .00405, + .00053, .01925, .03857, + .50258, .20514, .30700, .02572, .00426, + .00088, .01885, .03736, + .49180, .19951, .28628, .02499, .00445, + .00123, .01836, .03590, + .48233, .19466, .26927, .02435, .00459, + .00151, .01793, .03465, + .47374, .19030, .25471, .02376, .00469, + .00173, .01752, .03355, + .46285, .18489, .23750, .02305, .00478, + .00197, .01701, .03219, + .45280, .17992, .22257, .02236, .00484, + .00216, .01653, .03097, + .44357, .17537, .20961, .02170, .00489, + .00232, .01610, .02986 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .43429, .17094, .19750, .02109, .00490, + .00244, .01564, .02880, + .42537, .16671, .18646, .02051, .00490, + .00255, .01521, .02779, + .41707, .16280, .17669, .01997, .00489, + .00262, .01481, .02688, + .40931, .15918, .16803, .01946, .00487, + .00269, .01444, .02604, + .40167, .15565, .15987, .01896, .00484, + .00273, .01408, .02523, + .39422, .15221, .15227, .01848, .00480, + .00277, .01372, .02445, + .38731, .14902, .14545, .01804, .00477, + .00281, .01338, .02374, + .38077, .14605, .13933, .01760, .00473, + .00283, .01309, .02309 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37431, .14313, .13349, .01718, .00469, + .00285, .01279, .02244, + .36799, .14030, .12802, .01677, .00464, + .00285, .01249, .02183, + .36204, .13765, .12306, .01640, .00459, + .00285, .01221, .02126, + .35650, .13519, .11856, .01605, .00454, + .00285, .01194, .02074, + .35092, .13272, .11422, .01569, .00449, + .00285, .01169, .02022 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .64382, .28958, .70259, .02745, .00000, + .00000, .01719, .05343, + .63858, .28412, .66518, .02745, .00000, + .00000, .01744, .05167, + .62915, .27579, .62367, .02731, -.00563, + .00000, .01769, .04918, + .62120, .26974, .58516, .02719, -.00427, + .00000, .01778, .04741, + .61215, .26327, .54703, .02690, -.00315, + .00000, .01782, .04567, + .60393, .25767, .51602, .02660, -.00229, + .00000, .01775, .04421, + .59577, .25233, .48799, .02627, -.00155, + .00000, .01765, .04283, + .58686, .24671, .45995, .02590, -.00083, + .00000, .01752, .04142 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .57893, .24185, .43686, .02552, -.00029, + .00000, .01737, .04024, + .57113, .23722, .41570, .02517, .00017, + .00000, .01719, .03913, + .56491, .23361, .39976, .02488, .00052, + .00000, .01705, .03825, + .55151, .22607, .36819, .02423, .00115, + .00000, .01672, .03646, + .53985, .21975, .34530, .02366, .00161, + -.00172, .01641, .03499, + .52682, .21283, .31767, .02299, .00203, + -.00105, .01602, .03341, + .51333, .20580, .29153, .02227, .00239, + -.00051, .01558, .03187, + .50117, .19961, .26990, .02162, .00267, + -.00008, .01516, .03051 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48901, .19351, .24991, .02098, .00289, + .00029, .01476, .02918, + .47901, .18860, .23459, .02044, .00303, + .00055, .01442, .02812, + .46706, .18275, .21744, .01976, .00317, + .00081, .01397, .02694, + .45667, .17771, .20351, .01916, .00327, + .00103, .01356, .02593, + .44731, .17326, .19165, .01861, .00334, + .00119, .01320, .02503, + .43548, .16773, .17772, .01798, .00341, + .00136, .01279, .02390, + .42458, .16271, .16572, .01739, .00345, + .00150, .01238, .02289, + .41460, .15816, .15538, .01685, .00347, + .00162, .01199, .02200 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40476, .15369, .14576, .01631, .00347, + .00169, .01162, .02113, + .39536, .14945, .13703, .01580, .00347, + .00177, .01127, .02033, + .38664, .14554, .12937, .01532, .00345, + .00183, .01094, .01961, + .37852, .14196, .12259, .01488, .00344, + .00187, .01063, .01894, + .37057, .13846, .11623, .01445, .00341, + .00190, .01033, .01830, + .36279, .13509, .11037, .01405, .00338, + .00193, .01005, .01768, + .35559, .13199, .10515, .01369, .00335, + .00195, .00978, .01711, + .34884, .12909, .10047, .01334, .00331, + .00196, .00952, .01660 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34219, .12626, .09601, .01300, .00327, + .00197, .00928, .01609, + .33573, .12351, .09183, .01266, .00323, + .00197, .00905, .01562, + .32967, .12094, .08806, .01234, .00320, + .00197, .00884, .01518, + .32403, .11857, .08465, .01205, .00316, + .00197, .00863, .01477, + .31837, .11620, .08137, .01176, .00312, + .00197, .00843, .01436 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .64901, .28234, .59782, .02387, .00000, + .00000, .01339, .04256, + .64085, .27560, .56140, .02375, .00000, + .00000, .01363, .04094, + .62727, .26578, .52081, .02343, -.00488, + .00000, .01384, .03870, + .61667, .25868, .48473, .02313, -.00375, + .00000, .01395, .03721, + .60499, .25130, .44944, .02276, -.00280, + .00000, .01397, .03564, + .59459, .24501, .42111, .02241, -.00209, + .00000, .01389, .03436, + .58447, .23910, .39567, .02204, -.00147, + .00000, .01380, .03318, + .57362, .23294, .37050, .02162, -.00089, + .00000, .01367, .03196 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .56411, .22767, .34995, .02124, -.00045, + .00000, .01353, .03093, + .55492, .22263, .33126, .02085, -.00007, + .00000, .01338, .02997, + .54768, .21872, .31727, .02051, .00020, + .00000, .01324, .02925, + .53213, .21068, .28978, .01990, .00071, + .00000, .01290, .02772, + .51898, .20394, .26998, .01929, .00107, + -.00140, .01261, .02652, + .50437, .19663, .24648, .01861, .00140, + -.00089, .01227, .02525, + .48936, .18934, .22449, .01792, .00168, + -.00046, .01187, .02399, + .47597, .18296, .20644, .01734, .00189, + -.00014, .01153, .02285 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46268, .17677, .18991, .01674, .00205, + .00015, .01119, .02173, + .45192, .17175, .17732, .01621, .00216, + .00034, .01086, .02091, + .43904, .16584, .16338, .01563, .00226, + .00054, .01049, .01993, + .42789, .16081, .15213, .01512, .00233, + .00069, .01017, .01908, + .41790, .15634, .14259, .01470, .00238, + .00082, .00988, .01832, + .40549, .15083, .13148, .01409, .00243, + .00095, .00952, .01744, + .39409, .14584, .12198, .01357, .00245, + .00104, .00919, .01664, + .38369, .14136, .11382, .01311, .00246, + .00112, .00889, .01593 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37347, .13696, .10633, .01267, .00246, + .00119, .00857, .01527, + .36377, .13281, .09957, .01224, .00245, + .00124, .00828, .01463, + .35484, .12901, .09367, .01181, .00244, + .00127, .00800, .01407, + .34656, .12554, .08847, .01143, .00242, + .00130, .00776, .01355, + .33845, .12217, .08359, .01106, .00240, + .00133, .00754, .01307, + .33059, .11891, .07913, .01072, .00237, + .00134, .00731, .01258, + .32333, .11591, .07517, .01040, .00235, + .00135, .00709, .01215, + .31655, .11315, .07164, .01013, .00232, + .00136, .00690, .01175 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .30988, .11043, .06827, .00985, .00228, + .00136, .00671, .01138, + .30340, .10782, .06516, .00958, .00226, + .00137, .00653, .01100, + .29733, .10538, .06236, .00934, .00223, + .00136, .00635, .01066, + .29170, .10313, .05984, .00910, .00219, + .00136, .00620, .01035, + .28611, .10090, .05743, .00886, .00216, + .00135, .00603, .01005 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .64864, .27157, .50220, .02004, .00000, + .00000, .01070, .03353, + .63727, .26391, .46782, .01985, .00000, + .00000, .01090, .03209, + .61961, .25281, .42925, .01953, -.00420, + .00000, .01106, .03012, + .60635, .24503, .39627, .01924, -.00326, + .00000, .01107, .02883, + .59206, .23703, .36435, .01886, -.00246, + .00000, .01101, .02751, + .57967, .23024, .33898, .01848, -.00187, + .00000, .01095, .02642, + .56780, .22383, .31645, .01810, -.00136, + .00000, .01084, .02543, + .55524, .21724, .29433, .01767, -.00089, + .00000, .01068, .02442 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .54429, .21172, .27643, .01732, -.00053, + .00000, .01053, .02353, + .53380, .20650, .26022, .01697, -.00022, + .00000, .01038, .02273, + .52559, .20245, .24820, .01665, -.00001, + .00000, .01027, .02212, + .50831, .19410, .22481, .01605, .00040, + .00000, .00998, .02083, + .49378, .18722, .20794, .01552, .00068, + -.00114, .00969, .01986, + .47784, .17980, .18828, .01495, .00094, + -.00074, .00938, .01880, + .46168, .17241, .17012, .01433, .00116, + -.00041, .00906, .01775, + .44738, .16599, .15539, .01379, .00131, + -.00016, .00874, .01682 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43329, .15978, .14199, .01326, .00144, + .00005, .00843, .01596, + .42190, .15479, .13186, .01280, .00151, + .00019, .00817, .01531, + .40842, .14896, .12075, .01228, .00159, + .00035, .00785, .01451, + .39686, .14400, .11181, .01184, .00165, + .00046, .00760, .01384, + .38655, .13960, .10433, .01142, .00168, + .00055, .00735, .01327, + .37372, .13422, .09564, .01093, .00171, + .00064, .00705, .01260, + .36209, .12937, .08828, .01048, .00172, + .00071, .00677, .01199, + .35154, .12503, .08198, .01007, .00173, + .00077, .00652, .01145 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .34120, .12082, .07625, .00970, .00173, + .00082, .00628, .01091, + .33142, .11686, .07112, .00934, .00172, + .00085, .00604, .01042, + .32244, .11324, .06665, .00900, .00171, + .00088, .00584, .00998, + .31412, .10993, .06274, .00871, .00169, + .00090, .00564, .00957, + .30602, .10672, .05910, .00844, .00168, + .00092, .00546, .00919, + .29821, .10366, .05577, .00814, .00166, + .00093, .00528, .00884, + .29103, .10083, .05281, .00788, .00163, + .00093, .00513, .00852, + .28435, .09822, .05022, .00764, .00161, + .00093, .00497, .00823 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27782, .09567, .04777, .00739, .00159, + .00094, .00482, .00795, + .27149, .09322, .04547, .00718, .00157, + .00094, .00467, .00768, + .26561, .09095, .04341, .00696, .00154, + .00094, .00454, .00743, + .26014, .08885, .04157, .00676, .00151, + .00093, .00442, .00720, + .25466, .08677, .03980, .00659, .00149, + .00093, .00430, .00698 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .64167, .25911, .41528, .01713, .00000, + .00000, .00826, .02556, + .62731, .25069, .38351, .01690, .00000, + .00000, .00845, .02436, + .60582, .23861, .34791, .01649, -.00358, + .00000, .00857, .02281, + .59018, .23024, .31841, .01613, -.00278, + .00000, .00859, .02174, + .57368, .22161, .29014, .01573, -.00212, + .00000, .00852, .02068, + .55956, .21445, .26790, .01532, -.00163, + .00000, .00844, .01984, + .54609, .20783, .24838, .01494, -.00122, + .00000, .00836, .01900, + .53200, .20108, .22934, .01458, -.00083, + .00000, .00824, .01811 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51993, .19534, .21403, .01421, -.00054, + .00000, .00812, .01744, + .50844, .18995, .20037, .01384, -.00030, + .00000, .00798, .01679, + .49950, .18579, .19025, .01356, -.00012, + .00000, .00787, .01629, + .48077, .17729, .17074, .01301, .00019, + .00000, .00759, .01533, + .46528, .17035, .15676, .01247, .00042, + -.00092, .00738, .01455, + .44841, .16297, .14078, .01191, .00062, + -.00060, .00710, .01371, + .43141, .15563, .12607, .01136, .00079, + -.00035, .00681, .01291, + .41650, .14929, .11428, .01088, .00090, + -.00017, .00655, .01222 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .40198, .14316, .10367, .01040, .00100, + -.00001, .00630, .01154, + .39026, .13829, .09573, .01003, .00106, + .00011, .00609, .01099, + .37650, .13262, .08706, .00955, .00112, + .00022, .00584, .01038, + .36468, .12785, .08014, .00919, .00115, + .00030, .00562, .00989, + .35415, .12363, .07436, .00889, .00118, + .00037, .00543, .00946, + .34125, .11846, .06778, .00847, .00120, + .00044, .00517, .00892, + .32958, .11383, .06224, .00809, .00121, + .00049, .00495, .00845, + .31905, .10969, .05752, .00775, .00121, + .00053, .00477, .00803 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30884, .10570, .05323, .00742, .00121, + .00057, .00456, .00765, + .29917, .10197, .04941, .00711, .00120, + .00059, .00437, .00730, + .29024, .09856, .04614, .00686, .00119, + .00061, .00423, .00696, + .28210, .09545, .04329, .00660, .00118, + .00062, .00407, .00667, + .27420, .09245, .04065, .00636, .00116, + .00063, .00393, .00639, + .26660, .08958, .03826, .00612, .00115, + .00064, .00378, .00614, + .25964, .08696, .03614, .00592, .00113, + .00065, .00364, .00591, + .25318, .08455, .03427, .00571, .00112, + .00065, .00354, .00569 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24685, .08221, .03250, .00553, .00110, + .00065, .00342, .00548, + .24076, .07995, .03088, .00535, .00107, + .00064, .00332, .00527, + .23509, .07785, .02942, .00520, .00106, + .00064, .00322, .00509, + .22984, .07592, .02812, .00505, .00105, + .00064, .00313, .00491, + .22464, .07403, .02690, .00490, .00102, + .00063, .00304, .00474 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .62884, .24499, .33581, .01444, .00000, + .00000, .00634, .01907, + .61187, .23576, .30722, .01418, .00000, + .00000, .00646, .01821, + .58692, .22297, .27541, .01374, -.00300, + .00000, .00660, .01690, + .56924, .21413, .24967, .01332, -.00234, + .00000, .00658, .01612, + .55070, .20530, .22531, .01293, -.00180, + .00000, .00656, .01525, + .53500, .19796, .20640, .01258, -.00140, + .00000, .00650, .01452, + .52031, .19118, .18989, .01220, -.00106, + .00000, .00641, .01391, + .50509, .18425, .17395, .01177, -.00075, + .00000, .00627, .01331 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .49207, .17844, .16129, .01146, -.00051, + .00000, .00617, .01272, + .47976, .17301, .15001, .01114, -.00032, + .00000, .00605, .01224, + .47023, .16886, .14173, .01090, -.00018, + .00000, .00592, .01189, + .45062, .16039, .12588, .01030, .00007, + .00000, .00571, .01115, + .43433, .15360, .11468, .00991, .00024, + -.00073, .00551, .01049, + .41680, .14633, .10198, .00947, .00040, + -.00049, .00529, .00983, + .39934, .13916, .09045, .00897, .00052, + -.00029, .00507, .00921, + .38413, .13301, .08126, .00854, .00061, + -.00016, .00486, .00869 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36933, .12714, .07312, .00812, .00069, + -.00003, .00465, .00818, + .35749, .12246, .06707, .00781, .00073, + .00005, .00449, .00776, + .34365, .11702, .06052, .00742, .00077, + .00013, .00429, .00735, + .33190, .11245, .05535, .00708, .00080, + .00019, .00409, .00699, + .32152, .10845, .05109, .00679, .00082, + .00025, .00393, .00665, + .30877, .10360, .04626, .00644, .00083, + .00029, .00375, .00623, + .29727, .09926, .04219, .00615, .00083, + .00033, .00359, .00589, + .28693, .09538, .03877, .00589, .00083, + .00036, .00343, .00559 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27692, .09166, .03573, .00560, .00084, + .00039, .00329, .00528, + .26751, .08817, .03303, .00536, .00082, + .00040, .00314, .00502, + .25895, .08501, .03068, .00514, .00082, + .00042, .00302, .00479, + .25108, .08214, .02869, .00493, .00081, + .00042, .00289, .00459, + .24348, .07939, .02683, .00474, .00080, + .00043, .00278, .00440, + .23621, .07676, .02517, .00455, .00078, + .00043, .00267, .00421, + .22955, .07436, .02370, .00438, .00077, + .00044, .00259, .00403, + .22336, .07215, .02243, .00425, .00076, + .00044, .00250, .00387 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21733, .07001, .02122, .00411, .00074, + .00044, .00242, .00372, + .21156, .06797, .02012, .00397, .00074, + .00044, .00233, .00357, + .20622, .06607, .01916, .00383, .00073, + .00044, .00226, .00342, + .20129, .06433, .01829, .00370, .00071, + .00043, .00218, .00330, + .19637, .06261, .01745, .00360, .00069, + .00043, .00212, .00319 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .61099, .22898, .26358, .01176, .00000, + .00000, .00492, .01408, + .59154, .21941, .23877, .01151, .00000, + .00000, .00502, .01335, + .56352, .20622, .21123, .01109, -.00248, + .00000, .00506, .01245, + .54396, .19726, .18937, .01077, -.00194, + .00000, .00513, .01173, + .52387, .18822, .16913, .01034, -.00149, + .00000, .00502, .01112, + .50693, .18087, .15343, .01005, -.00117, + .00000, .00498, .01055, + .49120, .17410, .13988, .00974, -.00089, + .00000, .00489, .01007, + .47504, .16720, .12697, .00939, -.00065, + .00000, .00477, .00960 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .46137, .16143, .11683, .00905, -.00047, + .00000, .00468, .00923, + .44855, .15609, .10789, .00875, -.00031, + .00000, .00456, .00884, + .43868, .15203, .10133, .00852, -.00020, + .00000, .00450, .00852, + .41831, .14374, .08895, .00809, .00000, + .00000, .00429, .00794, + .40168, .13710, .08032, .00772, .00012, + -.00057, .00412, .00747, + .38394, .13010, .07058, .00727, .00025, + -.00038, .00396, .00699, + .36628, .12326, .06189, .00688, .00033, + -.00025, .00376, .00650, + .35098, .11739, .05508, .00653, .00040, + -.00014, .00358, .00610 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .33632, .11175, .04903, .00618, .00046, + -.00004, .00343, .00574, + .32455, .10734, .04458, .00590, .00049, + .00002, .00329, .00546, + .31087, .10226, .03986, .00561, .00052, + .00008, .00311, .00511, + .29932, .09799, .03619, .00535, .00054, + .00012, .00296, .00484, + .28916, .09423, .03316, .00512, .00056, + .00016, .00286, .00459, + .27676, .08970, .02976, .00482, .00056, + .00019, .00273, .00431, + .26563, .08568, .02696, .00457, .00057, + .00023, .00258, .00407, + .25566, .08211, .02462, .00435, .00057, + .00024, .00245, .00384 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24602, .07869, .02254, .00416, .00057, + .00026, .00234, .00363, + .23701, .07551, .02072, .00396, .00056, + .00027, .00225, .00344, + .22881, .07263, .01916, .00380, .00055, + .00028, .00215, .00325, + .22136, .07001, .01785, .00363, .00055, + .00028, .00205, .00310, + .21415, .06750, .01664, .00348, .00054, + .00029, .00197, .00297, + .20729, .06513, .01556, .00334, .00053, + .00029, .00189, .00282, + .20103, .06298, .01462, .00320, .00053, + .00030, .00181, .00268, + .19524, .06098, .01379, .00308, .00051, + .00030, .00175, .00258 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18961, .05904, .01301, .00297, .00051, + .00030, .00168, .00248, + .18420, .05721, .01230, .00287, .00050, + .00030, .00162, .00239, + .17920, .05551, .01169, .00277, .00048, + .00029, .00156, .00230, + .17460, .05395, .01116, .00267, .00048, + .00030, .00151, .00221, + .17009, .05244, .01063, .00257, .00047, + .00029, .00147, .00213 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .58761, .21284, .19856, .01001, .00000, + .00000, .00354, .00981, + .56619, .20293, .17764, .00965, .00000, + .00000, .00364, .00940, + .53585, .18940, .15487, .00914, -.00201, + .00000, .00377, .00866, + .51490, .18032, .13707, .00877, -.00158, + .00000, .00375, .00829, + .49355, .17135, .12070, .00844, -.00122, + .00000, .00374, .00777, + .47586, .16399, .10827, .00809, -.00096, + .00000, .00367, .00741, + .45946, .15727, .09767, .00780, -.00075, + .00000, .00360, .00706, + .44270, .15048, .08770, .00747, -.00055, + .00000, .00353, .00669 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .42866, .14484, .07990, .00717, -.00040, + .00000, .00343, .00643, + .41546, .13967, .07307, .00693, -.00029, + .00000, .00335, .00616, + .40534, .13575, .06816, .00674, -.00020, + .00000, .00328, .00593, + .38469, .12782, .05902, .00635, -.00005, + .00000, .00314, .00546, + .36802, .12146, .05257, .00600, .00005, + -.00044, .00302, .00514, + .35028, .11480, .04548, .00566, .00014, + -.00030, .00288, .00478, + .33279, .10828, .03924, .00532, .00021, + -.00019, .00272, .00446, + .31776, .10274, .03440, .00500, .00026, + -.00011, .00258, .00419 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .30332, .09748, .03020, .00471, .00031, + -.00004, .00244, .00396, + .29187, .09336, .02720, .00451, .00033, + .00000, .00233, .00372, + .27866, .08863, .02397, .00423, .00035, + .00005, .00221, .00347, + .26750, .08468, .02153, .00400, .00036, + .00007, .00212, .00325, + .25768, .08124, .01953, .00384, .00037, + .00010, .00203, .00308, + .24577, .07706, .01731, .00361, .00038, + .00013, .00190, .00290, + .23514, .07337, .01552, .00341, .00039, + .00015, .00181, .00273, + .22568, .07011, .01405, .00323, .00038, + .00016, .00172, .00258 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21661, .06702, .01275, .00305, .00038, + .00017, .00164, .00243, + .20813, .06414, .01163, .00290, .00038, + .00018, .00155, .00229, + .20043, .06155, .01069, .00277, .00037, + .00019, .00148, .00216, + .19344, .05919, .00989, .00265, .00037, + .00019, .00142, .00207, + .18673, .05694, .00916, .00252, .00036, + .00019, .00136, .00198, + .18032, .05481, .00854, .00242, .00036, + .00020, .00131, .00187, + .17449, .05288, .00799, .00231, .00035, + .00019, .00125, .00179, + .16914, .05112, .00752, .00223, .00035, + .00020, .00121, .00171 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16393, .04942, .00709, .00214, .00034, + .00020, .00115, .00162, + .15896, .04778, .00670, .00205, .00033, + .00019, .00111, .00155, + .15437, .04628, .00634, .00199, .00033, + .00020, .00108, .00149, + .15015, .04492, .00603, .00192, .00032, + .00020, .00103, .00144, + .14598, .04357, .00575, .00185, .00031, + .00019, .00100, .00139 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .56049, .19563, .14049, .00809, .00000, + .00000, .00258, .00676, + .53728, .18572, .12386, .00780, .00000, + .00000, .00264, .00647, + .50501, .17228, .10594, .00740, -.00161, + .00000, .00271, .00597, + .48299, .16339, .09214, .00706, -.00126, + .00000, .00269, .00569, + .46078, .15461, .07961, .00679, -.00097, + .00000, .00267, .00532, + .44250, .14738, .07024, .00648, -.00077, + .00000, .00263, .00510, + .42573, .14089, .06240, .00620, -.00061, + .00000, .00257, .00485, + .40866, .13440, .05509, .00593, -.00045, + .00000, .00250, .00457 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .39442, .12898, .04942, .00573, -.00034, + .00000, .00248, .00433, + .38124, .12398, .04459, .00548, -.00025, + .00000, .00240, .00415, + .37117, .12018, .04116, .00527, -.00019, + .00000, .00234, .00402, + .35063, .11265, .03473, .00495, -.00007, + .00000, .00223, .00371, + .33418, .10666, .03042, .00467, .00001, + -.00033, .00211, .00346, + .31675, .10040, .02562, .00437, .00008, + -.00023, .00199, .00322, + .29971, .09434, .02143, .00407, .00013, + -.00015, .00190, .00299, + .28512, .08919, .01832, .00379, .00017, + -.00009, .00180, .00279 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .27121, .08433, .01567, .00357, .00019, + -.00005, .00170, .00260, + .26015, .08056, .01376, .00342, .00022, + -.00001, .00161, .00245, + .24745, .07620, .01184, .00322, .00023, + .00002, .00153, .00227, + .23683, .07258, .01037, .00305, .00024, + .00005, .00146, .00214, + .22753, .06943, .00923, .00290, .00025, + .00006, .00138, .00202, + .21628, .06566, .00797, .00271, .00026, + .00008, .00130, .00190, + .20629, .06235, .00698, .00256, .00026, + .00010, .00123, .00176, + .19742, .05943, .00620, .00242, .00026, + .00011, .00116, .00164 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18891, .05664, .00552, .00230, .00026, + .00012, .00110, .00155, + .18101, .05405, .00495, .00218, .00025, + .00012, .00104, .00147, + .17389, .05172, .00450, .00207, .00025, + .00012, .00099, .00140, + .16745, .04964, .00412, .00196, .00025, + .00013, .00094, .00132, + .16129, .04764, .00378, .00184, .00024, + .00013, .00090, .00125, + .15539, .04578, .00349, .00178, .00023, + .00013, .00087, .00118, + .15003, .04408, .00323, .00172, .00024, + .00013, .00084, .00112, + .14515, .04252, .00303, .00164, .00023, + .00013, .00080, .00108 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .14045, .04101, .00284, .00155, .00022, + .00013, .00076, .00104, + .13593, .03957, .00269, .00149, .00021, + .00013, .00072, .00099, + .13176, .03825, .00255, .00143, .00022, + .00013, .00070, .00095, + .12793, .03705, .00243, .00139, .00021, + .00013, .00068, .00091, + .12416, .03588, .00232, .00133, .00021, + .00013, .00066, .00088 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .52931, .17803, .08978, .00632, .00000, + .00000, .00190, .00460, + .50487, .16826, .07729, .00612, .00000, + .00000, .00200, .00432, + .47139, .15506, .06431, .00565, -.00126, + .00000, .00196, .00414, + .44870, .14639, .05431, .00542, -.00099, + .00000, .00199, .00388, + .42614, .13784, .04537, .00518, -.00076, + .00000, .00197, .00364, + .40767, .13095, .03896, .00494, -.00061, + .00000, .00190, .00341, + .39080, .12473, .03356, .00470, -.00048, + .00000, .00186, .00326, + .37380, .11850, .02860, .00445, -.00036, + .00000, .00183, .00312 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .35962, .11342, .02496, .00426, -.00028, + .00000, .00175, .00297, + .34651, .10874, .02187, .00409, -.00021, + .00000, .00170, .00282, + .33655, .10520, .01968, .00396, -.00016, + .00000, .00165, .00272, + .31640, .09810, .01578, .00367, -.00008, + .00000, .00159, .00252, + .30034, .09255, .01317, .00347, -.00001, + -.00024, .00152, .00232, + .28352, .08677, .01026, .00321, .00003, + -.00017, .00145, .00215, + .26709, .08116, .00791, .00297, .00007, + -.00012, .00135, .00200, + .25309, .07647, .00618, .00280, .00010, + -.00007, .00127, .00188 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .23983, .07205, .00480, .00259, .00012, + -.00004, .00119, .00175, + .22944, .06858, .00389, .00243, .00013, + -.00002, .00112, .00164, + .21751, .06467, .00294, .00226, .00015, + .00001, .00106, .00151, + .20753, .06142, .00227, .00214, .00015, + .00002, .00101, .00142, + .19882, .05860, .00175, .00202, .00016, + .00004, .00097, .00135, + .18831, .05523, .00128, .00190, .00016, + .00005, .00092, .00124, + .17905, .05226, .00092, .00178, .00016, + .00006, .00086, .00116, + .17088, .04964, .00066, .00167, .00017, + .00007, .00082, .00108 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .16307, .04718, .00045, .00156, .00017, + .00008, .00076, .00105, + .15583, .04492, .00030, .00147, .00016, + .00008, .00073, .00097, + .14934, .04289, .00017, .00138, .00017, + .00009, .00070, .00092, + .14347, .04105, .00011, .00131, .00016, + .00008, .00066, .00087, + .13783, .03931, .00006, .00125, .00015, + .00008, .00063, .00082, + .13249, .03766, .00001, .00119, .00015, + .00008, .00059, .00079, + .12764, .03618, .00000, .00113, .00015, + .00009, .00056, .00075, + .12322, .03483, -.00001, .00110, .00015, + .00009, .00054, .00070 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11894, .03354, -.00001, .00107, .00014, + .00008, .00052, .00067, + .11488, .03232, -.00001, .00102, .00014, + .00008, .00049, .00065, + .11115, .03119, .00000, .00097, .00013, + .00008, .00047, .00062, + .10775, .03016, .00000, .00093, .00014, + .00009, .00045, .00060, + .10439, .02915, .00002, .00090, .00014, + .00009, .00044, .00057 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .49516, .16033, .04652, .00481, .00000, + .00000, .00139, .00306, + .46997, .15073, .03808, .00454, .00000, + .00000, .00147, .00299, + .43558, .13801, .02985, .00429, -.00097, + .00000, .00154, .00271, + .41279, .12967, .02337, .00405, -.00076, + .00000, .00147, .00262, + .39017, .12155, .01783, .00377, -.00059, + .00000, .00146, .00247, + .37180, .11503, .01384, .00355, -.00047, + .00000, .00146, .00235, + .35510, .10918, .01070, .00336, -.00037, + .00000, .00142, .00223, + .33830, .10335, .00799, .00320, -.00028, + .00000, .00138, .00209 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .32441, .09860, .00600, .00305, -.00022, + .00000, .00135, .00199, + .31165, .09424, .00438, .00290, -.00017, + .00000, .00131, .00190, + .30199, .09094, .00333, .00277, -.00013, + .00000, .00127, .00184, + .28251, .08442, .00148, .00259, -.00007, + .00000, .00117, .00171, + .26716, .07931, .00033, .00238, -.00003, + -.00018, .00113, .00162, + .25109, .07403, -.00090, .00220, .00001, + -.00012, .00106, .00147, + .23553, .06897, -.00187, .00203, .00003, + -.00009, .00098, .00137, + .22234, .06473, -.00246, .00189, .00006, + -.00005, .00093, .00128 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .20988, .06078, -.00287, .00177, .00007, + -.00004, .00089, .00116, + .20021, .05771, -.00310, .00164, .00009, + -.00001, .00084, .00110, + .18907, .05419, -.00323, .00154, .00009, + .00000, .00079, .00102, + .17979, .05131, -.00328, .00146, .00010, + .00001, .00074, .00096, + .17173, .04882, -.00326, .00137, .00010, + .00003, .00070, .00090, + .16217, .04586, -.00322, .00127, .00010, + .00003, .00066, .00084, + .15369, .04327, -.00312, .00117, .00010, + .00004, .00062, .00079, + .14621, .04100, -.00301, .00110, .00010, + .00004, .00059, .00074 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13913, .03885, -.00288, .00104, .00011, + .00005, .00056, .00067, + .13256, .03687, -.00273, .00099, .00010, + .00005, .00052, .00062, + .12666, .03511, -.00257, .00094, .00011, + .00006, .00048, .00059, + .12138, .03354, -.00243, .00088, .00010, + .00005, .00047, .00057, + .11634, .03204, -.00228, .00083, .00010, + .00005, .00045, .00053, + .11159, .03063, -.00214, .00077, .00009, + .00005, .00042, .00051, + .10731, .02937, -.00202, .00072, .00009, + .00005, .00040, .00049, + .10337, .02822, -.00191, .00071, .00010, + .00006, .00038, .00046 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09958, .02711, -.00179, .00069, .00009, + .00006, .00037, .00044, + .09598, .02606, -.00167, .00065, .00009, + .00006, .00036, .00041, + .09270, .02511, -.00158, .00062, .00009, + .00006, .00034, .00040, + .08971, .02423, -.00146, .00058, .00009, + .00005, .00032, .00038, + .08676, .02339, -.00136, .00056, .00008, + .00005, .00031, .00036 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .45883, .14361, .00992, .00408, .00000, + .00000, .00077, .00174, + .43330, .13447, .00538, .00382, .00000, + .00000, .00076, .00176, + .39904, .12228, .00159, .00344, -.00072, + .00000, .00084, .00162, + .37634, .11439, -.00175, .00326, -.00057, + .00000, .00092, .00151, + .35404, .10674, -.00435, .00307, -.00044, + .00000, .00089, .00143, + .33599, .10063, -.00603, .00289, -.00036, + .00000, .00089, .00137, + .31973, .09517, -.00724, .00271, -.00028, + .00000, .00086, .00131, + .30351, .08976, -.00813, .00250, -.00022, + .00000, .00083, .00128 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .29016, .08536, -.00874, .00239, -.00017, + .00000, .00081, .00122, + .27790, .08134, -.00906, .00229, -.00013, + .00000, .00078, .00115, + .26861, .07833, -.00923, .00222, -.00010, + .00000, .00077, .00109, + .25017, .07236, -.00935, .00196, -.00006, + .00000, .00070, .00103, + .23556, .06774, -.00921, .00186, -.00003, + -.00013, .00067, .00094, + .22047, .06298, -.00923, .00171, -.00001, + -.00009, .00065, .00086, + .20591, .05843, -.00902, .00158, .00001, + -.00007, .00059, .00078, + .19366, .05465, -.00874, .00147, .00003, + -.00004, .00056, .00071 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .18217, .05111, -.00837, .00134, .00004, + -.00003, .00053, .00067, + .17318, .04838, -.00805, .00128, .00005, + -.00001, .00050, .00062, + .16297, .04529, -.00759, .00117, .00006, + .00000, .00045, .00060, + .15453, .04275, -.00719, .00109, .00006, + .00001, .00043, .00056, + .14724, .04057, -.00683, .00103, .00006, + .00001, .00043, .00051, + .13854, .03797, -.00634, .00094, .00007, + .00002, .00039, .00048, + .13087, .03569, -.00591, .00088, .00006, + .00002, .00037, .00044, + .12410, .03371, -.00553, .00085, .00007, + .00003, .00034, .00044 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11776, .03187, -.00512, .00077, .00007, + .00003, .00031, .00040, + .11191, .03018, -.00476, .00072, .00006, + .00003, .00029, .00037, + .10665, .02867, -.00444, .00070, .00006, + .00003, .00029, .00033, + .10197, .02731, -.00415, .00066, .00007, + .00004, .00028, .00031, + .09753, .02602, -.00387, .00061, .00007, + .00004, .00027, .00030, + .09333, .02482, -.00361, .00058, .00006, + .00004, .00026, .00028, + .08952, .02374, -.00338, .00056, .00006, + .00004, .00023, .00027, + .08608, .02276, -.00316, .00053, .00006, + .00004, .00022, .00025 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08276, .02184, -.00297, .00051, .00006, + .00003, .00021, .00024, + .07963, .02096, -.00277, .00048, .00005, + .00003, .00020, .00023, + .07675, .02015, -.00260, .00046, .00005, + .00003, .00018, .00022, + .07414, .01942, -.00246, .00043, .00005, + .00003, .00019, .00022, + .07157, .01871, -.00230, .00042, .00005, + .00003, .00017, .00021 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .42036, .12644, -.01892, .00279, .00000, + .00000, .00061, .00113, + .39508, .11780, -.02013, .00267, .00000, + .00000, .00064, .00106, + .36111, .10643, -.02013, .00244, -.00053, + .00000, .00070, .00106, + .33908, .09914, -.02064, .00221, -.00042, + .00000, .00066, .00101, + .31737, .09210, -.02082, .00209, -.00032, + .00000, .00066, .00099, + .30007, .08644, -.02064, .00196, -.00026, + .00000, .00062, .00096, + .28447, .08144, -.02026, .00185, -.00021, + .00000, .00063, .00089, + .26894, .07656, -.01969, .00176, -.00016, + .00000, .00063, .00082 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .25620, .07258, -.01902, .00166, -.00013, + .00000, .00058, .00078, + .24464, .06898, -.01836, .00155, -.00011, + .00000, .00056, .00074, + .23595, .06631, -.01784, .00149, -.00008, + .00000, .00054, .00070, + .21864, .06097, -.01663, .00135, -.00005, + .00000, .00048, .00063, + .20507, .05684, -.01556, .00124, -.00003, + -.00009, .00047, .00059, + .19111, .05261, -.01466, .00113, -.00001, + -.00006, .00043, .00058, + .17772, .04861, -.01366, .00106, .00000, + -.00005, .00040, .00053, + .16647, .04528, -.01271, .00098, .00001, + -.00004, .00038, .00048 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .15597, .04221, -.01178, .00088, .00002, + -.00002, .00036, .00043, + .14782, .03984, -.01106, .00083, .00003, + -.00001, .00034, .00041, + .13856, .03715, -.01021, .00079, .00004, + .00000, .00032, .00038, + .13094, .03495, -.00948, .00075, .00003, + .00000, .00029, .00036, + .12441, .03309, -.00886, .00070, .00003, + .00000, .00027, .00034, + .11665, .03085, -.00808, .00063, .00004, + .00001, .00026, .00029, + .10983, .02892, -.00742, .00057, .00004, + .00001, .00023, .00027, + .10387, .02724, -.00685, .00054, .00004, + .00001, .00022, .00023 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09826, .02567, -.00631, .00050, .00004, + .00002, .00021, .00024, + .09310, .02423, -.00582, .00046, .00004, + .00002, .00019, .00023, + .08850, .02295, -.00540, .00044, .00004, + .00002, .00018, .00023, + .08438, .02182, -.00500, .00043, .00004, + .00002, .00016, .00020, + .08048, .02074, -.00466, .00042, .00004, + .00002, .00015, .00019, + .07683, .01974, -.00432, .00039, .00004, + .00002, .00014, .00018, + .07356, .01884, -.00402, .00037, .00003, + .00002, .00014, .00015, + .07058, .01804, -.00376, .00034, .00003, + .00002, .00013, .00015 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06773, .01726, -.00352, .00032, .00003, + .00002, .00013, .00014, + .06503, .01653, -.00329, .00029, .00003, + .00002, .00012, .00014, + .06256, .01586, -.00308, .00028, .00003, + .00002, .00012, .00013, + .06032, .01525, -.00290, .00027, .00004, + .00003, .00011, .00013, + .05814, .01468, -.00273, .00026, .00004, + .00003, .00011, .00013 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .38075, .11001, -.04077, .00182, .00000, + .00000, .00047, .00078, + .35594, .10197, -.03918, .00173, .00000, + .00000, .00054, .00078, + .32308, .09152, -.03573, .00160, -.00038, + .00000, .00047, .00071, + .30188, .08486, -.03413, .00148, -.00030, + .00000, .00051, .00066, + .28123, .07842, -.03234, .00139, -.00024, + .00000, .00050, .00066, + .26470, .07342, -.03058, .00128, -.00018, + .00000, .00048, .00060, + .24997, .06895, -.02892, .00120, -.00015, + .00000, .00043, .00057, + .23543, .06452, -.02720, .00112, -.00011, + .00000, .00040, .00055 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .22359, .06097, -.02577, .00107, -.00009, + .00000, .00041, .00051, + .21284, .05776, -.02440, .00101, -.00007, + .00000, .00042, .00047, + .20478, .05533, -.02334, .00095, -.00006, + .00000, .00042, .00047, + .18869, .05065, -.02116, .00088, -.00004, + .00000, .00040, .00043, + .17630, .04703, -.01943, .00081, -.00003, + -.00006, .00034, .00040, + .16353, .04336, -.01776, .00074, -.00002, + -.00005, .00030, .00036, + .15136, .03988, -.01614, .00067, -.00001, + -.00004, .00028, .00034, + .14126, .03701, -.01482, .00061, .00000, + -.00002, .00028, .00030 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .13185, .03434, -.01353, .00055, .00001, + -.00001, .00025, .00029, + .12455, .03232, -.01254, .00050, .00001, + -.00001, .00024, .00027, + .11634, .03003, -.01143, .00046, .00002, + .00000, .00021, .00026, + .10960, .02817, -.01052, .00044, .00002, + .00000, .00020, .00022, + .10378, .02658, -.00975, .00041, .00002, + .00000, .00019, .00022, + .09692, .02470, -.00884, .00039, .00003, + .00001, .00018, .00020, + .09094, .02307, -.00806, .00037, .00003, + .00001, .00017, .00018, + .08572, .02167, -.00736, .00034, .00002, + .00001, .00015, .00016 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .08084, .02036, -.00674, .00031, .00002, + .00001, .00014, .00015, + .07638, .01917, -.00616, .00029, .00002, + .00001, .00013, .00014, + .07244, .01810, -.00569, .00026, .00002, + .00001, .00013, .00013, + .06889, .01716, -.00526, .00025, .00002, + .00001, .00012, .00013, + .06551, .01628, -.00486, .00024, .00002, + .00001, .00012, .00011, + .06239, .01546, -.00451, .00023, .00002, + .00001, .00010, .00012, + .05960, .01471, -.00418, .00020, .00003, + .00002, .00009, .00012, + .05707, .01405, -.00390, .00019, .00003, + .00002, .00009, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05463, .01342, -.00363, .00018, .00002, + .00002, .00008, .00010, + .05235, .01282, -.00338, .00018, .00002, + .00002, .00008, .00009, + .05026, .01228, -.00318, .00017, .00002, + .00002, .00008, .00009, + .04837, .01180, -.00300, .00016, .00002, + .00002, .00008, .00009, + .04653, .01132, -.00279, .00014, .00002, + .00002, .00007, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .34133, .09508, -.05705, .00153, .00000, + .00000, .00018, .00031, + .31756, .08772, -.05305, .00136, .00000, + .00000, .00024, .00034, + .28607, .07819, -.04698, .00127, -.00027, + .00000, .00025, .00036, + .26593, .07215, -.04358, .00121, -.00021, + .00000, .00027, .00032, + .24656, .06636, -.04003, .00104, -.00017, + .00000, .00023, .00032, + .23117, .06185, -.03722, .00097, -.00013, + .00000, .00022, .00030, + .21748, .05785, -.03466, .00090, -.00010, + .00000, .00024, .00028, + .20400, .05393, -.03212, .00085, -.00008, + .00000, .00025, .00028 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .19306, .05078, -.03002, .00081, -.00007, + .00000, .00023, .00028, + .18319, .04796, -.02800, .00074, -.00006, + .00000, .00020, .00025, + .17580, .04587, -.02658, .00071, -.00005, + .00000, .00019, .00025, + .16125, .04179, -.02377, .00062, -.00002, + .00000, .00019, .00025, + .14997, .03864, -.02159, .00060, -.00002, + -.00005, .00017, .00022, + .13848, .03546, -.01948, .00053, -.00001, + -.00003, .00016, .00019, + .12763, .03247, -.01748, .00045, .00000, + -.00002, .00015, .00018, + .11861, .03000, -.01580, .00042, .00001, + -.00001, .00012, .00016 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .11021, .02773, -.01432, .00041, .00001, + -.00001, .00013, .00015, + .10376, .02601, -.01316, .00040, .00000, + -.00001, .00012, .00014, + .09658, .02408, -.01188, .00034, .00000, + -.00001, .00011, .00013, + .09068, .02252, -.01087, .00031, .00001, + .00000, .00010, .00013, + .08565, .02118, -.00999, .00029, .00001, + .00000, .00010, .00010, + .07969, .01962, -.00900, .00026, .00001, + .00000, .00009, .00010, + .07452, .01825, -.00813, .00023, .00001, + .00000, .00007, .00009, + .07003, .01708, -.00742, .00022, .00001, + .00000, .00008, .00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06583, .01600, -.00677, .00022, .00001, + .00000, .00006, .00008, + .06199, .01502, -.00620, .00021, .00001, + .00000, .00007, .00008, + .05861, .01415, -.00567, .00019, .00002, + .00001, .00005, .00007, + .05561, .01338, -.00522, .00018, .00002, + .00001, .00005, .00007, + .05278, .01266, -.00484, .00017, .00002, + .00001, .00006, .00007, + .05014, .01198, -.00446, .00015, .00002, + .00001, .00006, .00006, + .04778, .01139, -.00415, .00016, .00002, + .00001, .00006, .00006, + .04563, .01086, -.00385, .00014, .00002, + .00001, .00004, .00006 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04359, .01034, -.00357, .00013, .00001, + .00001, .00004, .00006, + .04167, .00986, -.00334, .00013, .00001, + .00001, .00005, .00006, + .03994, .00943, -.00311, .00012, .00001, + .00001, .00005, .00004, + .03836, .00903, -.00290, .00010, .00001, + .00001, .00003, .00004, + .03683, .00866, -.00273, .00010, .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)/ + .30157, .08032, -.06695, .00083, .00000, + .00000, .00026, .00029, + .27897, .07377, -.06110, .00080, .00000, + .00000, .00024, .00026, + .24963, .06530, -.05317, .00069, -.00018, + .00000, .00023, .00029, + .23097, .05999, -.04853, .00063, -.00014, + .00000, .00023, .00027, + .21299, .05494, -.04396, .00059, -.00011, + .00000, .00021, .00023, + .19881, .05097, -.04035, .00056, -.00009, + .00000, .00020, .00022, + .18628, .04751, -.03718, .00053, -.00007, + .00000, .00018, .00021, + .17402, .04413, -.03400, .00048, -.00006, + .00000, .00016, .00019 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .16412, .04142, -.03149, .00043, -.00005, + .00000, .00015, .00019, + .15520, .03901, -.02923, .00042, -.00004, + .00000, .00016, .00018, + .14853, .03722, -.02759, .00041, -.00004, + .00000, .00015, .00017, + .13547, .03371, -.02430, .00036, -.00003, + .00000, .00014, .00014, + .12551, .03103, -.02191, .00032, -.00002, + -.00003, .00013, .00015, + .11536, .02834, -.01955, .00028, -.00001, + -.00002, .00012, .00013, + .10577, .02583, -.01739, .00025, -.00001, + -.00001, .00012, .00011, + .09787, .02379, -.01563, .00024, -.00001, + -.00001, .00011, .00011 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .09061, .02190, -.01401, .00021, .00000, + .00000, .00009, .00010, + .08505, .02046, -.01283, .00020, .00000, + .00000, .00010, .00008, + .07877, .01887, -.01150, .00019, .00000, + .00000, .00008, .00008, + .07368, .01758, -.01045, .00018, .00000, + .00000, .00007, .00008, + .06937, .01648, -.00956, .00016, .00000, + .00000, .00007, .00007, + .06429, .01521, -.00855, .00015, .00000, + .00000, .00006, .00006, + .05990, .01411, -.00770, .00013, .00000, + .00000, .00006, .00006, + .05612, .01317, -.00700, .00012, .00001, + .00001, .00006, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .05258, .01229, -.00634, .00011, .00001, + .00001, .00004, .00005, + .04937, .01150, -.00578, .00009, .00001, + .00001, .00005, .00005, + .04653, .01080, -.00529, .00009, .00001, + .00001, .00005, .00005, + .04402, .01019, -.00486, .00010, .00001, + .00001, .00005, .00004, + .04166, .00961, -.00445, .00008, .00001, + .00001, .00003, .00003, + .03947, .00907, -.00410, .00008, .00001, + .00001, .00003, .00003, + .03752, .00861, -.00379, .00007, .00001, + .00001, .00003, .00003, + .03576, .00817, -.00352, .00007, .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)/ + .03407, .00777, -.00327, .00007, .00001, + .00001, .00003, .00003, + .03249, .00739, -.00304, .00007, .00001, + .00001, .00002, .00003, + .03109, .00706, -.00283, .00006, .00001, + .00001, .00002, .00003, + .02980, .00674, -.00266, .00006, .00001, + .00001, .00002, .00003, + .02854, .00645, -.00248, .00006, .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)/ + .22544, .05528, -.07256, .00041, .00000, + .00000, .00006, .00007, + .20629, .05020, -.06474, .00033, .00000, + .00000, .00008, .00008, + .18177, .04378, -.05481, .00031, -.00007, + .00000, .00008, .00004, + .16639, .03983, -.04897, .00029, -.00006, + .00000, .00007, .00005, + .15183, .03608, -.04346, .00023, -.00005, + .00000, .00007, .00007, + .14051, .03318, -.03929, .00019, -.00004, + .00000, .00009, .00009, + .13054, .03067, -.03563, .00017, -.00003, + .00000, .00008, .00009, + .12088, .02826, -.03214, .00018, -.00003, + .00000, .00006, .00008 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .11319, .02633, -.02941, .00017, -.00002, + .00000, .00006, .00006, + .10629, .02462, -.02701, .00017, -.00002, + .00000, .00006, .00006, + .10119, .02336, -.02520, .00015, -.00002, + .00000, .00005, .00005, + .09126, .02093, -.02185, .00014, -.00001, + .00000, .00005, .00005, + .08376, .01910, -.01942, .00013, -.00001, + -.00001, .00005, .00003, + .07622, .01728, -.01707, .00011, -.00001, + -.00001, .00003, .00005, + .06919, .01559, -.01494, .00009, -.00001, + -.00001, .00003, .00005, + .06344, .01422, -.01324, .00009, -.00001, + -.00001, .00004, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .05819, .01300, -.01173, .00009, -.00001, + -.00001, .00004, .00002, + .05424, .01205, -.01061, .00008, .00000, + .00000, .00002, .00002, + .04986, .01102, -.00941, .00006, .00000, + .00000, .00002, .00002, + .04632, .01019, -.00850, .00005, .00000, + .00000, .00003, .00002, + .04330, .00950, -.00770, .00005, .00000, + .00000, .00002, .00002, + .03979, .00869, -.00682, .00005, .00000, + .00000, .00002, .00002, + .03679, .00801, -.00612, .00005, .00000, + .00000, .00003, .00003, + .03422, .00742, -.00550, .00004, .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=25,32)/ + .03185, .00688, -.00495, .00004, .00000, + .00000, .00003, .00001, + .02971, .00639, -.00446, .00004, .00000, + .00000, .00001, .00001, + .02783, .00596, -.00405, .00004, .00000, + .00000, .00001, .00001, + .02619, .00560, -.00371, .00002, .00000, + .00000, .00001, .00003, + .02465, .00525, -.00340, .00002, .00000, + .00000, .00001, .00003, + .02322, .00494, -.00310, .00002, .00000, + .00000, .00001, .00001, + .02194, .00465, -.00285, .00002, .00000, + .00000, .00001, .00001, + .02082, .00441, -.00264, .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)/ + .01975, .00416, -.00245, .00003, .00000, + .00000, .00001, .00001, + .01875, .00394, -.00226, .00003, .00000, + .00000, .00001, .00001, + .01786, .00375, -.00210, .00001, .00000, + .00000, .00001, .00001, + .01704, .00357, -.00196, .00001, .00000, + .00000, .00001, .00001, + .01625, .00340, -.00182, .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)/ + .15683, .03505, -.06398, .00008, .00000, + .00000, .00001, .00003, + .14187, .03149, -.05631, .00010, .00000, + .00000, .00001, .00004, + .12296, .02704, -.04676, .00010, -.00003, + .00000, .00002, .00005, + .11130, .02432, -.04113, .00008, -.00002, + .00000, .00003, .00005, + .10042, .02180, -.03596, .00008, -.00002, + .00000, .00003, .00003, + .09200, .01987, -.03203, .00008, -.00001, + .00000, .00001, .00001, + .08473, .01821, -.02870, .00008, -.00001, + .00000, .00001, -.00001, + .07776, .01663, -.02560, .00006, -.00001, + .00000, .00001, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .07223, .01538, -.02321, .00004, -.00001, + .00000, .00001, .00001, + .06733, .01426, -.02110, .00004, -.00001, + .00000, .00001, .00001, + .06372, .01345, -.01959, .00004, -.00001, + .00000, .00001, .00001, + .05676, .01192, -.01674, .00004, .00000, + .00000, .00001, .00001, + .05161, .01077, -.01471, .00002, .00000, + .00000, .00001, .00001, + .04645, .00965, -.01278, .00002, .00000, + .00000, .00001, .00001, + .04171, .00862, -.01106, .00003, .00000, + .00000, .00001, .00001, + .03787, .00778, -.00968, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .03442, .00703, -.00850, .00002, .00000, + .00000, .00001, .00001, + .03183, .00648, -.00765, .00003, .00000, + .00000, .00001, .00001, + .02898, .00588, -.00673, .00003, .00000, + .00000, .00001, .00001, + .02670, .00538, -.00599, .00001, .00000, + .00000, .00000, .00001, + .02480, .00498, -.00541, .00001, .00000, + .00000, .00001, .00001, + .02258, .00452, -.00475, .00001, .00000, + .00000, .00001, .00001, + .02071, .00412, -.00419, .00001, .00000, + .00000, .00000, .00000, + .01914, .00380, -.00375, .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)/ + .01766, .00349, -.00335, .00001, .00000, + .00000, .00000, .00000, + .01635, .00323, -.00300, .00001, .00000, + .00000, .00000, .00000, + .01523, .00299, -.00271, .00001, .00000, + .00000, .00000, .00000, + .01423, .00280, -.00247, .00001, .00000, + .00000, .00000, .00000, + .01331, .00260, -.00223, .00001, .00000, + .00000, .00000, .00000, + .01246, .00243, -.00204, .00001, .00000, + .00000, .00000, .00000, + .01171, .00228, -.00186, .00001, .00000, + .00000, .00000, .00000, + .01106, .00214, -.00172, .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=33,37)/ + .01043, .00201, -.00157, .00000, .00000, + .00000, .00000, .00000, + .00986, .00190, -.00145, .00000, .00000, + .00000, .00000, .00000, + .00933, .00180, -.00134, .00000, .00000, + .00000, .00000, .00000, + .00887, .00170, -.00124, .00000, .00000, + .00000, .00000, .00000, + .00843, .00162, -.00115, .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)/ + .09934, .02003, -.04829, .00010, .00000, + .00000, -.00001, -.00001, + .08870, .01780, -.04180, .00007, .00000, + .00000, -.00001, -.00004, + .07555, .01501, -.03410, .00004, -.00001, + .00000, -.00001, -.00001, + .06756, .01333, -.02958, .00004, -.00001, + .00000, -.00001, -.00001, + .06017, .01180, -.02553, .00004, .00000, + .00000, .00000, .00000, + .05456, .01066, -.02252, .00004, .00000, + .00000, .00000, .00000, + .04974, .00966, -.01998, .00002, .00000, + .00000, .00000, .00002, + .04517, .00873, -.01764, .00002, .00000, + .00000, .00000, .00002 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .04158, .00800, -.01580, .00002, .00000, + .00000, .00000, .00000, + .03845, .00738, -.01427, .00002, .00000, + .00000, .00000, .00000, + .03614, .00691, -.01315, .00002, .00000, + .00000, .00000, .00000, + .03180, .00605, -.01111, .00002, .00000, + .00000, .00000, .00000, + .02858, .00541, -.00966, .00002, .00000, + .00000, .00000, .00000, + .02541, .00478, -.00828, .00002, .00000, + .00000, .00000, .00000, + .02255, .00421, -.00706, .00000, .00000, + .00000, .00000, .00000, + .02025, .00377, -.00614, .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=17,24)/ + .01821, .00337, -.00533, .00002, .00000, + .00000, .00000, .00000, + .01669, .00308, -.00473, .00000, .00000, + .00000, .00000, .00000, + .01503, .00276, -.00411, .00000, .00000, + .00000, .00000, .00000, + .01372, .00252, -.00364, .00000, .00000, + .00000, .00000, .00000, + .01265, .00231, -.00326, .00000, .00000, + .00000, .00000, .00000, + .01141, .00207, -.00283, .00000, .00000, + .00000, .00000, .00000, + .01037, .00188, -.00249, .00000, .00000, + .00000, .00000, .00000, + .00948, .00171, -.00220, .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)/ + .00869, .00156, -.00195, .00000, .00000, + .00000, .00000, .00000, + .00798, .00143, -.00174, .00000, .00000, + .00000, .00000, .00000, + .00737, .00131, -.00156, .00000, .00000, + .00000, .00000, .00000, + .00684, .00121, -.00140, .00000, .00000, + .00000, .00000, .00000, + .00635, .00113, -.00127, .00000, .00000, + .00000, .00000, .00000, + .00592, .00104, -.00115, .00000, .00000, + .00000, .00000, .00000, + .00553, .00097, -.00105, .00000, .00000, + .00000, .00000, .00000, + .00518, .00091, -.00095, .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)/ + .00485, .00085, -.00087, .00000, .00000, + .00000, .00000, .00000, + .00456, .00080, -.00080, .00000, .00000, + .00000, .00000, .00000, + .00429, .00075, -.00073, .00000, .00000, + .00000, .00000, .00000, + .00405, .00071, -.00068, .00000, .00000, + .00000, .00000, .00000, + .00384, .00066, -.00062, .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)/ + .05510, .00971, -.03058, .00000, .00000, + .00000, .00000, .00000, + .04852, .00852, -.02623, .00000, .00000, + .00000, .00000, .00002, + .04048, .00710, -.02099, .00000, .00000, + .00000, .00000, .00000, + .03568, .00621, -.01795, .00000, .00000, + .00000, .00000, .00000, + .03133, .00543, -.01530, .00000, .00000, + .00000, .00000, .00000, + .02805, .00483, -.01331, .00000, .00000, + .00000, .00000, .00000, + .02528, .00434, -.01169, .00000, .00000, + .00000, .00000, .00000, + .02270, .00388, -.01022, .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)/ + .02068, .00351, -.00907, .00000, .00000, + .00000, .00000, .00000, + .01894, .00323, -.00814, .00000, .00000, + .00000, .00000, .00000, + .01765, .00299, -.00742, .00000, .00000, + .00000, .00000, .00000, + .01529, .00257, -.00617, .00000, .00000, + .00000, .00000, .00000, + .01356, .00228, -.00531, .00000, .00000, + .00000, .00000, .00000, + .01190, .00198, -.00449, .00000, .00000, + .00000, .00000, .00000, + .01039, .00173, -.00378, .00000, .00000, + .00000, .00000, .00000, + .00921, .00153, -.00324, .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)/ + .00818, .00136, -.00278, .00000, .00000, + .00000, .00000, .00000, + .00741, .00122, -.00245, .00000, .00000, + .00000, .00000, .00000, + .00660, .00110, -.00211, .00000, .00000, + .00000, .00000, .00000, + .00597, .00098, -.00185, .00000, .00000, + .00000, .00000, .00000, + .00543, .00088, -.00162, .00000, .00000, + .00000, .00000, .00000, + .00485, .00080, -.00141, .00000, .00000, + .00000, .00000, .00000, + .00436, .00070, -.00122, .00000, .00000, + .00000, .00000, .00000, + .00395, .00064, -.00107, .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)/ + .00357, .00056, -.00093, .00000, .00000, + .00000, .00000, .00000, + .00326, .00052, -.00083, .00000, .00000, + .00000, .00000, .00000, + .00297, .00049, -.00074, .00000, .00000, + .00000, .00000, .00000, + .00274, .00044, -.00066, .00000, .00000, + .00000, .00000, .00000, + .00253, .00040, -.00059, .00000, .00000, + .00000, .00000, .00000, + .00232, .00037, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00216, .00034, -.00048, .00000, .00000, + .00000, .00000, .00000, + .00202, .00031, -.00044, .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)/ + .00188, .00030, -.00040, .00000, .00000, + .00000, .00000, .00000, + .00175, .00027, -.00036, .00000, .00000, + .00000, .00000, .00000, + .00164, .00026, -.00033, .00000, .00000, + .00000, .00000, .00000, + .00154, .00024, -.00030, .00000, .00000, + .00000, .00000, .00000, + .00144, .00022, -.00027, .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)/ + .00785, .00104, -.00553, .00000, .00000, + .00000, .00000, .00000, + .00662, .00086, -.00454, .00000, .00000, + .00000, .00000, .00000, + .00520, .00067, -.00344, .00000, .00000, + .00000, .00000, .00000, + .00440, .00057, -.00284, .00000, .00000, + .00000, .00000, .00000, + .00369, .00048, -.00232, .00000, .00000, + .00000, .00000, .00000, + .00319, .00042, -.00196, .00000, .00000, + .00000, .00000, .00000, + .00279, .00036, -.00167, .00000, .00000, + .00000, .00000, .00000, + .00241, .00031, -.00140, .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)/ + .00213, .00028, -.00122, .00000, .00000, + .00000, .00000, .00000, + .00189, .00023, -.00105, .00000, .00000, + .00000, .00000, .00000, + .00174, .00023, -.00097, .00000, .00000, + .00000, .00000, .00000, + .00144, .00018, -.00077, .00000, .00000, + .00000, .00000, .00000, + .00122, .00015, -.00063, .00000, .00000, + .00000, .00000, .00000, + .00102, .00013, -.00052, .00000, .00000, + .00000, .00000, .00000, + .00086, .00011, -.00042, .00000, .00000, + .00000, .00000, .00000, + .00074, .00009, -.00035, .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)/ + .00064, .00007, -.00029, .00000, .00000, + .00000, .00000, .00000, + .00056, .00007, -.00025, .00000, .00000, + .00000, .00000, .00000, + .00048, .00005, -.00020, .00000, .00000, + .00000, .00000, .00000, + .00041, .00005, -.00017, .00000, .00000, + .00000, .00000, .00000, + .00037, .00005, -.00015, .00000, .00000, + .00000, .00000, .00000, + .00032, .00003, -.00012, .00000, .00000, + .00000, .00000, .00000, + .00027, .00003, -.00010, .00000, .00000, + .00000, .00000, .00000, + .00024, .00003, -.00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00022, .00003, -.00008, .00000, .00000, + .00000, .00000, .00000, + .00019, .00003, -.00007, .00000, .00000, + .00000, .00000, .00000, + .00017, .00001, -.00006, .00000, .00000, + .00000, .00000, .00000, + .00016, .00001, -.00005, .00000, .00000, + .00000, .00000, .00000, + .00014, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, -.00004, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00009, .00001, -.00003, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, -.00002, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='cor11dis.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