#include "pdf/pilot.h" subroutine sfmrs_98a4(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)/ + .00586, .00199, .88070, .92272, .00000, + .00000, .49147, .93890, + .00601, .00204, 2.22967, .95548, .00000, + .00000, .52910, .97170, + .00623, .00212, 4.83436, 1.02321, .00063, + .00000, .60389, 1.03947, + .00639, .00218, 7.26351, 1.09005, .06050, + .00000, .67576, 1.10632, + .00657, .00225, 10.38230, 1.17632, .16014, + .00000, .76722, 1.19261, + .00672, .00231, 13.50808, 1.26659, .24542, + .00000, .86188, 1.28288, + .00687, .00236, 16.95069, 1.36691, .34140, + .00000, .96633, 1.38319, + .00702, .00243, 21.22224, 1.48681, .46308, + .00000, 1.09054, 1.50308 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00716, .00248, 25.29276, 1.60599, .57623, + .00000, 1.21341, 1.62224, + .00729, .00254, 29.73035, 1.73205, .70179, + .00000, 1.34296, 1.74827, + .00740, .00258, 33.50856, 1.84142, .80771, + .00000, 1.45507, 1.85763, + .00763, .00267, 42.54420, 2.10144, 1.06426, + .00045, 1.72081, 2.11759, + .00783, .00276, 51.38446, 2.35690, 1.31801, + .21354, 1.98110, 2.37300, + .00806, .00285, 62.45731, 2.67895, 1.63860, + .60394, 2.30841, 2.69498, + .00830, .00296, 75.45417, 3.05782, 2.01654, + .99795, 2.69263, 3.07377, + .00852, .00305, 88.41704, 3.44070, 2.39389, + 1.37850, 3.08025, 3.45657 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00874, .00315, 102.85153, 3.86700, 2.81711, + 1.81556, 3.51122, 3.88277, + .00893, .00323, 115.95238, 4.25332, 3.20382, + 2.22018, 3.90133, 4.26901, + .00916, .00333, 132.98741, 4.76113, 3.70954, + 2.73997, 4.41365, 4.77672, + .00936, .00343, 149.13029, 5.24701, 4.19235, + 3.23338, 4.90343, 5.26250, + .00955, .00351, 165.09706, 5.72685, 4.67328, + 3.73186, 5.38677, 5.74225, + .00980, .00362, 186.47972, 6.37846, 5.32259, + 4.39576, 6.04275, 6.39375, + .01003, .00373, 207.93051, 7.03793, 5.98017, + 5.06807, 6.70623, 7.05310, + .01025, .00383, 229.43666, 7.70162, 6.64505, + 5.75186, 7.37359, 7.71668 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .01047, .00393, 251.86169, 8.40359, 7.34520, + 6.46566, 8.07916, 8.41852, + .01069, .00403, 275.03058, 9.13363, 8.07513, + 7.21194, 8.81266, 9.14845, + .01090, .00413, 298.05942, 9.86484, 8.80702, + 7.96039, 9.54708, 9.87955, + .01110, .00422, 320.48654, 10.58538, 9.52680, + 8.69369, 10.27060, 10.59999, + .01130, .00432, 344.13333, 11.34867, 10.29145, + 9.47513, 11.03682, 11.36317, + .01150, .00441, 367.97964, 12.12838, 11.07055, + 10.26784, 11.81938, 12.14277, + .01170, .00450, 391.67102, 12.90666, 11.85021, + 11.06331, 12.60031, 12.92094, + .01188, .00459, 414.58792, 13.66795, 12.61167, + 11.83807, 13.36408, 13.68214 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01207, .00468, 438.46045, 14.46656, 13.41101, + 12.65161, 14.16515, 14.48064, + .01225, .00477, 462.76813, 15.28523, 14.23124, + 13.48712, 14.98622, 15.29921, + .01243, .00485, 486.32785, 16.08779, 15.03383, + 14.30212, 15.79104, 16.10168, + .01260, .00494, 509.62466, 16.88289, 15.83149, + 15.11512, 16.58825, 16.89670, + .01278, .00502, 533.22858, 17.70005, 16.64858, + 15.94396, 17.40752, 17.71376 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00792, .00276, .92268, .77768, .00000, + .00000, .41371, .78702, + .00813, .00284, 2.16837, .80907, .00000, + .00000, .44885, .81843, + .00843, .00296, 4.50646, .87081, .00058, + .00000, .51602, .88018, + .00866, .00305, 6.63257, .92957, .05263, + .00000, .57865, .93895, + .00890, .00315, 9.31193, 1.00396, .13848, + .00000, .65702, 1.01334, + .00911, .00324, 11.95417, 1.08045, .21063, + .00000, .73688, 1.08983, + .00931, .00332, 14.82413, 1.16441, .29099, + .00000, .82402, 1.17379, + .00952, .00341, 18.33987, 1.26399, .39192, + .00000, .92690, 1.27336 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00971, .00349, 21.64874, 1.36184, .48477, + .00000, 1.02757, 1.37120, + .00990, .00357, 25.21993, 1.46472, .58708, + .00000, 1.13313, 1.47406, + .01004, .00364, 28.23275, 1.55333, .67275, + .00000, 1.22383, 1.56266, + .01036, .00377, 35.35189, 1.76230, .87844, + .00039, 1.43718, 1.77160, + .01063, .00390, 42.21458, 1.96555, 1.07969, + .16878, 1.64412, 1.97482, + .01094, .00403, 50.69024, 2.21929, 1.33136, + .47538, 1.90188, 2.22852, + .01127, .00418, 60.50304, 2.51479, 1.62492, + .78065, 2.20147, 2.52398, + .01157, .00432, 70.16046, 2.81039, 1.91499, + 1.07230, 2.50068, 2.81953 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01188, .00446, 80.78963, 3.13668, 2.23744, + 1.40434, 2.83053, 3.14576, + .01213, .00458, 90.33891, 3.43011, 2.52980, + 1.70938, 3.12686, 3.43915, + .01245, .00472, 102.62627, 3.81271, 2.90899, + 2.09782, 3.51289, 3.82169, + .01272, .00485, 114.14958, 4.17583, 3.26806, + 2.46349, 3.87899, 4.18476, + .01298, .00497, 125.45138, 4.53210, 3.62343, + 2.83066, 4.23794, 4.54098, + .01331, .00513, 140.43799, 5.01216, 4.09946, + 3.31564, 4.72132, 5.02098, + .01363, .00528, 155.32347, 5.49420, 4.57779, + 3.80294, 5.20641, 5.50295, + .01392, .00542, 170.11800, 5.97596, 5.05815, + 4.29531, 5.69098, 5.98465 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01422, .00557, 185.40556, 6.48186, 5.56033, + 4.80543, 6.19963, 6.49048, + .01452, .00571, 201.07309, 7.00457, 6.08055, + 5.33545, 6.72498, 7.01314, + .01480, .00584, 216.52696, 7.52489, 6.59899, + 5.86383, 7.24775, 7.53340, + .01507, .00598, 231.46297, 8.03451, 7.10576, + 6.37830, 7.75964, 8.04296, + .01534, .00611, 247.11029, 8.57152, 7.64138, + 6.92388, 8.29889, 8.57991, + .01561, .00624, 262.77499, 9.11689, 8.18392, + 7.47399, 8.84644, 9.12522, + .01587, .00637, 278.24603, 9.65860, 8.72432, + 8.02355, 9.39018, 9.66688, + .01611, .00649, 293.11594, 10.18578, 9.24938, + 8.55600, 9.91925, 10.19400 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01636, .00661, 308.51913, 10.73625, 9.79809, + 9.11264, 10.47161, 10.74442, + .01661, .00673, 324.11700, 11.29800, 10.35867, + 9.68185, 11.03519, 11.30612, + .01685, .00685, 339.14505, 11.84610, 10.90456, + 10.23436, 11.58502, 11.85417, + .01708, .00697, 353.94315, 12.38711, 11.44526, + 10.78382, 12.12765, 12.39513, + .01731, .00708, 368.84518, 12.94053, 11.99644, + 11.34111, 12.68268, 12.94850 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .01071, .00383, .96766, .65516, .00000, + .00000, .34838, .65975, + .01099, .00395, 2.11064, .68479, .00000, + .00000, .38089, .68938, + .01141, .00413, 4.20301, .74076, .00053, + .00000, .44101, .74535, + .01172, .00427, 6.05855, .79233, .04577, + .00000, .49555, .79692, + .01205, .00441, 8.35365, .85642, .11972, + .00000, .56269, .86101, + .01234, .00454, 10.58026, .92120, .18072, + .00000, .63004, .92579, + .01262, .00467, 12.96493, .99143, .24795, + .00000, .70269, .99601, + .01292, .00480, 15.84857, 1.07404, .33158, + .00000, .78781, 1.07861 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01317, .00492, 18.52834, 1.15427, .40769, + .00000, .87019, 1.15883, + .01343, .00504, 21.39123, 1.23809, .49095, + .00000, .95605, 1.24264, + .01363, .00513, 23.78404, 1.30973, .56014, + .00000, 1.02928, 1.31427, + .01406, .00533, 29.36930, 1.47728, .72478, + .00035, 1.20016, 1.48181, + .01444, .00551, 34.67224, 1.63855, .88411, + .13332, 1.36422, 1.64305, + .01486, .00571, 41.12767, 1.83784, 1.08127, + .37398, 1.56656, 1.84232, + .01531, .00592, 48.49774, 2.06752, 1.30878, + .61034, 1.79934, 2.07198, + .01572, .00611, 55.65247, 2.29485, 1.53120, + .83364, 2.02941, 2.29929 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01613, .00631, 63.43407, 2.54356, 1.77621, + 1.08564, 2.28082, 2.54798, + .01648, .00648, 70.35272, 2.76549, 1.99661, + 1.31532, 2.50494, 2.76989, + .01691, .00669, 79.15980, 3.05245, 2.28007, + 1.60520, 2.79449, 3.05682, + .01728, .00688, 87.33150, 3.32255, 2.54624, + 1.87576, 3.06684, 3.32689, + .01763, .00705, 95.27763, 3.58580, 2.80796, + 2.14575, 3.33211, 3.59012, + .01808, .00727, 105.70777, 3.93769, 3.15571, + 2.49933, 3.68651, 3.94197, + .01851, .00748, 115.96183, 4.28818, 3.50235, + 2.85176, 4.03931, 4.29244, + .01891, .00768, 126.06320, 4.63602, 3.84806, + 3.20549, 4.38927, 4.64026 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01931, .00788, 136.40358, 4.99859, 4.20678, + 3.56911, 4.75391, 5.00279, + .01971, .00808, 146.91354, 5.37073, 4.57598, + 3.94453, 5.12805, 5.37491, + .02009, .00827, 157.19888, 5.73884, 4.94163, + 4.31647, 5.49801, 5.74299, + .02045, .00846, 167.06117, 6.09713, 5.29680, + 4.67631, 5.85801, 6.10126, + .02081, .00864, 177.32535, 6.47265, 5.67026, + 5.05600, 6.23523, 6.47676, + .02117, .00883, 187.52299, 6.85176, 6.04626, + 5.43647, 6.61597, 6.85584, + .02152, .00900, 197.53407, 7.22644, 6.41899, + 5.81481, 6.99220, 7.23050, + .02184, .00917, 207.09143, 7.58916, 6.77921, + 6.17938, 7.35634, 7.59319 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02218, .00934, 216.93488, 7.96612, 7.15394, + 6.55880, 7.73473, 7.97014, + .02251, .00951, 226.84616, 8.34904, 7.53504, + 6.94508, 8.11904, 8.35304, + .02282, .00967, 236.33539, 8.72082, 7.90432, + 7.31810, 8.49212, 8.72480, + .02313, .00983, 245.63991, 9.08646, 8.26885, + 7.68792, 8.85899, 9.09042, + .02343, .00999, 254.94882, 9.45865, 8.63855, + 8.06098, 9.23239, 9.46259 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .01277, .00464, .99585, .59253, .00000, + .00000, .31515, .59516, + .01311, .00479, 2.07914, .62100, .00000, + .00000, .34609, .62363, + .01362, .00502, 4.03684, .67371, .00050, + .00000, .40236, .67634, + .01400, .00519, 5.74777, .72146, .04218, + .00000, .45264, .72408, + .01440, .00538, 7.84087, .78018, .10992, + .00000, .51396, .78279, + .01474, .00554, 9.85195, .83893, .16520, + .00000, .57490, .84154, + .01508, .00570, 11.98786, .90216, .22573, + .00000, .64019, .90476, + .01543, .00586, 14.55092, .97617, .30061, + .00000, .71635, .97876 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01575, .00601, 16.91485, 1.04753, .36832, + .00000, .78954, 1.05012, + .01605, .00616, 19.42508, 1.12182, .44206, + .00000, .86556, 1.12440, + .01629, .00627, 21.51147, 1.18501, .50307, + .00000, .93010, 1.18759, + .01681, .00652, 26.34610, 1.33205, .64748, + .00032, 1.07998, 1.33462, + .01726, .00674, 30.89482, 1.47268, .78630, + .11610, 1.22298, 1.47524, + .01777, .00699, 36.38441, 1.64542, .95703, + .32487, 1.39831, 1.64796, + .01831, .00725, 42.59977, 1.84324, 1.15277, + .52825, 1.59876, 1.84577, + .01880, .00750, 48.58418, 2.03779, 1.34290, + .71915, 1.79563, 2.04031 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01930, .00774, 55.04686, 2.24950, 1.55124, + .93343, 2.00963, 2.25201, + .01971, .00795, 60.75736, 2.43754, 1.73776, + 1.12783, 2.19952, 2.44003, + .02022, .00821, 67.97968, 2.67945, 1.97643, + 1.37187, 2.44363, 2.68193, + .02067, .00843, 74.63811, 2.90602, 2.19943, + 1.59849, 2.67210, 2.90848, + .02109, .00865, 81.07973, 3.12597, 2.41785, + 1.82379, 2.89377, 3.12843, + .02163, .00892, 89.48321, 3.41858, 2.70666, + 2.11734, 3.18849, 3.42102, + .02213, .00917, 97.69418, 3.70862, 2.99317, + 2.40853, 3.48049, 3.71105, + .02261, .00942, 105.74004, 3.99526, 3.27774, + 2.69964, 3.76893, 3.99768 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02309, .00966, 113.92963, 4.29272, 3.57170, + 2.99747, 4.06813, 4.29512, + .02356, .00991, 122.21209, 4.59682, 3.87306, + 3.30381, 4.37392, 4.59922, + .02401, .01014, 130.27927, 4.89650, 4.17042, + 3.60618, 4.67516, 4.89888, + .02444, .01036, 137.97757, 5.18709, 4.45817, + 3.89758, 4.96721, 5.18947, + .02487, .01059, 145.95813, 5.49069, 4.75981, + 4.20415, 5.27224, 5.49306, + .02530, .01081, 153.85011, 5.79608, 5.06239, + 4.51019, 5.57901, 5.79844, + .02571, .01102, 161.56978, 6.09703, 5.36149, + 4.81369, 5.88126, 6.09938, + .02609, .01123, 168.90933, 6.38743, 5.64962, + 5.10518, 6.17287, 6.38978 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02649, .01143, 176.44226, 6.68841, 5.94854, + 5.40772, 6.47505, 6.69075, + .02688, .01164, 184.00105, 6.99329, 6.25172, + 5.71491, 6.78111, 6.99563, + .02725, .01184, 191.21007, 7.28844, 6.54461, + 6.01064, 7.07736, 7.29077, + .02761, .01203, 198.26134, 7.57808, 6.83316, + 6.30329, 7.36804, 7.58041, + .02797, .01222, 205.28700, 7.87203, 7.12489, + 6.59754, 7.66302, 7.87435 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01448, .00532, 1.01696, .55171, .00000, + .00000, .29359, .55328, + .01487, .00550, 2.05814, .57933, .00000, + .00000, .32341, .58089, + .01545, .00577, 3.92413, .62979, .00048, + .00000, .37706, .63135, + .01588, .00598, 5.53811, .67497, .03979, + .00000, .42450, .67652, + .01633, .00619, 7.49716, .73013, .10344, + .00000, .48199, .73168, + .01673, .00638, 9.36647, .78494, .15497, + .00000, .53875, .78648, + .01711, .00656, 11.33991, .84361, .21115, + .00000, .59926, .84514, + .01751, .00676, 13.69499, .91204, .28035, + .00000, .66961, .91357 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01787, .00694, 15.85532, .97769, .34264, + .00000, .73689, .97922, + .01822, .00710, 18.13943, 1.04583, .41027, + .00000, .80658, 1.04735, + .01849, .00724, 20.03025, 1.10360, .46604, + .00000, .86556, 1.10512, + .01908, .00753, 24.38881, 1.23755, .59755, + .00030, 1.00202, 1.23906, + .01960, .00779, 28.46281, 1.36505, .72338, + .10521, 1.13165, 1.36656, + .02018, .00808, 33.34882, 1.52098, .87742, + .29390, 1.28988, 1.52248, + .02079, .00838, 38.84768, 1.69873, 1.05323, + .47665, 1.46997, 1.70023, + .02134, .00866, 44.11090, 1.87274, 1.22320, + .64737, 1.64604, 1.87423 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .02191, .00895, 49.76577, 2.06137, 1.40873, + .83829, 1.83670, 2.06285, + .02238, .00919, 54.74022, 2.22834, 1.57428, + 1.01091, 2.00532, 2.22982, + .02296, .00949, 61.00223, 2.44236, 1.78533, + 1.22677, 2.22130, 2.44384, + .02347, .00975, 66.74857, 2.64210, 1.98182, + 1.42648, 2.42273, 2.64357, + .02395, .00999, 72.28745, 2.83546, 2.17374, + 1.62451, 2.61761, 2.83693, + .02455, .01031, 79.48110, 3.09178, 2.42662, + 1.88158, 2.87582, 3.09325, + .02512, .01060, 86.47865, 3.34498, 2.67661, + 2.13569, 3.13075, 3.34645, + .02566, .01089, 93.30938, 3.59446, 2.92418, + 2.38901, 3.38182, 3.59592 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02621, .01117, 100.23331, 3.85252, 3.17909, + 2.64729, 3.64144, 3.85398, + .02674, .01145, 107.21055, 4.11560, 3.43968, + 2.91223, 3.90601, 4.11706, + .02725, .01172, 113.98309, 4.37414, 3.69613, + 3.17304, 4.16594, 4.37560, + .02773, .01197, 120.42332, 4.62417, 3.94362, + 3.42368, 4.41726, 4.62563, + .02822, .01223, 127.08096, 4.88479, 4.20247, + 3.68680, 4.67915, 4.88626, + .02870, .01248, 133.64204, 5.14627, 4.46145, + 3.94874, 4.94186, 5.14774, + .02916, .01273, 140.04324, 5.40340, 4.71692, + 4.20801, 5.20015, 5.40487, + .02960, .01296, 146.11098, 5.65095, 4.96245, + 4.45642, 5.44877, 5.65242 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .03004, .01320, 152.32272, 5.90700, 5.21667, + 4.71374, 5.70589, 5.90847, + .03048, .01343, 158.54025, 6.16586, 5.47402, + 4.97452, 5.96579, 6.16733, + .03090, .01366, 164.45302, 6.41591, 5.72209, + 5.22500, 6.21682, 6.41739, + .03131, .01387, 170.22632, 6.66093, 5.96613, + 5.47256, 6.46275, 6.66241, + .03172, .01409, 175.96107, 6.90904, 6.21231, + 5.72086, 6.71178, 6.91052 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01596, .00592, 1.03414, .52198, .00000, + .00000, .27792, .52290, + .01639, .00613, 2.04283, .54892, .00000, + .00000, .30688, .54983, + .01703, .00643, 3.83979, .59767, .00047, + .00000, .35856, .59857, + .01751, .00666, 5.38162, .64094, .03803, + .00000, .40391, .64184, + .01801, .00691, 7.24166, .69349, .09867, + .00000, .45859, .69438, + .01845, .00712, 9.00691, .74540, .14746, + .00000, .51230, .74630, + .01887, .00733, 10.86174, .80075, .20046, + .00000, .56934, .80164, + .01932, .00755, 13.06575, .86513, .26555, + .00000, .63547, .86602 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01972, .00775, 15.07890, .92664, .32391, + .00000, .69847, .92752, + .02010, .00794, 17.20016, .99035, .38713, + .00000, .76360, .99123, + .02040, .00809, 18.95065, 1.04421, .43914, + .00000, .81857, 1.04510, + .02106, .00842, 22.96912, 1.16875, .56139, + .00029, .94541, 1.16963, + .02163, .00871, 26.70590, 1.28686, .67793, + .09745, 1.06546, 1.28774, + .02227, .00903, 31.16546, 1.43080, .82011, + .27186, 1.21151, 1.43167, + .02294, .00938, 36.16081, 1.59429, .98178, + .44002, 1.37714, 1.59517, + .02355, .00969, 40.91973, 1.75375, 1.13752, + .59652, 1.53849, 1.75463 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02418, .01002, 46.01233, 1.92609, 1.30700, + .77102, 1.71268, 1.92697, + .02470, .01029, 50.47645, 2.07824, 1.45782, + .92838, 1.86634, 2.07912, + .02534, .01062, 56.07534, 2.27271, 1.64955, + 1.12456, 2.06259, 2.27359, + .02590, .01091, 61.19437, 2.45368, 1.82755, + 1.30555, 2.24510, 2.45456, + .02642, .01118, 66.11441, 2.62848, 2.00102, + 1.48464, 2.42129, 2.62937, + .02709, .01153, 72.48181, 2.85957, 2.22897, + 1.71644, 2.65410, 2.86046, + .02772, .01187, 78.65396, 3.08722, 2.45370, + 1.94496, 2.88333, 3.08812, + .02831, .01218, 84.66079, 3.31100, 2.67574, + 2.17224, 3.10856, 3.31190 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02891, .01250, 90.72955, 3.54188, 2.90378, + 2.40337, 3.34087, 3.54279, + .02950, .01281, 96.82775, 3.77674, 3.13639, + 2.63993, 3.57709, 3.77765, + .03006, .01311, 102.73100, 4.00705, 3.36482, + 2.87232, 3.80867, 4.00798, + .03059, .01339, 108.32896, 4.22931, 3.58479, + 3.09516, 4.03210, 4.23024, + .03112, .01368, 114.10289, 4.46057, 3.81446, + 3.32870, 4.26452, 4.46150, + .03165, .01396, 119.77768, 4.69211, 4.04377, + 3.56069, 4.49717, 4.69305, + .03216, .01423, 125.30287, 4.91942, 4.26961, + 3.78996, 4.72554, 4.92037, + .03264, .01449, 130.52750, 5.13786, 4.48626, + 4.00921, 4.94496, 5.13883 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03312, .01475, 135.86543, 5.36345, 4.71023, + 4.23598, 5.17153, 5.36442, + .03361, .01501, 141.19783, 5.59116, 4.93661, + 4.46545, 5.40018, 5.59214, + .03407, .01526, 146.25728, 5.81075, 5.15446, + 4.68547, 5.62066, 5.81173, + .03451, .01550, 151.19054, 6.02566, 5.36853, + 4.90270, 5.83642, 6.02666, + .03496, .01574, 156.07883, 6.24290, 5.58407, + 5.12015, 6.05450, 6.24391 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .02159, .00828, 1.09367, .43953, .00000, + .00000, .23474, .43926, + .02219, .00858, 2.00276, .46428, .00000, + .00000, .26105, .46401, + .02307, .00903, 3.59636, .50792, .00043, + .00000, .30696, .50766, + .02373, .00937, 4.92971, .54569, .03300, + .00000, .34632, .54544, + .02442, .00973, 6.50738, .59079, .08511, + .00000, .39307, .59054, + .02502, .01005, 7.97924, .63460, .12622, + .00000, .43826, .63436, + .02560, .01035, 9.50283, .68070, .17039, + .00000, .48565, .68046, + .02622, .01068, 11.28859, .73385, .22408, + .00000, .54015, .73362 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02676, .01096, 12.89769, .78397, .27168, + .00000, .59142, .78375, + .02728, .01124, 14.57499, .83553, .32283, + .00000, .64406, .83532, + .02770, .01146, 15.94527, .87874, .36457, + .00000, .68812, .87854, + .02860, .01193, 19.04982, .97773, .46177, + .00026, .78888, .97755, + .02937, .01235, 21.88936, 1.07052, .55335, + .07666, .88315, 1.07035, + .03025, .01282, 25.22499, 1.18233, .66382, + .21297, .99657, 1.18218, + .03116, .01331, 28.90559, 1.30786, .78799, + .34251, 1.12373, 1.30773, + .03200, .01376, 32.35968, 1.42886, .90623, + .46166, 1.24616, 1.42875 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03284, .01422, 36.00874, 1.55836, 1.03366, + .59328, 1.37708, 1.55828, + .03355, .01461, 39.17184, 1.67174, 1.14612, + .71099, 1.49161, 1.67168, + .03441, .01508, 43.09220, 1.81532, 1.28776, + .85633, 1.63654, 1.81528, + .03518, .01549, 46.63449, 1.94772, 1.41808, + .98917, 1.77012, 1.94771, + .03588, .01588, 50.00792, 2.07471, 1.54420, + 1.11976, 1.89817, 2.07473, + .03678, .01637, 54.32417, 2.24113, 1.70847, + 1.28723, 2.06589, 2.24117, + .03763, .01684, 58.46083, 2.40364, 1.86903, + 1.45089, 2.22961, 2.40372, + .03842, .01728, 62.44799, 2.56220, 2.02649, + 1.61251, 2.38927, 2.56230 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03922, .01772, 66.43330, 2.72446, 2.18688, + 1.77544, 2.55261, 2.72459, + .04001, .01816, 70.40141, 2.88834, 2.34935, + 1.94107, 2.71752, 2.88850, + .04076, .01857, 74.20909, 3.04797, 2.50783, + 2.10269, 2.87811, 3.04816, + .04147, .01896, 77.78704, 3.20095, 2.65939, + 2.25657, 3.03199, 3.20117, + .04218, .01936, 81.45107, 3.35924, 2.81675, + 2.41698, 3.19115, 3.35948, + .04289, .01975, 85.01991, 3.51666, 2.97282, + 2.57521, 3.34943, 3.51694, + .04356, .02013, 88.47195, 3.67041, 3.12574, + 2.73083, 3.50397, 3.67071, + .04420, .02049, 91.71027, 3.81729, 3.27158, + 2.87874, 3.65160, 3.81762 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04484, .02085, 94.99728, 3.96821, 3.42159, + 3.03097, 3.80326, 3.96857, + .04549, .02120, 98.25966, 4.11980, 3.57248, + 3.18427, 3.95557, 4.12018, + .04610, .02155, 101.33154, 4.26518, 3.71687, + 3.33040, 4.10163, 4.26559, + .04668, .02187, 104.31390, 4.40693, 3.85826, + 3.47423, 4.24402, 4.40737, + .04727, .02221, 107.24430, 4.54941, 3.99979, + 3.61730, 4.38714, 4.54988 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02928, .01166, 1.16881, .37065, .00000, + .00000, .19900, .37028, + .03010, .01211, 1.98118, .39318, .00000, + .00000, .22276, .39283, + .03132, .01278, 3.38618, .43201, .00039, + .00000, .26336, .43169, + .03222, .01327, 4.53167, .46482, .02857, + .00000, .29743, .46453, + .03317, .01380, 5.85990, .50337, .07321, + .00000, .33727, .50311, + .03399, .01426, 7.07718, .54019, .10773, + .00000, .37518, .53996, + .03479, .01470, 8.31758, .57841, .14439, + .00000, .41442, .57821, + .03564, .01517, 9.75067, .62208, .18848, + .00000, .45914, .62191 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03638, .01559, 11.02370, .66270, .22709, + .00000, .50066, .66255, + .03709, .01599, 12.33570, .70417, .26827, + .00000, .54299, .70406, + .03766, .01631, 13.39624, .73862, .30158, + .00000, .57810, .73852, + .03888, .01699, 15.76589, .81675, .37838, + .00022, .65761, .81670, + .03994, .01759, 17.89537, .88907, .44985, + .06000, .73110, .88906, + .04113, .01826, 20.35500, .97517, .53506, + .16595, .81847, .97522, + .04237, .01897, 23.02624, 1.07066, .62968, + .26515, .91524, 1.07077, + .04350, .01961, 25.49313, 1.16155, .71869, + .35528, 1.00725, 1.16170 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04465, .02026, 28.06395, 1.25784, .81364, + .45388, 1.10465, 1.25804, + .04560, .02080, 30.26609, 1.34138, .89670, + .54128, 1.18910, 1.34163, + .04676, .02147, 32.96088, 1.44616, 1.00031, + .64812, 1.29493, 1.44646, + .04779, .02205, 35.36506, 1.54184, 1.09473, + .74484, 1.39154, 1.54220, + .04874, .02260, 37.63250, 1.63295, 1.18545, + .83927, 1.48348, 1.63335, + .04995, .02329, 40.49786, 1.75122, 1.30250, + .95916, 1.60278, 1.75168, + .05109, .02394, 43.21049, 1.86566, 1.41586, + 1.07527, 1.71816, 1.86618, + .05216, .02455, 45.79832, 1.97643, 1.52619, + 1.18907, 1.82980, 1.97701 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05323, .02517, 48.35457, 2.08881, 1.63758, + 1.30276, 1.94303, 2.08945, + .05428, .02577, 50.87468, 2.20147, 1.74958, + 1.41749, 2.05650, 2.20216, + .05527, .02635, 53.26999, 2.31041, 1.85807, + 1.52866, 2.16621, 2.31116, + .05622, .02689, 55.49800, 2.41407, 1.96105, + 1.63369, 2.27056, 2.41486, + .05717, .02744, 57.76220, 2.52067, 2.06736, + 1.74258, 2.37787, 2.52152, + .05810, .02797, 59.94532, 2.62595, 2.17204, + 1.84919, 2.48381, 2.62685, + .05899, .02849, 62.04211, 2.72820, 2.27406, + 1.95350, 2.58670, 2.72915, + .05984, .02898, 63.99139, 2.82527, 2.37074, + 2.05200, 2.68436, 2.82628 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06069, .02947, 65.95577, 2.92449, 2.46966, + 2.15285, 2.78416, 2.92554, + .06154, .02996, 67.89165, 3.02362, 2.56865, + 2.25389, 2.88386, 3.02472, + .06234, .03042, 69.69843, 3.11812, 2.66280, + 2.34960, 2.97890, 3.11927, + .06311, .03087, 71.44494, 3.20992, 2.75468, + 2.44351, 3.07121, 3.21111, + .06389, .03132, 73.14378, 3.30161, 2.84604, + 2.53627, 3.16341, 3.30285 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .03505, .01434, 1.22574, .33618, .00000, + .00000, .18122, .33612, + .03604, .01490, 1.98337, .35741, .00000, + .00000, .20353, .35739, + .03751, .01574, 3.28330, .39354, .00037, + .00000, .24123, .39358, + .03859, .01636, 4.32651, .42367, .02620, + .00000, .27246, .42376, + .03974, .01702, 5.52109, .45873, .06689, + .00000, .30866, .45887, + .04073, .01759, 6.60400, .49187, .09796, + .00000, .34276, .49206, + .04168, .01814, 7.69683, .52601, .13073, + .00000, .37779, .52624, + .04270, .01873, 8.94821, .56478, .16988, + .00000, .41750, .56506 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .04359, .01924, 10.05011, .60055, .20391, + .00000, .45406, .60087, + .04445, .01973, 11.17776, .63691, .24003, + .00000, .49117, .63727, + .04513, .02013, 12.08333, .66692, .26909, + .00000, .52177, .66732, + .04659, .02098, 14.08927, .73460, .33570, + .00021, .59067, .73507, + .04786, .02171, 15.87208, .79677, .39721, + .05176, .65386, .79730, + .04928, .02254, 17.90951, .87022, .47001, + .14278, .72844, .87083, + .05076, .02340, 20.10049, .95107, .55025, + .22724, .81042, .95175, + .05211, .02419, 22.10351, 1.02741, .62516, + .30339, .88776, 1.02817 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05348, .02498, 24.17320, 1.10778, .70458, + .38619, .96911, 1.10861, + .05462, .02565, 25.93295, 1.17712, .77367, + .45921, 1.03926, 1.17802, + .05600, .02646, 28.06911, 1.26356, .85934, + .54790, 1.12664, 1.26453, + .05722, .02717, 29.95960, 1.34203, .93694, + .62772, 1.20593, 1.34307, + .05835, .02783, 31.73178, 1.41640, 1.01118, + .70531, 1.28104, 1.41751, + .05978, .02867, 33.95355, 1.51239, 1.10640, + .80323, 1.37794, 1.51358, + .06112, .02946, 36.04051, 1.60473, 1.19810, + .89753, 1.47113, 1.60600, + .06239, .03020, 38.01856, 1.69369, 1.28693, + .98953, 1.56086, 1.69503 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06365, .03094, 39.95755, 1.78344, 1.37611, + 1.08091, 1.65137, 1.78486, + .06489, .03167, 41.85704, 1.87299, 1.46539, + 1.17272, 1.74165, 1.87449, + .06607, .03236, 43.65147, 1.95922, 1.55147, + 1.26129, 1.82855, 1.96078, + .06718, .03301, 45.30947, 2.04087, 1.63281, + 1.34459, 1.91083, 2.04251, + .06830, .03366, 46.98618, 2.12455, 1.71649, + 1.43064, 1.99514, 2.12625, + .06939, .03431, 48.59199, 2.20680, 1.79850, + 1.51449, 2.07799, 2.20858, + .07044, .03492, 50.12738, 2.28643, 1.87818, + 1.59628, 2.15819, 2.28827, + .07143, .03550, 51.54613, 2.36173, 1.95337, + 1.67320, 2.23401, 2.36363 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07244, .03609, 52.96917, 2.43843, 2.03007, + 1.75169, 2.31124, 2.44039, + .07343, .03667, 54.36502, 2.51481, 2.10657, + 1.83009, 2.38814, 2.51684, + .07437, .03723, 55.66000, 2.58735, 2.17905, + 1.90406, 2.46117, 2.58944, + .07527, .03775, 56.90845, 2.65766, 2.24962, + 1.97649, 2.53194, 2.65981, + .07618, .03829, 58.11419, 2.72760, 2.31951, + 2.04773, 2.60232, 2.72980 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03987, .01669, 1.27556, .31427, .00000, + .00000, .16994, .31454, + .04099, .01735, 1.99532, .33459, .00000, + .00000, .19124, .33490, + .04268, .01833, 3.22207, .36886, .00036, + .00000, .22694, .36926, + .04391, .01905, 4.19518, .39716, .02460, + .00000, .25626, .39762, + .04522, .01982, 5.29913, .42986, .06263, + .00000, .29001, .43039, + .04635, .02049, 6.29191, .46056, .09142, + .00000, .32158, .46115, + .04744, .02113, 7.28657, .49198, .12160, + .00000, .35383, .49263, + .04860, .02181, 8.41798, .52752, .15751, + .00000, .39023, .52823 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04961, .02240, 9.40782, .56011, .18855, + .00000, .42355, .56087, + .05058, .02298, 10.41546, .59312, .22136, + .00000, .45725, .59394, + .05136, .02344, 11.22074, .62026, .24766, + .00000, .48493, .62112, + .05302, .02442, 12.99297, .68118, .30768, + .00020, .54698, .68213, + .05446, .02527, 14.55503, .73680, .36279, + .04647, .60355, .73784, + .05607, .02623, 16.32593, .80217, .42767, + .12794, .66996, .80330, + .05775, .02723, 18.21630, .87371, .49877, + .20302, .74254, .87494, + .05928, .02813, 19.93140, .94087, .56478, + .27035, .81062, .94219 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .06082, .02905, 21.69225, 1.01123, .63444, + .34322, .88190, 1.01264, + .06211, .02981, 23.18109, 1.07169, .69479, + .40723, .94311, 1.07319, + .06367, .03074, 24.97740, 1.14672, .76930, + .48463, 1.01901, 1.14830, + .06505, .03156, 26.55744, 1.21452, .83649, + .55397, 1.08758, 1.21620, + .06632, .03231, 28.03186, 1.27857, .90055, + .62116, 1.15232, 1.28032, + .06793, .03327, 29.86911, 1.36087, .98237, + .70559, 1.23547, 1.36273, + .06944, .03416, 31.58462, 1.43971, 1.06083, + .78655, 1.31509, 1.44166, + .07087, .03501, 33.20261, 1.51538, 1.13656, + .86526, 1.39148, 1.51742 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07229, .03585, 34.77925, 1.59142, 1.21229, + .94311, 1.46823, 1.59355, + .07368, .03668, 36.31631, 1.66702, 1.28783, + 1.02108, 1.54452, 1.66925, + .07500, .03746, 37.76157, 1.73958, 1.36045, + 1.09604, 1.61771, 1.74188, + .07624, .03820, 39.08999, 1.80805, 1.42882, + 1.16629, 1.68677, 1.81044, + .07749, .03894, 40.42842, 1.87802, 1.49897, + 1.23868, 1.75733, 1.88050, + .07872, .03967, 41.70337, 1.94658, 1.56748, + 1.30898, 1.82645, 1.94913, + .07989, .04036, 42.91830, 2.01278, 1.63389, + 1.37738, 1.89318, 2.01541, + .08100, .04102, 44.03553, 2.07518, 1.69637, + 1.44152, 1.95608, 2.07789 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08212, .04168, 45.15203, 2.13860, 1.75994, + 1.50681, 2.02000, 2.14138, + .08323, .04234, 46.24319, 2.20160, 1.82320, + 1.57187, 2.08348, 2.20445, + .08428, .04296, 47.25057, 2.26126, 1.88296, + 1.63307, 2.14359, 2.26418, + .08528, .04355, 48.21991, 2.31898, 1.94106, + 1.69291, 2.20175, 2.32198, + .08629, .04415, 49.15062, 2.37622, 1.99841, + 1.75157, 2.25942, 2.37928 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .04411, .01893, 1.33051, .29955, .00000, + .00000, .16212, .29981, + .04536, .01967, 2.02308, .31917, .00000, + .00000, .18265, .31950, + .04723, .02078, 3.19155, .35201, .00035, + .00000, .21682, .35244, + .04860, .02160, 4.10982, .37891, .02339, + .00000, .24465, .37942, + .05005, .02246, 5.14352, .40981, .05941, + .00000, .27651, .41040, + .05131, .02321, 6.06715, .43864, .08646, + .00000, .30616, .43931, + .05251, .02393, 6.98706, .46801, .11472, + .00000, .33629, .46875, + .05380, .02470, 8.02765, .50112, .14819, + .00000, .37019, .50193 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .05491, .02537, 8.93326, .53132, .17699, + .00000, .40106, .53221, + .05599, .02601, 9.85107, .56183, .20735, + .00000, .43221, .56278, + .05685, .02653, 10.58163, .58683, .23161, + .00000, .45771, .58783, + .05868, .02762, 12.18073, .64273, .28675, + .00019, .51465, .64385, + .06027, .02857, 13.58040, .69354, .33714, + .04257, .56634, .69475, + .06205, .02964, 15.15659, .75298, .39621, + .11701, .62674, .75430, + .06390, .03075, 16.82882, .81772, .46065, + .18523, .69245, .81916, + .06558, .03176, 18.33632, .87820, .52018, + .24611, .75379, .87976 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06728, .03277, 19.87573, .94133, .58276, + .31177, .81776, .94299, + .06869, .03362, 21.17130, .99539, .63681, + .36925, .87251, .99714, + .07040, .03464, 22.72645, 1.06222, .70328, + .43849, .94016, 1.06409, + .07192, .03555, 24.08728, 1.12239, .76301, + .50029, 1.00104, 1.12436, + .07331, .03638, 25.35230, 1.17908, .81980, + .56004, 1.05837, 1.18113, + .07507, .03744, 26.92054, 1.25165, .89207, + .63481, 1.13173, 1.25382, + .07673, .03843, 28.37736, 1.32092, .96113, + .70627, 1.20173, 1.32321, + .07829, .03936, 29.74560, 1.38720, 1.02759, + .77555, 1.26869, 1.38960 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07984, .04029, 31.07210, 1.45358, 1.09383, + .84383, 1.33574, 1.45608, + .08136, .04119, 32.36003, 1.51940, 1.15971, + .91202, 1.40219, 1.52201, + .08280, .04205, 33.56620, 1.58239, 1.22287, + .97742, 1.46577, 1.58509, + .08415, .04286, 34.66984, 1.64165, 1.28217, + 1.03852, 1.52559, 1.64445, + .08551, .04367, 35.77827, 1.70208, 1.34288, + 1.10135, 1.58657, 1.70498, + .08685, .04447, 36.82911, 1.76112, 1.40201, + 1.16219, 1.64614, 1.76410, + .08812, .04522, 37.82752, 1.81801, 1.45920, + 1.22128, 1.70353, 1.82108, + .08933, .04594, 38.74189, 1.87150, 1.51287, + 1.27653, 1.75749, 1.87466 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09054, .04666, 39.65287, 1.92575, 1.56738, + 1.33267, 1.81220, 1.92900, + .09174, .04737, 40.54023, 1.97953, 1.62150, + 1.38851, 1.86644, 1.98286, + .09288, .04805, 41.35570, 2.03033, 1.67251, + 1.44090, 1.91767, 2.03375, + .09397, .04870, 42.13911, 2.07943, 1.72204, + 1.49208, 1.96718, 2.08292, + .09506, .04934, 42.88732, 2.12797, 1.77080, + 1.54209, 2.01613, 2.13154 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .06070, .02832, 1.53654, .25976, .00000, + .00000, .14123, .26057, + .06244, .02939, 2.13977, .27721, .00000, + .00000, .15941, .27814, + .06502, .03101, 3.12642, .30572, .00031, + .00000, .18897, .30683, + .06692, .03218, 3.87929, .32847, .01984, + .00000, .21247, .32970, + .06891, .03342, 4.70568, .35411, .05002, + .00000, .23890, .35549, + .07064, .03449, 5.42890, .37757, .07215, + .00000, .26302, .37907, + .07229, .03551, 6.13529, .40111, .09492, + .00000, .28717, .40272, + .07405, .03661, 6.91979, .42731, .12156, + .00000, .31402, .42905 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .07557, .03755, 7.59088, .45084, .14412, + .00000, .33810, .45269, + .07704, .03846, 8.26105, .47439, .16768, + .00000, .36216, .47634, + .07821, .03918, 8.78753, .49346, .18630, + .00000, .38165, .49550, + .08070, .04071, 9.91901, .53559, .22811, + .00016, .42463, .53781, + .08284, .04203, 10.88610, .57329, .26573, + .03202, .46305, .57566, + .08523, .04350, 11.95036, .61672, .30917, + .08753, .50728, .61927, + .08772, .04503, 13.05641, .66329, .35584, + .13748, .55466, .66603, + .08997, .04641, 14.03198, .70612, .39829, + .18136, .59820, .70902 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09224, .04779, 15.01009, .75023, .44234, + .22813, .64302, .75330, + .09412, .04894, 15.82025, .78758, .47998, + .26863, .68095, .79080, + .09639, .05033, 16.77553, .83318, .52569, + .31680, .72724, .83657, + .09839, .05154, 17.59646, .87372, .56626, + .35927, .76838, .87726, + .10023, .05266, 18.34969, .91156, .60450, + .39998, .80677, .91524, + .10254, .05406, 19.26638, .95942, .65256, + .45031, .85530, .96328, + .10471, .05538, 20.10273, 1.00456, .69796, + .49785, .90106, 1.00858, + .10674, .05660, 20.87687, 1.04732, .74123, + .54352, .94440, 1.05149 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .10876, .05782, 21.61347, 1.08964, .78386, + .58800, .98729, 1.09397, + .11073, .05901, 22.31812, 1.13121, .82587, + .63202, 1.02941, 1.13569, + .11260, .06013, 22.96851, 1.17061, .86577, + .67387, 1.06933, 1.17524, + .11434, .06117, 23.55357, 1.20732, .90287, + .71258, 1.10652, 1.21208, + .11610, .06222, 24.13457, 1.24447, .94059, + .75213, 1.14415, 1.24937, + .11781, .06325, 24.67547, 1.28041, .97696, + .79003, 1.18055, 1.28544, + .11944, .06422, 25.18403, 1.31480, 1.01191, + .82662, 1.21538, 1.31996, + .12097, .06513, 25.64209, 1.34686, 1.04443, + .86054, 1.24785, 1.35213 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12252, .06605, 26.09297, 1.37914, 1.07723, + .89477, 1.28054, 1.38453, + .12404, .06696, 26.52685, 1.41091, 1.10958, + .92860, 1.31272, 1.41643, + .12549, .06781, 26.91854, 1.44068, 1.13982, + .96008, 1.34286, 1.44630, + .12686, .06863, 27.29291, 1.46931, 1.16906, + .99071, 1.37186, 1.47505, + .12824, .06944, 27.64234, 1.49736, 1.19757, + 1.02036, 1.40026, 1.50320 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .08461, .04344, 1.82056, .23007, .00000, + .00000, .12538, .23188, + .08702, .04497, 2.32752, .24524, .00000, + .00000, .14115, .24725, + .09061, .04725, 3.12453, .26938, .00028, + .00000, .16618, .27168, + .09322, .04890, 3.71257, .28810, .01653, + .00000, .18555, .29063, + .09596, .05063, 4.34013, .30878, .04132, + .00000, .20689, .31153, + .09832, .05211, 4.87716, .32729, .05900, + .00000, .22597, .33024, + .10057, .05352, 5.39036, .34555, .07692, + .00000, .24475, .34868, + .10296, .05502, 5.94854, .36559, .09756, + .00000, .26535, .36892 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .10502, .05630, 6.41700, .38327, .11474, + .00000, .28351, .38678, + .10702, .05754, 6.87694, .40077, .13248, + .00000, .30147, .40445, + .10858, .05852, 7.23291, .41478, .14633, + .00000, .31583, .41859, + .11192, .06058, 7.98152, .44527, .17699, + .00014, .34707, .44936, + .11479, .06235, 8.60308, .47206, .20410, + .02336, .37450, .47639, + .11797, .06431, 9.26777, .50240, .23487, + .06345, .40555, .50700, + .12127, .06633, 9.94209, .53436, .26736, + .09879, .43824, .53924, + .12423, .06814, 10.52099, .56321, .29638, + .12930, .46773, .56834 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12719, .06994, 11.08854, .59248, .32606, + .16137, .49764, .59786, + .12965, .07143, 11.54952, .61694, .35110, + .18880, .52263, .62253, + .13260, .07321, 12.08064, .64636, .38109, + .22097, .55269, .65221, + .13518, .07477, 12.52652, .67215, .40732, + .24894, .57903, .67821, + .13755, .07619, 12.92902, .69596, .43180, + .27550, .60334, .70222, + .14052, .07797, 13.40651, .72563, .46214, + .30787, .63364, .73214, + .14328, .07962, 13.83179, .75322, .49041, + .33805, .66182, .75997, + .14587, .08115, 14.21803, .77906, .51706, + .36673, .68820, .78602 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .14842, .08266, 14.57568, .80427, .54296, + .39430, .71396, .81146, + .15090, .08413, 14.91077, .82875, .56821, + .42130, .73896, .83614, + .15323, .08550, 15.21367, .85170, .59194, + .44671, .76240, .85929, + .15541, .08678, 15.47886, .87282, .61376, + .46995, .78398, .88060, + .15759, .08806, 15.73799, .89401, .63575, + .49351, .80563, .90197, + .15972, .08930, 15.97202, .91424, .65670, + .51583, .82631, .92238, + .16173, .09047, 16.18871, .93345, .67669, + .53722, .84594, .94176, + .16361, .09157, 16.37843, .95115, .69510, + .55685, .86405, .95962 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .16551, .09266, 16.56159, .96883, .71351, + .57652, .88212, .97746, + .16737, .09374, 16.73425, .98608, .73153, + .59581, .89977, .99487, + .16912, .09475, 16.88487, 1.00206, .74820, + .61357, .91612, 1.01099, + .17079, .09571, 17.02805, 1.01736, .76426, + .63079, .93178, 1.02643, + .17246, .09666, 17.15533, 1.03215, .77972, + .64727, .94691, 1.04136 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .10358, .05625, 2.01121, .21627, .00000, + .00000, .11799, .21919, + .10650, .05810, 2.45428, .22998, .00000, + .00000, .13227, .23315, + .11082, .06083, 3.13380, .25143, .00026, + .00000, .15458, .25500, + .11395, .06280, 3.62443, .26779, .01464, + .00000, .17156, .27164, + .11724, .06486, 4.13860, .28560, .03639, + .00000, .19001, .28975, + .12005, .06662, 4.57251, .30135, .05165, + .00000, .20631, .30575, + .12273, .06828, 4.98138, .31669, .06694, + .00000, .22217, .32134, + .12558, .07004, 5.42009, .33339, .08439, + .00000, .23942, .33829 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12802, .07155, 5.78371, .34796, .09875, + .00000, .25446, .35308, + .13037, .07299, 6.13672, .36227, .11348, + .00000, .26922, .36761, + .13222, .07413, 6.40719, .37363, .12488, + .00000, .28093, .37914, + .13614, .07653, 6.96739, .39814, .14989, + .00012, .30619, .40400, + .13950, .07857, 7.42296, .41942, .17175, + .01905, .32811, .42558, + .14322, .08082, 7.90017, .44325, .19630, + .05152, .35265, .44975, + .14705, .08313, 8.37601, .46805, .22192, + .07977, .37818, .47490, + .15048, .08518, 8.77665, .49016, .24454, + .10388, .40094, .49731 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15390, .08723, 9.16275, .51236, .26745, + .12900, .42379, .51983, + .15673, .08890, 9.47184, .53076, .28663, + .15033, .44273, .53848, + .16011, .09091, 9.82198, .55267, .30937, + .17509, .46528, .56069, + .16306, .09264, 10.11029, .57168, .32908, + .19644, .48485, .57996, + .16575, .09423, 10.36735, .58911, .34736, + .21659, .50280, .59763, + .16912, .09619, 10.66605, .61060, .36979, + .24092, .52494, .61942, + .17225, .09801, 10.92659, .63039, .39051, + .26341, .54533, .63949, + .17516, .09969, 11.15944, .64878, .40990, + .28464, .56428, .65814 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .17802, .10134, 11.36950, .66654, .42857, + .30487, .58260, .67615, + .18079, .10294, 11.56267, .68364, .44664, + .32455, .60024, .69350, + .18340, .10443, 11.73394, .69956, .46351, + .34294, .61667, .70964, + .18582, .10580, 11.87995, .71407, .47888, + .35964, .63165, .72437, + .18824, .10718, 12.02053, .72854, .49431, + .37648, .64660, .73905, + .19058, .10850, 12.14318, .74223, .50888, + .39232, .66075, .75294, + .19280, .10975, 12.25498, .75515, .52271, + .40742, .67411, .76605, + .19487, .11091, 12.34954, .76695, .53535, + .42119, .68633, .77803 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .19694, .11207, 12.43875, .77866, .54793, + .43491, .69846, .78992, + .19897, .11321, 12.52067, .79002, .56018, + .44830, .71023, .80145, + .20088, .11427, 12.58862, .80045, .57142, + .46055, .72104, .81205, + .20270, .11528, 12.65299, .81040, .58222, + .47240, .73137, .82216, + .20449, .11627, 12.70597, .81992, .59252, + .48364, .74125, .83183 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .12014, .06776, 2.14863, .20786, .00000, + .00000, .11346, .21195, + .12346, .06985, 2.54254, .22042, .00000, + .00000, .12661, .22483, + .12838, .07291, 3.13549, .23986, .00024, + .00000, .14691, .24473, + .13193, .07512, 3.55645, .25448, .01329, + .00000, .16216, .25969, + .13565, .07742, 3.99143, .27025, .03290, + .00000, .17858, .27582, + .13882, .07936, 4.35460, .28405, .04649, + .00000, .19294, .28992, + .14183, .08121, 4.69311, .29738, .05999, + .00000, .20680, .30354, + .14503, .08315, 5.05259, .31179, .07529, + .00000, .22178, .31825 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14776, .08481, 5.34758, .32425, .08777, + .00000, .23472, .33098, + .15039, .08640, 5.63148, .33643, .10051, + .00000, .24736, .34340, + .15246, .08764, 5.84726, .34603, .11031, + .00000, .25733, .35320, + .15682, .09026, 6.28863, .36661, .13166, + .00011, .27868, .37419, + .16055, .09248, 6.64124, .38431, .15016, + .01627, .29705, .39224, + .16467, .09492, 7.00394, .40396, .17076, + .04388, .31743, .41227, + .16889, .09741, 7.36047, .42422, .19207, + .06767, .33845, .43293, + .17265, .09962, 7.65546, .44210, .21071, + .08778, .35701, .45117 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17640, .10180, 7.93563, .45992, .22946, + .10861, .37550, .46933, + .17949, .10359, 8.15709, .47458, .24505, + .12619, .39073, .48428, + .18317, .10571, 8.40387, .49190, .26341, + .14646, .40872, .50194, + .18637, .10755, 8.60344, .50681, .27921, + .16382, .42422, .51714, + .18929, .10922, 8.77938, .52039, .29378, + .18012, .43835, .53099, + .19292, .11128, 8.97943, .53701, .31154, + .19967, .45564, .54794, + .19629, .11318, 9.15027, .55219, .32783, + .21763, .47145, .56342, + .19941, .11493, 9.30051, .56620, .34299, + .23449, .48605, .57771 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .20246, .11664, 9.43216, .57962, .35747, + .25044, .50005, .59140, + .20542, .11829, 9.55070, .59245, .37142, + .26589, .51345, .60450, + .20819, .11982, 9.65343, .60431, .38436, + .28025, .52585, .61661, + .21075, .12123, 9.73797, .61505, .39609, + .29321, .53709, .62757, + .21331, .12263, 9.81789, .62569, .40779, + .30623, .54824, .63844, + .21578, .12398, 9.88428, .63568, .41879, + .31841, .55871, .64864, + .21811, .12525, 9.94354, .64506, .42918, + .32998, .56856, .65823, + .22027, .12642, 9.99095, .65356, .43862, + .34046, .57749, .66692 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .22244, .12759, 10.03399, .66195, .44797, + .35088, .58632, .67550, + .22456, .12873, 10.07176, .67004, .45703, + .36100, .59485, .68377, + .22655, .12979, 10.10008, .67741, .46530, + .37020, .60262, .69131, + .22844, .13080, 10.12684, .68443, .47322, + .37909, .61003, .69849, + .23030, .13179, 10.14482, .69106, .48073, + .38747, .61705, .70528 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .13518, .07835, 2.24898, .20186, .00000, + .00000, .11026, .20717, + .13885, .08062, 2.60229, .21347, .00000, + .00000, .12247, .21915, + .14426, .08394, 3.12629, .23125, .00023, + .00000, .14115, .23747, + .14816, .08632, 3.49312, .24449, .01223, + .00000, .15505, .25110, + .15223, .08879, 3.86778, .25865, .03018, + .00000, .16989, .26566, + .15570, .09088, 4.17775, .27094, .04249, + .00000, .18277, .27829, + .15899, .09286, 4.46408, .28274, .05464, + .00000, .19512, .29041, + .16246, .09493, 4.76553, .29542, .06833, + .00000, .20839, .30343 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16543, .09670, 5.01078, .30631, .07943, + .00000, .21978, .31461, + .16828, .09839, 5.24510, .31690, .09071, + .00000, .23085, .32548, + .17052, .09970, 5.42195, .32521, .09933, + .00000, .23954, .33401, + .17524, .10247, 5.77974, .34290, .11803, + .00010, .25805, .35216, + .17925, .10481, 6.06091, .35801, .13412, + .01428, .27386, .36766, + .18367, .10737, 6.34508, .37465, .15191, + .03840, .29127, .38472, + .18819, .10998, 6.62086, .39169, .17018, + .05903, .30910, .40218, + .19220, .11227, 6.84524, .40659, .18605, + .07635, .32472, .41747 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .19620, .11453, 7.05539, .42134, .20192, + .09419, .34018, .43260, + .19947, .11638, 7.21947, .43341, .21504, + .10917, .35284, .44497, + .20337, .11857, 7.39921, .44756, .23040, + .12635, .36770, .45949, + .20675, .12045, 7.54186, .45966, .24355, + .14098, .38042, .47189, + .20982, .12216, 7.66621, .47063, .25562, + .15467, .39196, .48315, + .21363, .12426, 7.80416, .48395, .27024, + .17098, .40600, .49682, + .21715, .12619, 7.91912, .49603, .28357, + .18590, .41874, .50922, + .22041, .12796, 8.01833, .50710, .29592, + .19985, .43044, .52059 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .22359, .12968, 8.10203, .51763, .30764, + .21296, .44158, .53140, + .22666, .13134, 8.17538, .52765, .31888, + .22561, .45219, .54169, + .22953, .13287, 8.23703, .53685, .32926, + .23733, .46196, .55115, + .23217, .13428, 8.28516, .54511, .33862, + .24785, .47075, .55964, + .23480, .13567, 8.32940, .55327, .34792, + .25838, .47943, .56803, + .23734, .13700, 8.36298, .56085, .35661, + .26818, .48753, .57584, + .23973, .13826, 8.39176, .56795, .36479, + .27746, .49512, .58314, + .24194, .13941, 8.41205, .57433, .37219, + .28584, .50196, .58972 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .24415, .14056, 8.42870, .58060, .37949, + .29413, .50869, .59617, + .24631, .14167, 8.44155, .58661, .38653, + .30217, .51515, .60237, + .24832, .14270, 8.44791, .59203, .39293, + .30944, .52100, .60796, + .25024, .14368, 8.45391, .59719, .39905, + .31645, .52657, .61328, + .25211, .14464, 8.45275, .60201, .40480, + .32302, .53179, .61825 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .16239, .09755, 2.37496, .19330, .00000, + .00000, .10579, .20118, + .16661, .10007, 2.66345, .20333, .00000, + .00000, .11649, .21165, + .17280, .10373, 3.08149, .21845, .00021, + .00000, .13261, .22742, + .17725, .10634, 3.36736, .22954, .01060, + .00000, .14441, .23897, + .18188, .10904, 3.65364, .24124, .02603, + .00000, .15687, .25114, + .18580, .11131, 3.88700, .25126, .03644, + .00000, .16754, .26157, + .18950, .11344, 4.09930, .26078, .04662, + .00000, .17767, .27146, + .19340, .11568, 4.31967, .27092, .05799, + .00000, .18846, .28199 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19671, .11757, 4.49621, .27953, .06711, + .00000, .19762, .29093, + .19989, .11937, 4.66282, .28783, .07630, + .00000, .20646, .29956, + .20238, .12076, 4.78699, .29430, .08328, + .00000, .21335, .30627, + .20760, .12368, 5.03298, .30793, .09829, + .00009, .22788, .32042, + .21201, .12614, 5.22021, .31942, .11106, + .01151, .24014, .33234, + .21685, .12881, 5.40301, .33192, .12502, + .03085, .25349, .34531, + .22178, .13150, 5.57581, .34455, .13921, + .04718, .26700, .35841, + .22612, .13386, 5.71145, .35544, .15138, + .06073, .27868, .36972 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23043, .13617, 5.83491, .36609, .16344, + .07458, .29012, .38077, + .23394, .13804, 5.92878, .37471, .17333, + .08613, .29940, .38973, + .23809, .14024, 6.02732, .38471, .18479, + .09925, .31017, .40011, + .24167, .14213, 6.10188, .39314, .19451, + .11033, .31929, .40887, + .24492, .14382, 6.16508, .40073, .20337, + .12064, .32750, .41675, + .24892, .14590, 6.23057, .40981, .21400, + .13281, .33736, .42619, + .25260, .14778, 6.28107, .41793, .22359, + .14384, .34621, .43464, + .25599, .14951, 6.32207, .42530, .23242, + .15409, .35427, .44231 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .25928, .15117, 6.35208, .43220, .24071, + .16364, .36184, .44950, + .26243, .15275, 6.37525, .43869, .24859, + .17279, .36898, .45626, + .26536, .15421, 6.39162, .44457, .25582, + .18121, .37548, .46240, + .26805, .15554, 6.40014, .44978, .26227, + .18871, .38126, .46783, + .27072, .15685, 6.40593, .45488, .26865, + .19618, .38693, .47315, + .27327, .15809, 6.40491, .45953, .27454, + .20306, .39215, .47802, + .27567, .15925, 6.40195, .46385, .28007, + .20956, .39700, .48253, + .27788, .16031, 6.39452, .46767, .28501, + .21539, .40131, .48653 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .28008, .16136, 6.38459, .47138, .28986, + .22112, .40552, .49042, + .28221, .16237, 6.37244, .47489, .29451, + .22664, .40952, .49410, + .28420, .16330, 6.35691, .47800, .29868, + .23160, .41309, .49737, + .28608, .16418, 6.34231, .48095, .30267, + .23637, .41648, .50047, + .28790, .16503, 6.32287, .48362, .30637, + .24079, .41960, .50328 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .19875, .12286, 2.44664, .18414, .00000, + .00000, .10123, .19604, + .20356, .12557, 2.66363, .19230, .00000, + .00000, .11016, .20471, + .21058, .12948, 2.96968, .20439, .00019, + .00000, .12340, .21754, + .21559, .13224, 3.17280, .21309, .00884, + .00000, .13293, .22677, + .22076, .13507, 3.37114, .22215, .02157, + .00000, .14285, .23636, + .22513, .13743, 3.52981, .22979, .03003, + .00000, .15124, .24445, + .22923, .13964, 3.67130, .23695, .03822, + .00000, .15911, .25203, + .23353, .14194, 3.81556, .24450, .04726, + .00000, .16740, .26000 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23717, .14387, 3.92858, .25082, .05443, + .00000, .17436, .26669, + .24065, .14570, 4.03357, .25687, .06161, + .00000, .18102, .27308, + .24334, .14711, 4.11040, .26153, .06701, + .00000, .18616, .27800, + .24899, .15004, 4.25778, .27124, .07852, + .00008, .19689, .28826, + .25373, .15248, 4.36400, .27929, .08819, + .00890, .20582, .29676, + .25889, .15511, 4.46121, .28791, .09864, + .02374, .21541, .30588, + .26411, .15774, 4.54917, .29648, .10912, + .03612, .22497, .31492, + .26867, .16000, 4.61303, .30373, .11798, + .04627, .23311, .32259 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .27315, .16220, 4.66742, .31070, .12668, + .05654, .24097, .32996, + .27679, .16398, 4.70625, .31627, .13375, + .06503, .24727, .33586, + .28106, .16604, 4.74276, .32261, .14184, + .07459, .25448, .34257, + .28471, .16777, 4.76619, .32787, .14863, + .08258, .26050, .34814, + .28800, .16933, 4.78407, .33254, .15477, + .08997, .26587, .35309, + .29203, .17120, 4.79681, .33801, .16205, + .09860, .27220, .35889, + .29569, .17289, 4.80152, .34280, .16855, + .10635, .27780, .36398, + .29904, .17442, 4.80192, .34708, .17447, + .11350, .28283, .36853 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .30227, .17587, 4.79526, .35099, .17996, + .12009, .28747, .37269, + .30534, .17724, 4.78492, .35458, .18514, + .12636, .29179, .37652, + .30817, .17848, 4.77176, .35779, .18984, + .13207, .29566, .37994, + .31075, .17960, 4.75504, .36054, .19398, + .13712, .29903, .38288, + .31329, .18069, 4.73670, .36319, .19805, + .14212, .30231, .38572, + .31570, .18170, 4.71466, .36553, .20176, + .14669, .30526, .38823, + .31795, .18264, 4.69271, .36766, .20521, + .15097, .30797, .39053, + .32001, .18349, 4.66916, .36948, .20826, + .15478, .31032, .39249 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .32203, .18432, 4.64406, .37121, .21123, + .15849, .31258, .39435, + .32399, .18512, 4.61812, .37280, .21405, + .16205, .31470, .39607, + .32579, .18583, 4.59121, .37414, .21654, + .16522, .31654, .39753, + .32749, .18651, 4.56600, .37541, .21892, + .16825, .31827, .39891, + .32913, .18714, 4.53768, .37646, .22108, + .17103, .31980, .40006 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .25246, .15866, 2.40079, .17211, .00000, + .00000, .09567, .19085, + .25784, .16137, 2.53834, .17793, .00000, + .00000, .10242, .19721, + .26560, .16525, 2.72533, .18638, .00016, + .00000, .11225, .20644, + .27109, .16795, 2.84365, .19232, .00682, + .00000, .11918, .21291, + .27672, .17069, 2.95449, .19839, .01654, + .00000, .12628, .21952, + .28141, .17295, 3.04045, .20342, .02289, + .00000, .13218, .22499, + .28579, .17503, 3.11462, .20805, .02895, + .00000, .13764, .23002, + .29036, .17718, 3.18814, .21286, .03558, + .00000, .14332, .23524 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29418, .17896, 3.24319, .21681, .04076, + .00000, .14802, .23954, + .29782, .18063, 3.29290, .22054, .04591, + .00000, .15247, .24360, + .30061, .18190, 3.32787, .22337, .04975, + .00000, .15586, .24667, + .30642, .18452, 3.39007, .22917, .05783, + .00007, .16284, .25296, + .31125, .18666, 3.42847, .23387, .06452, + .00634, .16855, .25806, + .31643, .18894, 3.45619, .23878, .07165, + .01682, .17456, .26338, + .32162, .19115, 3.47680, .24353, .07870, + .02543, .18043, .26854, + .32608, .19302, 3.48570, .24741, .08457, + .03239, .18530, .27274 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .33041, .19480, 3.48853, .25103, .09024, + .03936, .18993, .27668, + .33389, .19621, 3.48716, .25386, .09481, + .04507, .19358, .27975, + .33792, .19780, 3.47935, .25696, .09996, + .05142, .19765, .28313, + .34132, .19912, 3.46750, .25944, .10422, + .05667, .20097, .28583, + .34435, .20028, 3.45479, .26160, .10804, + .06149, .20389, .28818, + .34800, .20163, 3.43313, .26399, .11250, + .06704, .20723, .29078, + .35127, .20281, 3.40894, .26599, .11641, + .07197, .21010, .29296, + .35423, .20386, 3.38442, .26770, .11994, + .07648, .21263, .29483 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .35702, .20481, 3.35636, .26914, .12316, + .08059, .21487, .29642, + .35964, .20568, 3.32712, .27040, .12615, + .08445, .21689, .29780, + .36203, .20645, 3.29791, .27145, .12884, + .08794, .21866, .29895, + .36416, .20711, 3.26835, .27225, .13116, + .09099, .22013, .29985, + .36625, .20774, 3.23820, .27298, .13342, + .09398, .22153, .30067, + .36816, .20829, 3.20662, .27353, .13544, + .09668, .22271, .30127, + .36994, .20880, 3.17641, .27399, .13730, + .09920, .22377, .30179, + .37153, .20922, 3.14663, .27429, .13891, + .10140, .22463, .30213 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .37308, .20962, 3.11622, .27452, .14046, + .10354, .22542, .30240, + .37456, .20998, 3.08583, .27467, .14191, + .10557, .22612, .30259, + .37588, .21028, 3.05588, .27470, .14316, + .10734, .22667, .30264, + .37713, .21057, 3.02791, .27474, .14435, + .10905, .22719, .30269, + .37829, .21080, 2.99836, .27462, .14539, + .11057, .22756, .30259 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .30062, .18868, 2.25780, .16126, .00000, + .00000, .09099, .18664, + .30618, .19117, 2.34512, .16537, .00000, + .00000, .09615, .19124, + .31417, .19468, 2.45966, .17125, .00014, + .00000, .10356, .19780, + .31974, .19709, 2.52820, .17530, .00544, + .00000, .10871, .20231, + .32541, .19951, 2.58920, .17937, .01313, + .00000, .11392, .20684, + .33011, .20147, 2.63477, .18269, .01810, + .00000, .11820, .21052, + .33446, .20324, 2.67224, .18568, .02280, + .00000, .12211, .21385, + .33896, .20506, 2.70797, .18875, .02790, + .00000, .12614, .21725 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34267, .20654, 2.73283, .19124, .03186, + .00000, .12943, .21999, + .34618, .20791, 2.75424, .19356, .03577, + .00000, .13252, .22254, + .34888, .20895, 2.76808, .19528, .03866, + .00000, .13485, .22444, + .35441, .21103, 2.78847, .19875, .04470, + .00006, .13960, .22826, + .35895, .21270, 2.79485, .20149, .04966, + .00480, .14341, .23126, + .36377, .21441, 2.79099, .20427, .05488, + .01268, .14735, .23430, + .36851, .21605, 2.78202, .20686, .05999, + .01910, .15113, .23713, + .37251, .21737, 2.76764, .20887, .06420, + .02423, .15419, .23932 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .37635, .21858, 2.74951, .21067, .06822, + .02933, .15703, .24128, + .37940, .21952, 2.73234, .21201, .07144, + .03348, .15923, .24275, + .38287, .22053, 2.70779, .21341, .07503, + .03806, .16163, .24426, + .38575, .22132, 2.68317, .21443, .07796, + .04181, .16352, .24537, + .38829, .22199, 2.65976, .21528, .08057, + .04524, .16516, .24628, + .39129, .22272, 2.62694, .21611, .08357, + .04915, .16697, .24716, + .39390, .22331, 2.59408, .21670, .08618, + .05259, .16846, .24779, + .39623, .22380, 2.56253, .21714, .08851, + .05572, .16972, .24825 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .39836, .22420, 2.52905, .21739, .09061, + .05854, .17077, .24849, + .40032, .22453, 2.49560, .21752, .09253, + .06117, .17168, .24860, + .40207, .22478, 2.46337, .21756, .09423, + .06353, .17243, .24860, + .40358, .22495, 2.43200, .21745, .09568, + .06557, .17299, .24847, + .40504, .22508, 2.40053, .21730, .09708, + .06756, .17350, .24828, + .40633, .22515, 2.36864, .21702, .09831, + .06934, .17386, .24794, + .40751, .22519, 2.33849, .21672, .09943, + .07099, .17415, .24758, + .40851, .22517, 2.30945, .21635, .10038, + .07241, .17434, .24714 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .40947, .22513, 2.28016, .21593, .10127, + .07379, .17447, .24665, + .41035, .22506, 2.25126, .21546, .10210, + .07508, .17454, .24611, + .41110, .22495, 2.22330, .21493, .10280, + .07620, .17452, .24551, + .41180, .22484, 2.19726, .21444, .10346, + .07727, .17450, .24495, + .41239, .22467, 2.17030, .21385, .10401, + .07821, .17438, .24427 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .38529, .23616, 1.88760, .14072, .00000, + .00000, .08236, .17757, + .39048, .23785, 1.92153, .14260, .00000, + .00000, .08538, .17966, + .39780, .24013, 1.96177, .14520, .00011, + .00000, .08964, .18251, + .40280, .24160, 1.98137, .14692, .00368, + .00000, .09253, .18437, + .40778, .24301, 1.99505, .14858, .00883, + .00000, .09539, .18614, + .41181, .24408, 2.00312, .14986, .01212, + .00000, .09769, .18749, + .41546, .24500, 2.00747, .15097, .01520, + .00000, .09975, .18864, + .41918, .24591, 2.00990, .15207, .01851, + .00000, .10184, .18976 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .42217, .24657, 2.00873, .15289, .02104, + .00000, .10350, .19058, + .42496, .24716, 2.00625, .15363, .02353, + .00000, .10503, .19130, + .42705, .24757, 2.00268, .15414, .02535, + .00000, .10616, .19179, + .43123, .24830, 1.98983, .15509, .02912, + .00005, .10840, .19266, + .43453, .24879, 1.97232, .15575, .03217, + .00305, .11013, .19322, + .43791, .24919, 1.94665, .15630, .03534, + .00801, .11184, .19363, + .44108, .24944, 1.91809, .15669, .03840, + .01200, .11340, .19383, + .44361, .24951, 1.88962, .15683, .04086, + .01515, .11456, .19378 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .44591, .24946, 1.85957, .15684, .04319, + .01824, .11559, .19358, + .44766, .24934, 1.83401, .15676, .04503, + .02073, .11633, .19332, + .44952, .24910, 1.80164, .15652, .04704, + .02345, .11706, .19283, + .45091, .24877, 1.77202, .15620, .04866, + .02565, .11755, .19226, + .45208, .24843, 1.74491, .15585, .05008, + .02764, .11794, .19169, + .45330, .24789, 1.70946, .15528, .05168, + .02987, .11827, .19081, + .45424, .24728, 1.67570, .15463, .05304, + .03182, .11846, .18986, + .45499, .24665, 1.64423, .15396, .05424, + .03357, .11856, .18890 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .45552, .24593, 1.61225, .15320, .05527, + .03511, .11854, .18784, + .45591, .24518, 1.58110, .15239, .05621, + .03654, .11844, .18674, + .45616, .24441, 1.55176, .15158, .05702, + .03781, .11828, .18565, + .45624, .24364, 1.52397, .15076, .05769, + .03888, .11805, .18454, + .45625, .24284, 1.49645, .14991, .05833, + .03992, .11778, .18340, + .45611, .24199, 1.46924, .14900, .05885, + .04083, .11745, .18221, + .45594, .24117, 1.44380, .14813, .05932, + .04166, .11711, .18107, + .45566, .24035, 1.41972, .14727, .05970, + .04237, .11674, .17994 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .45531, .23950, 1.39571, .14637, .06005, + .04304, .11633, .17877, + .45491, .23863, 1.37228, .14548, .06035, + .04367, .11590, .17760, + .45443, .23777, 1.34995, .14458, .06059, + .04419, .11544, .17645, + .45397, .23696, 1.32925, .14374, .06082, + .04470, .11501, .17537, + .45338, .23609, 1.30817, .14284, .06098, + .04512, .11452, .17421 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45752, .27097, 1.53342, .12157, .00000, + .00000, .07405, .16654, + .46166, .27159, 1.54576, .12220, .00000, + .00000, .07579, .16697, + .46733, .27230, 1.55733, .12300, .00009, + .00000, .07819, .16743, + .47105, .27263, 1.55913, .12348, .00265, + .00000, .07977, .16762, + .47466, .27283, 1.55643, .12388, .00634, + .00000, .08131, .16770, + .47746, .27287, 1.55192, .12413, .00868, + .00000, .08251, .16766, + .47990, .27279, 1.54558, .12428, .01085, + .00000, .08355, .16751, + .48232, .27264, 1.53760, .12439, .01317, + .00000, .08458, .16729 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .48415, .27239, 1.52866, .12441, .01494, + .00000, .08537, .16700, + .48580, .27211, 1.51926, .12439, .01666, + .00000, .08608, .16667, + .48697, .27182, 1.51086, .12433, .01792, + .00000, .08658, .16637, + .48918, .27109, 1.48955, .12411, .02049, + .00004, .08753, .16561, + .49075, .27034, 1.46699, .12382, .02255, + .00211, .08821, .16482, + .49217, .26938, 1.43796, .12338, .02468, + .00552, .08882, .16381, + .49329, .26823, 1.40713, .12281, .02669, + .00824, .08930, .16265, + .49392, .26703, 1.37786, .12216, .02830, + .01035, .08956, .16145 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .49431, .26572, 1.34790, .12142, .02979, + .01242, .08972, .16015, + .49447, .26459, 1.32297, .12077, .03096, + .01407, .08979, .15902, + .49437, .26312, 1.29223, .11991, .03222, + .01585, .08976, .15755, + .49405, .26174, 1.26473, .11907, .03321, + .01728, .08964, .15618, + .49367, .26045, 1.23984, .11827, .03407, + .01856, .08948, .15491, + .49292, .25869, 1.20794, .11719, .03503, + .01999, .08918, .15323, + .49200, .25698, 1.17806, .11611, .03582, + .02121, .08882, .15158, + .49102, .25535, 1.15052, .11509, .03650, + .02229, .08844, .15002 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .48982, .25364, 1.12293, .11400, .03708, + .02325, .08798, .14840, + .48853, .25193, 1.09634, .11291, .03758, + .02411, .08749, .14678, + .48720, .25030, 1.07154, .11186, .03801, + .02487, .08699, .14524, + .48579, .24871, 1.04829, .11084, .03835, + .02550, .08647, .14375, + .48434, .24710, 1.02542, .10982, .03866, + .02611, .08594, .14225, + .48277, .24547, 1.00305, .10877, .03890, + .02663, .08537, .14075, + .48124, .24392, .98224, .10777, .03910, + .02710, .08481, .13933, + .47968, .24242, .96272, .10681, .03926, + .02750, .08425, .13796 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47806, .24090, .94337, .10583, .03939, + .02786, .08367, .13658, + .47641, .23939, .92459, .10487, .03949, + .02820, .08309, .13521, + .47474, .23792, .90683, .10393, .03956, + .02847, .08251, .13389, + .47318, .23654, .89041, .10305, .03962, + .02873, .08197, .13264, + .47147, .23510, .87383, .10213, .03963, + .02894, .08139, .13137 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .51877, .29595, 1.24365, .10430, .00000, + .00000, .06600, .15361, + .52140, .29544, 1.24826, .10425, .00000, + .00000, .06695, .15294, + .52480, .29446, 1.24999, .10408, .00007, + .00000, .06820, .15187, + .52683, .29359, 1.24617, .10390, .00201, + .00000, .06900, .15098, + .52864, .29254, 1.23867, .10365, .00479, + .00000, .06975, .14997, + .52989, .29150, 1.23061, .10336, .00654, + .00000, .07029, .14906, + .53081, .29043, 1.22138, .10304, .00816, + .00000, .07073, .14810, + .53161, .28923, 1.21070, .10267, .00988, + .00000, .07116, .14705 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .53206, .28807, 1.19992, .10227, .01118, + .00000, .07145, .14610, + .53236, .28691, 1.18900, .10188, .01244, + .00000, .07169, .14515, + .53244, .28597, 1.17964, .10154, .01335, + .00000, .07183, .14436, + .53235, .28383, 1.15720, .10077, .01521, + .00003, .07205, .14265, + .53196, .28189, 1.13478, .10004, .01669, + .00154, .07215, .14111, + .53119, .27962, 1.10699, .09915, .01819, + .00402, .07216, .13932, + .53003, .27716, 1.07786, .09817, .01960, + .00598, .07205, .13740, + .52862, .27480, 1.05067, .09719, .02071, + .00748, .07184, .13557 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .52695, .27236, 1.02316, .09616, .02172, + .00894, .07156, .13369, + .52542, .27032, 1.00047, .09528, .02251, + .01011, .07128, .13212, + .52331, .26776, .97280, .09418, .02334, + .01134, .07087, .13016, + .52124, .26544, .94829, .09315, .02399, + .01232, .07044, .12842, + .51927, .26330, .92624, .09221, .02455, + .01320, .07003, .12683, + .51651, .26052, .89826, .09096, .02514, + .01416, .06944, .12475, + .51374, .25787, .87227, .08977, .02562, + .01498, .06883, .12280, + .51105, .25538, .84848, .08864, .02603, + .01569, .06823, .12099 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .50816, .25286, .82488, .08749, .02636, + .01631, .06759, .11914, + .50524, .25037, .80226, .08636, .02664, + .01687, .06695, .11734, + .50241, .24800, .78129, .08529, .02687, + .01735, .06632, .11564, + .49961, .24573, .76178, .08425, .02703, + .01775, .06570, .11403, + .49678, .24347, .74268, .08322, .02718, + .01812, .06507, .11243, + .49386, .24122, .72411, .08219, .02728, + .01843, .06442, .11085, + .49107, .23909, .70691, .08122, .02736, + .01872, .06380, .10936, + .48835, .23706, .69086, .08029, .02740, + .01894, .06319, .10795 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48558, .23501, .67503, .07935, .02743, + .01915, .06258, .10653, + .48280, .23299, .65974, .07843, .02744, + .01934, .06197, .10515, + .48006, .23105, .64536, .07755, .02743, + .01949, .06137, .10382, + .47750, .22924, .63210, .07673, .02741, + .01963, .06081, .10258, + .47480, .22737, .61879, .07588, .02737, + .01973, .06023, .10132 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .58111, .31612, .97718, .08570, .00000, + .00000, .05648, .13564, + .58146, .31418, .97928, .08525, .00000, + .00000, .05682, .13413, + .58147, .31116, .97794, .08453, .00006, + .00000, .05724, .13188, + .58106, .30881, .97262, .08395, .00150, + .00000, .05746, .13021, + .58031, .30625, .96405, .08331, .00356, + .00000, .05763, .12843, + .57932, .30398, .95521, .08273, .00485, + .00000, .05770, .12686, + .57815, .30170, .94540, .08214, .00602, + .00000, .05772, .12535, + .57674, .29926, .93425, .08149, .00727, + .00000, .05771, .12375 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .57525, .29708, .92328, .08090, .00820, + .00000, .05764, .12232, + .57372, .29495, .91228, .08031, .00909, + .00000, .05755, .12095, + .57238, .29322, .90299, .07982, .00974, + .00000, .05745, .11987, + .56926, .28949, .88125, .07877, .01104, + .00003, .05719, .11753, + .56628, .28622, .86021, .07783, .01206, + .00109, .05690, .11550, + .56268, .28253, .83472, .07673, .01308, + .00284, .05650, .11322, + .55866, .27862, .80818, .07556, .01403, + .00420, .05602, .11086, + .55468, .27502, .78368, .07445, .01475, + .00524, .05552, .10869 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55049, .27136, .75912, .07330, .01540, + .00623, .05496, .10653, + .54692, .26833, .73901, .07235, .01590, + .00702, .05447, .10476, + .54236, .26465, .71467, .07120, .01641, + .00784, .05384, .10259, + .53817, .26136, .69332, .07014, .01680, + .00849, .05325, .10068, + .53431, .25838, .67425, .06917, .01713, + .00906, .05270, .09896, + .52919, .25455, .65026, .06794, .01746, + .00967, .05196, .09676, + .52427, .25095, .62819, .06676, .01773, + .01019, .05125, .09474, + .51962, .24762, .60814, .06567, .01794, + .01064, .05057, .09287 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51481, .24428, .58838, .06458, .01809, + .01101, .04986, .09100, + .51007, .24103, .56960, .06351, .01822, + .01135, .04916, .08919, + .50555, .23797, .55232, .06250, .01831, + .01163, .04850, .08751, + .50120, .23507, .53635, .06154, .01836, + .01186, .04785, .08595, + .49684, .23220, .52081, .06060, .01840, + .01207, .04720, .08440, + .49246, .22937, .50582, .05966, .01841, + .01224, .04656, .08289, + .48831, .22671, .49200, .05878, .01841, + .01239, .04596, .08146, + .48432, .22420, .47920, .05796, .01839, + .01251, .04538, .08013 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .48029, .22168, .46663, .05713, .01836, + .01261, .04479, .07880, + .47632, .21921, .45454, .05632, .01832, + .01270, .04422, .07751, + .47248, .21686, .44323, .05553, .01826, + .01276, .04367, .07629, + .46889, .21466, .43283, .05481, .01820, + .01282, .04315, .07516, + .46517, .21241, .42247, .05407, .01813, + .01286, .04262, .07400 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .62871, .32636, .79812, .07038, .00000, + .00000, .04768, .11678, + .62654, .32310, .79920, .06977, .00000, + .00000, .04771, .11485, + .62288, .31817, .79642, .06884, .00005, + .00000, .04766, .11202, + .61985, .31449, .79031, .06811, .00116, + .00000, .04757, .10998, + .61639, .31056, .78111, .06733, .00275, + .00000, .04743, .10784, + .61311, .30714, .77172, .06664, .00373, + .00000, .04726, .10600, + .60975, .30382, .76148, .06595, .00462, + .00000, .04706, .10424, + .60607, .30030, .74994, .06521, .00555, + .00000, .04682, .10240 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .60266, .29719, .73875, .06454, .00624, + .00000, .04657, .10081, + .59929, .29420, .72763, .06388, .00690, + .00000, .04632, .09929, + .59651, .29182, .71832, .06336, .00737, + .00000, .04611, .09808, + .59039, .28675, .69699, .06223, .00830, + .00002, .04559, .09554, + .58492, .28237, .67687, .06124, .00902, + .00080, .04510, .09338, + .57860, .27747, .65299, .06010, .00974, + .00208, .04453, .09098, + .57181, .27242, .62829, .05892, .01038, + .00306, .04389, .08853, + .56541, .26781, .60577, .05782, .01086, + .00379, .04326, .08631 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .55887, .26319, .58340, .05670, .01129, + .00449, .04260, .08413, + .55340, .25941, .56524, .05578, .01161, + .00504, .04205, .08235, + .54660, .25486, .54347, .05468, .01193, + .00560, .04135, .08021, + .54051, .25083, .52457, .05367, .01216, + .00604, .04071, .07835, + .53496, .24719, .50780, .05276, .01235, + .00642, .04013, .07669, + .52779, .24258, .48690, .05160, .01253, + .00683, .03937, .07461, + .52097, .23830, .46785, .05052, .01266, + .00716, .03865, .07269, + .51461, .23437, .45065, .04953, .01276, + .00744, .03797, .07094 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .50819, .23043, .43389, .04854, .01282, + .00768, .03728, .06921, + .50189, .22664, .41808, .04757, .01286, + .00788, .03662, .06755, + .49594, .22311, .40362, .04667, .01288, + .00805, .03599, .06602, + .49030, .21979, .39037, .04582, .01288, + .00818, .03539, .06460, + .48470, .21650, .37754, .04498, .01286, + .00830, .03479, .06321, + .47912, .21328, .36523, .04417, .01283, + .00839, .03421, .06184, + .47386, .21028, .35395, .04342, .01279, + .00847, .03366, .06057, + .46887, .20746, .34359, .04270, .01274, + .00852, .03314, .05939 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .46388, .20464, .33346, .04197, .01268, + .00857, .03262, .05823, + .45896, .20189, .32378, .04127, .01262, + .00861, .03210, .05710, + .45423, .19928, .31477, .04062, .01255, + .00863, .03162, .05603, + .44981, .19685, .30651, .04001, .01248, + .00865, .03116, .05504, + .44530, .19438, .29833, .03938, .01240, + .00865, .03070, .05406 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .66256, .32869, .68040, .05800, .00000, + .00000, .03975, .09809, + .65784, .32422, .67954, .05733, .00000, + .00000, .03958, .09604, + .65048, .31761, .67400, .05633, .00004, + .00000, .03929, .09304, + .64480, .31278, .66615, .05557, .00092, + .00000, .03903, .09089, + .63862, .30771, .65536, .05476, .00217, + .00000, .03871, .08867, + .63306, .30334, .64471, .05405, .00293, + .00000, .03841, .08677, + .62758, .29915, .63341, .05335, .00362, + .00000, .03809, .08498, + .62170, .29474, .62091, .05261, .00433, + .00000, .03773, .08312 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .61644, .29087, .60907, .05194, .00484, + .00000, .03740, .08151, + .61132, .28719, .59744, .05129, .00533, + .00000, .03706, .07999, + .60717, .28429, .58784, .05077, .00568, + .00000, .03678, .07881, + .59824, .27814, .56635, .04966, .00636, + .00002, .03617, .07631, + .59044, .27289, .54663, .04870, .00688, + .00060, .03563, .07420, + .58161, .26709, .52372, .04761, .00738, + .00155, .03499, .07188, + .57234, .26113, .50032, .04648, .00783, + .00227, .03430, .06956, + .56380, .25576, .47932, .04544, .00815, + .00280, .03363, .06749 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55516, .25044, .45866, .04441, .00843, + .00329, .03297, .06545, + .54801, .24611, .44205, .04356, .00863, + .00368, .03241, .06380, + .53932, .24090, .42238, .04252, .00883, + .00407, .03171, .06186, + .53160, .23635, .40549, .04160, .00896, + .00437, .03110, .06017, + .52460, .23227, .39061, .04078, .00906, + .00463, .03054, .05866, + .51567, .22714, .37225, .03975, .00915, + .00490, .02983, .05679, + .50730, .22240, .35569, .03878, .00921, + .00512, .02916, .05509, + .49955, .21806, .34087, .03789, .00925, + .00530, .02854, .05354 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .49178, .21376, .32658, .03703, .00926, + .00545, .02792, .05201, + .48425, .20962, .31317, .03618, .00925, + .00558, .02731, .05057, + .47720, .20578, .30100, .03539, .00923, + .00568, .02675, .04926, + .47054, .20221, .28994, .03465, .00920, + .00575, .02622, .04803, + .46394, .19870, .27930, .03393, .00916, + .00582, .02570, .04683, + .45744, .19526, .26917, .03323, .00911, + .00586, .02518, .04567, + .45137, .19206, .25993, .03258, .00905, + .00590, .02471, .04461, + .44562, .18906, .25148, .03196, .00899, + .00592, .02426, .04361 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .43988, .18608, .24327, .03135, .00893, + .00594, .02381, .04263, + .43427, .18319, .23546, .03076, .00886, + .00595, .02338, .04168, + .42892, .18046, .22824, .03020, .00879, + .00595, .02296, .04080, + .42393, .17792, .22165, .02968, .00872, + .00595, .02258, .03999, + .41885, .17535, .21517, .02916, .00864, + .00594, .02219, .03917 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .68383, .32461, .60122, .04799, .00000, + .00000, .03271, .08048, + .67656, .31917, .59717, .04733, .00000, + .00000, .03246, .07846, + .66559, .31117, .58730, .04633, .00004, + .00000, .03204, .07556, + .65740, .30537, .57675, .04557, .00074, + .00000, .03170, .07350, + .64867, .29934, .56354, .04476, .00173, + .00000, .03132, .07138, + .64100, .29418, .55106, .04406, .00232, + .00000, .03097, .06959, + .63354, .28928, .53828, .04337, .00285, + .00000, .03060, .06790, + .62563, .28417, .52444, .04265, .00339, + .00000, .03021, .06614 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .61867, .27972, .51173, .04199, .00378, + .00000, .02984, .06466, + .61196, .27550, .49943, .04137, .00415, + .00000, .02949, .06326, + .60658, .27218, .48944, .04088, .00441, + .00000, .02919, .06216, + .59515, .26520, .46759, .03982, .00491, + .00002, .02856, .05987, + .58529, .25929, .44810, .03891, .00528, + .00045, .02801, .05795, + .57425, .25283, .42596, .03790, .00563, + .00116, .02737, .05587, + .56283, .24624, .40365, .03686, .00593, + .00169, .02669, .05377, + .55244, .24034, .38399, .03590, .00615, + .00207, .02607, .05192 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .54204, .23453, .36491, .03495, .00632, + .00243, .02544, .05013, + .53352, .22982, .34973, .03417, .00645, + .00271, .02491, .04870, + .52325, .22418, .33197, .03322, .00656, + .00298, .02428, .04701, + .51418, .21931, .31688, .03241, .00663, + .00319, .02372, .04555, + .50600, .21496, .30369, .03169, .00669, + .00337, .02321, .04424, + .49569, .20950, .28760, .03076, .00672, + .00355, .02258, .04266, + .48609, .20450, .27325, .02991, .00673, + .00369, .02199, .04121, + .47725, .19994, .26051, .02914, .00673, + .00381, .02144, .03989 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .46848, .19543, .24832, .02838, .00672, + .00390, .02090, .03862, + .46000, .19113, .23700, .02765, .00669, + .00397, .02037, .03741, + .45209, .18716, .22679, .02698, .00665, + .00403, .01989, .03630, + .44470, .18346, .21758, .02635, .00660, + .00407, .01944, .03529, + .43740, .17983, .20876, .02572, .00656, + .00411, .01900, .03431, + .43025, .17631, .20045, .02513, .00650, + .00413, .01857, .03336, + .42356, .17305, .19291, .02457, .00644, + .00414, .01817, .03249, + .41728, .16999, .18606, .02406, .00638, + .00415, .01779, .03168 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .41104, .16697, .17942, .02356, .00632, + .00415, .01742, .03088, + .40496, .16404, .17314, .02306, .00626, + .00415, .01705, .03012, + .39919, .16127, .16737, .02258, .00619, + .00414, .01671, .02942, + .39383, .15871, .16212, .02214, .00613, + .00413, .01639, .02877, + .38839, .15614, .15697, .02171, .00606, + .00411, .01608, .02812 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .69355, .31550, .54372, .03987, .00000, + .00000, .02658, .06452, + .68395, .30922, .53571, .03921, .00000, + .00000, .02630, .06269, + .66964, .30009, .52068, .03822, .00003, + .00000, .02584, .06004, + .65912, .29356, .50704, .03749, .00059, + .00000, .02548, .05815, + .64804, .28681, .49113, .03672, .00137, + .00000, .02509, .05623, + .63845, .28106, .47674, .03603, .00183, + .00000, .02472, .05464, + .62923, .27562, .46252, .03536, .00224, + .00000, .02435, .05314, + .61953, .26997, .44743, .03466, .00265, + .00000, .02396, .05159 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .61106, .26510, .43390, .03405, .00295, + .00000, .02360, .05029, + .60296, .26049, .42102, .03346, .00322, + .00000, .02325, .04905, + .59655, .25686, .41076, .03299, .00341, + .00000, .02296, .04809, + .58295, .24931, .38878, .03200, .00377, + .00001, .02236, .04610, + .57132, .24298, .36967, .03115, .00404, + .00034, .02185, .04443, + .55845, .23606, .34845, .03023, .00428, + .00087, .02126, .04263, + .54526, .22904, .32744, .02927, .00449, + .00126, .02062, .04086, + .53337, .22282, .30918, .02840, .00463, + .00154, .02006, .03929 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .52156, .21672, .29170, .02755, .00474, + .00180, .01950, .03777, + .51194, .21180, .27795, .02686, .00481, + .00199, .01904, .03654, + .50042, .20594, .26205, .02601, .00487, + .00218, .01848, .03514, + .49034, .20089, .24869, .02529, .00490, + .00232, .01799, .03393, + .48129, .19640, .23711, .02465, .00493, + .00245, .01755, .03286, + .46992, .19083, .22314, .02385, .00493, + .00257, .01701, .03153, + .45941, .18573, .21081, .02312, .00492, + .00266, .01649, .03034, + .44980, .18108, .19996, .02246, .00490, + .00273, .01602, .02927 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .44030, .17652, .18967, .02179, .00487, + .00279, .01556, .02825, + .43119, .17218, .18019, .02116, .00483, + .00283, .01511, .02729, + .42273, .16817, .17171, .02057, .00479, + .00287, .01471, .02642, + .41483, .16448, .16411, .02004, .00474, + .00289, .01434, .02560, + .40706, .16087, .15687, .01953, .00469, + .00290, .01398, .02480, + .39949, .15739, .15008, .01903, .00464, + .00291, .01363, .02404, + .39244, .15416, .14395, .01858, .00459, + .00291, .01330, .02334, + .38585, .15113, .13841, .01814, .00453, + .00291, .01299, .02271 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .37932, .14814, .13308, .01770, .00448, + .00290, .01268, .02211, + .37297, .14525, .12805, .01729, .00442, + .00290, .01239, .02151, + .36695, .14256, .12347, .01692, .00436, + .00288, .01212, .02094, + .36137, .14006, .11930, .01658, .00431, + .00287, .01187, .02041, + .35575, .13755, .11523, .01622, .00426, + .00286, .01161, .01991 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .69297, .30238, .49652, .03314, .00000, + .00000, .02138, .05059, + .68120, .29551, .48452, .03252, .00000, + .00000, .02109, .04896, + .66386, .28559, .46449, .03159, .00003, + .00000, .02061, .04665, + .65130, .27850, .44800, .03088, .00046, + .00000, .02024, .04504, + .63821, .27119, .42975, .03012, .00108, + .00000, .01985, .04341, + .62692, .26505, .41380, .02948, .00144, + .00000, .01950, .04203, + .61617, .25927, .39842, .02887, .00175, + .00000, .01914, .04074, + .60492, .25328, .38241, .02823, .00206, + .00000, .01876, .03941 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .59519, .24814, .36846, .02765, .00228, + .00000, .01843, .03829, + .58592, .24329, .35533, .02710, .00248, + .00000, .01811, .03725, + .57861, .23949, .34504, .02667, .00262, + .00000, .01786, .03644, + .56323, .23161, .32340, .02577, .00288, + .00001, .01730, .03477, + .55020, .22501, .30502, .02501, .00307, + .00025, .01682, .03338, + .53589, .21784, .28501, .02417, .00324, + .00065, .01630, .03189, + .52131, .21063, .26552, .02329, .00338, + .00093, .01576, .03043, + .50825, .20429, .24884, .02253, .00346, + .00114, .01527, .02914 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .49540, .19807, .23311, .02176, .00353, + .00132, .01478, .02790, + .48499, .19307, .22085, .02114, .00357, + .00146, .01438, .02692, + .47252, .18717, .20679, .02042, .00360, + .00159, .01390, .02578, + .46173, .18208, .19516, .01979, .00361, + .00169, .01349, .02480, + .45210, .17757, .18516, .01922, .00361, + .00177, .01313, .02394, + .44000, .17202, .17320, .01855, .00360, + .00185, .01266, .02290, + .42891, .16695, .16274, .01792, .00358, + .00191, .01223, .02196, + .41881, .16235, .15359, .01734, .00355, + .00196, .01185, .02111 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .40887, .15787, .14501, .01677, .00352, + .00199, .01148, .02031, + .39938, .15360, .13715, .01624, .00348, + .00202, .01112, .01956, + .39060, .14967, .13018, .01574, .00344, + .00204, .01079, .01888, + .38246, .14604, .12396, .01529, .00339, + .00204, .01048, .01826, + .37449, .14251, .11806, .01485, .00335, + .00205, .01018, .01765, + .36671, .13912, .11258, .01444, .00330, + .00205, .00990, .01707, + .35949, .13599, .10766, .01406, .00326, + .00205, .00964, .01654, + .35276, .13308, .10323, .01371, .00321, + .00204, .00940, .01604 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .34611, .13022, .09899, .01337, .00317, + .00203, .00916, .01554, + .33966, .12746, .09500, .01303, .00312, + .00202, .00893, .01508, + .33359, .12488, .09138, .01271, .00307, + .00201, .00872, .01467, + .32797, .12248, .08809, .01241, .00303, + .00200, .00852, .01430, + .32232, .12009, .08491, .01212, .00299, + .00198, .00831, .01392 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .68288, .28662, .45312, .02782, .00000, + .00000, .01677, .03861, + .66929, .27929, .43753, .02717, .00000, + .00000, .01651, .03729, + .64942, .26877, .41328, .02623, .00003, + .00000, .01609, .03538, + .63513, .26132, .39459, .02555, .00036, + .00000, .01575, .03404, + .62032, .25370, .37469, .02484, .00084, + .00000, .01539, .03269, + .60767, .24730, .35771, .02423, .00112, + .00000, .01509, .03154, + .59570, .24130, .34176, .02365, .00135, + .00000, .01477, .03049, + .58325, .23509, .32542, .02304, .00159, + .00000, .01444, .02941 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .57253, .22977, .31149, .02249, .00175, + .00000, .01415, .02851, + .56237, .22478, .29852, .02197, .00190, + .00000, .01388, .02767, + .55438, .22090, .28847, .02157, .00200, + .00000, .01365, .02701, + .53766, .21287, .26771, .02075, .00218, + .00001, .01318, .02566, + .52355, .20619, .25048, .02005, .00231, + .00019, .01277, .02454, + .50816, .19897, .23208, .01930, .00243, + .00048, .01232, .02336, + .49260, .19172, .21436, .01853, .00252, + .00069, .01188, .02218, + .47878, .18535, .19944, .01783, .00257, + .00084, .01144, .02119 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .46520, .17916, .18552, .01716, .00261, + .00097, .01104, .02022, + .45424, .17421, .17478, .01663, .00263, + .00107, .01072, .01944, + .44122, .16841, .16261, .01599, .00264, + .00116, .01032, .01854, + .42997, .16342, .15262, .01546, .00264, + .00122, .00998, .01779, + .41996, .15900, .14408, .01498, .00263, + .00128, .00968, .01713, + .40753, .15355, .13401, .01437, .00261, + .00133, .00930, .01634, + .39614, .14861, .12526, .01384, .00259, + .00137, .00896, .01561, + .38578, .14416, .11767, .01337, .00256, + .00140, .00866, .01496 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .37566, .13981, .11062, .01288, .00253, + .00142, .00836, .01436, + .36603, .13571, .10419, .01243, .00249, + .00143, .00808, .01379, + .35714, .13194, .09851, .01202, .00245, + .00144, .00782, .01326, + .34893, .12849, .09349, .01165, .00242, + .00144, .00758, .01278, + .34089, .12513, .08876, .01129, .00238, + .00144, .00735, .01232, + .33312, .12191, .08438, .01095, .00234, + .00144, .00713, .01187, + .32591, .11894, .08046, .01065, .00230, + .00144, .00693, .01146, + .31921, .11618, .07695, .01036, .00226, + .00143, .00674, .01109 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .31259, .11347, .07361, .01008, .00223, + .00142, .00655, .01074, + .30621, .11086, .07047, .00981, .00219, + .00141, .00637, .01041, + .30024, .10842, .06764, .00954, .00215, + .00140, .00620, .01011, + .29471, .10617, .06507, .00930, .00212, + .00139, .00604, .00983, + .28917, .10393, .06260, .00906, .00208, + .00137, .00589, .00955 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .66514, .26825, .40940, .02291, .00000, + .00000, .01319, .02900, + .64997, .26069, .39120, .02232, .00000, + .00000, .01293, .02790, + .62797, .24987, .36411, .02146, .00002, + .00000, .01253, .02636, + .61226, .24224, .34412, .02082, .00028, + .00000, .01223, .02528, + .59610, .23447, .32341, .02015, .00064, + .00000, .01192, .02418, + .58239, .22795, .30619, .01959, .00085, + .00000, .01164, .02327, + .56945, .22188, .29030, .01905, .00102, + .00000, .01137, .02244, + .55604, .21564, .27425, .01850, .00120, + .00000, .01107, .02158 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .54454, .21032, .26081, .01804, .00131, + .00000, .01082, .02085, + .53369, .20533, .24843, .01758, .00142, + .00000, .01057, .02018, + .52521, .20144, .23895, .01721, .00149, + .00000, .01038, .01968, + .50750, .19346, .21963, .01648, .00162, + .00001, .00999, .01861, + .49266, .18685, .20388, .01588, .00171, + .00014, .00965, .01773, + .47658, .17971, .18731, .01521, .00179, + .00035, .00926, .01683, + .46039, .17259, .17160, .01454, .00185, + .00050, .00887, .01592, + .44606, .16639, .15853, .01394, .00188, + .00061, .00852, .01515 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .43208, .16036, .14645, .01336, .00190, + .00070, .00818, .01442, + .42084, .15555, .13722, .01290, .00191, + .00077, .00791, .01384, + .40755, .14992, .12691, .01237, .00191, + .00083, .00760, .01315, + .39611, .14511, .11851, .01192, .00190, + .00087, .00733, .01256, + .38597, .14086, .11137, .01153, .00189, + .00091, .00710, .01205, + .37341, .13566, .10301, .01102, .00187, + .00095, .00679, .01146, + .36199, .13095, .09582, .01058, .00185, + .00097, .00652, .01091, + .35165, .12671, .08963, .01017, .00182, + .00099, .00628, .01042 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .34154, .12260, .08391, .00978, .00179, + .00100, .00604, .00998, + .33195, .11872, .07874, .00942, .00176, + .00101, .00582, .00955, + .32315, .11517, .07419, .00909, .00173, + .00101, .00563, .00917, + .31504, .11193, .07020, .00879, .00170, + .00101, .00544, .00881, + .30713, .10878, .06646, .00850, .00167, + .00101, .00526, .00847, + .29949, .10577, .06301, .00822, .00164, + .00100, .00509, .00814, + .29244, .10300, .05992, .00797, .00161, + .00100, .00493, .00784, + .28592, .10043, .05718, .00773, .00158, + .00099, .00478, .00758 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .27951, .09792, .05458, .00750, .00155, + .00098, .00464, .00733, + .27333, .09550, .05214, .00727, .00152, + .00097, .00450, .00709, + .26753, .09324, .04994, .00707, .00149, + .00096, .00437, .00687, + .26217, .09116, .04796, .00687, .00147, + .00095, .00425, .00667, + .25681, .08910, .04606, .00669, .00144, + .00094, .00414, .00646 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .64043, .24858, .36483, .01885, .00000, + .00000, .01017, .02122, + .62405, .24091, .34503, .01829, .00000, + .00000, .00994, .02037, + .60043, .22999, .31652, .01747, .00002, + .00000, .00960, .01915, + .58368, .22234, .29621, .01687, .00021, + .00000, .00934, .01833, + .56651, .21456, .27566, .01626, .00048, + .00000, .00905, .01750, + .55200, .20809, .25889, .01576, .00064, + .00000, .00882, .01679, + .53840, .20206, .24362, .01528, .00077, + .00000, .00858, .01615, + .52435, .19587, .22837, .01478, .00089, + .00000, .00834, .01550 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .51237, .19064, .21577, .01435, .00097, + .00000, .00813, .01494, + .50107, .18574, .20431, .01396, .00105, + .00000, .00792, .01443, + .49225, .18196, .19566, .01365, .00110, + .00000, .00776, .01403, + .47399, .17415, .17821, .01300, .00119, + .00001, .00743, .01321, + .45876, .16770, .16418, .01247, .00125, + .00010, .00716, .01255, + .44230, .16081, .14962, .01191, .00130, + .00025, .00685, .01185, + .42582, .15396, .13598, .01133, .00134, + .00036, .00655, .01116, + .41135, .14796, .12481, .01082, .00136, + .00043, .00627, .01059 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .39725, .14220, .11460, .01033, .00137, + .00050, .00600, .01004, + .38596, .13763, .10685, .00995, .00137, + .00055, .00578, .00960, + .37268, .13225, .09824, .00950, .00136, + .00059, .00552, .00912, + .36130, .12769, .09129, .00912, .00135, + .00062, .00531, .00870, + .35123, .12367, .08543, .00878, .00134, + .00064, .00512, .00834, + .33881, .11876, .07864, .00838, .00132, + .00067, .00489, .00789, + .32755, .11433, .07282, .00801, .00130, + .00068, .00469, .00749, + .31740, .11036, .06783, .00768, .00128, + .00069, .00451, .00713 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .30754, .10653, .06328, .00737, .00126, + .00070, .00432, .00680, + .29820, .10293, .05918, .00708, .00123, + .00070, .00414, .00649, + .28963, .09965, .05558, .00681, .00121, + .00070, .00399, .00621, + .28177, .09664, .05245, .00656, .00119, + .00070, .00385, .00596, + .27413, .09373, .04951, .00632, .00116, + .00070, .00372, .00573, + .26678, .09095, .04683, .00610, .00114, + .00069, .00359, .00550, + .26000, .08840, .04445, .00590, .00111, + .00069, .00346, .00530, + .25374, .08605, .04233, .00572, .00109, + .00068, .00335, .00511 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .24759, .08375, .04031, .00553, .00107, + .00067, .00325, .00493, + .24168, .08155, .03844, .00535, .00105, + .00067, .00315, .00475, + .23614, .07949, .03676, .00520, .00103, + .00066, .00305, .00460, + .23104, .07760, .03525, .00506, .00101, + .00065, .00296, .00445, + .22597, .07573, .03380, .00492, .00099, + .00065, .00288, .00430 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .61011, .22792, .31943, .01527, .00000, + .00000, .00776, .01522, + .59282, .22032, .29916, .01476, .00000, + .00000, .00757, .01456, + .56802, .20956, .27069, .01403, .00001, + .00000, .00727, .01363, + .55055, .20203, .25094, .01349, .00016, + .00000, .00706, .01299, + .53275, .19440, .23131, .01293, .00036, + .00000, .00683, .01236, + .51775, .18806, .21553, .01250, .00047, + .00000, .00660, .01187, + .50377, .18218, .20140, .01207, .00056, + .00000, .00641, .01138, + .48938, .17617, .18745, .01163, .00065, + .00000, .00622, .01088 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .47712, .17110, .17607, .01126, .00071, + .00000, .00604, .01048, + .46561, .16637, .16578, .01092, .00076, + .00000, .00588, .01010, + .45668, .16274, .15806, .01066, .00080, + .00000, .00575, .00979, + .43820, .15524, .14270, .01010, .00086, + .00001, .00548, .00919, + .42287, .14906, .13053, .00965, .00090, + .00007, .00525, .00872, + .40638, .14247, .11807, .00917, .00093, + .00018, .00500, .00822, + .38990, .13596, .10653, .00870, .00095, + .00026, .00475, .00772, + .37552, .13031, .09715, .00827, .00096, + .00031, .00453, .00729 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .36157, .12488, .08868, .00787, .00097, + .00035, .00433, .00690, + .35044, .12057, .08230, .00756, .00097, + .00038, .00416, .00658, + .33742, .11557, .07526, .00719, .00096, + .00041, .00397, .00620, + .32628, .11131, .06964, .00688, .00095, + .00043, .00381, .00590, + .31646, .10757, .06493, .00661, .00094, + .00045, .00367, .00564, + .30441, .10302, .05947, .00628, .00092, + .00047, .00348, .00532, + .29349, .09892, .05487, .00600, .00091, + .00048, .00332, .00504, + .28367, .09526, .05094, .00576, .00089, + .00048, .00318, .00478 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .27420, .09174, .04736, .00549, .00087, + .00048, .00305, .00454, + .26526, .08843, .04415, .00524, .00085, + .00048, .00292, .00433, + .25708, .08541, .04137, .00503, .00083, + .00048, .00280, .00415, + .24957, .08268, .03893, .00484, .00082, + .00048, .00270, .00397, + .24229, .08003, .03665, .00466, .00080, + .00048, .00260, .00380, + .23534, .07750, .03459, .00449, .00078, + .00047, .00250, .00364, + .22895, .07519, .03277, .00432, .00076, + .00047, .00241, .00350, + .22306, .07306, .03115, .00417, .00075, + .00047, .00233, .00338 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .21728, .07098, .02963, .00402, .00073, + .00046, .00225, .00325, + .21172, .06899, .02821, .00389, .00072, + .00046, .00218, .00313, + .20652, .06715, .02693, .00377, .00070, + .00045, .00210, .00303, + .20173, .06545, .02578, .00366, .00069, + .00044, .00204, .00293, + .19699, .06378, .02469, .00355, .00068, + .00044, .00197, .00282 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .57516, .20690, .27427, .01214, .00000, + .00000, .00589, .01068, + .55731, .19948, .25449, .01168, .00000, + .00000, .00571, .01022, + .53187, .18900, .22728, .01103, .00001, + .00000, .00544, .00956, + .51401, .18171, .20882, .01057, .00011, + .00000, .00525, .00908, + .49587, .17437, .19078, .01011, .00026, + .00000, .00507, .00860, + .48074, .16825, .17646, .00972, .00034, + .00000, .00489, .00823, + .46660, .16262, .16379, .00935, .00040, + .00000, .00473, .00788, + .45209, .15688, .15140, .00898, .00046, + .00000, .00458, .00752 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .43982, .15205, .14141, .00868, .00051, + .00000, .00443, .00722, + .42832, .14756, .13244, .00839, .00054, + .00000, .00430, .00694, + .41942, .14409, .12576, .00817, .00057, + .00000, .00420, .00672, + .40106, .13700, .11260, .00771, .00061, + .00000, .00399, .00629, + .38590, .13119, .10231, .00733, .00063, + .00005, .00382, .00594, + .36966, .12501, .09188, .00693, .00065, + .00012, .00364, .00556, + .35354, .11892, .08233, .00655, .00067, + .00018, .00343, .00520, + .33947, .11366, .07469, .00621, .00067, + .00021, .00325, .00491 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .32590, .10861, .06780, .00589, .00067, + .00024, .00309, .00464, + .31511, .10462, .06265, .00563, .00067, + .00026, .00297, .00442, + .30254, .09999, .05703, .00535, .00066, + .00028, .00283, .00414, + .29180, .09608, .05255, .00510, .00065, + .00030, .00270, .00393, + .28235, .09266, .04882, .00488, .00065, + .00031, .00259, .00375, + .27083, .08849, .04454, .00464, .00063, + .00032, .00246, .00351, + .26045, .08475, .04094, .00439, .00062, + .00033, .00234, .00333, + .25114, .08142, .03789, .00417, .00061, + .00033, .00223, .00317 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .24216, .07823, .03513, .00397, .00059, + .00034, .00213, .00301, + .23371, .07524, .03267, .00379, .00058, + .00034, .00203, .00286, + .22601, .07252, .03053, .00364, .00057, + .00034, .00194, .00272, + .21896, .07005, .02867, .00350, .00056, + .00034, .00187, .00260, + .21214, .06768, .02695, .00336, .00054, + .00034, .00179, .00249, + .20563, .06542, .02538, .00323, .00053, + .00033, .00172, .00238, + .19966, .06335, .02400, .00310, .00052, + .00033, .00165, .00227, + .19416, .06145, .02278, .00299, .00051, + .00033, .00160, .00218 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .18878, .05960, .02163, .00289, .00050, + .00033, .00155, .00209, + .18363, .05784, .02056, .00279, .00049, + .00033, .00150, .00201, + .17884, .05620, .01961, .00270, .00048, + .00032, .00145, .00195, + .17444, .05470, .01875, .00262, .00047, + .00032, .00141, .00189, + .17007, .05322, .01794, .00253, .00046, + .00032, .00136, .00182 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .53665, .18611, .23082, .00959, .00000, + .00000, .00431, .00731, + .51858, .17899, .21229, .00920, .00000, + .00000, .00419, .00694, + .49293, .16893, .18731, .00863, .00001, + .00000, .00396, .00647, + .47502, .16197, .17064, .00823, .00008, + .00000, .00381, .00615, + .45690, .15499, .15456, .00784, .00018, + .00000, .00367, .00581, + .44181, .14921, .14198, .00752, .00024, + .00000, .00354, .00553, + .42781, .14387, .13095, .00720, .00028, + .00000, .00342, .00529, + .41348, .13845, .12027, .00688, .00033, + .00000, .00330, .00505 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40136, .13393, .11173, .00665, .00035, + .00000, .00319, .00483, + .39006, .12971, .10413, .00642, .00038, + .00000, .00308, .00463, + .38135, .12646, .09851, .00622, .00040, + .00000, .00300, .00448, + .36343, .11985, .08754, .00584, .00043, + .00000, .00283, .00417, + .34866, .11445, .07905, .00553, .00045, + .00003, .00270, .00393, + .33291, .10871, .07056, .00522, .00046, + .00009, .00255, .00370, + .31731, .10309, .06283, .00491, .00047, + .00012, .00242, .00343, + .30385, .09824, .05670, .00463, .00047, + .00014, .00228, .00324 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .29087, .09361, .05122, .00437, .00047, + .00016, .00216, .00305, + .28057, .08997, .04714, .00417, .00047, + .00018, .00206, .00289, + .26859, .08577, .04273, .00395, .00046, + .00019, .00196, .00270, + .25845, .08221, .03924, .00375, .00045, + .00020, .00186, .00256, + .24955, .07911, .03635, .00358, .00045, + .00021, .00178, .00244, + .23867, .07533, .03305, .00338, .00044, + .00021, .00168, .00230, + .22891, .07197, .03029, .00319, .00043, + .00022, .00160, .00216, + .22019, .06899, .02795, .00303, .00042, + .00022, .00153, .00205 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .21178, .06613, .02585, .00290, .00041, + .00022, .00145, .00193, + .20391, .06346, .02398, .00276, .00040, + .00022, .00138, .00182, + .19678, .06105, .02236, .00263, .00039, + .00022, .00132, .00174, + .19028, .05885, .02097, .00250, .00038, + .00022, .00126, .00166, + .18400, .05674, .01968, .00239, .00038, + .00022, .00121, .00159, + .17799, .05474, .01852, .00230, .00037, + .00022, .00116, .00151, + .17248, .05293, .01748, .00222, .00036, + .00022, .00112, .00144, + .16744, .05126, .01657, .00214, .00036, + .00022, .00108, .00138 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .16252, .04963, .01571, .00206, .00035, + .00022, .00103, .00133, + .15782, .04808, .01492, .00199, .00034, + .00022, .00099, .00127, + .15346, .04665, .01421, .00191, .00034, + .00022, .00096, .00122, + .14946, .04534, .01357, .00185, .00033, + .00022, .00093, .00117, + .14548, .04405, .01297, .00179, .00033, + .00022, .00090, .00113 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .49562, .16568, .18999, .00739, .00000, + .00000, .00316, .00487, + .47766, .15892, .17336, .00706, .00000, + .00000, .00304, .00463, + .45226, .14944, .15125, .00660, .00001, + .00000, .00285, .00430, + .43457, .14291, .13672, .00628, .00006, + .00000, .00273, .00406, + .41674, .13638, .12287, .00596, .00012, + .00000, .00262, .00383, + .40198, .13097, .11218, .00568, .00016, + .00000, .00251, .00367, + .38830, .12602, .10287, .00545, .00019, + .00000, .00241, .00348, + .37433, .12100, .09392, .00522, .00022, + .00000, .00231, .00327 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .36261, .11681, .08683, .00502, .00024, + .00000, .00224, .00312, + .35169, .11292, .08055, .00482, .00026, + .00000, .00216, .00299, + .34328, .10992, .07595, .00466, .00027, + .00000, .00209, .00291, + .32603, .10382, .06702, .00435, .00029, + .00000, .00196, .00272, + .31190, .09887, .06019, .00411, .00030, + .00002, .00186, .00254, + .29689, .09364, .05341, .00387, .00031, + .00006, .00176, .00236, + .28208, .08853, .04730, .00362, .00032, + .00008, .00165, .00219, + .26928, .08413, .04250, .00341, .00032, + .00010, .00155, .00206 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .25704, .07994, .03822, .00322, .00032, + .00011, .00147, .00193, + .24736, .07666, .03506, .00306, .00032, + .00012, .00140, .00182, + .23611, .07288, .03167, .00289, .00032, + .00012, .00133, .00171, + .22664, .06970, .02900, .00273, .00032, + .00013, .00126, .00161, + .21835, .06692, .02678, .00260, .00032, + .00013, .00119, .00153, + .20826, .06355, .02428, .00244, .00032, + .00013, .00112, .00144, + .19921, .06057, .02220, .00231, .00032, + .00013, .00106, .00136, + .19114, .05793, .02044, .00220, .00031, + .00013, .00101, .00129 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .18342, .05538, .01886, .00209, .00031, + .00013, .00096, .00122, + .17620, .05302, .01746, .00198, .00030, + .00013, .00091, .00115, + .16966, .05091, .01626, .00189, .00030, + .00013, .00086, .00109, + .16371, .04899, .01522, .00181, .00029, + .00013, .00082, .00103, + .15797, .04715, .01426, .00173, .00029, + .00013, .00079, .00098, + .15254, .04540, .01340, .00165, .00028, + .00013, .00075, .00093, + .14758, .04381, .01264, .00157, .00028, + .00013, .00072, .00089, + .14302, .04235, .01197, .00151, .00027, + .00013, .00070, .00085 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .13856, .04094, .01133, .00146, .00027, + .00013, .00067, .00082, + .13432, .03959, .01075, .00141, .00026, + .00013, .00065, .00078, + .13041, .03836, .01024, .00135, .00026, + .00013, .00062, .00075, + .12682, .03723, .00977, .00130, .00026, + .00013, .00060, .00072, + .12326, .03611, .00933, .00125, .00025, + .00013, .00058, .00069 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .45303, .14591, .15287, .00551, .00000, + .00000, .00228, .00322, + .43542, .13959, .13841, .00524, .00000, + .00000, .00219, .00306, + .41060, .13079, .11941, .00488, .00001, + .00000, .00206, .00282, + .39344, .12472, .10715, .00462, .00004, + .00000, .00195, .00266, + .37621, .11866, .09562, .00435, .00008, + .00000, .00185, .00252, + .36194, .11370, .08675, .00416, .00011, + .00000, .00176, .00238, + .34878, .10915, .07911, .00397, .00013, + .00000, .00170, .00225, + .33540, .10455, .07182, .00377, .00015, + .00000, .00164, .00213 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .32420, .10072, .06610, .00363, .00016, + .00000, .00157, .00202, + .31379, .09717, .06107, .00348, .00017, + .00000, .00151, .00193, + .30578, .09444, .05739, .00336, .00018, + .00000, .00146, .00187, + .28943, .08890, .05031, .00312, .00019, + .00000, .00136, .00176, + .27609, .08441, .04496, .00291, .00020, + .00002, .00129, .00166, + .26199, .07969, .03969, .00271, .00020, + .00004, .00123, .00155, + .24806, .07510, .03497, .00256, .00021, + .00005, .00115, .00142, + .23611, .07117, .03129, .00240, .00021, + .00006, .00108, .00132 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .22472, .06744, .02803, .00224, .00021, + .00007, .00101, .00124, + .21575, .06452, .02563, .00211, .00021, + .00007, .00096, .00117, + .20533, .06116, .02308, .00200, .00021, + .00007, .00090, .00110, + .19658, .05834, .02108, .00190, .00021, + .00007, .00086, .00104, + .18895, .05589, .01943, .00181, .00021, + .00007, .00082, .00098, + .17972, .05294, .01757, .00168, .00021, + .00007, .00077, .00091, + .17147, .05033, .01603, .00158, .00021, + .00007, .00073, .00085, + .16412, .04801, .01474, .00150, .00021, + .00007, .00068, .00080 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .15709, .04582, .01357, .00143, .00021, + .00007, .00065, .00075, + .15056, .04377, .01255, .00134, .00021, + .00007, .00061, .00071, + .14468, .04191, .01167, .00126, .00021, + .00007, .00059, .00068, + .13932, .04024, .01091, .00120, .00021, + .00007, .00056, .00066, + .13417, .03865, .01021, .00114, .00021, + .00007, .00053, .00063, + .12928, .03714, .00958, .00109, .00021, + .00007, .00051, .00059, + .12484, .03578, .00903, .00105, .00021, + .00007, .00049, .00055, + .12077, .03453, .00854, .00100, .00021, + .00007, .00047, .00052 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .11681, .03332, .00809, .00096, .00020, + .00007, .00045, .00051, + .11303, .03217, .00766, .00092, .00020, + .00007, .00043, .00049, + .10953, .03111, .00729, .00089, .00020, + .00007, .00041, .00047, + .10633, .03015, .00695, .00086, .00020, + .00007, .00039, .00045, + .10320, .02920, .00663, .00083, .00020, + .00007, .00038, .00044 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .40971, .12721, .12013, .00408, .00000, + .00000, .00162, .00205, + .39269, .12139, .10797, .00386, .00000, + .00000, .00155, .00195, + .36886, .11327, .09221, .00354, .00000, + .00000, .00145, .00180, + .35244, .10770, .08217, .00332, .00002, + .00000, .00138, .00171, + .33599, .10218, .07281, .00311, .00005, + .00000, .00131, .00161, + .32244, .09767, .06568, .00296, .00007, + .00000, .00125, .00151, + .31000, .09352, .05959, .00279, .00008, + .00000, .00119, .00144, + .29737, .08934, .05382, .00261, .00009, + .00000, .00114, .00137 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .28678, .08589, .04934, .00252, .00010, + .00000, .00109, .00130, + .27696, .08269, .04541, .00242, .00011, + .00000, .00105, .00124, + .26944, .08024, .04255, .00233, .00011, + .00000, .00102, .00120, + .25414, .07528, .03710, .00216, .00012, + .00000, .00095, .00112, + .24171, .07129, .03300, .00202, .00012, + .00001, .00090, .00104, + .22861, .06710, .02899, .00187, .00012, + .00002, .00084, .00095, + .21576, .06302, .02543, .00174, .00012, + .00003, .00079, .00090, + .20476, .05954, .02267, .00162, .00012, + .00003, .00075, .00084 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .19430, .05625, .02025, .00151, .00012, + .00003, .00070, .00079, + .18609, .05369, .01849, .00142, .00012, + .00003, .00066, .00075, + .17664, .05074, .01659, .00131, .00012, + .00003, .00062, .00070, + .16869, .04829, .01512, .00124, .00012, + .00003, .00059, .00066, + .16177, .04616, .01392, .00118, .00012, + .00003, .00056, .00062, + .15341, .04358, .01256, .00110, .00012, + .00003, .00052, .00058, + .14597, .04132, .01144, .00103, .00012, + .00003, .00050, .00054, + .13938, .03933, .01049, .00098, .00012, + .00003, .00048, .00051 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .13309, .03744, .00966, .00092, .00012, + .00003, .00044, .00047, + .12725, .03568, .00892, .00087, .00012, + .00003, .00042, .00044, + .12198, .03410, .00829, .00082, .00012, + .00003, .00041, .00042, + .11722, .03267, .00774, .00078, .00012, + .00003, .00039, .00041, + .11265, .03131, .00724, .00074, .00012, + .00003, .00036, .00040, + .10834, .03003, .00678, .00069, .00012, + .00003, .00034, .00038, + .10441, .02887, .00639, .00065, .00012, + .00003, .00033, .00036, + .10081, .02782, .00604, .00063, .00012, + .00003, .00031, .00033 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .09731, .02680, .00571, .00062, .00012, + .00003, .00030, .00031, + .09400, .02584, .00541, .00060, .00012, + .00003, .00029, .00030, + .09096, .02494, .00514, .00057, .00012, + .00003, .00028, .00029, + .08819, .02413, .00490, .00054, .00012, + .00003, .00027, .00028, + .08545, .02333, .00467, .00052, .00012, + .00003, .00026, .00027 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .36652, .10983, .09229, .00302, .00000, + .00000, .00104, .00125, + .35038, .10453, .08242, .00285, .00000, + .00000, .00101, .00117, + .32783, .09719, .06976, .00261, .00000, + .00000, .00094, .00107, + .31234, .09217, .06179, .00243, .00001, + .00000, .00089, .00101, + .29689, .08719, .05442, .00227, .00003, + .00000, .00083, .00095, + .28416, .08314, .04885, .00218, .00004, + .00000, .00079, .00089, + .27252, .07943, .04413, .00208, .00005, + .00000, .00076, .00083, + .26075, .07571, .03969, .00196, .00006, + .00000, .00073, .00079 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25095, .07262, .03625, .00186, .00006, + .00000, .00069, .00076, + .24190, .06978, .03326, .00176, .00006, + .00000, .00066, .00074, + .23497, .06760, .03111, .00169, .00007, + .00000, .00063, .00072, + .22087, .06322, .02699, .00157, .00007, + .00000, .00059, .00067, + .20943, .05971, .02392, .00148, .00007, + .00001, .00056, .00062, + .19743, .05605, .02094, .00138, .00007, + .00001, .00052, .00055, + .18574, .05247, .01832, .00127, .00007, + .00001, .00048, .00051, + .17579, .04944, .01629, .00117, .00007, + .00001, .00045, .00047 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .16634, .04658, .01452, .00108, .00007, + .00001, .00042, .00044, + .15894, .04435, .01323, .00102, .00007, + .00001, .00040, .00042, + .15040, .04181, .01186, .00097, .00007, + .00001, .00037, .00039, + .14326, .03969, .01079, .00092, .00007, + .00001, .00035, .00036, + .13707, .03786, .00992, .00087, .00007, + .00001, .00034, .00033, + .12962, .03566, .00894, .00081, .00007, + .00001, .00031, .00031, + .12305, .03372, .00813, .00074, .00007, + .00001, .00028, .00030, + .11724, .03201, .00746, .00067, .00007, + .00001, .00026, .00029 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .11166, .03040, .00686, .00065, .00007, + .00001, .00025, .00027, + .10649, .02891, .00633, .00063, .00007, + .00001, .00024, .00025, + .10185, .02757, .00587, .00060, .00007, + .00001, .00023, .00023, + .09768, .02637, .00548, .00057, .00007, + .00001, .00022, .00022, + .09369, .02523, .00512, .00054, .00007, + .00001, .00021, .00021, + .08992, .02416, .00480, .00050, .00007, + .00001, .00020, .00020, + .08650, .02318, .00452, .00047, .00007, + .00001, .00019, .00019, + .08339, .02230, .00427, .00045, .00007, + .00001, .00018, .00018 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .08037, .02144, .00403, .00044, .00007, + .00001, .00016, .00017, + .07750, .02063, .00382, .00042, .00007, + .00001, .00016, .00016, + .07487, .01989, .00363, .00040, .00007, + .00001, .00015, .00015, + .07247, .01921, .00346, .00039, .00007, + .00001, .00015, .00015, + .07011, .01855, .00329, .00037, .00007, + .00001, .00014, .00014 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .32405, .09343, .06888, .00201, .00000, + .00000, .00077, .00078, + .30888, .08869, .06114, .00190, .00000, + .00000, .00073, .00074, + .28780, .08212, .05133, .00175, .00000, + .00000, .00066, .00070, + .27339, .07766, .04521, .00164, .00001, + .00000, .00061, .00066, + .25906, .07325, .03959, .00154, .00002, + .00000, .00057, .00061, + .24735, .06968, .03539, .00143, .00002, + .00000, .00054, .00057, + .23667, .06642, .03185, .00134, .00003, + .00000, .00051, .00054, + .22589, .06315, .02853, .00125, .00003, + .00000, .00049, .00051 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .21689, .06046, .02598, .00121, .00003, + .00000, .00047, .00047, + .20859, .05798, .02377, .00116, .00003, + .00000, .00045, .00044, + .20226, .05609, .02218, .00112, .00003, + .00000, .00043, .00043, + .18947, .05228, .01917, .00103, .00003, + .00000, .00039, .00040, + .17917, .04922, .01694, .00095, .00003, + .00000, .00036, .00037, + .16836, .04604, .01479, .00087, .00003, + .00000, .00034, .00032, + .15782, .04297, .01290, .00082, .00003, + .00000, .00034, .00031, + .14890, .04038, .01145, .00076, .00003, + .00000, .00030, .00029 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .14046, .03793, .01019, .00070, .00003, + .00000, .00027, .00027, + .13386, .03603, .00927, .00066, .00003, + .00000, .00025, .00026, + .12631, .03387, .00829, .00062, .00003, + .00000, .00023, .00025, + .12002, .03207, .00754, .00058, .00003, + .00000, .00022, .00022, + .11457, .03053, .00693, .00055, .00003, + .00000, .00021, .00020, + .10804, .02868, .00624, .00050, .00003, + .00000, .00020, .00019, + .10225, .02704, .00567, .00047, .00003, + .00000, .00019, .00018, + .09715, .02561, .00519, .00045, .00003, + .00000, .00018, .00017 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .09231, .02426, .00478, .00043, .00003, + .00000, .00016, .00015, + .08784, .02302, .00440, .00040, .00003, + .00000, .00015, .00014, + .08384, .02190, .00408, .00037, .00003, + .00000, .00014, .00015, + .08024, .02091, .00381, .00035, .00003, + .00000, .00013, .00014, + .07679, .01996, .00356, .00034, .00003, + .00000, .00013, .00013, + .07355, .01907, .00333, .00032, .00003, + .00000, .00012, .00012, + .07063, .01826, .00313, .00029, .00003, + .00000, .00011, .00011, + .06796, .01753, .00296, .00028, .00003, + .00000, .00011, .00010 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .06538, .01683, .00280, .00027, .00003, + .00000, .00010, .00010, + .06293, .01617, .00265, .00026, .00003, + .00000, .00010, .00009, + .06068, .01556, .00251, .00025, .00003, + .00000, .00009, .00009, + .05863, .01501, .00239, .00024, .00003, + .00000, .00009, .00009, + .05663, .01447, .00228, .00023, .00003, + .00000, .00009, .00008 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .28294, .07851, .05004, .00133, .00000, + .00000, .00052, .00050, + .26895, .07432, .04418, .00124, .00000, + .00000, .00049, .00047, + .24958, .06856, .03680, .00112, .00000, + .00000, .00044, .00043, + .23637, .06465, .03225, .00105, .00000, + .00000, .00042, .00040, + .22328, .06080, .02810, .00099, .00001, + .00000, .00039, .00038, + .21264, .05769, .02502, .00092, .00001, + .00000, .00037, .00034, + .20292, .05485, .02244, .00087, .00001, + .00000, .00035, .00033, + .19314, .05201, .02004, .00082, .00001, + .00000, .00033, .00032 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .18504, .04969, .01820, .00078, .00001, + .00000, .00032, .00030, + .17760, .04755, .01661, .00074, .00001, + .00000, .00030, .00028, + .17194, .04592, .01547, .00071, .00001, + .00000, .00029, .00026, + .16047, .04265, .01333, .00065, .00001, + .00000, .00026, .00025, + .15125, .04004, .01175, .00060, .00001, + .00000, .00025, .00023, + .14167, .03733, .01024, .00054, .00001, + .00000, .00023, .00021, + .13238, .03472, .00891, .00049, .00001, + .00000, .00021, .00020, + .12451, .03251, .00790, .00045, .00001, + .00000, .00019, .00019 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11707, .03046, .00702, .00042, .00001, + .00000, .00018, .00018, + .11128, .02888, .00639, .00040, .00001, + .00000, .00016, .00016, + .10471, .02706, .00571, .00037, .00001, + .00000, .00016, .00014, + .09923, .02555, .00519, .00035, .00001, + .00000, .00015, .00013, + .09449, .02425, .00476, .00033, .00001, + .00000, .00014, .00013, + .08882, .02272, .00429, .00030, .00001, + .00000, .00013, .00012, + .08382, .02137, .00390, .00029, .00001, + .00000, .00012, .00011, + .07943, .02019, .00357, .00027, .00001, + .00000, .00011, .00010 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .07528, .01907, .00328, .00026, .00001, + .00000, .00010, .00010, + .07146, .01805, .00302, .00024, .00001, + .00000, .00010, .00009, + .06806, .01714, .00280, .00022, .00001, + .00000, .00009, .00008, + .06500, .01633, .00261, .00020, .00001, + .00000, .00009, .00007, + .06208, .01555, .00244, .00019, .00001, + .00000, .00009, .00007, + .05932, .01483, .00228, .00018, .00001, + .00000, .00008, .00007, + .05682, .01418, .00215, .00018, .00001, + .00000, .00008, .00007, + .05457, .01358, .00203, .00017, .00001, + .00000, .00007, .00007 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .05242, .01301, .00191, .00016, .00001, + .00000, .00007, .00007, + .05038, .01247, .00181, .00015, .00001, + .00000, .00007, .00006, + .04849, .01199, .00171, .00014, .00001, + .00000, .00006, .00006, + .04678, .01154, .00163, .00014, .00001, + .00000, .00006, .00005, + .04511, .01111, .00155, .00013, .00001, + .00000, .00006, .00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .24398, .06522, .03540, .00091, .00000, + .00000, .00031, .00029, + .23124, .06158, .03111, .00086, .00000, + .00000, .00029, .00026, + .21367, .05658, .02574, .00079, .00000, + .00000, .00026, .00022, + .20178, .05319, .02246, .00073, .00000, + .00000, .00024, .00021, + .19004, .04986, .01950, .00066, .00000, + .00000, .00023, .00021, + .18049, .04719, .01731, .00062, .00000, + .00000, .00022, .00019, + .17182, .04477, .01548, .00058, .00000, + .00000, .00020, .00018, + .16312, .04235, .01379, .00054, .00000, + .00000, .00018, .00017 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .15591, .04036, .01251, .00052, .00000, + .00000, .00018, .00015, + .14931, .03854, .01140, .00049, .00000, + .00000, .00017, .00014, + .14430, .03715, .01061, .00046, .00000, + .00000, .00016, .00014, + .13420, .03439, .00912, .00043, .00000, + .00000, .00015, .00013, + .12610, .03219, .00803, .00040, .00000, + .00000, .00014, .00013, + .11769, .02990, .00699, .00036, .00000, + .00000, .00012, .00012, + .10959, .02773, .00608, .00033, .00000, + .00000, .00011, .00011, + .10276, .02590, .00539, .00031, .00000, + .00000, .00011, .00008 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09633, .02418, .00479, .00029, .00000, + .00000, .00010, .00008, + .09135, .02286, .00435, .00027, .00000, + .00000, .00009, .00008, + .08568, .02136, .00389, .00025, .00000, + .00000, .00008, .00007, + .08098, .02012, .00354, .00024, .00000, + .00000, .00008, .00006, + .07693, .01906, .00325, .00023, .00000, + .00000, .00007, .00005, + .07211, .01780, .00292, .00020, .00000, + .00000, .00007, .00006, + .06785, .01670, .00265, .00019, .00000, + .00000, .00006, .00005, + .06412, .01573, .00243, .00019, .00000, + .00000, .00005, .00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .06063, .01483, .00223, .00017, .00000, + .00000, .00005, .00005, + .05742, .01400, .00206, .00016, .00000, + .00000, .00005, .00005, + .05455, .01326, .00191, .00014, .00000, + .00000, .00004, .00004, + .05197, .01261, .00178, .00014, .00000, + .00000, .00004, .00004, + .04951, .01198, .00166, .00014, .00000, + .00000, .00004, .00004, + .04723, .01140, .00155, .00012, .00000, + .00000, .00004, .00004, + .04518, .01088, .00146, .00011, .00000, + .00000, .00004, .00003, + .04331, .01040, .00138, .00010, .00000, + .00000, .00004, .00003 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .04150, .00995, .00130, .00010, .00000, + .00000, .00004, .00003, + .03980, .00952, .00123, .00010, .00000, + .00000, .00003, .00003, + .03826, .00913, .00116, .00009, .00000, + .00000, .00003, .00002, + .03686, .00878, .00111, .00009, .00000, + .00000, .00003, .00002, + .03548, .00844, .00105, .00008, .00000, + .00000, .00003, .00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .20716, .05318, .02417, .00051, .00000, + .00000, .00022, .00020, + .19575, .05006, .02115, .00049, .00000, + .00000, .00021, .00018, + .18010, .04581, .01741, .00046, .00000, + .00000, .00019, .00015, + .16955, .04294, .01514, .00042, .00000, + .00000, .00018, .00014, + .15918, .04013, .01310, .00038, .00000, + .00000, .00017, .00014, + .15078, .03787, .01160, .00033, .00000, + .00000, .00015, .00013, + .14314, .03583, .01036, .00032, .00000, + .00000, .00014, .00012, + .13549, .03381, .00921, .00031, .00000, + .00000, .00013, .00011 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .12921, .03215, .00834, .00029, .00000, + .00000, .00012, .00010, + .12345, .03063, .00760, .00027, .00000, + .00000, .00011, .00010, + .11908, .02948, .00706, .00026, .00000, + .00000, .00011, .00009, + .11034, .02719, .00607, .00024, .00000, + .00000, .00010, .00008, + .10336, .02537, .00534, .00022, .00000, + .00000, .00009, .00008, + .09614, .02348, .00465, .00019, .00000, + .00000, .00008, .00007, + .08919, .02170, .00404, .00017, .00000, + .00000, .00008, .00007, + .08333, .02020, .00358, .00017, .00000, + .00000, .00007, .00006 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07788, .01880, .00318, .00016, .00000, + .00000, .00007, .00005, + .07366, .01773, .00290, .00014, .00000, + .00000, .00006, .00005, + .06886, .01651, .00259, .00014, .00000, + .00000, .00005, .00005, + .06490, .01551, .00235, .00013, .00000, + .00000, .00005, .00004, + .06150, .01466, .00216, .00012, .00000, + .00000, .00005, .00004, + .05744, .01365, .00195, .00012, .00000, + .00000, .00004, .00004, + .05390, .01276, .00177, .00011, .00000, + .00000, .00004, .00003, + .05081, .01199, .00162, .00011, .00000, + .00000, .00004, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04792, .01127, .00148, .00009, .00000, + .00000, .00004, .00003, + .04526, .01062, .00137, .00008, .00000, + .00000, .00003, .00003, + .04289, .01003, .00127, .00007, .00000, + .00000, .00003, .00003, + .04077, .00951, .00118, .00007, .00000, + .00000, .00003, .00003, + .03877, .00902, .00110, .00006, .00000, + .00000, .00003, .00003, + .03689, .00856, .00103, .00006, .00000, + .00000, .00003, .00002, + .03520, .00815, .00097, .00006, .00000, + .00000, .00003, .00002, + .03368, .00778, .00091, .00006, .00000, + .00000, .00003, .00002 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .03221, .00743, .00086, .00005, .00000, + .00000, .00002, .00003, + .03083, .00710, .00081, .00005, .00000, + .00000, .00002, .00003, + .02957, .00679, .00077, .00005, .00000, + .00000, .00002, .00002, + .02843, .00652, .00073, .00005, .00000, + .00000, .00002, .00002, + .02733, .00625, .00069, .00004, .00000, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/ + .14244, .03374, .01019, .00021, .00000, + .00000, .00006, .00005, + .13379, .03157, .00886, .00019, .00000, + .00000, .00006, .00005, + .12197, .02862, .00725, .00018, .00000, + .00000, .00005, .00004, + .11407, .02666, .00628, .00015, .00000, + .00000, .00005, .00004, + .10637, .02475, .00542, .00012, .00000, + .00000, .00005, .00004, + .10015, .02322, .00480, .00012, .00000, + .00000, .00004, .00003, + .09456, .02185, .00428, .00011, .00000, + .00000, .00004, .00004, + .08902, .02050, .00381, .00010, .00000, + .00000, .00004, .00004 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08447, .01939, .00345, .00009, .00000, + .00000, .00003, .00003, + .08032, .01839, .00314, .00009, .00000, + .00000, .00003, .00003, + .07718, .01764, .00293, .00009, .00000, + .00000, .00003, .00002, + .07094, .01614, .00252, .00009, .00000, + .00000, .00003, .00002, + .06600, .01496, .00222, .00008, .00000, + .00000, .00002, .00002, + .06093, .01375, .00194, .00007, .00000, + .00000, .00003, .00002, + .05611, .01260, .00169, .00006, .00000, + .00000, .00003, .00002, + .05207, .01165, .00150, .00005, .00000, + .00000, .00002, .00002 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04833, .01078, .00134, .00005, .00000, + .00000, .00002, .00002, + .04546, .01011, .00122, .00004, .00000, + .00000, .00002, .00001, + .04222, .00935, .00109, .00004, .00000, + .00000, .00002, .00001, + .03956, .00873, .00099, .00004, .00000, + .00000, .00002, .00001, + .03729, .00821, .00091, .00003, .00000, + .00000, .00002, .00001, + .03461, .00759, .00082, .00003, .00000, + .00000, .00001, .00001, + .03228, .00706, .00075, .00003, .00000, + .00000, .00001, .00001, + .03025, .00659, .00068, .00003, .00000, + .00000, .00002, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/ + .02835, .00617, .00063, .00003, .00000, + .00000, .00001, .00001, + .02663, .00577, .00058, .00002, .00000, + .00000, .00001, .00001, + .02511, .00543, .00054, .00002, .00000, + .00000, .00001, .00001, + .02376, .00512, .00050, .00002, .00000, + .00000, .00001, .00001, + .02248, .00484, .00046, .00002, .00000, + .00000, .00001, .00001, + .02130, .00457, .00043, .00002, .00000, + .00000, .00001, .00001, + .02023, .00433, .00041, .00002, .00000, + .00000, .00001, .00001, + .01927, .00412, .00038, .00002, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01836, .00392, .00036, .00001, .00000, + .00000, .00001, .00001, + .01750, .00373, .00034, .00001, .00000, + .00000, .00001, .00001, + .01672, .00355, .00032, .00001, .00000, + .00000, .00001, .00001, + .01602, .00340, .00030, .00001, .00000, + .00000, .00001, .00000, + .01534, .00325, .00029, .00001, .00000, + .00000, .00001, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .09042, .01961, .00362, .00007, .00000, + .00000, .00001, .00002, + .08436, .01823, .00316, .00006, .00000, + .00000, .00002, .00001, + .07615, .01637, .00259, .00006, .00000, + .00000, .00001, .00000, + .07071, .01514, .00226, .00005, .00000, + .00000, .00001, .00001, + .06545, .01396, .00196, .00005, .00000, + .00000, .00001, .00001, + .06124, .01302, .00174, .00004, .00000, + .00000, .00001, .00001, + .05748, .01218, .00156, .00003, .00000, + .00000, .00001, .00001, + .05378, .01135, .00140, .00002, .00000, + .00000, .00000, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05074, .01068, .00127, .00003, .00000, + .00000, .00001, .00001, + .04800, .01008, .00117, .00003, .00000, + .00000, .00001, .00001, + .04595, .00963, .00109, .00002, .00000, + .00000, .00001, .00001, + .04188, .00874, .00095, .00002, .00000, + .00000, .00001, .00001, + .03868, .00804, .00084, .00002, .00000, + .00000, .00001, .00001, + .03542, .00733, .00074, .00002, .00000, + .00000, .00000, .00001, + .03232, .00667, .00064, .00002, .00000, + .00000, .00000, .00001, + .02980, .00612, .00058, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02745, .00562, .00051, .00001, .00000, + .00000, .00000, .00000, + .02566, .00524, .00047, .00002, .00000, + .00000, .00000, .00000, + .02366, .00481, .00042, .00001, .00000, + .00000, .00000, .00000, + .02203, .00447, .00038, .00001, .00000, + .00000, .00000, .00000, + .02065, .00417, .00035, .00001, .00000, + .00000, .00000, .00000, + .01902, .00383, .00032, .00001, .00000, + .00000, .00000, .00000, + .01762, .00354, .00029, .00001, .00000, + .00000, .00000, .00000, + .01642, .00329, .00026, .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)/ + .01530, .00305, .00024, .00001, .00000, + .00000, .00000, .00000, + .01428, .00284, .00022, .00001, .00000, + .00000, .00000, .00000, + .01339, .00266, .00021, .00001, .00000, + .00000, .00000, .00000, + .01260, .00250, .00019, .00001, .00000, + .00000, .00000, .00000, + .01186, .00235, .00018, .00000, .00000, + .00000, .00000, .00000, + .01118, .00221, .00017, .00000, .00000, + .00000, .00000, .00000, + .01057, .00208, .00015, .00000, .00000, + .00000, .00000, .00000, + .01002, .00197, .00015, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00950, .00186, .00014, .00001, .00000, + .00000, .00000, .00000, + .00902, .00177, .00013, .00001, .00000, + .00000, .00000, .00000, + .00858, .00168, .00012, .00000, .00000, + .00000, .00000, .00000, + .00819, .00160, .00011, .00000, .00000, + .00000, .00000, .00000, + .00781, .00152, .00011, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/ + .05167, .01016, .00104, .00003, .00000, + .00000, .00000, .00000, + .04784, .00938, .00092, .00002, .00000, + .00000, .00000, .00000, + .04273, .00833, .00077, .00001, .00000, + .00000, .00000, .00000, + .03936, .00764, .00068, .00001, .00000, + .00000, .00000, .00000, + .03612, .00699, .00060, .00002, .00000, + .00000, .00000, .00000, + .03356, .00647, .00055, .00001, .00000, + .00000, .00000, .00000, + .03129, .00602, .00050, .00001, .00000, + .00000, .00000, .00000, + .02906, .00557, .00045, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/ + .02726, .00521, .00041, .00001, .00000, + .00000, .00000, .00000, + .02564, .00489, .00038, .00001, .00000, + .00000, .00000, .00000, + .02442, .00465, .00036, .00001, .00000, + .00000, .00000, .00000, + .02205, .00418, .00031, .00001, .00000, + .00000, .00000, .00000, + .02020, .00381, .00028, .00001, .00000, + .00000, .00000, .00000, + .01833, .00345, .00025, .00000, .00000, + .00000, .00000, .00000, + .01658, .00310, .00022, .00000, .00000, + .00000, .00000, .00000, + .01516, .00283, .00020, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/ + .01385, .00257, .00018, .00000, .00000, + .00000, .00000, .00000, + .01286, .00238, .00016, .00000, .00000, + .00000, .00000, .00000, + .01175, .00217, .00014, .00000, .00000, + .00000, .00000, .00000, + .01087, .00200, .00013, .00000, .00000, + .00000, .00000, .00000, + .01012, .00186, .00012, .00000, .00000, + .00000, .00000, .00000, + .00925, .00169, .00011, .00000, .00000, + .00000, .00000, .00000, + .00850, .00155, .00010, .00000, .00000, + .00000, .00000, .00000, + .00787, .00143, .00009, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/ + .00728, .00132, .00008, .00000, .00000, + .00000, .00000, .00000, + .00675, .00122, .00008, .00000, .00000, + .00000, .00000, .00000, + .00629, .00114, .00007, .00000, .00000, + .00000, .00000, .00000, + .00589, .00106, .00006, .00000, .00000, + .00000, .00000, .00000, + .00551, .00099, .00006, .00000, .00000, + .00000, .00000, .00000, + .00516, .00093, .00006, .00000, .00000, + .00000, .00000, .00000, + .00485, .00087, .00005, .00000, .00000, + .00000, .00000, .00000, + .00458, .00082, .00005, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/ + .00432, .00077, .00005, .00000, .00000, + .00000, .00000, .00000, + .00408, .00073, .00004, .00000, .00000, + .00000, .00000, .00000, + .00386, .00069, .00004, .00000, .00000, + .00000, .00000, .00000, + .00367, .00065, .00004, .00000, .00000, + .00000, .00000, .00000, + .00348, .00062, .00004, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .02533, .00444, .00022, .00000, .00000, + .00000, .00000, .00000, + .02325, .00406, .00021, .00000, .00000, + .00000, .00000, .00000, + .02050, .00356, .00018, .00000, .00000, + .00000, .00000, .00000, + .01871, .00324, .00017, .00000, .00000, + .00000, .00000, .00000, + .01701, .00294, .00015, .00000, .00000, + .00000, .00000, .00000, + .01567, .00270, .00014, .00000, .00000, + .00000, .00000, .00000, + .01450, .00249, .00013, .00000, .00000, + .00000, .00000, .00000, + .01335, .00229, .00012, .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)/ + .01244, .00212, .00011, .00000, .00000, + .00000, .00000, .00000, + .01162, .00198, .00010, .00000, .00000, + .00000, .00000, .00000, + .01102, .00187, .00010, .00000, .00000, + .00000, .00000, .00000, + .00984, .00166, .00009, .00000, .00000, + .00000, .00000, .00000, + .00892, .00150, .00008, .00000, .00000, + .00000, .00000, .00000, + .00801, .00135, .00007, .00000, .00000, + .00000, .00000, .00000, + .00717, .00120, .00006, .00000, .00000, + .00000, .00000, .00000, + .00649, .00108, .00006, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ + .00587, .00098, .00005, .00000, .00000, + .00000, .00000, .00000, + .00541, .00090, .00005, .00000, .00000, + .00000, .00000, .00000, + .00490, .00081, .00004, .00000, .00000, + .00000, .00000, .00000, + .00449, .00074, .00004, .00000, .00000, + .00000, .00000, .00000, + .00415, .00068, .00003, .00000, .00000, + .00000, .00000, .00000, + .00376, .00062, .00003, .00000, .00000, + .00000, .00000, .00000, + .00342, .00056, .00003, .00000, .00000, + .00000, .00000, .00000, + .00314, .00051, .00002, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/ + .00288, .00047, .00002, .00000, .00000, + .00000, .00000, .00000, + .00265, .00043, .00002, .00000, .00000, + .00000, .00000, .00000, + .00245, .00040, .00002, .00000, .00000, + .00000, .00000, .00000, + .00228, .00037, .00002, .00000, .00000, + .00000, .00000, .00000, + .00212, .00034, .00002, .00000, .00000, + .00000, .00000, .00000, + .00197, .00032, .00002, .00000, .00000, + .00000, .00000, .00000, + .00184, .00030, .00001, .00000, .00000, + .00000, .00000, .00000, + .00173, .00028, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/ + .00162, .00026, .00001, .00000, .00000, + .00000, .00000, .00000, + .00152, .00024, .00001, .00000, .00000, + .00000, .00000, .00000, + .00143, .00023, .00001, .00000, .00000, + .00000, .00000, .00000, + .00135, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00128, .00020, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00252, .00032, .00000, .00000, .00000, + .00000, .00000, .00000, + .00225, .00029, .00000, .00000, .00000, + .00000, .00000, .00000, + .00191, .00024, .00000, .00000, .00000, + .00000, .00000, .00000, + .00170, .00021, .00000, .00000, .00000, + .00000, .00000, .00000, + .00150, .00019, .00000, .00000, .00000, + .00000, .00000, .00000, + .00135, .00017, .00000, .00000, .00000, + .00000, .00000, .00000, + .00122, .00015, .00000, .00000, .00000, + .00000, .00000, .00000, + .00110, .00014, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00101, .00013, .00000, .00000, .00000, + .00000, .00000, .00000, + .00092, .00011, .00000, .00000, .00000, + .00000, .00000, .00000, + .00086, .00011, .00000, .00000, .00000, + .00000, .00000, .00000, + .00074, .00009, .00000, .00000, .00000, + .00000, .00000, .00000, + .00066, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00057, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00049, .00006, .00000, .00000, .00000, + .00000, .00000, .00000, + .00044, .00005, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/ + .00038, .00005, .00000, .00000, .00000, + .00000, .00000, .00000, + .00034, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00030, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00027, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00025, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00022, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00019, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00017, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00015, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00013, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / 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='ft24a.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