#include "pdf/pilot.h" subroutine sfmrs_98a5(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)/ + .00410, .00145, 1.13388, .83967, .00000, + .00000, .45131, .84958, + .00428, .00152, 2.46682, .88357, .00000, + .00000, .50061, .89360, + .00454, .00164, 5.12623, .97573, .00584, + .00000, .60030, .98593, + .00474, .00172, 7.66479, 1.06610, .09987, + .00000, .69587, 1.07640, + .00494, .00181, 10.97657, 1.18300, .21322, + .00000, .81801, 1.19340, + .00511, .00189, 14.39152, 1.30330, .32526, + .00000, .94266, 1.31377, + .00528, .00196, 18.21165, 1.43557, .45087, + .00000, 1.07896, 1.44610, + .00546, .00204, 22.89839, 1.59464, .60467, + .00000, 1.24218, 1.60524 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/ + .00562, .00211, 27.54395, 1.74911, .75680, + .00000, 1.40015, 1.75976, + .00577, .00218, 32.51232, 1.91379, .91771, + .00000, 1.56811, 1.92447, + .00589, .00224, 36.78433, 2.05526, 1.05509, + .00000, 1.71214, 2.06598, + .00615, .00236, 47.02047, 2.39013, 1.38482, + .00022, 2.05228, 2.40090, + .00637, .00246, 57.00503, 2.71686, 1.70798, + .25956, 2.38340, 2.72767, + .00663, .00258, 69.51163, 3.12614, 2.11314, + .73923, 2.79744, 3.13699, + .00689, .00271, 84.17986, 3.60333, 2.58631, + 1.23387, 3.27942, 3.61421, + .00714, .00283, 98.98543, 4.08292, 3.06269, + 1.73405, 3.76321, 4.09381 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/ + .00738, .00295, 115.39584, 4.61376, 3.59078, + 2.28479, 4.29817, 4.62467, + .00759, .00305, 130.12375, 5.09085, 4.06508, + 2.77515, 4.77859, 5.10177, + .00784, .00317, 149.29649, 5.71410, 4.68404, + 3.41134, 5.40578, 5.72503, + .00807, .00328, 167.53966, 6.30824, 5.27513, + 4.02004, 6.00331, 6.31916, + .00828, .00338, 185.42651, 6.89065, 5.85675, + 4.62274, 6.58877, 6.90157, + .00854, .00352, 209.40271, 7.67782, 6.64045, + 5.42625, 7.37970, 7.68873, + .00880, .00364, 233.33664, 8.46901, 7.42793, + 6.23138, 8.17434, 8.47991, + .00903, .00376, 257.12515, 9.25852, 8.21548, + 7.03898, 8.96701, 9.26941 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/ + .00928, .00388, 282.23935, 10.09585, 9.05207, + 7.89802, 9.80742, 10.10672, + .00951, .00400, 307.69244, 10.95471, 9.90738, + 8.76888, 10.66923, 10.96556, + .00974, .00412, 333.04498, 11.81293, 10.76460, + 9.64581, 11.53019, 11.82376, + .00996, .00423, 357.79376, 12.65770, 11.60784, + 10.50605, 12.37750, 12.66852, + .01017, .00434, 383.53339, 13.54268, 12.49139, + 11.40692, 13.26498, 13.55348, + .01039, .00445, 409.83307, 14.45196, 13.40018, + 12.33434, 14.17666, 14.46273, + .01060, .00455, 435.42999, 15.34584, 14.29254, + 13.24219, 15.07280, 15.35658, + .01080, .00466, 460.52698, 16.22608, 15.17262, + 14.13922, 15.95515, 16.23681 / DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/ + .01100, .00476, 486.35519, 17.14026, 16.08592, + 15.06805, 16.87141, 17.15097, + .01120, .00486, 512.59387, 18.07448, 17.01988, + 16.01822, 17.80765, 18.08516, + .01139, .00496, 538.23193, 18.99353, 17.93896, + 16.95323, 18.72861, 19.00418, + .01157, .00506, 562.95007, 19.88759, 18.83228, + 17.86014, 19.62446, 19.89822, + .01176, .00515, 588.86542, 20.82639, 19.77244, + 18.81786, 20.56503, 20.83700 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/ + .00563, .00205, 1.02152, .72019, .00000, + .00000, .38635, .72598, + .00589, .00216, 2.19801, .75914, .00000, + .00000, .42966, .76500, + .00626, .00233, 4.50084, .83853, .00506, + .00000, .51509, .84448, + .00654, .00246, 6.65561, .91472, .08408, + .00000, .59546, .92074, + .00682, .00259, 9.42200, 1.01195, .17804, + .00000, .69687, 1.01802, + .00707, .00270, 12.23286, 1.11084, .26971, + .00000, .79923, 1.11695, + .00731, .00281, 15.33844, 1.21858, .37148, + .00000, .91018, 1.22473, + .00756, .00293, 19.10337, 1.34707, .49494, + .00000, 1.04197, 1.35326 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/ + .00778, .00304, 22.79481, 1.47090, .61606, + .00000, 1.16857, 1.47711, + .00799, .00314, 26.70347, 1.60195, .74321, + .00000, 1.30223, 1.60819, + .00816, .00322, 30.03565, 1.71384, .85108, + .00000, 1.41614, 1.72009, + .00852, .00339, 37.93092, 1.97660, 1.10790, + .00019, 1.68307, 1.98289, + .00883, .00355, 45.52346, 2.23045, 1.35711, + .19998, 1.94040, 2.23677, + .00919, .00372, 54.90745, 2.54543, 1.66662, + .56709, 2.25913, 2.55178, + .00955, .00390, 65.76954, 2.90907, 2.02457, + .94117, 2.62653, 2.91544, + .00989, .00407, 76.59892, 3.27113, 2.38165, + 1.31588, 2.99191, 3.27752 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/ + .01023, .00424, 88.46689, 3.66845, 2.77419, + 1.72485, 3.39247, 3.67486, + .01052, .00438, 99.01054, 4.02277, 3.12406, + 2.08608, 3.74940, 4.02919, + .01086, .00456, 112.60005, 4.48211, 3.57721, + 2.55111, 4.21183, 4.48853, + .01117, .00471, 125.40544, 4.91667, 4.00679, + 2.99276, 4.64906, 4.92311, + .01146, .00486, 137.85715, 5.33989, 4.42686, + 3.42735, 5.07465, 5.34633, + .01182, .00505, 154.39085, 5.90772, 4.98878, + 4.00236, 5.64543, 5.91416, + .01217, .00522, 170.73593, 6.47412, 5.54922, + 4.57419, 6.21454, 6.48057, + .01250, .00539, 186.84367, 7.03549, 6.10607, + 5.14409, 6.77838, 7.04194 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/ + .01283, .00556, 203.71295, 7.62705, 6.69395, + 5.74658, 7.37235, 7.63350, + .01315, .00573, 220.66245, 8.22977, 7.29094, + 6.35306, 7.97738, 8.23621, + .01346, .00589, 237.42674, 8.82858, 7.88604, + 6.96060, 8.57833, 8.83503, + .01375, .00604, 253.67505, 9.41470, 8.46818, + 7.55321, 9.16643, 9.42114, + .01405, .00619, 270.46054, 10.02542, 9.07497, + 8.17056, 9.77911, 10.03186, + .01434, .00635, 287.50439, 10.64974, 9.69605, + 8.80307, 10.40532, 10.65617, + .01462, .00649, 303.98273, 11.26029, 10.30274, + 9.41895, 11.01764, 11.26672, + .01489, .00663, 320.05313, 11.85890, 10.89859, + 10.02503, 11.61788, 11.86533 / DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/ + .01516, .00678, 336.49298, 12.47767, 11.51406, + 10.64961, 12.23829, 12.48409, + .01543, .00692, 353.10620, 13.10729, 12.14083, + 11.28594, 12.86950, 13.11371, + .01569, .00705, 369.25400, 13.72408, 12.75510, + 11.90957, 13.48778, 13.73050, + .01593, .00719, 384.73975, 14.32161, 13.34966, + 12.51189, 14.08671, 14.32802, + .01619, .00732, 400.91336, 14.94693, 13.97348, + 13.14616, 14.71342, 14.95333 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/ + .00774, .00291, .92050, .61742, .00000, + .00000, .33079, .62031, + .00810, .00308, 1.95876, .65191, .00000, + .00000, .36879, .65483, + .00864, .00333, 3.95190, .72025, .00438, + .00000, .44199, .72322, + .00902, .00351, 5.77922, .78445, .07076, + .00000, .50952, .78744, + .00943, .00371, 8.08707, .86521, .14862, + .00000, .59363, .86823, + .00977, .00388, 10.39688, .94636, .22358, + .00000, .67755, .94940, + .01011, .00404, 12.91673, 1.03394, .30597, + .00000, .76768, 1.03701, + .01046, .00421, 15.93458, 1.13747, .40498, + .00000, .87384, 1.14056 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/ + .01077, .00437, 18.86076, 1.23646, .50132, + .00000, .97503, 1.23956, + .01107, .00451, 21.92757, 1.34044, .60168, + .00000, 1.08107, 1.34356, + .01130, .00463, 24.51922, 1.42865, .68626, + .00000, 1.17088, 1.43178, + .01180, .00488, 30.59000, 1.63414, .88602, + .00017, 1.37967, 1.63730, + .01224, .00510, 36.34333, 1.83066, 1.07790, + .15400, 1.57893, 1.83384, + .01273, .00535, 43.35708, 2.07215, 1.31392, + .43482, 1.82337, 2.07534, + .01324, .00561, 51.36691, 2.34813, 1.58416, + .71754, 2.10231, 2.35134, + .01370, .00585, 59.25225, 2.62032, 1.85126, + .99804, 2.37710, 2.62355 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/ + .01417, .00610, 67.79415, 2.91640, 2.14234, + 1.30143, 2.67572, 2.91965, + .01457, .00630, 75.30418, 3.17835, 2.39978, + 1.56725, 2.93972, 3.18162, + .01505, .00655, 84.88493, 3.51530, 2.73064, + 1.90674, 3.27908, 3.51858, + .01547, .00677, 93.82304, 3.83163, 3.04195, + 2.22672, 3.59748, 3.83492, + .01586, .00698, 102.44107, 4.13765, 3.34444, + 2.53962, 3.90537, 4.14095, + .01636, .00724, 113.77300, 4.54519, 3.74605, + 2.95038, 4.31521, 4.54851, + .01684, .00749, 124.86413, 4.94857, 4.14357, + 3.35571, 4.72070, 4.95190, + .01728, .00772, 135.69891, 5.34561, 4.53591, + 3.75702, 5.11966, 5.34895 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/ + .01773, .00796, 146.95236, 5.76127, 4.94751, + 4.17862, 5.53720, 5.76462, + .01817, .00819, 158.15775, 6.18188, 5.36260, + 4.59992, 5.95960, 6.18525, + .01859, .00842, 169.16113, 6.59733, 5.77408, + 5.01972, 6.37673, 6.60071, + .01898, .00863, 179.74683, 7.00164, 6.17430, + 5.42682, 6.78257, 7.00502, + .01939, .00884, 190.60670, 7.42062, 6.58924, + 5.84864, 7.20307, 7.42401, + .01978, .00905, 201.56267, 7.84671, 7.01184, + 6.27869, 7.63063, 7.85012, + .02016, .00926, 212.08163, 8.26120, 7.42244, + 6.69512, 8.04649, 8.26461, + .02052, .00945, 222.28381, 8.66575, 7.82398, + 7.10323, 8.45232, 8.66918 / DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/ + .02089, .00965, 232.65549, 9.08193, 8.23674, + 7.52175, 8.86977, 9.08537, + .02125, .00984, 243.07906, 9.50356, 8.65531, + 7.94633, 9.29263, 9.50700, + .02160, .01003, 253.15546, 9.91481, 9.06380, + 8.36071, 9.70504, 9.91826, + .02193, .01021, 262.76459, 10.31151, 9.45747, + 8.75915, 10.10283, 10.31497, + .02226, .01039, 272.76151, 10.72525, 9.86925, + 9.17755, 10.51766, 10.72872 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/ + .00933, .00357, .86626, .56409, .00000, + .00000, .30210, .56577, + .00977, .00378, 1.83127, .59618, .00000, + .00000, .33728, .59788, + .01042, .00410, 3.66250, .65875, .00403, + .00000, .40415, .66048, + .01089, .00433, 5.32102, .71679, .06396, + .00000, .46512, .71854, + .01139, .00458, 7.39525, .78919, .13369, + .00000, .54046, .79096, + .01181, .00479, 9.45261, .86140, .20029, + .00000, .61510, .86319, + .01222, .00499, 11.68011, .93890, .27307, + .00000, .69483, .94070, + .01265, .00521, 14.32850, 1.03002, .36005, + .00000, .78825, 1.03184 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/ + .01303, .00540, 16.87945, 1.11673, .44426, + .00000, .87689, 1.11856, + .01339, .00559, 19.53665, 1.20740, .53158, + .00000, .96937, 1.20924, + .01367, .00573, 21.77038, 1.28402, .60489, + .00000, 1.04738, 1.28588, + .01428, .00605, 26.96716, 1.46166, .77719, + .00016, 1.22790, 1.46354, + .01481, .00632, 31.84917, 1.63052, .94171, + .13212, 1.39914, 1.63242, + .01540, .00663, 37.75180, 1.83681, 1.14291, + .37210, 1.60801, 1.83873, + .01602, .00695, 44.43860, 2.07115, 1.37192, + .61198, 1.84492, 2.07309, + .01658, .00724, 50.97178, 2.30097, 1.59701, + .84863, 2.07700, 2.30293 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/ + .01715, .00754, 57.99986, 2.54966, 1.84106, + 1.10324, 2.32788, 2.55163, + .01762, .00779, 64.14041, 2.76864, 2.05589, + 1.32523, 2.54864, 2.77063, + .01820, .00810, 71.92599, 3.04901, 2.33072, + 1.60741, 2.83110, 3.05102, + .01871, .00837, 79.14590, 3.31101, 2.58815, + 1.87217, 3.09491, 3.31304, + .01918, .00862, 86.07211, 3.56349, 2.83735, + 2.13011, 3.34900, 3.56554, + .01978, .00894, 95.12583, 3.89822, 3.16673, + 2.46714, 3.68572, 3.90029, + .02035, .00925, 103.93383, 4.22801, 3.49126, + 2.79816, 4.01732, 4.23010, + .02089, .00953, 112.49309, 4.55128, 3.81030, + 3.12461, 4.34226, 4.55339 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/ + .02142, .00982, 121.33900, 4.88840, 4.14373, + 3.46628, 4.68100, 4.89053, + .02195, .01010, 130.09888, 5.22814, 4.47858, + 3.80621, 5.02229, 5.23028, + .02245, .01037, 138.66365, 5.56255, 4.80944, + 4.14385, 5.35815, 5.56471, + .02292, .01063, 146.86635, 5.88687, 5.13013, + 4.47013, 5.68379, 5.88905, + .02340, .01089, 155.24594, 6.22186, 5.46155, + 4.80711, 6.02009, 6.22405, + .02387, .01115, 163.66696, 6.56149, 5.79808, + 5.14966, 6.36100, 6.56371, + .02432, .01139, 171.71750, 6.89082, 6.12400, + 5.48026, 6.69151, 6.89305, + .02475, .01162, 179.49989, 7.21140, 6.44192, + 5.80345, 7.01319, 7.21364 / DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/ + .02519, .01186, 187.38124, 7.54024, 6.76777, + 6.13389, 7.34312, 7.54250, + .02562, .01210, 195.27574, 7.87250, 7.09737, + 6.46828, 7.67646, 7.87478, + .02603, .01232, 202.88179, 8.19577, 7.41821, + 6.79381, 8.00072, 8.19806, + .02642, .01253, 210.11015, 8.50678, 7.72661, + 7.10597, 8.31267, 8.50909, + .02682, .01275, 217.61317, 8.83052, 8.04861, + 7.43323, 8.63735, 8.83285 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/ + .01064, .00413, .82983, .52899, .00000, + .00000, .28328, .53001, + .01116, .00438, 1.74602, .55946, .00000, + .00000, .31659, .56050, + .01191, .00475, 3.47019, .61823, .00380, + .00000, .37928, .61929, + .01245, .00503, 5.01807, .67224, .05952, + .00000, .43598, .67331, + .01302, .00532, 6.94034, .73921, .12399, + .00000, .50564, .74030, + .01351, .00557, 8.83459, .80564, .18522, + .00000, .57429, .80676, + .01398, .00581, 10.87433, .87665, .25185, + .00000, .64734, .87777, + .01448, .00606, 13.28681, .95982, .33116, + .00000, .73260, .96096 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/ + .01491, .00628, 15.59946, 1.03869, .40767, + .00000, .81323, 1.03984, + .01532, .00650, 17.99779, 1.12090, .48676, + .00000, .89708, 1.12206, + .01565, .00667, 20.00627, 1.19017, .55297, + .00000, .96762, 1.19135, + .01635, .00704, 24.65609, 1.35022, .70803, + .00015, 1.13028, 1.35142, + .01696, .00735, 28.99665, 1.50169, .85546, + .11848, 1.28392, 1.50291, + .01763, .00771, 34.21339, 1.68597, 1.03502, + .33307, 1.47053, 1.68721, + .01834, .00808, 40.08891, 1.89439, 1.23852, + .54649, 1.68130, 1.89566, + .01898, .00843, 45.79812, 2.09797, 1.43773, + .75617, 1.88692, 2.09926 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/ + .01963, .00877, 51.90907, 2.31743, 1.65293, + .98090, 2.10837, 2.31874, + .02017, .00906, 57.22418, 2.51002, 1.84173, + 1.17617, 2.30257, 2.51136, + .02083, .00942, 63.93317, 2.75578, 2.08246, + 1.42353, 2.55022, 2.75714, + .02142, .00973, 70.12782, 2.98468, 2.30722, + 1.65487, 2.78075, 2.98606, + .02195, .01002, 76.04879, 3.20464, 2.52420, + 1.87964, 3.00217, 3.20604, + .02264, .01039, 83.75541, 3.49532, 2.81007, + 2.17233, 3.29465, 3.49675, + .02328, .01074, 91.22005, 3.78076, 3.09081, + 2.45886, 3.58174, 3.78222, + .02389, .01107, 98.44627, 4.05974, 3.36600, + 2.74062, 3.86221, 4.06122 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/ + .02450, .01140, 105.88766, 4.34985, 3.65284, + 3.03472, 4.15380, 4.35136, + .02510, .01172, 113.22719, 4.64135, 3.94001, + 3.32639, 4.44670, 4.64288, + .02566, .01203, 120.38084, 4.92757, 4.22309, + 3.61543, 4.73422, 4.92912, + .02620, .01233, 127.20954, 5.20446, 4.49679, + 3.89404, 5.01231, 5.20604, + .02674, .01262, 134.16409, 5.48979, 4.77899, + 4.18112, 5.29882, 5.49139, + .02728, .01292, 141.13313, 5.77844, 5.06493, + 4.47231, 5.58861, 5.78006, + .02779, .01320, 147.77486, 6.05768, 5.34120, + 4.75267, 5.86892, 6.05932, + .02827, .01346, 154.18007, 6.32898, 5.61019, + 5.02626, 6.14122, 6.33064 / DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/ + .02876, .01373, 160.64821, 6.60669, 5.88532, + 5.30538, 6.41991, 6.60837, + .02925, .01400, 167.11160, 6.88677, 6.16309, + 5.58733, 6.70095, 6.88847, + .02972, .01426, 173.32370, 7.15875, 6.43299, + 5.86129, 6.97384, 7.16047, + .03016, .01450, 179.21219, 7.41993, 6.69194, + 6.12350, 7.23587, 7.42168, + .03061, .01475, 185.31451, 7.69142, 6.96196, + 6.39806, 7.50820, 7.69319 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/ + .01180, .00462, .80271, .50324, .00000, + .00000, .26951, .50386, + .01237, .00491, 1.68274, .53250, .00000, + .00000, .30143, .53313, + .01321, .00534, 3.32807, .58845, .00362, + .00000, .36105, .58911, + .01382, .00565, 4.79499, .63952, .05629, + .00000, .41463, .64019, + .01445, .00597, 6.60664, .70254, .11694, + .00000, .48017, .70323, + .01500, .00626, 8.38278, .76480, .17429, + .00000, .54449, .76550, + .01552, .00653, 10.28715, .83112, .23649, + .00000, .61272, .83184, + .01607, .00681, 12.53027, .90857, .31031, + .00000, .69211, .90930 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/ + .01655, .00707, 14.67251, .98181, .38132, + .00000, .76700, .98256, + .01702, .00731, 16.88642, 1.05796, .45453, + .00000, .84467, 1.05872, + .01738, .00750, 18.73492, 1.12198, .51570, + .00000, .90988, 1.12276, + .01816, .00791, 22.99788, 1.26950, .65854, + .00015, 1.05983, 1.27031, + .01883, .00827, 26.95747, 1.40864, .79389, + .10885, 1.20099, 1.40947, + .01959, .00867, 31.69399, 1.57735, .95821, + .30557, 1.37187, 1.57821, + .02037, .00909, 37.00429, 1.76753, 1.14382, + .50043, 1.56422, 1.76842, + .02108, .00948, 42.14212, 1.95269, 1.32494, + .69128, 1.75127, 1.95360 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/ + .02180, .00987, 47.61976, 2.15171, 1.52004, + .89522, 1.95214, 2.15265, + .02240, .01019, 52.36707, 2.32590, 1.69075, + 1.07193, 2.12782, 2.32686, + .02313, .01058, 58.33833, 2.54758, 1.90785, + 1.29518, 2.35127, 2.54858, + .02378, .01093, 63.83298, 2.75354, 2.11002, + 1.50345, 2.55873, 2.75456, + .02437, .01126, 69.06982, 2.95101, 2.30480, + 1.70537, 2.75755, 2.95205, + .02513, .01167, 75.86281, 3.21131, 2.56075, + 1.96763, 3.01952, 3.21239, + .02584, .01206, 82.41984, 3.46625, 2.81145, + 2.22367, 3.27598, 3.46736, + .02651, .01243, 88.74841, 3.71485, 3.05665, + 2.47490, 3.52597, 3.71598 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/ + .02718, .01279, 95.24689, 3.97280, 3.31168, + 2.73656, 3.78528, 3.97396, + .02784, .01316, 101.63587, 4.23138, 3.56640, + 2.99542, 4.04516, 4.23258, + .02847, .01350, 107.84773, 4.48479, 3.81702, + 3.25149, 4.29977, 4.48601, + .02906, .01383, 113.76205, 4.72945, 4.05887, + 3.49781, 4.54554, 4.73070, + .02966, .01416, 119.77055, 4.98111, 4.30777, + 3.75116, 4.79829, 4.98238, + .03025, .01448, 125.77811, 5.23525, 4.55954, + 4.00771, 5.05349, 5.23655, + .03081, .01479, 131.48927, 5.48066, 4.80234, + 4.25424, 5.29989, 5.48199, + .03134, .01509, 136.98662, 5.71873, 5.03841, + 4.49448, 5.53889, 5.72009 / DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/ + .03188, .01538, 142.52556, 5.96203, 5.27946, + 4.73916, 5.78310, 5.96341, + .03242, .01568, 148.04964, 6.20704, 5.52248, + 4.98597, 6.02900, 6.20845, + .03293, .01596, 153.34877, 6.44462, 5.75827, + 5.22544, 6.26741, 6.44605, + .03342, .01623, 158.36150, 6.67242, 5.98415, + 5.45428, 6.49600, 6.67388, + .03391, .01651, 163.54970, 6.90896, 6.21945, + 5.69368, 6.73333, 6.91044 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/ + .01624, .00659, .72458, .43078, .00000, + .00000, .23096, .43068, + .01706, .00702, 1.50119, .45651, .00000, + .00000, .25888, .45643, + .01824, .00765, 2.92311, .50447, .00313, + .00000, .30986, .50444, + .01910, .00811, 4.16307, .54731, .04727, + .00000, .35475, .54730, + .01999, .00859, 5.66756, .59937, .09739, + .00000, .40887, .59940, + .02076, .00901, 7.11862, .65012, .14413, + .00000, .46131, .65017, + .02149, .00941, 8.65329, .70361, .19429, + .00000, .51635, .70370, + .02226, .00983, 10.43737, .76548, .25324, + .00000, .57981, .76560 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/ + .02293, .01019, 12.12091, .82349, .30945, + .00000, .63914, .82363, + .02358, .01055, 13.84153, .88329, .36694, + .00000, .70020, .88346, + .02409, .01083, 15.26450, .93323, .41463, + .00000, .75109, .93342, + .02517, .01142, 18.50588, 1.04728, .52506, + .00013, .86712, 1.04752, + .02610, .01194, 21.46863, 1.15369, .62858, + .08349, .97515, 1.15397, + .02715, .01251, 24.95956, 1.28136, .75297, + .23336, 1.10458, 1.28169, + .02823, .01311, 28.81644, 1.42374, .89199, + .37996, 1.24871, 1.42411, + .02922, .01366, 32.49687, 1.56095, 1.02630, + .52211, 1.38745, 1.56137 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/ + .03021, .01421, 36.37123, 1.70705, 1.16964, + .67256, 1.53504, 1.70753, + .03103, .01467, 39.69075, 1.83385, 1.29401, + .80180, 1.66305, 1.83437, + .03203, .01523, 43.81907, 1.99388, 1.45087, + .96371, 1.82449, 1.99445, + .03292, .01572, 47.57631, 2.14134, 1.59578, + 1.11353, 1.97316, 2.14196, + .03373, .01618, 51.12434, 2.28174, 1.73443, + 1.25781, 2.11464, 2.28240, + .03476, .01676, 55.67641, 2.46533, 1.91516, + 1.44362, 2.29957, 2.46604, + .03573, .01730, 60.02129, 2.64364, 2.09072, + 1.62351, 2.47910, 2.64441, + .03664, .01781, 64.17437, 2.81624, 2.26119, + 1.79876, 2.65282, 2.81706 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/ + .03756, .01832, 68.40000, 2.99410, 2.43730, + 1.98006, 2.83177, 2.99497, + .03845, .01882, 72.51099, 3.17106, 2.61184, + 2.15797, 3.00977, 3.17198, + .03929, .01930, 76.47652, 3.34341, 2.78256, + 2.33296, 3.18309, 3.34438, + .04009, .01975, 80.21996, 3.50878, 2.94627, + 2.50022, 3.34935, 3.50979, + .04090, .02020, 83.99282, 3.67787, 3.11376, + 2.67122, 3.51932, 3.67893, + .04169, .02065, 87.73776, 3.84770, 3.28228, + 2.84347, 3.68999, 3.84880, + .04245, .02107, 91.26865, 4.01072, 3.44382, + 3.00797, 3.85380, 4.01186, + .04316, .02148, 94.64660, 4.16812, 3.60017, + 3.16756, 4.01194, 4.16931 / DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/ + .04388, .02188, 98.02460, 4.32812, 3.75896, + 3.32921, 4.17267, 4.32935, + .04460, .02229, 101.37252, 4.48849, 3.91830, + 3.49150, 4.33376, 4.48976, + .04528, .02267, 104.56365, 4.64326, 4.07219, + 3.64825, 4.48920, 4.64458, + .04593, .02304, 107.56161, 4.79096, 4.21889, + 3.79729, 4.63753, 4.79232, + .04659, .02341, 110.65234, 4.94380, 4.37124, + 3.95277, 4.79100, 4.94519 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/ + .02244, .00947, .65549, .36863, .00000, + .00000, .19815, .36854, + .02359, .01011, 1.34104, .39113, .00000, + .00000, .22249, .39110, + .02526, .01105, 2.56846, .43207, .00270, + .00000, .26597, .43212, + .02646, .01173, 3.61386, .46784, .03959, + .00000, .30346, .46795, + .02772, .01244, 4.85871, .51064, .08087, + .00000, .34798, .51082, + .02879, .01304, 6.03871, .55178, .11882, + .00000, .39053, .55201, + .02982, .01362, 7.26877, .59466, .15911, + .00000, .43472, .59496, + .03090, .01424, 8.67903, .64376, .20597, + .00000, .48515, .64412 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/ + .03183, .01477, 9.99307, .68937, .25026, + .00000, .53188, .68978, + .03273, .01528, 11.32032, .73600, .29517, + .00000, .57954, .73646, + .03344, .01568, 12.40690, .77464, .33216, + .00000, .61898, .77514, + .03494, .01654, 14.84996, .86209, .41706, + .00011, .70809, .86268, + .03624, .01728, 17.04504, .94275, .49574, + .06374, .79011, .94341, + .03768, .01810, 19.59000, 1.03847, .58929, + .17733, .88731, 1.03923, + .03917, .01896, 22.35831, 1.14401, .69267, + .28702, .99431, 1.14486, + .04053, .01973, 24.96137, 1.24464, .79151, + .39226, 1.09623, 1.24557 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/ + .04189, .02051, 27.66475, 1.35075, .89599, + .50257, 1.20359, 1.35177, + .04302, .02116, 29.95267, 1.44203, .98584, + .59647, 1.29588, 1.44312, + .04439, .02194, 32.76359, 1.55622, 1.09818, + .71306, 1.41125, 1.55740, + .04560, .02264, 35.29183, 1.66054, 1.20107, + .82004, 1.51658, 1.66179, + .04670, .02327, 37.65590, 1.75913, 1.29883, + .92235, 1.61609, 1.76046, + .04810, .02408, 40.65289, 1.88697, 1.42515, + 1.05292, 1.74506, 1.88840, + .04942, .02483, 43.47881, 2.01006, 1.54680, + 1.17822, 1.86917, 2.01157, + .05065, .02554, 46.15185, 2.12829, 1.66403, + 1.29939, 1.98833, 2.12988 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/ + .05188, .02624, 48.84473, 2.24923, 1.78427, + 1.42384, 2.11020, 2.25090, + .05309, .02693, 51.43415, 2.36860, 1.90245, + 1.54492, 2.23044, 2.37035, + .05423, .02759, 53.91073, 2.48411, 2.01735, + 1.66330, 2.34677, 2.48595, + .05530, .02820, 56.22662, 2.59422, 2.12678, + 1.77568, 2.45762, 2.59612, + .05638, .02882, 58.54014, 2.70609, 2.23805, + 1.88986, 2.57023, 2.70807, + .05744, .02943, 60.81844, 2.81780, 2.34936, + 2.00422, 2.68266, 2.81985, + .05845, .03001, 62.94639, 2.92436, 2.45538, + 2.11272, 2.78989, 2.92648, + .05940, .03055, 64.96874, 3.02674, 2.55750, + 2.21749, 2.89289, 3.02892 / DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/ + .06036, .03110, 66.97388, 3.13021, 2.66061, + 2.32298, 2.99698, 3.13246, + .06131, .03165, 68.94745, 3.23340, 2.76357, + 2.42837, 3.10078, 3.23572, + .06222, .03217, 70.81503, 3.33249, 2.86252, + 2.52967, 3.20044, 3.33487, + .06308, .03266, 72.55582, 3.42657, 2.95635, + 2.62546, 3.29505, 3.42901, + .06395, .03316, 74.34308, 3.52358, 3.05348, + 2.72509, 3.39259, 3.52608 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/ + .02717, .01178, .61929, .33661, .00000, + .00000, .18133, .33679, + .02858, .01259, 1.25681, .35735, .00000, + .00000, .20374, .35761, + .03062, .01377, 2.38209, .39454, .00248, + .00000, .24325, .39494, + .03209, .01462, 3.32638, .42662, .03560, + .00000, .27691, .42710, + .03363, .01551, 4.43773, .46465, .07236, + .00000, .31651, .46523, + .03493, .01626, 5.47983, .50088, .10585, + .00000, .35404, .50155, + .03618, .01699, 6.55638, .53841, .14118, + .00000, .39276, .53916, + .03749, .01775, 7.78003, .58110, .18203, + .00000, .43667, .58193 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/ + .03863, .01841, 8.91125, .62054, .22041, + .00000, .47713, .62145, + .03972, .01904, 10.04549, .66064, .25913, + .00000, .51819, .66162, + .04057, .01954, 10.96819, .69372, .29088, + .00000, .55200, .69476, + .04240, .02060, 13.02600, .76817, .36335, + .00010, .62798, .76934, + .04396, .02150, 14.85514, .83636, .43006, + .05421, .69742, .83763, + .04570, .02252, 16.95439, .91674, .50885, + .15040, .77916, .91813, + .04750, .02356, 19.21574, 1.00474, .59533, + .24255, .86851, 1.00626, + .04913, .02451, 21.32254, 1.08811, .67748, + .33040, .95306, 1.08974 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/ + .05077, .02546, 23.49199, 1.17548, .76380, + .42192, 1.04159, 1.17723, + .05212, .02625, 25.31384, 1.25023, .83763, + .49941, 1.11727, 1.25207, + .05376, .02720, 27.53496, 1.34324, .92944, + .59509, 1.21137, 1.34519, + .05520, .02804, 29.51785, 1.42775, 1.01309, + .68243, 1.29683, 1.42981, + .05653, .02881, 31.36050, 1.50727, 1.09222, + .76560, 1.37720, 1.50943, + .05820, .02978, 33.67862, 1.60984, 1.19393, + .87116, 1.48080, 1.61212, + .05976, .03069, 35.84742, 1.70805, 1.29133, + .97190, 1.57997, 1.71044, + .06123, .03154, 37.88526, 1.80194, 1.38477, + 1.06887, 1.67473, 1.80444 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/ + .06269, .03239, 39.92525, 1.89756, 1.48018, + 1.16803, 1.77120, 1.90016, + .06412, .03321, 41.87185, 1.99145, 1.57347, + 1.26399, 1.86591, 1.99416, + .06547, .03399, 43.72355, 2.08196, 1.66382, + 1.35747, 1.95718, 2.08477, + .06674, .03473, 45.44446, 2.16787, 1.74951, + 1.44582, 2.04378, 2.17077, + .06801, .03547, 47.15368, 2.25481, 1.83631, + 1.53525, 2.13142, 2.25781, + .06927, .03619, 48.82821, 2.34132, 1.92283, + 1.62450, 2.21860, 2.34441, + .07045, .03688, 50.38250, 2.42351, 2.00490, + 1.70883, 2.30141, 2.42669, + .07158, .03752, 51.85331, 2.50223, 2.08372, + 1.79002, 2.38072, 2.50549 / DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/ + .07271, .03818, 53.30327, 2.58150, 2.16301, + 1.87147, 2.46057, 2.58485, + .07383, .03882, 54.72388, 2.66032, 2.24195, + 1.95260, 2.53995, 2.66375, + .07489, .03943, 56.06176, 2.73577, 2.31757, + 2.03033, 2.61593, 2.73927, + .07590, .04002, 57.30203, 2.80716, 2.38904, + 2.10359, 2.68782, 2.81074, + .07692, .04061, 58.57233, 2.88062, 2.46289, + 2.17965, 2.76178, 2.88428 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/ + .03117, .01382, .59558, .31575, .00000, + .00000, .17038, .31620, + .03280, .01478, 1.20122, .33527, .00000, + .00000, .19148, .33584, + .03516, .01616, 2.25866, .36995, .00232, + .00000, .22833, .37067, + .03686, .01716, 3.13611, .39957, .03297, + .00000, .25944, .40042, + .03862, .01820, 4.15973, .43445, .06676, + .00000, .29581, .43542, + .04013, .01908, 5.11180, .46748, .09735, + .00000, .33006, .46856, + .04156, .01992, 6.08873, .50152, .12946, + .00000, .36523, .50270, + .04306, .02081, 7.19201, .54007, .16642, + .00000, .40493, .54135 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/ + .04437, .02157, 8.20596, .57553, .20101, + .00000, .44137, .57691, + .04561, .02231, 9.21704, .61145, .23577, + .00000, .47819, .61292, + .04660, .02289, 10.03565, .64098, .26418, + .00000, .50842, .64252, + .04868, .02411, 11.85028, .70717, .32876, + .00010, .57605, .70887, + .05046, .02516, 13.45022, .76748, .38792, + .04818, .63755, .76930, + .05245, .02633, 15.27243, .83821, .45744, + .13342, .70958, .84019, + .05451, .02754, 17.22106, .91526, .53337, + .21460, .78791, .91738, + .05636, .02862, 19.02391, .98789, .60515, + .29163, .86167, .99015 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/ + .05822, .02972, 20.86851, 1.06367, .68024, + .37152, .93855, 1.06608, + .05976, .03062, 22.40849, 1.12824, .74421, + .43888, 1.00401, 1.13076, + .06162, .03171, 24.27503, 1.20826, .82343, + .52173, 1.08508, 1.21092, + .06325, .03266, 25.93193, 1.28068, .89533, + .59706, 1.15840, 1.28347, + .06475, .03354, 27.46446, 1.34860, .96313, + .66856, 1.22714, 1.35151, + .06664, .03465, 29.38113, 1.43586, 1.04993, + .75894, 1.31539, 1.43891, + .06841, .03568, 31.16366, 1.51908, 1.13271, + .84485, 1.39952, 1.52226, + .07006, .03664, 32.83003, 1.59835, 1.21185, + .92727, 1.47963, 1.60166 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/ + .07171, .03761, 34.49012, 1.67881, 1.29240, + 1.01127, 1.56091, 1.68224, + .07332, .03854, 36.06473, 1.75752, 1.37085, + 1.09223, 1.64040, 1.76108, + .07484, .03942, 37.55641, 1.83317, 1.44661, + 1.17088, 1.71678, 1.83684, + .07626, .04025, 38.93604, 1.90474, 1.51825, + 1.24499, 1.78903, 1.90853, + .07769, .04108, 40.30014, 1.97698, 1.59059, + 1.31978, 1.86193, 1.98087, + .07910, .04190, 41.63123, 2.04865, 1.66251, + 1.39423, 1.93425, 2.05266, + .08043, .04267, 42.86063, 2.11654, 1.73053, + 1.46435, 2.00275, 2.12065, + .08169, .04340, 44.02017, 2.18142, 1.79570, + 1.53172, 2.06819, 2.18562 / DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/ + .08295, .04413, 45.15802, 2.24657, 1.86109, + 1.59912, 2.13390, 2.25087, + .08420, .04485, 46.26883, 2.31120, 1.92603, + 1.66610, 2.19907, 2.31560, + .08539, .04554, 47.31100, 2.37291, 1.98811, + 1.73012, 2.26130, 2.37740, + .08652, .04618, 48.27291, 2.43116, 2.04662, + 1.79030, 2.32004, 2.43574, + .08766, .04684, 49.25630, 2.49101, 2.10700, + 1.85271, 2.38038, 2.49568 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/ + .03476, .01577, .57875, .30090, .00000, + .00000, .16242, .30142, + .03658, .01685, 1.16106, .31949, .00000, + .00000, .18250, .32014, + .03922, .01842, 2.16807, .35224, .00221, + .00000, .21731, .35308, + .04112, .01955, 2.99565, .38001, .03098, + .00000, .24648, .38099, + .04309, .02072, 3.95388, .41253, .06255, + .00000, .28040, .41366, + .04477, .02171, 4.83905, .44317, .09098, + .00000, .31220, .44443, + .04636, .02266, 5.74221, .47463, .12070, + .00000, .34472, .47600, + .04804, .02365, 6.75663, .51011, .15478, + .00000, .38130, .51162 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/ + .04949, .02451, 7.68432, .54266, .18658, + .00000, .41476, .54427, + .05088, .02534, 8.60514, .57551, .21842, + .00000, .44847, .57723, + .05197, .02598, 9.34772, .60245, .24439, + .00000, .47606, .60425, + .05428, .02735, 10.98547, .66263, .30322, + .00009, .53761, .66461, + .05626, .02852, 12.41967, .71723, .35687, + .04379, .59334, .71936, + .05846, .02982, 14.04263, .78100, .41968, + .12106, .65833, .78330, + .06073, .03116, 15.76751, .85018, .48799, + .19430, .72873, .85265, + .06278, .03237, 17.35410, .91513, .55232, + .26352, .79475, .91776 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/ + .06483, .03358, 18.96874, .98265, .61937, + .33506, .86331, .98544, + .06653, .03458, 20.31007, 1.03998, .67630, + .39517, .92149, 1.04291, + .06857, .03578, 21.92767, 1.11080, .74657, + .46886, .99331, 1.11389, + .07037, .03684, 23.35687, 1.17469, .81015, + .53565, 1.05805, 1.17792, + .07202, .03780, 24.67366, 1.23444, .86994, + .59888, 1.11858, 1.23781, + .07409, .03902, 26.31215, 1.31095, .94622, + .67854, 1.19603, 1.31448, + .07603, .04015, 27.82808, 1.38367, 1.01874, + .75400, 1.26962, 1.38735, + .07784, .04121, 29.23924, 1.45274, 1.08787, + .82619, 1.33949, 1.45656 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/ + .07964, .04226, 30.63946, 1.52265, 1.15803, + .89957, 1.41018, 1.52661, + .08140, .04328, 31.96045, 1.59082, 1.22615, + .97006, 1.47910, 1.59492, + .08305, .04425, 33.20750, 1.65618, 1.29178, + 1.03838, 1.54515, 1.66041, + .08461, .04515, 34.35619, 1.71787, 1.35367, + 1.10260, 1.60749, 1.72222, + .08617, .04606, 35.48737, 1.77996, 1.41603, + 1.16724, 1.67022, 1.78444, + .08770, .04694, 36.58731, 1.84143, 1.47789, + 1.23146, 1.73230, 1.84603, + .08914, .04778, 37.59894, 1.89950, 1.53624, + 1.29178, 1.79095, 1.90422, + .09051, .04857, 38.55046, 1.95490, 1.59205, + 1.34964, 1.84689, 1.95972 / DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/ + .09188, .04937, 39.48029, 2.01040, 1.64791, + 1.40738, 1.90293, 2.01533, + .09324, .05015, 40.38515, 2.06535, 1.70329, + 1.46466, 1.95840, 2.07039, + .09453, .05089, 41.23124, 2.11772, 1.75611, + 1.51930, 2.01126, 2.12286, + .09575, .05159, 42.00910, 2.16704, 1.80581, + 1.57056, 2.06105, 2.17228, + .09698, .05231, 42.80313, 2.21765, 1.85702, + 1.62366, 2.11213, 2.22298 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/ + .04907, .02404, .53246, .25955, .00000, + .00000, .14045, .26077, + .05167, .02563, 1.04800, .27537, .00000, + .00000, .15755, .27680, + .05543, .02793, 1.91090, .30254, .00187, + .00000, .18651, .30429, + .05811, .02956, 2.59731, .32504, .02541, + .00000, .21023, .32701, + .06088, .03124, 3.37238, .35093, .05080, + .00000, .23734, .35313, + .06323, .03267, 4.07204, .37493, .07327, + .00000, .26235, .37734, + .06546, .03401, 4.77245, .39926, .09648, + .00000, .28761, .40185, + .06779, .03542, 5.54499, .42638, .12276, + .00000, .31568, .42917 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/ + .06980, .03664, 6.23989, .45098, .14701, + .00000, .34109, .45394, + .07172, .03779, 6.91902, .47556, .17105, + .00000, .36642, .47868, + .07323, .03870, 7.45941, .49553, .19047, + .00000, .38697, .49878, + .07640, .04060, 8.63100, .53967, .23401, + .00008, .43231, .54319, + .07911, .04222, 9.63341, .57915, .27318, + .03221, .47279, .58290, + .08211, .04401, 10.74309, .62465, .31843, + .08857, .51937, .62865, + .08519, .04584, 11.89814, .67331, .36697, + .14115, .56912, .67758, + .08795, .04749, 12.93957, .71841, .41209, + .19021, .61517, .72291 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/ + .09072, .04912, 13.97996, .76471, .45855, + .24031, .66241, .76944, + .09299, .05046, 14.82960, .80359, .49757, + .28194, .70204, .80851, + .09571, .05207, 15.83674, .85108, .54521, + .33242, .75042, .85623, + .09810, .05347, 16.71188, .89345, .58784, + .37769, .79357, .89881, + .10028, .05475, 17.50723, .93272, .62758, + .42018, .83353, .93827, + .10302, .05635, 18.47938, .98245, .67773, + .47312, .88412, .98822, + .10556, .05784, 19.36260, 1.02918, .72487, + .52271, .93163, 1.03517, + .10793, .05922, 20.17226, 1.07312, .76938, + .56970, .97630, 1.07931 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/ + .11028, .06058, 20.96395, 1.11719, .81414, + .61705, 1.02108, 1.12357, + .11256, .06190, 21.69655, 1.15968, .85712, + .66203, 1.06425, 1.16626, + .11470, .06314, 22.37956, 1.20010, .89822, + .70531, 1.10530, 1.20685, + .11671, .06430, 22.99899, 1.23790, .93663, + .74562, 1.14369, 1.24482, + .11871, .06545, 23.60015, 1.27563, .97501, + .78588, 1.18200, 1.28272, + .12067, .06658, 24.17735, 1.31270, 1.01281, + .82558, 1.21964, 1.31995, + .12251, .06763, 24.69933, 1.34741, 1.04815, + .86256, 1.25488, 1.35481, + .12426, .06863, 25.18521, 1.38031, 1.08175, + .89781, 1.28828, 1.38786 / DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/ + .12600, .06963, 25.65246, 1.41300, 1.11512, + .93271, 1.32146, 1.42070, + .12771, .07061, 26.10175, 1.44515, 1.14798, + .96712, 1.35409, 1.45299, + .12934, .07153, 26.51638, 1.47558, 1.17912, + .99974, 1.38498, 1.48355, + .13087, .07240, 26.89153, 1.50403, 1.20819, + 1.03011, 1.41385, 1.51212, + .13243, .07329, 27.27262, 1.53310, 1.23805, + 1.06146, 1.44336, 1.54132 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/ + .07055, .03763, .49685, .22564, .00000, + .00000, .12233, .22815, + .07426, .03992, .95333, .23880, .00000, + .00000, .13663, .24167, + .07959, .04320, 1.68786, .26085, .00157, + .00000, .16027, .26422, + .08336, .04551, 2.25008, .27867, .02058, + .00000, .17918, .28238, + .08723, .04787, 2.86654, .29879, .04070, + .00000, .20040, .30287, + .09050, .04985, 3.40818, .31713, .05818, + .00000, .21965, .32151, + .09358, .05171, 3.93848, .33546, .07597, + .00000, .23881, .34012, + .09680, .05365, 4.51113, .35562, .09584, + .00000, .25984, .36058 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/ + .09956, .05531, 5.01636, .37369, .11394, + .00000, .27864, .37890, + .10218, .05688, 5.50119, .39153, .13168, + .00000, .29717, .39698, + .10422, .05810, 5.88089, .40588, .14588, + .00000, .31205, .41152, + .10853, .06066, 6.68758, .43721, .17730, + .00007, .34448, .44325, + .11217, .06282, 7.35863, .46480, .20513, + .02312, .37298, .47116, + .11618, .06518, 8.08192, .49610, .23680, + .06317, .40528, .50283, + .12027, .06758, 8.81605, .52904, .27023, + .09988, .43922, .53613, + .12392, .06972, 9.46193, .55909, .30085, + .13364, .47017, .56652 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/ + .12755, .07183, 10.09255, .58952, .33195, + .16765, .50146, .59727, + .13051, .07355, 10.59659, .61474, .35773, + .19555, .52739, .62275, + .13405, .07559, 11.18120, .64513, .38880, + .22897, .55862, .65346, + .13714, .07737, 11.67837, .67191, .41627, + .25858, .58612, .68051, + .13994, .07898, 12.12234, .69645, .44162, + .28610, .61132, .70530, + .14343, .08097, 12.65230, .72713, .47319, + .31995, .64280, .73628, + .14667, .08281, 13.12217, .75555, .50248, + .35125, .67197, .76499, + .14966, .08451, 13.54411, .78198, .52983, + .38060, .69908, .79167 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/ + .15262, .08619, 13.94847, .80818, .55704, + .40987, .72596, .81813, + .15546, .08778, 14.31236, .83310, .58282, + .43730, .75153, .84329, + .15813, .08928, 14.64579, .85657, .60726, + .46349, .77560, .86699, + .16061, .09067, 14.94109, .87827, .62986, + .48762, .79787, .88890, + .16308, .09205, 15.22151, .89971, .65221, + .51150, .81987, .91055, + .16548, .09339, 15.48580, .92059, .67404, + .53485, .84129, .93164, + .16774, .09464, 15.71809, .93991, .69423, + .55637, .86112, .95115, + .16986, .09581, 15.93089, .95808, .71330, + .57676, .87977, .96950 / DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/ + .17197, .09697, 16.13009, .97595, .73203, + .59674, .89811, .98753, + .17404, .09811, 16.31798, .99337, .75035, + .61630, .91600, 1.00513, + .17599, .09919, 16.48752, 1.00972, .76756, + .63470, .93278, 1.02164, + .17783, .10019, 16.63647, 1.02485, .78349, + .65168, .94833, 1.03692, + .17969, .10120, 16.78692, 1.04024, .79978, + .66914, .96414, 1.05247 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/ + .08817, .04936, .48365, .20873, .00000, + .00000, .11340, .21260, + .09272, .05216, .90820, .22040, .00000, + .00000, .12617, .22472, + .09922, .05612, 1.57347, .23966, .00141, + .00000, .14697, .24462, + .10379, .05889, 2.06974, .25498, .01809, + .00000, .16335, .26039, + .10847, .06171, 2.60330, .27209, .03554, + .00000, .18153, .27795, + .11241, .06407, 3.06371, .28751, .05051, + .00000, .19783, .29375, + .11610, .06627, 3.50782, .30278, .06559, + .00000, .21392, .30938, + .11994, .06855, 3.98056, .31944, .08229, + .00000, .23142, .32640 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/ + .12322, .07050, 4.39222, .33424, .09738, + .00000, .24695, .34151, + .12633, .07233, 4.78238, .34876, .11205, + .00000, .26214, .35632, + .12875, .07375, 5.08466, .36035, .12371, + .00000, .27426, .36815, + .13382, .07671, 5.71802, .38546, .14932, + .00006, .30044, .39373, + .13810, .07920, 6.23453, .40733, .17175, + .01879, .32322, .41599, + .14277, .08190, 6.78070, .43189, .19703, + .05112, .34876, .44099, + .14753, .08463, 7.32527, .45745, .22343, + .08041, .37532, .46699, + .15175, .08705, 7.79599, .48053, .24737, + .10710, .39929, .49046 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/ + .15593, .08942, 8.24799, .50368, .27146, + .13374, .42330, .51398, + .15933, .09135, 8.60366, .52269, .29127, + .15541, .44301, .53329, + .16337, .09362, 9.00932, .54538, .31492, + .18116, .46654, .55635, + .16687, .09559, 9.34871, .56520, .33567, + .20379, .48708, .57648, + .17005, .09736, 9.64780, .58324, .35468, + .22469, .50577, .59480, + .17399, .09955, 9.99805, .60556, .37815, + .25017, .52890, .61747, + .17762, .10156, 10.30228, .62605, .39972, + .27354, .55013, .63827, + .18096, .10340, 10.57091, .64493, .41971, + .29529, .56971, .65744 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/ + .18426, .10521, 10.82411, .66351, .43946, + .31683, .58896, .67630, + .18741, .10693, 11.04603, .68100, .45800, + .33685, .60710, .69406, + .19036, .10853, 11.24648, .69737, .47546, + .35584, .62407, .71067, + .19309, .11001, 11.42033, .71237, .49149, + .37323, .63964, .72591, + .19580, .11147, 11.58182, .72708, .50724, + .39032, .65491, .74084, + .19843, .11289, 11.73120, .74130, .52253, + .40694, .66968, .75529, + .20088, .11420, 11.85875, .75435, .53656, + .42215, .68324, .76854, + .20318, .11542, 11.97382, .76655, .54974, + .43649, .69592, .78093 / DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/ + .20547, .11664, 12.07811, .77845, .56260, + .45045, .70830, .79301, + .20770, .11782, 12.17428, .78998, .57511, + .46405, .72030, .80472, + .20980, .11893, 12.25873, .80073, .58679, + .47677, .73148, .81564, + .21177, .11996, 12.33005, .81059, .59753, + .48844, .74176, .82566, + .21375, .12101, 12.40180, .82060, .60848, + .50041, .75219, .83582 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/ + .10388, .06005, .47987, .19796, .00000, + .00000, .10779, .20323, + .10912, .06323, .88251, .20859, .00000, + .00000, .11951, .21439, + .11657, .06772, 1.50055, .22595, .00131, + .00000, .13840, .23250, + .12179, .07083, 1.95246, .23961, .01648, + .00000, .15312, .24668, + .12712, .07399, 2.43094, .25471, .03220, + .00000, .16929, .26231, + .13157, .07661, 2.83802, .26822, .04554, + .00000, .18368, .27625, + .13574, .07905, 3.22610, .28150, .05890, + .00000, .19778, .28994, + .14007, .08158, 3.63457, .29589, .07357, + .00000, .21302, .30475 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/ + .14375, .08372, 3.98662, .30859, .08675, + .00000, .22645, .31781, + .14723, .08573, 4.31699, .32098, .09948, + .00000, .23951, .33053, + .14993, .08728, 4.57071, .33082, .10955, + .00000, .24988, .34063, + .15558, .09052, 5.09642, .35199, .13151, + .00006, .27214, .36233, + .16032, .09321, 5.51821, .37028, .15060, + .01609, .29134, .38106, + .16548, .09613, 5.95720, .39064, .17192, + .04365, .31270, .40190, + .17071, .09907, 6.38846, .41166, .19402, + .06839, .33472, .42340, + .17534, .10165, 6.75574, .43047, .21390, + .09076, .35443, .44263 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/ + .17989, .10418, 7.10344, .44919, .23376, + .11293, .37402, .46176, + .18359, .10622, 7.37325, .46445, .24997, + .13086, .38999, .47735, + .18796, .10862, 7.67647, .48253, .26921, + .15201, .40892, .49582, + .19175, .11068, 7.92648, .49821, .28597, + .17049, .42532, .51183, + .19517, .11254, 8.14420, .51239, .30124, + .18747, .44017, .52631, + .19939, .11482, 8.39453, .52980, .31996, + .20804, .45840, .54408, + .20326, .11690, 8.60778, .54564, .33704, + .22677, .47500, .56026, + .20682, .11880, 8.79302, .56015, .35277, + .24411, .49020, .57506 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/ + .21032, .12066, 8.96473, .57432, .36823, + .26119, .50506, .58953, + .21364, .12241, 9.11109, .58755, .38262, + .27695, .51895, .60303, + .21675, .12404, 9.24129, .59985, .39612, + .29184, .53187, .61559, + .21962, .12554, 9.35145, .61105, .40843, + .30539, .54364, .62702, + .22244, .12701, 9.45127, .62195, .42046, + .31864, .55511, .63816, + .22518, .12844, 9.54162, .63243, .43207, + .33147, .56614, .64886, + .22773, .12975, 9.61584, .64197, .44267, + .34315, .57620, .65860, + .23012, .13098, 9.68147, .65084, .45258, + .35411, .58556, .66766 / DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/ + .23248, .13218, 9.73830, .65943, .46219, + .36473, .59463, .67644, + .23478, .13335, 9.78899, .66771, .47149, + .37503, .60338, .68489, + .23694, .13445, 9.83161, .67537, .48015, + .38463, .61149, .69272, + .23895, .13547, 9.86516, .68235, .48805, + .39338, .61889, .69985, + .24099, .13649, 9.89879, .68941, .49609, + .40235, .62638, .70707 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/ + .11839, .07000, .48199, .19019, .00000, + .00000, .10384, .19688, + .12422, .07348, .86778, .20003, .00000, + .00000, .11479, .20732, + .13247, .07837, 1.44995, .21596, .00123, + .00000, .13226, .22409, + .13823, .08175, 1.86859, .22837, .01531, + .00000, .14574, .23708, + .14408, .08516, 2.30623, .24200, .02978, + .00000, .16046, .25129, + .14896, .08799, 2.67413, .25410, .04196, + .00000, .17345, .26387, + .15352, .09061, 3.02142, .26592, .05407, + .00000, .18611, .27614, + .15823, .09330, 3.38353, .27866, .06730, + .00000, .19971, .28934 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/ + .16224, .09558, 3.69288, .28985, .07911, + .00000, .21164, .30092, + .16601, .09772, 3.98073, .30070, .09046, + .00000, .22318, .31213, + .16893, .09937, 4.20010, .30929, .09940, + .00000, .23229, .32099, + .17502, .10278, 4.65031, .32765, .11879, + .00005, .25177, .33993, + .18012, .10561, 5.00638, .34340, .13553, + .01420, .26845, .35615, + .18565, .10867, 5.37171, .36081, .15411, + .03841, .28687, .37407, + .19123, .11173, 5.72586, .37864, .17322, + .05999, .30573, .39241, + .19615, .11441, 6.02353, .39449, .19030, + .07937, .32248, .40870 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/ + .20098, .11702, 6.30168, .41015, .20725, + .09848, .33904, .42479, + .20488, .11912, 6.51450, .42283, .22101, + .11384, .35244, .43782, + .20948, .12157, 6.75057, .43776, .23724, + .13187, .36823, .45315, + .21345, .12368, 6.94252, .45062, .25130, + .14754, .38184, .46634, + .21702, .12557, 7.10775, .46219, .26405, + .16188, .39408, .47822, + .22143, .12787, 7.29399, .47629, .27959, + .17914, .40902, .49269, + .22545, .12997, 7.44964, .48903, .29368, + .19478, .42253, .50577, + .22914, .13187, 7.58250, .50062, .30659, + .20918, .43483, .51766 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/ + .23275, .13373, 7.70339, .51187, .31921, + .22331, .44678, .52920, + .23617, .13547, 7.80301, .52228, .33088, + .23627, .45786, .53989, + .23935, .13709, 7.89004, .53192, .34178, + .24846, .46812, .54978, + .24228, .13857, 7.96141, .54063, .35167, + .25950, .47741, .55872, + .24516, .14002, 8.02399, .54905, .36128, + .27026, .48641, .56736, + .24795, .14141, 8.07902, .55711, .37053, + .28063, .49503, .57563, + .25053, .14269, 8.12168, .56438, .37890, + .29002, .50282, .58310, + .25295, .14389, 8.15825, .57111, .38672, + .29882, .51005, .59002 / DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/ + .25532, .14505, 8.18740, .57757, .39425, + .30729, .51701, .59666, + .25763, .14618, 8.21176, .58377, .40152, + .31548, .52368, .60302, + .25980, .14724, 8.23032, .58946, .40824, + .32309, .52983, .60888, + .26181, .14821, 8.24237, .59461, .41435, + .32999, .53541, .61417, + .26385, .14919, 8.25436, .59982, .42056, + .33705, .54104, .61952 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/ + .14511, .08830, .49745, .17920, .00000, + .00000, .09849, .18877, + .15189, .09222, .85766, .18788, .00000, + .00000, .10832, .19815, + .16142, .09767, 1.38611, .20170, .00112, + .00000, .12375, .21296, + .16802, .10141, 1.75590, .21231, .01367, + .00000, .13547, .22422, + .17469, .10516, 2.13442, .22381, .02640, + .00000, .14811, .23639, + .18023, .10824, 2.44641, .23390, .03696, + .00000, .15912, .24702, + .18536, .11108, 2.73604, .24366, .04734, + .00000, .16975, .25727, + .19065, .11399, 3.03320, .25406, .05857, + .00000, .18106, .26819 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/ + .19513, .11644, 3.28333, .26313, .06851, + .00000, .19090, .27768, + .19933, .11872, 3.51274, .27184, .07797, + .00000, .20033, .28679, + .20256, .12046, 3.68530, .27868, .08537, + .00000, .20773, .29393, + .20928, .12406, 4.03351, .29318, .10126, + .00005, .22338, .30904, + .21486, .12703, 4.30187, .30545, .11482, + .01164, .23662, .32181, + .22089, .13020, 4.57021, .31885, .12970, + .03136, .25108, .33575, + .22692, .13335, 4.82416, .33239, .14483, + .04871, .26569, .34982, + .23220, .13608, 5.03221, .34427, .15819, + .06414, .27851, .36216 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/ + .23735, .13873, 5.22172, .35587, .17132, + .07920, .29104, .37419, + .24149, .14084, 5.36300, .36515, .18187, + .09119, .30108, .38381, + .24635, .14328, 5.51519, .37594, .19419, + .10515, .31276, .39501, + .25051, .14537, 5.63534, .38513, .20476, + .11718, .32272, .40453, + .25424, .14722, 5.73626, .39332, .21428, + .12811, .33161, .41302, + .25879, .14947, 5.84525, .40316, .22574, + .14114, .34231, .42321, + .26293, .15149, 5.93188, .41193, .23603, + .15283, .35187, .43230, + .26670, .15331, 6.00268, .41981, .24537, + .16352, .36049, .44046 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/ + .27037, .15508, 6.06410, .42737, .25442, + .17392, .36877, .44830, + .27381, .15672, 6.10987, .43425, .26270, + .18336, .37633, .45542, + .27701, .15823, 6.14762, .44054, .27036, + .19219, .38328, .46194, + .27994, .15959, 6.17513, .44616, .27725, + .20012, .38949, .46777, + .28280, .16092, 6.19610, .45152, .28389, + .20779, .39544, .47332, + .28555, .16219, 6.21201, .45658, .29023, + .21514, .40108, .47857, + .28808, .16335, 6.21999, .46107, .29591, + .22173, .40610, .48323, + .29043, .16442, 6.22483, .46520, .30117, + .22787, .41073, .48751 / DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/ + .29274, .16546, 6.22430, .46909, .30620, + .23374, .41512, .49155, + .29496, .16646, 6.22078, .47277, .31100, + .23938, .41929, .49537, + .29704, .16738, 6.21426, .47611, .31542, + .24458, .42309, .49883, + .29896, .16823, 6.20429, .47906, .31938, + .24926, .42648, .50191, + .30090, .16907, 6.19422, .48204, .32340, + .25404, .42990, .50501 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/ + .18159, .11290, .53827, .16809, .00000, + .00000, .09346, .18200, + .18941, .11719, .86934, .17556, .00000, + .00000, .10216, .19026, + .20030, .12310, 1.33967, .18720, .00101, + .00000, .11553, .20299, + .20777, .12710, 1.65816, .19596, .01210, + .00000, .12549, .21248, + .21526, .13108, 1.97594, .20531, .02314, + .00000, .13604, .22254, + .22143, .13432, 2.23164, .21337, .03213, + .00000, .14510, .23119, + .22712, .13728, 2.46415, .22108, .04086, + .00000, .15374, .23942, + .23294, .14029, 2.69796, .22920, .05018, + .00000, .16282, .24806 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/ + .23784, .14280, 2.89110, .23619, .05833, + .00000, .17063, .25549, + .24240, .14512, 3.06495, .24283, .06600, + .00000, .17803, .26254, + .24590, .14688, 3.19354, .24800, .07195, + .00000, .18378, .26800, + .25312, .15049, 3.44723, .25880, .08458, + .00004, .19582, .27942, + .25906, .15343, 3.63571, .26779, .09520, + .00928, .20584, .28890, + .26542, .15654, 3.81721, .27745, .10669, + .02487, .21661, .29907, + .27173, .15958, 3.98295, .28704, .11819, + .03838, .22732, .30916, + .27720, .16219, 4.11364, .29531, .12822, + .05025, .23658, .31785 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/ + .28249, .16469, 4.22786, .30323, .13794, + .06170, .24548, .32617, + .28670, .16665, 4.30937, .30948, .14566, + .07072, .25251, .33272, + .29160, .16891, 4.39251, .31660, .15455, + .08110, .26056, .34020, + .29576, .17080, 4.45446, .32257, .16209, + .08995, .26733, .34645, + .29946, .17247, 4.50394, .32782, .16881, + .09793, .27330, .35194, + .30395, .17447, 4.55210, .33397, .17680, + .10732, .28035, .35839, + .30797, .17623, 4.58554, .33934, .18386, + .11566, .28653, .36401, + .31161, .17780, 4.60921, .34407, .19020, + .12320, .29202, .36897 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/ + .31512, .17930, 4.62607, .34853, .19627, + .13048, .29722, .37364, + .31838, .18067, 4.63231, .35246, .20174, + .13700, .30186, .37776, + .32138, .18192, 4.63446, .35601, .20675, + .14305, .30606, .38147, + .32409, .18303, 4.63103, .35908, .21119, + .14843, .30975, .38469, + .32672, .18410, 4.62306, .36195, .21542, + .15358, .31321, .38768, + .32923, .18510, 4.61216, .36459, .21942, + .15847, .31644, .39045, + .33152, .18600, 4.59716, .36685, .22294, + .16282, .31924, .39282, + .33363, .18682, 4.58139, .36889, .22618, + .16683, .32179, .39495 / DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/ + .33568, .18760, 4.56193, .37074, .22922, + .17063, .32414, .39689, + .33764, .18834, 4.54091, .37244, .23210, + .17425, .32634, .39867, + .33945, .18901, 4.51900, .37393, .23471, + .17756, .32829, .40023, + .34110, .18962, 4.49592, .37519, .23702, + .18051, .32998, .40155, + .34277, .19022, 4.47283, .37645, .23935, + .18351, .33168, .40286 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/ + .23668, .14859, .63070, .15514, .00000, + .00000, .08819, .17619, + .24552, .15303, .92326, .16122, .00000, + .00000, .09562, .18308, + .25768, .15904, 1.32120, .17040, .00090, + .00000, .10670, .19334, + .26591, .16304, 1.57918, .17710, .01043, + .00000, .11470, .20074, + .27407, .16696, 1.82781, .18408, .01969, + .00000, .12299, .20840, + .28070, .17010, 2.02126, .18997, .02705, + .00000, .12997, .21481, + .28676, .17293, 2.19209, .19549, .03406, + .00000, .13648, .22080, + .29291, .17576, 2.35893, .20119, .04142, + .00000, .14322, .22697 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/ + .29804, .17810, 2.49296, .20600, .04775, + .00000, .14891, .23217, + .30276, .18023, 2.61022, .21051, .05362, + .00000, .15423, .23701, + .30635, .18183, 2.69463, .21396, .05811, + .00000, .15830, .24070, + .31367, .18505, 2.85516, .22103, .06751, + .00004, .16667, .24826, + .31962, .18762, 2.96693, .22676, .07525, + .00698, .17348, .25437, + .32589, .19028, 3.06700, .23275, .08346, + .01856, .18064, .26074, + .33202, .19282, 3.15201, .23851, .09152, + .02841, .18758, .26685, + .33726, .19494, 3.21343, .24332, .09840, + .03691, .19342, .27195 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/ + .34223, .19693, 3.26189, .24780, .10495, + .04499, .19890, .27667, + .34614, .19845, 3.29214, .25122, .11005, + .05125, .20313, .28027, + .35061, .20014, 3.31762, .25499, .11584, + .05836, .20785, .28424, + .35435, .20153, 3.33203, .25803, .12065, + .06434, .21171, .28743, + .35764, .20273, 3.34023, .26063, .12488, + .06967, .21504, .29015, + .36153, .20410, 3.34079, .26354, .12980, + .07584, .21886, .29319, + .36496, .20526, 3.33376, .26593, .13406, + .08123, .22208, .29568, + .36801, .20627, 3.32247, .26795, .13782, + .08605, .22485, .29777 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/ + .37090, .20720, 3.30715, .26976, .14136, + .09063, .22741, .29964, + .37352, .20799, 3.28597, .27121, .14445, + .09466, .22956, .30113, + .37589, .20869, 3.26400, .27245, .14725, + .09837, .23145, .30240, + .37799, .20928, 3.24024, .27343, .14968, + .10161, .23303, .30339, + .37998, .20982, 3.21396, .27425, .15194, + .10467, .23444, .30422, + .38186, .21030, 3.18664, .27494, .15404, + .10755, .23571, .30492, + .38351, .21069, 3.15823, .27542, .15583, + .11006, .23672, .30538, + .38502, .21104, 3.13077, .27581, .15746, + .11235, .23760, .30575 / DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/ + .38643, .21134, 3.10129, .27606, .15894, + .11449, .23834, .30596, + .38777, .21161, 3.07149, .27622, .16031, + .11651, .23898, .30609, + .38898, .21182, 3.04230, .27629, .16152, + .11832, .23950, .30612, + .39004, .21199, 3.01356, .27625, .16255, + .11991, .23988, .30605, + .39111, .21215, 2.98497, .27621, .16359, + .12152, .24025, .30596 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/ + .28699, .17936, .73496, .14481, .00000, + .00000, .08430, .17256, + .29626, .18358, .99215, .14984, .00000, + .00000, .09078, .17832, + .30884, .18918, 1.33135, .15725, .00082, + .00000, .10019, .18663, + .31724, .19285, 1.54277, .16250, .00926, + .00000, .10680, .19245, + .32549, .19637, 1.74041, .16783, .01730, + .00000, .11351, .19831, + .33211, .19915, 1.88953, .17223, .02356, + .00000, .11904, .20311, + .33810, .20161, 2.01760, .17628, .02942, + .00000, .12412, .20750, + .34410, .20403, 2.13916, .18038, .03549, + .00000, .12929, .21192 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/ + .34905, .20600, 2.23414, .18379, .04064, + .00000, .13360, .21558, + .35358, .20776, 2.31476, .18692, .04535, + .00000, .13756, .21892, + .35700, .20906, 2.37108, .18926, .04892, + .00000, .14055, .22142, + .36388, .21163, 2.47367, .19398, .05628, + .00003, .14659, .22643, + .36938, .21362, 2.53907, .19769, .06224, + .00555, .15140, .23034, + .37507, .21562, 2.59132, .20145, .06846, + .01468, .15633, .23426, + .38054, .21745, 2.63033, .20493, .07446, + .02232, .16098, .23788, + .38512, .21892, 2.65341, .20771, .07949, + .02881, .16479, .24076 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/ + .38940, .22023, 2.66640, .21020, .08420, + .03491, .16827, .24330, + .39270, .22120, 2.66988, .21201, .08781, + .03959, .17087, .24512, + .39638, .22221, 2.66594, .21389, .09184, + .04482, .17369, .24700, + .39940, .22299, 2.65679, .21531, .09513, + .04918, .17592, .24841, + .40201, .22362, 2.64509, .21647, .09798, + .05301, .17779, .24953, + .40502, .22428, 2.62366, .21762, .10124, + .05741, .17983, .25064, + .40759, .22477, 2.59861, .21844, .10400, + .06119, .18145, .25138, + .40981, .22515, 2.57234, .21904, .10639, + .06454, .18278, .25189 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/ + .41187, .22545, 2.54378, .21949, .10860, + .06768, .18394, .25222, + .41363, .22564, 2.51210, .21968, .11048, + .07040, .18480, .25230, + .41520, .22576, 2.48129, .21978, .11215, + .07288, .18551, .25227, + .41653, .22581, 2.45057, .21973, .11355, + .07502, .18603, .25210, + .41774, .22580, 2.41852, .21956, .11483, + .07701, .18643, .25181, + .41884, .22574, 2.38645, .21931, .11599, + .07887, .18672, .25143, + .41975, .22563, 2.35470, .21895, .11695, + .08045, .18686, .25093, + .42055, .22550, 2.32464, .21857, .11780, + .08190, .18695, .25041 / DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/ + .42125, .22532, 2.29350, .21808, .11853, + .08322, .18692, .24978, + .42187, .22512, 2.26263, .21754, .11920, + .08444, .18683, .24910, + .42239, .22489, 2.23300, .21698, .11976, + .08554, .18669, .24840, + .42280, .22463, 2.20444, .21637, .12020, + .08647, .18647, .24765, + .42321, .22437, 2.17615, .21576, .12065, + .08741, .18625, .24691 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/ + .37712, .22979, .92855, .12683, .00000, + .00000, .07751, .16595, + .38600, .23295, 1.12210, .13033, .00000, + .00000, .08248, .16970, + .39775, .23695, 1.36186, .13517, .00069, + .00000, .08935, .17481, + .40535, .23942, 1.50001, .13839, .00750, + .00000, .09393, .17814, + .41261, .24164, 1.62134, .14151, .01380, + .00000, .09842, .18130, + .41829, .24328, 1.70687, .14394, .01852, + .00000, .10196, .18373, + .42329, .24465, 1.77571, .14608, .02284, + .00000, .10511, .18583, + .42817, .24592, 1.83658, .14815, .02720, + .00000, .10820, .18782 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/ + .43210, .24688, 1.88072, .14979, .03082, + .00000, .11071, .18937, + .43560, .24766, 1.91484, .15122, .03406, + .00000, .11294, .19070, + .43816, .24819, 1.93625, .15224, .03647, + .00000, .11457, .19161, + .44316, .24911, 1.96887, .15417, .04132, + .00003, .11774, .19329, + .44697, .24968, 1.98045, .15553, .04514, + .00380, .12013, .19440, + .45072, .25009, 1.97933, .15673, .04901, + .00996, .12242, .19531, + .45410, .25028, 1.96901, .15766, .05262, + .01497, .12443, .19590, + .45673, .25028, 1.95262, .15824, .05556, + .01915, .12595, .19614 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/ + .45901, .25013, 1.93057, .15860, .05822, + .02298, .12721, .19614, + .46062, .24988, 1.90857, .15873, .06020, + .02586, .12805, .19594, + .46222, .24945, 1.87804, .15867, .06234, + .02902, .12883, .19549, + .46339, .24895, 1.84860, .15847, .06403, + .03160, .12934, .19494, + .46430, .24843, 1.82048, .15820, .06545, + .03384, .12970, .19433, + .46513, .24766, 1.78217, .15766, .06701, + .03634, .12994, .19336, + .46564, .24681, 1.74449, .15700, .06827, + .03844, .12997, .19229, + .46594, .24595, 1.70865, .15629, .06931, + .04026, .12989, .19118 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/ + .46608, .24504, 1.67251, .15550, .07022, + .04194, .12972, .19000, + .46596, .24404, 1.63601, .15459, .07094, + .04335, .12938, .18869, + .46574, .24307, 1.60184, .15368, .07154, + .04462, .12900, .18741, + .46538, .24210, 1.56947, .15277, .07201, + .04568, .12857, .18613, + .46491, .24108, 1.53698, .15179, .07240, + .04665, .12806, .18478, + .46436, .24005, 1.50538, .15078, .07272, + .04752, .12751, .18343, + .46370, .23902, 1.47527, .14977, .07294, + .04825, .12692, .18207, + .46303, .23804, 1.44728, .14880, .07311, + .04889, .12633, .18078 / DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/ + .46224, .23700, 1.41912, .14777, .07322, + .04946, .12569, .17943, + .46140, .23596, 1.39172, .14673, .07328, + .04998, .12502, .17807, + .46054, .23495, 1.36590, .14572, .07331, + .05042, .12436, .17675, + .45964, .23396, 1.34156, .14473, .07328, + .05078, .12369, .17547, + .45874, .23297, 1.31758, .14374, .07325, + .05115, .12302, .17419 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/ + .45554, .26860, 1.07185, .11076, .00000, + .00000, .07087, .15779, + .46293, .27025, 1.20777, .11311, .00000, + .00000, .07461, .15981, + .47232, .27206, 1.36482, .11616, .00058, + .00000, .07952, .16231, + .47812, .27296, 1.44644, .11803, .00612, + .00000, .08264, .16373, + .48343, .27357, 1.51211, .11972, .01112, + .00000, .08557, .16491, + .48739, .27385, 1.55346, .12094, .01477, + .00000, .08779, .16566, + .49072, .27393, 1.58281, .12192, .01804, + .00000, .08968, .16618, + .49380, .27385, 1.60473, .12278, .02127, + .00000, .09147, .16654 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/ + .49616, .27365, 1.61737, .12341, .02391, + .00000, .09286, .16671, + .49815, .27333, 1.62365, .12387, .02623, + .00000, .09404, .16674, + .49949, .27300, 1.62479, .12416, .02793, + .00000, .09486, .16667, + .50189, .27214, 1.61836, .12456, .03128, + .00002, .09635, .16632, + .50346, .27120, 1.60159, .12469, .03386, + .00274, .09738, .16579, + .50469, .26998, 1.57400, .12461, .03639, + .00712, .09824, .16494, + .50545, .26852, 1.54070, .12429, .03869, + .01062, .09885, .16384, + .50572, .26706, 1.50720, .12382, .04051, + .01347, .09918, .16267 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/ + .50565, .26546, 1.47109, .12320, .04211, + .01605, .09933, .16133, + .50533, .26404, 1.43972, .12257, .04326, + .01795, .09931, .16010, + .50460, .26222, 1.40038, .12169, .04445, + .02001, .09913, .15851, + .50372, .26055, 1.36511, .12082, .04536, + .02166, .09885, .15701, + .50277, .25898, 1.33289, .11998, .04610, + .02307, .09852, .15560, + .50127, .25689, 1.29149, .11879, .04687, + .02462, .09798, .15368, + .49962, .25485, 1.25266, .11758, .04744, + .02590, .09735, .15181, + .49792, .25290, 1.21687, .11641, .04788, + .02698, .09670, .15002 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/ + .49609, .25093, 1.18176, .11521, .04824, + .02796, .09600, .14819, + .49405, .24893, 1.14750, .11396, .04847, + .02876, .09521, .14634, + .49206, .24702, 1.11598, .11276, .04865, + .02946, .09444, .14460, + .49008, .24518, 1.08676, .11159, .04875, + .03004, .09368, .14292, + .48797, .24331, 1.05797, .11040, .04879, + .03055, .09287, .14121, + .48584, .24147, 1.03037, .10923, .04880, + .03100, .09206, .13954, + .48369, .23969, 1.00454, .10808, .04875, + .03136, .09125, .13792, + .48164, .23800, .98077, .10699, .04868, + .03167, .09047, .13639 / DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/ + .47947, .23628, .95721, .10587, .04858, + .03193, .08966, .13483, + .47729, .23458, .93452, .10477, .04845, + .03216, .08885, .13331, + .47517, .23294, .91336, .10371, .04831, + .03235, .08807, .13185, + .47308, .23137, .89364, .10269, .04814, + .03248, .08730, .13046, + .47099, .22980, .87428, .10168, .04798, + .03262, .08655, .12907 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/ + .52331, .29803, 1.15360, .09635, .00000, + .00000, .06418, .14770, + .52844, .29799, 1.23967, .09784, .00000, + .00000, .06688, .14825, + .53452, .29738, 1.32955, .09959, .00049, + .00000, .07026, .14867, + .53792, .29659, 1.36792, .10054, .00498, + .00000, .07229, .14863, + .54071, .29548, 1.39283, .10127, .00896, + .00000, .07409, .14835, + .54250, .29432, 1.40317, .10171, .01180, + .00000, .07538, .14789, + .54376, .29308, 1.40581, .10197, .01431, + .00000, .07642, .14730, + .54468, .29164, 1.40232, .10211, .01675, + .00000, .07734, .14656 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/ + .54518, .29029, 1.39512, .10213, .01870, + .00000, .07800, .14582, + .54536, .28890, 1.38441, .10204, .02040, + .00000, .07851, .14502, + .54530, .28774, 1.37355, .10191, .02162, + .00000, .07882, .14431, + .54477, .28515, 1.34501, .10147, .02400, + .00002, .07930, .14271, + .54386, .28277, 1.31334, .10093, .02578, + .00202, .07952, .14118, + .54236, .28000, 1.27298, .10018, .02749, + .00523, .07955, .13934, + .54033, .27701, 1.22960, .09925, .02901, + .00775, .07939, .13728, + .53813, .27422, 1.18946, .09829, .03016, + .00977, .07908, .13532 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/ + .53562, .27132, 1.14874, .09723, .03114, + .01157, .07864, .13329, + .53331, .26887, 1.11498, .09628, .03183, + .01289, .07820, .13154, + .53023, .26583, 1.07430, .09506, .03251, + .01428, .07755, .12939, + .52732, .26312, 1.03897, .09392, .03301, + .01539, .07690, .12746, + .52456, .26063, 1.00740, .09286, .03340, + .01632, .07627, .12568, + .52079, .25743, .96798, .09146, .03375, + .01732, .07539, .12338, + .51706, .25438, .93193, .09011, .03399, + .01813, .07449, .12120, + .51348, .25151, .89929, .08882, .03415, + .01881, .07363, .11917 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/ + .50982, .24865, .86777, .08752, .03425, + .01942, .07274, .11714, + .50602, .24581, .83765, .08622, .03427, + .01989, .07181, .11513, + .50239, .24316, .81024, .08499, .03425, + .02030, .07093, .11325, + .49890, .24064, .78516, .08383, .03420, + .02063, .07008, .11148, + .49532, .23811, .76073, .08264, .03411, + .02091, .06921, .10972, + .49177, .23562, .73752, .08148, .03400, + .02115, .06836, .10800, + .48830, .23326, .71606, .08038, .03386, + .02133, .06752, .10637, + .48501, .23104, .69643, .07935, .03371, + .02149, .06673, .10484 / DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/ + .48164, .22880, .67718, .07830, .03354, + .02160, .06592, .10330, + .47830, .22659, .65878, .07726, .03335, + .02170, .06512, .10181, + .47508, .22449, .64173, .07628, .03316, + .02177, .06436, .10039, + .47198, .22249, .62595, .07535, .03297, + .02181, .06363, .09904, + .46888, .22050, .61051, .07443, .03277, + .02186, .06291, .09771 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/ + .59391, .32387, 1.17651, .08074, .00000, + .00000, .05595, .13295, + .59559, .32162, 1.21317, .08145, .00000, + .00000, .05761, .13211, + .59668, .31797, 1.24013, .08207, .00040, + .00000, .05954, .13058, + .59654, .31509, 1.24035, .08226, .00382, + .00000, .06060, .12926, + .59572, .31188, 1.23094, .08224, .00682, + .00000, .06142, .12774, + .59446, .30902, 1.21629, .08208, .00891, + .00000, .06193, .12629, + .59287, .30620, 1.19824, .08181, .01072, + .00000, .06227, .12484, + .59085, .30314, 1.17594, .08142, .01245, + .00000, .06249, .12325 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/ + .58885, .30045, 1.15466, .08101, .01382, + .00000, .06258, .12183, + .58667, .29781, 1.13243, .08056, .01498, + .00000, .06260, .12040, + .58478, .29569, 1.11381, .08015, .01581, + .00000, .06255, .11925, + .58044, .29114, 1.07194, .07919, .01740, + .00002, .06230, .11678, + .57635, .28717, 1.03248, .07826, .01855, + .00142, .06196, .11460, + .57144, .28269, .98668, .07712, .01962, + .00364, .06144, .11214, + .56596, .27803, .94020, .07587, .02054, + .00536, .06079, .10953, + .56076, .27380, .89916, .07468, .02122, + .00671, .06010, .10716 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/ + .55532, .26952, .85902, .07342, .02177, + .00790, .05933, .10478, + .55064, .26599, .82675, .07235, .02213, + .00875, .05864, .10282, + .54479, .26171, .78894, .07103, .02246, + .00965, .05777, .10042, + .53952, .25795, .75684, .06984, .02269, + .01034, .05696, .09833, + .53465, .25454, .72864, .06876, .02285, + .01092, .05620, .09645, + .52831, .25022, .69421, .06736, .02296, + .01154, .05519, .09407, + .52226, .24617, .66332, .06603, .02300, + .01202, .05423, .09186, + .51657, .24242, .63577, .06479, .02300, + .01241, .05332, .08982 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/ + .51087, .23872, .60951, .06356, .02296, + .01275, .05241, .08782, + .50515, .23511, .58482, .06235, .02287, + .01301, .05149, .08588, + .49977, .23174, .56257, .06122, .02277, + .01323, .05064, .08408, + .49466, .22859, .54244, .06017, .02265, + .01339, .04982, .08241, + .48952, .22544, .52303, .05911, .02251, + .01353, .04900, .08077, + .48448, .22239, .50475, .05808, .02235, + .01364, .04819, .07918, + .47965, .21949, .48800, .05711, .02219, + .01372, .04743, .07768, + .47512, .21679, .47279, .05620, .02202, + .01377, .04673, .07628 / DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/ + .47050, .21408, .45799, .05529, .02184, + .01381, .04601, .07489, + .46597, .21144, .44392, .05441, .02166, + .01383, .04531, .07355, + .46164, .20894, .43098, .05358, .02148, + .01384, .04464, .07229, + .45753, .20658, .41908, .05279, .02130, + .01383, .04401, .07110, + .45343, .20425, .40749, .05201, .02111, + .01383, .04338, .06993 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/ + .64964, .33952, 1.13188, .06771, .00000, + .00000, .04812, .11685, + .64743, .33515, 1.13348, .06784, .00000, + .00000, .04902, .11506, + .64310, .32858, 1.11839, .06772, .00032, + .00000, .04994, .11231, + .63919, .32374, 1.09486, .06742, .00292, + .00000, .05035, .11020, + .63456, .31860, 1.06526, .06696, .00518, + .00000, .05055, .10798, + .63014, .31418, 1.03677, .06646, .00671, + .00000, .05059, .10599, + .62563, .30994, 1.00795, .06591, .00803, + .00000, .05050, .10409, + .62062, .30546, .97650, .06525, .00927, + .00000, .05034, .10206 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/ + .61612, .30158, .94887, .06462, .01024, + .00000, .05013, .10031, + .61163, .29785, .92191, .06398, .01105, + .00000, .04986, .09864, + .60793, .29490, .90044, .06344, .01162, + .00000, .04960, .09731, + .59988, .28869, .85458, .06227, .01269, + .00002, .04898, .09448, + .59273, .28339, .81408, .06121, .01345, + .00101, .04838, .09207, + .58457, .27752, .76911, .05997, .01415, + .00258, .04763, .08940, + .57590, .27149, .72483, .05863, .01471, + .00377, .04677, .08669, + .56794, .26611, .68676, .05739, .01511, + .00470, .04595, .08427 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/ + .55982, .26077, .65034, .05615, .01542, + .00550, .04509, .08186, + .55304, .25638, .62164, .05509, .01561, + .00608, .04435, .07993, + .54474, .25116, .58853, .05383, .01576, + .00666, .04343, .07760, + .53740, .24660, .56086, .05270, .01585, + .00711, .04261, .07560, + .53073, .24249, .53683, .05168, .01590, + .00749, .04186, .07382, + .52220, .23736, .50789, .05040, .01591, + .00787, .04090, .07157, + .51418, .23258, .48228, .04919, .01587, + .00816, .03998, .06954, + .50672, .22821, .45967, .04807, .01580, + .00840, .03913, .06768 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/ + .49933, .22394, .43833, .04698, .01571, + .00860, .03830, .06587, + .49203, .21979, .41848, .04594, .01560, + .00874, .03747, .06412, + .48523, .21595, .40074, .04496, .01548, + .00886, .03671, .06252, + .47885, .21238, .38483, .04403, .01535, + .00894, .03598, .06105, + .47246, .20884, .36960, .04313, .01520, + .00900, .03526, .05961, + .46624, .20542, .35534, .04226, .01505, + .00905, .03457, .05822, + .46034, .20221, .34236, .04144, .01490, + .00908, .03392, .05692, + .45482, .19923, .33061, .04068, .01475, + .00909, .03332, .05572 / DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/ + .44927, .19624, .31925, .03991, .01459, + .00909, .03271, .05454, + .44386, .19333, .30852, .03917, .01443, + .00909, .03211, .05340, + .43872, .19060, .29869, .03847, .01428, + .00907, .03156, .05234, + .43386, .18804, .28972, .03783, .01413, + .00905, .03103, .05133, + .42903, .18551, .28099, .03719, .01398, + .00902, .03052, .05034 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/ + .69135, .34671, 1.04411, .05698, .00000, + .00000, .04089, .10041, + .68511, .34040, 1.02322, .05672, .00000, + .00000, .04125, .09807, + .67513, .33127, .98290, .05615, .00025, + .00000, .04148, .09463, + .66740, .32472, .94640, .05557, .00223, + .00000, .04143, .09215, + .65900, .31790, .90667, .05486, .00392, + .00000, .04126, .08957, + .65147, .31215, .87194, .05419, .00507, + .00000, .04100, .08737, + .64414, .30670, .83883, .05349, .00603, + .00000, .04068, .08530, + .63627, .30101, .80430, .05270, .00693, + .00000, .04029, .08314 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/ + .62939, .29617, .77502, .05199, .00762, + .00000, .03991, .08131, + .62266, .29156, .74732, .05129, .00820, + .00000, .03951, .07957, + .61729, .28794, .72579, .05070, .00859, + .00000, .03917, .07821, + .60583, .28038, .68106, .04946, .00933, + .00001, .03840, .07537, + .59592, .27402, .64295, .04839, .00984, + .00073, .03769, .07300, + .58484, .26705, .60175, .04715, .01029, + .00185, .03685, .07043, + .57333, .25998, .56197, .04585, .01065, + .00269, .03596, .06783, + .56293, .25375, .52837, .04468, .01088, + .00334, .03513, .06556 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/ + .55254, .24761, .49672, .04350, .01106, + .00390, .03428, .06334, + .54394, .24262, .47204, .04253, .01115, + .00428, .03358, .06155, + .53356, .23672, .44396, .04139, .01122, + .00468, .03272, .05943, + .52452, .23160, .42076, .04037, .01124, + .00498, .03195, .05764, + .51637, .22701, .40078, .03943, .01123, + .00522, .03126, .05606, + .50603, .22134, .37697, .03830, .01119, + .00547, .03040, .05408, + .49642, .21612, .35610, .03725, .01112, + .00565, .02959, .05229, + .48756, .21136, .33782, .03629, .01104, + .00579, .02884, .05067 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/ + .47885, .20672, .32070, .03535, .01094, + .00591, .02811, .04912, + .47037, .20224, .30488, .03443, .01082, + .00599, .02741, .04763, + .46250, .19812, .29082, .03359, .01071, + .00605, .02676, .04626, + .45515, .19432, .27831, .03282, .01059, + .00610, .02616, .04501, + .44784, .19057, .26637, .03206, .01046, + .00612, .02556, .04379, + .44078, .18695, .25525, .03134, .01033, + .00614, .02497, .04263, + .43411, .18356, .24520, .03065, .01020, + .00614, .02443, .04156, + .42792, .18043, .23615, .03000, .01008, + .00614, .02393, .04057 / DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/ + .42170, .17731, .22744, .02937, .00995, + .00613, .02343, .03960, + .41564, .17430, .21923, .02877, .00982, + .00611, .02295, .03866, + .40994, .17147, .21173, .02820, .00969, + .00609, .02250, .03779, + .40456, .16881, .20491, .02767, .00957, + .00606, .02207, .03698, + .39924, .16619, .19829, .02715, .00945, + .00603, .02166, .03618 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/ + .71993, .34692, .93434, .04815, .00000, + .00000, .03435, .08445, + .70968, .33892, .90079, .04765, .00000, + .00000, .03435, .08188, + .69429, .32752, .84761, .04675, .00020, + .00000, .03416, .07822, + .68291, .31949, .80560, .04600, .00170, + .00000, .03386, .07566, + .67089, .31130, .76236, .04515, .00298, + .00000, .03347, .07304, + .66048, .30442, .72617, .04438, .00383, + .00000, .03307, .07083, + .65053, .29797, .69270, .04362, .00454, + .00000, .03263, .06880, + .64003, .29132, .65864, .04278, .00520, + .00000, .03215, .06671 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/ + .63098, .28570, .63032, .04204, .00570, + .00000, .03171, .06495, + .62230, .28036, .60401, .04131, .00611, + .00000, .03125, .06331, + .61542, .27622, .58388, .04074, .00639, + .00000, .03087, .06203, + .60092, .26765, .54274, .03952, .00690, + .00001, .03006, .05938, + .58859, .26050, .50848, .03847, .00724, + .00053, .02935, .05720, + .57498, .25274, .47213, .03730, .00754, + .00134, .02853, .05486, + .56105, .24495, .43753, .03610, .00776, + .00194, .02768, .05252, + .54862, .23811, .40865, .03502, .00790, + .00240, .02691, .05049 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/ + .53631, .23143, .38175, .03395, .00799, + .00279, .02612, .04854, + .52627, .22604, .36100, .03307, .00803, + .00305, .02549, .04698, + .51425, .21969, .33759, .03204, .00805, + .00332, .02472, .04515, + .50383, .21423, .31840, .03114, .00804, + .00352, .02405, .04360, + .49448, .20938, .30198, .03034, .00801, + .00368, .02345, .04223, + .48275, .20341, .28258, .02935, .00795, + .00384, .02270, .04055, + .47197, .19793, .26568, .02843, .00787, + .00396, .02201, .03905, + .46209, .19295, .25098, .02760, .00779, + .00404, .02138, .03770 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/ + .45244, .18812, .23730, .02680, .00769, + .00412, .02076, .03640, + .44308, .18350, .22477, .02602, .00759, + .00416, .02018, .03517, + .43443, .17926, .21368, .02532, .00749, + .00419, .01964, .03405, + .42639, .17536, .20383, .02467, .00739, + .00421, .01913, .03304, + .41846, .17153, .19451, .02404, .00728, + .00422, .01863, .03205, + .41082, .16788, .18587, .02343, .00717, + .00422, .01815, .03111, + .40365, .16445, .17807, .02286, .00707, + .00421, .01772, .03023, + .39701, .16128, .17106, .02233, .00697, + .00420, .01732, .02943 / DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/ + .39037, .15816, .16435, .02182, .00686, + .00418, .01692, .02864, + .38392, .15515, .15804, .02134, .00676, + .00416, .01653, .02788, + .37788, .15232, .15230, .02087, .00666, + .00414, .01617, .02719, + .37223, .14966, .14709, .02042, .00656, + .00412, .01584, .02656, + .36666, .14704, .14204, .01998, .00647, + .00409, .01551, .02594 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/ + .73641, .34135, .81852, .04085, .00000, + .00000, .02856, .06959, + .72238, .33190, .77927, .04016, .00000, + .00000, .02836, .06705, + .70189, .31864, .72153, .03907, .00016, + .00000, .02790, .06349, + .68715, .30940, .67873, .03822, .00130, + .00000, .02749, .06103, + .67185, .30008, .63598, .03729, .00227, + .00000, .02700, .05856, + .65883, .29232, .60109, .03647, .00291, + .00000, .02652, .05653, + .64652, .28513, .56938, .03568, .00343, + .00000, .02605, .05465, + .63369, .27776, .53762, .03484, .00391, + .00000, .02553, .05273 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/ + .62274, .27156, .51156, .03412, .00427, + .00000, .02508, .05113, + .61231, .26574, .48765, .03343, .00457, + .00000, .02462, .04964, + .60413, .26121, .46950, .03287, .00477, + .00000, .02426, .04850, + .58706, .25192, .43288, .03171, .00512, + .00001, .02348, .04616, + .57271, .24423, .40292, .03073, .00536, + .00039, .02281, .04423, + .55703, .23595, .37154, .02964, .00555, + .00098, .02206, .04220, + .54112, .22768, .34195, .02855, .00569, + .00141, .02128, .04019, + .52709, .22048, .31750, .02758, .00577, + .00173, .02059, .03845 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/ + .51330, .21350, .29495, .02662, .00581, + .00201, .01991, .03678, + .50210, .20789, .27766, .02585, .00583, + .00219, .01935, .03546, + .48883, .20132, .25831, .02494, .00581, + .00238, .01868, .03393, + .47738, .19571, .24255, .02417, .00579, + .00251, .01811, .03265, + .46717, .19074, .22915, .02348, .00575, + .00262, .01759, .03152, + .45453, .18461, .21340, .02258, .00569, + .00272, .01698, .03014, + .44286, .17908, .19980, .02183, .00561, + .00279, .01639, .02891, + .43224, .17406, .18803, .02113, .00554, + .00285, .01586, .02781 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/ + .42197, .16920, .17711, .02043, .00546, + .00289, .01538, .02677, + .41206, .16458, .16718, .01978, .00537, + .00291, .01489, .02576, + .40294, .16036, .15841, .01919, .00528, + .00293, .01444, .02486, + .39451, .15648, .15067, .01866, .00520, + .00293, .01403, .02405, + .38622, .15268, .14337, .01813, .00511, + .00293, .01363, .02326, + .37827, .14906, .13661, .01761, .00502, + .00293, .01326, .02252, + .37082, .14569, .13056, .01714, .00494, + .00292, .01290, .02183, + .36394, .14260, .12513, .01671, .00486, + .00290, .01257, .02119 / DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/ + .35710, .13954, .11995, .01629, .00477, + .00289, .01225, .02059, + .35048, .13659, .11509, .01589, .00469, + .00287, .01194, .02001, + .34428, .13384, .11069, .01551, .00462, + .00285, .01166, .01948, + .33850, .13127, .10671, .01516, .00454, + .00282, .01139, .01898, + .33280, .12875, .10286, .01481, .00447, + .00280, .01113, .01850 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/ + .74190, .33102, .70729, .03467, .00000, + .00000, .02351, .05628, + .72432, .32048, .66683, .03390, .00000, + .00000, .02316, .05390, + .69916, .30579, .60957, .03272, .00013, + .00000, .02258, .05062, + .68135, .29569, .56864, .03186, .00100, + .00000, .02211, .04835, + .66316, .28554, .52849, .03092, .00173, + .00000, .02157, .04615, + .64787, .27715, .49624, .03009, .00221, + .00000, .02109, .04435, + .63354, .26943, .46726, .02932, .00260, + .00000, .02062, .04270, + .61874, .26155, .43854, .02851, .00296, + .00000, .02012, .04101 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/ + .60620, .25496, .41520, .02782, .00322, + .00000, .01969, .03962, + .59434, .24879, .39395, .02716, .00343, + .00000, .01926, .03834, + .58509, .24404, .37795, .02664, .00357, + .00000, .01892, .03735, + .56597, .23429, .34596, .02556, .00382, + .00001, .01822, .03534, + .55003, .22627, .32012, .02465, .00398, + .00028, .01762, .03373, + .53270, .21773, .29330, .02368, .00411, + .00071, .01694, .03200, + .51529, .20927, .26825, .02270, .00419, + .00103, .01627, .03032, + .50006, .20191, .24776, .02183, .00423, + .00126, .01568, .02889 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/ + .48518, .19481, .22896, .02100, .00425, + .00145, .01510, .02751, + .47320, .18916, .21465, .02031, .00425, + .00158, .01462, .02644, + .45907, .18253, .19871, .01951, .00422, + .00171, .01406, .02519, + .44697, .17690, .18581, .01883, .00419, + .00180, .01357, .02416, + .43621, .17194, .17488, .01822, .00415, + .00187, .01314, .02326, + .42290, .16587, .16213, .01751, .00409, + .00194, .01263, .02213, + .41077, .16040, .15118, .01685, .00403, + .00199, .01216, .02114, + .39977, .15546, .14176, .01626, .00396, + .00202, .01174, .02026 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/ + .38912, .15070, .13307, .01568, .00389, + .00204, .01134, .01944, + .37892, .14619, .12519, .01514, .00382, + .00205, .01094, .01866, + .36958, .14208, .11827, .01464, .00375, + .00206, .01058, .01796, + .36100, .13831, .11217, .01419, .00368, + .00206, .01026, .01732, + .35258, .13464, .10645, .01374, .00361, + .00205, .00994, .01672, + .34453, .13114, .10117, .01332, .00354, + .00204, .00964, .01615, + .33701, .12791, .09646, .01293, .00347, + .00203, .00935, .01562, + .33008, .12496, .09226, .01258, .00341, + .00202, .00909, .01512 / DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/ + .32322, .12204, .08824, .01224, .00335, + .00200, .00884, .01465, + .31660, .11923, .08448, .01192, .00328, + .00199, .00861, .01420, + .31043, .11662, .08109, .01162, .00322, + .00197, .00839, .01379, + .30468, .11418, .07804, .01133, .00317, + .00195, .00818, .01341, + .29901, .11179, .07510, .01104, .00311, + .00193, .00798, .01304 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/ + .73701, .31733, .60675, .02970, .00000, + .00000, .01895, .04444, + .71639, .30588, .56757, .02884, .00000, + .00000, .01858, .04236, + .68723, .29012, .51331, .02759, .00010, + .00000, .01800, .03949, + .66691, .27933, .47544, .02667, .00077, + .00000, .01752, .03759, + .64630, .26861, .43872, .02573, .00133, + .00000, .01703, .03568, + .62911, .25983, .40955, .02494, .00169, + .00000, .01658, .03414, + .61315, .25177, .38356, .02419, .00198, + .00000, .01614, .03274, + .59676, .24358, .35802, .02341, .00225, + .00000, .01568, .03135 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/ + .58296, .23677, .33741, .02275, .00244, + .00000, .01529, .03020, + .57001, .23041, .31876, .02212, .00259, + .00000, .01491, .02913, + .55996, .22554, .30481, .02164, .00269, + .00000, .01462, .02830, + .53923, .21560, .27712, .02066, .00286, + .00001, .01401, .02665, + .52208, .20748, .25497, .01983, .00297, + .00021, .01349, .02532, + .50364, .19885, .23220, .01894, .00305, + .00053, .01292, .02392, + .48521, .19034, .21109, .01806, .00310, + .00076, .01235, .02256, + .46917, .18300, .19393, .01730, .00312, + .00092, .01183, .02142 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/ + .45360, .17597, .17828, .01657, .00312, + .00106, .01135, .02031, + .44116, .17035, .16645, .01597, .00311, + .00115, .01095, .01945, + .42650, .16385, .15336, .01528, .00308, + .00124, .01051, .01847, + .41401, .15835, .14283, .01470, .00304, + .00130, .01012, .01764, + .40298, .15351, .13396, .01419, .00301, + .00135, .00976, .01692, + .38938, .14762, .12366, .01357, .00295, + .00139, .00935, .01606, + .37707, .14229, .11484, .01301, .00290, + .00142, .00897, .01530, + .36595, .13752, .10730, .01250, .00284, + .00144, .00862, .01462 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/ + .35521, .13299, .10037, .01203, .00279, + .00145, .00830, .01395, + .34498, .12866, .09412, .01158, .00273, + .00145, .00799, .01336, + .33564, .12473, .08866, .01117, .00267, + .00145, .00771, .01282, + .32708, .12115, .08388, .01079, .00261, + .00145, .00745, .01234, + .31872, .11767, .07938, .01043, .00256, + .00144, .00719, .01188, + .31073, .11437, .07524, .01009, .00250, + .00143, .00696, .01144, + .30333, .11131, .07157, .00977, .00245, + .00142, .00674, .01104, + .29653, .10852, .06830, .00947, .00240, + .00141, .00654, .01068 / DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/ + .28979, .10577, .06520, .00920, .00235, + .00140, .00635, .01032, + .28329, .10314, .06232, .00894, .00230, + .00138, .00617, .00999, + .27726, .10070, .05971, .00870, .00226, + .00137, .00599, .00968, + .27166, .09844, .05735, .00846, .00221, + .00135, .00583, .00939, + .26616, .09623, .05508, .00823, .00217, + .00134, .00567, .00911 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/ + .72380, .30026, .51888, .02496, .00000, + .00000, .01531, .03467, + .70048, .28825, .48211, .02411, .00000, + .00000, .01493, .03288, + .66789, .27183, .43188, .02291, .00008, + .00000, .01435, .03043, + .64538, .26072, .39735, .02204, .00059, + .00000, .01389, .02882, + .62280, .24969, .36424, .02115, .00102, + .00000, .01342, .02724, + .60411, .24069, .33814, .02038, .00129, + .00000, .01300, .02599, + .58685, .23250, .31509, .01969, .00150, + .00000, .01262, .02482, + .56921, .22424, .29254, .01900, .00170, + .00000, .01221, .02365 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/ + .55443, .21739, .27445, .01842, .00183, + .00000, .01186, .02269, + .54063, .21102, .25819, .01786, .00194, + .00000, .01153, .02183, + .53000, .20611, .24608, .01742, .00201, + .00000, .01127, .02118, + .50819, .19619, .22221, .01653, .00213, + .00001, .01074, .01985, + .49022, .18817, .20328, .01581, .00221, + .00016, .01030, .01876, + .47104, .17964, .18399, .01502, .00226, + .00039, .00982, .01765, + .45204, .17127, .16623, .01424, .00228, + .00055, .00933, .01660, + .43556, .16412, .15190, .01358, .00229, + .00067, .00891, .01569 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/ + .41962, .15728, .13894, .01297, .00228, + .00077, .00852, .01480, + .40695, .15183, .12920, .01245, .00226, + .00083, .00820, .01416, + .39210, .14559, .11847, .01188, .00223, + .00089, .00783, .01337, + .37950, .14031, .10988, .01141, .00220, + .00093, .00751, .01272, + .36841, .13567, .10267, .01099, .00217, + .00096, .00722, .01217, + .35489, .13002, .09437, .01043, .00212, + .00099, .00689, .01152, + .34261, .12498, .08730, .00997, .00208, + .00101, .00658, .01094, + .33157, .12047, .08127, .00956, .00203, + .00102, .00631, .01043 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/ + .32098, .11616, .07575, .00916, .00199, + .00102, .00605, .00993, + .31090, .11211, .07082, .00880, .00194, + .00102, .00581, .00948, + .30175, .10844, .06651, .00847, .00189, + .00102, .00560, .00906, + .29342, .10508, .06275, .00816, .00185, + .00102, .00541, .00869, + .28527, .10184, .05924, .00787, .00181, + .00101, .00521, .00834, + .27751, .09878, .05604, .00760, .00176, + .00100, .00502, .00801, + .27033, .09595, .05318, .00734, .00172, + .00099, .00484, .00771, + .26375, .09337, .05063, .00711, .00169, + .00098, .00469, .00744 / DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/ + .25727, .09084, .04823, .00688, .00165, + .00097, .00454, .00718, + .25106, .08841, .04601, .00667, .00161, + .00096, .00440, .00694, + .24528, .08616, .04400, .00647, .00158, + .00095, .00427, .00671, + .23992, .08409, .04219, .00629, .00154, + .00093, .00415, .00651, + .23466, .08206, .04046, .00611, .00151, + .00092, .00404, .00630 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/ + .70264, .28125, .44415, .02097, .00000, + .00000, .01217, .02646, + .67714, .26894, .40999, .02014, .00000, + .00000, .01181, .02498, + .64187, .25218, .36395, .01896, .00007, + .00000, .01125, .02301, + .61775, .24088, .33269, .01813, .00045, + .00000, .01086, .02171, + .59367, .22980, .30292, .01730, .00078, + .00000, .01044, .02043, + .57386, .22080, .27963, .01661, .00098, + .00000, .01008, .01941, + .55568, .21263, .25919, .01599, .00114, + .00000, .00973, .01848, + .53724, .20440, .23932, .01535, .00128, + .00000, .00938, .01755 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/ + .52186, .19761, .22346, .01481, .00138, + .00000, .00909, .01680, + .50753, .19133, .20932, .01432, .00146, + .00000, .00882, .01611, + .49651, .18655, .19883, .01394, .00150, + .00000, .00860, .01558, + .47407, .17686, .17828, .01315, .00159, + .00001, .00816, .01454, + .45572, .16900, .16213, .01251, .00163, + .00011, .00778, .01372, + .43616, .16075, .14582, .01184, .00166, + .00028, .00736, .01287, + .41692, .15270, .13094, .01117, .00167, + .00040, .00697, .01204, + .40036, .14582, .11901, .01061, .00167, + .00049, .00665, .01132 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/ + .38443, .13928, .10827, .01008, .00166, + .00055, .00633, .01064, + .37178, .13413, .10026, .00965, .00164, + .00060, .00606, .01014, + .35706, .12818, .09147, .00917, .00162, + .00064, .00577, .00954, + .34462, .12317, .08449, .00876, .00159, + .00067, .00552, .00907, + .33371, .11879, .07866, .00839, .00156, + .00069, .00530, .00867, + .32037, .11353, .07197, .00798, .00152, + .00070, .00503, .00814, + .30839, .10882, .06632, .00760, .00149, + .00071, .00479, .00770, + .29766, .10461, .06152, .00726, .00145, + .00072, .00458, .00732 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/ + .28740, .10062, .05714, .00694, .00141, + .00072, .00439, .00694, + .27768, .09685, .05325, .00663, .00137, + .00072, .00419, .00662, + .26886, .09345, .04986, .00636, .00134, + .00072, .00401, .00633, + .26082, .09037, .04692, .00613, .00131, + .00071, .00386, .00605, + .25303, .08739, .04418, .00589, .00127, + .00071, .00372, .00580, + .24564, .08457, .04168, .00565, .00124, + .00070, .00358, .00556, + .23880, .08199, .03947, .00546, .00121, + .00069, .00345, .00534, + .23254, .07964, .03752, .00529, .00118, + .00068, .00334, .00514 / DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/ + .22640, .07733, .03567, .00511, .00115, + .00067, .00322, .00495, + .22053, .07513, .03395, .00492, .00113, + .00066, .00311, .00478, + .21508, .07310, .03242, .00476, .00110, + .00065, .00301, .00462, + .21003, .07123, .03104, .00463, .00108, + .00065, .00293, .00445, + .20508, .06940, .02971, .00449, .00105, + .00064, .00284, .00430 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/ + .67498, .26065, .38118, .01735, .00000, + .00000, .00959, .01988, + .64782, .24824, .34951, .01656, .00000, + .00000, .00926, .01870, + .61051, .23152, .30721, .01549, .00005, + .00000, .00878, .01710, + .58522, .22031, .27887, .01472, .00034, + .00000, .00842, .01608, + .56013, .20934, .25211, .01399, .00059, + .00000, .00805, .01508, + .53964, .20047, .23132, .01336, .00074, + .00000, .00772, .01430, + .52090, .19248, .21321, .01279, .00085, + .00000, .00744, .01357, + .50198, .18447, .19571, .01222, .00096, + .00000, .00716, .01283 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/ + .48629, .17788, .18185, .01175, .00103, + .00000, .00691, .01224, + .47172, .17179, .16957, .01131, .00108, + .00000, .00668, .01173, + .46056, .16715, .16049, .01098, .00111, + .00000, .00650, .01133, + .43789, .15783, .14283, .01032, .00117, + .00000, .00613, .01051, + .41945, .15034, .12910, .00979, .00120, + .00008, .00582, .00987, + .39994, .14248, .11535, .00922, .00121, + .00020, .00550, .00921, + .38081, .13483, .10290, .00867, .00122, + .00029, .00518, .00859, + .36442, .12833, .09300, .00820, .00121, + .00035, .00492, .00806 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/ + .34876, .12217, .08415, .00775, .00120, + .00040, .00465, .00757, + .33639, .11732, .07759, .00739, .00118, + .00043, .00445, .00719, + .32200, .11178, .07043, .00701, .00116, + .00045, .00421, .00672, + .30992, .10713, .06478, .00668, .00114, + .00047, .00402, .00636, + .29937, .10308, .06009, .00638, .00111, + .00049, .00384, .00607, + .28649, .09820, .05473, .00604, .00108, + .00050, .00363, .00569, + .27499, .09385, .05023, .00572, .00105, + .00050, .00345, .00536, + .26473, .08998, .04643, .00544, .00103, + .00051, .00329, .00508 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/ + .25493, .08631, .04298, .00518, .00100, + .00051, .00314, .00482, + .24568, .08288, .03992, .00495, .00097, + .00050, .00299, .00457, + .23732, .07979, .03727, .00474, .00094, + .00050, .00287, .00435, + .22974, .07699, .03498, .00453, .00092, + .00049, .00276, .00416, + .22237, .07430, .03286, .00436, .00089, + .00049, .00265, .00398, + .21538, .07175, .03093, .00420, .00087, + .00048, .00254, .00381, + .20897, .06943, .02923, .00404, .00085, + .00048, .00245, .00366, + .20313, .06732, .02773, .00388, .00082, + .00047, .00236, .00351 / DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/ + .19741, .06525, .02631, .00374, .00080, + .00046, .00227, .00337, + .19194, .06328, .02499, .00361, .00078, + .00046, .00218, .00324, + .18688, .06147, .02382, .00349, .00076, + .00045, .00211, .00312, + .18220, .05979, .02277, .00337, .00075, + .00044, .00204, .00302, + .17763, .05815, .02177, .00326, .00073, + .00044, .00197, .00291 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/ + .64178, .23914, .32787, .01413, .00000, + .00000, .00748, .01469, + .61346, .22687, .29837, .01341, .00000, + .00000, .00718, .01378, + .57486, .21042, .25945, .01243, .00004, + .00000, .00676, .01255, + .54888, .19946, .23373, .01176, .00026, + .00000, .00646, .01176, + .52321, .18884, .20965, .01113, .00044, + .00000, .00615, .01095, + .50245, .18024, .19113, .01056, .00055, + .00000, .00590, .01035, + .48350, .17254, .17508, .01009, .00063, + .00000, .00565, .00980, + .46441, .16486, .15973, .00961, .00071, + .00000, .00540, .00925 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/ + .44866, .15856, .14765, .00920, .00076, + .00000, .00520, .00880, + .43413, .15274, .13696, .00882, .00079, + .00000, .00502, .00840, + .42303, .14833, .12914, .00854, .00082, + .00000, .00486, .00811, + .40058, .13949, .11403, .00797, .00085, + .00000, .00457, .00750, + .38238, .13241, .10241, .00754, .00087, + .00006, .00434, .00699, + .36322, .12502, .09088, .00708, .00088, + .00014, .00406, .00651, + .34456, .11788, .08052, .00660, .00088, + .00020, .00381, .00605, + .32863, .11184, .07234, .00621, .00087, + .00025, .00360, .00565 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/ + .31344, .10613, .06507, .00586, .00086, + .00028, .00340, .00528, + .30150, .10165, .05974, .00555, .00084, + .00030, .00324, .00503, + .28769, .09654, .05398, .00525, .00082, + .00032, .00305, .00469, + .27612, .09228, .04943, .00499, .00080, + .00033, .00290, .00442, + .26604, .08857, .04567, .00475, .00079, + .00034, .00277, .00420, + .25384, .08411, .04141, .00447, .00076, + .00035, .00261, .00393, + .24295, .08016, .03786, .00422, .00074, + .00036, .00247, .00369, + .23325, .07666, .03487, .00401, .00072, + .00036, .00234, .00349 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/ + .22401, .07334, .03217, .00381, .00070, + .00036, .00223, .00330, + .21534, .07027, .02979, .00363, .00068, + .00036, .00212, .00312, + .20752, .06750, .02773, .00346, .00066, + .00036, .00203, .00296, + .20046, .06499, .02596, .00330, .00064, + .00036, .00194, .00283, + .19363, .06258, .02432, .00315, .00062, + .00035, .00185, .00270, + .18717, .06031, .02283, .00302, .00060, + .00035, .00177, .00257, + .18124, .05825, .02153, .00290, .00059, + .00034, .00170, .00246, + .17583, .05637, .02039, .00280, .00057, + .00034, .00164, .00236 / DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/ + .17054, .05454, .01931, .00270, .00056, + .00033, .00158, .00226, + .16551, .05280, .01831, .00261, .00054, + .00033, .00152, .00218, + .16086, .05120, .01742, .00252, .00053, + .00032, .00147, .00209, + .15657, .04973, .01663, .00244, .00052, + .00032, .00142, .00201, + .15239, .04830, .01587, .00236, .00050, + .00032, .00137, .00193 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/ + .60405, .21735, .28249, .01145, .00000, + .00000, .00569, .01059, + .57510, .20540, .25489, .01080, .00000, + .00000, .00545, .00991, + .53590, .18949, .21898, .00993, .00003, + .00000, .00510, .00897, + .50972, .17894, .19564, .00932, .00019, + .00000, .00485, .00839, + .48398, .16877, .17398, .00877, .00032, + .00000, .00458, .00781, + .46321, .16058, .15749, .00830, .00040, + .00000, .00437, .00736, + .44439, .15326, .14333, .00789, .00046, + .00000, .00418, .00693, + .42552, .14597, .12989, .00747, .00052, + .00000, .00399, .00653 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/ + .40999, .14001, .11939, .00713, .00055, + .00000, .00383, .00622, + .39570, .13458, .11018, .00683, .00058, + .00000, .00368, .00590, + .38482, .13045, .10346, .00659, .00059, + .00000, .00356, .00567, + .36288, .12219, .09060, .00613, .00061, + .00000, .00332, .00522, + .34522, .11562, .08082, .00577, .00062, + .00004, .00313, .00486, + .32672, .10877, .07121, .00538, .00063, + .00010, .00294, .00450, + .30877, .10217, .06267, .00500, .00062, + .00014, .00274, .00417, + .29350, .09660, .05597, .00469, .00062, + .00017, .00257, .00390 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/ + .27907, .09138, .05006, .00437, .00060, + .00019, .00242, .00365, + .26767, .08732, .04575, .00417, .00059, + .00021, .00230, .00342, + .25464, .08266, .04111, .00392, .00058, + .00022, .00217, .00317, + .24372, .07880, .03749, .00371, .00056, + .00023, .00205, .00299, + .23421, .07545, .03452, .00353, .00055, + .00024, .00195, .00285, + .22281, .07143, .03116, .00329, .00053, + .00024, .00183, .00266, + .21263, .06788, .02837, .00310, .00052, + .00024, .00173, .00250, + .20361, .06476, .02604, .00294, .00050, + .00024, .00164, .00235 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/ + .19505, .06182, .02395, .00278, .00049, + .00024, .00155, .00220, + .18702, .05907, .02211, .00265, .00047, + .00024, .00147, .00208, + .17981, .05660, .02053, .00252, .00046, + .00024, .00140, .00198, + .17332, .05437, .01917, .00240, .00045, + .00024, .00134, .00189, + .16706, .05225, .01792, .00229, .00043, + .00024, .00128, .00180, + .16116, .05026, .01678, .00219, .00042, + .00024, .00122, .00171, + .15575, .04844, .01579, .00210, .00041, + .00024, .00117, .00163, + .15083, .04679, .01492, .00202, .00040, + .00024, .00113, .00156 / DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/ + .14602, .04519, .01411, .00194, .00039, + .00024, .00109, .00149, + .14145, .04368, .01336, .00187, .00038, + .00024, .00104, .00142, + .13724, .04229, .01269, .00180, .00037, + .00024, .00100, .00137, + .13338, .04101, .01210, .00173, .00037, + .00024, .00096, .00132, + .12962, .03976, .01153, .00166, .00036, + .00024, .00092, .00127 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/ + .56296, .19552, .24292, .00906, .00000, + .00000, .00429, .00753, + .53386, .18409, .21715, .00851, .00000, + .00000, .00407, .00701, + .49473, .16892, .18412, .00776, .00002, + .00000, .00377, .00634, + .46867, .15897, .16300, .00728, .00014, + .00000, .00357, .00587, + .44330, .14935, .14361, .00680, .00023, + .00000, .00337, .00545, + .42285, .14169, .12905, .00643, .00029, + .00000, .00319, .00512, + .40445, .13482, .11662, .00608, .00033, + .00000, .00305, .00480, + .38610, .12801, .10494, .00573, .00037, + .00000, .00290, .00450 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/ + .37103, .12247, .09591, .00546, .00039, + .00000, .00276, .00426, + .35718, .11742, .08802, .00522, .00041, + .00000, .00264, .00405, + .34668, .11362, .08230, .00503, .00042, + .00000, .00255, .00389, + .32560, .10602, .07145, .00465, .00044, + .00000, .00237, .00357, + .30870, .09998, .06331, .00435, .00045, + .00003, .00222, .00332, + .29106, .09372, .05538, .00405, .00045, + .00007, .00208, .00306, + .27401, .08772, .04838, .00376, .00045, + .00010, .00193, .00280, + .25962, .08268, .04295, .00352, .00044, + .00012, .00180, .00261 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/ + .24604, .07795, .03821, .00328, .00043, + .00013, .00168, .00244, + .23541, .07428, .03476, .00309, .00042, + .00014, .00159, .00230, + .22322, .07011, .03108, .00290, .00041, + .00015, .00150, .00213, + .21307, .06665, .02822, .00274, .00040, + .00015, .00141, .00200, + .20427, .06367, .02589, .00259, .00040, + .00015, .00134, .00188, + .19371, .06009, .02327, .00242, .00038, + .00015, .00125, .00175, + .18431, .05696, .02111, .00229, .00037, + .00015, .00117, .00163, + .17604, .05421, .01931, .00216, .00036, + .00015, .00111, .00153 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/ + .16825, .05161, .01771, .00201, .00035, + .00015, .00105, .00145, + .16093, .04920, .01629, .00191, .00035, + .00015, .00099, .00136, + .15436, .04704, .01509, .00182, .00034, + .00015, .00094, .00129, + .14844, .04511, .01405, .00173, .00033, + .00015, .00089, .00122, + .14276, .04325, .01311, .00165, .00032, + .00015, .00085, .00116, + .13743, .04151, .01225, .00158, .00032, + .00015, .00081, .00110, + .13256, .03993, .01151, .00150, .00031, + .00015, .00078, .00105, + .12816, .03850, .01086, .00143, .00030, + .00015, .00075, .00100 / DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/ + .12385, .03711, .01025, .00138, .00030, + .00015, .00072, .00096, + .11976, .03580, .00969, .00132, .00029, + .00015, .00069, .00092, + .11600, .03460, .00919, .00128, .00029, + .00015, .00066, .00088, + .11254, .03350, .00875, .00123, .00028, + .00015, .00063, .00085, + .10918, .03244, .00833, .00119, .00028, + .00015, .00060, .00082 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/ + .51944, .17402, .20772, .00697, .00000, + .00000, .00320, .00529, + .49063, .16323, .18375, .00651, .00000, + .00000, .00304, .00490, + .45208, .14898, .15351, .00592, .00002, + .00000, .00279, .00440, + .42666, .13967, .13456, .00551, .00010, + .00000, .00263, .00407, + .40198, .13070, .11741, .00508, .00016, + .00000, .00247, .00378, + .38218, .12360, .10463, .00481, .00020, + .00000, .00233, .00353, + .36442, .11726, .09385, .00453, .00023, + .00000, .00220, .00331, + .34678, .11100, .08383, .00425, .00026, + .00000, .00209, .00310 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/ + .33237, .10591, .07613, .00403, .00027, + .00000, .00199, .00293, + .31914, .10128, .06945, .00384, .00029, + .00000, .00190, .00277, + .30915, .09781, .06466, .00370, .00029, + .00000, .00183, .00265, + .28918, .09090, .05565, .00339, .00031, + .00000, .00170, .00243, + .27324, .08542, .04896, .00314, .00031, + .00002, .00158, .00227, + .25668, .07978, .04251, .00289, .00031, + .00005, .00147, .00208, + .24074, .07439, .03687, .00266, .00031, + .00007, .00137, .00191, + .22732, .06988, .03253, .00248, .00031, + .00008, .00128, .00177 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/ + .21469, .06567, .02877, .00231, .00031, + .00009, .00118, .00164, + .20485, .06241, .02606, .00217, .00031, + .00009, .00112, .00154, + .19364, .05872, .02318, .00201, .00031, + .00009, .00104, .00143, + .18432, .05567, .02096, .00190, .00030, + .00009, .00098, .00134, + .17624, .05306, .01916, .00182, .00030, + .00009, .00093, .00126, + .16663, .04992, .01715, .00166, .00030, + .00009, .00087, .00117, + .15811, .04719, .01550, .00156, .00029, + .00009, .00081, .00109, + .15059, .04478, .01413, .00147, .00029, + .00009, .00076, .00102 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/ + .14351, .04252, .01291, .00140, .00028, + .00009, .00072, .00096, + .13696, .04042, .01185, .00131, .00027, + .00009, .00068, .00090, + .13108, .03856, .01095, .00123, .00026, + .00009, .00065, .00085, + .12578, .03689, .01017, .00118, .00026, + .00009, .00062, .00081, + .12070, .03530, .00947, .00112, .00025, + .00009, .00059, .00076, + .11593, .03382, .00883, .00106, .00025, + .00009, .00055, .00071, + .11161, .03247, .00828, .00100, .00025, + .00009, .00053, .00068, + .10770, .03124, .00780, .00095, .00024, + .00009, .00050, .00065 / DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/ + .10390, .03007, .00735, .00091, .00024, + .00009, .00048, .00062, + .10028, .02896, .00694, .00088, .00023, + .00009, .00047, .00059, + .09696, .02794, .00657, .00085, .00023, + .00009, .00045, .00057, + .09393, .02700, .00625, .00081, .00023, + .00009, .00043, .00055, + .09097, .02609, .00594, .00078, .00023, + .00009, .00042, .00053 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/ + .47440, .15332, .17599, .00529, .00000, + .00000, .00236, .00362, + .44630, .14323, .15390, .00489, .00000, + .00000, .00223, .00336, + .40894, .12997, .12660, .00441, .00001, + .00000, .00203, .00300, + .38442, .12138, .10979, .00406, .00007, + .00000, .00190, .00279, + .36080, .11315, .09483, .00371, .00011, + .00000, .00178, .00259, + .34190, .10663, .08379, .00347, .00014, + .00000, .00168, .00241, + .32501, .10085, .07458, .00325, .00016, + .00000, .00160, .00226, + .30827, .09517, .06609, .00303, .00017, + .00000, .00150, .00212 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/ + .29464, .09059, .05964, .00285, .00019, + .00000, .00142, .00200, + .28221, .08640, .05411, .00270, .00019, + .00000, .00137, .00189, + .27282, .08327, .05016, .00259, .00020, + .00000, .00132, .00181, + .25414, .07707, .04278, .00237, .00020, + .00000, .00122, .00164, + .23932, .07217, .03736, .00218, .00020, + .00001, .00113, .00153, + .22394, .06716, .03220, .00201, .00020, + .00003, .00103, .00140, + .20921, .06239, .02772, .00185, .00020, + .00004, .00096, .00127, + .19687, .05842, .02431, .00172, .00020, + .00005, .00090, .00117 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/ + .18531, .05471, .02138, .00159, .00020, + .00005, .00083, .00110, + .17634, .05186, .01928, .00150, .00020, + .00005, .00078, .00103, + .16614, .04864, .01707, .00139, .00020, + .00005, .00073, .00095, + .15772, .04598, .01538, .00130, .00020, + .00005, .00068, .00088, + .15046, .04369, .01400, .00122, .00020, + .00005, .00065, .00083, + .14176, .04099, .01248, .00112, .00020, + .00005, .00060, .00077, + .13412, .03863, .01125, .00105, .00020, + .00005, .00057, .00072, + .12741, .03656, .01022, .00098, .00020, + .00005, .00053, .00068 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/ + .12111, .03462, .00932, .00091, .00020, + .00005, .00050, .00064, + .11526, .03284, .00853, .00086, .00020, + .00005, .00046, .00059, + .11003, .03126, .00786, .00081, .00020, + .00005, .00043, .00056, + .10536, .02984, .00729, .00077, .00020, + .00005, .00042, .00053, + .10088, .02849, .00677, .00073, .00020, + .00005, .00040, .00050, + .09668, .02723, .00631, .00071, .00020, + .00005, .00037, .00047, + .09289, .02609, .00590, .00067, .00020, + .00005, .00036, .00044, + .08947, .02506, .00555, .00063, .00020, + .00005, .00035, .00042 / DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/ + .08615, .02407, .00522, .00060, .00020, + .00005, .00033, .00040, + .08301, .02314, .00492, .00057, .00020, + .00005, .00031, .00039, + .08012, .02228, .00465, .00054, .00020, + .00005, .00030, .00037, + .07748, .02150, .00442, .00052, .00020, + .00005, .00029, .00036, + .07492, .02075, .00419, .00050, .00020, + .00005, .00028, .00034 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/ + .42873, .13379, .14742, .00404, .00000, + .00000, .00161, .00239, + .40176, .12452, .12745, .00371, .00000, + .00000, .00151, .00221, + .36610, .11239, .10324, .00332, .00001, + .00000, .00137, .00196, + .34282, .10456, .08860, .00305, .00004, + .00000, .00128, .00181, + .32048, .09710, .07571, .00279, .00007, + .00000, .00119, .00165, + .30267, .09124, .06636, .00262, .00009, + .00000, .00112, .00154, + .28686, .08605, .05864, .00244, .00010, + .00000, .00106, .00142, + .27123, .08096, .05158, .00227, .00011, + .00000, .00099, .00132 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/ + .25852, .07685, .04626, .00215, .00012, + .00000, .00093, .00125, + .24700, .07313, .04173, .00205, .00012, + .00000, .00089, .00117, + .23834, .07034, .03851, .00194, .00013, + .00000, .00085, .00112, + .22112, .06484, .03257, .00175, .00013, + .00000, .00077, .00102, + .20748, .06053, .02825, .00162, .00013, + .00001, .00071, .00094, + .19346, .05611, .02417, .00147, .00013, + .00002, .00065, .00087, + .18008, .05194, .02068, .00135, .00013, + .00002, .00060, .00078, + .16889, .04848, .01803, .00126, .00013, + .00002, .00056, .00072 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/ + .15848, .04526, .01578, .00115, .00013, + .00002, .00052, .00067, + .15041, .04280, .01417, .00108, .00013, + .00002, .00049, .00061, + .14125, .04001, .01249, .00100, .00013, + .00002, .00045, .00056, + .13369, .03773, .01122, .00094, .00013, + .00002, .00042, .00053, + .12720, .03578, .01018, .00089, .00013, + .00002, .00040, .00050, + .11951, .03346, .00904, .00082, .00013, + .00002, .00037, .00046, + .11274, .03144, .00812, .00077, .00013, + .00002, .00034, .00042, + .10681, .02969, .00736, .00072, .00013, + .00002, .00032, .00039 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/ + .10126, .02805, .00669, .00068, .00013, + .00002, .00030, .00036, + .09613, .02653, .00611, .00063, .00013, + .00002, .00028, .00035, + .09156, .02519, .00562, .00060, .00013, + .00002, .00026, .00033, + .08748, .02399, .00521, .00057, .00013, + .00002, .00025, .00031, + .08360, .02286, .00483, .00054, .00013, + .00002, .00023, .00029, + .07997, .02181, .00449, .00050, .00013, + .00002, .00022, .00027, + .07667, .02086, .00419, .00048, .00013, + .00002, .00021, .00025, + .07370, .02000, .00394, .00046, .00013, + .00002, .00020, .00024 / DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/ + .07083, .01917, .00370, .00043, .00013, + .00002, .00019, .00023, + .06814, .01839, .00348, .00041, .00013, + .00002, .00018, .00022, + .06566, .01768, .00329, .00038, .00013, + .00002, .00017, .00022, + .06339, .01704, .00312, .00037, .00013, + .00002, .00016, .00021, + .06120, .01642, .00296, .00036, .00013, + .00002, .00015, .00020 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/ + .38312, .11506, .12110, .00282, .00000, + .00000, .00119, .00163, + .35755, .10667, .10347, .00258, .00000, + .00000, .00108, .00152, + .32393, .09577, .08245, .00231, .00001, + .00000, .00098, .00130, + .30211, .08876, .07004, .00210, .00003, + .00000, .00090, .00120, + .28127, .08211, .05921, .00191, .00005, + .00000, .00083, .00110, + .26480, .07689, .05145, .00177, .00006, + .00000, .00078, .00101, + .25013, .07230, .04512, .00167, .00006, + .00000, .00072, .00094, + .23572, .06781, .03939, .00155, .00007, + .00000, .00067, .00087 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/ + .22409, .06419, .03510, .00145, .00007, + .00000, .00063, .00082, + .21354, .06093, .03147, .00136, .00007, + .00000, .00060, .00076, + .20564, .05850, .02892, .00130, .00007, + .00000, .00057, .00072, + .18997, .05369, .02425, .00118, .00007, + .00000, .00052, .00067, + .17762, .04995, .02089, .00109, .00007, + .00000, .00048, .00061, + .16497, .04615, .01775, .00100, .00007, + .00000, .00045, .00053, + .15297, .04255, .01509, .00091, .00007, + .00000, .00041, .00050, + .14296, .03957, .01308, .00084, .00007, + .00000, .00037, .00047 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/ + .13366, .03683, .01139, .00077, .00007, + .00000, .00034, .00041, + .12648, .03472, .01020, .00072, .00007, + .00000, .00032, .00040, + .11842, .03235, .00895, .00066, .00007, + .00000, .00029, .00037, + .11179, .03042, .00800, .00061, .00007, + .00000, .00027, .00034, + .10610, .02877, .00725, .00057, .00007, + .00000, .00024, .00032, + .09933, .02683, .00641, .00054, .00007, + .00000, .00022, .00029, + .09345, .02513, .00574, .00049, .00007, + .00000, .00022, .00026, + .08830, .02366, .00519, .00045, .00007, + .00000, .00020, .00024 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/ + .08347, .02230, .00471, .00043, .00007, + .00000, .00019, .00023, + .07904, .02104, .00429, .00040, .00007, + .00000, .00018, .00022, + .07510, .01993, .00394, .00038, .00007, + .00000, .00016, .00020, + .07159, .01894, .00364, .00036, .00007, + .00000, .00015, .00019, + .06825, .01801, .00337, .00034, .00007, + .00000, .00015, .00018, + .06514, .01714, .00313, .00032, .00007, + .00000, .00014, .00017, + .06233, .01636, .00292, .00031, .00007, + .00000, .00013, .00016, + .05980, .01566, .00274, .00029, .00007, + .00000, .00013, .00015 / DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/ + .05736, .01498, .00257, .00028, .00007, + .00000, .00012, .00015, + .05506, .01435, .00242, .00026, .00007, + .00000, .00011, .00014, + .05297, .01377, .00228, .00025, .00007, + .00000, .00011, .00014, + .05105, .01325, .00216, .00025, .00007, + .00000, .00010, .00013, + .04920, .01275, .00205, .00024, .00007, + .00000, .00010, .00012 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/ + .33835, .09781, .09751, .00194, .00000, + .00000, .00084, .00107, + .31444, .09031, .08231, .00178, .00000, + .00000, .00077, .00097, + .28324, .08061, .06455, .00155, .00000, + .00000, .00067, .00085, + .26312, .07439, .05420, .00141, .00002, + .00000, .00062, .00079, + .24396, .06854, .04533, .00127, .00003, + .00000, .00058, .00071, + .22886, .06398, .03905, .00118, .00003, + .00000, .00053, .00066, + .21550, .05996, .03398, .00110, .00003, + .00000, .00049, .00061, + .20240, .05605, .02944, .00102, .00003, + .00000, .00046, .00056 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/ + .19184, .05292, .02607, .00096, .00003, + .00000, .00043, .00053, + .18232, .05010, .02325, .00090, .00003, + .00000, .00040, .00050, + .17522, .04799, .02127, .00085, .00003, + .00000, .00038, .00048, + .16119, .04387, .01769, .00075, .00003, + .00000, .00035, .00044, + .15017, .04067, .01514, .00069, .00003, + .00000, .00033, .00039, + .13891, .03742, .01277, .00064, .00003, + .00000, .00030, .00035, + .12828, .03437, .01079, .00057, .00003, + .00000, .00026, .00032, + .11947, .03186, .00931, .00052, .00003, + .00000, .00024, .00030 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/ + .11132, .02954, .00807, .00048, .00003, + .00000, .00023, .00027, + .10507, .02777, .00719, .00044, .00003, + .00000, .00021, .00025, + .09803, .02579, .00629, .00040, .00003, + .00000, .00019, .00023, + .09226, .02418, .00561, .00037, .00003, + .00000, .00017, .00021, + .08732, .02281, .00507, .00035, .00003, + .00000, .00016, .00020, + .08149, .02119, .00447, .00033, .00003, + .00000, .00016, .00018, + .07642, .01980, .00399, .00030, .00003, + .00000, .00015, .00016, + .07201, .01859, .00360, .00028, .00003, + .00000, .00014, .00015 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/ + .06788, .01747, .00326, .00027, .00003, + .00000, .00013, .00014, + .06410, .01644, .00296, .00025, .00003, + .00000, .00011, .00013, + .06076, .01554, .00272, .00023, .00003, + .00000, .00011, .00012, + .05779, .01473, .00251, .00021, .00003, + .00000, .00010, .00011, + .05497, .01397, .00232, .00020, .00003, + .00000, .00009, .00011, + .05236, .01327, .00215, .00018, .00003, + .00000, .00009, .00010, + .04998, .01264, .00200, .00018, .00003, + .00000, .00008, .00010, + .04784, .01207, .00187, .00017, .00003, + .00000, .00008, .00009 / DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/ + .04581, .01153, .00176, .00016, .00003, + .00000, .00007, .00008, + .04390, .01102, .00165, .00014, .00003, + .00000, .00007, .00008, + .04216, .01056, .00156, .00013, .00003, + .00000, .00007, .00008, + .04056, .01014, .00147, .00013, .00003, + .00000, .00006, .00008, + .03902, .00974, .00139, .00013, .00003, + .00000, .00006, .00007 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/ + .29518, .08218, .07680, .00139, .00000, + .00000, .00051, .00066, + .27321, .07556, .06407, .00125, .00000, + .00000, .00048, .00060, + .24468, .06705, .04942, .00107, .00000, + .00000, .00041, .00053, + .22636, .06165, .04107, .00098, .00001, + .00000, .00038, .00048, + .20897, .05658, .03399, .00088, .00001, + .00000, .00035, .00042, + .19536, .05263, .02905, .00082, .00001, + .00000, .00031, .00038, + .18339, .04917, .02510, .00075, .00001, + .00000, .00030, .00036, + .17169, .04581, .02158, .00070, .00001, + .00000, .00028, .00033 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/ + .16228, .04313, .01900, .00066, .00001, + .00000, .00026, .00031, + .15384, .04072, .01686, .00060, .00001, + .00000, .00025, .00028, + .14753, .03893, .01537, .00057, .00001, + .00000, .00024, .00027, + .13510, .03543, .01268, .00051, .00001, + .00000, .00020, .00026, + .12541, .03273, .01078, .00046, .00001, + .00000, .00018, .00024, + .11556, .03000, .00905, .00042, .00001, + .00000, .00017, .00021, + .10629, .02744, .00759, .00039, .00001, + .00000, .00015, .00018, + .09865, .02535, .00652, .00035, .00001, + .00000, .00014, .00016 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/ + .09159, .02343, .00563, .00033, .00001, + .00000, .00013, .00014, + .08620, .02196, .00501, .00029, .00001, + .00000, .00012, .00014, + .08014, .02033, .00436, .00027, .00001, + .00000, .00010, .00012, + .07519, .01901, .00388, .00025, .00001, + .00000, .00009, .00011, + .07098, .01789, .00350, .00024, .00001, + .00000, .00009, .00010, + .06602, .01656, .00308, .00022, .00001, + .00000, .00008, .00010, + .06172, .01543, .00274, .00020, .00001, + .00000, .00007, .00009, + .05799, .01444, .00247, .00019, .00001, + .00000, .00007, .00009 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/ + .05453, .01353, .00223, .00018, .00001, + .00000, .00006, .00008, + .05137, .01270, .00203, .00016, .00001, + .00000, .00006, .00007, + .04856, .01197, .00185, .00015, .00001, + .00000, .00005, .00007, + .04607, .01132, .00171, .00014, .00001, + .00000, .00005, .00007, + .04371, .01072, .00158, .00014, .00001, + .00000, .00005, .00006, + .04153, .01016, .00146, .00013, .00001, + .00000, .00005, .00005, + .03958, .00965, .00136, .00012, .00001, + .00000, .00004, .00005, + .03784, .00920, .00127, .00010, .00001, + .00000, .00004, .00005 / DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/ + .03615, .00877, .00119, .00010, .00001, + .00000, .00004, .00005, + .03456, .00837, .00112, .00010, .00001, + .00000, .00004, .00004, + .03312, .00800, .00105, .00010, .00001, + .00000, .00003, .00004, + .03181, .00767, .00100, .00009, .00001, + .00000, .00003, .00004, + .03055, .00736, .00094, .00009, .00001, + .00000, .00003, .00004 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/ + .25383, .06781, .05866, .00085, .00000, + .00000, .00038, .00045, + .23392, .06209, .04835, .00076, .00000, + .00000, .00034, .00040, + .20823, .05477, .03669, .00064, .00000, + .00000, .00028, .00035, + .19181, .05016, .03018, .00059, .00000, + .00000, .00027, .00030, + .17631, .04584, .02474, .00054, .00000, + .00000, .00024, .00027, + .16424, .04248, .02096, .00049, .00000, + .00000, .00022, .00026, + .15365, .03955, .01797, .00045, .00000, + .00000, .00021, .00024, + .14334, .03672, .01534, .00041, .00000, + .00000, .00018, .00022 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/ + .13510, .03447, .01343, .00038, .00000, + .00000, .00016, .00021, + .12768, .03246, .01185, .00036, .00000, + .00000, .00015, .00019, + .12217, .03097, .01076, .00033, .00000, + .00000, .00015, .00018, + .11138, .02807, .00881, .00030, .00000, + .00000, .00013, .00016, + .10301, .02583, .00745, .00027, .00000, + .00000, .00012, .00014, + .09453, .02356, .00622, .00024, .00000, + .00000, .00011, .00013, + .08656, .02147, .00519, .00022, .00000, + .00000, .00010, .00012, + .08002, .01976, .00444, .00020, .00000, + .00000, .00009, .00011 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/ + .07402, .01819, .00382, .00018, .00000, + .00000, .00008, .00010, + .06946, .01701, .00339, .00016, .00000, + .00000, .00007, .00009, + .06434, .01569, .00295, .00015, .00000, + .00000, .00007, .00008, + .06018, .01462, .00261, .00014, .00000, + .00000, .00006, .00007, + .05666, .01371, .00235, .00013, .00000, + .00000, .00006, .00006, + .05252, .01266, .00206, .00012, .00000, + .00000, .00005, .00006, + .04894, .01175, .00184, .00011, .00000, + .00000, .00005, .00006, + .04584, .01097, .00165, .00010, .00000, + .00000, .00004, .00005 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/ + .04297, .01025, .00149, .00010, .00000, + .00000, .00004, .00004, + .04036, .00959, .00135, .00009, .00000, + .00000, .00004, .00004, + .03806, .00902, .00123, .00008, .00000, + .00000, .00004, .00004, + .03603, .00851, .00114, .00007, .00000, + .00000, .00003, .00004, + .03410, .00804, .00105, .00007, .00000, + .00000, .00003, .00003, + .03232, .00759, .00097, .00007, .00000, + .00000, .00003, .00004, + .03073, .00720, .00090, .00006, .00000, + .00000, .00003, .00003, + .02931, .00685, .00084, .00006, .00000, + .00000, .00003, .00003 / DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/ + .02795, .00651, .00079, .00006, .00000, + .00000, .00003, .00003, + .02667, .00620, .00074, .00005, .00000, + .00000, .00002, .00003, + .02551, .00592, .00069, .00005, .00000, + .00000, .00002, .00002, + .02446, .00567, .00066, .00005, .00000, + .00000, .00002, .00002, + .02345, .00542, .00062, .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)/ + .17943, .04409, .03117, .00036, .00000, + .00000, .00013, .00015, + .16387, .04001, .02509, .00031, .00000, + .00000, .00011, .00013, + .14401, .03484, .01845, .00025, .00000, + .00000, .00009, .00013, + .13149, .03162, .01486, .00022, .00000, + .00000, .00009, .00010, + .11976, .02864, .01195, .00020, .00000, + .00000, .00008, .00009, + .11073, .02634, .00998, .00018, .00000, + .00000, .00007, .00009, + .10285, .02435, .00844, .00016, .00000, + .00000, .00006, .00009, + .09525, .02245, .00712, .00014, .00000, + .00000, .00005, .00008 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/ + .08921, .02094, .00616, .00013, .00000, + .00000, .00005, .00007, + .08383, .01961, .00539, .00012, .00000, + .00000, .00006, .00006, + .07985, .01862, .00486, .00011, .00000, + .00000, .00005, .00006, + .07210, .01671, .00394, .00010, .00000, + .00000, .00005, .00005, + .06614, .01526, .00330, .00009, .00000, + .00000, .00004, .00004, + .06016, .01381, .00273, .00008, .00000, + .00000, .00004, .00004, + .05461, .01247, .00226, .00008, .00000, + .00000, .00003, .00004, + .05010, .01139, .00192, .00007, .00000, + .00000, .00003, .00003 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/ + .04600, .01040, .00165, .00006, .00000, + .00000, .00003, .00003, + .04288, .00966, .00145, .00005, .00000, + .00000, .00002, .00003, + .03943, .00885, .00126, .00005, .00000, + .00000, .00002, .00002, + .03663, .00819, .00111, .00005, .00000, + .00000, .00002, .00002, + .03428, .00764, .00100, .00005, .00000, + .00000, .00002, .00002, + .03155, .00700, .00088, .00004, .00000, + .00000, .00002, .00002, + .02920, .00646, .00078, .00003, .00000, + .00000, .00002, .00002, + .02718, .00599, .00070, .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=25,32)/ + .02533, .00556, .00063, .00004, .00000, + .00000, .00001, .00001, + .02366, .00518, .00057, .00002, .00000, + .00000, .00001, .00001, + .02219, .00484, .00052, .00002, .00000, + .00000, .00001, .00001, + .02089, .00454, .00048, .00002, .00000, + .00000, .00001, .00001, + .01967, .00427, .00044, .00002, .00000, + .00000, .00001, .00001, + .01855, .00401, .00040, .00002, .00000, + .00000, .00001, .00001, + .01755, .00379, .00037, .00002, .00000, + .00000, .00001, .00001, + .01667, .00359, .00035, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/ + .01582, .00340, .00033, .00001, .00000, + .00000, .00001, .00001, + .01503, .00322, .00031, .00002, .00000, + .00000, .00001, .00001, + .01431, .00306, .00029, .00002, .00000, + .00000, .00001, .00001, + .01368, .00292, .00027, .00001, .00000, + .00000, .00001, .00001, + .01306, .00278, .00025, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/ + .11760, .02634, .01407, .00013, .00000, + .00000, .00003, .00004, + .10634, .02367, .01108, .00011, .00000, + .00000, .00003, .00004, + .09216, .02034, .00793, .00009, .00000, + .00000, .00003, .00003, + .08333, .01828, .00627, .00008, .00000, + .00000, .00002, .00002, + .07517, .01640, .00496, .00006, .00000, + .00000, .00002, .00002, + .06891, .01496, .00409, .00006, .00000, + .00000, .00002, .00002, + .06352, .01372, .00342, .00006, .00000, + .00000, .00001, .00002, + .05837, .01255, .00286, .00004, .00000, + .00000, .00001, .00002 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/ + .05431, .01163, .00246, .00004, .00000, + .00000, .00001, .00002, + .05069, .01082, .00214, .00005, .00000, + .00000, .00001, .00001, + .04804, .01023, .00192, .00005, .00000, + .00000, .00001, .00001, + .04294, .00909, .00154, .00003, .00000, + .00000, .00001, .00001, + .03905, .00822, .00129, .00003, .00000, + .00000, .00001, .00001, + .03519, .00737, .00106, .00002, .00000, + .00000, .00001, .00001, + .03165, .00659, .00087, .00001, .00000, + .00000, .00001, .00001, + .02879, .00597, .00074, .00001, .00000, + .00000, .00001, .00001 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/ + .02620, .00541, .00063, .00002, .00000, + .00000, .00000, .00001, + .02426, .00499, .00056, .00001, .00000, + .00000, .00000, .00001, + .02212, .00453, .00048, .00001, .00000, + .00000, .00000, .00001, + .02041, .00417, .00043, .00001, .00000, + .00000, .00000, .00001, + .01899, .00386, .00038, .00001, .00000, + .00000, .00000, .00000, + .01733, .00351, .00033, .00001, .00000, + .00000, .00000, .00001, + .01592, .00322, .00030, .00001, .00000, + .00000, .00000, .00000, + .01472, .00296, .00027, .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)/ + .01363, .00273, .00024, .00001, .00000, + .00000, .00000, .00000, + .01264, .00253, .00022, .00001, .00000, + .00000, .00000, .00000, + .01178, .00235, .00020, .00001, .00000, + .00000, .00000, .00000, + .01103, .00219, .00018, .00001, .00000, + .00000, .00000, .00000, + .01033, .00205, .00017, .00001, .00000, + .00000, .00000, .00000, + .00969, .00192, .00015, .00001, .00000, + .00000, .00000, .00000, + .00912, .00180, .00014, .00001, .00000, + .00000, .00000, .00000, + .00862, .00170, .00013, .00001, .00000, + .00000, .00000, .00000 / DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/ + .00814, .00160, .00012, .00000, .00000, + .00000, .00000, .00000, + .00770, .00151, .00011, .00000, .00000, + .00000, .00000, .00000, + .00731, .00143, .00011, .00000, .00000, + .00000, .00000, .00000, + .00695, .00136, .00010, .00000, .00000, + .00000, .00000, .00000, + .00661, .00129, .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=1,8)/ + .06979, .01408, .00513, .00004, .00000, + .00000, .00000, .00001, + .06242, .01251, .00397, .00004, .00000, + .00000, .00000, .00000, + .05324, .01059, .00277, .00004, .00000, + .00000, .00000, .00000, + .04762, .00942, .00216, .00002, .00000, + .00000, .00000, .00001, + .04249, .00835, .00169, .00002, .00000, + .00000, .00000, .00000, + .03859, .00755, .00138, .00002, .00000, + .00000, .00000, .00000, + .03527, .00687, .00115, .00001, .00000, + .00000, .00000, .00000, + .03212, .00623, .00096, .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)/ + .02965, .00573, .00082, .00001, .00000, + .00000, .00000, .00000, + .02748, .00529, .00071, .00001, .00000, + .00000, .00000, .00000, + .02591, .00497, .00064, .00001, .00000, + .00000, .00000, .00000, + .02288, .00437, .00051, .00001, .00000, + .00000, .00000, .00000, + .02060, .00391, .00043, .00001, .00000, + .00000, .00000, .00001, + .01837, .00347, .00035, .00001, .00000, + .00000, .00000, .00000, + .01634, .00307, .00029, .00001, .00000, + .00000, .00000, .00000, + .01472, .00275, .00025, .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=17,24)/ + .01327, .00247, .00021, .00000, .00000, + .00000, .00000, .00000, + .01220, .00226, .00019, .00000, .00000, + .00000, .00000, .00000, + .01102, .00204, .00016, .00000, .00000, + .00000, .00000, .00000, + .01009, .00186, .00014, .00000, .00000, + .00000, .00000, .00000, + .00932, .00171, .00013, .00000, .00000, + .00000, .00000, .00000, + .00843, .00154, .00011, .00000, .00000, + .00000, .00000, .00000, + .00768, .00140, .00010, .00000, .00000, + .00000, .00000, .00000, + .00705, .00128, .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)/ + .00647, .00117, .00008, .00000, .00000, + .00000, .00000, .00000, + .00596, .00108, .00007, .00000, .00000, + .00000, .00000, .00000, + .00552, .00099, .00007, .00000, .00000, + .00000, .00000, .00000, + .00514, .00092, .00006, .00000, .00000, + .00000, .00000, .00000, + .00478, .00086, .00005, .00000, .00000, + .00000, .00000, .00000, + .00446, .00080, .00005, .00000, .00000, + .00000, .00000, .00000, + .00417, .00074, .00005, .00000, .00000, + .00000, .00000, .00000, + .00392, .00070, .00004, .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)/ + .00368, .00065, .00004, .00000, .00000, + .00000, .00000, .00000, + .00346, .00061, .00004, .00000, .00000, + .00000, .00000, .00000, + .00327, .00058, .00004, .00000, .00000, + .00000, .00000, .00000, + .00310, .00055, .00003, .00000, .00000, + .00000, .00000, .00000, + .00293, .00052, .00003, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/ + .03586, .00638, .00138, .00000, .00000, + .00000, .00000, .00000, + .03166, .00560, .00106, .00000, .00000, + .00000, .00000, .00000, + .02652, .00466, .00073, .00000, .00000, + .00000, .00000, .00000, + .02343, .00409, .00057, .00000, .00000, + .00000, .00000, .00000, + .02062, .00358, .00044, .00000, .00000, + .00000, .00000, .00000, + .01854, .00320, .00036, .00000, .00000, + .00000, .00000, .00000, + .01677, .00289, .00030, .00000, .00000, + .00000, .00000, .00000, + .01512, .00259, .00025, .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)/ + .01383, .00236, .00022, .00000, .00000, + .00000, .00000, .00000, + .01271, .00216, .00019, .00000, .00000, + .00000, .00000, .00000, + .01190, .00202, .00017, .00000, .00000, + .00000, .00000, .00000, + .01037, .00175, .00014, .00000, .00000, + .00000, .00000, .00000, + .00924, .00155, .00012, .00000, .00000, + .00000, .00000, .00000, + .00813, .00136, .00010, .00000, .00000, + .00000, .00000, .00000, + .00714, .00119, .00008, .00000, .00000, + .00000, .00000, .00000, + .00636, .00105, .00007, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/ + .00567, .00094, .00006, .00000, .00000, + .00000, .00000, .00000, + .00517, .00085, .00005, .00000, .00000, + .00000, .00000, .00000, + .00462, .00076, .00004, .00000, .00000, + .00000, .00000, .00000, + .00419, .00068, .00004, .00000, .00000, + .00000, .00000, .00000, + .00383, .00062, .00004, .00000, .00000, + .00000, .00000, .00000, + .00343, .00056, .00003, .00000, .00000, + .00000, .00000, .00000, + .00310, .00050, .00003, .00000, .00000, + .00000, .00000, .00000, + .00282, .00045, .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)/ + .00256, .00041, .00002, .00000, .00000, + .00000, .00000, .00000, + .00234, .00037, .00002, .00000, .00000, + .00000, .00000, .00000, + .00215, .00034, .00002, .00000, .00000, + .00000, .00000, .00000, + .00199, .00032, .00002, .00000, .00000, + .00000, .00000, .00000, + .00183, .00029, .00002, .00000, .00000, + .00000, .00000, .00000, + .00170, .00027, .00001, .00000, .00000, + .00000, .00000, .00000, + .00158, .00025, .00001, .00000, .00000, + .00000, .00000, .00000, + .00147, .00023, .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)/ + .00138, .00022, .00001, .00000, .00000, + .00000, .00000, .00000, + .00129, .00020, .00001, .00000, .00000, + .00000, .00000, .00000, + .00121, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00114, .00018, .00001, .00000, .00000, + .00000, .00000, .00000, + .00107, .00017, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/ + .00412, .00051, .00002, .00000, .00000, + .00000, .00000, .00000, + .00350, .00043, .00002, .00000, .00000, + .00000, .00000, .00000, + .00278, .00034, .00001, .00000, .00000, + .00000, .00000, .00000, + .00237, .00029, .00001, .00000, .00000, + .00000, .00000, .00000, + .00201, .00024, .00001, .00000, .00000, + .00000, .00000, .00000, + .00175, .00021, .00001, .00000, .00000, + .00000, .00000, .00000, + .00154, .00019, .00001, .00000, .00000, + .00000, .00000, .00000, + .00135, .00016, .00001, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/ + .00120, .00014, .00001, .00000, .00000, + .00000, .00000, .00000, + .00108, .00013, .00001, .00000, .00000, + .00000, .00000, .00000, + .00099, .00012, .00001, .00000, .00000, + .00000, .00000, .00000, + .00083, .00010, .00000, .00000, .00000, + .00000, .00000, .00000, + .00071, .00008, .00000, .00000, .00000, + .00000, .00000, .00000, + .00061, .00007, .00000, .00000, .00000, + .00000, .00000, .00000, + .00051, .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, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00034, .00004, .00000, .00000, .00000, + .00000, .00000, .00000, + .00029, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00026, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00023, .00003, .00000, .00000, .00000, + .00000, .00000, .00000, + .00020, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00018, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00016, .00002, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/ + .00014, .00002, .00000, .00000, .00000, + .00000, .00000, .00000, + .00012, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00011, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00010, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00009, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00008, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00007, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/ + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00006, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00005, .00001, .00000, .00000, .00000, + .00000, .00000, .00000, + .00004, .00001, .00000, .00000, .00000, + .00000, .00000, .00000 / data xx/1d-5,2d-5,4d-5,6d-5,8d-5, . 1d-4,2d-4,4d-4,6d-4,8d-4, . 1d-3,2d-3,4d-3,6d-3,8d-3, . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2, . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0, . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0, . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0, . .8d0,.9d0,1d0/ data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1, . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2, . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4, . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6, . 1.8d6,3.2d6,5.6d6,1d7/ data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/ data n0/3,4,5,9,9,9,9,9/ DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/ data init/0/ save xsave=x q2save=qsq if(init.ne.0) goto 10 C open(unit=1,file='ft23a.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